;WinComm Guided tour start up macro.

CHGDIR(GETSESSSTR(28))                  ; set default dir to macro dir
i = GETSESSINT(68)
PUTSESSINT(68,0)			; disable auto sizing
OPEN("TOUR.WSF","",1)
PUTSESSINT(68,i)			; disable auto sizing
USERWINDOW(5,0,100,33410)
METABKG(0,0,0,"solis.wmf")
SHOW(8)
i = TIME?+2
WHILE(TIME? <i)
WEND

   DIALOGBOX 23, 20, 230, 118, 21, "WinComm Guided Tour"
      LTEXT 9, 9, 216, 32, "This Macro is a launching point that will take you on a guided tour of WinComm.  The Function keys at the bottom of the screen can be selected to start other Macros for the demonstration.  The VT102, ANSI, and VIDTEX keys will load"
      LTEXT 9, 40, 216, 41, "a Session for these types of emulations and will 'play back' a file that contain escapes to exercise the emulation.  The other keys will run Macros to demonstrate WinComms other features.  To halt macros that change the menu bar, select 'WinComm Menu'."
      DEFCANCELBUTTON 78, 97, 76, 14, "&Continue"
   DEND

i = time?+45
j = 255
while((time?<i) && (j == 255))
j = DIALOG?
wend
if(j == 255) DESTROYDLG

end