home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / COMM / WINCOMM5.ZIP / VIDTEX.WMS < prev    next >
Encoding:
Text File  |  1990-10-20  |  1.8 KB  |  64 lines
  1. ;Playback of VIDTEX files demo
  2.  
  3. USERWINDOW(5,0,0,49344)
  4. METABKG(0,0,1,"synapp.wmf")        ;displays the SYNAPPSYS logo
  5. show(6)
  6. STOP                               ;stops the session if started
  7. len = 2
  8. GOSUB pause
  9.    DIALOGBOX 50,50, 251, 77, 21, "VIDTEX Demonstration" 
  10.       LTEXT 13, 8, 224, 24, "This part of the demonstration will replay a file that contains VIDTEX escape sequences with RLE graphics.  The file was captured during a session while online with Compuserve."
  11.       LTEXT 13, 32, 227, 17, "The graphics can be copied to the clipboard and pasted into another Windows application."
  12.       DEFCANCELBUTTON 104, 53, 50, 15, "&OK"
  13.    DEND
  14. dtime = 20
  15. gosub delay
  16.  
  17. open("VIDTEX.wsf","",1)       ;opens the session file setup with VT102 terminal type selected
  18. len = 2
  19. DELOBJECT(0,0,0)              ;clears the graphic
  20. show(8)
  21. key1 = 0
  22. key = 38
  23.  
  24.  
  25. len = 1
  26. sendspeckey(1,0,asc("F"))     ; 1 == alt key, selects the FILE menu
  27. gosub pause
  28. sendspeckey(0,0,asc("Y"))     ; selects the Playback menu item
  29. gosub pause
  30. sendspeckey(0,0,asc("V"))     ; types VT102.EMU in the edit box
  31. sendspeckey(0,0,asc("I"))
  32. sendspeckey(0,0,asc("D"))
  33. sendspeckey(0,0,asc("T"))
  34. sendspeckey(0,0,asc("E"))
  35. sendspeckey(0,0,asc("X"))
  36. sendspeckey(0,0,110)
  37. sendspeckey(0,0,asc("E"))
  38. sendspeckey(0,0,asc("M"))
  39. sendspeckey(0,0,asc("U"))
  40. gosub pause
  41. sendspeckey(0,0,13)           ; send carrage return
  42.  
  43. HALT
  44.  
  45. pause:
  46. i = TIME?+len
  47. WHILE(TIME? <i)
  48. WEND
  49. RETURN
  50.  
  51.  
  52. delay:                          ;automatically destroys the dialog box by 
  53. i = TIME? + dtime                 ;sending a carrage return after a timeout
  54. j = 255                         ;if the CONTINUE button is not selected beforehand
  55. WHILE((TIME?<i) && (j == 255))
  56. j = DIALOG?
  57. WEND
  58. if(j == 255)
  59.   SENDSPECKEY(0,0,13)
  60. RETURN
  61.  
  62. END
  63.  
  64.