home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI10.ARJ / ictari.10 / STOS / PUZZLE / PUZZLE.BAS (.txt) < prev    next >
Atari STOS Basic  |  1989-07-29  |  6KB  |  95 lines
  1. 10 MODE
  2. 100 EXTENSION (Index #0) (Token 0x80)
  3. 11 LOCATE
  4. 110 FOR
  5. 120 RESERVE
  6. 130 SCREEN COPY
  7. 140 VARNAME
  8. 150 COPY
  9. 160 NEXT
  10. 170 MODE
  11. 180 FOR
  12. 190 FOR
  13. 20 DIM
  14. 200 VARNAME
  15. 210 CLS
  16. 220 EXTENSION (Index #0) (Token 0x80)
  17. 230 SCREEN COPY
  18. 240 NEXT
  19. 250 VARNAME
  20. 260 SCREEN COPY
  21. 270 SHOW
  22. 280 VARNAME
  23. 290 VARNAME
  24. 30 VARNAME
  25. 300 VARNAME
  26. 310 CLEAR KEY
  27. 320 VARNAME
  28. 330 IF
  29. 340 IF
  30. 350 IF
  31. 360 VARNAME
  32. 370 IF
  33. 380 GOTO
  34. 390 IF
  35. 40 FOR
  36. 400 VARNAME
  37. 410 IF
  38. 420 INC
  39. 430 IF
  40. 440 HIDE
  41. 450 SWAP
  42. 460 SCREEN COPY
  43. 470 CLS
  44. 480 GOTO
  45. 490 VARNAME
  46. 50 DATA
  47. 500 NEXT
  48. 510 REM gosub1000 : samplay WELLDONE
  49. 520 VARNAME
  50. 530 FOR
  51. 540 SCREEN COPY
  52. 550 WAIT
  53. 560 NEXT
  54. 570 SCREEN COPY
  55. 580 VARNAME
  56. 590 VARNAME
  57. 60 DATA
  58. 600 PEN
  59. 610 LOCATE
  60. 620 VARNAME
  61. 630 VARNAME
  62. 640 DEFAULT
  63. 650 REM cheat
  64. 660 HIDE
  65. 670 APPEAR
  66. 675 WAIT
  67. 680 APPEAR
  68. 690 SHOW
  69. 70 DATA
  70. 700 GOTO
  71. 710 DEFAULT
  72. 72 FADE
  73. 720 ERASE
  74. 730 VARNAME
  75. 74 SHOW
  76. 740 VARNAME
  77. 750 IF
  78. 760 LOCATE
  79. 770 PAPER
  80. 780 VARNAME
  81. 790 VARNAME
  82. 80 CLS
  83. 800 IF
  84. 810 VARNAME
  85. 820 NEXT
  86. 830 REM Stop music sample and allow for message sample (Not implemented, but            bank 14 is free for samples (if memory allows!)
  87. 840 IF
  88. 850 OPEN IN
  89. 860 INPUT
  90. 870 FOR
  91. 880 INPUT
  92. 890 VARNAME
  93. 90 GOSUB
  94. 900 CLOSE
  95.