home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser02.arj / stoser02.msa / SOURCE.4U / STOSSER1.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  65KB  |  94 lines
  1. 10 MODE
  2. 1000 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   ROUTINE TO SHOW A DOC FILE  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  3. 1001 MODE
  4. 1002 IF
  5. 1010 LOGIC
  6. 1020 IF
  7. 1040 UNTIL
  8. 1050 LOGIC
  9. 1055 VARNAME
  10. 1060 IF
  11. 1065 IF
  12. 1066 GOTO
  13. 1070 IF
  14. 1100 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ROLL THE SCREEN DOWN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  15. 1110 FOR
  16. 1120 FOR
  17. 1121 SCREEN COPY
  18. 1122 SCREEN COPY
  19. 1123 SCREEN COPY
  20. 1124 SCREEN COPY
  21. 1125 WAIT VBL
  22. 12 DIM
  23. 15 IF
  24. 16 IF
  25. 17 IF
  26. 18 IF
  27. 19 IF
  28. 20 IF
  29. 21 IF
  30. 22 IF
  31. 23 IF
  32. 24 IF
  33. 45 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  SWITCH AND SCROLL !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  34. 50 GOSUB
  35. 500 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    change music    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  36. 51 GOSUB
  37. 510 IF
  38. 52 VARNAME
  39. 520 VARNAME
  40. 60 CLEAR KEY
  41. 61 VARNAME
  42. 62 REPEAT
  43. 65 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! MENU SCREEN LOOPER !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  44. 70 CLEAR KEY
  45. 71 IF
  46. 72 UNTIL
  47. 73 IF
  48. 74 IF
  49. 75 IF
  50. 76 IF
  51. 77 IF
  52. 78 IF
  53. 79 IF
  54. 80 IF
  55. 81 IF
  56. 82 IF
  57. 83 IF
  58. 90 BELL
  59. 9020 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! GET LIGHT SWITCH !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  60. 9021 HIDE
  61. 9025 SCREEN SWAP
  62. 9050 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!    SET MENU ZONES !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  63. 9051 RESTORE
  64. 9100 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  65. 9101 IF
  66. 9102 HIDE
  67. 9105 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! opening screen !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  68. 9110 EXTENSION (Index #12) (Token 0x88)
  69. 9120 GET PALETTE
  70. 9180 VARNAME
  71. 9190 VARNAME
  72. 9200 EXTENSION (Index #12) (Token 0x94)
  73. 9210 VARNAME
  74. 9225 LOCATE
  75. 9230 SCREEN SWAP
  76. 9240 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! MENU SCREEN ZONE DATA !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  77. 9245 DATA
  78. 9246 DATA
  79. 9300 REM !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  text for menu screen  !!!!!!!!!!!!!!!!!     scroller          !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  80. 9303 VARNAME
  81. 9304 VARNAME
  82. 9305 VARNAME
  83. 9306 VARNAME
  84. 9307 VARNAME
  85. 9308 VARNAME
  86. 9309 VARNAME
  87. 9310 VARNAME
  88. 9311 VARNAME
  89. 9312 VARNAME
  90. 9313 VARNAME
  91. 9314 VARNAME
  92. 9315 VARNAME
  93. 9350 RETURN
  94.