|
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: »PS0SLAG.K«
└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
└─⟦this⟧ »PS0SLAG.K«
0010 CLEAR 0020 DIM TOMSTRENG$(80) 0030 FOR I=1 TO 80 0040 TOMSTRENG$(I)=" " 0050 NEXT I 0060 DIM A(10,10),B(10,10),KURS$(1),SPILLER$(1) 0070 CURSOR 41,5 0080 PRINT "N" 0090 PRINT TAB(40),"!" 0100 PRINT TAB(36),"V-------0" 0110 PRINT TAB(40),"!" 0120 PRINT TAB(40),"S" 0130 CURSOR 5,12 0140 PRINT " 10 : : : : : : : : : : ",TAB(31),"10 : : : : : : : : : : " 0150 FOR X=9 TO 1 STEP -1 0160 CURSOR 6,22-X 0170 PRINT USING "## : : : : : : : : : : ## : : : : : : : : : :":X,X 0180 NEXT X 0190 PRINT TAB(8),"1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10" 0200 PRINT TAB(26),"0",TAB(56),"0" 0210 A1=7 0220 A2=14 0230 B1=37 0240 B2=14 0250 FOR X=1 TO 10 0260 FOR Y=1 TO 10 0270 A(X,Y)=1 0280 B(X,Y)=1 0290 NEXT Y 0300 NEXT X 0310 FOR I=1 TO 2 0320 PRINT TOMSTRENG$ 0330 NEXT I 0350 SPILLER$="A" 0360 PRINT "SPILLER A PLACERER SIN FLAADE" 0365 CURSOR 1,20 0370 EXEC INDLAES(SPILLER$) 0380 EXEC BLANK(18,23) 0400 SPILLER$="B" 0410 PRINT "SPILLER B PLACERER SIN FLAADE" 0415 CURSOR 1,20 0420 EXEC INDLAES(SPILLER$) 0430 EXEC BLANK(18,23) 0440 CURSOR 1,20 0450 TOTALA=12 0460 TOTALB=12 0470 WHILE (TOTALA>0) AND (TOTALB>0) DO 0480 CASE SPILLER$ OF 0490 WHEN "A" 0500 CURSOR 1,18 0510 INPUT "A SKAL SKYDE X Y ?",X,Y 0515 IF (X>10) OR (Y>10) THEN GO TO 0510 0520 CURSOR A1+2*X,A2-Y 0530 B(X,Y)=B(X,Y)+1 0540 SPILLER$="B" 0550 CASE B(X,Y) OF 0560 WHEN 2 0570 PRINT "O" 0580 WHEN 3,4,5,6 0590 PRINT "*" 0600 TOTALB=TOTALB-1 0610 ENDCASE 0620 WHEN "B" 0630 CURSOR 1,18 0640 INPUT "B SKAL SKYDE X Y ?",X,Y 0650 CURSOR B1+2*X,B2-Y 0660 A(X,Y)=A(X,Y)+1 0670 SPILLER$="A" 0680 CASE A(X,Y) OF 0690 WHEN 2 0700 PRINT "O" 0710 WHEN 3,4,5,6 0720 PRINT "*" 0730 TOTALA=TOTALA-1 0740 ENDCASE 0750 ENDCASE 0760 ENDWHILE 0765 CURSOR 1,22 0770 IF TOTALA=0 THEN PRINT " A HAR TABT B ER S0HELT " 0780 ELSE 0790 PRINT " B HAR TABT A ER S0HELT" 0800 ENDIF 0810 PROC PLOT(J,X2,Y2,K,W) 0820 R=J+2 0830 W(X2,Y2)=R 0840 CASE J OF 0850 WHEN 1 0860 W(X2+1,Y2)=R 0870 W(X2-1,Y2)=R 0880 W(X2,Y2+1)=R 0890 W(X2,Y2-1)=R 0900 CASE K$ OF 0910 PRINT "DER ER INGEN KURS",K$ 0920 WHEN "N" 0930 W(X2,Y2+2)=R 0940 WHEN "S" 0950 W(X2,Y2-2)=R 0960 WHEN "0" 0970 W(X2-2,Y2)=R 0980 WHEN "V" 0990 W(X2+2,Y2)=R 1000 ENDCASE 1010 WHEN 2 1020 CASE K$ OF 1030 WHEN "N" 1040 W(X2,Y2-1)=R 1050 W(X2,Y2-2)=R 1060 WHEN "S" 1070 W(X2,Y2+1)=R 1080 W(X2,Y2+2)=R 1090 WHEN "0" 1100 W(X2-1,Y2)=R 1110 W(X2-2,Y2)=R 1120 WHEN "V" 1130 W(X2+1,Y2)=R 1140 W(X2+2,Y2)=R 1150 ENDCASE 1160 WHEN 3 1170 CASE K$ OF 1180 WHEN "N" 1190 W(X2,Y2-1)=R 1200 WHEN "S" 1210 W(X2,Y2+1)=R 1220 WHEN "0" 1230 W(X2-1,Y2)=R 1240 WHEN "V" 1250 W(X2+1,Y2)=R 1260 ENDCASE 1270 ENDCASE 1280 ENDPROC ;PLOT 1290 PROC BLANK(T,S) 1300 FOR I=T TO S 1310 CURSOR 1,I 1320 PRINT TOMSTRENG$ 1330 NEXT I 1340 ENDPROC ;BLANK 1350 PROC INDLAES(Q) 1360 FOR I=1 TO 4 1370 CASE I OF 1380 WHEN 1 1390 INPUT "HANGARSKIB :",X,Y 1400 WHEN 2 1410 INPUT "KRYDSER :",X,Y 1420 WHEN 3 1430 INPUT "DESTROYER :",X,Y 1440 WHEN 4 1450 INPUT "TORPEDOBAAD :",X,Y 1460 ENDCASE 1465 IF (X>10) OR (Y>10) THEN GO TO 1370 1470 INPUT "KURS ?",KURS$ 1480 CURSOR 1,20 1490 CASE Q$ OF 1500 WHEN "A" 1510 EXEC PLOT(I,X,Y,KURS$,A) 1520 WHEN "B" 1530 EXEC PLOT(I,X,Y,KURS$,B) 1540 ENDCASE 1550 NEXT I 1560 ENDPROC ;INDLAES 1570 STOP
0x0000…000d Line {l1=0x0b, l2=»0010 CLEAR «, l3=0x0b}
0x000d…0026 Line {l1=0x17, l2=»0020 DIM TOMSTRENG$(80)«, l3=0x17}
0x0026…003a Line {l1=0x12, l2=»0030 FOR I=1 TO 80«, l3=0x12}
0x003a…0052 Line {l1=0x16, l2=»0040 TOMSTRENG$(I)=" "«, l3=0x16}
0x0052…005f Line {l1=0x0b, l2=»0050 NEXT I«, l3=0x0b}
0x005f…0090 Line {l1=0x2f, l2=»0060 DIM A(10,10),B(10,10),KURS$(1),SPILLER$(1)«, l3=0x2f}
0x0090…00a2 Line {l1=0x10, l2=»0070 CURSOR 41,5«, l3=0x10}
0x00a2…00b2 Line {l1=0x0e, l2=»0080 PRINT "N"«, l3=0x0e}
0x00b2…00ca Line {l1=0x16, l2=»0090 PRINT TAB(40),"!"«, l3=0x16}
0x00ca…00ea Line {l1=0x1e, l2=»0100 PRINT TAB(36),"V-------0"«, l3=0x1e}
0x00ea…0102 Line {l1=0x16, l2=»0110 PRINT TAB(40),"!"«, l3=0x16}
0x0102…011a Line {l1=0x16, l2=»0120 PRINT TAB(40),"S"«, l3=0x16}
0x011a…012c Line {l1=0x10, l2=»0130 CURSOR 5,12«, l3=0x10}
0x012c…0175 Line {l1=0x47, l2=»0140 PRINT " 10 : : : : : : : : : : ",TAB(31),"10 : : : : : : : : : : "«, l3=0x47}
0x0175…0190 Line {l1=0x19, l2=»0150 FOR X=9 TO 1 STEP -1«, l3=0x19}
0x0190…01a4 Line {l1=0x12, l2=»0160 CURSOR 6,22-X«, l3=0x12}
0x01a4…01f1 Line {l1=0x4b, l2=»0170 PRINT USING "## : : : : : : : : : : ## : : : : : : : : : :":X,X«, l3=0x4b}
0x01f1…01fe Line {l1=0x0b, l2=»0180 NEXT X«, l3=0x0b}
0x01fe…0246 Line {l1=0x46, l2=»0190 PRINT TAB(8),"1 2 3 4 5 6 7 8 9 10 1 2 3 4 5 6 7 8 9 10"«, l3=0x46}
0x0246…026a Line {l1=0x22, l2=»0200 PRINT TAB(26),"0",TAB(56),"0"«, l3=0x22}
0x026a…0275 Line {l1=0x09, l2=»0210 A1=7«, l3=0x09}
0x0275…0281 Line {l1=0x0a, l2=»0220 A2=14«, l3=0x0a}
0x0281…028d Line {l1=0x0a, l2=»0230 B1=37«, l3=0x0a}
0x028d…0299 Line {l1=0x0a, l2=»0240 B2=14«, l3=0x0a}
0x0299…02ad Line {l1=0x12, l2=»0250 FOR X=1 TO 10«, l3=0x12}
0x02ad…02c1 Line {l1=0x12, l2=»0260 FOR Y=1 TO 10«, l3=0x12}
0x02c1…02d0 Line {l1=0x0d, l2=»0270 A(X,Y)=1«, l3=0x0d}
0x02d0…02df Line {l1=0x0d, l2=»0280 B(X,Y)=1«, l3=0x0d}
0x02df…02ec Line {l1=0x0b, l2=»0290 NEXT Y«, l3=0x0b}
0x02ec…02f9 Line {l1=0x0b, l2=»0300 NEXT X«, l3=0x0b}
0x02f9…030c Line {l1=0x11, l2=»0310 FOR I=1 TO 2«, l3=0x11}
0x030c…0323 Line {l1=0x15, l2=»0320 PRINT TOMSTRENG$«, l3=0x15}
0x0323…0330 Line {l1=0x0b, l2=»0330 NEXT I«, l3=0x0b}
0x0330…0343 Line {l1=0x11, l2=»0350 SPILLER$="A"«, l3=0x11}
0x0343…036f Line {l1=0x2a, l2=»0360 PRINT "SPILLER A PLACERER SIN FLAADE"«, l3=0x2a}
0x036f…0381 Line {l1=0x10, l2=»0365 CURSOR 1,20«, l3=0x10}
0x0381…039e Line {l1=0x1b, l2=»0370 EXEC INDLAES(SPILLER$)«, l3=0x1b}
0x039e…03b6 Line {l1=0x16, l2=»0380 EXEC BLANK(18,23)«, l3=0x16}
0x03b6…03c9 Line {l1=0x11, l2=»0400 SPILLER$="B"«, l3=0x11}
0x03c9…03f5 Line {l1=0x2a, l2=»0410 PRINT "SPILLER B PLACERER SIN FLAADE"«, l3=0x2a}
0x03f5…0407 Line {l1=0x10, l2=»0415 CURSOR 1,20«, l3=0x10}
0x0407…0424 Line {l1=0x1b, l2=»0420 EXEC INDLAES(SPILLER$)«, l3=0x1b}
0x0424…043c Line {l1=0x16, l2=»0430 EXEC BLANK(18,23)«, l3=0x16}
0x043c…044e Line {l1=0x10, l2=»0440 CURSOR 1,20«, l3=0x10}
0x044e…045e Line {l1=0x0e, l2=»0450 TOTALA=12«, l3=0x0e}
0x045e…046e Line {l1=0x0e, l2=»0460 TOTALB=12«, l3=0x0e}
0x046e…0498 Line {l1=0x28, l2=»0470 WHILE (TOTALA>0) AND (TOTALB>0) DO «, l3=0x28}
0x0498…04b0 Line {l1=0x16, l2=»0480 CASE SPILLER$ OF «, l3=0x16}
0x04b0…04bf Line {l1=0x0d, l2=»0490 WHEN "A"«, l3=0x0d}
0x04bf…04d1 Line {l1=0x10, l2=»0500 CURSOR 1,18«, l3=0x10}
0x04d1…04f8 Line {l1=0x25, l2=»0510 INPUT "A SKAL SKYDE X Y ?",X,Y«, l3=0x25}
0x04f8…0522 Line {l1=0x28, l2=»0515 IF (X>10) OR (Y>10) THEN GO TO 0510«, l3=0x28}
0x0522…053b Line {l1=0x17, l2=»0520 CURSOR A1+2*X,A2-Y«, l3=0x17}
0x053b…0551 Line {l1=0x14, l2=»0530 B(X,Y)=B(X,Y)+1«, l3=0x14}
0x0551…0564 Line {l1=0x11, l2=»0540 SPILLER$="B"«, l3=0x11}
0x0564…057a Line {l1=0x14, l2=»0550 CASE B(X,Y) OF «, l3=0x14}
0x057a…0587 Line {l1=0x0b, l2=»0560 WHEN 2«, l3=0x0b}
0x0587…0597 Line {l1=0x0e, l2=»0570 PRINT "O"«, l3=0x0e}
0x0597…05aa Line {l1=0x11, l2=»0580 WHEN 3,4,5,6«, l3=0x11}
0x05aa…05ba Line {l1=0x0e, l2=»0590 PRINT "*"«, l3=0x0e}
0x05ba…05d0 Line {l1=0x14, l2=»0600 TOTALB=TOTALB-1«, l3=0x14}
0x05d0…05df Line {l1=0x0d, l2=»0610 ENDCASE «, l3=0x0d}
0x05df…05ee Line {l1=0x0d, l2=»0620 WHEN "B"«, l3=0x0d}
0x05ee…0600 Line {l1=0x10, l2=»0630 CURSOR 1,18«, l3=0x10}
0x0600…0627 Line {l1=0x25, l2=»0640 INPUT "B SKAL SKYDE X Y ?",X,Y«, l3=0x25}
0x0627…0640 Line {l1=0x17, l2=»0650 CURSOR B1+2*X,B2-Y«, l3=0x17}
0x0640…0656 Line {l1=0x14, l2=»0660 A(X,Y)=A(X,Y)+1«, l3=0x14}
0x0656…0669 Line {l1=0x11, l2=»0670 SPILLER$="A"«, l3=0x11}
0x0669…067f Line {l1=0x14, l2=»0680 CASE A(X,Y) OF «, l3=0x14}
0x067f…068c Line {l1=0x0b, l2=»0690 WHEN 2«, l3=0x0b}
0x068c…069c Line {l1=0x0e, l2=»0700 PRINT "O"«, l3=0x0e}
0x069c…06af Line {l1=0x11, l2=»0710 WHEN 3,4,5,6«, l3=0x11}
0x06af…06bf Line {l1=0x0e, l2=»0720 PRINT "*"«, l3=0x0e}
0x06bf…06d5 Line {l1=0x14, l2=»0730 TOTALA=TOTALA-1«, l3=0x14}
0x06d5…06e4 Line {l1=0x0d, l2=»0740 ENDCASE «, l3=0x0d}
0x06e4…06f3 Line {l1=0x0d, l2=»0750 ENDCASE «, l3=0x0d}
0x06f3…0703 Line {l1=0x0e, l2=»0760 ENDWHILE «, l3=0x0e}
0x0703…0715 Line {l1=0x10, l2=»0765 CURSOR 1,22«, l3=0x10}
0x0715…074f Line {l1=0x38, l2=»0770 IF TOTALA=0 THEN PRINT " A HAR TABT B ER S0HELT "«, l3=0x38}
0x074f…075b Line {l1=0x0a, l2=»0780 ELSE «, l3=0x0a}
0x075b…0783 Line {l1=0x26, l2=»0790 PRINT " B HAR TABT A ER S0HELT"«, l3=0x26}
0x0783…0790 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x0790…07ad Line {l1=0x1b, l2=»0810 PROC PLOT(J,X2,Y2,K,W)«, l3=0x1b}
0x07ad…07b9 Line {l1=0x0a, l2=»0820 R=J+2«, l3=0x0a}
0x07b9…07ca Line {l1=0x0f, l2=»0830 W(X2,Y2)=R«, l3=0x0f}
0x07ca…07db Line {l1=0x0f, l2=»0840 CASE J OF «, l3=0x0f}
0x07db…07e8 Line {l1=0x0b, l2=»0850 WHEN 1«, l3=0x0b}
0x07e8…07fb Line {l1=0x11, l2=»0860 W(X2+1,Y2)=R«, l3=0x11}
0x07fb…080e Line {l1=0x11, l2=»0870 W(X2-1,Y2)=R«, l3=0x11}
0x080e…0821 Line {l1=0x11, l2=»0880 W(X2,Y2+1)=R«, l3=0x11}
0x0821…0834 Line {l1=0x11, l2=»0890 W(X2,Y2-1)=R«, l3=0x11}
0x0834…0846 Line {l1=0x10, l2=»0900 CASE K$ OF «, l3=0x10}
0x0846…0869 Line {l1=0x21, l2=»0910 PRINT "DER ER INGEN KURS",K$«, l3=0x21}
0x0869…0878 Line {l1=0x0d, l2=»0920 WHEN "N"«, l3=0x0d}
0x0878…088b Line {l1=0x11, l2=»0930 W(X2,Y2+2)=R«, l3=0x11}
0x088b…089a Line {l1=0x0d, l2=»0940 WHEN "S"«, l3=0x0d}
0x089a…08ad Line {l1=0x11, l2=»0950 W(X2,Y2-2)=R«, l3=0x11}
0x08ad…08bc Line {l1=0x0d, l2=»0960 WHEN "0"«, l3=0x0d}
0x08bc…08cf Line {l1=0x11, l2=»0970 W(X2-2,Y2)=R«, l3=0x11}
0x08cf…08de Line {l1=0x0d, l2=»0980 WHEN "V"«, l3=0x0d}
0x08de…08f1 Line {l1=0x11, l2=»0990 W(X2+2,Y2)=R«, l3=0x11}
0x08f1…0900 Line {l1=0x0d, l2=»1000 ENDCASE «, l3=0x0d}
0x0900…090d Line {l1=0x0b, l2=»1010 WHEN 2«, l3=0x0b}
0x090d…091f Line {l1=0x10, l2=»1020 CASE K$ OF «, l3=0x10}
0x091f…092e Line {l1=0x0d, l2=»1030 WHEN "N"«, l3=0x0d}
0x092e…0941 Line {l1=0x11, l2=»1040 W(X2,Y2-1)=R«, l3=0x11}
0x0941…0954 Line {l1=0x11, l2=»1050 W(X2,Y2-2)=R«, l3=0x11}
0x0954…0963 Line {l1=0x0d, l2=»1060 WHEN "S"«, l3=0x0d}
0x0963…0976 Line {l1=0x11, l2=»1070 W(X2,Y2+1)=R«, l3=0x11}
0x0976…0989 Line {l1=0x11, l2=»1080 W(X2,Y2+2)=R«, l3=0x11}
0x0989…0998 Line {l1=0x0d, l2=»1090 WHEN "0"«, l3=0x0d}
0x0998…09ab Line {l1=0x11, l2=»1100 W(X2-1,Y2)=R«, l3=0x11}
0x09ab…09be Line {l1=0x11, l2=»1110 W(X2-2,Y2)=R«, l3=0x11}
0x09be…09cd Line {l1=0x0d, l2=»1120 WHEN "V"«, l3=0x0d}
0x09cd…09e0 Line {l1=0x11, l2=»1130 W(X2+1,Y2)=R«, l3=0x11}
0x09e0…09f3 Line {l1=0x11, l2=»1140 W(X2+2,Y2)=R«, l3=0x11}
0x09f3…0a02 Line {l1=0x0d, l2=»1150 ENDCASE «, l3=0x0d}
0x0a02…0a0f Line {l1=0x0b, l2=»1160 WHEN 3«, l3=0x0b}
0x0a0f…0a21 Line {l1=0x10, l2=»1170 CASE K$ OF «, l3=0x10}
0x0a21…0a30 Line {l1=0x0d, l2=»1180 WHEN "N"«, l3=0x0d}
0x0a30…0a43 Line {l1=0x11, l2=»1190 W(X2,Y2-1)=R«, l3=0x11}
0x0a43…0a52 Line {l1=0x0d, l2=»1200 WHEN "S"«, l3=0x0d}
0x0a52…0a65 Line {l1=0x11, l2=»1210 W(X2,Y2+1)=R«, l3=0x11}
0x0a65…0a74 Line {l1=0x0d, l2=»1220 WHEN "0"«, l3=0x0d}
0x0a74…0a87 Line {l1=0x11, l2=»1230 W(X2-1,Y2)=R«, l3=0x11}
0x0a87…0a96 Line {l1=0x0d, l2=»1240 WHEN "V"«, l3=0x0d}
0x0a96…0aa9 Line {l1=0x11, l2=»1250 W(X2+1,Y2)=R«, l3=0x11}
0x0aa9…0ab8 Line {l1=0x0d, l2=»1260 ENDCASE «, l3=0x0d}
0x0ab8…0ac7 Line {l1=0x0d, l2=»1270 ENDCASE «, l3=0x0d}
0x0ac7…0adb Line {l1=0x12, l2=»1280 ENDPROC ;PLOT«, l3=0x12}
0x0adb…0af1 Line {l1=0x14, l2=»1290 PROC BLANK(T,S)«, l3=0x14}
0x0af1…0b04 Line {l1=0x11, l2=»1300 FOR I=T TO S«, l3=0x11}
0x0b04…0b15 Line {l1=0x0f, l2=»1310 CURSOR 1,I«, l3=0x0f}
0x0b15…0b2c Line {l1=0x15, l2=»1320 PRINT TOMSTRENG$«, l3=0x15}
0x0b2c…0b39 Line {l1=0x0b, l2=»1330 NEXT I«, l3=0x0b}
0x0b39…0b4e Line {l1=0x13, l2=»1340 ENDPROC ;BLANK«, l3=0x13}
0x0b4e…0b64 Line {l1=0x14, l2=»1350 PROC INDLAES(Q)«, l3=0x14}
0x0b64…0b77 Line {l1=0x11, l2=»1360 FOR I=1 TO 4«, l3=0x11}
0x0b77…0b88 Line {l1=0x0f, l2=»1370 CASE I OF «, l3=0x0f}
0x0b88…0b95 Line {l1=0x0b, l2=»1380 WHEN 1«, l3=0x0b}
0x0b95…0bb7 Line {l1=0x20, l2=»1390 INPUT "HANGARSKIB :",X,Y«, l3=0x20}
0x0bb7…0bc4 Line {l1=0x0b, l2=»1400 WHEN 2«, l3=0x0b}
0x0bc4…0be6 Line {l1=0x20, l2=»1410 INPUT "KRYDSER :",X,Y«, l3=0x20}
0x0be6…0bf3 Line {l1=0x0b, l2=»1420 WHEN 3«, l3=0x0b}
0x0bf3…0c15 Line {l1=0x20, l2=»1430 INPUT "DESTROYER :",X,Y«, l3=0x20}
0x0c15…0c22 Line {l1=0x0b, l2=»1440 WHEN 4«, l3=0x0b}
0x0c22…0c44 Line {l1=0x20, l2=»1450 INPUT "TORPEDOBAAD :",X,Y«, l3=0x20}
0x0c44…0c53 Line {l1=0x0d, l2=»1460 ENDCASE «, l3=0x0d}
0x0c53…0c7d Line {l1=0x28, l2=»1465 IF (X>10) OR (Y>10) THEN GO TO 1370«, l3=0x28}
0x0c7d…0c98 Line {l1=0x19, l2=»1470 INPUT "KURS ?",KURS$«, l3=0x19}
0x0c98…0caa Line {l1=0x10, l2=»1480 CURSOR 1,20«, l3=0x10}
0x0caa…0cbc Line {l1=0x10, l2=»1490 CASE Q$ OF «, l3=0x10}
0x0cbc…0ccb Line {l1=0x0d, l2=»1500 WHEN "A"«, l3=0x0d}
0x0ccb…0cea Line {l1=0x1d, l2=»1510 EXEC PLOT(I,X,Y,KURS$,A)«, l3=0x1d}
0x0cea…0cf9 Line {l1=0x0d, l2=»1520 WHEN "B"«, l3=0x0d}
0x0cf9…0d18 Line {l1=0x1d, l2=»1530 EXEC PLOT(I,X,Y,KURS$,B)«, l3=0x1d}
0x0d18…0d27 Line {l1=0x0d, l2=»1540 ENDCASE «, l3=0x0d}
0x0d27…0d34 Line {l1=0x0b, l2=»1550 NEXT I«, l3=0x0b}
0x0d34…0d4b Line {l1=0x15, l2=»1560 ENDPROC ;INDLAES«, l3=0x15}
0x0d4b…0d57 Line {l1=0x0a, l2=»1570 STOP «, l3=0x0a}
0x0d57…0d60 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0d60…0d80 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 ┆ ┆
[…0x31…]
0x13a0…13c0 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 63 ┆ c┆