home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1992 / USERFB92.MSA / STUFEB92.ST / STOS.MAN / PART_3.ACB (.txt) next >
Atari STOS Basic  |  1991-12-07  |  12KB  |  138 lines
  1. 10 ON ERROR
  2. 10000 HIDE
  3. 10010 VARNAME
  4. 20 IF
  5. 20000 REM ***** SELECT COMMAND
  6. 20010 EXTENSION (Index #0) (Token 0x80)
  7. 20020 FOR
  8. 20030 VARNAME
  9. 20040 IF
  10. 20050 IF
  11. 20060 HIDE
  12. 20070 GOSUB
  13. 20080 PEN
  14. 20090 NEXT
  15. 20100 HIDE
  16. 20110 ON
  17. 20120 IF
  18. 20130 VARNAME
  19. 20140 GOTO
  20. 20150 RESTORE
  21. 20160 RESTORE
  22. 20170 RESTORE
  23. 20180 RESTORE
  24. 20190 RESTORE
  25. 20200 RESTORE
  26. 20210 RESTORE
  27. 20220 RESTORE
  28. 20230 RESTORE
  29. 20240 RESTORE
  30. 20250 RESTORE
  31. 20260 RESTORE
  32. 20270 REM **** Variable/String Commands ****
  33. 20280 DATA
  34. 20290 REM *** EDITOR/SYSTEM ***
  35. 20300 DATA
  36. 20310 REM *** PROGRAM CONTROL ***
  37. 20320 DATA
  38. 20330 REM *** LOADING/SAVING ***
  39. 20340 DATA
  40. 20350 REM *** DIRECTORIES ***
  41. 20360 DATA
  42. 20370 REM *** FILING COMMANDS ***
  43. 20380 DATA
  44. 20390 REM *** MEMORY BANK COMMANDS ***
  45. 20400 DATA
  46. 20410 REM *** BINARY ***
  47. 20420 DATA
  48. 20430 REM *** MATHS/ARITHMETIC ***
  49. 20440 DATA
  50. 20450 REM *** TRIG ***
  51. 20460 DATA
  52. 20470 REM *** PRINTER ***
  53. 20480 DATA
  54. 20490 REM *** KEYBOARD ***
  55. 20500 DATA
  56. 30 GOTO
  57. 30000 REM **** MANUAL ****
  58. 30010 VARNAME
  59. 30020 VARNAME
  60. 30030 VARNAME
  61. 30040 IF
  62. 30050 VARNAME
  63. 30060 VARNAME
  64. 30070 FOR
  65. 30080 VARNAME
  66. 30090 IF
  67. 30100 CLS
  68. 30110 IF
  69. 30120 SPRITE
  70. 30130 WINDOPEN
  71. 30140 SCROLL
  72. 30150 WHILE
  73. 30160 IF
  74. 30170 IF
  75. 30180 IF
  76. 30190 IF
  77. 30200 HIDE
  78. 30210 IF
  79. 30220 LOCATE
  80. 30230 IF
  81. 30240 LOCATE
  82. 30250 REM **** DATE$
  83. 30260 PEN
  84. 30270 ON ERROR
  85. 30280 QWINDOW
  86. 30290 CENTRE
  87. 30300 REM **** TIME$
  88. 30310 PEN
  89. 30320 ON ERROR
  90. 30330 QWINDOW
  91. 30340 CENTRE
  92. 30350 REM *** FREE
  93. 30360 PEN
  94. 30370 REM **** FILE SELECT$
  95. 30380 SHOW
  96. 30390 GOSUB
  97. 30400 REM **** DFREE
  98. 30410 PEN
  99. 30420 ON ERROR
  100. 30430 CENTRE
  101. 30440 REM **** DRVMAP
  102. 30450 VARNAME
  103. 30460 NEXT
  104. 30470 REM **** FKEY
  105. 30480 GOSUB
  106. 30490 WEND
  107. 30500 REM **** INKEY$/SCANCODE
  108. 30510 GOSUB
  109. 30520 LOCATE
  110. 30530 WEND
  111. 30540 REM **** INPUT$
  112. 30550 GOSUB
  113. 40 RETURN
  114. 40000 REM **** ROUTE TO DEMONSTRATIONS
  115. 40010 HIDE
  116. 40020 GOSUB
  117. 40030 GOSUB
  118. 40060 ON
  119. 40070 GOSUB
  120. 40130 ON
  121. 40140 ON
  122. 50 HIDE
  123. 60 PALETTE
  124. 60000 REM *** SET UP TEXT ARRAY ***
  125. 60010 EXTENSION (Index #2) (Token 0x82)
  126. 60020 VARNAME
  127. 65000 REM **** WAIT KEY
  128. 65010 PEN
  129. 65020 WHILE
  130. 65030 LOCATE
  131. 65040 WINDOPEN
  132. 65500 IF
  133. 65510 IF
  134. 65520 CLS
  135. 70 LOAD
  136. 80 DIM
  137. 90 GOTO
  138.