home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE28.MSA / GIVEAWAY.028_DEANO_DEANO.ZIP / ISSUE27.BAS (.txt) < prev    next >
Atari STOS Basic  |  2004-10-01  |  31KB  |  144 lines
  1. 10 KEY
  2. 100 IF
  3. 1000 REM NAMES AND FILENAMES
  4. 1010 DATA
  5. 1020 DATA
  6. 1030 DATA
  7. 1080 DATA
  8. 1090 DATA
  9. 11 DIR$
  10. 110 IF
  11. 12 OPEN IN
  12. 120 UNTIL
  13. 125 IF
  14. 13 RESERVE
  15. 130 IF
  16. 14 EXTENSION (Index #0) (Token 0x80)
  17. 140 IF
  18. 145 IF
  19. 146 IF
  20. 147 IF
  21. 148 IF
  22. 15 DIM
  23. 150 VARNAME
  24. 160 FADE
  25. 20 DIM
  26. 30 FOR
  27. 35 FOR
  28. 36 FOR
  29. 40 FOR
  30. 40000 HIDE
  31. 40005 GOSUB
  32. 40010 LOCATE
  33. 40020 ERASE
  34. 40030 VARNAME
  35. 40040 BLOAD
  36. 40050 IF
  37. 40060 FOR
  38. 40070 VARNAME
  39. 40080 VARNAME
  40. 40090 WHILE
  41. 40100 VARNAME
  42. 40110 VARNAME
  43. 40120 IF
  44. 40130 VARNAME
  45. 40140 VARNAME
  46. 40150 INC
  47. 40160 WEND
  48. 40170 VARNAME
  49. 40180 VARNAME
  50. 40190 FADE
  51. 40195 IF
  52. 40200 EXTENSION (Index #12) (Token 0x80)
  53. 40210 VARNAME
  54. 40220 REM ***************** show it ********************************************
  55. 40230 CLEAR KEY
  56. 40231 IF
  57. 40240 IF
  58. 40250 IF
  59. 40251 IF
  60. 40260 IF
  61. 40270 IF
  62. 40280 IF
  63. 40290 IF
  64. 40300 IF
  65. 40320 IF
  66. 40330 IF
  67. 40360 IF
  68. 40370 IF
  69. 40380 IF
  70. 40390 IF
  71. 40394 IF
  72. 40396 IF
  73. 40410 GOTO
  74. 40420 REM *********** update the screen ****************************************
  75. 40430 IF
  76. 40431 IF
  77. 40432 EXTENSION (Index #16) (Token 0x84)
  78. 40440 POLYGON
  79. 40680 REM ******  help menu ****************************************************
  80. 40690 EXTENSION (Index #12) (Token 0x80)
  81. 40700 REPEAT
  82. 40810 UNKNOWN OP: 0x3A
  83. 40820 IF
  84. 40990 REM ******** fader *******************************************************
  85. 41000 FADE
  86. 41010 REM ********* save a doc **************
  87. 41020 GOSUB
  88. 41040 SHOW
  89. 41050 HIDE
  90. 41060 CLEAR KEY
  91. 41070 HIDE
  92. 41080 REM ********** COLOUR *****************
  93. 41090 IF
  94. 41100 REM ================== Find Character Sets ===============================
  95. 41101 VARNAME
  96. 41102 VARNAME
  97. 41103 VARNAME
  98. 41104 WEND
  99. 41230 REM *********** STRING SEARCH ********************************************
  100. 41240 CLEAR KEY
  101. 41250 LOCATE
  102. 41260 LOCATE
  103. 41280 VARNAME
  104. 41290 IF
  105. 41300 NEXT
  106. 41310 EXTENSION (Index #17) (Token 0x82)
  107. 41410 EXTENSION (Index #17) (Token 0x82)
  108. 41411 VARNAME
  109. 41420 LOGIC
  110. 41430 REM ########## get input ## not my work ## someone elses #################
  111. 41440 VARNAME
  112. 41490 VARNAME
  113. 41500 LOCATE
  114. 41510 PRINT
  115. 41520 UNKNOWN OP: 0x3A
  116. 41530 REPEAT
  117. 41540 LOCATE
  118. 41550 PEN
  119. 41560 LOCATE
  120. 41570 GOSUB
  121. 41580 IF
  122. 41590 UNKNOWN OP: 0x3A
  123. 41600 IF
  124. 41610 UNKNOWN OP: 0x3A
  125. 41620 UNTIL
  126. 41630 REM locate XINPUT,YINPUT
  127. 41640 REM print space$(INPLEN+1)
  128. 41650 RETURN
  129. 41720 REPEAT
  130. 41730 VARNAME
  131. 41740 VARNAME
  132. 41750 UNTIL
  133. 41760 RETURN
  134. 45 FOR
  135. 46 FOR
  136. 50 EXTENSION (Index #0) (Token 0x80)
  137. 55 RESET ZONE
  138. 55000 EXTENSION (Index #16) (Token 0x96)
  139. 60 FOR
  140. 70 SHOW
  141. 80 REM 
  142. 90 VARNAME
  143. 95 IF
  144.