home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / STAR1.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  5KB  |  112 lines
  1. 10 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. 100 HIDE
  3. 1000 REM rotate round x axis
  4. 1010 VARNAME
  5. 1020 VARNAME
  6. 1030 VARNAME
  7. 1040 FOR
  8. 1050 VARNAME
  9. 1060 VARNAME
  10. 1070 VARNAME
  11. 1080 VARNAME
  12. 1090 NEXT
  13. 110 VARNAME
  14. 1100 RETURN
  15. 120 CURS
  16. 150 DIM
  17. 151 FOR
  18. 180 AUTO BACK
  19. 190 RESERVE
  20. 20 REM Eddies 3D graphics
  21. 200 COLOUR
  22. 2000 VARNAME
  23. 2010 VARNAME
  24. 2020 VARNAME
  25. 2030 FOR
  26. 2040 VARNAME
  27. 2050 VARNAME
  28. 2060 VARNAME
  29. 2070 VARNAME
  30. 2080 VARNAME
  31. 2090 NEXT
  32. 21 REM A BASIC 3D STAR FIELD - COULD BE BETTER!
  33. 2100 RETURN
  34. 240 LOGIC
  35. 250 FOR
  36. 260 VARNAME
  37. 270 VARNAME
  38. 280 IF
  39. 30 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  40. 40 MODE
  41. 410 NEXT
  42. 460 RESTORE
  43. 470 FOR
  44. 480 READ
  45. 490 NEXT
  46. 50 VARNAME
  47. 500 DATA
  48. 5000 INK
  49. 5001 REPEAT
  50. 5010 FOR
  51. 5011 FOR
  52. 5020 IF
  53. 5021 NEXT
  54. 5050 IF
  55. 5060 SCREEN SWAP
  56. 5070 NEXT
  57. 5071 UNTIL
  58. 510 REPEAT
  59. 511 IF
  60. 5110 FOR
  61. 5120 FOR
  62. 5150 IF
  63. 5160 SCREEN SWAP
  64. 5170 NEXT
  65. 520 FOR
  66. 530 VARNAME
  67. 540 VARNAME
  68. 550 VARNAME
  69. 560 NEXT
  70. 571 IF
  71. 580 REM calculate perspective
  72. 590 FOR
  73. 60 VARNAME
  74. 600 VARNAME
  75. 610 VARNAME
  76. 620 VARNAME
  77. 630 VARNAME
  78. 640 NEXT
  79. 650 REM plot points
  80. 660 FOR
  81. 682 VARNAME
  82. 683 VARNAME
  83. 690 NEXT
  84. 691 LOCATE
  85. 70 VARNAME
  86. 700 FOR
  87. 701 IF
  88. 759 NEXT
  89. 760 SCREEN SWAP
  90. 770 UNTIL
  91. 780 REM rotate round x axis
  92. 790 VARNAME
  93. 80 KEY
  94. 800 VARNAME
  95. 810 VARNAME
  96. 820 FOR
  97. 830 VARNAME
  98. 840 VARNAME
  99. 850 VARNAME
  100. 860 VARNAME
  101. 870 NEXT
  102. 880 RETURN
  103. 890 REM 
  104. 90 MODE
  105. 900 VARNAME
  106. 910 FOR
  107. 920 VARNAME
  108. 930 VARNAME
  109. 940 VARNAME
  110. 950 VARNAME
  111. 960 NEXT
  112.