home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 March / Ahoy_Magazine_88-03_1988_Double_L.d64 / 3-d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  208 lines
  1. 10 dimxe(300),ye(300),c%(300)
  2. 12 fort=54272to54296:poket,.:next
  3. 15 poke54296,2:poke54277,8:poke54278,240
  4. 17 poke54276,33
  5. 20 sys50448:u=50630:q=1:w=2
  6. 40 poke53280,14:poke53281,14:poke646,6
  7. 50 print"[147]     [215][197][204][195][207][205][197] [212][207]"
  8. 60 print"[144]              3-[196]
  9. 70 [153]"                chr$raphic"
  10. 75 [153]"                   (NULL)rojector"
  11. 77 [153]"                     peeky: valric ascortier"
  12. 78 [153]"                     on: (NULL)ct 26 1987"
  13. 79 [153]"           left$it a key to start."
  14. 80 v$[178]""
  15. 90 [151]198,0:[146]198,1
  16. 100 [151]198,0:ba[178]16384:[133]"load(NULL)ocation for data:";ba:nm[178]ba
  17. 110 [153]"load                                        ";
  18. 120 [153]"               (NULL)ain (NULL)enu                ";
  19. 130 [153]"                                        "
  20. 140 [153]"lenhoose:"
  21. 150 [153]"   1. (NULL)ake a new picture"
  22. 160 [153]"   2. valdit picture in memory"
  23. 170 [153]"   3. (NULL)iew picture in memory"
  24. 180 [153]"   4. (NULL)oad a picture"
  25. 190 [153]"   5. (NULL)ave a picture"
  26. 200 [153]"   6. (NULL)uit":[153]"stop(NULL)our choice:";
  27. 210 [161]c$:[139]c$[178]""[167]210
  28. 220 [139]c$[179]"1"[176]c$[177]"6"[167]210
  29. 230 [145][197](c$)[141]690,1130,250,580,1820,570
  30. 240 [137]110
  31. 250 [153]" (NULL)iew a picture.":[129]t[178]1[164]400:[130]
  32. 260 [153]"load"
  33. 270 [153]"(NULL)ress: <len(NULL)> for (NULL)rojection"
  34. 280 [153]"       <(NULL)>  for (NULL)ain (NULL)enu.":[153]"(NULL)our lenhoice:";
  35. 290 [161]a$:[139]a$[178]""[167]290
  36. 300 [139]a$[178]"m"[167][153]" (NULL)ain (NULL)enu.":[129]t[178]1[164]300:[130]:[142]
  37. 310 [139]a$[178][199](13)[167][153]" (NULL)rojection.":[129]t[178]1[164]400:[130]:[137]330
  38. 320 [137]290
  39. 330 [153]"load                                        ";
  40. 331 [153]"               (NULL)rojection               ";
  41. 332 [153]"                                        "
  42. 339 e[178]0:[133]"right$nput (NULL) extention:";e:e[178]e[170]180
  43. 340 f[178]0:[133]"right$nput (NULL) extention:";f:f[178]f[170]180
  44. 350 tx[178]160
  45. 360 ty[178]100
  46. 370 rh[178]180:[133] "right$nput (NULL)left$(NULL) value:";rh
  47. 380 th[178]0:[133] "right$nput (NULL)left$val(NULL)atn in degrees:";th:th[178][171]th
  48. 390 ph[178]0:[133] "right$nput (NULL)left$right$ in degrees:";ph:ph[178][171]ph
  49. 400 [153]"(NULL)caling picture, (NULL)lease stand by.":[129]t[178]1[164]700:[130]:[151]53265,11
  50. 405 [151]54272,30
  51. 410 k0[178].0174532925:th[178]th[172]k0:ph[178]ph[172]k0:cy[178]199
  52. 420 s1[178][191](th):c1[178][190](th):s2[178][191](ph):c2[178][190](ph)
  53. 430 s3[178]c1[172]s2:s4[178]s1[172]s2:s5[178]c1[172]c2:s6[178]s1[172]c2
  54. 440 w1[178]1e20:w3[178]w1
  55. 450 ba[178]nm:o[178]0
  56. 460 y[178][194](ba[170]q):[139][194](ba)[167]y[178][171]y
  57. 470 z[178][194](ba[170]3):[139][194](ba[170]2)[167]z[178][171]z
  58. 480 x[178][194](ba[170]5):[139][194](ba[170]4)[167]x[178][171]x
  59. 490 c%(o)[178][194](ba[170]6):ba[178]ba[170]7
  60. 500 xo[178][171]x[172]s1[170]y[172]c1:yo[178][171]x[172]s3[171]y[172]s4[170]z[172]c2:zo[178][171]x[172]s5[171]y[172]s6[170]rh
  61. 510 xe(o)[178]e[172]xo[173]zo[170]tx:ye(o)[178]ty[171]f[172]yo[173]zo
  62. 520 o[178]o[170]q:[139][194](ba)[179]w[167]460
  63. 525 [151]54272,0
  64. 530 o[178]o[171]q:[151]53280,0:[158]50977:[129]t[178]0[164]o:[139]c%(t)[178]q[167][158]u,x1,y1,xe(t),ye(t)
  65. 540 x1[178]xe(t):y1[178]ye(t):[130]
  66. 550 [161]a$:[139]a$[178]""[167]550
  67. 560 [158]50448:[151]53280,14:[137]260
  68. 570 [151]49999,0:[158]49999
  69. 580 [153]" (NULL)oad a file.":[129]t[178]1[164]400:[130]
  70. 590 [153]"load                                        ";
  71. 600 [153]"              (NULL)oad a file               ";
  72. 610 [153]"                                        ":ba[178]nm
  73. 620 [133] "str$esired file:";n$
  74. 622 [139]n$[178]""[167][142]
  75. 623 [159]15,8,0,n$[170]".3d,s,r"
  76. 625 [153]"(NULL)oading..."
  77. 640 [161]#15,a$,b$,c$:a[178][198](a$[170][199](0)):b[178][198](b$[170][199](0)):c[178][198](c$[170][199](0))
  78. 650 [151]ba,a:ba[178]ba[170]1:[151]ba,b:ba[178]ba[170]1:[151]ba,c:ba[178]ba[170]1:[139]st[178]0[167]640
  79. 660 [160]15:[151]54272,0:[153]"ascile (NULL)oaded."
  80. 670 [129]t[178]1[164]700:[161]a$:[139]a$[178]""[167][130]
  81. 680 [142]
  82. 690 [153]" (NULL)ake a picture.":[129]t[178]1[164]400:[130]
  83. 700 [153]"load                                        ";
  84. 710 [153]"           (NULL)ake a new picture           ";
  85. 720 [153]"                                        "
  86. 730 [153]"(NULL)ress:  <(NULL)> to make a new picture,"
  87. 740 [153]"        <(NULL)> to return to menu."
  88. 750 [153]"lenhoice:";
  89. 760 [161]a$:[139]a$[178]""[167]760
  90. 770 [139]a$[178]"r"[167][153]" (NULL)eturn to menu.":[129]t[178]1[164]400:[130]:[137]110
  91. 780 [139]a$[179][177]"m"[167]760
  92. 790 [153]" (NULL)ake a picture!":[129]t[178]1[164]400:[130]:o[178]0
  93. 800 ba[178]nm[170](o[171]1)[172]7
  94. 810 [153]"load(NULL)ast data:";:[139]o[178]0[167][153]" (NULL)one.":[153]:[137]950
  95. 820 [153]" (NULL)et #"o
  96. 830 x[178][194](ba[170]1)
  97. 840 [139][194](ba)[178]1[167]x[178][171]x
  98. 850 ba[178]ba[170]2
  99. 860 y[178][194](ba[170]1):[139][194](ba)[178]1[167]y[178][171]y
  100. 870 ba[178]ba[170]2
  101. 880 z[178][194](ba[170]1):[139][194](ba)[178]1[167]z[178][171]z
  102. 890 ba[178]ba[170]2
  103. 900 c[178][194](ba):ba[178]ba[170]1
  104. 910 [153]:[153]"  (NULL)="x
  105. 920 [153]"  (NULL)="y
  106. 930 [153]"  (NULL)="z
  107. 940 [153]"  len="c
  108. 950 [153]"(NULL)et #"o[170]1
  109. 960 x[178]999:[133]"valnter str$ata ((NULL),(NULL),(NULL),len)";x,y,z,c:[139]x[178]999[167]ba[178]nm[170]o[172]7:[137]1070
  110. 970 ba[178]nm[170]o[172]7
  111. 980 [139]x[179]0[167][151]ba,1:[151]ba[170]1,[171]x:[137]1000
  112. 990 [151]ba,.:[151]ba[170]1,x
  113. 1000 ba[178]ba[170]2
  114. 1010 [139]y[179]0[167][151]ba,1:[151]ba[170]1,[171]y:[137]1030
  115. 1020 [151]ba,.:[151]ba[170]1,y
  116. 1030 ba[178]ba[170]2
  117. 1040 [139]z[179]0[167][151]ba,1:[151]ba[170]1,[171]z:[137]1060
  118. 1050 [151]ba,.:[151]ba[170]1,z
  119. 1060 ba[178]ba[170]2:[151]ba,c:o[178]o[170]1:[137]800
  120. 1070 [139]o[178]0[167][153]"(NULL)o picture constructed.":[129]t[178]1[164]300:[130]:[142]
  121. 1080 [151]ba,255:[151]ba[170]1,255
  122. 1090 [153]"(NULL)icture ascinished: "o" sets of data."
  123. 1100 [129]t[178]1[164]1000:[161]a$:[139]a$[178]""[167][130]
  124. 1110 [142]
  125. 1120 [128]
  126. 1130 [153]" valdit a picture.":[129]t[178]1[164]400:[130]
  127. 1140 [153]"load                                        ";
  128. 1150 [153]"        valdit a current picture          ";
  129. 1160 [153]"                                        "
  130. 1170 [153]:[153]"str$o you want the str$ata (NULL)ist? ((NULL)/(NULL)) ";
  131. 1180 [161]a$:[139]a$[178]""[167]1180
  132. 1190 [139]a$[178]"n"[167][153]"(NULL)o.":[129]t[178]1[164]200:[130]:[137]1370
  133. 1200 [139]a$[179][177]"y"[167]1180
  134. 1210 [153]"(NULL)es.":[129]t[178]1[164]400:[161]a$:[139]a$[178]""[167][130]
  135. 1220 ba[178]nm:o[178]1:[153]"load";:u$[178]""
  136. 1230 x[178][194](ba[170]1):[139][194](ba)[178]255[175][194](ba[170]1)[178]255[167]1360
  137. 1240 [139][194](ba)[178]1[167]x[178][171]x
  138. 1250 ba[178]ba[170]2:x$[178][201]("  "[170][196](x),3)
  139. 1260 y[178][194](ba[170]1):[139][194](ba)[178]1[167]y[178][171]y
  140. 1270 ba[178]ba[170]2:y$[178][201]("  "[170][196](y),3)
  141. 1280 z[178][194](ba[170]1):[139][194](ba)[178]1[167]z[178][171]z
  142. 1290 ba[178]ba[170]2:z$[178][201]("  "[170][196](z),3)
  143. 1300 c[178][194](ba):ba[178]ba[170]1:o$[178][201]("  "[170][196](o),3):sc[178]sc[170]1
  144. 1310 [161]a$:[139]a$[178]"s"[167]1360
  145. 1320 [139]sc[178]24[167]u$[178]v$:[153]"";
  146. 1330 [139]sc[178]47[167]u$[178]"":[153]""v$"cmdcmdcmdcmdcmdleft$right$(NULL) atn (NULL)val(NULL)":[151]198,0:[146]198,1:[153]"load";
  147. 1340 [139]sc[178]47[167]sc[178]1
  148. 1350 [153]:[153]u$o$")";x$","y$","z$","c;:o[178]o[170]1:[137]1230
  149. 1360 [153]"               left$right$(NULL) atn (NULL)val(NULL)                ":[151]198,0:[146]198,1
  150. 1370 [153]"load";
  151. 1380 sc[178]0:[153]"str$o you wish to:":[153]
  152. 1390 [153]"    1. lenontinue to enter data"
  153. 1400 [153]"    2. lenontinue from a specified set"
  154. 1410 [153]"    3. valdit single data set"
  155. 1420 [153]"    4. (NULL)uit to (NULL)ain (NULL)enu"
  156. 1430 [153]"(NULL)our lenhoice:";:
  157. 1440 [161]a$:[139]a$[178]""[167]1440
  158. 1450 [139]a$[178]"1"[167][153]" 1.":[129]t[178]1[164]300:[130]:[137]1790
  159. 1460 [139]a$[178]"3"[167][153]" 3.":[129]t[178]1[164]300:[130]:[137]1500
  160. 1470 [139]a$[178]"4"[167][153]" (NULL)ain menu.":[129]t[178]1[164]300:[130]:[142]
  161. 1480 [139]a$[178]"2"[167][153]:[133] "which set";o:o[178]o[171]1:[137]800
  162. 1490 [137]1440
  163. 1500 [133]"load(NULL)hich set of data:";n
  164. 1510 se[178](n[171]1)[172]7:ba[178]nm[170]se
  165. 1520 x[178][194](ba[170]1):ba[178]ba[170]2:[139][194](ba[171]2)[178]1[167]x[178][171]x
  166. 1530 y[178][194](ba[170]1):ba[178]ba[170]2:[139][194](ba[171]2)[178]1[167]y[178][171]y
  167. 1540 z[178][194](ba[170]1):ba[178]ba[170]2:[139][194](ba[171]2)[178]1[167]z[178][171]z
  168. 1550 c[178][194](ba)
  169. 1560 [153]"loadstr$ata set #"n
  170. 1570 [153]" (NULL)="x
  171. 1580 [153]" y="y
  172. 1590 [153]" z="z
  173. 1600 [139]c[178]0[167][153]" peekeginning of line (0).":[137]1620
  174. 1610 [153]" (NULL)his is a line (1)."
  175. 1620 c$[178]"":[153]"lenhange or (NULL)eave (len/(NULL)):";
  176. 1630 [161]a$:[139]a$[178]""[167]1630
  177. 1640 [139]a$[178]"l"[167][153]" leave.":[129]t[178]1[164]300:[130]:[137]1680
  178. 1650 [139]a$[179][177]"c"[167]1630
  179. 1660 [153]" change."
  180. 1670 [133]"valnter new values ((NULL),(NULL),(NULL),len):";x,y,z,c:[137]1560
  181. 1680 ba[178]nm[170]se
  182. 1690 [139]x[179]0[167][151]ba,1:[151]ba[170]1,[171]x:[137]1710
  183. 1700 [151]ba,.:[151]ba[170]1,x
  184. 1710 ba[178]ba[170]2
  185. 1720 [139]y[179]0[167][151]ba,1:[151]ba[170]1,[171]y:[137]1740
  186. 1730 [151]ba,.:[151]ba[170]1,y
  187. 1740 ba[178]ba[170]2
  188. 1750 [139]z[179]0[167][151]ba,1:[151]ba[170]1,[171]z:[137]1770
  189. 1760 [151]ba,.:[151]ba[170]1,z:[153]"load";
  190. 1770 [139]a$[179][177]"l"[167][137]1560
  191. 1780 ba[178]ba[170]2:[151]ba,c:[137]1370
  192. 1790 ba[178]nm:o[178]1:[153]"(NULL)ow, where were we..."
  193. 1800 [139][194](ba)[179][177]255[175][194](ba[170]1)[179][177]255[167]ba[178]ba[170]1:o[178]o[170]1:[137]1800
  194. 1810 o[178]o[173]7:[137]800
  195. 1820 [153]" (NULL)ave a file.":[129]t[178]1[164]400:[130]
  196. 1830 [153]"load                                        ";
  197. 1840 [153]"             (NULL)ave a file                ";
  198. 1850 [153]"                                        "
  199. 1860 [133] "str$esired filename:";n$
  200. 1865 [153]"(NULL)aving..."
  201. 1870 [151]54272,35:[159]15,8,1,n$[170]".3d,s,w"
  202. 1880 ba[178]nm
  203. 1890 [139][194](ba)[178]255[167]1910
  204. 1900 [152]15,[199]([194](ba));:ba[178]ba[170]1:[137]1890
  205. 1910 [152]15,[199](255)[199](255):[160]15:[153]"ascile saved.":[151]54272,0
  206. 1915 [129]t[178]1[164]500:[161]a$:[139]a$[178]""[167][130]
  207. 1918 [142]
  208.