|
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«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »SKOPI.K«
0100DIM A$(V),DREVFRA$(G),DREVTIL$(G),TYPE$(E),K1$(17),PL1$(V),PL2$(V) 0110DIM K$(32,11),NAVNFRA$(8),FN$(33,8),TN$(33,8),NAVNTIL$(8) 0120DIM J2$(E),J3$(E),J4$(5),R$(G),FN1$(33,8),TN1$(33,8) 0130PROC COPY 0140FLAG=B 0150CALL "P641210:CFCOPY" 0160IF FLAG=B THEN J1=J1+E 0170ENDPROC 0180PROC TKOPI(J9,FNV,TNV) 0190FOR I=E TO J9 0200NAVNFRA$=FNV$(I);NAVNTIL$=TNV$(I) 0210CURSOR 15,23 0220PRINT NAVNFRA$;" kopieres " 0230EXEC COPY 0240IF FLAG THEN EXIT 0250NEXT I 0260ENDPROC 0270PROC FEJL(NR1,NR2,NR3) 0280IF STATUS(NR3$)<>B THEN 0290PRINT STATUS(NR3$),NR1,NR2,NR3$ 0300STOP 0310ENDIF 0320ENDPROC 0330PROC FO(J9,FNV,TNV) 0340J9=J9+E;FNV$(J9)=K$(I,4:LEN(K$(I))-V);TNV$(J9)=FNV$(J9) 0350IF PL1$(G)<>"0" THEN FNV$(J9)=FNV$(J9)+PL1$(G) 0360IF PL2$(G)<>"0" THEN TNV$(J9)=TNV$(J9)+PL2$(G) 0370ENDPROC 0380PROC NRTEST(NUM1) 0390P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 0400IF L>6 THEN EXIT 0410CASE L OF 0420FOR I=E TO L 0430P1=INT(ORD(NUM1$(I))-48) 0440IF P1<B OR P1>W THEN TEST2=E 0450P=P*10+P1 0460NEXT I 0470KTAL=P DIV 10000 0480WHEN B 0490P=-E 0500WHEN E 0510CASE NUM1$ OF 0520P=INT(ORD(NUM1$)-48) 0530WHEN "j","J" 0540P=-7 0550WHEN "n","N" 0560P=-8 0570ENDCASE 0580ENDCASE 0590ENDPROC 0600PROC IND(X,PL) 0610CURSOR 15,X 0620PRINT "Isæt plade nr ";PL$;" i løbeværket og tast RETURN"; 0630INPUT " ",A$ 0640ENDPROC 0650K1$="P641220:SYSTEM1" 0660OPEN K1$,R 0670EXEC FEJL(W,E,K1$) 0680FOR I=E TO 32 0690GET K1$,I+10:K$(I) 0700EXEC FEJL(W,G,K1$) 0710NEXT I 0720CLOSE K1$ 0730EXEC FEJL(W,V,K1$) 0740DREVFRA$="P2";DREVTIL$="P3";TYPE$="K" 0750REPEAT 0760REPEAT 0770OUTPUT T 0780CLEAR 0790CURSOR 20,E 0800PRINT "Sikkerhedskopiering" 0810CURSOR 15,4 0820PRINT "Det gælder nu om at udvise stor omhyggelighed" 0830CURSOR 15,5 0840INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$ 0850CURSOR 15,6 0860INPUT "Fjern evt. plade fra løbeværket(nr. 3) og tast RETURN",A$ 0870REPEAT 0880CURSOR 15,8 0890INPUT "Hvilken plade ønskes kopieret (14-23, 0:for færdig) ",PL1$ 0900EXEC NRTEST(PL1$) 0910P2=P DIV 10;P4=P MOD 10;FP=P 0920UNTIL (P=B OR (P>16 AND P<24)) AND TEST2=B 0930DREVFRA$="P3";DREVTIL$="P2";TP=20;PL2$="20";P3=P2;P5=B 0940IF P4=8 OR P4=W THEN P5=7 0950IF P=17 OR P=20 THEN DREVFRA$="P2";DREVTIL$="P3" 0960IF P=B THEN EXIT 0970IF DREVFRA$="P3" THEN 0980EXEC IND(10,PL1$) 0990ELSE 1000REPEAT 1010CURSOR 15,12 1020INPUT "Hvilken plade ønskes kopieret til (14-23) ",PL2$ 1030EXEC NRTEST(PL2$) 1040P3=P DIV 10;P5=P MOD 10;TP=P 1050UNTIL (P>16 AND P<24) AND TEST2=B 1060EXEC IND(14,PL2$) 1070ENDIF 1080REPEAT 1090CURSOR 15,16 1100PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$; 1110INPUT " (J/N)",A$ 1120EXEC NRTEST(A$) 1130UNTIL P=-7 OR P=-8 1140UNTIL P=-7 1150IF P=B THEN EXIT 1160J=B;FLAG=B;J1=B;H=B 1170IF P4<4 THEN 1180FOR I=E TO 32 1190EXEC FO(J,FN$,TN$) 1200NEXT I 1210ENDIF 1220IF P2=G THEN J=J+E;FN$(J)="SYSTEM1";TN$(J)=FN$(J) 1230CURSOR 15,18 1240CASE E OF 1250STOP 1260WHEN J=B AND P4<4 1270PRINT "Der er ingen data på plade nr ";PL1$; 1280INPUT " der kan kopieres,tast RETURN",A$ 1290WHEN P4<4 1300EXEC TKOPI(J,FN$,TN$) 1310WHEN TP=19 OR FP=19 OR TP=18 OR FP=18 OR TP=17 1320TN$(E)="VIRKKART";TN$(G)="LØNARTRG";TN$(V)="LØNMODRG" 1330TN$(4)="TRANSREG";TN$(5)="TÆLLEREG";TN$(6)="AKKREGNS" 1340TN$(7)="AKKTABEL";TN$(8)="AKKHOVED" 1350FOR I=E TO 8 1360FN$(I)=TN$(I);J2$=CHR(ORD(FN$(I,8))+P4-7) 1370J3$=CHR(ORD(TN$(I,8))+P5-7) 1380NAVNFRA$=FN$(I,E:7)+J2$;NAVNTIL$=TN$(I,E:7)+J3$ 1390CURSOR 15,23 1400PRINT NAVNFRA$;" kopieres " 1410EXEC COPY 1420IF FLAG THEN EXIT 1430NEXT I 1440ENDCASE 1450CASE FLAG OF 1460PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG 1470STOP 1480WHEN B 1490WHEN E 1500IF (J1=B AND P4>V) OR P4<4 THEN 1510PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller" 1520CURSOR 15,19 1530PRINT "Pladen indeholder ingen data" 1540ENDIF 1550WHEN V,14 1560PRINT "Pladen i løbeværk nr 3 er ikke den opgivne" 1570WHEN 40 1580PRINT "Et af løbeværkerne er ikke klar" 1590CURSOR 15,19 1600PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" 1610ENDCASE 1620CURSOR 15,21 1630INPUT "Ønskes ny kopiering (J/N)",A$ 1640EXEC NRTEST(A$) 1650UNTIL P=-8 1660CURSOR 15,23 1670INPUT "Tag pladen i drev nr.3 ud, og tast RETURN",A$ 1680CHAIN "P641210:OPSTART"
0x0000…0049 Line {l1=0x47, l2=»0100DIM A$(V),DREVFRA$(G),DREVTIL$(G),TYPE$(E),K1$(17),PL1$(V),PL2$(V) «, l3=0x47}
0x0049…0089 Line {l1=0x3e, l2=»0110DIM K$(32,11),NAVNFRA$(8),FN$(33,8),TN$(33,8),NAVNTIL$(8) «, l3=0x3e}
0x0089…00c4 Line {l1=0x39, l2=»0120DIM J2$(E),J3$(E),J4$(5),R$(G),FN1$(33,8),TN1$(33,8) «, l3=0x39}
0x00c4…00d4 Line {l1=0x0e, l2=»0130PROC COPY «, l3=0x0e}
0x00d4…00e1 Line {l1=0x0b, l2=»0140FLAG=B «, l3=0x0b}
0x00e1…00fd Line {l1=0x1a, l2=»0150CALL "P641210:CFCOPY" «, l3=0x1a}
0x00fd…011a Line {l1=0x1b, l2=»0160IF FLAG=B THEN J1=J1+E «, l3=0x1b}
0x011a…0129 Line {l1=0x0d, l2=»0170ENDPROC «, l3=0x0d}
0x0129…0146 Line {l1=0x1b, l2=»0180PROC TKOPI(J9,FNV,TNV) «, l3=0x1b}
0x0146…015a Line {l1=0x12, l2=»0190FOR I=E TO J9 «, l3=0x12}
0x015a…0182 Line {l1=0x26, l2=»0200NAVNFRA$=FNV$(I);NAVNTIL$=TNV$(I) «, l3=0x26}
0x0182…0195 Line {l1=0x11, l2=»0210CURSOR 15,23 «, l3=0x11}
0x0195…01ce Line {l1=0x37, l2=»0220PRINT NAVNFRA$;" kopieres " «, l3=0x37}
0x01ce…01de Line {l1=0x0e, l2=»0230EXEC COPY «, l3=0x0e}
0x01de…01f7 Line {l1=0x17, l2=»0240IF FLAG THEN EXIT «, l3=0x17}
0x01f7…0204 Line {l1=0x0b, l2=»0250NEXT I «, l3=0x0b}
0x0204…0213 Line {l1=0x0d, l2=»0260ENDPROC «, l3=0x0d}
0x0213…0230 Line {l1=0x1b, l2=»0270PROC FEJL(NR1,NR2,NR3) «, l3=0x1b}
0x0230…024f Line {l1=0x1d, l2=»0280IF STATUS(NR3$)<>B THEN «, l3=0x1d}
0x024f…0275 Line {l1=0x24, l2=»0290PRINT STATUS(NR3$),NR1,NR2,NR3$ «, l3=0x24}
0x0275…0281 Line {l1=0x0a, l2=»0300STOP «, l3=0x0a}
0x0281…028e Line {l1=0x0b, l2=»0310ENDIF «, l3=0x0b}
0x028e…029d Line {l1=0x0d, l2=»0320ENDPROC «, l3=0x0d}
0x029d…02b7 Line {l1=0x18, l2=»0330PROC FO(J9,FNV,TNV) «, l3=0x18}
0x02b7…02f5 Line {l1=0x3c, l2=»0340J9=J9+E;FNV$(J9)=K$(I,4:LEN(K$(I))-V);TNV$(J9)=FNV$(J9) «, l3=0x3c}
0x02f5…032a Line {l1=0x33, l2=»0350IF PL1$(G)<>"0" THEN FNV$(J9)=FNV$(J9)+PL1$(G) «, l3=0x33}
0x032a…035f Line {l1=0x33, l2=»0360IF PL2$(G)<>"0" THEN TNV$(J9)=TNV$(J9)+PL2$(G) «, l3=0x33}
0x035f…036e Line {l1=0x0d, l2=»0370ENDPROC «, l3=0x0d}
0x036e…0386 Line {l1=0x16, l2=»0380PROC NRTEST(NUM1) «, l3=0x16}
0x0386…03ac Line {l1=0x24, l2=»0390P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) «, l3=0x24}
0x03ac…03c4 Line {l1=0x16, l2=»0400IF L>6 THEN EXIT «, l3=0x16}
0x03c4…03d5 Line {l1=0x0f, l2=»0410CASE L OF «, l3=0x0f}
0x03d5…03e8 Line {l1=0x11, l2=»0420FOR I=E TO L «, l3=0x11}
0x03e8…0407 Line {l1=0x1d, l2=»0430P1=INT(ORD(NUM1$(I))-48) «, l3=0x1d}
0x0407…042a Line {l1=0x21, l2=»0440IF P1<B OR P1>W THEN TEST2=E «, l3=0x21}
0x042a…043a Line {l1=0x0e, l2=»0450P=P*10+P1 «, l3=0x0e}
0x043a…0447 Line {l1=0x0b, l2=»0460NEXT I «, l3=0x0b}
0x0447…045e Line {l1=0x15, l2=»0470KTAL=P DIV 10000 «, l3=0x15}
0x045e…046b Line {l1=0x0b, l2=»0480WHEN B «, l3=0x0b}
0x046b…0476 Line {l1=0x09, l2=»0490P=-E «, l3=0x09}
0x0476…0483 Line {l1=0x0b, l2=»0500WHEN E «, l3=0x0b}
0x0483…0498 Line {l1=0x13, l2=»0510CASE NUM1$ OF «, l3=0x13}
0x0498…04b3 Line {l1=0x19, l2=»0520P=INT(ORD(NUM1$)-48) «, l3=0x19}
0x04b3…04c6 Line {l1=0x11, l2=»0530WHEN "j","J" «, l3=0x11}
0x04c6…04d1 Line {l1=0x09, l2=»0540P=-7 «, l3=0x09}
0x04d1…04e4 Line {l1=0x11, l2=»0550WHEN "n","N" «, l3=0x11}
0x04e4…04ef Line {l1=0x09, l2=»0560P=-8 «, l3=0x09}
0x04ef…04fe Line {l1=0x0d, l2=»0570ENDCASE «, l3=0x0d}
0x04fe…050d Line {l1=0x0d, l2=»0580ENDCASE «, l3=0x0d}
0x050d…051c Line {l1=0x0d, l2=»0590ENDPROC «, l3=0x0d}
0x051c…0531 Line {l1=0x13, l2=»0600PROC IND(X,PL) «, l3=0x13}
0x0531…0543 Line {l1=0x10, l2=»0610CURSOR 15,X «, l3=0x10}
0x0543…0584 Line {l1=0x3f, l2=»0620PRINT "Isæt plade nr ";PL$;" i løbeværket og tast RETURN"; «, l3=0x3f}
0x0584…0597 Line {l1=0x11, l2=»0630INPUT " ",A$ «, l3=0x11}
0x0597…05a6 Line {l1=0x0d, l2=»0640ENDPROC «, l3=0x0d}
0x05a6…05c2 Line {l1=0x1a, l2=»0650K1$="P641220:SYSTEM1" «, l3=0x1a}
0x05c2…05d3 Line {l1=0x0f, l2=»0660OPEN K1$,R «, l3=0x0f}
0x05d3…05ec Line {l1=0x17, l2=»0670EXEC FEJL(W,E,K1$) «, l3=0x17}
0x05ec…0600 Line {l1=0x12, l2=»0680FOR I=E TO 32 «, l3=0x12}
0x0600…0619 Line {l1=0x17, l2=»0690GET K1$,I+10:K$(I) «, l3=0x17}
0x0619…0632 Line {l1=0x17, l2=»0700EXEC FEJL(W,G,K1$) «, l3=0x17}
0x0632…063f Line {l1=0x0b, l2=»0710NEXT I «, l3=0x0b}
0x063f…064f Line {l1=0x0e, l2=»0720CLOSE K1$ «, l3=0x0e}
0x064f…0668 Line {l1=0x17, l2=»0730EXEC FEJL(W,V,K1$) «, l3=0x17}
0x0668…0694 Line {l1=0x2a, l2=»0740DREVFRA$="P2";DREVTIL$="P3";TYPE$="K" «, l3=0x2a}
0x0694…06a2 Line {l1=0x0c, l2=»0750REPEAT «, l3=0x0c}
0x06a2…06b0 Line {l1=0x0c, l2=»0760REPEAT «, l3=0x0c}
0x06b0…06bf Line {l1=0x0d, l2=»0770OUTPUT T «, l3=0x0d}
0x06bf…06cc Line {l1=0x0b, l2=»0780CLEAR «, l3=0x0b}
0x06cc…06de Line {l1=0x10, l2=»0790CURSOR 20,E «, l3=0x10}
0x06de…0700 Line {l1=0x20, l2=»0800PRINT "Sikkerhedskopiering" «, l3=0x20}
0x0700…0712 Line {l1=0x10, l2=»0810CURSOR 15,4 «, l3=0x10}
0x0712…074e Line {l1=0x3a, l2=»0820PRINT "Det gælder nu om at udvise stor omhyggelighed" «, l3=0x3a}
0x074e…0760 Line {l1=0x10, l2=»0830CURSOR 15,5 «, l3=0x10}
0x0760…079d Line {l1=0x3b, l2=»0840INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$ «, l3=0x3b}
0x079d…07af Line {l1=0x10, l2=»0850CURSOR 15,6 «, l3=0x10}
0x07af…07f6 Line {l1=0x45, l2=»0860INPUT "Fjern evt. plade fra løbeværket(nr. 3) og tast RETURN",A$ «, l3=0x45}
0x07f6…0804 Line {l1=0x0c, l2=»0870REPEAT «, l3=0x0c}
0x0804…0816 Line {l1=0x10, l2=»0880CURSOR 15,8 «, l3=0x10}
0x0816…085e Line {l1=0x46, l2=»0890INPUT "Hvilken plade ønskes kopieret (14-23, 0:for færdig) ",PL1$ «, l3=0x46}
0x085e…0876 Line {l1=0x16, l2=»0900EXEC NRTEST(PL1$) «, l3=0x16}
0x0876…0899 Line {l1=0x21, l2=»0910P2=P DIV 10;P4=P MOD 10;FP=P «, l3=0x21}
0x0899…08ca Line {l1=0x2f, l2=»0920UNTIL (P=B OR (P>16 AND P<24)) AND TEST2=B «, l3=0x2f}
0x08ca…0907 Line {l1=0x3b, l2=»0930DREVFRA$="P3";DREVTIL$="P2";TP=20;PL2$="20";P3=P2;P5=B «, l3=0x3b}
0x0907…0927 Line {l1=0x1e, l2=»0940IF P4=8 OR P4=W THEN P5=7 «, l3=0x1e}
0x0927…095e Line {l1=0x35, l2=»0950IF P=17 OR P=20 THEN DREVFRA$="P2";DREVTIL$="P3" «, l3=0x35}
0x095e…0976 Line {l1=0x16, l2=»0960IF P=B THEN EXIT «, l3=0x16}
0x0976…0993 Line {l1=0x1b, l2=»0970IF DREVFRA$="P3" THEN «, l3=0x1b}
0x0993…09ab Line {l1=0x16, l2=»0980EXEC IND(10,PL1$) «, l3=0x16}
0x09ab…09b7 Line {l1=0x0a, l2=»0990ELSE «, l3=0x0a}
0x09b7…09c5 Line {l1=0x0c, l2=»1000REPEAT «, l3=0x0c}
0x09c5…09d8 Line {l1=0x11, l2=»1010CURSOR 15,12 «, l3=0x11}
0x09d8…0a16 Line {l1=0x3c, l2=»1020INPUT "Hvilken plade ønskes kopieret til (14-23) ",PL2$ «, l3=0x3c}
0x0a16…0a2e Line {l1=0x16, l2=»1030EXEC NRTEST(PL2$) «, l3=0x16}
0x0a2e…0a51 Line {l1=0x21, l2=»1040P3=P DIV 10;P5=P MOD 10;TP=P «, l3=0x21}
0x0a51…0a79 Line {l1=0x26, l2=»1050UNTIL (P>16 AND P<24) AND TEST2=B «, l3=0x26}
0x0a79…0a91 Line {l1=0x16, l2=»1060EXEC IND(14,PL2$) «, l3=0x16}
0x0a91…0a9e Line {l1=0x0b, l2=»1070ENDIF «, l3=0x0b}
0x0a9e…0aac Line {l1=0x0c, l2=»1080REPEAT «, l3=0x0c}
0x0aac…0abf Line {l1=0x11, l2=»1090CURSOR 15,16 «, l3=0x11}
0x0abf…0b07 Line {l1=0x46, l2=»1100PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$; «, l3=0x46}
0x0b07…0b1f Line {l1=0x16, l2=»1110INPUT " (J/N)",A$ «, l3=0x16}
0x0b1f…0b35 Line {l1=0x14, l2=»1120EXEC NRTEST(A$) «, l3=0x14}
0x0b35…0b4e Line {l1=0x17, l2=»1130UNTIL P=-7 OR P=-8 «, l3=0x17}
0x0b4e…0b5f Line {l1=0x0f, l2=»1140UNTIL P=-7 «, l3=0x0f}
0x0b5f…0b77 Line {l1=0x16, l2=»1150IF P=B THEN EXIT «, l3=0x16}
0x0b77…0b91 Line {l1=0x18, l2=»1160J=B;FLAG=B;J1=B;H=B «, l3=0x18}
0x0b91…0ba5 Line {l1=0x12, l2=»1170IF P4<4 THEN «, l3=0x12}
0x0ba5…0bb9 Line {l1=0x12, l2=»1180FOR I=E TO 32 «, l3=0x12}
0x0bb9…0bd2 Line {l1=0x17, l2=»1190EXEC FO(J,FN$,TN$) «, l3=0x17}
0x0bd2…0bdf Line {l1=0x0b, l2=»1200NEXT I «, l3=0x0b}
0x0bdf…0bec Line {l1=0x0b, l2=»1210ENDIF «, l3=0x0b}
0x0bec…0c24 Line {l1=0x36, l2=»1220IF P2=G THEN J=J+E;FN$(J)="SYSTEM1";TN$(J)=FN$(J) «, l3=0x36}
0x0c24…0c37 Line {l1=0x11, l2=»1230CURSOR 15,18 «, l3=0x11}
0x0c37…0c48 Line {l1=0x0f, l2=»1240CASE E OF «, l3=0x0f}
0x0c48…0c54 Line {l1=0x0a, l2=»1250STOP «, l3=0x0a}
0x0c54…0c6c Line {l1=0x16, l2=»1260WHEN J=B AND P4<4 «, l3=0x16}
0x0c6c…0c9f Line {l1=0x31, l2=»1270PRINT "Der er ingen data på plade nr ";PL1$; «, l3=0x31}
0x0c9f…0cce Line {l1=0x2d, l2=»1280INPUT " der kan kopieres,tast RETURN",A$ «, l3=0x2d}
0x0cce…0cde Line {l1=0x0e, l2=»1290WHEN P4<4 «, l3=0x0e}
0x0cde…0cfa Line {l1=0x1a, l2=»1300EXEC TKOPI(J,FN$,TN$) «, l3=0x1a}
0x0cfa…0d2f Line {l1=0x33, l2=»1310WHEN TP=19 OR FP=19 OR TP=18 OR FP=18 OR TP=17 «, l3=0x33}
0x0d2f…0d6b Line {l1=0x3a, l2=»1320TN$(E)="VIRKKART";TN$(G)="LØNARTRG";TN$(V)="LØNMODRG" «, l3=0x3a}
0x0d6b…0da7 Line {l1=0x3a, l2=»1330TN$(4)="TRANSREG";TN$(5)="TÆLLEREG";TN$(6)="AKKREGNS" «, l3=0x3a}
0x0da7…0dd1 Line {l1=0x28, l2=»1340TN$(7)="AKKTABEL";TN$(8)="AKKHOVED" «, l3=0x28}
0x0dd1…0de4 Line {l1=0x11, l2=»1350FOR I=E TO 8 «, l3=0x11}
0x0de4…0e14 Line {l1=0x2e, l2=»1360FN$(I)=TN$(I);J2$=CHR(ORD(FN$(I,8))+P4-7) «, l3=0x2e}
0x0e14…0e36 Line {l1=0x20, l2=»1370J3$=CHR(ORD(TN$(I,8))+P5-7) «, l3=0x20}
0x0e36…0e6c Line {l1=0x34, l2=»1380NAVNFRA$=FN$(I,E:7)+J2$;NAVNTIL$=TN$(I,E:7)+J3$ «, l3=0x34}
0x0e6c…0e7f Line {l1=0x11, l2=»1390CURSOR 15,23 «, l3=0x11}
0x0e7f…0eb9 Line {l1=0x38, l2=»1400PRINT NAVNFRA$;" kopieres " «, l3=0x38}
0x0eb9…0ec9 Line {l1=0x0e, l2=»1410EXEC COPY «, l3=0x0e}
0x0ec9…0ee2 Line {l1=0x17, l2=»1420IF FLAG THEN EXIT «, l3=0x17}
0x0ee2…0eef Line {l1=0x0b, l2=»1430NEXT I «, l3=0x0b}
0x0eef…0efe Line {l1=0x0d, l2=»1440ENDCASE «, l3=0x0d}
0x0efe…0f12 Line {l1=0x12, l2=»1450CASE FLAG OF «, l3=0x12}
0x0f12…0f52 Line {l1=0x3e, l2=»1460PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG «, l3=0x3e}
0x0f52…0f5e Line {l1=0x0a, l2=»1470STOP «, l3=0x0a}
0x0f5e…0f6b Line {l1=0x0b, l2=»1480WHEN B «, l3=0x0b}
0x0f6b…0f78 Line {l1=0x0b, l2=»1490WHEN E «, l3=0x0b}
0x0f78…0f9f Line {l1=0x25, l2=»1500IF (J1=B AND P4>V) OR P4<4 THEN «, l3=0x25}
0x0f9f…0fde Line {l1=0x3d, l2=»1510PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller" «, l3=0x3d}
0x0fde…0ff1 Line {l1=0x11, l2=»1520CURSOR 15,19 «, l3=0x11}
0x0ff1…101c Line {l1=0x29, l2=»1530PRINT "Pladen indeholder ingen data" «, l3=0x29}
0x101c…1029 Line {l1=0x0b, l2=»1540ENDIF «, l3=0x0b}
0x1029…1039 Line {l1=0x0e, l2=»1550WHEN V,14 «, l3=0x0e}
0x1039…1072 Line {l1=0x37, l2=»1560PRINT "Pladen i løbeværk nr 3 er ikke den opgivne" «, l3=0x37}
0x1072…1080 Line {l1=0x0c, l2=»1570WHEN 40 «, l3=0x0c}
0x1080…10ae Line {l1=0x2c, l2=»1580PRINT "Et af løbeværkerne er ikke klar" «, l3=0x2c}
0x10ae…10c1 Line {l1=0x11, l2=»1590CURSOR 15,19 «, l3=0x11}
0x10c1…1107 Line {l1=0x44, l2=»1600PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" «, l3=0x44}
0x1107…1116 Line {l1=0x0d, l2=»1610ENDCASE «, l3=0x0d}
0x1116…1129 Line {l1=0x11, l2=»1620CURSOR 15,21 «, l3=0x11}
0x1129…1154 Line {l1=0x29, l2=»1630INPUT "Ønskes ny kopiering (J/N)",A$ «, l3=0x29}
0x1154…116a Line {l1=0x14, l2=»1640EXEC NRTEST(A$) «, l3=0x14}
0x116a…117b Line {l1=0x0f, l2=»1650UNTIL P=-8 «, l3=0x0f}
0x117b…118e Line {l1=0x11, l2=»1660CURSOR 15,23 «, l3=0x11}
0x118e…11c9 Line {l1=0x39, l2=»1670INPUT "Tag pladen i drev nr.3 ud, og tast RETURN",A$ «, l3=0x39}
0x11c9…11e7 Line {l1=0x1c, l2=»1680CHAIN "P641210:OPSTART" «, l3=0x1c}
0x11e7…1200 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 ┆ ┆
0x1200…1220 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 ┆ ┆
[…0xd…]