|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »MONST.K«, »MONST80.K«
└─⟦8e9939517⟧ Bits:30005293 LPBPLOT/SPANALYS/MONST80 - Gymnasieelevdiskette
└─⟦this⟧ »MONST.K«
└─⟦this⟧ »MONST80.K«
0100 // ***************************************************************** 0110 // *** MONSTER80 (COMAL80 VER) Peter Sierst 2YF ** 0120 // *** ** 0130 // *** Programmet vil definerer en af dine rummelige figurer ** 0140 // *** i et 3-AKSE koordinatsystem ** 0150 // *** omregner disse til koordinater i planen og ** 0160 // *** udtegner plankoordinaterne på plotteren ** 0170 // *** ** 0180 // *** A: Sigtepunkt er midtpunktet for det rummelige ** 0190 // *** koordinatsystem ** 0200 // *** ** 0210 // *** B: Øjepunkt er hvor man ser figuren fra i forhold til ** 0220 // *** sigtepunktet ** 0230 // *** ** 0240 // *** C: Skala er hvor meget man vil forlænge hver af ** 0250 // *** akserne med ** 0260 // *** ** 0270 // *** D: Udtegner figuren på plotteren ** 0280 // *** (under udvikling) ** 0290 // ***************************************************************** 0300 FIGURANT:=20;MATRIXANT:=6;PI:=3.14159265 0310 DIM FMATRICE(FIGURANT,MATRIXANT*4) 0320 DIM C(4) 0330 DIM SVAR$ OF 4 0340 REPEAT 0350 CLEAR 0360 PRINT "A=SIGTEPUNKT" 0370 PRINT "B=ØJEPUNKT" 0380 PRINT "C=SKALA" 0390 PRINT "D=UDTEGN" 0400 PRINT "E=DEFINER" 0410 INPUT SVAR$ 0420 CASE SVAR$ OF 0430 PRINT "KOMMANDOEN EKSISTERER IKKE" 0440 FOR A:=1 TO 500 DO 0450 NEXT A 0460 WHEN "A" 0470 EXEC SIGTEPUNKT 0480 WHEN "B" 0490 EXEC ØJEPUNKT 0500 WHEN "C" 0510 EXEC SKALA 0520 WHEN "D" 0530 EXEC UDTEGN 0540 WHEN "E" 0550 EXEC DEFINER 0560 ENDCASE 0570 UNTIL 0 0580 PROC SIGTEPUNKT 0590 INPUT "SIGTEPUNKT :":X7,Y7,Z7 0600 ENDPROC SIGTEPUNKT 0610 PROC SKALA 0620 INPUT "SKALA :":X8,Y8,Z8 0630 ENDPROC SKALA 0640 PROC ØJEPUNKT 0650 INPUT "ØJEPUNKT :":X9,Y9,Z9 0660 A:=SQR(X9*X9+Y9*Y9) 0670 C1:=Y9/A 0680 S1:=X9/A 0690 B:=SQR(X9*X9+Y9*Y9+Z9*Z9) 0700 C2:=A/B 0710 S2:=Z9/B 0720 ENDPROC ØJEPUNKT 0730 PROC PLOTINIT 0740 PRINT "I;: I;: U H" 0750 MX:=3500/2;MY:=2300/2 0760 PRINT "U A";MX;",";MY 0770 PRINT "O" 0780 ENDPROC PLOTINIT 0790 PROC PLOTSLUT 0800 PRINT "U H @" 0810 ENDPROC PLOTSLUT 0820 PROC UDTEGN 0830 SELECT OUTPUT "P2" 0840 X:=C(1)+X7;Y:=C(2)+Y7;Z:=C(3)+Z7 0850 EXEC TRANSFORM 0860 IF NOT (X2>3500-MX OR X2<-MX OR Y2>2300-MY OR Y2<-MY) THEN 0870 IF C(4)=1 THEN 0880 PRINT "D A L0";X2;",";Y2 0890 ELSE 0900 PRINT "U A";X2;",";Y2 0910 ENDIF 0920 ENDIF 0930 SELECT OUTPUT "T" 0940 ENDPROC TEGNSTREG 0950 PROC TRANSFORM 0960 X1:=X8*(-X*C1+Y*S1+X9*C1-Y9*S1) 0970 Y1:=Y8*(-X*S1*S2-Y*S2*C2+Z*C2-Z9*C2+X9*S1*S2+Y9*S2*C2) 0980 Z1:=Z8*(-X*S1*C2-Y*C1*C2-Z*S2+Z9*S2+X9*S1*C2+Y9*C1*C2) 0990 X2:=INT(1000*X1/Z1) 1000 Y2:=INT(1000*Y1/Z1) 1010 ENDPROC TRANSFORM 1020 PROC GLOBUS 1030 INPUT "ANTAL BREDDE OG LÆNGDEGRADER ?":B,L 1040 PRINT "VENT ET ØJEBLIK - JEG SKAL LIGE ERKLÆRE ET PAR VARIABLER !" 1050 R:=50;TEL:=4;D:=L 1060 FOR A:=0 TO PI-PI/D STEP PI/D DO 1070 R1:=SIN(A)*R 1080 R2:=SIN(A+PI/D)*R 1090 H1:=SIN(A+PI/2)*R 1100 H2:=SIN(A+PI/2+PI/D)*R 1110 FOR S:=0 TO 2*PI STEP PI/B DO 1120 TEL:=TEL+3 1130 X:=COS(S);Y:=SIN(S) 1140 X1:=X*R1;Y1:=Y*R1 1150 C(1):=X1;C(2):=Y1;C(3):=H1;C(4):=0 1160 X2:=X*R2;Y2:=Y*R2 1170 C(TEL+1,1):=X2;C(TEL+1,2):=Y2;C(TEL+1,3):=H2;C(TEL+1,4):=1 1180 X3:=COS(S+PI/B)*R2 1190 Y3:=SIN(S+PI/B)*R2 1200 C(1):=X3;C(TEL+2,2):=Y3;C(TEL+2,3):=H2;C(TEL+2,4):=1 1210 NEXT S 1220 NEXT A 1230 ENDPROC GLOBUS 1240 PROC ORIGO 1250 INPUT "AKSERNES LÆNGDE ? ":LÆN 1260 LÆN:=LÆN/2 1270 // C(1,1)=LÆN;C(1,2)=0;C(1,3)=0;C(1,4)=0 1280 // C(2,1)=-LÆN;C(2,2)=0;C(2,3)=0;C(2,4)=1 1290 // C(3,1)=0;C(3,2)=LÆN;C(3,3)=0;C(3,4)=0 1300 // C(4,1)=0;C(4,2)=-LÆN;C(4,3)=0;C(4,4)=1 1310 // C(5,1)=0;C(5,2)=0;C(5,3)=LÆN;C(5,4)=0 1320 // C(6,1)=0;C(6,2)=0;C(6,3)=-LÆN;C(6,4)=1 1330 ENDPROC S 1340 PROC DEFINER 1350 REPEAT 1360 CLEAR 1370 PRINT "HVILKEN FIGUR ØNSKES ?" 1380 PRINT 1390 PRINT "1=STREG","2=FLADE","3=KASSE","4=PYRAMIDE" 1400 PRINT "5=CIRKEL","6=GLOBUS" 1410 INPUT SVAR$ 1420 IF SVAR$="1" THEN EXEC DEFSTREG 1430 IF SVAR$="2" THEN EXEC DEFFLADE 1440 IF SVAR$="3" THEN EXEC DEFKASSE 1450 IF SVAR$="4" THEN EXEC DEFPYRAMIDE 1460 IF SVAR$="5" THEN EXEC DEFCIRKEL 1470 IF SVAR$="6" THEN EXEC DEFGLOBUS 1480 INPUT "IGEN ? ":SVAR$ 1490 UNTIL SVAR$="N"
0x0000…004b Line {l1=0x49, l2=»0100 // *****************************************************************«, l3=0x49}
0x004b…0096 Line {l1=0x49, l2=»0110 // *** MONSTER80 (COMAL80 VER) Peter Sierst 2YF **«, l3=0x49}
0x0096…00e1 Line {l1=0x49, l2=»0120 // *** **«, l3=0x49}
0x00e1…012c Line {l1=0x49, l2=»0130 // *** Programmet vil definerer en af dine rummelige figurer **«, l3=0x49}
0x012c…0170 Line {l1=0x42, l2=»0140 // *** i et 3-AKSE koordinatsystem **«, l3=0x42}
0x0170…01bb Line {l1=0x49, l2=»0150 // *** omregner disse til koordinater i planen og **«, l3=0x49}
0x01bb…0206 Line {l1=0x49, l2=»0160 // *** udtegner plankoordinaterne på plotteren **«, l3=0x49}
0x0206…0251 Line {l1=0x49, l2=»0170 // *** **«, l3=0x49}
0x0251…029c Line {l1=0x49, l2=»0180 // *** A: Sigtepunkt er midtpunktet for det rummelige **«, l3=0x49}
0x029c…02e7 Line {l1=0x49, l2=»0190 // *** koordinatsystem **«, l3=0x49}
0x02e7…0332 Line {l1=0x49, l2=»0200 // *** **«, l3=0x49}
0x0332…037d Line {l1=0x49, l2=»0210 // *** B: Øjepunkt er hvor man ser figuren fra i forhold til **«, l3=0x49}
0x037d…03c8 Line {l1=0x49, l2=»0220 // *** sigtepunktet **«, l3=0x49}
0x03c8…0413 Line {l1=0x49, l2=»0230 // *** **«, l3=0x49}
0x0413…045e Line {l1=0x49, l2=»0240 // *** C: Skala er hvor meget man vil forlænge hver af **«, l3=0x49}
0x045e…04a9 Line {l1=0x49, l2=»0250 // *** akserne med **«, l3=0x49}
0x04a9…04f4 Line {l1=0x49, l2=»0260 // *** **«, l3=0x49}
0x04f4…053f Line {l1=0x49, l2=»0270 // *** D: Udtegner figuren på plotteren **«, l3=0x49}
0x053f…058a Line {l1=0x49, l2=»0280 // *** (under udvikling) **«, l3=0x49}
0x058a…05d5 Line {l1=0x49, l2=»0290 // *****************************************************************«, l3=0x49}
0x05d5…0604 Line {l1=0x2d, l2=»0300 FIGURANT:=20;MATRIXANT:=6;PI:=3.14159265«, l3=0x2d}
0x0604…062d Line {l1=0x27, l2=»0310 DIM FMATRICE(FIGURANT,MATRIXANT*4)«, l3=0x27}
0x062d…063c Line {l1=0x0d, l2=»0320 DIM C(4)«, l3=0x0d}
0x063c…0651 Line {l1=0x13, l2=»0330 DIM SVAR$ OF 4«, l3=0x13}
0x0651…065f Line {l1=0x0c, l2=»0340 REPEAT «, l3=0x0c}
0x065f…066c Line {l1=0x0b, l2=»0350 CLEAR «, l3=0x0b}
0x066c…0687 Line {l1=0x19, l2=»0360 PRINT "A=SIGTEPUNKT"«, l3=0x19}
0x0687…06a0 Line {l1=0x17, l2=»0370 PRINT "B=ØJEPUNKT"«, l3=0x17}
0x06a0…06b6 Line {l1=0x14, l2=»0380 PRINT "C=SKALA"«, l3=0x14}
0x06b6…06cd Line {l1=0x15, l2=»0390 PRINT "D=UDTEGN"«, l3=0x15}
0x06cd…06e5 Line {l1=0x16, l2=»0400 PRINT "E=DEFINER"«, l3=0x16}
0x06e5…06f7 Line {l1=0x10, l2=»0410 INPUT SVAR$«, l3=0x10}
0x06f7…070c Line {l1=0x13, l2=»0420 CASE SVAR$ OF «, l3=0x13}
0x070c…0735 Line {l1=0x27, l2=»0430 PRINT "KOMMANDOEN EKSISTERER IKKE"«, l3=0x27}
0x0735…074f Line {l1=0x18, l2=»0440 FOR A:=1 TO 500 DO «, l3=0x18}
0x074f…075c Line {l1=0x0b, l2=»0450 NEXT A«, l3=0x0b}
0x075c…076b Line {l1=0x0d, l2=»0460 WHEN "A"«, l3=0x0d}
0x076b…0781 Line {l1=0x14, l2=»0470 EXEC SIGTEPUNKT«, l3=0x14}
0x0781…0790 Line {l1=0x0d, l2=»0480 WHEN "B"«, l3=0x0d}
0x0790…07a4 Line {l1=0x12, l2=»0490 EXEC ØJEPUNKT«, l3=0x12}
0x07a4…07b3 Line {l1=0x0d, l2=»0500 WHEN "C"«, l3=0x0d}
0x07b3…07c4 Line {l1=0x0f, l2=»0510 EXEC SKALA«, l3=0x0f}
0x07c4…07d3 Line {l1=0x0d, l2=»0520 WHEN "D"«, l3=0x0d}
0x07d3…07e5 Line {l1=0x10, l2=»0530 EXEC UDTEGN«, l3=0x10}
0x07e5…07f4 Line {l1=0x0d, l2=»0540 WHEN "E"«, l3=0x0d}
0x07f4…0807 Line {l1=0x11, l2=»0550 EXEC DEFINER«, l3=0x11}
0x0807…0816 Line {l1=0x0d, l2=»0560 ENDCASE «, l3=0x0d}
0x0816…0824 Line {l1=0x0c, l2=»0570 UNTIL 0«, l3=0x0c}
0x0824…083a Line {l1=0x14, l2=»0580 PROC SIGTEPUNKT«, l3=0x14}
0x083a…085e Line {l1=0x22, l2=»0590 INPUT "SIGTEPUNKT :":X7,Y7,Z7«, l3=0x22}
0x085e…0877 Line {l1=0x17, l2=»0600 ENDPROC SIGTEPUNKT«, l3=0x17}
0x0877…0888 Line {l1=0x0f, l2=»0610 PROC SKALA«, l3=0x0f}
0x0888…08ac Line {l1=0x22, l2=»0620 INPUT "SKALA :":X8,Y8,Z8«, l3=0x22}
0x08ac…08c0 Line {l1=0x12, l2=»0630 ENDPROC SKALA«, l3=0x12}
0x08c0…08d4 Line {l1=0x12, l2=»0640 PROC ØJEPUNKT«, l3=0x12}
0x08d4…08f8 Line {l1=0x22, l2=»0650 INPUT "ØJEPUNKT :":X9,Y9,Z9«, l3=0x22}
0x08f8…0912 Line {l1=0x18, l2=»0660 A:=SQR(X9*X9+Y9*Y9)«, l3=0x18}
0x0912…0921 Line {l1=0x0d, l2=»0670 C1:=Y9/A«, l3=0x0d}
0x0921…0930 Line {l1=0x0d, l2=»0680 S1:=X9/A«, l3=0x0d}
0x0930…0950 Line {l1=0x1e, l2=»0690 B:=SQR(X9*X9+Y9*Y9+Z9*Z9)«, l3=0x1e}
0x0950…095e Line {l1=0x0c, l2=»0700 C2:=A/B«, l3=0x0c}
0x095e…096d Line {l1=0x0d, l2=»0710 S2:=Z9/B«, l3=0x0d}
0x096d…0984 Line {l1=0x15, l2=»0720 ENDPROC ØJEPUNKT«, l3=0x15}
0x0984…0998 Line {l1=0x12, l2=»0730 PROC PLOTINIT«, l3=0x12}
0x0998…09b2 Line {l1=0x18, l2=»0740 PRINT "I;: I;: U H"«, l3=0x18}
0x09b2…09ce Line {l1=0x1a, l2=»0750 MX:=3500/2;MY:=2300/2«, l3=0x1a}
0x09ce…09ea Line {l1=0x1a, l2=»0760 PRINT "U A";MX;",";MY«, l3=0x1a}
0x09ea…09fa Line {l1=0x0e, l2=»0770 PRINT "O"«, l3=0x0e}
0x09fa…0a11 Line {l1=0x15, l2=»0780 ENDPROC PLOTINIT«, l3=0x15}
0x0a11…0a25 Line {l1=0x12, l2=»0790 PROC PLOTSLUT«, l3=0x12}
0x0a25…0a39 Line {l1=0x12, l2=»0800 PRINT "U H @"«, l3=0x12}
0x0a39…0a50 Line {l1=0x15, l2=»0810 ENDPROC PLOTSLUT«, l3=0x15}
0x0a50…0a62 Line {l1=0x10, l2=»0820 PROC UDTEGN«, l3=0x10}
0x0a62…0a7b Line {l1=0x17, l2=»0830 SELECT OUTPUT "P2"«, l3=0x17}
0x0a7b…0aa2 Line {l1=0x25, l2=»0840 X:=C(1)+X7;Y:=C(2)+Y7;Z:=C(3)+Z7«, l3=0x25}
0x0aa2…0ab7 Line {l1=0x13, l2=»0850 EXEC TRANSFORM«, l3=0x13}
0x0ab7…0af9 Line {l1=0x40, l2=»0860 IF NOT (X2>3500-MX OR X2<-MX OR Y2>2300-MY OR Y2<-MY) THEN «, l3=0x40}
0x0af9…0b0f Line {l1=0x14, l2=»0870 IF C(4)=1 THEN «, l3=0x14}
0x0b0f…0b2e Line {l1=0x1d, l2=»0880 PRINT "D A L0";X2;",";Y2«, l3=0x1d}
0x0b2e…0b3a Line {l1=0x0a, l2=»0890 ELSE «, l3=0x0a}
0x0b3a…0b56 Line {l1=0x1a, l2=»0900 PRINT "U A";X2;",";Y2«, l3=0x1a}
0x0b56…0b63 Line {l1=0x0b, l2=»0910 ENDIF «, l3=0x0b}
0x0b63…0b70 Line {l1=0x0b, l2=»0920 ENDIF «, l3=0x0b}
0x0b70…0b88 Line {l1=0x16, l2=»0930 SELECT OUTPUT "T"«, l3=0x16}
0x0b88…0ba0 Line {l1=0x16, l2=»0940 ENDPROC TEGNSTREG«, l3=0x16}
0x0ba0…0bb5 Line {l1=0x13, l2=»0950 PROC TRANSFORM«, l3=0x13}
0x0bb5…0bdb Line {l1=0x24, l2=»0960 X1:=X8*(-X*C1+Y*S1+X9*C1-Y9*S1)«, l3=0x24}
0x0bdb…0c18 Line {l1=0x3b, l2=»0970 Y1:=Y8*(-X*S1*S2-Y*S2*C2+Z*C2-Z9*C2+X9*S1*S2+Y9*S2*C2)«, l3=0x3b}
0x0c18…0c55 Line {l1=0x3b, l2=»0980 Z1:=Z8*(-X*S1*C2-Y*C1*C2-Z*S2+Z9*S2+X9*S1*C2+Y9*C1*C2)«, l3=0x3b}
0x0c55…0c6f Line {l1=0x18, l2=»0990 X2:=INT(1000*X1/Z1)«, l3=0x18}
0x0c6f…0c89 Line {l1=0x18, l2=»1000 Y2:=INT(1000*Y1/Z1)«, l3=0x18}
0x0c89…0ca1 Line {l1=0x16, l2=»1010 ENDPROC TRANSFORM«, l3=0x16}
0x0ca1…0cb3 Line {l1=0x10, l2=»1020 PROC GLOBUS«, l3=0x10}
0x0cb3…0ce4 Line {l1=0x2f, l2=»1030 INPUT "ANTAL BREDDE OG LÆNGDEGRADER ?":B,L«, l3=0x2f}
0x0ce4…0d2d Line {l1=0x47, l2=»1040 PRINT "VENT ET ØJEBLIK - JEG SKAL LIGE ERKLÆRE ET PAR VARIABLER !"«, l3=0x47}
0x0d2d…0d45 Line {l1=0x16, l2=»1050 R:=50;TEL:=4;D:=L«, l3=0x16}
0x0d45…0d6d Line {l1=0x26, l2=»1060 FOR A:=0 TO PI-PI/D STEP PI/D DO «, l3=0x26}
0x0d6d…0d80 Line {l1=0x11, l2=»1070 R1:=SIN(A)*R«, l3=0x11}
0x0d80…0d98 Line {l1=0x16, l2=»1080 R2:=SIN(A+PI/D)*R«, l3=0x16}
0x0d98…0db0 Line {l1=0x16, l2=»1090 H1:=SIN(A+PI/2)*R«, l3=0x16}
0x0db0…0dcd Line {l1=0x1b, l2=»1100 H2:=SIN(A+PI/2+PI/D)*R«, l3=0x1b}
0x0dcd…0df2 Line {l1=0x23, l2=»1110 FOR S:=0 TO 2*PI STEP PI/B DO «, l3=0x23}
0x0df2…0e03 Line {l1=0x0f, l2=»1120 TEL:=TEL+3«, l3=0x0f}
0x0e03…0e1d Line {l1=0x18, l2=»1130 X:=COS(S);Y:=SIN(S)«, l3=0x18}
0x0e1d…0e35 Line {l1=0x16, l2=»1140 X1:=X*R1;Y1:=Y*R1«, l3=0x16}
0x0e35…0e5e Line {l1=0x27, l2=»1150 C(1):=X1;C(2):=Y1;C(3):=H1;C(4):=0«, l3=0x27}
0x0e5e…0e76 Line {l1=0x16, l2=»1160 X2:=X*R2;Y2:=Y*R2«, l3=0x16}
0x0e76…0eb7 Line {l1=0x3f, l2=»1170 C(TEL+1,1):=X2;C(TEL+1,2):=Y2;C(TEL+1,3):=H2;C(TEL+1,4):=1«, l3=0x3f}
0x0eb7…0ed0 Line {l1=0x17, l2=»1180 X3:=COS(S+PI/B)*R2«, l3=0x17}
0x0ed0…0ee9 Line {l1=0x17, l2=»1190 Y3:=SIN(S+PI/B)*R2«, l3=0x17}
0x0ee9…0f24 Line {l1=0x39, l2=»1200 C(1):=X3;C(TEL+2,2):=Y3;C(TEL+2,3):=H2;C(TEL+2,4):=1«, l3=0x39}
0x0f24…0f31 Line {l1=0x0b, l2=»1210 NEXT S«, l3=0x0b}
0x0f31…0f3e Line {l1=0x0b, l2=»1220 NEXT A«, l3=0x0b}
0x0f3e…0f53 Line {l1=0x13, l2=»1230 ENDPROC GLOBUS«, l3=0x13}
0x0f53…0f64 Line {l1=0x0f, l2=»1240 PROC ORIGO«, l3=0x0f}
0x0f64…0f8a Line {l1=0x24, l2=»1250 INPUT "AKSERNES LÆNGDE ? ":LÆN«, l3=0x24}
0x0f8a…0f9b Line {l1=0x0f, l2=»1260 LÆN:=LÆN/2«, l3=0x0f}
0x0f9b…0fca Line {l1=0x2d, l2=»1270 // C(1,1)=LÆN;C(1,2)=0;C(1,3)=0;C(1,4)=0«, l3=0x2d}
0x0fca…0ffa Line {l1=0x2e, l2=»1280 // C(2,1)=-LÆN;C(2,2)=0;C(2,3)=0;C(2,4)=1«, l3=0x2e}
0x0ffa…1029 Line {l1=0x2d, l2=»1290 // C(3,1)=0;C(3,2)=LÆN;C(3,3)=0;C(3,4)=0«, l3=0x2d}
0x1029…1059 Line {l1=0x2e, l2=»1300 // C(4,1)=0;C(4,2)=-LÆN;C(4,3)=0;C(4,4)=1«, l3=0x2e}
0x1059…1088 Line {l1=0x2d, l2=»1310 // C(5,1)=0;C(5,2)=0;C(5,3)=LÆN;C(5,4)=0«, l3=0x2d}
0x1088…10b8 Line {l1=0x2e, l2=»1320 // C(6,1)=0;C(6,2)=0;C(6,3)=-LÆN;C(6,4)=1«, l3=0x2e}
0x10b8…10c8 Line {l1=0x0e, l2=»1330 ENDPROC S«, l3=0x0e}
0x10c8…10db Line {l1=0x11, l2=»1340 PROC DEFINER«, l3=0x11}
0x10db…10e9 Line {l1=0x0c, l2=»1350 REPEAT «, l3=0x0c}
0x10e9…10f6 Line {l1=0x0b, l2=»1360 CLEAR «, l3=0x0b}
0x10f6…111b Line {l1=0x23, l2=»1370 PRINT "HVILKEN FIGUR ØNSKES ?"«, l3=0x23}
0x111b…1128 Line {l1=0x0b, l2=»1380 PRINT «, l3=0x0b}
0x1128…115f Line {l1=0x35, l2=»1390 PRINT "1=STREG","2=FLADE","3=KASSE","4=PYRAMIDE"«, l3=0x35}
0x115f…1181 Line {l1=0x20, l2=»1400 PRINT "5=CIRKEL","6=GLOBUS"«, l3=0x20}
0x1181…1193 Line {l1=0x10, l2=»1410 INPUT SVAR$«, l3=0x10}
0x1193…11b9 Line {l1=0x24, l2=»1420 IF SVAR$="1" THEN EXEC DEFSTREG«, l3=0x24}
0x11b9…11df Line {l1=0x24, l2=»1430 IF SVAR$="2" THEN EXEC DEFFLADE«, l3=0x24}
0x11df…1205 Line {l1=0x24, l2=»1440 IF SVAR$="3" THEN EXEC DEFKASSE«, l3=0x24}
0x1205…122e Line {l1=0x27, l2=»1450 IF SVAR$="4" THEN EXEC DEFPYRAMIDE«, l3=0x27}
0x122e…1255 Line {l1=0x25, l2=»1460 IF SVAR$="5" THEN EXEC DEFCIRKEL«, l3=0x25}
0x1255…127c Line {l1=0x25, l2=»1470 IF SVAR$="6" THEN EXEC DEFGLOBUS«, l3=0x25}
0x127c…1298 Line {l1=0x1a, l2=»1480 INPUT "IGEN ? ":SVAR$«, l3=0x1a}
0x1298…12ae Line {l1=0x14, l2=»1490 UNTIL SVAR$="N"«, l3=0x14}
0x12ae…12c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x12c0…12e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x7…]