home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh45b.d64
/
3d.edit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
11KB
|
521 lines
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]
1 [143]"-THEN 3D - MASTER FN
2 REM"-[167] VON J.SCHWARZER [165]
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(
10 :
100 SYS2^14+9:SYS2^14:POKE3,0:POKE4,0
110 POKE650,128:POKE53281,0
120 POKE56,64:CLR:LO=1:DW=45
130 V=53248:P=(null)/180
140 S=5:M=40:XM=160:YM=100:W=30
150 BA=2^14:L=BA+3:IN=BA+6:SE=BA+12:VP=BA+15:PL=BA+18:NR=BA+21
160 SQ=BA+24:LQ=BA+27:IP=BA+30:DP=BA+33
170 IL=BA+36:DL=BA+39:DR=BA+42
180 GOSUB10850
190 P1=20736:P2=20992
200 XS=19456:YS=19712:ZS=19968
210 POKE191,DW/4
220 DIMX(128),Y(128)
230 D=256:R=127:RI$=CHR$(13):W$=" ":H$="":C$="[147]
240 CU$[178]"
250 SS$="---------------------------------------
260 SP$[178]" ":D$[178]"":U$[178]"ON":L$[178]"CMD":R$[178]"
270 PRINTC$:REM -----
280 POKE24568,111:POKEV+39,2
1000 REM MENUE
1010 GOSUB1240:Z=1:QS=81:QR=87:POKE53280,0:POKEV+21,0
1020 PRINT "EINGABE-MENUE:
1030 [153]" 1 ........ EINGEBEN ALS 3D-ZEICHNUNG
1040 PRINTW$"2 [129]... EINGEBEN ALS KOORDINATENTRIPEL
1050 [153]W$"3 SYS... EINGEBEN VON ROTATIONSKOERPERN
1060 PRINTW$"4 ................ KOORDINATEN LADEN
1070 [153]W$"5 POKE............ KOORDINATEN SPEICHERN
1080 PRINTW$"6 ........................ DIRECTORY
1085 [153]W$"7 CONT........................... DREHEN
1090 PRINT" [164][164][164][164]
1100 [153]" 8 ............................. EXIT
1110 SYSBA+1646
1230 POKE198,0:ONPEEK(2)GOTO10000,20000,30000,50010,40010,50100,60020,60000
1240 POKEV+24,21:POKEV+17,27:POKE56576,3:RETURN
1250 POKEV+24,120:POKEV+17,59:POKE56576,2:RETURN
1260 POKE1146+Z*80,Q
1270 QC=PEEK(55420+Z*80)
1280 IFQ=QRTHENQC=1
1290 POKE55418+Z*80,QC:RETURN
1300 -----
10000 POKEV+21,0:SYSBA:POKE56576,2:X=0:Y=0:Z=0
10010 GOSUB10820
10020 IFLOTHENLO=0:AP=0:AL=0:POKE3,0:POKE4,0:GOTO10140
10030 IF(APORAL)=0GOTO10140
10040 SYSNR:FORI=0TOAL-1
10050 X=PEEK(XS+PEEK(P1+I)):X=X+D*(X>R)
10060 Y=PEEK(YS+PEEK(P1+I)):Y=Y+D*(Y>R)
10070 Z=PEEK(ZS+PEEK(P1+I)):Z=Z+D*(Z>R)
10080 GOSUB10350:XA=XX:YA=YY
10090 X=PEEK(XS+PEEK(P2+I)):X=X+D*(X>R)
10100 Y=PEEK(YS+PEEK(P2+I)):Y=Y+D*(Y>R)
10110 Z=PEEK(ZS+PEEK(P2+I)):Z=Z+D*(Z>R)
10120 GOSUB10350:SYSL,XA,YA,XX,YY:NEXT
10130 SYSIN
10140 XA=160:YA=100:XB=XA:YB=YA:X=0:Y=0:Z=0
10150 GOSUB10850:POKEV+21,1
10160 GOSUB60050
10170 IFA$<>""GOTO10220
10180 GOSUB10320
10190 GOSUB60050
10200 GOSUB10320
10210 IFA$=""GOTO10160
10220 GOSUB10490
10230 XR=XA:YR=YA:XP=XB:YP=YB
10240 GOSUB10320:GOSUB10250:SYSL,XR,YR,XP,YP:ONMM+1GOTO10160,10000
10250 IFQ=1THENX1=X:Y1=Y:Z1=Z:GOSUB10340:XA=XX:YA=YY:GOSUB10850
10260 IFA$="*"THENGOSUB10410:GOSUB10340:GOSUB10850
10270 IFA$=RI$THENGOSUB10320:GOSUB10680:GOSUB10410:GOTO10290
10280 RETURN
10290 XL=X1:YL=Y1:ZL=Z1:X1=X2:Y1=Y2:Z1=Z2:X=X1:Y=Y1:Z=Z1:XA=XB:YA=YB:RETURN
10300 -----
10310 REM LINIE ZIEHEN
10320 SYSL,XA,YA,XB,YB:RETURN
10330 -----
10340 REM 3D NACH 2D KOORDINATEN
10350 YT=Y/1.6
10360 YY=YM-Z-YT*SI
10370 XX=XM+X+YT*CO
10380 RETURN
10390 -----
10400 REM 2.PUNKT SUCHEN
10410 XX=X1:YY=Y1:ZZ=Z1
10420 X1=X2:Y1=Y2:Z1=Z2
10430 X2=XX:Y2=YY:Z2=ZZ
10440 XX=XA:YY=YA:XA=XB
10450 YA=YB:XB=XX:YB=YY
10460 X=X1:Y=Y1:Z=Z1
10470 RETURN
10480 -----
10490 Q=0:MM=0
10500 IFA$="X"ORA$=R$THENX=X+S:Q=1:IFX>MTHENX=M
10510 IFA$="[216]"ORA$=L$THENX=X-S:Q=1:IFX<-MTHENX=-M
10520 IFA$="Y"THENY=Y+S:Q=1:IFY>MTHENY=M
10530 IFA$="[217]"THENY=Y-S:Q=1:IFY<-MTHENY=-M
10540 IFA$="Z"ORA$=U$THENZ=Z+S:Q=1:IFZ>MTHENZ=M
10550 IFA$="[218]"ORA$=D$THENZ=Z-S:Q=1:IFZ<-MTHENZ=-M
10560 IFA$=C$THENLO=1:GOTO10000
10570 IFA$=H$THENX=0:Y=0:Z=0:Q=1
10580 IFA$="+"THENIFDW<90-STHENDW=DW+S:POKE191,DW/4:MM=1:GOTO10820
10590 IFA$="-"THENIFDW>STHENDW=DW-S:POKE191,DW/4:MM=1:GOTO10820
10600 IFA$="K"GOTO10870
10610 IFA$="P"THENX1=X:Y1=Y:Z1=Z:XB=XA:YB=YA:X2=X:Y2=Y:Z2=Z
10620 IFA$="L"THENX=XL:Y=YL:Z=ZL:Q=1
10630 IFA$="A"THENGOSUB10950
10640 IFA$>"/"ANDA$<":"THENS=ASC(A$)-48:IFS=0THENS=10
10650 IFA$="_"ORA$="M"GOTO60030
10660 RETURN
10670 -----
10680 REM KOORDINATEN SPEICHERN
10690 IFAP=255ORAL=255THENRETURN
10700 X=X1:Y=Y1:Z=Z1:GOSUB10760
10710 PP=P
10720 X=X2:Y=Y2:Z=Z2:GOSUB10760
10730 SYSVP,PP,P
10740 AL=PEEK(4):RETURN
10750 -----
10760 SYSSE,X-256*(X<0),Y-256*(Y<0),Z-256*(Z<0)
10770 AP=PEEK(3):P=PEEK(782):RETURN
10780 -----
10790 POKEV+21,0
10800 POKE191,DW/4:SYSBA:SYSD3:POKE56576,2
10810 POKEV+21,1
10820 CO=COS(P*DW):SI=SIN(P*DW)
10830 RETURN
10840 -----
10850 POKEV,XA+1AND255:POKEV+1,YA+30:RETURN
10860 -----
10870 XD=X:YD=Y:ZD=Z
10880 X=-M:Y=0:Z=0:GOSUB10340:XQ=XX:YQ=YY
10890 X=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
10900 X=0:Y=-M:GOSUB10340:XQ=XX:YQ=YY
10910 Y=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
10920 Y=0:Z=-M:GOSUB10340:XQ=XX:YQ=YY
10930 Z=M:GOSUB10340:SYSL,XX,YY,XQ,YQ
10940 X=XD:Y=YD:Z=ZD:RETURN
10950 PRINT"[147]KOORDINATEN ANZEIGEN:
10960 [153]"X="X
10970 [153]"Y="Y
10980 [153]"Z="Z
10990 [151]V[170]21,0:[141]1240
11000 [151]198,0:[146]198,1:[151]198,0
11010 [151]V[170]21,1:[137]1250
11020 [171][171][171][171][171]
20000 ZE[178]0:[141]1240:ZZ[178]1280
20010 [141]1240:ZZ[178]1280:[153]C$
20020 ZU[178]0:[139]AP[178]0[137]20050
20030 [139]AP[177]ZE[170]15[167]ZU[178]15:[137]20050
20040 ZU[178](AP[171]1)[175]15:[139]AP[178]0[167]ZU[178][171]1
20050 Y1[178]0
20060 [141]21120
20070 [129]I[178]ZE[164]ZE[170]ZU
20080 [141]21190
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
20100 [153]SS$
20110 :
20120 [141]60050
20130 [139]A$[179][177]""[137]20190
20140 [141]21080
20150 [141]60050
20160 [141]21080
20170 [139]A$[178]""[137]20120
20180 :
20190 [141]21080
20200 Q[178]0
20210 [141]20260
20220 [145]Q[137]20000,20120,20050,21280,20010
20230 [151]A,C
20240 [137]20120
20250 :
20260 [139]A$[178]D$[137]20870
20270 [139]A$[178]U$[137]20940
20280 [139]A$[178]R$[137]20980
20290 [139]A$[178]L$[137]21030
20300 [139]A$[178]C$[167]AP[178]0:[151]3,0:A$[178]H$:Q[178]1
20310 [139]A$[178]H$[167]X1[178]0:Y1[178]0
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]
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
20340 [139]A$[177][178]"0"[175]A$[179]":"[137]20680
20350 [139]A$[178]"+"[176]A$[178]" "[176]A$[178]"-"[137]20790
20360 [139]A$[178]"_"[176]A$[178]"M"[167][151]3,AP:[137]60030
20370 [139]A$[178]"LET"[167]Q[178]4:[151]3,AP:[142]
20380 [139]A$[179][177]RI$[167][142]
20390 :
20400 [143] RETURN TASTE
20410 X1[178]0:XA[178]0:[151]A,C
20420 [139]Y1[179]ZU[167]Y1[178]Y1[170]1:[142]
20430 [139]ZU[179][177]15[137]20500
20440 [139]ZE[179]240[167]ZE[178]ZE[170]16
20450 [153]"LOAD":Y1[178]0
20460 [139]ZE[178]AP[167]ZU[178]0:Q[178]3:AP[178]AP[170]1:[151]3,AP:[142]
20470 [139]AP[179]ZE[170]17[167]ZU[178]AP[171]1[175]15
20480 Q[178]3:[142]
20490 ;
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]
20505 [141]21120
20510 I[178]AP[171]1:[153]D$SP$U$
20520 [141]21190
20530 Y1[178]Y1[170]1
20540 [153]SS$:Q[178]2:[142]
20541 [171][171][171][171][171]
20542 [143] DELETE POINT
20543 [139]ZU[178]0[167][139]ZE[177]15[175]AP[178]ZE[167]ZE[178]ZE[171]16:T[178]15
20544 [142]
20550 [171][171][171][171][171]
20560 [143] ZEILE UEBERNEHMEN
20570 Q[178]ZZ[170]Y1[172]40:X$[178]"":Y$[178]X$:Z$[178]X$
20580 [129]I[178]0[164]2
20590 X$[178]X$[170][199]([194](Q[171]1[170]I))
20600 Y$[178]Y$[170][199]([194](Q[170]7[170]I))
20610 Z$[178]Z$[170][199]([194](Q[170]15[170]I)):[130]
20620 Q[178]ZE[170]Y1
20630 X[178][197](X$):[151]XS[170]Q,X[171]D[172](X[179]0)
20640 Y[178][197](Y$):[151]YS[170]Q,Y[171]D[172](Y[179]0)
20650 Z[178][197](Z$):[151]ZS[170]Q,Z[171]D[172](Z[179]0)
20660 Q[178]0:[142]
20670 [171][171][171][171][171]
20680 [143] ZAHL EINGEBEN
20690 X2[178]ZZ[170]X1[170]Y1[172]40
20700 I[178]ZZ[170](X1[175]24)[170]Y1[172]40[171]1
20710 X$[178]"":[129]N[178]I[164]I[170]2
20720 T[178][194](N)[175]127:[139]N[178]X2[167]T[178][198](A$)
20730 X$[178]X$[170][199](T):[130]
20740 T[178][197](X$):[139][182](T)[177]M[167][142]
20750 C[178][198](A$):T[178]T[171]D[172](T[179]0)
20760 [151]XS[170]((X1[175]24)[173]8)[172]D[170]ZE[170]Y1,T
20770 [137]20990
20780 [171][171][171][171][171]
20790 [139]A$[178]"+"[167]A$[178]" "
20800 X2[178]ZZ[170](X1[175]24)[171]1[170]Y1[172]40
20810 [151]X2,[198](A$)
20820 X2[178]XS[170]((X1[175]24)[173]8)[172]D[170]ZE[170]Y1
20830 T[178][194](X2):T[178][171]T[171]D[172](T[177]R)
20840 T[178]T[171]D[172](T[179]0):[151]X2,T:[142]
20850 [171][171][171][171][171]
20860 [143] DOWN
20870 [139]Y1[179]ZU[167]Y1[178]Y1[170]1:Q[178]0:[142]
20880 [139]ZU[179][177]15[176]AP[179]ZE[170]17[167][142]
20890 [139]ZE[179]240[167]ZE[178]ZE[170]16
20900 ZU[178]15:[139]AP[179]ZE[170]16[167]ZU[178]AP[171]1[175]15
20910 Q[178]3:Y1[178]0:[153]C$:[142]
20920 [171][171][171][171][171]
20930 [143] UP
20940 [139]Y1[177]0[167]Y1[178]Y1[171]1:[142]
20950 [139]ZE[177]0[167]ZE[178]ZE[171]16:Q[178]3:ZU[178]15:[153]C$
20960 [142]
20970 [171][171][171][171][171]
20980 [143] RIGHT
20990 [139]X1[178]1[176]X1[178]9[167]XA[178]XA[170]1:X1[178]XA[172]8:[142]
21000 [139]X1[179]17[167]X1[178]X1[170]1
21010 [142]
21020 [171][171][171][171][171]
21030 [143] LEFT
21040 [139]X1[178]8[176]X1[178]16[167]XA[178]XA[171]1:X1[178]XA[172]8:[142]
21050 [139]X1[177]0[167]X1[178]X1[171]1
21060 [142]
21070 [171][171][171][171][171]
21080 A[178]ZZ[170]X1[170]Y1[172]40:C[178][194](A)
21090 [151]A,(C[176]128)[171](C[175]128)
21100 [142]
21110 [171][171][171][171][171]
21120 [153]"POKE
21130 PRINT"[203]OORDINATENTRIPEL EINGEBEN:
21140 [153]" ATNNZAHL DER (null)UNKTE:"AP
21150 [153]" ATNNZAHL DER (null)INIEN:"AL
21160 [153]D$SS$
21170 [153]U$[200](CU$,Y1):[142]
21180 [171][171][171][171][171]
21190 [143] INHALT DES PUNKTESPEICHERS
21200 [143] ANZEIGEN
21210 [153]"(null)R."I[170]1"CMD "[163]8)
21220 X[178][194](XS[170]I):X[178]X[170]D[172](X[177]R)
21230 Y[178][194](YS[170]I):Y[178]Y[170]D[172](Y[177]R)
21240 Z[178][194](ZS[170]I):Z[178]Z[170]D[172](Z[177]R)
21250 [153]"==>WAIT X="X"CMD "[163]21)"Y="Y"CMD "[163]29)"Z="Z"CMD "
21260 [142]
21270 [171][171][171][171][171]
21280 [151]3,AP:ZE[178]0
21290 ZU[178]15:[139]AL[179]ZE[170]16[167]ZU[178]AL[171]1[175]15
21300 [139]AL[178]0[167]ZU[178]0
21310 ZZ[178]1285
21320 Y1[178]0:X[178]0:[153]"LOADSYS":[141]21130
21330 [129]I[178]ZE[164]ZE[170]ZU
21340 [141]22140
21350 [130]:Y[178]ZU:[139]Q[178]2[167]Y[178]T:[139]Y[177]ZU[167]Y[178]ZU
21360 [153]SS$
21370 [141]60050
21380 [141]21520
21390 [139]A$[179][177]""[137]21450
21400 [141]60050
21410 [139]A$[179][177]""[137]21450
21420 [141]21520
21430 [137]21370
21440 :
21450 Q[178]0
21460 [141]21570
21470 [145]Q[137]21320,21290,20000
21480 [151]K,J
21490 [137]21370
21500 :
21510 [143] INVERTIEREN
21520 K[178]ZZ[170]X[170]Y[172]40
21530 J[178][194](K)
21540 [151]K,(J[176]128)[171](J[175]128)
21550 [142]
21560 :
21570 [139]A$[178]D$[137]21800
21580 [139]A$[178]U$[137]21860
21590 [139]A$[178]R$[137]21910
21600 [139]A$[178]L$[137]21960
21610 [139]A$[178]H$[137]21990
21611 [139]A$[178]C$[167]AL[178]0:[151]4,0:Q[178]2:[142]
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]
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
21640 [139]A$[178]"LET"[167]Q[178]3:[151]4,AL:[142]
21650 [139]A$[177]"/"[175]A$[179]":"[137]22010
21660 [139]A$[178]"M"[176]A$[178]"_"[167][151]4,AL:[137]60030
21670 [139]A$[179][177]RI$[167][142]
21680 :
21690 [151]K,J:X[178]0
21700 [139]Y[179]ZU[167]Y[178]Y[170]1:[142]
21710 AL[178]AL[170]1:[151]4,AL
21720 [139]ZU[178]15[137]21780
21730 ZU[178]ZU[170]1:Y1[178]ZU:[139]AL[178]1[167]ZU[178]0:Y1[178]0:[137]21750
21740 [153]U$SP$
21750 [141]21130
21760 I[178]AL[171]1:[141]22140:Y[178]ZU
21770 [153]SS$:[142]
21780 [139]ZE[179]240[167]ZE[178]ZE[170]16
21790 ZU[178]0:Q[178]1:[142]
21791 [143] DELETE LINE
21792 [139]ZU[178]0[167][139]ZE[177]15[175]AL[178]ZE[167]ZE[178]ZE[171]16:T[178]15
21793 [142]
21800 [143] DOWN
21810 [139]Y[179]ZU[167]Y[178]Y[170]1:[142]
21820 [139]ZU[179][177]15[176]AL[179]ZE[170]17[167][142]
21830 [139]ZE[179]240[167]ZE[178]ZE[170]16
21840 ZU[178]15:[139]AL[179]ZE[170]16[167]ZU[178]AL[171]1[175]15
21850 Q[178]1:[142]
21860 [143] UP
21870 [139]Y[177]0[167]Y[178]Y[171]1:[142]
21880 [139]ZE[178]0[167][142]
21890 ZU[178]15:[139]ZE[177]0[167]ZE[178]ZE[171]16
21900 Q[178]1:[142]
21910 [143] RIGHT
21920 [139]X[179]14[167]X[178]X[170]1:[139]X[178]3[167]X[178]12
21930 [139][194](ZZ[170]X[170]Y[172]40)[179][177]32[167][142]
21940 [139]X[177]12[167]X[178]X[171]1:[142]
21950 [137]21920
21960 [143] LEFT
21970 [139]X[177]0[167]X[178]X[171]1:[139]X[178]11[167]X[178]0
21980 [142]
21990 [143] HOME
22000 Y[178]0:X[178]0:[142]
22010 [143] ZAHL EINGEBEN
22020 Z[178]ZZ[170]Y[172]40:[139]X[177]11[167]Z[178]Z[170]12
22030 X$[178]"":[129]I[178]Z[164]Z[170]2
22040 X$[178]X$[170][199]([194](I)[175]127):[130]
22050 Z[178]X[170]1:[139]X[177]11[167]Z[178]Z[171]12
22060 X$[178][200](X$,Z[171]1)[170]A$[170][202](X$,Z[170]1)
22070 Z[178][197](X$):[139]Z[177]AP[176]Z[178]0[167][142]
22080 QQ[178]P1[170]ZE[170]Y:[139]X[177]11[167]QQ[178]QQ[170]D
22090 [151]QQ,Z[171]1
22100 J[178][198](A$):[139]X[178]14[167][142]
22110 [139]X[178]2[167]X[178]12:[142]
22120 X[178]X[170]1:[142]
22130 [171][171][171][171][171]
22140 [153]"(null)R.:"I[170]1[163]9)"==>";
22150 PA[178][194](P1[170]I)[170]1:[139]PA[177]AP[167]PA[178]1:[151]P1[170]I,1
22160 PB[178][194](P2[170]I)[170]1:[139]PB[177]AP[167]PB[178]1:[151]P2[170]I,1
22170 [153]" VON (null)R."PA"CMD "[163]25)"BIS (null)R."PB"CMD "
22180 [142]
22190 [171][171][171][171][171]
30000 G$[178]"(null)OTATIONSKOERPER:"
30010 [153]"LOAD"G$
30020 A$[178]"N":[133]"ATNLTE (null)OORDINATEN LOESCHEN ? NCMDCMDCMD";A$:[139]A$[178]"N"[137]30040
30030 [151]3,0:[151]4,0:AP[178]0:AL[178]0
30040 [151]V[170]21,0:[158]BA:[151]56576,2:ZA[178]0:LO[178]0
30050 X[178]0:Y[178]0:X1[178]X:Y1[178]Y
30060 XA[178]XM[171]M[172]2:YA[178]YM[170]M[173]2:YB[178]YA
30070 [129]I[178]0[164]4[172]M[169]4
30080 H[178]6:[139]I[173]5[178][181](I[173]5)[167]H[178]12
30090 [158]L,XA[170]I,YA[170]1,XA[170]I,YA[170]H:[130]
30100 XA[178]XM:XB[178]XA:[141]10850:[151]V[170]21,1
30110 [129]I[178]XM[171]M[172]2[164]XM[170]M[172]2[169]10
30120 [129]J[178]YA[171]M[172]2[164]YA[169]10
30130 [158]PL,I,J:[130]J,I
30140 [141]60050
30150 [139]A$[179][177]""[137]30210
30160 [141]10320
30170 [141]60050
30180 [141]10320
30190 [139]A$[178]""[137]30140
30200 :
30210 XR[178]XA:YR[178]YA:XP[178]XB:YP[178]YB:Q[178]4
30220 [141]10320
30230 [141]30280
30240 [158]L,XR,YR,XP,YP
30250 [139]Q[178]1[167][141]30470:XA[178]XX:YA[178]YY:[141]10850:Q[178]4
30260 [145]Q[171]1[137]30040,30490,30140
30270 [151]53280,1:[144]
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
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
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
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
30320 [139]A$[178]"L"[167]X[178]X2:Y[178]Y2:Q[178]1
30330 [139]A$[178]"P"[167]X1[178]X:Y1[178]Y:XB[178]XA:YB[178]YA
30340 [139]A$[178]C$[167]Q[178]2
30350 [139]A$[178]H$[167]X[178]0:Y[178]0:Q[178]1
30360 [139]A$[178]"*"[137]30450
30370 [139]A$[178]" "[167]Q[178]3:S[178]5:[142]
30380 [139]A$[178]"M"[176]A$[178]"_"[137]60030
30390 [139]A$[177]"/"[175]A$[179]":"[167]S[178][198](A$)[171]48:[139]S[178]0[167]S[178]10
30400 [139]A$[179][177]RI$[167][142]
30410 :
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
30430 X1[178]X:Y1[178]Y:[141]30470:[141]10320:XB[178]XX:YB[178]YY:[142]
30440 :
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]
30460 :
30470 XX[178]XM[170]X[172]2:YY[178]YM[170]M[173]2[171]Y[172]2:[142]
30480 :
30490 [141]1240
30500 [153]"LOAD":[151]V[170]21,0
30510 [153]G$:[151]19,64
30520 [133]"VON 0 CHR$RAD - 360 CHR$RAD CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";GR$:GR[178][181]([182]([197](GR$)))
30530 [153]:[139]GR[177]360[137]30500
30540 [151]19,0
30550 [133]"ATNNZAHL DER ASCACETTEN:";AN
30560 [139]AN[179]3[167][153]"ONON";:[137]30550
30570 [133]"ATNLLES OK.";A$
30580 [139]A$[179][177]"N"[137]30630
30590 [133]"(null)EU ZEICHNEN";A$
30600 [139]A$[178]"J"[137]30000
30610 [137]30500
30620 :
30630 AP[178][194](3):AL[178][194](4):N[178]AL
30640 A$[178]"ATNNZAHL DER ASCACETTEN ZU GROSS !!"
30650 [153]"1. ASCACETTEN
30660 FORI=0TO(GR-1)*PSTEP(GR/AN)*P
30670 FORJ=0TOZA-1STEP2:PRINTN-AL+1"[145]"
30680 FORK=0TO1:T=K+J
30690 X=X(T)-D*(X(T)<0)
30700 Y=INT(Y(T)*COS(I)):Y=Y-D*(Y<0)
30710 Z=INT(Y(T)*SIN(I)):Z=Z-D*(Z<0)
30720 SYSSE,X,Y,Z
30730 POKEP1+N+K*D,PEEK(782)
30740 NEXTK:N=N+1:NEXTJ:IFI=0THENF=N-AL
30750 NEXTI
30760 :
30770 IFN>255THENPRINTA$:POKE3,AP:POKE4,AL:GOTO30510
30780 :
30790 POKE4,N:AP=PEEK(3):PRINT"[145][145]"
30800 :
30810 T=N-F-1-AL
30820 PRINT"2. [214]ERBINDUNGEN 1
30830 [129]I[178]AL[164]T[170]AL[169]F
30840 [129]J[178]0[164]F[171]1
30850 PA[178][194](P1[170]I[170]J):PB[178][194](P1[170]I[170]J[170]F)
30860 [139]PA[178]PB[137]30880
30870 [158]VP,PA,PB:[139][194](4)[178]255[167]N[178]256:[137]30770
30880 [130]J,I
30890 [139]GR[179][177]360[137]30950
30900 [129]K[178]0[164]F[171]1
30910 PA[178][194](P1[170]I[170]K):PB[178][194](P1[170]K[170]AL)
30920 [139]PA[178]PB[137]30940
30930 [158]VP,PA,PB:[139][194](4)[178]255[167]N[178]256:[137]30770
30940 [130]K
30950 [153]"3. (null)ERBINDUNGEN 2
30960 FORI=ALTOT+ALSTEPF
30970 FORJ=0TOF-1
30980 PA=PEEK(P2+I+J):PB=PEEK(P2+I+J+F)
30990 IFPA=PBGOTO31010
31000 SYSVP,PA,PB:IFPEEK(4)=255THENN=256:GOTO30770
31010 NEXTJ,I
31020 IFGR<>360GOTO60030
31030 FORK=0TOF-1
31040 PA=PEEK(P2+I+K):PB=PEEK(P2+K+AL)
31050 IFPA=PBGOTO31070
31060 SYSVP,PA,PB:IFPEEK(4)=255THENN=256:GOTO30770
31070 NEXTK
31080 :
31090 GOTO60030
40000 -SPEICHERN-
40010 GOSUB50040
40020 OPEN1,8,1,B$
40030 PRINT#1,CHR$(PEEK(3));
40040 PRINT#1,CHR$(PEEK(4));
40050 FORI=0TOPEEK(3)-1
40060 PRINT#1,CHR$(PEEK(XS+I));
40070 PRINT#1,CHR$(PEEK(YS+I));
40080 PRINT#1,CHR$(PEEK(ZS+I));
40090 NEXT
40100 FORI=0TOPEEK(4)-1
40110 PRINT#1,CHR$(PEEK(P1+I));
40120 PRINT#1,CHR$(PEEK(P2+I));
40130 NEXT
40140 CLOSE1:GOTO60030
50000 -LADEN-
50010 IFPEEK(1023)=0THENSYSBA:GOSUB1240
50015 GOSUB50040:LO=0
50020 SYSLQ,1,8,0,B$:CLOSE1:GOTO60030
50030 -FILENAME-
50040 B$="":INPUT"FILENAME";B$:IFB$="_"ORB$="M"ORB$=""GOTO60030
50050 B$=LEFT$(B$,13)+".3D,S":RETURN
50060 -DIRECTORY-
50100 PRINT:SYSBA+1649
50110 WAIT198,1:POKE198,0:GOTO60030
59999 -EXIT-
60000 END
60010 -----
60020 IF(APORAL)<>0THENPRINTC$:SYSBA:SYSDR
60030 POKEV+21,0:POKE198,0:CLR:AP=PEEK(3):AL=PEEK(4):DW=PEEK(191)*4:GOTO130
60040 -----
60050 FORI=0TOW:GETA$:IFA$=""THENNEXT
60060 RETURN