|
|
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: »SKOPI.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »SKOPI.K«
0100 DIM A$(3),DREVFRA$(2),DREVTIL$(2),TYPE$(1),K1$(17),PL1$(3),PL2$(3) 0110 DIM K$(26,11),NAVNFRA$(8),FRANAVN$(29,8),TILNAVN$(29,8),NAVNTIL$(8) 0120 PROC COPY 0130 FLAG=0 0140 CALL "P641215:CFCOPY" 0150 ENDPROC 0160 PROC FEJL(NR1,NR2,NR3) 0170 IF STATUS(NR3$)<>0 THEN 0180 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0190 STOP 0200 ENDIF 0210 ENDPROC 0220 PROC NRTEST(NUM1) 0230 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0240 IF L>6 THEN EXIT 0250 CASE L OF 0260 FOR I=1 TO L 0270 P1=INT(ORD(NUM1$(I))-48) 0280 IF P1<0 OR P1>9 THEN TEST2=1 0290 P=P*10+P1 0300 NEXT I 0310 KTAL=P DIV 10000 0320 WHEN 0 0330 P=-1 0340 WHEN 1 0350 CASE NUM1$ OF 0360 P=INT(ORD(NUM1$)-48) 0370 WHEN "d","D" 0380 P=-2 0390 WHEN "a","A" 0400 P=-3 0410 WHEN "m","M" 0420 P=-4 0430 WHEN "j","J" 0440 P=-7 0450 WHEN "n","N" 0460 P=-8 0470 ENDCASE 0480 ENDCASE 0490 ENDPROC 0500 K1$="P641220:SYSTEM1" 0510 OPEN K1$,R 0520 EXEC FEJL(9,1,K1$) 0530 FOR I=1 TO 26 0540 GET K1$,I+10:K$(I) 0550 EXEC FEJL(9,2,K1$) 0560 NEXT I 0570 CLOSE K1$ 0580 EXEC FEJL(9,3,K1$) 0590 DREVFRA$="P1";DREVTIL$="P2";TYPE$="K" 0600 REPEAT 0610 REPEAT 0620 OUTPUT T 0630 CLEAR 0640 CURSOR 20,1 0650 PRINT "Sikkerhedskopiering" 0660 CURSOR 15,4 0670 PRINT "Det gælder nu om at udvise stor omhyggelighed" 0680 CURSOR 15,5 0690 INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$ 0700 CURSOR 15,6 0710 INPUT "Fjern alle plader fra løbeværkerne og tast RETURN",A$ 0720 REPEAT 0730 CURSOR 15,8 0740 PRINT "Hvilken plade ønskes kopieret fra (10-33,0:færdig)" 0750 CURSOR 49,8 0760 INPUT PL1$ 0770 EXEC NRTEST(PL1$) 0780 UNTIL (P=0 OR (P MOD 10<4 AND P DIV 10>0 AND P DIV 10<4)) AND TEST2=0 0790 P2=P DIV 10 0800 IF P=0 THEN EXIT 0810 CURSOR 15,10 0820 PRINT "Isæt plade nr ";PL1$;" i løbeværk nr 1(øverst) og tast RETURN" 0830 CURSOR 70,10 0840 INPUT " ",A$ 0850 REPEAT 0860 CURSOR 15,12 0870 PRINT "Hvilken plade ønskes kopieret til (10-33)" 0880 CURSOR 49,12 0890 INPUT PL2$ 0900 EXEC NRTEST(PL2$) 0910 P3=P DIV 10 0920 UNTIL P MOD 10<4 AND P3>0 AND P3<4 AND TEST2=0 AND P3=P2 0930 CURSOR 15,14 0940 PRINT "Isæt plade nr ";PL2$;" i løbeværk nr 2 og tast RETURN" 0950 CURSOR 62,14 0960 INPUT " ",A$ 0970 REPEAT 0980 CURSOR 15,16 0990 PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$; 1000 PRINT " (J/N)" 1010 CURSOR 70,16 1020 INPUT A$ 1030 EXEC NRTEST(A$) 1040 UNTIL P=-7 OR P=-8 1050 UNTIL P=-7 1060 IF P=0 THEN EXIT 1070 J=0;FLAG=0 1080 FOR I=1 TO 26 1090 IF K$(I,1)=PL1$(1) THEN 1100 J=J+1 1110 FRANAVN$(J)=K$(I,4:LEN(K$(I))-3);TILNAVN$(J)=FRANAVN$(J) 1120 IF PL1$(2)<>"0" THEN FRANAVN$(J)=FRANAVN$(J)+PL1$(2) 1130 IF PL2$(2)<>"0" THEN TILNAVN$(J)=TILNAVN$(J)+PL2$(2) 1140 ENDIF 1150 NEXT I 1160 IF P2=2 THEN J=J+1;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J) 1210 CURSOR 15,18 1220 IF J=0 THEN 1230 PRINT "Der er ingen data på plade nr ";PL1$; 1240 PRINT " der kan kopieres,tast RETURN" 1250 CURSOR 76,18 1260 INPUT " ",A$ 1270 ELSE 1280 FOR I=1 TO J 1290 NAVNFRA$=FRANAVN$(I);NAVNTIL$=TILNAVN$(I) 1300 EXEC COPY 1310 IF FLAG THEN EXIT 1320 NEXT I 1330 CASE FLAG OF 1340 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG 1350 STOP 1360 WHEN 0 1370 WHEN 1 1380 PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller" 1390 CURSOR 15,19 1400 PRINT "Pladen indeholder ingen data" 1410 WHEN 3,14 1420 PRINT "Pladen i løbeværk nr 2 er ikke den opgivne" 1430 WHEN 40 1440 PRINT "Et af løbeværkerne er ikke klar" 1450 CURSOR 15,19 1460 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" 1470 ENDCASE 1480 ENDIF 1490 CURSOR 15,21 1500 INPUT "Ønskes ny kopiering (J/N)",A$ 1510 EXEC NRTEST(A$) 1520 UNTIL P=-8 1530 CURSOR 15,23 1540 INPUT "Kopieringen er afsluttet isæt plade 10,20 og 30, tast RETURN",A$ 1550 CHAIN "P641210:OPSTART"
0x0000…0049 Line {l1=0x47, l2=»0100 DIM A$(3),DREVFRA$(2),DREVTIL$(2),TYPE$(1),K1$(17),PL1$(3),PL2$(3)«, l3=0x47}
0x0049…0093 Line {l1=0x48, l2=»0110 DIM K$(26,11),NAVNFRA$(8),FRANAVN$(29,8),TILNAVN$(29,8),NAVNTIL$(8)«, l3=0x48}
0x0093…00a3 Line {l1=0x0e, l2=»0120 PROC COPY«, l3=0x0e}
0x00a3…00b0 Line {l1=0x0b, l2=»0130 FLAG=0«, l3=0x0b}
0x00b0…00cc Line {l1=0x1a, l2=»0140 CALL "P641215:CFCOPY"«, l3=0x1a}
0x00cc…00db Line {l1=0x0d, l2=»0150 ENDPROC «, l3=0x0d}
0x00db…00f8 Line {l1=0x1b, l2=»0160 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x00f8…0117 Line {l1=0x1d, l2=»0170 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x0117…013d Line {l1=0x24, l2=»0180 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x013d…0149 Line {l1=0x0a, l2=»0190 STOP «, l3=0x0a}
0x0149…0156 Line {l1=0x0b, l2=»0200 ENDIF «, l3=0x0b}
0x0156…0165 Line {l1=0x0d, l2=»0210 ENDPROC «, l3=0x0d}
0x0165…017d Line {l1=0x16, l2=»0220 PROC NRTEST(NUM1)«, l3=0x16}
0x017d…01a3 Line {l1=0x24, l2=»0230 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x01a3…01bb Line {l1=0x16, l2=»0240 IF L>6 THEN EXIT «, l3=0x16}
0x01bb…01cc Line {l1=0x0f, l2=»0250 CASE L OF «, l3=0x0f}
0x01cc…01df Line {l1=0x11, l2=»0260 FOR I=1 TO L«, l3=0x11}
0x01df…01fe Line {l1=0x1d, l2=»0270 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x01fe…0221 Line {l1=0x21, l2=»0280 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x0221…0231 Line {l1=0x0e, l2=»0290 P=P*10+P1«, l3=0x0e}
0x0231…023e Line {l1=0x0b, l2=»0300 NEXT I«, l3=0x0b}
0x023e…0255 Line {l1=0x15, l2=»0310 KTAL=P DIV 10000«, l3=0x15}
0x0255…0262 Line {l1=0x0b, l2=»0320 WHEN 0«, l3=0x0b}
0x0262…026d Line {l1=0x09, l2=»0330 P=-1«, l3=0x09}
0x026d…027a Line {l1=0x0b, l2=»0340 WHEN 1«, l3=0x0b}
0x027a…028f Line {l1=0x13, l2=»0350 CASE NUM1$ OF «, l3=0x13}
0x028f…02aa Line {l1=0x19, l2=»0360 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x02aa…02bd Line {l1=0x11, l2=»0370 WHEN "d","D"«, l3=0x11}
0x02bd…02c8 Line {l1=0x09, l2=»0380 P=-2«, l3=0x09}
0x02c8…02db Line {l1=0x11, l2=»0390 WHEN "a","A"«, l3=0x11}
0x02db…02e6 Line {l1=0x09, l2=»0400 P=-3«, l3=0x09}
0x02e6…02f9 Line {l1=0x11, l2=»0410 WHEN "m","M"«, l3=0x11}
0x02f9…0304 Line {l1=0x09, l2=»0420 P=-4«, l3=0x09}
0x0304…0317 Line {l1=0x11, l2=»0430 WHEN "j","J"«, l3=0x11}
0x0317…0322 Line {l1=0x09, l2=»0440 P=-7«, l3=0x09}
0x0322…0335 Line {l1=0x11, l2=»0450 WHEN "n","N"«, l3=0x11}
0x0335…0340 Line {l1=0x09, l2=»0460 P=-8«, l3=0x09}
0x0340…034f Line {l1=0x0d, l2=»0470 ENDCASE «, l3=0x0d}
0x034f…035e Line {l1=0x0d, l2=»0480 ENDCASE «, l3=0x0d}
0x035e…036d Line {l1=0x0d, l2=»0490 ENDPROC «, l3=0x0d}
0x036d…0389 Line {l1=0x1a, l2=»0500 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x0389…039a Line {l1=0x0f, l2=»0510 OPEN K1$,R«, l3=0x0f}
0x039a…03b3 Line {l1=0x17, l2=»0520 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x03b3…03c7 Line {l1=0x12, l2=»0530 FOR I=1 TO 26«, l3=0x12}
0x03c7…03e0 Line {l1=0x17, l2=»0540 GET K1$,I+10:K$(I)«, l3=0x17}
0x03e0…03f9 Line {l1=0x17, l2=»0550 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x03f9…0406 Line {l1=0x0b, l2=»0560 NEXT I«, l3=0x0b}
0x0406…0416 Line {l1=0x0e, l2=»0570 CLOSE K1$«, l3=0x0e}
0x0416…042f Line {l1=0x17, l2=»0580 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x042f…045b Line {l1=0x2a, l2=»0590 DREVFRA$="P1";DREVTIL$="P2";TYPE$="K"«, l3=0x2a}
0x045b…0469 Line {l1=0x0c, l2=»0600 REPEAT «, l3=0x0c}
0x0469…0477 Line {l1=0x0c, l2=»0610 REPEAT «, l3=0x0c}
0x0477…0486 Line {l1=0x0d, l2=»0620 OUTPUT T«, l3=0x0d}
0x0486…0493 Line {l1=0x0b, l2=»0630 CLEAR «, l3=0x0b}
0x0493…04a5 Line {l1=0x10, l2=»0640 CURSOR 20,1«, l3=0x10}
0x04a5…04c7 Line {l1=0x20, l2=»0650 PRINT "Sikkerhedskopiering"«, l3=0x20}
0x04c7…04d9 Line {l1=0x10, l2=»0660 CURSOR 15,4«, l3=0x10}
0x04d9…0515 Line {l1=0x3a, l2=»0670 PRINT "Det gælder nu om at udvise stor omhyggelighed"«, l3=0x3a}
0x0515…0527 Line {l1=0x10, l2=»0680 CURSOR 15,5«, l3=0x10}
0x0527…0564 Line {l1=0x3b, l2=»0690 INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$«, l3=0x3b}
0x0564…0576 Line {l1=0x10, l2=»0700 CURSOR 15,6«, l3=0x10}
0x0576…05b9 Line {l1=0x41, l2=»0710 INPUT "Fjern alle plader fra løbeværkerne og tast RETURN",A$«, l3=0x41}
0x05b9…05c7 Line {l1=0x0c, l2=»0720 REPEAT «, l3=0x0c}
0x05c7…05d9 Line {l1=0x10, l2=»0730 CURSOR 15,8«, l3=0x10}
0x05d9…061f Line {l1=0x44, l2=»0740 PRINT "Hvilken plade ønskes kopieret fra (10-33,0:færdig)"«, l3=0x44}
0x061f…0631 Line {l1=0x10, l2=»0750 CURSOR 49,8«, l3=0x10}
0x0631…0642 Line {l1=0x0f, l2=»0760 INPUT PL1$«, l3=0x0f}
0x0642…065a Line {l1=0x16, l2=»0770 EXEC NRTEST(PL1$)«, l3=0x16}
0x065a…06a6 Line {l1=0x4a, l2=»0780 UNTIL (P=0 OR (P MOD 10<4 AND P DIV 10>0 AND P DIV 10<4)) AND TEST2=0«, l3=0x4a}
0x06a6…06b8 Line {l1=0x10, l2=»0790 P2=P DIV 10«, l3=0x10}
0x06b8…06d0 Line {l1=0x16, l2=»0800 IF P=0 THEN EXIT «, l3=0x16}
0x06d0…06e3 Line {l1=0x11, l2=»0810 CURSOR 15,10«, l3=0x11}
0x06e3…072f Line {l1=0x4a, l2=»0820 PRINT "Isæt plade nr ";PL1$;" i løbeværk nr 1(øverst) og tast RETURN"«, l3=0x4a}
0x072f…0742 Line {l1=0x11, l2=»0830 CURSOR 70,10«, l3=0x11}
0x0742…0755 Line {l1=0x11, l2=»0840 INPUT " ",A$«, l3=0x11}
0x0755…0763 Line {l1=0x0c, l2=»0850 REPEAT «, l3=0x0c}
0x0763…0776 Line {l1=0x11, l2=»0860 CURSOR 15,12«, l3=0x11}
0x0776…07b3 Line {l1=0x3b, l2=»0870 PRINT "Hvilken plade ønskes kopieret til (10-33)"«, l3=0x3b}
0x07b3…07c6 Line {l1=0x11, l2=»0880 CURSOR 49,12«, l3=0x11}
0x07c6…07d7 Line {l1=0x0f, l2=»0890 INPUT PL2$«, l3=0x0f}
0x07d7…07ef Line {l1=0x16, l2=»0900 EXEC NRTEST(PL2$)«, l3=0x16}
0x07ef…0801 Line {l1=0x10, l2=»0910 P3=P DIV 10«, l3=0x10}
0x0801…0840 Line {l1=0x3d, l2=»0920 UNTIL P MOD 10<4 AND P3>0 AND P3<4 AND TEST2=0 AND P3=P2«, l3=0x3d}
0x0840…0853 Line {l1=0x11, l2=»0930 CURSOR 15,14«, l3=0x11}
0x0853…0897 Line {l1=0x42, l2=»0940 PRINT "Isæt plade nr ";PL2$;" i løbeværk nr 2 og tast RETURN"«, l3=0x42}
0x0897…08aa Line {l1=0x11, l2=»0950 CURSOR 62,14«, l3=0x11}
0x08aa…08bd Line {l1=0x11, l2=»0960 INPUT " ",A$«, l3=0x11}
0x08bd…08cb Line {l1=0x0c, l2=»0970 REPEAT «, l3=0x0c}
0x08cb…08de Line {l1=0x11, l2=»0980 CURSOR 15,16«, l3=0x11}
0x08de…0926 Line {l1=0x46, l2=»0990 PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$;«, l3=0x46}
0x0926…093b Line {l1=0x13, l2=»1000 PRINT " (J/N)"«, l3=0x13}
0x093b…094e Line {l1=0x11, l2=»1010 CURSOR 70,16«, l3=0x11}
0x094e…095d Line {l1=0x0d, l2=»1020 INPUT A$«, l3=0x0d}
0x095d…0973 Line {l1=0x14, l2=»1030 EXEC NRTEST(A$)«, l3=0x14}
0x0973…098c Line {l1=0x17, l2=»1040 UNTIL P=-7 OR P=-8«, l3=0x17}
0x098c…099d Line {l1=0x0f, l2=»1050 UNTIL P=-7«, l3=0x0f}
0x099d…09b5 Line {l1=0x16, l2=»1060 IF P=0 THEN EXIT «, l3=0x16}
0x09b5…09c6 Line {l1=0x0f, l2=»1070 J=0;FLAG=0«, l3=0x0f}
0x09c6…09da Line {l1=0x12, l2=»1080 FOR I=1 TO 26«, l3=0x12}
0x09da…09f9 Line {l1=0x1d, l2=»1090 IF K$(I,1)=PL1$(1) THEN «, l3=0x1d}
0x09f9…0a05 Line {l1=0x0a, l2=»1100 J=J+1«, l3=0x0a}
0x0a05…0a44 Line {l1=0x3d, l2=»1110 FRANAVN$(J)=K$(I,4:LEN(K$(I))-3);TILNAVN$(J)=FRANAVN$(J)«, l3=0x3d}
0x0a44…0a7f Line {l1=0x39, l2=»1120 IF PL1$(2)<>"0" THEN FRANAVN$(J)=FRANAVN$(J)+PL1$(2)«, l3=0x39}
0x0a7f…0aba Line {l1=0x39, l2=»1130 IF PL2$(2)<>"0" THEN TILNAVN$(J)=TILNAVN$(J)+PL2$(2)«, l3=0x39}
0x0aba…0ac7 Line {l1=0x0b, l2=»1140 ENDIF «, l3=0x0b}
0x0ac7…0ad4 Line {l1=0x0b, l2=»1150 NEXT I«, l3=0x0b}
0x0ad4…0b1b Line {l1=0x45, l2=»1160 IF P2=2 THEN J=J+1;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J)«, l3=0x45}
0x0b1b…0b2e Line {l1=0x11, l2=»1210 CURSOR 15,18«, l3=0x11}
0x0b2e…0b41 Line {l1=0x11, l2=»1220 IF J=0 THEN «, l3=0x11}
0x0b41…0b74 Line {l1=0x31, l2=»1230 PRINT "Der er ingen data på plade nr ";PL1$;«, l3=0x31}
0x0b74…0ba0 Line {l1=0x2a, l2=»1240 PRINT " der kan kopieres,tast RETURN"«, l3=0x2a}
0x0ba0…0bb3 Line {l1=0x11, l2=»1250 CURSOR 76,18«, l3=0x11}
0x0bb3…0bc6 Line {l1=0x11, l2=»1260 INPUT " ",A$«, l3=0x11}
0x0bc6…0bd2 Line {l1=0x0a, l2=»1270 ELSE «, l3=0x0a}
0x0bd2…0be5 Line {l1=0x11, l2=»1280 FOR I=1 TO J«, l3=0x11}
0x0be5…0c15 Line {l1=0x2e, l2=»1290 NAVNFRA$=FRANAVN$(I);NAVNTIL$=TILNAVN$(I)«, l3=0x2e}
0x0c15…0c25 Line {l1=0x0e, l2=»1300 EXEC COPY«, l3=0x0e}
0x0c25…0c3e Line {l1=0x17, l2=»1310 IF FLAG THEN EXIT «, l3=0x17}
0x0c3e…0c4b Line {l1=0x0b, l2=»1320 NEXT I«, l3=0x0b}
0x0c4b…0c5f Line {l1=0x12, l2=»1330 CASE FLAG OF «, l3=0x12}
0x0c5f…0c9f Line {l1=0x3e, l2=»1340 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG«, l3=0x3e}
0x0c9f…0cab Line {l1=0x0a, l2=»1350 STOP «, l3=0x0a}
0x0cab…0cb8 Line {l1=0x0b, l2=»1360 WHEN 0«, l3=0x0b}
0x0cb8…0cc5 Line {l1=0x0b, l2=»1370 WHEN 1«, l3=0x0b}
0x0cc5…0d04 Line {l1=0x3d, l2=»1380 PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller"«, l3=0x3d}
0x0d04…0d17 Line {l1=0x11, l2=»1390 CURSOR 15,19«, l3=0x11}
0x0d17…0d42 Line {l1=0x29, l2=»1400 PRINT "Pladen indeholder ingen data"«, l3=0x29}
0x0d42…0d52 Line {l1=0x0e, l2=»1410 WHEN 3,14«, l3=0x0e}
0x0d52…0d8b Line {l1=0x37, l2=»1420 PRINT "Pladen i løbeværk nr 2 er ikke den opgivne"«, l3=0x37}
0x0d8b…0d99 Line {l1=0x0c, l2=»1430 WHEN 40«, l3=0x0c}
0x0d99…0dc7 Line {l1=0x2c, l2=»1440 PRINT "Et af løbeværkerne er ikke klar"«, l3=0x2c}
0x0dc7…0dda Line {l1=0x11, l2=»1450 CURSOR 15,19«, l3=0x11}
0x0dda…0e20 Line {l1=0x44, l2=»1460 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert"«, l3=0x44}
0x0e20…0e2f Line {l1=0x0d, l2=»1470 ENDCASE «, l3=0x0d}
0x0e2f…0e3c Line {l1=0x0b, l2=»1480 ENDIF «, l3=0x0b}
0x0e3c…0e4f Line {l1=0x11, l2=»1490 CURSOR 15,21«, l3=0x11}
0x0e4f…0e7a Line {l1=0x29, l2=»1500 INPUT "Ønskes ny kopiering (J/N)",A$«, l3=0x29}
0x0e7a…0e90 Line {l1=0x14, l2=»1510 EXEC NRTEST(A$)«, l3=0x14}
0x0e90…0ea1 Line {l1=0x0f, l2=»1520 UNTIL P=-8«, l3=0x0f}
0x0ea1…0eb4 Line {l1=0x11, l2=»1530 CURSOR 15,23«, l3=0x11}
0x0eb4…0f02 Line {l1=0x4c, l2=»1540 INPUT "Kopieringen er afsluttet isæt plade 10,20 og 30, tast RETURN",A$«, l3=0x4c}
0x0f02…0f20 Line {l1=0x1c, l2=»1550 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x0f20…0f40 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x0f40…0f60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x23…]