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