home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE04.MSA / SOURCE.4U / STOSDEMO.BAS (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1987-04-22  |  2.5 KB  |  75 lines
  1. 10 REM     I HOPE YOU TYPED THE DATA FROM TABLE 1 INTO THE INPDATA ACCESSORY!!
  2. 100 UNKNOWN OP: 0x3A
  3. 110 UNKNOWN OP: 0x3A
  4. 120 REM     LOAD AND UNPACK PICTURE
  5. 130 LOAD
  6. 140 EXTENSION (Index #0) (Token 0x80)
  7. 150 ERASE
  8. 160 UNKNOWN OP: 0x3A
  9. 170 UNKNOWN OP: 0x3A
  10. 180 REM     GRAB SCREEN BLOCKS
  11. 190 VARNAME
  12. 20 UNKNOWN OP: 0x3A
  13. 200 VARNAME
  14. 210 VARNAME
  15. 220 VARNAME
  16. 230 VARNAME
  17. 240 UNKNOWN OP: 0x3A
  18. 250 UNKNOWN OP: 0x3A
  19. 260 REM     DRAW FOUR EVER DECREASING BOXES
  20. 270 FOR
  21. 280 FOR
  22. 290 SCREEN$
  23. 30 UNKNOWN OP: 0x3A
  24. 300 NEXT
  25. 310 NEXT
  26. 320 UNKNOWN OP: 0x3A
  27. 330 FOR
  28. 340 FOR
  29. 350 SCREEN$
  30. 360 NEXT
  31. 370 NEXT
  32. 380 FOR
  33. 390 UNKNOWN OP: 0x3A
  34. 40 KEY
  35. 400 FOR
  36. 410 SCREEN$
  37. 420 NEXT
  38. 430 NEXT
  39. 440 UNKNOWN OP: 0x3A
  40. 450 FOR
  41. 460 FOR
  42. 470 SCREEN$
  43. 480 NEXT
  44. 490 NEXT
  45. 50 DIM
  46. 500 UNKNOWN OP: 0x3A
  47. 510 UNKNOWN OP: 0x3A
  48. 520 REM     PLOT TEXT ONTO BANK 8 THEN COPY WHOLE SCREEN TO PHYSIC
  49. 530 SCREEN$
  50. 540 GET PALETTE
  51. 550 SCREEN COPY
  52. 560 ERASE
  53. 570 UNKNOWN OP: 0x3A
  54. 580 UNKNOWN OP: 0x3A
  55. 590 REM     INTELLIGENT COLOUR CYCLING USING INTERRUPT DRIVEN FLASHES
  56. 60 FOR
  57. 600 FOR
  58. 610 VARNAME
  59. 620 NEXT
  60. 630 WAIT VBL
  61. 640 FLASH
  62. 650 FLASH
  63. 660 FLASH
  64. 670 FLASH
  65. 680 CLEAR KEY
  66. 690 WAIT KEY
  67. 70 RESERVE
  68. 700 UNKNOWN OP: 0x3A
  69. 710 UNKNOWN OP: 0x3A
  70. 720 REM     THIS NEXT LINE DOES THE SAME AS TYPING IT IN DIRECT MODE!!
  71. 730 REM        ANYBODY GOT ANY IDEA'S FOR SELF MODIFYING PROGRAMS?
  72. 740 PUT KEY
  73. 80 RESERVE
  74. 90 CLS
  75.