home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8611a.d64 / 3d.edit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  12KB  |  527 lines
  1. 0 REM"-[167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]
  2. 1 [143]"-THEN       3D - MASTER         FN
  3. 2 REM"-[167]     VON J.SCHWARZER       [165]
  4. 3 [143]"-THEN       HEIDEWEG 11         FN
  5. 4 REM"-[167]5020 FRECHEN 4 (BEI KOELN) [165]
  6. 5 [143]"- TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  7. 6 REM"- NOCH FRAGEN ?
  8. 7 [143]"-
  9. 8 REM"- TEL.: 02234/62542
  10. 9 [143]"-       TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  11. 10 :
  12. 100 SYS2^14+9:SYS2^14:POKE3,0:POKE4,0
  13. 110 POKE650,128:POKE53281,0
  14. 120 POKE56,64:CLR:LO=1:DW=45
  15. 130 V=53248:P=(null)/180
  16. 140 S=5:M=40:XM=160:YM=100:W=30
  17. 150 BA=2^14:L=BA+3:IN=BA+6:SE=BA+12:VP=BA+15:PL=BA+18:NR=BA+21
  18. 160 SQ=BA+24:LQ=BA+27:IP=BA+30:DP=BA+33
  19. 170 IL=BA+36:DL=BA+39:DR=BA+42
  20. 180 GOSUB10850
  21. 190 P1=20736:P2=20992
  22. 200 XS=19456:YS=19712:ZS=19968
  23. 210 POKE191,DW/4
  24. 220 DIMX(128),Y(128)
  25. 230 D=256:R=127:RI$=CHR$(13):W$=" ":H$="":C$="[147]
  26. 240 CU$[178]"
  27. 250 SS$="---------------------------------------
  28. 260 SP$[178]"                                       ":D$[178]"":U$[178]"ON":L$[178]"CMD":R$[178]"
  29. 270 PRINTC$:REM -----
  30. 280 POKE24568,111:POKEV+39,2
  31. 1000 REM MENUE
  32. 1010 GOSUB1240:Z=1:QS=81:QR=87:POKE53280,0:POKEV+21,0
  33. 1020 PRINT"[142]EINGABE-MENUE:
  34. 1030 [153]" 1 ........ EINGEBEN ALS 3D-ZEICHNUNG
  35. 1040 PRINTW$"2 [129]... EINGEBEN ALS KOORDINATENTRIPEL
  36. 1050 [153]W$"3 SYS... EINGEBEN VON ROTATIONSKOERPERN
  37. 1060 PRINTW$"4 ................ KOORDINATEN LADEN
  38. 1070 [153]W$"5 POKE............ KOORDINATEN SPEICHERN
  39. 1080 PRINTW$"6 ........................ DIRECTORY
  40. 1085 [153]W$"7 CONT........................... DREHEN
  41. 1090 PRINT"                                [164][164][164][164]
  42. 1100 [153]" 8 ............................. EXIT
  43. 1110 SYSBA+1646
  44. 1230 POKE198,0:ONPEEK(2)GOTO10000,20000,30000,50010,40010,50100,60020,60000
  45. 1240 POKEV+24,21:POKEV+17,27:POKE56576,3:RETURN
  46. 1250 POKEV+24,120:POKEV+17,59:POKE56576,2:RETURN
  47. 1260 POKE1146+Z*80,Q
  48. 1270 QC=PEEK(55420+Z*80)
  49. 1280 IFQ=QRTHENQC=1
  50. 1290 POKE55418+Z*80,QC:RETURN
  51. 1300 -----    
  52. 10000 POKEV+21,0:SYSBA:POKE56576,2:X=0:Y=0:Z=0
  53. 10010 GOSUB10820
  54. 10020 IFLOTHENLO=0:AP=0:AL=0:POKE3,0:POKE4,0:GOTO10140
  55. 10030 IF(APORAL)=0GOTO10140
  56. 10040 SYSNR:FORI=0TOAL-1
  57. 10050 X=PEEK(XS+PEEK(P1+I)):X=X+D*(X>R)
  58. 10060 Y=PEEK(YS+PEEK(P1+I)):Y=Y+D*(Y>R)
  59. 10070 Z=PEEK(ZS+PEEK(P1+I)):Z=Z+D*(Z>R)
  60. 10080 GOSUB10350:XA=XX:YA=YY
  61. 10090 X=PEEK(XS+PEEK(P2+I)):X=X+D*(X>R)
  62. 10100 Y=PEEK(YS+PEEK(P2+I)):Y=Y+D*(Y>R)
  63. 10110 Z=PEEK(ZS+PEEK(P2+I)):Z=Z+D*(Z>R)
  64. 10120 GOSUB10350:SYSL,XA,YA,XX,YY:NEXT
  65. 10130 SYSIN
  66. 10140 XA=160:YA=100:XB=XA:YB=YA:X=0:Y=0:Z=0
  67. 10150 GOSUB10850:POKEV+21,1
  68. 10160 GOSUB60050
  69. 10170 IFA$<>""GOTO10220
  70. 10180 GOSUB10320
  71. 10190 GOSUB60050
  72. 10200 GOSUB10320
  73. 10210 IFA$=""GOTO10160
  74. 10220 GOSUB10490
  75. 10230 XR=XA:YR=YA:XP=XB:YP=YB
  76. 10240 GOSUB10320:GOSUB10250:SYSL,XR,YR,XP,YP:ONMM+1GOTO10160,10000
  77. 10250 IFQ=1THENX1=X:Y1=Y:Z1=Z:GOSUB10340:XA=XX:YA=YY:GOSUB10850
  78. 10260 IFA$="*"THENGOSUB10410:GOSUB10340:GOSUB10850
  79. 10270 IFA$=RI$THENGOSUB10320:GOSUB10680:GOSUB10410:GOTO10290
  80. 10280 RETURN
  81. 10290 XL=X1:YL=Y1:ZL=Z1:X1=X2:Y1=Y2:Z1=Z2:X=X1:Y=Y1:Z=Z1:XA=XB:YA=YB:RETURN
  82. 10300 -----
  83. 10310 REM LINIE ZIEHEN
  84. 10320 SYSL,XA,YA,XB,YB:RETURN
  85. 10330 -----
  86. 10340 REM 3D NACH 2D KOORDINATEN
  87. 10350 YT=Y/1.6
  88. 10360 YY=YM-Z-YT*SI
  89. 10370 XX=XM+X+YT*CO
  90. 10380 RETURN
  91. 10390 -----
  92. 10400 REM 2.PUNKT SUCHEN
  93. 10410 XX=X1:YY=Y1:ZZ=Z1
  94. 10420 X1=X2:Y1=Y2:Z1=Z2
  95. 10430 X2=XX:Y2=YY:Z2=ZZ
  96. 10440 XX=XA:YY=YA:XA=XB
  97. 10450 YA=YB:XB=XX:YB=YY
  98. 10460 X=X1:Y=Y1:Z=Z1
  99. 10470 RETURN
  100. 10480 -----
  101. 10490 Q=0:MM=0
  102. 10500 IFA$="X"ORA$=R$THENX=X+S:Q=1:IFX>MTHENX=M
  103. 10510 IFA$="[216]"ORA$=L$THENX=X-S:Q=1:IFX<-MTHENX=-M
  104. 10520 IFA$="Y"THENY=Y+S:Q=1:IFY>MTHENY=M
  105. 10530 IFA$="[217]"THENY=Y-S:Q=1:IFY<-MTHENY=-M
  106. 10540 IFA$="Z"ORA$=U$THENZ=Z+S:Q=1:IFZ>MTHENZ=M
  107. 10550 IFA$="[218]"ORA$=D$THENZ=Z-S:Q=1:IFZ<-MTHENZ=-M
  108. 10560 IFA$=C$THENLO=1:GOTO10000
  109. 10570 IFA$=H$THENX=0:Y=0:Z=0:Q=1
  110. 10580 IFA$="+"THENIFDW<90-STHENDW=DW+S:POKE191,DW/4:MM=1:GOTO10820
  111. 10590 IFA$="-"THENIFDW>STHENDW=DW-S:POKE191,DW/4:MM=1:GOTO10820
  112. 10600 IFA$="K"GOTO10870
  113. 10610 IFA$="P"THENX1=X:Y1=Y:Z1=Z:XB=XA:YB=YA:X2=X:Y2=Y:Z2=Z
  114. 10620 IFA$="L"THENX=XL:Y=YL:Z=ZL:Q=1
  115. 10630 IFA$="A"THENGOSUB10950
  116. 10640 IFA$>"/"ANDA$<":"THENS=ASC(A$)-48:IFS=0THENS=10
  117. 10650 IFA$="_"ORA$="M"GOTO60030
  118. 10660 RETURN
  119. 10670 -----
  120. 10680 REM KOORDINATEN SPEICHERN
  121. 10690 IFAP=255ORAL=255THENRETURN
  122. 10700 X=X1:Y=Y1:Z=Z1:GOSUB10760
  123. 10710 PP=P
  124. 10720 X=X2:Y=Y2:Z=Z2:GOSUB10760
  125. 10730 SYSVP,PP,P
  126. 10740 AL=PEEK(4):RETURN
  127. 10750 -----
  128. 10760 SYSSE,X-256*(X<0),Y-256*(Y<0),Z-256*(Z<0)
  129. 10770 AP=PEEK(3):P=PEEK(782):RETURN
  130. 10780 -----
  131. 10790 POKEV+21,0
  132. 10800 POKE191,DW/4:SYSBA:SYSD3:POKE56576,2
  133. 10810 POKEV+21,1
  134. 10820 CO=COS(P*DW):SI=SIN(P*DW)
  135. 10830 RETURN
  136. 10840 -----
  137. 10850 POKEV,XA+1AND255:POKEV+1,YA+30:RETURN
  138. 10860 -----
  139. 10870 XD=X:YD=Y:ZD=Z
  140. 10880 X=-M:Y=0:Z=0:GOSUB10340:XQ=XX:YQ=YY
  141. 10890 X=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
  142. 10900 X=0:Y=-M:GOSUB10340:XQ=XX:YQ=YY
  143. 10910 Y=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
  144. 10920 Y=0:Z=-M:GOSUB10340:XQ=XX:YQ=YY
  145. 10930 Z=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
  146. 10940 X=XD:Y=YD:Z=ZD:RETURN
  147. 10950 PRINT"[147]KOORDINATEN ANZEIGEN:
  148. 10960 [153]"X="X
  149. 10970 [153]"Y="Y
  150. 10980 [153]"Z="Z
  151. 10990 [151]V[170]21,0:[141]1240
  152. 11000 [151]198,0:[146]198,1:[151]198,0
  153. 11010 [151]V[170]21,1:[137]1250
  154. 11020 [171][171][171][171][171]
  155. 20000 ZE[178]0:[141]1240:ZZ[178]1280
  156. 20010 [141]1240:ZZ[178]1280:[153]C$
  157. 20020 ZU[178]0:[139]AP[178]0[137]20050
  158. 20030 [139]AP[177]ZE[170]15[167]ZU[178]15:[137]20050
  159. 20040 ZU[178](AP[171]1)[175]15:[139]AP[178]0[167]ZU[178][171]1
  160. 20050 Y1[178]0
  161. 20060 [141]21120
  162. 20070 [129]I[178]ZE[164]ZE[170]ZU
  163. 20080 [141]21190
  164. 20090 [130]:X1[178]0:XA[178]0:Y1[178]ZU:[139]Q[178]5[167]Y1[178]T:[139]Y1[177]ZU[167]Y1[178]ZU
  165. 20100 [153]SS$
  166. 20110 :
  167. 20120 [141]60050
  168. 20130 [139]A$[179][177]""[137]20190
  169. 20140 [141]21080
  170. 20150 [141]60050
  171. 20160 [141]21080
  172. 20170 [139]A$[178]""[137]20120
  173. 20180 :
  174. 20190 [141]21080
  175. 20200 Q[178]0
  176. 20210 [141]20260
  177. 20220 [145]Q[137]20000,20120,20050,21280,20010
  178. 20230 [151]A,C
  179. 20240 [137]20120
  180. 20250 :
  181. 20260 [139]A$[178]D$[137]20870
  182. 20270 [139]A$[178]U$[137]20940
  183. 20280 [139]A$[178]R$[137]20980
  184. 20290 [139]A$[178]L$[137]21030
  185. 20300 [139]A$[178]C$[167]AP[178]0:[151]3,0:A$[178]H$:Q[178]1
  186. 20310 [139]A$[178]H$[167]X1[178]0:Y1[178]0
  187. 20320 [139]A$[178][199](148)[175]AP[179][177]255[167][158]IP,ZE[170]Y1:AP[178][194](3):Q[178]5:T[178]Y1:[142]
  188. 20330 [139]A$[178][199](20)[167][139]AP[179][177]0[167][158]DP,ZE[170]Y1:AP[178][194](3):Q[178]5:T[178]Y1:[139]AP[175]15[178]15[137]20543
  189. 20340 [139]A$[177][178]"0"[175]A$[179]":"[137]20680
  190. 20350 [139]A$[178]"+"[176]A$[178]" "[176]A$[178]"-"[137]20790
  191. 20360 [139]A$[178]"_"[176]A$[178]"M"[167][151]3,AP:[137]60030
  192. 20370 [139]A$[178]"LET"[167]Q[178]4:[151]3,AP:[142]
  193. 20380 [139]A$[179][177]RI$[167][142]
  194. 20390 :
  195. 20400 [143] RETURN TASTE
  196. 20410 X1[178]0:XA[178]0:[151]A,C
  197. 20420 [139]Y1[179]ZU[167]Y1[178]Y1[170]1:[142]
  198. 20430 [139]ZU[179][177]15[137]20500
  199. 20440 [139]ZE[179]240[167]ZE[178]ZE[170]16
  200. 20450 [153]"LOAD":Y1[178]0
  201. 20460 [139]ZE[178]AP[167]ZU[178]0:Q[178]3:AP[178]AP[170]1:[151]3,AP:[142]
  202. 20470 [139]AP[179]ZE[170]17[167]ZU[178]AP[171]1[175]15
  203. 20480 Q[178]3:[142]
  204. 20490 ;
  205. 20500 ZU[178]ZU[170]1:AP[178]AP[170]1:[151]3,AP:[139]AP[178]1[167]ZU[178]0:Q[178]3:[142]
  206. 20505 [141]21120
  207. 20510 I[178]AP[171]1:[153]D$SP$U$
  208. 20520 [141]21190
  209. 20530 Y1[178]Y1[170]1
  210. 20540 [153]SS$:Q[178]2:[142]
  211. 20541 [171][171][171][171][171]
  212. 20542 [143] DELETE POINT
  213. 20543 [139]ZU[178]0[167][139]ZE[177]15[175]AP[178]ZE[167]ZE[178]ZE[171]16:T[178]15
  214. 20544 [142]
  215. 20550 [171][171][171][171][171]
  216. 20560 [143] ZEILE UEBERNEHMEN
  217. 20570 Q[178]ZZ[170]Y1[172]40:X$[178]"":Y$[178]X$:Z$[178]X$
  218. 20580 [129]I[178]0[164]2
  219. 20590 X$[178]X$[170][199]([194](Q[171]1[170]I))
  220. 20600 Y$[178]Y$[170][199]([194](Q[170]7[170]I))
  221. 20610 Z$[178]Z$[170][199]([194](Q[170]15[170]I)):[130]
  222. 20620 Q[178]ZE[170]Y1
  223. 20630 X[178][197](X$):[151]XS[170]Q,X[171]D[172](X[179]0)
  224. 20640 Y[178][197](Y$):[151]YS[170]Q,Y[171]D[172](Y[179]0)
  225. 20650 Z[178][197](Z$):[151]ZS[170]Q,Z[171]D[172](Z[179]0)
  226. 20660 Q[178]0:[142]
  227. 20670 [171][171][171][171][171]
  228. 20680 [143] ZAHL EINGEBEN
  229. 20690 X2[178]ZZ[170]X1[170]Y1[172]40
  230. 20700 I[178]ZZ[170](X1[175]24)[170]Y1[172]40[171]1
  231. 20710 X$[178]"":[129]N[178]I[164]I[170]2
  232. 20720 T[178][194](N)[175]127:[139]N[178]X2[167]T[178][198](A$)
  233. 20730 X$[178]X$[170][199](T):[130]
  234. 20740 T[178][197](X$):[139][182](T)[177]M[167][142]
  235. 20750 C[178][198](A$):T[178]T[171]D[172](T[179]0)
  236. 20760 [151]XS[170]((X1[175]24)[173]8)[172]D[170]ZE[170]Y1,T
  237. 20770 [137]20990
  238. 20780 [171][171][171][171][171]
  239. 20790 [139]A$[178]"+"[167]A$[178]" "
  240. 20800 X2[178]ZZ[170](X1[175]24)[171]1[170]Y1[172]40
  241. 20810 [151]X2,[198](A$)
  242. 20820 X2[178]XS[170]((X1[175]24)[173]8)[172]D[170]ZE[170]Y1
  243. 20830 T[178][194](X2):T[178][171]T[171]D[172](T[177]R)
  244. 20840 T[178]T[171]D[172](T[179]0):[151]X2,T:[142]
  245. 20850 [171][171][171][171][171]
  246. 20860 [143] DOWN
  247. 20870 [139]Y1[179]ZU[167]Y1[178]Y1[170]1:Q[178]0:[142]
  248. 20880 [139]ZU[179][177]15[176]AP[179]ZE[170]17[167][142]
  249. 20890 [139]ZE[179]240[167]ZE[178]ZE[170]16
  250. 20900 ZU[178]15:[139]AP[179]ZE[170]16[167]ZU[178]AP[171]1[175]15
  251. 20910 Q[178]3:Y1[178]0:[153]C$:[142]
  252. 20920 [171][171][171][171][171]
  253. 20930 [143] UP
  254. 20940 [139]Y1[177]0[167]Y1[178]Y1[171]1:[142]
  255. 20950 [139]ZE[177]0[167]ZE[178]ZE[171]16:Q[178]3:ZU[178]15:[153]C$
  256. 20960 [142]
  257. 20970 [171][171][171][171][171]
  258. 20980 [143] RIGHT
  259. 20990 [139]X1[178]1[176]X1[178]9[167]XA[178]XA[170]1:X1[178]XA[172]8:[142]
  260. 21000 [139]X1[179]17[167]X1[178]X1[170]1
  261. 21010 [142]
  262. 21020 [171][171][171][171][171]
  263. 21030 [143] LEFT
  264. 21040 [139]X1[178]8[176]X1[178]16[167]XA[178]XA[171]1:X1[178]XA[172]8:[142]
  265. 21050 [139]X1[177]0[167]X1[178]X1[171]1
  266. 21060 [142]
  267. 21070 [171][171][171][171][171]
  268. 21080 A[178]ZZ[170]X1[170]Y1[172]40:C[178][194](A)
  269. 21090 [151]A,(C[176]128)[171](C[175]128)
  270. 21100 [142]
  271. 21110 [171][171][171][171][171]
  272. 21120 [153]"POKE
  273. 21130 PRINT"[203]OORDINATENTRIPEL EINGEBEN:
  274. 21140 [153]" ATNNZAHL DER (null)UNKTE:"AP
  275. 21150 [153]" ATNNZAHL DER (null)INIEN:"AL
  276. 21160 [153]D$SS$
  277. 21170 [153]U$[200](CU$,Y1):[142]
  278. 21180 [171][171][171][171][171]
  279. 21190 [143] INHALT DES PUNKTESPEICHERS
  280. 21200 [143] ANZEIGEN
  281. 21210 [153]"(null)R."I[170]1"CMD "[163]8)
  282. 21220 X[178][194](XS[170]I):X[178]X[170]D[172](X[177]R)
  283. 21230 Y[178][194](YS[170]I):Y[178]Y[170]D[172](Y[177]R)
  284. 21240 Z[178][194](ZS[170]I):Z[178]Z[170]D[172](Z[177]R)
  285. 21250 [153]"==>WAIT  X="X"CMD "[163]21)"Y="Y"CMD "[163]29)"Z="Z"CMD  "
  286. 21260 [142]
  287. 21270 [171][171][171][171][171]
  288. 21280 [151]3,AP:ZE[178]0
  289. 21290 ZU[178]15:[139]AL[179]ZE[170]16[167]ZU[178]AL[171]1[175]15
  290. 21300 [139]AL[178]0[167]ZU[178]0
  291. 21310 ZZ[178]1285
  292. 21320 Y1[178]0:X[178]0:[153]"LOADSYS":[141]21130
  293. 21330 [129]I[178]ZE[164]ZE[170]ZU
  294. 21340 [141]22140
  295. 21350 [130]:Y[178]ZU:[139]Q[178]2[167]Y[178]T:[139]Y[177]ZU[167]Y[178]ZU
  296. 21360 [153]SS$
  297. 21370 [141]60050
  298. 21380 [141]21520
  299. 21390 [139]A$[179][177]""[137]21450
  300. 21400 [141]60050
  301. 21410 [139]A$[179][177]""[137]21450
  302. 21420 [141]21520
  303. 21430 [137]21370
  304. 21440 :
  305. 21450 Q[178]0
  306. 21460 [141]21570
  307. 21470 [145]Q[137]21320,21290,20000
  308. 21480 [151]K,J
  309. 21490 [137]21370
  310. 21500 :
  311. 21510 [143] INVERTIEREN
  312. 21520 K[178]ZZ[170]X[170]Y[172]40
  313. 21530 J[178][194](K)
  314. 21540 [151]K,(J[176]128)[171](J[175]128)
  315. 21550 [142]
  316. 21560 :
  317. 21570 [139]A$[178]D$[137]21800
  318. 21580 [139]A$[178]U$[137]21860
  319. 21590 [139]A$[178]R$[137]21910
  320. 21600 [139]A$[178]L$[137]21960
  321. 21610 [139]A$[178]H$[137]21990
  322. 21611 [139]A$[178]C$[167]AL[178]0:[151]4,0:Q[178]2:[142]
  323. 21620 [139]A$[178][199](148)[175]AL[179][177]255[167][158]IL,ZE[170]Y:AL[178][194](4):Q[178]2:T[178]Y:[142]
  324. 21630 [139]A$[178][199](20)[175]AL[179][177]0[167][158]DL,ZE[170]Y:AL[178][194](4):Q[178]2:T[178]Y:[139]AL[175]15[178]15[167]21791
  325. 21640 [139]A$[178]"LET"[167]Q[178]3:[151]4,AL:[142]
  326. 21650 [139]A$[177]"/"[175]A$[179]":"[137]22010
  327. 21660 [139]A$[178]"M"[176]A$[178]"_"[167][151]4,AL:[137]60030
  328. 21670 [139]A$[179][177]RI$[167][142]
  329. 21680 :
  330. 21690 [151]K,J:X[178]0
  331. 21700 [139]Y[179]ZU[167]Y[178]Y[170]1:[142]
  332. 21710 AL[178]AL[170]1:[151]4,AL
  333. 21720 [139]ZU[178]15[137]21780
  334. 21730 ZU[178]ZU[170]1:Y1[178]ZU:[139]AL[178]1[167]ZU[178]0:Y1[178]0:[137]21750
  335. 21740 [153]U$SP$
  336. 21750 [141]21130
  337. 21760 I[178]AL[171]1:[141]22140:Y[178]ZU
  338. 21770 [153]SS$:[142]
  339. 21780 [139]ZE[179]240[167]ZE[178]ZE[170]16
  340. 21790 ZU[178]0:Q[178]1:[142]
  341. 21791 [143] DELETE LINE
  342. 21792 [139]ZU[178]0[167][139]ZE[177]15[175]AL[178]ZE[167]ZE[178]ZE[171]16:T[178]15
  343. 21793 [142]
  344. 21800 [143] DOWN
  345. 21810 [139]Y[179]ZU[167]Y[178]Y[170]1:[142]
  346. 21820 [139]ZU[179][177]15[176]AL[179]ZE[170]17[167][142]
  347. 21830 [139]ZE[179]240[167]ZE[178]ZE[170]16
  348. 21840 ZU[178]15:[139]AL[179]ZE[170]16[167]ZU[178]AL[171]1[175]15
  349. 21850 Q[178]1:[142]
  350. 21860 [143] UP
  351. 21870 [139]Y[177]0[167]Y[178]Y[171]1:[142]
  352. 21880 [139]ZE[178]0[167][142]
  353. 21890 ZU[178]15:[139]ZE[177]0[167]ZE[178]ZE[171]16
  354. 21900 Q[178]1:[142]
  355. 21910 [143] RIGHT
  356. 21920 [139]X[179]14[167]X[178]X[170]1:[139]X[178]3[167]X[178]12
  357. 21930 [139][194](ZZ[170]X[170]Y[172]40)[179][177]32[167][142]
  358. 21940 [139]X[177]12[167]X[178]X[171]1:[142]
  359. 21950 [137]21920
  360. 21960 [143] LEFT
  361. 21970 [139]X[177]0[167]X[178]X[171]1:[139]X[178]11[167]X[178]0
  362. 21980 [142]
  363. 21990 [143] HOME
  364. 22000 Y[178]0:X[178]0:[142]
  365. 22010 [143] ZAHL EINGEBEN
  366. 22020 Z[178]ZZ[170]Y[172]40:[139]X[177]11[167]Z[178]Z[170]12
  367. 22030 X$[178]"":[129]I[178]Z[164]Z[170]2
  368. 22040 X$[178]X$[170][199]([194](I)[175]127):[130]
  369. 22050 Z[178]X[170]1:[139]X[177]11[167]Z[178]Z[171]12
  370. 22060 X$[178][200](X$,Z[171]1)[170]A$[170][202](X$,Z[170]1)
  371. 22070 Z[178][197](X$):[139]Z[177]AP[176]Z[178]0[167][142]
  372. 22080 QQ[178]P1[170]ZE[170]Y:[139]X[177]11[167]QQ[178]QQ[170]D
  373. 22090 [151]QQ,Z[171]1
  374. 22100 J[178][198](A$):[139]X[178]14[167][142]
  375. 22110 [139]X[178]2[167]X[178]12:[142]
  376. 22120 X[178]X[170]1:[142]
  377. 22130 [171][171][171][171][171]
  378. 22140 [153]"(null)R.:"I[170]1[163]9)"==>";
  379. 22150 PA[178][194](P1[170]I)[170]1:[139]PA[177]AP[167]PA[178]1:[151]P1[170]I,1
  380. 22160 PB[178][194](P2[170]I)[170]1:[139]PB[177]AP[167]PB[178]1:[151]P2[170]I,1
  381. 22170 [153]" VON (null)R."PA"CMD  "[163]25)"BIS (null)R."PB"CMD   "
  382. 22180 [142]
  383. 22190 [171][171][171][171][171]
  384. 30000 G$[178]"(null)OTATIONSKOERPER:"
  385. 30010 [153]"LOAD"G$
  386. 30020 A$[178]"N":[133]"ATNLTE (null)OORDINATEN LOESCHEN ? NCMDCMDCMD";A$:[139]A$[178]"N"[137]30040
  387. 30030 [151]3,0:[151]4,0:AP[178]0:AL[178]0
  388. 30040 [151]V[170]21,0:[158]BA:[151]56576,2:ZA[178]0:LO[178]0
  389. 30050 X[178]0:Y[178]0:X1[178]X:Y1[178]Y
  390. 30060 XA[178]XM[171]M[172]2:YA[178]YM[170]M[173]2:YB[178]YA
  391. 30070 [129]I[178]0[164]4[172]M[169]4
  392. 30080 H[178]6:[139]I[173]5[178][181](I[173]5)[167]H[178]12
  393. 30090 [158]L,XA[170]I,YA[170]1,XA[170]I,YA[170]H:[130]
  394. 30100 XA[178]XM:XB[178]XA:[141]10850:[151]V[170]21,1
  395. 30110 [129]I[178]XM[171]M[172]2[164]XM[170]M[172]2[169]10
  396. 30120 [129]J[178]YA[171]M[172]2[164]YA[169]10
  397. 30130 [158]PL,I,J:[130]J,I
  398. 30140 [141]60050
  399. 30150 [139]A$[179][177]""[137]30210
  400. 30160 [141]10320
  401. 30170 [141]60050
  402. 30180 [141]10320
  403. 30190 [139]A$[178]""[137]30140
  404. 30200 :
  405. 30210 XR[178]XA:YR[178]YA:XP[178]XB:YP[178]YB:Q[178]4
  406. 30220 [141]10320
  407. 30230 [141]30280
  408. 30240 [158]L,XR,YR,XP,YP
  409. 30250 [139]Q[178]1[167][141]30470:XA[178]XX:YA[178]YY:[141]10850:Q[178]4
  410. 30260 [145]Q[171]1[137]30040,30490,30140
  411. 30270 [151]53280,1:[144]
  412. 30280 [139]A$[178]"X"[176]A$[178]R$[167]X[178]X[170]S:Q[178]1:[139]X[177]M[167]X[178]M
  413. 30290 [139]A$[178]"(null)"[176]A$[178]L$[167]X[178]X[171]S:Q[178]1:[139]X[179][171]M[167]X[178][171]M
  414. 30300 [139]A$[178]"Y"[176]A$[178]U$[167]Y[178]Y[170]S:Q[178]1:[139]Y[177]M[167]Y[178]M
  415. 30310 [139]A$[178]"(null)"[176]A$[178]D$[167]Y[178]Y[171]S:Q[178]1:[139]Y[179]0[167]Y[178]0
  416. 30320 [139]A$[178]"L"[167]X[178]X2:Y[178]Y2:Q[178]1
  417. 30330 [139]A$[178]"P"[167]X1[178]X:Y1[178]Y:XB[178]XA:YB[178]YA
  418. 30340 [139]A$[178]C$[167]Q[178]2
  419. 30350 [139]A$[178]H$[167]X[178]0:Y[178]0:Q[178]1
  420. 30360 [139]A$[178]"*"[137]30450
  421. 30370 [139]A$[178]" "[167]Q[178]3:S[178]5:[142]
  422. 30380 [139]A$[178]"M"[176]A$[178]"_"[137]60030
  423. 30390 [139]A$[177]"/"[175]A$[179]":"[167]S[178][198](A$)[171]48:[139]S[178]0[167]S[178]10
  424. 30400 [139]A$[179][177]RI$[167][142]
  425. 30410 :
  426. 30420 X(ZA)[178]X1:Y(ZA)[178]Y1:ZA[178]ZA[170]1:X(ZA)[178]X:Y(ZA)[178]Y:ZA[178]ZA[170]1:X2[178]X1:Y2[178]Y1
  427. 30430 X1[178]X:Y1[178]Y:[141]30470:[141]10320:XB[178]XX:YB[178]YY:[142]
  428. 30440 :
  429. 30450 Q[178]1:XX[178]X:YY[178]Y:X[178]X1:Y[178]Y1:X1[178]XX:Y1[178]YY:XB[178]XA:YB[178]YA:[142]
  430. 30460 :
  431. 30470 XX[178]XM[170]X[172]2:YY[178]YM[170]M[173]2[171]Y[172]2:[142]
  432. 30480 :
  433. 30490 [141]1240
  434. 30500 [153]"LOAD":[151]V[170]21,0
  435. 30510 [153]G$:[151]19,64
  436. 30520 [133]"VON 0 CHR$RAD - 360 CHR$RAD  CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";GR$:GR[178][181]([182]([197](GR$)))
  437. 30530 [153]:[139]GR[177]360[137]30500
  438. 30540 [151]19,0
  439. 30550 [133]"ATNNZAHL DER ASCACETTEN:";AN
  440. 30560 [139]AN[179]3[167][153]"ONON";:[137]30550
  441. 30570 [133]"ATNLLES OK.";A$
  442. 30580 [139]A$[179][177]"N"[137]30630
  443. 30590 [133]"(null)EU ZEICHNEN";A$
  444. 30600 [139]A$[178]"J"[137]30000
  445. 30610 [137]30500
  446. 30620 :
  447. 30630 AP[178][194](3):AL[178][194](4):N[178]AL
  448. 30640 A$[178]"ATNNZAHL DER ASCACETTEN ZU GROSS !!"
  449. 30650 [153]"1. ASCACETTEN
  450. 30660 FORI=0TO(GR-1)*PSTEP(GR/AN)*P
  451. 30670 FORJ=0TOZA-1STEP2:PRINTN-AL+1"[145]"
  452. 30680 FORK=0TO1:T=K+J
  453. 30690 X=X(T)-D*(X(T)<0)
  454. 30700 Y=INT(Y(T)*COS(I)):Y=Y-D*(Y<0)
  455. 30710 Z=INT(Y(T)*SIN(I)):Z=Z-D*(Z<0)
  456. 30720 SYSSE,X,Y,Z
  457. 30730 POKEP1+N+K*D,PEEK(782)
  458. 30740 NEXTK:N=N+1:NEXTJ:IFI=0THENF=N-AL
  459. 30750 NEXTI
  460. 30760 :
  461. 30770 IFN>255THENPRINTA$:POKE3,AP:POKE4,AL:GOTO30510
  462. 30780 :
  463. 30790 POKE4,N:AP=PEEK(3):PRINT"[145][145]"
  464. 30800 :
  465. 30810 T=N-F-1-AL
  466. 30820 PRINT"2. [214]ERBINDUNGEN 1
  467. 30830 [129]I[178]AL[164]T[170]AL[169]F
  468. 30840 [129]J[178]0[164]F[171]1
  469. 30850 PA[178][194](P1[170]I[170]J):PB[178][194](P1[170]I[170]J[170]F)
  470. 30860 [139]PA[178]PB[137]30880
  471. 30870 [158]VP,PA,PB:[139][194](4)[178]255[167]N[178]256:[137]30770
  472. 30880 [130]J,I
  473. 30890 [139]GR[179][177]360[137]30950
  474. 30900 [129]K[178]0[164]F[171]1
  475. 30910 PA[178][194](P1[170]I[170]K):PB[178][194](P1[170]K[170]AL)
  476. 30920 [139]PA[178]PB[137]30940
  477. 30930 [158]VP,PA,PB:[139][194](4)[178]255[167]N[178]256:[137]30770
  478. 30940 [130]K
  479. 30950 [153]"3. (null)ERBINDUNGEN 2
  480. 30960 FORI=ALTOT+ALSTEPF
  481. 30970 FORJ=0TOF-1
  482. 30980 PA=PEEK(P2+I+J):PB=PEEK(P2+I+J+F)
  483. 30990 IFPA=PBGOTO31010
  484. 31000 SYSVP,PA,PB:IFPEEK(4)=255THENN=256:GOTO30770
  485. 31010 NEXTJ,I
  486. 31020 IFGR<>360GOTO60030
  487. 31030 FORK=0TOF-1
  488. 31040 PA=PEEK(P2+I+K):PB=PEEK(P2+K+AL)
  489. 31050 IFPA=PBGOTO31070
  490. 31060 SYSVP,PA,PB:IFPEEK(4)=255THENN=256:GOTO30770
  491. 31070 NEXTK
  492. 31080 :
  493. 31090 GOTO60030
  494. 40000 -SPEICHERN-
  495. 40010 GOSUB50040
  496. 40020 OPEN1,8,1,B$
  497. 40030 PRINT#1,CHR$(PEEK(3));
  498. 40040 PRINT#1,CHR$(PEEK(4));
  499. 40050 FORI=0TOPEEK(3)-1
  500. 40060 PRINT#1,CHR$(PEEK(XS+I));
  501. 40070 PRINT#1,CHR$(PEEK(YS+I));
  502. 40080 PRINT#1,CHR$(PEEK(ZS+I));
  503. 40090 NEXT
  504. 40100 FORI=0TOPEEK(4)-1
  505. 40110 PRINT#1,CHR$(PEEK(P1+I));
  506. 40120 PRINT#1,CHR$(PEEK(P2+I));
  507. 40130 NEXT
  508. 40140 CLOSE1:GOTO60030
  509. 50000 -LADEN-
  510. 50010 IFPEEK(1023)=0THENSYSBA:GOSUB1240
  511. 50015 GOSUB50040:LO=0
  512. 50020 SYSLQ,1,8,0,B$:CLOSE1:GOTO60030
  513. 50030 -FILENAME-
  514. 50040 B$="":INPUT"FILENAME";B$:IFB$="_"ORB$="M"ORB$=""GOTO60030
  515. 50050 B$=LEFT$(B$,13)+".3D,S":RETURN
  516. 50060 -DIRECTORY-
  517. 50100 PRINT:SYSBA+1649
  518. 50110 WAIT198,1:POKE198,0:GOTO60030
  519. 59999 -EXIT-
  520. 60000 END
  521. 60010 -----
  522. 60020 IF(APORAL)<>0THENPRINTC$:SYSBA:SYSDR
  523. 60030 POKEV+21,0:POKE198,0:CLR:AP=PEEK(3):AL=PEEK(4):DW=PEEK(191)*4:GOTO130
  524. 60040 -----
  525. 60050 FORI=0TOW:GETA$:IFA$=""THENNEXT
  526. 60060 RETURN
  527.