home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / STD_CREW / 007_DEMO.ZIP / 007_DEMO.MSA / SPLITTER.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  36KB  |  102 lines
  1. 10 MODE
  2. 100 DOKE
  3. 1000 GOTO
  4. 11 REM rase 10 : reserve as datascreen (10) : load "bond_pic.neo",10
  5. 110 FOR
  6. 120 DOKE
  7. 130 FOR
  8. 140 DOKE
  9. 150 FOR
  10. 160 DOKE
  11. 170 FOR
  12. 180 DOKE
  13. 190 FOR
  14. 20 SCREEN COPY
  15. 200 IF
  16. 210 DOKE
  17. 220 FOR
  18. 230 DOKE
  19. 240 FOR
  20. 250 DOKE
  21. 260 FOR
  22. 270 DOKE
  23. 280 FOR
  24. 290 DOKE
  25. 30 FOR
  26. 300 FOR
  27. 310 DOKE
  28. 320 FOR
  29. 330 DOKE
  30. 340 FOR
  31. 350 DOKE
  32. 360 FOR
  33. 370 DOKE
  34. 380 FOR
  35. 390 DOKE
  36. 40 WAIT VBL
  37. 400 FOR
  38. 410 DOKE
  39. 420 FOR
  40. 430 DOKE
  41. 440 FOR
  42. 450 DOKE
  43. 460 FOR
  44. 470 DOKE
  45. 480 FOR
  46. 490 DOKE
  47. 50 FOR
  48. 500 FOR
  49. 510 NEXT
  50. 520 FOR
  51. 530 WAIT VBL
  52. 540 FOR
  53. 550 DOKE
  54. 560 FOR
  55. 570 DOKE
  56. 580 FOR
  57. 590 DOKE
  58. 60 DOKE
  59. 600 FOR
  60. 610 IF
  61. 620 DOKE
  62. 630 FOR
  63. 640 DOKE
  64. 650 FOR
  65. 660 DOKE
  66. 670 FOR
  67. 680 DOKE
  68. 690 FOR
  69. 70 FOR
  70. 700 DOKE
  71. 710 FOR
  72. 720 DOKE
  73. 730 FOR
  74. 740 DOKE
  75. 750 FOR
  76. 760 DOKE
  77. 770 FOR
  78. 780 DOKE
  79. 790 FOR
  80. 80 DOKE
  81. 800 DOKE
  82. 810 FOR
  83. 820 DOKE
  84. 830 FOR
  85. 840 DOKE
  86. 850 FOR
  87. 860 DOKE
  88. 870 FOR
  89. 880 DOKE
  90. 890 FOR
  91. 90 FOR
  92. 900 DOKE
  93. 910 FOR
  94. 920 DOKE
  95. 930 FOR
  96. 940 DOKE
  97. 950 FOR
  98. 960 DOKE
  99. 970 FOR
  100. 980 DOKE
  101. 990 NEXT
  102.