|
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: 3968 (0xf80)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »SKOPI.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »SKOPI.B«
0100 DIM A$(V),DREVFRA$(G),DREVTIL$(G),TYPE$(E),K1$(17),PL1$(V),PL2$(V) 0110 DIM K$(32,11),NAVNFRA$(8),FN$(33,8),TN$(33,8),NAVNTIL$(8) 0120 DIM J2$(E),J3$(E),J4$(5),R$(G),FN1$(33,8),TN1$(33,8) 0130 PROC COPY 0140 FLAG=B 0150 CALL "P641210:CFCOPY" 0160 IF FLAG=B THEN J1=J1+E 0170 ENDPROC 0180 PROC TKOPI(J9,FNV,TNV) 0190 FOR I=E TO J9 0200 NAVNFRA$=FNV$(I);NAVNTIL$=TNV$(I) 0210 CURSOR 15,23 0220 PRINT NAVNFRA$;" kopieres " 0230 EXEC COPY 0240 IF FLAG THEN EXIT 0250 NEXT I 0260 ENDPROC 0270 PROC FEJL(NR1,NR2,NR3) 0280 IF STATUS(NR3$)<>B THEN 0290 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0300 STOP 0310 ENDIF 0320 ENDPROC 0330 PROC FO(J9,FNV,TNV) 0340 J9=J9+E;FNV$(J9)=K$(I,4:LEN(K$(I))-V);TNV$(J9)=FNV$(J9) 0350 IF PL1$(G)<>"0" THEN FNV$(J9)=FNV$(J9)+PL1$(G) 0360 IF PL2$(G)<>"0" THEN TNV$(J9)=TNV$(J9)+PL2$(G) 0370 ENDPROC 0380 PROC NRTEST(NUM1) 0390 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 0400 IF L>6 THEN EXIT 0410 CASE L OF 0420 FOR I=E TO L 0430 P1=INT(ORD(NUM1$(I))-48) 0440 IF P1<B OR P1>W THEN TEST2=E 0450 P=P*10+P1 0460 NEXT I 0470 KTAL=P DIV 10000 0480 WHEN B 0490 P=-E 0500 WHEN E 0510 CASE NUM1$ OF 0520 P=INT(ORD(NUM1$)-48) 0530 WHEN "j","J" 0540 P=-7 0550 WHEN "n","N" 0560 P=-8 0570 ENDCASE 0580 ENDCASE 0590 ENDPROC 0600 PROC IND(X,PL) 0610 CURSOR 15,X 0620 PRINT "Isæt plade nr ";PL$;" i løbeværket og tast RETURN"; 0630 INPUT " ",A$ 0640 ENDPROC 0650 K1$="P641220:SYSTEM1" 0660 OPEN K1$,R 0670 EXEC FEJL(W,E,K1$) 0680 FOR I=E TO 32 0690 GET K1$,I+10:K$(I) 0700 EXEC FEJL(W,G,K1$) 0710 NEXT I 0720 CLOSE K1$ 0730 EXEC FEJL(W,V,K1$) 0740 DREVFRA$="P2";DREVTIL$="P3";TYPE$="K" 0750 REPEAT 0760 REPEAT 0770 OUTPUT T 0780 CLEAR 0790 CURSOR 20,E 0800 PRINT "Sikkerhedskopiering" 0810 CURSOR 15,4 0820 PRINT "Det gælder nu om at udvise stor omhyggelighed" 0830 CURSOR 15,5 0840 INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$ 0850 CURSOR 15,6 0860 INPUT "Fjern evt. plade fra løbeværket(nr. 3) og tast RETURN",A$ 0870 REPEAT 0880 CURSOR 15,8 0890 INPUT "Hvilken plade ønskes kopieret (14-23, 0:for færdig) ",PL1$ 0900 EXEC NRTEST(PL1$) 0910 P2=P DIV 10;P4=P MOD 10;FP=P 0920 UNTIL (P=B OR (P>16 AND P<24)) AND TEST2=B 0930 DREVFRA$="P3";DREVTIL$="P2";TP=20;PL2$="20";P3=P2;P5=B 0940 IF P4=8 OR P4=W THEN P5=7 0950 IF P=17 OR P=20 THEN DREVFRA$="P2";DREVTIL$="P3" 0960 IF P=B THEN EXIT 0970 IF DREVFRA$="P3" THEN 0980 EXEC IND(10,PL1$) 0990 ELSE 1000 REPEAT 1010 CURSOR 15,12 1020 INPUT "Hvilken plade ønskes kopieret til (14-23) ",PL2$ 1030 EXEC NRTEST(PL2$) 1040 P3=P DIV 10;P5=P MOD 10;TP=P 1050 UNTIL (P>16 AND P<24) AND TEST2=B 1060 EXEC IND(14,PL2$) 1070 ENDIF 1080 REPEAT 1090 CURSOR 15,16 1100 PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$; 1110 INPUT " (J/N)",A$ 1120 EXEC NRTEST(A$) 1130 UNTIL P=-7 OR P=-8 1140 UNTIL P=-7 1150 IF P=B THEN EXIT 1160 J=B;FLAG=B;J1=B;H=B 1170 IF P4<4 THEN 1180 FOR I=E TO 32 1190 EXEC FO(J,FN$,TN$) 1200 NEXT I 1210 ENDIF 1220 IF P2=G THEN J=J+E;FN$(J)="SYSTEM1";TN$(J)=FN$(J) 1230 CURSOR 15,18 1240 CASE E OF 1250 STOP 1260 WHEN J=B AND P4<4 1270 PRINT "Der er ingen data på plade nr ";PL1$; 1280 INPUT " der kan kopieres,tast RETURN",A$ 1290 WHEN P4<4 1300 EXEC TKOPI(J,FN$,TN$) 1310 WHEN TP=19 OR FP=19 OR TP=18 OR FP=18 OR TP=17 1320 TN$(E)="VIRKKART";TN$(G)="LØNARTRG";TN$(V)="LØNMODRG" 1330 TN$(4)="TRANSREG";TN$(5)="TÆLLEREG";TN$(6)="AKKREGNS" 1340 TN$(7)="AKKTABEL";TN$(8)="AKKHOVED" 1350 FOR I=E TO 8 1360 FN$(I)=TN$(I);J2$=CHR(ORD(FN$(I,8))+P4-7) 1370 J3$=CHR(ORD(TN$(I,8))+P5-7) 1380 NAVNFRA$=FN$(I,E:7)+J2$;NAVNTIL$=TN$(I,E:7)+J3$ 1390 CURSOR 15,23 1400 PRINT NAVNFRA$;" kopieres " 1410 EXEC COPY 1420 IF FLAG THEN EXIT 1430 NEXT I 1440 ENDCASE 1450 CASE FLAG OF 1460 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG 1470 STOP 1480 WHEN B 1490 WHEN E 1500 IF (J1=B AND P4>V) OR P4<4 THEN 1510 PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller" 1520 CURSOR 15,19 1530 PRINT "Pladen indeholder ingen data" 1540 ENDIF 1550 WHEN V,14 1560 PRINT "Pladen i løbeværk nr 3 er ikke den opgivne" 1570 WHEN 40 1580 PRINT "Et af løbeværkerne er ikke klar" 1590 CURSOR 15,19 1600 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" 1610 ENDCASE 1620 CURSOR 15,21 1630 INPUT "Ønskes ny kopiering (J/N)",A$ 1640 EXEC NRTEST(A$) 1650 UNTIL P=-8 1660 CURSOR 15,23 1670 INPUT "Tag pladen i drev nr.3 ud, og tast RETURN",A$ 1680 CHAIN "P641210:OPSTART"
0x000…049 (0,) 8da0 0100 DIM A$(V),DREVFRA$(G),DREVTIL$(G),TYPE$(E),K1$(17),PL1$(V),PL2$(V)
0x000…049 LineComalBin {
0x000…049 ptr = 0x8da0 // 0x0 @0x0
0x000…049 lno = 0x0064 // 0x2 @0x2
0x000…049 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x000…049 at0005 = ╱41╱A╱ // 0x5 @0x5
0x000…049 at0006 = ╱ef╱$╱ // 0x6 @0x6
0x000…049 at0007 = ╱ed╱(╱ // 0x7 @0x7
0x000…049 at0008 = ╱56╱V╱ // 0x8 @0x8
0x000…049 at0009 = ╱ee╱)╱ // 0x9 @0x9
0x000…049 at000a = ╱ec╱,╱ // 0xa @0xa
0x000…049 at000b = ╱44╱D╱ // 0xb @0xb
0x000…049 at000c = ╱52╱R╱ // 0xc @0xc
0x000…049 at000d = ╱45╱E╱ // 0xd @0xd
0x000…049 at000e = ╱56╱V╱ // 0xe @0xe
0x000…049 at000f = ╱46╱F╱ // 0xf @0xf
0x000…049 at0010 = ╱52╱R╱ // 0x10 @0x10
0x000…049 at0011 = ╱41╱A╱ // 0x11 @0x11
0x000…049 at0012 = ╱ef╱$╱ // 0x12 @0x12
0x000…049 at0013 = ╱ed╱(╱ // 0x13 @0x13
0x000…049 at0014 = ╱47╱G╱ // 0x14 @0x14
0x000…049 at0015 = ╱ee╱)╱ // 0x15 @0x15
0x000…049 at0016 = ╱ec╱,╱ // 0x16 @0x16
0x000…049 at0017 = ╱44╱D╱ // 0x17 @0x17
0x000…049 at0018 = ╱52╱R╱ // 0x18 @0x18
0x000…049 at0019 = ╱45╱E╱ // 0x19 @0x19
0x000…049 at001a = ╱56╱V╱ // 0x1a @0x1a
0x000…049 at001b = ╱54╱T╱ // 0x1b @0x1b
0x000…049 at001c = ╱49╱I╱ // 0x1c @0x1c
0x000…049 at001d = ╱4c╱L╱ // 0x1d @0x1d
0x000…049 at001e = ╱ef╱$╱ // 0x1e @0x1e
0x000…049 at001f = ╱ed╱(╱ // 0x1f @0x1f
0x000…049 at0020 = ╱47╱G╱ // 0x20 @0x20
0x000…049 at0021 = ╱ee╱)╱ // 0x21 @0x21
0x000…049 at0022 = ╱ec╱,╱ // 0x22 @0x22
0x000…049 at0023 = ╱54╱T╱ // 0x23 @0x23
0x000…049 at0024 = ╱59╱Y╱ // 0x24 @0x24
0x000…049 at0025 = ╱50╱P╱ // 0x25 @0x25
0x000…049 at0026 = ╱45╱E╱ // 0x26 @0x26
0x000…049 at0027 = ╱ef╱$╱ // 0x27 @0x27
0x000…049 at0028 = ╱ed╱(╱ // 0x28 @0x28
0x000…049 at0029 = ╱45╱E╱ // 0x29 @0x29
0x000…049 at002a = ╱ee╱)╱ // 0x2a @0x2a
0x000…049 at002b = ╱ec╱,╱ // 0x2b @0x2b
0x000…049 at002c = ╱4b╱K╱ // 0x2c @0x2c
0x000…049 at002d = ╱31╱1╱ // 0x2d @0x2d
0x000…049 at002e = ╱ef╱$╱ // 0x2e @0x2e
0x000…049 at002f = ╱ed╱(╱ // 0x2f @0x2f
0x000…049 at0030 = ╱31╱1╱ // 0x30 @0x30
0x000…049 at0031 = ╱37╱7╱ // 0x31 @0x31
0x000…049 at0032 = ╱fe00008805╱ // 0x32 @0x32
0x000…049 at0037 = ╱ee╱)╱ // 0x37 @0x37
0x000…049 at0038 = ╱ec╱,╱ // 0x38 @0x38
0x000…049 at0039 = ╱50╱P╱ // 0x39 @0x39
0x000…049 at003a = ╱4c╱L╱ // 0x3a @0x3a
0x000…049 at003b = ╱31╱1╱ // 0x3b @0x3b
0x000…049 at003c = ╱ef╱$╱ // 0x3c @0x3c
0x000…049 at003d = ╱ed╱(╱ // 0x3d @0x3d
0x000…049 at003e = ╱56╱V╱ // 0x3e @0x3e
0x000…049 at003f = ╱ee╱)╱ // 0x3f @0x3f
0x000…049 at0040 = ╱ec╱,╱ // 0x40 @0x40
0x000…049 at0041 = ╱50╱P╱ // 0x41 @0x41
0x000…049 at0042 = ╱4c╱L╱ // 0x42 @0x42
0x000…049 at0043 = ╱32╱2╱ // 0x43 @0x43
0x000…049 at0044 = ╱ef╱$╱ // 0x44 @0x44
0x000…049 at0045 = ╱ed╱(╱ // 0x45 @0x45
0x000…049 at0046 = ╱56╱V╱ // 0x46 @0x46
0x000…049 at0047 = ╱ee╱)╱ // 0x47 @0x47
0x000…049 at0048 = EOL // 0x48 @0x48
0x000…049 }
0x049…0ac 8e03 0110 DIM K$(32,11),NAVNFRA$(8),FN$(33,8),TN$(33,8),NAVNTIL$(8)
0x049…0ac LineComalBin {
0x049…0ac ptr = 0x8e03 // 0x49 @0x0
0x049…0ac lno = 0x006e // 0x4b @0x2
0x049…0ac at0004 = ╱87╱ DIM ╱ // 0x4d @0x4
0x049…0ac at0005 = ╱4b╱K╱ // 0x4e @0x5
0x049…0ac at0006 = ╱ef╱$╱ // 0x4f @0x6
0x049…0ac at0007 = ╱ed╱(╱ // 0x50 @0x7
0x049…0ac at0008 = ╱33╱3╱ // 0x51 @0x8
0x049…0ac at0009 = ╱32╱2╱ // 0x52 @0x9
0x049…0ac at000a = ╱fe00008006╱ // 0x53 @0xa
0x049…0ac at000f = ╱ec╱,╱ // 0x58 @0xf
0x049…0ac at0010 = ╱31╱1╱ // 0x59 @0x10
0x049…0ac at0011 = ╱31╱1╱ // 0x5a @0x11
0x049…0ac at0012 = ╱fe0000b004╱ // 0x5b @0x12
0x049…0ac at0017 = ╱ee╱)╱ // 0x60 @0x17
0x049…0ac at0018 = ╱ec╱,╱ // 0x61 @0x18
0x049…0ac at0019 = ╱4e╱N╱ // 0x62 @0x19
0x049…0ac at001a = ╱41╱A╱ // 0x63 @0x1a
0x049…0ac at001b = ╱56╱V╱ // 0x64 @0x1b
0x049…0ac at001c = ╱4e╱N╱ // 0x65 @0x1c
0x049…0ac at001d = ╱46╱F╱ // 0x66 @0x1d
0x049…0ac at001e = ╱52╱R╱ // 0x67 @0x1e
0x049…0ac at001f = ╱41╱A╱ // 0x68 @0x1f
0x049…0ac at0020 = ╱ef╱$╱ // 0x69 @0x20
0x049…0ac at0021 = ╱ed╱(╱ // 0x6a @0x21
0x049…0ac at0022 = ╱38╱8╱ // 0x6b @0x22
0x049…0ac at0023 = ╱fe00008004╱ // 0x6c @0x23
0x049…0ac at0028 = ╱ee╱)╱ // 0x71 @0x28
0x049…0ac at0029 = ╱ec╱,╱ // 0x72 @0x29
0x049…0ac at002a = ╱46╱F╱ // 0x73 @0x2a
0x049…0ac at002b = ╱4e╱N╱ // 0x74 @0x2b
0x049…0ac at002c = ╱ef╱$╱ // 0x75 @0x2c
0x049…0ac at002d = ╱ed╱(╱ // 0x76 @0x2d
0x049…0ac at002e = ╱33╱3╱ // 0x77 @0x2e
0x049…0ac at002f = ╱33╱3╱ // 0x78 @0x2f
0x049…0ac at0030 = ╱fe00008406╱ // 0x79 @0x30
0x049…0ac at0035 = ╱ec╱,╱ // 0x7e @0x35
0x049…0ac at0036 = ╱38╱8╱ // 0x7f @0x36
0x049…0ac at0037 = ╱fe00008004╱ // 0x80 @0x37
0x049…0ac at003c = ╱ee╱)╱ // 0x85 @0x3c
0x049…0ac at003d = ╱ec╱,╱ // 0x86 @0x3d
0x049…0ac at003e = ╱54╱T╱ // 0x87 @0x3e
0x049…0ac at003f = ╱4e╱N╱ // 0x88 @0x3f
0x049…0ac at0040 = ╱ef╱$╱ // 0x89 @0x40
0x049…0ac at0041 = ╱ed╱(╱ // 0x8a @0x41
0x049…0ac at0042 = ╱33╱3╱ // 0x8b @0x42
0x049…0ac at0043 = ╱33╱3╱ // 0x8c @0x43
0x049…0ac at0044 = ╱fe00008406╱ // 0x8d @0x44
0x049…0ac at0049 = ╱ec╱,╱ // 0x92 @0x49
0x049…0ac at004a = ╱38╱8╱ // 0x93 @0x4a
0x049…0ac at004b = ╱fe00008004╱ // 0x94 @0x4b
0x049…0ac at0050 = ╱ee╱)╱ // 0x99 @0x50
0x049…0ac at0051 = ╱ec╱,╱ // 0x9a @0x51
0x049…0ac at0052 = ╱4e╱N╱ // 0x9b @0x52
0x049…0ac at0053 = ╱41╱A╱ // 0x9c @0x53
0x049…0ac at0054 = ╱56╱V╱ // 0x9d @0x54
0x049…0ac at0055 = ╱4e╱N╱ // 0x9e @0x55
0x049…0ac at0056 = ╱54╱T╱ // 0x9f @0x56
0x049…0ac at0057 = ╱49╱I╱ // 0xa0 @0x57
0x049…0ac at0058 = ╱4c╱L╱ // 0xa1 @0x58
0x049…0ac at0059 = ╱ef╱$╱ // 0xa2 @0x59
0x049…0ac at005a = ╱ed╱(╱ // 0xa3 @0x5a
0x049…0ac at005b = ╱38╱8╱ // 0xa4 @0x5b
0x049…0ac at005c = ╱fe00008004╱ // 0xa5 @0x5c
0x049…0ac at0061 = ╱ee╱)╱ // 0xaa @0x61
0x049…0ac at0062 = EOL // 0xab @0x62
0x049…0ac }
0x0ac…0fb 8e52 0120 DIM J2$(E),J3$(E),J4$(5),R$(G),FN1$(33,8),TN1$(33,8)
0x0ac…0fb LineComalBin {
0x0ac…0fb ptr = 0x8e52 // 0xac @0x0
0x0ac…0fb lno = 0x0078 // 0xae @0x2
0x0ac…0fb at0004 = ╱87╱ DIM ╱ // 0xb0 @0x4
0x0ac…0fb at0005 = ╱4a╱J╱ // 0xb1 @0x5
0x0ac…0fb at0006 = ╱32╱2╱ // 0xb2 @0x6
0x0ac…0fb at0007 = ╱ef╱$╱ // 0xb3 @0x7
0x0ac…0fb at0008 = ╱ed╱(╱ // 0xb4 @0x8
0x0ac…0fb at0009 = ╱45╱E╱ // 0xb5 @0x9
0x0ac…0fb at000a = ╱ee╱)╱ // 0xb6 @0xa
0x0ac…0fb at000b = ╱ec╱,╱ // 0xb7 @0xb
0x0ac…0fb at000c = ╱4a╱J╱ // 0xb8 @0xc
0x0ac…0fb at000d = ╱33╱3╱ // 0xb9 @0xd
0x0ac…0fb at000e = ╱ef╱$╱ // 0xba @0xe
0x0ac…0fb at000f = ╱ed╱(╱ // 0xbb @0xf
0x0ac…0fb at0010 = ╱45╱E╱ // 0xbc @0x10
0x0ac…0fb at0011 = ╱ee╱)╱ // 0xbd @0x11
0x0ac…0fb at0012 = ╱ec╱,╱ // 0xbe @0x12
0x0ac…0fb at0013 = ╱4a╱J╱ // 0xbf @0x13
0x0ac…0fb at0014 = ╱34╱4╱ // 0xc0 @0x14
0x0ac…0fb at0015 = ╱ef╱$╱ // 0xc1 @0x15
0x0ac…0fb at0016 = ╱ed╱(╱ // 0xc2 @0x16
0x0ac…0fb at0017 = ╱35╱5╱ // 0xc3 @0x17
0x0ac…0fb at0018 = ╱fe0000a003╱ // 0xc4 @0x18
0x0ac…0fb at001d = ╱ee╱)╱ // 0xc9 @0x1d
0x0ac…0fb at001e = ╱ec╱,╱ // 0xca @0x1e
0x0ac…0fb at001f = ╱52╱R╱ // 0xcb @0x1f
0x0ac…0fb at0020 = ╱ef╱$╱ // 0xcc @0x20
0x0ac…0fb at0021 = ╱ed╱(╱ // 0xcd @0x21
0x0ac…0fb at0022 = ╱47╱G╱ // 0xce @0x22
0x0ac…0fb at0023 = ╱ee╱)╱ // 0xcf @0x23
0x0ac…0fb at0024 = ╱ec╱,╱ // 0xd0 @0x24
0x0ac…0fb at0025 = ╱46╱F╱ // 0xd1 @0x25
0x0ac…0fb at0026 = ╱4e╱N╱ // 0xd2 @0x26
0x0ac…0fb at0027 = ╱31╱1╱ // 0xd3 @0x27
0x0ac…0fb at0028 = ╱ef╱$╱ // 0xd4 @0x28
0x0ac…0fb at0029 = ╱ed╱(╱ // 0xd5 @0x29
0x0ac…0fb at002a = ╱33╱3╱ // 0xd6 @0x2a
0x0ac…0fb at002b = ╱33╱3╱ // 0xd7 @0x2b
0x0ac…0fb at002c = ╱fe00008406╱ // 0xd8 @0x2c
0x0ac…0fb at0031 = ╱ec╱,╱ // 0xdd @0x31
0x0ac…0fb at0032 = ╱38╱8╱ // 0xde @0x32
0x0ac…0fb at0033 = ╱fe00008004╱ // 0xdf @0x33
0x0ac…0fb at0038 = ╱ee╱)╱ // 0xe4 @0x38
0x0ac…0fb at0039 = ╱ec╱,╱ // 0xe5 @0x39
0x0ac…0fb at003a = ╱54╱T╱ // 0xe6 @0x3a
0x0ac…0fb at003b = ╱4e╱N╱ // 0xe7 @0x3b
0x0ac…0fb at003c = ╱31╱1╱ // 0xe8 @0x3c
0x0ac…0fb at003d = ╱ef╱$╱ // 0xe9 @0x3d
0x0ac…0fb at003e = ╱ed╱(╱ // 0xea @0x3e
0x0ac…0fb at003f = ╱33╱3╱ // 0xeb @0x3f
0x0ac…0fb at0040 = ╱33╱3╱ // 0xec @0x40
0x0ac…0fb at0041 = ╱fe00008406╱ // 0xed @0x41
0x0ac…0fb at0046 = ╱ec╱,╱ // 0xf2 @0x46
0x0ac…0fb at0047 = ╱38╱8╱ // 0xf3 @0x47
0x0ac…0fb at0048 = ╱fe00008004╱ // 0xf4 @0x48
0x0ac…0fb at004d = ╱ee╱)╱ // 0xf9 @0x4d
0x0ac…0fb at004e = EOL // 0xfa @0x4e
0x0ac…0fb }
0x0fb…105 8e5c 0130 PROC COPY
0x0fb…105 LineComalBin {
0x0fb…105 ptr = 0x8e5c // 0xfb @0x0
0x0fb…105 lno = 0x0082 // 0xfd @0x2
0x0fb…105 at0004 = ╱9e╱ PROC ╱ // 0xff @0x4
0x0fb…105 at0005 = ╱43╱C╱ // 0x100 @0x5
0x0fb…105 at0006 = ╱4f╱O╱ // 0x101 @0x6
0x0fb…105 at0007 = ╱50╱P╱ // 0x102 @0x7
0x0fb…105 at0008 = ╱59╱Y╱ // 0x103 @0x8
0x0fb…105 at0009 = EOL // 0x104 @0x9
0x0fb…105 }
0x105…110 8e67 0140 FLAG=B
0x105…110 LineComalBin {
0x105…110 ptr = 0x8e67 // 0x105 @0x0
0x105…110 lno = 0x008c // 0x107 @0x2
0x105…110 at0004 = ╱46╱F╱ // 0x109 @0x4
0x105…110 at0005 = ╱4c╱L╱ // 0x10a @0x5
0x105…110 at0006 = ╱41╱A╱ // 0x10b @0x6
0x105…110 at0007 = ╱47╱G╱ // 0x10c @0x7
0x105…110 at0008 = ╱dc╱=╱ // 0x10d @0x8
0x105…110 at0009 = ╱42╱B╱ // 0x10e @0x9
0x105…110 at000a = EOL // 0x10f @0xa
0x105…110 }
0x110…128 8e7f 0150 CALL "P641210:CFCOPY"
0x110…128 LineComalBin {
0x110…128 ptr = 0x8e7f // 0x110 @0x0
0x110…128 lno = 0x0096 // 0x112 @0x2
0x110…128 at0004 = ╱adeeec╱ CALL ╱ // 0x114 @0x4
0x110…128 at0007 = ╱22╱"╱ // 0x117 @0x7
0x110…128 at0008 = ╱50╱P╱ // 0x118 @0x8
0x110…128 at0009 = ╱36╱6╱ // 0x119 @0x9
0x110…128 at000a = ╱34╱4╱ // 0x11a @0xa
0x110…128 at000b = ╱31╱1╱ // 0x11b @0xb
0x110…128 at000c = ╱32╱2╱ // 0x11c @0xc
0x110…128 at000d = ╱31╱1╱ // 0x11d @0xd
0x110…128 at000e = ╱30╱0╱ // 0x11e @0xe
0x110…128 at000f = ╱3a╱:╱ // 0x11f @0xf
0x110…128 at0010 = ╱43╱C╱ // 0x120 @0x10
0x110…128 at0011 = ╱46╱F╱ // 0x121 @0x11
0x110…128 at0012 = ╱43╱C╱ // 0x122 @0x12
0x110…128 at0013 = ╱4f╱O╱ // 0x123 @0x13
0x110…128 at0014 = ╱50╱P╱ // 0x124 @0x14
0x110…128 at0015 = ╱59╱Y╱ // 0x125 @0x15
0x110…128 at0016 = ╱22╱"╱ // 0x126 @0x16
0x110…128 at0017 = EOL // 0x127 @0x17
0x110…128 }
0x128…13c 8e93 0160 IF FLAG=B THEN J1=J1+E
0x128…13c LineComalBin {
0x128…13c ptr = 0x8e93 // 0x128 @0x0
0x128…13c lno = 0x00a0 // 0x12a @0x2
0x128…13c at0004 = ╱82╱ IF ╱ // 0x12c @0x4
0x128…13c at0005 = ╱46╱F╱ // 0x12d @0x5
0x128…13c at0006 = ╱4c╱L╱ // 0x12e @0x6
0x128…13c at0007 = ╱41╱A╱ // 0x12f @0x7
0x128…13c at0008 = ╱47╱G╱ // 0x130 @0x8
0x128…13c at0009 = ╱dc╱=╱ // 0x131 @0x9
0x128…13c at000a = ╱42╱B╱ // 0x132 @0xa
0x128…13c at000b = ╱b6╱ THEN ╱ // 0x133 @0xb
0x128…13c at000c = ╱4a╱J╱ // 0x134 @0xc
0x128…13c at000d = ╱31╱1╱ // 0x135 @0xd
0x128…13c at000e = ╱dc╱=╱ // 0x136 @0xe
0x128…13c at000f = ╱4a╱J╱ // 0x137 @0xf
0x128…13c at0010 = ╱31╱1╱ // 0x138 @0x10
0x128…13c at0011 = ╱e2╱+╱ // 0x139 @0x11
0x128…13c at0012 = ╱45╱E╱ // 0x13a @0x12
0x128…13c at0013 = EOL // 0x13b @0x13
0x128…13c }
0x13c…142 8e99 0170 ENDPROC
0x13c…142 LineComalBin {
0x13c…142 ptr = 0x8e99 // 0x13c @0x0
0x13c…142 lno = 0x00aa // 0x13e @0x2
0x13c…142 at0004 = ╱9f╱ ENDPROC ╱ // 0x140 @0x4
0x13c…142 at0005 = EOL // 0x141 @0x5
0x13c…142 }
0x142…159 8eb0 0180 PROC TKOPI(J9,FNV,TNV)
0x142…159 LineComalBin {
0x142…159 ptr = 0x8eb0 // 0x142 @0x0
0x142…159 lno = 0x00b4 // 0x144 @0x2
0x142…159 at0004 = ╱9e╱ PROC ╱ // 0x146 @0x4
0x142…159 at0005 = ╱54╱T╱ // 0x147 @0x5
0x142…159 at0006 = ╱4b╱K╱ // 0x148 @0x6
0x142…159 at0007 = ╱4f╱O╱ // 0x149 @0x7
0x142…159 at0008 = ╱50╱P╱ // 0x14a @0x8
0x142…159 at0009 = ╱49╱I╱ // 0x14b @0x9
0x142…159 at000a = ╱ed╱(╱ // 0x14c @0xa
0x142…159 at000b = ╱4a╱J╱ // 0x14d @0xb
0x142…159 at000c = ╱39╱9╱ // 0x14e @0xc
0x142…159 at000d = ╱ec╱,╱ // 0x14f @0xd
0x142…159 at000e = ╱46╱F╱ // 0x150 @0xe
0x142…159 at000f = ╱4e╱N╱ // 0x151 @0xf
0x142…159 at0010 = ╱56╱V╱ // 0x152 @0x10
0x142…159 at0011 = ╱ec╱,╱ // 0x153 @0x11
0x142…159 at0012 = ╱54╱T╱ // 0x154 @0x12
0x142…159 at0013 = ╱4e╱N╱ // 0x155 @0x13
0x142…159 at0014 = ╱56╱V╱ // 0x156 @0x14
0x142…159 at0015 = ╱ee╱)╱ // 0x157 @0x15
0x142…159 at0016 = EOL // 0x158 @0x16
0x142…159 }
0x159…165 8ebc 0190 FOR I=E TO J9
0x159…165 LineComalBin {
0x159…165 ptr = 0x8ebc // 0x159 @0x0
0x159…165 lno = 0x00be // 0x15b @0x2
0x159…165 at0004 = ╱83╱ FOR ╱ // 0x15d @0x4
0x159…165 at0005 = ╱49╱I╱ // 0x15e @0x5
0x159…165 at0006 = ╱dc╱=╱ // 0x15f @0x6
0x159…165 at0007 = ╱45╱E╱ // 0x160 @0x7
0x159…165 at0008 = ╱b7╱ TO ╱ // 0x161 @0x8
0x159…165 at0009 = ╱4a╱J╱ // 0x162 @0x9
0x159…165 at000a = ╱39╱9╱ // 0x163 @0xa
0x159…165 at000b = EOL // 0x164 @0xb
0x159…165 }
0x165…18b 8ee2 0200 NAVNFRA$=FNV$(I);NAVNTIL$=TNV$(I)
0x165…18b LineComalBin {
0x165…18b ptr = 0x8ee2 // 0x165 @0x0
0x165…18b lno = 0x00c8 // 0x167 @0x2
0x165…18b at0004 = ╱4e╱N╱ // 0x169 @0x4
0x165…18b at0005 = ╱41╱A╱ // 0x16a @0x5
0x165…18b at0006 = ╱56╱V╱ // 0x16b @0x6
0x165…18b at0007 = ╱4e╱N╱ // 0x16c @0x7
0x165…18b at0008 = ╱46╱F╱ // 0x16d @0x8
0x165…18b at0009 = ╱52╱R╱ // 0x16e @0x9
0x165…18b at000a = ╱41╱A╱ // 0x16f @0xa
0x165…18b at000b = ╱ef╱$╱ // 0x170 @0xb
0x165…18b at000c = ╱dc╱=╱ // 0x171 @0xc
0x165…18b at000d = ╱46╱F╱ // 0x172 @0xd
0x165…18b at000e = ╱4e╱N╱ // 0x173 @0xe
0x165…18b at000f = ╱56╱V╱ // 0x174 @0xf
0x165…18b at0010 = ╱ef╱$╱ // 0x175 @0x10
0x165…18b at0011 = ╱ed╱(╱ // 0x176 @0x11
0x165…18b at0012 = ╱49╱I╱ // 0x177 @0x12
0x165…18b at0013 = ╱ee╱)╱ // 0x178 @0x13
0x165…18b at0014 = ╱eb╱;╱ // 0x179 @0x14
0x165…18b at0015 = ╱4e╱N╱ // 0x17a @0x15
0x165…18b at0016 = ╱41╱A╱ // 0x17b @0x16
0x165…18b at0017 = ╱56╱V╱ // 0x17c @0x17
0x165…18b at0018 = ╱4e╱N╱ // 0x17d @0x18
0x165…18b at0019 = ╱54╱T╱ // 0x17e @0x19
0x165…18b at001a = ╱49╱I╱ // 0x17f @0x1a
0x165…18b at001b = ╱4c╱L╱ // 0x180 @0x1b
0x165…18b at001c = ╱ef╱$╱ // 0x181 @0x1c
0x165…18b at001d = ╱dc╱=╱ // 0x182 @0x1d
0x165…18b at001e = ╱54╱T╱ // 0x183 @0x1e
0x165…18b at001f = ╱4e╱N╱ // 0x184 @0x1f
0x165…18b at0020 = ╱56╱V╱ // 0x185 @0x20
0x165…18b at0021 = ╱ef╱$╱ // 0x186 @0x21
0x165…18b at0022 = ╱ed╱(╱ // 0x187 @0x22
0x165…18b at0023 = ╱49╱I╱ // 0x188 @0x23
0x165…18b at0024 = ╱ee╱)╱ // 0x189 @0x24
0x165…18b at0025 = EOL // 0x18a @0x25
0x165…18b }
0x18b…1a0 8ef7 0210 CURSOR 15,23
0x18b…1a0 LineComalBin {
0x18b…1a0 ptr = 0x8ef7 // 0x18b @0x0
0x18b…1a0 lno = 0x00d2 // 0x18d @0x2
0x18b…1a0 at0004 = ╱a1╱ CURSOR ╱ // 0x18f @0x4
0x18b…1a0 at0005 = ╱31╱1╱ // 0x190 @0x5
0x18b…1a0 at0006 = ╱35╱5╱ // 0x191 @0x6
0x18b…1a0 at0007 = ╱fe0000f004╱ // 0x192 @0x7
0x18b…1a0 at000c = ╱ec╱,╱ // 0x197 @0xc
0x18b…1a0 at000d = ╱32╱2╱ // 0x198 @0xd
0x18b…1a0 at000e = ╱33╱3╱ // 0x199 @0xe
0x18b…1a0 at000f = ╱fe0000b805╱ // 0x19a @0xf
0x18b…1a0 at0014 = EOL // 0x19f @0x14
0x18b…1a0 }
0x1a0…1d2 8f29 0220 PRINT NAVNFRA$;" kopieres "
0x1a0…1d2 LineComalBin {
0x1a0…1d2 ptr = 0x8f29 // 0x1a0 @0x0
0x1a0…1d2 lno = 0x00dc // 0x1a2 @0x2
0x1a0…1d2 at0004 = ╱92╱ PRINT ╱ // 0x1a4 @0x4
0x1a0…1d2 at0005 = ╱4e╱N╱ // 0x1a5 @0x5
0x1a0…1d2 at0006 = ╱41╱A╱ // 0x1a6 @0x6
0x1a0…1d2 at0007 = ╱56╱V╱ // 0x1a7 @0x7
0x1a0…1d2 at0008 = ╱4e╱N╱ // 0x1a8 @0x8
0x1a0…1d2 at0009 = ╱46╱F╱ // 0x1a9 @0x9
0x1a0…1d2 at000a = ╱52╱R╱ // 0x1aa @0xa
0x1a0…1d2 at000b = ╱41╱A╱ // 0x1ab @0xb
0x1a0…1d2 at000c = ╱ef╱$╱ // 0x1ac @0xc
0x1a0…1d2 at000d = ╱eb╱;╱ // 0x1ad @0xd
0x1a0…1d2 at000e = ╱22╱"╱ // 0x1ae @0xe
0x1a0…1d2 at000f = ╱20╱…╱ // 0x1af @0xf
0x1a0…1d2 at0010 = ╱6b╱k╱ // 0x1b0 @0x10
0x1a0…1d2 at0011 = ╱6f╱o╱ // 0x1b1 @0x11
0x1a0…1d2 at0012 = ╱70╱p╱ // 0x1b2 @0x12
0x1a0…1d2 at0013 = ╱69╱i╱ // 0x1b3 @0x13
0x1a0…1d2 at0014 = ╱65╱e╱ // 0x1b4 @0x14
0x1a0…1d2 at0015 = ╱72╱r╱ // 0x1b5 @0x15
0x1a0…1d2 at0016 = ╱65╱e╱ // 0x1b6 @0x16
0x1a0…1d2 at0017 = ╱73╱s╱ // 0x1b7 @0x17
0x1a0…1d2 at0018 = ╱20╱…╱ // 0x1b8 @0x18
0x1a0…1d2 at0019 = ╱20╱…╱ // 0x1b9 @0x19
0x1a0…1d2 at001a = ╱20╱…╱ // 0x1ba @0x1a
0x1a0…1d2 at001b = ╱20╱…╱ // 0x1bb @0x1b
0x1a0…1d2 at001c = ╱20╱…╱ // 0x1bc @0x1c
0x1a0…1d2 at001d = ╱20╱…╱ // 0x1bd @0x1d
0x1a0…1d2 at001e = ╱20╱…╱ // 0x1be @0x1e
0x1a0…1d2 at001f = ╱20╱…╱ // 0x1bf @0x1f
0x1a0…1d2 at0020 = ╱20╱…╱ // 0x1c0 @0x20
0x1a0…1d2 at0021 = ╱20╱…╱ // 0x1c1 @0x21
0x1a0…1d2 at0022 = ╱20╱…╱ // 0x1c2 @0x22
0x1a0…1d2 at0023 = ╱20╱…╱ // 0x1c3 @0x23
0x1a0…1d2 at0024 = ╱20╱…╱ // 0x1c4 @0x24
0x1a0…1d2 at0025 = ╱20╱…╱ // 0x1c5 @0x25
0x1a0…1d2 at0026 = ╱20╱…╱ // 0x1c6 @0x26
0x1a0…1d2 at0027 = ╱20╱…╱ // 0x1c7 @0x27
0x1a0…1d2 at0028 = ╱20╱…╱ // 0x1c8 @0x28
0x1a0…1d2 at0029 = ╱20╱…╱ // 0x1c9 @0x29
0x1a0…1d2 at002a = ╱20╱…╱ // 0x1ca @0x2a
0x1a0…1d2 at002b = ╱20╱…╱ // 0x1cb @0x2b
0x1a0…1d2 at002c = ╱20╱…╱ // 0x1cc @0x2c
0x1a0…1d2 at002d = ╱20╱…╱ // 0x1cd @0x2d
0x1a0…1d2 at002e = ╱20╱…╱ // 0x1ce @0x2e
0x1a0…1d2 at002f = ╱20╱…╱ // 0x1cf @0x2f
0x1a0…1d2 at0030 = ╱22╱"╱ // 0x1d0 @0x30
0x1a0…1d2 at0031 = EOL // 0x1d1 @0x31
0x1a0…1d2 }
0x1d2…1dc 8f33 0230 EXEC COPY
0x1d2…1dc LineComalBin {
0x1d2…1dc ptr = 0x8f33 // 0x1d2 @0x0
0x1d2…1dc lno = 0x00e6 // 0x1d4 @0x2
0x1d2…1dc at0004 = ╱9d╱ EXEC ╱ // 0x1d6 @0x4
0x1d2…1dc at0005 = ╱43╱C╱ // 0x1d7 @0x5
0x1d2…1dc at0006 = ╱4f╱O╱ // 0x1d8 @0x6
0x1d2…1dc at0007 = ╱50╱P╱ // 0x1d9 @0x7
0x1d2…1dc at0008 = ╱59╱Y╱ // 0x1da @0x8
0x1d2…1dc at0009 = EOL // 0x1db @0x9
0x1d2…1dc }
0x1dc…1e8 8f3f 0240 IF FLAG THEN EXIT
0x1dc…1e8 LineComalBin {
0x1dc…1e8 ptr = 0x8f3f // 0x1dc @0x0
0x1dc…1e8 lno = 0x00f0 // 0x1de @0x2
0x1dc…1e8 at0004 = ╱82╱ IF ╱ // 0x1e0 @0x4
0x1dc…1e8 at0005 = ╱46╱F╱ // 0x1e1 @0x5
0x1dc…1e8 at0006 = ╱4c╱L╱ // 0x1e2 @0x6
0x1dc…1e8 at0007 = ╱41╱A╱ // 0x1e3 @0x7
0x1dc…1e8 at0008 = ╱47╱G╱ // 0x1e4 @0x8
0x1dc…1e8 at0009 = ╱b6╱ THEN ╱ // 0x1e5 @0x9
0x1dc…1e8 at000a = ╱99╱ EXIT ╱ // 0x1e6 @0xa
0x1dc…1e8 at000b = EOL // 0x1e7 @0xb
0x1dc…1e8 }
0x1e8…1ef 8f46 0250 NEXT I
0x1e8…1ef LineComalBin {
0x1e8…1ef ptr = 0x8f46 // 0x1e8 @0x0
0x1e8…1ef lno = 0x00fa // 0x1ea @0x2
0x1e8…1ef at0004 = ╱84╱ NEXT ╱ // 0x1ec @0x4
0x1e8…1ef at0005 = ╱49╱I╱ // 0x1ed @0x5
0x1e8…1ef at0006 = EOL // 0x1ee @0x6
0x1e8…1ef }
0x1ef…1f5 8f4c 0260 ENDPROC
0x1ef…1f5 LineComalBin {
0x1ef…1f5 ptr = 0x8f4c // 0x1ef @0x0
0x1ef…1f5 lno = 0x0104 // 0x1f1 @0x2
0x1ef…1f5 at0004 = ╱9f╱ ENDPROC ╱ // 0x1f3 @0x4
0x1ef…1f5 at0005 = EOL // 0x1f4 @0x5
0x1ef…1f5 }
0x1f5…20c 8f63 0270 PROC FEJL(NR1,NR2,NR3)
0x1f5…20c LineComalBin {
0x1f5…20c ptr = 0x8f63 // 0x1f5 @0x0
0x1f5…20c lno = 0x010e // 0x1f7 @0x2
0x1f5…20c at0004 = ╱9e╱ PROC ╱ // 0x1f9 @0x4
0x1f5…20c at0005 = ╱46╱F╱ // 0x1fa @0x5
0x1f5…20c at0006 = ╱45╱E╱ // 0x1fb @0x6
0x1f5…20c at0007 = ╱4a╱J╱ // 0x1fc @0x7
0x1f5…20c at0008 = ╱4c╱L╱ // 0x1fd @0x8
0x1f5…20c at0009 = ╱ed╱(╱ // 0x1fe @0x9
0x1f5…20c at000a = ╱4e╱N╱ // 0x1ff @0xa
0x1f5…20c at000b = ╱52╱R╱ // 0x200 @0xb
0x1f5…20c at000c = ╱31╱1╱ // 0x201 @0xc
0x1f5…20c at000d = ╱ec╱,╱ // 0x202 @0xd
0x1f5…20c at000e = ╱4e╱N╱ // 0x203 @0xe
0x1f5…20c at000f = ╱52╱R╱ // 0x204 @0xf
0x1f5…20c at0010 = ╱32╱2╱ // 0x205 @0x10
0x1f5…20c at0011 = ╱ec╱,╱ // 0x206 @0x11
0x1f5…20c at0012 = ╱4e╱N╱ // 0x207 @0x12
0x1f5…20c at0013 = ╱52╱R╱ // 0x208 @0x13
0x1f5…20c at0014 = ╱33╱3╱ // 0x209 @0x14
0x1f5…20c at0015 = ╱ee╱)╱ // 0x20a @0x15
0x1f5…20c at0016 = EOL // 0x20b @0x16
0x1f5…20c }
0x20c…21c 8f73 0280 IF STATUS(NR3$)<>B THEN
0x20c…21c LineComalBin {
0x20c…21c ptr = 0x8f73 // 0x20c @0x0
0x20c…21c lno = 0x0118 // 0x20e @0x2
0x20c…21c at0004 = ╱9c╱ IF ╱ // 0x210 @0x4
0x20c…21c at0005 = ╱ce╱STATUS╱ // 0x211 @0x5
0x20c…21c at0006 = ╱ed╱(╱ // 0x212 @0x6
0x20c…21c at0007 = ╱4e╱N╱ // 0x213 @0x7
0x20c…21c at0008 = ╱52╱R╱ // 0x214 @0x8
0x20c…21c at0009 = ╱33╱3╱ // 0x215 @0x9
0x20c…21c at000a = ╱ef╱$╱ // 0x216 @0xa
0x20c…21c at000b = ╱ee╱)╱ // 0x217 @0xb
0x20c…21c at000c = ╱e1╱<>╱ // 0x218 @0xc
0x20c…21c at000d = ╱42╱B╱ // 0x219 @0xd
0x20c…21c at000e = ╱b6╱ THEN ╱ // 0x21a @0xe
0x20c…21c at000f = EOL // 0x21b @0xf
0x20c…21c }
0x21c…236 8f8d 0290 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x21c…236 LineComalBin {
0x21c…236 ptr = 0x8f8d // 0x21c @0x0
0x21c…236 lno = 0x0122 // 0x21e @0x2
0x21c…236 at0004 = ╱92╱ PRINT ╱ // 0x220 @0x4
0x21c…236 at0005 = ╱ce╱STATUS╱ // 0x221 @0x5
0x21c…236 at0006 = ╱ed╱(╱ // 0x222 @0x6
0x21c…236 at0007 = ╱4e╱N╱ // 0x223 @0x7
0x21c…236 at0008 = ╱52╱R╱ // 0x224 @0x8
0x21c…236 at0009 = ╱33╱3╱ // 0x225 @0x9
0x21c…236 at000a = ╱ef╱$╱ // 0x226 @0xa
0x21c…236 at000b = ╱ee╱)╱ // 0x227 @0xb
0x21c…236 at000c = ╱ec╱,╱ // 0x228 @0xc
0x21c…236 at000d = ╱4e╱N╱ // 0x229 @0xd
0x21c…236 at000e = ╱52╱R╱ // 0x22a @0xe
0x21c…236 at000f = ╱31╱1╱ // 0x22b @0xf
0x21c…236 at0010 = ╱ec╱,╱ // 0x22c @0x10
0x21c…236 at0011 = ╱4e╱N╱ // 0x22d @0x11
0x21c…236 at0012 = ╱52╱R╱ // 0x22e @0x12
0x21c…236 at0013 = ╱32╱2╱ // 0x22f @0x13
0x21c…236 at0014 = ╱ec╱,╱ // 0x230 @0x14
0x21c…236 at0015 = ╱4e╱N╱ // 0x231 @0x15
0x21c…236 at0016 = ╱52╱R╱ // 0x232 @0x16
0x21c…236 at0017 = ╱33╱3╱ // 0x233 @0x17
0x21c…236 at0018 = ╱ef╱$╱ // 0x234 @0x18
0x21c…236 at0019 = EOL // 0x235 @0x19
0x21c…236 }
0x236…23c 8f93 0300 STOP
0x236…23c LineComalBin {
0x236…23c ptr = 0x8f93 // 0x236 @0x0
0x236…23c lno = 0x012c // 0x238 @0x2
0x236…23c at0004 = ╱8d╱ STOP ╱ // 0x23a @0x4
0x236…23c at0005 = EOL // 0x23b @0x5
0x236…23c }
0x23c…242 8f99 0310 ENDIF
0x23c…242 LineComalBin {
0x23c…242 ptr = 0x8f99 // 0x23c @0x0
0x23c…242 lno = 0x0136 // 0x23e @0x2
0x23c…242 at0004 = ╱9b╱ ENDIF ╱ // 0x240 @0x4
0x23c…242 at0005 = EOL // 0x241 @0x5
0x23c…242 }
0x242…248 8f9f 0320 ENDPROC
0x242…248 LineComalBin {
0x242…248 ptr = 0x8f9f // 0x242 @0x0
0x242…248 lno = 0x0140 // 0x244 @0x2
0x242…248 at0004 = ╱9f╱ ENDPROC ╱ // 0x246 @0x4
0x242…248 at0005 = EOL // 0x247 @0x5
0x242…248 }
0x248…25c 8fb3 0330 PROC FO(J9,FNV,TNV)
0x248…25c LineComalBin {
0x248…25c ptr = 0x8fb3 // 0x248 @0x0
0x248…25c lno = 0x014a // 0x24a @0x2
0x248…25c at0004 = ╱9e╱ PROC ╱ // 0x24c @0x4
0x248…25c at0005 = ╱46╱F╱ // 0x24d @0x5
0x248…25c at0006 = ╱4f╱O╱ // 0x24e @0x6
0x248…25c at0007 = ╱ed╱(╱ // 0x24f @0x7
0x248…25c at0008 = ╱4a╱J╱ // 0x250 @0x8
0x248…25c at0009 = ╱39╱9╱ // 0x251 @0x9
0x248…25c at000a = ╱ec╱,╱ // 0x252 @0xa
0x248…25c at000b = ╱46╱F╱ // 0x253 @0xb
0x248…25c at000c = ╱4e╱N╱ // 0x254 @0xc
0x248…25c at000d = ╱56╱V╱ // 0x255 @0xd
0x248…25c at000e = ╱ec╱,╱ // 0x256 @0xe
0x248…25c at000f = ╱54╱T╱ // 0x257 @0xf
0x248…25c at0010 = ╱4e╱N╱ // 0x258 @0x10
0x248…25c at0011 = ╱56╱V╱ // 0x259 @0x11
0x248…25c at0012 = ╱ee╱)╱ // 0x25a @0x12
0x248…25c at0013 = EOL // 0x25b @0x13
0x248…25c }
0x25c…29b 8ff2 0340 J9=J9+E;FNV$(J9)=K$(I,4:LEN(K$(I))-V);TNV$(J9)=FNV$(J9)
0x25c…29b LineComalBin {
0x25c…29b ptr = 0x8ff2 // 0x25c @0x0
0x25c…29b lno = 0x0154 // 0x25e @0x2
0x25c…29b at0004 = ╱4a╱J╱ // 0x260 @0x4
0x25c…29b at0005 = ╱39╱9╱ // 0x261 @0x5
0x25c…29b at0006 = ╱dc╱=╱ // 0x262 @0x6
0x25c…29b at0007 = ╱4a╱J╱ // 0x263 @0x7
0x25c…29b at0008 = ╱39╱9╱ // 0x264 @0x8
0x25c…29b at0009 = ╱e2╱+╱ // 0x265 @0x9
0x25c…29b at000a = ╱45╱E╱ // 0x266 @0xa
0x25c…29b at000b = ╱eb╱;╱ // 0x267 @0xb
0x25c…29b at000c = ╱46╱F╱ // 0x268 @0xc
0x25c…29b at000d = ╱4e╱N╱ // 0x269 @0xd
0x25c…29b at000e = ╱56╱V╱ // 0x26a @0xe
0x25c…29b at000f = ╱ef╱$╱ // 0x26b @0xf
0x25c…29b at0010 = ╱ed╱(╱ // 0x26c @0x10
0x25c…29b at0011 = ╱4a╱J╱ // 0x26d @0x11
0x25c…29b at0012 = ╱39╱9╱ // 0x26e @0x12
0x25c…29b at0013 = ╱ee╱)╱ // 0x26f @0x13
0x25c…29b at0014 = ╱dc╱=╱ // 0x270 @0x14
0x25c…29b at0015 = ╱4b╱K╱ // 0x271 @0x15
0x25c…29b at0016 = ╱ef╱$╱ // 0x272 @0x16
0x25c…29b at0017 = ╱ed╱(╱ // 0x273 @0x17
0x25c…29b at0018 = ╱49╱I╱ // 0x274 @0x18
0x25c…29b at0019 = ╱ec╱,╱ // 0x275 @0x19
0x25c…29b at001a = ╱34╱4╱ // 0x276 @0x1a
0x25c…29b at001b = ╱fe00008003╱ // 0x277 @0x1b
0x25c…29b at0020 = ╱f0╱:╱ // 0x27c @0x20
0x25c…29b at0021 = ╱cc╱LEN╱ // 0x27d @0x21
0x25c…29b at0022 = ╱ed╱(╱ // 0x27e @0x22
0x25c…29b at0023 = ╱4b╱K╱ // 0x27f @0x23
0x25c…29b at0024 = ╱ef╱$╱ // 0x280 @0x24
0x25c…29b at0025 = ╱ed╱(╱ // 0x281 @0x25
0x25c…29b at0026 = ╱49╱I╱ // 0x282 @0x26
0x25c…29b at0027 = ╱ee╱)╱ // 0x283 @0x27
0x25c…29b at0028 = ╱ee╱)╱ // 0x284 @0x28
0x25c…29b at0029 = ╱e3╱-╱ // 0x285 @0x29
0x25c…29b at002a = ╱56╱V╱ // 0x286 @0x2a
0x25c…29b at002b = ╱ee╱)╱ // 0x287 @0x2b
0x25c…29b at002c = ╱eb╱;╱ // 0x288 @0x2c
0x25c…29b at002d = ╱54╱T╱ // 0x289 @0x2d
0x25c…29b at002e = ╱4e╱N╱ // 0x28a @0x2e
0x25c…29b at002f = ╱56╱V╱ // 0x28b @0x2f
0x25c…29b at0030 = ╱ef╱$╱ // 0x28c @0x30
0x25c…29b at0031 = ╱ed╱(╱ // 0x28d @0x31
0x25c…29b at0032 = ╱4a╱J╱ // 0x28e @0x32
0x25c…29b at0033 = ╱39╱9╱ // 0x28f @0x33
0x25c…29b at0034 = ╱ee╱)╱ // 0x290 @0x34
0x25c…29b at0035 = ╱dc╱=╱ // 0x291 @0x35
0x25c…29b at0036 = ╱46╱F╱ // 0x292 @0x36
0x25c…29b at0037 = ╱4e╱N╱ // 0x293 @0x37
0x25c…29b at0038 = ╱56╱V╱ // 0x294 @0x38
0x25c…29b at0039 = ╱ef╱$╱ // 0x295 @0x39
0x25c…29b at003a = ╱ed╱(╱ // 0x296 @0x3a
0x25c…29b at003b = ╱4a╱J╱ // 0x297 @0x3b
0x25c…29b at003c = ╱39╱9╱ // 0x298 @0x3c
0x25c…29b at003d = ╱ee╱)╱ // 0x299 @0x3d
0x25c…29b at003e = EOL // 0x29a @0x3e
0x25c…29b }
0x29b…2c6 901d 0350 IF PL1$(G)<>"0" THEN FNV$(J9)=FNV$(J9)+PL1$(G)
0x29b…2c6 LineComalBin {
0x29b…2c6 ptr = 0x901d // 0x29b @0x0
0x29b…2c6 lno = 0x015e // 0x29d @0x2
0x29b…2c6 at0004 = ╱82╱ IF ╱ // 0x29f @0x4
0x29b…2c6 at0005 = ╱50╱P╱ // 0x2a0 @0x5
0x29b…2c6 at0006 = ╱4c╱L╱ // 0x2a1 @0x6
0x29b…2c6 at0007 = ╱31╱1╱ // 0x2a2 @0x7
0x29b…2c6 at0008 = ╱ef╱$╱ // 0x2a3 @0x8
0x29b…2c6 at0009 = ╱ed╱(╱ // 0x2a4 @0x9
0x29b…2c6 at000a = ╱47╱G╱ // 0x2a5 @0xa
0x29b…2c6 at000b = ╱ee╱)╱ // 0x2a6 @0xb
0x29b…2c6 at000c = ╱e1╱<>╱ // 0x2a7 @0xc
0x29b…2c6 at000d = ╱22╱"╱ // 0x2a8 @0xd
0x29b…2c6 at000e = ╱30╱0╱ // 0x2a9 @0xe
0x29b…2c6 at000f = ╱22╱"╱ // 0x2aa @0xf
0x29b…2c6 at0010 = ╱b6╱ THEN ╱ // 0x2ab @0x10
0x29b…2c6 at0011 = ╱46╱F╱ // 0x2ac @0x11
0x29b…2c6 at0012 = ╱4e╱N╱ // 0x2ad @0x12
0x29b…2c6 at0013 = ╱56╱V╱ // 0x2ae @0x13
0x29b…2c6 at0014 = ╱ef╱$╱ // 0x2af @0x14
0x29b…2c6 at0015 = ╱ed╱(╱ // 0x2b0 @0x15
0x29b…2c6 at0016 = ╱4a╱J╱ // 0x2b1 @0x16
0x29b…2c6 at0017 = ╱39╱9╱ // 0x2b2 @0x17
0x29b…2c6 at0018 = ╱ee╱)╱ // 0x2b3 @0x18
0x29b…2c6 at0019 = ╱dc╱=╱ // 0x2b4 @0x19
0x29b…2c6 at001a = ╱46╱F╱ // 0x2b5 @0x1a
0x29b…2c6 at001b = ╱4e╱N╱ // 0x2b6 @0x1b
0x29b…2c6 at001c = ╱56╱V╱ // 0x2b7 @0x1c
0x29b…2c6 at001d = ╱ef╱$╱ // 0x2b8 @0x1d
0x29b…2c6 at001e = ╱ed╱(╱ // 0x2b9 @0x1e
0x29b…2c6 at001f = ╱4a╱J╱ // 0x2ba @0x1f
0x29b…2c6 at0020 = ╱39╱9╱ // 0x2bb @0x20
0x29b…2c6 at0021 = ╱ee╱)╱ // 0x2bc @0x21
0x29b…2c6 at0022 = ╱f1╱+╱ // 0x2bd @0x22
0x29b…2c6 at0023 = ╱50╱P╱ // 0x2be @0x23
0x29b…2c6 at0024 = ╱4c╱L╱ // 0x2bf @0x24
0x29b…2c6 at0025 = ╱31╱1╱ // 0x2c0 @0x25
0x29b…2c6 at0026 = ╱ef╱$╱ // 0x2c1 @0x26
0x29b…2c6 at0027 = ╱ed╱(╱ // 0x2c2 @0x27
0x29b…2c6 at0028 = ╱47╱G╱ // 0x2c3 @0x28
0x29b…2c6 at0029 = ╱ee╱)╱ // 0x2c4 @0x29
0x29b…2c6 at002a = EOL // 0x2c5 @0x2a
0x29b…2c6 }
0x2c6…2f1 9048 0360 IF PL2$(G)<>"0" THEN TNV$(J9)=TNV$(J9)+PL2$(G)
0x2c6…2f1 LineComalBin {
0x2c6…2f1 ptr = 0x9048 // 0x2c6 @0x0
0x2c6…2f1 lno = 0x0168 // 0x2c8 @0x2
0x2c6…2f1 at0004 = ╱82╱ IF ╱ // 0x2ca @0x4
0x2c6…2f1 at0005 = ╱50╱P╱ // 0x2cb @0x5
0x2c6…2f1 at0006 = ╱4c╱L╱ // 0x2cc @0x6
0x2c6…2f1 at0007 = ╱32╱2╱ // 0x2cd @0x7
0x2c6…2f1 at0008 = ╱ef╱$╱ // 0x2ce @0x8
0x2c6…2f1 at0009 = ╱ed╱(╱ // 0x2cf @0x9
0x2c6…2f1 at000a = ╱47╱G╱ // 0x2d0 @0xa
0x2c6…2f1 at000b = ╱ee╱)╱ // 0x2d1 @0xb
0x2c6…2f1 at000c = ╱e1╱<>╱ // 0x2d2 @0xc
0x2c6…2f1 at000d = ╱22╱"╱ // 0x2d3 @0xd
0x2c6…2f1 at000e = ╱30╱0╱ // 0x2d4 @0xe
0x2c6…2f1 at000f = ╱22╱"╱ // 0x2d5 @0xf
0x2c6…2f1 at0010 = ╱b6╱ THEN ╱ // 0x2d6 @0x10
0x2c6…2f1 at0011 = ╱54╱T╱ // 0x2d7 @0x11
0x2c6…2f1 at0012 = ╱4e╱N╱ // 0x2d8 @0x12
0x2c6…2f1 at0013 = ╱56╱V╱ // 0x2d9 @0x13
0x2c6…2f1 at0014 = ╱ef╱$╱ // 0x2da @0x14
0x2c6…2f1 at0015 = ╱ed╱(╱ // 0x2db @0x15
0x2c6…2f1 at0016 = ╱4a╱J╱ // 0x2dc @0x16
0x2c6…2f1 at0017 = ╱39╱9╱ // 0x2dd @0x17
0x2c6…2f1 at0018 = ╱ee╱)╱ // 0x2de @0x18
0x2c6…2f1 at0019 = ╱dc╱=╱ // 0x2df @0x19
0x2c6…2f1 at001a = ╱54╱T╱ // 0x2e0 @0x1a
0x2c6…2f1 at001b = ╱4e╱N╱ // 0x2e1 @0x1b
0x2c6…2f1 at001c = ╱56╱V╱ // 0x2e2 @0x1c
0x2c6…2f1 at001d = ╱ef╱$╱ // 0x2e3 @0x1d
0x2c6…2f1 at001e = ╱ed╱(╱ // 0x2e4 @0x1e
0x2c6…2f1 at001f = ╱4a╱J╱ // 0x2e5 @0x1f
0x2c6…2f1 at0020 = ╱39╱9╱ // 0x2e6 @0x20
0x2c6…2f1 at0021 = ╱ee╱)╱ // 0x2e7 @0x21
0x2c6…2f1 at0022 = ╱f1╱+╱ // 0x2e8 @0x22
0x2c6…2f1 at0023 = ╱50╱P╱ // 0x2e9 @0x23
0x2c6…2f1 at0024 = ╱4c╱L╱ // 0x2ea @0x24
0x2c6…2f1 at0025 = ╱32╱2╱ // 0x2eb @0x25
0x2c6…2f1 at0026 = ╱ef╱$╱ // 0x2ec @0x26
0x2c6…2f1 at0027 = ╱ed╱(╱ // 0x2ed @0x27
0x2c6…2f1 at0028 = ╱47╱G╱ // 0x2ee @0x28
0x2c6…2f1 at0029 = ╱ee╱)╱ // 0x2ef @0x29
0x2c6…2f1 at002a = EOL // 0x2f0 @0x2a
0x2c6…2f1 }
0x2f1…2f7 904e 0370 ENDPROC
0x2f1…2f7 LineComalBin {
0x2f1…2f7 ptr = 0x904e // 0x2f1 @0x0
0x2f1…2f7 lno = 0x0172 // 0x2f3 @0x2
0x2f1…2f7 at0004 = ╱9f╱ ENDPROC ╱ // 0x2f5 @0x4
0x2f1…2f7 at0005 = EOL // 0x2f6 @0x5
0x2f1…2f7 }
0x2f7…309 9060 0380 PROC NRTEST(NUM1)
0x2f7…309 LineComalBin {
0x2f7…309 ptr = 0x9060 // 0x2f7 @0x0
0x2f7…309 lno = 0x017c // 0x2f9 @0x2
0x2f7…309 at0004 = ╱9e╱ PROC ╱ // 0x2fb @0x4
0x2f7…309 at0005 = ╱4e╱N╱ // 0x2fc @0x5
0x2f7…309 at0006 = ╱52╱R╱ // 0x2fd @0x6
0x2f7…309 at0007 = ╱54╱T╱ // 0x2fe @0x7
0x2f7…309 at0008 = ╱45╱E╱ // 0x2ff @0x8
0x2f7…309 at0009 = ╱53╱S╱ // 0x300 @0x9
0x2f7…309 at000a = ╱54╱T╱ // 0x301 @0xa
0x2f7…309 at000b = ╱ed╱(╱ // 0x302 @0xb
0x2f7…309 at000c = ╱4e╱N╱ // 0x303 @0xc
0x2f7…309 at000d = ╱55╱U╱ // 0x304 @0xd
0x2f7…309 at000e = ╱4d╱M╱ // 0x305 @0xe
0x2f7…309 at000f = ╱31╱1╱ // 0x306 @0xf
0x2f7…309 at0010 = ╱ee╱)╱ // 0x307 @0x10
0x2f7…309 at0011 = EOL // 0x308 @0x11
0x2f7…309 }
0x309…32b 9082 0390 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x309…32b LineComalBin {
0x309…32b ptr = 0x9082 // 0x309 @0x0
0x309…32b lno = 0x0186 // 0x30b @0x2
0x309…32b at0004 = ╱50╱P╱ // 0x30d @0x4
0x309…32b at0005 = ╱dc╱=╱ // 0x30e @0x5
0x309…32b at0006 = ╱42╱B╱ // 0x30f @0x6
0x309…32b at0007 = ╱eb╱;╱ // 0x310 @0x7
0x309…32b at0008 = ╱54╱T╱ // 0x311 @0x8
0x309…32b at0009 = ╱45╱E╱ // 0x312 @0x9
0x309…32b at000a = ╱53╱S╱ // 0x313 @0xa
0x309…32b at000b = ╱54╱T╱ // 0x314 @0xb
0x309…32b at000c = ╱32╱2╱ // 0x315 @0xc
0x309…32b at000d = ╱dc╱=╱ // 0x316 @0xd
0x309…32b at000e = ╱42╱B╱ // 0x317 @0xe
0x309…32b at000f = ╱eb╱;╱ // 0x318 @0xf
0x309…32b at0010 = ╱4b╱K╱ // 0x319 @0x10
0x309…32b at0011 = ╱54╱T╱ // 0x31a @0x11
0x309…32b at0012 = ╱41╱A╱ // 0x31b @0x12
0x309…32b at0013 = ╱4c╱L╱ // 0x31c @0x13
0x309…32b at0014 = ╱dc╱=╱ // 0x31d @0x14
0x309…32b at0015 = ╱42╱B╱ // 0x31e @0x15
0x309…32b at0016 = ╱eb╱;╱ // 0x31f @0x16
0x309…32b at0017 = ╱4c╱L╱ // 0x320 @0x17
0x309…32b at0018 = ╱dc╱=╱ // 0x321 @0x18
0x309…32b at0019 = ╱cc╱LEN╱ // 0x322 @0x19
0x309…32b at001a = ╱ed╱(╱ // 0x323 @0x1a
0x309…32b at001b = ╱4e╱N╱ // 0x324 @0x1b
0x309…32b at001c = ╱55╱U╱ // 0x325 @0x1c
0x309…32b at001d = ╱4d╱M╱ // 0x326 @0x1d
0x309…32b at001e = ╱31╱1╱ // 0x327 @0x1e
0x309…32b at001f = ╱ef╱$╱ // 0x328 @0x1f
0x309…32b at0020 = ╱ee╱)╱ // 0x329 @0x20
0x309…32b at0021 = EOL // 0x32a @0x21
0x309…32b }
0x32b…33b 9092 0400 IF L>6 THEN EXIT
0x32b…33b LineComalBin {
0x32b…33b ptr = 0x9092 // 0x32b @0x0
0x32b…33b lno = 0x0190 // 0x32d @0x2
0x32b…33b at0004 = ╱82╱ IF ╱ // 0x32f @0x4
0x32b…33b at0005 = ╱4c╱L╱ // 0x330 @0x5
0x32b…33b at0006 = ╱de╱>╱ // 0x331 @0x6
0x32b…33b at0007 = ╱36╱6╱ // 0x332 @0x7
0x32b…33b at0008 = ╱fe0000c003╱ // 0x333 @0x8
0x32b…33b at000d = ╱b6╱ THEN ╱ // 0x338 @0xd
0x32b…33b at000e = ╱99╱ EXIT ╱ // 0x339 @0xe
0x32b…33b at000f = EOL // 0x33a @0xf
0x32b…33b }
0x33b…344 909b 0410 CASE L OF
0x33b…344 LineComalBin {
0x33b…344 ptr = 0x909b // 0x33b @0x0
0x33b…344 lno = 0x019a // 0x33d @0x2
0x33b…344 at0004 = ╱a201╱ CASE ╱ // 0x33f @0x4
0x33b…344 at0006 = ╱4c╱L╱ // 0x341 @0x6
0x33b…344 at0007 = ╱ba╱ OF ╱ // 0x342 @0x7
0x33b…344 at0008 = EOL // 0x343 @0x8
0x33b…344 }
0x344…34f 90a6 0420 FOR I=E TO L
0x344…34f LineComalBin {
0x344…34f ptr = 0x90a6 // 0x344 @0x0
0x344…34f lno = 0x01a4 // 0x346 @0x2
0x344…34f at0004 = ╱83╱ FOR ╱ // 0x348 @0x4
0x344…34f at0005 = ╱49╱I╱ // 0x349 @0x5
0x344…34f at0006 = ╱dc╱=╱ // 0x34a @0x6
0x344…34f at0007 = ╱45╱E╱ // 0x34b @0x7
0x344…34f at0008 = ╱b7╱ TO ╱ // 0x34c @0x8
0x344…34f at0009 = ╱4c╱L╱ // 0x34d @0x9
0x344…34f at000a = EOL // 0x34e @0xa
0x344…34f }
0x34f…36d (11,) 90c4 0430 P1=INT(ORD(NUM1$(I))-48)
0x34f…36d LineComalBin {
0x34f…36d ptr = 0x90c4 // 0x34f @0x0
0x34f…36d lno = 0x01ae // 0x351 @0x2
0x34f…36d at0004 = ╱50╱P╱ // 0x353 @0x4
0x34f…36d at0005 = ╱31╱1╱ // 0x354 @0x5
0x34f…36d at0006 = ╱dc╱=╱ // 0x355 @0x6
0x34f…36d at0007 = ╱c6╱INT╱ // 0x356 @0x7
0x34f…36d at0008 = ╱ed╱(╱ // 0x357 @0x8
0x34f…36d at0009 = ╱cd╱ORD╱ // 0x358 @0x9
0x34f…36d at000a = ╱ed╱(╱ // 0x359 @0xa
0x34f…36d at000b = ╱4e╱N╱ // 0x35a @0xb
0x34f…36d at000c = ╱55╱U╱ // 0x35b @0xc
0x34f…36d at000d = ╱4d╱M╱ // 0x35c @0xd
0x34f…36d at000e = ╱31╱1╱ // 0x35d @0xe
0x34f…36d at000f = ╱ef╱$╱ // 0x35e @0xf
0x34f…36d at0010 = ╱ed╱(╱ // 0x35f @0x10
0x34f…36d at0011 = ╱49╱I╱ // 0x360 @0x11
0x34f…36d at0012 = ╱ee╱)╱ // 0x361 @0x12
0x34f…36d at0013 = ╱ee╱)╱ // 0x362 @0x13
0x34f…36d at0014 = ╱e3╱-╱ // 0x363 @0x14
0x34f…36d at0015 = ╱34╱4╱ // 0x364 @0x15
0x34f…36d at0016 = ╱38╱8╱ // 0x365 @0x16
0x34f…36d at0017 = ╱fe0000c006╱ // 0x366 @0x17
0x34f…36d at001c = ╱ee╱)╱ // 0x36b @0x1c
0x34f…36d at001d = EOL // 0x36c @0x1d
0x34f…36d }
0x36d…384 90db 0440 IF P1<B OR P1>W THEN TEST2=E
0x36d…384 LineComalBin {
0x36d…384 ptr = 0x90db // 0x36d @0x0
0x36d…384 lno = 0x01b8 // 0x36f @0x2
0x36d…384 at0004 = ╱82╱ IF ╱ // 0x371 @0x4
0x36d…384 at0005 = ╱50╱P╱ // 0x372 @0x5
0x36d…384 at0006 = ╱31╱1╱ // 0x373 @0x6
0x36d…384 at0007 = ╱dd╱<╱ // 0x374 @0x7
0x36d…384 at0008 = ╱42╱B╱ // 0x375 @0x8
0x36d…384 at0009 = ╱db╱ OR ╱ // 0x376 @0x9
0x36d…384 at000a = ╱50╱P╱ // 0x377 @0xa
0x36d…384 at000b = ╱31╱1╱ // 0x378 @0xb
0x36d…384 at000c = ╱de╱>╱ // 0x379 @0xc
0x36d…384 at000d = ╱57╱W╱ // 0x37a @0xd
0x36d…384 at000e = ╱b6╱ THEN ╱ // 0x37b @0xe
0x36d…384 at000f = ╱54╱T╱ // 0x37c @0xf
0x36d…384 at0010 = ╱45╱E╱ // 0x37d @0x10
0x36d…384 at0011 = ╱53╱S╱ // 0x37e @0x11
0x36d…384 at0012 = ╱54╱T╱ // 0x37f @0x12
0x36d…384 at0013 = ╱32╱2╱ // 0x380 @0x13
0x36d…384 at0014 = ╱dc╱=╱ // 0x381 @0x14
0x36d…384 at0015 = ╱45╱E╱ // 0x382 @0x15
0x36d…384 at0016 = EOL // 0x383 @0x16
0x36d…384 }
0x384…397 90ee 0450 P=P*10+P1
0x384…397 LineComalBin {
0x384…397 ptr = 0x90ee // 0x384 @0x0
0x384…397 lno = 0x01c2 // 0x386 @0x2
0x384…397 at0004 = ╱50╱P╱ // 0x388 @0x4
0x384…397 at0005 = ╱dc╱=╱ // 0x389 @0x5
0x384…397 at0006 = ╱50╱P╱ // 0x38a @0x6
0x384…397 at0007 = ╱e4╱*╱ // 0x38b @0x7
0x384…397 at0008 = ╱31╱1╱ // 0x38c @0x8
0x384…397 at0009 = ╱30╱0╱ // 0x38d @0x9
0x384…397 at000a = ╱fe0000a004╱ // 0x38e @0xa
0x384…397 at000f = ╱e2╱+╱ // 0x393 @0xf
0x384…397 at0010 = ╱50╱P╱ // 0x394 @0x10
0x384…397 at0011 = ╱31╱1╱ // 0x395 @0x11
0x384…397 at0012 = EOL // 0x396 @0x12
0x384…397 }
0x397…39e 90f5 0460 NEXT I
0x397…39e LineComalBin {
0x397…39e ptr = 0x90f5 // 0x397 @0x0
0x397…39e lno = 0x01cc // 0x399 @0x2
0x397…39e at0004 = ╱84╱ NEXT ╱ // 0x39b @0x4
0x397…39e at0005 = ╱49╱I╱ // 0x39c @0x5
0x397…39e at0006 = EOL // 0x39d @0x6
0x397…39e }
0x39e…3b4 910b 0470 KTAL=P DIV 10000
0x39e…3b4 LineComalBin {
0x39e…3b4 ptr = 0x910b // 0x39e @0x0
0x39e…3b4 lno = 0x01d6 // 0x3a0 @0x2
0x39e…3b4 at0004 = ╱4b╱K╱ // 0x3a2 @0x4
0x39e…3b4 at0005 = ╱54╱T╱ // 0x3a3 @0x5
0x39e…3b4 at0006 = ╱41╱A╱ // 0x3a4 @0x6
0x39e…3b4 at0007 = ╱4c╱L╱ // 0x3a5 @0x7
0x39e…3b4 at0008 = ╱dc╱=╱ // 0x3a6 @0x8
0x39e…3b4 at0009 = ╱50╱P╱ // 0x3a7 @0x9
0x39e…3b4 at000a = ╱e7╱ DIV ╱ // 0x3a8 @0xa
0x39e…3b4 at000b = ╱31╱1╱ // 0x3a9 @0xb
0x39e…3b4 at000c = ╱30╱0╱ // 0x3aa @0xc
0x39e…3b4 at000d = ╱30╱0╱ // 0x3ab @0xd
0x39e…3b4 at000e = ╱30╱0╱ // 0x3ac @0xe
0x39e…3b4 at000f = ╱30╱0╱ // 0x3ad @0xf
0x39e…3b4 at0010 = ╱fe00409c0e╱ // 0x3ae @0x10
0x39e…3b4 at0015 = EOL // 0x3b3 @0x15
0x39e…3b4 }
0x3b4…3bc 9113 0480 WHEN B
0x3b4…3bc LineComalBin {
0x3b4…3bc ptr = 0x9113 // 0x3b4 @0x0
0x3b4…3bc lno = 0x01e0 // 0x3b6 @0x2
0x3b4…3bc at0004 = ╱a301╱ WHEN ╱ // 0x3b8 @0x4
0x3b4…3bc at0006 = ╱42╱B╱ // 0x3ba @0x6
0x3b4…3bc at0007 = EOL // 0x3bb @0x7
0x3b4…3bc }
0x3bc…3c5 911c 0490 P=-E
0x3bc…3c5 LineComalBin {
0x3bc…3c5 ptr = 0x911c // 0x3bc @0x0
0x3bc…3c5 lno = 0x01ea // 0x3be @0x2
0x3bc…3c5 at0004 = ╱50╱P╱ // 0x3c0 @0x4
0x3bc…3c5 at0005 = ╱dc╱=╱ // 0x3c1 @0x5
0x3bc…3c5 at0006 = ╱e9╱-╱ // 0x3c2 @0x6
0x3bc…3c5 at0007 = ╱45╱E╱ // 0x3c3 @0x7
0x3bc…3c5 at0008 = EOL // 0x3c4 @0x8
0x3bc…3c5 }
0x3c5…3cd 9124 0500 WHEN E
0x3c5…3cd LineComalBin {
0x3c5…3cd ptr = 0x9124 // 0x3c5 @0x0
0x3c5…3cd lno = 0x01f4 // 0x3c7 @0x2
0x3c5…3cd at0004 = ╱a301╱ WHEN ╱ // 0x3c9 @0x4
0x3c5…3cd at0006 = ╱45╱E╱ // 0x3cb @0x6
0x3c5…3cd at0007 = EOL // 0x3cc @0x7
0x3c5…3cd }
0x3cd…3da 9131 0510 CASE NUM1$ OF
0x3cd…3da LineComalBin {
0x3cd…3da ptr = 0x9131 // 0x3cd @0x0
0x3cd…3da lno = 0x01fe // 0x3cf @0x2
0x3cd…3da at0004 = ╱a200╱ CASE ╱ // 0x3d1 @0x4
0x3cd…3da at0006 = ╱4e╱N╱ // 0x3d3 @0x6
0x3cd…3da at0007 = ╱55╱U╱ // 0x3d4 @0x7
0x3cd…3da at0008 = ╱4d╱M╱ // 0x3d5 @0x8
0x3cd…3da at0009 = ╱31╱1╱ // 0x3d6 @0x9
0x3cd…3da at000a = ╱ef╱$╱ // 0x3d7 @0xa
0x3cd…3da at000b = ╱ba╱ OF ╱ // 0x3d8 @0xb
0x3cd…3da at000c = EOL // 0x3d9 @0xc
0x3cd…3da }
0x3da…3f4 914b 0520 P=INT(ORD(NUM1$)-48)
0x3da…3f4 LineComalBin {
0x3da…3f4 ptr = 0x914b // 0x3da @0x0
0x3da…3f4 lno = 0x0208 // 0x3dc @0x2
0x3da…3f4 at0004 = ╱50╱P╱ // 0x3de @0x4
0x3da…3f4 at0005 = ╱dc╱=╱ // 0x3df @0x5
0x3da…3f4 at0006 = ╱c6╱INT╱ // 0x3e0 @0x6
0x3da…3f4 at0007 = ╱ed╱(╱ // 0x3e1 @0x7
0x3da…3f4 at0008 = ╱cd╱ORD╱ // 0x3e2 @0x8
0x3da…3f4 at0009 = ╱ed╱(╱ // 0x3e3 @0x9
0x3da…3f4 at000a = ╱4e╱N╱ // 0x3e4 @0xa
0x3da…3f4 at000b = ╱55╱U╱ // 0x3e5 @0xb
0x3da…3f4 at000c = ╱4d╱M╱ // 0x3e6 @0xc
0x3da…3f4 at000d = ╱31╱1╱ // 0x3e7 @0xd
0x3da…3f4 at000e = ╱ef╱$╱ // 0x3e8 @0xe
0x3da…3f4 at000f = ╱ee╱)╱ // 0x3e9 @0xf
0x3da…3f4 at0010 = ╱e3╱-╱ // 0x3ea @0x10
0x3da…3f4 at0011 = ╱34╱4╱ // 0x3eb @0x11
0x3da…3f4 at0012 = ╱38╱8╱ // 0x3ec @0x12
0x3da…3f4 at0013 = ╱fe0000c006╱ // 0x3ed @0x13
0x3da…3f4 at0018 = ╱ee╱)╱ // 0x3f2 @0x18
0x3da…3f4 at0019 = EOL // 0x3f3 @0x19
0x3da…3f4 }
0x3f4…402 9159 0530 WHEN "j","J"
0x3f4…402 LineComalBin {
0x3f4…402 ptr = 0x9159 // 0x3f4 @0x0
0x3f4…402 lno = 0x0212 // 0x3f6 @0x2
0x3f4…402 at0004 = ╱a300╱ WHEN ╱ // 0x3f8 @0x4
0x3f4…402 at0006 = ╱22╱"╱ // 0x3fa @0x6
0x3f4…402 at0007 = ╱6a╱j╱ // 0x3fb @0x7
0x3f4…402 at0008 = ╱22╱"╱ // 0x3fc @0x8
0x3f4…402 at0009 = ╱ec╱,╱ // 0x3fd @0x9
0x3f4…402 at000a = ╱22╱"╱ // 0x3fe @0xa
0x3f4…402 at000b = ╱4a╱J╱ // 0x3ff @0xb
0x3f4…402 at000c = ╱22╱"╱ // 0x400 @0xc
0x3f4…402 at000d = EOL // 0x401 @0xd
0x3f4…402 }
0x402…410 9167 0540 P=-7
0x402…410 LineComalBin {
0x402…410 ptr = 0x9167 // 0x402 @0x0
0x402…410 lno = 0x021c // 0x404 @0x2
0x402…410 at0004 = ╱50╱P╱ // 0x406 @0x4
0x402…410 at0005 = ╱dc╱=╱ // 0x407 @0x5
0x402…410 at0006 = ╱e9╱-╱ // 0x408 @0x6
0x402…410 at0007 = ╱37╱7╱ // 0x409 @0x7
0x402…410 at0008 = ╱fe0000e003╱ // 0x40a @0x8
0x402…410 at000d = EOL // 0x40f @0xd
0x402…410 }
0x410…41e 9175 0550 WHEN "n","N"
0x410…41e LineComalBin {
0x410…41e ptr = 0x9175 // 0x410 @0x0
0x410…41e lno = 0x0226 // 0x412 @0x2
0x410…41e at0004 = ╱a300╱ WHEN ╱ // 0x414 @0x4
0x410…41e at0006 = ╱22╱"╱ // 0x416 @0x6
0x410…41e at0007 = ╱6e╱n╱ // 0x417 @0x7
0x410…41e at0008 = ╱22╱"╱ // 0x418 @0x8
0x410…41e at0009 = ╱ec╱,╱ // 0x419 @0x9
0x410…41e at000a = ╱22╱"╱ // 0x41a @0xa
0x410…41e at000b = ╱4e╱N╱ // 0x41b @0xb
0x410…41e at000c = ╱22╱"╱ // 0x41c @0xc
0x410…41e at000d = EOL // 0x41d @0xd
0x410…41e }
0x41e…42c 9183 0560 P=-8
0x41e…42c LineComalBin {
0x41e…42c ptr = 0x9183 // 0x41e @0x0
0x41e…42c lno = 0x0230 // 0x420 @0x2
0x41e…42c at0004 = ╱50╱P╱ // 0x422 @0x4
0x41e…42c at0005 = ╱dc╱=╱ // 0x423 @0x5
0x41e…42c at0006 = ╱e9╱-╱ // 0x424 @0x6
0x41e…42c at0007 = ╱38╱8╱ // 0x425 @0x7
0x41e…42c at0008 = ╱fe00008004╱ // 0x426 @0x8
0x41e…42c at000d = EOL // 0x42b @0xd
0x41e…42c }
0x42c…432 9189 0570 ENDCASE
0x42c…432 LineComalBin {
0x42c…432 ptr = 0x9189 // 0x42c @0x0
0x42c…432 lno = 0x023a // 0x42e @0x2
0x42c…432 at0004 = ╱a4╱ ENDCASE ╱ // 0x430 @0x4
0x42c…432 at0005 = EOL // 0x431 @0x5
0x42c…432 }
0x432…438 918f 0580 ENDCASE
0x432…438 LineComalBin {
0x432…438 ptr = 0x918f // 0x432 @0x0
0x432…438 lno = 0x0244 // 0x434 @0x2
0x432…438 at0004 = ╱a4╱ ENDCASE ╱ // 0x436 @0x4
0x432…438 at0005 = EOL // 0x437 @0x5
0x432…438 }
0x438…43e 9195 0590 ENDPROC
0x438…43e LineComalBin {
0x438…43e ptr = 0x9195 // 0x438 @0x0
0x438…43e lno = 0x024e // 0x43a @0x2
0x438…43e at0004 = ╱9f╱ ENDPROC ╱ // 0x43c @0x4
0x438…43e at0005 = EOL // 0x43d @0x5
0x438…43e }
0x43e…44d 91a4 0600 PROC IND(X,PL)
0x43e…44d LineComalBin {
0x43e…44d ptr = 0x91a4 // 0x43e @0x0
0x43e…44d lno = 0x0258 // 0x440 @0x2
0x43e…44d at0004 = ╱9e╱ PROC ╱ // 0x442 @0x4
0x43e…44d at0005 = ╱49╱I╱ // 0x443 @0x5
0x43e…44d at0006 = ╱4e╱N╱ // 0x444 @0x6
0x43e…44d at0007 = ╱44╱D╱ // 0x445 @0x7
0x43e…44d at0008 = ╱ed╱(╱ // 0x446 @0x8
0x43e…44d at0009 = ╱58╱X╱ // 0x447 @0x9
0x43e…44d at000a = ╱ec╱,╱ // 0x448 @0xa
0x43e…44d at000b = ╱50╱P╱ // 0x449 @0xb
0x43e…44d at000c = ╱4c╱L╱ // 0x44a @0xc
0x43e…44d at000d = ╱ee╱)╱ // 0x44b @0xd
0x43e…44d at000e = EOL // 0x44c @0xe
0x43e…44d }
0x44d…45c 91b3 0610 CURSOR 15,X
0x44d…45c LineComalBin {
0x44d…45c ptr = 0x91b3 // 0x44d @0x0
0x44d…45c lno = 0x0262 // 0x44f @0x2
0x44d…45c at0004 = ╱a1╱ CURSOR ╱ // 0x451 @0x4
0x44d…45c at0005 = ╱31╱1╱ // 0x452 @0x5
0x44d…45c at0006 = ╱35╱5╱ // 0x453 @0x6
0x44d…45c at0007 = ╱fe0000f004╱ // 0x454 @0x7
0x44d…45c at000c = ╱ec╱,╱ // 0x459 @0xc
0x44d…45c at000d = ╱58╱X╱ // 0x45a @0xd
0x44d…45c at000e = EOL // 0x45b @0xe
0x44d…45c }
0x45c…496 91ed 0620 PRINT "Isæt plade nr ";PL$;" i løbeværket og tast RETURN";
0x45c…496 LineComalBin {
0x45c…496 ptr = 0x91ed // 0x45c @0x0
0x45c…496 lno = 0x026c // 0x45e @0x2
0x45c…496 at0004 = ╱92╱ PRINT ╱ // 0x460 @0x4
0x45c…496 at0005 = ╱22╱"╱ // 0x461 @0x5
0x45c…496 at0006 = ╱49╱I╱ // 0x462 @0x6
0x45c…496 at0007 = ╱73╱s╱ // 0x463 @0x7
0x45c…496 at0008 = ╱7b╱æ╱ // 0x464 @0x8
0x45c…496 at0009 = ╱74╱t╱ // 0x465 @0x9
0x45c…496 at000a = ╱20╱…╱ // 0x466 @0xa
0x45c…496 at000b = ╱70╱p╱ // 0x467 @0xb
0x45c…496 at000c = ╱6c╱l╱ // 0x468 @0xc
0x45c…496 at000d = ╱61╱a╱ // 0x469 @0xd
0x45c…496 at000e = ╱64╱d╱ // 0x46a @0xe
0x45c…496 at000f = ╱65╱e╱ // 0x46b @0xf
0x45c…496 at0010 = ╱20╱…╱ // 0x46c @0x10
0x45c…496 at0011 = ╱6e╱n╱ // 0x46d @0x11
0x45c…496 at0012 = ╱72╱r╱ // 0x46e @0x12
0x45c…496 at0013 = ╱20╱…╱ // 0x46f @0x13
0x45c…496 at0014 = ╱22╱"╱ // 0x470 @0x14
0x45c…496 at0015 = ╱eb╱;╱ // 0x471 @0x15
0x45c…496 at0016 = ╱50╱P╱ // 0x472 @0x16
0x45c…496 at0017 = ╱4c╱L╱ // 0x473 @0x17
0x45c…496 at0018 = ╱ef╱$╱ // 0x474 @0x18
0x45c…496 at0019 = ╱eb╱;╱ // 0x475 @0x19
0x45c…496 at001a = ╱22╱"╱ // 0x476 @0x1a
0x45c…496 at001b = ╱20╱…╱ // 0x477 @0x1b
0x45c…496 at001c = ╱69╱i╱ // 0x478 @0x1c
0x45c…496 at001d = ╱20╱…╱ // 0x479 @0x1d
0x45c…496 at001e = ╱6c╱l╱ // 0x47a @0x1e
0x45c…496 at001f = ╱7c╱ø╱ // 0x47b @0x1f
0x45c…496 at0020 = ╱62╱b╱ // 0x47c @0x20
0x45c…496 at0021 = ╱65╱e╱ // 0x47d @0x21
0x45c…496 at0022 = ╱76╱v╱ // 0x47e @0x22
0x45c…496 at0023 = ╱7b╱æ╱ // 0x47f @0x23
0x45c…496 at0024 = ╱72╱r╱ // 0x480 @0x24
0x45c…496 at0025 = ╱6b╱k╱ // 0x481 @0x25
0x45c…496 at0026 = ╱65╱e╱ // 0x482 @0x26
0x45c…496 at0027 = ╱74╱t╱ // 0x483 @0x27
0x45c…496 at0028 = ╱20╱…╱ // 0x484 @0x28
0x45c…496 at0029 = ╱6f╱o╱ // 0x485 @0x29
0x45c…496 at002a = ╱67╱g╱ // 0x486 @0x2a
0x45c…496 at002b = ╱20╱…╱ // 0x487 @0x2b
0x45c…496 at002c = ╱74╱t╱ // 0x488 @0x2c
0x45c…496 at002d = ╱61╱a╱ // 0x489 @0x2d
0x45c…496 at002e = ╱73╱s╱ // 0x48a @0x2e
0x45c…496 at002f = ╱74╱t╱ // 0x48b @0x2f
0x45c…496 at0030 = ╱20╱…╱ // 0x48c @0x30
0x45c…496 at0031 = ╱52╱R╱ // 0x48d @0x31
0x45c…496 at0032 = ╱45╱E╱ // 0x48e @0x32
0x45c…496 at0033 = ╱54╱T╱ // 0x48f @0x33
0x45c…496 at0034 = ╱55╱U╱ // 0x490 @0x34
0x45c…496 at0035 = ╱52╱R╱ // 0x491 @0x35
0x45c…496 at0036 = ╱4e╱N╱ // 0x492 @0x36
0x45c…496 at0037 = ╱22╱"╱ // 0x493 @0x37
0x45c…496 at0038 = ╱eb╱;╱ // 0x494 @0x38
0x45c…496 at0039 = EOL // 0x495 @0x39
0x45c…496 }
0x496…4a2 91f9 0630 INPUT " ",A$
0x496…4a2 LineComalBin {
0x496…4a2 ptr = 0x91f9 // 0x496 @0x0
0x496…4a2 lno = 0x0276 // 0x498 @0x2
0x496…4a2 at0004 = ╱91╱ INPUT ╱ // 0x49a @0x4
0x496…4a2 at0005 = ╱22╱"╱ // 0x49b @0x5
0x496…4a2 at0006 = ╱20╱…╱ // 0x49c @0x6
0x496…4a2 at0007 = ╱22╱"╱ // 0x49d @0x7
0x496…4a2 at0008 = ╱ec╱,╱ // 0x49e @0x8
0x496…4a2 at0009 = ╱41╱A╱ // 0x49f @0x9
0x496…4a2 at000a = ╱ef╱$╱ // 0x4a0 @0xa
0x496…4a2 at000b = EOL // 0x4a1 @0xb
0x496…4a2 }
0x4a2…4a8 91ff 0640 ENDPROC
0x4a2…4a8 LineComalBin {
0x4a2…4a8 ptr = 0x91ff // 0x4a2 @0x0
0x4a2…4a8 lno = 0x0280 // 0x4a4 @0x2
0x4a2…4a8 at0004 = ╱9f╱ ENDPROC ╱ // 0x4a6 @0x4
0x4a2…4a8 at0005 = EOL // 0x4a7 @0x5
0x4a2…4a8 }
0x4a8…4c2 9219 0650 K1$="P641220:SYSTEM1"
0x4a8…4c2 LineComalBin {
0x4a8…4c2 ptr = 0x9219 // 0x4a8 @0x0
0x4a8…4c2 lno = 0x028a // 0x4aa @0x2
0x4a8…4c2 at0004 = ╱4b╱K╱ // 0x4ac @0x4
0x4a8…4c2 at0005 = ╱31╱1╱ // 0x4ad @0x5
0x4a8…4c2 at0006 = ╱ef╱$╱ // 0x4ae @0x6
0x4a8…4c2 at0007 = ╱dc╱=╱ // 0x4af @0x7
0x4a8…4c2 at0008 = ╱22╱"╱ // 0x4b0 @0x8
0x4a8…4c2 at0009 = ╱50╱P╱ // 0x4b1 @0x9
0x4a8…4c2 at000a = ╱36╱6╱ // 0x4b2 @0xa
0x4a8…4c2 at000b = ╱34╱4╱ // 0x4b3 @0xb
0x4a8…4c2 at000c = ╱31╱1╱ // 0x4b4 @0xc
0x4a8…4c2 at000d = ╱32╱2╱ // 0x4b5 @0xd
0x4a8…4c2 at000e = ╱32╱2╱ // 0x4b6 @0xe
0x4a8…4c2 at000f = ╱30╱0╱ // 0x4b7 @0xf
0x4a8…4c2 at0010 = ╱3a╱:╱ // 0x4b8 @0x10
0x4a8…4c2 at0011 = ╱53╱S╱ // 0x4b9 @0x11
0x4a8…4c2 at0012 = ╱59╱Y╱ // 0x4ba @0x12
0x4a8…4c2 at0013 = ╱53╱S╱ // 0x4bb @0x13
0x4a8…4c2 at0014 = ╱54╱T╱ // 0x4bc @0x14
0x4a8…4c2 at0015 = ╱45╱E╱ // 0x4bd @0x15
0x4a8…4c2 at0016 = ╱4d╱M╱ // 0x4be @0x16
0x4a8…4c2 at0017 = ╱31╱1╱ // 0x4bf @0x17
0x4a8…4c2 at0018 = ╱22╱"╱ // 0x4c0 @0x18
0x4a8…4c2 at0019 = EOL // 0x4c1 @0x19
0x4a8…4c2 }
0x4c2…4cd 9224 0660 OPEN K1$,R
0x4c2…4cd LineComalBin {
0x4c2…4cd ptr = 0x9224 // 0x4c2 @0x0
0x4c2…4cd lno = 0x0294 // 0x4c4 @0x2
0x4c2…4cd at0004 = ╱a7╱ OPEN ╱ // 0x4c6 @0x4
0x4c2…4cd at0005 = ╱4b╱K╱ // 0x4c7 @0x5
0x4c2…4cd at0006 = ╱31╱1╱ // 0x4c8 @0x6
0x4c2…4cd at0007 = ╱ef╱$╱ // 0x4c9 @0x7
0x4c2…4cd at0008 = ╱ec╱,╱ // 0x4ca @0x8
0x4c2…4cd at0009 = ╱52╱R╱ // 0x4cb @0x9
0x4c2…4cd at000a = EOL // 0x4cc @0xa
0x4c2…4cd }
0x4cd…4e0 9237 0670 EXEC FEJL(W,E,K1$)
0x4cd…4e0 LineComalBin {
0x4cd…4e0 ptr = 0x9237 // 0x4cd @0x0
0x4cd…4e0 lno = 0x029e // 0x4cf @0x2
0x4cd…4e0 at0004 = ╱9d╱ EXEC ╱ // 0x4d1 @0x4
0x4cd…4e0 at0005 = ╱46╱F╱ // 0x4d2 @0x5
0x4cd…4e0 at0006 = ╱45╱E╱ // 0x4d3 @0x6
0x4cd…4e0 at0007 = ╱4a╱J╱ // 0x4d4 @0x7
0x4cd…4e0 at0008 = ╱4c╱L╱ // 0x4d5 @0x8
0x4cd…4e0 at0009 = ╱ed╱(╱ // 0x4d6 @0x9
0x4cd…4e0 at000a = ╱57╱W╱ // 0x4d7 @0xa
0x4cd…4e0 at000b = ╱ec╱,╱ // 0x4d8 @0xb
0x4cd…4e0 at000c = ╱45╱E╱ // 0x4d9 @0xc
0x4cd…4e0 at000d = ╱ec╱,╱ // 0x4da @0xd
0x4cd…4e0 at000e = ╱4b╱K╱ // 0x4db @0xe
0x4cd…4e0 at000f = ╱31╱1╱ // 0x4dc @0xf
0x4cd…4e0 at0010 = ╱ef╱$╱ // 0x4dd @0x10
0x4cd…4e0 at0011 = ╱ee╱)╱ // 0x4de @0x11
0x4cd…4e0 at0012 = EOL // 0x4df @0x12
0x4cd…4e0 }
0x4e0…4f1 9248 0680 FOR I=E TO 32
0x4e0…4f1 LineComalBin {
0x4e0…4f1 ptr = 0x9248 // 0x4e0 @0x0
0x4e0…4f1 lno = 0x02a8 // 0x4e2 @0x2
0x4e0…4f1 at0004 = ╱83╱ FOR ╱ // 0x4e4 @0x4
0x4e0…4f1 at0005 = ╱49╱I╱ // 0x4e5 @0x5
0x4e0…4f1 at0006 = ╱dc╱=╱ // 0x4e6 @0x6
0x4e0…4f1 at0007 = ╱45╱E╱ // 0x4e7 @0x7
0x4e0…4f1 at0008 = ╱b7╱ TO ╱ // 0x4e8 @0x8
0x4e0…4f1 at0009 = ╱33╱3╱ // 0x4e9 @0x9
0x4e0…4f1 at000a = ╱32╱2╱ // 0x4ea @0xa
0x4e0…4f1 at000b = ╱fe00008006╱ // 0x4eb @0xb
0x4e0…4f1 at0010 = EOL // 0x4f0 @0x10
0x4e0…4f1 }
0x4f1…50a 9261 0690 GET K1$,I+10:K$(I)
0x4f1…50a LineComalBin {
0x4f1…50a ptr = 0x9261 // 0x4f1 @0x0
0x4f1…50a lno = 0x02b2 // 0x4f3 @0x2
0x4f1…50a at0004 = ╱a9╱ GET ╱ // 0x4f5 @0x4
0x4f1…50a at0005 = ╱4b╱K╱ // 0x4f6 @0x5
0x4f1…50a at0006 = ╱31╱1╱ // 0x4f7 @0x6
0x4f1…50a at0007 = ╱ef╱$╱ // 0x4f8 @0x7
0x4f1…50a at0008 = ╱ec╱,╱ // 0x4f9 @0x8
0x4f1…50a at0009 = ╱49╱I╱ // 0x4fa @0x9
0x4f1…50a at000a = ╱e2╱+╱ // 0x4fb @0xa
0x4f1…50a at000b = ╱31╱1╱ // 0x4fc @0xb
0x4f1…50a at000c = ╱30╱0╱ // 0x4fd @0xc
0x4f1…50a at000d = ╱fe0000a004╱ // 0x4fe @0xd
0x4f1…50a at0012 = ╱f0╱:╱ // 0x503 @0x12
0x4f1…50a at0013 = ╱4b╱K╱ // 0x504 @0x13
0x4f1…50a at0014 = ╱ef╱$╱ // 0x505 @0x14
0x4f1…50a at0015 = ╱ed╱(╱ // 0x506 @0x15
0x4f1…50a at0016 = ╱49╱I╱ // 0x507 @0x16
0x4f1…50a at0017 = ╱ee╱)╱ // 0x508 @0x17
0x4f1…50a at0018 = EOL // 0x509 @0x18
0x4f1…50a }
0x50a…51d 9274 0700 EXEC FEJL(W,G,K1$)
0x50a…51d LineComalBin {
0x50a…51d ptr = 0x9274 // 0x50a @0x0
0x50a…51d lno = 0x02bc // 0x50c @0x2
0x50a…51d at0004 = ╱9d╱ EXEC ╱ // 0x50e @0x4
0x50a…51d at0005 = ╱46╱F╱ // 0x50f @0x5
0x50a…51d at0006 = ╱45╱E╱ // 0x510 @0x6
0x50a…51d at0007 = ╱4a╱J╱ // 0x511 @0x7
0x50a…51d at0008 = ╱4c╱L╱ // 0x512 @0x8
0x50a…51d at0009 = ╱ed╱(╱ // 0x513 @0x9
0x50a…51d at000a = ╱57╱W╱ // 0x514 @0xa
0x50a…51d at000b = ╱ec╱,╱ // 0x515 @0xb
0x50a…51d at000c = ╱47╱G╱ // 0x516 @0xc
0x50a…51d at000d = ╱ec╱,╱ // 0x517 @0xd
0x50a…51d at000e = ╱4b╱K╱ // 0x518 @0xe
0x50a…51d at000f = ╱31╱1╱ // 0x519 @0xf
0x50a…51d at0010 = ╱ef╱$╱ // 0x51a @0x10
0x50a…51d at0011 = ╱ee╱)╱ // 0x51b @0x11
0x50a…51d at0012 = EOL // 0x51c @0x12
0x50a…51d }
0x51d…524 (17,) 927b 0710 NEXT I
0x51d…524 LineComalBin {
0x51d…524 ptr = 0x927b // 0x51d @0x0
0x51d…524 lno = 0x02c6 // 0x51f @0x2
0x51d…524 at0004 = ╱84╱ NEXT ╱ // 0x521 @0x4
0x51d…524 at0005 = ╱49╱I╱ // 0x522 @0x5
0x51d…524 at0006 = EOL // 0x523 @0x6
0x51d…524 }
0x524…52d 9284 0720 CLOSE K1$
0x524…52d LineComalBin {
0x524…52d ptr = 0x9284 // 0x524 @0x0
0x524…52d lno = 0x02d0 // 0x526 @0x2
0x524…52d at0004 = ╱a8╱ CLOSE ╱ // 0x528 @0x4
0x524…52d at0005 = ╱4b╱K╱ // 0x529 @0x5
0x524…52d at0006 = ╱31╱1╱ // 0x52a @0x6
0x524…52d at0007 = ╱ef╱$╱ // 0x52b @0x7
0x524…52d at0008 = EOL // 0x52c @0x8
0x524…52d }
0x52d…540 9297 0730 EXEC FEJL(W,V,K1$)
0x52d…540 LineComalBin {
0x52d…540 ptr = 0x9297 // 0x52d @0x0
0x52d…540 lno = 0x02da // 0x52f @0x2
0x52d…540 at0004 = ╱9d╱ EXEC ╱ // 0x531 @0x4
0x52d…540 at0005 = ╱46╱F╱ // 0x532 @0x5
0x52d…540 at0006 = ╱45╱E╱ // 0x533 @0x6
0x52d…540 at0007 = ╱4a╱J╱ // 0x534 @0x7
0x52d…540 at0008 = ╱4c╱L╱ // 0x535 @0x8
0x52d…540 at0009 = ╱ed╱(╱ // 0x536 @0x9
0x52d…540 at000a = ╱57╱W╱ // 0x537 @0xa
0x52d…540 at000b = ╱ec╱,╱ // 0x538 @0xb
0x52d…540 at000c = ╱56╱V╱ // 0x539 @0xc
0x52d…540 at000d = ╱ec╱,╱ // 0x53a @0xd
0x52d…540 at000e = ╱4b╱K╱ // 0x53b @0xe
0x52d…540 at000f = ╱31╱1╱ // 0x53c @0xf
0x52d…540 at0010 = ╱ef╱$╱ // 0x53d @0x10
0x52d…540 at0011 = ╱ee╱)╱ // 0x53e @0x11
0x52d…540 at0012 = EOL // 0x53f @0x12
0x52d…540 }
0x540…56a 92c1 0740 DREVFRA$="P2";DREVTIL$="P3";TYPE$="K"
0x540…56a LineComalBin {
0x540…56a ptr = 0x92c1 // 0x540 @0x0
0x540…56a lno = 0x02e4 // 0x542 @0x2
0x540…56a at0004 = ╱44╱D╱ // 0x544 @0x4
0x540…56a at0005 = ╱52╱R╱ // 0x545 @0x5
0x540…56a at0006 = ╱45╱E╱ // 0x546 @0x6
0x540…56a at0007 = ╱56╱V╱ // 0x547 @0x7
0x540…56a at0008 = ╱46╱F╱ // 0x548 @0x8
0x540…56a at0009 = ╱52╱R╱ // 0x549 @0x9
0x540…56a at000a = ╱41╱A╱ // 0x54a @0xa
0x540…56a at000b = ╱ef╱$╱ // 0x54b @0xb
0x540…56a at000c = ╱dc╱=╱ // 0x54c @0xc
0x540…56a at000d = ╱22╱"╱ // 0x54d @0xd
0x540…56a at000e = ╱50╱P╱ // 0x54e @0xe
0x540…56a at000f = ╱32╱2╱ // 0x54f @0xf
0x540…56a at0010 = ╱22╱"╱ // 0x550 @0x10
0x540…56a at0011 = ╱eb╱;╱ // 0x551 @0x11
0x540…56a at0012 = ╱44╱D╱ // 0x552 @0x12
0x540…56a at0013 = ╱52╱R╱ // 0x553 @0x13
0x540…56a at0014 = ╱45╱E╱ // 0x554 @0x14
0x540…56a at0015 = ╱56╱V╱ // 0x555 @0x15
0x540…56a at0016 = ╱54╱T╱ // 0x556 @0x16
0x540…56a at0017 = ╱49╱I╱ // 0x557 @0x17
0x540…56a at0018 = ╱4c╱L╱ // 0x558 @0x18
0x540…56a at0019 = ╱ef╱$╱ // 0x559 @0x19
0x540…56a at001a = ╱dc╱=╱ // 0x55a @0x1a
0x540…56a at001b = ╱22╱"╱ // 0x55b @0x1b
0x540…56a at001c = ╱50╱P╱ // 0x55c @0x1c
0x540…56a at001d = ╱33╱3╱ // 0x55d @0x1d
0x540…56a at001e = ╱22╱"╱ // 0x55e @0x1e
0x540…56a at001f = ╱eb╱;╱ // 0x55f @0x1f
0x540…56a at0020 = ╱54╱T╱ // 0x560 @0x20
0x540…56a at0021 = ╱59╱Y╱ // 0x561 @0x21
0x540…56a at0022 = ╱50╱P╱ // 0x562 @0x22
0x540…56a at0023 = ╱45╱E╱ // 0x563 @0x23
0x540…56a at0024 = ╱ef╱$╱ // 0x564 @0x24
0x540…56a at0025 = ╱dc╱=╱ // 0x565 @0x25
0x540…56a at0026 = ╱22╱"╱ // 0x566 @0x26
0x540…56a at0027 = ╱4b╱K╱ // 0x567 @0x27
0x540…56a at0028 = ╱22╱"╱ // 0x568 @0x28
0x540…56a at0029 = EOL // 0x569 @0x29
0x540…56a }
0x56a…570 (18,) 92c7 0750 REPEAT
0x56a…570 LineComalBin {
0x56a…570 ptr = 0x92c7 // 0x56a @0x0
0x56a…570 lno = 0x02ee // 0x56c @0x2
0x56a…570 at0004 = ╱97╱ REPEAT ╱ // 0x56e @0x4
0x56a…570 at0005 = EOL // 0x56f @0x5
0x56a…570 }
0x570…576 92cd 0760 REPEAT
0x570…576 LineComalBin {
0x570…576 ptr = 0x92cd // 0x570 @0x0
0x570…576 lno = 0x02f8 // 0x572 @0x2
0x570…576 at0004 = ╱97╱ REPEAT ╱ // 0x574 @0x4
0x570…576 at0005 = EOL // 0x575 @0x5
0x570…576 }
0x576…57d 92d4 0770 OUTPUT T
0x576…57d LineComalBin {
0x576…57d ptr = 0x92d4 // 0x576 @0x0
0x576…57d lno = 0x0302 // 0x578 @0x2
0x576…57d at0004 = ╱a5╱ OUTPUT ╱ // 0x57a @0x4
0x576…57d at0005 = ╱54╱T╱ // 0x57b @0x5
0x576…57d at0006 = EOL // 0x57c @0x6
0x576…57d }
0x57d…583 92da 0780 CLEAR
0x57d…583 LineComalBin {
0x57d…583 ptr = 0x92da // 0x57d @0x0
0x57d…583 lno = 0x030c // 0x57f @0x2
0x57d…583 at0004 = ╱a0╱ CLEAR ╱ // 0x581 @0x4
0x57d…583 at0005 = EOL // 0x582 @0x5
0x57d…583 }
0x583…592 92e9 0790 CURSOR 20,E
0x583…592 LineComalBin {
0x583…592 ptr = 0x92e9 // 0x583 @0x0
0x583…592 lno = 0x0316 // 0x585 @0x2
0x583…592 at0004 = ╱a1╱ CURSOR ╱ // 0x587 @0x4
0x583…592 at0005 = ╱32╱2╱ // 0x588 @0x5
0x583…592 at0006 = ╱30╱0╱ // 0x589 @0x6
0x583…592 at0007 = ╱fe0000a005╱ // 0x58a @0x7
0x583…592 at000c = ╱ec╱,╱ // 0x58f @0xc
0x583…592 at000d = ╱45╱E╱ // 0x590 @0xd
0x583…592 at000e = EOL // 0x591 @0xe
0x583…592 }
0x592…5ad 9304 0800 PRINT "Sikkerhedskopiering"
0x592…5ad LineComalBin {
0x592…5ad ptr = 0x9304 // 0x592 @0x0
0x592…5ad lno = 0x0320 // 0x594 @0x2
0x592…5ad at0004 = ╱92╱ PRINT ╱ // 0x596 @0x4
0x592…5ad at0005 = ╱22╱"╱ // 0x597 @0x5
0x592…5ad at0006 = ╱53╱S╱ // 0x598 @0x6
0x592…5ad at0007 = ╱69╱i╱ // 0x599 @0x7
0x592…5ad at0008 = ╱6b╱k╱ // 0x59a @0x8
0x592…5ad at0009 = ╱6b╱k╱ // 0x59b @0x9
0x592…5ad at000a = ╱65╱e╱ // 0x59c @0xa
0x592…5ad at000b = ╱72╱r╱ // 0x59d @0xb
0x592…5ad at000c = ╱68╱h╱ // 0x59e @0xc
0x592…5ad at000d = ╱65╱e╱ // 0x59f @0xd
0x592…5ad at000e = ╱64╱d╱ // 0x5a0 @0xe
0x592…5ad at000f = ╱73╱s╱ // 0x5a1 @0xf
0x592…5ad at0010 = ╱6b╱k╱ // 0x5a2 @0x10
0x592…5ad at0011 = ╱6f╱o╱ // 0x5a3 @0x11
0x592…5ad at0012 = ╱70╱p╱ // 0x5a4 @0x12
0x592…5ad at0013 = ╱69╱i╱ // 0x5a5 @0x13
0x592…5ad at0014 = ╱65╱e╱ // 0x5a6 @0x14
0x592…5ad at0015 = ╱72╱r╱ // 0x5a7 @0x15
0x592…5ad at0016 = ╱69╱i╱ // 0x5a8 @0x16
0x592…5ad at0017 = ╱6e╱n╱ // 0x5a9 @0x17
0x592…5ad at0018 = ╱67╱g╱ // 0x5aa @0x18
0x592…5ad at0019 = ╱22╱"╱ // 0x5ab @0x19
0x592…5ad at001a = EOL // 0x5ac @0x1a
0x592…5ad }
0x5ad…5c1 9318 0810 CURSOR 15,4
0x5ad…5c1 LineComalBin {
0x5ad…5c1 ptr = 0x9318 // 0x5ad @0x0
0x5ad…5c1 lno = 0x032a // 0x5af @0x2
0x5ad…5c1 at0004 = ╱a1╱ CURSOR ╱ // 0x5b1 @0x4
0x5ad…5c1 at0005 = ╱31╱1╱ // 0x5b2 @0x5
0x5ad…5c1 at0006 = ╱35╱5╱ // 0x5b3 @0x6
0x5ad…5c1 at0007 = ╱fe0000f004╱ // 0x5b4 @0x7
0x5ad…5c1 at000c = ╱ec╱,╱ // 0x5b9 @0xc
0x5ad…5c1 at000d = ╱34╱4╱ // 0x5ba @0xd
0x5ad…5c1 at000e = ╱fe00008003╱ // 0x5bb @0xe
0x5ad…5c1 at0013 = EOL // 0x5c0 @0x13
0x5ad…5c1 }
0x5c1…5f6 934d 0820 PRINT "Det gælder nu om at udvise stor omhyggelighed"
0x5c1…5f6 LineComalBin {
0x5c1…5f6 ptr = 0x934d // 0x5c1 @0x0
0x5c1…5f6 lno = 0x0334 // 0x5c3 @0x2
0x5c1…5f6 at0004 = ╱92╱ PRINT ╱ // 0x5c5 @0x4
0x5c1…5f6 at0005 = ╱22╱"╱ // 0x5c6 @0x5
0x5c1…5f6 at0006 = ╱44╱D╱ // 0x5c7 @0x6
0x5c1…5f6 at0007 = ╱65╱e╱ // 0x5c8 @0x7
0x5c1…5f6 at0008 = ╱74╱t╱ // 0x5c9 @0x8
0x5c1…5f6 at0009 = ╱20╱…╱ // 0x5ca @0x9
0x5c1…5f6 at000a = ╱67╱g╱ // 0x5cb @0xa
0x5c1…5f6 at000b = ╱7b╱æ╱ // 0x5cc @0xb
0x5c1…5f6 at000c = ╱6c╱l╱ // 0x5cd @0xc
0x5c1…5f6 at000d = ╱64╱d╱ // 0x5ce @0xd
0x5c1…5f6 at000e = ╱65╱e╱ // 0x5cf @0xe
0x5c1…5f6 at000f = ╱72╱r╱ // 0x5d0 @0xf
0x5c1…5f6 at0010 = ╱20╱…╱ // 0x5d1 @0x10
0x5c1…5f6 at0011 = ╱6e╱n╱ // 0x5d2 @0x11
0x5c1…5f6 at0012 = ╱75╱u╱ // 0x5d3 @0x12
0x5c1…5f6 at0013 = ╱20╱…╱ // 0x5d4 @0x13
0x5c1…5f6 at0014 = ╱6f╱o╱ // 0x5d5 @0x14
0x5c1…5f6 at0015 = ╱6d╱m╱ // 0x5d6 @0x15
0x5c1…5f6 at0016 = ╱20╱…╱ // 0x5d7 @0x16
0x5c1…5f6 at0017 = ╱61╱a╱ // 0x5d8 @0x17
0x5c1…5f6 at0018 = ╱74╱t╱ // 0x5d9 @0x18
0x5c1…5f6 at0019 = ╱20╱…╱ // 0x5da @0x19
0x5c1…5f6 at001a = ╱75╱u╱ // 0x5db @0x1a
0x5c1…5f6 at001b = ╱64╱d╱ // 0x5dc @0x1b
0x5c1…5f6 at001c = ╱76╱v╱ // 0x5dd @0x1c
0x5c1…5f6 at001d = ╱69╱i╱ // 0x5de @0x1d
0x5c1…5f6 at001e = ╱73╱s╱ // 0x5df @0x1e
0x5c1…5f6 at001f = ╱65╱e╱ // 0x5e0 @0x1f
0x5c1…5f6 at0020 = ╱20╱…╱ // 0x5e1 @0x20
0x5c1…5f6 at0021 = ╱73╱s╱ // 0x5e2 @0x21
0x5c1…5f6 at0022 = ╱74╱t╱ // 0x5e3 @0x22
0x5c1…5f6 at0023 = ╱6f╱o╱ // 0x5e4 @0x23
0x5c1…5f6 at0024 = ╱72╱r╱ // 0x5e5 @0x24
0x5c1…5f6 at0025 = ╱20╱…╱ // 0x5e6 @0x25
0x5c1…5f6 at0026 = ╱6f╱o╱ // 0x5e7 @0x26
0x5c1…5f6 at0027 = ╱6d╱m╱ // 0x5e8 @0x27
0x5c1…5f6 at0028 = ╱68╱h╱ // 0x5e9 @0x28
0x5c1…5f6 at0029 = ╱79╱y╱ // 0x5ea @0x29
0x5c1…5f6 at002a = ╱67╱g╱ // 0x5eb @0x2a
0x5c1…5f6 at002b = ╱67╱g╱ // 0x5ec @0x2b
0x5c1…5f6 at002c = ╱65╱e╱ // 0x5ed @0x2c
0x5c1…5f6 at002d = ╱6c╱l╱ // 0x5ee @0x2d
0x5c1…5f6 at002e = ╱69╱i╱ // 0x5ef @0x2e
0x5c1…5f6 at002f = ╱67╱g╱ // 0x5f0 @0x2f
0x5c1…5f6 at0030 = ╱68╱h╱ // 0x5f1 @0x30
0x5c1…5f6 at0031 = ╱65╱e╱ // 0x5f2 @0x31
0x5c1…5f6 at0032 = ╱64╱d╱ // 0x5f3 @0x32
0x5c1…5f6 at0033 = ╱22╱"╱ // 0x5f4 @0x33
0x5c1…5f6 at0034 = EOL // 0x5f5 @0x34
0x5c1…5f6 }
0x5f6…60a 9361 0830 CURSOR 15,5
0x5f6…60a LineComalBin {
0x5f6…60a ptr = 0x9361 // 0x5f6 @0x0
0x5f6…60a lno = 0x033e // 0x5f8 @0x2
0x5f6…60a at0004 = ╱a1╱ CURSOR ╱ // 0x5fa @0x4
0x5f6…60a at0005 = ╱31╱1╱ // 0x5fb @0x5
0x5f6…60a at0006 = ╱35╱5╱ // 0x5fc @0x6
0x5f6…60a at0007 = ╱fe0000f004╱ // 0x5fd @0x7
0x5f6…60a at000c = ╱ec╱,╱ // 0x602 @0xc
0x5f6…60a at000d = ╱35╱5╱ // 0x603 @0xd
0x5f6…60a at000e = ╱fe0000a003╱ // 0x604 @0xe
0x5f6…60a at0013 = EOL // 0x609 @0x13
0x5f6…60a }
0x60a…640 9397 0840 INPUT "Og gøre nøjagtigt som angivet ; tast RETURN",A$
0x60a…640 LineComalBin {
0x60a…640 ptr = 0x9397 // 0x60a @0x0
0x60a…640 lno = 0x0348 // 0x60c @0x2
0x60a…640 at0004 = ╱91╱ INPUT ╱ // 0x60e @0x4
0x60a…640 at0005 = ╱22╱"╱ // 0x60f @0x5
0x60a…640 at0006 = ╱4f╱O╱ // 0x610 @0x6
0x60a…640 at0007 = ╱67╱g╱ // 0x611 @0x7
0x60a…640 at0008 = ╱20╱…╱ // 0x612 @0x8
0x60a…640 at0009 = ╱67╱g╱ // 0x613 @0x9
0x60a…640 at000a = ╱7c╱ø╱ // 0x614 @0xa
0x60a…640 at000b = ╱72╱r╱ // 0x615 @0xb
0x60a…640 at000c = ╱65╱e╱ // 0x616 @0xc
0x60a…640 at000d = ╱20╱…╱ // 0x617 @0xd
0x60a…640 at000e = ╱6e╱n╱ // 0x618 @0xe
0x60a…640 at000f = ╱7c╱ø╱ // 0x619 @0xf
0x60a…640 at0010 = ╱6a╱j╱ // 0x61a @0x10
0x60a…640 at0011 = ╱61╱a╱ // 0x61b @0x11
0x60a…640 at0012 = ╱67╱g╱ // 0x61c @0x12
0x60a…640 at0013 = ╱74╱t╱ // 0x61d @0x13
0x60a…640 at0014 = ╱69╱i╱ // 0x61e @0x14
0x60a…640 at0015 = ╱67╱g╱ // 0x61f @0x15
0x60a…640 at0016 = ╱74╱t╱ // 0x620 @0x16
0x60a…640 at0017 = ╱20╱…╱ // 0x621 @0x17
0x60a…640 at0018 = ╱73╱s╱ // 0x622 @0x18
0x60a…640 at0019 = ╱6f╱o╱ // 0x623 @0x19
0x60a…640 at001a = ╱6d╱m╱ // 0x624 @0x1a
0x60a…640 at001b = ╱20╱…╱ // 0x625 @0x1b
0x60a…640 at001c = ╱61╱a╱ // 0x626 @0x1c
0x60a…640 at001d = ╱6e╱n╱ // 0x627 @0x1d
0x60a…640 at001e = ╱67╱g╱ // 0x628 @0x1e
0x60a…640 at001f = ╱69╱i╱ // 0x629 @0x1f
0x60a…640 at0020 = ╱76╱v╱ // 0x62a @0x20
0x60a…640 at0021 = ╱65╱e╱ // 0x62b @0x21
0x60a…640 at0022 = ╱74╱t╱ // 0x62c @0x22
0x60a…640 at0023 = ╱20╱…╱ // 0x62d @0x23
0x60a…640 at0024 = ╱3b╱;╱ // 0x62e @0x24
0x60a…640 at0025 = ╱20╱…╱ // 0x62f @0x25
0x60a…640 at0026 = ╱74╱t╱ // 0x630 @0x26
0x60a…640 at0027 = ╱61╱a╱ // 0x631 @0x27
0x60a…640 at0028 = ╱73╱s╱ // 0x632 @0x28
0x60a…640 at0029 = ╱74╱t╱ // 0x633 @0x29
0x60a…640 at002a = ╱20╱…╱ // 0x634 @0x2a
0x60a…640 at002b = ╱52╱R╱ // 0x635 @0x2b
0x60a…640 at002c = ╱45╱E╱ // 0x636 @0x2c
0x60a…640 at002d = ╱54╱T╱ // 0x637 @0x2d
0x60a…640 at002e = ╱55╱U╱ // 0x638 @0x2e
0x60a…640 at002f = ╱52╱R╱ // 0x639 @0x2f
0x60a…640 at0030 = ╱4e╱N╱ // 0x63a @0x30
0x60a…640 at0031 = ╱22╱"╱ // 0x63b @0x31
0x60a…640 at0032 = ╱ec╱,╱ // 0x63c @0x32
0x60a…640 at0033 = ╱41╱A╱ // 0x63d @0x33
0x60a…640 at0034 = ╱ef╱$╱ // 0x63e @0x34
0x60a…640 at0035 = EOL // 0x63f @0x35
0x60a…640 }
0x640…654 93ab 0850 CURSOR 15,6
0x640…654 LineComalBin {
0x640…654 ptr = 0x93ab // 0x640 @0x0
0x640…654 lno = 0x0352 // 0x642 @0x2
0x640…654 at0004 = ╱a1╱ CURSOR ╱ // 0x644 @0x4
0x640…654 at0005 = ╱31╱1╱ // 0x645 @0x5
0x640…654 at0006 = ╱35╱5╱ // 0x646 @0x6
0x640…654 at0007 = ╱fe0000f004╱ // 0x647 @0x7
0x640…654 at000c = ╱ec╱,╱ // 0x64c @0xc
0x640…654 at000d = ╱36╱6╱ // 0x64d @0xd
0x640…654 at000e = ╱fe0000c003╱ // 0x64e @0xe
0x640…654 at0013 = EOL // 0x653 @0x13
0x640…654 }
0x654…694 93eb 0860 INPUT "Fjern evt. plade fra løbeværket(nr. 3) og tast RETURN",A$
0x654…694 LineComalBin {
0x654…694 ptr = 0x93eb // 0x654 @0x0
0x654…694 lno = 0x035c // 0x656 @0x2
0x654…694 at0004 = ╱91╱ INPUT ╱ // 0x658 @0x4
0x654…694 at0005 = ╱22╱"╱ // 0x659 @0x5
0x654…694 at0006 = ╱46╱F╱ // 0x65a @0x6
0x654…694 at0007 = ╱6a╱j╱ // 0x65b @0x7
0x654…694 at0008 = ╱65╱e╱ // 0x65c @0x8
0x654…694 at0009 = ╱72╱r╱ // 0x65d @0x9
0x654…694 at000a = ╱6e╱n╱ // 0x65e @0xa
0x654…694 at000b = ╱20╱…╱ // 0x65f @0xb
0x654…694 at000c = ╱65╱e╱ // 0x660 @0xc
0x654…694 at000d = ╱76╱v╱ // 0x661 @0xd
0x654…694 at000e = ╱74╱t╱ // 0x662 @0xe
0x654…694 at000f = ╱2e╱.╱ // 0x663 @0xf
0x654…694 at0010 = ╱20╱…╱ // 0x664 @0x10
0x654…694 at0011 = ╱70╱p╱ // 0x665 @0x11
0x654…694 at0012 = ╱6c╱l╱ // 0x666 @0x12
0x654…694 at0013 = ╱61╱a╱ // 0x667 @0x13
0x654…694 at0014 = ╱64╱d╱ // 0x668 @0x14
0x654…694 at0015 = ╱65╱e╱ // 0x669 @0x15
0x654…694 at0016 = ╱20╱…╱ // 0x66a @0x16
0x654…694 at0017 = ╱66╱f╱ // 0x66b @0x17
0x654…694 at0018 = ╱72╱r╱ // 0x66c @0x18
0x654…694 at0019 = ╱61╱a╱ // 0x66d @0x19
0x654…694 at001a = ╱20╱…╱ // 0x66e @0x1a
0x654…694 at001b = ╱6c╱l╱ // 0x66f @0x1b
0x654…694 at001c = ╱7c╱ø╱ // 0x670 @0x1c
0x654…694 at001d = ╱62╱b╱ // 0x671 @0x1d
0x654…694 at001e = ╱65╱e╱ // 0x672 @0x1e
0x654…694 at001f = ╱76╱v╱ // 0x673 @0x1f
0x654…694 at0020 = ╱7b╱æ╱ // 0x674 @0x20
0x654…694 at0021 = ╱72╱r╱ // 0x675 @0x21
0x654…694 at0022 = ╱6b╱k╱ // 0x676 @0x22
0x654…694 at0023 = ╱65╱e╱ // 0x677 @0x23
0x654…694 at0024 = ╱74╱t╱ // 0x678 @0x24
0x654…694 at0025 = ╱28╱(╱ // 0x679 @0x25
0x654…694 at0026 = ╱6e╱n╱ // 0x67a @0x26
0x654…694 at0027 = ╱72╱r╱ // 0x67b @0x27
0x654…694 at0028 = ╱2e╱.╱ // 0x67c @0x28
0x654…694 at0029 = ╱20╱…╱ // 0x67d @0x29
0x654…694 at002a = ╱33╱3╱ // 0x67e @0x2a
0x654…694 at002b = ╱29╱)╱ // 0x67f @0x2b
0x654…694 at002c = ╱20╱…╱ // 0x680 @0x2c
0x654…694 at002d = ╱6f╱o╱ // 0x681 @0x2d
0x654…694 at002e = ╱67╱g╱ // 0x682 @0x2e
0x654…694 at002f = ╱20╱…╱ // 0x683 @0x2f
0x654…694 at0030 = ╱74╱t╱ // 0x684 @0x30
0x654…694 at0031 = ╱61╱a╱ // 0x685 @0x31
0x654…694 at0032 = ╱73╱s╱ // 0x686 @0x32
0x654…694 at0033 = ╱74╱t╱ // 0x687 @0x33
0x654…694 at0034 = ╱20╱…╱ // 0x688 @0x34
0x654…694 at0035 = ╱52╱R╱ // 0x689 @0x35
0x654…694 at0036 = ╱45╱E╱ // 0x68a @0x36
0x654…694 at0037 = ╱54╱T╱ // 0x68b @0x37
0x654…694 at0038 = ╱55╱U╱ // 0x68c @0x38
0x654…694 at0039 = ╱52╱R╱ // 0x68d @0x39
0x654…694 at003a = ╱4e╱N╱ // 0x68e @0x3a
0x654…694 at003b = ╱22╱"╱ // 0x68f @0x3b
0x654…694 at003c = ╱ec╱,╱ // 0x690 @0x3c
0x654…694 at003d = ╱41╱A╱ // 0x691 @0x3d
0x654…694 at003e = ╱ef╱$╱ // 0x692 @0x3e
0x654…694 at003f = EOL // 0x693 @0x3f
0x654…694 }
0x694…69a 93f1 0870 REPEAT
0x694…69a LineComalBin {
0x694…69a ptr = 0x93f1 // 0x694 @0x0
0x694…69a lno = 0x0366 // 0x696 @0x2
0x694…69a at0004 = ╱97╱ REPEAT ╱ // 0x698 @0x4
0x694…69a at0005 = EOL // 0x699 @0x5
0x694…69a }
0x69a…6ae 9405 0880 CURSOR 15,8
0x69a…6ae LineComalBin {
0x69a…6ae ptr = 0x9405 // 0x69a @0x0
0x69a…6ae lno = 0x0370 // 0x69c @0x2
0x69a…6ae at0004 = ╱a1╱ CURSOR ╱ // 0x69e @0x4
0x69a…6ae at0005 = ╱31╱1╱ // 0x69f @0x5
0x69a…6ae at0006 = ╱35╱5╱ // 0x6a0 @0x6
0x69a…6ae at0007 = ╱fe0000f004╱ // 0x6a1 @0x7
0x69a…6ae at000c = ╱ec╱,╱ // 0x6a6 @0xc
0x69a…6ae at000d = ╱38╱8╱ // 0x6a7 @0xd
0x69a…6ae at000e = ╱fe00008004╱ // 0x6a8 @0xe
0x69a…6ae at0013 = EOL // 0x6ad @0x13
0x69a…6ae }
0x6ae…6ef 9446 0890 INPUT "Hvilken plade ønskes kopieret (14-23, 0:for færdig) ",PL1$
0x6ae…6ef LineComalBin {
0x6ae…6ef ptr = 0x9446 // 0x6ae @0x0
0x6ae…6ef lno = 0x037a // 0x6b0 @0x2
0x6ae…6ef at0004 = ╱91╱ INPUT ╱ // 0x6b2 @0x4
0x6ae…6ef at0005 = ╱22╱"╱ // 0x6b3 @0x5
0x6ae…6ef at0006 = ╱48╱H╱ // 0x6b4 @0x6
0x6ae…6ef at0007 = ╱76╱v╱ // 0x6b5 @0x7
0x6ae…6ef at0008 = ╱69╱i╱ // 0x6b6 @0x8
0x6ae…6ef at0009 = ╱6c╱l╱ // 0x6b7 @0x9
0x6ae…6ef at000a = ╱6b╱k╱ // 0x6b8 @0xa
0x6ae…6ef at000b = ╱65╱e╱ // 0x6b9 @0xb
0x6ae…6ef at000c = ╱6e╱n╱ // 0x6ba @0xc
0x6ae…6ef at000d = ╱20╱…╱ // 0x6bb @0xd
0x6ae…6ef at000e = ╱70╱p╱ // 0x6bc @0xe
0x6ae…6ef at000f = ╱6c╱l╱ // 0x6bd @0xf
0x6ae…6ef at0010 = ╱61╱a╱ // 0x6be @0x10
0x6ae…6ef at0011 = ╱64╱d╱ // 0x6bf @0x11
0x6ae…6ef at0012 = ╱65╱e╱ // 0x6c0 @0x12
0x6ae…6ef at0013 = ╱20╱…╱ // 0x6c1 @0x13
0x6ae…6ef at0014 = ╱7c╱ø╱ // 0x6c2 @0x14
0x6ae…6ef at0015 = ╱6e╱n╱ // 0x6c3 @0x15
0x6ae…6ef at0016 = ╱73╱s╱ // 0x6c4 @0x16
0x6ae…6ef at0017 = ╱6b╱k╱ // 0x6c5 @0x17
0x6ae…6ef at0018 = ╱65╱e╱ // 0x6c6 @0x18
0x6ae…6ef at0019 = ╱73╱s╱ // 0x6c7 @0x19
0x6ae…6ef at001a = ╱20╱…╱ // 0x6c8 @0x1a
0x6ae…6ef at001b = ╱6b╱k╱ // 0x6c9 @0x1b
0x6ae…6ef at001c = ╱6f╱o╱ // 0x6ca @0x1c
0x6ae…6ef at001d = ╱70╱p╱ // 0x6cb @0x1d
0x6ae…6ef at001e = ╱69╱i╱ // 0x6cc @0x1e
0x6ae…6ef at001f = ╱65╱e╱ // 0x6cd @0x1f
0x6ae…6ef at0020 = ╱72╱r╱ // 0x6ce @0x20
0x6ae…6ef at0021 = ╱65╱e╱ // 0x6cf @0x21
0x6ae…6ef at0022 = ╱74╱t╱ // 0x6d0 @0x22
0x6ae…6ef at0023 = ╱20╱…╱ // 0x6d1 @0x23
0x6ae…6ef at0024 = ╱28╱(╱ // 0x6d2 @0x24
0x6ae…6ef at0025 = ╱31╱1╱ // 0x6d3 @0x25
0x6ae…6ef at0026 = ╱34╱4╱ // 0x6d4 @0x26
0x6ae…6ef at0027 = ╱2d╱-╱ // 0x6d5 @0x27
0x6ae…6ef at0028 = ╱32╱2╱ // 0x6d6 @0x28
0x6ae…6ef at0029 = ╱33╱3╱ // 0x6d7 @0x29
0x6ae…6ef at002a = ╱2c╱,╱ // 0x6d8 @0x2a
0x6ae…6ef at002b = ╱20╱…╱ // 0x6d9 @0x2b
0x6ae…6ef at002c = ╱30╱0╱ // 0x6da @0x2c
0x6ae…6ef at002d = ╱3a╱:╱ // 0x6db @0x2d
0x6ae…6ef at002e = ╱66╱f╱ // 0x6dc @0x2e
0x6ae…6ef at002f = ╱6f╱o╱ // 0x6dd @0x2f
0x6ae…6ef at0030 = ╱72╱r╱ // 0x6de @0x30
0x6ae…6ef at0031 = ╱20╱…╱ // 0x6df @0x31
0x6ae…6ef at0032 = ╱66╱f╱ // 0x6e0 @0x32
0x6ae…6ef at0033 = ╱7b╱æ╱ // 0x6e1 @0x33
0x6ae…6ef at0034 = ╱72╱r╱ // 0x6e2 @0x34
0x6ae…6ef at0035 = ╱64╱d╱ // 0x6e3 @0x35
0x6ae…6ef at0036 = ╱69╱i╱ // 0x6e4 @0x36
0x6ae…6ef at0037 = ╱67╱g╱ // 0x6e5 @0x37
0x6ae…6ef at0038 = ╱29╱)╱ // 0x6e6 @0x38
0x6ae…6ef at0039 = ╱20╱…╱ // 0x6e7 @0x39
0x6ae…6ef at003a = ╱22╱"╱ // 0x6e8 @0x3a
0x6ae…6ef at003b = ╱ec╱,╱ // 0x6e9 @0x3b
0x6ae…6ef at003c = ╱50╱P╱ // 0x6ea @0x3c
0x6ae…6ef at003d = ╱4c╱L╱ // 0x6eb @0x3d
0x6ae…6ef at003e = ╱31╱1╱ // 0x6ec @0x3e
0x6ae…6ef at003f = ╱ef╱$╱ // 0x6ed @0x3f
0x6ae…6ef at0040 = EOL // 0x6ee @0x40
0x6ae…6ef }
0x6ef…701 9458 0900 EXEC NRTEST(PL1$)
0x6ef…701 LineComalBin {
0x6ef…701 ptr = 0x9458 // 0x6ef @0x0
0x6ef…701 lno = 0x0384 // 0x6f1 @0x2
0x6ef…701 at0004 = ╱9d╱ EXEC ╱ // 0x6f3 @0x4
0x6ef…701 at0005 = ╱4e╱N╱ // 0x6f4 @0x5
0x6ef…701 at0006 = ╱52╱R╱ // 0x6f5 @0x6
0x6ef…701 at0007 = ╱54╱T╱ // 0x6f6 @0x7
0x6ef…701 at0008 = ╱45╱E╱ // 0x6f7 @0x8
0x6ef…701 at0009 = ╱53╱S╱ // 0x6f8 @0x9
0x6ef…701 at000a = ╱54╱T╱ // 0x6f9 @0xa
0x6ef…701 at000b = ╱ed╱(╱ // 0x6fa @0xb
0x6ef…701 at000c = ╱50╱P╱ // 0x6fb @0xc
0x6ef…701 at000d = ╱4c╱L╱ // 0x6fc @0xd
0x6ef…701 at000e = ╱31╱1╱ // 0x6fd @0xe
0x6ef…701 at000f = ╱ef╱$╱ // 0x6fe @0xf
0x6ef…701 at0010 = ╱ee╱)╱ // 0x6ff @0x10
0x6ef…701 at0011 = EOL // 0x700 @0x11
0x6ef…701 }
0x701…724 947b 0910 P2=P DIV 10;P4=P MOD 10;FP=P
0x701…724 LineComalBin {
0x701…724 ptr = 0x947b // 0x701 @0x0
0x701…724 lno = 0x038e // 0x703 @0x2
0x701…724 at0004 = ╱50╱P╱ // 0x705 @0x4
0x701…724 at0005 = ╱32╱2╱ // 0x706 @0x5
0x701…724 at0006 = ╱dc╱=╱ // 0x707 @0x6
0x701…724 at0007 = ╱50╱P╱ // 0x708 @0x7
0x701…724 at0008 = ╱e7╱ DIV ╱ // 0x709 @0x8
0x701…724 at0009 = ╱31╱1╱ // 0x70a @0x9
0x701…724 at000a = ╱30╱0╱ // 0x70b @0xa
0x701…724 at000b = ╱fe0000a004╱ // 0x70c @0xb
0x701…724 at0010 = ╱eb╱;╱ // 0x711 @0x10
0x701…724 at0011 = ╱50╱P╱ // 0x712 @0x11
0x701…724 at0012 = ╱34╱4╱ // 0x713 @0x12
0x701…724 at0013 = ╱dc╱=╱ // 0x714 @0x13
0x701…724 at0014 = ╱50╱P╱ // 0x715 @0x14
0x701…724 at0015 = ╱e8╱ MOD ╱ // 0x716 @0x15
0x701…724 at0016 = ╱31╱1╱ // 0x717 @0x16
0x701…724 at0017 = ╱30╱0╱ // 0x718 @0x17
0x701…724 at0018 = ╱fe0000a004╱ // 0x719 @0x18
0x701…724 at001d = ╱eb╱;╱ // 0x71e @0x1d
0x701…724 at001e = ╱46╱F╱ // 0x71f @0x1e
0x701…724 at001f = ╱50╱P╱ // 0x720 @0x1f
0x701…724 at0020 = ╱dc╱=╱ // 0x721 @0x20
0x701…724 at0021 = ╱50╱P╱ // 0x722 @0x21
0x701…724 at0022 = EOL // 0x723 @0x22
0x701…724 }
0x724…74d 94a4 0920 UNTIL (P=B OR (P>16 AND P<24)) AND TEST2=B
0x724…74d LineComalBin {
0x724…74d ptr = 0x94a4 // 0x724 @0x0
0x724…74d lno = 0x0398 // 0x726 @0x2
0x724…74d at0004 = ╱98╱ UNTIL ╱ // 0x728 @0x4
0x724…74d at0005 = ╱ed╱(╱ // 0x729 @0x5
0x724…74d at0006 = ╱50╱P╱ // 0x72a @0x6
0x724…74d at0007 = ╱dc╱=╱ // 0x72b @0x7
0x724…74d at0008 = ╱42╱B╱ // 0x72c @0x8
0x724…74d at0009 = ╱db╱ OR ╱ // 0x72d @0x9
0x724…74d at000a = ╱ed╱(╱ // 0x72e @0xa
0x724…74d at000b = ╱50╱P╱ // 0x72f @0xb
0x724…74d at000c = ╱de╱>╱ // 0x730 @0xc
0x724…74d at000d = ╱31╱1╱ // 0x731 @0xd
0x724…74d at000e = ╱36╱6╱ // 0x732 @0xe
0x724…74d at000f = ╱fe00008005╱ // 0x733 @0xf
0x724…74d at0014 = ╱da╱ AND ╱ // 0x738 @0x14
0x724…74d at0015 = ╱50╱P╱ // 0x739 @0x15
0x724…74d at0016 = ╱dd╱<╱ // 0x73a @0x16
0x724…74d at0017 = ╱32╱2╱ // 0x73b @0x17
0x724…74d at0018 = ╱34╱4╱ // 0x73c @0x18
0x724…74d at0019 = ╱fe0000c005╱ // 0x73d @0x19
0x724…74d at001e = ╱ee╱)╱ // 0x742 @0x1e
0x724…74d at001f = ╱ee╱)╱ // 0x743 @0x1f
0x724…74d at0020 = ╱da╱ AND ╱ // 0x744 @0x20
0x724…74d at0021 = ╱54╱T╱ // 0x745 @0x21
0x724…74d at0022 = ╱45╱E╱ // 0x746 @0x22
0x724…74d at0023 = ╱53╱S╱ // 0x747 @0x23
0x724…74d at0024 = ╱54╱T╱ // 0x748 @0x24
0x724…74d at0025 = ╱32╱2╱ // 0x749 @0x25
0x724…74d at0026 = ╱dc╱=╱ // 0x74a @0x26
0x724…74d at0027 = ╱42╱B╱ // 0x74b @0x27
0x724…74d at0028 = EOL // 0x74c @0x28
0x724…74d }
0x74d…78d 94e4 0930 DREVFRA$="P3";DREVTIL$="P2";TP=20;PL2$="20";P3=P2;P5=B
0x74d…78d LineComalBin {
0x74d…78d ptr = 0x94e4 // 0x74d @0x0
0x74d…78d lno = 0x03a2 // 0x74f @0x2
0x74d…78d at0004 = ╱44╱D╱ // 0x751 @0x4
0x74d…78d at0005 = ╱52╱R╱ // 0x752 @0x5
0x74d…78d at0006 = ╱45╱E╱ // 0x753 @0x6
0x74d…78d at0007 = ╱56╱V╱ // 0x754 @0x7
0x74d…78d at0008 = ╱46╱F╱ // 0x755 @0x8
0x74d…78d at0009 = ╱52╱R╱ // 0x756 @0x9
0x74d…78d at000a = ╱41╱A╱ // 0x757 @0xa
0x74d…78d at000b = ╱ef╱$╱ // 0x758 @0xb
0x74d…78d at000c = ╱dc╱=╱ // 0x759 @0xc
0x74d…78d at000d = ╱22╱"╱ // 0x75a @0xd
0x74d…78d at000e = ╱50╱P╱ // 0x75b @0xe
0x74d…78d at000f = ╱33╱3╱ // 0x75c @0xf
0x74d…78d at0010 = ╱22╱"╱ // 0x75d @0x10
0x74d…78d at0011 = ╱eb╱;╱ // 0x75e @0x11
0x74d…78d at0012 = ╱44╱D╱ // 0x75f @0x12
0x74d…78d at0013 = ╱52╱R╱ // 0x760 @0x13
0x74d…78d at0014 = ╱45╱E╱ // 0x761 @0x14
0x74d…78d at0015 = ╱56╱V╱ // 0x762 @0x15
0x74d…78d at0016 = ╱54╱T╱ // 0x763 @0x16
0x74d…78d at0017 = ╱49╱I╱ // 0x764 @0x17
0x74d…78d at0018 = ╱4c╱L╱ // 0x765 @0x18
0x74d…78d at0019 = ╱ef╱$╱ // 0x766 @0x19
0x74d…78d at001a = ╱dc╱=╱ // 0x767 @0x1a
0x74d…78d at001b = ╱22╱"╱ // 0x768 @0x1b
0x74d…78d at001c = ╱50╱P╱ // 0x769 @0x1c
0x74d…78d at001d = ╱32╱2╱ // 0x76a @0x1d
0x74d…78d at001e = ╱22╱"╱ // 0x76b @0x1e
0x74d…78d at001f = ╱eb╱;╱ // 0x76c @0x1f
0x74d…78d at0020 = ╱54╱T╱ // 0x76d @0x20
0x74d…78d at0021 = ╱50╱P╱ // 0x76e @0x21
0x74d…78d at0022 = ╱dc╱=╱ // 0x76f @0x22
0x74d…78d at0023 = ╱32╱2╱ // 0x770 @0x23
0x74d…78d at0024 = ╱30╱0╱ // 0x771 @0x24
0x74d…78d at0025 = ╱fe0000a005╱ // 0x772 @0x25
0x74d…78d at002a = ╱eb╱;╱ // 0x777 @0x2a
0x74d…78d at002b = ╱50╱P╱ // 0x778 @0x2b
0x74d…78d at002c = ╱4c╱L╱ // 0x779 @0x2c
0x74d…78d at002d = ╱32╱2╱ // 0x77a @0x2d
0x74d…78d at002e = ╱ef╱$╱ // 0x77b @0x2e
0x74d…78d at002f = ╱dc╱=╱ // 0x77c @0x2f
0x74d…78d at0030 = ╱22╱"╱ // 0x77d @0x30
0x74d…78d at0031 = ╱32╱2╱ // 0x77e @0x31
0x74d…78d at0032 = ╱30╱0╱ // 0x77f @0x32
0x74d…78d at0033 = ╱22╱"╱ // 0x780 @0x33
0x74d…78d at0034 = ╱eb╱;╱ // 0x781 @0x34
0x74d…78d at0035 = ╱50╱P╱ // 0x782 @0x35
0x74d…78d at0036 = ╱33╱3╱ // 0x783 @0x36
0x74d…78d at0037 = ╱dc╱=╱ // 0x784 @0x37
0x74d…78d at0038 = ╱50╱P╱ // 0x785 @0x38
0x74d…78d at0039 = ╱32╱2╱ // 0x786 @0x39
0x74d…78d at003a = ╱eb╱;╱ // 0x787 @0x3a
0x74d…78d at003b = ╱50╱P╱ // 0x788 @0x3b
0x74d…78d at003c = ╱35╱5╱ // 0x789 @0x3c
0x74d…78d at003d = ╱dc╱=╱ // 0x78a @0x3d
0x74d…78d at003e = ╱42╱B╱ // 0x78b @0x3e
0x74d…78d at003f = EOL // 0x78c @0x3f
0x74d…78d }
0x78d…7ab 9502 0940 IF P4=8 OR P4=W THEN P5=7
0x78d…7ab LineComalBin {
0x78d…7ab ptr = 0x9502 // 0x78d @0x0
0x78d…7ab lno = 0x03ac // 0x78f @0x2
0x78d…7ab at0004 = ╱82╱ IF ╱ // 0x791 @0x4
0x78d…7ab at0005 = ╱50╱P╱ // 0x792 @0x5
0x78d…7ab at0006 = ╱34╱4╱ // 0x793 @0x6
0x78d…7ab at0007 = ╱dc╱=╱ // 0x794 @0x7
0x78d…7ab at0008 = ╱38╱8╱ // 0x795 @0x8
0x78d…7ab at0009 = ╱fe00008004╱ // 0x796 @0x9
0x78d…7ab at000e = ╱db╱ OR ╱ // 0x79b @0xe
0x78d…7ab at000f = ╱50╱P╱ // 0x79c @0xf
0x78d…7ab at0010 = ╱34╱4╱ // 0x79d @0x10
0x78d…7ab at0011 = ╱dc╱=╱ // 0x79e @0x11
0x78d…7ab at0012 = ╱57╱W╱ // 0x79f @0x12
0x78d…7ab at0013 = ╱b6╱ THEN ╱ // 0x7a0 @0x13
0x78d…7ab at0014 = ╱50╱P╱ // 0x7a1 @0x14
0x78d…7ab at0015 = ╱35╱5╱ // 0x7a2 @0x15
0x78d…7ab at0016 = ╱dc╱=╱ // 0x7a3 @0x16
0x78d…7ab at0017 = ╱37╱7╱ // 0x7a4 @0x17
0x78d…7ab at0018 = ╱fe0000e003╱ // 0x7a5 @0x18
0x78d…7ab at001d = EOL // 0x7aa @0x1d
0x78d…7ab }
0x7ab…7e0 9537 0950 IF P=17 OR P=20 THEN DREVFRA$="P2";DREVTIL$="P3"
0x7ab…7e0 LineComalBin {
0x7ab…7e0 ptr = 0x9537 // 0x7ab @0x0
0x7ab…7e0 lno = 0x03b6 // 0x7ad @0x2
0x7ab…7e0 at0004 = ╱82╱ IF ╱ // 0x7af @0x4
0x7ab…7e0 at0005 = ╱50╱P╱ // 0x7b0 @0x5
0x7ab…7e0 at0006 = ╱dc╱=╱ // 0x7b1 @0x6
0x7ab…7e0 at0007 = ╱31╱1╱ // 0x7b2 @0x7
0x7ab…7e0 at0008 = ╱37╱7╱ // 0x7b3 @0x8
0x7ab…7e0 at0009 = ╱fe00008805╱ // 0x7b4 @0x9
0x7ab…7e0 at000e = ╱db╱ OR ╱ // 0x7b9 @0xe
0x7ab…7e0 at000f = ╱50╱P╱ // 0x7ba @0xf
0x7ab…7e0 at0010 = ╱dc╱=╱ // 0x7bb @0x10
0x7ab…7e0 at0011 = ╱32╱2╱ // 0x7bc @0x11
0x7ab…7e0 at0012 = ╱30╱0╱ // 0x7bd @0x12
0x7ab…7e0 at0013 = ╱fe0000a005╱ // 0x7be @0x13
0x7ab…7e0 at0018 = ╱b6╱ THEN ╱ // 0x7c3 @0x18
0x7ab…7e0 at0019 = ╱44╱D╱ // 0x7c4 @0x19
0x7ab…7e0 at001a = ╱52╱R╱ // 0x7c5 @0x1a
0x7ab…7e0 at001b = ╱45╱E╱ // 0x7c6 @0x1b
0x7ab…7e0 at001c = ╱56╱V╱ // 0x7c7 @0x1c
0x7ab…7e0 at001d = ╱46╱F╱ // 0x7c8 @0x1d
0x7ab…7e0 at001e = ╱52╱R╱ // 0x7c9 @0x1e
0x7ab…7e0 at001f = ╱41╱A╱ // 0x7ca @0x1f
0x7ab…7e0 at0020 = ╱ef╱$╱ // 0x7cb @0x20
0x7ab…7e0 at0021 = ╱dc╱=╱ // 0x7cc @0x21
0x7ab…7e0 at0022 = ╱22╱"╱ // 0x7cd @0x22
0x7ab…7e0 at0023 = ╱50╱P╱ // 0x7ce @0x23
0x7ab…7e0 at0024 = ╱32╱2╱ // 0x7cf @0x24
0x7ab…7e0 at0025 = ╱22╱"╱ // 0x7d0 @0x25
0x7ab…7e0 at0026 = ╱eb╱;╱ // 0x7d1 @0x26
0x7ab…7e0 at0027 = ╱44╱D╱ // 0x7d2 @0x27
0x7ab…7e0 at0028 = ╱52╱R╱ // 0x7d3 @0x28
0x7ab…7e0 at0029 = ╱45╱E╱ // 0x7d4 @0x29
0x7ab…7e0 at002a = ╱56╱V╱ // 0x7d5 @0x2a
0x7ab…7e0 at002b = ╱54╱T╱ // 0x7d6 @0x2b
0x7ab…7e0 at002c = ╱49╱I╱ // 0x7d7 @0x2c
0x7ab…7e0 at002d = ╱4c╱L╱ // 0x7d8 @0x2d
0x7ab…7e0 at002e = ╱ef╱$╱ // 0x7d9 @0x2e
0x7ab…7e0 at002f = ╱dc╱=╱ // 0x7da @0x2f
0x7ab…7e0 at0030 = ╱22╱"╱ // 0x7db @0x30
0x7ab…7e0 at0031 = ╱50╱P╱ // 0x7dc @0x31
0x7ab…7e0 at0032 = ╱33╱3╱ // 0x7dd @0x32
0x7ab…7e0 at0033 = ╱22╱"╱ // 0x7de @0x33
0x7ab…7e0 at0034 = EOL // 0x7df @0x34
0x7ab…7e0 }
0x7e0…7eb 9542 0960 IF P=B THEN EXIT
0x7e0…7eb LineComalBin {
0x7e0…7eb ptr = 0x9542 // 0x7e0 @0x0
0x7e0…7eb lno = 0x03c0 // 0x7e2 @0x2
0x7e0…7eb at0004 = ╱82╱ IF ╱ // 0x7e4 @0x4
0x7e0…7eb at0005 = ╱50╱P╱ // 0x7e5 @0x5
0x7e0…7eb at0006 = ╱dc╱=╱ // 0x7e6 @0x6
0x7e0…7eb at0007 = ╱42╱B╱ // 0x7e7 @0x7
0x7e0…7eb at0008 = ╱b6╱ THEN ╱ // 0x7e8 @0x8
0x7e0…7eb at0009 = ╱99╱ EXIT ╱ // 0x7e9 @0x9
0x7e0…7eb at000a = EOL // 0x7ea @0xa
0x7e0…7eb }
0x7eb…7ff 9556 0970 IF DREVFRA$="P3" THEN
0x7eb…7ff LineComalBin {
0x7eb…7ff ptr = 0x9556 // 0x7eb @0x0
0x7eb…7ff lno = 0x03ca // 0x7ed @0x2
0x7eb…7ff at0004 = ╱9c╱ IF ╱ // 0x7ef @0x4
0x7eb…7ff at0005 = ╱44╱D╱ // 0x7f0 @0x5
0x7eb…7ff at0006 = ╱52╱R╱ // 0x7f1 @0x6
0x7eb…7ff at0007 = ╱45╱E╱ // 0x7f2 @0x7
0x7eb…7ff at0008 = ╱56╱V╱ // 0x7f3 @0x8
0x7eb…7ff at0009 = ╱46╱F╱ // 0x7f4 @0x9
0x7eb…7ff at000a = ╱52╱R╱ // 0x7f5 @0xa
0x7eb…7ff at000b = ╱41╱A╱ // 0x7f6 @0xb
0x7eb…7ff at000c = ╱ef╱$╱ // 0x7f7 @0xc
0x7eb…7ff at000d = ╱dc╱=╱ // 0x7f8 @0xd
0x7eb…7ff at000e = ╱22╱"╱ // 0x7f9 @0xe
0x7eb…7ff at000f = ╱50╱P╱ // 0x7fa @0xf
0x7eb…7ff at0010 = ╱33╱3╱ // 0x7fb @0x10
0x7eb…7ff at0011 = ╱22╱"╱ // 0x7fc @0x11
0x7eb…7ff at0012 = ╱b6╱ THEN ╱ // 0x7fd @0x12
0x7eb…7ff at0013 = EOL // 0x7fe @0x13
0x7eb…7ff }
0x7ff…816 956d 0980 EXEC IND(10,PL1$)
0x7ff…816 LineComalBin {
0x7ff…816 ptr = 0x956d // 0x7ff @0x0
0x7ff…816 lno = 0x03d4 // 0x801 @0x2
0x7ff…816 at0004 = ╱9d╱ EXEC ╱ // 0x803 @0x4
0x7ff…816 at0005 = ╱49╱I╱ // 0x804 @0x5
0x7ff…816 at0006 = ╱4e╱N╱ // 0x805 @0x6
0x7ff…816 at0007 = ╱44╱D╱ // 0x806 @0x7
0x7ff…816 at0008 = ╱ed╱(╱ // 0x807 @0x8
0x7ff…816 at0009 = ╱31╱1╱ // 0x808 @0x9
0x7ff…816 at000a = ╱30╱0╱ // 0x809 @0xa
0x7ff…816 at000b = ╱fe0000a004╱ // 0x80a @0xb
0x7ff…816 at0010 = ╱ec╱,╱ // 0x80f @0x10
0x7ff…816 at0011 = ╱50╱P╱ // 0x810 @0x11
0x7ff…816 at0012 = ╱4c╱L╱ // 0x811 @0x12
0x7ff…816 at0013 = ╱31╱1╱ // 0x812 @0x13
0x7ff…816 at0014 = ╱ef╱$╱ // 0x813 @0x14
0x7ff…816 at0015 = ╱ee╱)╱ // 0x814 @0x15
0x7ff…816 at0016 = EOL // 0x815 @0x16
0x7ff…816 }
0x816…81c 9573 0990 ELSE
0x816…81c LineComalBin {
0x816…81c ptr = 0x9573 // 0x816 @0x0
0x816…81c lno = 0x03de // 0x818 @0x2
0x816…81c at0004 = ╱9a╱ ELSE ╱ // 0x81a @0x4
0x816…81c at0005 = EOL // 0x81b @0x5
0x816…81c }
0x81c…822 9579 1000 REPEAT
0x81c…822 LineComalBin {
0x81c…822 ptr = 0x9579 // 0x81c @0x0
0x81c…822 lno = 0x03e8 // 0x81e @0x2
0x81c…822 at0004 = ╱97╱ REPEAT ╱ // 0x820 @0x4
0x81c…822 at0005 = EOL // 0x821 @0x5
0x81c…822 }
0x822…837 958e 1010 CURSOR 15,12
0x822…837 LineComalBin {
0x822…837 ptr = 0x958e // 0x822 @0x0
0x822…837 lno = 0x03f2 // 0x824 @0x2
0x822…837 at0004 = ╱a1╱ CURSOR ╱ // 0x826 @0x4
0x822…837 at0005 = ╱31╱1╱ // 0x827 @0x5
0x822…837 at0006 = ╱35╱5╱ // 0x828 @0x6
0x822…837 at0007 = ╱fe0000f004╱ // 0x829 @0x7
0x822…837 at000c = ╱ec╱,╱ // 0x82e @0xc
0x822…837 at000d = ╱31╱1╱ // 0x82f @0xd
0x822…837 at000e = ╱32╱2╱ // 0x830 @0xe
0x822…837 at000f = ╱fe0000c004╱ // 0x831 @0xf
0x822…837 at0014 = EOL // 0x836 @0x14
0x822…837 }
0x837…86e 95c5 1020 INPUT "Hvilken plade ønskes kopieret til (14-23) ",PL2$
0x837…86e LineComalBin {
0x837…86e ptr = 0x95c5 // 0x837 @0x0
0x837…86e lno = 0x03fc // 0x839 @0x2
0x837…86e at0004 = ╱91╱ INPUT ╱ // 0x83b @0x4
0x837…86e at0005 = ╱22╱"╱ // 0x83c @0x5
0x837…86e at0006 = ╱48╱H╱ // 0x83d @0x6
0x837…86e at0007 = ╱76╱v╱ // 0x83e @0x7
0x837…86e at0008 = ╱69╱i╱ // 0x83f @0x8
0x837…86e at0009 = ╱6c╱l╱ // 0x840 @0x9
0x837…86e at000a = ╱6b╱k╱ // 0x841 @0xa
0x837…86e at000b = ╱65╱e╱ // 0x842 @0xb
0x837…86e at000c = ╱6e╱n╱ // 0x843 @0xc
0x837…86e at000d = ╱20╱…╱ // 0x844 @0xd
0x837…86e at000e = ╱70╱p╱ // 0x845 @0xe
0x837…86e at000f = ╱6c╱l╱ // 0x846 @0xf
0x837…86e at0010 = ╱61╱a╱ // 0x847 @0x10
0x837…86e at0011 = ╱64╱d╱ // 0x848 @0x11
0x837…86e at0012 = ╱65╱e╱ // 0x849 @0x12
0x837…86e at0013 = ╱20╱…╱ // 0x84a @0x13
0x837…86e at0014 = ╱7c╱ø╱ // 0x84b @0x14
0x837…86e at0015 = ╱6e╱n╱ // 0x84c @0x15
0x837…86e at0016 = ╱73╱s╱ // 0x84d @0x16
0x837…86e at0017 = ╱6b╱k╱ // 0x84e @0x17
0x837…86e at0018 = ╱65╱e╱ // 0x84f @0x18
0x837…86e at0019 = ╱73╱s╱ // 0x850 @0x19
0x837…86e at001a = ╱20╱…╱ // 0x851 @0x1a
0x837…86e at001b = ╱6b╱k╱ // 0x852 @0x1b
0x837…86e at001c = ╱6f╱o╱ // 0x853 @0x1c
0x837…86e at001d = ╱70╱p╱ // 0x854 @0x1d
0x837…86e at001e = ╱69╱i╱ // 0x855 @0x1e
0x837…86e at001f = ╱65╱e╱ // 0x856 @0x1f
0x837…86e at0020 = ╱72╱r╱ // 0x857 @0x20
0x837…86e at0021 = ╱65╱e╱ // 0x858 @0x21
0x837…86e at0022 = ╱74╱t╱ // 0x859 @0x22
0x837…86e at0023 = ╱20╱…╱ // 0x85a @0x23
0x837…86e at0024 = ╱74╱t╱ // 0x85b @0x24
0x837…86e at0025 = ╱69╱i╱ // 0x85c @0x25
0x837…86e at0026 = ╱6c╱l╱ // 0x85d @0x26
0x837…86e at0027 = ╱20╱…╱ // 0x85e @0x27
0x837…86e at0028 = ╱28╱(╱ // 0x85f @0x28
0x837…86e at0029 = ╱31╱1╱ // 0x860 @0x29
0x837…86e at002a = ╱34╱4╱ // 0x861 @0x2a
0x837…86e at002b = ╱2d╱-╱ // 0x862 @0x2b
0x837…86e at002c = ╱32╱2╱ // 0x863 @0x2c
0x837…86e at002d = ╱33╱3╱ // 0x864 @0x2d
0x837…86e at002e = ╱29╱)╱ // 0x865 @0x2e
0x837…86e at002f = ╱20╱…╱ // 0x866 @0x2f
0x837…86e at0030 = ╱22╱"╱ // 0x867 @0x30
0x837…86e at0031 = ╱ec╱,╱ // 0x868 @0x31
0x837…86e at0032 = ╱50╱P╱ // 0x869 @0x32
0x837…86e at0033 = ╱4c╱L╱ // 0x86a @0x33
0x837…86e at0034 = ╱32╱2╱ // 0x86b @0x34
0x837…86e at0035 = ╱ef╱$╱ // 0x86c @0x35
0x837…86e at0036 = EOL // 0x86d @0x36
0x837…86e }
0x86e…880 95d7 1030 EXEC NRTEST(PL2$)
0x86e…880 LineComalBin {
0x86e…880 ptr = 0x95d7 // 0x86e @0x0
0x86e…880 lno = 0x0406 // 0x870 @0x2
0x86e…880 at0004 = ╱9d╱ EXEC ╱ // 0x872 @0x4
0x86e…880 at0005 = ╱4e╱N╱ // 0x873 @0x5
0x86e…880 at0006 = ╱52╱R╱ // 0x874 @0x6
0x86e…880 at0007 = ╱54╱T╱ // 0x875 @0x7
0x86e…880 at0008 = ╱45╱E╱ // 0x876 @0x8
0x86e…880 at0009 = ╱53╱S╱ // 0x877 @0x9
0x86e…880 at000a = ╱54╱T╱ // 0x878 @0xa
0x86e…880 at000b = ╱ed╱(╱ // 0x879 @0xb
0x86e…880 at000c = ╱50╱P╱ // 0x87a @0xc
0x86e…880 at000d = ╱4c╱L╱ // 0x87b @0xd
0x86e…880 at000e = ╱32╱2╱ // 0x87c @0xe
0x86e…880 at000f = ╱ef╱$╱ // 0x87d @0xf
0x86e…880 at0010 = ╱ee╱)╱ // 0x87e @0x10
0x86e…880 at0011 = EOL // 0x87f @0x11
0x86e…880 }
0x880…8a3 95fa 1040 P3=P DIV 10;P5=P MOD 10;TP=P
0x880…8a3 LineComalBin {
0x880…8a3 ptr = 0x95fa // 0x880 @0x0
0x880…8a3 lno = 0x0410 // 0x882 @0x2
0x880…8a3 at0004 = ╱50╱P╱ // 0x884 @0x4
0x880…8a3 at0005 = ╱33╱3╱ // 0x885 @0x5
0x880…8a3 at0006 = ╱dc╱=╱ // 0x886 @0x6
0x880…8a3 at0007 = ╱50╱P╱ // 0x887 @0x7
0x880…8a3 at0008 = ╱e7╱ DIV ╱ // 0x888 @0x8
0x880…8a3 at0009 = ╱31╱1╱ // 0x889 @0x9
0x880…8a3 at000a = ╱30╱0╱ // 0x88a @0xa
0x880…8a3 at000b = ╱fe0000a004╱ // 0x88b @0xb
0x880…8a3 at0010 = ╱eb╱;╱ // 0x890 @0x10
0x880…8a3 at0011 = ╱50╱P╱ // 0x891 @0x11
0x880…8a3 at0012 = ╱35╱5╱ // 0x892 @0x12
0x880…8a3 at0013 = ╱dc╱=╱ // 0x893 @0x13
0x880…8a3 at0014 = ╱50╱P╱ // 0x894 @0x14
0x880…8a3 at0015 = ╱e8╱ MOD ╱ // 0x895 @0x15
0x880…8a3 at0016 = ╱31╱1╱ // 0x896 @0x16
0x880…8a3 at0017 = ╱30╱0╱ // 0x897 @0x17
0x880…8a3 at0018 = ╱fe0000a004╱ // 0x898 @0x18
0x880…8a3 at001d = ╱eb╱;╱ // 0x89d @0x1d
0x880…8a3 at001e = ╱54╱T╱ // 0x89e @0x1e
0x880…8a3 at001f = ╱50╱P╱ // 0x89f @0x1f
0x880…8a3 at0020 = ╱dc╱=╱ // 0x8a0 @0x20
0x880…8a3 at0021 = ╱50╱P╱ // 0x8a1 @0x21
0x880…8a3 at0022 = EOL // 0x8a2 @0x22
0x880…8a3 }
0x8a3…8c6 961d 1050 UNTIL (P>16 AND P<24) AND TEST2=B
0x8a3…8c6 LineComalBin {
0x8a3…8c6 ptr = 0x961d // 0x8a3 @0x0
0x8a3…8c6 lno = 0x041a // 0x8a5 @0x2
0x8a3…8c6 at0004 = ╱98╱ UNTIL ╱ // 0x8a7 @0x4
0x8a3…8c6 at0005 = ╱ed╱(╱ // 0x8a8 @0x5
0x8a3…8c6 at0006 = ╱50╱P╱ // 0x8a9 @0x6
0x8a3…8c6 at0007 = ╱de╱>╱ // 0x8aa @0x7
0x8a3…8c6 at0008 = ╱31╱1╱ // 0x8ab @0x8
0x8a3…8c6 at0009 = ╱36╱6╱ // 0x8ac @0x9
0x8a3…8c6 at000a = ╱fe00008005╱ // 0x8ad @0xa
0x8a3…8c6 at000f = ╱da╱ AND ╱ // 0x8b2 @0xf
0x8a3…8c6 at0010 = ╱50╱P╱ // 0x8b3 @0x10
0x8a3…8c6 at0011 = ╱dd╱<╱ // 0x8b4 @0x11
0x8a3…8c6 at0012 = ╱32╱2╱ // 0x8b5 @0x12
0x8a3…8c6 at0013 = ╱34╱4╱ // 0x8b6 @0x13
0x8a3…8c6 at0014 = ╱fe0000c005╱ // 0x8b7 @0x14
0x8a3…8c6 at0019 = ╱ee╱)╱ // 0x8bc @0x19
0x8a3…8c6 at001a = ╱da╱ AND ╱ // 0x8bd @0x1a
0x8a3…8c6 at001b = ╱54╱T╱ // 0x8be @0x1b
0x8a3…8c6 at001c = ╱45╱E╱ // 0x8bf @0x1c
0x8a3…8c6 at001d = ╱53╱S╱ // 0x8c0 @0x1d
0x8a3…8c6 at001e = ╱54╱T╱ // 0x8c1 @0x1e
0x8a3…8c6 at001f = ╱32╱2╱ // 0x8c2 @0x1f
0x8a3…8c6 at0020 = ╱dc╱=╱ // 0x8c3 @0x20
0x8a3…8c6 at0021 = ╱42╱B╱ // 0x8c4 @0x21
0x8a3…8c6 at0022 = EOL // 0x8c5 @0x22
0x8a3…8c6 }
0x8c6…8dd 9634 1060 EXEC IND(14,PL2$)
0x8c6…8dd LineComalBin {
0x8c6…8dd ptr = 0x9634 // 0x8c6 @0x0
0x8c6…8dd lno = 0x0424 // 0x8c8 @0x2
0x8c6…8dd at0004 = ╱9d╱ EXEC ╱ // 0x8ca @0x4
0x8c6…8dd at0005 = ╱49╱I╱ // 0x8cb @0x5
0x8c6…8dd at0006 = ╱4e╱N╱ // 0x8cc @0x6
0x8c6…8dd at0007 = ╱44╱D╱ // 0x8cd @0x7
0x8c6…8dd at0008 = ╱ed╱(╱ // 0x8ce @0x8
0x8c6…8dd at0009 = ╱31╱1╱ // 0x8cf @0x9
0x8c6…8dd at000a = ╱34╱4╱ // 0x8d0 @0xa
0x8c6…8dd at000b = ╱fe0000e004╱ // 0x8d1 @0xb
0x8c6…8dd at0010 = ╱ec╱,╱ // 0x8d6 @0x10
0x8c6…8dd at0011 = ╱50╱P╱ // 0x8d7 @0x11
0x8c6…8dd at0012 = ╱4c╱L╱ // 0x8d8 @0x12
0x8c6…8dd at0013 = ╱32╱2╱ // 0x8d9 @0x13
0x8c6…8dd at0014 = ╱ef╱$╱ // 0x8da @0x14
0x8c6…8dd at0015 = ╱ee╱)╱ // 0x8db @0x15
0x8c6…8dd at0016 = EOL // 0x8dc @0x16
0x8c6…8dd }
0x8dd…8e3 963a 1070 ENDIF
0x8dd…8e3 LineComalBin {
0x8dd…8e3 ptr = 0x963a // 0x8dd @0x0
0x8dd…8e3 lno = 0x042e // 0x8df @0x2
0x8dd…8e3 at0004 = ╱9b╱ ENDIF ╱ // 0x8e1 @0x4
0x8dd…8e3 at0005 = EOL // 0x8e2 @0x5
0x8dd…8e3 }
0x8e3…8e9 9640 1080 REPEAT
0x8e3…8e9 LineComalBin {
0x8e3…8e9 ptr = 0x9640 // 0x8e3 @0x0
0x8e3…8e9 lno = 0x0438 // 0x8e5 @0x2
0x8e3…8e9 at0004 = ╱97╱ REPEAT ╱ // 0x8e7 @0x4
0x8e3…8e9 at0005 = EOL // 0x8e8 @0x5
0x8e3…8e9 }
0x8e9…8fe 9655 1090 CURSOR 15,16
0x8e9…8fe LineComalBin {
0x8e9…8fe ptr = 0x9655 // 0x8e9 @0x0
0x8e9…8fe lno = 0x0442 // 0x8eb @0x2
0x8e9…8fe at0004 = ╱a1╱ CURSOR ╱ // 0x8ed @0x4
0x8e9…8fe at0005 = ╱31╱1╱ // 0x8ee @0x5
0x8e9…8fe at0006 = ╱35╱5╱ // 0x8ef @0x6
0x8e9…8fe at0007 = ╱fe0000f004╱ // 0x8f0 @0x7
0x8e9…8fe at000c = ╱ec╱,╱ // 0x8f5 @0xc
0x8e9…8fe at000d = ╱31╱1╱ // 0x8f6 @0xd
0x8e9…8fe at000e = ╱36╱6╱ // 0x8f7 @0xe
0x8e9…8fe at000f = ╱fe00008005╱ // 0x8f8 @0xf
0x8e9…8fe at0014 = EOL // 0x8fd @0x14
0x8e9…8fe }
0x8fe…93f 9696 1100 PRINT "Ønskes kopieret fra plade nr ";PL1$;" til plade nr ";PL2$;
0x8fe…93f LineComalBin {
0x8fe…93f ptr = 0x9696 // 0x8fe @0x0
0x8fe…93f lno = 0x044c // 0x900 @0x2
0x8fe…93f at0004 = ╱92╱ PRINT ╱ // 0x902 @0x4
0x8fe…93f at0005 = ╱22╱"╱ // 0x903 @0x5
0x8fe…93f at0006 = ╱5c╱Ø╱ // 0x904 @0x6
0x8fe…93f at0007 = ╱6e╱n╱ // 0x905 @0x7
0x8fe…93f at0008 = ╱73╱s╱ // 0x906 @0x8
0x8fe…93f at0009 = ╱6b╱k╱ // 0x907 @0x9
0x8fe…93f at000a = ╱65╱e╱ // 0x908 @0xa
0x8fe…93f at000b = ╱73╱s╱ // 0x909 @0xb
0x8fe…93f at000c = ╱20╱…╱ // 0x90a @0xc
0x8fe…93f at000d = ╱6b╱k╱ // 0x90b @0xd
0x8fe…93f at000e = ╱6f╱o╱ // 0x90c @0xe
0x8fe…93f at000f = ╱70╱p╱ // 0x90d @0xf
0x8fe…93f at0010 = ╱69╱i╱ // 0x90e @0x10
0x8fe…93f at0011 = ╱65╱e╱ // 0x90f @0x11
0x8fe…93f at0012 = ╱72╱r╱ // 0x910 @0x12
0x8fe…93f at0013 = ╱65╱e╱ // 0x911 @0x13
0x8fe…93f at0014 = ╱74╱t╱ // 0x912 @0x14
0x8fe…93f at0015 = ╱20╱…╱ // 0x913 @0x15
0x8fe…93f at0016 = ╱66╱f╱ // 0x914 @0x16
0x8fe…93f at0017 = ╱72╱r╱ // 0x915 @0x17
0x8fe…93f at0018 = ╱61╱a╱ // 0x916 @0x18
0x8fe…93f at0019 = ╱20╱…╱ // 0x917 @0x19
0x8fe…93f at001a = ╱70╱p╱ // 0x918 @0x1a
0x8fe…93f at001b = ╱6c╱l╱ // 0x919 @0x1b
0x8fe…93f at001c = ╱61╱a╱ // 0x91a @0x1c
0x8fe…93f at001d = ╱64╱d╱ // 0x91b @0x1d
0x8fe…93f at001e = ╱65╱e╱ // 0x91c @0x1e
0x8fe…93f at001f = ╱20╱…╱ // 0x91d @0x1f
0x8fe…93f at0020 = ╱6e╱n╱ // 0x91e @0x20
0x8fe…93f at0021 = ╱72╱r╱ // 0x91f @0x21
0x8fe…93f at0022 = ╱20╱…╱ // 0x920 @0x22
0x8fe…93f at0023 = ╱22╱"╱ // 0x921 @0x23
0x8fe…93f at0024 = ╱eb╱;╱ // 0x922 @0x24
0x8fe…93f at0025 = ╱50╱P╱ // 0x923 @0x25
0x8fe…93f at0026 = ╱4c╱L╱ // 0x924 @0x26
0x8fe…93f at0027 = ╱31╱1╱ // 0x925 @0x27
0x8fe…93f at0028 = ╱ef╱$╱ // 0x926 @0x28
0x8fe…93f at0029 = ╱eb╱;╱ // 0x927 @0x29
0x8fe…93f at002a = ╱22╱"╱ // 0x928 @0x2a
0x8fe…93f at002b = ╱20╱…╱ // 0x929 @0x2b
0x8fe…93f at002c = ╱74╱t╱ // 0x92a @0x2c
0x8fe…93f at002d = ╱69╱i╱ // 0x92b @0x2d
0x8fe…93f at002e = ╱6c╱l╱ // 0x92c @0x2e
0x8fe…93f at002f = ╱20╱…╱ // 0x92d @0x2f
0x8fe…93f at0030 = ╱70╱p╱ // 0x92e @0x30
0x8fe…93f at0031 = ╱6c╱l╱ // 0x92f @0x31
0x8fe…93f at0032 = ╱61╱a╱ // 0x930 @0x32
0x8fe…93f at0033 = ╱64╱d╱ // 0x931 @0x33
0x8fe…93f at0034 = ╱65╱e╱ // 0x932 @0x34
0x8fe…93f at0035 = ╱20╱…╱ // 0x933 @0x35
0x8fe…93f at0036 = ╱6e╱n╱ // 0x934 @0x36
0x8fe…93f at0037 = ╱72╱r╱ // 0x935 @0x37
0x8fe…93f at0038 = ╱20╱…╱ // 0x936 @0x38
0x8fe…93f at0039 = ╱22╱"╱ // 0x937 @0x39
0x8fe…93f at003a = ╱eb╱;╱ // 0x938 @0x3a
0x8fe…93f at003b = ╱50╱P╱ // 0x939 @0x3b
0x8fe…93f at003c = ╱4c╱L╱ // 0x93a @0x3c
0x8fe…93f at003d = ╱32╱2╱ // 0x93b @0x3d
0x8fe…93f at003e = ╱ef╱$╱ // 0x93c @0x3e
0x8fe…93f at003f = ╱eb╱;╱ // 0x93d @0x3f
0x8fe…93f at0040 = EOL // 0x93e @0x40
0x8fe…93f }
0x93f…950 96a7 1110 INPUT " (J/N)",A$
0x93f…950 LineComalBin {
0x93f…950 ptr = 0x96a7 // 0x93f @0x0
0x93f…950 lno = 0x0456 // 0x941 @0x2
0x93f…950 at0004 = ╱91╱ INPUT ╱ // 0x943 @0x4
0x93f…950 at0005 = ╱22╱"╱ // 0x944 @0x5
0x93f…950 at0006 = ╱20╱…╱ // 0x945 @0x6
0x93f…950 at0007 = ╱28╱(╱ // 0x946 @0x7
0x93f…950 at0008 = ╱4a╱J╱ // 0x947 @0x8
0x93f…950 at0009 = ╱2f╱/╱ // 0x948 @0x9
0x93f…950 at000a = ╱4e╱N╱ // 0x949 @0xa
0x93f…950 at000b = ╱29╱)╱ // 0x94a @0xb
0x93f…950 at000c = ╱22╱"╱ // 0x94b @0xc
0x93f…950 at000d = ╱ec╱,╱ // 0x94c @0xd
0x93f…950 at000e = ╱41╱A╱ // 0x94d @0xe
0x93f…950 at000f = ╱ef╱$╱ // 0x94e @0xf
0x93f…950 at0010 = EOL // 0x94f @0x10
0x93f…950 }
0x950…960 96b7 1120 EXEC NRTEST(A$)
0x950…960 LineComalBin {
0x950…960 ptr = 0x96b7 // 0x950 @0x0
0x950…960 lno = 0x0460 // 0x952 @0x2
0x950…960 at0004 = ╱9d╱ EXEC ╱ // 0x954 @0x4
0x950…960 at0005 = ╱4e╱N╱ // 0x955 @0x5
0x950…960 at0006 = ╱52╱R╱ // 0x956 @0x6
0x950…960 at0007 = ╱54╱T╱ // 0x957 @0x7
0x950…960 at0008 = ╱45╱E╱ // 0x958 @0x8
0x950…960 at0009 = ╱53╱S╱ // 0x959 @0x9
0x950…960 at000a = ╱54╱T╱ // 0x95a @0xa
0x950…960 at000b = ╱ed╱(╱ // 0x95b @0xb
0x950…960 at000c = ╱41╱A╱ // 0x95c @0xc
0x950…960 at000d = ╱ef╱$╱ // 0x95d @0xd
0x950…960 at000e = ╱ee╱)╱ // 0x95e @0xe
0x950…960 at000f = EOL // 0x95f @0xf
0x950…960 }
0x960…979 96d0 1130 UNTIL P=-7 OR P=-8
0x960…979 LineComalBin {
0x960…979 ptr = 0x96d0 // 0x960 @0x0
0x960…979 lno = 0x046a // 0x962 @0x2
0x960…979 at0004 = ╱98╱ UNTIL ╱ // 0x964 @0x4
0x960…979 at0005 = ╱50╱P╱ // 0x965 @0x5
0x960…979 at0006 = ╱dc╱=╱ // 0x966 @0x6
0x960…979 at0007 = ╱e9╱-╱ // 0x967 @0x7
0x960…979 at0008 = ╱37╱7╱ // 0x968 @0x8
0x960…979 at0009 = ╱fe0000e003╱ // 0x969 @0x9
0x960…979 at000e = ╱db╱ OR ╱ // 0x96e @0xe
0x960…979 at000f = ╱50╱P╱ // 0x96f @0xf
0x960…979 at0010 = ╱dc╱=╱ // 0x970 @0x10
0x960…979 at0011 = ╱e9╱-╱ // 0x971 @0x11
0x960…979 at0012 = ╱38╱8╱ // 0x972 @0x12
0x960…979 at0013 = ╱fe00008004╱ // 0x973 @0x13
0x960…979 at0018 = EOL // 0x978 @0x18
0x960…979 }
0x979…988 96df 1140 UNTIL P=-7
0x979…988 LineComalBin {
0x979…988 ptr = 0x96df // 0x979 @0x0
0x979…988 lno = 0x0474 // 0x97b @0x2
0x979…988 at0004 = ╱98╱ UNTIL ╱ // 0x97d @0x4
0x979…988 at0005 = ╱50╱P╱ // 0x97e @0x5
0x979…988 at0006 = ╱dc╱=╱ // 0x97f @0x6
0x979…988 at0007 = ╱e9╱-╱ // 0x980 @0x7
0x979…988 at0008 = ╱37╱7╱ // 0x981 @0x8
0x979…988 at0009 = ╱fe0000e003╱ // 0x982 @0x9
0x979…988 at000e = EOL // 0x987 @0xe
0x979…988 }
0x988…993 96ea 1150 IF P=B THEN EXIT
0x988…993 LineComalBin {
0x988…993 ptr = 0x96ea // 0x988 @0x0
0x988…993 lno = 0x047e // 0x98a @0x2
0x988…993 at0004 = ╱82╱ IF ╱ // 0x98c @0x4
0x988…993 at0005 = ╱50╱P╱ // 0x98d @0x5
0x988…993 at0006 = ╱dc╱=╱ // 0x98e @0x6
0x988…993 at0007 = ╱42╱B╱ // 0x98f @0x7
0x988…993 at0008 = ╱b6╱ THEN ╱ // 0x990 @0x8
0x988…993 at0009 = ╱99╱ EXIT ╱ // 0x991 @0x9
0x988…993 at000a = EOL // 0x992 @0xa
0x988…993 }
0x993…9ab 9702 1160 J=B;FLAG=B;J1=B;H=B
0x993…9ab LineComalBin {
0x993…9ab ptr = 0x9702 // 0x993 @0x0
0x993…9ab lno = 0x0488 // 0x995 @0x2
0x993…9ab at0004 = ╱4a╱J╱ // 0x997 @0x4
0x993…9ab at0005 = ╱dc╱=╱ // 0x998 @0x5
0x993…9ab at0006 = ╱42╱B╱ // 0x999 @0x6
0x993…9ab at0007 = ╱eb╱;╱ // 0x99a @0x7
0x993…9ab at0008 = ╱46╱F╱ // 0x99b @0x8
0x993…9ab at0009 = ╱4c╱L╱ // 0x99c @0x9
0x993…9ab at000a = ╱41╱A╱ // 0x99d @0xa
0x993…9ab at000b = ╱47╱G╱ // 0x99e @0xb
0x993…9ab at000c = ╱dc╱=╱ // 0x99f @0xc
0x993…9ab at000d = ╱42╱B╱ // 0x9a0 @0xd
0x993…9ab at000e = ╱eb╱;╱ // 0x9a1 @0xe
0x993…9ab at000f = ╱4a╱J╱ // 0x9a2 @0xf
0x993…9ab at0010 = ╱31╱1╱ // 0x9a3 @0x10
0x993…9ab at0011 = ╱dc╱=╱ // 0x9a4 @0x11
0x993…9ab at0012 = ╱42╱B╱ // 0x9a5 @0x12
0x993…9ab at0013 = ╱eb╱;╱ // 0x9a6 @0x13
0x993…9ab at0014 = ╱48╱H╱ // 0x9a7 @0x14
0x993…9ab at0015 = ╱dc╱=╱ // 0x9a8 @0x15
0x993…9ab at0016 = ╱42╱B╱ // 0x9a9 @0x16
0x993…9ab at0017 = EOL // 0x9aa @0x17
0x993…9ab }
0x9ab…9bb 9712 1170 IF P4<4 THEN
0x9ab…9bb LineComalBin {
0x9ab…9bb ptr = 0x9712 // 0x9ab @0x0
0x9ab…9bb lno = 0x0492 // 0x9ad @0x2
0x9ab…9bb at0004 = ╱9c╱ IF ╱ // 0x9af @0x4
0x9ab…9bb at0005 = ╱50╱P╱ // 0x9b0 @0x5
0x9ab…9bb at0006 = ╱34╱4╱ // 0x9b1 @0x6
0x9ab…9bb at0007 = ╱dd╱<╱ // 0x9b2 @0x7
0x9ab…9bb at0008 = ╱34╱4╱ // 0x9b3 @0x8
0x9ab…9bb at0009 = ╱fe00008003╱ // 0x9b4 @0x9
0x9ab…9bb at000e = ╱b6╱ THEN ╱ // 0x9b9 @0xe
0x9ab…9bb at000f = EOL // 0x9ba @0xf
0x9ab…9bb }
0x9bb…9cc 9723 1180 FOR I=E TO 32
0x9bb…9cc LineComalBin {
0x9bb…9cc ptr = 0x9723 // 0x9bb @0x0
0x9bb…9cc lno = 0x049c // 0x9bd @0x2
0x9bb…9cc at0004 = ╱83╱ FOR ╱ // 0x9bf @0x4
0x9bb…9cc at0005 = ╱49╱I╱ // 0x9c0 @0x5
0x9bb…9cc at0006 = ╱dc╱=╱ // 0x9c1 @0x6
0x9bb…9cc at0007 = ╱45╱E╱ // 0x9c2 @0x7
0x9bb…9cc at0008 = ╱b7╱ TO ╱ // 0x9c3 @0x8
0x9bb…9cc at0009 = ╱33╱3╱ // 0x9c4 @0x9
0x9bb…9cc at000a = ╱32╱2╱ // 0x9c5 @0xa
0x9bb…9cc at000b = ╱fe00008006╱ // 0x9c6 @0xb
0x9bb…9cc at0010 = EOL // 0x9cb @0x10
0x9bb…9cc }
0x9cc…9df 9736 1190 EXEC FO(J,FN$,TN$)
0x9cc…9df LineComalBin {
0x9cc…9df ptr = 0x9736 // 0x9cc @0x0
0x9cc…9df lno = 0x04a6 // 0x9ce @0x2
0x9cc…9df at0004 = ╱9d╱ EXEC ╱ // 0x9d0 @0x4
0x9cc…9df at0005 = ╱46╱F╱ // 0x9d1 @0x5
0x9cc…9df at0006 = ╱4f╱O╱ // 0x9d2 @0x6
0x9cc…9df at0007 = ╱ed╱(╱ // 0x9d3 @0x7
0x9cc…9df at0008 = ╱4a╱J╱ // 0x9d4 @0x8
0x9cc…9df at0009 = ╱ec╱,╱ // 0x9d5 @0x9
0x9cc…9df at000a = ╱46╱F╱ // 0x9d6 @0xa
0x9cc…9df at000b = ╱4e╱N╱ // 0x9d7 @0xb
0x9cc…9df at000c = ╱ef╱$╱ // 0x9d8 @0xc
0x9cc…9df at000d = ╱ec╱,╱ // 0x9d9 @0xd
0x9cc…9df at000e = ╱54╱T╱ // 0x9da @0xe
0x9cc…9df at000f = ╱4e╱N╱ // 0x9db @0xf
0x9cc…9df at0010 = ╱ef╱$╱ // 0x9dc @0x10
0x9cc…9df at0011 = ╱ee╱)╱ // 0x9dd @0x11
0x9cc…9df at0012 = EOL // 0x9de @0x12
0x9cc…9df }
0x9df…9e6 973d 1200 NEXT I
0x9df…9e6 LineComalBin {
0x9df…9e6 ptr = 0x973d // 0x9df @0x0
0x9df…9e6 lno = 0x04b0 // 0x9e1 @0x2
0x9df…9e6 at0004 = ╱84╱ NEXT ╱ // 0x9e3 @0x4
0x9df…9e6 at0005 = ╱49╱I╱ // 0x9e4 @0x5
0x9df…9e6 at0006 = EOL // 0x9e5 @0x6
0x9df…9e6 }
0x9e6…9ec 9743 1210 ENDIF
0x9e6…9ec LineComalBin {
0x9e6…9ec ptr = 0x9743 // 0x9e6 @0x0
0x9e6…9ec lno = 0x04ba // 0x9e8 @0x2
0x9e6…9ec at0004 = ╱9b╱ ENDIF ╱ // 0x9ea @0x4
0x9e6…9ec at0005 = EOL // 0x9eb @0x5
0x9e6…9ec }
0x9ec…a1b 9772 1220 IF P2=G THEN J=J+E;FN$(J)="SYSTEM1";TN$(J)=FN$(J)
0x9ec…a1b LineComalBin {
0x9ec…a1b ptr = 0x9772 // 0x9ec @0x0
0x9ec…a1b lno = 0x04c4 // 0x9ee @0x2
0x9ec…a1b at0004 = ╱82╱ IF ╱ // 0x9f0 @0x4
0x9ec…a1b at0005 = ╱50╱P╱ // 0x9f1 @0x5
0x9ec…a1b at0006 = ╱32╱2╱ // 0x9f2 @0x6
0x9ec…a1b at0007 = ╱dc╱=╱ // 0x9f3 @0x7
0x9ec…a1b at0008 = ╱47╱G╱ // 0x9f4 @0x8
0x9ec…a1b at0009 = ╱b6╱ THEN ╱ // 0x9f5 @0x9
0x9ec…a1b at000a = ╱4a╱J╱ // 0x9f6 @0xa
0x9ec…a1b at000b = ╱dc╱=╱ // 0x9f7 @0xb
0x9ec…a1b at000c = ╱4a╱J╱ // 0x9f8 @0xc
0x9ec…a1b at000d = ╱e2╱+╱ // 0x9f9 @0xd
0x9ec…a1b at000e = ╱45╱E╱ // 0x9fa @0xe
0x9ec…a1b at000f = ╱eb╱;╱ // 0x9fb @0xf
0x9ec…a1b at0010 = ╱46╱F╱ // 0x9fc @0x10
0x9ec…a1b at0011 = ╱4e╱N╱ // 0x9fd @0x11
0x9ec…a1b at0012 = ╱ef╱$╱ // 0x9fe @0x12
0x9ec…a1b at0013 = ╱ed╱(╱ // 0x9ff @0x13
0x9ec…a1b at0014 = ╱4a╱J╱ // 0xa00 @0x14
0x9ec…a1b at0015 = ╱ee╱)╱ // 0xa01 @0x15
0x9ec…a1b at0016 = ╱dc╱=╱ // 0xa02 @0x16
0x9ec…a1b at0017 = ╱22╱"╱ // 0xa03 @0x17
0x9ec…a1b at0018 = ╱53╱S╱ // 0xa04 @0x18
0x9ec…a1b at0019 = ╱59╱Y╱ // 0xa05 @0x19
0x9ec…a1b at001a = ╱53╱S╱ // 0xa06 @0x1a
0x9ec…a1b at001b = ╱54╱T╱ // 0xa07 @0x1b
0x9ec…a1b at001c = ╱45╱E╱ // 0xa08 @0x1c
0x9ec…a1b at001d = ╱4d╱M╱ // 0xa09 @0x1d
0x9ec…a1b at001e = ╱31╱1╱ // 0xa0a @0x1e
0x9ec…a1b at001f = ╱22╱"╱ // 0xa0b @0x1f
0x9ec…a1b at0020 = ╱eb╱;╱ // 0xa0c @0x20
0x9ec…a1b at0021 = ╱54╱T╱ // 0xa0d @0x21
0x9ec…a1b at0022 = ╱4e╱N╱ // 0xa0e @0x22
0x9ec…a1b at0023 = ╱ef╱$╱ // 0xa0f @0x23
0x9ec…a1b at0024 = ╱ed╱(╱ // 0xa10 @0x24
0x9ec…a1b at0025 = ╱4a╱J╱ // 0xa11 @0x25
0x9ec…a1b at0026 = ╱ee╱)╱ // 0xa12 @0x26
0x9ec…a1b at0027 = ╱dc╱=╱ // 0xa13 @0x27
0x9ec…a1b at0028 = ╱46╱F╱ // 0xa14 @0x28
0x9ec…a1b at0029 = ╱4e╱N╱ // 0xa15 @0x29
0x9ec…a1b at002a = ╱ef╱$╱ // 0xa16 @0x2a
0x9ec…a1b at002b = ╱ed╱(╱ // 0xa17 @0x2b
0x9ec…a1b at002c = ╱4a╱J╱ // 0xa18 @0x2c
0x9ec…a1b at002d = ╱ee╱)╱ // 0xa19 @0x2d
0x9ec…a1b at002e = EOL // 0xa1a @0x2e
0x9ec…a1b }
0xa1b…a30 9787 1230 CURSOR 15,18
0xa1b…a30 LineComalBin {
0xa1b…a30 ptr = 0x9787 // 0xa1b @0x0
0xa1b…a30 lno = 0x04ce // 0xa1d @0x2
0xa1b…a30 at0004 = ╱a1╱ CURSOR ╱ // 0xa1f @0x4
0xa1b…a30 at0005 = ╱31╱1╱ // 0xa20 @0x5
0xa1b…a30 at0006 = ╱35╱5╱ // 0xa21 @0x6
0xa1b…a30 at0007 = ╱fe0000f004╱ // 0xa22 @0x7
0xa1b…a30 at000c = ╱ec╱,╱ // 0xa27 @0xc
0xa1b…a30 at000d = ╱31╱1╱ // 0xa28 @0xd
0xa1b…a30 at000e = ╱38╱8╱ // 0xa29 @0xe
0xa1b…a30 at000f = ╱fe00009005╱ // 0xa2a @0xf
0xa1b…a30 at0014 = EOL // 0xa2f @0x14
0xa1b…a30 }
0xa30…a39 9790 1240 CASE E OF
0xa30…a39 LineComalBin {
0xa30…a39 ptr = 0x9790 // 0xa30 @0x0
0xa30…a39 lno = 0x04d8 // 0xa32 @0x2
0xa30…a39 at0004 = ╱a201╱ CASE ╱ // 0xa34 @0x4
0xa30…a39 at0006 = ╱45╱E╱ // 0xa36 @0x6
0xa30…a39 at0007 = ╱ba╱ OF ╱ // 0xa37 @0x7
0xa30…a39 at0008 = EOL // 0xa38 @0x8
0xa30…a39 }
0xa39…a3f 9796 1250 STOP
0xa39…a3f LineComalBin {
0xa39…a3f ptr = 0x9796 // 0xa39 @0x0
0xa39…a3f lno = 0x04e2 // 0xa3b @0x2
0xa39…a3f at0004 = ╱8d╱ STOP ╱ // 0xa3d @0x4
0xa39…a3f at0005 = EOL // 0xa3e @0x5
0xa39…a3f }
0xa3f…a53 97aa 1260 WHEN J=B AND P4<4
0xa3f…a53 LineComalBin {
0xa3f…a53 ptr = 0x97aa // 0xa3f @0x0
0xa3f…a53 lno = 0x04ec // 0xa41 @0x2
0xa3f…a53 at0004 = ╱a301╱ WHEN ╱ // 0xa43 @0x4
0xa3f…a53 at0006 = ╱4a╱J╱ // 0xa45 @0x6
0xa3f…a53 at0007 = ╱dc╱=╱ // 0xa46 @0x7
0xa3f…a53 at0008 = ╱42╱B╱ // 0xa47 @0x8
0xa3f…a53 at0009 = ╱da╱ AND ╱ // 0xa48 @0x9
0xa3f…a53 at000a = ╱50╱P╱ // 0xa49 @0xa
0xa3f…a53 at000b = ╱34╱4╱ // 0xa4a @0xb
0xa3f…a53 at000c = ╱dd╱<╱ // 0xa4b @0xc
0xa3f…a53 at000d = ╱34╱4╱ // 0xa4c @0xd
0xa3f…a53 at000e = ╱fe00008003╱ // 0xa4d @0xe
0xa3f…a53 at0013 = EOL // 0xa52 @0x13
0xa3f…a53 }
0xa53…a7f 97d6 1270 PRINT "Der er ingen data på plade nr ";PL1$;
0xa53…a7f LineComalBin {
0xa53…a7f ptr = 0x97d6 // 0xa53 @0x0
0xa53…a7f lno = 0x04f6 // 0xa55 @0x2
0xa53…a7f at0004 = ╱92╱ PRINT ╱ // 0xa57 @0x4
0xa53…a7f at0005 = ╱22╱"╱ // 0xa58 @0x5
0xa53…a7f at0006 = ╱44╱D╱ // 0xa59 @0x6
0xa53…a7f at0007 = ╱65╱e╱ // 0xa5a @0x7
0xa53…a7f at0008 = ╱72╱r╱ // 0xa5b @0x8
0xa53…a7f at0009 = ╱20╱…╱ // 0xa5c @0x9
0xa53…a7f at000a = ╱65╱e╱ // 0xa5d @0xa
0xa53…a7f at000b = ╱72╱r╱ // 0xa5e @0xb
0xa53…a7f at000c = ╱20╱…╱ // 0xa5f @0xc
0xa53…a7f at000d = ╱69╱i╱ // 0xa60 @0xd
0xa53…a7f at000e = ╱6e╱n╱ // 0xa61 @0xe
0xa53…a7f at000f = ╱67╱g╱ // 0xa62 @0xf
0xa53…a7f at0010 = ╱65╱e╱ // 0xa63 @0x10
0xa53…a7f at0011 = ╱6e╱n╱ // 0xa64 @0x11
0xa53…a7f at0012 = ╱20╱…╱ // 0xa65 @0x12
0xa53…a7f at0013 = ╱64╱d╱ // 0xa66 @0x13
0xa53…a7f at0014 = ╱61╱a╱ // 0xa67 @0x14
0xa53…a7f at0015 = ╱74╱t╱ // 0xa68 @0x15
0xa53…a7f at0016 = ╱61╱a╱ // 0xa69 @0x16
0xa53…a7f at0017 = ╱20╱…╱ // 0xa6a @0x17
0xa53…a7f at0018 = ╱70╱p╱ // 0xa6b @0x18
0xa53…a7f at0019 = ╱7d╱å╱ // 0xa6c @0x19
0xa53…a7f at001a = ╱20╱…╱ // 0xa6d @0x1a
0xa53…a7f at001b = ╱70╱p╱ // 0xa6e @0x1b
0xa53…a7f at001c = ╱6c╱l╱ // 0xa6f @0x1c
0xa53…a7f at001d = ╱61╱a╱ // 0xa70 @0x1d
0xa53…a7f at001e = ╱64╱d╱ // 0xa71 @0x1e
0xa53…a7f at001f = ╱65╱e╱ // 0xa72 @0x1f
0xa53…a7f at0020 = ╱20╱…╱ // 0xa73 @0x20
0xa53…a7f at0021 = ╱6e╱n╱ // 0xa74 @0x21
0xa53…a7f at0022 = ╱72╱r╱ // 0xa75 @0x22
0xa53…a7f at0023 = ╱20╱…╱ // 0xa76 @0x23
0xa53…a7f at0024 = ╱22╱"╱ // 0xa77 @0x24
0xa53…a7f at0025 = ╱eb╱;╱ // 0xa78 @0x25
0xa53…a7f at0026 = ╱50╱P╱ // 0xa79 @0x26
0xa53…a7f at0027 = ╱4c╱L╱ // 0xa7a @0x27
0xa53…a7f at0028 = ╱31╱1╱ // 0xa7b @0x28
0xa53…a7f at0029 = ╱ef╱$╱ // 0xa7c @0x29
0xa53…a7f at002a = ╱eb╱;╱ // 0xa7d @0x2a
0xa53…a7f at002b = EOL // 0xa7e @0x2b
0xa53…a7f }
0xa7f…aa7 97fe 1280 INPUT " der kan kopieres,tast RETURN",A$
0xa7f…aa7 LineComalBin {
0xa7f…aa7 ptr = 0x97fe // 0xa7f @0x0
0xa7f…aa7 lno = 0x0500 // 0xa81 @0x2
0xa7f…aa7 at0004 = ╱91╱ INPUT ╱ // 0xa83 @0x4
0xa7f…aa7 at0005 = ╱22╱"╱ // 0xa84 @0x5
0xa7f…aa7 at0006 = ╱20╱…╱ // 0xa85 @0x6
0xa7f…aa7 at0007 = ╱64╱d╱ // 0xa86 @0x7
0xa7f…aa7 at0008 = ╱65╱e╱ // 0xa87 @0x8
0xa7f…aa7 at0009 = ╱72╱r╱ // 0xa88 @0x9
0xa7f…aa7 at000a = ╱20╱…╱ // 0xa89 @0xa
0xa7f…aa7 at000b = ╱6b╱k╱ // 0xa8a @0xb
0xa7f…aa7 at000c = ╱61╱a╱ // 0xa8b @0xc
0xa7f…aa7 at000d = ╱6e╱n╱ // 0xa8c @0xd
0xa7f…aa7 at000e = ╱20╱…╱ // 0xa8d @0xe
0xa7f…aa7 at000f = ╱6b╱k╱ // 0xa8e @0xf
0xa7f…aa7 at0010 = ╱6f╱o╱ // 0xa8f @0x10
0xa7f…aa7 at0011 = ╱70╱p╱ // 0xa90 @0x11
0xa7f…aa7 at0012 = ╱69╱i╱ // 0xa91 @0x12
0xa7f…aa7 at0013 = ╱65╱e╱ // 0xa92 @0x13
0xa7f…aa7 at0014 = ╱72╱r╱ // 0xa93 @0x14
0xa7f…aa7 at0015 = ╱65╱e╱ // 0xa94 @0x15
0xa7f…aa7 at0016 = ╱73╱s╱ // 0xa95 @0x16
0xa7f…aa7 at0017 = ╱2c╱,╱ // 0xa96 @0x17
0xa7f…aa7 at0018 = ╱74╱t╱ // 0xa97 @0x18
0xa7f…aa7 at0019 = ╱61╱a╱ // 0xa98 @0x19
0xa7f…aa7 at001a = ╱73╱s╱ // 0xa99 @0x1a
0xa7f…aa7 at001b = ╱74╱t╱ // 0xa9a @0x1b
0xa7f…aa7 at001c = ╱20╱…╱ // 0xa9b @0x1c
0xa7f…aa7 at001d = ╱52╱R╱ // 0xa9c @0x1d
0xa7f…aa7 at001e = ╱45╱E╱ // 0xa9d @0x1e
0xa7f…aa7 at001f = ╱54╱T╱ // 0xa9e @0x1f
0xa7f…aa7 at0020 = ╱55╱U╱ // 0xa9f @0x20
0xa7f…aa7 at0021 = ╱52╱R╱ // 0xaa0 @0x21
0xa7f…aa7 at0022 = ╱4e╱N╱ // 0xaa1 @0x22
0xa7f…aa7 at0023 = ╱22╱"╱ // 0xaa2 @0x23
0xa7f…aa7 at0024 = ╱ec╱,╱ // 0xaa3 @0x24
0xa7f…aa7 at0025 = ╱41╱A╱ // 0xaa4 @0x25
0xa7f…aa7 at0026 = ╱ef╱$╱ // 0xaa5 @0x26
0xa7f…aa7 at0027 = EOL // 0xaa6 @0x27
0xa7f…aa7 }
0xaa7…ab7 980e 1290 WHEN P4<4
0xaa7…ab7 LineComalBin {
0xaa7…ab7 ptr = 0x980e // 0xaa7 @0x0
0xaa7…ab7 lno = 0x050a // 0xaa9 @0x2
0xaa7…ab7 at0004 = ╱a301╱ WHEN ╱ // 0xaab @0x4
0xaa7…ab7 at0006 = ╱50╱P╱ // 0xaad @0x6
0xaa7…ab7 at0007 = ╱34╱4╱ // 0xaae @0x7
0xaa7…ab7 at0008 = ╱dd╱<╱ // 0xaaf @0x8
0xaa7…ab7 at0009 = ╱34╱4╱ // 0xab0 @0x9
0xaa7…ab7 at000a = ╱fe00008003╱ // 0xab1 @0xa
0xaa7…ab7 at000f = EOL // 0xab6 @0xf
0xaa7…ab7 }
0xab7…acd 9824 1300 EXEC TKOPI(J,FN$,TN$)
0xab7…acd LineComalBin {
0xab7…acd ptr = 0x9824 // 0xab7 @0x0
0xab7…acd lno = 0x0514 // 0xab9 @0x2
0xab7…acd at0004 = ╱9d╱ EXEC ╱ // 0xabb @0x4
0xab7…acd at0005 = ╱54╱T╱ // 0xabc @0x5
0xab7…acd at0006 = ╱4b╱K╱ // 0xabd @0x6
0xab7…acd at0007 = ╱4f╱O╱ // 0xabe @0x7
0xab7…acd at0008 = ╱50╱P╱ // 0xabf @0x8
0xab7…acd at0009 = ╱49╱I╱ // 0xac0 @0x9
0xab7…acd at000a = ╱ed╱(╱ // 0xac1 @0xa
0xab7…acd at000b = ╱4a╱J╱ // 0xac2 @0xb
0xab7…acd at000c = ╱ec╱,╱ // 0xac3 @0xc
0xab7…acd at000d = ╱46╱F╱ // 0xac4 @0xd
0xab7…acd at000e = ╱4e╱N╱ // 0xac5 @0xe
0xab7…acd at000f = ╱ef╱$╱ // 0xac6 @0xf
0xab7…acd at0010 = ╱ec╱,╱ // 0xac7 @0x10
0xab7…acd at0011 = ╱54╱T╱ // 0xac8 @0x11
0xab7…acd at0012 = ╱4e╱N╱ // 0xac9 @0x12
0xab7…acd at0013 = ╱ef╱$╱ // 0xaca @0x13
0xab7…acd at0014 = ╱ee╱)╱ // 0xacb @0x14
0xab7…acd at0015 = EOL // 0xacc @0x15
0xab7…acd }
0xacd…b0a 9861 1310 WHEN TP=19 OR FP=19 OR TP=18 OR FP=18 OR TP=17
0xacd…b0a LineComalBin {
0xacd…b0a ptr = 0x9861 // 0xacd @0x0
0xacd…b0a lno = 0x051e // 0xacf @0x2
0xacd…b0a at0004 = ╱a301╱ WHEN ╱ // 0xad1 @0x4
0xacd…b0a at0006 = ╱54╱T╱ // 0xad3 @0x6
0xacd…b0a at0007 = ╱50╱P╱ // 0xad4 @0x7
0xacd…b0a at0008 = ╱dc╱=╱ // 0xad5 @0x8
0xacd…b0a at0009 = ╱31╱1╱ // 0xad6 @0x9
0xacd…b0a at000a = ╱39╱9╱ // 0xad7 @0xa
0xacd…b0a at000b = ╱fe00009805╱ // 0xad8 @0xb
0xacd…b0a at0010 = ╱db╱ OR ╱ // 0xadd @0x10
0xacd…b0a at0011 = ╱46╱F╱ // 0xade @0x11
0xacd…b0a at0012 = ╱50╱P╱ // 0xadf @0x12
0xacd…b0a at0013 = ╱dc╱=╱ // 0xae0 @0x13
0xacd…b0a at0014 = ╱31╱1╱ // 0xae1 @0x14
0xacd…b0a at0015 = ╱39╱9╱ // 0xae2 @0x15
0xacd…b0a at0016 = ╱fe00009805╱ // 0xae3 @0x16
0xacd…b0a at001b = ╱db╱ OR ╱ // 0xae8 @0x1b
0xacd…b0a at001c = ╱54╱T╱ // 0xae9 @0x1c
0xacd…b0a at001d = ╱50╱P╱ // 0xaea @0x1d
0xacd…b0a at001e = ╱dc╱=╱ // 0xaeb @0x1e
0xacd…b0a at001f = ╱31╱1╱ // 0xaec @0x1f
0xacd…b0a at0020 = ╱38╱8╱ // 0xaed @0x20
0xacd…b0a at0021 = ╱fe00009005╱ // 0xaee @0x21
0xacd…b0a at0026 = ╱db╱ OR ╱ // 0xaf3 @0x26
0xacd…b0a at0027 = ╱46╱F╱ // 0xaf4 @0x27
0xacd…b0a at0028 = ╱50╱P╱ // 0xaf5 @0x28
0xacd…b0a at0029 = ╱dc╱=╱ // 0xaf6 @0x29
0xacd…b0a at002a = ╱31╱1╱ // 0xaf7 @0x2a
0xacd…b0a at002b = ╱38╱8╱ // 0xaf8 @0x2b
0xacd…b0a at002c = ╱fe00009005╱ // 0xaf9 @0x2c
0xacd…b0a at0031 = ╱db╱ OR ╱ // 0xafe @0x31
0xacd…b0a at0032 = ╱54╱T╱ // 0xaff @0x32
0xacd…b0a at0033 = ╱50╱P╱ // 0xb00 @0x33
0xacd…b0a at0034 = ╱dc╱=╱ // 0xb01 @0x34
0xacd…b0a at0035 = ╱31╱1╱ // 0xb02 @0x35
0xacd…b0a at0036 = ╱37╱7╱ // 0xb03 @0x36
0xacd…b0a at0037 = ╱fe00008805╱ // 0xb04 @0x37
0xacd…b0a at003c = EOL // 0xb09 @0x3c
0xacd…b0a }
0xb0a…b44 989b 1320 TN$(E)="VIRKKART";TN$(G)="LØNARTRG";TN$(V)="LØNMODRG"
0xb0a…b44 LineComalBin {
0xb0a…b44 ptr = 0x989b // 0xb0a @0x0
0xb0a…b44 lno = 0x0528 // 0xb0c @0x2
0xb0a…b44 at0004 = ╱54╱T╱ // 0xb0e @0x4
0xb0a…b44 at0005 = ╱4e╱N╱ // 0xb0f @0x5
0xb0a…b44 at0006 = ╱ef╱$╱ // 0xb10 @0x6
0xb0a…b44 at0007 = ╱ed╱(╱ // 0xb11 @0x7
0xb0a…b44 at0008 = ╱45╱E╱ // 0xb12 @0x8
0xb0a…b44 at0009 = ╱ee╱)╱ // 0xb13 @0x9
0xb0a…b44 at000a = ╱dc╱=╱ // 0xb14 @0xa
0xb0a…b44 at000b = ╱22╱"╱ // 0xb15 @0xb
0xb0a…b44 at000c = ╱56╱V╱ // 0xb16 @0xc
0xb0a…b44 at000d = ╱49╱I╱ // 0xb17 @0xd
0xb0a…b44 at000e = ╱52╱R╱ // 0xb18 @0xe
0xb0a…b44 at000f = ╱4b╱K╱ // 0xb19 @0xf
0xb0a…b44 at0010 = ╱4b╱K╱ // 0xb1a @0x10
0xb0a…b44 at0011 = ╱41╱A╱ // 0xb1b @0x11
0xb0a…b44 at0012 = ╱52╱R╱ // 0xb1c @0x12
0xb0a…b44 at0013 = ╱54╱T╱ // 0xb1d @0x13
0xb0a…b44 at0014 = ╱22╱"╱ // 0xb1e @0x14
0xb0a…b44 at0015 = ╱eb╱;╱ // 0xb1f @0x15
0xb0a…b44 at0016 = ╱54╱T╱ // 0xb20 @0x16
0xb0a…b44 at0017 = ╱4e╱N╱ // 0xb21 @0x17
0xb0a…b44 at0018 = ╱ef╱$╱ // 0xb22 @0x18
0xb0a…b44 at0019 = ╱ed╱(╱ // 0xb23 @0x19
0xb0a…b44 at001a = ╱47╱G╱ // 0xb24 @0x1a
0xb0a…b44 at001b = ╱ee╱)╱ // 0xb25 @0x1b
0xb0a…b44 at001c = ╱dc╱=╱ // 0xb26 @0x1c
0xb0a…b44 at001d = ╱22╱"╱ // 0xb27 @0x1d
0xb0a…b44 at001e = ╱4c╱L╱ // 0xb28 @0x1e
0xb0a…b44 at001f = ╱5c╱Ø╱ // 0xb29 @0x1f
0xb0a…b44 at0020 = ╱4e╱N╱ // 0xb2a @0x20
0xb0a…b44 at0021 = ╱41╱A╱ // 0xb2b @0x21
0xb0a…b44 at0022 = ╱52╱R╱ // 0xb2c @0x22
0xb0a…b44 at0023 = ╱54╱T╱ // 0xb2d @0x23
0xb0a…b44 at0024 = ╱52╱R╱ // 0xb2e @0x24
0xb0a…b44 at0025 = ╱47╱G╱ // 0xb2f @0x25
0xb0a…b44 at0026 = ╱22╱"╱ // 0xb30 @0x26
0xb0a…b44 at0027 = ╱eb╱;╱ // 0xb31 @0x27
0xb0a…b44 at0028 = ╱54╱T╱ // 0xb32 @0x28
0xb0a…b44 at0029 = ╱4e╱N╱ // 0xb33 @0x29
0xb0a…b44 at002a = ╱ef╱$╱ // 0xb34 @0x2a
0xb0a…b44 at002b = ╱ed╱(╱ // 0xb35 @0x2b
0xb0a…b44 at002c = ╱56╱V╱ // 0xb36 @0x2c
0xb0a…b44 at002d = ╱ee╱)╱ // 0xb37 @0x2d
0xb0a…b44 at002e = ╱dc╱=╱ // 0xb38 @0x2e
0xb0a…b44 at002f = ╱22╱"╱ // 0xb39 @0x2f
0xb0a…b44 at0030 = ╱4c╱L╱ // 0xb3a @0x30
0xb0a…b44 at0031 = ╱5c╱Ø╱ // 0xb3b @0x31
0xb0a…b44 at0032 = ╱4e╱N╱ // 0xb3c @0x32
0xb0a…b44 at0033 = ╱4d╱M╱ // 0xb3d @0x33
0xb0a…b44 at0034 = ╱4f╱O╱ // 0xb3e @0x34
0xb0a…b44 at0035 = ╱44╱D╱ // 0xb3f @0x35
0xb0a…b44 at0036 = ╱52╱R╱ // 0xb40 @0x36
0xb0a…b44 at0037 = ╱47╱G╱ // 0xb41 @0x37
0xb0a…b44 at0038 = ╱22╱"╱ // 0xb42 @0x38
0xb0a…b44 at0039 = EOL // 0xb43 @0x39
0xb0a…b44 }
0xb44…b8d 98e4 1330 TN$(4)="TRANSREG";TN$(5)="TÆLLEREG";TN$(6)="AKKREGNS"
0xb44…b8d LineComalBin {
0xb44…b8d ptr = 0x98e4 // 0xb44 @0x0
0xb44…b8d lno = 0x0532 // 0xb46 @0x2
0xb44…b8d at0004 = ╱54╱T╱ // 0xb48 @0x4
0xb44…b8d at0005 = ╱4e╱N╱ // 0xb49 @0x5
0xb44…b8d at0006 = ╱ef╱$╱ // 0xb4a @0x6
0xb44…b8d at0007 = ╱ed╱(╱ // 0xb4b @0x7
0xb44…b8d at0008 = ╱34╱4╱ // 0xb4c @0x8
0xb44…b8d at0009 = ╱fe00008003╱ // 0xb4d @0x9
0xb44…b8d at000e = ╱ee╱)╱ // 0xb52 @0xe
0xb44…b8d at000f = ╱dc╱=╱ // 0xb53 @0xf
0xb44…b8d at0010 = ╱22╱"╱ // 0xb54 @0x10
0xb44…b8d at0011 = ╱54╱T╱ // 0xb55 @0x11
0xb44…b8d at0012 = ╱52╱R╱ // 0xb56 @0x12
0xb44…b8d at0013 = ╱41╱A╱ // 0xb57 @0x13
0xb44…b8d at0014 = ╱4e╱N╱ // 0xb58 @0x14
0xb44…b8d at0015 = ╱53╱S╱ // 0xb59 @0x15
0xb44…b8d at0016 = ╱52╱R╱ // 0xb5a @0x16
0xb44…b8d at0017 = ╱45╱E╱ // 0xb5b @0x17
0xb44…b8d at0018 = ╱47╱G╱ // 0xb5c @0x18
0xb44…b8d at0019 = ╱22╱"╱ // 0xb5d @0x19
0xb44…b8d at001a = ╱eb╱;╱ // 0xb5e @0x1a
0xb44…b8d at001b = ╱54╱T╱ // 0xb5f @0x1b
0xb44…b8d at001c = ╱4e╱N╱ // 0xb60 @0x1c
0xb44…b8d at001d = ╱ef╱$╱ // 0xb61 @0x1d
0xb44…b8d at001e = ╱ed╱(╱ // 0xb62 @0x1e
0xb44…b8d at001f = ╱35╱5╱ // 0xb63 @0x1f
0xb44…b8d at0020 = ╱fe0000a003╱ // 0xb64 @0x20
0xb44…b8d at0025 = ╱ee╱)╱ // 0xb69 @0x25
0xb44…b8d at0026 = ╱dc╱=╱ // 0xb6a @0x26
0xb44…b8d at0027 = ╱22╱"╱ // 0xb6b @0x27
0xb44…b8d at0028 = ╱54╱T╱ // 0xb6c @0x28
0xb44…b8d at0029 = ╱5b╱Æ╱ // 0xb6d @0x29
0xb44…b8d at002a = ╱4c╱L╱ // 0xb6e @0x2a
0xb44…b8d at002b = ╱4c╱L╱ // 0xb6f @0x2b
0xb44…b8d at002c = ╱45╱E╱ // 0xb70 @0x2c
0xb44…b8d at002d = ╱52╱R╱ // 0xb71 @0x2d
0xb44…b8d at002e = ╱45╱E╱ // 0xb72 @0x2e
0xb44…b8d at002f = ╱47╱G╱ // 0xb73 @0x2f
0xb44…b8d at0030 = ╱22╱"╱ // 0xb74 @0x30
0xb44…b8d at0031 = ╱eb╱;╱ // 0xb75 @0x31
0xb44…b8d at0032 = ╱54╱T╱ // 0xb76 @0x32
0xb44…b8d at0033 = ╱4e╱N╱ // 0xb77 @0x33
0xb44…b8d at0034 = ╱ef╱$╱ // 0xb78 @0x34
0xb44…b8d at0035 = ╱ed╱(╱ // 0xb79 @0x35
0xb44…b8d at0036 = ╱36╱6╱ // 0xb7a @0x36
0xb44…b8d at0037 = ╱fe0000c003╱ // 0xb7b @0x37
0xb44…b8d at003c = ╱ee╱)╱ // 0xb80 @0x3c
0xb44…b8d at003d = ╱dc╱=╱ // 0xb81 @0x3d
0xb44…b8d at003e = ╱22╱"╱ // 0xb82 @0x3e
0xb44…b8d at003f = ╱41╱A╱ // 0xb83 @0x3f
0xb44…b8d at0040 = ╱4b╱K╱ // 0xb84 @0x40
0xb44…b8d at0041 = ╱4b╱K╱ // 0xb85 @0x41
0xb44…b8d at0042 = ╱52╱R╱ // 0xb86 @0x42
0xb44…b8d at0043 = ╱45╱E╱ // 0xb87 @0x43
0xb44…b8d at0044 = ╱47╱G╱ // 0xb88 @0x44
0xb44…b8d at0045 = ╱4e╱N╱ // 0xb89 @0x45
0xb44…b8d at0046 = ╱53╱S╱ // 0xb8a @0x46
0xb44…b8d at0047 = ╱22╱"╱ // 0xb8b @0x47
0xb44…b8d at0048 = EOL // 0xb8c @0x48
0xb44…b8d }
0xb8d…bbf 9916 1340 TN$(7)="AKKTABEL";TN$(8)="AKKHOVED"
0xb8d…bbf LineComalBin {
0xb8d…bbf ptr = 0x9916 // 0xb8d @0x0
0xb8d…bbf lno = 0x053c // 0xb8f @0x2
0xb8d…bbf at0004 = ╱54╱T╱ // 0xb91 @0x4
0xb8d…bbf at0005 = ╱4e╱N╱ // 0xb92 @0x5
0xb8d…bbf at0006 = ╱ef╱$╱ // 0xb93 @0x6
0xb8d…bbf at0007 = ╱ed╱(╱ // 0xb94 @0x7
0xb8d…bbf at0008 = ╱37╱7╱ // 0xb95 @0x8
0xb8d…bbf at0009 = ╱fe0000e003╱ // 0xb96 @0x9
0xb8d…bbf at000e = ╱ee╱)╱ // 0xb9b @0xe
0xb8d…bbf at000f = ╱dc╱=╱ // 0xb9c @0xf
0xb8d…bbf at0010 = ╱22╱"╱ // 0xb9d @0x10
0xb8d…bbf at0011 = ╱41╱A╱ // 0xb9e @0x11
0xb8d…bbf at0012 = ╱4b╱K╱ // 0xb9f @0x12
0xb8d…bbf at0013 = ╱4b╱K╱ // 0xba0 @0x13
0xb8d…bbf at0014 = ╱54╱T╱ // 0xba1 @0x14
0xb8d…bbf at0015 = ╱41╱A╱ // 0xba2 @0x15
0xb8d…bbf at0016 = ╱42╱B╱ // 0xba3 @0x16
0xb8d…bbf at0017 = ╱45╱E╱ // 0xba4 @0x17
0xb8d…bbf at0018 = ╱4c╱L╱ // 0xba5 @0x18
0xb8d…bbf at0019 = ╱22╱"╱ // 0xba6 @0x19
0xb8d…bbf at001a = ╱eb╱;╱ // 0xba7 @0x1a
0xb8d…bbf at001b = ╱54╱T╱ // 0xba8 @0x1b
0xb8d…bbf at001c = ╱4e╱N╱ // 0xba9 @0x1c
0xb8d…bbf at001d = ╱ef╱$╱ // 0xbaa @0x1d
0xb8d…bbf at001e = ╱ed╱(╱ // 0xbab @0x1e
0xb8d…bbf at001f = ╱38╱8╱ // 0xbac @0x1f
0xb8d…bbf at0020 = ╱fe00008004╱ // 0xbad @0x20
0xb8d…bbf at0025 = ╱ee╱)╱ // 0xbb2 @0x25
0xb8d…bbf at0026 = ╱dc╱=╱ // 0xbb3 @0x26
0xb8d…bbf at0027 = ╱22╱"╱ // 0xbb4 @0x27
0xb8d…bbf at0028 = ╱41╱A╱ // 0xbb5 @0x28
0xb8d…bbf at0029 = ╱4b╱K╱ // 0xbb6 @0x29
0xb8d…bbf at002a = ╱4b╱K╱ // 0xbb7 @0x2a
0xb8d…bbf at002b = ╱48╱H╱ // 0xbb8 @0x2b
0xb8d…bbf at002c = ╱4f╱O╱ // 0xbb9 @0x2c
0xb8d…bbf at002d = ╱56╱V╱ // 0xbba @0x2d
0xb8d…bbf at002e = ╱45╱E╱ // 0xbbb @0x2e
0xb8d…bbf at002f = ╱44╱D╱ // 0xbbc @0x2f
0xb8d…bbf at0030 = ╱22╱"╱ // 0xbbd @0x30
0xb8d…bbf at0031 = EOL // 0xbbe @0x31
0xb8d…bbf }
0xbbf…bcf 9926 1350 FOR I=E TO 8
0xbbf…bcf LineComalBin {
0xbbf…bcf ptr = 0x9926 // 0xbbf @0x0
0xbbf…bcf lno = 0x0546 // 0xbc1 @0x2
0xbbf…bcf at0004 = ╱83╱ FOR ╱ // 0xbc3 @0x4
0xbbf…bcf at0005 = ╱49╱I╱ // 0xbc4 @0x5
0xbbf…bcf at0006 = ╱dc╱=╱ // 0xbc5 @0x6
0xbbf…bcf at0007 = ╱45╱E╱ // 0xbc6 @0x7
0xbbf…bcf at0008 = ╱b7╱ TO ╱ // 0xbc7 @0x8
0xbbf…bcf at0009 = ╱38╱8╱ // 0xbc8 @0x9
0xbbf…bcf at000a = ╱fe00008004╱ // 0xbc9 @0xa
0xbbf…bcf at000f = EOL // 0xbce @0xf
0xbbf…bcf }
0xbcf…c03 995a 1360 FN$(I)=TN$(I);J2$=CHR(ORD(FN$(I,8))+P4-7)
0xbcf…c03 LineComalBin {
0xbcf…c03 ptr = 0x995a // 0xbcf @0x0
0xbcf…c03 lno = 0x0550 // 0xbd1 @0x2
0xbcf…c03 at0004 = ╱46╱F╱ // 0xbd3 @0x4
0xbcf…c03 at0005 = ╱4e╱N╱ // 0xbd4 @0x5
0xbcf…c03 at0006 = ╱ef╱$╱ // 0xbd5 @0x6
0xbcf…c03 at0007 = ╱ed╱(╱ // 0xbd6 @0x7
0xbcf…c03 at0008 = ╱49╱I╱ // 0xbd7 @0x8
0xbcf…c03 at0009 = ╱ee╱)╱ // 0xbd8 @0x9
0xbcf…c03 at000a = ╱dc╱=╱ // 0xbd9 @0xa
0xbcf…c03 at000b = ╱54╱T╱ // 0xbda @0xb
0xbcf…c03 at000c = ╱4e╱N╱ // 0xbdb @0xc
0xbcf…c03 at000d = ╱ef╱$╱ // 0xbdc @0xd
0xbcf…c03 at000e = ╱ed╱(╱ // 0xbdd @0xe
0xbcf…c03 at000f = ╱49╱I╱ // 0xbde @0xf
0xbcf…c03 at0010 = ╱ee╱)╱ // 0xbdf @0x10
0xbcf…c03 at0011 = ╱eb╱;╱ // 0xbe0 @0x11
0xbcf…c03 at0012 = ╱4a╱J╱ // 0xbe1 @0x12
0xbcf…c03 at0013 = ╱32╱2╱ // 0xbe2 @0x13
0xbcf…c03 at0014 = ╱ef╱$╱ // 0xbe3 @0x14
0xbcf…c03 at0015 = ╱dc╱=╱ // 0xbe4 @0x15
0xbcf…c03 at0016 = ╱cf╱CHR╱ // 0xbe5 @0x16
0xbcf…c03 at0017 = ╱ed╱(╱ // 0xbe6 @0x17
0xbcf…c03 at0018 = ╱cd╱ORD╱ // 0xbe7 @0x18
0xbcf…c03 at0019 = ╱ed╱(╱ // 0xbe8 @0x19
0xbcf…c03 at001a = ╱46╱F╱ // 0xbe9 @0x1a
0xbcf…c03 at001b = ╱4e╱N╱ // 0xbea @0x1b
0xbcf…c03 at001c = ╱ef╱$╱ // 0xbeb @0x1c
0xbcf…c03 at001d = ╱ed╱(╱ // 0xbec @0x1d
0xbcf…c03 at001e = ╱49╱I╱ // 0xbed @0x1e
0xbcf…c03 at001f = ╱ec╱,╱ // 0xbee @0x1f
0xbcf…c03 at0020 = ╱38╱8╱ // 0xbef @0x20
0xbcf…c03 at0021 = ╱fe00008004╱ // 0xbf0 @0x21
0xbcf…c03 at0026 = ╱ee╱)╱ // 0xbf5 @0x26
0xbcf…c03 at0027 = ╱ee╱)╱ // 0xbf6 @0x27
0xbcf…c03 at0028 = ╱e2╱+╱ // 0xbf7 @0x28
0xbcf…c03 at0029 = ╱50╱P╱ // 0xbf8 @0x29
0xbcf…c03 at002a = ╱34╱4╱ // 0xbf9 @0x2a
0xbcf…c03 at002b = ╱e3╱-╱ // 0xbfa @0x2b
0xbcf…c03 at002c = ╱37╱7╱ // 0xbfb @0x2c
0xbcf…c03 at002d = ╱fe0000e003╱ // 0xbfc @0x2d
0xbcf…c03 at0032 = ╱ee╱)╱ // 0xc01 @0x32
0xbcf…c03 at0033 = EOL // 0xc02 @0x33
0xbcf…c03 }
0xc03…c29 9980 1370 J3$=CHR(ORD(TN$(I,8))+P5-7)
0xc03…c29 LineComalBin {
0xc03…c29 ptr = 0x9980 // 0xc03 @0x0
0xc03…c29 lno = 0x055a // 0xc05 @0x2
0xc03…c29 at0004 = ╱4a╱J╱ // 0xc07 @0x4
0xc03…c29 at0005 = ╱33╱3╱ // 0xc08 @0x5
0xc03…c29 at0006 = ╱ef╱$╱ // 0xc09 @0x6
0xc03…c29 at0007 = ╱dc╱=╱ // 0xc0a @0x7
0xc03…c29 at0008 = ╱cf╱CHR╱ // 0xc0b @0x8
0xc03…c29 at0009 = ╱ed╱(╱ // 0xc0c @0x9
0xc03…c29 at000a = ╱cd╱ORD╱ // 0xc0d @0xa
0xc03…c29 at000b = ╱ed╱(╱ // 0xc0e @0xb
0xc03…c29 at000c = ╱54╱T╱ // 0xc0f @0xc
0xc03…c29 at000d = ╱4e╱N╱ // 0xc10 @0xd
0xc03…c29 at000e = ╱ef╱$╱ // 0xc11 @0xe
0xc03…c29 at000f = ╱ed╱(╱ // 0xc12 @0xf
0xc03…c29 at0010 = ╱49╱I╱ // 0xc13 @0x10
0xc03…c29 at0011 = ╱ec╱,╱ // 0xc14 @0x11
0xc03…c29 at0012 = ╱38╱8╱ // 0xc15 @0x12
0xc03…c29 at0013 = ╱fe00008004╱ // 0xc16 @0x13
0xc03…c29 at0018 = ╱ee╱)╱ // 0xc1b @0x18
0xc03…c29 at0019 = ╱ee╱)╱ // 0xc1c @0x19
0xc03…c29 at001a = ╱e2╱+╱ // 0xc1d @0x1a
0xc03…c29 at001b = ╱50╱P╱ // 0xc1e @0x1b
0xc03…c29 at001c = ╱35╱5╱ // 0xc1f @0x1c
0xc03…c29 at001d = ╱e3╱-╱ // 0xc20 @0x1d
0xc03…c29 at001e = ╱37╱7╱ // 0xc21 @0x1e
0xc03…c29 at001f = ╱fe0000e003╱ // 0xc22 @0x1f
0xc03…c29 at0024 = ╱ee╱)╱ // 0xc27 @0x24
0xc03…c29 at0025 = EOL // 0xc28 @0x25
0xc03…c29 }
0xc29…c67 99be 1380 NAVNFRA$=FN$(I,E:7)+J2$;NAVNTIL$=TN$(I,E:7)+J3$
0xc29…c67 LineComalBin {
0xc29…c67 ptr = 0x99be // 0xc29 @0x0
0xc29…c67 lno = 0x0564 // 0xc2b @0x2
0xc29…c67 at0004 = ╱4e╱N╱ // 0xc2d @0x4
0xc29…c67 at0005 = ╱41╱A╱ // 0xc2e @0x5
0xc29…c67 at0006 = ╱56╱V╱ // 0xc2f @0x6
0xc29…c67 at0007 = ╱4e╱N╱ // 0xc30 @0x7
0xc29…c67 at0008 = ╱46╱F╱ // 0xc31 @0x8
0xc29…c67 at0009 = ╱52╱R╱ // 0xc32 @0x9
0xc29…c67 at000a = ╱41╱A╱ // 0xc33 @0xa
0xc29…c67 at000b = ╱ef╱$╱ // 0xc34 @0xb
0xc29…c67 at000c = ╱dc╱=╱ // 0xc35 @0xc
0xc29…c67 at000d = ╱46╱F╱ // 0xc36 @0xd
0xc29…c67 at000e = ╱4e╱N╱ // 0xc37 @0xe
0xc29…c67 at000f = ╱ef╱$╱ // 0xc38 @0xf
0xc29…c67 at0010 = ╱ed╱(╱ // 0xc39 @0x10
0xc29…c67 at0011 = ╱49╱I╱ // 0xc3a @0x11
0xc29…c67 at0012 = ╱ec╱,╱ // 0xc3b @0x12
0xc29…c67 at0013 = ╱45╱E╱ // 0xc3c @0x13
0xc29…c67 at0014 = ╱f0╱:╱ // 0xc3d @0x14
0xc29…c67 at0015 = ╱37╱7╱ // 0xc3e @0x15
0xc29…c67 at0016 = ╱fe0000e003╱ // 0xc3f @0x16
0xc29…c67 at001b = ╱ee╱)╱ // 0xc44 @0x1b
0xc29…c67 at001c = ╱f1╱+╱ // 0xc45 @0x1c
0xc29…c67 at001d = ╱4a╱J╱ // 0xc46 @0x1d
0xc29…c67 at001e = ╱32╱2╱ // 0xc47 @0x1e
0xc29…c67 at001f = ╱ef╱$╱ // 0xc48 @0x1f
0xc29…c67 at0020 = ╱eb╱;╱ // 0xc49 @0x20
0xc29…c67 at0021 = ╱4e╱N╱ // 0xc4a @0x21
0xc29…c67 at0022 = ╱41╱A╱ // 0xc4b @0x22
0xc29…c67 at0023 = ╱56╱V╱ // 0xc4c @0x23
0xc29…c67 at0024 = ╱4e╱N╱ // 0xc4d @0x24
0xc29…c67 at0025 = ╱54╱T╱ // 0xc4e @0x25
0xc29…c67 at0026 = ╱49╱I╱ // 0xc4f @0x26
0xc29…c67 at0027 = ╱4c╱L╱ // 0xc50 @0x27
0xc29…c67 at0028 = ╱ef╱$╱ // 0xc51 @0x28
0xc29…c67 at0029 = ╱dc╱=╱ // 0xc52 @0x29
0xc29…c67 at002a = ╱54╱T╱ // 0xc53 @0x2a
0xc29…c67 at002b = ╱4e╱N╱ // 0xc54 @0x2b
0xc29…c67 at002c = ╱ef╱$╱ // 0xc55 @0x2c
0xc29…c67 at002d = ╱ed╱(╱ // 0xc56 @0x2d
0xc29…c67 at002e = ╱49╱I╱ // 0xc57 @0x2e
0xc29…c67 at002f = ╱ec╱,╱ // 0xc58 @0x2f
0xc29…c67 at0030 = ╱45╱E╱ // 0xc59 @0x30
0xc29…c67 at0031 = ╱f0╱:╱ // 0xc5a @0x31
0xc29…c67 at0032 = ╱37╱7╱ // 0xc5b @0x32
0xc29…c67 at0033 = ╱fe0000e003╱ // 0xc5c @0x33
0xc29…c67 at0038 = ╱ee╱)╱ // 0xc61 @0x38
0xc29…c67 at0039 = ╱f1╱+╱ // 0xc62 @0x39
0xc29…c67 at003a = ╱4a╱J╱ // 0xc63 @0x3a
0xc29…c67 at003b = ╱33╱3╱ // 0xc64 @0x3b
0xc29…c67 at003c = ╱ef╱$╱ // 0xc65 @0x3c
0xc29…c67 at003d = EOL // 0xc66 @0x3d
0xc29…c67 }
0xc67…c7c 99d3 1390 CURSOR 15,23
0xc67…c7c LineComalBin {
0xc67…c7c ptr = 0x99d3 // 0xc67 @0x0
0xc67…c7c lno = 0x056e // 0xc69 @0x2
0xc67…c7c at0004 = ╱a1╱ CURSOR ╱ // 0xc6b @0x4
0xc67…c7c at0005 = ╱31╱1╱ // 0xc6c @0x5
0xc67…c7c at0006 = ╱35╱5╱ // 0xc6d @0x6
0xc67…c7c at0007 = ╱fe0000f004╱ // 0xc6e @0x7
0xc67…c7c at000c = ╱ec╱,╱ // 0xc73 @0xc
0xc67…c7c at000d = ╱32╱2╱ // 0xc74 @0xd
0xc67…c7c at000e = ╱33╱3╱ // 0xc75 @0xe
0xc67…c7c at000f = ╱fe0000b805╱ // 0xc76 @0xf
0xc67…c7c at0014 = EOL // 0xc7b @0x14
0xc67…c7c }
0xc7c…caf 9a06 1400 PRINT NAVNFRA$;" kopieres "
0xc7c…caf LineComalBin {
0xc7c…caf ptr = 0x9a06 // 0xc7c @0x0
0xc7c…caf lno = 0x0578 // 0xc7e @0x2
0xc7c…caf at0004 = ╱92╱ PRINT ╱ // 0xc80 @0x4
0xc7c…caf at0005 = ╱4e╱N╱ // 0xc81 @0x5
0xc7c…caf at0006 = ╱41╱A╱ // 0xc82 @0x6
0xc7c…caf at0007 = ╱56╱V╱ // 0xc83 @0x7
0xc7c…caf at0008 = ╱4e╱N╱ // 0xc84 @0x8
0xc7c…caf at0009 = ╱46╱F╱ // 0xc85 @0x9
0xc7c…caf at000a = ╱52╱R╱ // 0xc86 @0xa
0xc7c…caf at000b = ╱41╱A╱ // 0xc87 @0xb
0xc7c…caf at000c = ╱ef╱$╱ // 0xc88 @0xc
0xc7c…caf at000d = ╱eb╱;╱ // 0xc89 @0xd
0xc7c…caf at000e = ╱22╱"╱ // 0xc8a @0xe
0xc7c…caf at000f = ╱20╱…╱ // 0xc8b @0xf
0xc7c…caf at0010 = ╱6b╱k╱ // 0xc8c @0x10
0xc7c…caf at0011 = ╱6f╱o╱ // 0xc8d @0x11
0xc7c…caf at0012 = ╱70╱p╱ // 0xc8e @0x12
0xc7c…caf at0013 = ╱69╱i╱ // 0xc8f @0x13
0xc7c…caf at0014 = ╱65╱e╱ // 0xc90 @0x14
0xc7c…caf at0015 = ╱72╱r╱ // 0xc91 @0x15
0xc7c…caf at0016 = ╱65╱e╱ // 0xc92 @0x16
0xc7c…caf at0017 = ╱73╱s╱ // 0xc93 @0x17
0xc7c…caf at0018 = ╱20╱…╱ // 0xc94 @0x18
0xc7c…caf at0019 = ╱20╱…╱ // 0xc95 @0x19
0xc7c…caf at001a = ╱20╱…╱ // 0xc96 @0x1a
0xc7c…caf at001b = ╱20╱…╱ // 0xc97 @0x1b
0xc7c…caf at001c = ╱20╱…╱ // 0xc98 @0x1c
0xc7c…caf at001d = ╱20╱…╱ // 0xc99 @0x1d
0xc7c…caf at001e = ╱20╱…╱ // 0xc9a @0x1e
0xc7c…caf at001f = ╱20╱…╱ // 0xc9b @0x1f
0xc7c…caf at0020 = ╱20╱…╱ // 0xc9c @0x20
0xc7c…caf at0021 = ╱20╱…╱ // 0xc9d @0x21
0xc7c…caf at0022 = ╱20╱…╱ // 0xc9e @0x22
0xc7c…caf at0023 = ╱20╱…╱ // 0xc9f @0x23
0xc7c…caf at0024 = ╱20╱…╱ // 0xca0 @0x24
0xc7c…caf at0025 = ╱20╱…╱ // 0xca1 @0x25
0xc7c…caf at0026 = ╱20╱…╱ // 0xca2 @0x26
0xc7c…caf at0027 = ╱20╱…╱ // 0xca3 @0x27
0xc7c…caf at0028 = ╱20╱…╱ // 0xca4 @0x28
0xc7c…caf at0029 = ╱20╱…╱ // 0xca5 @0x29
0xc7c…caf at002a = ╱20╱…╱ // 0xca6 @0x2a
0xc7c…caf at002b = ╱20╱…╱ // 0xca7 @0x2b
0xc7c…caf at002c = ╱20╱…╱ // 0xca8 @0x2c
0xc7c…caf at002d = ╱20╱…╱ // 0xca9 @0x2d
0xc7c…caf at002e = ╱20╱…╱ // 0xcaa @0x2e
0xc7c…caf at002f = ╱20╱…╱ // 0xcab @0x2f
0xc7c…caf at0030 = ╱20╱…╱ // 0xcac @0x30
0xc7c…caf at0031 = ╱22╱"╱ // 0xcad @0x31
0xc7c…caf at0032 = EOL // 0xcae @0x32
0xc7c…caf }
0xcaf…cb9 9a10 1410 EXEC COPY
0xcaf…cb9 LineComalBin {
0xcaf…cb9 ptr = 0x9a10 // 0xcaf @0x0
0xcaf…cb9 lno = 0x0582 // 0xcb1 @0x2
0xcaf…cb9 at0004 = ╱9d╱ EXEC ╱ // 0xcb3 @0x4
0xcaf…cb9 at0005 = ╱43╱C╱ // 0xcb4 @0x5
0xcaf…cb9 at0006 = ╱4f╱O╱ // 0xcb5 @0x6
0xcaf…cb9 at0007 = ╱50╱P╱ // 0xcb6 @0x7
0xcaf…cb9 at0008 = ╱59╱Y╱ // 0xcb7 @0x8
0xcaf…cb9 at0009 = EOL // 0xcb8 @0x9
0xcaf…cb9 }
0xcb9…cc5 9a1c 1420 IF FLAG THEN EXIT
0xcb9…cc5 LineComalBin {
0xcb9…cc5 ptr = 0x9a1c // 0xcb9 @0x0
0xcb9…cc5 lno = 0x058c // 0xcbb @0x2
0xcb9…cc5 at0004 = ╱82╱ IF ╱ // 0xcbd @0x4
0xcb9…cc5 at0005 = ╱46╱F╱ // 0xcbe @0x5
0xcb9…cc5 at0006 = ╱4c╱L╱ // 0xcbf @0x6
0xcb9…cc5 at0007 = ╱41╱A╱ // 0xcc0 @0x7
0xcb9…cc5 at0008 = ╱47╱G╱ // 0xcc1 @0x8
0xcb9…cc5 at0009 = ╱b6╱ THEN ╱ // 0xcc2 @0x9
0xcb9…cc5 at000a = ╱99╱ EXIT ╱ // 0xcc3 @0xa
0xcb9…cc5 at000b = EOL // 0xcc4 @0xb
0xcb9…cc5 }
0xcc5…ccc 9a23 1430 NEXT I
0xcc5…ccc LineComalBin {
0xcc5…ccc ptr = 0x9a23 // 0xcc5 @0x0
0xcc5…ccc lno = 0x0596 // 0xcc7 @0x2
0xcc5…ccc at0004 = ╱84╱ NEXT ╱ // 0xcc9 @0x4
0xcc5…ccc at0005 = ╱49╱I╱ // 0xcca @0x5
0xcc5…ccc at0006 = EOL // 0xccb @0x6
0xcc5…ccc }
0xccc…cd2 9a29 1440 ENDCASE
0xccc…cd2 LineComalBin {
0xccc…cd2 ptr = 0x9a29 // 0xccc @0x0
0xccc…cd2 lno = 0x05a0 // 0xcce @0x2
0xccc…cd2 at0004 = ╱a4╱ ENDCASE ╱ // 0xcd0 @0x4
0xccc…cd2 at0005 = EOL // 0xcd1 @0x5
0xccc…cd2 }
0xcd2…cde 9a35 1450 CASE FLAG OF
0xcd2…cde LineComalBin {
0xcd2…cde ptr = 0x9a35 // 0xcd2 @0x0
0xcd2…cde lno = 0x05aa // 0xcd4 @0x2
0xcd2…cde at0004 = ╱a201╱ CASE ╱ // 0xcd6 @0x4
0xcd2…cde at0006 = ╱46╱F╱ // 0xcd8 @0x6
0xcd2…cde at0007 = ╱4c╱L╱ // 0xcd9 @0x7
0xcd2…cde at0008 = ╱41╱A╱ // 0xcda @0x8
0xcd2…cde at0009 = ╱47╱G╱ // 0xcdb @0x9
0xcd2…cde at000a = ╱ba╱ OF ╱ // 0xcdc @0xa
0xcd2…cde at000b = EOL // 0xcdd @0xb
0xcd2…cde }
0xcde…d17 9a6e 1460 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode: ";FLAG
0xcde…d17 LineComalBin {
0xcde…d17 ptr = 0x9a6e // 0xcde @0x0
0xcde…d17 lno = 0x05b4 // 0xce0 @0x2
0xcde…d17 at0004 = ╱92╱ PRINT ╱ // 0xce2 @0x4
0xcde…d17 at0005 = ╱22╱"╱ // 0xce3 @0x5
0xcde…d17 at0006 = ╱55╱U╱ // 0xce4 @0x6
0xcde…d17 at0007 = ╱69╱i╱ // 0xce5 @0x7
0xcde…d17 at0008 = ╱64╱d╱ // 0xce6 @0x8
0xcde…d17 at0009 = ╱65╱e╱ // 0xce7 @0x9
0xcde…d17 at000a = ╱6e╱n╱ // 0xce8 @0xa
0xcde…d17 at000b = ╱74╱t╱ // 0xce9 @0xb
0xcde…d17 at000c = ╱69╱i╱ // 0xcea @0xc
0xcde…d17 at000d = ╱66╱f╱ // 0xceb @0xd
0xcde…d17 at000e = ╱69╱i╱ // 0xcec @0xe
0xcde…d17 at000f = ╱63╱c╱ // 0xced @0xf
0xcde…d17 at0010 = ╱65╱e╱ // 0xcee @0x10
0xcde…d17 at0011 = ╱72╱r╱ // 0xcef @0x11
0xcde…d17 at0012 = ╱65╱e╱ // 0xcf0 @0x12
0xcde…d17 at0013 = ╱74╱t╱ // 0xcf1 @0x13
0xcde…d17 at0014 = ╱20╱…╱ // 0xcf2 @0x14
0xcde…d17 at0015 = ╱66╱f╱ // 0xcf3 @0x15
0xcde…d17 at0016 = ╱65╱e╱ // 0xcf4 @0x16
0xcde…d17 at0017 = ╱6a╱j╱ // 0xcf5 @0x17
0xcde…d17 at0018 = ╱6c╱l╱ // 0xcf6 @0x18
0xcde…d17 at0019 = ╱20╱…╱ // 0xcf7 @0x19
0xcde…d17 at001a = ╱74╱t╱ // 0xcf8 @0x1a
0xcde…d17 at001b = ╱69╱i╱ // 0xcf9 @0x1b
0xcde…d17 at001c = ╱6c╱l╱ // 0xcfa @0x1c
0xcde…d17 at001d = ╱6b╱k╱ // 0xcfb @0x1d
0xcde…d17 at001e = ╱61╱a╱ // 0xcfc @0x1e
0xcde…d17 at001f = ╱6c╱l╱ // 0xcfd @0x1f
0xcde…d17 at0020 = ╱64╱d╱ // 0xcfe @0x20
0xcde…d17 at0021 = ╱20╱…╱ // 0xcff @0x21
0xcde…d17 at0022 = ╱68╱h╱ // 0xd00 @0x22
0xcde…d17 at0023 = ╱6a╱j╱ // 0xd01 @0x23
0xcde…d17 at0024 = ╱7b╱æ╱ // 0xd02 @0x24
0xcde…d17 at0025 = ╱6c╱l╱ // 0xd03 @0x25
0xcde…d17 at0026 = ╱70╱p╱ // 0xd04 @0x26
0xcde…d17 at0027 = ╱2e╱.╱ // 0xd05 @0x27
0xcde…d17 at0028 = ╱46╱F╱ // 0xd06 @0x28
0xcde…d17 at0029 = ╱65╱e╱ // 0xd07 @0x29
0xcde…d17 at002a = ╱6a╱j╱ // 0xd08 @0x2a
0xcde…d17 at002b = ╱6c╱l╱ // 0xd09 @0x2b
0xcde…d17 at002c = ╱6b╱k╱ // 0xd0a @0x2c
0xcde…d17 at002d = ╱6f╱o╱ // 0xd0b @0x2d
0xcde…d17 at002e = ╱64╱d╱ // 0xd0c @0x2e
0xcde…d17 at002f = ╱65╱e╱ // 0xd0d @0x2f
0xcde…d17 at0030 = ╱3a╱:╱ // 0xd0e @0x30
0xcde…d17 at0031 = ╱20╱…╱ // 0xd0f @0x31
0xcde…d17 at0032 = ╱22╱"╱ // 0xd10 @0x32
0xcde…d17 at0033 = ╱eb╱;╱ // 0xd11 @0x33
0xcde…d17 at0034 = ╱46╱F╱ // 0xd12 @0x34
0xcde…d17 at0035 = ╱4c╱L╱ // 0xd13 @0x35
0xcde…d17 at0036 = ╱41╱A╱ // 0xd14 @0x36
0xcde…d17 at0037 = ╱47╱G╱ // 0xd15 @0x37
0xcde…d17 at0038 = EOL // 0xd16 @0x38
0xcde…d17 }
0xd17…d1d 9a74 1470 STOP
0xd17…d1d LineComalBin {
0xd17…d1d ptr = 0x9a74 // 0xd17 @0x0
0xd17…d1d lno = 0x05be // 0xd19 @0x2
0xd17…d1d at0004 = ╱8d╱ STOP ╱ // 0xd1b @0x4
0xd17…d1d at0005 = EOL // 0xd1c @0x5
0xd17…d1d }
0xd1d…d25 9a7c 1480 WHEN B
0xd1d…d25 LineComalBin {
0xd1d…d25 ptr = 0x9a7c // 0xd1d @0x0
0xd1d…d25 lno = 0x05c8 // 0xd1f @0x2
0xd1d…d25 at0004 = ╱a301╱ WHEN ╱ // 0xd21 @0x4
0xd1d…d25 at0006 = ╱42╱B╱ // 0xd23 @0x6
0xd1d…d25 at0007 = EOL // 0xd24 @0x7
0xd1d…d25 }
0xd25…d2d 9a84 1490 WHEN E
0xd25…d2d LineComalBin {
0xd25…d2d ptr = 0x9a84 // 0xd25 @0x0
0xd25…d2d lno = 0x05d2 // 0xd27 @0x2
0xd25…d2d at0004 = ╱a301╱ WHEN ╱ // 0xd29 @0x4
0xd25…d2d at0006 = ╱45╱E╱ // 0xd2b @0x6
0xd25…d2d at0007 = EOL // 0xd2c @0x7
0xd25…d2d }
0xd2d…d49 9aa0 1500 IF (J1=B AND P4>V) OR P4<4 THEN
0xd2d…d49 LineComalBin {
0xd2d…d49 ptr = 0x9aa0 // 0xd2d @0x0
0xd2d…d49 lno = 0x05dc // 0xd2f @0x2
0xd2d…d49 at0004 = ╱9c╱ IF ╱ // 0xd31 @0x4
0xd2d…d49 at0005 = ╱ed╱(╱ // 0xd32 @0x5
0xd2d…d49 at0006 = ╱4a╱J╱ // 0xd33 @0x6
0xd2d…d49 at0007 = ╱31╱1╱ // 0xd34 @0x7
0xd2d…d49 at0008 = ╱dc╱=╱ // 0xd35 @0x8
0xd2d…d49 at0009 = ╱42╱B╱ // 0xd36 @0x9
0xd2d…d49 at000a = ╱da╱ AND ╱ // 0xd37 @0xa
0xd2d…d49 at000b = ╱50╱P╱ // 0xd38 @0xb
0xd2d…d49 at000c = ╱34╱4╱ // 0xd39 @0xc
0xd2d…d49 at000d = ╱de╱>╱ // 0xd3a @0xd
0xd2d…d49 at000e = ╱56╱V╱ // 0xd3b @0xe
0xd2d…d49 at000f = ╱ee╱)╱ // 0xd3c @0xf
0xd2d…d49 at0010 = ╱db╱ OR ╱ // 0xd3d @0x10
0xd2d…d49 at0011 = ╱50╱P╱ // 0xd3e @0x11
0xd2d…d49 at0012 = ╱34╱4╱ // 0xd3f @0x12
0xd2d…d49 at0013 = ╱dd╱<╱ // 0xd40 @0x13
0xd2d…d49 at0014 = ╱34╱4╱ // 0xd41 @0x14
0xd2d…d49 at0015 = ╱fe00008003╱ // 0xd42 @0x15
0xd2d…d49 at001a = ╱b6╱ THEN ╱ // 0xd47 @0x1a
0xd2d…d49 at001b = EOL // 0xd48 @0x1b
0xd2d…d49 }
0xd49…d81 9ad8 1510 PRINT "Pladen i løbeværk nr 1 er ikke den opgivne eller"
0xd49…d81 LineComalBin {
0xd49…d81 ptr = 0x9ad8 // 0xd49 @0x0
0xd49…d81 lno = 0x05e6 // 0xd4b @0x2
0xd49…d81 at0004 = ╱92╱ PRINT ╱ // 0xd4d @0x4
0xd49…d81 at0005 = ╱22╱"╱ // 0xd4e @0x5
0xd49…d81 at0006 = ╱50╱P╱ // 0xd4f @0x6
0xd49…d81 at0007 = ╱6c╱l╱ // 0xd50 @0x7
0xd49…d81 at0008 = ╱61╱a╱ // 0xd51 @0x8
0xd49…d81 at0009 = ╱64╱d╱ // 0xd52 @0x9
0xd49…d81 at000a = ╱65╱e╱ // 0xd53 @0xa
0xd49…d81 at000b = ╱6e╱n╱ // 0xd54 @0xb
0xd49…d81 at000c = ╱20╱…╱ // 0xd55 @0xc
0xd49…d81 at000d = ╱69╱i╱ // 0xd56 @0xd
0xd49…d81 at000e = ╱20╱…╱ // 0xd57 @0xe
0xd49…d81 at000f = ╱6c╱l╱ // 0xd58 @0xf
0xd49…d81 at0010 = ╱7c╱ø╱ // 0xd59 @0x10
0xd49…d81 at0011 = ╱62╱b╱ // 0xd5a @0x11
0xd49…d81 at0012 = ╱65╱e╱ // 0xd5b @0x12
0xd49…d81 at0013 = ╱76╱v╱ // 0xd5c @0x13
0xd49…d81 at0014 = ╱7b╱æ╱ // 0xd5d @0x14
0xd49…d81 at0015 = ╱72╱r╱ // 0xd5e @0x15
0xd49…d81 at0016 = ╱6b╱k╱ // 0xd5f @0x16
0xd49…d81 at0017 = ╱20╱…╱ // 0xd60 @0x17
0xd49…d81 at0018 = ╱6e╱n╱ // 0xd61 @0x18
0xd49…d81 at0019 = ╱72╱r╱ // 0xd62 @0x19
0xd49…d81 at001a = ╱20╱…╱ // 0xd63 @0x1a
0xd49…d81 at001b = ╱31╱1╱ // 0xd64 @0x1b
0xd49…d81 at001c = ╱20╱…╱ // 0xd65 @0x1c
0xd49…d81 at001d = ╱65╱e╱ // 0xd66 @0x1d
0xd49…d81 at001e = ╱72╱r╱ // 0xd67 @0x1e
0xd49…d81 at001f = ╱20╱…╱ // 0xd68 @0x1f
0xd49…d81 at0020 = ╱69╱i╱ // 0xd69 @0x20
0xd49…d81 at0021 = ╱6b╱k╱ // 0xd6a @0x21
0xd49…d81 at0022 = ╱6b╱k╱ // 0xd6b @0x22
0xd49…d81 at0023 = ╱65╱e╱ // 0xd6c @0x23
0xd49…d81 at0024 = ╱20╱…╱ // 0xd6d @0x24
0xd49…d81 at0025 = ╱64╱d╱ // 0xd6e @0x25
0xd49…d81 at0026 = ╱65╱e╱ // 0xd6f @0x26
0xd49…d81 at0027 = ╱6e╱n╱ // 0xd70 @0x27
0xd49…d81 at0028 = ╱20╱…╱ // 0xd71 @0x28
0xd49…d81 at0029 = ╱6f╱o╱ // 0xd72 @0x29
0xd49…d81 at002a = ╱70╱p╱ // 0xd73 @0x2a
0xd49…d81 at002b = ╱67╱g╱ // 0xd74 @0x2b
0xd49…d81 at002c = ╱69╱i╱ // 0xd75 @0x2c
0xd49…d81 at002d = ╱76╱v╱ // 0xd76 @0x2d
0xd49…d81 at002e = ╱6e╱n╱ // 0xd77 @0x2e
0xd49…d81 at002f = ╱65╱e╱ // 0xd78 @0x2f
0xd49…d81 at0030 = ╱20╱…╱ // 0xd79 @0x30
0xd49…d81 at0031 = ╱65╱e╱ // 0xd7a @0x31
0xd49…d81 at0032 = ╱6c╱l╱ // 0xd7b @0x32
0xd49…d81 at0033 = ╱6c╱l╱ // 0xd7c @0x33
0xd49…d81 at0034 = ╱65╱e╱ // 0xd7d @0x34
0xd49…d81 at0035 = ╱72╱r╱ // 0xd7e @0x35
0xd49…d81 at0036 = ╱22╱"╱ // 0xd7f @0x36
0xd49…d81 at0037 = EOL // 0xd80 @0x37
0xd49…d81 }
0xd81…d96 9aed 1520 CURSOR 15,19
0xd81…d96 LineComalBin {
0xd81…d96 ptr = 0x9aed // 0xd81 @0x0
0xd81…d96 lno = 0x05f0 // 0xd83 @0x2
0xd81…d96 at0004 = ╱a1╱ CURSOR ╱ // 0xd85 @0x4
0xd81…d96 at0005 = ╱31╱1╱ // 0xd86 @0x5
0xd81…d96 at0006 = ╱35╱5╱ // 0xd87 @0x6
0xd81…d96 at0007 = ╱fe0000f004╱ // 0xd88 @0x7
0xd81…d96 at000c = ╱ec╱,╱ // 0xd8d @0xc
0xd81…d96 at000d = ╱31╱1╱ // 0xd8e @0xd
0xd81…d96 at000e = ╱39╱9╱ // 0xd8f @0xe
0xd81…d96 at000f = ╱fe00009805╱ // 0xd90 @0xf
0xd81…d96 at0014 = EOL // 0xd95 @0x14
0xd81…d96 }
0xd96…dba 9b11 1530 PRINT "Pladen indeholder ingen data"
0xd96…dba LineComalBin {
0xd96…dba ptr = 0x9b11 // 0xd96 @0x0
0xd96…dba lno = 0x05fa // 0xd98 @0x2
0xd96…dba at0004 = ╱92╱ PRINT ╱ // 0xd9a @0x4
0xd96…dba at0005 = ╱22╱"╱ // 0xd9b @0x5
0xd96…dba at0006 = ╱50╱P╱ // 0xd9c @0x6
0xd96…dba at0007 = ╱6c╱l╱ // 0xd9d @0x7
0xd96…dba at0008 = ╱61╱a╱ // 0xd9e @0x8
0xd96…dba at0009 = ╱64╱d╱ // 0xd9f @0x9
0xd96…dba at000a = ╱65╱e╱ // 0xda0 @0xa
0xd96…dba at000b = ╱6e╱n╱ // 0xda1 @0xb
0xd96…dba at000c = ╱20╱…╱ // 0xda2 @0xc
0xd96…dba at000d = ╱69╱i╱ // 0xda3 @0xd
0xd96…dba at000e = ╱6e╱n╱ // 0xda4 @0xe
0xd96…dba at000f = ╱64╱d╱ // 0xda5 @0xf
0xd96…dba at0010 = ╱65╱e╱ // 0xda6 @0x10
0xd96…dba at0011 = ╱68╱h╱ // 0xda7 @0x11
0xd96…dba at0012 = ╱6f╱o╱ // 0xda8 @0x12
0xd96…dba at0013 = ╱6c╱l╱ // 0xda9 @0x13
0xd96…dba at0014 = ╱64╱d╱ // 0xdaa @0x14
0xd96…dba at0015 = ╱65╱e╱ // 0xdab @0x15
0xd96…dba at0016 = ╱72╱r╱ // 0xdac @0x16
0xd96…dba at0017 = ╱20╱…╱ // 0xdad @0x17
0xd96…dba at0018 = ╱69╱i╱ // 0xdae @0x18
0xd96…dba at0019 = ╱6e╱n╱ // 0xdaf @0x19
0xd96…dba at001a = ╱67╱g╱ // 0xdb0 @0x1a
0xd96…dba at001b = ╱65╱e╱ // 0xdb1 @0x1b
0xd96…dba at001c = ╱6e╱n╱ // 0xdb2 @0x1c
0xd96…dba at001d = ╱20╱…╱ // 0xdb3 @0x1d
0xd96…dba at001e = ╱64╱d╱ // 0xdb4 @0x1e
0xd96…dba at001f = ╱61╱a╱ // 0xdb5 @0x1f
0xd96…dba at0020 = ╱74╱t╱ // 0xdb6 @0x20
0xd96…dba at0021 = ╱61╱a╱ // 0xdb7 @0x21
0xd96…dba at0022 = ╱22╱"╱ // 0xdb8 @0x22
0xd96…dba at0023 = EOL // 0xdb9 @0x23
0xd96…dba }
0xdba…dc0 9b17 1540 ENDIF
0xdba…dc0 LineComalBin {
0xdba…dc0 ptr = 0x9b17 // 0xdba @0x0
0xdba…dc0 lno = 0x0604 // 0xdbc @0x2
0xdba…dc0 at0004 = ╱9b╱ ENDIF ╱ // 0xdbe @0x4
0xdba…dc0 at0005 = EOL // 0xdbf @0x5
0xdba…dc0 }
0xdc0…dd0 9b27 1550 WHEN V,14
0xdc0…dd0 LineComalBin {
0xdc0…dd0 ptr = 0x9b27 // 0xdc0 @0x0
0xdc0…dd0 lno = 0x060e // 0xdc2 @0x2
0xdc0…dd0 at0004 = ╱a301╱ WHEN ╱ // 0xdc4 @0x4
0xdc0…dd0 at0006 = ╱56╱V╱ // 0xdc6 @0x6
0xdc0…dd0 at0007 = ╱ec╱,╱ // 0xdc7 @0x7
0xdc0…dd0 at0008 = ╱31╱1╱ // 0xdc8 @0x8
0xdc0…dd0 at0009 = ╱34╱4╱ // 0xdc9 @0x9
0xdc0…dd0 at000a = ╱fe0000e004╱ // 0xdca @0xa
0xdc0…dd0 at000f = EOL // 0xdcf @0xf
0xdc0…dd0 }
0xdd0…e02 9b59 1560 PRINT "Pladen i løbeværk nr 3 er ikke den opgivne"
0xdd0…e02 LineComalBin {
0xdd0…e02 ptr = 0x9b59 // 0xdd0 @0x0
0xdd0…e02 lno = 0x0618 // 0xdd2 @0x2
0xdd0…e02 at0004 = ╱92╱ PRINT ╱ // 0xdd4 @0x4
0xdd0…e02 at0005 = ╱22╱"╱ // 0xdd5 @0x5
0xdd0…e02 at0006 = ╱50╱P╱ // 0xdd6 @0x6
0xdd0…e02 at0007 = ╱6c╱l╱ // 0xdd7 @0x7
0xdd0…e02 at0008 = ╱61╱a╱ // 0xdd8 @0x8
0xdd0…e02 at0009 = ╱64╱d╱ // 0xdd9 @0x9
0xdd0…e02 at000a = ╱65╱e╱ // 0xdda @0xa
0xdd0…e02 at000b = ╱6e╱n╱ // 0xddb @0xb
0xdd0…e02 at000c = ╱20╱…╱ // 0xddc @0xc
0xdd0…e02 at000d = ╱69╱i╱ // 0xddd @0xd
0xdd0…e02 at000e = ╱20╱…╱ // 0xdde @0xe
0xdd0…e02 at000f = ╱6c╱l╱ // 0xddf @0xf
0xdd0…e02 at0010 = ╱7c╱ø╱ // 0xde0 @0x10
0xdd0…e02 at0011 = ╱62╱b╱ // 0xde1 @0x11
0xdd0…e02 at0012 = ╱65╱e╱ // 0xde2 @0x12
0xdd0…e02 at0013 = ╱76╱v╱ // 0xde3 @0x13
0xdd0…e02 at0014 = ╱7b╱æ╱ // 0xde4 @0x14
0xdd0…e02 at0015 = ╱72╱r╱ // 0xde5 @0x15
0xdd0…e02 at0016 = ╱6b╱k╱ // 0xde6 @0x16
0xdd0…e02 at0017 = ╱20╱…╱ // 0xde7 @0x17
0xdd0…e02 at0018 = ╱6e╱n╱ // 0xde8 @0x18
0xdd0…e02 at0019 = ╱72╱r╱ // 0xde9 @0x19
0xdd0…e02 at001a = ╱20╱…╱ // 0xdea @0x1a
0xdd0…e02 at001b = ╱33╱3╱ // 0xdeb @0x1b
0xdd0…e02 at001c = ╱20╱…╱ // 0xdec @0x1c
0xdd0…e02 at001d = ╱65╱e╱ // 0xded @0x1d
0xdd0…e02 at001e = ╱72╱r╱ // 0xdee @0x1e
0xdd0…e02 at001f = ╱20╱…╱ // 0xdef @0x1f
0xdd0…e02 at0020 = ╱69╱i╱ // 0xdf0 @0x20
0xdd0…e02 at0021 = ╱6b╱k╱ // 0xdf1 @0x21
0xdd0…e02 at0022 = ╱6b╱k╱ // 0xdf2 @0x22
0xdd0…e02 at0023 = ╱65╱e╱ // 0xdf3 @0x23
0xdd0…e02 at0024 = ╱20╱…╱ // 0xdf4 @0x24
0xdd0…e02 at0025 = ╱64╱d╱ // 0xdf5 @0x25
0xdd0…e02 at0026 = ╱65╱e╱ // 0xdf6 @0x26
0xdd0…e02 at0027 = ╱6e╱n╱ // 0xdf7 @0x27
0xdd0…e02 at0028 = ╱20╱…╱ // 0xdf8 @0x28
0xdd0…e02 at0029 = ╱6f╱o╱ // 0xdf9 @0x29
0xdd0…e02 at002a = ╱70╱p╱ // 0xdfa @0x2a
0xdd0…e02 at002b = ╱67╱g╱ // 0xdfb @0x2b
0xdd0…e02 at002c = ╱69╱i╱ // 0xdfc @0x2c
0xdd0…e02 at002d = ╱76╱v╱ // 0xdfd @0x2d
0xdd0…e02 at002e = ╱6e╱n╱ // 0xdfe @0x2e
0xdd0…e02 at002f = ╱65╱e╱ // 0xdff @0x2f
0xdd0…e02 at0030 = ╱22╱"╱ // 0xe00 @0x30
0xdd0…e02 at0031 = EOL // 0xe01 @0x31
0xdd0…e02 }
0xe02…e10 9b67 1570 WHEN 40
0xe02…e10 LineComalBin {
0xe02…e10 ptr = 0x9b67 // 0xe02 @0x0
0xe02…e10 lno = 0x0622 // 0xe04 @0x2
0xe02…e10 at0004 = ╱a301╱ WHEN ╱ // 0xe06 @0x4
0xe02…e10 at0006 = ╱34╱4╱ // 0xe08 @0x6
0xe02…e10 at0007 = ╱30╱0╱ // 0xe09 @0x7
0xe02…e10 at0008 = ╱fe0000a006╱ // 0xe0a @0x8
0xe02…e10 at000d = EOL // 0xe0f @0xd
0xe02…e10 }
0xe10…e37 9b8e 1580 PRINT "Et af løbeværkerne er ikke klar"
0xe10…e37 LineComalBin {
0xe10…e37 ptr = 0x9b8e // 0xe10 @0x0
0xe10…e37 lno = 0x062c // 0xe12 @0x2
0xe10…e37 at0004 = ╱92╱ PRINT ╱ // 0xe14 @0x4
0xe10…e37 at0005 = ╱22╱"╱ // 0xe15 @0x5
0xe10…e37 at0006 = ╱45╱E╱ // 0xe16 @0x6
0xe10…e37 at0007 = ╱74╱t╱ // 0xe17 @0x7
0xe10…e37 at0008 = ╱20╱…╱ // 0xe18 @0x8
0xe10…e37 at0009 = ╱61╱a╱ // 0xe19 @0x9
0xe10…e37 at000a = ╱66╱f╱ // 0xe1a @0xa
0xe10…e37 at000b = ╱20╱…╱ // 0xe1b @0xb
0xe10…e37 at000c = ╱6c╱l╱ // 0xe1c @0xc
0xe10…e37 at000d = ╱7c╱ø╱ // 0xe1d @0xd
0xe10…e37 at000e = ╱62╱b╱ // 0xe1e @0xe
0xe10…e37 at000f = ╱65╱e╱ // 0xe1f @0xf
0xe10…e37 at0010 = ╱76╱v╱ // 0xe20 @0x10
0xe10…e37 at0011 = ╱7b╱æ╱ // 0xe21 @0x11
0xe10…e37 at0012 = ╱72╱r╱ // 0xe22 @0x12
0xe10…e37 at0013 = ╱6b╱k╱ // 0xe23 @0x13
0xe10…e37 at0014 = ╱65╱e╱ // 0xe24 @0x14
0xe10…e37 at0015 = ╱72╱r╱ // 0xe25 @0x15
0xe10…e37 at0016 = ╱6e╱n╱ // 0xe26 @0x16
0xe10…e37 at0017 = ╱65╱e╱ // 0xe27 @0x17
0xe10…e37 at0018 = ╱20╱…╱ // 0xe28 @0x18
0xe10…e37 at0019 = ╱65╱e╱ // 0xe29 @0x19
0xe10…e37 at001a = ╱72╱r╱ // 0xe2a @0x1a
0xe10…e37 at001b = ╱20╱…╱ // 0xe2b @0x1b
0xe10…e37 at001c = ╱69╱i╱ // 0xe2c @0x1c
0xe10…e37 at001d = ╱6b╱k╱ // 0xe2d @0x1d
0xe10…e37 at001e = ╱6b╱k╱ // 0xe2e @0x1e
0xe10…e37 at001f = ╱65╱e╱ // 0xe2f @0x1f
0xe10…e37 at0020 = ╱20╱…╱ // 0xe30 @0x20
0xe10…e37 at0021 = ╱6b╱k╱ // 0xe31 @0x21
0xe10…e37 at0022 = ╱6c╱l╱ // 0xe32 @0x22
0xe10…e37 at0023 = ╱61╱a╱ // 0xe33 @0x23
0xe10…e37 at0024 = ╱72╱r╱ // 0xe34 @0x24
0xe10…e37 at0025 = ╱22╱"╱ // 0xe35 @0x25
0xe10…e37 at0026 = EOL // 0xe36 @0x26
0xe10…e37 }
0xe37…e4c 9ba3 1590 CURSOR 15,19
0xe37…e4c LineComalBin {
0xe37…e4c ptr = 0x9ba3 // 0xe37 @0x0
0xe37…e4c lno = 0x0636 // 0xe39 @0x2
0xe37…e4c at0004 = ╱a1╱ CURSOR ╱ // 0xe3b @0x4
0xe37…e4c at0005 = ╱31╱1╱ // 0xe3c @0x5
0xe37…e4c at0006 = ╱35╱5╱ // 0xe3d @0x6
0xe37…e4c at0007 = ╱fe0000f004╱ // 0xe3e @0x7
0xe37…e4c at000c = ╱ec╱,╱ // 0xe43 @0xc
0xe37…e4c at000d = ╱31╱1╱ // 0xe44 @0xd
0xe37…e4c at000e = ╱39╱9╱ // 0xe45 @0xe
0xe37…e4c at000f = ╱fe00009805╱ // 0xe46 @0xf
0xe37…e4c at0014 = EOL // 0xe4b @0x14
0xe37…e4c }
0xe4c…e8b 9be2 1600 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert"
0xe4c…e8b LineComalBin {
0xe4c…e8b ptr = 0x9be2 // 0xe4c @0x0
0xe4c…e8b lno = 0x0640 // 0xe4e @0x2
0xe4c…e8b at0004 = ╱92╱ PRINT ╱ // 0xe50 @0x4
0xe4c…e8b at0005 = ╱22╱"╱ // 0xe51 @0x5
0xe4c…e8b at0006 = ╱4b╱K╱ // 0xe52 @0x6
0xe4c…e8b at0007 = ╱6c╱l╱ // 0xe53 @0x7
0xe4c…e8b at0008 = ╱61╱a╱ // 0xe54 @0x8
0xe4c…e8b at0009 = ╱70╱p╱ // 0xe55 @0x9
0xe4c…e8b at000a = ╱70╱p╱ // 0xe56 @0xa
0xe4c…e8b at000b = ╱65╱e╱ // 0xe57 @0xb
0xe4c…e8b at000c = ╱6e╱n╱ // 0xe58 @0xc
0xe4c…e8b at000d = ╱20╱…╱ // 0xe59 @0xd
0xe4c…e8b at000e = ╱7d╱å╱ // 0xe5a @0xe
0xe4c…e8b at000f = ╱62╱b╱ // 0xe5b @0xf
0xe4c…e8b at0010 = ╱65╱e╱ // 0xe5c @0x10
0xe4c…e8b at0011 = ╱6e╱n╱ // 0xe5d @0x11
0xe4c…e8b at0012 = ╱2c╱,╱ // 0xe5e @0x12
0xe4c…e8b at0013 = ╱20╱…╱ // 0xe5f @0x13
0xe4c…e8b at0014 = ╱6d╱m╱ // 0xe60 @0x14
0xe4c…e8b at0015 = ╱61╱a╱ // 0xe61 @0x15
0xe4c…e8b at0016 = ╱6e╱n╱ // 0xe62 @0x16
0xe4c…e8b at0017 = ╱67╱g╱ // 0xe63 @0x17
0xe4c…e8b at0018 = ╱6c╱l╱ // 0xe64 @0x18
0xe4c…e8b at0019 = ╱65╱e╱ // 0xe65 @0x19
0xe4c…e8b at001a = ╱72╱r╱ // 0xe66 @0x1a
0xe4c…e8b at001b = ╱20╱…╱ // 0xe67 @0x1b
0xe4c…e8b at001c = ╱70╱p╱ // 0xe68 @0x1c
0xe4c…e8b at001d = ╱6c╱l╱ // 0xe69 @0x1d
0xe4c…e8b at001e = ╱61╱a╱ // 0xe6a @0x1e
0xe4c…e8b at001f = ╱64╱d╱ // 0xe6b @0x1f
0xe4c…e8b at0020 = ╱65╱e╱ // 0xe6c @0x20
0xe4c…e8b at0021 = ╱6e╱n╱ // 0xe6d @0x21
0xe4c…e8b at0022 = ╱20╱…╱ // 0xe6e @0x22
0xe4c…e8b at0023 = ╱65╱e╱ // 0xe6f @0x23
0xe4c…e8b at0024 = ╱6c╱l╱ // 0xe70 @0x24
0xe4c…e8b at0025 = ╱6c╱l╱ // 0xe71 @0x25
0xe4c…e8b at0026 = ╱65╱e╱ // 0xe72 @0x26
0xe4c…e8b at0027 = ╱72╱r╱ // 0xe73 @0x27
0xe4c…e8b at0028 = ╱20╱…╱ // 0xe74 @0x28
0xe4c…e8b at0029 = ╱70╱p╱ // 0xe75 @0x29
0xe4c…e8b at002a = ╱6c╱l╱ // 0xe76 @0x2a
0xe4c…e8b at002b = ╱61╱a╱ // 0xe77 @0x2b
0xe4c…e8b at002c = ╱64╱d╱ // 0xe78 @0x2c
0xe4c…e8b at002d = ╱65╱e╱ // 0xe79 @0x2d
0xe4c…e8b at002e = ╱6e╱n╱ // 0xe7a @0x2e
0xe4c…e8b at002f = ╱20╱…╱ // 0xe7b @0x2f
0xe4c…e8b at0030 = ╱76╱v╱ // 0xe7c @0x30
0xe4c…e8b at0031 = ╱65╱e╱ // 0xe7d @0x31
0xe4c…e8b at0032 = ╱6e╱n╱ // 0xe7e @0x32
0xe4c…e8b at0033 = ╱64╱d╱ // 0xe7f @0x33
0xe4c…e8b at0034 = ╱74╱t╱ // 0xe80 @0x34
0xe4c…e8b at0035 = ╱20╱…╱ // 0xe81 @0x35
0xe4c…e8b at0036 = ╱66╱f╱ // 0xe82 @0x36
0xe4c…e8b at0037 = ╱6f╱o╱ // 0xe83 @0x37
0xe4c…e8b at0038 = ╱72╱r╱ // 0xe84 @0x38
0xe4c…e8b at0039 = ╱6b╱k╱ // 0xe85 @0x39
0xe4c…e8b at003a = ╱65╱e╱ // 0xe86 @0x3a
0xe4c…e8b at003b = ╱72╱r╱ // 0xe87 @0x3b
0xe4c…e8b at003c = ╱74╱t╱ // 0xe88 @0x3c
0xe4c…e8b at003d = ╱22╱"╱ // 0xe89 @0x3d
0xe4c…e8b at003e = EOL // 0xe8a @0x3e
0xe4c…e8b }
0xe8b…e91 9be8 1610 ENDCASE
0xe8b…e91 LineComalBin {
0xe8b…e91 ptr = 0x9be8 // 0xe8b @0x0
0xe8b…e91 lno = 0x064a // 0xe8d @0x2
0xe8b…e91 at0004 = ╱a4╱ ENDCASE ╱ // 0xe8f @0x4
0xe8b…e91 at0005 = EOL // 0xe90 @0x5
0xe8b…e91 }
0xe91…ea6 9bfd 1620 CURSOR 15,21
0xe91…ea6 LineComalBin {
0xe91…ea6 ptr = 0x9bfd // 0xe91 @0x0
0xe91…ea6 lno = 0x0654 // 0xe93 @0x2
0xe91…ea6 at0004 = ╱a1╱ CURSOR ╱ // 0xe95 @0x4
0xe91…ea6 at0005 = ╱31╱1╱ // 0xe96 @0x5
0xe91…ea6 at0006 = ╱35╱5╱ // 0xe97 @0x6
0xe91…ea6 at0007 = ╱fe0000f004╱ // 0xe98 @0x7
0xe91…ea6 at000c = ╱ec╱,╱ // 0xe9d @0xc
0xe91…ea6 at000d = ╱32╱2╱ // 0xe9e @0xd
0xe91…ea6 at000e = ╱31╱1╱ // 0xe9f @0xe
0xe91…ea6 at000f = ╱fe0000a805╱ // 0xea0 @0xf
0xe91…ea6 at0014 = EOL // 0xea5 @0x14
0xe91…ea6 }
0xea6…eca 9c21 1630 INPUT "Ønskes ny kopiering (J/N)",A$
0xea6…eca LineComalBin {
0xea6…eca ptr = 0x9c21 // 0xea6 @0x0
0xea6…eca lno = 0x065e // 0xea8 @0x2
0xea6…eca at0004 = ╱91╱ INPUT ╱ // 0xeaa @0x4
0xea6…eca at0005 = ╱22╱"╱ // 0xeab @0x5
0xea6…eca at0006 = ╱5c╱Ø╱ // 0xeac @0x6
0xea6…eca at0007 = ╱6e╱n╱ // 0xead @0x7
0xea6…eca at0008 = ╱73╱s╱ // 0xeae @0x8
0xea6…eca at0009 = ╱6b╱k╱ // 0xeaf @0x9
0xea6…eca at000a = ╱65╱e╱ // 0xeb0 @0xa
0xea6…eca at000b = ╱73╱s╱ // 0xeb1 @0xb
0xea6…eca at000c = ╱20╱…╱ // 0xeb2 @0xc
0xea6…eca at000d = ╱6e╱n╱ // 0xeb3 @0xd
0xea6…eca at000e = ╱79╱y╱ // 0xeb4 @0xe
0xea6…eca at000f = ╱20╱…╱ // 0xeb5 @0xf
0xea6…eca at0010 = ╱6b╱k╱ // 0xeb6 @0x10
0xea6…eca at0011 = ╱6f╱o╱ // 0xeb7 @0x11
0xea6…eca at0012 = ╱70╱p╱ // 0xeb8 @0x12
0xea6…eca at0013 = ╱69╱i╱ // 0xeb9 @0x13
0xea6…eca at0014 = ╱65╱e╱ // 0xeba @0x14
0xea6…eca at0015 = ╱72╱r╱ // 0xebb @0x15
0xea6…eca at0016 = ╱69╱i╱ // 0xebc @0x16
0xea6…eca at0017 = ╱6e╱n╱ // 0xebd @0x17
0xea6…eca at0018 = ╱67╱g╱ // 0xebe @0x18
0xea6…eca at0019 = ╱20╱…╱ // 0xebf @0x19
0xea6…eca at001a = ╱28╱(╱ // 0xec0 @0x1a
0xea6…eca at001b = ╱4a╱J╱ // 0xec1 @0x1b
0xea6…eca at001c = ╱2f╱/╱ // 0xec2 @0x1c
0xea6…eca at001d = ╱4e╱N╱ // 0xec3 @0x1d
0xea6…eca at001e = ╱29╱)╱ // 0xec4 @0x1e
0xea6…eca at001f = ╱22╱"╱ // 0xec5 @0x1f
0xea6…eca at0020 = ╱ec╱,╱ // 0xec6 @0x20
0xea6…eca at0021 = ╱41╱A╱ // 0xec7 @0x21
0xea6…eca at0022 = ╱ef╱$╱ // 0xec8 @0x22
0xea6…eca at0023 = EOL // 0xec9 @0x23
0xea6…eca }
0xeca…eda 9c31 1640 EXEC NRTEST(A$)
0xeca…eda LineComalBin {
0xeca…eda ptr = 0x9c31 // 0xeca @0x0
0xeca…eda lno = 0x0668 // 0xecc @0x2
0xeca…eda at0004 = ╱9d╱ EXEC ╱ // 0xece @0x4
0xeca…eda at0005 = ╱4e╱N╱ // 0xecf @0x5
0xeca…eda at0006 = ╱52╱R╱ // 0xed0 @0x6
0xeca…eda at0007 = ╱54╱T╱ // 0xed1 @0x7
0xeca…eda at0008 = ╱45╱E╱ // 0xed2 @0x8
0xeca…eda at0009 = ╱53╱S╱ // 0xed3 @0x9
0xeca…eda at000a = ╱54╱T╱ // 0xed4 @0xa
0xeca…eda at000b = ╱ed╱(╱ // 0xed5 @0xb
0xeca…eda at000c = ╱41╱A╱ // 0xed6 @0xc
0xeca…eda at000d = ╱ef╱$╱ // 0xed7 @0xd
0xeca…eda at000e = ╱ee╱)╱ // 0xed8 @0xe
0xeca…eda at000f = EOL // 0xed9 @0xf
0xeca…eda }
0xeda…ee9 9c40 1650 UNTIL P=-8
0xeda…ee9 LineComalBin {
0xeda…ee9 ptr = 0x9c40 // 0xeda @0x0
0xeda…ee9 lno = 0x0672 // 0xedc @0x2
0xeda…ee9 at0004 = ╱98╱ UNTIL ╱ // 0xede @0x4
0xeda…ee9 at0005 = ╱50╱P╱ // 0xedf @0x5
0xeda…ee9 at0006 = ╱dc╱=╱ // 0xee0 @0x6
0xeda…ee9 at0007 = ╱e9╱-╱ // 0xee1 @0x7
0xeda…ee9 at0008 = ╱38╱8╱ // 0xee2 @0x8
0xeda…ee9 at0009 = ╱fe00008004╱ // 0xee3 @0x9
0xeda…ee9 at000e = EOL // 0xee8 @0xe
0xeda…ee9 }
0xee9…efe 9c55 1660 CURSOR 15,23
0xee9…efe LineComalBin {
0xee9…efe ptr = 0x9c55 // 0xee9 @0x0
0xee9…efe lno = 0x067c // 0xeeb @0x2
0xee9…efe at0004 = ╱a1╱ CURSOR ╱ // 0xeed @0x4
0xee9…efe at0005 = ╱31╱1╱ // 0xeee @0x5
0xee9…efe at0006 = ╱35╱5╱ // 0xeef @0x6
0xee9…efe at0007 = ╱fe0000f004╱ // 0xef0 @0x7
0xee9…efe at000c = ╱ec╱,╱ // 0xef5 @0xc
0xee9…efe at000d = ╱32╱2╱ // 0xef6 @0xd
0xee9…efe at000e = ╱33╱3╱ // 0xef7 @0xe
0xee9…efe at000f = ╱fe0000b805╱ // 0xef8 @0xf
0xee9…efe at0014 = EOL // 0xefd @0x14
0xee9…efe }
0xefe…f32 9c89 1670 INPUT "Tag pladen i drev nr.3 ud, og tast RETURN",A$
0xefe…f32 LineComalBin {
0xefe…f32 ptr = 0x9c89 // 0xefe @0x0
0xefe…f32 lno = 0x0686 // 0xf00 @0x2
0xefe…f32 at0004 = ╱91╱ INPUT ╱ // 0xf02 @0x4
0xefe…f32 at0005 = ╱22╱"╱ // 0xf03 @0x5
0xefe…f32 at0006 = ╱54╱T╱ // 0xf04 @0x6
0xefe…f32 at0007 = ╱61╱a╱ // 0xf05 @0x7
0xefe…f32 at0008 = ╱67╱g╱ // 0xf06 @0x8
0xefe…f32 at0009 = ╱20╱…╱ // 0xf07 @0x9
0xefe…f32 at000a = ╱70╱p╱ // 0xf08 @0xa
0xefe…f32 at000b = ╱6c╱l╱ // 0xf09 @0xb
0xefe…f32 at000c = ╱61╱a╱ // 0xf0a @0xc
0xefe…f32 at000d = ╱64╱d╱ // 0xf0b @0xd
0xefe…f32 at000e = ╱65╱e╱ // 0xf0c @0xe
0xefe…f32 at000f = ╱6e╱n╱ // 0xf0d @0xf
0xefe…f32 at0010 = ╱20╱…╱ // 0xf0e @0x10
0xefe…f32 at0011 = ╱69╱i╱ // 0xf0f @0x11
0xefe…f32 at0012 = ╱20╱…╱ // 0xf10 @0x12
0xefe…f32 at0013 = ╱64╱d╱ // 0xf11 @0x13
0xefe…f32 at0014 = ╱72╱r╱ // 0xf12 @0x14
0xefe…f32 at0015 = ╱65╱e╱ // 0xf13 @0x15
0xefe…f32 at0016 = ╱76╱v╱ // 0xf14 @0x16
0xefe…f32 at0017 = ╱20╱…╱ // 0xf15 @0x17
0xefe…f32 at0018 = ╱6e╱n╱ // 0xf16 @0x18
0xefe…f32 at0019 = ╱72╱r╱ // 0xf17 @0x19
0xefe…f32 at001a = ╱2e╱.╱ // 0xf18 @0x1a
0xefe…f32 at001b = ╱33╱3╱ // 0xf19 @0x1b
0xefe…f32 at001c = ╱20╱…╱ // 0xf1a @0x1c
0xefe…f32 at001d = ╱75╱u╱ // 0xf1b @0x1d
0xefe…f32 at001e = ╱64╱d╱ // 0xf1c @0x1e
0xefe…f32 at001f = ╱2c╱,╱ // 0xf1d @0x1f
0xefe…f32 at0020 = ╱20╱…╱ // 0xf1e @0x20
0xefe…f32 at0021 = ╱6f╱o╱ // 0xf1f @0x21
0xefe…f32 at0022 = ╱67╱g╱ // 0xf20 @0x22
0xefe…f32 at0023 = ╱20╱…╱ // 0xf21 @0x23
0xefe…f32 at0024 = ╱74╱t╱ // 0xf22 @0x24
0xefe…f32 at0025 = ╱61╱a╱ // 0xf23 @0x25
0xefe…f32 at0026 = ╱73╱s╱ // 0xf24 @0x26
0xefe…f32 at0027 = ╱74╱t╱ // 0xf25 @0x27
0xefe…f32 at0028 = ╱20╱…╱ // 0xf26 @0x28
0xefe…f32 at0029 = ╱52╱R╱ // 0xf27 @0x29
0xefe…f32 at002a = ╱45╱E╱ // 0xf28 @0x2a
0xefe…f32 at002b = ╱54╱T╱ // 0xf29 @0x2b
0xefe…f32 at002c = ╱55╱U╱ // 0xf2a @0x2c
0xefe…f32 at002d = ╱52╱R╱ // 0xf2b @0x2d
0xefe…f32 at002e = ╱4e╱N╱ // 0xf2c @0x2e
0xefe…f32 at002f = ╱22╱"╱ // 0xf2d @0x2f
0xefe…f32 at0030 = ╱ec╱,╱ // 0xf2e @0x30
0xefe…f32 at0031 = ╱41╱A╱ // 0xf2f @0x31
0xefe…f32 at0032 = ╱ef╱$╱ // 0xf30 @0x32
0xefe…f32 at0033 = EOL // 0xf31 @0x33
0xefe…f32 }
0xf32…f49 0000 1680 CHAIN "P641210:OPSTART"
0xf32…f49 LineComalBin {
0xf32…f49 ptr = 0x0000 // 0xf32 @0x0
0xf32…f49 lno = 0x0690 // 0xf34 @0x2
0xf32…f49 at0004 = ╱ac╱ CHAIN ╱ // 0xf36 @0x4
0xf32…f49 at0005 = ╱22╱"╱ // 0xf37 @0x5
0xf32…f49 at0006 = ╱50╱P╱ // 0xf38 @0x6
0xf32…f49 at0007 = ╱36╱6╱ // 0xf39 @0x7
0xf32…f49 at0008 = ╱34╱4╱ // 0xf3a @0x8
0xf32…f49 at0009 = ╱31╱1╱ // 0xf3b @0x9
0xf32…f49 at000a = ╱32╱2╱ // 0xf3c @0xa
0xf32…f49 at000b = ╱31╱1╱ // 0xf3d @0xb
0xf32…f49 at000c = ╱30╱0╱ // 0xf3e @0xc
0xf32…f49 at000d = ╱3a╱:╱ // 0xf3f @0xd
0xf32…f49 at000e = ╱4f╱O╱ // 0xf40 @0xe
0xf32…f49 at000f = ╱50╱P╱ // 0xf41 @0xf
0xf32…f49 at0010 = ╱53╱S╱ // 0xf42 @0x10
0xf32…f49 at0011 = ╱54╱T╱ // 0xf43 @0x11
0xf32…f49 at0012 = ╱41╱A╱ // 0xf44 @0x12
0xf32…f49 at0013 = ╱52╱R╱ // 0xf45 @0x13
0xf32…f49 at0014 = ╱54╱T╱ // 0xf46 @0x14
0xf32…f49 at0015 = ╱22╱"╱ // 0xf47 @0x15
0xf32…f49 at0016 = EOL // 0xf48 @0x16
0xf32…f49 }
0xf49…f57 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb 45 ┆W Z B 0 E┆
0xf57…f77 (51,) dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 02 eb 57 dc 39 fe 00 00 ┆ 1 G 2 V 3 W 9 ┆
0xf77…f7a 90 04 ff ┆ ┆
0xf7a…f80 (52,) 57 8d a0 9c 10 00 ┆W ┆