home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser10.arj / stoser10.msa / GIVEAWAY / LIGHTRAY.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  3KB  |  64 lines
  1. 10 REM ***************************
  2. 100 UNKNOWN OP: 0x3A
  3. 110 FADE
  4. 120 MODE
  5. 130 CLICK
  6. 140 FADE
  7. 150 INPUT
  8. 160 IF
  9. 170 UNKNOWN OP: 0x3A
  10. 180 REM ********** DRAW BIG TITLE **********
  11. 190 COLOUR
  12. 20 REM *                         *
  13. 200 CLW
  14. 210 RESERVE
  15. 220 CLS
  16. 230 ZOOM
  17. 240 SCREEN COPY
  18. 250 ERASE
  19. 260 UNKNOWN OP: 0x3A
  20. 270 REM ********** SET UP INITIAL COLOUR PALETTE **********
  21. 280 PALETTE
  22. 290 LIMIT MOUSE
  23. 30 REM *    LIGHT-RAY DRAWING    *
  24. 300 UNKNOWN OP: 0x3A
  25. 310 REM ********** MAIN LOOP **********
  26. 320 FOR
  27. 330 VARNAME
  28. 340 INK
  29. 350 PLOT
  30. 360 PLOT
  31. 370 VARNAME
  32. 380 IF
  33. 390 IF
  34. 40 REM * BY JAMES TETLOW, AGE 14 *
  35. 400 IF
  36. 410 WAIT
  37. 420 GOTO
  38. 430 UNKNOWN OP: 0x3A
  39. 440 REM ********** START INITIAL COLOUR CYCLE **********
  40. 450 SHIFT
  41. 460 LIMIT MOUSE
  42. 470 UNKNOWN OP: 0x3A
  43. 480 REM ********** LOOP TO TEST FOR FKEYS **********
  44. 490 VARNAME
  45. 50 REM *   30TH SEPTEMBER 1989   *
  46. 500 IF
  47. 510 IF
  48. 520 GOTO
  49. 530 UNKNOWN OP: 0x3A
  50. 540 REM ********** CHANGE PALETTE SUBROUTINE **********
  51. 550 IF
  52. 560 IF
  53. 570 IF
  54. 580 IF
  55. 590 IF
  56. 60 REM * ----------------------- *
  57. 600 IF
  58. 610 IF
  59. 620 IF
  60. 630 CLEAR KEY
  61. 70 REM * NEW ATARI USER MAGAZINE *
  62. 80 REM *                         *
  63. 90 REM ***************************
  64.