|
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: 2898 (0xb52)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »ÅKOPI.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »ÅKOPI.B«
0100 DIM K1$(17),A$(6),TYPE$(E),T1(W),K2$(17) 0110 DIM TILNAVN$(33,8),FRANAVN$(33,8),NAVNTIL$(8),NAVNFRA$(8) 0120 DIM DREVFRA$(G),DREVTIL$(G),K$(32,11),TILNAVN1$(33,8),FRANAVN1$(33,8) 0130 PROC COPY 0140 FLAG=B 0150 CALL "P641210:CFCOPY" 0160 ENDPROC 0170 PROC NRTEST(NUM1) 0180 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 0190 IF L>6 THEN EXIT 0200 CASE L OF 0210 FOR I=E TO L 0220 P1=INT(ORD(NUM1$(I))-48) 0230 IF P1<B OR P1>W THEN TEST2=E 0240 P=P*10+P1 0250 NEXT I 0260 KTAL=P DIV 10000 0270 WHEN B 0280 P=-E 0290 WHEN E 0300 CASE NUM1$ OF 0310 P=INT(ORD(NUM1$)-48) 0320 WHEN "D","d" 0330 P=-G 0340 WHEN "A","a" 0350 P=-V 0360 WHEN "M","m" 0370 P=-4 0380 WHEN "J","j" 0390 P=-7 0400 WHEN "N","n" 0410 P=-8 0420 ENDCASE 0430 ENDCASE 0440 ENDPROC 0450 PROC FEJL(NR1,NR2,NR3) 0460 IF STATUS(NR3$)<>B THEN 0470 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0480 STOP 0490 ENDIF 0500 ENDPROC 0510 K1$="P641220:SYSTEM1" 0520 OPEN K1$,R 0530 FOR I=E TO 32 0540 GET K1$,I+10:K$(I) 0550 EXEC FEJL(W,8,K1$) 0560 NEXT I 0570 CLOSE K1$ 0580 EXEC FEJL(W,11,K1$) 0590 K2$="P6412"+K$(26) 0600 OPEN K2$,R 0610 EXEC FEJL(11,E,K2$) 0620 GET K2$,12:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 0630 EXEC FEJL(11,10,K2$) 0640 GET K2$,17:GENTAG,MAFSLUT 0650 CLOSE K2$ 0660 EXEC FEJL(11,G,K2$) 0670 DREVFRA$="P2";DREVTIL$="P3";TYPE$="K" 0680 J=B;FLAG=B;H=B 0690 P=MAFSLUT+E;PLADE=20+P 0700 IF MAFSLUT=V THEN P=E;PLADE=21 0710 FOR I=E TO 32 0730 J=J+E 0740 FRANAVN$(J)=K$(I,4:LEN(K$(I))-V);TILNAVN$(J)=FRANAVN$(J)+CHR(P+48) 0810 NEXT I 0820 J=J+E;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J) 0830 PROC COPY1(J1,FRAN,TILN) 0840 REPEAT 0850 CLEAR 0860 REPEAT 0870 CURSOR 15,13 0880 PRINT "Isæt plade nr";PLADE; 0890 CURSOR 31,13 0900 INPUT " og tast RETURN",A$ 0910 EXEC NRTEST(A$) 0920 UNTIL P=-E 0930 CURSOR 15,15 0940 P=B 0950 FOR I=E TO J1 0960 NAVNFRA$=FRAN$(I);NAVNTIL$=TILN$(I) 0965 CURSOR 15,23 0966 PRINT NAVNFRA$;" kopieres " 0970 EXEC COPY 0980 IF FLAG THEN EXIT 0990 NEXT I 0991 CURSOR 15,23 0992 PRINT " " 1000 CASE FLAG OF 1010 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode:";FLAG 1020 STOP 1030 WHEN B 1040 WHEN E 1050 PRINT "Pladen i løbeværk nr 2 er ikke nr 20 eller" 1060 CURSOR 15,17 1070 PRINT "Pladen indeholder ingen data" 1080 WHEN V,14 1090 PRINT "Pladen i løbeværk nr 1 er ikke nr "; 1100 PRINT PLADE 1110 WHEN 40 1120 PRINT "Et af løbeværkerne er ikke klar" 1130 CURSOR 15,17 1140 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert" 1150 ENDCASE 1160 IF FLAG<>B THEN 1170 REPEAT 1180 CURSOR 15,19 1190 INPUT "Ret fejlen og tast RETURN",A$ 1200 EXEC NRTEST(A$) 1210 UNTIL P=-E 1220 ENDIF 1230 UNTIL P=B 1240 ENDPROC 1250 IF J>B THEN EXEC COPY1(J,FRANAVN$,TILNAVN$) 1260 PLADE=PLADE+10 1270 IF H>B THEN EXEC COPY1(H,FRANAVN1$,TILNAVN1$) 1280 CLEAR 1290 REPEAT 1300 CURSOR 15,13 1310 INPUT "Udtag pladen og tast RETURN ",A$ 1320 EXEC NRTEST(A$) 1330 UNTIL P=-E 1340 CASE MAFSLUT OF 1350 WHEN B 1360 IF T1(7)>B THEN CHAIN "P641210:FJOUR" 1370 IF T1(7)=B THEN CHAIN "P641210:BJ" 1380 WHEN E 1390 CHAIN "P641210:KSP1" 1400 WHEN G 1410 CHAIN "P641210:ÅRSLUT" 1420 WHEN V 1430 CHAIN "P641210:OPSTART" 1440 ENDCASE
0x000…039 (0,) 8d90 0100 DIM K1$(17),A$(6),TYPE$(E),T1(W),K2$(17)
0x000…039 LineComalBin {
0x000…039 ptr = 0x8d90 // 0x0 @0x0
0x000…039 lno = 0x0064 // 0x2 @0x2
0x000…039 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x000…039 at0005 = ╱4b╱K╱ // 0x5 @0x5
0x000…039 at0006 = ╱31╱1╱ // 0x6 @0x6
0x000…039 at0007 = ╱ef╱$╱ // 0x7 @0x7
0x000…039 at0008 = ╱ed╱(╱ // 0x8 @0x8
0x000…039 at0009 = ╱31╱1╱ // 0x9 @0x9
0x000…039 at000a = ╱37╱7╱ // 0xa @0xa
0x000…039 at000b = ╱fe00008805╱ // 0xb @0xb
0x000…039 at0010 = ╱ee╱)╱ // 0x10 @0x10
0x000…039 at0011 = ╱ec╱,╱ // 0x11 @0x11
0x000…039 at0012 = ╱41╱A╱ // 0x12 @0x12
0x000…039 at0013 = ╱ef╱$╱ // 0x13 @0x13
0x000…039 at0014 = ╱ed╱(╱ // 0x14 @0x14
0x000…039 at0015 = ╱36╱6╱ // 0x15 @0x15
0x000…039 at0016 = ╱fe0000c003╱ // 0x16 @0x16
0x000…039 at001b = ╱ee╱)╱ // 0x1b @0x1b
0x000…039 at001c = ╱ec╱,╱ // 0x1c @0x1c
0x000…039 at001d = ╱54╱T╱ // 0x1d @0x1d
0x000…039 at001e = ╱59╱Y╱ // 0x1e @0x1e
0x000…039 at001f = ╱50╱P╱ // 0x1f @0x1f
0x000…039 at0020 = ╱45╱E╱ // 0x20 @0x20
0x000…039 at0021 = ╱ef╱$╱ // 0x21 @0x21
0x000…039 at0022 = ╱ed╱(╱ // 0x22 @0x22
0x000…039 at0023 = ╱45╱E╱ // 0x23 @0x23
0x000…039 at0024 = ╱ee╱)╱ // 0x24 @0x24
0x000…039 at0025 = ╱ec╱,╱ // 0x25 @0x25
0x000…039 at0026 = ╱54╱T╱ // 0x26 @0x26
0x000…039 at0027 = ╱31╱1╱ // 0x27 @0x27
0x000…039 at0028 = ╱ed╱(╱ // 0x28 @0x28
0x000…039 at0029 = ╱57╱W╱ // 0x29 @0x29
0x000…039 at002a = ╱ee╱)╱ // 0x2a @0x2a
0x000…039 at002b = ╱ec╱,╱ // 0x2b @0x2b
0x000…039 at002c = ╱4b╱K╱ // 0x2c @0x2c
0x000…039 at002d = ╱32╱2╱ // 0x2d @0x2d
0x000…039 at002e = ╱ef╱$╱ // 0x2e @0x2e
0x000…039 at002f = ╱ed╱(╱ // 0x2f @0x2f
0x000…039 at0030 = ╱31╱1╱ // 0x30 @0x30
0x000…039 at0031 = ╱37╱7╱ // 0x31 @0x31
0x000…039 at0032 = ╱fe00008805╱ // 0x32 @0x32
0x000…039 at0037 = ╱ee╱)╱ // 0x37 @0x37
0x000…039 at0038 = EOL // 0x38 @0x38
0x000…039 }
0x039…092 8de9 0110 DIM TILNAVN$(33,8),FRANAVN$(33,8),NAVNTIL$(8),NAVNFRA$(8)
0x039…092 LineComalBin {
0x039…092 ptr = 0x8de9 // 0x39 @0x0
0x039…092 lno = 0x006e // 0x3b @0x2
0x039…092 at0004 = ╱87╱ DIM ╱ // 0x3d @0x4
0x039…092 at0005 = ╱54╱T╱ // 0x3e @0x5
0x039…092 at0006 = ╱49╱I╱ // 0x3f @0x6
0x039…092 at0007 = ╱4c╱L╱ // 0x40 @0x7
0x039…092 at0008 = ╱4e╱N╱ // 0x41 @0x8
0x039…092 at0009 = ╱41╱A╱ // 0x42 @0x9
0x039…092 at000a = ╱56╱V╱ // 0x43 @0xa
0x039…092 at000b = ╱4e╱N╱ // 0x44 @0xb
0x039…092 at000c = ╱ef╱$╱ // 0x45 @0xc
0x039…092 at000d = ╱ed╱(╱ // 0x46 @0xd
0x039…092 at000e = ╱33╱3╱ // 0x47 @0xe
0x039…092 at000f = ╱33╱3╱ // 0x48 @0xf
0x039…092 at0010 = ╱fe00008406╱ // 0x49 @0x10
0x039…092 at0015 = ╱ec╱,╱ // 0x4e @0x15
0x039…092 at0016 = ╱38╱8╱ // 0x4f @0x16
0x039…092 at0017 = ╱fe00008004╱ // 0x50 @0x17
0x039…092 at001c = ╱ee╱)╱ // 0x55 @0x1c
0x039…092 at001d = ╱ec╱,╱ // 0x56 @0x1d
0x039…092 at001e = ╱46╱F╱ // 0x57 @0x1e
0x039…092 at001f = ╱52╱R╱ // 0x58 @0x1f
0x039…092 at0020 = ╱41╱A╱ // 0x59 @0x20
0x039…092 at0021 = ╱4e╱N╱ // 0x5a @0x21
0x039…092 at0022 = ╱41╱A╱ // 0x5b @0x22
0x039…092 at0023 = ╱56╱V╱ // 0x5c @0x23
0x039…092 at0024 = ╱4e╱N╱ // 0x5d @0x24
0x039…092 at0025 = ╱ef╱$╱ // 0x5e @0x25
0x039…092 at0026 = ╱ed╱(╱ // 0x5f @0x26
0x039…092 at0027 = ╱33╱3╱ // 0x60 @0x27
0x039…092 at0028 = ╱33╱3╱ // 0x61 @0x28
0x039…092 at0029 = ╱fe00008406╱ // 0x62 @0x29
0x039…092 at002e = ╱ec╱,╱ // 0x67 @0x2e
0x039…092 at002f = ╱38╱8╱ // 0x68 @0x2f
0x039…092 at0030 = ╱fe00008004╱ // 0x69 @0x30
0x039…092 at0035 = ╱ee╱)╱ // 0x6e @0x35
0x039…092 at0036 = ╱ec╱,╱ // 0x6f @0x36
0x039…092 at0037 = ╱4e╱N╱ // 0x70 @0x37
0x039…092 at0038 = ╱41╱A╱ // 0x71 @0x38
0x039…092 at0039 = ╱56╱V╱ // 0x72 @0x39
0x039…092 at003a = ╱4e╱N╱ // 0x73 @0x3a
0x039…092 at003b = ╱54╱T╱ // 0x74 @0x3b
0x039…092 at003c = ╱49╱I╱ // 0x75 @0x3c
0x039…092 at003d = ╱4c╱L╱ // 0x76 @0x3d
0x039…092 at003e = ╱ef╱$╱ // 0x77 @0x3e
0x039…092 at003f = ╱ed╱(╱ // 0x78 @0x3f
0x039…092 at0040 = ╱38╱8╱ // 0x79 @0x40
0x039…092 at0041 = ╱fe00008004╱ // 0x7a @0x41
0x039…092 at0046 = ╱ee╱)╱ // 0x7f @0x46
0x039…092 at0047 = ╱ec╱,╱ // 0x80 @0x47
0x039…092 at0048 = ╱4e╱N╱ // 0x81 @0x48
0x039…092 at0049 = ╱41╱A╱ // 0x82 @0x49
0x039…092 at004a = ╱56╱V╱ // 0x83 @0x4a
0x039…092 at004b = ╱4e╱N╱ // 0x84 @0x4b
0x039…092 at004c = ╱46╱F╱ // 0x85 @0x4c
0x039…092 at004d = ╱52╱R╱ // 0x86 @0x4d
0x039…092 at004e = ╱41╱A╱ // 0x87 @0x4e
0x039…092 at004f = ╱ef╱$╱ // 0x88 @0x4f
0x039…092 at0050 = ╱ed╱(╱ // 0x89 @0x50
0x039…092 at0051 = ╱38╱8╱ // 0x8a @0x51
0x039…092 at0052 = ╱fe00008004╱ // 0x8b @0x52
0x039…092 at0057 = ╱ee╱)╱ // 0x90 @0x57
0x039…092 at0058 = EOL // 0x91 @0x58
0x039…092 }
0x092…0f7 8e4e 0120 DIM DREVFRA$(G),DREVTIL$(G),K$(32,11),TILNAVN1$(33,8),FRANAVN1$(33,8)
0x092…0f7 LineComalBin {
0x092…0f7 ptr = 0x8e4e // 0x92 @0x0
0x092…0f7 lno = 0x0078 // 0x94 @0x2
0x092…0f7 at0004 = ╱87╱ DIM ╱ // 0x96 @0x4
0x092…0f7 at0005 = ╱44╱D╱ // 0x97 @0x5
0x092…0f7 at0006 = ╱52╱R╱ // 0x98 @0x6
0x092…0f7 at0007 = ╱45╱E╱ // 0x99 @0x7
0x092…0f7 at0008 = ╱56╱V╱ // 0x9a @0x8
0x092…0f7 at0009 = ╱46╱F╱ // 0x9b @0x9
0x092…0f7 at000a = ╱52╱R╱ // 0x9c @0xa
0x092…0f7 at000b = ╱41╱A╱ // 0x9d @0xb
0x092…0f7 at000c = ╱ef╱$╱ // 0x9e @0xc
0x092…0f7 at000d = ╱ed╱(╱ // 0x9f @0xd
0x092…0f7 at000e = ╱47╱G╱ // 0xa0 @0xe
0x092…0f7 at000f = ╱ee╱)╱ // 0xa1 @0xf
0x092…0f7 at0010 = ╱ec╱,╱ // 0xa2 @0x10
0x092…0f7 at0011 = ╱44╱D╱ // 0xa3 @0x11
0x092…0f7 at0012 = ╱52╱R╱ // 0xa4 @0x12
0x092…0f7 at0013 = ╱45╱E╱ // 0xa5 @0x13
0x092…0f7 at0014 = ╱56╱V╱ // 0xa6 @0x14
0x092…0f7 at0015 = ╱54╱T╱ // 0xa7 @0x15
0x092…0f7 at0016 = ╱49╱I╱ // 0xa8 @0x16
0x092…0f7 at0017 = ╱4c╱L╱ // 0xa9 @0x17
0x092…0f7 at0018 = ╱ef╱$╱ // 0xaa @0x18
0x092…0f7 at0019 = ╱ed╱(╱ // 0xab @0x19
0x092…0f7 at001a = ╱47╱G╱ // 0xac @0x1a
0x092…0f7 at001b = ╱ee╱)╱ // 0xad @0x1b
0x092…0f7 at001c = ╱ec╱,╱ // 0xae @0x1c
0x092…0f7 at001d = ╱4b╱K╱ // 0xaf @0x1d
0x092…0f7 at001e = ╱ef╱$╱ // 0xb0 @0x1e
0x092…0f7 at001f = ╱ed╱(╱ // 0xb1 @0x1f
0x092…0f7 at0020 = ╱33╱3╱ // 0xb2 @0x20
0x092…0f7 at0021 = ╱32╱2╱ // 0xb3 @0x21
0x092…0f7 at0022 = ╱fe00008006╱ // 0xb4 @0x22
0x092…0f7 at0027 = ╱ec╱,╱ // 0xb9 @0x27
0x092…0f7 at0028 = ╱31╱1╱ // 0xba @0x28
0x092…0f7 at0029 = ╱31╱1╱ // 0xbb @0x29
0x092…0f7 at002a = ╱fe0000b004╱ // 0xbc @0x2a
0x092…0f7 at002f = ╱ee╱)╱ // 0xc1 @0x2f
0x092…0f7 at0030 = ╱ec╱,╱ // 0xc2 @0x30
0x092…0f7 at0031 = ╱54╱T╱ // 0xc3 @0x31
0x092…0f7 at0032 = ╱49╱I╱ // 0xc4 @0x32
0x092…0f7 at0033 = ╱4c╱L╱ // 0xc5 @0x33
0x092…0f7 at0034 = ╱4e╱N╱ // 0xc6 @0x34
0x092…0f7 at0035 = ╱41╱A╱ // 0xc7 @0x35
0x092…0f7 at0036 = ╱56╱V╱ // 0xc8 @0x36
0x092…0f7 at0037 = ╱4e╱N╱ // 0xc9 @0x37
0x092…0f7 at0038 = ╱31╱1╱ // 0xca @0x38
0x092…0f7 at0039 = ╱ef╱$╱ // 0xcb @0x39
0x092…0f7 at003a = ╱ed╱(╱ // 0xcc @0x3a
0x092…0f7 at003b = ╱33╱3╱ // 0xcd @0x3b
0x092…0f7 at003c = ╱33╱3╱ // 0xce @0x3c
0x092…0f7 at003d = ╱fe00008406╱ // 0xcf @0x3d
0x092…0f7 at0042 = ╱ec╱,╱ // 0xd4 @0x42
0x092…0f7 at0043 = ╱38╱8╱ // 0xd5 @0x43
0x092…0f7 at0044 = ╱fe00008004╱ // 0xd6 @0x44
0x092…0f7 at0049 = ╱ee╱)╱ // 0xdb @0x49
0x092…0f7 at004a = ╱ec╱,╱ // 0xdc @0x4a
0x092…0f7 at004b = ╱46╱F╱ // 0xdd @0x4b
0x092…0f7 at004c = ╱52╱R╱ // 0xde @0x4c
0x092…0f7 at004d = ╱41╱A╱ // 0xdf @0x4d
0x092…0f7 at004e = ╱4e╱N╱ // 0xe0 @0x4e
0x092…0f7 at004f = ╱41╱A╱ // 0xe1 @0x4f
0x092…0f7 at0050 = ╱56╱V╱ // 0xe2 @0x50
0x092…0f7 at0051 = ╱4e╱N╱ // 0xe3 @0x51
0x092…0f7 at0052 = ╱31╱1╱ // 0xe4 @0x52
0x092…0f7 at0053 = ╱ef╱$╱ // 0xe5 @0x53
0x092…0f7 at0054 = ╱ed╱(╱ // 0xe6 @0x54
0x092…0f7 at0055 = ╱33╱3╱ // 0xe7 @0x55
0x092…0f7 at0056 = ╱33╱3╱ // 0xe8 @0x56
0x092…0f7 at0057 = ╱fe00008406╱ // 0xe9 @0x57
0x092…0f7 at005c = ╱ec╱,╱ // 0xee @0x5c
0x092…0f7 at005d = ╱38╱8╱ // 0xef @0x5d
0x092…0f7 at005e = ╱fe00008004╱ // 0xf0 @0x5e
0x092…0f7 at0063 = ╱ee╱)╱ // 0xf5 @0x63
0x092…0f7 at0064 = EOL // 0xf6 @0x64
0x092…0f7 }
0x0f7…101 8e58 0130 PROC COPY
0x0f7…101 LineComalBin {
0x0f7…101 ptr = 0x8e58 // 0xf7 @0x0
0x0f7…101 lno = 0x0082 // 0xf9 @0x2
0x0f7…101 at0004 = ╱9e╱ PROC ╱ // 0xfb @0x4
0x0f7…101 at0005 = ╱43╱C╱ // 0xfc @0x5
0x0f7…101 at0006 = ╱4f╱O╱ // 0xfd @0x6
0x0f7…101 at0007 = ╱50╱P╱ // 0xfe @0x7
0x0f7…101 at0008 = ╱59╱Y╱ // 0xff @0x8
0x0f7…101 at0009 = EOL // 0x100 @0x9
0x0f7…101 }
0x101…10c 8e63 0140 FLAG=B
0x101…10c LineComalBin {
0x101…10c ptr = 0x8e63 // 0x101 @0x0
0x101…10c lno = 0x008c // 0x103 @0x2
0x101…10c at0004 = ╱46╱F╱ // 0x105 @0x4
0x101…10c at0005 = ╱4c╱L╱ // 0x106 @0x5
0x101…10c at0006 = ╱41╱A╱ // 0x107 @0x6
0x101…10c at0007 = ╱47╱G╱ // 0x108 @0x7
0x101…10c at0008 = ╱dc╱=╱ // 0x109 @0x8
0x101…10c at0009 = ╱42╱B╱ // 0x10a @0x9
0x101…10c at000a = EOL // 0x10b @0xa
0x101…10c }
0x10c…124 8e7b 0150 CALL "P641210:CFCOPY"
0x10c…124 LineComalBin {
0x10c…124 ptr = 0x8e7b // 0x10c @0x0
0x10c…124 lno = 0x0096 // 0x10e @0x2
0x10c…124 at0004 = ╱ad4954╱ CALL ╱ // 0x110 @0x4
0x10c…124 at0007 = ╱22╱"╱ // 0x113 @0x7
0x10c…124 at0008 = ╱50╱P╱ // 0x114 @0x8
0x10c…124 at0009 = ╱36╱6╱ // 0x115 @0x9
0x10c…124 at000a = ╱34╱4╱ // 0x116 @0xa
0x10c…124 at000b = ╱31╱1╱ // 0x117 @0xb
0x10c…124 at000c = ╱32╱2╱ // 0x118 @0xc
0x10c…124 at000d = ╱31╱1╱ // 0x119 @0xd
0x10c…124 at000e = ╱30╱0╱ // 0x11a @0xe
0x10c…124 at000f = ╱3a╱:╱ // 0x11b @0xf
0x10c…124 at0010 = ╱43╱C╱ // 0x11c @0x10
0x10c…124 at0011 = ╱46╱F╱ // 0x11d @0x11
0x10c…124 at0012 = ╱43╱C╱ // 0x11e @0x12
0x10c…124 at0013 = ╱4f╱O╱ // 0x11f @0x13
0x10c…124 at0014 = ╱50╱P╱ // 0x120 @0x14
0x10c…124 at0015 = ╱59╱Y╱ // 0x121 @0x15
0x10c…124 at0016 = ╱22╱"╱ // 0x122 @0x16
0x10c…124 at0017 = EOL // 0x123 @0x17
0x10c…124 }
0x124…12a 8e81 0160 ENDPROC
0x124…12a LineComalBin {
0x124…12a ptr = 0x8e81 // 0x124 @0x0
0x124…12a lno = 0x00a0 // 0x126 @0x2
0x124…12a at0004 = ╱9f╱ ENDPROC ╱ // 0x128 @0x4
0x124…12a at0005 = EOL // 0x129 @0x5
0x124…12a }
0x12a…13c 8e93 0170 PROC NRTEST(NUM1)
0x12a…13c LineComalBin {
0x12a…13c ptr = 0x8e93 // 0x12a @0x0
0x12a…13c lno = 0x00aa // 0x12c @0x2
0x12a…13c at0004 = ╱9e╱ PROC ╱ // 0x12e @0x4
0x12a…13c at0005 = ╱4e╱N╱ // 0x12f @0x5
0x12a…13c at0006 = ╱52╱R╱ // 0x130 @0x6
0x12a…13c at0007 = ╱54╱T╱ // 0x131 @0x7
0x12a…13c at0008 = ╱45╱E╱ // 0x132 @0x8
0x12a…13c at0009 = ╱53╱S╱ // 0x133 @0x9
0x12a…13c at000a = ╱54╱T╱ // 0x134 @0xa
0x12a…13c at000b = ╱ed╱(╱ // 0x135 @0xb
0x12a…13c at000c = ╱4e╱N╱ // 0x136 @0xc
0x12a…13c at000d = ╱55╱U╱ // 0x137 @0xd
0x12a…13c at000e = ╱4d╱M╱ // 0x138 @0xe
0x12a…13c at000f = ╱31╱1╱ // 0x139 @0xf
0x12a…13c at0010 = ╱ee╱)╱ // 0x13a @0x10
0x12a…13c at0011 = EOL // 0x13b @0x11
0x12a…13c }
0x13c…15e 8eb5 0180 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x13c…15e LineComalBin {
0x13c…15e ptr = 0x8eb5 // 0x13c @0x0
0x13c…15e lno = 0x00b4 // 0x13e @0x2
0x13c…15e at0004 = ╱50╱P╱ // 0x140 @0x4
0x13c…15e at0005 = ╱dc╱=╱ // 0x141 @0x5
0x13c…15e at0006 = ╱42╱B╱ // 0x142 @0x6
0x13c…15e at0007 = ╱eb╱;╱ // 0x143 @0x7
0x13c…15e at0008 = ╱54╱T╱ // 0x144 @0x8
0x13c…15e at0009 = ╱45╱E╱ // 0x145 @0x9
0x13c…15e at000a = ╱53╱S╱ // 0x146 @0xa
0x13c…15e at000b = ╱54╱T╱ // 0x147 @0xb
0x13c…15e at000c = ╱32╱2╱ // 0x148 @0xc
0x13c…15e at000d = ╱dc╱=╱ // 0x149 @0xd
0x13c…15e at000e = ╱42╱B╱ // 0x14a @0xe
0x13c…15e at000f = ╱eb╱;╱ // 0x14b @0xf
0x13c…15e at0010 = ╱4b╱K╱ // 0x14c @0x10
0x13c…15e at0011 = ╱54╱T╱ // 0x14d @0x11
0x13c…15e at0012 = ╱41╱A╱ // 0x14e @0x12
0x13c…15e at0013 = ╱4c╱L╱ // 0x14f @0x13
0x13c…15e at0014 = ╱dc╱=╱ // 0x150 @0x14
0x13c…15e at0015 = ╱42╱B╱ // 0x151 @0x15
0x13c…15e at0016 = ╱eb╱;╱ // 0x152 @0x16
0x13c…15e at0017 = ╱4c╱L╱ // 0x153 @0x17
0x13c…15e at0018 = ╱dc╱=╱ // 0x154 @0x18
0x13c…15e at0019 = ╱cc╱LEN╱ // 0x155 @0x19
0x13c…15e at001a = ╱ed╱(╱ // 0x156 @0x1a
0x13c…15e at001b = ╱4e╱N╱ // 0x157 @0x1b
0x13c…15e at001c = ╱55╱U╱ // 0x158 @0x1c
0x13c…15e at001d = ╱4d╱M╱ // 0x159 @0x1d
0x13c…15e at001e = ╱31╱1╱ // 0x15a @0x1e
0x13c…15e at001f = ╱ef╱$╱ // 0x15b @0x1f
0x13c…15e at0020 = ╱ee╱)╱ // 0x15c @0x20
0x13c…15e at0021 = EOL // 0x15d @0x21
0x13c…15e }
0x15e…16e 8ec5 0190 IF L>6 THEN EXIT
0x15e…16e LineComalBin {
0x15e…16e ptr = 0x8ec5 // 0x15e @0x0
0x15e…16e lno = 0x00be // 0x160 @0x2
0x15e…16e at0004 = ╱82╱ IF ╱ // 0x162 @0x4
0x15e…16e at0005 = ╱4c╱L╱ // 0x163 @0x5
0x15e…16e at0006 = ╱de╱>╱ // 0x164 @0x6
0x15e…16e at0007 = ╱36╱6╱ // 0x165 @0x7
0x15e…16e at0008 = ╱fe0000c003╱ // 0x166 @0x8
0x15e…16e at000d = ╱b6╱ THEN ╱ // 0x16b @0xd
0x15e…16e at000e = ╱99╱ EXIT ╱ // 0x16c @0xe
0x15e…16e at000f = EOL // 0x16d @0xf
0x15e…16e }
0x16e…177 8ece 0200 CASE L OF
0x16e…177 LineComalBin {
0x16e…177 ptr = 0x8ece // 0x16e @0x0
0x16e…177 lno = 0x00c8 // 0x170 @0x2
0x16e…177 at0004 = ╱a201╱ CASE ╱ // 0x172 @0x4
0x16e…177 at0006 = ╱4c╱L╱ // 0x174 @0x6
0x16e…177 at0007 = ╱ba╱ OF ╱ // 0x175 @0x7
0x16e…177 at0008 = EOL // 0x176 @0x8
0x16e…177 }
0x177…182 8ed9 0210 FOR I=E TO L
0x177…182 LineComalBin {
0x177…182 ptr = 0x8ed9 // 0x177 @0x0
0x177…182 lno = 0x00d2 // 0x179 @0x2
0x177…182 at0004 = ╱83╱ FOR ╱ // 0x17b @0x4
0x177…182 at0005 = ╱49╱I╱ // 0x17c @0x5
0x177…182 at0006 = ╱dc╱=╱ // 0x17d @0x6
0x177…182 at0007 = ╱45╱E╱ // 0x17e @0x7
0x177…182 at0008 = ╱b7╱ TO ╱ // 0x17f @0x8
0x177…182 at0009 = ╱4c╱L╱ // 0x180 @0x9
0x177…182 at000a = EOL // 0x181 @0xa
0x177…182 }
0x182…1a0 8ef7 0220 P1=INT(ORD(NUM1$(I))-48)
0x182…1a0 LineComalBin {
0x182…1a0 ptr = 0x8ef7 // 0x182 @0x0
0x182…1a0 lno = 0x00dc // 0x184 @0x2
0x182…1a0 at0004 = ╱50╱P╱ // 0x186 @0x4
0x182…1a0 at0005 = ╱31╱1╱ // 0x187 @0x5
0x182…1a0 at0006 = ╱dc╱=╱ // 0x188 @0x6
0x182…1a0 at0007 = ╱c6╱INT╱ // 0x189 @0x7
0x182…1a0 at0008 = ╱ed╱(╱ // 0x18a @0x8
0x182…1a0 at0009 = ╱cd╱ORD╱ // 0x18b @0x9
0x182…1a0 at000a = ╱ed╱(╱ // 0x18c @0xa
0x182…1a0 at000b = ╱4e╱N╱ // 0x18d @0xb
0x182…1a0 at000c = ╱55╱U╱ // 0x18e @0xc
0x182…1a0 at000d = ╱4d╱M╱ // 0x18f @0xd
0x182…1a0 at000e = ╱31╱1╱ // 0x190 @0xe
0x182…1a0 at000f = ╱ef╱$╱ // 0x191 @0xf
0x182…1a0 at0010 = ╱ed╱(╱ // 0x192 @0x10
0x182…1a0 at0011 = ╱49╱I╱ // 0x193 @0x11
0x182…1a0 at0012 = ╱ee╱)╱ // 0x194 @0x12
0x182…1a0 at0013 = ╱ee╱)╱ // 0x195 @0x13
0x182…1a0 at0014 = ╱e3╱-╱ // 0x196 @0x14
0x182…1a0 at0015 = ╱34╱4╱ // 0x197 @0x15
0x182…1a0 at0016 = ╱38╱8╱ // 0x198 @0x16
0x182…1a0 at0017 = ╱fe0000c006╱ // 0x199 @0x17
0x182…1a0 at001c = ╱ee╱)╱ // 0x19e @0x1c
0x182…1a0 at001d = EOL // 0x19f @0x1d
0x182…1a0 }
0x1a0…1b7 8f0e 0230 IF P1<B OR P1>W THEN TEST2=E
0x1a0…1b7 LineComalBin {
0x1a0…1b7 ptr = 0x8f0e // 0x1a0 @0x0
0x1a0…1b7 lno = 0x00e6 // 0x1a2 @0x2
0x1a0…1b7 at0004 = ╱82╱ IF ╱ // 0x1a4 @0x4
0x1a0…1b7 at0005 = ╱50╱P╱ // 0x1a5 @0x5
0x1a0…1b7 at0006 = ╱31╱1╱ // 0x1a6 @0x6
0x1a0…1b7 at0007 = ╱dd╱<╱ // 0x1a7 @0x7
0x1a0…1b7 at0008 = ╱42╱B╱ // 0x1a8 @0x8
0x1a0…1b7 at0009 = ╱db╱ OR ╱ // 0x1a9 @0x9
0x1a0…1b7 at000a = ╱50╱P╱ // 0x1aa @0xa
0x1a0…1b7 at000b = ╱31╱1╱ // 0x1ab @0xb
0x1a0…1b7 at000c = ╱de╱>╱ // 0x1ac @0xc
0x1a0…1b7 at000d = ╱57╱W╱ // 0x1ad @0xd
0x1a0…1b7 at000e = ╱b6╱ THEN ╱ // 0x1ae @0xe
0x1a0…1b7 at000f = ╱54╱T╱ // 0x1af @0xf
0x1a0…1b7 at0010 = ╱45╱E╱ // 0x1b0 @0x10
0x1a0…1b7 at0011 = ╱53╱S╱ // 0x1b1 @0x11
0x1a0…1b7 at0012 = ╱54╱T╱ // 0x1b2 @0x12
0x1a0…1b7 at0013 = ╱32╱2╱ // 0x1b3 @0x13
0x1a0…1b7 at0014 = ╱dc╱=╱ // 0x1b4 @0x14
0x1a0…1b7 at0015 = ╱45╱E╱ // 0x1b5 @0x15
0x1a0…1b7 at0016 = EOL // 0x1b6 @0x16
0x1a0…1b7 }
0x1b7…1ca 8f21 0240 P=P*10+P1
0x1b7…1ca LineComalBin {
0x1b7…1ca ptr = 0x8f21 // 0x1b7 @0x0
0x1b7…1ca lno = 0x00f0 // 0x1b9 @0x2
0x1b7…1ca at0004 = ╱50╱P╱ // 0x1bb @0x4
0x1b7…1ca at0005 = ╱dc╱=╱ // 0x1bc @0x5
0x1b7…1ca at0006 = ╱50╱P╱ // 0x1bd @0x6
0x1b7…1ca at0007 = ╱e4╱*╱ // 0x1be @0x7
0x1b7…1ca at0008 = ╱31╱1╱ // 0x1bf @0x8
0x1b7…1ca at0009 = ╱30╱0╱ // 0x1c0 @0x9
0x1b7…1ca at000a = ╱fe0000a004╱ // 0x1c1 @0xa
0x1b7…1ca at000f = ╱e2╱+╱ // 0x1c6 @0xf
0x1b7…1ca at0010 = ╱50╱P╱ // 0x1c7 @0x10
0x1b7…1ca at0011 = ╱31╱1╱ // 0x1c8 @0x11
0x1b7…1ca at0012 = EOL // 0x1c9 @0x12
0x1b7…1ca }
0x1ca…1d1 8f28 0250 NEXT I
0x1ca…1d1 LineComalBin {
0x1ca…1d1 ptr = 0x8f28 // 0x1ca @0x0
0x1ca…1d1 lno = 0x00fa // 0x1cc @0x2
0x1ca…1d1 at0004 = ╱84╱ NEXT ╱ // 0x1ce @0x4
0x1ca…1d1 at0005 = ╱49╱I╱ // 0x1cf @0x5
0x1ca…1d1 at0006 = EOL // 0x1d0 @0x6
0x1ca…1d1 }
0x1d1…1e7 8f3e 0260 KTAL=P DIV 10000
0x1d1…1e7 LineComalBin {
0x1d1…1e7 ptr = 0x8f3e // 0x1d1 @0x0
0x1d1…1e7 lno = 0x0104 // 0x1d3 @0x2
0x1d1…1e7 at0004 = ╱4b╱K╱ // 0x1d5 @0x4
0x1d1…1e7 at0005 = ╱54╱T╱ // 0x1d6 @0x5
0x1d1…1e7 at0006 = ╱41╱A╱ // 0x1d7 @0x6
0x1d1…1e7 at0007 = ╱4c╱L╱ // 0x1d8 @0x7
0x1d1…1e7 at0008 = ╱dc╱=╱ // 0x1d9 @0x8
0x1d1…1e7 at0009 = ╱50╱P╱ // 0x1da @0x9
0x1d1…1e7 at000a = ╱e7╱ DIV ╱ // 0x1db @0xa
0x1d1…1e7 at000b = ╱31╱1╱ // 0x1dc @0xb
0x1d1…1e7 at000c = ╱30╱0╱ // 0x1dd @0xc
0x1d1…1e7 at000d = ╱30╱0╱ // 0x1de @0xd
0x1d1…1e7 at000e = ╱30╱0╱ // 0x1df @0xe
0x1d1…1e7 at000f = ╱30╱0╱ // 0x1e0 @0xf
0x1d1…1e7 at0010 = ╱fe00409c0e╱ // 0x1e1 @0x10
0x1d1…1e7 at0015 = EOL // 0x1e6 @0x15
0x1d1…1e7 }
0x1e7…1ef 8f46 0270 WHEN B
0x1e7…1ef LineComalBin {
0x1e7…1ef ptr = 0x8f46 // 0x1e7 @0x0
0x1e7…1ef lno = 0x010e // 0x1e9 @0x2
0x1e7…1ef at0004 = ╱a301╱ WHEN ╱ // 0x1eb @0x4
0x1e7…1ef at0006 = ╱42╱B╱ // 0x1ed @0x6
0x1e7…1ef at0007 = EOL // 0x1ee @0x7
0x1e7…1ef }
0x1ef…1f8 8f4f 0280 P=-E
0x1ef…1f8 LineComalBin {
0x1ef…1f8 ptr = 0x8f4f // 0x1ef @0x0
0x1ef…1f8 lno = 0x0118 // 0x1f1 @0x2
0x1ef…1f8 at0004 = ╱50╱P╱ // 0x1f3 @0x4
0x1ef…1f8 at0005 = ╱dc╱=╱ // 0x1f4 @0x5
0x1ef…1f8 at0006 = ╱e9╱-╱ // 0x1f5 @0x6
0x1ef…1f8 at0007 = ╱45╱E╱ // 0x1f6 @0x7
0x1ef…1f8 at0008 = EOL // 0x1f7 @0x8
0x1ef…1f8 }
0x1f8…200 8f57 0290 WHEN E
0x1f8…200 LineComalBin {
0x1f8…200 ptr = 0x8f57 // 0x1f8 @0x0
0x1f8…200 lno = 0x0122 // 0x1fa @0x2
0x1f8…200 at0004 = ╱a301╱ WHEN ╱ // 0x1fc @0x4
0x1f8…200 at0006 = ╱45╱E╱ // 0x1fe @0x6
0x1f8…200 at0007 = EOL // 0x1ff @0x7
0x1f8…200 }
0x200…20d 8f64 0300 CASE NUM1$ OF
0x200…20d LineComalBin {
0x200…20d ptr = 0x8f64 // 0x200 @0x0
0x200…20d lno = 0x012c // 0x202 @0x2
0x200…20d at0004 = ╱a200╱ CASE ╱ // 0x204 @0x4
0x200…20d at0006 = ╱4e╱N╱ // 0x206 @0x6
0x200…20d at0007 = ╱55╱U╱ // 0x207 @0x7
0x200…20d at0008 = ╱4d╱M╱ // 0x208 @0x8
0x200…20d at0009 = ╱31╱1╱ // 0x209 @0x9
0x200…20d at000a = ╱ef╱$╱ // 0x20a @0xa
0x200…20d at000b = ╱ba╱ OF ╱ // 0x20b @0xb
0x200…20d at000c = EOL // 0x20c @0xc
0x200…20d }
0x20d…227 8f7e 0310 P=INT(ORD(NUM1$)-48)
0x20d…227 LineComalBin {
0x20d…227 ptr = 0x8f7e // 0x20d @0x0
0x20d…227 lno = 0x0136 // 0x20f @0x2
0x20d…227 at0004 = ╱50╱P╱ // 0x211 @0x4
0x20d…227 at0005 = ╱dc╱=╱ // 0x212 @0x5
0x20d…227 at0006 = ╱c6╱INT╱ // 0x213 @0x6
0x20d…227 at0007 = ╱ed╱(╱ // 0x214 @0x7
0x20d…227 at0008 = ╱cd╱ORD╱ // 0x215 @0x8
0x20d…227 at0009 = ╱ed╱(╱ // 0x216 @0x9
0x20d…227 at000a = ╱4e╱N╱ // 0x217 @0xa
0x20d…227 at000b = ╱55╱U╱ // 0x218 @0xb
0x20d…227 at000c = ╱4d╱M╱ // 0x219 @0xc
0x20d…227 at000d = ╱31╱1╱ // 0x21a @0xd
0x20d…227 at000e = ╱ef╱$╱ // 0x21b @0xe
0x20d…227 at000f = ╱ee╱)╱ // 0x21c @0xf
0x20d…227 at0010 = ╱e3╱-╱ // 0x21d @0x10
0x20d…227 at0011 = ╱34╱4╱ // 0x21e @0x11
0x20d…227 at0012 = ╱38╱8╱ // 0x21f @0x12
0x20d…227 at0013 = ╱fe0000c006╱ // 0x220 @0x13
0x20d…227 at0018 = ╱ee╱)╱ // 0x225 @0x18
0x20d…227 at0019 = EOL // 0x226 @0x19
0x20d…227 }
0x227…235 8f8c 0320 WHEN "D","d"
0x227…235 LineComalBin {
0x227…235 ptr = 0x8f8c // 0x227 @0x0
0x227…235 lno = 0x0140 // 0x229 @0x2
0x227…235 at0004 = ╱a300╱ WHEN ╱ // 0x22b @0x4
0x227…235 at0006 = ╱22╱"╱ // 0x22d @0x6
0x227…235 at0007 = ╱44╱D╱ // 0x22e @0x7
0x227…235 at0008 = ╱22╱"╱ // 0x22f @0x8
0x227…235 at0009 = ╱ec╱,╱ // 0x230 @0x9
0x227…235 at000a = ╱22╱"╱ // 0x231 @0xa
0x227…235 at000b = ╱64╱d╱ // 0x232 @0xb
0x227…235 at000c = ╱22╱"╱ // 0x233 @0xc
0x227…235 at000d = EOL // 0x234 @0xd
0x227…235 }
0x235…23e 8f95 0330 P=-G
0x235…23e LineComalBin {
0x235…23e ptr = 0x8f95 // 0x235 @0x0
0x235…23e lno = 0x014a // 0x237 @0x2
0x235…23e at0004 = ╱50╱P╱ // 0x239 @0x4
0x235…23e at0005 = ╱dc╱=╱ // 0x23a @0x5
0x235…23e at0006 = ╱e9╱-╱ // 0x23b @0x6
0x235…23e at0007 = ╱47╱G╱ // 0x23c @0x7
0x235…23e at0008 = EOL // 0x23d @0x8
0x235…23e }
0x23e…24c 8fa3 0340 WHEN "A","a"
0x23e…24c LineComalBin {
0x23e…24c ptr = 0x8fa3 // 0x23e @0x0
0x23e…24c lno = 0x0154 // 0x240 @0x2
0x23e…24c at0004 = ╱a300╱ WHEN ╱ // 0x242 @0x4
0x23e…24c at0006 = ╱22╱"╱ // 0x244 @0x6
0x23e…24c at0007 = ╱41╱A╱ // 0x245 @0x7
0x23e…24c at0008 = ╱22╱"╱ // 0x246 @0x8
0x23e…24c at0009 = ╱ec╱,╱ // 0x247 @0x9
0x23e…24c at000a = ╱22╱"╱ // 0x248 @0xa
0x23e…24c at000b = ╱61╱a╱ // 0x249 @0xb
0x23e…24c at000c = ╱22╱"╱ // 0x24a @0xc
0x23e…24c at000d = EOL // 0x24b @0xd
0x23e…24c }
0x24c…255 8fac 0350 P=-V
0x24c…255 LineComalBin {
0x24c…255 ptr = 0x8fac // 0x24c @0x0
0x24c…255 lno = 0x015e // 0x24e @0x2
0x24c…255 at0004 = ╱50╱P╱ // 0x250 @0x4
0x24c…255 at0005 = ╱dc╱=╱ // 0x251 @0x5
0x24c…255 at0006 = ╱e9╱-╱ // 0x252 @0x6
0x24c…255 at0007 = ╱56╱V╱ // 0x253 @0x7
0x24c…255 at0008 = EOL // 0x254 @0x8
0x24c…255 }
0x255…263 8fba 0360 WHEN "M","m"
0x255…263 LineComalBin {
0x255…263 ptr = 0x8fba // 0x255 @0x0
0x255…263 lno = 0x0168 // 0x257 @0x2
0x255…263 at0004 = ╱a300╱ WHEN ╱ // 0x259 @0x4
0x255…263 at0006 = ╱22╱"╱ // 0x25b @0x6
0x255…263 at0007 = ╱4d╱M╱ // 0x25c @0x7
0x255…263 at0008 = ╱22╱"╱ // 0x25d @0x8
0x255…263 at0009 = ╱ec╱,╱ // 0x25e @0x9
0x255…263 at000a = ╱22╱"╱ // 0x25f @0xa
0x255…263 at000b = ╱6d╱m╱ // 0x260 @0xb
0x255…263 at000c = ╱22╱"╱ // 0x261 @0xc
0x255…263 at000d = EOL // 0x262 @0xd
0x255…263 }
0x263…271 8fc8 0370 P=-4
0x263…271 LineComalBin {
0x263…271 ptr = 0x8fc8 // 0x263 @0x0
0x263…271 lno = 0x0172 // 0x265 @0x2
0x263…271 at0004 = ╱50╱P╱ // 0x267 @0x4
0x263…271 at0005 = ╱dc╱=╱ // 0x268 @0x5
0x263…271 at0006 = ╱e9╱-╱ // 0x269 @0x6
0x263…271 at0007 = ╱34╱4╱ // 0x26a @0x7
0x263…271 at0008 = ╱fe00008003╱ // 0x26b @0x8
0x263…271 at000d = EOL // 0x270 @0xd
0x263…271 }
0x271…27f 8fd6 0380 WHEN "J","j"
0x271…27f LineComalBin {
0x271…27f ptr = 0x8fd6 // 0x271 @0x0
0x271…27f lno = 0x017c // 0x273 @0x2
0x271…27f at0004 = ╱a300╱ WHEN ╱ // 0x275 @0x4
0x271…27f at0006 = ╱22╱"╱ // 0x277 @0x6
0x271…27f at0007 = ╱4a╱J╱ // 0x278 @0x7
0x271…27f at0008 = ╱22╱"╱ // 0x279 @0x8
0x271…27f at0009 = ╱ec╱,╱ // 0x27a @0x9
0x271…27f at000a = ╱22╱"╱ // 0x27b @0xa
0x271…27f at000b = ╱6a╱j╱ // 0x27c @0xb
0x271…27f at000c = ╱22╱"╱ // 0x27d @0xc
0x271…27f at000d = EOL // 0x27e @0xd
0x271…27f }
0x27f…28d 8fe4 0390 P=-7
0x27f…28d LineComalBin {
0x27f…28d ptr = 0x8fe4 // 0x27f @0x0
0x27f…28d lno = 0x0186 // 0x281 @0x2
0x27f…28d at0004 = ╱50╱P╱ // 0x283 @0x4
0x27f…28d at0005 = ╱dc╱=╱ // 0x284 @0x5
0x27f…28d at0006 = ╱e9╱-╱ // 0x285 @0x6
0x27f…28d at0007 = ╱37╱7╱ // 0x286 @0x7
0x27f…28d at0008 = ╱fe0000e003╱ // 0x287 @0x8
0x27f…28d at000d = EOL // 0x28c @0xd
0x27f…28d }
0x28d…29b 8ff2 0400 WHEN "N","n"
0x28d…29b LineComalBin {
0x28d…29b ptr = 0x8ff2 // 0x28d @0x0
0x28d…29b lno = 0x0190 // 0x28f @0x2
0x28d…29b at0004 = ╱a300╱ WHEN ╱ // 0x291 @0x4
0x28d…29b at0006 = ╱22╱"╱ // 0x293 @0x6
0x28d…29b at0007 = ╱4e╱N╱ // 0x294 @0x7
0x28d…29b at0008 = ╱22╱"╱ // 0x295 @0x8
0x28d…29b at0009 = ╱ec╱,╱ // 0x296 @0x9
0x28d…29b at000a = ╱22╱"╱ // 0x297 @0xa
0x28d…29b at000b = ╱6e╱n╱ // 0x298 @0xb
0x28d…29b at000c = ╱22╱"╱ // 0x299 @0xc
0x28d…29b at000d = EOL // 0x29a @0xd
0x28d…29b }
0x29b…2a9 9000 0410 P=-8
0x29b…2a9 LineComalBin {
0x29b…2a9 ptr = 0x9000 // 0x29b @0x0
0x29b…2a9 lno = 0x019a // 0x29d @0x2
0x29b…2a9 at0004 = ╱50╱P╱ // 0x29f @0x4
0x29b…2a9 at0005 = ╱dc╱=╱ // 0x2a0 @0x5
0x29b…2a9 at0006 = ╱e9╱-╱ // 0x2a1 @0x6
0x29b…2a9 at0007 = ╱38╱8╱ // 0x2a2 @0x7
0x29b…2a9 at0008 = ╱fe00008004╱ // 0x2a3 @0x8
0x29b…2a9 at000d = EOL // 0x2a8 @0xd
0x29b…2a9 }
0x2a9…2af 9006 0420 ENDCASE
0x2a9…2af LineComalBin {
0x2a9…2af ptr = 0x9006 // 0x2a9 @0x0
0x2a9…2af lno = 0x01a4 // 0x2ab @0x2
0x2a9…2af at0004 = ╱a4╱ ENDCASE ╱ // 0x2ad @0x4
0x2a9…2af at0005 = EOL // 0x2ae @0x5
0x2a9…2af }
0x2af…2b5 900c 0430 ENDCASE
0x2af…2b5 LineComalBin {
0x2af…2b5 ptr = 0x900c // 0x2af @0x0
0x2af…2b5 lno = 0x01ae // 0x2b1 @0x2
0x2af…2b5 at0004 = ╱a4╱ ENDCASE ╱ // 0x2b3 @0x4
0x2af…2b5 at0005 = EOL // 0x2b4 @0x5
0x2af…2b5 }
0x2b5…2bb (9,) 9012 0440 ENDPROC
0x2b5…2bb LineComalBin {
0x2b5…2bb ptr = 0x9012 // 0x2b5 @0x0
0x2b5…2bb lno = 0x01b8 // 0x2b7 @0x2
0x2b5…2bb at0004 = ╱9f╱ ENDPROC ╱ // 0x2b9 @0x4
0x2b5…2bb at0005 = EOL // 0x2ba @0x5
0x2b5…2bb }
0x2bb…2d2 9029 0450 PROC FEJL(NR1,NR2,NR3)
0x2bb…2d2 LineComalBin {
0x2bb…2d2 ptr = 0x9029 // 0x2bb @0x0
0x2bb…2d2 lno = 0x01c2 // 0x2bd @0x2
0x2bb…2d2 at0004 = ╱9e╱ PROC ╱ // 0x2bf @0x4
0x2bb…2d2 at0005 = ╱46╱F╱ // 0x2c0 @0x5
0x2bb…2d2 at0006 = ╱45╱E╱ // 0x2c1 @0x6
0x2bb…2d2 at0007 = ╱4a╱J╱ // 0x2c2 @0x7
0x2bb…2d2 at0008 = ╱4c╱L╱ // 0x2c3 @0x8
0x2bb…2d2 at0009 = ╱ed╱(╱ // 0x2c4 @0x9
0x2bb…2d2 at000a = ╱4e╱N╱ // 0x2c5 @0xa
0x2bb…2d2 at000b = ╱52╱R╱ // 0x2c6 @0xb
0x2bb…2d2 at000c = ╱31╱1╱ // 0x2c7 @0xc
0x2bb…2d2 at000d = ╱ec╱,╱ // 0x2c8 @0xd
0x2bb…2d2 at000e = ╱4e╱N╱ // 0x2c9 @0xe
0x2bb…2d2 at000f = ╱52╱R╱ // 0x2ca @0xf
0x2bb…2d2 at0010 = ╱32╱2╱ // 0x2cb @0x10
0x2bb…2d2 at0011 = ╱ec╱,╱ // 0x2cc @0x11
0x2bb…2d2 at0012 = ╱4e╱N╱ // 0x2cd @0x12
0x2bb…2d2 at0013 = ╱52╱R╱ // 0x2ce @0x13
0x2bb…2d2 at0014 = ╱33╱3╱ // 0x2cf @0x14
0x2bb…2d2 at0015 = ╱ee╱)╱ // 0x2d0 @0x15
0x2bb…2d2 at0016 = EOL // 0x2d1 @0x16
0x2bb…2d2 }
0x2d2…2e2 9039 0460 IF STATUS(NR3$)<>B THEN
0x2d2…2e2 LineComalBin {
0x2d2…2e2 ptr = 0x9039 // 0x2d2 @0x0
0x2d2…2e2 lno = 0x01cc // 0x2d4 @0x2
0x2d2…2e2 at0004 = ╱9c╱ IF ╱ // 0x2d6 @0x4
0x2d2…2e2 at0005 = ╱ce╱STATUS╱ // 0x2d7 @0x5
0x2d2…2e2 at0006 = ╱ed╱(╱ // 0x2d8 @0x6
0x2d2…2e2 at0007 = ╱4e╱N╱ // 0x2d9 @0x7
0x2d2…2e2 at0008 = ╱52╱R╱ // 0x2da @0x8
0x2d2…2e2 at0009 = ╱33╱3╱ // 0x2db @0x9
0x2d2…2e2 at000a = ╱ef╱$╱ // 0x2dc @0xa
0x2d2…2e2 at000b = ╱ee╱)╱ // 0x2dd @0xb
0x2d2…2e2 at000c = ╱e1╱<>╱ // 0x2de @0xc
0x2d2…2e2 at000d = ╱42╱B╱ // 0x2df @0xd
0x2d2…2e2 at000e = ╱b6╱ THEN ╱ // 0x2e0 @0xe
0x2d2…2e2 at000f = EOL // 0x2e1 @0xf
0x2d2…2e2 }
0x2e2…2fc 9053 0470 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x2e2…2fc LineComalBin {
0x2e2…2fc ptr = 0x9053 // 0x2e2 @0x0
0x2e2…2fc lno = 0x01d6 // 0x2e4 @0x2
0x2e2…2fc at0004 = ╱92╱ PRINT ╱ // 0x2e6 @0x4
0x2e2…2fc at0005 = ╱ce╱STATUS╱ // 0x2e7 @0x5
0x2e2…2fc at0006 = ╱ed╱(╱ // 0x2e8 @0x6
0x2e2…2fc at0007 = ╱4e╱N╱ // 0x2e9 @0x7
0x2e2…2fc at0008 = ╱52╱R╱ // 0x2ea @0x8
0x2e2…2fc at0009 = ╱33╱3╱ // 0x2eb @0x9
0x2e2…2fc at000a = ╱ef╱$╱ // 0x2ec @0xa
0x2e2…2fc at000b = ╱ee╱)╱ // 0x2ed @0xb
0x2e2…2fc at000c = ╱ec╱,╱ // 0x2ee @0xc
0x2e2…2fc at000d = ╱4e╱N╱ // 0x2ef @0xd
0x2e2…2fc at000e = ╱52╱R╱ // 0x2f0 @0xe
0x2e2…2fc at000f = ╱31╱1╱ // 0x2f1 @0xf
0x2e2…2fc at0010 = ╱ec╱,╱ // 0x2f2 @0x10
0x2e2…2fc at0011 = ╱4e╱N╱ // 0x2f3 @0x11
0x2e2…2fc at0012 = ╱52╱R╱ // 0x2f4 @0x12
0x2e2…2fc at0013 = ╱32╱2╱ // 0x2f5 @0x13
0x2e2…2fc at0014 = ╱ec╱,╱ // 0x2f6 @0x14
0x2e2…2fc at0015 = ╱4e╱N╱ // 0x2f7 @0x15
0x2e2…2fc at0016 = ╱52╱R╱ // 0x2f8 @0x16
0x2e2…2fc at0017 = ╱33╱3╱ // 0x2f9 @0x17
0x2e2…2fc at0018 = ╱ef╱$╱ // 0x2fa @0x18
0x2e2…2fc at0019 = EOL // 0x2fb @0x19
0x2e2…2fc }
0x2fc…302 9059 0480 STOP
0x2fc…302 LineComalBin {
0x2fc…302 ptr = 0x9059 // 0x2fc @0x0
0x2fc…302 lno = 0x01e0 // 0x2fe @0x2
0x2fc…302 at0004 = ╱8d╱ STOP ╱ // 0x300 @0x4
0x2fc…302 at0005 = EOL // 0x301 @0x5
0x2fc…302 }
0x302…308 (10,) 905f 0490 ENDIF
0x302…308 LineComalBin {
0x302…308 ptr = 0x905f // 0x302 @0x0
0x302…308 lno = 0x01ea // 0x304 @0x2
0x302…308 at0004 = ╱9b╱ ENDIF ╱ // 0x306 @0x4
0x302…308 at0005 = EOL // 0x307 @0x5
0x302…308 }
0x308…30e 9065 0500 ENDPROC
0x308…30e LineComalBin {
0x308…30e ptr = 0x9065 // 0x308 @0x0
0x308…30e lno = 0x01f4 // 0x30a @0x2
0x308…30e at0004 = ╱9f╱ ENDPROC ╱ // 0x30c @0x4
0x308…30e at0005 = EOL // 0x30d @0x5
0x308…30e }
0x30e…328 907f 0510 K1$="P641220:SYSTEM1"
0x30e…328 LineComalBin {
0x30e…328 ptr = 0x907f // 0x30e @0x0
0x30e…328 lno = 0x01fe // 0x310 @0x2
0x30e…328 at0004 = ╱4b╱K╱ // 0x312 @0x4
0x30e…328 at0005 = ╱31╱1╱ // 0x313 @0x5
0x30e…328 at0006 = ╱ef╱$╱ // 0x314 @0x6
0x30e…328 at0007 = ╱dc╱=╱ // 0x315 @0x7
0x30e…328 at0008 = ╱22╱"╱ // 0x316 @0x8
0x30e…328 at0009 = ╱50╱P╱ // 0x317 @0x9
0x30e…328 at000a = ╱36╱6╱ // 0x318 @0xa
0x30e…328 at000b = ╱34╱4╱ // 0x319 @0xb
0x30e…328 at000c = ╱31╱1╱ // 0x31a @0xc
0x30e…328 at000d = ╱32╱2╱ // 0x31b @0xd
0x30e…328 at000e = ╱32╱2╱ // 0x31c @0xe
0x30e…328 at000f = ╱30╱0╱ // 0x31d @0xf
0x30e…328 at0010 = ╱3a╱:╱ // 0x31e @0x10
0x30e…328 at0011 = ╱53╱S╱ // 0x31f @0x11
0x30e…328 at0012 = ╱59╱Y╱ // 0x320 @0x12
0x30e…328 at0013 = ╱53╱S╱ // 0x321 @0x13
0x30e…328 at0014 = ╱54╱T╱ // 0x322 @0x14
0x30e…328 at0015 = ╱45╱E╱ // 0x323 @0x15
0x30e…328 at0016 = ╱4d╱M╱ // 0x324 @0x16
0x30e…328 at0017 = ╱31╱1╱ // 0x325 @0x17
0x30e…328 at0018 = ╱22╱"╱ // 0x326 @0x18
0x30e…328 at0019 = EOL // 0x327 @0x19
0x30e…328 }
0x328…333 908a 0520 OPEN K1$,R
0x328…333 LineComalBin {
0x328…333 ptr = 0x908a // 0x328 @0x0
0x328…333 lno = 0x0208 // 0x32a @0x2
0x328…333 at0004 = ╱a7╱ OPEN ╱ // 0x32c @0x4
0x328…333 at0005 = ╱4b╱K╱ // 0x32d @0x5
0x328…333 at0006 = ╱31╱1╱ // 0x32e @0x6
0x328…333 at0007 = ╱ef╱$╱ // 0x32f @0x7
0x328…333 at0008 = ╱ec╱,╱ // 0x330 @0x8
0x328…333 at0009 = ╱52╱R╱ // 0x331 @0x9
0x328…333 at000a = EOL // 0x332 @0xa
0x328…333 }
0x333…344 909b 0530 FOR I=E TO 32
0x333…344 LineComalBin {
0x333…344 ptr = 0x909b // 0x333 @0x0
0x333…344 lno = 0x0212 // 0x335 @0x2
0x333…344 at0004 = ╱83╱ FOR ╱ // 0x337 @0x4
0x333…344 at0005 = ╱49╱I╱ // 0x338 @0x5
0x333…344 at0006 = ╱dc╱=╱ // 0x339 @0x6
0x333…344 at0007 = ╱45╱E╱ // 0x33a @0x7
0x333…344 at0008 = ╱b7╱ TO ╱ // 0x33b @0x8
0x333…344 at0009 = ╱33╱3╱ // 0x33c @0x9
0x333…344 at000a = ╱32╱2╱ // 0x33d @0xa
0x333…344 at000b = ╱fe00008006╱ // 0x33e @0xb
0x333…344 at0010 = EOL // 0x343 @0x10
0x333…344 }
0x344…35d 90b4 0540 GET K1$,I+10:K$(I)
0x344…35d LineComalBin {
0x344…35d ptr = 0x90b4 // 0x344 @0x0
0x344…35d lno = 0x021c // 0x346 @0x2
0x344…35d at0004 = ╱a9╱ GET ╱ // 0x348 @0x4
0x344…35d at0005 = ╱4b╱K╱ // 0x349 @0x5
0x344…35d at0006 = ╱31╱1╱ // 0x34a @0x6
0x344…35d at0007 = ╱ef╱$╱ // 0x34b @0x7
0x344…35d at0008 = ╱ec╱,╱ // 0x34c @0x8
0x344…35d at0009 = ╱49╱I╱ // 0x34d @0x9
0x344…35d at000a = ╱e2╱+╱ // 0x34e @0xa
0x344…35d at000b = ╱31╱1╱ // 0x34f @0xb
0x344…35d at000c = ╱30╱0╱ // 0x350 @0xc
0x344…35d at000d = ╱fe0000a004╱ // 0x351 @0xd
0x344…35d at0012 = ╱f0╱:╱ // 0x356 @0x12
0x344…35d at0013 = ╱4b╱K╱ // 0x357 @0x13
0x344…35d at0014 = ╱ef╱$╱ // 0x358 @0x14
0x344…35d at0015 = ╱ed╱(╱ // 0x359 @0x15
0x344…35d at0016 = ╱49╱I╱ // 0x35a @0x16
0x344…35d at0017 = ╱ee╱)╱ // 0x35b @0x17
0x344…35d at0018 = EOL // 0x35c @0x18
0x344…35d }
0x35d…375 90cc 0550 EXEC FEJL(W,8,K1$)
0x35d…375 LineComalBin {
0x35d…375 ptr = 0x90cc // 0x35d @0x0
0x35d…375 lno = 0x0226 // 0x35f @0x2
0x35d…375 at0004 = ╱9d╱ EXEC ╱ // 0x361 @0x4
0x35d…375 at0005 = ╱46╱F╱ // 0x362 @0x5
0x35d…375 at0006 = ╱45╱E╱ // 0x363 @0x6
0x35d…375 at0007 = ╱4a╱J╱ // 0x364 @0x7
0x35d…375 at0008 = ╱4c╱L╱ // 0x365 @0x8
0x35d…375 at0009 = ╱ed╱(╱ // 0x366 @0x9
0x35d…375 at000a = ╱57╱W╱ // 0x367 @0xa
0x35d…375 at000b = ╱ec╱,╱ // 0x368 @0xb
0x35d…375 at000c = ╱38╱8╱ // 0x369 @0xc
0x35d…375 at000d = ╱fe00008004╱ // 0x36a @0xd
0x35d…375 at0012 = ╱ec╱,╱ // 0x36f @0x12
0x35d…375 at0013 = ╱4b╱K╱ // 0x370 @0x13
0x35d…375 at0014 = ╱31╱1╱ // 0x371 @0x14
0x35d…375 at0015 = ╱ef╱$╱ // 0x372 @0x15
0x35d…375 at0016 = ╱ee╱)╱ // 0x373 @0x16
0x35d…375 at0017 = EOL // 0x374 @0x17
0x35d…375 }
0x375…37c 90d3 0560 NEXT I
0x375…37c LineComalBin {
0x375…37c ptr = 0x90d3 // 0x375 @0x0
0x375…37c lno = 0x0230 // 0x377 @0x2
0x375…37c at0004 = ╱84╱ NEXT ╱ // 0x379 @0x4
0x375…37c at0005 = ╱49╱I╱ // 0x37a @0x5
0x375…37c at0006 = EOL // 0x37b @0x6
0x375…37c }
0x37c…385 90dc 0570 CLOSE K1$
0x37c…385 LineComalBin {
0x37c…385 ptr = 0x90dc // 0x37c @0x0
0x37c…385 lno = 0x023a // 0x37e @0x2
0x37c…385 at0004 = ╱a8╱ CLOSE ╱ // 0x380 @0x4
0x37c…385 at0005 = ╱4b╱K╱ // 0x381 @0x5
0x37c…385 at0006 = ╱31╱1╱ // 0x382 @0x6
0x37c…385 at0007 = ╱ef╱$╱ // 0x383 @0x7
0x37c…385 at0008 = EOL // 0x384 @0x8
0x37c…385 }
0x385…39e 90f5 0580 EXEC FEJL(W,11,K1$)
0x385…39e LineComalBin {
0x385…39e ptr = 0x90f5 // 0x385 @0x0
0x385…39e lno = 0x0244 // 0x387 @0x2
0x385…39e at0004 = ╱9d╱ EXEC ╱ // 0x389 @0x4
0x385…39e at0005 = ╱46╱F╱ // 0x38a @0x5
0x385…39e at0006 = ╱45╱E╱ // 0x38b @0x6
0x385…39e at0007 = ╱4a╱J╱ // 0x38c @0x7
0x385…39e at0008 = ╱4c╱L╱ // 0x38d @0x8
0x385…39e at0009 = ╱ed╱(╱ // 0x38e @0x9
0x385…39e at000a = ╱57╱W╱ // 0x38f @0xa
0x385…39e at000b = ╱ec╱,╱ // 0x390 @0xb
0x385…39e at000c = ╱31╱1╱ // 0x391 @0xc
0x385…39e at000d = ╱31╱1╱ // 0x392 @0xd
0x385…39e at000e = ╱fe0000b004╱ // 0x393 @0xe
0x385…39e at0013 = ╱ec╱,╱ // 0x398 @0x13
0x385…39e at0014 = ╱4b╱K╱ // 0x399 @0x14
0x385…39e at0015 = ╱31╱1╱ // 0x39a @0x15
0x385…39e at0016 = ╱ef╱$╱ // 0x39b @0x16
0x385…39e at0017 = ╱ee╱)╱ // 0x39c @0x17
0x385…39e at0018 = EOL // 0x39d @0x18
0x385…39e }
0x39e…3ba 9111 0590 K2$="P6412"+K$(26)
0x39e…3ba LineComalBin {
0x39e…3ba ptr = 0x9111 // 0x39e @0x0
0x39e…3ba lno = 0x024e // 0x3a0 @0x2
0x39e…3ba at0004 = ╱4b╱K╱ // 0x3a2 @0x4
0x39e…3ba at0005 = ╱32╱2╱ // 0x3a3 @0x5
0x39e…3ba at0006 = ╱ef╱$╱ // 0x3a4 @0x6
0x39e…3ba at0007 = ╱dc╱=╱ // 0x3a5 @0x7
0x39e…3ba at0008 = ╱22╱"╱ // 0x3a6 @0x8
0x39e…3ba at0009 = ╱50╱P╱ // 0x3a7 @0x9
0x39e…3ba at000a = ╱36╱6╱ // 0x3a8 @0xa
0x39e…3ba at000b = ╱34╱4╱ // 0x3a9 @0xb
0x39e…3ba at000c = ╱31╱1╱ // 0x3aa @0xc
0x39e…3ba at000d = ╱32╱2╱ // 0x3ab @0xd
0x39e…3ba at000e = ╱22╱"╱ // 0x3ac @0xe
0x39e…3ba at000f = ╱f1╱+╱ // 0x3ad @0xf
0x39e…3ba at0010 = ╱4b╱K╱ // 0x3ae @0x10
0x39e…3ba at0011 = ╱ef╱$╱ // 0x3af @0x11
0x39e…3ba at0012 = ╱ed╱(╱ // 0x3b0 @0x12
0x39e…3ba at0013 = ╱32╱2╱ // 0x3b1 @0x13
0x39e…3ba at0014 = ╱36╱6╱ // 0x3b2 @0x14
0x39e…3ba at0015 = ╱fe0000d005╱ // 0x3b3 @0x15
0x39e…3ba at001a = ╱ee╱)╱ // 0x3b8 @0x1a
0x39e…3ba at001b = EOL // 0x3b9 @0x1b
0x39e…3ba }
0x3ba…3c5 911c 0600 OPEN K2$,R
0x3ba…3c5 LineComalBin {
0x3ba…3c5 ptr = 0x911c // 0x3ba @0x0
0x3ba…3c5 lno = 0x0258 // 0x3bc @0x2
0x3ba…3c5 at0004 = ╱a7╱ OPEN ╱ // 0x3be @0x4
0x3ba…3c5 at0005 = ╱4b╱K╱ // 0x3bf @0x5
0x3ba…3c5 at0006 = ╱32╱2╱ // 0x3c0 @0x6
0x3ba…3c5 at0007 = ╱ef╱$╱ // 0x3c1 @0x7
0x3ba…3c5 at0008 = ╱ec╱,╱ // 0x3c2 @0x8
0x3ba…3c5 at0009 = ╱52╱R╱ // 0x3c3 @0x9
0x3ba…3c5 at000a = EOL // 0x3c4 @0xa
0x3ba…3c5 }
0x3c5…3de 9135 0610 EXEC FEJL(11,E,K2$)
0x3c5…3de LineComalBin {
0x3c5…3de ptr = 0x9135 // 0x3c5 @0x0
0x3c5…3de lno = 0x0262 // 0x3c7 @0x2
0x3c5…3de at0004 = ╱9d╱ EXEC ╱ // 0x3c9 @0x4
0x3c5…3de at0005 = ╱46╱F╱ // 0x3ca @0x5
0x3c5…3de at0006 = ╱45╱E╱ // 0x3cb @0x6
0x3c5…3de at0007 = ╱4a╱J╱ // 0x3cc @0x7
0x3c5…3de at0008 = ╱4c╱L╱ // 0x3cd @0x8
0x3c5…3de at0009 = ╱ed╱(╱ // 0x3ce @0x9
0x3c5…3de at000a = ╱31╱1╱ // 0x3cf @0xa
0x3c5…3de at000b = ╱31╱1╱ // 0x3d0 @0xb
0x3c5…3de at000c = ╱fe0000b004╱ // 0x3d1 @0xc
0x3c5…3de at0011 = ╱ec╱,╱ // 0x3d6 @0x11
0x3c5…3de at0012 = ╱45╱E╱ // 0x3d7 @0x12
0x3c5…3de at0013 = ╱ec╱,╱ // 0x3d8 @0x13
0x3c5…3de at0014 = ╱4b╱K╱ // 0x3d9 @0x14
0x3c5…3de at0015 = ╱32╱2╱ // 0x3da @0x15
0x3c5…3de at0016 = ╱ef╱$╱ // 0x3db @0x16
0x3c5…3de at0017 = ╱ee╱)╱ // 0x3dc @0x17
0x3c5…3de at0018 = EOL // 0x3dd @0x18
0x3c5…3de }
0x3de…43e 9195 0620 GET K2$,12:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x3de…43e LineComalBin {
0x3de…43e ptr = 0x9195 // 0x3de @0x0
0x3de…43e lno = 0x026c // 0x3e0 @0x2
0x3de…43e at0004 = ╱a9╱ GET ╱ // 0x3e2 @0x4
0x3de…43e at0005 = ╱4b╱K╱ // 0x3e3 @0x5
0x3de…43e at0006 = ╱32╱2╱ // 0x3e4 @0x6
0x3de…43e at0007 = ╱ef╱$╱ // 0x3e5 @0x7
0x3de…43e at0008 = ╱ec╱,╱ // 0x3e6 @0x8
0x3de…43e at0009 = ╱31╱1╱ // 0x3e7 @0x9
0x3de…43e at000a = ╱32╱2╱ // 0x3e8 @0xa
0x3de…43e at000b = ╱fe0000c004╱ // 0x3e9 @0xb
0x3de…43e at0010 = ╱f0╱:╱ // 0x3ee @0x10
0x3de…43e at0011 = ╱54╱T╱ // 0x3ef @0x11
0x3de…43e at0012 = ╱31╱1╱ // 0x3f0 @0x12
0x3de…43e at0013 = ╱ed╱(╱ // 0x3f1 @0x13
0x3de…43e at0014 = ╱45╱E╱ // 0x3f2 @0x14
0x3de…43e at0015 = ╱ee╱)╱ // 0x3f3 @0x15
0x3de…43e at0016 = ╱ec╱,╱ // 0x3f4 @0x16
0x3de…43e at0017 = ╱54╱T╱ // 0x3f5 @0x17
0x3de…43e at0018 = ╱31╱1╱ // 0x3f6 @0x18
0x3de…43e at0019 = ╱ed╱(╱ // 0x3f7 @0x19
0x3de…43e at001a = ╱47╱G╱ // 0x3f8 @0x1a
0x3de…43e at001b = ╱ee╱)╱ // 0x3f9 @0x1b
0x3de…43e at001c = ╱ec╱,╱ // 0x3fa @0x1c
0x3de…43e at001d = ╱54╱T╱ // 0x3fb @0x1d
0x3de…43e at001e = ╱31╱1╱ // 0x3fc @0x1e
0x3de…43e at001f = ╱ed╱(╱ // 0x3fd @0x1f
0x3de…43e at0020 = ╱56╱V╱ // 0x3fe @0x20
0x3de…43e at0021 = ╱ee╱)╱ // 0x3ff @0x21
0x3de…43e at0022 = ╱ec╱,╱ // 0x400 @0x22
0x3de…43e at0023 = ╱54╱T╱ // 0x401 @0x23
0x3de…43e at0024 = ╱31╱1╱ // 0x402 @0x24
0x3de…43e at0025 = ╱ed╱(╱ // 0x403 @0x25
0x3de…43e at0026 = ╱34╱4╱ // 0x404 @0x26
0x3de…43e at0027 = ╱fe00008003╱ // 0x405 @0x27
0x3de…43e at002c = ╱ee╱)╱ // 0x40a @0x2c
0x3de…43e at002d = ╱ec╱,╱ // 0x40b @0x2d
0x3de…43e at002e = ╱54╱T╱ // 0x40c @0x2e
0x3de…43e at002f = ╱31╱1╱ // 0x40d @0x2f
0x3de…43e at0030 = ╱ed╱(╱ // 0x40e @0x30
0x3de…43e at0031 = ╱35╱5╱ // 0x40f @0x31
0x3de…43e at0032 = ╱fe0000a003╱ // 0x410 @0x32
0x3de…43e at0037 = ╱ee╱)╱ // 0x415 @0x37
0x3de…43e at0038 = ╱ec╱,╱ // 0x416 @0x38
0x3de…43e at0039 = ╱54╱T╱ // 0x417 @0x39
0x3de…43e at003a = ╱31╱1╱ // 0x418 @0x3a
0x3de…43e at003b = ╱ed╱(╱ // 0x419 @0x3b
0x3de…43e at003c = ╱36╱6╱ // 0x41a @0x3c
0x3de…43e at003d = ╱fe0000c003╱ // 0x41b @0x3d
0x3de…43e at0042 = ╱ee╱)╱ // 0x420 @0x42
0x3de…43e at0043 = ╱ec╱,╱ // 0x421 @0x43
0x3de…43e at0044 = ╱54╱T╱ // 0x422 @0x44
0x3de…43e at0045 = ╱31╱1╱ // 0x423 @0x45
0x3de…43e at0046 = ╱ed╱(╱ // 0x424 @0x46
0x3de…43e at0047 = ╱37╱7╱ // 0x425 @0x47
0x3de…43e at0048 = ╱fe0000e003╱ // 0x426 @0x48
0x3de…43e at004d = ╱ee╱)╱ // 0x42b @0x4d
0x3de…43e at004e = ╱ec╱,╱ // 0x42c @0x4e
0x3de…43e at004f = ╱54╱T╱ // 0x42d @0x4f
0x3de…43e at0050 = ╱31╱1╱ // 0x42e @0x50
0x3de…43e at0051 = ╱ed╱(╱ // 0x42f @0x51
0x3de…43e at0052 = ╱38╱8╱ // 0x430 @0x52
0x3de…43e at0053 = ╱fe00008004╱ // 0x431 @0x53
0x3de…43e at0058 = ╱ee╱)╱ // 0x436 @0x58
0x3de…43e at0059 = ╱ec╱,╱ // 0x437 @0x59
0x3de…43e at005a = ╱54╱T╱ // 0x438 @0x5a
0x3de…43e at005b = ╱31╱1╱ // 0x439 @0x5b
0x3de…43e at005c = ╱ed╱(╱ // 0x43a @0x5c
0x3de…43e at005d = ╱57╱W╱ // 0x43b @0x5d
0x3de…43e at005e = ╱ee╱)╱ // 0x43c @0x5e
0x3de…43e at005f = EOL // 0x43d @0x5f
0x3de…43e }
0x43e…45d 91b4 0630 EXEC FEJL(11,10,K2$)
0x43e…45d LineComalBin {
0x43e…45d ptr = 0x91b4 // 0x43e @0x0
0x43e…45d lno = 0x0276 // 0x440 @0x2
0x43e…45d at0004 = ╱9d╱ EXEC ╱ // 0x442 @0x4
0x43e…45d at0005 = ╱46╱F╱ // 0x443 @0x5
0x43e…45d at0006 = ╱45╱E╱ // 0x444 @0x6
0x43e…45d at0007 = ╱4a╱J╱ // 0x445 @0x7
0x43e…45d at0008 = ╱4c╱L╱ // 0x446 @0x8
0x43e…45d at0009 = ╱ed╱(╱ // 0x447 @0x9
0x43e…45d at000a = ╱31╱1╱ // 0x448 @0xa
0x43e…45d at000b = ╱31╱1╱ // 0x449 @0xb
0x43e…45d at000c = ╱fe0000b004╱ // 0x44a @0xc
0x43e…45d at0011 = ╱ec╱,╱ // 0x44f @0x11
0x43e…45d at0012 = ╱31╱1╱ // 0x450 @0x12
0x43e…45d at0013 = ╱30╱0╱ // 0x451 @0x13
0x43e…45d at0014 = ╱fe0000a004╱ // 0x452 @0x14
0x43e…45d at0019 = ╱ec╱,╱ // 0x457 @0x19
0x43e…45d at001a = ╱4b╱K╱ // 0x458 @0x1a
0x43e…45d at001b = ╱32╱2╱ // 0x459 @0x1b
0x43e…45d at001c = ╱ef╱$╱ // 0x45a @0x1c
0x43e…45d at001d = ╱ee╱)╱ // 0x45b @0x1d
0x43e…45d at001e = EOL // 0x45c @0x1e
0x43e…45d }
0x45d…47d 91d4 0640 GET K2$,17:GENTAG,MAFSLUT
0x45d…47d LineComalBin {
0x45d…47d ptr = 0x91d4 // 0x45d @0x0
0x45d…47d lno = 0x0280 // 0x45f @0x2
0x45d…47d at0004 = ╱a9╱ GET ╱ // 0x461 @0x4
0x45d…47d at0005 = ╱4b╱K╱ // 0x462 @0x5
0x45d…47d at0006 = ╱32╱2╱ // 0x463 @0x6
0x45d…47d at0007 = ╱ef╱$╱ // 0x464 @0x7
0x45d…47d at0008 = ╱ec╱,╱ // 0x465 @0x8
0x45d…47d at0009 = ╱31╱1╱ // 0x466 @0x9
0x45d…47d at000a = ╱37╱7╱ // 0x467 @0xa
0x45d…47d at000b = ╱fe00008805╱ // 0x468 @0xb
0x45d…47d at0010 = ╱f0╱:╱ // 0x46d @0x10
0x45d…47d at0011 = ╱47╱G╱ // 0x46e @0x11
0x45d…47d at0012 = ╱45╱E╱ // 0x46f @0x12
0x45d…47d at0013 = ╱4e╱N╱ // 0x470 @0x13
0x45d…47d at0014 = ╱54╱T╱ // 0x471 @0x14
0x45d…47d at0015 = ╱41╱A╱ // 0x472 @0x15
0x45d…47d at0016 = ╱47╱G╱ // 0x473 @0x16
0x45d…47d at0017 = ╱ec╱,╱ // 0x474 @0x17
0x45d…47d at0018 = ╱4d╱M╱ // 0x475 @0x18
0x45d…47d at0019 = ╱41╱A╱ // 0x476 @0x19
0x45d…47d at001a = ╱46╱F╱ // 0x477 @0x1a
0x45d…47d at001b = ╱53╱S╱ // 0x478 @0x1b
0x45d…47d at001c = ╱4c╱L╱ // 0x479 @0x1c
0x45d…47d at001d = ╱55╱U╱ // 0x47a @0x1d
0x45d…47d at001e = ╱54╱T╱ // 0x47b @0x1e
0x45d…47d at001f = EOL // 0x47c @0x1f
0x45d…47d }
0x47d…486 91dd 0650 CLOSE K2$
0x47d…486 LineComalBin {
0x47d…486 ptr = 0x91dd // 0x47d @0x0
0x47d…486 lno = 0x028a // 0x47f @0x2
0x47d…486 at0004 = ╱a8╱ CLOSE ╱ // 0x481 @0x4
0x47d…486 at0005 = ╱4b╱K╱ // 0x482 @0x5
0x47d…486 at0006 = ╱32╱2╱ // 0x483 @0x6
0x47d…486 at0007 = ╱ef╱$╱ // 0x484 @0x7
0x47d…486 at0008 = EOL // 0x485 @0x8
0x47d…486 }
0x486…49f 9879 0660 EXEC FEJL(11,G,K2$)
0x486…49f LineComalBin {
0x486…49f ptr = 0x9879 // 0x486 @0x0
0x486…49f lno = 0x0294 // 0x488 @0x2
0x486…49f at0004 = ╱9d╱ EXEC ╱ // 0x48a @0x4
0x486…49f at0005 = ╱46╱F╱ // 0x48b @0x5
0x486…49f at0006 = ╱45╱E╱ // 0x48c @0x6
0x486…49f at0007 = ╱4a╱J╱ // 0x48d @0x7
0x486…49f at0008 = ╱4c╱L╱ // 0x48e @0x8
0x486…49f at0009 = ╱ed╱(╱ // 0x48f @0x9
0x486…49f at000a = ╱31╱1╱ // 0x490 @0xa
0x486…49f at000b = ╱31╱1╱ // 0x491 @0xb
0x486…49f at000c = ╱fe0000b004╱ // 0x492 @0xc
0x486…49f at0011 = ╱ec╱,╱ // 0x497 @0x11
0x486…49f at0012 = ╱47╱G╱ // 0x498 @0x12
0x486…49f at0013 = ╱ec╱,╱ // 0x499 @0x13
0x486…49f at0014 = ╱4b╱K╱ // 0x49a @0x14
0x486…49f at0015 = ╱32╱2╱ // 0x49b @0x15
0x486…49f at0016 = ╱ef╱$╱ // 0x49c @0x16
0x486…49f at0017 = ╱ee╱)╱ // 0x49d @0x17
0x486…49f at0018 = EOL // 0x49e @0x18
0x486…49f }
0x49f…4c9 9220 0670 DREVFRA$="P2";DREVTIL$="P3";TYPE$="K"
0x49f…4c9 LineComalBin {
0x49f…4c9 ptr = 0x9220 // 0x49f @0x0
0x49f…4c9 lno = 0x029e // 0x4a1 @0x2
0x49f…4c9 at0004 = ╱44╱D╱ // 0x4a3 @0x4
0x49f…4c9 at0005 = ╱52╱R╱ // 0x4a4 @0x5
0x49f…4c9 at0006 = ╱45╱E╱ // 0x4a5 @0x6
0x49f…4c9 at0007 = ╱56╱V╱ // 0x4a6 @0x7
0x49f…4c9 at0008 = ╱46╱F╱ // 0x4a7 @0x8
0x49f…4c9 at0009 = ╱52╱R╱ // 0x4a8 @0x9
0x49f…4c9 at000a = ╱41╱A╱ // 0x4a9 @0xa
0x49f…4c9 at000b = ╱ef╱$╱ // 0x4aa @0xb
0x49f…4c9 at000c = ╱dc╱=╱ // 0x4ab @0xc
0x49f…4c9 at000d = ╱22╱"╱ // 0x4ac @0xd
0x49f…4c9 at000e = ╱50╱P╱ // 0x4ad @0xe
0x49f…4c9 at000f = ╱32╱2╱ // 0x4ae @0xf
0x49f…4c9 at0010 = ╱22╱"╱ // 0x4af @0x10
0x49f…4c9 at0011 = ╱eb╱;╱ // 0x4b0 @0x11
0x49f…4c9 at0012 = ╱44╱D╱ // 0x4b1 @0x12
0x49f…4c9 at0013 = ╱52╱R╱ // 0x4b2 @0x13
0x49f…4c9 at0014 = ╱45╱E╱ // 0x4b3 @0x14
0x49f…4c9 at0015 = ╱56╱V╱ // 0x4b4 @0x15
0x49f…4c9 at0016 = ╱54╱T╱ // 0x4b5 @0x16
0x49f…4c9 at0017 = ╱49╱I╱ // 0x4b6 @0x17
0x49f…4c9 at0018 = ╱4c╱L╱ // 0x4b7 @0x18
0x49f…4c9 at0019 = ╱ef╱$╱ // 0x4b8 @0x19
0x49f…4c9 at001a = ╱dc╱=╱ // 0x4b9 @0x1a
0x49f…4c9 at001b = ╱22╱"╱ // 0x4ba @0x1b
0x49f…4c9 at001c = ╱50╱P╱ // 0x4bb @0x1c
0x49f…4c9 at001d = ╱33╱3╱ // 0x4bc @0x1d
0x49f…4c9 at001e = ╱22╱"╱ // 0x4bd @0x1e
0x49f…4c9 at001f = ╱eb╱;╱ // 0x4be @0x1f
0x49f…4c9 at0020 = ╱54╱T╱ // 0x4bf @0x20
0x49f…4c9 at0021 = ╱59╱Y╱ // 0x4c0 @0x21
0x49f…4c9 at0022 = ╱50╱P╱ // 0x4c1 @0x22
0x49f…4c9 at0023 = ╱45╱E╱ // 0x4c2 @0x23
0x49f…4c9 at0024 = ╱ef╱$╱ // 0x4c3 @0x24
0x49f…4c9 at0025 = ╱dc╱=╱ // 0x4c4 @0x25
0x49f…4c9 at0026 = ╱22╱"╱ // 0x4c5 @0x26
0x49f…4c9 at0027 = ╱4b╱K╱ // 0x4c6 @0x27
0x49f…4c9 at0028 = ╱22╱"╱ // 0x4c7 @0x28
0x49f…4c9 at0029 = EOL // 0x4c8 @0x29
0x49f…4c9 }
0x4c9…4dc 9233 0680 J=B;FLAG=B;H=B
0x4c9…4dc LineComalBin {
0x4c9…4dc ptr = 0x9233 // 0x4c9 @0x0
0x4c9…4dc lno = 0x02a8 // 0x4cb @0x2
0x4c9…4dc at0004 = ╱4a╱J╱ // 0x4cd @0x4
0x4c9…4dc at0005 = ╱dc╱=╱ // 0x4ce @0x5
0x4c9…4dc at0006 = ╱42╱B╱ // 0x4cf @0x6
0x4c9…4dc at0007 = ╱eb╱;╱ // 0x4d0 @0x7
0x4c9…4dc at0008 = ╱46╱F╱ // 0x4d1 @0x8
0x4c9…4dc at0009 = ╱4c╱L╱ // 0x4d2 @0x9
0x4c9…4dc at000a = ╱41╱A╱ // 0x4d3 @0xa
0x4c9…4dc at000b = ╱47╱G╱ // 0x4d4 @0xb
0x4c9…4dc at000c = ╱dc╱=╱ // 0x4d5 @0xc
0x4c9…4dc at000d = ╱42╱B╱ // 0x4d6 @0xd
0x4c9…4dc at000e = ╱eb╱;╱ // 0x4d7 @0xe
0x4c9…4dc at000f = ╱48╱H╱ // 0x4d8 @0xf
0x4c9…4dc at0010 = ╱dc╱=╱ // 0x4d9 @0x10
0x4c9…4dc at0011 = ╱42╱B╱ // 0x4da @0x11
0x4c9…4dc at0012 = EOL // 0x4db @0x12
0x4c9…4dc }
0x4dc…4fc 9253 0690 P=MAFSLUT+E;PLADE=20+P
0x4dc…4fc LineComalBin {
0x4dc…4fc ptr = 0x9253 // 0x4dc @0x0
0x4dc…4fc lno = 0x02b2 // 0x4de @0x2
0x4dc…4fc at0004 = ╱50╱P╱ // 0x4e0 @0x4
0x4dc…4fc at0005 = ╱dc╱=╱ // 0x4e1 @0x5
0x4dc…4fc at0006 = ╱4d╱M╱ // 0x4e2 @0x6
0x4dc…4fc at0007 = ╱41╱A╱ // 0x4e3 @0x7
0x4dc…4fc at0008 = ╱46╱F╱ // 0x4e4 @0x8
0x4dc…4fc at0009 = ╱53╱S╱ // 0x4e5 @0x9
0x4dc…4fc at000a = ╱4c╱L╱ // 0x4e6 @0xa
0x4dc…4fc at000b = ╱55╱U╱ // 0x4e7 @0xb
0x4dc…4fc at000c = ╱54╱T╱ // 0x4e8 @0xc
0x4dc…4fc at000d = ╱e2╱+╱ // 0x4e9 @0xd
0x4dc…4fc at000e = ╱45╱E╱ // 0x4ea @0xe
0x4dc…4fc at000f = ╱eb╱;╱ // 0x4eb @0xf
0x4dc…4fc at0010 = ╱50╱P╱ // 0x4ec @0x10
0x4dc…4fc at0011 = ╱4c╱L╱ // 0x4ed @0x11
0x4dc…4fc at0012 = ╱41╱A╱ // 0x4ee @0x12
0x4dc…4fc at0013 = ╱44╱D╱ // 0x4ef @0x13
0x4dc…4fc at0014 = ╱45╱E╱ // 0x4f0 @0x14
0x4dc…4fc at0015 = ╱dc╱=╱ // 0x4f1 @0x15
0x4dc…4fc at0016 = ╱32╱2╱ // 0x4f2 @0x16
0x4dc…4fc at0017 = ╱30╱0╱ // 0x4f3 @0x17
0x4dc…4fc at0018 = ╱fe0000a005╱ // 0x4f4 @0x18
0x4dc…4fc at001d = ╱e2╱+╱ // 0x4f9 @0x1d
0x4dc…4fc at001e = ╱50╱P╱ // 0x4fa @0x1e
0x4dc…4fc at001f = EOL // 0x4fb @0x1f
0x4dc…4fc }
0x4fc…51d 9274 0700 IF MAFSLUT=V THEN P=E;PLADE=21
0x4fc…51d LineComalBin {
0x4fc…51d ptr = 0x9274 // 0x4fc @0x0
0x4fc…51d lno = 0x02bc // 0x4fe @0x2
0x4fc…51d at0004 = ╱82╱ IF ╱ // 0x500 @0x4
0x4fc…51d at0005 = ╱4d╱M╱ // 0x501 @0x5
0x4fc…51d at0006 = ╱41╱A╱ // 0x502 @0x6
0x4fc…51d at0007 = ╱46╱F╱ // 0x503 @0x7
0x4fc…51d at0008 = ╱53╱S╱ // 0x504 @0x8
0x4fc…51d at0009 = ╱4c╱L╱ // 0x505 @0x9
0x4fc…51d at000a = ╱55╱U╱ // 0x506 @0xa
0x4fc…51d at000b = ╱54╱T╱ // 0x507 @0xb
0x4fc…51d at000c = ╱dc╱=╱ // 0x508 @0xc
0x4fc…51d at000d = ╱56╱V╱ // 0x509 @0xd
0x4fc…51d at000e = ╱b6╱ THEN ╱ // 0x50a @0xe
0x4fc…51d at000f = ╱50╱P╱ // 0x50b @0xf
0x4fc…51d at0010 = ╱dc╱=╱ // 0x50c @0x10
0x4fc…51d at0011 = ╱45╱E╱ // 0x50d @0x11
0x4fc…51d at0012 = ╱eb╱;╱ // 0x50e @0x12
0x4fc…51d at0013 = ╱50╱P╱ // 0x50f @0x13
0x4fc…51d at0014 = ╱4c╱L╱ // 0x510 @0x14
0x4fc…51d at0015 = ╱41╱A╱ // 0x511 @0x15
0x4fc…51d at0016 = ╱44╱D╱ // 0x512 @0x16
0x4fc…51d at0017 = ╱45╱E╱ // 0x513 @0x17
0x4fc…51d at0018 = ╱dc╱=╱ // 0x514 @0x18
0x4fc…51d at0019 = ╱32╱2╱ // 0x515 @0x19
0x4fc…51d at001a = ╱31╱1╱ // 0x516 @0x1a
0x4fc…51d at001b = ╱fe0000a805╱ // 0x517 @0x1b
0x4fc…51d at0020 = EOL // 0x51c @0x20
0x4fc…51d }
0x51d…52e (17,) 9285 0710 FOR I=E TO 32
0x51d…52e LineComalBin {
0x51d…52e ptr = 0x9285 // 0x51d @0x0
0x51d…52e lno = 0x02c6 // 0x51f @0x2
0x51d…52e at0004 = ╱83╱ FOR ╱ // 0x521 @0x4
0x51d…52e at0005 = ╱49╱I╱ // 0x522 @0x5
0x51d…52e at0006 = ╱dc╱=╱ // 0x523 @0x6
0x51d…52e at0007 = ╱45╱E╱ // 0x524 @0x7
0x51d…52e at0008 = ╱b7╱ TO ╱ // 0x525 @0x8
0x51d…52e at0009 = ╱33╱3╱ // 0x526 @0x9
0x51d…52e at000a = ╱32╱2╱ // 0x527 @0xa
0x51d…52e at000b = ╱fe00008006╱ // 0x528 @0xb
0x51d…52e at0010 = EOL // 0x52d @0x10
0x51d…52e }
0x52e…538 928f 0730 J=J+E
0x52e…538 LineComalBin {
0x52e…538 ptr = 0x928f // 0x52e @0x0
0x52e…538 lno = 0x02da // 0x530 @0x2
0x52e…538 at0004 = ╱4a╱J╱ // 0x532 @0x4
0x52e…538 at0005 = ╱dc╱=╱ // 0x533 @0x5
0x52e…538 at0006 = ╱4a╱J╱ // 0x534 @0x6
0x52e…538 at0007 = ╱e2╱+╱ // 0x535 @0x7
0x52e…538 at0008 = ╱45╱E╱ // 0x536 @0x8
0x52e…538 at0009 = EOL // 0x537 @0x9
0x52e…538 }
0x538…585 92dc 0740 FRANAVN$(J)=K$(I,4:LEN(K$(I))-V);TILNAVN$(J)=FRANAVN$(J)+CHR(P+48)
0x538…585 LineComalBin {
0x538…585 ptr = 0x92dc // 0x538 @0x0
0x538…585 lno = 0x02e4 // 0x53a @0x2
0x538…585 at0004 = ╱46╱F╱ // 0x53c @0x4
0x538…585 at0005 = ╱52╱R╱ // 0x53d @0x5
0x538…585 at0006 = ╱41╱A╱ // 0x53e @0x6
0x538…585 at0007 = ╱4e╱N╱ // 0x53f @0x7
0x538…585 at0008 = ╱41╱A╱ // 0x540 @0x8
0x538…585 at0009 = ╱56╱V╱ // 0x541 @0x9
0x538…585 at000a = ╱4e╱N╱ // 0x542 @0xa
0x538…585 at000b = ╱ef╱$╱ // 0x543 @0xb
0x538…585 at000c = ╱ed╱(╱ // 0x544 @0xc
0x538…585 at000d = ╱4a╱J╱ // 0x545 @0xd
0x538…585 at000e = ╱ee╱)╱ // 0x546 @0xe
0x538…585 at000f = ╱dc╱=╱ // 0x547 @0xf
0x538…585 at0010 = ╱4b╱K╱ // 0x548 @0x10
0x538…585 at0011 = ╱ef╱$╱ // 0x549 @0x11
0x538…585 at0012 = ╱ed╱(╱ // 0x54a @0x12
0x538…585 at0013 = ╱49╱I╱ // 0x54b @0x13
0x538…585 at0014 = ╱ec╱,╱ // 0x54c @0x14
0x538…585 at0015 = ╱34╱4╱ // 0x54d @0x15
0x538…585 at0016 = ╱fe00008003╱ // 0x54e @0x16
0x538…585 at001b = ╱f0╱:╱ // 0x553 @0x1b
0x538…585 at001c = ╱cc╱LEN╱ // 0x554 @0x1c
0x538…585 at001d = ╱ed╱(╱ // 0x555 @0x1d
0x538…585 at001e = ╱4b╱K╱ // 0x556 @0x1e
0x538…585 at001f = ╱ef╱$╱ // 0x557 @0x1f
0x538…585 at0020 = ╱ed╱(╱ // 0x558 @0x20
0x538…585 at0021 = ╱49╱I╱ // 0x559 @0x21
0x538…585 at0022 = ╱ee╱)╱ // 0x55a @0x22
0x538…585 at0023 = ╱ee╱)╱ // 0x55b @0x23
0x538…585 at0024 = ╱e3╱-╱ // 0x55c @0x24
0x538…585 at0025 = ╱56╱V╱ // 0x55d @0x25
0x538…585 at0026 = ╱ee╱)╱ // 0x55e @0x26
0x538…585 at0027 = ╱eb╱;╱ // 0x55f @0x27
0x538…585 at0028 = ╱54╱T╱ // 0x560 @0x28
0x538…585 at0029 = ╱49╱I╱ // 0x561 @0x29
0x538…585 at002a = ╱4c╱L╱ // 0x562 @0x2a
0x538…585 at002b = ╱4e╱N╱ // 0x563 @0x2b
0x538…585 at002c = ╱41╱A╱ // 0x564 @0x2c
0x538…585 at002d = ╱56╱V╱ // 0x565 @0x2d
0x538…585 at002e = ╱4e╱N╱ // 0x566 @0x2e
0x538…585 at002f = ╱ef╱$╱ // 0x567 @0x2f
0x538…585 at0030 = ╱ed╱(╱ // 0x568 @0x30
0x538…585 at0031 = ╱4a╱J╱ // 0x569 @0x31
0x538…585 at0032 = ╱ee╱)╱ // 0x56a @0x32
0x538…585 at0033 = ╱dc╱=╱ // 0x56b @0x33
0x538…585 at0034 = ╱46╱F╱ // 0x56c @0x34
0x538…585 at0035 = ╱52╱R╱ // 0x56d @0x35
0x538…585 at0036 = ╱41╱A╱ // 0x56e @0x36
0x538…585 at0037 = ╱4e╱N╱ // 0x56f @0x37
0x538…585 at0038 = ╱41╱A╱ // 0x570 @0x38
0x538…585 at0039 = ╱56╱V╱ // 0x571 @0x39
0x538…585 at003a = ╱4e╱N╱ // 0x572 @0x3a
0x538…585 at003b = ╱ef╱$╱ // 0x573 @0x3b
0x538…585 at003c = ╱ed╱(╱ // 0x574 @0x3c
0x538…585 at003d = ╱4a╱J╱ // 0x575 @0x3d
0x538…585 at003e = ╱ee╱)╱ // 0x576 @0x3e
0x538…585 at003f = ╱f1╱+╱ // 0x577 @0x3f
0x538…585 at0040 = ╱cf╱CHR╱ // 0x578 @0x40
0x538…585 at0041 = ╱ed╱(╱ // 0x579 @0x41
0x538…585 at0042 = ╱50╱P╱ // 0x57a @0x42
0x538…585 at0043 = ╱e2╱+╱ // 0x57b @0x43
0x538…585 at0044 = ╱34╱4╱ // 0x57c @0x44
0x538…585 at0045 = ╱38╱8╱ // 0x57d @0x45
0x538…585 at0046 = ╱fe0000c006╱ // 0x57e @0x46
0x538…585 at004b = ╱ee╱)╱ // 0x583 @0x4b
0x538…585 at004c = EOL // 0x584 @0x4c
0x538…585 }
0x585…58c 92e3 0810 NEXT I
0x585…58c LineComalBin {
0x585…58c ptr = 0x92e3 // 0x585 @0x0
0x585…58c lno = 0x032a // 0x587 @0x2
0x585…58c at0004 = ╱84╱ NEXT ╱ // 0x589 @0x4
0x585…58c at0005 = ╱49╱I╱ // 0x58a @0x5
0x585…58c at0006 = EOL // 0x58b @0x6
0x585…58c }
0x58c…5c4 931b 0820 J=J+E;FRANAVN$(J)="SYSTEM1";TILNAVN$(J)=FRANAVN$(J)
0x58c…5c4 LineComalBin {
0x58c…5c4 ptr = 0x931b // 0x58c @0x0
0x58c…5c4 lno = 0x0334 // 0x58e @0x2
0x58c…5c4 at0004 = ╱4a╱J╱ // 0x590 @0x4
0x58c…5c4 at0005 = ╱dc╱=╱ // 0x591 @0x5
0x58c…5c4 at0006 = ╱4a╱J╱ // 0x592 @0x6
0x58c…5c4 at0007 = ╱e2╱+╱ // 0x593 @0x7
0x58c…5c4 at0008 = ╱45╱E╱ // 0x594 @0x8
0x58c…5c4 at0009 = ╱eb╱;╱ // 0x595 @0x9
0x58c…5c4 at000a = ╱46╱F╱ // 0x596 @0xa
0x58c…5c4 at000b = ╱52╱R╱ // 0x597 @0xb
0x58c…5c4 at000c = ╱41╱A╱ // 0x598 @0xc
0x58c…5c4 at000d = ╱4e╱N╱ // 0x599 @0xd
0x58c…5c4 at000e = ╱41╱A╱ // 0x59a @0xe
0x58c…5c4 at000f = ╱56╱V╱ // 0x59b @0xf
0x58c…5c4 at0010 = ╱4e╱N╱ // 0x59c @0x10
0x58c…5c4 at0011 = ╱ef╱$╱ // 0x59d @0x11
0x58c…5c4 at0012 = ╱ed╱(╱ // 0x59e @0x12
0x58c…5c4 at0013 = ╱4a╱J╱ // 0x59f @0x13
0x58c…5c4 at0014 = ╱ee╱)╱ // 0x5a0 @0x14
0x58c…5c4 at0015 = ╱dc╱=╱ // 0x5a1 @0x15
0x58c…5c4 at0016 = ╱22╱"╱ // 0x5a2 @0x16
0x58c…5c4 at0017 = ╱53╱S╱ // 0x5a3 @0x17
0x58c…5c4 at0018 = ╱59╱Y╱ // 0x5a4 @0x18
0x58c…5c4 at0019 = ╱53╱S╱ // 0x5a5 @0x19
0x58c…5c4 at001a = ╱54╱T╱ // 0x5a6 @0x1a
0x58c…5c4 at001b = ╱45╱E╱ // 0x5a7 @0x1b
0x58c…5c4 at001c = ╱4d╱M╱ // 0x5a8 @0x1c
0x58c…5c4 at001d = ╱31╱1╱ // 0x5a9 @0x1d
0x58c…5c4 at001e = ╱22╱"╱ // 0x5aa @0x1e
0x58c…5c4 at001f = ╱eb╱;╱ // 0x5ab @0x1f
0x58c…5c4 at0020 = ╱54╱T╱ // 0x5ac @0x20
0x58c…5c4 at0021 = ╱49╱I╱ // 0x5ad @0x21
0x58c…5c4 at0022 = ╱4c╱L╱ // 0x5ae @0x22
0x58c…5c4 at0023 = ╱4e╱N╱ // 0x5af @0x23
0x58c…5c4 at0024 = ╱41╱A╱ // 0x5b0 @0x24
0x58c…5c4 at0025 = ╱56╱V╱ // 0x5b1 @0x25
0x58c…5c4 at0026 = ╱4e╱N╱ // 0x5b2 @0x26
0x58c…5c4 at0027 = ╱ef╱$╱ // 0x5b3 @0x27
0x58c…5c4 at0028 = ╱ed╱(╱ // 0x5b4 @0x28
0x58c…5c4 at0029 = ╱4a╱J╱ // 0x5b5 @0x29
0x58c…5c4 at002a = ╱ee╱)╱ // 0x5b6 @0x2a
0x58c…5c4 at002b = ╱dc╱=╱ // 0x5b7 @0x2b
0x58c…5c4 at002c = ╱46╱F╱ // 0x5b8 @0x2c
0x58c…5c4 at002d = ╱52╱R╱ // 0x5b9 @0x2d
0x58c…5c4 at002e = ╱41╱A╱ // 0x5ba @0x2e
0x58c…5c4 at002f = ╱4e╱N╱ // 0x5bb @0x2f
0x58c…5c4 at0030 = ╱41╱A╱ // 0x5bc @0x30
0x58c…5c4 at0031 = ╱56╱V╱ // 0x5bd @0x31
0x58c…5c4 at0032 = ╱4e╱N╱ // 0x5be @0x32
0x58c…5c4 at0033 = ╱ef╱$╱ // 0x5bf @0x33
0x58c…5c4 at0034 = ╱ed╱(╱ // 0x5c0 @0x34
0x58c…5c4 at0035 = ╱4a╱J╱ // 0x5c1 @0x35
0x58c…5c4 at0036 = ╱ee╱)╱ // 0x5c2 @0x36
0x58c…5c4 at0037 = EOL // 0x5c3 @0x37
0x58c…5c4 }
0x5c4…5dd 9334 0830 PROC COPY1(J1,FRAN,TILN)
0x5c4…5dd LineComalBin {
0x5c4…5dd ptr = 0x9334 // 0x5c4 @0x0
0x5c4…5dd lno = 0x033e // 0x5c6 @0x2
0x5c4…5dd at0004 = ╱9e╱ PROC ╱ // 0x5c8 @0x4
0x5c4…5dd at0005 = ╱43╱C╱ // 0x5c9 @0x5
0x5c4…5dd at0006 = ╱4f╱O╱ // 0x5ca @0x6
0x5c4…5dd at0007 = ╱50╱P╱ // 0x5cb @0x7
0x5c4…5dd at0008 = ╱59╱Y╱ // 0x5cc @0x8
0x5c4…5dd at0009 = ╱31╱1╱ // 0x5cd @0x9
0x5c4…5dd at000a = ╱ed╱(╱ // 0x5ce @0xa
0x5c4…5dd at000b = ╱4a╱J╱ // 0x5cf @0xb
0x5c4…5dd at000c = ╱31╱1╱ // 0x5d0 @0xc
0x5c4…5dd at000d = ╱ec╱,╱ // 0x5d1 @0xd
0x5c4…5dd at000e = ╱46╱F╱ // 0x5d2 @0xe
0x5c4…5dd at000f = ╱52╱R╱ // 0x5d3 @0xf
0x5c4…5dd at0010 = ╱41╱A╱ // 0x5d4 @0x10
0x5c4…5dd at0011 = ╱4e╱N╱ // 0x5d5 @0x11
0x5c4…5dd at0012 = ╱ec╱,╱ // 0x5d6 @0x12
0x5c4…5dd at0013 = ╱54╱T╱ // 0x5d7 @0x13
0x5c4…5dd at0014 = ╱49╱I╱ // 0x5d8 @0x14
0x5c4…5dd at0015 = ╱4c╱L╱ // 0x5d9 @0x15
0x5c4…5dd at0016 = ╱4e╱N╱ // 0x5da @0x16
0x5c4…5dd at0017 = ╱ee╱)╱ // 0x5db @0x17
0x5c4…5dd at0018 = EOL // 0x5dc @0x18
0x5c4…5dd }
0x5dd…5e3 933a 0840 REPEAT
0x5dd…5e3 LineComalBin {
0x5dd…5e3 ptr = 0x933a // 0x5dd @0x0
0x5dd…5e3 lno = 0x0348 // 0x5df @0x2
0x5dd…5e3 at0004 = ╱97╱ REPEAT ╱ // 0x5e1 @0x4
0x5dd…5e3 at0005 = EOL // 0x5e2 @0x5
0x5dd…5e3 }
0x5e3…5e9 9340 0850 CLEAR
0x5e3…5e9 LineComalBin {
0x5e3…5e9 ptr = 0x9340 // 0x5e3 @0x0
0x5e3…5e9 lno = 0x0352 // 0x5e5 @0x2
0x5e3…5e9 at0004 = ╱a0╱ CLEAR ╱ // 0x5e7 @0x4
0x5e3…5e9 at0005 = EOL // 0x5e8 @0x5
0x5e3…5e9 }
0x5e9…5ef 9346 0860 REPEAT
0x5e9…5ef LineComalBin {
0x5e9…5ef ptr = 0x9346 // 0x5e9 @0x0
0x5e9…5ef lno = 0x035c // 0x5eb @0x2
0x5e9…5ef at0004 = ╱97╱ REPEAT ╱ // 0x5ed @0x4
0x5e9…5ef at0005 = EOL // 0x5ee @0x5
0x5e9…5ef }
0x5ef…604 935b 0870 CURSOR 15,13
0x5ef…604 LineComalBin {
0x5ef…604 ptr = 0x935b // 0x5ef @0x0
0x5ef…604 lno = 0x0366 // 0x5f1 @0x2
0x5ef…604 at0004 = ╱a1╱ CURSOR ╱ // 0x5f3 @0x4
0x5ef…604 at0005 = ╱31╱1╱ // 0x5f4 @0x5
0x5ef…604 at0006 = ╱35╱5╱ // 0x5f5 @0x6
0x5ef…604 at0007 = ╱fe0000f004╱ // 0x5f6 @0x7
0x5ef…604 at000c = ╱ec╱,╱ // 0x5fb @0xc
0x5ef…604 at000d = ╱31╱1╱ // 0x5fc @0xd
0x5ef…604 at000e = ╱33╱3╱ // 0x5fd @0xe
0x5ef…604 at000f = ╱fe0000d004╱ // 0x5fe @0xf
0x5ef…604 at0014 = EOL // 0x603 @0x14
0x5ef…604 }
0x604…620 (20,) 9377 0880 PRINT "Isæt plade nr";PLADE;
0x604…620 LineComalBin {
0x604…620 ptr = 0x9377 // 0x604 @0x0
0x604…620 lno = 0x0370 // 0x606 @0x2
0x604…620 at0004 = ╱92╱ PRINT ╱ // 0x608 @0x4
0x604…620 at0005 = ╱22╱"╱ // 0x609 @0x5
0x604…620 at0006 = ╱49╱I╱ // 0x60a @0x6
0x604…620 at0007 = ╱73╱s╱ // 0x60b @0x7
0x604…620 at0008 = ╱7b╱æ╱ // 0x60c @0x8
0x604…620 at0009 = ╱74╱t╱ // 0x60d @0x9
0x604…620 at000a = ╱20╱…╱ // 0x60e @0xa
0x604…620 at000b = ╱70╱p╱ // 0x60f @0xb
0x604…620 at000c = ╱6c╱l╱ // 0x610 @0xc
0x604…620 at000d = ╱61╱a╱ // 0x611 @0xd
0x604…620 at000e = ╱64╱d╱ // 0x612 @0xe
0x604…620 at000f = ╱65╱e╱ // 0x613 @0xf
0x604…620 at0010 = ╱20╱…╱ // 0x614 @0x10
0x604…620 at0011 = ╱6e╱n╱ // 0x615 @0x11
0x604…620 at0012 = ╱72╱r╱ // 0x616 @0x12
0x604…620 at0013 = ╱22╱"╱ // 0x617 @0x13
0x604…620 at0014 = ╱eb╱;╱ // 0x618 @0x14
0x604…620 at0015 = ╱50╱P╱ // 0x619 @0x15
0x604…620 at0016 = ╱4c╱L╱ // 0x61a @0x16
0x604…620 at0017 = ╱41╱A╱ // 0x61b @0x17
0x604…620 at0018 = ╱44╱D╱ // 0x61c @0x18
0x604…620 at0019 = ╱45╱E╱ // 0x61d @0x19
0x604…620 at001a = ╱eb╱;╱ // 0x61e @0x1a
0x604…620 at001b = EOL // 0x61f @0x1b
0x604…620 }
0x620…635 938c 0890 CURSOR 31,13
0x620…635 LineComalBin {
0x620…635 ptr = 0x938c // 0x620 @0x0
0x620…635 lno = 0x037a // 0x622 @0x2
0x620…635 at0004 = ╱a1╱ CURSOR ╱ // 0x624 @0x4
0x620…635 at0005 = ╱33╱3╱ // 0x625 @0x5
0x620…635 at0006 = ╱31╱1╱ // 0x626 @0x6
0x620…635 at0007 = ╱fe0000f805╱ // 0x627 @0x7
0x620…635 at000c = ╱ec╱,╱ // 0x62c @0xc
0x620…635 at000d = ╱31╱1╱ // 0x62d @0xd
0x620…635 at000e = ╱33╱3╱ // 0x62e @0xe
0x620…635 at000f = ╱fe0000d004╱ // 0x62f @0xf
0x620…635 at0014 = EOL // 0x634 @0x14
0x620…635 }
0x635…64f 93a6 0900 INPUT " og tast RETURN",A$
0x635…64f LineComalBin {
0x635…64f ptr = 0x93a6 // 0x635 @0x0
0x635…64f lno = 0x0384 // 0x637 @0x2
0x635…64f at0004 = ╱91╱ INPUT ╱ // 0x639 @0x4
0x635…64f at0005 = ╱22╱"╱ // 0x63a @0x5
0x635…64f at0006 = ╱20╱…╱ // 0x63b @0x6
0x635…64f at0007 = ╱6f╱o╱ // 0x63c @0x7
0x635…64f at0008 = ╱67╱g╱ // 0x63d @0x8
0x635…64f at0009 = ╱20╱…╱ // 0x63e @0x9
0x635…64f at000a = ╱74╱t╱ // 0x63f @0xa
0x635…64f at000b = ╱61╱a╱ // 0x640 @0xb
0x635…64f at000c = ╱73╱s╱ // 0x641 @0xc
0x635…64f at000d = ╱74╱t╱ // 0x642 @0xd
0x635…64f at000e = ╱20╱…╱ // 0x643 @0xe
0x635…64f at000f = ╱52╱R╱ // 0x644 @0xf
0x635…64f at0010 = ╱45╱E╱ // 0x645 @0x10
0x635…64f at0011 = ╱54╱T╱ // 0x646 @0x11
0x635…64f at0012 = ╱55╱U╱ // 0x647 @0x12
0x635…64f at0013 = ╱52╱R╱ // 0x648 @0x13
0x635…64f at0014 = ╱4e╱N╱ // 0x649 @0x14
0x635…64f at0015 = ╱22╱"╱ // 0x64a @0x15
0x635…64f at0016 = ╱ec╱,╱ // 0x64b @0x16
0x635…64f at0017 = ╱41╱A╱ // 0x64c @0x17
0x635…64f at0018 = ╱ef╱$╱ // 0x64d @0x18
0x635…64f at0019 = EOL // 0x64e @0x19
0x635…64f }
0x64f…65f 93b6 0910 EXEC NRTEST(A$)
0x64f…65f LineComalBin {
0x64f…65f ptr = 0x93b6 // 0x64f @0x0
0x64f…65f lno = 0x038e // 0x651 @0x2
0x64f…65f at0004 = ╱9d╱ EXEC ╱ // 0x653 @0x4
0x64f…65f at0005 = ╱4e╱N╱ // 0x654 @0x5
0x64f…65f at0006 = ╱52╱R╱ // 0x655 @0x6
0x64f…65f at0007 = ╱54╱T╱ // 0x656 @0x7
0x64f…65f at0008 = ╱45╱E╱ // 0x657 @0x8
0x64f…65f at0009 = ╱53╱S╱ // 0x658 @0x9
0x64f…65f at000a = ╱54╱T╱ // 0x659 @0xa
0x64f…65f at000b = ╱ed╱(╱ // 0x65a @0xb
0x64f…65f at000c = ╱41╱A╱ // 0x65b @0xc
0x64f…65f at000d = ╱ef╱$╱ // 0x65c @0xd
0x64f…65f at000e = ╱ee╱)╱ // 0x65d @0xe
0x64f…65f at000f = EOL // 0x65e @0xf
0x64f…65f }
0x65f…669 93c0 0920 UNTIL P=-E
0x65f…669 LineComalBin {
0x65f…669 ptr = 0x93c0 // 0x65f @0x0
0x65f…669 lno = 0x0398 // 0x661 @0x2
0x65f…669 at0004 = ╱98╱ UNTIL ╱ // 0x663 @0x4
0x65f…669 at0005 = ╱50╱P╱ // 0x664 @0x5
0x65f…669 at0006 = ╱dc╱=╱ // 0x665 @0x6
0x65f…669 at0007 = ╱e9╱-╱ // 0x666 @0x7
0x65f…669 at0008 = ╱45╱E╱ // 0x667 @0x8
0x65f…669 at0009 = EOL // 0x668 @0x9
0x65f…669 }
0x669…67e 93d5 0930 CURSOR 15,15
0x669…67e LineComalBin {
0x669…67e ptr = 0x93d5 // 0x669 @0x0
0x669…67e lno = 0x03a2 // 0x66b @0x2
0x669…67e at0004 = ╱a1╱ CURSOR ╱ // 0x66d @0x4
0x669…67e at0005 = ╱31╱1╱ // 0x66e @0x5
0x669…67e at0006 = ╱35╱5╱ // 0x66f @0x6
0x669…67e at0007 = ╱fe0000f004╱ // 0x670 @0x7
0x669…67e at000c = ╱ec╱,╱ // 0x675 @0xc
0x669…67e at000d = ╱31╱1╱ // 0x676 @0xd
0x669…67e at000e = ╱35╱5╱ // 0x677 @0xe
0x669…67e at000f = ╱fe0000f004╱ // 0x678 @0xf
0x669…67e at0014 = EOL // 0x67d @0x14
0x669…67e }
0x67e…686 93dd 0940 P=B
0x67e…686 LineComalBin {
0x67e…686 ptr = 0x93dd // 0x67e @0x0
0x67e…686 lno = 0x03ac // 0x680 @0x2
0x67e…686 at0004 = ╱50╱P╱ // 0x682 @0x4
0x67e…686 at0005 = ╱dc╱=╱ // 0x683 @0x5
0x67e…686 at0006 = ╱42╱B╱ // 0x684 @0x6
0x67e…686 at0007 = EOL // 0x685 @0x7
0x67e…686 }
0x686…692 93e9 0950 FOR I=E TO J1
0x686…692 LineComalBin {
0x686…692 ptr = 0x93e9 // 0x686 @0x0
0x686…692 lno = 0x03b6 // 0x688 @0x2
0x686…692 at0004 = ╱83╱ FOR ╱ // 0x68a @0x4
0x686…692 at0005 = ╱49╱I╱ // 0x68b @0x5
0x686…692 at0006 = ╱dc╱=╱ // 0x68c @0x6
0x686…692 at0007 = ╱45╱E╱ // 0x68d @0x7
0x686…692 at0008 = ╱b7╱ TO ╱ // 0x68e @0x8
0x686…692 at0009 = ╱4a╱J╱ // 0x68f @0x9
0x686…692 at000a = ╱31╱1╱ // 0x690 @0xa
0x686…692 at000b = EOL // 0x691 @0xb
0x686…692 }
0x692…6ba 9411 0960 NAVNFRA$=FRAN$(I);NAVNTIL$=TILN$(I)
0x692…6ba LineComalBin {
0x692…6ba ptr = 0x9411 // 0x692 @0x0
0x692…6ba lno = 0x03c0 // 0x694 @0x2
0x692…6ba at0004 = ╱4e╱N╱ // 0x696 @0x4
0x692…6ba at0005 = ╱41╱A╱ // 0x697 @0x5
0x692…6ba at0006 = ╱56╱V╱ // 0x698 @0x6
0x692…6ba at0007 = ╱4e╱N╱ // 0x699 @0x7
0x692…6ba at0008 = ╱46╱F╱ // 0x69a @0x8
0x692…6ba at0009 = ╱52╱R╱ // 0x69b @0x9
0x692…6ba at000a = ╱41╱A╱ // 0x69c @0xa
0x692…6ba at000b = ╱ef╱$╱ // 0x69d @0xb
0x692…6ba at000c = ╱dc╱=╱ // 0x69e @0xc
0x692…6ba at000d = ╱46╱F╱ // 0x69f @0xd
0x692…6ba at000e = ╱52╱R╱ // 0x6a0 @0xe
0x692…6ba at000f = ╱41╱A╱ // 0x6a1 @0xf
0x692…6ba at0010 = ╱4e╱N╱ // 0x6a2 @0x10
0x692…6ba at0011 = ╱ef╱$╱ // 0x6a3 @0x11
0x692…6ba at0012 = ╱ed╱(╱ // 0x6a4 @0x12
0x692…6ba at0013 = ╱49╱I╱ // 0x6a5 @0x13
0x692…6ba at0014 = ╱ee╱)╱ // 0x6a6 @0x14
0x692…6ba at0015 = ╱eb╱;╱ // 0x6a7 @0x15
0x692…6ba at0016 = ╱4e╱N╱ // 0x6a8 @0x16
0x692…6ba at0017 = ╱41╱A╱ // 0x6a9 @0x17
0x692…6ba at0018 = ╱56╱V╱ // 0x6aa @0x18
0x692…6ba at0019 = ╱4e╱N╱ // 0x6ab @0x19
0x692…6ba at001a = ╱54╱T╱ // 0x6ac @0x1a
0x692…6ba at001b = ╱49╱I╱ // 0x6ad @0x1b
0x692…6ba at001c = ╱4c╱L╱ // 0x6ae @0x1c
0x692…6ba at001d = ╱ef╱$╱ // 0x6af @0x1d
0x692…6ba at001e = ╱dc╱=╱ // 0x6b0 @0x1e
0x692…6ba at001f = ╱54╱T╱ // 0x6b1 @0x1f
0x692…6ba at0020 = ╱49╱I╱ // 0x6b2 @0x20
0x692…6ba at0021 = ╱4c╱L╱ // 0x6b3 @0x21
0x692…6ba at0022 = ╱4e╱N╱ // 0x6b4 @0x22
0x692…6ba at0023 = ╱ef╱$╱ // 0x6b5 @0x23
0x692…6ba at0024 = ╱ed╱(╱ // 0x6b6 @0x24
0x692…6ba at0025 = ╱49╱I╱ // 0x6b7 @0x25
0x692…6ba at0026 = ╱ee╱)╱ // 0x6b8 @0x26
0x692…6ba at0027 = EOL // 0x6b9 @0x27
0x692…6ba }
0x6ba…6cf 9426 0965 CURSOR 15,23
0x6ba…6cf LineComalBin {
0x6ba…6cf ptr = 0x9426 // 0x6ba @0x0
0x6ba…6cf lno = 0x03c5 // 0x6bc @0x2
0x6ba…6cf at0004 = ╱a1╱ CURSOR ╱ // 0x6be @0x4
0x6ba…6cf at0005 = ╱31╱1╱ // 0x6bf @0x5
0x6ba…6cf at0006 = ╱35╱5╱ // 0x6c0 @0x6
0x6ba…6cf at0007 = ╱fe0000f004╱ // 0x6c1 @0x7
0x6ba…6cf at000c = ╱ec╱,╱ // 0x6c6 @0xc
0x6ba…6cf at000d = ╱32╱2╱ // 0x6c7 @0xd
0x6ba…6cf at000e = ╱33╱3╱ // 0x6c8 @0xe
0x6ba…6cf at000f = ╱fe0000b805╱ // 0x6c9 @0xf
0x6ba…6cf at0014 = EOL // 0x6ce @0x14
0x6ba…6cf }
0x6cf…6f4 944b 0966 PRINT NAVNFRA$;" kopieres "
0x6cf…6f4 LineComalBin {
0x6cf…6f4 ptr = 0x944b // 0x6cf @0x0
0x6cf…6f4 lno = 0x03c6 // 0x6d1 @0x2
0x6cf…6f4 at0004 = ╱92╱ PRINT ╱ // 0x6d3 @0x4
0x6cf…6f4 at0005 = ╱4e╱N╱ // 0x6d4 @0x5
0x6cf…6f4 at0006 = ╱41╱A╱ // 0x6d5 @0x6
0x6cf…6f4 at0007 = ╱56╱V╱ // 0x6d6 @0x7
0x6cf…6f4 at0008 = ╱4e╱N╱ // 0x6d7 @0x8
0x6cf…6f4 at0009 = ╱46╱F╱ // 0x6d8 @0x9
0x6cf…6f4 at000a = ╱52╱R╱ // 0x6d9 @0xa
0x6cf…6f4 at000b = ╱41╱A╱ // 0x6da @0xb
0x6cf…6f4 at000c = ╱ef╱$╱ // 0x6db @0xc
0x6cf…6f4 at000d = ╱eb╱;╱ // 0x6dc @0xd
0x6cf…6f4 at000e = ╱22╱"╱ // 0x6dd @0xe
0x6cf…6f4 at000f = ╱20╱…╱ // 0x6de @0xf
0x6cf…6f4 at0010 = ╱6b╱k╱ // 0x6df @0x10
0x6cf…6f4 at0011 = ╱6f╱o╱ // 0x6e0 @0x11
0x6cf…6f4 at0012 = ╱70╱p╱ // 0x6e1 @0x12
0x6cf…6f4 at0013 = ╱69╱i╱ // 0x6e2 @0x13
0x6cf…6f4 at0014 = ╱65╱e╱ // 0x6e3 @0x14
0x6cf…6f4 at0015 = ╱72╱r╱ // 0x6e4 @0x15
0x6cf…6f4 at0016 = ╱65╱e╱ // 0x6e5 @0x16
0x6cf…6f4 at0017 = ╱73╱s╱ // 0x6e6 @0x17
0x6cf…6f4 at0018 = ╱20╱…╱ // 0x6e7 @0x18
0x6cf…6f4 at0019 = ╱20╱…╱ // 0x6e8 @0x19
0x6cf…6f4 at001a = ╱20╱…╱ // 0x6e9 @0x1a
0x6cf…6f4 at001b = ╱20╱…╱ // 0x6ea @0x1b
0x6cf…6f4 at001c = ╱20╱…╱ // 0x6eb @0x1c
0x6cf…6f4 at001d = ╱20╱…╱ // 0x6ec @0x1d
0x6cf…6f4 at001e = ╱20╱…╱ // 0x6ed @0x1e
0x6cf…6f4 at001f = ╱20╱…╱ // 0x6ee @0x1f
0x6cf…6f4 at0020 = ╱20╱…╱ // 0x6ef @0x20
0x6cf…6f4 at0021 = ╱20╱…╱ // 0x6f0 @0x21
0x6cf…6f4 at0022 = ╱20╱…╱ // 0x6f1 @0x22
0x6cf…6f4 at0023 = ╱22╱"╱ // 0x6f2 @0x23
0x6cf…6f4 at0024 = EOL // 0x6f3 @0x24
0x6cf…6f4 }
0x6f4…6fe 9455 0970 EXEC COPY
0x6f4…6fe LineComalBin {
0x6f4…6fe ptr = 0x9455 // 0x6f4 @0x0
0x6f4…6fe lno = 0x03ca // 0x6f6 @0x2
0x6f4…6fe at0004 = ╱9d╱ EXEC ╱ // 0x6f8 @0x4
0x6f4…6fe at0005 = ╱43╱C╱ // 0x6f9 @0x5
0x6f4…6fe at0006 = ╱4f╱O╱ // 0x6fa @0x6
0x6f4…6fe at0007 = ╱50╱P╱ // 0x6fb @0x7
0x6f4…6fe at0008 = ╱59╱Y╱ // 0x6fc @0x8
0x6f4…6fe at0009 = EOL // 0x6fd @0x9
0x6f4…6fe }
0x6fe…70a 9461 0980 IF FLAG THEN EXIT
0x6fe…70a LineComalBin {
0x6fe…70a ptr = 0x9461 // 0x6fe @0x0
0x6fe…70a lno = 0x03d4 // 0x700 @0x2
0x6fe…70a at0004 = ╱82╱ IF ╱ // 0x702 @0x4
0x6fe…70a at0005 = ╱46╱F╱ // 0x703 @0x5
0x6fe…70a at0006 = ╱4c╱L╱ // 0x704 @0x6
0x6fe…70a at0007 = ╱41╱A╱ // 0x705 @0x7
0x6fe…70a at0008 = ╱47╱G╱ // 0x706 @0x8
0x6fe…70a at0009 = ╱b6╱ THEN ╱ // 0x707 @0x9
0x6fe…70a at000a = ╱99╱ EXIT ╱ // 0x708 @0xa
0x6fe…70a at000b = EOL // 0x709 @0xb
0x6fe…70a }
0x70a…711 9468 0990 NEXT I
0x70a…711 LineComalBin {
0x70a…711 ptr = 0x9468 // 0x70a @0x0
0x70a…711 lno = 0x03de // 0x70c @0x2
0x70a…711 at0004 = ╱84╱ NEXT ╱ // 0x70e @0x4
0x70a…711 at0005 = ╱49╱I╱ // 0x70f @0x5
0x70a…711 at0006 = EOL // 0x710 @0x6
0x70a…711 }
0x711…726 947d 0991 CURSOR 15,23
0x711…726 LineComalBin {
0x711…726 ptr = 0x947d // 0x711 @0x0
0x711…726 lno = 0x03df // 0x713 @0x2
0x711…726 at0004 = ╱a1╱ CURSOR ╱ // 0x715 @0x4
0x711…726 at0005 = ╱31╱1╱ // 0x716 @0x5
0x711…726 at0006 = ╱35╱5╱ // 0x717 @0x6
0x711…726 at0007 = ╱fe0000f004╱ // 0x718 @0x7
0x711…726 at000c = ╱ec╱,╱ // 0x71d @0xc
0x711…726 at000d = ╱32╱2╱ // 0x71e @0xd
0x711…726 at000e = ╱33╱3╱ // 0x71f @0xe
0x711…726 at000f = ╱fe0000b805╱ // 0x720 @0xf
0x711…726 at0014 = EOL // 0x725 @0x14
0x711…726 }
0x726…75d 94b4 0992 PRINT " "
0x726…75d LineComalBin {
0x726…75d ptr = 0x94b4 // 0x726 @0x0
0x726…75d lno = 0x03e0 // 0x728 @0x2
0x726…75d at0004 = ╱92╱ PRINT ╱ // 0x72a @0x4
0x726…75d at0005 = ╱22╱"╱ // 0x72b @0x5
0x726…75d at0006 = ╱20╱…╱ // 0x72c @0x6
0x726…75d at0007 = ╱20╱…╱ // 0x72d @0x7
0x726…75d at0008 = ╱20╱…╱ // 0x72e @0x8
0x726…75d at0009 = ╱20╱…╱ // 0x72f @0x9
0x726…75d at000a = ╱20╱…╱ // 0x730 @0xa
0x726…75d at000b = ╱20╱…╱ // 0x731 @0xb
0x726…75d at000c = ╱20╱…╱ // 0x732 @0xc
0x726…75d at000d = ╱20╱…╱ // 0x733 @0xd
0x726…75d at000e = ╱20╱…╱ // 0x734 @0xe
0x726…75d at000f = ╱20╱…╱ // 0x735 @0xf
0x726…75d at0010 = ╱20╱…╱ // 0x736 @0x10
0x726…75d at0011 = ╱20╱…╱ // 0x737 @0x11
0x726…75d at0012 = ╱20╱…╱ // 0x738 @0x12
0x726…75d at0013 = ╱20╱…╱ // 0x739 @0x13
0x726…75d at0014 = ╱20╱…╱ // 0x73a @0x14
0x726…75d at0015 = ╱20╱…╱ // 0x73b @0x15
0x726…75d at0016 = ╱20╱…╱ // 0x73c @0x16
0x726…75d at0017 = ╱20╱…╱ // 0x73d @0x17
0x726…75d at0018 = ╱20╱…╱ // 0x73e @0x18
0x726…75d at0019 = ╱20╱…╱ // 0x73f @0x19
0x726…75d at001a = ╱20╱…╱ // 0x740 @0x1a
0x726…75d at001b = ╱20╱…╱ // 0x741 @0x1b
0x726…75d at001c = ╱20╱…╱ // 0x742 @0x1c
0x726…75d at001d = ╱20╱…╱ // 0x743 @0x1d
0x726…75d at001e = ╱20╱…╱ // 0x744 @0x1e
0x726…75d at001f = ╱20╱…╱ // 0x745 @0x1f
0x726…75d at0020 = ╱20╱…╱ // 0x746 @0x20
0x726…75d at0021 = ╱20╱…╱ // 0x747 @0x21
0x726…75d at0022 = ╱20╱…╱ // 0x748 @0x22
0x726…75d at0023 = ╱20╱…╱ // 0x749 @0x23
0x726…75d at0024 = ╱20╱…╱ // 0x74a @0x24
0x726…75d at0025 = ╱20╱…╱ // 0x74b @0x25
0x726…75d at0026 = ╱20╱…╱ // 0x74c @0x26
0x726…75d at0027 = ╱20╱…╱ // 0x74d @0x27
0x726…75d at0028 = ╱20╱…╱ // 0x74e @0x28
0x726…75d at0029 = ╱20╱…╱ // 0x74f @0x29
0x726…75d at002a = ╱20╱…╱ // 0x750 @0x2a
0x726…75d at002b = ╱20╱…╱ // 0x751 @0x2b
0x726…75d at002c = ╱20╱…╱ // 0x752 @0x2c
0x726…75d at002d = ╱20╱…╱ // 0x753 @0x2d
0x726…75d at002e = ╱20╱…╱ // 0x754 @0x2e
0x726…75d at002f = ╱20╱…╱ // 0x755 @0x2f
0x726…75d at0030 = ╱20╱…╱ // 0x756 @0x30
0x726…75d at0031 = ╱20╱…╱ // 0x757 @0x31
0x726…75d at0032 = ╱20╱…╱ // 0x758 @0x32
0x726…75d at0033 = ╱20╱…╱ // 0x759 @0x33
0x726…75d at0034 = ╱20╱…╱ // 0x75a @0x34
0x726…75d at0035 = ╱22╱"╱ // 0x75b @0x35
0x726…75d at0036 = EOL // 0x75c @0x36
0x726…75d }
0x75d…769 94c0 1000 CASE FLAG OF
0x75d…769 LineComalBin {
0x75d…769 ptr = 0x94c0 // 0x75d @0x0
0x75d…769 lno = 0x03e8 // 0x75f @0x2
0x75d…769 at0004 = ╱a201╱ CASE ╱ // 0x761 @0x4
0x75d…769 at0006 = ╱46╱F╱ // 0x763 @0x6
0x75d…769 at0007 = ╱4c╱L╱ // 0x764 @0x7
0x75d…769 at0008 = ╱41╱A╱ // 0x765 @0x8
0x75d…769 at0009 = ╱47╱G╱ // 0x766 @0x9
0x75d…769 at000a = ╱ba╱ OF ╱ // 0x767 @0xa
0x75d…769 at000b = EOL // 0x768 @0xb
0x75d…769 }
0x769…7a1 94f8 1010 PRINT "Uidentificeret fejl tilkald hjælp.Fejlkode:";FLAG
0x769…7a1 LineComalBin {
0x769…7a1 ptr = 0x94f8 // 0x769 @0x0
0x769…7a1 lno = 0x03f2 // 0x76b @0x2
0x769…7a1 at0004 = ╱92╱ PRINT ╱ // 0x76d @0x4
0x769…7a1 at0005 = ╱22╱"╱ // 0x76e @0x5
0x769…7a1 at0006 = ╱55╱U╱ // 0x76f @0x6
0x769…7a1 at0007 = ╱69╱i╱ // 0x770 @0x7
0x769…7a1 at0008 = ╱64╱d╱ // 0x771 @0x8
0x769…7a1 at0009 = ╱65╱e╱ // 0x772 @0x9
0x769…7a1 at000a = ╱6e╱n╱ // 0x773 @0xa
0x769…7a1 at000b = ╱74╱t╱ // 0x774 @0xb
0x769…7a1 at000c = ╱69╱i╱ // 0x775 @0xc
0x769…7a1 at000d = ╱66╱f╱ // 0x776 @0xd
0x769…7a1 at000e = ╱69╱i╱ // 0x777 @0xe
0x769…7a1 at000f = ╱63╱c╱ // 0x778 @0xf
0x769…7a1 at0010 = ╱65╱e╱ // 0x779 @0x10
0x769…7a1 at0011 = ╱72╱r╱ // 0x77a @0x11
0x769…7a1 at0012 = ╱65╱e╱ // 0x77b @0x12
0x769…7a1 at0013 = ╱74╱t╱ // 0x77c @0x13
0x769…7a1 at0014 = ╱20╱…╱ // 0x77d @0x14
0x769…7a1 at0015 = ╱66╱f╱ // 0x77e @0x15
0x769…7a1 at0016 = ╱65╱e╱ // 0x77f @0x16
0x769…7a1 at0017 = ╱6a╱j╱ // 0x780 @0x17
0x769…7a1 at0018 = ╱6c╱l╱ // 0x781 @0x18
0x769…7a1 at0019 = ╱20╱…╱ // 0x782 @0x19
0x769…7a1 at001a = ╱74╱t╱ // 0x783 @0x1a
0x769…7a1 at001b = ╱69╱i╱ // 0x784 @0x1b
0x769…7a1 at001c = ╱6c╱l╱ // 0x785 @0x1c
0x769…7a1 at001d = ╱6b╱k╱ // 0x786 @0x1d
0x769…7a1 at001e = ╱61╱a╱ // 0x787 @0x1e
0x769…7a1 at001f = ╱6c╱l╱ // 0x788 @0x1f
0x769…7a1 at0020 = ╱64╱d╱ // 0x789 @0x20
0x769…7a1 at0021 = ╱20╱…╱ // 0x78a @0x21
0x769…7a1 at0022 = ╱68╱h╱ // 0x78b @0x22
0x769…7a1 at0023 = ╱6a╱j╱ // 0x78c @0x23
0x769…7a1 at0024 = ╱7b╱æ╱ // 0x78d @0x24
0x769…7a1 at0025 = ╱6c╱l╱ // 0x78e @0x25
0x769…7a1 at0026 = ╱70╱p╱ // 0x78f @0x26
0x769…7a1 at0027 = ╱2e╱.╱ // 0x790 @0x27
0x769…7a1 at0028 = ╱46╱F╱ // 0x791 @0x28
0x769…7a1 at0029 = ╱65╱e╱ // 0x792 @0x29
0x769…7a1 at002a = ╱6a╱j╱ // 0x793 @0x2a
0x769…7a1 at002b = ╱6c╱l╱ // 0x794 @0x2b
0x769…7a1 at002c = ╱6b╱k╱ // 0x795 @0x2c
0x769…7a1 at002d = ╱6f╱o╱ // 0x796 @0x2d
0x769…7a1 at002e = ╱64╱d╱ // 0x797 @0x2e
0x769…7a1 at002f = ╱65╱e╱ // 0x798 @0x2f
0x769…7a1 at0030 = ╱3a╱:╱ // 0x799 @0x30
0x769…7a1 at0031 = ╱22╱"╱ // 0x79a @0x31
0x769…7a1 at0032 = ╱eb╱;╱ // 0x79b @0x32
0x769…7a1 at0033 = ╱46╱F╱ // 0x79c @0x33
0x769…7a1 at0034 = ╱4c╱L╱ // 0x79d @0x34
0x769…7a1 at0035 = ╱41╱A╱ // 0x79e @0x35
0x769…7a1 at0036 = ╱47╱G╱ // 0x79f @0x36
0x769…7a1 at0037 = EOL // 0x7a0 @0x37
0x769…7a1 }
0x7a1…7a7 94fe 1020 STOP
0x7a1…7a7 LineComalBin {
0x7a1…7a7 ptr = 0x94fe // 0x7a1 @0x0
0x7a1…7a7 lno = 0x03fc // 0x7a3 @0x2
0x7a1…7a7 at0004 = ╱8d╱ STOP ╱ // 0x7a5 @0x4
0x7a1…7a7 at0005 = EOL // 0x7a6 @0x5
0x7a1…7a7 }
0x7a7…7af 9506 1030 WHEN B
0x7a7…7af LineComalBin {
0x7a7…7af ptr = 0x9506 // 0x7a7 @0x0
0x7a7…7af lno = 0x0406 // 0x7a9 @0x2
0x7a7…7af at0004 = ╱a301╱ WHEN ╱ // 0x7ab @0x4
0x7a7…7af at0006 = ╱42╱B╱ // 0x7ad @0x6
0x7a7…7af at0007 = EOL // 0x7ae @0x7
0x7a7…7af }
0x7af…7b7 950e 1040 WHEN E
0x7af…7b7 LineComalBin {
0x7af…7b7 ptr = 0x950e // 0x7af @0x0
0x7af…7b7 lno = 0x0410 // 0x7b1 @0x2
0x7af…7b7 at0004 = ╱a301╱ WHEN ╱ // 0x7b3 @0x4
0x7af…7b7 at0006 = ╱45╱E╱ // 0x7b5 @0x6
0x7af…7b7 at0007 = EOL // 0x7b6 @0x7
0x7af…7b7 }
0x7b7…7e9 9540 1050 PRINT "Pladen i løbeværk nr 2 er ikke nr 20 eller"
0x7b7…7e9 LineComalBin {
0x7b7…7e9 ptr = 0x9540 // 0x7b7 @0x0
0x7b7…7e9 lno = 0x041a // 0x7b9 @0x2
0x7b7…7e9 at0004 = ╱92╱ PRINT ╱ // 0x7bb @0x4
0x7b7…7e9 at0005 = ╱22╱"╱ // 0x7bc @0x5
0x7b7…7e9 at0006 = ╱50╱P╱ // 0x7bd @0x6
0x7b7…7e9 at0007 = ╱6c╱l╱ // 0x7be @0x7
0x7b7…7e9 at0008 = ╱61╱a╱ // 0x7bf @0x8
0x7b7…7e9 at0009 = ╱64╱d╱ // 0x7c0 @0x9
0x7b7…7e9 at000a = ╱65╱e╱ // 0x7c1 @0xa
0x7b7…7e9 at000b = ╱6e╱n╱ // 0x7c2 @0xb
0x7b7…7e9 at000c = ╱20╱…╱ // 0x7c3 @0xc
0x7b7…7e9 at000d = ╱69╱i╱ // 0x7c4 @0xd
0x7b7…7e9 at000e = ╱20╱…╱ // 0x7c5 @0xe
0x7b7…7e9 at000f = ╱6c╱l╱ // 0x7c6 @0xf
0x7b7…7e9 at0010 = ╱7c╱ø╱ // 0x7c7 @0x10
0x7b7…7e9 at0011 = ╱62╱b╱ // 0x7c8 @0x11
0x7b7…7e9 at0012 = ╱65╱e╱ // 0x7c9 @0x12
0x7b7…7e9 at0013 = ╱76╱v╱ // 0x7ca @0x13
0x7b7…7e9 at0014 = ╱7b╱æ╱ // 0x7cb @0x14
0x7b7…7e9 at0015 = ╱72╱r╱ // 0x7cc @0x15
0x7b7…7e9 at0016 = ╱6b╱k╱ // 0x7cd @0x16
0x7b7…7e9 at0017 = ╱20╱…╱ // 0x7ce @0x17
0x7b7…7e9 at0018 = ╱6e╱n╱ // 0x7cf @0x18
0x7b7…7e9 at0019 = ╱72╱r╱ // 0x7d0 @0x19
0x7b7…7e9 at001a = ╱20╱…╱ // 0x7d1 @0x1a
0x7b7…7e9 at001b = ╱32╱2╱ // 0x7d2 @0x1b
0x7b7…7e9 at001c = ╱20╱…╱ // 0x7d3 @0x1c
0x7b7…7e9 at001d = ╱65╱e╱ // 0x7d4 @0x1d
0x7b7…7e9 at001e = ╱72╱r╱ // 0x7d5 @0x1e
0x7b7…7e9 at001f = ╱20╱…╱ // 0x7d6 @0x1f
0x7b7…7e9 at0020 = ╱69╱i╱ // 0x7d7 @0x20
0x7b7…7e9 at0021 = ╱6b╱k╱ // 0x7d8 @0x21
0x7b7…7e9 at0022 = ╱6b╱k╱ // 0x7d9 @0x22
0x7b7…7e9 at0023 = ╱65╱e╱ // 0x7da @0x23
0x7b7…7e9 at0024 = ╱20╱…╱ // 0x7db @0x24
0x7b7…7e9 at0025 = ╱6e╱n╱ // 0x7dc @0x25
0x7b7…7e9 at0026 = ╱72╱r╱ // 0x7dd @0x26
0x7b7…7e9 at0027 = ╱20╱…╱ // 0x7de @0x27
0x7b7…7e9 at0028 = ╱32╱2╱ // 0x7df @0x28
0x7b7…7e9 at0029 = ╱30╱0╱ // 0x7e0 @0x29
0x7b7…7e9 at002a = ╱20╱…╱ // 0x7e1 @0x2a
0x7b7…7e9 at002b = ╱65╱e╱ // 0x7e2 @0x2b
0x7b7…7e9 at002c = ╱6c╱l╱ // 0x7e3 @0x2c
0x7b7…7e9 at002d = ╱6c╱l╱ // 0x7e4 @0x2d
0x7b7…7e9 at002e = ╱65╱e╱ // 0x7e5 @0x2e
0x7b7…7e9 at002f = ╱72╱r╱ // 0x7e6 @0x2f
0x7b7…7e9 at0030 = ╱22╱"╱ // 0x7e7 @0x30
0x7b7…7e9 at0031 = EOL // 0x7e8 @0x31
0x7b7…7e9 }
0x7e9…7fe 9555 1060 CURSOR 15,17
0x7e9…7fe LineComalBin {
0x7e9…7fe ptr = 0x9555 // 0x7e9 @0x0
0x7e9…7fe lno = 0x0424 // 0x7eb @0x2
0x7e9…7fe at0004 = ╱a1╱ CURSOR ╱ // 0x7ed @0x4
0x7e9…7fe at0005 = ╱31╱1╱ // 0x7ee @0x5
0x7e9…7fe at0006 = ╱35╱5╱ // 0x7ef @0x6
0x7e9…7fe at0007 = ╱fe0000f004╱ // 0x7f0 @0x7
0x7e9…7fe at000c = ╱ec╱,╱ // 0x7f5 @0xc
0x7e9…7fe at000d = ╱31╱1╱ // 0x7f6 @0xd
0x7e9…7fe at000e = ╱37╱7╱ // 0x7f7 @0xe
0x7e9…7fe at000f = ╱fe00008805╱ // 0x7f8 @0xf
0x7e9…7fe at0014 = EOL // 0x7fd @0x14
0x7e9…7fe }
0x7fe…822 9579 1070 PRINT "Pladen indeholder ingen data"
0x7fe…822 LineComalBin {
0x7fe…822 ptr = 0x9579 // 0x7fe @0x0
0x7fe…822 lno = 0x042e // 0x800 @0x2
0x7fe…822 at0004 = ╱92╱ PRINT ╱ // 0x802 @0x4
0x7fe…822 at0005 = ╱22╱"╱ // 0x803 @0x5
0x7fe…822 at0006 = ╱50╱P╱ // 0x804 @0x6
0x7fe…822 at0007 = ╱6c╱l╱ // 0x805 @0x7
0x7fe…822 at0008 = ╱61╱a╱ // 0x806 @0x8
0x7fe…822 at0009 = ╱64╱d╱ // 0x807 @0x9
0x7fe…822 at000a = ╱65╱e╱ // 0x808 @0xa
0x7fe…822 at000b = ╱6e╱n╱ // 0x809 @0xb
0x7fe…822 at000c = ╱20╱…╱ // 0x80a @0xc
0x7fe…822 at000d = ╱69╱i╱ // 0x80b @0xd
0x7fe…822 at000e = ╱6e╱n╱ // 0x80c @0xe
0x7fe…822 at000f = ╱64╱d╱ // 0x80d @0xf
0x7fe…822 at0010 = ╱65╱e╱ // 0x80e @0x10
0x7fe…822 at0011 = ╱68╱h╱ // 0x80f @0x11
0x7fe…822 at0012 = ╱6f╱o╱ // 0x810 @0x12
0x7fe…822 at0013 = ╱6c╱l╱ // 0x811 @0x13
0x7fe…822 at0014 = ╱64╱d╱ // 0x812 @0x14
0x7fe…822 at0015 = ╱65╱e╱ // 0x813 @0x15
0x7fe…822 at0016 = ╱72╱r╱ // 0x814 @0x16
0x7fe…822 at0017 = ╱20╱…╱ // 0x815 @0x17
0x7fe…822 at0018 = ╱69╱i╱ // 0x816 @0x18
0x7fe…822 at0019 = ╱6e╱n╱ // 0x817 @0x19
0x7fe…822 at001a = ╱67╱g╱ // 0x818 @0x1a
0x7fe…822 at001b = ╱65╱e╱ // 0x819 @0x1b
0x7fe…822 at001c = ╱6e╱n╱ // 0x81a @0x1c
0x7fe…822 at001d = ╱20╱…╱ // 0x81b @0x1d
0x7fe…822 at001e = ╱64╱d╱ // 0x81c @0x1e
0x7fe…822 at001f = ╱61╱a╱ // 0x81d @0x1f
0x7fe…822 at0020 = ╱74╱t╱ // 0x81e @0x20
0x7fe…822 at0021 = ╱61╱a╱ // 0x81f @0x21
0x7fe…822 at0022 = ╱22╱"╱ // 0x820 @0x22
0x7fe…822 at0023 = EOL // 0x821 @0x23
0x7fe…822 }
0x822…832 9589 1080 WHEN V,14
0x822…832 LineComalBin {
0x822…832 ptr = 0x9589 // 0x822 @0x0
0x822…832 lno = 0x0438 // 0x824 @0x2
0x822…832 at0004 = ╱a301╱ WHEN ╱ // 0x826 @0x4
0x822…832 at0006 = ╱56╱V╱ // 0x828 @0x6
0x822…832 at0007 = ╱ec╱,╱ // 0x829 @0x7
0x822…832 at0008 = ╱31╱1╱ // 0x82a @0x8
0x822…832 at0009 = ╱34╱4╱ // 0x82b @0x9
0x822…832 at000a = ╱fe0000e004╱ // 0x82c @0xa
0x822…832 at000f = EOL // 0x831 @0xf
0x822…832 }
0x832…85d 95b4 1090 PRINT "Pladen i løbeværk nr 1 er ikke nr ";
0x832…85d LineComalBin {
0x832…85d ptr = 0x95b4 // 0x832 @0x0
0x832…85d lno = 0x0442 // 0x834 @0x2
0x832…85d at0004 = ╱92╱ PRINT ╱ // 0x836 @0x4
0x832…85d at0005 = ╱22╱"╱ // 0x837 @0x5
0x832…85d at0006 = ╱50╱P╱ // 0x838 @0x6
0x832…85d at0007 = ╱6c╱l╱ // 0x839 @0x7
0x832…85d at0008 = ╱61╱a╱ // 0x83a @0x8
0x832…85d at0009 = ╱64╱d╱ // 0x83b @0x9
0x832…85d at000a = ╱65╱e╱ // 0x83c @0xa
0x832…85d at000b = ╱6e╱n╱ // 0x83d @0xb
0x832…85d at000c = ╱20╱…╱ // 0x83e @0xc
0x832…85d at000d = ╱69╱i╱ // 0x83f @0xd
0x832…85d at000e = ╱20╱…╱ // 0x840 @0xe
0x832…85d at000f = ╱6c╱l╱ // 0x841 @0xf
0x832…85d at0010 = ╱7c╱ø╱ // 0x842 @0x10
0x832…85d at0011 = ╱62╱b╱ // 0x843 @0x11
0x832…85d at0012 = ╱65╱e╱ // 0x844 @0x12
0x832…85d at0013 = ╱76╱v╱ // 0x845 @0x13
0x832…85d at0014 = ╱7b╱æ╱ // 0x846 @0x14
0x832…85d at0015 = ╱72╱r╱ // 0x847 @0x15
0x832…85d at0016 = ╱6b╱k╱ // 0x848 @0x16
0x832…85d at0017 = ╱20╱…╱ // 0x849 @0x17
0x832…85d at0018 = ╱6e╱n╱ // 0x84a @0x18
0x832…85d at0019 = ╱72╱r╱ // 0x84b @0x19
0x832…85d at001a = ╱20╱…╱ // 0x84c @0x1a
0x832…85d at001b = ╱31╱1╱ // 0x84d @0x1b
0x832…85d at001c = ╱20╱…╱ // 0x84e @0x1c
0x832…85d at001d = ╱65╱e╱ // 0x84f @0x1d
0x832…85d at001e = ╱72╱r╱ // 0x850 @0x1e
0x832…85d at001f = ╱20╱…╱ // 0x851 @0x1f
0x832…85d at0020 = ╱69╱i╱ // 0x852 @0x20
0x832…85d at0021 = ╱6b╱k╱ // 0x853 @0x21
0x832…85d at0022 = ╱6b╱k╱ // 0x854 @0x22
0x832…85d at0023 = ╱65╱e╱ // 0x855 @0x23
0x832…85d at0024 = ╱20╱…╱ // 0x856 @0x24
0x832…85d at0025 = ╱6e╱n╱ // 0x857 @0x25
0x832…85d at0026 = ╱72╱r╱ // 0x858 @0x26
0x832…85d at0027 = ╱20╱…╱ // 0x859 @0x27
0x832…85d at0028 = ╱22╱"╱ // 0x85a @0x28
0x832…85d at0029 = ╱eb╱;╱ // 0x85b @0x29
0x832…85d at002a = EOL // 0x85c @0x2a
0x832…85d }
0x85d…868 95bf 1100 PRINT PLADE
0x85d…868 LineComalBin {
0x85d…868 ptr = 0x95bf // 0x85d @0x0
0x85d…868 lno = 0x044c // 0x85f @0x2
0x85d…868 at0004 = ╱92╱ PRINT ╱ // 0x861 @0x4
0x85d…868 at0005 = ╱50╱P╱ // 0x862 @0x5
0x85d…868 at0006 = ╱4c╱L╱ // 0x863 @0x6
0x85d…868 at0007 = ╱41╱A╱ // 0x864 @0x7
0x85d…868 at0008 = ╱44╱D╱ // 0x865 @0x8
0x85d…868 at0009 = ╱45╱E╱ // 0x866 @0x9
0x85d…868 at000a = EOL // 0x867 @0xa
0x85d…868 }
0x868…876 95cd 1110 WHEN 40
0x868…876 LineComalBin {
0x868…876 ptr = 0x95cd // 0x868 @0x0
0x868…876 lno = 0x0456 // 0x86a @0x2
0x868…876 at0004 = ╱a301╱ WHEN ╱ // 0x86c @0x4
0x868…876 at0006 = ╱34╱4╱ // 0x86e @0x6
0x868…876 at0007 = ╱30╱0╱ // 0x86f @0x7
0x868…876 at0008 = ╱fe0000a006╱ // 0x870 @0x8
0x868…876 at000d = EOL // 0x875 @0xd
0x868…876 }
0x876…89d 95f4 1120 PRINT "Et af løbeværkerne er ikke klar"
0x876…89d LineComalBin {
0x876…89d ptr = 0x95f4 // 0x876 @0x0
0x876…89d lno = 0x0460 // 0x878 @0x2
0x876…89d at0004 = ╱92╱ PRINT ╱ // 0x87a @0x4
0x876…89d at0005 = ╱22╱"╱ // 0x87b @0x5
0x876…89d at0006 = ╱45╱E╱ // 0x87c @0x6
0x876…89d at0007 = ╱74╱t╱ // 0x87d @0x7
0x876…89d at0008 = ╱20╱…╱ // 0x87e @0x8
0x876…89d at0009 = ╱61╱a╱ // 0x87f @0x9
0x876…89d at000a = ╱66╱f╱ // 0x880 @0xa
0x876…89d at000b = ╱20╱…╱ // 0x881 @0xb
0x876…89d at000c = ╱6c╱l╱ // 0x882 @0xc
0x876…89d at000d = ╱7c╱ø╱ // 0x883 @0xd
0x876…89d at000e = ╱62╱b╱ // 0x884 @0xe
0x876…89d at000f = ╱65╱e╱ // 0x885 @0xf
0x876…89d at0010 = ╱76╱v╱ // 0x886 @0x10
0x876…89d at0011 = ╱7b╱æ╱ // 0x887 @0x11
0x876…89d at0012 = ╱72╱r╱ // 0x888 @0x12
0x876…89d at0013 = ╱6b╱k╱ // 0x889 @0x13
0x876…89d at0014 = ╱65╱e╱ // 0x88a @0x14
0x876…89d at0015 = ╱72╱r╱ // 0x88b @0x15
0x876…89d at0016 = ╱6e╱n╱ // 0x88c @0x16
0x876…89d at0017 = ╱65╱e╱ // 0x88d @0x17
0x876…89d at0018 = ╱20╱…╱ // 0x88e @0x18
0x876…89d at0019 = ╱65╱e╱ // 0x88f @0x19
0x876…89d at001a = ╱72╱r╱ // 0x890 @0x1a
0x876…89d at001b = ╱20╱…╱ // 0x891 @0x1b
0x876…89d at001c = ╱69╱i╱ // 0x892 @0x1c
0x876…89d at001d = ╱6b╱k╱ // 0x893 @0x1d
0x876…89d at001e = ╱6b╱k╱ // 0x894 @0x1e
0x876…89d at001f = ╱65╱e╱ // 0x895 @0x1f
0x876…89d at0020 = ╱20╱…╱ // 0x896 @0x20
0x876…89d at0021 = ╱6b╱k╱ // 0x897 @0x21
0x876…89d at0022 = ╱6c╱l╱ // 0x898 @0x22
0x876…89d at0023 = ╱61╱a╱ // 0x899 @0x23
0x876…89d at0024 = ╱72╱r╱ // 0x89a @0x24
0x876…89d at0025 = ╱22╱"╱ // 0x89b @0x25
0x876…89d at0026 = EOL // 0x89c @0x26
0x876…89d }
0x89d…8b2 9609 1130 CURSOR 15,17
0x89d…8b2 LineComalBin {
0x89d…8b2 ptr = 0x9609 // 0x89d @0x0
0x89d…8b2 lno = 0x046a // 0x89f @0x2
0x89d…8b2 at0004 = ╱a1╱ CURSOR ╱ // 0x8a1 @0x4
0x89d…8b2 at0005 = ╱31╱1╱ // 0x8a2 @0x5
0x89d…8b2 at0006 = ╱35╱5╱ // 0x8a3 @0x6
0x89d…8b2 at0007 = ╱fe0000f004╱ // 0x8a4 @0x7
0x89d…8b2 at000c = ╱ec╱,╱ // 0x8a9 @0xc
0x89d…8b2 at000d = ╱31╱1╱ // 0x8aa @0xd
0x89d…8b2 at000e = ╱37╱7╱ // 0x8ab @0xe
0x89d…8b2 at000f = ╱fe00008805╱ // 0x8ac @0xf
0x89d…8b2 at0014 = EOL // 0x8b1 @0x14
0x89d…8b2 }
0x8b2…8f1 9648 1140 PRINT "Klappen åben, mangler pladen eller pladen vendt forkert"
0x8b2…8f1 LineComalBin {
0x8b2…8f1 ptr = 0x9648 // 0x8b2 @0x0
0x8b2…8f1 lno = 0x0474 // 0x8b4 @0x2
0x8b2…8f1 at0004 = ╱92╱ PRINT ╱ // 0x8b6 @0x4
0x8b2…8f1 at0005 = ╱22╱"╱ // 0x8b7 @0x5
0x8b2…8f1 at0006 = ╱4b╱K╱ // 0x8b8 @0x6
0x8b2…8f1 at0007 = ╱6c╱l╱ // 0x8b9 @0x7
0x8b2…8f1 at0008 = ╱61╱a╱ // 0x8ba @0x8
0x8b2…8f1 at0009 = ╱70╱p╱ // 0x8bb @0x9
0x8b2…8f1 at000a = ╱70╱p╱ // 0x8bc @0xa
0x8b2…8f1 at000b = ╱65╱e╱ // 0x8bd @0xb
0x8b2…8f1 at000c = ╱6e╱n╱ // 0x8be @0xc
0x8b2…8f1 at000d = ╱20╱…╱ // 0x8bf @0xd
0x8b2…8f1 at000e = ╱7d╱å╱ // 0x8c0 @0xe
0x8b2…8f1 at000f = ╱62╱b╱ // 0x8c1 @0xf
0x8b2…8f1 at0010 = ╱65╱e╱ // 0x8c2 @0x10
0x8b2…8f1 at0011 = ╱6e╱n╱ // 0x8c3 @0x11
0x8b2…8f1 at0012 = ╱2c╱,╱ // 0x8c4 @0x12
0x8b2…8f1 at0013 = ╱20╱…╱ // 0x8c5 @0x13
0x8b2…8f1 at0014 = ╱6d╱m╱ // 0x8c6 @0x14
0x8b2…8f1 at0015 = ╱61╱a╱ // 0x8c7 @0x15
0x8b2…8f1 at0016 = ╱6e╱n╱ // 0x8c8 @0x16
0x8b2…8f1 at0017 = ╱67╱g╱ // 0x8c9 @0x17
0x8b2…8f1 at0018 = ╱6c╱l╱ // 0x8ca @0x18
0x8b2…8f1 at0019 = ╱65╱e╱ // 0x8cb @0x19
0x8b2…8f1 at001a = ╱72╱r╱ // 0x8cc @0x1a
0x8b2…8f1 at001b = ╱20╱…╱ // 0x8cd @0x1b
0x8b2…8f1 at001c = ╱70╱p╱ // 0x8ce @0x1c
0x8b2…8f1 at001d = ╱6c╱l╱ // 0x8cf @0x1d
0x8b2…8f1 at001e = ╱61╱a╱ // 0x8d0 @0x1e
0x8b2…8f1 at001f = ╱64╱d╱ // 0x8d1 @0x1f
0x8b2…8f1 at0020 = ╱65╱e╱ // 0x8d2 @0x20
0x8b2…8f1 at0021 = ╱6e╱n╱ // 0x8d3 @0x21
0x8b2…8f1 at0022 = ╱20╱…╱ // 0x8d4 @0x22
0x8b2…8f1 at0023 = ╱65╱e╱ // 0x8d5 @0x23
0x8b2…8f1 at0024 = ╱6c╱l╱ // 0x8d6 @0x24
0x8b2…8f1 at0025 = ╱6c╱l╱ // 0x8d7 @0x25
0x8b2…8f1 at0026 = ╱65╱e╱ // 0x8d8 @0x26
0x8b2…8f1 at0027 = ╱72╱r╱ // 0x8d9 @0x27
0x8b2…8f1 at0028 = ╱20╱…╱ // 0x8da @0x28
0x8b2…8f1 at0029 = ╱70╱p╱ // 0x8db @0x29
0x8b2…8f1 at002a = ╱6c╱l╱ // 0x8dc @0x2a
0x8b2…8f1 at002b = ╱61╱a╱ // 0x8dd @0x2b
0x8b2…8f1 at002c = ╱64╱d╱ // 0x8de @0x2c
0x8b2…8f1 at002d = ╱65╱e╱ // 0x8df @0x2d
0x8b2…8f1 at002e = ╱6e╱n╱ // 0x8e0 @0x2e
0x8b2…8f1 at002f = ╱20╱…╱ // 0x8e1 @0x2f
0x8b2…8f1 at0030 = ╱76╱v╱ // 0x8e2 @0x30
0x8b2…8f1 at0031 = ╱65╱e╱ // 0x8e3 @0x31
0x8b2…8f1 at0032 = ╱6e╱n╱ // 0x8e4 @0x32
0x8b2…8f1 at0033 = ╱64╱d╱ // 0x8e5 @0x33
0x8b2…8f1 at0034 = ╱74╱t╱ // 0x8e6 @0x34
0x8b2…8f1 at0035 = ╱20╱…╱ // 0x8e7 @0x35
0x8b2…8f1 at0036 = ╱66╱f╱ // 0x8e8 @0x36
0x8b2…8f1 at0037 = ╱6f╱o╱ // 0x8e9 @0x37
0x8b2…8f1 at0038 = ╱72╱r╱ // 0x8ea @0x38
0x8b2…8f1 at0039 = ╱6b╱k╱ // 0x8eb @0x39
0x8b2…8f1 at003a = ╱65╱e╱ // 0x8ec @0x3a
0x8b2…8f1 at003b = ╱72╱r╱ // 0x8ed @0x3b
0x8b2…8f1 at003c = ╱74╱t╱ // 0x8ee @0x3c
0x8b2…8f1 at003d = ╱22╱"╱ // 0x8ef @0x3d
0x8b2…8f1 at003e = EOL // 0x8f0 @0x3e
0x8b2…8f1 }
0x8f1…8f7 964e 1150 ENDCASE
0x8f1…8f7 LineComalBin {
0x8f1…8f7 ptr = 0x964e // 0x8f1 @0x0
0x8f1…8f7 lno = 0x047e // 0x8f3 @0x2
0x8f1…8f7 at0004 = ╱a4╱ ENDCASE ╱ // 0x8f5 @0x4
0x8f1…8f7 at0005 = EOL // 0x8f6 @0x5
0x8f1…8f7 }
0x8f7…904 965b 1160 IF FLAG<>B THEN
0x8f7…904 LineComalBin {
0x8f7…904 ptr = 0x965b // 0x8f7 @0x0
0x8f7…904 lno = 0x0488 // 0x8f9 @0x2
0x8f7…904 at0004 = ╱9c╱ IF ╱ // 0x8fb @0x4
0x8f7…904 at0005 = ╱46╱F╱ // 0x8fc @0x5
0x8f7…904 at0006 = ╱4c╱L╱ // 0x8fd @0x6
0x8f7…904 at0007 = ╱41╱A╱ // 0x8fe @0x7
0x8f7…904 at0008 = ╱47╱G╱ // 0x8ff @0x8
0x8f7…904 at0009 = ╱e1╱<>╱ // 0x900 @0x9
0x8f7…904 at000a = ╱42╱B╱ // 0x901 @0xa
0x8f7…904 at000b = ╱b6╱ THEN ╱ // 0x902 @0xb
0x8f7…904 at000c = EOL // 0x903 @0xc
0x8f7…904 }
0x904…90a 9661 1170 REPEAT
0x904…90a LineComalBin {
0x904…90a ptr = 0x9661 // 0x904 @0x0
0x904…90a lno = 0x0492 // 0x906 @0x2
0x904…90a at0004 = ╱97╱ REPEAT ╱ // 0x908 @0x4
0x904…90a at0005 = EOL // 0x909 @0x5
0x904…90a }
0x90a…91f 9676 1180 CURSOR 15,19
0x90a…91f LineComalBin {
0x90a…91f ptr = 0x9676 // 0x90a @0x0
0x90a…91f lno = 0x049c // 0x90c @0x2
0x90a…91f at0004 = ╱a1╱ CURSOR ╱ // 0x90e @0x4
0x90a…91f at0005 = ╱31╱1╱ // 0x90f @0x5
0x90a…91f at0006 = ╱35╱5╱ // 0x910 @0x6
0x90a…91f at0007 = ╱fe0000f004╱ // 0x911 @0x7
0x90a…91f at000c = ╱ec╱,╱ // 0x916 @0xc
0x90a…91f at000d = ╱31╱1╱ // 0x917 @0xd
0x90a…91f at000e = ╱39╱9╱ // 0x918 @0xe
0x90a…91f at000f = ╱fe00009805╱ // 0x919 @0xf
0x90a…91f at0014 = EOL // 0x91e @0x14
0x90a…91f }
0x91f…943 969a 1190 INPUT "Ret fejlen og tast RETURN",A$
0x91f…943 LineComalBin {
0x91f…943 ptr = 0x969a // 0x91f @0x0
0x91f…943 lno = 0x04a6 // 0x921 @0x2
0x91f…943 at0004 = ╱91╱ INPUT ╱ // 0x923 @0x4
0x91f…943 at0005 = ╱22╱"╱ // 0x924 @0x5
0x91f…943 at0006 = ╱52╱R╱ // 0x925 @0x6
0x91f…943 at0007 = ╱65╱e╱ // 0x926 @0x7
0x91f…943 at0008 = ╱74╱t╱ // 0x927 @0x8
0x91f…943 at0009 = ╱20╱…╱ // 0x928 @0x9
0x91f…943 at000a = ╱66╱f╱ // 0x929 @0xa
0x91f…943 at000b = ╱65╱e╱ // 0x92a @0xb
0x91f…943 at000c = ╱6a╱j╱ // 0x92b @0xc
0x91f…943 at000d = ╱6c╱l╱ // 0x92c @0xd
0x91f…943 at000e = ╱65╱e╱ // 0x92d @0xe
0x91f…943 at000f = ╱6e╱n╱ // 0x92e @0xf
0x91f…943 at0010 = ╱20╱…╱ // 0x92f @0x10
0x91f…943 at0011 = ╱6f╱o╱ // 0x930 @0x11
0x91f…943 at0012 = ╱67╱g╱ // 0x931 @0x12
0x91f…943 at0013 = ╱20╱…╱ // 0x932 @0x13
0x91f…943 at0014 = ╱74╱t╱ // 0x933 @0x14
0x91f…943 at0015 = ╱61╱a╱ // 0x934 @0x15
0x91f…943 at0016 = ╱73╱s╱ // 0x935 @0x16
0x91f…943 at0017 = ╱74╱t╱ // 0x936 @0x17
0x91f…943 at0018 = ╱20╱…╱ // 0x937 @0x18
0x91f…943 at0019 = ╱52╱R╱ // 0x938 @0x19
0x91f…943 at001a = ╱45╱E╱ // 0x939 @0x1a
0x91f…943 at001b = ╱54╱T╱ // 0x93a @0x1b
0x91f…943 at001c = ╱55╱U╱ // 0x93b @0x1c
0x91f…943 at001d = ╱52╱R╱ // 0x93c @0x1d
0x91f…943 at001e = ╱4e╱N╱ // 0x93d @0x1e
0x91f…943 at001f = ╱22╱"╱ // 0x93e @0x1f
0x91f…943 at0020 = ╱ec╱,╱ // 0x93f @0x20
0x91f…943 at0021 = ╱41╱A╱ // 0x940 @0x21
0x91f…943 at0022 = ╱ef╱$╱ // 0x941 @0x22
0x91f…943 at0023 = EOL // 0x942 @0x23
0x91f…943 }
0x943…953 96aa 1200 EXEC NRTEST(A$)
0x943…953 LineComalBin {
0x943…953 ptr = 0x96aa // 0x943 @0x0
0x943…953 lno = 0x04b0 // 0x945 @0x2
0x943…953 at0004 = ╱9d╱ EXEC ╱ // 0x947 @0x4
0x943…953 at0005 = ╱4e╱N╱ // 0x948 @0x5
0x943…953 at0006 = ╱52╱R╱ // 0x949 @0x6
0x943…953 at0007 = ╱54╱T╱ // 0x94a @0x7
0x943…953 at0008 = ╱45╱E╱ // 0x94b @0x8
0x943…953 at0009 = ╱53╱S╱ // 0x94c @0x9
0x943…953 at000a = ╱54╱T╱ // 0x94d @0xa
0x943…953 at000b = ╱ed╱(╱ // 0x94e @0xb
0x943…953 at000c = ╱41╱A╱ // 0x94f @0xc
0x943…953 at000d = ╱ef╱$╱ // 0x950 @0xd
0x943…953 at000e = ╱ee╱)╱ // 0x951 @0xe
0x943…953 at000f = EOL // 0x952 @0xf
0x943…953 }
0x953…95d (31,) 96b4 1210 UNTIL P=-E
0x953…95d LineComalBin {
0x953…95d ptr = 0x96b4 // 0x953 @0x0
0x953…95d lno = 0x04ba // 0x955 @0x2
0x953…95d at0004 = ╱98╱ UNTIL ╱ // 0x957 @0x4
0x953…95d at0005 = ╱50╱P╱ // 0x958 @0x5
0x953…95d at0006 = ╱dc╱=╱ // 0x959 @0x6
0x953…95d at0007 = ╱e9╱-╱ // 0x95a @0x7
0x953…95d at0008 = ╱45╱E╱ // 0x95b @0x8
0x953…95d at0009 = EOL // 0x95c @0x9
0x953…95d }
0x95d…963 96ba 1220 ENDIF
0x95d…963 LineComalBin {
0x95d…963 ptr = 0x96ba // 0x95d @0x0
0x95d…963 lno = 0x04c4 // 0x95f @0x2
0x95d…963 at0004 = ╱9b╱ ENDIF ╱ // 0x961 @0x4
0x95d…963 at0005 = EOL // 0x962 @0x5
0x95d…963 }
0x963…96c 96c3 1230 UNTIL P=B
0x963…96c LineComalBin {
0x963…96c ptr = 0x96c3 // 0x963 @0x0
0x963…96c lno = 0x04ce // 0x965 @0x2
0x963…96c at0004 = ╱98╱ UNTIL ╱ // 0x967 @0x4
0x963…96c at0005 = ╱50╱P╱ // 0x968 @0x5
0x963…96c at0006 = ╱dc╱=╱ // 0x969 @0x6
0x963…96c at0007 = ╱42╱B╱ // 0x96a @0x7
0x963…96c at0008 = EOL // 0x96b @0x8
0x963…96c }
0x96c…972 96c9 1240 ENDPROC
0x96c…972 LineComalBin {
0x96c…972 ptr = 0x96c9 // 0x96c @0x0
0x96c…972 lno = 0x04d8 // 0x96e @0x2
0x96c…972 at0004 = ╱9f╱ ENDPROC ╱ // 0x970 @0x4
0x96c…972 at0005 = EOL // 0x971 @0x5
0x96c…972 }
0x972…997 96ee 1250 IF J>B THEN EXEC COPY1(J,FRANAVN$,TILNAVN$)
0x972…997 LineComalBin {
0x972…997 ptr = 0x96ee // 0x972 @0x0
0x972…997 lno = 0x04e2 // 0x974 @0x2
0x972…997 at0004 = ╱82╱ IF ╱ // 0x976 @0x4
0x972…997 at0005 = ╱4a╱J╱ // 0x977 @0x5
0x972…997 at0006 = ╱de╱>╱ // 0x978 @0x6
0x972…997 at0007 = ╱42╱B╱ // 0x979 @0x7
0x972…997 at0008 = ╱b6╱ THEN ╱ // 0x97a @0x8
0x972…997 at0009 = ╱9d╱ EXEC ╱ // 0x97b @0x9
0x972…997 at000a = ╱43╱C╱ // 0x97c @0xa
0x972…997 at000b = ╱4f╱O╱ // 0x97d @0xb
0x972…997 at000c = ╱50╱P╱ // 0x97e @0xc
0x972…997 at000d = ╱59╱Y╱ // 0x97f @0xd
0x972…997 at000e = ╱31╱1╱ // 0x980 @0xe
0x972…997 at000f = ╱ed╱(╱ // 0x981 @0xf
0x972…997 at0010 = ╱4a╱J╱ // 0x982 @0x10
0x972…997 at0011 = ╱ec╱,╱ // 0x983 @0x11
0x972…997 at0012 = ╱46╱F╱ // 0x984 @0x12
0x972…997 at0013 = ╱52╱R╱ // 0x985 @0x13
0x972…997 at0014 = ╱41╱A╱ // 0x986 @0x14
0x972…997 at0015 = ╱4e╱N╱ // 0x987 @0x15
0x972…997 at0016 = ╱41╱A╱ // 0x988 @0x16
0x972…997 at0017 = ╱56╱V╱ // 0x989 @0x17
0x972…997 at0018 = ╱4e╱N╱ // 0x98a @0x18
0x972…997 at0019 = ╱ef╱$╱ // 0x98b @0x19
0x972…997 at001a = ╱ec╱,╱ // 0x98c @0x1a
0x972…997 at001b = ╱54╱T╱ // 0x98d @0x1b
0x972…997 at001c = ╱49╱I╱ // 0x98e @0x1c
0x972…997 at001d = ╱4c╱L╱ // 0x98f @0x1d
0x972…997 at001e = ╱4e╱N╱ // 0x990 @0x1e
0x972…997 at001f = ╱41╱A╱ // 0x991 @0x1f
0x972…997 at0020 = ╱56╱V╱ // 0x992 @0x20
0x972…997 at0021 = ╱4e╱N╱ // 0x993 @0x21
0x972…997 at0022 = ╱ef╱$╱ // 0x994 @0x22
0x972…997 at0023 = ╱ee╱)╱ // 0x995 @0x23
0x972…997 at0024 = EOL // 0x996 @0x24
0x972…997 }
0x997…9af 9706 1260 PLADE=PLADE+10
0x997…9af LineComalBin {
0x997…9af ptr = 0x9706 // 0x997 @0x0
0x997…9af lno = 0x04ec // 0x999 @0x2
0x997…9af at0004 = ╱50╱P╱ // 0x99b @0x4
0x997…9af at0005 = ╱4c╱L╱ // 0x99c @0x5
0x997…9af at0006 = ╱41╱A╱ // 0x99d @0x6
0x997…9af at0007 = ╱44╱D╱ // 0x99e @0x7
0x997…9af at0008 = ╱45╱E╱ // 0x99f @0x8
0x997…9af at0009 = ╱dc╱=╱ // 0x9a0 @0x9
0x997…9af at000a = ╱50╱P╱ // 0x9a1 @0xa
0x997…9af at000b = ╱4c╱L╱ // 0x9a2 @0xb
0x997…9af at000c = ╱41╱A╱ // 0x9a3 @0xc
0x997…9af at000d = ╱44╱D╱ // 0x9a4 @0xd
0x997…9af at000e = ╱45╱E╱ // 0x9a5 @0xe
0x997…9af at000f = ╱e2╱+╱ // 0x9a6 @0xf
0x997…9af at0010 = ╱31╱1╱ // 0x9a7 @0x10
0x997…9af at0011 = ╱30╱0╱ // 0x9a8 @0x11
0x997…9af at0012 = ╱fe0000a004╱ // 0x9a9 @0x12
0x997…9af at0017 = EOL // 0x9ae @0x17
0x997…9af }
0x9af…9d6 972d 1270 IF H>B THEN EXEC COPY1(H,FRANAVN1$,TILNAVN1$)
0x9af…9d6 LineComalBin {
0x9af…9d6 ptr = 0x972d // 0x9af @0x0
0x9af…9d6 lno = 0x04f6 // 0x9b1 @0x2
0x9af…9d6 at0004 = ╱82╱ IF ╱ // 0x9b3 @0x4
0x9af…9d6 at0005 = ╱48╱H╱ // 0x9b4 @0x5
0x9af…9d6 at0006 = ╱de╱>╱ // 0x9b5 @0x6
0x9af…9d6 at0007 = ╱42╱B╱ // 0x9b6 @0x7
0x9af…9d6 at0008 = ╱b6╱ THEN ╱ // 0x9b7 @0x8
0x9af…9d6 at0009 = ╱9d╱ EXEC ╱ // 0x9b8 @0x9
0x9af…9d6 at000a = ╱43╱C╱ // 0x9b9 @0xa
0x9af…9d6 at000b = ╱4f╱O╱ // 0x9ba @0xb
0x9af…9d6 at000c = ╱50╱P╱ // 0x9bb @0xc
0x9af…9d6 at000d = ╱59╱Y╱ // 0x9bc @0xd
0x9af…9d6 at000e = ╱31╱1╱ // 0x9bd @0xe
0x9af…9d6 at000f = ╱ed╱(╱ // 0x9be @0xf
0x9af…9d6 at0010 = ╱48╱H╱ // 0x9bf @0x10
0x9af…9d6 at0011 = ╱ec╱,╱ // 0x9c0 @0x11
0x9af…9d6 at0012 = ╱46╱F╱ // 0x9c1 @0x12
0x9af…9d6 at0013 = ╱52╱R╱ // 0x9c2 @0x13
0x9af…9d6 at0014 = ╱41╱A╱ // 0x9c3 @0x14
0x9af…9d6 at0015 = ╱4e╱N╱ // 0x9c4 @0x15
0x9af…9d6 at0016 = ╱41╱A╱ // 0x9c5 @0x16
0x9af…9d6 at0017 = ╱56╱V╱ // 0x9c6 @0x17
0x9af…9d6 at0018 = ╱4e╱N╱ // 0x9c7 @0x18
0x9af…9d6 at0019 = ╱31╱1╱ // 0x9c8 @0x19
0x9af…9d6 at001a = ╱ef╱$╱ // 0x9c9 @0x1a
0x9af…9d6 at001b = ╱ec╱,╱ // 0x9ca @0x1b
0x9af…9d6 at001c = ╱54╱T╱ // 0x9cb @0x1c
0x9af…9d6 at001d = ╱49╱I╱ // 0x9cc @0x1d
0x9af…9d6 at001e = ╱4c╱L╱ // 0x9cd @0x1e
0x9af…9d6 at001f = ╱4e╱N╱ // 0x9ce @0x1f
0x9af…9d6 at0020 = ╱41╱A╱ // 0x9cf @0x20
0x9af…9d6 at0021 = ╱56╱V╱ // 0x9d0 @0x21
0x9af…9d6 at0022 = ╱4e╱N╱ // 0x9d1 @0x22
0x9af…9d6 at0023 = ╱31╱1╱ // 0x9d2 @0x23
0x9af…9d6 at0024 = ╱ef╱$╱ // 0x9d3 @0x24
0x9af…9d6 at0025 = ╱ee╱)╱ // 0x9d4 @0x25
0x9af…9d6 at0026 = EOL // 0x9d5 @0x26
0x9af…9d6 }
0x9d6…9dc 9733 1280 CLEAR
0x9d6…9dc LineComalBin {
0x9d6…9dc ptr = 0x9733 // 0x9d6 @0x0
0x9d6…9dc lno = 0x0500 // 0x9d8 @0x2
0x9d6…9dc at0004 = ╱a0╱ CLEAR ╱ // 0x9da @0x4
0x9d6…9dc at0005 = EOL // 0x9db @0x5
0x9d6…9dc }
0x9dc…9e2 9739 1290 REPEAT
0x9dc…9e2 LineComalBin {
0x9dc…9e2 ptr = 0x9739 // 0x9dc @0x0
0x9dc…9e2 lno = 0x050a // 0x9de @0x2
0x9dc…9e2 at0004 = ╱97╱ REPEAT ╱ // 0x9e0 @0x4
0x9dc…9e2 at0005 = EOL // 0x9e1 @0x5
0x9dc…9e2 }
0x9e2…9f7 974e 1300 CURSOR 15,13
0x9e2…9f7 LineComalBin {
0x9e2…9f7 ptr = 0x974e // 0x9e2 @0x0
0x9e2…9f7 lno = 0x0514 // 0x9e4 @0x2
0x9e2…9f7 at0004 = ╱a1╱ CURSOR ╱ // 0x9e6 @0x4
0x9e2…9f7 at0005 = ╱31╱1╱ // 0x9e7 @0x5
0x9e2…9f7 at0006 = ╱35╱5╱ // 0x9e8 @0x6
0x9e2…9f7 at0007 = ╱fe0000f004╱ // 0x9e9 @0x7
0x9e2…9f7 at000c = ╱ec╱,╱ // 0x9ee @0xc
0x9e2…9f7 at000d = ╱31╱1╱ // 0x9ef @0xd
0x9e2…9f7 at000e = ╱33╱3╱ // 0x9f0 @0xe
0x9e2…9f7 at000f = ╱fe0000d004╱ // 0x9f1 @0xf
0x9e2…9f7 at0014 = EOL // 0x9f6 @0x14
0x9e2…9f7 }
0x9f7…a1e 9775 1310 INPUT "Udtag pladen og tast RETURN ",A$
0x9f7…a1e LineComalBin {
0x9f7…a1e ptr = 0x9775 // 0x9f7 @0x0
0x9f7…a1e lno = 0x051e // 0x9f9 @0x2
0x9f7…a1e at0004 = ╱91╱ INPUT ╱ // 0x9fb @0x4
0x9f7…a1e at0005 = ╱22╱"╱ // 0x9fc @0x5
0x9f7…a1e at0006 = ╱55╱U╱ // 0x9fd @0x6
0x9f7…a1e at0007 = ╱64╱d╱ // 0x9fe @0x7
0x9f7…a1e at0008 = ╱74╱t╱ // 0x9ff @0x8
0x9f7…a1e at0009 = ╱61╱a╱ // 0xa00 @0x9
0x9f7…a1e at000a = ╱67╱g╱ // 0xa01 @0xa
0x9f7…a1e at000b = ╱20╱…╱ // 0xa02 @0xb
0x9f7…a1e at000c = ╱70╱p╱ // 0xa03 @0xc
0x9f7…a1e at000d = ╱6c╱l╱ // 0xa04 @0xd
0x9f7…a1e at000e = ╱61╱a╱ // 0xa05 @0xe
0x9f7…a1e at000f = ╱64╱d╱ // 0xa06 @0xf
0x9f7…a1e at0010 = ╱65╱e╱ // 0xa07 @0x10
0x9f7…a1e at0011 = ╱6e╱n╱ // 0xa08 @0x11
0x9f7…a1e at0012 = ╱20╱…╱ // 0xa09 @0x12
0x9f7…a1e at0013 = ╱6f╱o╱ // 0xa0a @0x13
0x9f7…a1e at0014 = ╱67╱g╱ // 0xa0b @0x14
0x9f7…a1e at0015 = ╱20╱…╱ // 0xa0c @0x15
0x9f7…a1e at0016 = ╱74╱t╱ // 0xa0d @0x16
0x9f7…a1e at0017 = ╱61╱a╱ // 0xa0e @0x17
0x9f7…a1e at0018 = ╱73╱s╱ // 0xa0f @0x18
0x9f7…a1e at0019 = ╱74╱t╱ // 0xa10 @0x19
0x9f7…a1e at001a = ╱20╱…╱ // 0xa11 @0x1a
0x9f7…a1e at001b = ╱52╱R╱ // 0xa12 @0x1b
0x9f7…a1e at001c = ╱45╱E╱ // 0xa13 @0x1c
0x9f7…a1e at001d = ╱54╱T╱ // 0xa14 @0x1d
0x9f7…a1e at001e = ╱55╱U╱ // 0xa15 @0x1e
0x9f7…a1e at001f = ╱52╱R╱ // 0xa16 @0x1f
0x9f7…a1e at0020 = ╱4e╱N╱ // 0xa17 @0x20
0x9f7…a1e at0021 = ╱20╱…╱ // 0xa18 @0x21
0x9f7…a1e at0022 = ╱22╱"╱ // 0xa19 @0x22
0x9f7…a1e at0023 = ╱ec╱,╱ // 0xa1a @0x23
0x9f7…a1e at0024 = ╱41╱A╱ // 0xa1b @0x24
0x9f7…a1e at0025 = ╱ef╱$╱ // 0xa1c @0x25
0x9f7…a1e at0026 = EOL // 0xa1d @0x26
0x9f7…a1e }
0xa1e…a2e 9785 1320 EXEC NRTEST(A$)
0xa1e…a2e LineComalBin {
0xa1e…a2e ptr = 0x9785 // 0xa1e @0x0
0xa1e…a2e lno = 0x0528 // 0xa20 @0x2
0xa1e…a2e at0004 = ╱9d╱ EXEC ╱ // 0xa22 @0x4
0xa1e…a2e at0005 = ╱4e╱N╱ // 0xa23 @0x5
0xa1e…a2e at0006 = ╱52╱R╱ // 0xa24 @0x6
0xa1e…a2e at0007 = ╱54╱T╱ // 0xa25 @0x7
0xa1e…a2e at0008 = ╱45╱E╱ // 0xa26 @0x8
0xa1e…a2e at0009 = ╱53╱S╱ // 0xa27 @0x9
0xa1e…a2e at000a = ╱54╱T╱ // 0xa28 @0xa
0xa1e…a2e at000b = ╱ed╱(╱ // 0xa29 @0xb
0xa1e…a2e at000c = ╱41╱A╱ // 0xa2a @0xc
0xa1e…a2e at000d = ╱ef╱$╱ // 0xa2b @0xd
0xa1e…a2e at000e = ╱ee╱)╱ // 0xa2c @0xe
0xa1e…a2e at000f = EOL // 0xa2d @0xf
0xa1e…a2e }
0xa2e…a38 978f 1330 UNTIL P=-E
0xa2e…a38 LineComalBin {
0xa2e…a38 ptr = 0x978f // 0xa2e @0x0
0xa2e…a38 lno = 0x0532 // 0xa30 @0x2
0xa2e…a38 at0004 = ╱98╱ UNTIL ╱ // 0xa32 @0x4
0xa2e…a38 at0005 = ╱50╱P╱ // 0xa33 @0x5
0xa2e…a38 at0006 = ╱dc╱=╱ // 0xa34 @0x6
0xa2e…a38 at0007 = ╱e9╱-╱ // 0xa35 @0x7
0xa2e…a38 at0008 = ╱45╱E╱ // 0xa36 @0x8
0xa2e…a38 at0009 = EOL // 0xa37 @0x9
0xa2e…a38 }
0xa38…a47 979e 1340 CASE MAFSLUT OF
0xa38…a47 LineComalBin {
0xa38…a47 ptr = 0x979e // 0xa38 @0x0
0xa38…a47 lno = 0x053c // 0xa3a @0x2
0xa38…a47 at0004 = ╱a201╱ CASE ╱ // 0xa3c @0x4
0xa38…a47 at0006 = ╱4d╱M╱ // 0xa3e @0x6
0xa38…a47 at0007 = ╱41╱A╱ // 0xa3f @0x7
0xa38…a47 at0008 = ╱46╱F╱ // 0xa40 @0x8
0xa38…a47 at0009 = ╱53╱S╱ // 0xa41 @0x9
0xa38…a47 at000a = ╱4c╱L╱ // 0xa42 @0xa
0xa38…a47 at000b = ╱55╱U╱ // 0xa43 @0xb
0xa38…a47 at000c = ╱54╱T╱ // 0xa44 @0xc
0xa38…a47 at000d = ╱ba╱ OF ╱ // 0xa45 @0xd
0xa38…a47 at000e = EOL // 0xa46 @0xe
0xa38…a47 }
0xa47…a4f 97a6 1350 WHEN B
0xa47…a4f LineComalBin {
0xa47…a4f ptr = 0x97a6 // 0xa47 @0x0
0xa47…a4f lno = 0x0546 // 0xa49 @0x2
0xa47…a4f at0004 = ╱a301╱ WHEN ╱ // 0xa4b @0x4
0xa47…a4f at0006 = ╱42╱B╱ // 0xa4d @0x6
0xa47…a4f at0007 = EOL // 0xa4e @0x7
0xa47…a4f }
0xa4f…a72 97c9 1360 IF T1(7)>B THEN CHAIN "P641210:FJOUR"
0xa4f…a72 LineComalBin {
0xa4f…a72 ptr = 0x97c9 // 0xa4f @0x0
0xa4f…a72 lno = 0x0550 // 0xa51 @0x2
0xa4f…a72 at0004 = ╱82╱ IF ╱ // 0xa53 @0x4
0xa4f…a72 at0005 = ╱54╱T╱ // 0xa54 @0x5
0xa4f…a72 at0006 = ╱31╱1╱ // 0xa55 @0x6
0xa4f…a72 at0007 = ╱ed╱(╱ // 0xa56 @0x7
0xa4f…a72 at0008 = ╱37╱7╱ // 0xa57 @0x8
0xa4f…a72 at0009 = ╱fe0000e003╱ // 0xa58 @0x9
0xa4f…a72 at000e = ╱ee╱)╱ // 0xa5d @0xe
0xa4f…a72 at000f = ╱de╱>╱ // 0xa5e @0xf
0xa4f…a72 at0010 = ╱42╱B╱ // 0xa5f @0x10
0xa4f…a72 at0011 = ╱b6╱ THEN ╱ // 0xa60 @0x11
0xa4f…a72 at0012 = ╱ac╱ CHAIN ╱ // 0xa61 @0x12
0xa4f…a72 at0013 = ╱22╱"╱ // 0xa62 @0x13
0xa4f…a72 at0014 = ╱50╱P╱ // 0xa63 @0x14
0xa4f…a72 at0015 = ╱36╱6╱ // 0xa64 @0x15
0xa4f…a72 at0016 = ╱34╱4╱ // 0xa65 @0x16
0xa4f…a72 at0017 = ╱31╱1╱ // 0xa66 @0x17
0xa4f…a72 at0018 = ╱32╱2╱ // 0xa67 @0x18
0xa4f…a72 at0019 = ╱31╱1╱ // 0xa68 @0x19
0xa4f…a72 at001a = ╱30╱0╱ // 0xa69 @0x1a
0xa4f…a72 at001b = ╱3a╱:╱ // 0xa6a @0x1b
0xa4f…a72 at001c = ╱46╱F╱ // 0xa6b @0x1c
0xa4f…a72 at001d = ╱4a╱J╱ // 0xa6c @0x1d
0xa4f…a72 at001e = ╱4f╱O╱ // 0xa6d @0x1e
0xa4f…a72 at001f = ╱55╱U╱ // 0xa6e @0x1f
0xa4f…a72 at0020 = ╱52╱R╱ // 0xa6f @0x20
0xa4f…a72 at0021 = ╱22╱"╱ // 0xa70 @0x21
0xa4f…a72 at0022 = EOL // 0xa71 @0x22
0xa4f…a72 }
0xa72…a92 97e9 1370 IF T1(7)=B THEN CHAIN "P641210:BJ"
0xa72…a92 LineComalBin {
0xa72…a92 ptr = 0x97e9 // 0xa72 @0x0
0xa72…a92 lno = 0x055a // 0xa74 @0x2
0xa72…a92 at0004 = ╱82╱ IF ╱ // 0xa76 @0x4
0xa72…a92 at0005 = ╱54╱T╱ // 0xa77 @0x5
0xa72…a92 at0006 = ╱31╱1╱ // 0xa78 @0x6
0xa72…a92 at0007 = ╱ed╱(╱ // 0xa79 @0x7
0xa72…a92 at0008 = ╱37╱7╱ // 0xa7a @0x8
0xa72…a92 at0009 = ╱fe0000e003╱ // 0xa7b @0x9
0xa72…a92 at000e = ╱ee╱)╱ // 0xa80 @0xe
0xa72…a92 at000f = ╱dc╱=╱ // 0xa81 @0xf
0xa72…a92 at0010 = ╱42╱B╱ // 0xa82 @0x10
0xa72…a92 at0011 = ╱b6╱ THEN ╱ // 0xa83 @0x11
0xa72…a92 at0012 = ╱ac╱ CHAIN ╱ // 0xa84 @0x12
0xa72…a92 at0013 = ╱22╱"╱ // 0xa85 @0x13
0xa72…a92 at0014 = ╱50╱P╱ // 0xa86 @0x14
0xa72…a92 at0015 = ╱36╱6╱ // 0xa87 @0x15
0xa72…a92 at0016 = ╱34╱4╱ // 0xa88 @0x16
0xa72…a92 at0017 = ╱31╱1╱ // 0xa89 @0x17
0xa72…a92 at0018 = ╱32╱2╱ // 0xa8a @0x18
0xa72…a92 at0019 = ╱31╱1╱ // 0xa8b @0x19
0xa72…a92 at001a = ╱30╱0╱ // 0xa8c @0x1a
0xa72…a92 at001b = ╱3a╱:╱ // 0xa8d @0x1b
0xa72…a92 at001c = ╱42╱B╱ // 0xa8e @0x1c
0xa72…a92 at001d = ╱4a╱J╱ // 0xa8f @0x1d
0xa72…a92 at001e = ╱22╱"╱ // 0xa90 @0x1e
0xa72…a92 at001f = EOL // 0xa91 @0x1f
0xa72…a92 }
0xa92…a9a 97f1 1380 WHEN E
0xa92…a9a LineComalBin {
0xa92…a9a ptr = 0x97f1 // 0xa92 @0x0
0xa92…a9a lno = 0x0564 // 0xa94 @0x2
0xa92…a9a at0004 = ╱a301╱ WHEN ╱ // 0xa96 @0x4
0xa92…a9a at0006 = ╱45╱E╱ // 0xa98 @0x6
0xa92…a9a at0007 = EOL // 0xa99 @0x7
0xa92…a9a }
0xa9a…aae 9805 1390 CHAIN "P641210:KSP1"
0xa9a…aae LineComalBin {
0xa9a…aae ptr = 0x9805 // 0xa9a @0x0
0xa9a…aae lno = 0x056e // 0xa9c @0x2
0xa9a…aae at0004 = ╱ac╱ CHAIN ╱ // 0xa9e @0x4
0xa9a…aae at0005 = ╱22╱"╱ // 0xa9f @0x5
0xa9a…aae at0006 = ╱50╱P╱ // 0xaa0 @0x6
0xa9a…aae at0007 = ╱36╱6╱ // 0xaa1 @0x7
0xa9a…aae at0008 = ╱34╱4╱ // 0xaa2 @0x8
0xa9a…aae at0009 = ╱31╱1╱ // 0xaa3 @0x9
0xa9a…aae at000a = ╱32╱2╱ // 0xaa4 @0xa
0xa9a…aae at000b = ╱31╱1╱ // 0xaa5 @0xb
0xa9a…aae at000c = ╱30╱0╱ // 0xaa6 @0xc
0xa9a…aae at000d = ╱3a╱:╱ // 0xaa7 @0xd
0xa9a…aae at000e = ╱4b╱K╱ // 0xaa8 @0xe
0xa9a…aae at000f = ╱53╱S╱ // 0xaa9 @0xf
0xa9a…aae at0010 = ╱50╱P╱ // 0xaaa @0x10
0xa9a…aae at0011 = ╱31╱1╱ // 0xaab @0x11
0xa9a…aae at0012 = ╱22╱"╱ // 0xaac @0x12
0xa9a…aae at0013 = EOL // 0xaad @0x13
0xa9a…aae }
0xaae…ab6 980d 1400 WHEN G
0xaae…ab6 LineComalBin {
0xaae…ab6 ptr = 0x980d // 0xaae @0x0
0xaae…ab6 lno = 0x0578 // 0xab0 @0x2
0xaae…ab6 at0004 = ╱a301╱ WHEN ╱ // 0xab2 @0x4
0xaae…ab6 at0006 = ╱47╱G╱ // 0xab4 @0x6
0xaae…ab6 at0007 = EOL // 0xab5 @0x7
0xaae…ab6 }
0xab6…acc 9823 1410 CHAIN "P641210:ÅRSLUT"
0xab6…acc LineComalBin {
0xab6…acc ptr = 0x9823 // 0xab6 @0x0
0xab6…acc lno = 0x0582 // 0xab8 @0x2
0xab6…acc at0004 = ╱ac╱ CHAIN ╱ // 0xaba @0x4
0xab6…acc at0005 = ╱22╱"╱ // 0xabb @0x5
0xab6…acc at0006 = ╱50╱P╱ // 0xabc @0x6
0xab6…acc at0007 = ╱36╱6╱ // 0xabd @0x7
0xab6…acc at0008 = ╱34╱4╱ // 0xabe @0x8
0xab6…acc at0009 = ╱31╱1╱ // 0xabf @0x9
0xab6…acc at000a = ╱32╱2╱ // 0xac0 @0xa
0xab6…acc at000b = ╱31╱1╱ // 0xac1 @0xb
0xab6…acc at000c = ╱30╱0╱ // 0xac2 @0xc
0xab6…acc at000d = ╱3a╱:╱ // 0xac3 @0xd
0xab6…acc at000e = ╱5d╱Å╱ // 0xac4 @0xe
0xab6…acc at000f = ╱52╱R╱ // 0xac5 @0xf
0xab6…acc at0010 = ╱53╱S╱ // 0xac6 @0x10
0xab6…acc at0011 = ╱4c╱L╱ // 0xac7 @0x11
0xab6…acc at0012 = ╱55╱U╱ // 0xac8 @0x12
0xab6…acc at0013 = ╱54╱T╱ // 0xac9 @0x13
0xab6…acc at0014 = ╱22╱"╱ // 0xaca @0x14
0xab6…acc at0015 = EOL // 0xacb @0x15
0xab6…acc }
0xacc…ad4 982b 1420 WHEN V
0xacc…ad4 LineComalBin {
0xacc…ad4 ptr = 0x982b // 0xacc @0x0
0xacc…ad4 lno = 0x058c // 0xace @0x2
0xacc…ad4 at0004 = ╱a301╱ WHEN ╱ // 0xad0 @0x4
0xacc…ad4 at0006 = ╱56╱V╱ // 0xad2 @0x6
0xacc…ad4 at0007 = EOL // 0xad3 @0x7
0xacc…ad4 }
0xad4…aeb (36,) 9842 1430 CHAIN "P641210:OPSTART"
0xad4…aeb LineComalBin {
0xad4…aeb ptr = 0x9842 // 0xad4 @0x0
0xad4…aeb lno = 0x0596 // 0xad6 @0x2
0xad4…aeb at0004 = ╱ac╱ CHAIN ╱ // 0xad8 @0x4
0xad4…aeb at0005 = ╱22╱"╱ // 0xad9 @0x5
0xad4…aeb at0006 = ╱50╱P╱ // 0xada @0x6
0xad4…aeb at0007 = ╱36╱6╱ // 0xadb @0x7
0xad4…aeb at0008 = ╱34╱4╱ // 0xadc @0x8
0xad4…aeb at0009 = ╱31╱1╱ // 0xadd @0x9
0xad4…aeb at000a = ╱32╱2╱ // 0xade @0xa
0xad4…aeb at000b = ╱31╱1╱ // 0xadf @0xb
0xad4…aeb at000c = ╱30╱0╱ // 0xae0 @0xc
0xad4…aeb at000d = ╱3a╱:╱ // 0xae1 @0xd
0xad4…aeb at000e = ╱4f╱O╱ // 0xae2 @0xe
0xad4…aeb at000f = ╱50╱P╱ // 0xae3 @0xf
0xad4…aeb at0010 = ╱53╱S╱ // 0xae4 @0x10
0xad4…aeb at0011 = ╱54╱T╱ // 0xae5 @0x11
0xad4…aeb at0012 = ╱41╱A╱ // 0xae6 @0x12
0xad4…aeb at0013 = ╱52╱R╱ // 0xae7 @0x13
0xad4…aeb at0014 = ╱54╱T╱ // 0xae8 @0x14
0xad4…aeb at0015 = ╱22╱"╱ // 0xae9 @0x15
0xad4…aeb at0016 = EOL // 0xaea @0x16
0xad4…aeb }
0xaeb…af1 0000 1440 ENDCASE
0xaeb…af1 LineComalBin {
0xaeb…af1 ptr = 0x0000 // 0xaeb @0x0
0xaeb…af1 lno = 0x05a0 // 0xaed @0x2
0xaeb…af1 at0004 = ╱a4╱ ENDCASE ╱ // 0xaef @0x4
0xaeb…af1 at0005 = EOL // 0xaf0 @0x5
0xaeb…af1 }
0xaf1…b00 57 8d 5a 00 42 dc 30 fe 00 00 00 00 eb 45 dc ┆W Z B 0 E ┆
0xb00…b20 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 90 ┆1 G 2 V 3 W 9 ┆
0xb20…b21 04 ┆ ┆
0xb21…b41 (37,) ff 20 92 9e 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 33 22 ┆ DREVFRA "P1" DREVTIL "P3"┆
0xb41…b4c eb 54 59 50 45 ef dc 22 4b 22 ff ┆ TYPE "K" ┆
0xb4c…b52 (38,) 57 8d 48 98 10 00 ┆W H ┆