;Playback of VIDTEX files demo

STOP                               ;stops the session if started
USERWINDOW(5,0,0,49344)
METABKG(0,0,1,"synapp.wmf")        ;displays the SYNAPPSYS logo
show(6)
lenth = 2
GOSUB pause
   DIALOGBOX 50, 50, 251, 77, 21, "VIDTEX Demonstration"
      LTEXT 14, 8, 229, 24, "This part of the demonstration will replay a file that contains VIDTEX escape sequences with GIF and RLE graphics.  The file was captured during a session while online with Compuserve."
      LTEXT 13, 32, 227, 17, "The graphics can be copied to the clipboard and pasted into another Windows application."
      DEFCANCELBUTTON 104, 53, 50, 15, "&OK"
   DEND
dtime = 20
gosub delay

CLEAR
DELOBJECT(0,0,0)              ;clears the graphic
show(8)
open("VIDTEX.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("I"))
sendspeckey(0,0,asc("D"))
sendspeckey(0,0,asc("T"))
sendspeckey(0,0,asc("E"))
sendspeckey(0,0,asc("X"))
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