|
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: 3668 (0xe54)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »ÅRSAFSLT.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »ÅRSAFSLT.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »ÅRSAFSLT.B«
0110 DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E) 0120 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 0160 DIM MF1$(16) 0210 DIM X(8),Y(8),TYPE(8) 0220 DIM BL$(79),L$(79),LIN$(12) 0230 FOR I=E TO 79 0240 BL$=BL$+" " 0250 NEXT I 0255 TAH$=" 0+" 0260 X(E)=27 0270 X(G)=34;X(V)=36 0290 X(4),X(5),X(6),X(7),X(8)=39 0310 Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5;Y(6)=7;Y(7)=8;Y(8)=W 0340 TYPE(E),TYPE(G)=6 0350 TYPE(4),TYPE(7),TYPE(8),TYPE(5),TYPE(6)=-E 0360 TYPE(V)=-4 0370 PROC C(AR3,B1,B2,ES) 0380 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0390 CALL "P641210:REGN" 0400 IF AR3<6 THEN 0410 IF FLAG THEN STOP 0420 ENDIF 0430 ES$=RES$ 0440 ENDPROC 0650 PROC DATOCHECK(NR5,OK5) 0660 OK5=E 0670 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0680 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0690 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0700 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0710 IF OK5=B THEN EXIT 0720 CASE MÅNED OF 0730 WHEN 4,6,W,11 0740 IF DATO>30 THEN OK5=B 0750 WHEN G 0760 IF DATO>29 THEN OK5=B 0770 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0780 ENDCASE 0790 ENDPROC 1000 PROC CHECK(NR1,OK1) 1010 OK1=B 1020 RESULT=B 1030 IF LEN(NR1$)>B THEN 1040 IF NR1$(E)="-" THEN 1050 FORTEGN=-E 1060 OK1=E 1070 ELSE 1080 FORTEGN=E 1090 ENDIF 1100 WHILE LEN(NR1$)>OK1 1110 OK1=OK1+E 1120 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 1130 FORTEGN=B 1140 OK1=LEN(NR1$) 1150 ENDIF 1160 RESULT=RESULT*10+ORD(NR1$(OK1))-48 1170 ENDWHILE 1175 RESULT=RESULT*FORTEGN 1180 OK1=OK1*FORTEGN 1190 IF OK1<B THEN OK1=OK1+E 1200 ENDIF 1210 ENDPROC 1220 PROC INOPL(OPL) 1230 EXEC INLINE(OPL) 1240 CASE OPL OF 1250 WHEN E 1260 REPEAT 1270 EXEC DATOCHECK(L$,I) 1280 IF I=B THEN EXEC INLINE(OPL) 1290 UNTIL I=E 1300 EXEC CONVDATE(STARTPER$,RESULT) 1310 WHEN G 1320 REPEAT 1330 EXEC DATOCHECK(L$,I) 1340 IF I=B THEN EXEC INLINE(OPL) 1350 UNTIL I=E 1360 EXEC CONVDATE(SLUTPER$,RESULT) 1460 WHEN V 1470 REPEAT 1480 L$=L$+"+" 1490 EXEC C(6,L$,TAH$,LIN$) 1500 IF FLAG<>B THEN EXEC INLINE(OPL) 1510 UNTIL FLAG=B 1520 EXEC C(0,L$,TAH$,LIN$) 1530 EXEC PERVERT(LIN$,MFD) 1540 WHEN 4 1550 WHILE L$<"1" OR L$>"7" 1560 EXEC INLINE(OPL) 1570 ENDWHILE 1580 LP$=L$ 1590 WHEN 5 1600 WHILE L$<>"A" AND L$<>"F" 1610 EXEC INLINE(OPL) 1620 ENDWHILE 1630 ORK$=L$ 1640 WHEN 7,8,6 1650 WHILE L$<>"J" AND L$<>"N" 1660 EXEC INLINE(OPL) 1670 ENDWHILE 1680 IF L$="J" THEN ORK$="0" 1870 ENDCASE 1880 ENDPROC 2020 PROC INLINE(N) 2030 REPEAT 2040 CURSOR X(N),Y(N) 2050 INPUT "",L$ 2060 IF TYPE(N)<B THEN 2070 IF LEN(L$)<=ABS(TYPE(N)) THEN 2080 OK=E 2090 FOR I=LEN(L$)+E TO ABS(TYPE(N)) 2100 L$(I)=" " 2110 NEXT I 2120 ELSE 2130 OK=B 2140 ENDIF 2150 ELSE 2160 EXEC CHECK(L$,OK) 2170 IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 2180 ENDIF 2190 UNTIL OK<>B 2200 ENDPROC 2210 PROC SKRIVPICT 2220 CLEAR 2230 PRINT TAB(15);"Årsafslutning" 2240 PRINT " Lønperioden" 2260 PRINT " Maksimum feriedage i året" 2270 PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7" 2280 PRINT " Arbejdere(A) eller funktionærer(F)" 2290 PRINT " Mangler der:" 2300 PRINT " Lønafregninger ja(J) eller nej(N)" 2310 PRINT " Ferie- og SH-opg ja(J) eller nej(N)" 2320 PRINT " Arbejderlønstat ja(J) eller nej(N)" 2330 PRINT " Der udskrives:" 2340 PRINT " Lønjournal" 2350 PRINT " Ferieliste" 2360 PRINT " Lønmodtagerkartotekets tælleværker" 2370 PRINT " Årsoplysningssedler" 2380 PRINT 2390 PRINT " Fratrådte fjernes" 2400 PRINT 2410 PRINT " 0-stilling af:" 2412 PRINT " Samtlige tælleværker" 2414 PRINT " Skattekortoplysninger" 2420 ENDPROC 2600 PROC CONVDATE(NR1,OK1) 2610 OK11=OK1;NR1$="" 2620 FOR I=8 TO E STEP -E 2630 IF I MOD V=B THEN 2640 NR1$(I)="-" 2650 ELSE 2660 NR1$(I)=CHR(OK11 MOD 10+48) 2670 OK11=OK11 DIV 10 2680 ENDIF 2690 NEXT I 2700 ENDPROC 2890 PROC PERVERT(NR1,OK1) 2900 OK1=B 2910 FOR I=E TO LEN(NR1$)-E 2920 IF NR1$(I)<>" " AND NR1$(I)<>"," THEN OK1=10*OK1+ORD(NR1$(I))-48 2930 NEXT I 2940 IF NR1$(I)="-" THEN OK1=-OK1 2950 OK1=OK1/100 2960 ENDPROC 8291 MF1$="P641210:LØNJOUR" 8292 OPEN MF1$,W 8300 EXEC SKRIVPICT 8310 FOR J=E TO 8 8330 EXEC INOPL(J) 8340 NEXT J 8370 L$=BL$ 8372 PUT MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD 8870 CLOSE 8875 IF ORK$<>"0" THEN 8880 CHAIN "P641210:AFSLJOUR" 8890 ELSE 8900 CHAIN "P641210:STARTB" 8910 ENDIF
0x000…037 (0,) 8d8e 0110 DIM STARTPER$(8),SLUTPER$(8),LP$(E),ORK$(E)
0x000…037 LineComalBin {
0x000…037 ptr = 0x8d8e // 0x0 @0x0
0x000…037 lno = 0x006e // 0x2 @0x2
0x000…037 at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x000…037 at0005 = ╱53╱S╱ // 0x5 @0x5
0x000…037 at0006 = ╱54╱T╱ // 0x6 @0x6
0x000…037 at0007 = ╱41╱A╱ // 0x7 @0x7
0x000…037 at0008 = ╱52╱R╱ // 0x8 @0x8
0x000…037 at0009 = ╱54╱T╱ // 0x9 @0x9
0x000…037 at000a = ╱50╱P╱ // 0xa @0xa
0x000…037 at000b = ╱45╱E╱ // 0xb @0xb
0x000…037 at000c = ╱52╱R╱ // 0xc @0xc
0x000…037 at000d = ╱ef╱$╱ // 0xd @0xd
0x000…037 at000e = ╱ed╱(╱ // 0xe @0xe
0x000…037 at000f = ╱38╱8╱ // 0xf @0xf
0x000…037 at0010 = ╱fe00008004╱ // 0x10 @0x10
0x000…037 at0015 = ╱ee╱)╱ // 0x15 @0x15
0x000…037 at0016 = ╱ec╱,╱ // 0x16 @0x16
0x000…037 at0017 = ╱53╱S╱ // 0x17 @0x17
0x000…037 at0018 = ╱4c╱L╱ // 0x18 @0x18
0x000…037 at0019 = ╱55╱U╱ // 0x19 @0x19
0x000…037 at001a = ╱54╱T╱ // 0x1a @0x1a
0x000…037 at001b = ╱50╱P╱ // 0x1b @0x1b
0x000…037 at001c = ╱45╱E╱ // 0x1c @0x1c
0x000…037 at001d = ╱52╱R╱ // 0x1d @0x1d
0x000…037 at001e = ╱ef╱$╱ // 0x1e @0x1e
0x000…037 at001f = ╱ed╱(╱ // 0x1f @0x1f
0x000…037 at0020 = ╱38╱8╱ // 0x20 @0x20
0x000…037 at0021 = ╱fe00008004╱ // 0x21 @0x21
0x000…037 at0026 = ╱ee╱)╱ // 0x26 @0x26
0x000…037 at0027 = ╱ec╱,╱ // 0x27 @0x27
0x000…037 at0028 = ╱4c╱L╱ // 0x28 @0x28
0x000…037 at0029 = ╱50╱P╱ // 0x29 @0x29
0x000…037 at002a = ╱ef╱$╱ // 0x2a @0x2a
0x000…037 at002b = ╱ed╱(╱ // 0x2b @0x2b
0x000…037 at002c = ╱45╱E╱ // 0x2c @0x2c
0x000…037 at002d = ╱ee╱)╱ // 0x2d @0x2d
0x000…037 at002e = ╱ec╱,╱ // 0x2e @0x2e
0x000…037 at002f = ╱4f╱O╱ // 0x2f @0x2f
0x000…037 at0030 = ╱52╱R╱ // 0x30 @0x30
0x000…037 at0031 = ╱4b╱K╱ // 0x31 @0x31
0x000…037 at0032 = ╱ef╱$╱ // 0x32 @0x32
0x000…037 at0033 = ╱ed╱(╱ // 0x33 @0x33
0x000…037 at0034 = ╱45╱E╱ // 0x34 @0x34
0x000…037 at0035 = ╱ee╱)╱ // 0x35 @0x35
0x000…037 at0036 = EOL // 0x36 @0x36
0x000…037 }
0x037…074 8dcb 0120 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12)
0x037…074 LineComalBin {
0x037…074 ptr = 0x8dcb // 0x37 @0x0
0x037…074 lno = 0x0078 // 0x39 @0x2
0x037…074 at0004 = ╱87╱ DIM ╱ // 0x3b @0x4
0x037…074 at0005 = ╱52╱R╱ // 0x3c @0x5
0x037…074 at0006 = ╱45╱E╱ // 0x3d @0x6
0x037…074 at0007 = ╱53╱S╱ // 0x3e @0x7
0x037…074 at0008 = ╱ef╱$╱ // 0x3f @0x8
0x037…074 at0009 = ╱ed╱(╱ // 0x40 @0x9
0x037…074 at000a = ╱31╱1╱ // 0x41 @0xa
0x037…074 at000b = ╱35╱5╱ // 0x42 @0xb
0x037…074 at000c = ╱fe0000f004╱ // 0x43 @0xc
0x037…074 at0011 = ╱ee╱)╱ // 0x48 @0x11
0x037…074 at0012 = ╱ec╱,╱ // 0x49 @0x12
0x037…074 at0013 = ╱4f╱O╱ // 0x4a @0x13
0x037…074 at0014 = ╱50╱P╱ // 0x4b @0x14
0x037…074 at0015 = ╱31╱1╱ // 0x4c @0x15
0x037…074 at0016 = ╱ef╱$╱ // 0x4d @0x16
0x037…074 at0017 = ╱ed╱(╱ // 0x4e @0x17
0x037…074 at0018 = ╱31╱1╱ // 0x4f @0x18
0x037…074 at0019 = ╱32╱2╱ // 0x50 @0x19
0x037…074 at001a = ╱fe0000c004╱ // 0x51 @0x1a
0x037…074 at001f = ╱ee╱)╱ // 0x56 @0x1f
0x037…074 at0020 = ╱ec╱,╱ // 0x57 @0x20
0x037…074 at0021 = ╱4f╱O╱ // 0x58 @0x21
0x037…074 at0022 = ╱50╱P╱ // 0x59 @0x22
0x037…074 at0023 = ╱32╱2╱ // 0x5a @0x23
0x037…074 at0024 = ╱ef╱$╱ // 0x5b @0x24
0x037…074 at0025 = ╱ed╱(╱ // 0x5c @0x25
0x037…074 at0026 = ╱31╱1╱ // 0x5d @0x26
0x037…074 at0027 = ╱32╱2╱ // 0x5e @0x27
0x037…074 at0028 = ╱fe0000c004╱ // 0x5f @0x28
0x037…074 at002d = ╱ee╱)╱ // 0x64 @0x2d
0x037…074 at002e = ╱ec╱,╱ // 0x65 @0x2e
0x037…074 at002f = ╱54╱T╱ // 0x66 @0x2f
0x037…074 at0030 = ╱41╱A╱ // 0x67 @0x30
0x037…074 at0031 = ╱48╱H╱ // 0x68 @0x31
0x037…074 at0032 = ╱ef╱$╱ // 0x69 @0x32
0x037…074 at0033 = ╱ed╱(╱ // 0x6a @0x33
0x037…074 at0034 = ╱31╱1╱ // 0x6b @0x34
0x037…074 at0035 = ╱32╱2╱ // 0x6c @0x35
0x037…074 at0036 = ╱fe0000c004╱ // 0x6d @0x36
0x037…074 at003b = ╱ee╱)╱ // 0x72 @0x3b
0x037…074 at003c = EOL // 0x73 @0x3c
0x037…074 }
0x074…087 8dde 0160 DIM MF1$(16)
0x074…087 LineComalBin {
0x074…087 ptr = 0x8dde // 0x74 @0x0
0x074…087 lno = 0x00a0 // 0x76 @0x2
0x074…087 at0004 = ╱87╱ DIM ╱ // 0x78 @0x4
0x074…087 at0005 = ╱4d╱M╱ // 0x79 @0x5
0x074…087 at0006 = ╱46╱F╱ // 0x7a @0x6
0x074…087 at0007 = ╱31╱1╱ // 0x7b @0x7
0x074…087 at0008 = ╱ef╱$╱ // 0x7c @0x8
0x074…087 at0009 = ╱ed╱(╱ // 0x7d @0x9
0x074…087 at000a = ╱31╱1╱ // 0x7e @0xa
0x074…087 at000b = ╱36╱6╱ // 0x7f @0xb
0x074…087 at000c = ╱fe00008005╱ // 0x80 @0xc
0x074…087 at0011 = ╱ee╱)╱ // 0x85 @0x11
0x074…087 at0012 = EOL // 0x86 @0x12
0x074…087 }
0x087…0ad 8e04 0210 DIM X(8),Y(8),TYPE(8)
0x087…0ad LineComalBin {
0x087…0ad ptr = 0x8e04 // 0x87 @0x0
0x087…0ad lno = 0x00d2 // 0x89 @0x2
0x087…0ad at0004 = ╱87╱ DIM ╱ // 0x8b @0x4
0x087…0ad at0005 = ╱58╱X╱ // 0x8c @0x5
0x087…0ad at0006 = ╱ed╱(╱ // 0x8d @0x6
0x087…0ad at0007 = ╱38╱8╱ // 0x8e @0x7
0x087…0ad at0008 = ╱fe00008004╱ // 0x8f @0x8
0x087…0ad at000d = ╱ee╱)╱ // 0x94 @0xd
0x087…0ad at000e = ╱ec╱,╱ // 0x95 @0xe
0x087…0ad at000f = ╱59╱Y╱ // 0x96 @0xf
0x087…0ad at0010 = ╱ed╱(╱ // 0x97 @0x10
0x087…0ad at0011 = ╱38╱8╱ // 0x98 @0x11
0x087…0ad at0012 = ╱fe00008004╱ // 0x99 @0x12
0x087…0ad at0017 = ╱ee╱)╱ // 0x9e @0x17
0x087…0ad at0018 = ╱ec╱,╱ // 0x9f @0x18
0x087…0ad at0019 = ╱54╱T╱ // 0xa0 @0x19
0x087…0ad at001a = ╱59╱Y╱ // 0xa1 @0x1a
0x087…0ad at001b = ╱50╱P╱ // 0xa2 @0x1b
0x087…0ad at001c = ╱45╱E╱ // 0xa3 @0x1c
0x087…0ad at001d = ╱ed╱(╱ // 0xa4 @0x1d
0x087…0ad at001e = ╱38╱8╱ // 0xa5 @0x1e
0x087…0ad at001f = ╱fe00008004╱ // 0xa6 @0x1f
0x087…0ad at0024 = ╱ee╱)╱ // 0xab @0x24
0x087…0ad at0025 = EOL // 0xac @0x25
0x087…0ad }
0x0ad…0d9 8e30 0220 DIM BL$(79),L$(79),LIN$(12)
0x0ad…0d9 LineComalBin {
0x0ad…0d9 ptr = 0x8e30 // 0xad @0x0
0x0ad…0d9 lno = 0x00dc // 0xaf @0x2
0x0ad…0d9 at0004 = ╱87╱ DIM ╱ // 0xb1 @0x4
0x0ad…0d9 at0005 = ╱42╱B╱ // 0xb2 @0x5
0x0ad…0d9 at0006 = ╱4c╱L╱ // 0xb3 @0x6
0x0ad…0d9 at0007 = ╱ef╱$╱ // 0xb4 @0x7
0x0ad…0d9 at0008 = ╱ed╱(╱ // 0xb5 @0x8
0x0ad…0d9 at0009 = ╱37╱7╱ // 0xb6 @0x9
0x0ad…0d9 at000a = ╱39╱9╱ // 0xb7 @0xa
0x0ad…0d9 at000b = ╱fe00009e07╱ // 0xb8 @0xb
0x0ad…0d9 at0010 = ╱ee╱)╱ // 0xbd @0x10
0x0ad…0d9 at0011 = ╱ec╱,╱ // 0xbe @0x11
0x0ad…0d9 at0012 = ╱4c╱L╱ // 0xbf @0x12
0x0ad…0d9 at0013 = ╱ef╱$╱ // 0xc0 @0x13
0x0ad…0d9 at0014 = ╱ed╱(╱ // 0xc1 @0x14
0x0ad…0d9 at0015 = ╱37╱7╱ // 0xc2 @0x15
0x0ad…0d9 at0016 = ╱39╱9╱ // 0xc3 @0x16
0x0ad…0d9 at0017 = ╱fe00009e07╱ // 0xc4 @0x17
0x0ad…0d9 at001c = ╱ee╱)╱ // 0xc9 @0x1c
0x0ad…0d9 at001d = ╱ec╱,╱ // 0xca @0x1d
0x0ad…0d9 at001e = ╱4c╱L╱ // 0xcb @0x1e
0x0ad…0d9 at001f = ╱49╱I╱ // 0xcc @0x1f
0x0ad…0d9 at0020 = ╱4e╱N╱ // 0xcd @0x20
0x0ad…0d9 at0021 = ╱ef╱$╱ // 0xce @0x21
0x0ad…0d9 at0022 = ╱ed╱(╱ // 0xcf @0x22
0x0ad…0d9 at0023 = ╱31╱1╱ // 0xd0 @0x23
0x0ad…0d9 at0024 = ╱32╱2╱ // 0xd1 @0x24
0x0ad…0d9 at0025 = ╱fe0000c004╱ // 0xd2 @0x25
0x0ad…0d9 at002a = ╱ee╱)╱ // 0xd7 @0x2a
0x0ad…0d9 at002b = EOL // 0xd8 @0x2b
0x0ad…0d9 }
0x0d9…0ea 8e41 0230 FOR I=E TO 79
0x0d9…0ea LineComalBin {
0x0d9…0ea ptr = 0x8e41 // 0xd9 @0x0
0x0d9…0ea lno = 0x00e6 // 0xdb @0x2
0x0d9…0ea at0004 = ╱83╱ FOR ╱ // 0xdd @0x4
0x0d9…0ea at0005 = ╱49╱I╱ // 0xde @0x5
0x0d9…0ea at0006 = ╱dc╱=╱ // 0xdf @0x6
0x0d9…0ea at0007 = ╱45╱E╱ // 0xe0 @0x7
0x0d9…0ea at0008 = ╱b7╱ TO ╱ // 0xe1 @0x8
0x0d9…0ea at0009 = ╱37╱7╱ // 0xe2 @0x9
0x0d9…0ea at000a = ╱39╱9╱ // 0xe3 @0xa
0x0d9…0ea at000b = ╱fe00009e07╱ // 0xe4 @0xb
0x0d9…0ea at0010 = EOL // 0xe9 @0x10
0x0d9…0ea }
0x0ea…0fa 8e51 0240 BL$=BL$+" "
0x0ea…0fa LineComalBin {
0x0ea…0fa ptr = 0x8e51 // 0xea @0x0
0x0ea…0fa lno = 0x00f0 // 0xec @0x2
0x0ea…0fa at0004 = ╱42╱B╱ // 0xee @0x4
0x0ea…0fa at0005 = ╱4c╱L╱ // 0xef @0x5
0x0ea…0fa at0006 = ╱ef╱$╱ // 0xf0 @0x6
0x0ea…0fa at0007 = ╱dc╱=╱ // 0xf1 @0x7
0x0ea…0fa at0008 = ╱42╱B╱ // 0xf2 @0x8
0x0ea…0fa at0009 = ╱4c╱L╱ // 0xf3 @0x9
0x0ea…0fa at000a = ╱ef╱$╱ // 0xf4 @0xa
0x0ea…0fa at000b = ╱f1╱+╱ // 0xf5 @0xb
0x0ea…0fa at000c = ╱22╱"╱ // 0xf6 @0xc
0x0ea…0fa at000d = ╱20╱…╱ // 0xf7 @0xd
0x0ea…0fa at000e = ╱22╱"╱ // 0xf8 @0xe
0x0ea…0fa at000f = EOL // 0xf9 @0xf
0x0ea…0fa }
0x0fa…101 8e58 0250 NEXT I
0x0fa…101 LineComalBin {
0x0fa…101 ptr = 0x8e58 // 0xfa @0x0
0x0fa…101 lno = 0x00fa // 0xfc @0x2
0x0fa…101 at0004 = ╱84╱ NEXT ╱ // 0xfe @0x4
0x0fa…101 at0005 = ╱49╱I╱ // 0xff @0x5
0x0fa…101 at0006 = EOL // 0x100 @0x6
0x0fa…101 }
0x101…119 8e70 0255 TAH$=" 0+"
0x101…119 LineComalBin {
0x101…119 ptr = 0x8e70 // 0x101 @0x0
0x101…119 lno = 0x00ff // 0x103 @0x2
0x101…119 at0004 = ╱54╱T╱ // 0x105 @0x4
0x101…119 at0005 = ╱41╱A╱ // 0x106 @0x5
0x101…119 at0006 = ╱48╱H╱ // 0x107 @0x6
0x101…119 at0007 = ╱ef╱$╱ // 0x108 @0x7
0x101…119 at0008 = ╱dc╱=╱ // 0x109 @0x8
0x101…119 at0009 = ╱22╱"╱ // 0x10a @0x9
0x101…119 at000a = ╱20╱…╱ // 0x10b @0xa
0x101…119 at000b = ╱20╱…╱ // 0x10c @0xb
0x101…119 at000c = ╱20╱…╱ // 0x10d @0xc
0x101…119 at000d = ╱20╱…╱ // 0x10e @0xd
0x101…119 at000e = ╱20╱…╱ // 0x10f @0xe
0x101…119 at000f = ╱20╱…╱ // 0x110 @0xf
0x101…119 at0010 = ╱20╱…╱ // 0x111 @0x10
0x101…119 at0011 = ╱20╱…╱ // 0x112 @0x11
0x101…119 at0012 = ╱20╱…╱ // 0x113 @0x12
0x101…119 at0013 = ╱20╱…╱ // 0x114 @0x13
0x101…119 at0014 = ╱30╱0╱ // 0x115 @0x14
0x101…119 at0015 = ╱2b╱+╱ // 0x116 @0x15
0x101…119 at0016 = ╱22╱"╱ // 0x117 @0x16
0x101…119 at0017 = EOL // 0x118 @0x17
0x101…119 }
0x119…12a 8e81 0260 X(E)=27
0x119…12a LineComalBin {
0x119…12a ptr = 0x8e81 // 0x119 @0x0
0x119…12a lno = 0x0104 // 0x11b @0x2
0x119…12a at0004 = ╱58╱X╱ // 0x11d @0x4
0x119…12a at0005 = ╱ed╱(╱ // 0x11e @0x5
0x119…12a at0006 = ╱45╱E╱ // 0x11f @0x6
0x119…12a at0007 = ╱ee╱)╱ // 0x120 @0x7
0x119…12a at0008 = ╱dc╱=╱ // 0x121 @0x8
0x119…12a at0009 = ╱32╱2╱ // 0x122 @0x9
0x119…12a at000a = ╱37╱7╱ // 0x123 @0xa
0x119…12a at000b = ╱fe0000d805╱ // 0x124 @0xb
0x119…12a at0010 = EOL // 0x129 @0x10
0x119…12a }
0x12a…148 8e9f 0270 X(G)=34;X(V)=36
0x12a…148 LineComalBin {
0x12a…148 ptr = 0x8e9f // 0x12a @0x0
0x12a…148 lno = 0x010e // 0x12c @0x2
0x12a…148 at0004 = ╱58╱X╱ // 0x12e @0x4
0x12a…148 at0005 = ╱ed╱(╱ // 0x12f @0x5
0x12a…148 at0006 = ╱47╱G╱ // 0x130 @0x6
0x12a…148 at0007 = ╱ee╱)╱ // 0x131 @0x7
0x12a…148 at0008 = ╱dc╱=╱ // 0x132 @0x8
0x12a…148 at0009 = ╱33╱3╱ // 0x133 @0x9
0x12a…148 at000a = ╱34╱4╱ // 0x134 @0xa
0x12a…148 at000b = ╱fe00008806╱ // 0x135 @0xb
0x12a…148 at0010 = ╱eb╱;╱ // 0x13a @0x10
0x12a…148 at0011 = ╱58╱X╱ // 0x13b @0x11
0x12a…148 at0012 = ╱ed╱(╱ // 0x13c @0x12
0x12a…148 at0013 = ╱56╱V╱ // 0x13d @0x13
0x12a…148 at0014 = ╱ee╱)╱ // 0x13e @0x14
0x12a…148 at0015 = ╱dc╱=╱ // 0x13f @0x15
0x12a…148 at0016 = ╱33╱3╱ // 0x140 @0x16
0x12a…148 at0017 = ╱36╱6╱ // 0x141 @0x17
0x12a…148 at0018 = ╱fe00009006╱ // 0x142 @0x18
0x12a…148 at001d = EOL // 0x147 @0x1d
0x12a…148 }
0x148…186 8edd 0290 X(4),X(5),X(6),X(7),X(8)=39
0x148…186 LineComalBin {
0x148…186 ptr = 0x8edd // 0x148 @0x0
0x148…186 lno = 0x0122 // 0x14a @0x2
0x148…186 at0004 = ╱58╱X╱ // 0x14c @0x4
0x148…186 at0005 = ╱ed╱(╱ // 0x14d @0x5
0x148…186 at0006 = ╱34╱4╱ // 0x14e @0x6
0x148…186 at0007 = ╱fe00008003╱ // 0x14f @0x7
0x148…186 at000c = ╱ee╱)╱ // 0x154 @0xc
0x148…186 at000d = ╱ec╱,╱ // 0x155 @0xd
0x148…186 at000e = ╱58╱X╱ // 0x156 @0xe
0x148…186 at000f = ╱ed╱(╱ // 0x157 @0xf
0x148…186 at0010 = ╱35╱5╱ // 0x158 @0x10
0x148…186 at0011 = ╱fe0000a003╱ // 0x159 @0x11
0x148…186 at0016 = ╱ee╱)╱ // 0x15e @0x16
0x148…186 at0017 = ╱ec╱,╱ // 0x15f @0x17
0x148…186 at0018 = ╱58╱X╱ // 0x160 @0x18
0x148…186 at0019 = ╱ed╱(╱ // 0x161 @0x19
0x148…186 at001a = ╱36╱6╱ // 0x162 @0x1a
0x148…186 at001b = ╱fe0000c003╱ // 0x163 @0x1b
0x148…186 at0020 = ╱ee╱)╱ // 0x168 @0x20
0x148…186 at0021 = ╱ec╱,╱ // 0x169 @0x21
0x148…186 at0022 = ╱58╱X╱ // 0x16a @0x22
0x148…186 at0023 = ╱ed╱(╱ // 0x16b @0x23
0x148…186 at0024 = ╱37╱7╱ // 0x16c @0x24
0x148…186 at0025 = ╱fe0000e003╱ // 0x16d @0x25
0x148…186 at002a = ╱ee╱)╱ // 0x172 @0x2a
0x148…186 at002b = ╱ec╱,╱ // 0x173 @0x2b
0x148…186 at002c = ╱58╱X╱ // 0x174 @0x2c
0x148…186 at002d = ╱ed╱(╱ // 0x175 @0x2d
0x148…186 at002e = ╱38╱8╱ // 0x176 @0x2e
0x148…186 at002f = ╱fe00008004╱ // 0x177 @0x2f
0x148…186 at0034 = ╱ee╱)╱ // 0x17c @0x34
0x148…186 at0035 = ╱dc╱=╱ // 0x17d @0x35
0x148…186 at0036 = ╱33╱3╱ // 0x17e @0x36
0x148…186 at0037 = ╱39╱9╱ // 0x17f @0x37
0x148…186 at0038 = ╱fe00009c06╱ // 0x180 @0x38
0x148…186 at003d = EOL // 0x185 @0x3d
0x148…186 }
0x186…1ed 8f44 0310 Y(E),Y(G)=G;Y(V)=V;Y(4)=4;Y(5)=5;Y(6)=7;Y(7)=8;Y(8)=W
0x186…1ed LineComalBin {
0x186…1ed ptr = 0x8f44 // 0x186 @0x0
0x186…1ed lno = 0x0136 // 0x188 @0x2
0x186…1ed at0004 = ╱59╱Y╱ // 0x18a @0x4
0x186…1ed at0005 = ╱ed╱(╱ // 0x18b @0x5
0x186…1ed at0006 = ╱45╱E╱ // 0x18c @0x6
0x186…1ed at0007 = ╱ee╱)╱ // 0x18d @0x7
0x186…1ed at0008 = ╱ec╱,╱ // 0x18e @0x8
0x186…1ed at0009 = ╱59╱Y╱ // 0x18f @0x9
0x186…1ed at000a = ╱ed╱(╱ // 0x190 @0xa
0x186…1ed at000b = ╱47╱G╱ // 0x191 @0xb
0x186…1ed at000c = ╱ee╱)╱ // 0x192 @0xc
0x186…1ed at000d = ╱dc╱=╱ // 0x193 @0xd
0x186…1ed at000e = ╱47╱G╱ // 0x194 @0xe
0x186…1ed at000f = ╱eb╱;╱ // 0x195 @0xf
0x186…1ed at0010 = ╱59╱Y╱ // 0x196 @0x10
0x186…1ed at0011 = ╱ed╱(╱ // 0x197 @0x11
0x186…1ed at0012 = ╱56╱V╱ // 0x198 @0x12
0x186…1ed at0013 = ╱ee╱)╱ // 0x199 @0x13
0x186…1ed at0014 = ╱dc╱=╱ // 0x19a @0x14
0x186…1ed at0015 = ╱56╱V╱ // 0x19b @0x15
0x186…1ed at0016 = ╱eb╱;╱ // 0x19c @0x16
0x186…1ed at0017 = ╱59╱Y╱ // 0x19d @0x17
0x186…1ed at0018 = ╱ed╱(╱ // 0x19e @0x18
0x186…1ed at0019 = ╱34╱4╱ // 0x19f @0x19
0x186…1ed at001a = ╱fe00008003╱ // 0x1a0 @0x1a
0x186…1ed at001f = ╱ee╱)╱ // 0x1a5 @0x1f
0x186…1ed at0020 = ╱dc╱=╱ // 0x1a6 @0x20
0x186…1ed at0021 = ╱34╱4╱ // 0x1a7 @0x21
0x186…1ed at0022 = ╱fe00008003╱ // 0x1a8 @0x22
0x186…1ed at0027 = ╱eb╱;╱ // 0x1ad @0x27
0x186…1ed at0028 = ╱59╱Y╱ // 0x1ae @0x28
0x186…1ed at0029 = ╱ed╱(╱ // 0x1af @0x29
0x186…1ed at002a = ╱35╱5╱ // 0x1b0 @0x2a
0x186…1ed at002b = ╱fe0000a003╱ // 0x1b1 @0x2b
0x186…1ed at0030 = ╱ee╱)╱ // 0x1b6 @0x30
0x186…1ed at0031 = ╱dc╱=╱ // 0x1b7 @0x31
0x186…1ed at0032 = ╱35╱5╱ // 0x1b8 @0x32
0x186…1ed at0033 = ╱fe0000a003╱ // 0x1b9 @0x33
0x186…1ed at0038 = ╱eb╱;╱ // 0x1be @0x38
0x186…1ed at0039 = ╱59╱Y╱ // 0x1bf @0x39
0x186…1ed at003a = ╱ed╱(╱ // 0x1c0 @0x3a
0x186…1ed at003b = ╱36╱6╱ // 0x1c1 @0x3b
0x186…1ed at003c = ╱fe0000c003╱ // 0x1c2 @0x3c
0x186…1ed at0041 = ╱ee╱)╱ // 0x1c7 @0x41
0x186…1ed at0042 = ╱dc╱=╱ // 0x1c8 @0x42
0x186…1ed at0043 = ╱37╱7╱ // 0x1c9 @0x43
0x186…1ed at0044 = ╱fe0000e003╱ // 0x1ca @0x44
0x186…1ed at0049 = ╱eb╱;╱ // 0x1cf @0x49
0x186…1ed at004a = ╱59╱Y╱ // 0x1d0 @0x4a
0x186…1ed at004b = ╱ed╱(╱ // 0x1d1 @0x4b
0x186…1ed at004c = ╱37╱7╱ // 0x1d2 @0x4c
0x186…1ed at004d = ╱fe0000e003╱ // 0x1d3 @0x4d
0x186…1ed at0052 = ╱ee╱)╱ // 0x1d8 @0x52
0x186…1ed at0053 = ╱dc╱=╱ // 0x1d9 @0x53
0x186…1ed at0054 = ╱38╱8╱ // 0x1da @0x54
0x186…1ed at0055 = ╱fe00008004╱ // 0x1db @0x55
0x186…1ed at005a = ╱eb╱;╱ // 0x1e0 @0x5a
0x186…1ed at005b = ╱59╱Y╱ // 0x1e1 @0x5b
0x186…1ed at005c = ╱ed╱(╱ // 0x1e2 @0x5c
0x186…1ed at005d = ╱38╱8╱ // 0x1e3 @0x5d
0x186…1ed at005e = ╱fe00008004╱ // 0x1e4 @0x5e
0x186…1ed at0063 = ╱ee╱)╱ // 0x1e9 @0x63
0x186…1ed at0064 = ╱dc╱=╱ // 0x1ea @0x64
0x186…1ed at0065 = ╱57╱W╱ // 0x1eb @0x65
0x186…1ed at0066 = EOL // 0x1ec @0x66
0x186…1ed }
0x1ed…208 8f5f 0340 TYPE(E),TYPE(G)=6
0x1ed…208 LineComalBin {
0x1ed…208 ptr = 0x8f5f // 0x1ed @0x0
0x1ed…208 lno = 0x0154 // 0x1ef @0x2
0x1ed…208 at0004 = ╱54╱T╱ // 0x1f1 @0x4
0x1ed…208 at0005 = ╱59╱Y╱ // 0x1f2 @0x5
0x1ed…208 at0006 = ╱50╱P╱ // 0x1f3 @0x6
0x1ed…208 at0007 = ╱45╱E╱ // 0x1f4 @0x7
0x1ed…208 at0008 = ╱ed╱(╱ // 0x1f5 @0x8
0x1ed…208 at0009 = ╱45╱E╱ // 0x1f6 @0x9
0x1ed…208 at000a = ╱ee╱)╱ // 0x1f7 @0xa
0x1ed…208 at000b = ╱ec╱,╱ // 0x1f8 @0xb
0x1ed…208 at000c = ╱54╱T╱ // 0x1f9 @0xc
0x1ed…208 at000d = ╱59╱Y╱ // 0x1fa @0xd
0x1ed…208 at000e = ╱50╱P╱ // 0x1fb @0xe
0x1ed…208 at000f = ╱45╱E╱ // 0x1fc @0xf
0x1ed…208 at0010 = ╱ed╱(╱ // 0x1fd @0x10
0x1ed…208 at0011 = ╱47╱G╱ // 0x1fe @0x11
0x1ed…208 at0012 = ╱ee╱)╱ // 0x1ff @0x12
0x1ed…208 at0013 = ╱dc╱=╱ // 0x200 @0x13
0x1ed…208 at0014 = ╱36╱6╱ // 0x201 @0x14
0x1ed…208 at0015 = ╱fe0000c003╱ // 0x202 @0x15
0x1ed…208 at001a = EOL // 0x207 @0x1a
0x1ed…208 }
0x208…250 8fa7 0350 TYPE(4),TYPE(7),TYPE(8),TYPE(5),TYPE(6)=-E
0x208…250 LineComalBin {
0x208…250 ptr = 0x8fa7 // 0x208 @0x0
0x208…250 lno = 0x015e // 0x20a @0x2
0x208…250 at0004 = ╱54╱T╱ // 0x20c @0x4
0x208…250 at0005 = ╱59╱Y╱ // 0x20d @0x5
0x208…250 at0006 = ╱50╱P╱ // 0x20e @0x6
0x208…250 at0007 = ╱45╱E╱ // 0x20f @0x7
0x208…250 at0008 = ╱ed╱(╱ // 0x210 @0x8
0x208…250 at0009 = ╱34╱4╱ // 0x211 @0x9
0x208…250 at000a = ╱fe00008003╱ // 0x212 @0xa
0x208…250 at000f = ╱ee╱)╱ // 0x217 @0xf
0x208…250 at0010 = ╱ec╱,╱ // 0x218 @0x10
0x208…250 at0011 = ╱54╱T╱ // 0x219 @0x11
0x208…250 at0012 = ╱59╱Y╱ // 0x21a @0x12
0x208…250 at0013 = ╱50╱P╱ // 0x21b @0x13
0x208…250 at0014 = ╱45╱E╱ // 0x21c @0x14
0x208…250 at0015 = ╱ed╱(╱ // 0x21d @0x15
0x208…250 at0016 = ╱37╱7╱ // 0x21e @0x16
0x208…250 at0017 = ╱fe0000e003╱ // 0x21f @0x17
0x208…250 at001c = ╱ee╱)╱ // 0x224 @0x1c
0x208…250 at001d = ╱ec╱,╱ // 0x225 @0x1d
0x208…250 at001e = ╱54╱T╱ // 0x226 @0x1e
0x208…250 at001f = ╱59╱Y╱ // 0x227 @0x1f
0x208…250 at0020 = ╱50╱P╱ // 0x228 @0x20
0x208…250 at0021 = ╱45╱E╱ // 0x229 @0x21
0x208…250 at0022 = ╱ed╱(╱ // 0x22a @0x22
0x208…250 at0023 = ╱38╱8╱ // 0x22b @0x23
0x208…250 at0024 = ╱fe00008004╱ // 0x22c @0x24
0x208…250 at0029 = ╱ee╱)╱ // 0x231 @0x29
0x208…250 at002a = ╱ec╱,╱ // 0x232 @0x2a
0x208…250 at002b = ╱54╱T╱ // 0x233 @0x2b
0x208…250 at002c = ╱59╱Y╱ // 0x234 @0x2c
0x208…250 at002d = ╱50╱P╱ // 0x235 @0x2d
0x208…250 at002e = ╱45╱E╱ // 0x236 @0x2e
0x208…250 at002f = ╱ed╱(╱ // 0x237 @0x2f
0x208…250 at0030 = ╱35╱5╱ // 0x238 @0x30
0x208…250 at0031 = ╱fe0000a003╱ // 0x239 @0x31
0x208…250 at0036 = ╱ee╱)╱ // 0x23e @0x36
0x208…250 at0037 = ╱ec╱,╱ // 0x23f @0x37
0x208…250 at0038 = ╱54╱T╱ // 0x240 @0x38
0x208…250 at0039 = ╱59╱Y╱ // 0x241 @0x39
0x208…250 at003a = ╱50╱P╱ // 0x242 @0x3a
0x208…250 at003b = ╱45╱E╱ // 0x243 @0x3b
0x208…250 at003c = ╱ed╱(╱ // 0x244 @0x3c
0x208…250 at003d = ╱36╱6╱ // 0x245 @0x3d
0x208…250 at003e = ╱fe0000c003╱ // 0x246 @0x3e
0x208…250 at0043 = ╱ee╱)╱ // 0x24b @0x43
0x208…250 at0044 = ╱dc╱=╱ // 0x24c @0x44
0x208…250 at0045 = ╱e9╱-╱ // 0x24d @0x45
0x208…250 at0046 = ╱45╱E╱ // 0x24e @0x46
0x208…250 at0047 = EOL // 0x24f @0x47
0x208…250 }
0x250…264 8fbb 0360 TYPE(V)=-4
0x250…264 LineComalBin {
0x250…264 ptr = 0x8fbb // 0x250 @0x0
0x250…264 lno = 0x0168 // 0x252 @0x2
0x250…264 at0004 = ╱54╱T╱ // 0x254 @0x4
0x250…264 at0005 = ╱59╱Y╱ // 0x255 @0x5
0x250…264 at0006 = ╱50╱P╱ // 0x256 @0x6
0x250…264 at0007 = ╱45╱E╱ // 0x257 @0x7
0x250…264 at0008 = ╱ed╱(╱ // 0x258 @0x8
0x250…264 at0009 = ╱56╱V╱ // 0x259 @0x9
0x250…264 at000a = ╱ee╱)╱ // 0x25a @0xa
0x250…264 at000b = ╱dc╱=╱ // 0x25b @0xb
0x250…264 at000c = ╱e9╱-╱ // 0x25c @0xc
0x250…264 at000d = ╱34╱4╱ // 0x25d @0xd
0x250…264 at000e = ╱fe00008003╱ // 0x25e @0xe
0x250…264 at0013 = EOL // 0x263 @0x13
0x250…264 }
0x264…279 8fd0 0370 PROC C(AR3,B1,B2,ES)
0x264…279 LineComalBin {
0x264…279 ptr = 0x8fd0 // 0x264 @0x0
0x264…279 lno = 0x0172 // 0x266 @0x2
0x264…279 at0004 = ╱9e╱ PROC ╱ // 0x268 @0x4
0x264…279 at0005 = ╱43╱C╱ // 0x269 @0x5
0x264…279 at0006 = ╱ed╱(╱ // 0x26a @0x6
0x264…279 at0007 = ╱41╱A╱ // 0x26b @0x7
0x264…279 at0008 = ╱52╱R╱ // 0x26c @0x8
0x264…279 at0009 = ╱33╱3╱ // 0x26d @0x9
0x264…279 at000a = ╱ec╱,╱ // 0x26e @0xa
0x264…279 at000b = ╱42╱B╱ // 0x26f @0xb
0x264…279 at000c = ╱31╱1╱ // 0x270 @0xc
0x264…279 at000d = ╱ec╱,╱ // 0x271 @0xd
0x264…279 at000e = ╱42╱B╱ // 0x272 @0xe
0x264…279 at000f = ╱32╱2╱ // 0x273 @0xf
0x264…279 at0010 = ╱ec╱,╱ // 0x274 @0x10
0x264…279 at0011 = ╱45╱E╱ // 0x275 @0x11
0x264…279 at0012 = ╱53╱S╱ // 0x276 @0x12
0x264…279 at0013 = ╱ee╱)╱ // 0x277 @0x13
0x264…279 at0014 = EOL // 0x278 @0x14
0x264…279 }
0x279…2c0 9017 0380 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x279…2c0 LineComalBin {
0x279…2c0 ptr = 0x9017 // 0x279 @0x0
0x279…2c0 lno = 0x017c // 0x27b @0x2
0x279…2c0 at0004 = ╱52╱R╱ // 0x27d @0x4
0x279…2c0 at0005 = ╱45╱E╱ // 0x27e @0x5
0x279…2c0 at0006 = ╱53╱S╱ // 0x27f @0x6
0x279…2c0 at0007 = ╱ef╱$╱ // 0x280 @0x7
0x279…2c0 at0008 = ╱dc╱=╱ // 0x281 @0x8
0x279…2c0 at0009 = ╱45╱E╱ // 0x282 @0x9
0x279…2c0 at000a = ╱53╱S╱ // 0x283 @0xa
0x279…2c0 at000b = ╱ef╱$╱ // 0x284 @0xb
0x279…2c0 at000c = ╱eb╱;╱ // 0x285 @0xc
0x279…2c0 at000d = ╱4f╱O╱ // 0x286 @0xd
0x279…2c0 at000e = ╱50╱P╱ // 0x287 @0xe
0x279…2c0 at000f = ╱31╱1╱ // 0x288 @0xf
0x279…2c0 at0010 = ╱ef╱$╱ // 0x289 @0x10
0x279…2c0 at0011 = ╱dc╱=╱ // 0x28a @0x11
0x279…2c0 at0012 = ╱42╱B╱ // 0x28b @0x12
0x279…2c0 at0013 = ╱31╱1╱ // 0x28c @0x13
0x279…2c0 at0014 = ╱ef╱$╱ // 0x28d @0x14
0x279…2c0 at0015 = ╱eb╱;╱ // 0x28e @0x15
0x279…2c0 at0016 = ╱4f╱O╱ // 0x28f @0x16
0x279…2c0 at0017 = ╱50╱P╱ // 0x290 @0x17
0x279…2c0 at0018 = ╱32╱2╱ // 0x291 @0x18
0x279…2c0 at0019 = ╱ef╱$╱ // 0x292 @0x19
0x279…2c0 at001a = ╱dc╱=╱ // 0x293 @0x1a
0x279…2c0 at001b = ╱42╱B╱ // 0x294 @0x1b
0x279…2c0 at001c = ╱32╱2╱ // 0x295 @0x1c
0x279…2c0 at001d = ╱ef╱$╱ // 0x296 @0x1d
0x279…2c0 at001e = ╱eb╱;╱ // 0x297 @0x1e
0x279…2c0 at001f = ╱53╱S╱ // 0x298 @0x1f
0x279…2c0 at0020 = ╱49╱I╱ // 0x299 @0x20
0x279…2c0 at0021 = ╱dc╱=╱ // 0x29a @0x21
0x279…2c0 at0022 = ╱42╱B╱ // 0x29b @0x22
0x279…2c0 at0023 = ╱eb╱;╱ // 0x29c @0x23
0x279…2c0 at0024 = ╱46╱F╱ // 0x29d @0x24
0x279…2c0 at0025 = ╱4c╱L╱ // 0x29e @0x25
0x279…2c0 at0026 = ╱41╱A╱ // 0x29f @0x26
0x279…2c0 at0027 = ╱47╱G╱ // 0x2a0 @0x27
0x279…2c0 at0028 = ╱dc╱=╱ // 0x2a1 @0x28
0x279…2c0 at0029 = ╱42╱B╱ // 0x2a2 @0x29
0x279…2c0 at002a = ╱eb╱;╱ // 0x2a3 @0x2a
0x279…2c0 at002b = ╱41╱A╱ // 0x2a4 @0x2b
0x279…2c0 at002c = ╱52╱R╱ // 0x2a5 @0x2c
0x279…2c0 at002d = ╱54╱T╱ // 0x2a6 @0x2d
0x279…2c0 at002e = ╱dc╱=╱ // 0x2a7 @0x2e
0x279…2c0 at002f = ╱41╱A╱ // 0x2a8 @0x2f
0x279…2c0 at0030 = ╱52╱R╱ // 0x2a9 @0x30
0x279…2c0 at0031 = ╱33╱3╱ // 0x2aa @0x31
0x279…2c0 at0032 = ╱e3╱-╱ // 0x2ab @0x32
0x279…2c0 at0033 = ╱36╱6╱ // 0x2ac @0x33
0x279…2c0 at0034 = ╱fe0000c003╱ // 0x2ad @0x34
0x279…2c0 at0039 = ╱e4╱*╱ // 0x2b2 @0x39
0x279…2c0 at003a = ╱ed╱(╱ // 0x2b3 @0x3a
0x279…2c0 at003b = ╱41╱A╱ // 0x2b4 @0x3b
0x279…2c0 at003c = ╱52╱R╱ // 0x2b5 @0x3c
0x279…2c0 at003d = ╱33╱3╱ // 0x2b6 @0x3d
0x279…2c0 at003e = ╱de╱>╱ // 0x2b7 @0x3e
0x279…2c0 at003f = ╱35╱5╱ // 0x2b8 @0x3f
0x279…2c0 at0040 = ╱fe0000a003╱ // 0x2b9 @0x40
0x279…2c0 at0045 = ╱ee╱)╱ // 0x2be @0x45
0x279…2c0 at0046 = EOL // 0x2bf @0x46
0x279…2c0 }
0x2c0…2d6 902d 0390 CALL "P641210:REGN"
0x2c0…2d6 LineComalBin {
0x2c0…2d6 ptr = 0x902d // 0x2c0 @0x0
0x2c0…2d6 lno = 0x0186 // 0x2c2 @0x2
0x2c0…2d6 at0004 = ╱ad34ef╱ CALL ╱ // 0x2c4 @0x4
0x2c0…2d6 at0007 = ╱22╱"╱ // 0x2c7 @0x7
0x2c0…2d6 at0008 = ╱50╱P╱ // 0x2c8 @0x8
0x2c0…2d6 at0009 = ╱36╱6╱ // 0x2c9 @0x9
0x2c0…2d6 at000a = ╱34╱4╱ // 0x2ca @0xa
0x2c0…2d6 at000b = ╱31╱1╱ // 0x2cb @0xb
0x2c0…2d6 at000c = ╱32╱2╱ // 0x2cc @0xc
0x2c0…2d6 at000d = ╱31╱1╱ // 0x2cd @0xd
0x2c0…2d6 at000e = ╱30╱0╱ // 0x2ce @0xe
0x2c0…2d6 at000f = ╱3a╱:╱ // 0x2cf @0xf
0x2c0…2d6 at0010 = ╱52╱R╱ // 0x2d0 @0x10
0x2c0…2d6 at0011 = ╱45╱E╱ // 0x2d1 @0x11
0x2c0…2d6 at0012 = ╱47╱G╱ // 0x2d2 @0x12
0x2c0…2d6 at0013 = ╱4e╱N╱ // 0x2d3 @0x13
0x2c0…2d6 at0014 = ╱22╱"╱ // 0x2d4 @0x14
0x2c0…2d6 at0015 = EOL // 0x2d5 @0x15
0x2c0…2d6 }
0x2d6…2e7 903e 0400 IF AR3<6 THEN
0x2d6…2e7 LineComalBin {
0x2d6…2e7 ptr = 0x903e // 0x2d6 @0x0
0x2d6…2e7 lno = 0x0190 // 0x2d8 @0x2
0x2d6…2e7 at0004 = ╱9c╱ IF ╱ // 0x2da @0x4
0x2d6…2e7 at0005 = ╱41╱A╱ // 0x2db @0x5
0x2d6…2e7 at0006 = ╱52╱R╱ // 0x2dc @0x6
0x2d6…2e7 at0007 = ╱33╱3╱ // 0x2dd @0x7
0x2d6…2e7 at0008 = ╱dd╱<╱ // 0x2de @0x8
0x2d6…2e7 at0009 = ╱36╱6╱ // 0x2df @0x9
0x2d6…2e7 at000a = ╱fe0000c003╱ // 0x2e0 @0xa
0x2d6…2e7 at000f = ╱b6╱ THEN ╱ // 0x2e5 @0xf
0x2d6…2e7 at0010 = EOL // 0x2e6 @0x10
0x2d6…2e7 }
0x2e7…2f3 904a 0410 IF FLAG THEN STOP
0x2e7…2f3 LineComalBin {
0x2e7…2f3 ptr = 0x904a // 0x2e7 @0x0
0x2e7…2f3 lno = 0x019a // 0x2e9 @0x2
0x2e7…2f3 at0004 = ╱82╱ IF ╱ // 0x2eb @0x4
0x2e7…2f3 at0005 = ╱46╱F╱ // 0x2ec @0x5
0x2e7…2f3 at0006 = ╱4c╱L╱ // 0x2ed @0x6
0x2e7…2f3 at0007 = ╱41╱A╱ // 0x2ee @0x7
0x2e7…2f3 at0008 = ╱47╱G╱ // 0x2ef @0x8
0x2e7…2f3 at0009 = ╱b6╱ THEN ╱ // 0x2f0 @0x9
0x2e7…2f3 at000a = ╱8d╱ STOP ╱ // 0x2f1 @0xa
0x2e7…2f3 at000b = EOL // 0x2f2 @0xb
0x2e7…2f3 }
0x2f3…2f9 9050 0420 ENDIF
0x2f3…2f9 LineComalBin {
0x2f3…2f9 ptr = 0x9050 // 0x2f3 @0x0
0x2f3…2f9 lno = 0x01a4 // 0x2f5 @0x2
0x2f3…2f9 at0004 = ╱9b╱ ENDIF ╱ // 0x2f7 @0x4
0x2f3…2f9 at0005 = EOL // 0x2f8 @0x5
0x2f3…2f9 }
0x2f9…306 905d 0430 ES$=RES$
0x2f9…306 LineComalBin {
0x2f9…306 ptr = 0x905d // 0x2f9 @0x0
0x2f9…306 lno = 0x01ae // 0x2fb @0x2
0x2f9…306 at0004 = ╱45╱E╱ // 0x2fd @0x4
0x2f9…306 at0005 = ╱53╱S╱ // 0x2fe @0x5
0x2f9…306 at0006 = ╱ef╱$╱ // 0x2ff @0x6
0x2f9…306 at0007 = ╱dc╱=╱ // 0x300 @0x7
0x2f9…306 at0008 = ╱52╱R╱ // 0x301 @0x8
0x2f9…306 at0009 = ╱45╱E╱ // 0x302 @0x9
0x2f9…306 at000a = ╱53╱S╱ // 0x303 @0xa
0x2f9…306 at000b = ╱ef╱$╱ // 0x304 @0xb
0x2f9…306 at000c = EOL // 0x305 @0xc
0x2f9…306 }
0x306…30c 9063 0440 ENDPROC
0x306…30c LineComalBin {
0x306…30c ptr = 0x9063 // 0x306 @0x0
0x306…30c lno = 0x01b8 // 0x308 @0x2
0x306…30c at0004 = ╱9f╱ ENDPROC ╱ // 0x30a @0x4
0x306…30c at0005 = EOL // 0x30b @0x5
0x306…30c }
0x30c…324 907b 0650 PROC DATOCHECK(NR5,OK5)
0x30c…324 LineComalBin {
0x30c…324 ptr = 0x907b // 0x30c @0x0
0x30c…324 lno = 0x028a // 0x30e @0x2
0x30c…324 at0004 = ╱9e╱ PROC ╱ // 0x310 @0x4
0x30c…324 at0005 = ╱44╱D╱ // 0x311 @0x5
0x30c…324 at0006 = ╱41╱A╱ // 0x312 @0x6
0x30c…324 at0007 = ╱54╱T╱ // 0x313 @0x7
0x30c…324 at0008 = ╱4f╱O╱ // 0x314 @0x8
0x30c…324 at0009 = ╱43╱C╱ // 0x315 @0x9
0x30c…324 at000a = ╱48╱H╱ // 0x316 @0xa
0x30c…324 at000b = ╱45╱E╱ // 0x317 @0xb
0x30c…324 at000c = ╱43╱C╱ // 0x318 @0xc
0x30c…324 at000d = ╱4b╱K╱ // 0x319 @0xd
0x30c…324 at000e = ╱ed╱(╱ // 0x31a @0xe
0x30c…324 at000f = ╱4e╱N╱ // 0x31b @0xf
0x30c…324 at0010 = ╱52╱R╱ // 0x31c @0x10
0x30c…324 at0011 = ╱35╱5╱ // 0x31d @0x11
0x30c…324 at0012 = ╱ec╱,╱ // 0x31e @0x12
0x30c…324 at0013 = ╱4f╱O╱ // 0x31f @0x13
0x30c…324 at0014 = ╱4b╱K╱ // 0x320 @0x14
0x30c…324 at0015 = ╱35╱5╱ // 0x321 @0x15
0x30c…324 at0016 = ╱ee╱)╱ // 0x322 @0x16
0x30c…324 at0017 = EOL // 0x323 @0x17
0x30c…324 }
0x324…32e 9085 0660 OK5=E
0x324…32e LineComalBin {
0x324…32e ptr = 0x9085 // 0x324 @0x0
0x324…32e lno = 0x0294 // 0x326 @0x2
0x324…32e at0004 = ╱4f╱O╱ // 0x328 @0x4
0x324…32e at0005 = ╱4b╱K╱ // 0x329 @0x5
0x324…32e at0006 = ╱35╱5╱ // 0x32a @0x6
0x324…32e at0007 = ╱dc╱=╱ // 0x32b @0x7
0x324…32e at0008 = ╱45╱E╱ // 0x32c @0x8
0x324…32e at0009 = EOL // 0x32d @0x9
0x324…32e }
0x32e…365 90bc 0670 ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48
0x32e…365 LineComalBin {
0x32e…365 ptr = 0x90bc // 0x32e @0x0
0x32e…365 lno = 0x029e // 0x330 @0x2
0x32e…365 at0004 = ╱5d╱Å╱ // 0x332 @0x4
0x32e…365 at0005 = ╱52╱R╱ // 0x333 @0x5
0x32e…365 at0006 = ╱dc╱=╱ // 0x334 @0x6
0x32e…365 at0007 = ╱ed╱(╱ // 0x335 @0x7
0x32e…365 at0008 = ╱cd╱ORD╱ // 0x336 @0x8
0x32e…365 at0009 = ╱ed╱(╱ // 0x337 @0x9
0x32e…365 at000a = ╱4e╱N╱ // 0x338 @0xa
0x32e…365 at000b = ╱52╱R╱ // 0x339 @0xb
0x32e…365 at000c = ╱35╱5╱ // 0x33a @0xc
0x32e…365 at000d = ╱ef╱$╱ // 0x33b @0xd
0x32e…365 at000e = ╱ed╱(╱ // 0x33c @0xe
0x32e…365 at000f = ╱45╱E╱ // 0x33d @0xf
0x32e…365 at0010 = ╱ee╱)╱ // 0x33e @0x10
0x32e…365 at0011 = ╱ee╱)╱ // 0x33f @0x11
0x32e…365 at0012 = ╱e3╱-╱ // 0x340 @0x12
0x32e…365 at0013 = ╱34╱4╱ // 0x341 @0x13
0x32e…365 at0014 = ╱38╱8╱ // 0x342 @0x14
0x32e…365 at0015 = ╱fe0000c006╱ // 0x343 @0x15
0x32e…365 at001a = ╱ee╱)╱ // 0x348 @0x1a
0x32e…365 at001b = ╱e4╱*╱ // 0x349 @0x1b
0x32e…365 at001c = ╱31╱1╱ // 0x34a @0x1c
0x32e…365 at001d = ╱30╱0╱ // 0x34b @0x1d
0x32e…365 at001e = ╱fe0000a004╱ // 0x34c @0x1e
0x32e…365 at0023 = ╱e2╱+╱ // 0x351 @0x23
0x32e…365 at0024 = ╱cd╱ORD╱ // 0x352 @0x24
0x32e…365 at0025 = ╱ed╱(╱ // 0x353 @0x25
0x32e…365 at0026 = ╱4e╱N╱ // 0x354 @0x26
0x32e…365 at0027 = ╱52╱R╱ // 0x355 @0x27
0x32e…365 at0028 = ╱35╱5╱ // 0x356 @0x28
0x32e…365 at0029 = ╱ef╱$╱ // 0x357 @0x29
0x32e…365 at002a = ╱ed╱(╱ // 0x358 @0x2a
0x32e…365 at002b = ╱47╱G╱ // 0x359 @0x2b
0x32e…365 at002c = ╱ee╱)╱ // 0x35a @0x2c
0x32e…365 at002d = ╱ee╱)╱ // 0x35b @0x2d
0x32e…365 at002e = ╱e3╱-╱ // 0x35c @0x2e
0x32e…365 at002f = ╱34╱4╱ // 0x35d @0x2f
0x32e…365 at0030 = ╱38╱8╱ // 0x35e @0x30
0x32e…365 at0031 = ╱fe0000c006╱ // 0x35f @0x31
0x32e…365 at0036 = EOL // 0x364 @0x36
0x32e…365 }
0x365…3a4 90fb 0680 MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48
0x365…3a4 LineComalBin {
0x365…3a4 ptr = 0x90fb // 0x365 @0x0
0x365…3a4 lno = 0x02a8 // 0x367 @0x2
0x365…3a4 at0004 = ╱4d╱M╱ // 0x369 @0x4
0x365…3a4 at0005 = ╱5d╱Å╱ // 0x36a @0x5
0x365…3a4 at0006 = ╱4e╱N╱ // 0x36b @0x6
0x365…3a4 at0007 = ╱45╱E╱ // 0x36c @0x7
0x365…3a4 at0008 = ╱44╱D╱ // 0x36d @0x8
0x365…3a4 at0009 = ╱dc╱=╱ // 0x36e @0x9
0x365…3a4 at000a = ╱ed╱(╱ // 0x36f @0xa
0x365…3a4 at000b = ╱cd╱ORD╱ // 0x370 @0xb
0x365…3a4 at000c = ╱ed╱(╱ // 0x371 @0xc
0x365…3a4 at000d = ╱4e╱N╱ // 0x372 @0xd
0x365…3a4 at000e = ╱52╱R╱ // 0x373 @0xe
0x365…3a4 at000f = ╱35╱5╱ // 0x374 @0xf
0x365…3a4 at0010 = ╱ef╱$╱ // 0x375 @0x10
0x365…3a4 at0011 = ╱ed╱(╱ // 0x376 @0x11
0x365…3a4 at0012 = ╱56╱V╱ // 0x377 @0x12
0x365…3a4 at0013 = ╱ee╱)╱ // 0x378 @0x13
0x365…3a4 at0014 = ╱ee╱)╱ // 0x379 @0x14
0x365…3a4 at0015 = ╱e3╱-╱ // 0x37a @0x15
0x365…3a4 at0016 = ╱34╱4╱ // 0x37b @0x16
0x365…3a4 at0017 = ╱38╱8╱ // 0x37c @0x17
0x365…3a4 at0018 = ╱fe0000c006╱ // 0x37d @0x18
0x365…3a4 at001d = ╱ee╱)╱ // 0x382 @0x1d
0x365…3a4 at001e = ╱e4╱*╱ // 0x383 @0x1e
0x365…3a4 at001f = ╱31╱1╱ // 0x384 @0x1f
0x365…3a4 at0020 = ╱30╱0╱ // 0x385 @0x20
0x365…3a4 at0021 = ╱fe0000a004╱ // 0x386 @0x21
0x365…3a4 at0026 = ╱e2╱+╱ // 0x38b @0x26
0x365…3a4 at0027 = ╱cd╱ORD╱ // 0x38c @0x27
0x365…3a4 at0028 = ╱ed╱(╱ // 0x38d @0x28
0x365…3a4 at0029 = ╱4e╱N╱ // 0x38e @0x29
0x365…3a4 at002a = ╱52╱R╱ // 0x38f @0x2a
0x365…3a4 at002b = ╱35╱5╱ // 0x390 @0x2b
0x365…3a4 at002c = ╱ef╱$╱ // 0x391 @0x2c
0x365…3a4 at002d = ╱ed╱(╱ // 0x392 @0x2d
0x365…3a4 at002e = ╱34╱4╱ // 0x393 @0x2e
0x365…3a4 at002f = ╱fe00008003╱ // 0x394 @0x2f
0x365…3a4 at0034 = ╱ee╱)╱ // 0x399 @0x34
0x365…3a4 at0035 = ╱ee╱)╱ // 0x39a @0x35
0x365…3a4 at0036 = ╱e3╱-╱ // 0x39b @0x36
0x365…3a4 at0037 = ╱34╱4╱ // 0x39c @0x37
0x365…3a4 at0038 = ╱38╱8╱ // 0x39d @0x38
0x365…3a4 at0039 = ╱fe0000c006╱ // 0x39e @0x39
0x365…3a4 at003e = EOL // 0x3a3 @0x3e
0x365…3a4 }
0x3a4…3e7 913e 0690 DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48
0x3a4…3e7 LineComalBin {
0x3a4…3e7 ptr = 0x913e // 0x3a4 @0x0
0x3a4…3e7 lno = 0x02b2 // 0x3a6 @0x2
0x3a4…3e7 at0004 = ╱44╱D╱ // 0x3a8 @0x4
0x3a4…3e7 at0005 = ╱41╱A╱ // 0x3a9 @0x5
0x3a4…3e7 at0006 = ╱54╱T╱ // 0x3aa @0x6
0x3a4…3e7 at0007 = ╱4f╱O╱ // 0x3ab @0x7
0x3a4…3e7 at0008 = ╱dc╱=╱ // 0x3ac @0x8
0x3a4…3e7 at0009 = ╱ed╱(╱ // 0x3ad @0x9
0x3a4…3e7 at000a = ╱cd╱ORD╱ // 0x3ae @0xa
0x3a4…3e7 at000b = ╱ed╱(╱ // 0x3af @0xb
0x3a4…3e7 at000c = ╱4e╱N╱ // 0x3b0 @0xc
0x3a4…3e7 at000d = ╱52╱R╱ // 0x3b1 @0xd
0x3a4…3e7 at000e = ╱35╱5╱ // 0x3b2 @0xe
0x3a4…3e7 at000f = ╱ef╱$╱ // 0x3b3 @0xf
0x3a4…3e7 at0010 = ╱ed╱(╱ // 0x3b4 @0x10
0x3a4…3e7 at0011 = ╱35╱5╱ // 0x3b5 @0x11
0x3a4…3e7 at0012 = ╱fe0000a003╱ // 0x3b6 @0x12
0x3a4…3e7 at0017 = ╱ee╱)╱ // 0x3bb @0x17
0x3a4…3e7 at0018 = ╱ee╱)╱ // 0x3bc @0x18
0x3a4…3e7 at0019 = ╱e3╱-╱ // 0x3bd @0x19
0x3a4…3e7 at001a = ╱34╱4╱ // 0x3be @0x1a
0x3a4…3e7 at001b = ╱38╱8╱ // 0x3bf @0x1b
0x3a4…3e7 at001c = ╱fe0000c006╱ // 0x3c0 @0x1c
0x3a4…3e7 at0021 = ╱ee╱)╱ // 0x3c5 @0x21
0x3a4…3e7 at0022 = ╱e4╱*╱ // 0x3c6 @0x22
0x3a4…3e7 at0023 = ╱31╱1╱ // 0x3c7 @0x23
0x3a4…3e7 at0024 = ╱30╱0╱ // 0x3c8 @0x24
0x3a4…3e7 at0025 = ╱fe0000a004╱ // 0x3c9 @0x25
0x3a4…3e7 at002a = ╱e2╱+╱ // 0x3ce @0x2a
0x3a4…3e7 at002b = ╱cd╱ORD╱ // 0x3cf @0x2b
0x3a4…3e7 at002c = ╱ed╱(╱ // 0x3d0 @0x2c
0x3a4…3e7 at002d = ╱4e╱N╱ // 0x3d1 @0x2d
0x3a4…3e7 at002e = ╱52╱R╱ // 0x3d2 @0x2e
0x3a4…3e7 at002f = ╱35╱5╱ // 0x3d3 @0x2f
0x3a4…3e7 at0030 = ╱ef╱$╱ // 0x3d4 @0x30
0x3a4…3e7 at0031 = ╱ed╱(╱ // 0x3d5 @0x31
0x3a4…3e7 at0032 = ╱36╱6╱ // 0x3d6 @0x32
0x3a4…3e7 at0033 = ╱fe0000c003╱ // 0x3d7 @0x33
0x3a4…3e7 at0038 = ╱ee╱)╱ // 0x3dc @0x38
0x3a4…3e7 at0039 = ╱ee╱)╱ // 0x3dd @0x39
0x3a4…3e7 at003a = ╱e3╱-╱ // 0x3de @0x3a
0x3a4…3e7 at003b = ╱34╱4╱ // 0x3df @0x3b
0x3a4…3e7 at003c = ╱38╱8╱ // 0x3e0 @0x3c
0x3a4…3e7 at003d = ╱fe0000c006╱ // 0x3e1 @0x3d
0x3a4…3e7 at0042 = EOL // 0x3e6 @0x42
0x3a4…3e7 }
0x3e7…41c 9173 0700 IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B
0x3e7…41c LineComalBin {
0x3e7…41c ptr = 0x9173 // 0x3e7 @0x0
0x3e7…41c lno = 0x02bc // 0x3e9 @0x2
0x3e7…41c at0004 = ╱82╱ IF ╱ // 0x3eb @0x4
0x3e7…41c at0005 = ╱44╱D╱ // 0x3ec @0x5
0x3e7…41c at0006 = ╱41╱A╱ // 0x3ed @0x6
0x3e7…41c at0007 = ╱54╱T╱ // 0x3ee @0x7
0x3e7…41c at0008 = ╱4f╱O╱ // 0x3ef @0x8
0x3e7…41c at0009 = ╱dd╱<╱ // 0x3f0 @0x9
0x3e7…41c at000a = ╱45╱E╱ // 0x3f1 @0xa
0x3e7…41c at000b = ╱db╱ OR ╱ // 0x3f2 @0xb
0x3e7…41c at000c = ╱4d╱M╱ // 0x3f3 @0xc
0x3e7…41c at000d = ╱5d╱Å╱ // 0x3f4 @0xd
0x3e7…41c at000e = ╱4e╱N╱ // 0x3f5 @0xe
0x3e7…41c at000f = ╱45╱E╱ // 0x3f6 @0xf
0x3e7…41c at0010 = ╱44╱D╱ // 0x3f7 @0x10
0x3e7…41c at0011 = ╱dd╱<╱ // 0x3f8 @0x11
0x3e7…41c at0012 = ╱45╱E╱ // 0x3f9 @0x12
0x3e7…41c at0013 = ╱db╱ OR ╱ // 0x3fa @0x13
0x3e7…41c at0014 = ╱4d╱M╱ // 0x3fb @0x14
0x3e7…41c at0015 = ╱5d╱Å╱ // 0x3fc @0x15
0x3e7…41c at0016 = ╱4e╱N╱ // 0x3fd @0x16
0x3e7…41c at0017 = ╱45╱E╱ // 0x3fe @0x17
0x3e7…41c at0018 = ╱44╱D╱ // 0x3ff @0x18
0x3e7…41c at0019 = ╱de╱>╱ // 0x400 @0x19
0x3e7…41c at001a = ╱31╱1╱ // 0x401 @0x1a
0x3e7…41c at001b = ╱32╱2╱ // 0x402 @0x1b
0x3e7…41c at001c = ╱fe0000c004╱ // 0x403 @0x1c
0x3e7…41c at0021 = ╱db╱ OR ╱ // 0x408 @0x21
0x3e7…41c at0022 = ╱44╱D╱ // 0x409 @0x22
0x3e7…41c at0023 = ╱41╱A╱ // 0x40a @0x23
0x3e7…41c at0024 = ╱54╱T╱ // 0x40b @0x24
0x3e7…41c at0025 = ╱4f╱O╱ // 0x40c @0x25
0x3e7…41c at0026 = ╱de╱>╱ // 0x40d @0x26
0x3e7…41c at0027 = ╱33╱3╱ // 0x40e @0x27
0x3e7…41c at0028 = ╱31╱1╱ // 0x40f @0x28
0x3e7…41c at0029 = ╱fe0000f805╱ // 0x410 @0x29
0x3e7…41c at002e = ╱b6╱ THEN ╱ // 0x415 @0x2e
0x3e7…41c at002f = ╱4f╱O╱ // 0x416 @0x2f
0x3e7…41c at0030 = ╱4b╱K╱ // 0x417 @0x30
0x3e7…41c at0031 = ╱35╱5╱ // 0x418 @0x31
0x3e7…41c at0032 = ╱dc╱=╱ // 0x419 @0x32
0x3e7…41c at0033 = ╱42╱B╱ // 0x41a @0x33
0x3e7…41c at0034 = EOL // 0x41b @0x34
0x3e7…41c }
0x41c…429 9180 0710 IF OK5=B THEN EXIT
0x41c…429 LineComalBin {
0x41c…429 ptr = 0x9180 // 0x41c @0x0
0x41c…429 lno = 0x02c6 // 0x41e @0x2
0x41c…429 at0004 = ╱82╱ IF ╱ // 0x420 @0x4
0x41c…429 at0005 = ╱4f╱O╱ // 0x421 @0x5
0x41c…429 at0006 = ╱4b╱K╱ // 0x422 @0x6
0x41c…429 at0007 = ╱35╱5╱ // 0x423 @0x7
0x41c…429 at0008 = ╱dc╱=╱ // 0x424 @0x8
0x41c…429 at0009 = ╱42╱B╱ // 0x425 @0x9
0x41c…429 at000a = ╱b6╱ THEN ╱ // 0x426 @0xa
0x41c…429 at000b = ╱99╱ EXIT ╱ // 0x427 @0xb
0x41c…429 at000c = EOL // 0x428 @0xc
0x41c…429 }
0x429…436 918d 0720 CASE MÅNED OF
0x429…436 LineComalBin {
0x429…436 ptr = 0x918d // 0x429 @0x0
0x429…436 lno = 0x02d0 // 0x42b @0x2
0x429…436 at0004 = ╱a201╱ CASE ╱ // 0x42d @0x4
0x429…436 at0006 = ╱4d╱M╱ // 0x42f @0x6
0x429…436 at0007 = ╱5d╱Å╱ // 0x430 @0x7
0x429…436 at0008 = ╱4e╱N╱ // 0x431 @0x8
0x429…436 at0009 = ╱45╱E╱ // 0x432 @0x9
0x429…436 at000a = ╱44╱D╱ // 0x433 @0xa
0x429…436 at000b = ╱ba╱ OF ╱ // 0x434 @0xb
0x429…436 at000c = EOL // 0x435 @0xc
0x429…436 }
0x436…454 (14,) 91ab 0730 WHEN 4,6,W,11
0x436…454 LineComalBin {
0x436…454 ptr = 0x91ab // 0x436 @0x0
0x436…454 lno = 0x02da // 0x438 @0x2
0x436…454 at0004 = ╱a301╱ WHEN ╱ // 0x43a @0x4
0x436…454 at0006 = ╱34╱4╱ // 0x43c @0x6
0x436…454 at0007 = ╱fe00008003╱ // 0x43d @0x7
0x436…454 at000c = ╱ec╱,╱ // 0x442 @0xc
0x436…454 at000d = ╱36╱6╱ // 0x443 @0xd
0x436…454 at000e = ╱fe0000c003╱ // 0x444 @0xe
0x436…454 at0013 = ╱ec╱,╱ // 0x449 @0x13
0x436…454 at0014 = ╱57╱W╱ // 0x44a @0x14
0x436…454 at0015 = ╱ec╱,╱ // 0x44b @0x15
0x436…454 at0016 = ╱31╱1╱ // 0x44c @0x16
0x436…454 at0017 = ╱31╱1╱ // 0x44d @0x17
0x436…454 at0018 = ╱fe0000b004╱ // 0x44e @0x18
0x436…454 at001d = EOL // 0x453 @0x1d
0x436…454 }
0x454…46c 91c3 0740 IF DATO>30 THEN OK5=B
0x454…46c LineComalBin {
0x454…46c ptr = 0x91c3 // 0x454 @0x0
0x454…46c lno = 0x02e4 // 0x456 @0x2
0x454…46c at0004 = ╱82╱ IF ╱ // 0x458 @0x4
0x454…46c at0005 = ╱44╱D╱ // 0x459 @0x5
0x454…46c at0006 = ╱41╱A╱ // 0x45a @0x6
0x454…46c at0007 = ╱54╱T╱ // 0x45b @0x7
0x454…46c at0008 = ╱4f╱O╱ // 0x45c @0x8
0x454…46c at0009 = ╱de╱>╱ // 0x45d @0x9
0x454…46c at000a = ╱33╱3╱ // 0x45e @0xa
0x454…46c at000b = ╱30╱0╱ // 0x45f @0xb
0x454…46c at000c = ╱fe0000f005╱ // 0x460 @0xc
0x454…46c at0011 = ╱b6╱ THEN ╱ // 0x465 @0x11
0x454…46c at0012 = ╱4f╱O╱ // 0x466 @0x12
0x454…46c at0013 = ╱4b╱K╱ // 0x467 @0x13
0x454…46c at0014 = ╱35╱5╱ // 0x468 @0x14
0x454…46c at0015 = ╱dc╱=╱ // 0x469 @0x15
0x454…46c at0016 = ╱42╱B╱ // 0x46a @0x16
0x454…46c at0017 = EOL // 0x46b @0x17
0x454…46c }
0x46c…474 91cb 0750 WHEN G
0x46c…474 LineComalBin {
0x46c…474 ptr = 0x91cb // 0x46c @0x0
0x46c…474 lno = 0x02ee // 0x46e @0x2
0x46c…474 at0004 = ╱a301╱ WHEN ╱ // 0x470 @0x4
0x46c…474 at0006 = ╱47╱G╱ // 0x472 @0x6
0x46c…474 at0007 = EOL // 0x473 @0x7
0x46c…474 }
0x474…48c 91e3 0760 IF DATO>29 THEN OK5=B
0x474…48c LineComalBin {
0x474…48c ptr = 0x91e3 // 0x474 @0x0
0x474…48c lno = 0x02f8 // 0x476 @0x2
0x474…48c at0004 = ╱82╱ IF ╱ // 0x478 @0x4
0x474…48c at0005 = ╱44╱D╱ // 0x479 @0x5
0x474…48c at0006 = ╱41╱A╱ // 0x47a @0x6
0x474…48c at0007 = ╱54╱T╱ // 0x47b @0x7
0x474…48c at0008 = ╱4f╱O╱ // 0x47c @0x8
0x474…48c at0009 = ╱de╱>╱ // 0x47d @0x9
0x474…48c at000a = ╱32╱2╱ // 0x47e @0xa
0x474…48c at000b = ╱39╱9╱ // 0x47f @0xb
0x474…48c at000c = ╱fe0000e805╱ // 0x480 @0xc
0x474…48c at0011 = ╱b6╱ THEN ╱ // 0x485 @0x11
0x474…48c at0012 = ╱4f╱O╱ // 0x486 @0x12
0x474…48c at0013 = ╱4b╱K╱ // 0x487 @0x13
0x474…48c at0014 = ╱35╱5╱ // 0x488 @0x14
0x474…48c at0015 = ╱dc╱=╱ // 0x489 @0x15
0x474…48c at0016 = ╱42╱B╱ // 0x48a @0x16
0x474…48c at0017 = EOL // 0x48b @0x17
0x474…48c }
0x48c…4b0 9207 0770 IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B
0x48c…4b0 LineComalBin {
0x48c…4b0 ptr = 0x9207 // 0x48c @0x0
0x48c…4b0 lno = 0x0302 // 0x48e @0x2
0x48c…4b0 at0004 = ╱82╱ IF ╱ // 0x490 @0x4
0x48c…4b0 at0005 = ╱44╱D╱ // 0x491 @0x5
0x48c…4b0 at0006 = ╱41╱A╱ // 0x492 @0x6
0x48c…4b0 at0007 = ╱54╱T╱ // 0x493 @0x7
0x48c…4b0 at0008 = ╱4f╱O╱ // 0x494 @0x8
0x48c…4b0 at0009 = ╱dc╱=╱ // 0x495 @0x9
0x48c…4b0 at000a = ╱32╱2╱ // 0x496 @0xa
0x48c…4b0 at000b = ╱39╱9╱ // 0x497 @0xb
0x48c…4b0 at000c = ╱fe0000e805╱ // 0x498 @0xc
0x48c…4b0 at0011 = ╱da╱ AND ╱ // 0x49d @0x11
0x48c…4b0 at0012 = ╱5d╱Å╱ // 0x49e @0x12
0x48c…4b0 at0013 = ╱52╱R╱ // 0x49f @0x13
0x48c…4b0 at0014 = ╱e8╱ MOD ╱ // 0x4a0 @0x14
0x48c…4b0 at0015 = ╱34╱4╱ // 0x4a1 @0x15
0x48c…4b0 at0016 = ╱fe00008003╱ // 0x4a2 @0x16
0x48c…4b0 at001b = ╱e1╱<>╱ // 0x4a7 @0x1b
0x48c…4b0 at001c = ╱42╱B╱ // 0x4a8 @0x1c
0x48c…4b0 at001d = ╱b6╱ THEN ╱ // 0x4a9 @0x1d
0x48c…4b0 at001e = ╱4f╱O╱ // 0x4aa @0x1e
0x48c…4b0 at001f = ╱4b╱K╱ // 0x4ab @0x1f
0x48c…4b0 at0020 = ╱35╱5╱ // 0x4ac @0x20
0x48c…4b0 at0021 = ╱dc╱=╱ // 0x4ad @0x21
0x48c…4b0 at0022 = ╱42╱B╱ // 0x4ae @0x22
0x48c…4b0 at0023 = EOL // 0x4af @0x23
0x48c…4b0 }
0x4b0…4b6 920d 0780 ENDCASE
0x4b0…4b6 LineComalBin {
0x4b0…4b6 ptr = 0x920d // 0x4b0 @0x0
0x4b0…4b6 lno = 0x030c // 0x4b2 @0x2
0x4b0…4b6 at0004 = ╱a4╱ ENDCASE ╱ // 0x4b4 @0x4
0x4b0…4b6 at0005 = EOL // 0x4b5 @0x5
0x4b0…4b6 }
0x4b6…4bc 9213 0790 ENDPROC
0x4b6…4bc LineComalBin {
0x4b6…4bc ptr = 0x9213 // 0x4b6 @0x0
0x4b6…4bc lno = 0x0316 // 0x4b8 @0x2
0x4b6…4bc at0004 = ╱9f╱ ENDPROC ╱ // 0x4ba @0x4
0x4b6…4bc at0005 = EOL // 0x4bb @0x5
0x4b6…4bc }
0x4bc…4d0 9227 1000 PROC CHECK(NR1,OK1)
0x4bc…4d0 LineComalBin {
0x4bc…4d0 ptr = 0x9227 // 0x4bc @0x0
0x4bc…4d0 lno = 0x03e8 // 0x4be @0x2
0x4bc…4d0 at0004 = ╱9e╱ PROC ╱ // 0x4c0 @0x4
0x4bc…4d0 at0005 = ╱43╱C╱ // 0x4c1 @0x5
0x4bc…4d0 at0006 = ╱48╱H╱ // 0x4c2 @0x6
0x4bc…4d0 at0007 = ╱45╱E╱ // 0x4c3 @0x7
0x4bc…4d0 at0008 = ╱43╱C╱ // 0x4c4 @0x8
0x4bc…4d0 at0009 = ╱4b╱K╱ // 0x4c5 @0x9
0x4bc…4d0 at000a = ╱ed╱(╱ // 0x4c6 @0xa
0x4bc…4d0 at000b = ╱4e╱N╱ // 0x4c7 @0xb
0x4bc…4d0 at000c = ╱52╱R╱ // 0x4c8 @0xc
0x4bc…4d0 at000d = ╱31╱1╱ // 0x4c9 @0xd
0x4bc…4d0 at000e = ╱ec╱,╱ // 0x4ca @0xe
0x4bc…4d0 at000f = ╱4f╱O╱ // 0x4cb @0xf
0x4bc…4d0 at0010 = ╱4b╱K╱ // 0x4cc @0x10
0x4bc…4d0 at0011 = ╱31╱1╱ // 0x4cd @0x11
0x4bc…4d0 at0012 = ╱ee╱)╱ // 0x4ce @0x12
0x4bc…4d0 at0013 = EOL // 0x4cf @0x13
0x4bc…4d0 }
0x4d0…4da (16,) 9231 1010 OK1=B
0x4d0…4da LineComalBin {
0x4d0…4da ptr = 0x9231 // 0x4d0 @0x0
0x4d0…4da lno = 0x03f2 // 0x4d2 @0x2
0x4d0…4da at0004 = ╱4f╱O╱ // 0x4d4 @0x4
0x4d0…4da at0005 = ╱4b╱K╱ // 0x4d5 @0x5
0x4d0…4da at0006 = ╱31╱1╱ // 0x4d6 @0x6
0x4d0…4da at0007 = ╱dc╱=╱ // 0x4d7 @0x7
0x4d0…4da at0008 = ╱42╱B╱ // 0x4d8 @0x8
0x4d0…4da at0009 = EOL // 0x4d9 @0x9
0x4d0…4da }
0x4da…4e7 923e 1020 RESULT=B
0x4da…4e7 LineComalBin {
0x4da…4e7 ptr = 0x923e // 0x4da @0x0
0x4da…4e7 lno = 0x03fc // 0x4dc @0x2
0x4da…4e7 at0004 = ╱52╱R╱ // 0x4de @0x4
0x4da…4e7 at0005 = ╱45╱E╱ // 0x4df @0x5
0x4da…4e7 at0006 = ╱53╱S╱ // 0x4e0 @0x6
0x4da…4e7 at0007 = ╱55╱U╱ // 0x4e1 @0x7
0x4da…4e7 at0008 = ╱4c╱L╱ // 0x4e2 @0x8
0x4da…4e7 at0009 = ╱54╱T╱ // 0x4e3 @0x9
0x4da…4e7 at000a = ╱dc╱=╱ // 0x4e4 @0xa
0x4da…4e7 at000b = ╱42╱B╱ // 0x4e5 @0xb
0x4da…4e7 at000c = EOL // 0x4e6 @0xc
0x4da…4e7 }
0x4e7…4f7 924e 1030 IF LEN(NR1$)>B THEN
0x4e7…4f7 LineComalBin {
0x4e7…4f7 ptr = 0x924e // 0x4e7 @0x0
0x4e7…4f7 lno = 0x0406 // 0x4e9 @0x2
0x4e7…4f7 at0004 = ╱9c╱ IF ╱ // 0x4eb @0x4
0x4e7…4f7 at0005 = ╱cc╱LEN╱ // 0x4ec @0x5
0x4e7…4f7 at0006 = ╱ed╱(╱ // 0x4ed @0x6
0x4e7…4f7 at0007 = ╱4e╱N╱ // 0x4ee @0x7
0x4e7…4f7 at0008 = ╱52╱R╱ // 0x4ef @0x8
0x4e7…4f7 at0009 = ╱31╱1╱ // 0x4f0 @0x9
0x4e7…4f7 at000a = ╱ef╱$╱ // 0x4f1 @0xa
0x4e7…4f7 at000b = ╱ee╱)╱ // 0x4f2 @0xb
0x4e7…4f7 at000c = ╱de╱>╱ // 0x4f3 @0xc
0x4e7…4f7 at000d = ╱42╱B╱ // 0x4f4 @0xd
0x4e7…4f7 at000e = ╱b6╱ THEN ╱ // 0x4f5 @0xe
0x4e7…4f7 at000f = EOL // 0x4f6 @0xf
0x4e7…4f7 }
0x4f7…509 9260 1040 IF NR1$(E)="-" THEN
0x4f7…509 LineComalBin {
0x4f7…509 ptr = 0x9260 // 0x4f7 @0x0
0x4f7…509 lno = 0x0410 // 0x4f9 @0x2
0x4f7…509 at0004 = ╱9c╱ IF ╱ // 0x4fb @0x4
0x4f7…509 at0005 = ╱4e╱N╱ // 0x4fc @0x5
0x4f7…509 at0006 = ╱52╱R╱ // 0x4fd @0x6
0x4f7…509 at0007 = ╱31╱1╱ // 0x4fe @0x7
0x4f7…509 at0008 = ╱ef╱$╱ // 0x4ff @0x8
0x4f7…509 at0009 = ╱ed╱(╱ // 0x500 @0x9
0x4f7…509 at000a = ╱45╱E╱ // 0x501 @0xa
0x4f7…509 at000b = ╱ee╱)╱ // 0x502 @0xb
0x4f7…509 at000c = ╱dc╱=╱ // 0x503 @0xc
0x4f7…509 at000d = ╱22╱"╱ // 0x504 @0xd
0x4f7…509 at000e = ╱2d╱-╱ // 0x505 @0xe
0x4f7…509 at000f = ╱22╱"╱ // 0x506 @0xf
0x4f7…509 at0010 = ╱b6╱ THEN ╱ // 0x507 @0x10
0x4f7…509 at0011 = EOL // 0x508 @0x11
0x4f7…509 }
0x509…518 926f 1050 FORTEGN=-E
0x509…518 LineComalBin {
0x509…518 ptr = 0x926f // 0x509 @0x0
0x509…518 lno = 0x041a // 0x50b @0x2
0x509…518 at0004 = ╱46╱F╱ // 0x50d @0x4
0x509…518 at0005 = ╱4f╱O╱ // 0x50e @0x5
0x509…518 at0006 = ╱52╱R╱ // 0x50f @0x6
0x509…518 at0007 = ╱54╱T╱ // 0x510 @0x7
0x509…518 at0008 = ╱45╱E╱ // 0x511 @0x8
0x509…518 at0009 = ╱47╱G╱ // 0x512 @0x9
0x509…518 at000a = ╱4e╱N╱ // 0x513 @0xa
0x509…518 at000b = ╱dc╱=╱ // 0x514 @0xb
0x509…518 at000c = ╱e9╱-╱ // 0x515 @0xc
0x509…518 at000d = ╱45╱E╱ // 0x516 @0xd
0x509…518 at000e = EOL // 0x517 @0xe
0x509…518 }
0x518…522 9279 1060 OK1=E
0x518…522 LineComalBin {
0x518…522 ptr = 0x9279 // 0x518 @0x0
0x518…522 lno = 0x0424 // 0x51a @0x2
0x518…522 at0004 = ╱4f╱O╱ // 0x51c @0x4
0x518…522 at0005 = ╱4b╱K╱ // 0x51d @0x5
0x518…522 at0006 = ╱31╱1╱ // 0x51e @0x6
0x518…522 at0007 = ╱dc╱=╱ // 0x51f @0x7
0x518…522 at0008 = ╱45╱E╱ // 0x520 @0x8
0x518…522 at0009 = EOL // 0x521 @0x9
0x518…522 }
0x522…528 927f 1070 ELSE
0x522…528 LineComalBin {
0x522…528 ptr = 0x927f // 0x522 @0x0
0x522…528 lno = 0x042e // 0x524 @0x2
0x522…528 at0004 = ╱9a╱ ELSE ╱ // 0x526 @0x4
0x522…528 at0005 = EOL // 0x527 @0x5
0x522…528 }
0x528…536 928d 1080 FORTEGN=E
0x528…536 LineComalBin {
0x528…536 ptr = 0x928d // 0x528 @0x0
0x528…536 lno = 0x0438 // 0x52a @0x2
0x528…536 at0004 = ╱46╱F╱ // 0x52c @0x4
0x528…536 at0005 = ╱4f╱O╱ // 0x52d @0x5
0x528…536 at0006 = ╱52╱R╱ // 0x52e @0x6
0x528…536 at0007 = ╱54╱T╱ // 0x52f @0x7
0x528…536 at0008 = ╱45╱E╱ // 0x530 @0x8
0x528…536 at0009 = ╱47╱G╱ // 0x531 @0x9
0x528…536 at000a = ╱4e╱N╱ // 0x532 @0xa
0x528…536 at000b = ╱dc╱=╱ // 0x533 @0xb
0x528…536 at000c = ╱45╱E╱ // 0x534 @0xc
0x528…536 at000d = EOL // 0x535 @0xd
0x528…536 }
0x536…53c 9293 1090 ENDIF
0x536…53c LineComalBin {
0x536…53c ptr = 0x9293 // 0x536 @0x0
0x536…53c lno = 0x0442 // 0x538 @0x2
0x536…53c at0004 = ╱9b╱ ENDIF ╱ // 0x53a @0x4
0x536…53c at0005 = EOL // 0x53b @0x5
0x536…53c }
0x53c…54d 92a4 1100 WHILE LEN(NR1$)>OK1
0x53c…54d LineComalBin {
0x53c…54d ptr = 0x92a4 // 0x53c @0x0
0x53c…54d lno = 0x044c // 0x53e @0x2
0x53c…54d at0004 = ╱93╱ WHILE ╱ // 0x540 @0x4
0x53c…54d at0005 = ╱cc╱LEN╱ // 0x541 @0x5
0x53c…54d at0006 = ╱ed╱(╱ // 0x542 @0x6
0x53c…54d at0007 = ╱4e╱N╱ // 0x543 @0x7
0x53c…54d at0008 = ╱52╱R╱ // 0x544 @0x8
0x53c…54d at0009 = ╱31╱1╱ // 0x545 @0x9
0x53c…54d at000a = ╱ef╱$╱ // 0x546 @0xa
0x53c…54d at000b = ╱ee╱)╱ // 0x547 @0xb
0x53c…54d at000c = ╱de╱>╱ // 0x548 @0xc
0x53c…54d at000d = ╱4f╱O╱ // 0x549 @0xd
0x53c…54d at000e = ╱4b╱K╱ // 0x54a @0xe
0x53c…54d at000f = ╱31╱1╱ // 0x54b @0xf
0x53c…54d at0010 = EOL // 0x54c @0x10
0x53c…54d }
0x54d…55b 92b2 1110 OK1=OK1+E
0x54d…55b LineComalBin {
0x54d…55b ptr = 0x92b2 // 0x54d @0x0
0x54d…55b lno = 0x0456 // 0x54f @0x2
0x54d…55b at0004 = ╱4f╱O╱ // 0x551 @0x4
0x54d…55b at0005 = ╱4b╱K╱ // 0x552 @0x5
0x54d…55b at0006 = ╱31╱1╱ // 0x553 @0x6
0x54d…55b at0007 = ╱dc╱=╱ // 0x554 @0x7
0x54d…55b at0008 = ╱4f╱O╱ // 0x555 @0x8
0x54d…55b at0009 = ╱4b╱K╱ // 0x556 @0x9
0x54d…55b at000a = ╱31╱1╱ // 0x557 @0xa
0x54d…55b at000b = ╱e2╱+╱ // 0x558 @0xb
0x54d…55b at000c = ╱45╱E╱ // 0x559 @0xc
0x54d…55b at000d = EOL // 0x55a @0xd
0x54d…55b }
0x55b…57d 92d4 1120 IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN
0x55b…57d LineComalBin {
0x55b…57d ptr = 0x92d4 // 0x55b @0x0
0x55b…57d lno = 0x0460 // 0x55d @0x2
0x55b…57d at0004 = ╱9c╱ IF ╱ // 0x55f @0x4
0x55b…57d at0005 = ╱4e╱N╱ // 0x560 @0x5
0x55b…57d at0006 = ╱52╱R╱ // 0x561 @0x6
0x55b…57d at0007 = ╱31╱1╱ // 0x562 @0x7
0x55b…57d at0008 = ╱ef╱$╱ // 0x563 @0x8
0x55b…57d at0009 = ╱ed╱(╱ // 0x564 @0x9
0x55b…57d at000a = ╱4f╱O╱ // 0x565 @0xa
0x55b…57d at000b = ╱4b╱K╱ // 0x566 @0xb
0x55b…57d at000c = ╱31╱1╱ // 0x567 @0xc
0x55b…57d at000d = ╱ee╱)╱ // 0x568 @0xd
0x55b…57d at000e = ╱dd╱<╱ // 0x569 @0xe
0x55b…57d at000f = ╱22╱"╱ // 0x56a @0xf
0x55b…57d at0010 = ╱30╱0╱ // 0x56b @0x10
0x55b…57d at0011 = ╱22╱"╱ // 0x56c @0x11
0x55b…57d at0012 = ╱db╱ OR ╱ // 0x56d @0x12
0x55b…57d at0013 = ╱4e╱N╱ // 0x56e @0x13
0x55b…57d at0014 = ╱52╱R╱ // 0x56f @0x14
0x55b…57d at0015 = ╱31╱1╱ // 0x570 @0x15
0x55b…57d at0016 = ╱ef╱$╱ // 0x571 @0x16
0x55b…57d at0017 = ╱ed╱(╱ // 0x572 @0x17
0x55b…57d at0018 = ╱4f╱O╱ // 0x573 @0x18
0x55b…57d at0019 = ╱4b╱K╱ // 0x574 @0x19
0x55b…57d at001a = ╱31╱1╱ // 0x575 @0x1a
0x55b…57d at001b = ╱ee╱)╱ // 0x576 @0x1b
0x55b…57d at001c = ╱de╱>╱ // 0x577 @0x1c
0x55b…57d at001d = ╱22╱"╱ // 0x578 @0x1d
0x55b…57d at001e = ╱39╱9╱ // 0x579 @0x1e
0x55b…57d at001f = ╱22╱"╱ // 0x57a @0x1f
0x55b…57d at0020 = ╱b6╱ THEN ╱ // 0x57b @0x20
0x55b…57d at0021 = EOL // 0x57c @0x21
0x55b…57d }
0x57d…58b 92e2 1130 FORTEGN=B
0x57d…58b LineComalBin {
0x57d…58b ptr = 0x92e2 // 0x57d @0x0
0x57d…58b lno = 0x046a // 0x57f @0x2
0x57d…58b at0004 = ╱46╱F╱ // 0x581 @0x4
0x57d…58b at0005 = ╱4f╱O╱ // 0x582 @0x5
0x57d…58b at0006 = ╱52╱R╱ // 0x583 @0x6
0x57d…58b at0007 = ╱54╱T╱ // 0x584 @0x7
0x57d…58b at0008 = ╱45╱E╱ // 0x585 @0x8
0x57d…58b at0009 = ╱47╱G╱ // 0x586 @0x9
0x57d…58b at000a = ╱4e╱N╱ // 0x587 @0xa
0x57d…58b at000b = ╱dc╱=╱ // 0x588 @0xb
0x57d…58b at000c = ╱42╱B╱ // 0x589 @0xc
0x57d…58b at000d = EOL // 0x58a @0xd
0x57d…58b }
0x58b…59b 92f2 1140 OK1=LEN(NR1$)
0x58b…59b LineComalBin {
0x58b…59b ptr = 0x92f2 // 0x58b @0x0
0x58b…59b lno = 0x0474 // 0x58d @0x2
0x58b…59b at0004 = ╱4f╱O╱ // 0x58f @0x4
0x58b…59b at0005 = ╱4b╱K╱ // 0x590 @0x5
0x58b…59b at0006 = ╱31╱1╱ // 0x591 @0x6
0x58b…59b at0007 = ╱dc╱=╱ // 0x592 @0x7
0x58b…59b at0008 = ╱cc╱LEN╱ // 0x593 @0x8
0x58b…59b at0009 = ╱ed╱(╱ // 0x594 @0x9
0x58b…59b at000a = ╱4e╱N╱ // 0x595 @0xa
0x58b…59b at000b = ╱52╱R╱ // 0x596 @0xb
0x58b…59b at000c = ╱31╱1╱ // 0x597 @0xc
0x58b…59b at000d = ╱ef╱$╱ // 0x598 @0xd
0x58b…59b at000e = ╱ee╱)╱ // 0x599 @0xe
0x58b…59b at000f = EOL // 0x59a @0xf
0x58b…59b }
0x59b…5a1 92f8 1150 ENDIF
0x59b…5a1 LineComalBin {
0x59b…5a1 ptr = 0x92f8 // 0x59b @0x0
0x59b…5a1 lno = 0x047e // 0x59d @0x2
0x59b…5a1 at0004 = ╱9b╱ ENDIF ╱ // 0x59f @0x4
0x59b…5a1 at0005 = EOL // 0x5a0 @0x5
0x59b…5a1 }
0x5a1…5d0 9327 1160 RESULT=RESULT*10+ORD(NR1$(OK1))-48
0x5a1…5d0 LineComalBin {
0x5a1…5d0 ptr = 0x9327 // 0x5a1 @0x0
0x5a1…5d0 lno = 0x0488 // 0x5a3 @0x2
0x5a1…5d0 at0004 = ╱52╱R╱ // 0x5a5 @0x4
0x5a1…5d0 at0005 = ╱45╱E╱ // 0x5a6 @0x5
0x5a1…5d0 at0006 = ╱53╱S╱ // 0x5a7 @0x6
0x5a1…5d0 at0007 = ╱55╱U╱ // 0x5a8 @0x7
0x5a1…5d0 at0008 = ╱4c╱L╱ // 0x5a9 @0x8
0x5a1…5d0 at0009 = ╱54╱T╱ // 0x5aa @0x9
0x5a1…5d0 at000a = ╱dc╱=╱ // 0x5ab @0xa
0x5a1…5d0 at000b = ╱52╱R╱ // 0x5ac @0xb
0x5a1…5d0 at000c = ╱45╱E╱ // 0x5ad @0xc
0x5a1…5d0 at000d = ╱53╱S╱ // 0x5ae @0xd
0x5a1…5d0 at000e = ╱55╱U╱ // 0x5af @0xe
0x5a1…5d0 at000f = ╱4c╱L╱ // 0x5b0 @0xf
0x5a1…5d0 at0010 = ╱54╱T╱ // 0x5b1 @0x10
0x5a1…5d0 at0011 = ╱e4╱*╱ // 0x5b2 @0x11
0x5a1…5d0 at0012 = ╱31╱1╱ // 0x5b3 @0x12
0x5a1…5d0 at0013 = ╱30╱0╱ // 0x5b4 @0x13
0x5a1…5d0 at0014 = ╱fe0000a004╱ // 0x5b5 @0x14
0x5a1…5d0 at0019 = ╱e2╱+╱ // 0x5ba @0x19
0x5a1…5d0 at001a = ╱cd╱ORD╱ // 0x5bb @0x1a
0x5a1…5d0 at001b = ╱ed╱(╱ // 0x5bc @0x1b
0x5a1…5d0 at001c = ╱4e╱N╱ // 0x5bd @0x1c
0x5a1…5d0 at001d = ╱52╱R╱ // 0x5be @0x1d
0x5a1…5d0 at001e = ╱31╱1╱ // 0x5bf @0x1e
0x5a1…5d0 at001f = ╱ef╱$╱ // 0x5c0 @0x1f
0x5a1…5d0 at0020 = ╱ed╱(╱ // 0x5c1 @0x20
0x5a1…5d0 at0021 = ╱4f╱O╱ // 0x5c2 @0x21
0x5a1…5d0 at0022 = ╱4b╱K╱ // 0x5c3 @0x22
0x5a1…5d0 at0023 = ╱31╱1╱ // 0x5c4 @0x23
0x5a1…5d0 at0024 = ╱ee╱)╱ // 0x5c5 @0x24
0x5a1…5d0 at0025 = ╱ee╱)╱ // 0x5c6 @0x25
0x5a1…5d0 at0026 = ╱e3╱-╱ // 0x5c7 @0x26
0x5a1…5d0 at0027 = ╱34╱4╱ // 0x5c8 @0x27
0x5a1…5d0 at0028 = ╱38╱8╱ // 0x5c9 @0x28
0x5a1…5d0 at0029 = ╱fe0000c006╱ // 0x5ca @0x29
0x5a1…5d0 at002e = EOL // 0x5cf @0x2e
0x5a1…5d0 }
0x5d0…5d6 932d 1170 ENDWHILE
0x5d0…5d6 LineComalBin {
0x5d0…5d6 ptr = 0x932d // 0x5d0 @0x0
0x5d0…5d6 lno = 0x0492 // 0x5d2 @0x2
0x5d0…5d6 at0004 = ╱94╱ ENDWHILE ╱ // 0x5d4 @0x4
0x5d0…5d6 at0005 = EOL // 0x5d5 @0x5
0x5d0…5d6 }
0x5d6…5f0 9347 1175 RESULT=RESULT*FORTEGN
0x5d6…5f0 LineComalBin {
0x5d6…5f0 ptr = 0x9347 // 0x5d6 @0x0
0x5d6…5f0 lno = 0x0497 // 0x5d8 @0x2
0x5d6…5f0 at0004 = ╱52╱R╱ // 0x5da @0x4
0x5d6…5f0 at0005 = ╱45╱E╱ // 0x5db @0x5
0x5d6…5f0 at0006 = ╱53╱S╱ // 0x5dc @0x6
0x5d6…5f0 at0007 = ╱55╱U╱ // 0x5dd @0x7
0x5d6…5f0 at0008 = ╱4c╱L╱ // 0x5de @0x8
0x5d6…5f0 at0009 = ╱54╱T╱ // 0x5df @0x9
0x5d6…5f0 at000a = ╱dc╱=╱ // 0x5e0 @0xa
0x5d6…5f0 at000b = ╱52╱R╱ // 0x5e1 @0xb
0x5d6…5f0 at000c = ╱45╱E╱ // 0x5e2 @0xc
0x5d6…5f0 at000d = ╱53╱S╱ // 0x5e3 @0xd
0x5d6…5f0 at000e = ╱55╱U╱ // 0x5e4 @0xe
0x5d6…5f0 at000f = ╱4c╱L╱ // 0x5e5 @0xf
0x5d6…5f0 at0010 = ╱54╱T╱ // 0x5e6 @0x10
0x5d6…5f0 at0011 = ╱e4╱*╱ // 0x5e7 @0x11
0x5d6…5f0 at0012 = ╱46╱F╱ // 0x5e8 @0x12
0x5d6…5f0 at0013 = ╱4f╱O╱ // 0x5e9 @0x13
0x5d6…5f0 at0014 = ╱52╱R╱ // 0x5ea @0x14
0x5d6…5f0 at0015 = ╱54╱T╱ // 0x5eb @0x15
0x5d6…5f0 at0016 = ╱45╱E╱ // 0x5ec @0x16
0x5d6…5f0 at0017 = ╱47╱G╱ // 0x5ed @0x17
0x5d6…5f0 at0018 = ╱4e╱N╱ // 0x5ee @0x18
0x5d6…5f0 at0019 = EOL // 0x5ef @0x19
0x5d6…5f0 }
0x5f0…604 935b 1180 OK1=OK1*FORTEGN
0x5f0…604 LineComalBin {
0x5f0…604 ptr = 0x935b // 0x5f0 @0x0
0x5f0…604 lno = 0x049c // 0x5f2 @0x2
0x5f0…604 at0004 = ╱4f╱O╱ // 0x5f4 @0x4
0x5f0…604 at0005 = ╱4b╱K╱ // 0x5f5 @0x5
0x5f0…604 at0006 = ╱31╱1╱ // 0x5f6 @0x6
0x5f0…604 at0007 = ╱dc╱=╱ // 0x5f7 @0x7
0x5f0…604 at0008 = ╱4f╱O╱ // 0x5f8 @0x8
0x5f0…604 at0009 = ╱4b╱K╱ // 0x5f9 @0x9
0x5f0…604 at000a = ╱31╱1╱ // 0x5fa @0xa
0x5f0…604 at000b = ╱e4╱*╱ // 0x5fb @0xb
0x5f0…604 at000c = ╱46╱F╱ // 0x5fc @0xc
0x5f0…604 at000d = ╱4f╱O╱ // 0x5fd @0xd
0x5f0…604 at000e = ╱52╱R╱ // 0x5fe @0xe
0x5f0…604 at000f = ╱54╱T╱ // 0x5ff @0xf
0x5f0…604 at0010 = ╱45╱E╱ // 0x600 @0x10
0x5f0…604 at0011 = ╱47╱G╱ // 0x601 @0x11
0x5f0…604 at0012 = ╱4e╱N╱ // 0x602 @0x12
0x5f0…604 at0013 = EOL // 0x603 @0x13
0x5f0…604 }
0x604…619 (20,) 9370 1190 IF OK1<B THEN OK1=OK1+E
0x604…619 LineComalBin {
0x604…619 ptr = 0x9370 // 0x604 @0x0
0x604…619 lno = 0x04a6 // 0x606 @0x2
0x604…619 at0004 = ╱82╱ IF ╱ // 0x608 @0x4
0x604…619 at0005 = ╱4f╱O╱ // 0x609 @0x5
0x604…619 at0006 = ╱4b╱K╱ // 0x60a @0x6
0x604…619 at0007 = ╱31╱1╱ // 0x60b @0x7
0x604…619 at0008 = ╱dd╱<╱ // 0x60c @0x8
0x604…619 at0009 = ╱42╱B╱ // 0x60d @0x9
0x604…619 at000a = ╱b6╱ THEN ╱ // 0x60e @0xa
0x604…619 at000b = ╱4f╱O╱ // 0x60f @0xb
0x604…619 at000c = ╱4b╱K╱ // 0x610 @0xc
0x604…619 at000d = ╱31╱1╱ // 0x611 @0xd
0x604…619 at000e = ╱dc╱=╱ // 0x612 @0xe
0x604…619 at000f = ╱4f╱O╱ // 0x613 @0xf
0x604…619 at0010 = ╱4b╱K╱ // 0x614 @0x10
0x604…619 at0011 = ╱31╱1╱ // 0x615 @0x11
0x604…619 at0012 = ╱e2╱+╱ // 0x616 @0x12
0x604…619 at0013 = ╱45╱E╱ // 0x617 @0x13
0x604…619 at0014 = EOL // 0x618 @0x14
0x604…619 }
0x619…61f 9376 1200 ENDIF
0x619…61f LineComalBin {
0x619…61f ptr = 0x9376 // 0x619 @0x0
0x619…61f lno = 0x04b0 // 0x61b @0x2
0x619…61f at0004 = ╱9b╱ ENDIF ╱ // 0x61d @0x4
0x619…61f at0005 = EOL // 0x61e @0x5
0x619…61f }
0x61f…625 937c 1210 ENDPROC
0x61f…625 LineComalBin {
0x61f…625 ptr = 0x937c // 0x61f @0x0
0x61f…625 lno = 0x04ba // 0x621 @0x2
0x61f…625 at0004 = ╱9f╱ ENDPROC ╱ // 0x623 @0x4
0x61f…625 at0005 = EOL // 0x624 @0x5
0x61f…625 }
0x625…635 938c 1220 PROC INOPL(OPL)
0x625…635 LineComalBin {
0x625…635 ptr = 0x938c // 0x625 @0x0
0x625…635 lno = 0x04c4 // 0x627 @0x2
0x625…635 at0004 = ╱9e╱ PROC ╱ // 0x629 @0x4
0x625…635 at0005 = ╱49╱I╱ // 0x62a @0x5
0x625…635 at0006 = ╱4e╱N╱ // 0x62b @0x6
0x625…635 at0007 = ╱4f╱O╱ // 0x62c @0x7
0x625…635 at0008 = ╱50╱P╱ // 0x62d @0x8
0x625…635 at0009 = ╱4c╱L╱ // 0x62e @0x9
0x625…635 at000a = ╱ed╱(╱ // 0x62f @0xa
0x625…635 at000b = ╱4f╱O╱ // 0x630 @0xb
0x625…635 at000c = ╱50╱P╱ // 0x631 @0xc
0x625…635 at000d = ╱4c╱L╱ // 0x632 @0xd
0x625…635 at000e = ╱ee╱)╱ // 0x633 @0xe
0x625…635 at000f = EOL // 0x634 @0xf
0x625…635 }
0x635…646 939d 1230 EXEC INLINE(OPL)
0x635…646 LineComalBin {
0x635…646 ptr = 0x939d // 0x635 @0x0
0x635…646 lno = 0x04ce // 0x637 @0x2
0x635…646 at0004 = ╱9d╱ EXEC ╱ // 0x639 @0x4
0x635…646 at0005 = ╱49╱I╱ // 0x63a @0x5
0x635…646 at0006 = ╱4e╱N╱ // 0x63b @0x6
0x635…646 at0007 = ╱4c╱L╱ // 0x63c @0x7
0x635…646 at0008 = ╱49╱I╱ // 0x63d @0x8
0x635…646 at0009 = ╱4e╱N╱ // 0x63e @0x9
0x635…646 at000a = ╱45╱E╱ // 0x63f @0xa
0x635…646 at000b = ╱ed╱(╱ // 0x640 @0xb
0x635…646 at000c = ╱4f╱O╱ // 0x641 @0xc
0x635…646 at000d = ╱50╱P╱ // 0x642 @0xd
0x635…646 at000e = ╱4c╱L╱ // 0x643 @0xe
0x635…646 at000f = ╱ee╱)╱ // 0x644 @0xf
0x635…646 at0010 = EOL // 0x645 @0x10
0x635…646 }
0x646…651 93a8 1240 CASE OPL OF
0x646…651 LineComalBin {
0x646…651 ptr = 0x93a8 // 0x646 @0x0
0x646…651 lno = 0x04d8 // 0x648 @0x2
0x646…651 at0004 = ╱a201╱ CASE ╱ // 0x64a @0x4
0x646…651 at0006 = ╱4f╱O╱ // 0x64c @0x6
0x646…651 at0007 = ╱50╱P╱ // 0x64d @0x7
0x646…651 at0008 = ╱4c╱L╱ // 0x64e @0x8
0x646…651 at0009 = ╱ba╱ OF ╱ // 0x64f @0x9
0x646…651 at000a = EOL // 0x650 @0xa
0x646…651 }
0x651…659 (21,) 93b0 1250 WHEN E
0x651…659 LineComalBin {
0x651…659 ptr = 0x93b0 // 0x651 @0x0
0x651…659 lno = 0x04e2 // 0x653 @0x2
0x651…659 at0004 = ╱a301╱ WHEN ╱ // 0x655 @0x4
0x651…659 at0006 = ╱45╱E╱ // 0x657 @0x6
0x651…659 at0007 = EOL // 0x658 @0x7
0x651…659 }
0x659…65f 93b6 1260 REPEAT
0x659…65f LineComalBin {
0x659…65f ptr = 0x93b6 // 0x659 @0x0
0x659…65f lno = 0x04ec // 0x65b @0x2
0x659…65f at0004 = ╱97╱ REPEAT ╱ // 0x65d @0x4
0x659…65f at0005 = EOL // 0x65e @0x5
0x659…65f }
0x65f…674 93cb 1270 EXEC DATOCHECK(L$,I)
0x65f…674 LineComalBin {
0x65f…674 ptr = 0x93cb // 0x65f @0x0
0x65f…674 lno = 0x04f6 // 0x661 @0x2
0x65f…674 at0004 = ╱9d╱ EXEC ╱ // 0x663 @0x4
0x65f…674 at0005 = ╱44╱D╱ // 0x664 @0x5
0x65f…674 at0006 = ╱41╱A╱ // 0x665 @0x6
0x65f…674 at0007 = ╱54╱T╱ // 0x666 @0x7
0x65f…674 at0008 = ╱4f╱O╱ // 0x667 @0x8
0x65f…674 at0009 = ╱43╱C╱ // 0x668 @0x9
0x65f…674 at000a = ╱48╱H╱ // 0x669 @0xa
0x65f…674 at000b = ╱45╱E╱ // 0x66a @0xb
0x65f…674 at000c = ╱43╱C╱ // 0x66b @0xc
0x65f…674 at000d = ╱4b╱K╱ // 0x66c @0xd
0x65f…674 at000e = ╱ed╱(╱ // 0x66d @0xe
0x65f…674 at000f = ╱4c╱L╱ // 0x66e @0xf
0x65f…674 at0010 = ╱ef╱$╱ // 0x66f @0x10
0x65f…674 at0011 = ╱ec╱,╱ // 0x670 @0x11
0x65f…674 at0012 = ╱49╱I╱ // 0x671 @0x12
0x65f…674 at0013 = ╱ee╱)╱ // 0x672 @0x13
0x65f…674 at0014 = EOL // 0x673 @0x14
0x65f…674 }
0x674…68a 93e1 1280 IF I=B THEN EXEC INLINE(OPL)
0x674…68a LineComalBin {
0x674…68a ptr = 0x93e1 // 0x674 @0x0
0x674…68a lno = 0x0500 // 0x676 @0x2
0x674…68a at0004 = ╱82╱ IF ╱ // 0x678 @0x4
0x674…68a at0005 = ╱49╱I╱ // 0x679 @0x5
0x674…68a at0006 = ╱dc╱=╱ // 0x67a @0x6
0x674…68a at0007 = ╱42╱B╱ // 0x67b @0x7
0x674…68a at0008 = ╱b6╱ THEN ╱ // 0x67c @0x8
0x674…68a at0009 = ╱9d╱ EXEC ╱ // 0x67d @0x9
0x674…68a at000a = ╱49╱I╱ // 0x67e @0xa
0x674…68a at000b = ╱4e╱N╱ // 0x67f @0xb
0x674…68a at000c = ╱4c╱L╱ // 0x680 @0xc
0x674…68a at000d = ╱49╱I╱ // 0x681 @0xd
0x674…68a at000e = ╱4e╱N╱ // 0x682 @0xe
0x674…68a at000f = ╱45╱E╱ // 0x683 @0xf
0x674…68a at0010 = ╱ed╱(╱ // 0x684 @0x10
0x674…68a at0011 = ╱4f╱O╱ // 0x685 @0x11
0x674…68a at0012 = ╱50╱P╱ // 0x686 @0x12
0x674…68a at0013 = ╱4c╱L╱ // 0x687 @0x13
0x674…68a at0014 = ╱ee╱)╱ // 0x688 @0x14
0x674…68a at0015 = EOL // 0x689 @0x15
0x674…68a }
0x68a…693 93ea 1290 UNTIL I=E
0x68a…693 LineComalBin {
0x68a…693 ptr = 0x93ea // 0x68a @0x0
0x68a…693 lno = 0x050a // 0x68c @0x2
0x68a…693 at0004 = ╱98╱ UNTIL ╱ // 0x68e @0x4
0x68a…693 at0005 = ╱49╱I╱ // 0x68f @0x5
0x68a…693 at0006 = ╱dc╱=╱ // 0x690 @0x6
0x68a…693 at0007 = ╱45╱E╱ // 0x691 @0x7
0x68a…693 at0008 = EOL // 0x692 @0x8
0x68a…693 }
0x693…6b3 940a 1300 EXEC CONVDATE(STARTPER$,RESULT)
0x693…6b3 LineComalBin {
0x693…6b3 ptr = 0x940a // 0x693 @0x0
0x693…6b3 lno = 0x0514 // 0x695 @0x2
0x693…6b3 at0004 = ╱9d╱ EXEC ╱ // 0x697 @0x4
0x693…6b3 at0005 = ╱43╱C╱ // 0x698 @0x5
0x693…6b3 at0006 = ╱4f╱O╱ // 0x699 @0x6
0x693…6b3 at0007 = ╱4e╱N╱ // 0x69a @0x7
0x693…6b3 at0008 = ╱56╱V╱ // 0x69b @0x8
0x693…6b3 at0009 = ╱44╱D╱ // 0x69c @0x9
0x693…6b3 at000a = ╱41╱A╱ // 0x69d @0xa
0x693…6b3 at000b = ╱54╱T╱ // 0x69e @0xb
0x693…6b3 at000c = ╱45╱E╱ // 0x69f @0xc
0x693…6b3 at000d = ╱ed╱(╱ // 0x6a0 @0xd
0x693…6b3 at000e = ╱53╱S╱ // 0x6a1 @0xe
0x693…6b3 at000f = ╱54╱T╱ // 0x6a2 @0xf
0x693…6b3 at0010 = ╱41╱A╱ // 0x6a3 @0x10
0x693…6b3 at0011 = ╱52╱R╱ // 0x6a4 @0x11
0x693…6b3 at0012 = ╱54╱T╱ // 0x6a5 @0x12
0x693…6b3 at0013 = ╱50╱P╱ // 0x6a6 @0x13
0x693…6b3 at0014 = ╱45╱E╱ // 0x6a7 @0x14
0x693…6b3 at0015 = ╱52╱R╱ // 0x6a8 @0x15
0x693…6b3 at0016 = ╱ef╱$╱ // 0x6a9 @0x16
0x693…6b3 at0017 = ╱ec╱,╱ // 0x6aa @0x17
0x693…6b3 at0018 = ╱52╱R╱ // 0x6ab @0x18
0x693…6b3 at0019 = ╱45╱E╱ // 0x6ac @0x19
0x693…6b3 at001a = ╱53╱S╱ // 0x6ad @0x1a
0x693…6b3 at001b = ╱55╱U╱ // 0x6ae @0x1b
0x693…6b3 at001c = ╱4c╱L╱ // 0x6af @0x1c
0x693…6b3 at001d = ╱54╱T╱ // 0x6b0 @0x1d
0x693…6b3 at001e = ╱ee╱)╱ // 0x6b1 @0x1e
0x693…6b3 at001f = EOL // 0x6b2 @0x1f
0x693…6b3 }
0x6b3…6bb 9412 1310 WHEN G
0x6b3…6bb LineComalBin {
0x6b3…6bb ptr = 0x9412 // 0x6b3 @0x0
0x6b3…6bb lno = 0x051e // 0x6b5 @0x2
0x6b3…6bb at0004 = ╱a301╱ WHEN ╱ // 0x6b7 @0x4
0x6b3…6bb at0006 = ╱47╱G╱ // 0x6b9 @0x6
0x6b3…6bb at0007 = EOL // 0x6ba @0x7
0x6b3…6bb }
0x6bb…6c1 9418 1320 REPEAT
0x6bb…6c1 LineComalBin {
0x6bb…6c1 ptr = 0x9418 // 0x6bb @0x0
0x6bb…6c1 lno = 0x0528 // 0x6bd @0x2
0x6bb…6c1 at0004 = ╱97╱ REPEAT ╱ // 0x6bf @0x4
0x6bb…6c1 at0005 = EOL // 0x6c0 @0x5
0x6bb…6c1 }
0x6c1…6d6 942d 1330 EXEC DATOCHECK(L$,I)
0x6c1…6d6 LineComalBin {
0x6c1…6d6 ptr = 0x942d // 0x6c1 @0x0
0x6c1…6d6 lno = 0x0532 // 0x6c3 @0x2
0x6c1…6d6 at0004 = ╱9d╱ EXEC ╱ // 0x6c5 @0x4
0x6c1…6d6 at0005 = ╱44╱D╱ // 0x6c6 @0x5
0x6c1…6d6 at0006 = ╱41╱A╱ // 0x6c7 @0x6
0x6c1…6d6 at0007 = ╱54╱T╱ // 0x6c8 @0x7
0x6c1…6d6 at0008 = ╱4f╱O╱ // 0x6c9 @0x8
0x6c1…6d6 at0009 = ╱43╱C╱ // 0x6ca @0x9
0x6c1…6d6 at000a = ╱48╱H╱ // 0x6cb @0xa
0x6c1…6d6 at000b = ╱45╱E╱ // 0x6cc @0xb
0x6c1…6d6 at000c = ╱43╱C╱ // 0x6cd @0xc
0x6c1…6d6 at000d = ╱4b╱K╱ // 0x6ce @0xd
0x6c1…6d6 at000e = ╱ed╱(╱ // 0x6cf @0xe
0x6c1…6d6 at000f = ╱4c╱L╱ // 0x6d0 @0xf
0x6c1…6d6 at0010 = ╱ef╱$╱ // 0x6d1 @0x10
0x6c1…6d6 at0011 = ╱ec╱,╱ // 0x6d2 @0x11
0x6c1…6d6 at0012 = ╱49╱I╱ // 0x6d3 @0x12
0x6c1…6d6 at0013 = ╱ee╱)╱ // 0x6d4 @0x13
0x6c1…6d6 at0014 = EOL // 0x6d5 @0x14
0x6c1…6d6 }
0x6d6…6ec 9443 1340 IF I=B THEN EXEC INLINE(OPL)
0x6d6…6ec LineComalBin {
0x6d6…6ec ptr = 0x9443 // 0x6d6 @0x0
0x6d6…6ec lno = 0x053c // 0x6d8 @0x2
0x6d6…6ec at0004 = ╱82╱ IF ╱ // 0x6da @0x4
0x6d6…6ec at0005 = ╱49╱I╱ // 0x6db @0x5
0x6d6…6ec at0006 = ╱dc╱=╱ // 0x6dc @0x6
0x6d6…6ec at0007 = ╱42╱B╱ // 0x6dd @0x7
0x6d6…6ec at0008 = ╱b6╱ THEN ╱ // 0x6de @0x8
0x6d6…6ec at0009 = ╱9d╱ EXEC ╱ // 0x6df @0x9
0x6d6…6ec at000a = ╱49╱I╱ // 0x6e0 @0xa
0x6d6…6ec at000b = ╱4e╱N╱ // 0x6e1 @0xb
0x6d6…6ec at000c = ╱4c╱L╱ // 0x6e2 @0xc
0x6d6…6ec at000d = ╱49╱I╱ // 0x6e3 @0xd
0x6d6…6ec at000e = ╱4e╱N╱ // 0x6e4 @0xe
0x6d6…6ec at000f = ╱45╱E╱ // 0x6e5 @0xf
0x6d6…6ec at0010 = ╱ed╱(╱ // 0x6e6 @0x10
0x6d6…6ec at0011 = ╱4f╱O╱ // 0x6e7 @0x11
0x6d6…6ec at0012 = ╱50╱P╱ // 0x6e8 @0x12
0x6d6…6ec at0013 = ╱4c╱L╱ // 0x6e9 @0x13
0x6d6…6ec at0014 = ╱ee╱)╱ // 0x6ea @0x14
0x6d6…6ec at0015 = EOL // 0x6eb @0x15
0x6d6…6ec }
0x6ec…6f5 944c 1350 UNTIL I=E
0x6ec…6f5 LineComalBin {
0x6ec…6f5 ptr = 0x944c // 0x6ec @0x0
0x6ec…6f5 lno = 0x0546 // 0x6ee @0x2
0x6ec…6f5 at0004 = ╱98╱ UNTIL ╱ // 0x6f0 @0x4
0x6ec…6f5 at0005 = ╱49╱I╱ // 0x6f1 @0x5
0x6ec…6f5 at0006 = ╱dc╱=╱ // 0x6f2 @0x6
0x6ec…6f5 at0007 = ╱45╱E╱ // 0x6f3 @0x7
0x6ec…6f5 at0008 = EOL // 0x6f4 @0x8
0x6ec…6f5 }
0x6f5…714 946b 1360 EXEC CONVDATE(SLUTPER$,RESULT)
0x6f5…714 LineComalBin {
0x6f5…714 ptr = 0x946b // 0x6f5 @0x0
0x6f5…714 lno = 0x0550 // 0x6f7 @0x2
0x6f5…714 at0004 = ╱9d╱ EXEC ╱ // 0x6f9 @0x4
0x6f5…714 at0005 = ╱43╱C╱ // 0x6fa @0x5
0x6f5…714 at0006 = ╱4f╱O╱ // 0x6fb @0x6
0x6f5…714 at0007 = ╱4e╱N╱ // 0x6fc @0x7
0x6f5…714 at0008 = ╱56╱V╱ // 0x6fd @0x8
0x6f5…714 at0009 = ╱44╱D╱ // 0x6fe @0x9
0x6f5…714 at000a = ╱41╱A╱ // 0x6ff @0xa
0x6f5…714 at000b = ╱54╱T╱ // 0x700 @0xb
0x6f5…714 at000c = ╱45╱E╱ // 0x701 @0xc
0x6f5…714 at000d = ╱ed╱(╱ // 0x702 @0xd
0x6f5…714 at000e = ╱53╱S╱ // 0x703 @0xe
0x6f5…714 at000f = ╱4c╱L╱ // 0x704 @0xf
0x6f5…714 at0010 = ╱55╱U╱ // 0x705 @0x10
0x6f5…714 at0011 = ╱54╱T╱ // 0x706 @0x11
0x6f5…714 at0012 = ╱50╱P╱ // 0x707 @0x12
0x6f5…714 at0013 = ╱45╱E╱ // 0x708 @0x13
0x6f5…714 at0014 = ╱52╱R╱ // 0x709 @0x14
0x6f5…714 at0015 = ╱ef╱$╱ // 0x70a @0x15
0x6f5…714 at0016 = ╱ec╱,╱ // 0x70b @0x16
0x6f5…714 at0017 = ╱52╱R╱ // 0x70c @0x17
0x6f5…714 at0018 = ╱45╱E╱ // 0x70d @0x18
0x6f5…714 at0019 = ╱53╱S╱ // 0x70e @0x19
0x6f5…714 at001a = ╱55╱U╱ // 0x70f @0x1a
0x6f5…714 at001b = ╱4c╱L╱ // 0x710 @0x1b
0x6f5…714 at001c = ╱54╱T╱ // 0x711 @0x1c
0x6f5…714 at001d = ╱ee╱)╱ // 0x712 @0x1d
0x6f5…714 at001e = EOL // 0x713 @0x1e
0x6f5…714 }
0x714…71c 9473 1460 WHEN V
0x714…71c LineComalBin {
0x714…71c ptr = 0x9473 // 0x714 @0x0
0x714…71c lno = 0x05b4 // 0x716 @0x2
0x714…71c at0004 = ╱a301╱ WHEN ╱ // 0x718 @0x4
0x714…71c at0006 = ╱56╱V╱ // 0x71a @0x6
0x714…71c at0007 = EOL // 0x71b @0x7
0x714…71c }
0x71c…722 9479 1470 REPEAT
0x71c…722 LineComalBin {
0x71c…722 ptr = 0x9479 // 0x71c @0x0
0x71c…722 lno = 0x05be // 0x71e @0x2
0x71c…722 at0004 = ╱97╱ REPEAT ╱ // 0x720 @0x4
0x71c…722 at0005 = EOL // 0x721 @0x5
0x71c…722 }
0x722…730 9487 1480 L$=L$+"+"
0x722…730 LineComalBin {
0x722…730 ptr = 0x9487 // 0x722 @0x0
0x722…730 lno = 0x05c8 // 0x724 @0x2
0x722…730 at0004 = ╱4c╱L╱ // 0x726 @0x4
0x722…730 at0005 = ╱ef╱$╱ // 0x727 @0x5
0x722…730 at0006 = ╱dc╱=╱ // 0x728 @0x6
0x722…730 at0007 = ╱4c╱L╱ // 0x729 @0x7
0x722…730 at0008 = ╱ef╱$╱ // 0x72a @0x8
0x722…730 at0009 = ╱f1╱+╱ // 0x72b @0x9
0x722…730 at000a = ╱22╱"╱ // 0x72c @0xa
0x722…730 at000b = ╱2b╱+╱ // 0x72d @0xb
0x722…730 at000c = ╱22╱"╱ // 0x72e @0xc
0x722…730 at000d = EOL // 0x72f @0xd
0x722…730 }
0x730…74c 94a3 1490 EXEC C(6,L$,TAH$,LIN$)
0x730…74c LineComalBin {
0x730…74c ptr = 0x94a3 // 0x730 @0x0
0x730…74c lno = 0x05d2 // 0x732 @0x2
0x730…74c at0004 = ╱9d╱ EXEC ╱ // 0x734 @0x4
0x730…74c at0005 = ╱43╱C╱ // 0x735 @0x5
0x730…74c at0006 = ╱ed╱(╱ // 0x736 @0x6
0x730…74c at0007 = ╱36╱6╱ // 0x737 @0x7
0x730…74c at0008 = ╱fe0000c003╱ // 0x738 @0x8
0x730…74c at000d = ╱ec╱,╱ // 0x73d @0xd
0x730…74c at000e = ╱4c╱L╱ // 0x73e @0xe
0x730…74c at000f = ╱ef╱$╱ // 0x73f @0xf
0x730…74c at0010 = ╱ec╱,╱ // 0x740 @0x10
0x730…74c at0011 = ╱54╱T╱ // 0x741 @0x11
0x730…74c at0012 = ╱41╱A╱ // 0x742 @0x12
0x730…74c at0013 = ╱48╱H╱ // 0x743 @0x13
0x730…74c at0014 = ╱ef╱$╱ // 0x744 @0x14
0x730…74c at0015 = ╱ec╱,╱ // 0x745 @0x15
0x730…74c at0016 = ╱4c╱L╱ // 0x746 @0x16
0x730…74c at0017 = ╱49╱I╱ // 0x747 @0x17
0x730…74c at0018 = ╱4e╱N╱ // 0x748 @0x18
0x730…74c at0019 = ╱ef╱$╱ // 0x749 @0x19
0x730…74c at001a = ╱ee╱)╱ // 0x74a @0x1a
0x730…74c at001b = EOL // 0x74b @0x1b
0x730…74c }
0x74c…765 94bc 1500 IF FLAG<>B THEN EXEC INLINE(OPL)
0x74c…765 LineComalBin {
0x74c…765 ptr = 0x94bc // 0x74c @0x0
0x74c…765 lno = 0x05dc // 0x74e @0x2
0x74c…765 at0004 = ╱82╱ IF ╱ // 0x750 @0x4
0x74c…765 at0005 = ╱46╱F╱ // 0x751 @0x5
0x74c…765 at0006 = ╱4c╱L╱ // 0x752 @0x6
0x74c…765 at0007 = ╱41╱A╱ // 0x753 @0x7
0x74c…765 at0008 = ╱47╱G╱ // 0x754 @0x8
0x74c…765 at0009 = ╱e1╱<>╱ // 0x755 @0x9
0x74c…765 at000a = ╱42╱B╱ // 0x756 @0xa
0x74c…765 at000b = ╱b6╱ THEN ╱ // 0x757 @0xb
0x74c…765 at000c = ╱9d╱ EXEC ╱ // 0x758 @0xc
0x74c…765 at000d = ╱49╱I╱ // 0x759 @0xd
0x74c…765 at000e = ╱4e╱N╱ // 0x75a @0xe
0x74c…765 at000f = ╱4c╱L╱ // 0x75b @0xf
0x74c…765 at0010 = ╱49╱I╱ // 0x75c @0x10
0x74c…765 at0011 = ╱4e╱N╱ // 0x75d @0x11
0x74c…765 at0012 = ╱45╱E╱ // 0x75e @0x12
0x74c…765 at0013 = ╱ed╱(╱ // 0x75f @0x13
0x74c…765 at0014 = ╱4f╱O╱ // 0x760 @0x14
0x74c…765 at0015 = ╱50╱P╱ // 0x761 @0x15
0x74c…765 at0016 = ╱4c╱L╱ // 0x762 @0x16
0x74c…765 at0017 = ╱ee╱)╱ // 0x763 @0x17
0x74c…765 at0018 = EOL // 0x764 @0x18
0x74c…765 }
0x765…771 94c8 1510 UNTIL FLAG=B
0x765…771 LineComalBin {
0x765…771 ptr = 0x94c8 // 0x765 @0x0
0x765…771 lno = 0x05e6 // 0x767 @0x2
0x765…771 at0004 = ╱98╱ UNTIL ╱ // 0x769 @0x4
0x765…771 at0005 = ╱46╱F╱ // 0x76a @0x5
0x765…771 at0006 = ╱4c╱L╱ // 0x76b @0x6
0x765…771 at0007 = ╱41╱A╱ // 0x76c @0x7
0x765…771 at0008 = ╱47╱G╱ // 0x76d @0x8
0x765…771 at0009 = ╱dc╱=╱ // 0x76e @0x9
0x765…771 at000a = ╱42╱B╱ // 0x76f @0xa
0x765…771 at000b = EOL // 0x770 @0xb
0x765…771 }
0x771…78d 94e4 1520 EXEC C(0,L$,TAH$,LIN$)
0x771…78d LineComalBin {
0x771…78d ptr = 0x94e4 // 0x771 @0x0
0x771…78d lno = 0x05f0 // 0x773 @0x2
0x771…78d at0004 = ╱9d╱ EXEC ╱ // 0x775 @0x4
0x771…78d at0005 = ╱43╱C╱ // 0x776 @0x5
0x771…78d at0006 = ╱ed╱(╱ // 0x777 @0x6
0x771…78d at0007 = ╱30╱0╱ // 0x778 @0x7
0x771…78d at0008 = ╱fe00000000╱ // 0x779 @0x8
0x771…78d at000d = ╱ec╱,╱ // 0x77e @0xd
0x771…78d at000e = ╱4c╱L╱ // 0x77f @0xe
0x771…78d at000f = ╱ef╱$╱ // 0x780 @0xf
0x771…78d at0010 = ╱ec╱,╱ // 0x781 @0x10
0x771…78d at0011 = ╱54╱T╱ // 0x782 @0x11
0x771…78d at0012 = ╱41╱A╱ // 0x783 @0x12
0x771…78d at0013 = ╱48╱H╱ // 0x784 @0x13
0x771…78d at0014 = ╱ef╱$╱ // 0x785 @0x14
0x771…78d at0015 = ╱ec╱,╱ // 0x786 @0x15
0x771…78d at0016 = ╱4c╱L╱ // 0x787 @0x16
0x771…78d at0017 = ╱49╱I╱ // 0x788 @0x17
0x771…78d at0018 = ╱4e╱N╱ // 0x789 @0x18
0x771…78d at0019 = ╱ef╱$╱ // 0x78a @0x19
0x771…78d at001a = ╱ee╱)╱ // 0x78b @0x1a
0x771…78d at001b = EOL // 0x78c @0x1b
0x771…78d }
0x78d…7a4 94fb 1530 EXEC PERVERT(LIN$,MFD)
0x78d…7a4 LineComalBin {
0x78d…7a4 ptr = 0x94fb // 0x78d @0x0
0x78d…7a4 lno = 0x05fa // 0x78f @0x2
0x78d…7a4 at0004 = ╱9d╱ EXEC ╱ // 0x791 @0x4
0x78d…7a4 at0005 = ╱50╱P╱ // 0x792 @0x5
0x78d…7a4 at0006 = ╱45╱E╱ // 0x793 @0x6
0x78d…7a4 at0007 = ╱52╱R╱ // 0x794 @0x7
0x78d…7a4 at0008 = ╱56╱V╱ // 0x795 @0x8
0x78d…7a4 at0009 = ╱45╱E╱ // 0x796 @0x9
0x78d…7a4 at000a = ╱52╱R╱ // 0x797 @0xa
0x78d…7a4 at000b = ╱54╱T╱ // 0x798 @0xb
0x78d…7a4 at000c = ╱ed╱(╱ // 0x799 @0xc
0x78d…7a4 at000d = ╱4c╱L╱ // 0x79a @0xd
0x78d…7a4 at000e = ╱49╱I╱ // 0x79b @0xe
0x78d…7a4 at000f = ╱4e╱N╱ // 0x79c @0xf
0x78d…7a4 at0010 = ╱ef╱$╱ // 0x79d @0x10
0x78d…7a4 at0011 = ╱ec╱,╱ // 0x79e @0x11
0x78d…7a4 at0012 = ╱4d╱M╱ // 0x79f @0x12
0x78d…7a4 at0013 = ╱46╱F╱ // 0x7a0 @0x13
0x78d…7a4 at0014 = ╱44╱D╱ // 0x7a1 @0x14
0x78d…7a4 at0015 = ╱ee╱)╱ // 0x7a2 @0x15
0x78d…7a4 at0016 = EOL // 0x7a3 @0x16
0x78d…7a4 }
0x7a4…7b1 9508 1540 WHEN 4
0x7a4…7b1 LineComalBin {
0x7a4…7b1 ptr = 0x9508 // 0x7a4 @0x0
0x7a4…7b1 lno = 0x0604 // 0x7a6 @0x2
0x7a4…7b1 at0004 = ╱a301╱ WHEN ╱ // 0x7a8 @0x4
0x7a4…7b1 at0006 = ╱34╱4╱ // 0x7aa @0x6
0x7a4…7b1 at0007 = ╱fe00008003╱ // 0x7ab @0x7
0x7a4…7b1 at000c = EOL // 0x7b0 @0xc
0x7a4…7b1 }
0x7b1…7c4 951b 1550 WHILE L$<"1" OR L$>"7"
0x7b1…7c4 LineComalBin {
0x7b1…7c4 ptr = 0x951b // 0x7b1 @0x0
0x7b1…7c4 lno = 0x060e // 0x7b3 @0x2
0x7b1…7c4 at0004 = ╱93╱ WHILE ╱ // 0x7b5 @0x4
0x7b1…7c4 at0005 = ╱4c╱L╱ // 0x7b6 @0x5
0x7b1…7c4 at0006 = ╱ef╱$╱ // 0x7b7 @0x6
0x7b1…7c4 at0007 = ╱dd╱<╱ // 0x7b8 @0x7
0x7b1…7c4 at0008 = ╱22╱"╱ // 0x7b9 @0x8
0x7b1…7c4 at0009 = ╱31╱1╱ // 0x7ba @0x9
0x7b1…7c4 at000a = ╱22╱"╱ // 0x7bb @0xa
0x7b1…7c4 at000b = ╱db╱ OR ╱ // 0x7bc @0xb
0x7b1…7c4 at000c = ╱4c╱L╱ // 0x7bd @0xc
0x7b1…7c4 at000d = ╱ef╱$╱ // 0x7be @0xd
0x7b1…7c4 at000e = ╱de╱>╱ // 0x7bf @0xe
0x7b1…7c4 at000f = ╱22╱"╱ // 0x7c0 @0xf
0x7b1…7c4 at0010 = ╱37╱7╱ // 0x7c1 @0x10
0x7b1…7c4 at0011 = ╱22╱"╱ // 0x7c2 @0x11
0x7b1…7c4 at0012 = EOL // 0x7c3 @0x12
0x7b1…7c4 }
0x7c4…7d5 952c 1560 EXEC INLINE(OPL)
0x7c4…7d5 LineComalBin {
0x7c4…7d5 ptr = 0x952c // 0x7c4 @0x0
0x7c4…7d5 lno = 0x0618 // 0x7c6 @0x2
0x7c4…7d5 at0004 = ╱9d╱ EXEC ╱ // 0x7c8 @0x4
0x7c4…7d5 at0005 = ╱49╱I╱ // 0x7c9 @0x5
0x7c4…7d5 at0006 = ╱4e╱N╱ // 0x7ca @0x6
0x7c4…7d5 at0007 = ╱4c╱L╱ // 0x7cb @0x7
0x7c4…7d5 at0008 = ╱49╱I╱ // 0x7cc @0x8
0x7c4…7d5 at0009 = ╱4e╱N╱ // 0x7cd @0x9
0x7c4…7d5 at000a = ╱45╱E╱ // 0x7ce @0xa
0x7c4…7d5 at000b = ╱ed╱(╱ // 0x7cf @0xb
0x7c4…7d5 at000c = ╱4f╱O╱ // 0x7d0 @0xc
0x7c4…7d5 at000d = ╱50╱P╱ // 0x7d1 @0xd
0x7c4…7d5 at000e = ╱4c╱L╱ // 0x7d2 @0xe
0x7c4…7d5 at000f = ╱ee╱)╱ // 0x7d3 @0xf
0x7c4…7d5 at0010 = EOL // 0x7d4 @0x10
0x7c4…7d5 }
0x7d5…7db 9532 1570 ENDWHILE
0x7d5…7db LineComalBin {
0x7d5…7db ptr = 0x9532 // 0x7d5 @0x0
0x7d5…7db lno = 0x0622 // 0x7d7 @0x2
0x7d5…7db at0004 = ╱94╱ ENDWHILE ╱ // 0x7d9 @0x4
0x7d5…7db at0005 = EOL // 0x7da @0x5
0x7d5…7db }
0x7db…7e6 953d 1580 LP$=L$
0x7db…7e6 LineComalBin {
0x7db…7e6 ptr = 0x953d // 0x7db @0x0
0x7db…7e6 lno = 0x062c // 0x7dd @0x2
0x7db…7e6 at0004 = ╱4c╱L╱ // 0x7df @0x4
0x7db…7e6 at0005 = ╱50╱P╱ // 0x7e0 @0x5
0x7db…7e6 at0006 = ╱ef╱$╱ // 0x7e1 @0x6
0x7db…7e6 at0007 = ╱dc╱=╱ // 0x7e2 @0x7
0x7db…7e6 at0008 = ╱4c╱L╱ // 0x7e3 @0x8
0x7db…7e6 at0009 = ╱ef╱$╱ // 0x7e4 @0x9
0x7db…7e6 at000a = EOL // 0x7e5 @0xa
0x7db…7e6 }
0x7e6…7f3 954a 1590 WHEN 5
0x7e6…7f3 LineComalBin {
0x7e6…7f3 ptr = 0x954a // 0x7e6 @0x0
0x7e6…7f3 lno = 0x0636 // 0x7e8 @0x2
0x7e6…7f3 at0004 = ╱a301╱ WHEN ╱ // 0x7ea @0x4
0x7e6…7f3 at0006 = ╱35╱5╱ // 0x7ec @0x6
0x7e6…7f3 at0007 = ╱fe0000a003╱ // 0x7ed @0x7
0x7e6…7f3 at000c = EOL // 0x7f2 @0xc
0x7e6…7f3 }
0x7f3…806 955d 1600 WHILE L$<>"A" AND L$<>"F"
0x7f3…806 LineComalBin {
0x7f3…806 ptr = 0x955d // 0x7f3 @0x0
0x7f3…806 lno = 0x0640 // 0x7f5 @0x2
0x7f3…806 at0004 = ╱93╱ WHILE ╱ // 0x7f7 @0x4
0x7f3…806 at0005 = ╱4c╱L╱ // 0x7f8 @0x5
0x7f3…806 at0006 = ╱ef╱$╱ // 0x7f9 @0x6
0x7f3…806 at0007 = ╱e1╱<>╱ // 0x7fa @0x7
0x7f3…806 at0008 = ╱22╱"╱ // 0x7fb @0x8
0x7f3…806 at0009 = ╱41╱A╱ // 0x7fc @0x9
0x7f3…806 at000a = ╱22╱"╱ // 0x7fd @0xa
0x7f3…806 at000b = ╱da╱ AND ╱ // 0x7fe @0xb
0x7f3…806 at000c = ╱4c╱L╱ // 0x7ff @0xc
0x7f3…806 at000d = ╱ef╱$╱ // 0x800 @0xd
0x7f3…806 at000e = ╱e1╱<>╱ // 0x801 @0xe
0x7f3…806 at000f = ╱22╱"╱ // 0x802 @0xf
0x7f3…806 at0010 = ╱46╱F╱ // 0x803 @0x10
0x7f3…806 at0011 = ╱22╱"╱ // 0x804 @0x11
0x7f3…806 at0012 = EOL // 0x805 @0x12
0x7f3…806 }
0x806…817 956e 1610 EXEC INLINE(OPL)
0x806…817 LineComalBin {
0x806…817 ptr = 0x956e // 0x806 @0x0
0x806…817 lno = 0x064a // 0x808 @0x2
0x806…817 at0004 = ╱9d╱ EXEC ╱ // 0x80a @0x4
0x806…817 at0005 = ╱49╱I╱ // 0x80b @0x5
0x806…817 at0006 = ╱4e╱N╱ // 0x80c @0x6
0x806…817 at0007 = ╱4c╱L╱ // 0x80d @0x7
0x806…817 at0008 = ╱49╱I╱ // 0x80e @0x8
0x806…817 at0009 = ╱4e╱N╱ // 0x80f @0x9
0x806…817 at000a = ╱45╱E╱ // 0x810 @0xa
0x806…817 at000b = ╱ed╱(╱ // 0x811 @0xb
0x806…817 at000c = ╱4f╱O╱ // 0x812 @0xc
0x806…817 at000d = ╱50╱P╱ // 0x813 @0xd
0x806…817 at000e = ╱4c╱L╱ // 0x814 @0xe
0x806…817 at000f = ╱ee╱)╱ // 0x815 @0xf
0x806…817 at0010 = EOL // 0x816 @0x10
0x806…817 }
0x817…81d 9574 1620 ENDWHILE
0x817…81d LineComalBin {
0x817…81d ptr = 0x9574 // 0x817 @0x0
0x817…81d lno = 0x0654 // 0x819 @0x2
0x817…81d at0004 = ╱94╱ ENDWHILE ╱ // 0x81b @0x4
0x817…81d at0005 = EOL // 0x81c @0x5
0x817…81d }
0x81d…829 9580 1630 ORK$=L$
0x81d…829 LineComalBin {
0x81d…829 ptr = 0x9580 // 0x81d @0x0
0x81d…829 lno = 0x065e // 0x81f @0x2
0x81d…829 at0004 = ╱4f╱O╱ // 0x821 @0x4
0x81d…829 at0005 = ╱52╱R╱ // 0x822 @0x5
0x81d…829 at0006 = ╱4b╱K╱ // 0x823 @0x6
0x81d…829 at0007 = ╱ef╱$╱ // 0x824 @0x7
0x81d…829 at0008 = ╱dc╱=╱ // 0x825 @0x8
0x81d…829 at0009 = ╱4c╱L╱ // 0x826 @0x9
0x81d…829 at000a = ╱ef╱$╱ // 0x827 @0xa
0x81d…829 at000b = EOL // 0x828 @0xb
0x81d…829 }
0x829…844 959b 1640 WHEN 7,8,6
0x829…844 LineComalBin {
0x829…844 ptr = 0x959b // 0x829 @0x0
0x829…844 lno = 0x0668 // 0x82b @0x2
0x829…844 at0004 = ╱a301╱ WHEN ╱ // 0x82d @0x4
0x829…844 at0006 = ╱37╱7╱ // 0x82f @0x6
0x829…844 at0007 = ╱fe0000e003╱ // 0x830 @0x7
0x829…844 at000c = ╱ec╱,╱ // 0x835 @0xc
0x829…844 at000d = ╱38╱8╱ // 0x836 @0xd
0x829…844 at000e = ╱fe00008004╱ // 0x837 @0xe
0x829…844 at0013 = ╱ec╱,╱ // 0x83c @0x13
0x829…844 at0014 = ╱36╱6╱ // 0x83d @0x14
0x829…844 at0015 = ╱fe0000c003╱ // 0x83e @0x15
0x829…844 at001a = EOL // 0x843 @0x1a
0x829…844 }
0x844…857 95ae 1650 WHILE L$<>"J" AND L$<>"N"
0x844…857 LineComalBin {
0x844…857 ptr = 0x95ae // 0x844 @0x0
0x844…857 lno = 0x0672 // 0x846 @0x2
0x844…857 at0004 = ╱93╱ WHILE ╱ // 0x848 @0x4
0x844…857 at0005 = ╱4c╱L╱ // 0x849 @0x5
0x844…857 at0006 = ╱ef╱$╱ // 0x84a @0x6
0x844…857 at0007 = ╱e1╱<>╱ // 0x84b @0x7
0x844…857 at0008 = ╱22╱"╱ // 0x84c @0x8
0x844…857 at0009 = ╱4a╱J╱ // 0x84d @0x9
0x844…857 at000a = ╱22╱"╱ // 0x84e @0xa
0x844…857 at000b = ╱da╱ AND ╱ // 0x84f @0xb
0x844…857 at000c = ╱4c╱L╱ // 0x850 @0xc
0x844…857 at000d = ╱ef╱$╱ // 0x851 @0xd
0x844…857 at000e = ╱e1╱<>╱ // 0x852 @0xe
0x844…857 at000f = ╱22╱"╱ // 0x853 @0xf
0x844…857 at0010 = ╱4e╱N╱ // 0x854 @0x10
0x844…857 at0011 = ╱22╱"╱ // 0x855 @0x11
0x844…857 at0012 = EOL // 0x856 @0x12
0x844…857 }
0x857…868 95bf 1660 EXEC INLINE(OPL)
0x857…868 LineComalBin {
0x857…868 ptr = 0x95bf // 0x857 @0x0
0x857…868 lno = 0x067c // 0x859 @0x2
0x857…868 at0004 = ╱9d╱ EXEC ╱ // 0x85b @0x4
0x857…868 at0005 = ╱49╱I╱ // 0x85c @0x5
0x857…868 at0006 = ╱4e╱N╱ // 0x85d @0x6
0x857…868 at0007 = ╱4c╱L╱ // 0x85e @0x7
0x857…868 at0008 = ╱49╱I╱ // 0x85f @0x8
0x857…868 at0009 = ╱4e╱N╱ // 0x860 @0x9
0x857…868 at000a = ╱45╱E╱ // 0x861 @0xa
0x857…868 at000b = ╱ed╱(╱ // 0x862 @0xb
0x857…868 at000c = ╱4f╱O╱ // 0x863 @0xc
0x857…868 at000d = ╱50╱P╱ // 0x864 @0xd
0x857…868 at000e = ╱4c╱L╱ // 0x865 @0xe
0x857…868 at000f = ╱ee╱)╱ // 0x866 @0xf
0x857…868 at0010 = EOL // 0x867 @0x10
0x857…868 }
0x868…86e 95c5 1670 ENDWHILE
0x868…86e LineComalBin {
0x868…86e ptr = 0x95c5 // 0x868 @0x0
0x868…86e lno = 0x0686 // 0x86a @0x2
0x868…86e at0004 = ╱94╱ ENDWHILE ╱ // 0x86c @0x4
0x868…86e at0005 = EOL // 0x86d @0x5
0x868…86e }
0x86e…883 95da 1680 IF L$="J" THEN ORK$="0"
0x86e…883 LineComalBin {
0x86e…883 ptr = 0x95da // 0x86e @0x0
0x86e…883 lno = 0x0690 // 0x870 @0x2
0x86e…883 at0004 = ╱82╱ IF ╱ // 0x872 @0x4
0x86e…883 at0005 = ╱4c╱L╱ // 0x873 @0x5
0x86e…883 at0006 = ╱ef╱$╱ // 0x874 @0x6
0x86e…883 at0007 = ╱dc╱=╱ // 0x875 @0x7
0x86e…883 at0008 = ╱22╱"╱ // 0x876 @0x8
0x86e…883 at0009 = ╱4a╱J╱ // 0x877 @0x9
0x86e…883 at000a = ╱22╱"╱ // 0x878 @0xa
0x86e…883 at000b = ╱b6╱ THEN ╱ // 0x879 @0xb
0x86e…883 at000c = ╱4f╱O╱ // 0x87a @0xc
0x86e…883 at000d = ╱52╱R╱ // 0x87b @0xd
0x86e…883 at000e = ╱4b╱K╱ // 0x87c @0xe
0x86e…883 at000f = ╱ef╱$╱ // 0x87d @0xf
0x86e…883 at0010 = ╱dc╱=╱ // 0x87e @0x10
0x86e…883 at0011 = ╱22╱"╱ // 0x87f @0x11
0x86e…883 at0012 = ╱30╱0╱ // 0x880 @0x12
0x86e…883 at0013 = ╱22╱"╱ // 0x881 @0x13
0x86e…883 at0014 = EOL // 0x882 @0x14
0x86e…883 }
0x883…889 95e0 1870 ENDCASE
0x883…889 LineComalBin {
0x883…889 ptr = 0x95e0 // 0x883 @0x0
0x883…889 lno = 0x074e // 0x885 @0x2
0x883…889 at0004 = ╱a4╱ ENDCASE ╱ // 0x887 @0x4
0x883…889 at0005 = EOL // 0x888 @0x5
0x883…889 }
0x889…88f 95e6 1880 ENDPROC
0x889…88f LineComalBin {
0x889…88f ptr = 0x95e6 // 0x889 @0x0
0x889…88f lno = 0x0758 // 0x88b @0x2
0x889…88f at0004 = ╱9f╱ ENDPROC ╱ // 0x88d @0x4
0x889…88f at0005 = EOL // 0x88e @0x5
0x889…88f }
0x88f…89e 95f5 2020 PROC INLINE(N)
0x88f…89e LineComalBin {
0x88f…89e ptr = 0x95f5 // 0x88f @0x0
0x88f…89e lno = 0x07e4 // 0x891 @0x2
0x88f…89e at0004 = ╱9e╱ PROC ╱ // 0x893 @0x4
0x88f…89e at0005 = ╱49╱I╱ // 0x894 @0x5
0x88f…89e at0006 = ╱4e╱N╱ // 0x895 @0x6
0x88f…89e at0007 = ╱4c╱L╱ // 0x896 @0x7
0x88f…89e at0008 = ╱49╱I╱ // 0x897 @0x8
0x88f…89e at0009 = ╱4e╱N╱ // 0x898 @0x9
0x88f…89e at000a = ╱45╱E╱ // 0x899 @0xa
0x88f…89e at000b = ╱ed╱(╱ // 0x89a @0xb
0x88f…89e at000c = ╱4e╱N╱ // 0x89b @0xc
0x88f…89e at000d = ╱ee╱)╱ // 0x89c @0xd
0x88f…89e at000e = EOL // 0x89d @0xe
0x88f…89e }
0x89e…8a4 95fb 2030 REPEAT
0x89e…8a4 LineComalBin {
0x89e…8a4 ptr = 0x95fb // 0x89e @0x0
0x89e…8a4 lno = 0x07ee // 0x8a0 @0x2
0x89e…8a4 at0004 = ╱97╱ REPEAT ╱ // 0x8a2 @0x4
0x89e…8a4 at0005 = EOL // 0x8a3 @0x5
0x89e…8a4 }
0x8a4…8b3 960a 2040 CURSOR X(N),Y(N)
0x8a4…8b3 LineComalBin {
0x8a4…8b3 ptr = 0x960a // 0x8a4 @0x0
0x8a4…8b3 lno = 0x07f8 // 0x8a6 @0x2
0x8a4…8b3 at0004 = ╱a1╱ CURSOR ╱ // 0x8a8 @0x4
0x8a4…8b3 at0005 = ╱58╱X╱ // 0x8a9 @0x5
0x8a4…8b3 at0006 = ╱ed╱(╱ // 0x8aa @0x6
0x8a4…8b3 at0007 = ╱4e╱N╱ // 0x8ab @0x7
0x8a4…8b3 at0008 = ╱ee╱)╱ // 0x8ac @0x8
0x8a4…8b3 at0009 = ╱ec╱,╱ // 0x8ad @0x9
0x8a4…8b3 at000a = ╱59╱Y╱ // 0x8ae @0xa
0x8a4…8b3 at000b = ╱ed╱(╱ // 0x8af @0xb
0x8a4…8b3 at000c = ╱4e╱N╱ // 0x8b0 @0xc
0x8a4…8b3 at000d = ╱ee╱)╱ // 0x8b1 @0xd
0x8a4…8b3 at000e = EOL // 0x8b2 @0xe
0x8a4…8b3 }
0x8b3…8be 9615 2050 INPUT "",L$
0x8b3…8be LineComalBin {
0x8b3…8be ptr = 0x9615 // 0x8b3 @0x0
0x8b3…8be lno = 0x0802 // 0x8b5 @0x2
0x8b3…8be at0004 = ╱91╱ INPUT ╱ // 0x8b7 @0x4
0x8b3…8be at0005 = ╱22╱"╱ // 0x8b8 @0x5
0x8b3…8be at0006 = ╱22╱"╱ // 0x8b9 @0x6
0x8b3…8be at0007 = ╱ec╱,╱ // 0x8ba @0x7
0x8b3…8be at0008 = ╱4c╱L╱ // 0x8bb @0x8
0x8b3…8be at0009 = ╱ef╱$╱ // 0x8bc @0x9
0x8b3…8be at000a = EOL // 0x8bd @0xa
0x8b3…8be }
0x8be…8ce 9625 2060 IF TYPE(N)<B THEN
0x8be…8ce LineComalBin {
0x8be…8ce ptr = 0x9625 // 0x8be @0x0
0x8be…8ce lno = 0x080c // 0x8c0 @0x2
0x8be…8ce at0004 = ╱9c╱ IF ╱ // 0x8c2 @0x4
0x8be…8ce at0005 = ╱54╱T╱ // 0x8c3 @0x5
0x8be…8ce at0006 = ╱59╱Y╱ // 0x8c4 @0x6
0x8be…8ce at0007 = ╱50╱P╱ // 0x8c5 @0x7
0x8be…8ce at0008 = ╱45╱E╱ // 0x8c6 @0x8
0x8be…8ce at0009 = ╱ed╱(╱ // 0x8c7 @0x9
0x8be…8ce at000a = ╱4e╱N╱ // 0x8c8 @0xa
0x8be…8ce at000b = ╱ee╱)╱ // 0x8c9 @0xb
0x8be…8ce at000c = ╱dd╱<╱ // 0x8ca @0xc
0x8be…8ce at000d = ╱42╱B╱ // 0x8cb @0xd
0x8be…8ce at000e = ╱b6╱ THEN ╱ // 0x8cc @0xe
0x8be…8ce at000f = EOL // 0x8cd @0xf
0x8be…8ce }
0x8ce…8e5 963c 2070 IF LEN(L$)<=ABS(TYPE(N)) THEN
0x8ce…8e5 LineComalBin {
0x8ce…8e5 ptr = 0x963c // 0x8ce @0x0
0x8ce…8e5 lno = 0x0816 // 0x8d0 @0x2
0x8ce…8e5 at0004 = ╱9c╱ IF ╱ // 0x8d2 @0x4
0x8ce…8e5 at0005 = ╱cc╱LEN╱ // 0x8d3 @0x5
0x8ce…8e5 at0006 = ╱ed╱(╱ // 0x8d4 @0x6
0x8ce…8e5 at0007 = ╱4c╱L╱ // 0x8d5 @0x7
0x8ce…8e5 at0008 = ╱ef╱$╱ // 0x8d6 @0x8
0x8ce…8e5 at0009 = ╱ee╱)╱ // 0x8d7 @0x9
0x8ce…8e5 at000a = ╱df╱<=╱ // 0x8d8 @0xa
0x8ce…8e5 at000b = ╱c4╱ABS╱ // 0x8d9 @0xb
0x8ce…8e5 at000c = ╱ed╱(╱ // 0x8da @0xc
0x8ce…8e5 at000d = ╱54╱T╱ // 0x8db @0xd
0x8ce…8e5 at000e = ╱59╱Y╱ // 0x8dc @0xe
0x8ce…8e5 at000f = ╱50╱P╱ // 0x8dd @0xf
0x8ce…8e5 at0010 = ╱45╱E╱ // 0x8de @0x10
0x8ce…8e5 at0011 = ╱ed╱(╱ // 0x8df @0x11
0x8ce…8e5 at0012 = ╱4e╱N╱ // 0x8e0 @0x12
0x8ce…8e5 at0013 = ╱ee╱)╱ // 0x8e1 @0x13
0x8ce…8e5 at0014 = ╱ee╱)╱ // 0x8e2 @0x14
0x8ce…8e5 at0015 = ╱b6╱ THEN ╱ // 0x8e3 @0x15
0x8ce…8e5 at0016 = EOL // 0x8e4 @0x16
0x8ce…8e5 }
0x8e5…8ee 9645 2080 OK=E
0x8e5…8ee LineComalBin {
0x8e5…8ee ptr = 0x9645 // 0x8e5 @0x0
0x8e5…8ee lno = 0x0820 // 0x8e7 @0x2
0x8e5…8ee at0004 = ╱4f╱O╱ // 0x8e9 @0x4
0x8e5…8ee at0005 = ╱4b╱K╱ // 0x8ea @0x5
0x8e5…8ee at0006 = ╱dc╱=╱ // 0x8eb @0x6
0x8e5…8ee at0007 = ╱45╱E╱ // 0x8ec @0x7
0x8e5…8ee at0008 = EOL // 0x8ed @0x8
0x8e5…8ee }
0x8ee…908 965f 2090 FOR I=LEN(L$)+E TO ABS(TYPE(N))
0x8ee…908 LineComalBin {
0x8ee…908 ptr = 0x965f // 0x8ee @0x0
0x8ee…908 lno = 0x082a // 0x8f0 @0x2
0x8ee…908 at0004 = ╱83╱ FOR ╱ // 0x8f2 @0x4
0x8ee…908 at0005 = ╱49╱I╱ // 0x8f3 @0x5
0x8ee…908 at0006 = ╱dc╱=╱ // 0x8f4 @0x6
0x8ee…908 at0007 = ╱cc╱LEN╱ // 0x8f5 @0x7
0x8ee…908 at0008 = ╱ed╱(╱ // 0x8f6 @0x8
0x8ee…908 at0009 = ╱4c╱L╱ // 0x8f7 @0x9
0x8ee…908 at000a = ╱ef╱$╱ // 0x8f8 @0xa
0x8ee…908 at000b = ╱ee╱)╱ // 0x8f9 @0xb
0x8ee…908 at000c = ╱e2╱+╱ // 0x8fa @0xc
0x8ee…908 at000d = ╱45╱E╱ // 0x8fb @0xd
0x8ee…908 at000e = ╱b7╱ TO ╱ // 0x8fc @0xe
0x8ee…908 at000f = ╱c4╱ABS╱ // 0x8fd @0xf
0x8ee…908 at0010 = ╱ed╱(╱ // 0x8fe @0x10
0x8ee…908 at0011 = ╱54╱T╱ // 0x8ff @0x11
0x8ee…908 at0012 = ╱59╱Y╱ // 0x900 @0x12
0x8ee…908 at0013 = ╱50╱P╱ // 0x901 @0x13
0x8ee…908 at0014 = ╱45╱E╱ // 0x902 @0x14
0x8ee…908 at0015 = ╱ed╱(╱ // 0x903 @0x15
0x8ee…908 at0016 = ╱4e╱N╱ // 0x904 @0x16
0x8ee…908 at0017 = ╱ee╱)╱ // 0x905 @0x17
0x8ee…908 at0018 = ╱ee╱)╱ // 0x906 @0x18
0x8ee…908 at0019 = EOL // 0x907 @0x19
0x8ee…908 }
0x908…916 966d 2100 L$(I)=" "
0x908…916 LineComalBin {
0x908…916 ptr = 0x966d // 0x908 @0x0
0x908…916 lno = 0x0834 // 0x90a @0x2
0x908…916 at0004 = ╱4c╱L╱ // 0x90c @0x4
0x908…916 at0005 = ╱ef╱$╱ // 0x90d @0x5
0x908…916 at0006 = ╱ed╱(╱ // 0x90e @0x6
0x908…916 at0007 = ╱49╱I╱ // 0x90f @0x7
0x908…916 at0008 = ╱ee╱)╱ // 0x910 @0x8
0x908…916 at0009 = ╱dc╱=╱ // 0x911 @0x9
0x908…916 at000a = ╱22╱"╱ // 0x912 @0xa
0x908…916 at000b = ╱20╱…╱ // 0x913 @0xb
0x908…916 at000c = ╱22╱"╱ // 0x914 @0xc
0x908…916 at000d = EOL // 0x915 @0xd
0x908…916 }
0x916…91d 9674 2110 NEXT I
0x916…91d LineComalBin {
0x916…91d ptr = 0x9674 // 0x916 @0x0
0x916…91d lno = 0x083e // 0x918 @0x2
0x916…91d at0004 = ╱84╱ NEXT ╱ // 0x91a @0x4
0x916…91d at0005 = ╱49╱I╱ // 0x91b @0x5
0x916…91d at0006 = EOL // 0x91c @0x6
0x916…91d }
0x91d…923 967a 2120 ELSE
0x91d…923 LineComalBin {
0x91d…923 ptr = 0x967a // 0x91d @0x0
0x91d…923 lno = 0x0848 // 0x91f @0x2
0x91d…923 at0004 = ╱9a╱ ELSE ╱ // 0x921 @0x4
0x91d…923 at0005 = EOL // 0x922 @0x5
0x91d…923 }
0x923…92c 9683 2130 OK=B
0x923…92c LineComalBin {
0x923…92c ptr = 0x9683 // 0x923 @0x0
0x923…92c lno = 0x0852 // 0x925 @0x2
0x923…92c at0004 = ╱4f╱O╱ // 0x927 @0x4
0x923…92c at0005 = ╱4b╱K╱ // 0x928 @0x5
0x923…92c at0006 = ╱dc╱=╱ // 0x929 @0x6
0x923…92c at0007 = ╱42╱B╱ // 0x92a @0x7
0x923…92c at0008 = EOL // 0x92b @0x8
0x923…92c }
0x92c…932 9689 2140 ENDIF
0x92c…932 LineComalBin {
0x92c…932 ptr = 0x9689 // 0x92c @0x0
0x92c…932 lno = 0x085c // 0x92e @0x2
0x92c…932 at0004 = ╱9b╱ ENDIF ╱ // 0x930 @0x4
0x92c…932 at0005 = EOL // 0x931 @0x5
0x92c…932 }
0x932…938 968f 2150 ELSE
0x932…938 LineComalBin {
0x932…938 ptr = 0x968f // 0x932 @0x0
0x932…938 lno = 0x0866 // 0x934 @0x2
0x932…938 at0004 = ╱9a╱ ELSE ╱ // 0x936 @0x4
0x932…938 at0005 = EOL // 0x937 @0x5
0x932…938 }
0x938…94a 96a1 2160 EXEC CHECK(L$,OK)
0x938…94a LineComalBin {
0x938…94a ptr = 0x96a1 // 0x938 @0x0
0x938…94a lno = 0x0870 // 0x93a @0x2
0x938…94a at0004 = ╱9d╱ EXEC ╱ // 0x93c @0x4
0x938…94a at0005 = ╱43╱C╱ // 0x93d @0x5
0x938…94a at0006 = ╱48╱H╱ // 0x93e @0x6
0x938…94a at0007 = ╱45╱E╱ // 0x93f @0x7
0x938…94a at0008 = ╱43╱C╱ // 0x940 @0x8
0x938…94a at0009 = ╱4b╱K╱ // 0x941 @0x9
0x938…94a at000a = ╱ed╱(╱ // 0x942 @0xa
0x938…94a at000b = ╱4c╱L╱ // 0x943 @0xb
0x938…94a at000c = ╱ef╱$╱ // 0x944 @0xc
0x938…94a at000d = ╱ec╱,╱ // 0x945 @0xd
0x938…94a at000e = ╱4f╱O╱ // 0x946 @0xe
0x938…94a at000f = ╱4b╱K╱ // 0x947 @0xf
0x938…94a at0010 = ╱ee╱)╱ // 0x948 @0x10
0x938…94a at0011 = EOL // 0x949 @0x11
0x938…94a }
0x94a…969 96c0 2170 IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B
0x94a…969 LineComalBin {
0x94a…969 ptr = 0x96c0 // 0x94a @0x0
0x94a…969 lno = 0x087a // 0x94c @0x2
0x94a…969 at0004 = ╱82╱ IF ╱ // 0x94e @0x4
0x94a…969 at0005 = ╱54╱T╱ // 0x94f @0x5
0x94a…969 at0006 = ╱59╱Y╱ // 0x950 @0x6
0x94a…969 at0007 = ╱50╱P╱ // 0x951 @0x7
0x94a…969 at0008 = ╱45╱E╱ // 0x952 @0x8
0x94a…969 at0009 = ╱ed╱(╱ // 0x953 @0x9
0x94a…969 at000a = ╱4e╱N╱ // 0x954 @0xa
0x94a…969 at000b = ╱ee╱)╱ // 0x955 @0xb
0x94a…969 at000c = ╱de╱>╱ // 0x956 @0xc
0x94a…969 at000d = ╱42╱B╱ // 0x957 @0xd
0x94a…969 at000e = ╱da╱ AND ╱ // 0x958 @0xe
0x94a…969 at000f = ╱54╱T╱ // 0x959 @0xf
0x94a…969 at0010 = ╱59╱Y╱ // 0x95a @0x10
0x94a…969 at0011 = ╱50╱P╱ // 0x95b @0x11
0x94a…969 at0012 = ╱45╱E╱ // 0x95c @0x12
0x94a…969 at0013 = ╱ed╱(╱ // 0x95d @0x13
0x94a…969 at0014 = ╱4e╱N╱ // 0x95e @0x14
0x94a…969 at0015 = ╱ee╱)╱ // 0x95f @0x15
0x94a…969 at0016 = ╱e1╱<>╱ // 0x960 @0x16
0x94a…969 at0017 = ╱4f╱O╱ // 0x961 @0x17
0x94a…969 at0018 = ╱4b╱K╱ // 0x962 @0x18
0x94a…969 at0019 = ╱b6╱ THEN ╱ // 0x963 @0x19
0x94a…969 at001a = ╱4f╱O╱ // 0x964 @0x1a
0x94a…969 at001b = ╱4b╱K╱ // 0x965 @0x1b
0x94a…969 at001c = ╱dc╱=╱ // 0x966 @0x1c
0x94a…969 at001d = ╱42╱B╱ // 0x967 @0x1d
0x94a…969 at001e = EOL // 0x968 @0x1e
0x94a…969 }
0x969…96f 96c6 2180 ENDIF
0x969…96f LineComalBin {
0x969…96f ptr = 0x96c6 // 0x969 @0x0
0x969…96f lno = 0x0884 // 0x96b @0x2
0x969…96f at0004 = ╱9b╱ ENDIF ╱ // 0x96d @0x4
0x969…96f at0005 = EOL // 0x96e @0x5
0x969…96f }
0x96f…979 96d0 2190 UNTIL OK<>B
0x96f…979 LineComalBin {
0x96f…979 ptr = 0x96d0 // 0x96f @0x0
0x96f…979 lno = 0x088e // 0x971 @0x2
0x96f…979 at0004 = ╱98╱ UNTIL ╱ // 0x973 @0x4
0x96f…979 at0005 = ╱4f╱O╱ // 0x974 @0x5
0x96f…979 at0006 = ╱4b╱K╱ // 0x975 @0x6
0x96f…979 at0007 = ╱e1╱<>╱ // 0x976 @0x7
0x96f…979 at0008 = ╱42╱B╱ // 0x977 @0x8
0x96f…979 at0009 = EOL // 0x978 @0x9
0x96f…979 }
0x979…97f 96d6 2200 ENDPROC
0x979…97f LineComalBin {
0x979…97f ptr = 0x96d6 // 0x979 @0x0
0x979…97f lno = 0x0898 // 0x97b @0x2
0x979…97f at0004 = ╱9f╱ ENDPROC ╱ // 0x97d @0x4
0x979…97f at0005 = EOL // 0x97e @0x5
0x979…97f }
0x97f…98e 96e5 2210 PROC SKRIVPICT
0x97f…98e LineComalBin {
0x97f…98e ptr = 0x96e5 // 0x97f @0x0
0x97f…98e lno = 0x08a2 // 0x981 @0x2
0x97f…98e at0004 = ╱9e╱ PROC ╱ // 0x983 @0x4
0x97f…98e at0005 = ╱53╱S╱ // 0x984 @0x5
0x97f…98e at0006 = ╱4b╱K╱ // 0x985 @0x6
0x97f…98e at0007 = ╱52╱R╱ // 0x986 @0x7
0x97f…98e at0008 = ╱49╱I╱ // 0x987 @0x8
0x97f…98e at0009 = ╱56╱V╱ // 0x988 @0x9
0x97f…98e at000a = ╱50╱P╱ // 0x989 @0xa
0x97f…98e at000b = ╱49╱I╱ // 0x98a @0xb
0x97f…98e at000c = ╱43╱C╱ // 0x98b @0xc
0x97f…98e at000d = ╱54╱T╱ // 0x98c @0xd
0x97f…98e at000e = EOL // 0x98d @0xe
0x97f…98e }
0x98e…994 96eb 2220 CLEAR
0x98e…994 LineComalBin {
0x98e…994 ptr = 0x96eb // 0x98e @0x0
0x98e…994 lno = 0x08ac // 0x990 @0x2
0x98e…994 at0004 = ╱a0╱ CLEAR ╱ // 0x992 @0x4
0x98e…994 at0005 = EOL // 0x993 @0x5
0x98e…994 }
0x994…9b4 970b 2230 PRINT TAB(15);"Årsafslutning"
0x994…9b4 LineComalBin {
0x994…9b4 ptr = 0x970b // 0x994 @0x0
0x994…9b4 lno = 0x08b6 // 0x996 @0x2
0x994…9b4 at0004 = ╱92╱ PRINT ╱ // 0x998 @0x4
0x994…9b4 at0005 = ╱d2╱TAB╱ // 0x999 @0x5
0x994…9b4 at0006 = ╱ed╱(╱ // 0x99a @0x6
0x994…9b4 at0007 = ╱31╱1╱ // 0x99b @0x7
0x994…9b4 at0008 = ╱35╱5╱ // 0x99c @0x8
0x994…9b4 at0009 = ╱fe0000f004╱ // 0x99d @0x9
0x994…9b4 at000e = ╱ee╱)╱ // 0x9a2 @0xe
0x994…9b4 at000f = ╱eb╱;╱ // 0x9a3 @0xf
0x994…9b4 at0010 = ╱22╱"╱ // 0x9a4 @0x10
0x994…9b4 at0011 = ╱5d╱Å╱ // 0x9a5 @0x11
0x994…9b4 at0012 = ╱72╱r╱ // 0x9a6 @0x12
0x994…9b4 at0013 = ╱73╱s╱ // 0x9a7 @0x13
0x994…9b4 at0014 = ╱61╱a╱ // 0x9a8 @0x14
0x994…9b4 at0015 = ╱66╱f╱ // 0x9a9 @0x15
0x994…9b4 at0016 = ╱73╱s╱ // 0x9aa @0x16
0x994…9b4 at0017 = ╱6c╱l╱ // 0x9ab @0x17
0x994…9b4 at0018 = ╱75╱u╱ // 0x9ac @0x18
0x994…9b4 at0019 = ╱74╱t╱ // 0x9ad @0x19
0x994…9b4 at001a = ╱6e╱n╱ // 0x9ae @0x1a
0x994…9b4 at001b = ╱69╱i╱ // 0x9af @0x1b
0x994…9b4 at001c = ╱6e╱n╱ // 0x9b0 @0x1c
0x994…9b4 at001d = ╱67╱g╱ // 0x9b1 @0x1d
0x994…9b4 at001e = ╱22╱"╱ // 0x9b2 @0x1e
0x994…9b4 at001f = EOL // 0x9b3 @0x1f
0x994…9b4 }
0x9b4…9c8 971f 2240 PRINT " Lønperioden"
0x9b4…9c8 LineComalBin {
0x9b4…9c8 ptr = 0x971f // 0x9b4 @0x0
0x9b4…9c8 lno = 0x08c0 // 0x9b6 @0x2
0x9b4…9c8 at0004 = ╱92╱ PRINT ╱ // 0x9b8 @0x4
0x9b4…9c8 at0005 = ╱22╱"╱ // 0x9b9 @0x5
0x9b4…9c8 at0006 = ╱20╱…╱ // 0x9ba @0x6
0x9b4…9c8 at0007 = ╱4c╱L╱ // 0x9bb @0x7
0x9b4…9c8 at0008 = ╱7c╱ø╱ // 0x9bc @0x8
0x9b4…9c8 at0009 = ╱6e╱n╱ // 0x9bd @0x9
0x9b4…9c8 at000a = ╱70╱p╱ // 0x9be @0xa
0x9b4…9c8 at000b = ╱65╱e╱ // 0x9bf @0xb
0x9b4…9c8 at000c = ╱72╱r╱ // 0x9c0 @0xc
0x9b4…9c8 at000d = ╱69╱i╱ // 0x9c1 @0xd
0x9b4…9c8 at000e = ╱6f╱o╱ // 0x9c2 @0xe
0x9b4…9c8 at000f = ╱64╱d╱ // 0x9c3 @0xf
0x9b4…9c8 at0010 = ╱65╱e╱ // 0x9c4 @0x10
0x9b4…9c8 at0011 = ╱6e╱n╱ // 0x9c5 @0x11
0x9b4…9c8 at0012 = ╱22╱"╱ // 0x9c6 @0x12
0x9b4…9c8 at0013 = EOL // 0x9c7 @0x13
0x9b4…9c8 }
0x9c8…9ea 9741 2260 PRINT " Maksimum feriedage i året"
0x9c8…9ea LineComalBin {
0x9c8…9ea ptr = 0x9741 // 0x9c8 @0x0
0x9c8…9ea lno = 0x08d4 // 0x9ca @0x2
0x9c8…9ea at0004 = ╱92╱ PRINT ╱ // 0x9cc @0x4
0x9c8…9ea at0005 = ╱22╱"╱ // 0x9cd @0x5
0x9c8…9ea at0006 = ╱20╱…╱ // 0x9ce @0x6
0x9c8…9ea at0007 = ╱4d╱M╱ // 0x9cf @0x7
0x9c8…9ea at0008 = ╱61╱a╱ // 0x9d0 @0x8
0x9c8…9ea at0009 = ╱6b╱k╱ // 0x9d1 @0x9
0x9c8…9ea at000a = ╱73╱s╱ // 0x9d2 @0xa
0x9c8…9ea at000b = ╱69╱i╱ // 0x9d3 @0xb
0x9c8…9ea at000c = ╱6d╱m╱ // 0x9d4 @0xc
0x9c8…9ea at000d = ╱75╱u╱ // 0x9d5 @0xd
0x9c8…9ea at000e = ╱6d╱m╱ // 0x9d6 @0xe
0x9c8…9ea at000f = ╱20╱…╱ // 0x9d7 @0xf
0x9c8…9ea at0010 = ╱66╱f╱ // 0x9d8 @0x10
0x9c8…9ea at0011 = ╱65╱e╱ // 0x9d9 @0x11
0x9c8…9ea at0012 = ╱72╱r╱ // 0x9da @0x12
0x9c8…9ea at0013 = ╱69╱i╱ // 0x9db @0x13
0x9c8…9ea at0014 = ╱65╱e╱ // 0x9dc @0x14
0x9c8…9ea at0015 = ╱64╱d╱ // 0x9dd @0x15
0x9c8…9ea at0016 = ╱61╱a╱ // 0x9de @0x16
0x9c8…9ea at0017 = ╱67╱g╱ // 0x9df @0x17
0x9c8…9ea at0018 = ╱65╱e╱ // 0x9e0 @0x18
0x9c8…9ea at0019 = ╱20╱…╱ // 0x9e1 @0x19
0x9c8…9ea at001a = ╱69╱i╱ // 0x9e2 @0x1a
0x9c8…9ea at001b = ╱20╱…╱ // 0x9e3 @0x1b
0x9c8…9ea at001c = ╱7d╱å╱ // 0x9e4 @0x1c
0x9c8…9ea at001d = ╱72╱r╱ // 0x9e5 @0x1d
0x9c8…9ea at001e = ╱65╱e╱ // 0x9e6 @0x1e
0x9c8…9ea at001f = ╱74╱t╱ // 0x9e7 @0x1f
0x9c8…9ea at0020 = ╱22╱"╱ // 0x9e8 @0x20
0x9c8…9ea at0021 = EOL // 0x9e9 @0x21
0x9c8…9ea }
0x9ea…a15 976c 2270 PRINT " Lønperiodekode 1,2,3,4,5,6 eller 7"
0x9ea…a15 LineComalBin {
0x9ea…a15 ptr = 0x976c // 0x9ea @0x0
0x9ea…a15 lno = 0x08de // 0x9ec @0x2
0x9ea…a15 at0004 = ╱92╱ PRINT ╱ // 0x9ee @0x4
0x9ea…a15 at0005 = ╱22╱"╱ // 0x9ef @0x5
0x9ea…a15 at0006 = ╱20╱…╱ // 0x9f0 @0x6
0x9ea…a15 at0007 = ╱4c╱L╱ // 0x9f1 @0x7
0x9ea…a15 at0008 = ╱7c╱ø╱ // 0x9f2 @0x8
0x9ea…a15 at0009 = ╱6e╱n╱ // 0x9f3 @0x9
0x9ea…a15 at000a = ╱70╱p╱ // 0x9f4 @0xa
0x9ea…a15 at000b = ╱65╱e╱ // 0x9f5 @0xb
0x9ea…a15 at000c = ╱72╱r╱ // 0x9f6 @0xc
0x9ea…a15 at000d = ╱69╱i╱ // 0x9f7 @0xd
0x9ea…a15 at000e = ╱6f╱o╱ // 0x9f8 @0xe
0x9ea…a15 at000f = ╱64╱d╱ // 0x9f9 @0xf
0x9ea…a15 at0010 = ╱65╱e╱ // 0x9fa @0x10
0x9ea…a15 at0011 = ╱6b╱k╱ // 0x9fb @0x11
0x9ea…a15 at0012 = ╱6f╱o╱ // 0x9fc @0x12
0x9ea…a15 at0013 = ╱64╱d╱ // 0x9fd @0x13
0x9ea…a15 at0014 = ╱65╱e╱ // 0x9fe @0x14
0x9ea…a15 at0015 = ╱20╱…╱ // 0x9ff @0x15
0x9ea…a15 at0016 = ╱31╱1╱ // 0xa00 @0x16
0x9ea…a15 at0017 = ╱2c╱,╱ // 0xa01 @0x17
0x9ea…a15 at0018 = ╱32╱2╱ // 0xa02 @0x18
0x9ea…a15 at0019 = ╱2c╱,╱ // 0xa03 @0x19
0x9ea…a15 at001a = ╱33╱3╱ // 0xa04 @0x1a
0x9ea…a15 at001b = ╱2c╱,╱ // 0xa05 @0x1b
0x9ea…a15 at001c = ╱34╱4╱ // 0xa06 @0x1c
0x9ea…a15 at001d = ╱2c╱,╱ // 0xa07 @0x1d
0x9ea…a15 at001e = ╱35╱5╱ // 0xa08 @0x1e
0x9ea…a15 at001f = ╱2c╱,╱ // 0xa09 @0x1f
0x9ea…a15 at0020 = ╱36╱6╱ // 0xa0a @0x20
0x9ea…a15 at0021 = ╱20╱…╱ // 0xa0b @0x21
0x9ea…a15 at0022 = ╱65╱e╱ // 0xa0c @0x22
0x9ea…a15 at0023 = ╱6c╱l╱ // 0xa0d @0x23
0x9ea…a15 at0024 = ╱6c╱l╱ // 0xa0e @0x24
0x9ea…a15 at0025 = ╱65╱e╱ // 0xa0f @0x25
0x9ea…a15 at0026 = ╱72╱r╱ // 0xa10 @0x26
0x9ea…a15 at0027 = ╱20╱…╱ // 0xa11 @0x27
0x9ea…a15 at0028 = ╱37╱7╱ // 0xa12 @0x28
0x9ea…a15 at0029 = ╱22╱"╱ // 0xa13 @0x29
0x9ea…a15 at002a = EOL // 0xa14 @0x2a
0x9ea…a15 }
0xa15…a40 9797 2280 PRINT " Arbejdere(A) eller funktionærer(F)"
0xa15…a40 LineComalBin {
0xa15…a40 ptr = 0x9797 // 0xa15 @0x0
0xa15…a40 lno = 0x08e8 // 0xa17 @0x2
0xa15…a40 at0004 = ╱92╱ PRINT ╱ // 0xa19 @0x4
0xa15…a40 at0005 = ╱22╱"╱ // 0xa1a @0x5
0xa15…a40 at0006 = ╱20╱…╱ // 0xa1b @0x6
0xa15…a40 at0007 = ╱41╱A╱ // 0xa1c @0x7
0xa15…a40 at0008 = ╱72╱r╱ // 0xa1d @0x8
0xa15…a40 at0009 = ╱62╱b╱ // 0xa1e @0x9
0xa15…a40 at000a = ╱65╱e╱ // 0xa1f @0xa
0xa15…a40 at000b = ╱6a╱j╱ // 0xa20 @0xb
0xa15…a40 at000c = ╱64╱d╱ // 0xa21 @0xc
0xa15…a40 at000d = ╱65╱e╱ // 0xa22 @0xd
0xa15…a40 at000e = ╱72╱r╱ // 0xa23 @0xe
0xa15…a40 at000f = ╱65╱e╱ // 0xa24 @0xf
0xa15…a40 at0010 = ╱28╱(╱ // 0xa25 @0x10
0xa15…a40 at0011 = ╱41╱A╱ // 0xa26 @0x11
0xa15…a40 at0012 = ╱29╱)╱ // 0xa27 @0x12
0xa15…a40 at0013 = ╱20╱…╱ // 0xa28 @0x13
0xa15…a40 at0014 = ╱65╱e╱ // 0xa29 @0x14
0xa15…a40 at0015 = ╱6c╱l╱ // 0xa2a @0x15
0xa15…a40 at0016 = ╱6c╱l╱ // 0xa2b @0x16
0xa15…a40 at0017 = ╱65╱e╱ // 0xa2c @0x17
0xa15…a40 at0018 = ╱72╱r╱ // 0xa2d @0x18
0xa15…a40 at0019 = ╱20╱…╱ // 0xa2e @0x19
0xa15…a40 at001a = ╱66╱f╱ // 0xa2f @0x1a
0xa15…a40 at001b = ╱75╱u╱ // 0xa30 @0x1b
0xa15…a40 at001c = ╱6e╱n╱ // 0xa31 @0x1c
0xa15…a40 at001d = ╱6b╱k╱ // 0xa32 @0x1d
0xa15…a40 at001e = ╱74╱t╱ // 0xa33 @0x1e
0xa15…a40 at001f = ╱69╱i╱ // 0xa34 @0x1f
0xa15…a40 at0020 = ╱6f╱o╱ // 0xa35 @0x20
0xa15…a40 at0021 = ╱6e╱n╱ // 0xa36 @0x21
0xa15…a40 at0022 = ╱7b╱æ╱ // 0xa37 @0x22
0xa15…a40 at0023 = ╱72╱r╱ // 0xa38 @0x23
0xa15…a40 at0024 = ╱65╱e╱ // 0xa39 @0x24
0xa15…a40 at0025 = ╱72╱r╱ // 0xa3a @0x25
0xa15…a40 at0026 = ╱28╱(╱ // 0xa3b @0x26
0xa15…a40 at0027 = ╱46╱F╱ // 0xa3c @0x27
0xa15…a40 at0028 = ╱29╱)╱ // 0xa3d @0x28
0xa15…a40 at0029 = ╱22╱"╱ // 0xa3e @0x29
0xa15…a40 at002a = EOL // 0xa3f @0x2a
0xa15…a40 }
0xa40…a55 97ac 2290 PRINT " Mangler der:"
0xa40…a55 LineComalBin {
0xa40…a55 ptr = 0x97ac // 0xa40 @0x0
0xa40…a55 lno = 0x08f2 // 0xa42 @0x2
0xa40…a55 at0004 = ╱92╱ PRINT ╱ // 0xa44 @0x4
0xa40…a55 at0005 = ╱22╱"╱ // 0xa45 @0x5
0xa40…a55 at0006 = ╱20╱…╱ // 0xa46 @0x6
0xa40…a55 at0007 = ╱4d╱M╱ // 0xa47 @0x7
0xa40…a55 at0008 = ╱61╱a╱ // 0xa48 @0x8
0xa40…a55 at0009 = ╱6e╱n╱ // 0xa49 @0x9
0xa40…a55 at000a = ╱67╱g╱ // 0xa4a @0xa
0xa40…a55 at000b = ╱6c╱l╱ // 0xa4b @0xb
0xa40…a55 at000c = ╱65╱e╱ // 0xa4c @0xc
0xa40…a55 at000d = ╱72╱r╱ // 0xa4d @0xd
0xa40…a55 at000e = ╱20╱…╱ // 0xa4e @0xe
0xa40…a55 at000f = ╱64╱d╱ // 0xa4f @0xf
0xa40…a55 at0010 = ╱65╱e╱ // 0xa50 @0x10
0xa40…a55 at0011 = ╱72╱r╱ // 0xa51 @0x11
0xa40…a55 at0012 = ╱3a╱:╱ // 0xa52 @0x12
0xa40…a55 at0013 = ╱22╱"╱ // 0xa53 @0x13
0xa40…a55 at0014 = EOL // 0xa54 @0x14
0xa40…a55 }
0xa55…a83 97da 2300 PRINT " Lønafregninger ja(J) eller nej(N)"
0xa55…a83 LineComalBin {
0xa55…a83 ptr = 0x97da // 0xa55 @0x0
0xa55…a83 lno = 0x08fc // 0xa57 @0x2
0xa55…a83 at0004 = ╱92╱ PRINT ╱ // 0xa59 @0x4
0xa55…a83 at0005 = ╱22╱"╱ // 0xa5a @0x5
0xa55…a83 at0006 = ╱20╱…╱ // 0xa5b @0x6
0xa55…a83 at0007 = ╱4c╱L╱ // 0xa5c @0x7
0xa55…a83 at0008 = ╱7c╱ø╱ // 0xa5d @0x8
0xa55…a83 at0009 = ╱6e╱n╱ // 0xa5e @0x9
0xa55…a83 at000a = ╱61╱a╱ // 0xa5f @0xa
0xa55…a83 at000b = ╱66╱f╱ // 0xa60 @0xb
0xa55…a83 at000c = ╱72╱r╱ // 0xa61 @0xc
0xa55…a83 at000d = ╱65╱e╱ // 0xa62 @0xd
0xa55…a83 at000e = ╱67╱g╱ // 0xa63 @0xe
0xa55…a83 at000f = ╱6e╱n╱ // 0xa64 @0xf
0xa55…a83 at0010 = ╱69╱i╱ // 0xa65 @0x10
0xa55…a83 at0011 = ╱6e╱n╱ // 0xa66 @0x11
0xa55…a83 at0012 = ╱67╱g╱ // 0xa67 @0x12
0xa55…a83 at0013 = ╱65╱e╱ // 0xa68 @0x13
0xa55…a83 at0014 = ╱72╱r╱ // 0xa69 @0x14
0xa55…a83 at0015 = ╱20╱…╱ // 0xa6a @0x15
0xa55…a83 at0016 = ╱20╱…╱ // 0xa6b @0x16
0xa55…a83 at0017 = ╱20╱…╱ // 0xa6c @0x17
0xa55…a83 at0018 = ╱20╱…╱ // 0xa6d @0x18
0xa55…a83 at0019 = ╱20╱…╱ // 0xa6e @0x19
0xa55…a83 at001a = ╱6a╱j╱ // 0xa6f @0x1a
0xa55…a83 at001b = ╱61╱a╱ // 0xa70 @0x1b
0xa55…a83 at001c = ╱28╱(╱ // 0xa71 @0x1c
0xa55…a83 at001d = ╱4a╱J╱ // 0xa72 @0x1d
0xa55…a83 at001e = ╱29╱)╱ // 0xa73 @0x1e
0xa55…a83 at001f = ╱20╱…╱ // 0xa74 @0x1f
0xa55…a83 at0020 = ╱65╱e╱ // 0xa75 @0x20
0xa55…a83 at0021 = ╱6c╱l╱ // 0xa76 @0x21
0xa55…a83 at0022 = ╱6c╱l╱ // 0xa77 @0x22
0xa55…a83 at0023 = ╱65╱e╱ // 0xa78 @0x23
0xa55…a83 at0024 = ╱72╱r╱ // 0xa79 @0x24
0xa55…a83 at0025 = ╱20╱…╱ // 0xa7a @0x25
0xa55…a83 at0026 = ╱6e╱n╱ // 0xa7b @0x26
0xa55…a83 at0027 = ╱65╱e╱ // 0xa7c @0x27
0xa55…a83 at0028 = ╱6a╱j╱ // 0xa7d @0x28
0xa55…a83 at0029 = ╱28╱(╱ // 0xa7e @0x29
0xa55…a83 at002a = ╱4e╱N╱ // 0xa7f @0x2a
0xa55…a83 at002b = ╱29╱)╱ // 0xa80 @0x2b
0xa55…a83 at002c = ╱22╱"╱ // 0xa81 @0x2c
0xa55…a83 at002d = EOL // 0xa82 @0x2d
0xa55…a83 }
0xa83…ab1 9808 2310 PRINT " Ferie- og SH-opg ja(J) eller nej(N)"
0xa83…ab1 LineComalBin {
0xa83…ab1 ptr = 0x9808 // 0xa83 @0x0
0xa83…ab1 lno = 0x0906 // 0xa85 @0x2
0xa83…ab1 at0004 = ╱92╱ PRINT ╱ // 0xa87 @0x4
0xa83…ab1 at0005 = ╱22╱"╱ // 0xa88 @0x5
0xa83…ab1 at0006 = ╱20╱…╱ // 0xa89 @0x6
0xa83…ab1 at0007 = ╱46╱F╱ // 0xa8a @0x7
0xa83…ab1 at0008 = ╱65╱e╱ // 0xa8b @0x8
0xa83…ab1 at0009 = ╱72╱r╱ // 0xa8c @0x9
0xa83…ab1 at000a = ╱69╱i╱ // 0xa8d @0xa
0xa83…ab1 at000b = ╱65╱e╱ // 0xa8e @0xb
0xa83…ab1 at000c = ╱2d╱-╱ // 0xa8f @0xc
0xa83…ab1 at000d = ╱20╱…╱ // 0xa90 @0xd
0xa83…ab1 at000e = ╱6f╱o╱ // 0xa91 @0xe
0xa83…ab1 at000f = ╱67╱g╱ // 0xa92 @0xf
0xa83…ab1 at0010 = ╱20╱…╱ // 0xa93 @0x10
0xa83…ab1 at0011 = ╱53╱S╱ // 0xa94 @0x11
0xa83…ab1 at0012 = ╱48╱H╱ // 0xa95 @0x12
0xa83…ab1 at0013 = ╱2d╱-╱ // 0xa96 @0x13
0xa83…ab1 at0014 = ╱6f╱o╱ // 0xa97 @0x14
0xa83…ab1 at0015 = ╱70╱p╱ // 0xa98 @0x15
0xa83…ab1 at0016 = ╱67╱g╱ // 0xa99 @0x16
0xa83…ab1 at0017 = ╱20╱…╱ // 0xa9a @0x17
0xa83…ab1 at0018 = ╱20╱…╱ // 0xa9b @0x18
0xa83…ab1 at0019 = ╱20╱…╱ // 0xa9c @0x19
0xa83…ab1 at001a = ╱6a╱j╱ // 0xa9d @0x1a
0xa83…ab1 at001b = ╱61╱a╱ // 0xa9e @0x1b
0xa83…ab1 at001c = ╱28╱(╱ // 0xa9f @0x1c
0xa83…ab1 at001d = ╱4a╱J╱ // 0xaa0 @0x1d
0xa83…ab1 at001e = ╱29╱)╱ // 0xaa1 @0x1e
0xa83…ab1 at001f = ╱20╱…╱ // 0xaa2 @0x1f
0xa83…ab1 at0020 = ╱65╱e╱ // 0xaa3 @0x20
0xa83…ab1 at0021 = ╱6c╱l╱ // 0xaa4 @0x21
0xa83…ab1 at0022 = ╱6c╱l╱ // 0xaa5 @0x22
0xa83…ab1 at0023 = ╱65╱e╱ // 0xaa6 @0x23
0xa83…ab1 at0024 = ╱72╱r╱ // 0xaa7 @0x24
0xa83…ab1 at0025 = ╱20╱…╱ // 0xaa8 @0x25
0xa83…ab1 at0026 = ╱6e╱n╱ // 0xaa9 @0x26
0xa83…ab1 at0027 = ╱65╱e╱ // 0xaaa @0x27
0xa83…ab1 at0028 = ╱6a╱j╱ // 0xaab @0x28
0xa83…ab1 at0029 = ╱28╱(╱ // 0xaac @0x29
0xa83…ab1 at002a = ╱4e╱N╱ // 0xaad @0x2a
0xa83…ab1 at002b = ╱29╱)╱ // 0xaae @0x2b
0xa83…ab1 at002c = ╱22╱"╱ // 0xaaf @0x2c
0xa83…ab1 at002d = EOL // 0xab0 @0x2d
0xa83…ab1 }
0xab1…adf 9836 2320 PRINT " Arbejderlønstat ja(J) eller nej(N)"
0xab1…adf LineComalBin {
0xab1…adf ptr = 0x9836 // 0xab1 @0x0
0xab1…adf lno = 0x0910 // 0xab3 @0x2
0xab1…adf at0004 = ╱92╱ PRINT ╱ // 0xab5 @0x4
0xab1…adf at0005 = ╱22╱"╱ // 0xab6 @0x5
0xab1…adf at0006 = ╱20╱…╱ // 0xab7 @0x6
0xab1…adf at0007 = ╱41╱A╱ // 0xab8 @0x7
0xab1…adf at0008 = ╱72╱r╱ // 0xab9 @0x8
0xab1…adf at0009 = ╱62╱b╱ // 0xaba @0x9
0xab1…adf at000a = ╱65╱e╱ // 0xabb @0xa
0xab1…adf at000b = ╱6a╱j╱ // 0xabc @0xb
0xab1…adf at000c = ╱64╱d╱ // 0xabd @0xc
0xab1…adf at000d = ╱65╱e╱ // 0xabe @0xd
0xab1…adf at000e = ╱72╱r╱ // 0xabf @0xe
0xab1…adf at000f = ╱6c╱l╱ // 0xac0 @0xf
0xab1…adf at0010 = ╱7c╱ø╱ // 0xac1 @0x10
0xab1…adf at0011 = ╱6e╱n╱ // 0xac2 @0x11
0xab1…adf at0012 = ╱73╱s╱ // 0xac3 @0x12
0xab1…adf at0013 = ╱74╱t╱ // 0xac4 @0x13
0xab1…adf at0014 = ╱61╱a╱ // 0xac5 @0x14
0xab1…adf at0015 = ╱74╱t╱ // 0xac6 @0x15
0xab1…adf at0016 = ╱20╱…╱ // 0xac7 @0x16
0xab1…adf at0017 = ╱20╱…╱ // 0xac8 @0x17
0xab1…adf at0018 = ╱20╱…╱ // 0xac9 @0x18
0xab1…adf at0019 = ╱20╱…╱ // 0xaca @0x19
0xab1…adf at001a = ╱6a╱j╱ // 0xacb @0x1a
0xab1…adf at001b = ╱61╱a╱ // 0xacc @0x1b
0xab1…adf at001c = ╱28╱(╱ // 0xacd @0x1c
0xab1…adf at001d = ╱4a╱J╱ // 0xace @0x1d
0xab1…adf at001e = ╱29╱)╱ // 0xacf @0x1e
0xab1…adf at001f = ╱20╱…╱ // 0xad0 @0x1f
0xab1…adf at0020 = ╱65╱e╱ // 0xad1 @0x20
0xab1…adf at0021 = ╱6c╱l╱ // 0xad2 @0x21
0xab1…adf at0022 = ╱6c╱l╱ // 0xad3 @0x22
0xab1…adf at0023 = ╱65╱e╱ // 0xad4 @0x23
0xab1…adf at0024 = ╱72╱r╱ // 0xad5 @0x24
0xab1…adf at0025 = ╱20╱…╱ // 0xad6 @0x25
0xab1…adf at0026 = ╱6e╱n╱ // 0xad7 @0x26
0xab1…adf at0027 = ╱65╱e╱ // 0xad8 @0x27
0xab1…adf at0028 = ╱6a╱j╱ // 0xad9 @0x28
0xab1…adf at0029 = ╱28╱(╱ // 0xada @0x29
0xab1…adf at002a = ╱4e╱N╱ // 0xadb @0x2a
0xab1…adf at002b = ╱29╱)╱ // 0xadc @0x2b
0xab1…adf at002c = ╱22╱"╱ // 0xadd @0x2c
0xab1…adf at002d = EOL // 0xade @0x2d
0xab1…adf }
0xadf…af6 984d 2330 PRINT " Der udskrives:"
0xadf…af6 LineComalBin {
0xadf…af6 ptr = 0x984d // 0xadf @0x0
0xadf…af6 lno = 0x091a // 0xae1 @0x2
0xadf…af6 at0004 = ╱92╱ PRINT ╱ // 0xae3 @0x4
0xadf…af6 at0005 = ╱22╱"╱ // 0xae4 @0x5
0xadf…af6 at0006 = ╱20╱…╱ // 0xae5 @0x6
0xadf…af6 at0007 = ╱44╱D╱ // 0xae6 @0x7
0xadf…af6 at0008 = ╱65╱e╱ // 0xae7 @0x8
0xadf…af6 at0009 = ╱72╱r╱ // 0xae8 @0x9
0xadf…af6 at000a = ╱20╱…╱ // 0xae9 @0xa
0xadf…af6 at000b = ╱75╱u╱ // 0xaea @0xb
0xadf…af6 at000c = ╱64╱d╱ // 0xaeb @0xc
0xadf…af6 at000d = ╱73╱s╱ // 0xaec @0xd
0xadf…af6 at000e = ╱6b╱k╱ // 0xaed @0xe
0xadf…af6 at000f = ╱72╱r╱ // 0xaee @0xf
0xadf…af6 at0010 = ╱69╱i╱ // 0xaef @0x10
0xadf…af6 at0011 = ╱76╱v╱ // 0xaf0 @0x11
0xadf…af6 at0012 = ╱65╱e╱ // 0xaf1 @0x12
0xadf…af6 at0013 = ╱73╱s╱ // 0xaf2 @0x13
0xadf…af6 at0014 = ╱3a╱:╱ // 0xaf3 @0x14
0xadf…af6 at0015 = ╱22╱"╱ // 0xaf4 @0x15
0xadf…af6 at0016 = EOL // 0xaf5 @0x16
0xadf…af6 }
0xaf6…b09 9860 2340 PRINT " Lønjournal"
0xaf6…b09 LineComalBin {
0xaf6…b09 ptr = 0x9860 // 0xaf6 @0x0
0xaf6…b09 lno = 0x0924 // 0xaf8 @0x2
0xaf6…b09 at0004 = ╱92╱ PRINT ╱ // 0xafa @0x4
0xaf6…b09 at0005 = ╱22╱"╱ // 0xafb @0x5
0xaf6…b09 at0006 = ╱20╱…╱ // 0xafc @0x6
0xaf6…b09 at0007 = ╱4c╱L╱ // 0xafd @0x7
0xaf6…b09 at0008 = ╱7c╱ø╱ // 0xafe @0x8
0xaf6…b09 at0009 = ╱6e╱n╱ // 0xaff @0x9
0xaf6…b09 at000a = ╱6a╱j╱ // 0xb00 @0xa
0xaf6…b09 at000b = ╱6f╱o╱ // 0xb01 @0xb
0xaf6…b09 at000c = ╱75╱u╱ // 0xb02 @0xc
0xaf6…b09 at000d = ╱72╱r╱ // 0xb03 @0xd
0xaf6…b09 at000e = ╱6e╱n╱ // 0xb04 @0xe
0xaf6…b09 at000f = ╱61╱a╱ // 0xb05 @0xf
0xaf6…b09 at0010 = ╱6c╱l╱ // 0xb06 @0x10
0xaf6…b09 at0011 = ╱22╱"╱ // 0xb07 @0x11
0xaf6…b09 at0012 = EOL // 0xb08 @0x12
0xaf6…b09 }
0xb09…b1c 9873 2350 PRINT " Ferieliste"
0xb09…b1c LineComalBin {
0xb09…b1c ptr = 0x9873 // 0xb09 @0x0
0xb09…b1c lno = 0x092e // 0xb0b @0x2
0xb09…b1c at0004 = ╱92╱ PRINT ╱ // 0xb0d @0x4
0xb09…b1c at0005 = ╱22╱"╱ // 0xb0e @0x5
0xb09…b1c at0006 = ╱20╱…╱ // 0xb0f @0x6
0xb09…b1c at0007 = ╱46╱F╱ // 0xb10 @0x7
0xb09…b1c at0008 = ╱65╱e╱ // 0xb11 @0x8
0xb09…b1c at0009 = ╱72╱r╱ // 0xb12 @0x9
0xb09…b1c at000a = ╱69╱i╱ // 0xb13 @0xa
0xb09…b1c at000b = ╱65╱e╱ // 0xb14 @0xb
0xb09…b1c at000c = ╱6c╱l╱ // 0xb15 @0xc
0xb09…b1c at000d = ╱69╱i╱ // 0xb16 @0xd
0xb09…b1c at000e = ╱73╱s╱ // 0xb17 @0xe
0xb09…b1c at000f = ╱74╱t╱ // 0xb18 @0xf
0xb09…b1c at0010 = ╱65╱e╱ // 0xb19 @0x10
0xb09…b1c at0011 = ╱22╱"╱ // 0xb1a @0x11
0xb09…b1c at0012 = EOL // 0xb1b @0x12
0xb09…b1c }
0xb1c…b47 989e 2360 PRINT " Lønmodtagerkartotekets tælleværker"
0xb1c…b47 LineComalBin {
0xb1c…b47 ptr = 0x989e // 0xb1c @0x0
0xb1c…b47 lno = 0x0938 // 0xb1e @0x2
0xb1c…b47 at0004 = ╱92╱ PRINT ╱ // 0xb20 @0x4
0xb1c…b47 at0005 = ╱22╱"╱ // 0xb21 @0x5
0xb1c…b47 at0006 = ╱20╱…╱ // 0xb22 @0x6
0xb1c…b47 at0007 = ╱4c╱L╱ // 0xb23 @0x7
0xb1c…b47 at0008 = ╱7c╱ø╱ // 0xb24 @0x8
0xb1c…b47 at0009 = ╱6e╱n╱ // 0xb25 @0x9
0xb1c…b47 at000a = ╱6d╱m╱ // 0xb26 @0xa
0xb1c…b47 at000b = ╱6f╱o╱ // 0xb27 @0xb
0xb1c…b47 at000c = ╱64╱d╱ // 0xb28 @0xc
0xb1c…b47 at000d = ╱74╱t╱ // 0xb29 @0xd
0xb1c…b47 at000e = ╱61╱a╱ // 0xb2a @0xe
0xb1c…b47 at000f = ╱67╱g╱ // 0xb2b @0xf
0xb1c…b47 at0010 = ╱65╱e╱ // 0xb2c @0x10
0xb1c…b47 at0011 = ╱72╱r╱ // 0xb2d @0x11
0xb1c…b47 at0012 = ╱6b╱k╱ // 0xb2e @0x12
0xb1c…b47 at0013 = ╱61╱a╱ // 0xb2f @0x13
0xb1c…b47 at0014 = ╱72╱r╱ // 0xb30 @0x14
0xb1c…b47 at0015 = ╱74╱t╱ // 0xb31 @0x15
0xb1c…b47 at0016 = ╱6f╱o╱ // 0xb32 @0x16
0xb1c…b47 at0017 = ╱74╱t╱ // 0xb33 @0x17
0xb1c…b47 at0018 = ╱65╱e╱ // 0xb34 @0x18
0xb1c…b47 at0019 = ╱6b╱k╱ // 0xb35 @0x19
0xb1c…b47 at001a = ╱65╱e╱ // 0xb36 @0x1a
0xb1c…b47 at001b = ╱74╱t╱ // 0xb37 @0x1b
0xb1c…b47 at001c = ╱73╱s╱ // 0xb38 @0x1c
0xb1c…b47 at001d = ╱20╱…╱ // 0xb39 @0x1d
0xb1c…b47 at001e = ╱74╱t╱ // 0xb3a @0x1e
0xb1c…b47 at001f = ╱7b╱æ╱ // 0xb3b @0x1f
0xb1c…b47 at0020 = ╱6c╱l╱ // 0xb3c @0x20
0xb1c…b47 at0021 = ╱6c╱l╱ // 0xb3d @0x21
0xb1c…b47 at0022 = ╱65╱e╱ // 0xb3e @0x22
0xb1c…b47 at0023 = ╱76╱v╱ // 0xb3f @0x23
0xb1c…b47 at0024 = ╱7b╱æ╱ // 0xb40 @0x24
0xb1c…b47 at0025 = ╱72╱r╱ // 0xb41 @0x25
0xb1c…b47 at0026 = ╱6b╱k╱ // 0xb42 @0x26
0xb1c…b47 at0027 = ╱65╱e╱ // 0xb43 @0x27
0xb1c…b47 at0028 = ╱72╱r╱ // 0xb44 @0x28
0xb1c…b47 at0029 = ╱22╱"╱ // 0xb45 @0x29
0xb1c…b47 at002a = EOL // 0xb46 @0x2a
0xb1c…b47 }
0xb47…b63 98ba 2370 PRINT " Årsoplysningssedler"
0xb47…b63 LineComalBin {
0xb47…b63 ptr = 0x98ba // 0xb47 @0x0
0xb47…b63 lno = 0x0942 // 0xb49 @0x2
0xb47…b63 at0004 = ╱92╱ PRINT ╱ // 0xb4b @0x4
0xb47…b63 at0005 = ╱22╱"╱ // 0xb4c @0x5
0xb47…b63 at0006 = ╱20╱…╱ // 0xb4d @0x6
0xb47…b63 at0007 = ╱5d╱Å╱ // 0xb4e @0x7
0xb47…b63 at0008 = ╱72╱r╱ // 0xb4f @0x8
0xb47…b63 at0009 = ╱73╱s╱ // 0xb50 @0x9
0xb47…b63 at000a = ╱6f╱o╱ // 0xb51 @0xa
0xb47…b63 at000b = ╱70╱p╱ // 0xb52 @0xb
0xb47…b63 at000c = ╱6c╱l╱ // 0xb53 @0xc
0xb47…b63 at000d = ╱79╱y╱ // 0xb54 @0xd
0xb47…b63 at000e = ╱73╱s╱ // 0xb55 @0xe
0xb47…b63 at000f = ╱6e╱n╱ // 0xb56 @0xf
0xb47…b63 at0010 = ╱69╱i╱ // 0xb57 @0x10
0xb47…b63 at0011 = ╱6e╱n╱ // 0xb58 @0x11
0xb47…b63 at0012 = ╱67╱g╱ // 0xb59 @0x12
0xb47…b63 at0013 = ╱73╱s╱ // 0xb5a @0x13
0xb47…b63 at0014 = ╱73╱s╱ // 0xb5b @0x14
0xb47…b63 at0015 = ╱65╱e╱ // 0xb5c @0x15
0xb47…b63 at0016 = ╱64╱d╱ // 0xb5d @0x16
0xb47…b63 at0017 = ╱6c╱l╱ // 0xb5e @0x17
0xb47…b63 at0018 = ╱65╱e╱ // 0xb5f @0x18
0xb47…b63 at0019 = ╱72╱r╱ // 0xb60 @0x19
0xb47…b63 at001a = ╱22╱"╱ // 0xb61 @0x1a
0xb47…b63 at001b = EOL // 0xb62 @0x1b
0xb47…b63 }
0xb63…b69 98c0 2380 PRINT
0xb63…b69 LineComalBin {
0xb63…b69 ptr = 0x98c0 // 0xb63 @0x0
0xb63…b69 lno = 0x094c // 0xb65 @0x2
0xb63…b69 at0004 = ╱92╱ PRINT ╱ // 0xb67 @0x4
0xb63…b69 at0005 = EOL // 0xb68 @0x5
0xb63…b69 }
0xb69…b83 98da 2390 PRINT " Fratrådte fjernes"
0xb69…b83 LineComalBin {
0xb69…b83 ptr = 0x98da // 0xb69 @0x0
0xb69…b83 lno = 0x0956 // 0xb6b @0x2
0xb69…b83 at0004 = ╱92╱ PRINT ╱ // 0xb6d @0x4
0xb69…b83 at0005 = ╱22╱"╱ // 0xb6e @0x5
0xb69…b83 at0006 = ╱20╱…╱ // 0xb6f @0x6
0xb69…b83 at0007 = ╱46╱F╱ // 0xb70 @0x7
0xb69…b83 at0008 = ╱72╱r╱ // 0xb71 @0x8
0xb69…b83 at0009 = ╱61╱a╱ // 0xb72 @0x9
0xb69…b83 at000a = ╱74╱t╱ // 0xb73 @0xa
0xb69…b83 at000b = ╱72╱r╱ // 0xb74 @0xb
0xb69…b83 at000c = ╱7d╱å╱ // 0xb75 @0xc
0xb69…b83 at000d = ╱64╱d╱ // 0xb76 @0xd
0xb69…b83 at000e = ╱74╱t╱ // 0xb77 @0xe
0xb69…b83 at000f = ╱65╱e╱ // 0xb78 @0xf
0xb69…b83 at0010 = ╱20╱…╱ // 0xb79 @0x10
0xb69…b83 at0011 = ╱66╱f╱ // 0xb7a @0x11
0xb69…b83 at0012 = ╱6a╱j╱ // 0xb7b @0x12
0xb69…b83 at0013 = ╱65╱e╱ // 0xb7c @0x13
0xb69…b83 at0014 = ╱72╱r╱ // 0xb7d @0x14
0xb69…b83 at0015 = ╱6e╱n╱ // 0xb7e @0x15
0xb69…b83 at0016 = ╱65╱e╱ // 0xb7f @0x16
0xb69…b83 at0017 = ╱73╱s╱ // 0xb80 @0x17
0xb69…b83 at0018 = ╱22╱"╱ // 0xb81 @0x18
0xb69…b83 at0019 = EOL // 0xb82 @0x19
0xb69…b83 }
0xb83…b89 98e0 2400 PRINT
0xb83…b89 LineComalBin {
0xb83…b89 ptr = 0x98e0 // 0xb83 @0x0
0xb83…b89 lno = 0x0960 // 0xb85 @0x2
0xb83…b89 at0004 = ╱92╱ PRINT ╱ // 0xb87 @0x4
0xb83…b89 at0005 = EOL // 0xb88 @0x5
0xb83…b89 }
0xb89…ba0 98f7 2410 PRINT " 0-stilling af:"
0xb89…ba0 LineComalBin {
0xb89…ba0 ptr = 0x98f7 // 0xb89 @0x0
0xb89…ba0 lno = 0x096a // 0xb8b @0x2
0xb89…ba0 at0004 = ╱92╱ PRINT ╱ // 0xb8d @0x4
0xb89…ba0 at0005 = ╱22╱"╱ // 0xb8e @0x5
0xb89…ba0 at0006 = ╱20╱…╱ // 0xb8f @0x6
0xb89…ba0 at0007 = ╱30╱0╱ // 0xb90 @0x7
0xb89…ba0 at0008 = ╱2d╱-╱ // 0xb91 @0x8
0xb89…ba0 at0009 = ╱73╱s╱ // 0xb92 @0x9
0xb89…ba0 at000a = ╱74╱t╱ // 0xb93 @0xa
0xb89…ba0 at000b = ╱69╱i╱ // 0xb94 @0xb
0xb89…ba0 at000c = ╱6c╱l╱ // 0xb95 @0xc
0xb89…ba0 at000d = ╱6c╱l╱ // 0xb96 @0xd
0xb89…ba0 at000e = ╱69╱i╱ // 0xb97 @0xe
0xb89…ba0 at000f = ╱6e╱n╱ // 0xb98 @0xf
0xb89…ba0 at0010 = ╱67╱g╱ // 0xb99 @0x10
0xb89…ba0 at0011 = ╱20╱…╱ // 0xb9a @0x11
0xb89…ba0 at0012 = ╱61╱a╱ // 0xb9b @0x12
0xb89…ba0 at0013 = ╱66╱f╱ // 0xb9c @0x13
0xb89…ba0 at0014 = ╱3a╱:╱ // 0xb9d @0x14
0xb89…ba0 at0015 = ╱22╱"╱ // 0xb9e @0x15
0xb89…ba0 at0016 = EOL // 0xb9f @0x16
0xb89…ba0 }
0xba0…bbd 9914 2412 PRINT " Samtlige tælleværker"
0xba0…bbd LineComalBin {
0xba0…bbd ptr = 0x9914 // 0xba0 @0x0
0xba0…bbd lno = 0x096c // 0xba2 @0x2
0xba0…bbd at0004 = ╱92╱ PRINT ╱ // 0xba4 @0x4
0xba0…bbd at0005 = ╱22╱"╱ // 0xba5 @0x5
0xba0…bbd at0006 = ╱20╱…╱ // 0xba6 @0x6
0xba0…bbd at0007 = ╱53╱S╱ // 0xba7 @0x7
0xba0…bbd at0008 = ╱61╱a╱ // 0xba8 @0x8
0xba0…bbd at0009 = ╱6d╱m╱ // 0xba9 @0x9
0xba0…bbd at000a = ╱74╱t╱ // 0xbaa @0xa
0xba0…bbd at000b = ╱6c╱l╱ // 0xbab @0xb
0xba0…bbd at000c = ╱69╱i╱ // 0xbac @0xc
0xba0…bbd at000d = ╱67╱g╱ // 0xbad @0xd
0xba0…bbd at000e = ╱65╱e╱ // 0xbae @0xe
0xba0…bbd at000f = ╱20╱…╱ // 0xbaf @0xf
0xba0…bbd at0010 = ╱74╱t╱ // 0xbb0 @0x10
0xba0…bbd at0011 = ╱7b╱æ╱ // 0xbb1 @0x11
0xba0…bbd at0012 = ╱6c╱l╱ // 0xbb2 @0x12
0xba0…bbd at0013 = ╱6c╱l╱ // 0xbb3 @0x13
0xba0…bbd at0014 = ╱65╱e╱ // 0xbb4 @0x14
0xba0…bbd at0015 = ╱76╱v╱ // 0xbb5 @0x15
0xba0…bbd at0016 = ╱7b╱æ╱ // 0xbb6 @0x16
0xba0…bbd at0017 = ╱72╱r╱ // 0xbb7 @0x17
0xba0…bbd at0018 = ╱6b╱k╱ // 0xbb8 @0x18
0xba0…bbd at0019 = ╱65╱e╱ // 0xbb9 @0x19
0xba0…bbd at001a = ╱72╱r╱ // 0xbba @0x1a
0xba0…bbd at001b = ╱22╱"╱ // 0xbbb @0x1b
0xba0…bbd at001c = EOL // 0xbbc @0x1c
0xba0…bbd }
0xbbd…bdb 9932 2414 PRINT " Skattekortoplysninger"
0xbbd…bdb LineComalBin {
0xbbd…bdb ptr = 0x9932 // 0xbbd @0x0
0xbbd…bdb lno = 0x096e // 0xbbf @0x2
0xbbd…bdb at0004 = ╱92╱ PRINT ╱ // 0xbc1 @0x4
0xbbd…bdb at0005 = ╱22╱"╱ // 0xbc2 @0x5
0xbbd…bdb at0006 = ╱20╱…╱ // 0xbc3 @0x6
0xbbd…bdb at0007 = ╱53╱S╱ // 0xbc4 @0x7
0xbbd…bdb at0008 = ╱6b╱k╱ // 0xbc5 @0x8
0xbbd…bdb at0009 = ╱61╱a╱ // 0xbc6 @0x9
0xbbd…bdb at000a = ╱74╱t╱ // 0xbc7 @0xa
0xbbd…bdb at000b = ╱74╱t╱ // 0xbc8 @0xb
0xbbd…bdb at000c = ╱65╱e╱ // 0xbc9 @0xc
0xbbd…bdb at000d = ╱6b╱k╱ // 0xbca @0xd
0xbbd…bdb at000e = ╱6f╱o╱ // 0xbcb @0xe
0xbbd…bdb at000f = ╱72╱r╱ // 0xbcc @0xf
0xbbd…bdb at0010 = ╱74╱t╱ // 0xbcd @0x10
0xbbd…bdb at0011 = ╱6f╱o╱ // 0xbce @0x11
0xbbd…bdb at0012 = ╱70╱p╱ // 0xbcf @0x12
0xbbd…bdb at0013 = ╱6c╱l╱ // 0xbd0 @0x13
0xbbd…bdb at0014 = ╱79╱y╱ // 0xbd1 @0x14
0xbbd…bdb at0015 = ╱73╱s╱ // 0xbd2 @0x15
0xbbd…bdb at0016 = ╱6e╱n╱ // 0xbd3 @0x16
0xbbd…bdb at0017 = ╱69╱i╱ // 0xbd4 @0x17
0xbbd…bdb at0018 = ╱6e╱n╱ // 0xbd5 @0x18
0xbbd…bdb at0019 = ╱67╱g╱ // 0xbd6 @0x19
0xbbd…bdb at001a = ╱65╱e╱ // 0xbd7 @0x1a
0xbbd…bdb at001b = ╱72╱r╱ // 0xbd8 @0x1b
0xbbd…bdb at001c = ╱22╱"╱ // 0xbd9 @0x1c
0xbbd…bdb at001d = EOL // 0xbda @0x1d
0xbbd…bdb }
0xbdb…be1 9938 2420 ENDPROC
0xbdb…be1 LineComalBin {
0xbdb…be1 ptr = 0x9938 // 0xbdb @0x0
0xbdb…be1 lno = 0x0974 // 0xbdd @0x2
0xbdb…be1 at0004 = ╱9f╱ ENDPROC ╱ // 0xbdf @0x4
0xbdb…be1 at0005 = EOL // 0xbe0 @0x5
0xbdb…be1 }
0xbe1…bf8 994f 2600 PROC CONVDATE(NR1,OK1)
0xbe1…bf8 LineComalBin {
0xbe1…bf8 ptr = 0x994f // 0xbe1 @0x0
0xbe1…bf8 lno = 0x0a28 // 0xbe3 @0x2
0xbe1…bf8 at0004 = ╱9e╱ PROC ╱ // 0xbe5 @0x4
0xbe1…bf8 at0005 = ╱43╱C╱ // 0xbe6 @0x5
0xbe1…bf8 at0006 = ╱4f╱O╱ // 0xbe7 @0x6
0xbe1…bf8 at0007 = ╱4e╱N╱ // 0xbe8 @0x7
0xbe1…bf8 at0008 = ╱56╱V╱ // 0xbe9 @0x8
0xbe1…bf8 at0009 = ╱44╱D╱ // 0xbea @0x9
0xbe1…bf8 at000a = ╱41╱A╱ // 0xbeb @0xa
0xbe1…bf8 at000b = ╱54╱T╱ // 0xbec @0xb
0xbe1…bf8 at000c = ╱45╱E╱ // 0xbed @0xc
0xbe1…bf8 at000d = ╱ed╱(╱ // 0xbee @0xd
0xbe1…bf8 at000e = ╱4e╱N╱ // 0xbef @0xe
0xbe1…bf8 at000f = ╱52╱R╱ // 0xbf0 @0xf
0xbe1…bf8 at0010 = ╱31╱1╱ // 0xbf1 @0x10
0xbe1…bf8 at0011 = ╱ec╱,╱ // 0xbf2 @0x11
0xbe1…bf8 at0012 = ╱4f╱O╱ // 0xbf3 @0x12
0xbe1…bf8 at0013 = ╱4b╱K╱ // 0xbf4 @0x13
0xbe1…bf8 at0014 = ╱31╱1╱ // 0xbf5 @0x14
0xbe1…bf8 at0015 = ╱ee╱)╱ // 0xbf6 @0x15
0xbe1…bf8 at0016 = EOL // 0xbf7 @0x16
0xbe1…bf8 }
0xbf8…c0d 9964 2610 OK11=OK1;NR1$=""
0xbf8…c0d LineComalBin {
0xbf8…c0d ptr = 0x9964 // 0xbf8 @0x0
0xbf8…c0d lno = 0x0a32 // 0xbfa @0x2
0xbf8…c0d at0004 = ╱4f╱O╱ // 0xbfc @0x4
0xbf8…c0d at0005 = ╱4b╱K╱ // 0xbfd @0x5
0xbf8…c0d at0006 = ╱31╱1╱ // 0xbfe @0x6
0xbf8…c0d at0007 = ╱31╱1╱ // 0xbff @0x7
0xbf8…c0d at0008 = ╱dc╱=╱ // 0xc00 @0x8
0xbf8…c0d at0009 = ╱4f╱O╱ // 0xc01 @0x9
0xbf8…c0d at000a = ╱4b╱K╱ // 0xc02 @0xa
0xbf8…c0d at000b = ╱31╱1╱ // 0xc03 @0xb
0xbf8…c0d at000c = ╱eb╱;╱ // 0xc04 @0xc
0xbf8…c0d at000d = ╱4e╱N╱ // 0xc05 @0xd
0xbf8…c0d at000e = ╱52╱R╱ // 0xc06 @0xe
0xbf8…c0d at000f = ╱31╱1╱ // 0xc07 @0xf
0xbf8…c0d at0010 = ╱ef╱$╱ // 0xc08 @0x10
0xbf8…c0d at0011 = ╱dc╱=╱ // 0xc09 @0x11
0xbf8…c0d at0012 = ╱22╱"╱ // 0xc0a @0x12
0xbf8…c0d at0013 = ╱22╱"╱ // 0xc0b @0x13
0xbf8…c0d at0014 = EOL // 0xc0c @0x14
0xbf8…c0d }
0xc0d…c20 9977 2620 FOR I=8 TO E STEP -E
0xc0d…c20 LineComalBin {
0xc0d…c20 ptr = 0x9977 // 0xc0d @0x0
0xc0d…c20 lno = 0x0a3c // 0xc0f @0x2
0xc0d…c20 at0004 = ╱83╱ FOR ╱ // 0xc11 @0x4
0xc0d…c20 at0005 = ╱49╱I╱ // 0xc12 @0x5
0xc0d…c20 at0006 = ╱dc╱=╱ // 0xc13 @0x6
0xc0d…c20 at0007 = ╱38╱8╱ // 0xc14 @0x7
0xc0d…c20 at0008 = ╱fe00008004╱ // 0xc15 @0x8
0xc0d…c20 at000d = ╱b7╱ TO ╱ // 0xc1a @0xd
0xc0d…c20 at000e = ╱45╱E╱ // 0xc1b @0xe
0xc0d…c20 at000f = ╱b8╱ STEP ╱ // 0xc1c @0xf
0xc0d…c20 at0010 = ╱e9╱-╱ // 0xc1d @0x10
0xc0d…c20 at0011 = ╱45╱E╱ // 0xc1e @0x11
0xc0d…c20 at0012 = EOL // 0xc1f @0x12
0xc0d…c20 }
0xc20…c2c 9983 2630 IF I MOD V=B THEN
0xc20…c2c LineComalBin {
0xc20…c2c ptr = 0x9983 // 0xc20 @0x0
0xc20…c2c lno = 0x0a46 // 0xc22 @0x2
0xc20…c2c at0004 = ╱9c╱ IF ╱ // 0xc24 @0x4
0xc20…c2c at0005 = ╱49╱I╱ // 0xc25 @0x5
0xc20…c2c at0006 = ╱e8╱ MOD ╱ // 0xc26 @0x6
0xc20…c2c at0007 = ╱56╱V╱ // 0xc27 @0x7
0xc20…c2c at0008 = ╱dc╱=╱ // 0xc28 @0x8
0xc20…c2c at0009 = ╱42╱B╱ // 0xc29 @0x9
0xc20…c2c at000a = ╱b6╱ THEN ╱ // 0xc2a @0xa
0xc20…c2c at000b = EOL // 0xc2b @0xb
0xc20…c2c }
0xc2c…c3c 9993 2640 NR1$(I)="-"
0xc2c…c3c LineComalBin {
0xc2c…c3c ptr = 0x9993 // 0xc2c @0x0
0xc2c…c3c lno = 0x0a50 // 0xc2e @0x2
0xc2c…c3c at0004 = ╱4e╱N╱ // 0xc30 @0x4
0xc2c…c3c at0005 = ╱52╱R╱ // 0xc31 @0x5
0xc2c…c3c at0006 = ╱31╱1╱ // 0xc32 @0x6
0xc2c…c3c at0007 = ╱ef╱$╱ // 0xc33 @0x7
0xc2c…c3c at0008 = ╱ed╱(╱ // 0xc34 @0x8
0xc2c…c3c at0009 = ╱49╱I╱ // 0xc35 @0x9
0xc2c…c3c at000a = ╱ee╱)╱ // 0xc36 @0xa
0xc2c…c3c at000b = ╱dc╱=╱ // 0xc37 @0xb
0xc2c…c3c at000c = ╱22╱"╱ // 0xc38 @0xc
0xc2c…c3c at000d = ╱2d╱-╱ // 0xc39 @0xd
0xc2c…c3c at000e = ╱22╱"╱ // 0xc3a @0xe
0xc2c…c3c at000f = EOL // 0xc3b @0xf
0xc2c…c3c }
0xc3c…c42 9999 2650 ELSE
0xc3c…c42 LineComalBin {
0xc3c…c42 ptr = 0x9999 // 0xc3c @0x0
0xc3c…c42 lno = 0x0a5a // 0xc3e @0x2
0xc3c…c42 at0004 = ╱9a╱ ELSE ╱ // 0xc40 @0x4
0xc3c…c42 at0005 = EOL // 0xc41 @0x5
0xc3c…c42 }
0xc42…c66 99bd 2660 NR1$(I)=CHR(OK11 MOD 10+48)
0xc42…c66 LineComalBin {
0xc42…c66 ptr = 0x99bd // 0xc42 @0x0
0xc42…c66 lno = 0x0a64 // 0xc44 @0x2
0xc42…c66 at0004 = ╱4e╱N╱ // 0xc46 @0x4
0xc42…c66 at0005 = ╱52╱R╱ // 0xc47 @0x5
0xc42…c66 at0006 = ╱31╱1╱ // 0xc48 @0x6
0xc42…c66 at0007 = ╱ef╱$╱ // 0xc49 @0x7
0xc42…c66 at0008 = ╱ed╱(╱ // 0xc4a @0x8
0xc42…c66 at0009 = ╱49╱I╱ // 0xc4b @0x9
0xc42…c66 at000a = ╱ee╱)╱ // 0xc4c @0xa
0xc42…c66 at000b = ╱dc╱=╱ // 0xc4d @0xb
0xc42…c66 at000c = ╱cf╱CHR╱ // 0xc4e @0xc
0xc42…c66 at000d = ╱ed╱(╱ // 0xc4f @0xd
0xc42…c66 at000e = ╱4f╱O╱ // 0xc50 @0xe
0xc42…c66 at000f = ╱4b╱K╱ // 0xc51 @0xf
0xc42…c66 at0010 = ╱31╱1╱ // 0xc52 @0x10
0xc42…c66 at0011 = ╱31╱1╱ // 0xc53 @0x11
0xc42…c66 at0012 = ╱e8╱ MOD ╱ // 0xc54 @0x12
0xc42…c66 at0013 = ╱31╱1╱ // 0xc55 @0x13
0xc42…c66 at0014 = ╱30╱0╱ // 0xc56 @0x14
0xc42…c66 at0015 = ╱fe0000a004╱ // 0xc57 @0x15
0xc42…c66 at001a = ╱e2╱+╱ // 0xc5c @0x1a
0xc42…c66 at001b = ╱34╱4╱ // 0xc5d @0x1b
0xc42…c66 at001c = ╱38╱8╱ // 0xc5e @0x1c
0xc42…c66 at001d = ╱fe0000c006╱ // 0xc5f @0x1d
0xc42…c66 at0022 = ╱ee╱)╱ // 0xc64 @0x22
0xc42…c66 at0023 = EOL // 0xc65 @0x23
0xc42…c66 }
0xc66…c7c 99d3 2670 OK11=OK11 DIV 10
0xc66…c7c LineComalBin {
0xc66…c7c ptr = 0x99d3 // 0xc66 @0x0
0xc66…c7c lno = 0x0a6e // 0xc68 @0x2
0xc66…c7c at0004 = ╱4f╱O╱ // 0xc6a @0x4
0xc66…c7c at0005 = ╱4b╱K╱ // 0xc6b @0x5
0xc66…c7c at0006 = ╱31╱1╱ // 0xc6c @0x6
0xc66…c7c at0007 = ╱31╱1╱ // 0xc6d @0x7
0xc66…c7c at0008 = ╱dc╱=╱ // 0xc6e @0x8
0xc66…c7c at0009 = ╱4f╱O╱ // 0xc6f @0x9
0xc66…c7c at000a = ╱4b╱K╱ // 0xc70 @0xa
0xc66…c7c at000b = ╱31╱1╱ // 0xc71 @0xb
0xc66…c7c at000c = ╱31╱1╱ // 0xc72 @0xc
0xc66…c7c at000d = ╱e7╱ DIV ╱ // 0xc73 @0xd
0xc66…c7c at000e = ╱31╱1╱ // 0xc74 @0xe
0xc66…c7c at000f = ╱30╱0╱ // 0xc75 @0xf
0xc66…c7c at0010 = ╱fe0000a004╱ // 0xc76 @0x10
0xc66…c7c at0015 = EOL // 0xc7b @0x15
0xc66…c7c }
0xc7c…c82 99d9 2680 ENDIF
0xc7c…c82 LineComalBin {
0xc7c…c82 ptr = 0x99d9 // 0xc7c @0x0
0xc7c…c82 lno = 0x0a78 // 0xc7e @0x2
0xc7c…c82 at0004 = ╱9b╱ ENDIF ╱ // 0xc80 @0x4
0xc7c…c82 at0005 = EOL // 0xc81 @0x5
0xc7c…c82 }
0xc82…c89 99e0 2690 NEXT I
0xc82…c89 LineComalBin {
0xc82…c89 ptr = 0x99e0 // 0xc82 @0x0
0xc82…c89 lno = 0x0a82 // 0xc84 @0x2
0xc82…c89 at0004 = ╱84╱ NEXT ╱ // 0xc86 @0x4
0xc82…c89 at0005 = ╱49╱I╱ // 0xc87 @0x5
0xc82…c89 at0006 = EOL // 0xc88 @0x6
0xc82…c89 }
0xc89…c8f 99e6 2700 ENDPROC
0xc89…c8f LineComalBin {
0xc89…c8f ptr = 0x99e6 // 0xc89 @0x0
0xc89…c8f lno = 0x0a8c // 0xc8b @0x2
0xc89…c8f at0004 = ╱9f╱ ENDPROC ╱ // 0xc8d @0x4
0xc89…c8f at0005 = EOL // 0xc8e @0x5
0xc89…c8f }
0xc8f…ca5 99fc 2890 PROC PERVERT(NR1,OK1)
0xc8f…ca5 LineComalBin {
0xc8f…ca5 ptr = 0x99fc // 0xc8f @0x0
0xc8f…ca5 lno = 0x0b4a // 0xc91 @0x2
0xc8f…ca5 at0004 = ╱9e╱ PROC ╱ // 0xc93 @0x4
0xc8f…ca5 at0005 = ╱50╱P╱ // 0xc94 @0x5
0xc8f…ca5 at0006 = ╱45╱E╱ // 0xc95 @0x6
0xc8f…ca5 at0007 = ╱52╱R╱ // 0xc96 @0x7
0xc8f…ca5 at0008 = ╱56╱V╱ // 0xc97 @0x8
0xc8f…ca5 at0009 = ╱45╱E╱ // 0xc98 @0x9
0xc8f…ca5 at000a = ╱52╱R╱ // 0xc99 @0xa
0xc8f…ca5 at000b = ╱54╱T╱ // 0xc9a @0xb
0xc8f…ca5 at000c = ╱ed╱(╱ // 0xc9b @0xc
0xc8f…ca5 at000d = ╱4e╱N╱ // 0xc9c @0xd
0xc8f…ca5 at000e = ╱52╱R╱ // 0xc9d @0xe
0xc8f…ca5 at000f = ╱31╱1╱ // 0xc9e @0xf
0xc8f…ca5 at0010 = ╱ec╱,╱ // 0xc9f @0x10
0xc8f…ca5 at0011 = ╱4f╱O╱ // 0xca0 @0x11
0xc8f…ca5 at0012 = ╱4b╱K╱ // 0xca1 @0x12
0xc8f…ca5 at0013 = ╱31╱1╱ // 0xca2 @0x13
0xc8f…ca5 at0014 = ╱ee╱)╱ // 0xca3 @0x14
0xc8f…ca5 at0015 = EOL // 0xca4 @0x15
0xc8f…ca5 }
0xca5…caf 9a06 2900 OK1=B
0xca5…caf LineComalBin {
0xca5…caf ptr = 0x9a06 // 0xca5 @0x0
0xca5…caf lno = 0x0b54 // 0xca7 @0x2
0xca5…caf at0004 = ╱4f╱O╱ // 0xca9 @0x4
0xca5…caf at0005 = ╱4b╱K╱ // 0xcaa @0x5
0xca5…caf at0006 = ╱31╱1╱ // 0xcab @0x6
0xca5…caf at0007 = ╱dc╱=╱ // 0xcac @0x7
0xca5…caf at0008 = ╱42╱B╱ // 0xcad @0x8
0xca5…caf at0009 = EOL // 0xcae @0x9
0xca5…caf }
0xcaf…cc2 9a19 2910 FOR I=E TO LEN(NR1$)-E
0xcaf…cc2 LineComalBin {
0xcaf…cc2 ptr = 0x9a19 // 0xcaf @0x0
0xcaf…cc2 lno = 0x0b5e // 0xcb1 @0x2
0xcaf…cc2 at0004 = ╱83╱ FOR ╱ // 0xcb3 @0x4
0xcaf…cc2 at0005 = ╱49╱I╱ // 0xcb4 @0x5
0xcaf…cc2 at0006 = ╱dc╱=╱ // 0xcb5 @0x6
0xcaf…cc2 at0007 = ╱45╱E╱ // 0xcb6 @0x7
0xcaf…cc2 at0008 = ╱b7╱ TO ╱ // 0xcb7 @0x8
0xcaf…cc2 at0009 = ╱cc╱LEN╱ // 0xcb8 @0x9
0xcaf…cc2 at000a = ╱ed╱(╱ // 0xcb9 @0xa
0xcaf…cc2 at000b = ╱4e╱N╱ // 0xcba @0xb
0xcaf…cc2 at000c = ╱52╱R╱ // 0xcbb @0xc
0xcaf…cc2 at000d = ╱31╱1╱ // 0xcbc @0xd
0xcaf…cc2 at000e = ╱ef╱$╱ // 0xcbd @0xe
0xcaf…cc2 at000f = ╱ee╱)╱ // 0xcbe @0xf
0xcaf…cc2 at0010 = ╱e3╱-╱ // 0xcbf @0x10
0xcaf…cc2 at0011 = ╱45╱E╱ // 0xcc0 @0x11
0xcaf…cc2 at0012 = EOL // 0xcc1 @0x12
0xcaf…cc2 }
0xcc2…d02 9a59 2920 IF NR1$(I)<>" " AND NR1$(I)<>"," THEN OK1=10*OK1+ORD(NR1$(I))-48
0xcc2…d02 LineComalBin {
0xcc2…d02 ptr = 0x9a59 // 0xcc2 @0x0
0xcc2…d02 lno = 0x0b68 // 0xcc4 @0x2
0xcc2…d02 at0004 = ╱82╱ IF ╱ // 0xcc6 @0x4
0xcc2…d02 at0005 = ╱4e╱N╱ // 0xcc7 @0x5
0xcc2…d02 at0006 = ╱52╱R╱ // 0xcc8 @0x6
0xcc2…d02 at0007 = ╱31╱1╱ // 0xcc9 @0x7
0xcc2…d02 at0008 = ╱ef╱$╱ // 0xcca @0x8
0xcc2…d02 at0009 = ╱ed╱(╱ // 0xccb @0x9
0xcc2…d02 at000a = ╱49╱I╱ // 0xccc @0xa
0xcc2…d02 at000b = ╱ee╱)╱ // 0xccd @0xb
0xcc2…d02 at000c = ╱e1╱<>╱ // 0xcce @0xc
0xcc2…d02 at000d = ╱22╱"╱ // 0xccf @0xd
0xcc2…d02 at000e = ╱20╱…╱ // 0xcd0 @0xe
0xcc2…d02 at000f = ╱22╱"╱ // 0xcd1 @0xf
0xcc2…d02 at0010 = ╱da╱ AND ╱ // 0xcd2 @0x10
0xcc2…d02 at0011 = ╱4e╱N╱ // 0xcd3 @0x11
0xcc2…d02 at0012 = ╱52╱R╱ // 0xcd4 @0x12
0xcc2…d02 at0013 = ╱31╱1╱ // 0xcd5 @0x13
0xcc2…d02 at0014 = ╱ef╱$╱ // 0xcd6 @0x14
0xcc2…d02 at0015 = ╱ed╱(╱ // 0xcd7 @0x15
0xcc2…d02 at0016 = ╱49╱I╱ // 0xcd8 @0x16
0xcc2…d02 at0017 = ╱ee╱)╱ // 0xcd9 @0x17
0xcc2…d02 at0018 = ╱e1╱<>╱ // 0xcda @0x18
0xcc2…d02 at0019 = ╱22╱"╱ // 0xcdb @0x19
0xcc2…d02 at001a = ╱2c╱,╱ // 0xcdc @0x1a
0xcc2…d02 at001b = ╱22╱"╱ // 0xcdd @0x1b
0xcc2…d02 at001c = ╱b6╱ THEN ╱ // 0xcde @0x1c
0xcc2…d02 at001d = ╱4f╱O╱ // 0xcdf @0x1d
0xcc2…d02 at001e = ╱4b╱K╱ // 0xce0 @0x1e
0xcc2…d02 at001f = ╱31╱1╱ // 0xce1 @0x1f
0xcc2…d02 at0020 = ╱dc╱=╱ // 0xce2 @0x20
0xcc2…d02 at0021 = ╱31╱1╱ // 0xce3 @0x21
0xcc2…d02 at0022 = ╱30╱0╱ // 0xce4 @0x22
0xcc2…d02 at0023 = ╱fe0000a004╱ // 0xce5 @0x23
0xcc2…d02 at0028 = ╱e4╱*╱ // 0xcea @0x28
0xcc2…d02 at0029 = ╱4f╱O╱ // 0xceb @0x29
0xcc2…d02 at002a = ╱4b╱K╱ // 0xcec @0x2a
0xcc2…d02 at002b = ╱31╱1╱ // 0xced @0x2b
0xcc2…d02 at002c = ╱e2╱+╱ // 0xcee @0x2c
0xcc2…d02 at002d = ╱cd╱ORD╱ // 0xcef @0x2d
0xcc2…d02 at002e = ╱ed╱(╱ // 0xcf0 @0x2e
0xcc2…d02 at002f = ╱4e╱N╱ // 0xcf1 @0x2f
0xcc2…d02 at0030 = ╱52╱R╱ // 0xcf2 @0x30
0xcc2…d02 at0031 = ╱31╱1╱ // 0xcf3 @0x31
0xcc2…d02 at0032 = ╱ef╱$╱ // 0xcf4 @0x32
0xcc2…d02 at0033 = ╱ed╱(╱ // 0xcf5 @0x33
0xcc2…d02 at0034 = ╱49╱I╱ // 0xcf6 @0x34
0xcc2…d02 at0035 = ╱ee╱)╱ // 0xcf7 @0x35
0xcc2…d02 at0036 = ╱ee╱)╱ // 0xcf8 @0x36
0xcc2…d02 at0037 = ╱e3╱-╱ // 0xcf9 @0x37
0xcc2…d02 at0038 = ╱34╱4╱ // 0xcfa @0x38
0xcc2…d02 at0039 = ╱38╱8╱ // 0xcfb @0x39
0xcc2…d02 at003a = ╱fe0000c006╱ // 0xcfc @0x3a
0xcc2…d02 at003f = EOL // 0xd01 @0x3f
0xcc2…d02 }
0xd02…d09 9a60 2930 NEXT I
0xd02…d09 LineComalBin {
0xd02…d09 ptr = 0x9a60 // 0xd02 @0x0
0xd02…d09 lno = 0x0b72 // 0xd04 @0x2
0xd02…d09 at0004 = ╱84╱ NEXT ╱ // 0xd06 @0x4
0xd02…d09 at0005 = ╱49╱I╱ // 0xd07 @0x5
0xd02…d09 at0006 = EOL // 0xd08 @0x6
0xd02…d09 }
0xd09…d23 9a7a 2940 IF NR1$(I)="-" THEN OK1=-OK1
0xd09…d23 LineComalBin {
0xd09…d23 ptr = 0x9a7a // 0xd09 @0x0
0xd09…d23 lno = 0x0b7c // 0xd0b @0x2
0xd09…d23 at0004 = ╱82╱ IF ╱ // 0xd0d @0x4
0xd09…d23 at0005 = ╱4e╱N╱ // 0xd0e @0x5
0xd09…d23 at0006 = ╱52╱R╱ // 0xd0f @0x6
0xd09…d23 at0007 = ╱31╱1╱ // 0xd10 @0x7
0xd09…d23 at0008 = ╱ef╱$╱ // 0xd11 @0x8
0xd09…d23 at0009 = ╱ed╱(╱ // 0xd12 @0x9
0xd09…d23 at000a = ╱49╱I╱ // 0xd13 @0xa
0xd09…d23 at000b = ╱ee╱)╱ // 0xd14 @0xb
0xd09…d23 at000c = ╱dc╱=╱ // 0xd15 @0xc
0xd09…d23 at000d = ╱22╱"╱ // 0xd16 @0xd
0xd09…d23 at000e = ╱2d╱-╱ // 0xd17 @0xe
0xd09…d23 at000f = ╱22╱"╱ // 0xd18 @0xf
0xd09…d23 at0010 = ╱b6╱ THEN ╱ // 0xd19 @0x10
0xd09…d23 at0011 = ╱4f╱O╱ // 0xd1a @0x11
0xd09…d23 at0012 = ╱4b╱K╱ // 0xd1b @0x12
0xd09…d23 at0013 = ╱31╱1╱ // 0xd1c @0x13
0xd09…d23 at0014 = ╱dc╱=╱ // 0xd1d @0x14
0xd09…d23 at0015 = ╱e9╱-╱ // 0xd1e @0x15
0xd09…d23 at0016 = ╱4f╱O╱ // 0xd1f @0x16
0xd09…d23 at0017 = ╱4b╱K╱ // 0xd20 @0x17
0xd09…d23 at0018 = ╱31╱1╱ // 0xd21 @0x18
0xd09…d23 at0019 = EOL // 0xd22 @0x19
0xd09…d23 }
0xd23…d38 9a8f 2950 OK1=OK1/100
0xd23…d38 LineComalBin {
0xd23…d38 ptr = 0x9a8f // 0xd23 @0x0
0xd23…d38 lno = 0x0b86 // 0xd25 @0x2
0xd23…d38 at0004 = ╱4f╱O╱ // 0xd27 @0x4
0xd23…d38 at0005 = ╱4b╱K╱ // 0xd28 @0x5
0xd23…d38 at0006 = ╱31╱1╱ // 0xd29 @0x6
0xd23…d38 at0007 = ╱dc╱=╱ // 0xd2a @0x7
0xd23…d38 at0008 = ╱4f╱O╱ // 0xd2b @0x8
0xd23…d38 at0009 = ╱4b╱K╱ // 0xd2c @0x9
0xd23…d38 at000a = ╱31╱1╱ // 0xd2d @0xa
0xd23…d38 at000b = ╱e5╱/╱ // 0xd2e @0xb
0xd23…d38 at000c = ╱31╱1╱ // 0xd2f @0xc
0xd23…d38 at000d = ╱30╱0╱ // 0xd30 @0xd
0xd23…d38 at000e = ╱30╱0╱ // 0xd31 @0xe
0xd23…d38 at000f = ╱fe0000c807╱ // 0xd32 @0xf
0xd23…d38 at0014 = EOL // 0xd37 @0x14
0xd23…d38 }
0xd38…d3e 9a95 2960 ENDPROC
0xd38…d3e LineComalBin {
0xd38…d3e ptr = 0x9a95 // 0xd38 @0x0
0xd38…d3e lno = 0x0b90 // 0xd3a @0x2
0xd38…d3e at0004 = ╱9f╱ ENDPROC ╱ // 0xd3c @0x4
0xd38…d3e at0005 = EOL // 0xd3d @0x5
0xd38…d3e }
0xd3e…d59 9ab0 8291 MF1$="P641210:LØNJOUR"
0xd3e…d59 LineComalBin {
0xd3e…d59 ptr = 0x9ab0 // 0xd3e @0x0
0xd3e…d59 lno = 0x2063 // 0xd40 @0x2
0xd3e…d59 at0004 = ╱4d╱M╱ // 0xd42 @0x4
0xd3e…d59 at0005 = ╱46╱F╱ // 0xd43 @0x5
0xd3e…d59 at0006 = ╱31╱1╱ // 0xd44 @0x6
0xd3e…d59 at0007 = ╱ef╱$╱ // 0xd45 @0x7
0xd3e…d59 at0008 = ╱dc╱=╱ // 0xd46 @0x8
0xd3e…d59 at0009 = ╱22╱"╱ // 0xd47 @0x9
0xd3e…d59 at000a = ╱50╱P╱ // 0xd48 @0xa
0xd3e…d59 at000b = ╱36╱6╱ // 0xd49 @0xb
0xd3e…d59 at000c = ╱34╱4╱ // 0xd4a @0xc
0xd3e…d59 at000d = ╱31╱1╱ // 0xd4b @0xd
0xd3e…d59 at000e = ╱32╱2╱ // 0xd4c @0xe
0xd3e…d59 at000f = ╱31╱1╱ // 0xd4d @0xf
0xd3e…d59 at0010 = ╱30╱0╱ // 0xd4e @0x10
0xd3e…d59 at0011 = ╱3a╱:╱ // 0xd4f @0x11
0xd3e…d59 at0012 = ╱4c╱L╱ // 0xd50 @0x12
0xd3e…d59 at0013 = ╱5c╱Ø╱ // 0xd51 @0x13
0xd3e…d59 at0014 = ╱4e╱N╱ // 0xd52 @0x14
0xd3e…d59 at0015 = ╱4a╱J╱ // 0xd53 @0x15
0xd3e…d59 at0016 = ╱4f╱O╱ // 0xd54 @0x16
0xd3e…d59 at0017 = ╱55╱U╱ // 0xd55 @0x17
0xd3e…d59 at0018 = ╱52╱R╱ // 0xd56 @0x18
0xd3e…d59 at0019 = ╱22╱"╱ // 0xd57 @0x19
0xd3e…d59 at001a = EOL // 0xd58 @0x1a
0xd3e…d59 }
0xd59…d65 9abc 8292 OPEN MF1$,W
0xd59…d65 LineComalBin {
0xd59…d65 ptr = 0x9abc // 0xd59 @0x0
0xd59…d65 lno = 0x2064 // 0xd5b @0x2
0xd59…d65 at0004 = ╱a7╱ OPEN ╱ // 0xd5d @0x4
0xd59…d65 at0005 = ╱4d╱M╱ // 0xd5e @0x5
0xd59…d65 at0006 = ╱46╱F╱ // 0xd5f @0x6
0xd59…d65 at0007 = ╱31╱1╱ // 0xd60 @0x7
0xd59…d65 at0008 = ╱ef╱$╱ // 0xd61 @0x8
0xd59…d65 at0009 = ╱ec╱,╱ // 0xd62 @0x9
0xd59…d65 at000a = ╱57╱W╱ // 0xd63 @0xa
0xd59…d65 at000b = EOL // 0xd64 @0xb
0xd59…d65 }
0xd65…d74 9acb 8300 EXEC SKRIVPICT
0xd65…d74 LineComalBin {
0xd65…d74 ptr = 0x9acb // 0xd65 @0x0
0xd65…d74 lno = 0x206c // 0xd67 @0x2
0xd65…d74 at0004 = ╱9d╱ EXEC ╱ // 0xd69 @0x4
0xd65…d74 at0005 = ╱53╱S╱ // 0xd6a @0x5
0xd65…d74 at0006 = ╱4b╱K╱ // 0xd6b @0x6
0xd65…d74 at0007 = ╱52╱R╱ // 0xd6c @0x7
0xd65…d74 at0008 = ╱49╱I╱ // 0xd6d @0x8
0xd65…d74 at0009 = ╱56╱V╱ // 0xd6e @0x9
0xd65…d74 at000a = ╱50╱P╱ // 0xd6f @0xa
0xd65…d74 at000b = ╱49╱I╱ // 0xd70 @0xb
0xd65…d74 at000c = ╱43╱C╱ // 0xd71 @0xc
0xd65…d74 at000d = ╱54╱T╱ // 0xd72 @0xd
0xd65…d74 at000e = EOL // 0xd73 @0xe
0xd65…d74 }
0xd74…d84 9adb 8310 FOR J=E TO 8
0xd74…d84 LineComalBin {
0xd74…d84 ptr = 0x9adb // 0xd74 @0x0
0xd74…d84 lno = 0x2076 // 0xd76 @0x2
0xd74…d84 at0004 = ╱83╱ FOR ╱ // 0xd78 @0x4
0xd74…d84 at0005 = ╱4a╱J╱ // 0xd79 @0x5
0xd74…d84 at0006 = ╱dc╱=╱ // 0xd7a @0x6
0xd74…d84 at0007 = ╱45╱E╱ // 0xd7b @0x7
0xd74…d84 at0008 = ╱b7╱ TO ╱ // 0xd7c @0x8
0xd74…d84 at0009 = ╱38╱8╱ // 0xd7d @0x9
0xd74…d84 at000a = ╱fe00008004╱ // 0xd7e @0xa
0xd74…d84 at000f = EOL // 0xd83 @0xf
0xd74…d84 }
0xd84…d92 9ae9 8330 EXEC INOPL(J)
0xd84…d92 LineComalBin {
0xd84…d92 ptr = 0x9ae9 // 0xd84 @0x0
0xd84…d92 lno = 0x208a // 0xd86 @0x2
0xd84…d92 at0004 = ╱9d╱ EXEC ╱ // 0xd88 @0x4
0xd84…d92 at0005 = ╱49╱I╱ // 0xd89 @0x5
0xd84…d92 at0006 = ╱4e╱N╱ // 0xd8a @0x6
0xd84…d92 at0007 = ╱4f╱O╱ // 0xd8b @0x7
0xd84…d92 at0008 = ╱50╱P╱ // 0xd8c @0x8
0xd84…d92 at0009 = ╱4c╱L╱ // 0xd8d @0x9
0xd84…d92 at000a = ╱ed╱(╱ // 0xd8e @0xa
0xd84…d92 at000b = ╱4a╱J╱ // 0xd8f @0xb
0xd84…d92 at000c = ╱ee╱)╱ // 0xd90 @0xc
0xd84…d92 at000d = EOL // 0xd91 @0xd
0xd84…d92 }
0xd92…d99 9af0 8340 NEXT J
0xd92…d99 LineComalBin {
0xd92…d99 ptr = 0x9af0 // 0xd92 @0x0
0xd92…d99 lno = 0x2094 // 0xd94 @0x2
0xd92…d99 at0004 = ╱84╱ NEXT ╱ // 0xd96 @0x4
0xd92…d99 at0005 = ╱4a╱J╱ // 0xd97 @0x5
0xd92…d99 at0006 = EOL // 0xd98 @0x6
0xd92…d99 }
0xd99…da4 9afb 8370 L$=BL$
0xd99…da4 LineComalBin {
0xd99…da4 ptr = 0x9afb // 0xd99 @0x0
0xd99…da4 lno = 0x20b2 // 0xd9b @0x2
0xd99…da4 at0004 = ╱4c╱L╱ // 0xd9d @0x4
0xd99…da4 at0005 = ╱ef╱$╱ // 0xd9e @0x5
0xd99…da4 at0006 = ╱dc╱=╱ // 0xd9f @0x6
0xd99…da4 at0007 = ╱42╱B╱ // 0xda0 @0x7
0xd99…da4 at0008 = ╱4c╱L╱ // 0xda1 @0x8
0xd99…da4 at0009 = ╱ef╱$╱ // 0xda2 @0x9
0xd99…da4 at000a = EOL // 0xda3 @0xa
0xd99…da4 }
0xda4…dce 9b25 8372 PUT MF1$:STARTPER$,SLUTPER$,LP$,ORK$,MFD
0xda4…dce LineComalBin {
0xda4…dce ptr = 0x9b25 // 0xda4 @0x0
0xda4…dce lno = 0x20b4 // 0xda6 @0x2
0xda4…dce at0004 = ╱aa╱ PUT ╱ // 0xda8 @0x4
0xda4…dce at0005 = ╱4d╱M╱ // 0xda9 @0x5
0xda4…dce at0006 = ╱46╱F╱ // 0xdaa @0x6
0xda4…dce at0007 = ╱31╱1╱ // 0xdab @0x7
0xda4…dce at0008 = ╱ef╱$╱ // 0xdac @0x8
0xda4…dce at0009 = ╱f0╱:╱ // 0xdad @0x9
0xda4…dce at000a = ╱53╱S╱ // 0xdae @0xa
0xda4…dce at000b = ╱54╱T╱ // 0xdaf @0xb
0xda4…dce at000c = ╱41╱A╱ // 0xdb0 @0xc
0xda4…dce at000d = ╱52╱R╱ // 0xdb1 @0xd
0xda4…dce at000e = ╱54╱T╱ // 0xdb2 @0xe
0xda4…dce at000f = ╱50╱P╱ // 0xdb3 @0xf
0xda4…dce at0010 = ╱45╱E╱ // 0xdb4 @0x10
0xda4…dce at0011 = ╱52╱R╱ // 0xdb5 @0x11
0xda4…dce at0012 = ╱ef╱$╱ // 0xdb6 @0x12
0xda4…dce at0013 = ╱ec╱,╱ // 0xdb7 @0x13
0xda4…dce at0014 = ╱53╱S╱ // 0xdb8 @0x14
0xda4…dce at0015 = ╱4c╱L╱ // 0xdb9 @0x15
0xda4…dce at0016 = ╱55╱U╱ // 0xdba @0x16
0xda4…dce at0017 = ╱54╱T╱ // 0xdbb @0x17
0xda4…dce at0018 = ╱50╱P╱ // 0xdbc @0x18
0xda4…dce at0019 = ╱45╱E╱ // 0xdbd @0x19
0xda4…dce at001a = ╱52╱R╱ // 0xdbe @0x1a
0xda4…dce at001b = ╱ef╱$╱ // 0xdbf @0x1b
0xda4…dce at001c = ╱ec╱,╱ // 0xdc0 @0x1c
0xda4…dce at001d = ╱4c╱L╱ // 0xdc1 @0x1d
0xda4…dce at001e = ╱50╱P╱ // 0xdc2 @0x1e
0xda4…dce at001f = ╱ef╱$╱ // 0xdc3 @0x1f
0xda4…dce at0020 = ╱ec╱,╱ // 0xdc4 @0x20
0xda4…dce at0021 = ╱4f╱O╱ // 0xdc5 @0x21
0xda4…dce at0022 = ╱52╱R╱ // 0xdc6 @0x22
0xda4…dce at0023 = ╱4b╱K╱ // 0xdc7 @0x23
0xda4…dce at0024 = ╱ef╱$╱ // 0xdc8 @0x24
0xda4…dce at0025 = ╱ec╱,╱ // 0xdc9 @0x25
0xda4…dce at0026 = ╱4d╱M╱ // 0xdca @0x26
0xda4…dce at0027 = ╱46╱F╱ // 0xdcb @0x27
0xda4…dce at0028 = ╱44╱D╱ // 0xdcc @0x28
0xda4…dce at0029 = EOL // 0xdcd @0x29
0xda4…dce }
0xdce…dd4 9b2b 8870 CLOSE
0xdce…dd4 LineComalBin {
0xdce…dd4 ptr = 0x9b2b // 0xdce @0x0
0xdce…dd4 lno = 0x22a6 // 0xdd0 @0x2
0xdce…dd4 at0004 = ╱a8╱ CLOSE ╱ // 0xdd2 @0x4
0xdce…dd4 at0005 = EOL // 0xdd3 @0x5
0xdce…dd4 }
0xdd4…de3 9b3a 8875 IF ORK$<>"0" THEN
0xdd4…de3 LineComalBin {
0xdd4…de3 ptr = 0x9b3a // 0xdd4 @0x0
0xdd4…de3 lno = 0x22ab // 0xdd6 @0x2
0xdd4…de3 at0004 = ╱9c╱ IF ╱ // 0xdd8 @0x4
0xdd4…de3 at0005 = ╱4f╱O╱ // 0xdd9 @0x5
0xdd4…de3 at0006 = ╱52╱R╱ // 0xdda @0x6
0xdd4…de3 at0007 = ╱4b╱K╱ // 0xddb @0x7
0xdd4…de3 at0008 = ╱ef╱$╱ // 0xddc @0x8
0xdd4…de3 at0009 = ╱e1╱<>╱ // 0xddd @0x9
0xdd4…de3 at000a = ╱22╱"╱ // 0xdde @0xa
0xdd4…de3 at000b = ╱30╱0╱ // 0xddf @0xb
0xdd4…de3 at000c = ╱22╱"╱ // 0xde0 @0xc
0xdd4…de3 at000d = ╱b6╱ THEN ╱ // 0xde1 @0xd
0xdd4…de3 at000e = EOL // 0xde2 @0xe
0xdd4…de3 }
0xde3…dfb 9b52 8880 CHAIN "P641210:AFSLJOUR"
0xde3…dfb LineComalBin {
0xde3…dfb ptr = 0x9b52 // 0xde3 @0x0
0xde3…dfb lno = 0x22b0 // 0xde5 @0x2
0xde3…dfb at0004 = ╱ac╱ CHAIN ╱ // 0xde7 @0x4
0xde3…dfb at0005 = ╱22╱"╱ // 0xde8 @0x5
0xde3…dfb at0006 = ╱50╱P╱ // 0xde9 @0x6
0xde3…dfb at0007 = ╱36╱6╱ // 0xdea @0x7
0xde3…dfb at0008 = ╱34╱4╱ // 0xdeb @0x8
0xde3…dfb at0009 = ╱31╱1╱ // 0xdec @0x9
0xde3…dfb at000a = ╱32╱2╱ // 0xded @0xa
0xde3…dfb at000b = ╱31╱1╱ // 0xdee @0xb
0xde3…dfb at000c = ╱30╱0╱ // 0xdef @0xc
0xde3…dfb at000d = ╱3a╱:╱ // 0xdf0 @0xd
0xde3…dfb at000e = ╱41╱A╱ // 0xdf1 @0xe
0xde3…dfb at000f = ╱46╱F╱ // 0xdf2 @0xf
0xde3…dfb at0010 = ╱53╱S╱ // 0xdf3 @0x10
0xde3…dfb at0011 = ╱4c╱L╱ // 0xdf4 @0x11
0xde3…dfb at0012 = ╱4a╱J╱ // 0xdf5 @0x12
0xde3…dfb at0013 = ╱4f╱O╱ // 0xdf6 @0x13
0xde3…dfb at0014 = ╱55╱U╱ // 0xdf7 @0x14
0xde3…dfb at0015 = ╱52╱R╱ // 0xdf8 @0x15
0xde3…dfb at0016 = ╱22╱"╱ // 0xdf9 @0x16
0xde3…dfb at0017 = EOL // 0xdfa @0x17
0xde3…dfb }
0xdfb…e01 9b58 8890 ELSE
0xdfb…e01 LineComalBin {
0xdfb…e01 ptr = 0x9b58 // 0xdfb @0x0
0xdfb…e01 lno = 0x22ba // 0xdfd @0x2
0xdfb…e01 at0004 = ╱9a╱ ELSE ╱ // 0xdff @0x4
0xdfb…e01 at0005 = EOL // 0xe00 @0x5
0xdfb…e01 }
0xe01…e17 9b6e 8900 CHAIN "P641210:STARTB"
0xe01…e17 LineComalBin {
0xe01…e17 ptr = 0x9b6e // 0xe01 @0x0
0xe01…e17 lno = 0x22c4 // 0xe03 @0x2
0xe01…e17 at0004 = ╱ac╱ CHAIN ╱ // 0xe05 @0x4
0xe01…e17 at0005 = ╱22╱"╱ // 0xe06 @0x5
0xe01…e17 at0006 = ╱50╱P╱ // 0xe07 @0x6
0xe01…e17 at0007 = ╱36╱6╱ // 0xe08 @0x7
0xe01…e17 at0008 = ╱34╱4╱ // 0xe09 @0x8
0xe01…e17 at0009 = ╱31╱1╱ // 0xe0a @0x9
0xe01…e17 at000a = ╱32╱2╱ // 0xe0b @0xa
0xe01…e17 at000b = ╱31╱1╱ // 0xe0c @0xb
0xe01…e17 at000c = ╱30╱0╱ // 0xe0d @0xc
0xe01…e17 at000d = ╱3a╱:╱ // 0xe0e @0xd
0xe01…e17 at000e = ╱53╱S╱ // 0xe0f @0xe
0xe01…e17 at000f = ╱54╱T╱ // 0xe10 @0xf
0xe01…e17 at0010 = ╱41╱A╱ // 0xe11 @0x10
0xe01…e17 at0011 = ╱52╱R╱ // 0xe12 @0x11
0xe01…e17 at0012 = ╱54╱T╱ // 0xe13 @0x12
0xe01…e17 at0013 = ╱42╱B╱ // 0xe14 @0x13
0xe01…e17 at0014 = ╱22╱"╱ // 0xe15 @0x14
0xe01…e17 at0015 = EOL // 0xe16 @0x15
0xe01…e17 }
0xe17…e1d 0000 8910 ENDIF
0xe17…e1d LineComalBin {
0xe17…e1d ptr = 0x0000 // 0xe17 @0x0
0xe17…e1d lno = 0x22ce // 0xe19 @0x2
0xe17…e1d at0004 = ╱9b╱ ENDIF ╱ // 0xe1b @0x4
0xe17…e1d at0005 = EOL // 0xe1c @0x5
0xe17…e1d }
0xe1d…e20 57 8d 64 ┆W d┆
0xe20…e23 00 42 dc ┆ B ┆
0xe23…e43 (47,) 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 00 c0 ┆0 E 1 G 2 V 3 ┆
0xe43…e4e 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ W 9 ┆
0xe4e…e54 (48,) 57 8d 74 9b 10 00 ┆W t ┆