;Playback of VT102 files demo

STOP                              ;stops the session if it is started                  
USERWINDOW(5,0,0,12632256)
METABKG(0,0,1,"synapp.wmf")       ;displays the SYNAPPSYS logo
show(6)
lenth = 2
GOSUB pause
DIALOGBOX 50,50,229,60,21,"VT 102 Demonstration"
        LTEXT 8,8,224,37,"This part of the demonstration will replay a file that contains VT102 escape sequences.  The file is VT102.EMU."
        DEFCANCELBUTTON 90,42,50,15,"&OK"
DEND
dtime = 10
gosub delay

CLEAR
DELOBJECT(0,0,0)              ;clears the graphic
show(8)
open("VT102.WSF","",1)        ;opens the session file setup with VT102 terminal type selected
lenth = 2
key1 = 0
key = 38


lenth = 1
sendspeckey(1,0,asc("F"))     ; 1 == alt key, selects the FILE menu
gosub pause
sendspeckey(0,0,asc("Y"))     ; selects the Playback menu item
gosub pause
sendspeckey(0,0,asc("V"))     ; types VT102.EMU in the edit box
sendspeckey(0,0,asc("T"))
sendspeckey(0,0,asc("1"))
sendspeckey(0,0,asc("0"))
sendspeckey(0,0,asc("2"))
sendspeckey(0,0,110)
sendspeckey(0,0,asc("E"))
sendspeckey(0,0,asc("M"))
sendspeckey(0,0,asc("U"))
gosub pause
sendspeckey(0,0,13)           ; send carrage return
HALT

pause:
i = time?+lenth
while(time? <i)
wend
return


delay:                          ;automatically destroys the dialog box by 
i = time?+dtime                 ;sending a carrage return after a timeout
j = 255                         ;if the CONTINUE button is not selected beforehand
while((time?<i) && (j == 255))
j = DIALOG?
wend
if(j == 255)
  sendspeckey(0,0,13)
return

end