home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STESTOS / STESTOS1.MSA / CONTROL.S_W / MAKER.BAS (.txt) < prev    next >
Atari STOS Basic  |  1994-09-06  |  9KB  |  127 lines
  1. 10 MODE
  2. 100 GR WRITING
  3. 1000 IF
  4. 1010 IF
  5. 1020 IF
  6. 1030 IF
  7. 1040 IF
  8. 1050 IF
  9. 1060 IF
  10. 1070 IF
  11. 1080 IF
  12. 1090 IF
  13. 110 VARNAME
  14. 1100 IF
  15. 1110 UNTIL
  16. 1120 VARNAME
  17. 1130 CLS
  18. 1140 REM 
  19. 1150 INK
  20. 1160 PAPER
  21. 1170 REM see if button has been selected
  22. 1180 VARNAME
  23. 1190 IF
  24. 120 BACK
  25. 1200 NEXT
  26. 1210 SHOW
  27. 1211 IF
  28. 1220 LOAD
  29. 130 VARNAME
  30. 140 BOX
  31. 150 IF
  32. 160 IF
  33. 170 IF
  34. 180 IF
  35. 190 IF
  36. 20 DIM
  37. 200 IF
  38. 210 IF
  39. 211 IF
  40. 220 IF
  41. 230 IF
  42. 240 BOX
  43. 250 UNTIL
  44. 260 IF
  45. 270 WHILE
  46. 280 VARNAME
  47. 290 IF
  48. 30 VARNAME
  49. 300 X MOUSE
  50. 310 VARNAME
  51. 320 IF
  52. 330 UNTIL
  53. 340 GR WRITING
  54. 350 IF
  55. 360 VARNAME
  56. 370 IF
  57. 380 RESERVE
  58. 390 EXTENSION (Index #22) (Token 0x86)
  59. 40 VARNAME
  60. 400 FOR
  61. 410 LOKE
  62. 420 REM end
  63. 430 VARNAME
  64. 440 LOKE
  65. 450 CLS
  66. 460 EXTENSION (Index #22) (Token 0xa0)
  67. 470 VARNAME
  68. 480 VARNAME
  69. 490 EXTENSION (Index #22) (Token 0x86)
  70. 50 VARNAME
  71. 500 IF
  72. 510 NEXT
  73. 520 CLS
  74. 530 COLOUR
  75. 540 INPUT
  76. 550 SHOW
  77. 560 IF
  78. 570 REM for LOOP=1 to 100 : image put logic,LOOP,16,start(10)+40,3,1 : next LOOP
  79. 580 RETURN
  80. 590 REM 
  81. 60 REPEAT
  82. 600 REM 
  83. 610 SHOW
  84. 611 IF
  85. 612 IF
  86. 620 VARNAME
  87. 630 VARNAME
  88. 640 VARNAME
  89. 650 VARNAME
  90. 660 VARNAME
  91. 670 FOR
  92. 680 SPRITE
  93. 690 NEXT
  94. 70 AUTO BACK
  95. 700 REM set up screen
  96. 710 CLS
  97. 720 VARNAME
  98. 730 VARNAME
  99. 740 VARNAME
  100. 750 VARNAME
  101. 760 VARNAME
  102. 770 VARNAME
  103. 780 VARNAME
  104. 790 VARNAME
  105. 80 IF
  106. 800 VARNAME
  107. 810 VARNAME
  108. 820 VARNAME
  109. 830 VARNAME
  110. 840 VARNAME
  111. 850 PAPER
  112. 860 PAPER
  113. 870 LOCATE
  114. 880 LOCATE
  115. 890 LOCATE
  116. 90 GOSUB
  117. 900 LOCATE
  118. 910 LOCATE
  119. 920 LOGIC
  120. 930 VARNAME
  121. 940 IF
  122. 950 VARNAME
  123. 960 IF
  124. 970 IF
  125. 980 IF
  126. 990 IF
  127.