home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser10.arj / stoser10.msa / GIVEAWAY / CUBIC.BAS (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  3KB  |  81 lines
  1. 10 REM ***************************
  2. 100 REM 
  3. 110 FADE
  4. 120 MODE
  5. 130 REM ** TITLE STRINGS **
  6. 140 VARNAME
  7. 150 VARNAME
  8. 160 PEN
  9. 170 ERASE
  10. 180 SCREEN COPY
  11. 190 CLW
  12. 20 REM *                         *
  13. 200 REM ** ENLARGE TITLE TEXT **
  14. 210 ZOOM
  15. 220 ZOOM
  16. 230 CLS
  17. 240 PALETTE
  18. 250 REM ** SET DRAWING PARAMETERS **
  19. 260 VARNAME
  20. 270 VARNAME
  21. 280 REM ** MAIN DRAWING ROUTINE **
  22. 290 FOR
  23. 30 REM *   CUBIC 3-D BUILDINGS   *
  24. 300 READ
  25. 310 IF
  26. 320 FOR
  27. 330 INK
  28. 340 PLOT
  29. 350 INK
  30. 360 PLOT
  31. 370 NEXT
  32. 380 INK
  33. 390 FOR
  34. 40 REM * BY JAMES TETLOW, AGE 14 *
  35. 400 PLOT
  36. 410 DRAW
  37. 420 NEXT
  38. 430 VARNAME
  39. 440 NEXT
  40. 450 IF
  41. 460 VARNAME
  42. 470 GOTO
  43. 480 REM ** DRAW TWO DOUBLE-WIDTH COPIES OF THE BUILDING **
  44. 490 SCREEN COPY
  45. 50 REM *   30TH SEPTEMBER 1989   *
  46. 500 CLW
  47. 510 SCREEN COPY
  48. 520 ZOOM
  49. 530 ZOOM
  50. 540 SCREEN COPY
  51. 550 REM ** SAVE TO DISK **
  52. 560 REPEAT
  53. 570 IF
  54. 580 IF
  55. 590 UNTIL
  56. 60 REM * ----------------------- *
  57. 600 FADE
  58. 610 DEFAULT
  59. 620 REM ** BUILDING TOWER HEIGHT DATA **
  60. 630 DATA
  61. 640 DATA
  62. 650 DATA
  63. 660 DATA
  64. 670 DATA
  65. 680 DATA
  66. 690 DATA
  67. 70 REM * NEW ATARI USER MAGAZINE *
  68. 700 DATA
  69. 710 DATA
  70. 720 DATA
  71. 730 DATA
  72. 740 DATA
  73. 750 DATA
  74. 760 DATA
  75. 770 DATA
  76. 780 DATA
  77. 790 DATA
  78. 80 REM *                         *
  79. 800 DATA
  80. 90 REM ***************************
  81.