home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / viewfile / connect.hlp next >
Encoding:
Text File  |  1989-09-24  |  1.7 KB  |  93 lines
  1. SCRIPT   
  2.  
  3. DEFINE USER_SELECTION
  4. DEFINE DUMMY                 ;VARIABLE USED IN KEYSTROKE PROCEDURE
  5.  
  6. TOP:
  7. CLEAR SCREEN
  8. PRINTE
  9. PRINTE 'Welcome to The SECRET SERVICE!!!'
  10. PRINTE
  11. PRINTE '\{8\}0 Column Ascii'
  12. PRINTE '\{4\}0 Column Ascii'
  13. PRINTE '\{A\}NSI Color Graphics'
  14. PRINTE '\{C\}ommodore 64 Graphics'
  15. PRINTE '\{V\}T-52 Color Graphics'
  16. PRINTE
  17. PRINT  'Enter Selection: '
  18. INPUT USER_SELECTION 1 NORETURN
  19. IF USER_SELECTION='8' THEN
  20. GOTO 80_COLUMN_ASCII
  21. EF USER_SELECTION='4' THEN
  22. GOTO 40_COLUMN_ASCII
  23. EF USER_SELECTION='A' THEN
  24. GOTO ANSI
  25. EF USER_SELECTION='C' THEN
  26. GOTO COMMODORE
  27. EF USER_SELECTION='V' THEN
  28. GOTO VT52
  29. ELSE
  30. GOTO TOP
  31. ENDIF
  32.  
  33. 80_COLUMN_ASCII:
  34. CLEAR SCREEN
  35. PRINTE
  36. VIEW ('C:\MENUS_80\80_COLS.TXT')
  37. PRINTE
  38. GOSUB KEYSTROKE
  39. EXIT
  40.  
  41. 40_COLUMN_ASCII:
  42. CLEAR SCREEN
  43. PRINTE
  44. VIEW ('C:\MENUS_40\40_COLS.TXT')
  45. PRINTE
  46. GOSUB KEYSTROKE
  47. EXIT
  48.  
  49. ANSI:
  50. CLEAR SCREEN
  51. PRINTE
  52. CLOSE
  53. OPEN ('VIEWFILE.DAT',OUTPUT)    ;CREAT A BLACK FILE CALLED VIEWFILE.DAT
  54. FPRINTE 'C:\MENUS_80\ANSI.TXT'  ;WRITES THE PATH OF MY ANSI SCREEN IN
  55. CLOSE                           ;THE FILE CALLED VIEWFILE.DAT
  56. TOS 'C:\VIEWFILE.TOS'           ; LOAD THE VIEWFILE PRG THAT VIEWS IT
  57. PRINTE
  58. GOSUB KEYSTROKE
  59. EXIT
  60.  
  61. COMMODORE:
  62. CLEAR SCREEN
  63. PRINTE
  64. CLOSE
  65. OPEN ('VIEWFILE.DAT',OUTPUT)        ;LOOK UP ABOVE FOR DETAILS!!!
  66. FPRINTE 'C:\MENUS_80\COMMODOR.TXT'
  67. CLOSE
  68. TOS 'C:\VIEWFILE.TOS'
  69. PRINTE
  70. GOSUB KEYSTROKE
  71. EXIT
  72.  
  73. VT52:
  74. CLEAR SCREEN
  75. PRINTE
  76. CLOSE
  77. OPEN ('VIEWFILE.DAT',OUTPUT)
  78. FPRINTE 'C:\MENUS_80\VT52.TXT'
  79. CLOSE
  80. TOS 'C:\VIEWFILE.TOS'
  81. PRINTE
  82. GOSUB KEYSTROKE
  83. EXIT
  84.  
  85. KEYSTROKE:          ;RETURNS NO MATTER WHAT THEY HIT!!!!!!!
  86. PRINT  'Hit any key to continue...' CENTER
  87. DUMMY=GET_KEY
  88. IF DUMMY='Z' THEN
  89. RETURN
  90. ELSE
  91. RETURN
  92. ENDIF
  93. ə