home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / STOSBTS1.ARJ / stosbts1.msa / PROGRAMM / VECTOR.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  9KB  |  122 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. 160 FOR
  18. 170 FOR
  19. 180 AUTO BACK
  20. 190 RESERVE
  21. 20 REM Eddies 3D graphics
  22. 200 EXTENSION (Index #0) (Token 0x80)
  23. 2000 VARNAME
  24. 2010 VARNAME
  25. 2020 VARNAME
  26. 2030 FOR
  27. 2040 VARNAME
  28. 2050 VARNAME
  29. 2060 VARNAME
  30. 2070 VARNAME
  31. 2080 VARNAME
  32. 2090 NEXT
  33. 2100 RETURN
  34. 240 LOGIC
  35. 245 RESTORE
  36. 250 FOR
  37. 251 READ
  38. 260 VARNAME
  39. 270 NEXT
  40. 290 DATA
  41. 291 DATA
  42. 292 DATA
  43. 293 DATA
  44. 294 DATA
  45. 295 DATA
  46. 296 DATA
  47. 297 DATA
  48. 30 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  49. 40 MODE
  50. 460 RESTORE
  51. 470 FOR
  52. 480 READ
  53. 490 NEXT
  54. 50 VARNAME
  55. 500 DATA
  56. 5000 INK
  57. 5001 REPEAT
  58. 5010 FOR
  59. 5020 POLYLINE
  60. 5021 POLYLINE
  61. 5050 IF
  62. 5060 SCREEN SWAP
  63. 5070 NEXT
  64. 510 REPEAT
  65. 511 IF
  66. 5110 FOR
  67. 5120 POLYLINE
  68. 5121 POLYLINE
  69. 5150 IF
  70. 5160 SCREEN SWAP
  71. 5170 NEXT
  72. 520 FOR
  73. 530 VARNAME
  74. 540 VARNAME
  75. 550 VARNAME
  76. 560 NEXT
  77. 571 IF
  78. 580 REM calculate perspective
  79. 590 FOR
  80. 60 VARNAME
  81. 600 VARNAME
  82. 610 VARNAME
  83. 620 VARNAME
  84. 630 VARNAME
  85. 640 NEXT
  86. 650 REM plot points
  87. 660 FOR
  88. 682 VARNAME
  89. 683 VARNAME
  90. 690 NEXT
  91. 691 LOCATE
  92. 70 VARNAME
  93. 700 IF
  94. 710 IF
  95. 720 IF
  96. 730 IF
  97. 740 IF
  98. 750 IF
  99. 760 SCREEN SWAP
  100. 770 UNTIL
  101. 780 REM rotate round x axis
  102. 790 VARNAME
  103. 80 KEY
  104. 800 VARNAME
  105. 810 VARNAME
  106. 820 FOR
  107. 830 VARNAME
  108. 840 VARNAME
  109. 850 VARNAME
  110. 860 VARNAME
  111. 870 NEXT
  112. 880 RETURN
  113. 890 REM 
  114. 90 MODE
  115. 900 VARNAME
  116. 910 FOR
  117. 920 VARNAME
  118. 930 VARNAME
  119. 940 VARNAME
  120. 950 VARNAME
  121. 960 NEXT
  122.