|
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: 6206 (0x183e)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »FJOUR.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »FJOUR.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »FJOUR.B«
0090 REM FJOUR 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E) 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25) 0120 DIM DEBTLF$(W),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8),DV$(10) 0130 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12) 0140 DIM KOD1$(E),KOD$(E),TAL4$(14),SVAR1$(E),VARTEKST$(25) 0150 DIM RES$(15),OP1$(12),OP2$(12),TOTAL$(12),BELØB$(12) 0160 DIM TE$(30),TEKO$(E),F$(E),TK1$(E),TAH$(12),BLB2$(12) 0170 DIM K4$(17),K5$(17),K6$(17),K7$(17),T1(W),T2(W) 0180 PROC CALC(AR3,B1,B2,ES) 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 0200 CALL "P641210:REGN" 0210 IF AR3<6 THEN 0220 IF FLAG THEN STOP 0230 ENDIF 0240 ES$=RES$ 0250 ENDPROC 0260 PROC FEJL(NR1,NR2,NR3) 0270 IF STATUS(NR3$)<>B THEN 0280 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0290 STOP 0300 ENDIF 0310 ENDPROC 0320 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0330 BLB2$=BLB1$ 0340 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 0350 IF TEGN=B THEN UBLB1$=UBLB1$(E:13) 0360 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0370 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 0380 PRINT UBLB1$ 0390 ENDPROC 0400 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 0410 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 0420 REPEAT 0430 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT 0440 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6))) 0450 IF PIL6<E THEN PIL6=E 0460 IF PIL6>MANT3 THEN PIL6=MANT3 0470 UNTIL PIL1=B 0480 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E) 0490 PIL6=MANT4+PIL6 0500 GET L8$,PIL6:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G) 0510 EXEC FEJL(E,E,L8$) 0520 FOR PIL6=E TO 4 0530 IF NØGL5=Q(PIL6,E) THEN EXIT 0540 NEXT PIL6 0550 IF PIL6<>5 THEN CEKS=B 0560 ENDPROC 0570 PROC INDTAB1(Z,MANT5,L7) 0580 PIL1=MANT5 DIV 32 0590 FOR I=E TO PIL1 0600 H=(I-E)*8+E 0610 GET L7$,I:Z(H),Z(H+E),Z(H+G),Z(H+V),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 0620 EXEC FEJL(G,E,L7$) 0630 NEXT I 0640 ENDPROC 0650 PROC HENTDPOST 0660 S=DTAB(DPIL3,G) 0670 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 0680 EXEC FEJL(V,E,K3$) 0690 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$ 0700 EXEC FEJL(V,G,K3$) 0710 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 0720 EXEC FEJL(V,V,K3$) 0730 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 0740 EXEC FEJL(V,4,K3$) 0750 ENDPROC 0760 PROC DATOU(DA) 0770 PRINT TAB(5); 0780 PRINT USING "###.##":(DA MOD 10000)/100; 0790 PRINT TAB(G); 0800 PRINT USING "###.#":(DA DIV 1000)/10; 0810 ENDPROC 0820 K1$="P641220:SYSTEM1" 0830 OPEN K1$,R 0840 EXEC FEJL(W,E,K1$) 0850 GET K1$,E:MFANTAL,MDANTAL 0860 EXEC FEJL(W,G,K1$) 0870 GET K1$,10:N$ 0880 EXEC FEJL(W,V,K1$) 0890 GET K1$,12:K2$ 0900 EXEC FEJL(W,4,K1$) 0910 GET K1$,16:K3$ 0920 EXEC FEJL(W,5,K1$) 0930 GET K1$,28:K4$ 0940 EXEC FEJL(W,6,K1$) 0950 GET K1$,30:K5$ 0960 EXEC FEJL(W,7,K1$) 0970 GET K1$,31:K6$ 0980 EXEC FEJL(W,8,K1$) 0990 GET K1$,36:K7$ 1000 EXEC FEJL(W,W,K1$) 1010 CLOSE K1$ 1020 EXEC FEJL(W,10,K1$) 1030 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 1040 DIM DTAB1(MDANTAL DIV 4),DTAB(4,G) 1050 OPEN K2$,R 1060 EXEC FEJL(W,11,K2$) 1070 OPEN K3$,R 1080 EXEC FEJL(W,12,K3$) 1090 EXEC INDTAB1(DTAB1,MDANTAL,K2$) 1100 OPEN K7$,R 1110 EXEC FEJL(W,13,K7$) 1120 GET K7$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 1130 EXEC FEJL(W,14,K7$) 1140 GET K7$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 1150 EXEC FEJL(W,15,K7$) 1160 GET K7$,20:DV$ 1170 EXEC FEJL(W,20,K7$) 1180 CLOSE K7$ 1190 EXEC FEJL(W,16,K7$) 1200 JOURSIDE=T1(V);DATO=T1(7);FAKPOSTNR=T2(V);AVKONTI=T2(7);FJPOST=T2(8) 1210 DIM VJOURARR(AVKONTI),VBJOUARR$(AVKONTI,12),VUJOURARR(AVKONTI) 1220 CLEAR 1230 TOTAL$="0+";TAH$="0+" 1240 OPEN K5$,R 1250 EXEC FEJL(G,E,K5$) 1260 CURSOR 20,10 1270 PRINT "Monter papir til udskrift af fakturajournal." 1280 CURSOR 20,12 1290 INPUT "Tast RETURN.",SVAR1$ 1300 TE$="Der udskrives fakturajournal." 1310 EXEC BIL 1320 OUTPUT P 1330 PROC HOVED 1335 IF I>E THEN 1336 PRINT " " 1337 PRINT " " 1338 PRINT " " 1339 ENDIF 1340 PRINT TAB(67);DV$;" " 1350 PRINT TAB(27);CHR(14);"Fakturajournal";CHR(15);TAB(52);"Side:";TAB(57); 1360 PRINT USING "#####":JOURSIDE 1370 JOURSIDE=JOURSIDE+E 1380 PRINT " " 1390 PRINT " " 1400 PRINT TAB(5);"Dato Bilag Tekst";TAB(52);"Konto";TAB(70);"Beløb" 1410 PRINT " " 1420 ENDPROC 1430 FOR I=E TO FJPOST 1435 IF I MOD 39=E THEN EXEC HOVED 1440 GET K5$,I:KUNDENR,BELØB$,BILAGSNR,FDATO,ORDRENR 1450 EXEC FEJL(G,G,K5$) 1460 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$) 1470 IF CEKS=B THEN EXEC HENTDPOST 1480 EXEC DATOU(FDATO) 1490 PRINT TAB(12); 1500 PRINT USING "#######":BILAGSNR; 1510 PRINT TAB(23);DEBNAVN$;TAB(50); 1520 PRINT USING "####### #######":KUNDENR,ORDRENR; 1530 PRINT TAB(65); 1540 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$) 1550 EXEC TUD(BELØB$,TAL4$,E,B) 1560 OPEN K4$,W 1570 EXEC FEJL(G,V,K4$) 1580 IF BELØB$(12)="+" THEN 1590 TKODE=21 1600 ELSE 1610 TKODE=22 1620 ENDIF 1630 FAKPOSTNR=FAKPOSTNR+E;TEKO$=CHR(48+TKODE);TK1$="3" 1640 PUT K4$,FAKPOSTNR:KUNDENR,FDATO,BILAGSNR,TEKO$,BELØB$,TK1$,1000000 1650 EXEC FEJL(G,4,K4$) 1660 CLOSE K4$ 1670 EXEC FEJL(G,5,K4$) 1680 NEXT I 1690 PRINT TAB(26);"TOTAL";TAB(64); 1700 EXEC TUD(TOTAL$,TAL4$,E,B) 1705 IF FJPOST<40 THEN 1710 FOR I=E TO 48-FJPOST-7 1720 PRINT " " 1730 NEXT I 1731 ELSE 1732 FOR I=E TO 80-FJPOST 1733 PRINT " " 1734 NEXT I 1735 ENDIF 1740 CLOSE K5$ 1750 EXEC FEJL(G,6,K5$) 1760 FJPOST=B 1770 OPEN K6$,R 1780 EXEC FEJL(G,7,K6$) 1790 FOR I=E TO AVKONTI 1800 GET K6$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I) 1810 EXEC FEJL(G,8,K6$) 1820 NEXT I 1830 CLOSE K6$ 1840 EXEC FEJL(G,W,K6$) 1850 TEKO$=CHR(75) 1860 OUTPUT T 1870 OPEN K4$,W 1880 EXEC FEJL(G,10,K4$) 1890 FOR I=E TO AVKONTI 1900 FAKPOSTNR=FAKPOSTNR+E;TK1$="3";ENR=VUJOURARR(I);DO=DATO 1910 PUT K4$,FAKPOSTNR:VJOURARR(I),DO,JOURSIDE-E,TEKO$,VBJOUARR$(I),TK1$,ENR 1920 EXEC FEJL(G,11,K4$) 1930 NEXT I 1940 CLOSE K4$ 1950 EXEC FEJL(G,12,K4$) 1960 TE$=" Dagsafslutning. ";AVKONTI=B 1970 EXEC BIL 1980 T1(3)=JOURSIDE;T2(V)=FAKPOSTNR;T2(7)=AVKONTI;T2(8)=FJPOST 1990 OPEN K7$,W 2000 EXEC FEJL(W,17,K7$) 2010 PUT K7$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 2020 EXEC FEJL(W,18,K7$) 2030 PUT K7$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 2040 EXEC FEJL(W,19,K7$) 2050 CLOSE K7$ 2060 EXEC FEJL(W,20,K7$) 2070 CLOSE 2080 CHAIN "P641210:BJ" 2090 END 2100 PROC BIL 2110 CLEAR 2120 CURSOR 20,W 2130 PRINT "*****************************************" 2140 CURSOR 20,10 2150 PRINT "*";TAB(41);"*" 2160 PRINT TAB(20);"*";TAB(26);TE$;TAB(60);"*" 2170 PRINT TAB(20);"*";TAB(60);"*" 2180 PRINT TAB(20);"*****************************************" 2190 ENDPROC
0x0000…000b (0,) a55e 0090 REM FJOUR
0x0000…000b LineComalBin {
0x0000…000b ptr = 0xa55e // 0x0 @0x0
0x0000…000b lno = 0x005a // 0x2 @0x2
0x0000…000b at0004 = ╱89╱ REM ╱ // 0x4 @0x4
0x0000…000b at0005 = ╱46╱F╱ // 0x5 @0x5
0x0000…000b at0006 = ╱4a╱J╱ // 0x6 @0x6
0x0000…000b at0007 = ╱4f╱O╱ // 0x7 @0x7
0x0000…000b at0008 = ╱55╱U╱ // 0x8 @0x8
0x0000…000b at0009 = ╱52╱R╱ // 0x9 @0x9
0x0000…000b at000a = EOL // 0xa @0xa
0x0000…000b }
0x000b…0071 8dc8 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(E)
0x000b…0071 LineComalBin {
0x000b…0071 ptr = 0x8dc8 // 0xb @0x0
0x000b…0071 lno = 0x0064 // 0xd @0x2
0x000b…0071 at0004 = ╱87╱ DIM ╱ // 0xf @0x4
0x000b…0071 at0005 = ╱4b╱K╱ // 0x10 @0x5
0x000b…0071 at0006 = ╱31╱1╱ // 0x11 @0x6
0x000b…0071 at0007 = ╱ef╱$╱ // 0x12 @0x7
0x000b…0071 at0008 = ╱ed╱(╱ // 0x13 @0x8
0x000b…0071 at0009 = ╱31╱1╱ // 0x14 @0x9
0x000b…0071 at000a = ╱37╱7╱ // 0x15 @0xa
0x000b…0071 at000b = ╱fe00008805╱ // 0x16 @0xb
0x000b…0071 at0010 = ╱ee╱)╱ // 0x1b @0x10
0x000b…0071 at0011 = ╱ec╱,╱ // 0x1c @0x11
0x000b…0071 at0012 = ╱4e╱N╱ // 0x1d @0x12
0x000b…0071 at0013 = ╱ef╱$╱ // 0x1e @0x13
0x000b…0071 at0014 = ╱ed╱(╱ // 0x1f @0x14
0x000b…0071 at0015 = ╱36╱6╱ // 0x20 @0x15
0x000b…0071 at0016 = ╱fe0000c003╱ // 0x21 @0x16
0x000b…0071 at001b = ╱ee╱)╱ // 0x26 @0x1b
0x000b…0071 at001c = ╱ec╱,╱ // 0x27 @0x1c
0x000b…0071 at001d = ╱4b╱K╱ // 0x28 @0x1d
0x000b…0071 at001e = ╱32╱2╱ // 0x29 @0x1e
0x000b…0071 at001f = ╱ef╱$╱ // 0x2a @0x1f
0x000b…0071 at0020 = ╱ed╱(╱ // 0x2b @0x20
0x000b…0071 at0021 = ╱31╱1╱ // 0x2c @0x21
0x000b…0071 at0022 = ╱37╱7╱ // 0x2d @0x22
0x000b…0071 at0023 = ╱fe00008805╱ // 0x2e @0x23
0x000b…0071 at0028 = ╱ee╱)╱ // 0x33 @0x28
0x000b…0071 at0029 = ╱ec╱,╱ // 0x34 @0x29
0x000b…0071 at002a = ╱4b╱K╱ // 0x35 @0x2a
0x000b…0071 at002b = ╱33╱3╱ // 0x36 @0x2b
0x000b…0071 at002c = ╱ef╱$╱ // 0x37 @0x2c
0x000b…0071 at002d = ╱ed╱(╱ // 0x38 @0x2d
0x000b…0071 at002e = ╱31╱1╱ // 0x39 @0x2e
0x000b…0071 at002f = ╱37╱7╱ // 0x3a @0x2f
0x000b…0071 at0030 = ╱fe00008805╱ // 0x3b @0x30
0x000b…0071 at0035 = ╱ee╱)╱ // 0x40 @0x35
0x000b…0071 at0036 = ╱ec╱,╱ // 0x41 @0x36
0x000b…0071 at0037 = ╱44╱D╱ // 0x42 @0x37
0x000b…0071 at0038 = ╱45╱E╱ // 0x43 @0x38
0x000b…0071 at0039 = ╱42╱B╱ // 0x44 @0x39
0x000b…0071 at003a = ╱4e╱N╱ // 0x45 @0x3a
0x000b…0071 at003b = ╱41╱A╱ // 0x46 @0x3b
0x000b…0071 at003c = ╱56╱V╱ // 0x47 @0x3c
0x000b…0071 at003d = ╱4e╱N╱ // 0x48 @0x3d
0x000b…0071 at003e = ╱ef╱$╱ // 0x49 @0x3e
0x000b…0071 at003f = ╱ed╱(╱ // 0x4a @0x3f
0x000b…0071 at0040 = ╱32╱2╱ // 0x4b @0x40
0x000b…0071 at0041 = ╱35╱5╱ // 0x4c @0x41
0x000b…0071 at0042 = ╱fe0000c805╱ // 0x4d @0x42
0x000b…0071 at0047 = ╱ee╱)╱ // 0x52 @0x47
0x000b…0071 at0048 = ╱ec╱,╱ // 0x53 @0x48
0x000b…0071 at0049 = ╱44╱D╱ // 0x54 @0x49
0x000b…0071 at004a = ╱53╱S╱ // 0x55 @0x4a
0x000b…0071 at004b = ╱41╱A╱ // 0x56 @0x4b
0x000b…0071 at004c = ╱4c╱L╱ // 0x57 @0x4c
0x000b…0071 at004d = ╱44╱D╱ // 0x58 @0x4d
0x000b…0071 at004e = ╱4f╱O╱ // 0x59 @0x4e
0x000b…0071 at004f = ╱31╱1╱ // 0x5a @0x4f
0x000b…0071 at0050 = ╱ef╱$╱ // 0x5b @0x50
0x000b…0071 at0051 = ╱ed╱(╱ // 0x5c @0x51
0x000b…0071 at0052 = ╱31╱1╱ // 0x5d @0x52
0x000b…0071 at0053 = ╱32╱2╱ // 0x5e @0x53
0x000b…0071 at0054 = ╱fe0000c004╱ // 0x5f @0x54
0x000b…0071 at0059 = ╱ee╱)╱ // 0x64 @0x59
0x000b…0071 at005a = ╱ec╱,╱ // 0x65 @0x5a
0x000b…0071 at005b = ╱44╱D╱ // 0x66 @0x5b
0x000b…0071 at005c = ╱45╱E╱ // 0x67 @0x5c
0x000b…0071 at005d = ╱42╱B╱ // 0x68 @0x5d
0x000b…0071 at005e = ╱4b╱K╱ // 0x69 @0x5e
0x000b…0071 at005f = ╱47╱G╱ // 0x6a @0x5f
0x000b…0071 at0060 = ╱52╱R╱ // 0x6b @0x60
0x000b…0071 at0061 = ╱ef╱$╱ // 0x6c @0x61
0x000b…0071 at0062 = ╱ed╱(╱ // 0x6d @0x62
0x000b…0071 at0063 = ╱45╱E╱ // 0x6e @0x63
0x000b…0071 at0064 = ╱ee╱)╱ // 0x6f @0x64
0x000b…0071 at0065 = EOL // 0x70 @0x65
0x000b…0071 }
0x0071…00c8 8e1f 0110 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(E),DEBGADE$(25)
0x0071…00c8 LineComalBin {
0x0071…00c8 ptr = 0x8e1f // 0x71 @0x0
0x0071…00c8 lno = 0x006e // 0x73 @0x2
0x0071…00c8 at0004 = ╱87╱ DIM ╱ // 0x75 @0x4
0x0071…00c8 at0005 = ╱44╱D╱ // 0x76 @0x5
0x0071…00c8 at0006 = ╱53╱S╱ // 0x77 @0x6
0x0071…00c8 at0007 = ╱41╱A╱ // 0x78 @0x7
0x0071…00c8 at0008 = ╱4c╱L╱ // 0x79 @0x8
0x0071…00c8 at0009 = ╱44╱D╱ // 0x7a @0x9
0x0071…00c8 at000a = ╱4f╱O╱ // 0x7b @0xa
0x0071…00c8 at000b = ╱32╱2╱ // 0x7c @0xb
0x0071…00c8 at000c = ╱ef╱$╱ // 0x7d @0xc
0x0071…00c8 at000d = ╱ed╱(╱ // 0x7e @0xd
0x0071…00c8 at000e = ╱31╱1╱ // 0x7f @0xe
0x0071…00c8 at000f = ╱32╱2╱ // 0x80 @0xf
0x0071…00c8 at0010 = ╱fe0000c004╱ // 0x81 @0x10
0x0071…00c8 at0015 = ╱ee╱)╱ // 0x86 @0x15
0x0071…00c8 at0016 = ╱ec╱,╱ // 0x87 @0x16
0x0071…00c8 at0017 = ╱44╱D╱ // 0x88 @0x17
0x0071…00c8 at0018 = ╱53╱S╱ // 0x89 @0x18
0x0071…00c8 at0019 = ╱41╱A╱ // 0x8a @0x19
0x0071…00c8 at001a = ╱4c╱L╱ // 0x8b @0x1a
0x0071…00c8 at001b = ╱44╱D╱ // 0x8c @0x1b
0x0071…00c8 at001c = ╱4f╱O╱ // 0x8d @0x1c
0x0071…00c8 at001d = ╱33╱3╱ // 0x8e @0x1d
0x0071…00c8 at001e = ╱ef╱$╱ // 0x8f @0x1e
0x0071…00c8 at001f = ╱ed╱(╱ // 0x90 @0x1f
0x0071…00c8 at0020 = ╱31╱1╱ // 0x91 @0x20
0x0071…00c8 at0021 = ╱32╱2╱ // 0x92 @0x21
0x0071…00c8 at0022 = ╱fe0000c004╱ // 0x93 @0x22
0x0071…00c8 at0027 = ╱ee╱)╱ // 0x98 @0x27
0x0071…00c8 at0028 = ╱ec╱,╱ // 0x99 @0x28
0x0071…00c8 at0029 = ╱44╱D╱ // 0x9a @0x29
0x0071…00c8 at002a = ╱53╱S╱ // 0x9b @0x2a
0x0071…00c8 at002b = ╱41╱A╱ // 0x9c @0x2b
0x0071…00c8 at002c = ╱4c╱L╱ // 0x9d @0x2c
0x0071…00c8 at002d = ╱44╱D╱ // 0x9e @0x2d
0x0071…00c8 at002e = ╱4f╱O╱ // 0x9f @0x2e
0x0071…00c8 at002f = ╱34╱4╱ // 0xa0 @0x2f
0x0071…00c8 at0030 = ╱ef╱$╱ // 0xa1 @0x30
0x0071…00c8 at0031 = ╱ed╱(╱ // 0xa2 @0x31
0x0071…00c8 at0032 = ╱31╱1╱ // 0xa3 @0x32
0x0071…00c8 at0033 = ╱32╱2╱ // 0xa4 @0x33
0x0071…00c8 at0034 = ╱fe0000c004╱ // 0xa5 @0x34
0x0071…00c8 at0039 = ╱ee╱)╱ // 0xaa @0x39
0x0071…00c8 at003a = ╱ec╱,╱ // 0xab @0x3a
0x0071…00c8 at003b = ╱44╱D╱ // 0xac @0x3b
0x0071…00c8 at003c = ╱45╱E╱ // 0xad @0x3c
0x0071…00c8 at003d = ╱42╱B╱ // 0xae @0x3d
0x0071…00c8 at003e = ╱4c╱L╱ // 0xaf @0x3e
0x0071…00c8 at003f = ╱4b╱K╱ // 0xb0 @0x3f
0x0071…00c8 at0040 = ╱ef╱$╱ // 0xb1 @0x40
0x0071…00c8 at0041 = ╱ed╱(╱ // 0xb2 @0x41
0x0071…00c8 at0042 = ╱45╱E╱ // 0xb3 @0x42
0x0071…00c8 at0043 = ╱ee╱)╱ // 0xb4 @0x43
0x0071…00c8 at0044 = ╱ec╱,╱ // 0xb5 @0x44
0x0071…00c8 at0045 = ╱44╱D╱ // 0xb6 @0x45
0x0071…00c8 at0046 = ╱45╱E╱ // 0xb7 @0x46
0x0071…00c8 at0047 = ╱42╱B╱ // 0xb8 @0x47
0x0071…00c8 at0048 = ╱47╱G╱ // 0xb9 @0x48
0x0071…00c8 at0049 = ╱41╱A╱ // 0xba @0x49
0x0071…00c8 at004a = ╱44╱D╱ // 0xbb @0x4a
0x0071…00c8 at004b = ╱45╱E╱ // 0xbc @0x4b
0x0071…00c8 at004c = ╱ef╱$╱ // 0xbd @0x4c
0x0071…00c8 at004d = ╱ed╱(╱ // 0xbe @0x4d
0x0071…00c8 at004e = ╱32╱2╱ // 0xbf @0x4e
0x0071…00c8 at004f = ╱35╱5╱ // 0xc0 @0x4f
0x0071…00c8 at0050 = ╱fe0000c805╱ // 0xc1 @0x50
0x0071…00c8 at0055 = ╱ee╱)╱ // 0xc6 @0x55
0x0071…00c8 at0056 = EOL // 0xc7 @0x56
0x0071…00c8 }
0x00c8…0129 8e80 0120 DIM DEBTLF$(W),DEBBY$(20),SALDO$(12),KR$(25),T$(13),D$(8),DV$(10)
0x00c8…0129 LineComalBin {
0x00c8…0129 ptr = 0x8e80 // 0xc8 @0x0
0x00c8…0129 lno = 0x0078 // 0xca @0x2
0x00c8…0129 at0004 = ╱87╱ DIM ╱ // 0xcc @0x4
0x00c8…0129 at0005 = ╱44╱D╱ // 0xcd @0x5
0x00c8…0129 at0006 = ╱45╱E╱ // 0xce @0x6
0x00c8…0129 at0007 = ╱42╱B╱ // 0xcf @0x7
0x00c8…0129 at0008 = ╱54╱T╱ // 0xd0 @0x8
0x00c8…0129 at0009 = ╱4c╱L╱ // 0xd1 @0x9
0x00c8…0129 at000a = ╱46╱F╱ // 0xd2 @0xa
0x00c8…0129 at000b = ╱ef╱$╱ // 0xd3 @0xb
0x00c8…0129 at000c = ╱ed╱(╱ // 0xd4 @0xc
0x00c8…0129 at000d = ╱57╱W╱ // 0xd5 @0xd
0x00c8…0129 at000e = ╱ee╱)╱ // 0xd6 @0xe
0x00c8…0129 at000f = ╱ec╱,╱ // 0xd7 @0xf
0x00c8…0129 at0010 = ╱44╱D╱ // 0xd8 @0x10
0x00c8…0129 at0011 = ╱45╱E╱ // 0xd9 @0x11
0x00c8…0129 at0012 = ╱42╱B╱ // 0xda @0x12
0x00c8…0129 at0013 = ╱42╱B╱ // 0xdb @0x13
0x00c8…0129 at0014 = ╱59╱Y╱ // 0xdc @0x14
0x00c8…0129 at0015 = ╱ef╱$╱ // 0xdd @0x15
0x00c8…0129 at0016 = ╱ed╱(╱ // 0xde @0x16
0x00c8…0129 at0017 = ╱32╱2╱ // 0xdf @0x17
0x00c8…0129 at0018 = ╱30╱0╱ // 0xe0 @0x18
0x00c8…0129 at0019 = ╱fe0000a005╱ // 0xe1 @0x19
0x00c8…0129 at001e = ╱ee╱)╱ // 0xe6 @0x1e
0x00c8…0129 at001f = ╱ec╱,╱ // 0xe7 @0x1f
0x00c8…0129 at0020 = ╱53╱S╱ // 0xe8 @0x20
0x00c8…0129 at0021 = ╱41╱A╱ // 0xe9 @0x21
0x00c8…0129 at0022 = ╱4c╱L╱ // 0xea @0x22
0x00c8…0129 at0023 = ╱44╱D╱ // 0xeb @0x23
0x00c8…0129 at0024 = ╱4f╱O╱ // 0xec @0x24
0x00c8…0129 at0025 = ╱ef╱$╱ // 0xed @0x25
0x00c8…0129 at0026 = ╱ed╱(╱ // 0xee @0x26
0x00c8…0129 at0027 = ╱31╱1╱ // 0xef @0x27
0x00c8…0129 at0028 = ╱32╱2╱ // 0xf0 @0x28
0x00c8…0129 at0029 = ╱fe0000c004╱ // 0xf1 @0x29
0x00c8…0129 at002e = ╱ee╱)╱ // 0xf6 @0x2e
0x00c8…0129 at002f = ╱ec╱,╱ // 0xf7 @0x2f
0x00c8…0129 at0030 = ╱4b╱K╱ // 0xf8 @0x30
0x00c8…0129 at0031 = ╱52╱R╱ // 0xf9 @0x31
0x00c8…0129 at0032 = ╱ef╱$╱ // 0xfa @0x32
0x00c8…0129 at0033 = ╱ed╱(╱ // 0xfb @0x33
0x00c8…0129 at0034 = ╱32╱2╱ // 0xfc @0x34
0x00c8…0129 at0035 = ╱35╱5╱ // 0xfd @0x35
0x00c8…0129 at0036 = ╱fe0000c805╱ // 0xfe @0x36
0x00c8…0129 at003b = ╱ee╱)╱ // 0x103 @0x3b
0x00c8…0129 at003c = ╱ec╱,╱ // 0x104 @0x3c
0x00c8…0129 at003d = ╱54╱T╱ // 0x105 @0x3d
0x00c8…0129 at003e = ╱ef╱$╱ // 0x106 @0x3e
0x00c8…0129 at003f = ╱ed╱(╱ // 0x107 @0x3f
0x00c8…0129 at0040 = ╱31╱1╱ // 0x108 @0x40
0x00c8…0129 at0041 = ╱33╱3╱ // 0x109 @0x41
0x00c8…0129 at0042 = ╱fe0000d004╱ // 0x10a @0x42
0x00c8…0129 at0047 = ╱ee╱)╱ // 0x10f @0x47
0x00c8…0129 at0048 = ╱ec╱,╱ // 0x110 @0x48
0x00c8…0129 at0049 = ╱44╱D╱ // 0x111 @0x49
0x00c8…0129 at004a = ╱ef╱$╱ // 0x112 @0x4a
0x00c8…0129 at004b = ╱ed╱(╱ // 0x113 @0x4b
0x00c8…0129 at004c = ╱38╱8╱ // 0x114 @0x4c
0x00c8…0129 at004d = ╱fe00008004╱ // 0x115 @0x4d
0x00c8…0129 at0052 = ╱ee╱)╱ // 0x11a @0x52
0x00c8…0129 at0053 = ╱ec╱,╱ // 0x11b @0x53
0x00c8…0129 at0054 = ╱44╱D╱ // 0x11c @0x54
0x00c8…0129 at0055 = ╱56╱V╱ // 0x11d @0x55
0x00c8…0129 at0056 = ╱ef╱$╱ // 0x11e @0x56
0x00c8…0129 at0057 = ╱ed╱(╱ // 0x11f @0x57
0x00c8…0129 at0058 = ╱31╱1╱ // 0x120 @0x58
0x00c8…0129 at0059 = ╱30╱0╱ // 0x121 @0x59
0x00c8…0129 at005a = ╱fe0000a004╱ // 0x122 @0x5a
0x00c8…0129 at005f = ╱ee╱)╱ // 0x127 @0x5f
0x00c8…0129 at0060 = EOL // 0x128 @0x60
0x00c8…0129 }
0x0129…017e 8ed5 0130 DIM ÅRKØB$(12),MDNKØB$(12),TEK$(13),GBELØB$(12),MOMSH$(12)
0x0129…017e LineComalBin {
0x0129…017e ptr = 0x8ed5 // 0x129 @0x0
0x0129…017e lno = 0x0082 // 0x12b @0x2
0x0129…017e at0004 = ╱87╱ DIM ╱ // 0x12d @0x4
0x0129…017e at0005 = ╱5d╱Å╱ // 0x12e @0x5
0x0129…017e at0006 = ╱52╱R╱ // 0x12f @0x6
0x0129…017e at0007 = ╱4b╱K╱ // 0x130 @0x7
0x0129…017e at0008 = ╱5c╱Ø╱ // 0x131 @0x8
0x0129…017e at0009 = ╱42╱B╱ // 0x132 @0x9
0x0129…017e at000a = ╱ef╱$╱ // 0x133 @0xa
0x0129…017e at000b = ╱ed╱(╱ // 0x134 @0xb
0x0129…017e at000c = ╱31╱1╱ // 0x135 @0xc
0x0129…017e at000d = ╱32╱2╱ // 0x136 @0xd
0x0129…017e at000e = ╱fe0000c004╱ // 0x137 @0xe
0x0129…017e at0013 = ╱ee╱)╱ // 0x13c @0x13
0x0129…017e at0014 = ╱ec╱,╱ // 0x13d @0x14
0x0129…017e at0015 = ╱4d╱M╱ // 0x13e @0x15
0x0129…017e at0016 = ╱44╱D╱ // 0x13f @0x16
0x0129…017e at0017 = ╱4e╱N╱ // 0x140 @0x17
0x0129…017e at0018 = ╱4b╱K╱ // 0x141 @0x18
0x0129…017e at0019 = ╱5c╱Ø╱ // 0x142 @0x19
0x0129…017e at001a = ╱42╱B╱ // 0x143 @0x1a
0x0129…017e at001b = ╱ef╱$╱ // 0x144 @0x1b
0x0129…017e at001c = ╱ed╱(╱ // 0x145 @0x1c
0x0129…017e at001d = ╱31╱1╱ // 0x146 @0x1d
0x0129…017e at001e = ╱32╱2╱ // 0x147 @0x1e
0x0129…017e at001f = ╱fe0000c004╱ // 0x148 @0x1f
0x0129…017e at0024 = ╱ee╱)╱ // 0x14d @0x24
0x0129…017e at0025 = ╱ec╱,╱ // 0x14e @0x25
0x0129…017e at0026 = ╱54╱T╱ // 0x14f @0x26
0x0129…017e at0027 = ╱45╱E╱ // 0x150 @0x27
0x0129…017e at0028 = ╱4b╱K╱ // 0x151 @0x28
0x0129…017e at0029 = ╱ef╱$╱ // 0x152 @0x29
0x0129…017e at002a = ╱ed╱(╱ // 0x153 @0x2a
0x0129…017e at002b = ╱31╱1╱ // 0x154 @0x2b
0x0129…017e at002c = ╱33╱3╱ // 0x155 @0x2c
0x0129…017e at002d = ╱fe0000d004╱ // 0x156 @0x2d
0x0129…017e at0032 = ╱ee╱)╱ // 0x15b @0x32
0x0129…017e at0033 = ╱ec╱,╱ // 0x15c @0x33
0x0129…017e at0034 = ╱47╱G╱ // 0x15d @0x34
0x0129…017e at0035 = ╱42╱B╱ // 0x15e @0x35
0x0129…017e at0036 = ╱45╱E╱ // 0x15f @0x36
0x0129…017e at0037 = ╱4c╱L╱ // 0x160 @0x37
0x0129…017e at0038 = ╱5c╱Ø╱ // 0x161 @0x38
0x0129…017e at0039 = ╱42╱B╱ // 0x162 @0x39
0x0129…017e at003a = ╱ef╱$╱ // 0x163 @0x3a
0x0129…017e at003b = ╱ed╱(╱ // 0x164 @0x3b
0x0129…017e at003c = ╱31╱1╱ // 0x165 @0x3c
0x0129…017e at003d = ╱32╱2╱ // 0x166 @0x3d
0x0129…017e at003e = ╱fe0000c004╱ // 0x167 @0x3e
0x0129…017e at0043 = ╱ee╱)╱ // 0x16c @0x43
0x0129…017e at0044 = ╱ec╱,╱ // 0x16d @0x44
0x0129…017e at0045 = ╱4d╱M╱ // 0x16e @0x45
0x0129…017e at0046 = ╱4f╱O╱ // 0x16f @0x46
0x0129…017e at0047 = ╱4d╱M╱ // 0x170 @0x47
0x0129…017e at0048 = ╱53╱S╱ // 0x171 @0x48
0x0129…017e at0049 = ╱48╱H╱ // 0x172 @0x49
0x0129…017e at004a = ╱ef╱$╱ // 0x173 @0x4a
0x0129…017e at004b = ╱ed╱(╱ // 0x174 @0x4b
0x0129…017e at004c = ╱31╱1╱ // 0x175 @0x4c
0x0129…017e at004d = ╱32╱2╱ // 0x176 @0x4d
0x0129…017e at004e = ╱fe0000c004╱ // 0x177 @0x4e
0x0129…017e at0053 = ╱ee╱)╱ // 0x17c @0x53
0x0129…017e at0054 = EOL // 0x17d @0x54
0x0129…017e }
0x017e…01c0 8f17 0140 DIM KOD1$(E),KOD$(E),TAL4$(14),SVAR1$(E),VARTEKST$(25)
0x017e…01c0 LineComalBin {
0x017e…01c0 ptr = 0x8f17 // 0x17e @0x0
0x017e…01c0 lno = 0x008c // 0x180 @0x2
0x017e…01c0 at0004 = ╱87╱ DIM ╱ // 0x182 @0x4
0x017e…01c0 at0005 = ╱4b╱K╱ // 0x183 @0x5
0x017e…01c0 at0006 = ╱4f╱O╱ // 0x184 @0x6
0x017e…01c0 at0007 = ╱44╱D╱ // 0x185 @0x7
0x017e…01c0 at0008 = ╱31╱1╱ // 0x186 @0x8
0x017e…01c0 at0009 = ╱ef╱$╱ // 0x187 @0x9
0x017e…01c0 at000a = ╱ed╱(╱ // 0x188 @0xa
0x017e…01c0 at000b = ╱45╱E╱ // 0x189 @0xb
0x017e…01c0 at000c = ╱ee╱)╱ // 0x18a @0xc
0x017e…01c0 at000d = ╱ec╱,╱ // 0x18b @0xd
0x017e…01c0 at000e = ╱4b╱K╱ // 0x18c @0xe
0x017e…01c0 at000f = ╱4f╱O╱ // 0x18d @0xf
0x017e…01c0 at0010 = ╱44╱D╱ // 0x18e @0x10
0x017e…01c0 at0011 = ╱ef╱$╱ // 0x18f @0x11
0x017e…01c0 at0012 = ╱ed╱(╱ // 0x190 @0x12
0x017e…01c0 at0013 = ╱45╱E╱ // 0x191 @0x13
0x017e…01c0 at0014 = ╱ee╱)╱ // 0x192 @0x14
0x017e…01c0 at0015 = ╱ec╱,╱ // 0x193 @0x15
0x017e…01c0 at0016 = ╱54╱T╱ // 0x194 @0x16
0x017e…01c0 at0017 = ╱41╱A╱ // 0x195 @0x17
0x017e…01c0 at0018 = ╱4c╱L╱ // 0x196 @0x18
0x017e…01c0 at0019 = ╱34╱4╱ // 0x197 @0x19
0x017e…01c0 at001a = ╱ef╱$╱ // 0x198 @0x1a
0x017e…01c0 at001b = ╱ed╱(╱ // 0x199 @0x1b
0x017e…01c0 at001c = ╱31╱1╱ // 0x19a @0x1c
0x017e…01c0 at001d = ╱34╱4╱ // 0x19b @0x1d
0x017e…01c0 at001e = ╱fe0000e004╱ // 0x19c @0x1e
0x017e…01c0 at0023 = ╱ee╱)╱ // 0x1a1 @0x23
0x017e…01c0 at0024 = ╱ec╱,╱ // 0x1a2 @0x24
0x017e…01c0 at0025 = ╱53╱S╱ // 0x1a3 @0x25
0x017e…01c0 at0026 = ╱56╱V╱ // 0x1a4 @0x26
0x017e…01c0 at0027 = ╱41╱A╱ // 0x1a5 @0x27
0x017e…01c0 at0028 = ╱52╱R╱ // 0x1a6 @0x28
0x017e…01c0 at0029 = ╱31╱1╱ // 0x1a7 @0x29
0x017e…01c0 at002a = ╱ef╱$╱ // 0x1a8 @0x2a
0x017e…01c0 at002b = ╱ed╱(╱ // 0x1a9 @0x2b
0x017e…01c0 at002c = ╱45╱E╱ // 0x1aa @0x2c
0x017e…01c0 at002d = ╱ee╱)╱ // 0x1ab @0x2d
0x017e…01c0 at002e = ╱ec╱,╱ // 0x1ac @0x2e
0x017e…01c0 at002f = ╱56╱V╱ // 0x1ad @0x2f
0x017e…01c0 at0030 = ╱41╱A╱ // 0x1ae @0x30
0x017e…01c0 at0031 = ╱52╱R╱ // 0x1af @0x31
0x017e…01c0 at0032 = ╱54╱T╱ // 0x1b0 @0x32
0x017e…01c0 at0033 = ╱45╱E╱ // 0x1b1 @0x33
0x017e…01c0 at0034 = ╱4b╱K╱ // 0x1b2 @0x34
0x017e…01c0 at0035 = ╱53╱S╱ // 0x1b3 @0x35
0x017e…01c0 at0036 = ╱54╱T╱ // 0x1b4 @0x36
0x017e…01c0 at0037 = ╱ef╱$╱ // 0x1b5 @0x37
0x017e…01c0 at0038 = ╱ed╱(╱ // 0x1b6 @0x38
0x017e…01c0 at0039 = ╱32╱2╱ // 0x1b7 @0x39
0x017e…01c0 at003a = ╱35╱5╱ // 0x1b8 @0x3a
0x017e…01c0 at003b = ╱fe0000c805╱ // 0x1b9 @0x3b
0x017e…01c0 at0040 = ╱ee╱)╱ // 0x1be @0x40
0x017e…01c0 at0041 = EOL // 0x1bf @0x41
0x017e…01c0 }
0x01c0…020f 8f66 0150 DIM RES$(15),OP1$(12),OP2$(12),TOTAL$(12),BELØB$(12)
0x01c0…020f LineComalBin {
0x01c0…020f ptr = 0x8f66 // 0x1c0 @0x0
0x01c0…020f lno = 0x0096 // 0x1c2 @0x2
0x01c0…020f at0004 = ╱87╱ DIM ╱ // 0x1c4 @0x4
0x01c0…020f at0005 = ╱52╱R╱ // 0x1c5 @0x5
0x01c0…020f at0006 = ╱45╱E╱ // 0x1c6 @0x6
0x01c0…020f at0007 = ╱53╱S╱ // 0x1c7 @0x7
0x01c0…020f at0008 = ╱ef╱$╱ // 0x1c8 @0x8
0x01c0…020f at0009 = ╱ed╱(╱ // 0x1c9 @0x9
0x01c0…020f at000a = ╱31╱1╱ // 0x1ca @0xa
0x01c0…020f at000b = ╱35╱5╱ // 0x1cb @0xb
0x01c0…020f at000c = ╱fe0000f004╱ // 0x1cc @0xc
0x01c0…020f at0011 = ╱ee╱)╱ // 0x1d1 @0x11
0x01c0…020f at0012 = ╱ec╱,╱ // 0x1d2 @0x12
0x01c0…020f at0013 = ╱4f╱O╱ // 0x1d3 @0x13
0x01c0…020f at0014 = ╱50╱P╱ // 0x1d4 @0x14
0x01c0…020f at0015 = ╱31╱1╱ // 0x1d5 @0x15
0x01c0…020f at0016 = ╱ef╱$╱ // 0x1d6 @0x16
0x01c0…020f at0017 = ╱ed╱(╱ // 0x1d7 @0x17
0x01c0…020f at0018 = ╱31╱1╱ // 0x1d8 @0x18
0x01c0…020f at0019 = ╱32╱2╱ // 0x1d9 @0x19
0x01c0…020f at001a = ╱fe0000c004╱ // 0x1da @0x1a
0x01c0…020f at001f = ╱ee╱)╱ // 0x1df @0x1f
0x01c0…020f at0020 = ╱ec╱,╱ // 0x1e0 @0x20
0x01c0…020f at0021 = ╱4f╱O╱ // 0x1e1 @0x21
0x01c0…020f at0022 = ╱50╱P╱ // 0x1e2 @0x22
0x01c0…020f at0023 = ╱32╱2╱ // 0x1e3 @0x23
0x01c0…020f at0024 = ╱ef╱$╱ // 0x1e4 @0x24
0x01c0…020f at0025 = ╱ed╱(╱ // 0x1e5 @0x25
0x01c0…020f at0026 = ╱31╱1╱ // 0x1e6 @0x26
0x01c0…020f at0027 = ╱32╱2╱ // 0x1e7 @0x27
0x01c0…020f at0028 = ╱fe0000c004╱ // 0x1e8 @0x28
0x01c0…020f at002d = ╱ee╱)╱ // 0x1ed @0x2d
0x01c0…020f at002e = ╱ec╱,╱ // 0x1ee @0x2e
0x01c0…020f at002f = ╱54╱T╱ // 0x1ef @0x2f
0x01c0…020f at0030 = ╱4f╱O╱ // 0x1f0 @0x30
0x01c0…020f at0031 = ╱54╱T╱ // 0x1f1 @0x31
0x01c0…020f at0032 = ╱41╱A╱ // 0x1f2 @0x32
0x01c0…020f at0033 = ╱4c╱L╱ // 0x1f3 @0x33
0x01c0…020f at0034 = ╱ef╱$╱ // 0x1f4 @0x34
0x01c0…020f at0035 = ╱ed╱(╱ // 0x1f5 @0x35
0x01c0…020f at0036 = ╱31╱1╱ // 0x1f6 @0x36
0x01c0…020f at0037 = ╱32╱2╱ // 0x1f7 @0x37
0x01c0…020f at0038 = ╱fe0000c004╱ // 0x1f8 @0x38
0x01c0…020f at003d = ╱ee╱)╱ // 0x1fd @0x3d
0x01c0…020f at003e = ╱ec╱,╱ // 0x1fe @0x3e
0x01c0…020f at003f = ╱42╱B╱ // 0x1ff @0x3f
0x01c0…020f at0040 = ╱45╱E╱ // 0x200 @0x40
0x01c0…020f at0041 = ╱4c╱L╱ // 0x201 @0x41
0x01c0…020f at0042 = ╱5c╱Ø╱ // 0x202 @0x42
0x01c0…020f at0043 = ╱42╱B╱ // 0x203 @0x43
0x01c0…020f at0044 = ╱ef╱$╱ // 0x204 @0x44
0x01c0…020f at0045 = ╱ed╱(╱ // 0x205 @0x45
0x01c0…020f at0046 = ╱31╱1╱ // 0x206 @0x46
0x01c0…020f at0047 = ╱32╱2╱ // 0x207 @0x47
0x01c0…020f at0048 = ╱fe0000c004╱ // 0x208 @0x48
0x01c0…020f at004d = ╱ee╱)╱ // 0x20d @0x4d
0x01c0…020f at004e = EOL // 0x20e @0x4e
0x01c0…020f }
0x020f…0255 8fac 0160 DIM TE$(30),TEKO$(E),F$(E),TK1$(E),TAH$(12),BLB2$(12)
0x020f…0255 LineComalBin {
0x020f…0255 ptr = 0x8fac // 0x20f @0x0
0x020f…0255 lno = 0x00a0 // 0x211 @0x2
0x020f…0255 at0004 = ╱87╱ DIM ╱ // 0x213 @0x4
0x020f…0255 at0005 = ╱54╱T╱ // 0x214 @0x5
0x020f…0255 at0006 = ╱45╱E╱ // 0x215 @0x6
0x020f…0255 at0007 = ╱ef╱$╱ // 0x216 @0x7
0x020f…0255 at0008 = ╱ed╱(╱ // 0x217 @0x8
0x020f…0255 at0009 = ╱33╱3╱ // 0x218 @0x9
0x020f…0255 at000a = ╱30╱0╱ // 0x219 @0xa
0x020f…0255 at000b = ╱fe0000f005╱ // 0x21a @0xb
0x020f…0255 at0010 = ╱ee╱)╱ // 0x21f @0x10
0x020f…0255 at0011 = ╱ec╱,╱ // 0x220 @0x11
0x020f…0255 at0012 = ╱54╱T╱ // 0x221 @0x12
0x020f…0255 at0013 = ╱45╱E╱ // 0x222 @0x13
0x020f…0255 at0014 = ╱4b╱K╱ // 0x223 @0x14
0x020f…0255 at0015 = ╱4f╱O╱ // 0x224 @0x15
0x020f…0255 at0016 = ╱ef╱$╱ // 0x225 @0x16
0x020f…0255 at0017 = ╱ed╱(╱ // 0x226 @0x17
0x020f…0255 at0018 = ╱45╱E╱ // 0x227 @0x18
0x020f…0255 at0019 = ╱ee╱)╱ // 0x228 @0x19
0x020f…0255 at001a = ╱ec╱,╱ // 0x229 @0x1a
0x020f…0255 at001b = ╱46╱F╱ // 0x22a @0x1b
0x020f…0255 at001c = ╱ef╱$╱ // 0x22b @0x1c
0x020f…0255 at001d = ╱ed╱(╱ // 0x22c @0x1d
0x020f…0255 at001e = ╱45╱E╱ // 0x22d @0x1e
0x020f…0255 at001f = ╱ee╱)╱ // 0x22e @0x1f
0x020f…0255 at0020 = ╱ec╱,╱ // 0x22f @0x20
0x020f…0255 at0021 = ╱54╱T╱ // 0x230 @0x21
0x020f…0255 at0022 = ╱4b╱K╱ // 0x231 @0x22
0x020f…0255 at0023 = ╱31╱1╱ // 0x232 @0x23
0x020f…0255 at0024 = ╱ef╱$╱ // 0x233 @0x24
0x020f…0255 at0025 = ╱ed╱(╱ // 0x234 @0x25
0x020f…0255 at0026 = ╱45╱E╱ // 0x235 @0x26
0x020f…0255 at0027 = ╱ee╱)╱ // 0x236 @0x27
0x020f…0255 at0028 = ╱ec╱,╱ // 0x237 @0x28
0x020f…0255 at0029 = ╱54╱T╱ // 0x238 @0x29
0x020f…0255 at002a = ╱41╱A╱ // 0x239 @0x2a
0x020f…0255 at002b = ╱48╱H╱ // 0x23a @0x2b
0x020f…0255 at002c = ╱ef╱$╱ // 0x23b @0x2c
0x020f…0255 at002d = ╱ed╱(╱ // 0x23c @0x2d
0x020f…0255 at002e = ╱31╱1╱ // 0x23d @0x2e
0x020f…0255 at002f = ╱32╱2╱ // 0x23e @0x2f
0x020f…0255 at0030 = ╱fe0000c004╱ // 0x23f @0x30
0x020f…0255 at0035 = ╱ee╱)╱ // 0x244 @0x35
0x020f…0255 at0036 = ╱ec╱,╱ // 0x245 @0x36
0x020f…0255 at0037 = ╱42╱B╱ // 0x246 @0x37
0x020f…0255 at0038 = ╱4c╱L╱ // 0x247 @0x38
0x020f…0255 at0039 = ╱42╱B╱ // 0x248 @0x39
0x020f…0255 at003a = ╱32╱2╱ // 0x249 @0x3a
0x020f…0255 at003b = ╱ef╱$╱ // 0x24a @0x3b
0x020f…0255 at003c = ╱ed╱(╱ // 0x24b @0x3c
0x020f…0255 at003d = ╱31╱1╱ // 0x24c @0x3d
0x020f…0255 at003e = ╱32╱2╱ // 0x24d @0x3e
0x020f…0255 at003f = ╱fe0000c004╱ // 0x24e @0x3f
0x020f…0255 at0044 = ╱ee╱)╱ // 0x253 @0x44
0x020f…0255 at0045 = EOL // 0x254 @0x45
0x020f…0255 }
0x0255…029a 8ff1 0170 DIM K4$(17),K5$(17),K6$(17),K7$(17),T1(W),T2(W)
0x0255…029a LineComalBin {
0x0255…029a ptr = 0x8ff1 // 0x255 @0x0
0x0255…029a lno = 0x00aa // 0x257 @0x2
0x0255…029a at0004 = ╱87╱ DIM ╱ // 0x259 @0x4
0x0255…029a at0005 = ╱4b╱K╱ // 0x25a @0x5
0x0255…029a at0006 = ╱34╱4╱ // 0x25b @0x6
0x0255…029a at0007 = ╱ef╱$╱ // 0x25c @0x7
0x0255…029a at0008 = ╱ed╱(╱ // 0x25d @0x8
0x0255…029a at0009 = ╱31╱1╱ // 0x25e @0x9
0x0255…029a at000a = ╱37╱7╱ // 0x25f @0xa
0x0255…029a at000b = ╱fe00008805╱ // 0x260 @0xb
0x0255…029a at0010 = ╱ee╱)╱ // 0x265 @0x10
0x0255…029a at0011 = ╱ec╱,╱ // 0x266 @0x11
0x0255…029a at0012 = ╱4b╱K╱ // 0x267 @0x12
0x0255…029a at0013 = ╱35╱5╱ // 0x268 @0x13
0x0255…029a at0014 = ╱ef╱$╱ // 0x269 @0x14
0x0255…029a at0015 = ╱ed╱(╱ // 0x26a @0x15
0x0255…029a at0016 = ╱31╱1╱ // 0x26b @0x16
0x0255…029a at0017 = ╱37╱7╱ // 0x26c @0x17
0x0255…029a at0018 = ╱fe00008805╱ // 0x26d @0x18
0x0255…029a at001d = ╱ee╱)╱ // 0x272 @0x1d
0x0255…029a at001e = ╱ec╱,╱ // 0x273 @0x1e
0x0255…029a at001f = ╱4b╱K╱ // 0x274 @0x1f
0x0255…029a at0020 = ╱36╱6╱ // 0x275 @0x20
0x0255…029a at0021 = ╱ef╱$╱ // 0x276 @0x21
0x0255…029a at0022 = ╱ed╱(╱ // 0x277 @0x22
0x0255…029a at0023 = ╱31╱1╱ // 0x278 @0x23
0x0255…029a at0024 = ╱37╱7╱ // 0x279 @0x24
0x0255…029a at0025 = ╱fe00008805╱ // 0x27a @0x25
0x0255…029a at002a = ╱ee╱)╱ // 0x27f @0x2a
0x0255…029a at002b = ╱ec╱,╱ // 0x280 @0x2b
0x0255…029a at002c = ╱4b╱K╱ // 0x281 @0x2c
0x0255…029a at002d = ╱37╱7╱ // 0x282 @0x2d
0x0255…029a at002e = ╱ef╱$╱ // 0x283 @0x2e
0x0255…029a at002f = ╱ed╱(╱ // 0x284 @0x2f
0x0255…029a at0030 = ╱31╱1╱ // 0x285 @0x30
0x0255…029a at0031 = ╱37╱7╱ // 0x286 @0x31
0x0255…029a at0032 = ╱fe00008805╱ // 0x287 @0x32
0x0255…029a at0037 = ╱ee╱)╱ // 0x28c @0x37
0x0255…029a at0038 = ╱ec╱,╱ // 0x28d @0x38
0x0255…029a at0039 = ╱54╱T╱ // 0x28e @0x39
0x0255…029a at003a = ╱31╱1╱ // 0x28f @0x3a
0x0255…029a at003b = ╱ed╱(╱ // 0x290 @0x3b
0x0255…029a at003c = ╱57╱W╱ // 0x291 @0x3c
0x0255…029a at003d = ╱ee╱)╱ // 0x292 @0x3d
0x0255…029a at003e = ╱ec╱,╱ // 0x293 @0x3e
0x0255…029a at003f = ╱54╱T╱ // 0x294 @0x3f
0x0255…029a at0040 = ╱32╱2╱ // 0x295 @0x40
0x0255…029a at0041 = ╱ed╱(╱ // 0x296 @0x41
0x0255…029a at0042 = ╱57╱W╱ // 0x297 @0x42
0x0255…029a at0043 = ╱ee╱)╱ // 0x298 @0x43
0x0255…029a at0044 = EOL // 0x299 @0x44
0x0255…029a }
0x029a…02b2 9009 0180 PROC CALC(AR3,B1,B2,ES)
0x029a…02b2 LineComalBin {
0x029a…02b2 ptr = 0x9009 // 0x29a @0x0
0x029a…02b2 lno = 0x00b4 // 0x29c @0x2
0x029a…02b2 at0004 = ╱9e╱ PROC ╱ // 0x29e @0x4
0x029a…02b2 at0005 = ╱43╱C╱ // 0x29f @0x5
0x029a…02b2 at0006 = ╱41╱A╱ // 0x2a0 @0x6
0x029a…02b2 at0007 = ╱4c╱L╱ // 0x2a1 @0x7
0x029a…02b2 at0008 = ╱43╱C╱ // 0x2a2 @0x8
0x029a…02b2 at0009 = ╱ed╱(╱ // 0x2a3 @0x9
0x029a…02b2 at000a = ╱41╱A╱ // 0x2a4 @0xa
0x029a…02b2 at000b = ╱52╱R╱ // 0x2a5 @0xb
0x029a…02b2 at000c = ╱33╱3╱ // 0x2a6 @0xc
0x029a…02b2 at000d = ╱ec╱,╱ // 0x2a7 @0xd
0x029a…02b2 at000e = ╱42╱B╱ // 0x2a8 @0xe
0x029a…02b2 at000f = ╱31╱1╱ // 0x2a9 @0xf
0x029a…02b2 at0010 = ╱ec╱,╱ // 0x2aa @0x10
0x029a…02b2 at0011 = ╱42╱B╱ // 0x2ab @0x11
0x029a…02b2 at0012 = ╱32╱2╱ // 0x2ac @0x12
0x029a…02b2 at0013 = ╱ec╱,╱ // 0x2ad @0x13
0x029a…02b2 at0014 = ╱45╱E╱ // 0x2ae @0x14
0x029a…02b2 at0015 = ╱53╱S╱ // 0x2af @0x15
0x029a…02b2 at0016 = ╱ee╱)╱ // 0x2b0 @0x16
0x029a…02b2 at0017 = EOL // 0x2b1 @0x17
0x029a…02b2 }
0x02b2…02f9 9050 0190 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x02b2…02f9 LineComalBin {
0x02b2…02f9 ptr = 0x9050 // 0x2b2 @0x0
0x02b2…02f9 lno = 0x00be // 0x2b4 @0x2
0x02b2…02f9 at0004 = ╱4f╱O╱ // 0x2b6 @0x4
0x02b2…02f9 at0005 = ╱50╱P╱ // 0x2b7 @0x5
0x02b2…02f9 at0006 = ╱31╱1╱ // 0x2b8 @0x6
0x02b2…02f9 at0007 = ╱ef╱$╱ // 0x2b9 @0x7
0x02b2…02f9 at0008 = ╱dc╱=╱ // 0x2ba @0x8
0x02b2…02f9 at0009 = ╱42╱B╱ // 0x2bb @0x9
0x02b2…02f9 at000a = ╱31╱1╱ // 0x2bc @0xa
0x02b2…02f9 at000b = ╱ef╱$╱ // 0x2bd @0xb
0x02b2…02f9 at000c = ╱eb╱;╱ // 0x2be @0xc
0x02b2…02f9 at000d = ╱4f╱O╱ // 0x2bf @0xd
0x02b2…02f9 at000e = ╱50╱P╱ // 0x2c0 @0xe
0x02b2…02f9 at000f = ╱32╱2╱ // 0x2c1 @0xf
0x02b2…02f9 at0010 = ╱ef╱$╱ // 0x2c2 @0x10
0x02b2…02f9 at0011 = ╱dc╱=╱ // 0x2c3 @0x11
0x02b2…02f9 at0012 = ╱42╱B╱ // 0x2c4 @0x12
0x02b2…02f9 at0013 = ╱32╱2╱ // 0x2c5 @0x13
0x02b2…02f9 at0014 = ╱ef╱$╱ // 0x2c6 @0x14
0x02b2…02f9 at0015 = ╱eb╱;╱ // 0x2c7 @0x15
0x02b2…02f9 at0016 = ╱52╱R╱ // 0x2c8 @0x16
0x02b2…02f9 at0017 = ╱45╱E╱ // 0x2c9 @0x17
0x02b2…02f9 at0018 = ╱53╱S╱ // 0x2ca @0x18
0x02b2…02f9 at0019 = ╱ef╱$╱ // 0x2cb @0x19
0x02b2…02f9 at001a = ╱dc╱=╱ // 0x2cc @0x1a
0x02b2…02f9 at001b = ╱45╱E╱ // 0x2cd @0x1b
0x02b2…02f9 at001c = ╱53╱S╱ // 0x2ce @0x1c
0x02b2…02f9 at001d = ╱ef╱$╱ // 0x2cf @0x1d
0x02b2…02f9 at001e = ╱eb╱;╱ // 0x2d0 @0x1e
0x02b2…02f9 at001f = ╱53╱S╱ // 0x2d1 @0x1f
0x02b2…02f9 at0020 = ╱49╱I╱ // 0x2d2 @0x20
0x02b2…02f9 at0021 = ╱dc╱=╱ // 0x2d3 @0x21
0x02b2…02f9 at0022 = ╱42╱B╱ // 0x2d4 @0x22
0x02b2…02f9 at0023 = ╱eb╱;╱ // 0x2d5 @0x23
0x02b2…02f9 at0024 = ╱46╱F╱ // 0x2d6 @0x24
0x02b2…02f9 at0025 = ╱4c╱L╱ // 0x2d7 @0x25
0x02b2…02f9 at0026 = ╱41╱A╱ // 0x2d8 @0x26
0x02b2…02f9 at0027 = ╱47╱G╱ // 0x2d9 @0x27
0x02b2…02f9 at0028 = ╱dc╱=╱ // 0x2da @0x28
0x02b2…02f9 at0029 = ╱42╱B╱ // 0x2db @0x29
0x02b2…02f9 at002a = ╱eb╱;╱ // 0x2dc @0x2a
0x02b2…02f9 at002b = ╱41╱A╱ // 0x2dd @0x2b
0x02b2…02f9 at002c = ╱52╱R╱ // 0x2de @0x2c
0x02b2…02f9 at002d = ╱54╱T╱ // 0x2df @0x2d
0x02b2…02f9 at002e = ╱dc╱=╱ // 0x2e0 @0x2e
0x02b2…02f9 at002f = ╱41╱A╱ // 0x2e1 @0x2f
0x02b2…02f9 at0030 = ╱52╱R╱ // 0x2e2 @0x30
0x02b2…02f9 at0031 = ╱33╱3╱ // 0x2e3 @0x31
0x02b2…02f9 at0032 = ╱e3╱-╱ // 0x2e4 @0x32
0x02b2…02f9 at0033 = ╱36╱6╱ // 0x2e5 @0x33
0x02b2…02f9 at0034 = ╱fe0000c003╱ // 0x2e6 @0x34
0x02b2…02f9 at0039 = ╱e4╱*╱ // 0x2eb @0x39
0x02b2…02f9 at003a = ╱ed╱(╱ // 0x2ec @0x3a
0x02b2…02f9 at003b = ╱41╱A╱ // 0x2ed @0x3b
0x02b2…02f9 at003c = ╱52╱R╱ // 0x2ee @0x3c
0x02b2…02f9 at003d = ╱33╱3╱ // 0x2ef @0x3d
0x02b2…02f9 at003e = ╱de╱>╱ // 0x2f0 @0x3e
0x02b2…02f9 at003f = ╱35╱5╱ // 0x2f1 @0x3f
0x02b2…02f9 at0040 = ╱fe0000a003╱ // 0x2f2 @0x40
0x02b2…02f9 at0045 = ╱ee╱)╱ // 0x2f7 @0x45
0x02b2…02f9 at0046 = EOL // 0x2f8 @0x46
0x02b2…02f9 }
0x02f9…030f 9066 0200 CALL "P641210:REGN"
0x02f9…030f LineComalBin {
0x02f9…030f ptr = 0x9066 // 0x2f9 @0x0
0x02f9…030f lno = 0x00c8 // 0x2fb @0x2
0x02f9…030f at0004 = ╱ad0000╱ CALL ╱ // 0x2fd @0x4
0x02f9…030f at0007 = ╱22╱"╱ // 0x300 @0x7
0x02f9…030f at0008 = ╱50╱P╱ // 0x301 @0x8
0x02f9…030f at0009 = ╱36╱6╱ // 0x302 @0x9
0x02f9…030f at000a = ╱34╱4╱ // 0x303 @0xa
0x02f9…030f at000b = ╱31╱1╱ // 0x304 @0xb
0x02f9…030f at000c = ╱32╱2╱ // 0x305 @0xc
0x02f9…030f at000d = ╱31╱1╱ // 0x306 @0xd
0x02f9…030f at000e = ╱30╱0╱ // 0x307 @0xe
0x02f9…030f at000f = ╱3a╱:╱ // 0x308 @0xf
0x02f9…030f at0010 = ╱52╱R╱ // 0x309 @0x10
0x02f9…030f at0011 = ╱45╱E╱ // 0x30a @0x11
0x02f9…030f at0012 = ╱47╱G╱ // 0x30b @0x12
0x02f9…030f at0013 = ╱4e╱N╱ // 0x30c @0x13
0x02f9…030f at0014 = ╱22╱"╱ // 0x30d @0x14
0x02f9…030f at0015 = EOL // 0x30e @0x15
0x02f9…030f }
0x030f…0320 9077 0210 IF AR3<6 THEN
0x030f…0320 LineComalBin {
0x030f…0320 ptr = 0x9077 // 0x30f @0x0
0x030f…0320 lno = 0x00d2 // 0x311 @0x2
0x030f…0320 at0004 = ╱9c╱ IF ╱ // 0x313 @0x4
0x030f…0320 at0005 = ╱41╱A╱ // 0x314 @0x5
0x030f…0320 at0006 = ╱52╱R╱ // 0x315 @0x6
0x030f…0320 at0007 = ╱33╱3╱ // 0x316 @0x7
0x030f…0320 at0008 = ╱dd╱<╱ // 0x317 @0x8
0x030f…0320 at0009 = ╱36╱6╱ // 0x318 @0x9
0x030f…0320 at000a = ╱fe0000c003╱ // 0x319 @0xa
0x030f…0320 at000f = ╱b6╱ THEN ╱ // 0x31e @0xf
0x030f…0320 at0010 = EOL // 0x31f @0x10
0x030f…0320 }
0x0320…032c 9083 0220 IF FLAG THEN STOP
0x0320…032c LineComalBin {
0x0320…032c ptr = 0x9083 // 0x320 @0x0
0x0320…032c lno = 0x00dc // 0x322 @0x2
0x0320…032c at0004 = ╱82╱ IF ╱ // 0x324 @0x4
0x0320…032c at0005 = ╱46╱F╱ // 0x325 @0x5
0x0320…032c at0006 = ╱4c╱L╱ // 0x326 @0x6
0x0320…032c at0007 = ╱41╱A╱ // 0x327 @0x7
0x0320…032c at0008 = ╱47╱G╱ // 0x328 @0x8
0x0320…032c at0009 = ╱b6╱ THEN ╱ // 0x329 @0x9
0x0320…032c at000a = ╱8d╱ STOP ╱ // 0x32a @0xa
0x0320…032c at000b = EOL // 0x32b @0xb
0x0320…032c }
0x032c…0332 9089 0230 ENDIF
0x032c…0332 LineComalBin {
0x032c…0332 ptr = 0x9089 // 0x32c @0x0
0x032c…0332 lno = 0x00e6 // 0x32e @0x2
0x032c…0332 at0004 = ╱9b╱ ENDIF ╱ // 0x330 @0x4
0x032c…0332 at0005 = EOL // 0x331 @0x5
0x032c…0332 }
0x0332…033f 9096 0240 ES$=RES$
0x0332…033f LineComalBin {
0x0332…033f ptr = 0x9096 // 0x332 @0x0
0x0332…033f lno = 0x00f0 // 0x334 @0x2
0x0332…033f at0004 = ╱45╱E╱ // 0x336 @0x4
0x0332…033f at0005 = ╱53╱S╱ // 0x337 @0x5
0x0332…033f at0006 = ╱ef╱$╱ // 0x338 @0x6
0x0332…033f at0007 = ╱dc╱=╱ // 0x339 @0x7
0x0332…033f at0008 = ╱52╱R╱ // 0x33a @0x8
0x0332…033f at0009 = ╱45╱E╱ // 0x33b @0x9
0x0332…033f at000a = ╱53╱S╱ // 0x33c @0xa
0x0332…033f at000b = ╱ef╱$╱ // 0x33d @0xb
0x0332…033f at000c = EOL // 0x33e @0xc
0x0332…033f }
0x033f…0345 909c 0250 ENDPROC
0x033f…0345 LineComalBin {
0x033f…0345 ptr = 0x909c // 0x33f @0x0
0x033f…0345 lno = 0x00fa // 0x341 @0x2
0x033f…0345 at0004 = ╱9f╱ ENDPROC ╱ // 0x343 @0x4
0x033f…0345 at0005 = EOL // 0x344 @0x5
0x033f…0345 }
0x0345…035c 90b3 0260 PROC FEJL(NR1,NR2,NR3)
0x0345…035c LineComalBin {
0x0345…035c ptr = 0x90b3 // 0x345 @0x0
0x0345…035c lno = 0x0104 // 0x347 @0x2
0x0345…035c at0004 = ╱9e╱ PROC ╱ // 0x349 @0x4
0x0345…035c at0005 = ╱46╱F╱ // 0x34a @0x5
0x0345…035c at0006 = ╱45╱E╱ // 0x34b @0x6
0x0345…035c at0007 = ╱4a╱J╱ // 0x34c @0x7
0x0345…035c at0008 = ╱4c╱L╱ // 0x34d @0x8
0x0345…035c at0009 = ╱ed╱(╱ // 0x34e @0x9
0x0345…035c at000a = ╱4e╱N╱ // 0x34f @0xa
0x0345…035c at000b = ╱52╱R╱ // 0x350 @0xb
0x0345…035c at000c = ╱31╱1╱ // 0x351 @0xc
0x0345…035c at000d = ╱ec╱,╱ // 0x352 @0xd
0x0345…035c at000e = ╱4e╱N╱ // 0x353 @0xe
0x0345…035c at000f = ╱52╱R╱ // 0x354 @0xf
0x0345…035c at0010 = ╱32╱2╱ // 0x355 @0x10
0x0345…035c at0011 = ╱ec╱,╱ // 0x356 @0x11
0x0345…035c at0012 = ╱4e╱N╱ // 0x357 @0x12
0x0345…035c at0013 = ╱52╱R╱ // 0x358 @0x13
0x0345…035c at0014 = ╱33╱3╱ // 0x359 @0x14
0x0345…035c at0015 = ╱ee╱)╱ // 0x35a @0x15
0x0345…035c at0016 = EOL // 0x35b @0x16
0x0345…035c }
0x035c…036c 90c3 0270 IF STATUS(NR3$)<>B THEN
0x035c…036c LineComalBin {
0x035c…036c ptr = 0x90c3 // 0x35c @0x0
0x035c…036c lno = 0x010e // 0x35e @0x2
0x035c…036c at0004 = ╱9c╱ IF ╱ // 0x360 @0x4
0x035c…036c at0005 = ╱ce╱STATUS╱ // 0x361 @0x5
0x035c…036c at0006 = ╱ed╱(╱ // 0x362 @0x6
0x035c…036c at0007 = ╱4e╱N╱ // 0x363 @0x7
0x035c…036c at0008 = ╱52╱R╱ // 0x364 @0x8
0x035c…036c at0009 = ╱33╱3╱ // 0x365 @0x9
0x035c…036c at000a = ╱ef╱$╱ // 0x366 @0xa
0x035c…036c at000b = ╱ee╱)╱ // 0x367 @0xb
0x035c…036c at000c = ╱e1╱<>╱ // 0x368 @0xc
0x035c…036c at000d = ╱42╱B╱ // 0x369 @0xd
0x035c…036c at000e = ╱b6╱ THEN ╱ // 0x36a @0xe
0x035c…036c at000f = EOL // 0x36b @0xf
0x035c…036c }
0x036c…0386 90dd 0280 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x036c…0386 LineComalBin {
0x036c…0386 ptr = 0x90dd // 0x36c @0x0
0x036c…0386 lno = 0x0118 // 0x36e @0x2
0x036c…0386 at0004 = ╱92╱ PRINT ╱ // 0x370 @0x4
0x036c…0386 at0005 = ╱ce╱STATUS╱ // 0x371 @0x5
0x036c…0386 at0006 = ╱ed╱(╱ // 0x372 @0x6
0x036c…0386 at0007 = ╱4e╱N╱ // 0x373 @0x7
0x036c…0386 at0008 = ╱52╱R╱ // 0x374 @0x8
0x036c…0386 at0009 = ╱33╱3╱ // 0x375 @0x9
0x036c…0386 at000a = ╱ef╱$╱ // 0x376 @0xa
0x036c…0386 at000b = ╱ee╱)╱ // 0x377 @0xb
0x036c…0386 at000c = ╱ec╱,╱ // 0x378 @0xc
0x036c…0386 at000d = ╱4e╱N╱ // 0x379 @0xd
0x036c…0386 at000e = ╱52╱R╱ // 0x37a @0xe
0x036c…0386 at000f = ╱31╱1╱ // 0x37b @0xf
0x036c…0386 at0010 = ╱ec╱,╱ // 0x37c @0x10
0x036c…0386 at0011 = ╱4e╱N╱ // 0x37d @0x11
0x036c…0386 at0012 = ╱52╱R╱ // 0x37e @0x12
0x036c…0386 at0013 = ╱32╱2╱ // 0x37f @0x13
0x036c…0386 at0014 = ╱ec╱,╱ // 0x380 @0x14
0x036c…0386 at0015 = ╱4e╱N╱ // 0x381 @0x15
0x036c…0386 at0016 = ╱52╱R╱ // 0x382 @0x16
0x036c…0386 at0017 = ╱33╱3╱ // 0x383 @0x17
0x036c…0386 at0018 = ╱ef╱$╱ // 0x384 @0x18
0x036c…0386 at0019 = EOL // 0x385 @0x19
0x036c…0386 }
0x0386…038c 90e3 0290 STOP
0x0386…038c LineComalBin {
0x0386…038c ptr = 0x90e3 // 0x386 @0x0
0x0386…038c lno = 0x0122 // 0x388 @0x2
0x0386…038c at0004 = ╱8d╱ STOP ╱ // 0x38a @0x4
0x0386…038c at0005 = EOL // 0x38b @0x5
0x0386…038c }
0x038c…0392 90e9 0300 ENDIF
0x038c…0392 LineComalBin {
0x038c…0392 ptr = 0x90e9 // 0x38c @0x0
0x038c…0392 lno = 0x012c // 0x38e @0x2
0x038c…0392 at0004 = ╱9b╱ ENDIF ╱ // 0x390 @0x4
0x038c…0392 at0005 = EOL // 0x391 @0x5
0x038c…0392 }
0x0392…0398 90ef 0310 ENDPROC
0x0392…0398 LineComalBin {
0x0392…0398 ptr = 0x90ef // 0x392 @0x0
0x0392…0398 lno = 0x0136 // 0x394 @0x2
0x0392…0398 at0004 = ╱9f╱ ENDPROC ╱ // 0x396 @0x4
0x0392…0398 at0005 = EOL // 0x397 @0x5
0x0392…0398 }
0x0398…03b7 910e 0320 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x0398…03b7 LineComalBin {
0x0398…03b7 ptr = 0x910e // 0x398 @0x0
0x0398…03b7 lno = 0x0140 // 0x39a @0x2
0x0398…03b7 at0004 = ╱9e╱ PROC ╱ // 0x39c @0x4
0x0398…03b7 at0005 = ╱54╱T╱ // 0x39d @0x5
0x0398…03b7 at0006 = ╱55╱U╱ // 0x39e @0x6
0x0398…03b7 at0007 = ╱44╱D╱ // 0x39f @0x7
0x0398…03b7 at0008 = ╱ed╱(╱ // 0x3a0 @0x8
0x0398…03b7 at0009 = ╱42╱B╱ // 0x3a1 @0x9
0x0398…03b7 at000a = ╱4c╱L╱ // 0x3a2 @0xa
0x0398…03b7 at000b = ╱42╱B╱ // 0x3a3 @0xb
0x0398…03b7 at000c = ╱31╱1╱ // 0x3a4 @0xc
0x0398…03b7 at000d = ╱ec╱,╱ // 0x3a5 @0xd
0x0398…03b7 at000e = ╱55╱U╱ // 0x3a6 @0xe
0x0398…03b7 at000f = ╱42╱B╱ // 0x3a7 @0xf
0x0398…03b7 at0010 = ╱4c╱L╱ // 0x3a8 @0x10
0x0398…03b7 at0011 = ╱42╱B╱ // 0x3a9 @0x11
0x0398…03b7 at0012 = ╱31╱1╱ // 0x3aa @0x12
0x0398…03b7 at0013 = ╱ec╱,╱ // 0x3ab @0x13
0x0398…03b7 at0014 = ╱54╱T╱ // 0x3ac @0x14
0x0398…03b7 at0015 = ╱45╱E╱ // 0x3ad @0x15
0x0398…03b7 at0016 = ╱47╱G╱ // 0x3ae @0x16
0x0398…03b7 at0017 = ╱4e╱N╱ // 0x3af @0x17
0x0398…03b7 at0018 = ╱ec╱,╱ // 0x3b0 @0x18
0x0398…03b7 at0019 = ╱53╱S╱ // 0x3b1 @0x19
0x0398…03b7 at001a = ╱54╱T╱ // 0x3b2 @0x1a
0x0398…03b7 at001b = ╱5c╱Ø╱ // 0x3b3 @0x1b
0x0398…03b7 at001c = ╱52╱R╱ // 0x3b4 @0x1c
0x0398…03b7 at001d = ╱ee╱)╱ // 0x3b5 @0x1d
0x0398…03b7 at001e = EOL // 0x3b6 @0x1e
0x0398…03b7 }
0x03b7…03c7 911e 0330 BLB2$=BLB1$
0x03b7…03c7 LineComalBin {
0x03b7…03c7 ptr = 0x911e // 0x3b7 @0x0
0x03b7…03c7 lno = 0x014a // 0x3b9 @0x2
0x03b7…03c7 at0004 = ╱42╱B╱ // 0x3bb @0x4
0x03b7…03c7 at0005 = ╱4c╱L╱ // 0x3bc @0x5
0x03b7…03c7 at0006 = ╱42╱B╱ // 0x3bd @0x6
0x03b7…03c7 at0007 = ╱32╱2╱ // 0x3be @0x7
0x03b7…03c7 at0008 = ╱ef╱$╱ // 0x3bf @0x8
0x03b7…03c7 at0009 = ╱dc╱=╱ // 0x3c0 @0x9
0x03b7…03c7 at000a = ╱42╱B╱ // 0x3c1 @0xa
0x03b7…03c7 at000b = ╱4c╱L╱ // 0x3c2 @0xb
0x03b7…03c7 at000c = ╱42╱B╱ // 0x3c3 @0xc
0x03b7…03c7 at000d = ╱31╱1╱ // 0x3c4 @0xd
0x03b7…03c7 at000e = ╱ef╱$╱ // 0x3c5 @0xe
0x03b7…03c7 at000f = EOL // 0x3c6 @0xf
0x03b7…03c7 }
0x03c7…03eb 9142 0340 EXEC CALC(5,BLB2$,TAH$,UBLB1$)
0x03c7…03eb LineComalBin {
0x03c7…03eb ptr = 0x9142 // 0x3c7 @0x0
0x03c7…03eb lno = 0x0154 // 0x3c9 @0x2
0x03c7…03eb at0004 = ╱9d╱ EXEC ╱ // 0x3cb @0x4
0x03c7…03eb at0005 = ╱43╱C╱ // 0x3cc @0x5
0x03c7…03eb at0006 = ╱41╱A╱ // 0x3cd @0x6
0x03c7…03eb at0007 = ╱4c╱L╱ // 0x3ce @0x7
0x03c7…03eb at0008 = ╱43╱C╱ // 0x3cf @0x8
0x03c7…03eb at0009 = ╱ed╱(╱ // 0x3d0 @0x9
0x03c7…03eb at000a = ╱35╱5╱ // 0x3d1 @0xa
0x03c7…03eb at000b = ╱fe0000a003╱ // 0x3d2 @0xb
0x03c7…03eb at0010 = ╱ec╱,╱ // 0x3d7 @0x10
0x03c7…03eb at0011 = ╱42╱B╱ // 0x3d8 @0x11
0x03c7…03eb at0012 = ╱4c╱L╱ // 0x3d9 @0x12
0x03c7…03eb at0013 = ╱42╱B╱ // 0x3da @0x13
0x03c7…03eb at0014 = ╱32╱2╱ // 0x3db @0x14
0x03c7…03eb at0015 = ╱ef╱$╱ // 0x3dc @0x15
0x03c7…03eb at0016 = ╱ec╱,╱ // 0x3dd @0x16
0x03c7…03eb at0017 = ╱54╱T╱ // 0x3de @0x17
0x03c7…03eb at0018 = ╱41╱A╱ // 0x3df @0x18
0x03c7…03eb at0019 = ╱48╱H╱ // 0x3e0 @0x19
0x03c7…03eb at001a = ╱ef╱$╱ // 0x3e1 @0x1a
0x03c7…03eb at001b = ╱ec╱,╱ // 0x3e2 @0x1b
0x03c7…03eb at001c = ╱55╱U╱ // 0x3e3 @0x1c
0x03c7…03eb at001d = ╱42╱B╱ // 0x3e4 @0x1d
0x03c7…03eb at001e = ╱4c╱L╱ // 0x3e5 @0x1e
0x03c7…03eb at001f = ╱42╱B╱ // 0x3e6 @0x1f
0x03c7…03eb at0020 = ╱31╱1╱ // 0x3e7 @0x20
0x03c7…03eb at0021 = ╱ef╱$╱ // 0x3e8 @0x21
0x03c7…03eb at0022 = ╱ee╱)╱ // 0x3e9 @0x22
0x03c7…03eb at0023 = EOL // 0x3ea @0x23
0x03c7…03eb }
0x03eb…0410 9167 0350 IF TEGN=B THEN UBLB1$=UBLB1$(E:13)
0x03eb…0410 LineComalBin {
0x03eb…0410 ptr = 0x9167 // 0x3eb @0x0
0x03eb…0410 lno = 0x015e // 0x3ed @0x2
0x03eb…0410 at0004 = ╱82╱ IF ╱ // 0x3ef @0x4
0x03eb…0410 at0005 = ╱54╱T╱ // 0x3f0 @0x5
0x03eb…0410 at0006 = ╱45╱E╱ // 0x3f1 @0x6
0x03eb…0410 at0007 = ╱47╱G╱ // 0x3f2 @0x7
0x03eb…0410 at0008 = ╱4e╱N╱ // 0x3f3 @0x8
0x03eb…0410 at0009 = ╱dc╱=╱ // 0x3f4 @0x9
0x03eb…0410 at000a = ╱42╱B╱ // 0x3f5 @0xa
0x03eb…0410 at000b = ╱b6╱ THEN ╱ // 0x3f6 @0xb
0x03eb…0410 at000c = ╱55╱U╱ // 0x3f7 @0xc
0x03eb…0410 at000d = ╱42╱B╱ // 0x3f8 @0xd
0x03eb…0410 at000e = ╱4c╱L╱ // 0x3f9 @0xe
0x03eb…0410 at000f = ╱42╱B╱ // 0x3fa @0xf
0x03eb…0410 at0010 = ╱31╱1╱ // 0x3fb @0x10
0x03eb…0410 at0011 = ╱ef╱$╱ // 0x3fc @0x11
0x03eb…0410 at0012 = ╱dc╱=╱ // 0x3fd @0x12
0x03eb…0410 at0013 = ╱55╱U╱ // 0x3fe @0x13
0x03eb…0410 at0014 = ╱42╱B╱ // 0x3ff @0x14
0x03eb…0410 at0015 = ╱4c╱L╱ // 0x400 @0x15
0x03eb…0410 at0016 = ╱42╱B╱ // 0x401 @0x16
0x03eb…0410 at0017 = ╱31╱1╱ // 0x402 @0x17
0x03eb…0410 at0018 = ╱ef╱$╱ // 0x403 @0x18
0x03eb…0410 at0019 = ╱ed╱(╱ // 0x404 @0x19
0x03eb…0410 at001a = ╱45╱E╱ // 0x405 @0x1a
0x03eb…0410 at001b = ╱f0╱:╱ // 0x406 @0x1b
0x03eb…0410 at001c = ╱31╱1╱ // 0x407 @0x1c
0x03eb…0410 at001d = ╱33╱3╱ // 0x408 @0x1d
0x03eb…0410 at001e = ╱fe0000d004╱ // 0x409 @0x1e
0x03eb…0410 at0023 = ╱ee╱)╱ // 0x40e @0x23
0x03eb…0410 at0024 = EOL // 0x40f @0x24
0x03eb…0410 }
0x0410…0448 919f 0360 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "
0x0410…0448 LineComalBin {
0x0410…0448 ptr = 0x919f // 0x410 @0x0
0x0410…0448 lno = 0x0168 // 0x412 @0x2
0x0410…0448 at0004 = ╱82╱ IF ╱ // 0x414 @0x4
0x0410…0448 at0005 = ╱54╱T╱ // 0x415 @0x5
0x0410…0448 at0006 = ╱45╱E╱ // 0x416 @0x6
0x0410…0448 at0007 = ╱47╱G╱ // 0x417 @0x7
0x0410…0448 at0008 = ╱4e╱N╱ // 0x418 @0x8
0x0410…0448 at0009 = ╱dc╱=╱ // 0x419 @0x9
0x0410…0448 at000a = ╱45╱E╱ // 0x41a @0xa
0x0410…0448 at000b = ╱da╱ AND ╱ // 0x41b @0xb
0x0410…0448 at000c = ╱55╱U╱ // 0x41c @0xc
0x0410…0448 at000d = ╱42╱B╱ // 0x41d @0xd
0x0410…0448 at000e = ╱4c╱L╱ // 0x41e @0xe
0x0410…0448 at000f = ╱42╱B╱ // 0x41f @0xf
0x0410…0448 at0010 = ╱31╱1╱ // 0x420 @0x10
0x0410…0448 at0011 = ╱ef╱$╱ // 0x421 @0x11
0x0410…0448 at0012 = ╱ed╱(╱ // 0x422 @0x12
0x0410…0448 at0013 = ╱cc╱LEN╱ // 0x423 @0x13
0x0410…0448 at0014 = ╱ed╱(╱ // 0x424 @0x14
0x0410…0448 at0015 = ╱55╱U╱ // 0x425 @0x15
0x0410…0448 at0016 = ╱42╱B╱ // 0x426 @0x16
0x0410…0448 at0017 = ╱4c╱L╱ // 0x427 @0x17
0x0410…0448 at0018 = ╱42╱B╱ // 0x428 @0x18
0x0410…0448 at0019 = ╱31╱1╱ // 0x429 @0x19
0x0410…0448 at001a = ╱ef╱$╱ // 0x42a @0x1a
0x0410…0448 at001b = ╱ee╱)╱ // 0x42b @0x1b
0x0410…0448 at001c = ╱ee╱)╱ // 0x42c @0x1c
0x0410…0448 at001d = ╱dc╱=╱ // 0x42d @0x1d
0x0410…0448 at001e = ╱22╱"╱ // 0x42e @0x1e
0x0410…0448 at001f = ╱2b╱+╱ // 0x42f @0x1f
0x0410…0448 at0020 = ╱22╱"╱ // 0x430 @0x20
0x0410…0448 at0021 = ╱b6╱ THEN ╱ // 0x431 @0x21
0x0410…0448 at0022 = ╱55╱U╱ // 0x432 @0x22
0x0410…0448 at0023 = ╱42╱B╱ // 0x433 @0x23
0x0410…0448 at0024 = ╱4c╱L╱ // 0x434 @0x24
0x0410…0448 at0025 = ╱42╱B╱ // 0x435 @0x25
0x0410…0448 at0026 = ╱31╱1╱ // 0x436 @0x26
0x0410…0448 at0027 = ╱ef╱$╱ // 0x437 @0x27
0x0410…0448 at0028 = ╱ed╱(╱ // 0x438 @0x28
0x0410…0448 at0029 = ╱cc╱LEN╱ // 0x439 @0x29
0x0410…0448 at002a = ╱ed╱(╱ // 0x43a @0x2a
0x0410…0448 at002b = ╱55╱U╱ // 0x43b @0x2b
0x0410…0448 at002c = ╱42╱B╱ // 0x43c @0x2c
0x0410…0448 at002d = ╱4c╱L╱ // 0x43d @0x2d
0x0410…0448 at002e = ╱42╱B╱ // 0x43e @0x2e
0x0410…0448 at002f = ╱31╱1╱ // 0x43f @0x2f
0x0410…0448 at0030 = ╱ef╱$╱ // 0x440 @0x30
0x0410…0448 at0031 = ╱ee╱)╱ // 0x441 @0x31
0x0410…0448 at0032 = ╱ee╱)╱ // 0x442 @0x32
0x0410…0448 at0033 = ╱dc╱=╱ // 0x443 @0x33
0x0410…0448 at0034 = ╱22╱"╱ // 0x444 @0x34
0x0410…0448 at0035 = ╱20╱…╱ // 0x445 @0x35
0x0410…0448 at0036 = ╱22╱"╱ // 0x446 @0x36
0x0410…0448 at0037 = EOL // 0x447 @0x37
0x0410…0448 }
0x0448…0476 91cd 0370 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x0448…0476 LineComalBin {
0x0448…0476 ptr = 0x91cd // 0x448 @0x0
0x0448…0476 lno = 0x0172 // 0x44a @0x2
0x0448…0476 at0004 = ╱82╱ IF ╱ // 0x44c @0x4
0x0448…0476 at0005 = ╱53╱S╱ // 0x44d @0x5
0x0448…0476 at0006 = ╱54╱T╱ // 0x44e @0x6
0x0448…0476 at0007 = ╱5c╱Ø╱ // 0x44f @0x7
0x0448…0476 at0008 = ╱52╱R╱ // 0x450 @0x8
0x0448…0476 at0009 = ╱dc╱=╱ // 0x451 @0x9
0x0448…0476 at000a = ╱45╱E╱ // 0x452 @0xa
0x0448…0476 at000b = ╱b6╱ THEN ╱ // 0x453 @0xb
0x0448…0476 at000c = ╱55╱U╱ // 0x454 @0xc
0x0448…0476 at000d = ╱42╱B╱ // 0x455 @0xd
0x0448…0476 at000e = ╱4c╱L╱ // 0x456 @0xe
0x0448…0476 at000f = ╱42╱B╱ // 0x457 @0xf
0x0448…0476 at0010 = ╱31╱1╱ // 0x458 @0x10
0x0448…0476 at0011 = ╱ef╱$╱ // 0x459 @0x11
0x0448…0476 at0012 = ╱dc╱=╱ // 0x45a @0x12
0x0448…0476 at0013 = ╱55╱U╱ // 0x45b @0x13
0x0448…0476 at0014 = ╱42╱B╱ // 0x45c @0x14
0x0448…0476 at0015 = ╱4c╱L╱ // 0x45d @0x15
0x0448…0476 at0016 = ╱42╱B╱ // 0x45e @0x16
0x0448…0476 at0017 = ╱31╱1╱ // 0x45f @0x17
0x0448…0476 at0018 = ╱ef╱$╱ // 0x460 @0x18
0x0448…0476 at0019 = ╱ed╱(╱ // 0x461 @0x19
0x0448…0476 at001a = ╱34╱4╱ // 0x462 @0x1a
0x0448…0476 at001b = ╱fe00008003╱ // 0x463 @0x1b
0x0448…0476 at0020 = ╱f0╱:╱ // 0x468 @0x20
0x0448…0476 at0021 = ╱cc╱LEN╱ // 0x469 @0x21
0x0448…0476 at0022 = ╱ed╱(╱ // 0x46a @0x22
0x0448…0476 at0023 = ╱55╱U╱ // 0x46b @0x23
0x0448…0476 at0024 = ╱42╱B╱ // 0x46c @0x24
0x0448…0476 at0025 = ╱4c╱L╱ // 0x46d @0x25
0x0448…0476 at0026 = ╱42╱B╱ // 0x46e @0x26
0x0448…0476 at0027 = ╱31╱1╱ // 0x46f @0x27
0x0448…0476 at0028 = ╱ef╱$╱ // 0x470 @0x28
0x0448…0476 at0029 = ╱ee╱)╱ // 0x471 @0x29
0x0448…0476 at002a = ╱e3╱-╱ // 0x472 @0x2a
0x0448…0476 at002b = ╱56╱V╱ // 0x473 @0x2b
0x0448…0476 at002c = ╱ee╱)╱ // 0x474 @0x2c
0x0448…0476 at002d = EOL // 0x475 @0x2d
0x0448…0476 }
0x0476…0482 91d9 0380 PRINT UBLB1$
0x0476…0482 LineComalBin {
0x0476…0482 ptr = 0x91d9 // 0x476 @0x0
0x0476…0482 lno = 0x017c // 0x478 @0x2
0x0476…0482 at0004 = ╱92╱ PRINT ╱ // 0x47a @0x4
0x0476…0482 at0005 = ╱55╱U╱ // 0x47b @0x5
0x0476…0482 at0006 = ╱42╱B╱ // 0x47c @0x6
0x0476…0482 at0007 = ╱4c╱L╱ // 0x47d @0x7
0x0476…0482 at0008 = ╱42╱B╱ // 0x47e @0x8
0x0476…0482 at0009 = ╱31╱1╱ // 0x47f @0x9
0x0476…0482 at000a = ╱ef╱$╱ // 0x480 @0xa
0x0476…0482 at000b = EOL // 0x481 @0xb
0x0476…0482 }
0x0482…0488 91df 0390 ENDPROC
0x0482…0488 LineComalBin {
0x0482…0488 ptr = 0x91df // 0x482 @0x0
0x0482…0488 lno = 0x0186 // 0x484 @0x2
0x0482…0488 at0004 = ╱9f╱ ENDPROC ╱ // 0x486 @0x4
0x0482…0488 at0005 = EOL // 0x487 @0x5
0x0482…0488 }
0x0488…04b3 920a 0400 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)
0x0488…04b3 LineComalBin {
0x0488…04b3 ptr = 0x920a // 0x488 @0x0
0x0488…04b3 lno = 0x0190 // 0x48a @0x2
0x0488…04b3 at0004 = ╱9e╱ PROC ╱ // 0x48c @0x4
0x0488…04b3 at0005 = ╱46╱F╱ // 0x48d @0x5
0x0488…04b3 at0006 = ╱49╱I╱ // 0x48e @0x6
0x0488…04b3 at0007 = ╱4e╱N╱ // 0x48f @0x7
0x0488…04b3 at0008 = ╱44╱D╱ // 0x490 @0x8
0x0488…04b3 at0009 = ╱50╱P╱ // 0x491 @0x9
0x0488…04b3 at000a = ╱4f╱O╱ // 0x492 @0xa
0x0488…04b3 at000b = ╱53╱S╱ // 0x493 @0xb
0x0488…04b3 at000c = ╱54╱T╱ // 0x494 @0xc
0x0488…04b3 at000d = ╱31╱1╱ // 0x495 @0xd
0x0488…04b3 at000e = ╱ed╱(╱ // 0x496 @0xe
0x0488…04b3 at000f = ╱54╱T╱ // 0x497 @0xf
0x0488…04b3 at0010 = ╱41╱A╱ // 0x498 @0x10
0x0488…04b3 at0011 = ╱42╱B╱ // 0x499 @0x11
0x0488…04b3 at0012 = ╱34╱4╱ // 0x49a @0x12
0x0488…04b3 at0013 = ╱ec╱,╱ // 0x49b @0x13
0x0488…04b3 at0014 = ╱51╱Q╱ // 0x49c @0x14
0x0488…04b3 at0015 = ╱ec╱,╱ // 0x49d @0x15
0x0488…04b3 at0016 = ╱4d╱M╱ // 0x49e @0x16
0x0488…04b3 at0017 = ╱41╱A╱ // 0x49f @0x17
0x0488…04b3 at0018 = ╱4e╱N╱ // 0x4a0 @0x18
0x0488…04b3 at0019 = ╱54╱T╱ // 0x4a1 @0x19
0x0488…04b3 at001a = ╱32╱2╱ // 0x4a2 @0x1a
0x0488…04b3 at001b = ╱ec╱,╱ // 0x4a3 @0x1b
0x0488…04b3 at001c = ╱4e╱N╱ // 0x4a4 @0x1c
0x0488…04b3 at001d = ╱5c╱Ø╱ // 0x4a5 @0x1d
0x0488…04b3 at001e = ╱47╱G╱ // 0x4a6 @0x1e
0x0488…04b3 at001f = ╱4c╱L╱ // 0x4a7 @0x1f
0x0488…04b3 at0020 = ╱35╱5╱ // 0x4a8 @0x20
0x0488…04b3 at0021 = ╱ec╱,╱ // 0x4a9 @0x21
0x0488…04b3 at0022 = ╱50╱P╱ // 0x4aa @0x22
0x0488…04b3 at0023 = ╱49╱I╱ // 0x4ab @0x23
0x0488…04b3 at0024 = ╱4c╱L╱ // 0x4ac @0x24
0x0488…04b3 at0025 = ╱36╱6╱ // 0x4ad @0x25
0x0488…04b3 at0026 = ╱ec╱,╱ // 0x4ae @0x26
0x0488…04b3 at0027 = ╱4c╱L╱ // 0x4af @0x27
0x0488…04b3 at0028 = ╱38╱8╱ // 0x4b0 @0x28
0x0488…04b3 at0029 = ╱ee╱)╱ // 0x4b1 @0x29
0x0488…04b3 at002a = EOL // 0x4b2 @0x2a
0x0488…04b3 }
0x04b3…0501 9258 0410 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=E;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32
0x04b3…0501 LineComalBin {
0x04b3…0501 ptr = 0x9258 // 0x4b3 @0x0
0x04b3…0501 lno = 0x019a // 0x4b5 @0x2
0x04b3…0501 at0004 = ╱50╱P╱ // 0x4b7 @0x4
0x04b3…0501 at0005 = ╱49╱I╱ // 0x4b8 @0x5
0x04b3…0501 at0006 = ╱4c╱L╱ // 0x4b9 @0x6
0x04b3…0501 at0007 = ╱31╱1╱ // 0x4ba @0x7
0x04b3…0501 at0008 = ╱dc╱=╱ // 0x4bb @0x8
0x04b3…0501 at0009 = ╱4d╱M╱ // 0x4bc @0x9
0x04b3…0501 at000a = ╱41╱A╱ // 0x4bd @0xa
0x04b3…0501 at000b = ╱4e╱N╱ // 0x4be @0xb
0x04b3…0501 at000c = ╱54╱T╱ // 0x4bf @0xc
0x04b3…0501 at000d = ╱32╱2╱ // 0x4c0 @0xd
0x04b3…0501 at000e = ╱e7╱ DIV ╱ // 0x4c1 @0xe
0x04b3…0501 at000f = ╱38╱8╱ // 0x4c2 @0xf
0x04b3…0501 at0010 = ╱fe00008004╱ // 0x4c3 @0x10
0x04b3…0501 at0015 = ╱eb╱;╱ // 0x4c8 @0x15
0x04b3…0501 at0016 = ╱50╱P╱ // 0x4c9 @0x16
0x04b3…0501 at0017 = ╱49╱I╱ // 0x4ca @0x17
0x04b3…0501 at0018 = ╱4c╱L╱ // 0x4cb @0x18
0x04b3…0501 at0019 = ╱36╱6╱ // 0x4cc @0x19
0x04b3…0501 at001a = ╱dc╱=╱ // 0x4cd @0x1a
0x04b3…0501 at001b = ╱50╱P╱ // 0x4ce @0x1b
0x04b3…0501 at001c = ╱49╱I╱ // 0x4cf @0x1c
0x04b3…0501 at001d = ╱4c╱L╱ // 0x4d0 @0x1d
0x04b3…0501 at001e = ╱31╱1╱ // 0x4d1 @0x1e
0x04b3…0501 at001f = ╱eb╱;╱ // 0x4d2 @0x1f
0x04b3…0501 at0020 = ╱43╱C╱ // 0x4d3 @0x20
0x04b3…0501 at0021 = ╱45╱E╱ // 0x4d4 @0x21
0x04b3…0501 at0022 = ╱4b╱K╱ // 0x4d5 @0x22
0x04b3…0501 at0023 = ╱53╱S╱ // 0x4d6 @0x23
0x04b3…0501 at0024 = ╱dc╱=╱ // 0x4d7 @0x24
0x04b3…0501 at0025 = ╱45╱E╱ // 0x4d8 @0x25
0x04b3…0501 at0026 = ╱eb╱;╱ // 0x4d9 @0x26
0x04b3…0501 at0027 = ╱4d╱M╱ // 0x4da @0x27
0x04b3…0501 at0028 = ╱41╱A╱ // 0x4db @0x28
0x04b3…0501 at0029 = ╱4e╱N╱ // 0x4dc @0x29
0x04b3…0501 at002a = ╱54╱T╱ // 0x4dd @0x2a
0x04b3…0501 at002b = ╱33╱3╱ // 0x4de @0x2b
0x04b3…0501 at002c = ╱dc╱=╱ // 0x4df @0x2c
0x04b3…0501 at002d = ╱4d╱M╱ // 0x4e0 @0x2d
0x04b3…0501 at002e = ╱41╱A╱ // 0x4e1 @0x2e
0x04b3…0501 at002f = ╱4e╱N╱ // 0x4e2 @0x2f
0x04b3…0501 at0030 = ╱54╱T╱ // 0x4e3 @0x30
0x04b3…0501 at0031 = ╱32╱2╱ // 0x4e4 @0x31
0x04b3…0501 at0032 = ╱e7╱ DIV ╱ // 0x4e5 @0x32
0x04b3…0501 at0033 = ╱34╱4╱ // 0x4e6 @0x33
0x04b3…0501 at0034 = ╱fe00008003╱ // 0x4e7 @0x34
0x04b3…0501 at0039 = ╱eb╱;╱ // 0x4ec @0x39
0x04b3…0501 at003a = ╱4d╱M╱ // 0x4ed @0x3a
0x04b3…0501 at003b = ╱41╱A╱ // 0x4ee @0x3b
0x04b3…0501 at003c = ╱4e╱N╱ // 0x4ef @0x3c
0x04b3…0501 at003d = ╱54╱T╱ // 0x4f0 @0x3d
0x04b3…0501 at003e = ╱34╱4╱ // 0x4f1 @0x3e
0x04b3…0501 at003f = ╱dc╱=╱ // 0x4f2 @0x3f
0x04b3…0501 at0040 = ╱4d╱M╱ // 0x4f3 @0x40
0x04b3…0501 at0041 = ╱41╱A╱ // 0x4f4 @0x41
0x04b3…0501 at0042 = ╱4e╱N╱ // 0x4f5 @0x42
0x04b3…0501 at0043 = ╱54╱T╱ // 0x4f6 @0x43
0x04b3…0501 at0044 = ╱32╱2╱ // 0x4f7 @0x44
0x04b3…0501 at0045 = ╱e7╱ DIV ╱ // 0x4f8 @0x45
0x04b3…0501 at0046 = ╱33╱3╱ // 0x4f9 @0x46
0x04b3…0501 at0047 = ╱32╱2╱ // 0x4fa @0x47
0x04b3…0501 at0048 = ╱fe00008006╱ // 0x4fb @0x48
0x04b3…0501 at004d = EOL // 0x500 @0x4d
0x04b3…0501 }
0x0501…0507 925e 0420 REPEAT
0x0501…0507 LineComalBin {
0x0501…0507 ptr = 0x925e // 0x501 @0x0
0x0501…0507 lno = 0x01a4 // 0x503 @0x2
0x0501…0507 at0004 = ╱97╱ REPEAT ╱ // 0x505 @0x4
0x0501…0507 at0005 = EOL // 0x506 @0x5
0x0501…0507 }
0x0507…0526 927d 0430 IF NØGL5=TAB4(PIL6) OR PIL1=E THEN EXIT
0x0507…0526 LineComalBin {
0x0507…0526 ptr = 0x927d // 0x507 @0x0
0x0507…0526 lno = 0x01ae // 0x509 @0x2
0x0507…0526 at0004 = ╱82╱ IF ╱ // 0x50b @0x4
0x0507…0526 at0005 = ╱4e╱N╱ // 0x50c @0x5
0x0507…0526 at0006 = ╱5c╱Ø╱ // 0x50d @0x6
0x0507…0526 at0007 = ╱47╱G╱ // 0x50e @0x7
0x0507…0526 at0008 = ╱4c╱L╱ // 0x50f @0x8
0x0507…0526 at0009 = ╱35╱5╱ // 0x510 @0x9
0x0507…0526 at000a = ╱dc╱=╱ // 0x511 @0xa
0x0507…0526 at000b = ╱54╱T╱ // 0x512 @0xb
0x0507…0526 at000c = ╱41╱A╱ // 0x513 @0xc
0x0507…0526 at000d = ╱42╱B╱ // 0x514 @0xd
0x0507…0526 at000e = ╱34╱4╱ // 0x515 @0xe
0x0507…0526 at000f = ╱ed╱(╱ // 0x516 @0xf
0x0507…0526 at0010 = ╱50╱P╱ // 0x517 @0x10
0x0507…0526 at0011 = ╱49╱I╱ // 0x518 @0x11
0x0507…0526 at0012 = ╱4c╱L╱ // 0x519 @0x12
0x0507…0526 at0013 = ╱36╱6╱ // 0x51a @0x13
0x0507…0526 at0014 = ╱ee╱)╱ // 0x51b @0x14
0x0507…0526 at0015 = ╱db╱ OR ╱ // 0x51c @0x15
0x0507…0526 at0016 = ╱50╱P╱ // 0x51d @0x16
0x0507…0526 at0017 = ╱49╱I╱ // 0x51e @0x17
0x0507…0526 at0018 = ╱4c╱L╱ // 0x51f @0x18
0x0507…0526 at0019 = ╱31╱1╱ // 0x520 @0x19
0x0507…0526 at001a = ╱dc╱=╱ // 0x521 @0x1a
0x0507…0526 at001b = ╱45╱E╱ // 0x522 @0x1b
0x0507…0526 at001c = ╱b6╱ THEN ╱ // 0x523 @0x1c
0x0507…0526 at001d = ╱99╱ EXIT ╱ // 0x524 @0x1d
0x0507…0526 at001e = EOL // 0x525 @0x1e
0x0507…0526 }
0x0526…0562 92b9 0440 PIL1=(PIL1+E) DIV G;PIL6=PIL6+PIL1*(E-G*(NØGL5<TAB4(PIL6)))
0x0526…0562 LineComalBin {
0x0526…0562 ptr = 0x92b9 // 0x526 @0x0
0x0526…0562 lno = 0x01b8 // 0x528 @0x2
0x0526…0562 at0004 = ╱50╱P╱ // 0x52a @0x4
0x0526…0562 at0005 = ╱49╱I╱ // 0x52b @0x5
0x0526…0562 at0006 = ╱4c╱L╱ // 0x52c @0x6
0x0526…0562 at0007 = ╱31╱1╱ // 0x52d @0x7
0x0526…0562 at0008 = ╱dc╱=╱ // 0x52e @0x8
0x0526…0562 at0009 = ╱ed╱(╱ // 0x52f @0x9
0x0526…0562 at000a = ╱50╱P╱ // 0x530 @0xa
0x0526…0562 at000b = ╱49╱I╱ // 0x531 @0xb
0x0526…0562 at000c = ╱4c╱L╱ // 0x532 @0xc
0x0526…0562 at000d = ╱31╱1╱ // 0x533 @0xd
0x0526…0562 at000e = ╱e2╱+╱ // 0x534 @0xe
0x0526…0562 at000f = ╱45╱E╱ // 0x535 @0xf
0x0526…0562 at0010 = ╱ee╱)╱ // 0x536 @0x10
0x0526…0562 at0011 = ╱e7╱ DIV ╱ // 0x537 @0x11
0x0526…0562 at0012 = ╱47╱G╱ // 0x538 @0x12
0x0526…0562 at0013 = ╱eb╱;╱ // 0x539 @0x13
0x0526…0562 at0014 = ╱50╱P╱ // 0x53a @0x14
0x0526…0562 at0015 = ╱49╱I╱ // 0x53b @0x15
0x0526…0562 at0016 = ╱4c╱L╱ // 0x53c @0x16
0x0526…0562 at0017 = ╱36╱6╱ // 0x53d @0x17
0x0526…0562 at0018 = ╱dc╱=╱ // 0x53e @0x18
0x0526…0562 at0019 = ╱50╱P╱ // 0x53f @0x19
0x0526…0562 at001a = ╱49╱I╱ // 0x540 @0x1a
0x0526…0562 at001b = ╱4c╱L╱ // 0x541 @0x1b
0x0526…0562 at001c = ╱36╱6╱ // 0x542 @0x1c
0x0526…0562 at001d = ╱e2╱+╱ // 0x543 @0x1d
0x0526…0562 at001e = ╱50╱P╱ // 0x544 @0x1e
0x0526…0562 at001f = ╱49╱I╱ // 0x545 @0x1f
0x0526…0562 at0020 = ╱4c╱L╱ // 0x546 @0x20
0x0526…0562 at0021 = ╱31╱1╱ // 0x547 @0x21
0x0526…0562 at0022 = ╱e4╱*╱ // 0x548 @0x22
0x0526…0562 at0023 = ╱ed╱(╱ // 0x549 @0x23
0x0526…0562 at0024 = ╱45╱E╱ // 0x54a @0x24
0x0526…0562 at0025 = ╱e3╱-╱ // 0x54b @0x25
0x0526…0562 at0026 = ╱47╱G╱ // 0x54c @0x26
0x0526…0562 at0027 = ╱e4╱*╱ // 0x54d @0x27
0x0526…0562 at0028 = ╱ed╱(╱ // 0x54e @0x28
0x0526…0562 at0029 = ╱4e╱N╱ // 0x54f @0x29
0x0526…0562 at002a = ╱5c╱Ø╱ // 0x550 @0x2a
0x0526…0562 at002b = ╱47╱G╱ // 0x551 @0x2b
0x0526…0562 at002c = ╱4c╱L╱ // 0x552 @0x2c
0x0526…0562 at002d = ╱35╱5╱ // 0x553 @0x2d
0x0526…0562 at002e = ╱dd╱<╱ // 0x554 @0x2e
0x0526…0562 at002f = ╱54╱T╱ // 0x555 @0x2f
0x0526…0562 at0030 = ╱41╱A╱ // 0x556 @0x30
0x0526…0562 at0031 = ╱42╱B╱ // 0x557 @0x31
0x0526…0562 at0032 = ╱34╱4╱ // 0x558 @0x32
0x0526…0562 at0033 = ╱ed╱(╱ // 0x559 @0x33
0x0526…0562 at0034 = ╱50╱P╱ // 0x55a @0x34
0x0526…0562 at0035 = ╱49╱I╱ // 0x55b @0x35
0x0526…0562 at0036 = ╱4c╱L╱ // 0x55c @0x36
0x0526…0562 at0037 = ╱36╱6╱ // 0x55d @0x37
0x0526…0562 at0038 = ╱ee╱)╱ // 0x55e @0x38
0x0526…0562 at0039 = ╱ee╱)╱ // 0x55f @0x39
0x0526…0562 at003a = ╱ee╱)╱ // 0x560 @0x3a
0x0526…0562 at003b = EOL // 0x561 @0x3b
0x0526…0562 }
0x0562…0575 92cc 0450 IF PIL6<E THEN PIL6=E
0x0562…0575 LineComalBin {
0x0562…0575 ptr = 0x92cc // 0x562 @0x0
0x0562…0575 lno = 0x01c2 // 0x564 @0x2
0x0562…0575 at0004 = ╱82╱ IF ╱ // 0x566 @0x4
0x0562…0575 at0005 = ╱50╱P╱ // 0x567 @0x5
0x0562…0575 at0006 = ╱49╱I╱ // 0x568 @0x6
0x0562…0575 at0007 = ╱4c╱L╱ // 0x569 @0x7
0x0562…0575 at0008 = ╱36╱6╱ // 0x56a @0x8
0x0562…0575 at0009 = ╱dd╱<╱ // 0x56b @0x9
0x0562…0575 at000a = ╱45╱E╱ // 0x56c @0xa
0x0562…0575 at000b = ╱b6╱ THEN ╱ // 0x56d @0xb
0x0562…0575 at000c = ╱50╱P╱ // 0x56e @0xc
0x0562…0575 at000d = ╱49╱I╱ // 0x56f @0xd
0x0562…0575 at000e = ╱4c╱L╱ // 0x570 @0xe
0x0562…0575 at000f = ╱36╱6╱ // 0x571 @0xf
0x0562…0575 at0010 = ╱dc╱=╱ // 0x572 @0x10
0x0562…0575 at0011 = ╱45╱E╱ // 0x573 @0x11
0x0562…0575 at0012 = EOL // 0x574 @0x12
0x0562…0575 }
0x0575…0590 92e7 0460 IF PIL6>MANT3 THEN PIL6=MANT3
0x0575…0590 LineComalBin {
0x0575…0590 ptr = 0x92e7 // 0x575 @0x0
0x0575…0590 lno = 0x01cc // 0x577 @0x2
0x0575…0590 at0004 = ╱82╱ IF ╱ // 0x579 @0x4
0x0575…0590 at0005 = ╱50╱P╱ // 0x57a @0x5
0x0575…0590 at0006 = ╱49╱I╱ // 0x57b @0x6
0x0575…0590 at0007 = ╱4c╱L╱ // 0x57c @0x7
0x0575…0590 at0008 = ╱36╱6╱ // 0x57d @0x8
0x0575…0590 at0009 = ╱de╱>╱ // 0x57e @0x9
0x0575…0590 at000a = ╱4d╱M╱ // 0x57f @0xa
0x0575…0590 at000b = ╱41╱A╱ // 0x580 @0xb
0x0575…0590 at000c = ╱4e╱N╱ // 0x581 @0xc
0x0575…0590 at000d = ╱54╱T╱ // 0x582 @0xd
0x0575…0590 at000e = ╱33╱3╱ // 0x583 @0xe
0x0575…0590 at000f = ╱b6╱ THEN ╱ // 0x584 @0xf
0x0575…0590 at0010 = ╱50╱P╱ // 0x585 @0x10
0x0575…0590 at0011 = ╱49╱I╱ // 0x586 @0x11
0x0575…0590 at0012 = ╱4c╱L╱ // 0x587 @0x12
0x0575…0590 at0013 = ╱36╱6╱ // 0x588 @0x13
0x0575…0590 at0014 = ╱dc╱=╱ // 0x589 @0x14
0x0575…0590 at0015 = ╱4d╱M╱ // 0x58a @0x15
0x0575…0590 at0016 = ╱41╱A╱ // 0x58b @0x16
0x0575…0590 at0017 = ╱4e╱N╱ // 0x58c @0x17
0x0575…0590 at0018 = ╱54╱T╱ // 0x58d @0x18
0x0575…0590 at0019 = ╱33╱3╱ // 0x58e @0x19
0x0575…0590 at001a = EOL // 0x58f @0x1a
0x0575…0590 }
0x0590…059c 92f3 0470 UNTIL PIL1=B
0x0590…059c LineComalBin {
0x0590…059c ptr = 0x92f3 // 0x590 @0x0
0x0590…059c lno = 0x01d6 // 0x592 @0x2
0x0590…059c at0004 = ╱98╱ UNTIL ╱ // 0x594 @0x4
0x0590…059c at0005 = ╱50╱P╱ // 0x595 @0x5
0x0590…059c at0006 = ╱49╱I╱ // 0x596 @0x6
0x0590…059c at0007 = ╱4c╱L╱ // 0x597 @0x7
0x0590…059c at0008 = ╱31╱1╱ // 0x598 @0x8
0x0590…059c at0009 = ╱dc╱=╱ // 0x599 @0x9
0x0590…059c at000a = ╱42╱B╱ // 0x59a @0xa
0x0590…059c at000b = EOL // 0x59b @0xb
0x0590…059c }
0x059c…05c7 931e 0480 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-E*(PIL6>E)
0x059c…05c7 LineComalBin {
0x059c…05c7 ptr = 0x931e // 0x59c @0x0
0x059c…05c7 lno = 0x01e0 // 0x59e @0x2
0x059c…05c7 at0004 = ╱82╱ IF ╱ // 0x5a0 @0x4
0x059c…05c7 at0005 = ╱54╱T╱ // 0x5a1 @0x5
0x059c…05c7 at0006 = ╱41╱A╱ // 0x5a2 @0x6
0x059c…05c7 at0007 = ╱42╱B╱ // 0x5a3 @0x7
0x059c…05c7 at0008 = ╱34╱4╱ // 0x5a4 @0x8
0x059c…05c7 at0009 = ╱ed╱(╱ // 0x5a5 @0x9
0x059c…05c7 at000a = ╱50╱P╱ // 0x5a6 @0xa
0x059c…05c7 at000b = ╱49╱I╱ // 0x5a7 @0xb
0x059c…05c7 at000c = ╱4c╱L╱ // 0x5a8 @0xc
0x059c…05c7 at000d = ╱36╱6╱ // 0x5a9 @0xd
0x059c…05c7 at000e = ╱ee╱)╱ // 0x5aa @0xe
0x059c…05c7 at000f = ╱de╱>╱ // 0x5ab @0xf
0x059c…05c7 at0010 = ╱4e╱N╱ // 0x5ac @0x10
0x059c…05c7 at0011 = ╱5c╱Ø╱ // 0x5ad @0x11
0x059c…05c7 at0012 = ╱47╱G╱ // 0x5ae @0x12
0x059c…05c7 at0013 = ╱4c╱L╱ // 0x5af @0x13
0x059c…05c7 at0014 = ╱35╱5╱ // 0x5b0 @0x14
0x059c…05c7 at0015 = ╱b6╱ THEN ╱ // 0x5b1 @0x15
0x059c…05c7 at0016 = ╱50╱P╱ // 0x5b2 @0x16
0x059c…05c7 at0017 = ╱49╱I╱ // 0x5b3 @0x17
0x059c…05c7 at0018 = ╱4c╱L╱ // 0x5b4 @0x18
0x059c…05c7 at0019 = ╱36╱6╱ // 0x5b5 @0x19
0x059c…05c7 at001a = ╱dc╱=╱ // 0x5b6 @0x1a
0x059c…05c7 at001b = ╱50╱P╱ // 0x5b7 @0x1b
0x059c…05c7 at001c = ╱49╱I╱ // 0x5b8 @0x1c
0x059c…05c7 at001d = ╱4c╱L╱ // 0x5b9 @0x1d
0x059c…05c7 at001e = ╱36╱6╱ // 0x5ba @0x1e
0x059c…05c7 at001f = ╱e3╱-╱ // 0x5bb @0x1f
0x059c…05c7 at0020 = ╱45╱E╱ // 0x5bc @0x20
0x059c…05c7 at0021 = ╱e4╱*╱ // 0x5bd @0x21
0x059c…05c7 at0022 = ╱ed╱(╱ // 0x5be @0x22
0x059c…05c7 at0023 = ╱50╱P╱ // 0x5bf @0x23
0x059c…05c7 at0024 = ╱49╱I╱ // 0x5c0 @0x24
0x059c…05c7 at0025 = ╱4c╱L╱ // 0x5c1 @0x25
0x059c…05c7 at0026 = ╱36╱6╱ // 0x5c2 @0x26
0x059c…05c7 at0027 = ╱de╱>╱ // 0x5c3 @0x27
0x059c…05c7 at0028 = ╱45╱E╱ // 0x5c4 @0x28
0x059c…05c7 at0029 = ╱ee╱)╱ // 0x5c5 @0x29
0x059c…05c7 at002a = EOL // 0x5c6 @0x2a
0x059c…05c7 }
0x05c7…05db 9332 0490 PIL6=MANT4+PIL6
0x05c7…05db LineComalBin {
0x05c7…05db ptr = 0x9332 // 0x5c7 @0x0
0x05c7…05db lno = 0x01ea // 0x5c9 @0x2
0x05c7…05db at0004 = ╱50╱P╱ // 0x5cb @0x4
0x05c7…05db at0005 = ╱49╱I╱ // 0x5cc @0x5
0x05c7…05db at0006 = ╱4c╱L╱ // 0x5cd @0x6
0x05c7…05db at0007 = ╱36╱6╱ // 0x5ce @0x7
0x05c7…05db at0008 = ╱dc╱=╱ // 0x5cf @0x8
0x05c7…05db at0009 = ╱4d╱M╱ // 0x5d0 @0x9
0x05c7…05db at000a = ╱41╱A╱ // 0x5d1 @0xa
0x05c7…05db at000b = ╱4e╱N╱ // 0x5d2 @0xb
0x05c7…05db at000c = ╱54╱T╱ // 0x5d3 @0xc
0x05c7…05db at000d = ╱34╱4╱ // 0x5d4 @0xd
0x05c7…05db at000e = ╱e2╱+╱ // 0x5d5 @0xe
0x05c7…05db at000f = ╱50╱P╱ // 0x5d6 @0xf
0x05c7…05db at0010 = ╱49╱I╱ // 0x5d7 @0x10
0x05c7…05db at0011 = ╱4c╱L╱ // 0x5d8 @0x11
0x05c7…05db at0012 = ╱36╱6╱ // 0x5d9 @0x12
0x05c7…05db at0013 = EOL // 0x5da @0x13
0x05c7…05db }
0x05db…062b 9382 0500 GET L8$,PIL6:Q(E,E),Q(E,G),Q(G,E),Q(G,G),Q(V,E),Q(V,G),Q(4,E),Q(4,G)
0x05db…062b LineComalBin {
0x05db…062b ptr = 0x9382 // 0x5db @0x0
0x05db…062b lno = 0x01f4 // 0x5dd @0x2
0x05db…062b at0004 = ╱a9╱ GET ╱ // 0x5df @0x4
0x05db…062b at0005 = ╱4c╱L╱ // 0x5e0 @0x5
0x05db…062b at0006 = ╱38╱8╱ // 0x5e1 @0x6
0x05db…062b at0007 = ╱ef╱$╱ // 0x5e2 @0x7
0x05db…062b at0008 = ╱ec╱,╱ // 0x5e3 @0x8
0x05db…062b at0009 = ╱50╱P╱ // 0x5e4 @0x9
0x05db…062b at000a = ╱49╱I╱ // 0x5e5 @0xa
0x05db…062b at000b = ╱4c╱L╱ // 0x5e6 @0xb
0x05db…062b at000c = ╱36╱6╱ // 0x5e7 @0xc
0x05db…062b at000d = ╱f0╱:╱ // 0x5e8 @0xd
0x05db…062b at000e = ╱51╱Q╱ // 0x5e9 @0xe
0x05db…062b at000f = ╱ed╱(╱ // 0x5ea @0xf
0x05db…062b at0010 = ╱45╱E╱ // 0x5eb @0x10
0x05db…062b at0011 = ╱ec╱,╱ // 0x5ec @0x11
0x05db…062b at0012 = ╱45╱E╱ // 0x5ed @0x12
0x05db…062b at0013 = ╱ee╱)╱ // 0x5ee @0x13
0x05db…062b at0014 = ╱ec╱,╱ // 0x5ef @0x14
0x05db…062b at0015 = ╱51╱Q╱ // 0x5f0 @0x15
0x05db…062b at0016 = ╱ed╱(╱ // 0x5f1 @0x16
0x05db…062b at0017 = ╱45╱E╱ // 0x5f2 @0x17
0x05db…062b at0018 = ╱ec╱,╱ // 0x5f3 @0x18
0x05db…062b at0019 = ╱47╱G╱ // 0x5f4 @0x19
0x05db…062b at001a = ╱ee╱)╱ // 0x5f5 @0x1a
0x05db…062b at001b = ╱ec╱,╱ // 0x5f6 @0x1b
0x05db…062b at001c = ╱51╱Q╱ // 0x5f7 @0x1c
0x05db…062b at001d = ╱ed╱(╱ // 0x5f8 @0x1d
0x05db…062b at001e = ╱47╱G╱ // 0x5f9 @0x1e
0x05db…062b at001f = ╱ec╱,╱ // 0x5fa @0x1f
0x05db…062b at0020 = ╱45╱E╱ // 0x5fb @0x20
0x05db…062b at0021 = ╱ee╱)╱ // 0x5fc @0x21
0x05db…062b at0022 = ╱ec╱,╱ // 0x5fd @0x22
0x05db…062b at0023 = ╱51╱Q╱ // 0x5fe @0x23
0x05db…062b at0024 = ╱ed╱(╱ // 0x5ff @0x24
0x05db…062b at0025 = ╱47╱G╱ // 0x600 @0x25
0x05db…062b at0026 = ╱ec╱,╱ // 0x601 @0x26
0x05db…062b at0027 = ╱47╱G╱ // 0x602 @0x27
0x05db…062b at0028 = ╱ee╱)╱ // 0x603 @0x28
0x05db…062b at0029 = ╱ec╱,╱ // 0x604 @0x29
0x05db…062b at002a = ╱51╱Q╱ // 0x605 @0x2a
0x05db…062b at002b = ╱ed╱(╱ // 0x606 @0x2b
0x05db…062b at002c = ╱56╱V╱ // 0x607 @0x2c
0x05db…062b at002d = ╱ec╱,╱ // 0x608 @0x2d
0x05db…062b at002e = ╱45╱E╱ // 0x609 @0x2e
0x05db…062b at002f = ╱ee╱)╱ // 0x60a @0x2f
0x05db…062b at0030 = ╱ec╱,╱ // 0x60b @0x30
0x05db…062b at0031 = ╱51╱Q╱ // 0x60c @0x31
0x05db…062b at0032 = ╱ed╱(╱ // 0x60d @0x32
0x05db…062b at0033 = ╱56╱V╱ // 0x60e @0x33
0x05db…062b at0034 = ╱ec╱,╱ // 0x60f @0x34
0x05db…062b at0035 = ╱47╱G╱ // 0x610 @0x35
0x05db…062b at0036 = ╱ee╱)╱ // 0x611 @0x36
0x05db…062b at0037 = ╱ec╱,╱ // 0x612 @0x37
0x05db…062b at0038 = ╱51╱Q╱ // 0x613 @0x38
0x05db…062b at0039 = ╱ed╱(╱ // 0x614 @0x39
0x05db…062b at003a = ╱34╱4╱ // 0x615 @0x3a
0x05db…062b at003b = ╱fe00008003╱ // 0x616 @0x3b
0x05db…062b at0040 = ╱ec╱,╱ // 0x61b @0x40
0x05db…062b at0041 = ╱45╱E╱ // 0x61c @0x41
0x05db…062b at0042 = ╱ee╱)╱ // 0x61d @0x42
0x05db…062b at0043 = ╱ec╱,╱ // 0x61e @0x43
0x05db…062b at0044 = ╱51╱Q╱ // 0x61f @0x44
0x05db…062b at0045 = ╱ed╱(╱ // 0x620 @0x45
0x05db…062b at0046 = ╱34╱4╱ // 0x621 @0x46
0x05db…062b at0047 = ╱fe00008003╱ // 0x622 @0x47
0x05db…062b at004c = ╱ec╱,╱ // 0x627 @0x4c
0x05db…062b at004d = ╱47╱G╱ // 0x628 @0x4d
0x05db…062b at004e = ╱ee╱)╱ // 0x629 @0x4e
0x05db…062b at004f = EOL // 0x62a @0x4f
0x05db…062b }
0x062b…063e 9395 0510 EXEC FEJL(E,E,L8$)
0x062b…063e LineComalBin {
0x062b…063e ptr = 0x9395 // 0x62b @0x0
0x062b…063e lno = 0x01fe // 0x62d @0x2
0x062b…063e at0004 = ╱9d╱ EXEC ╱ // 0x62f @0x4
0x062b…063e at0005 = ╱46╱F╱ // 0x630 @0x5
0x062b…063e at0006 = ╱45╱E╱ // 0x631 @0x6
0x062b…063e at0007 = ╱4a╱J╱ // 0x632 @0x7
0x062b…063e at0008 = ╱4c╱L╱ // 0x633 @0x8
0x062b…063e at0009 = ╱ed╱(╱ // 0x634 @0x9
0x062b…063e at000a = ╱45╱E╱ // 0x635 @0xa
0x062b…063e at000b = ╱ec╱,╱ // 0x636 @0xb
0x062b…063e at000c = ╱45╱E╱ // 0x637 @0xc
0x062b…063e at000d = ╱ec╱,╱ // 0x638 @0xd
0x062b…063e at000e = ╱4c╱L╱ // 0x639 @0xe
0x062b…063e at000f = ╱38╱8╱ // 0x63a @0xf
0x062b…063e at0010 = ╱ef╱$╱ // 0x63b @0x10
0x062b…063e at0011 = ╱ee╱)╱ // 0x63c @0x11
0x062b…063e at0012 = EOL // 0x63d @0x12
0x062b…063e }
0x063e…0651 93a8 0520 FOR PIL6=E TO 4
0x063e…0651 LineComalBin {
0x063e…0651 ptr = 0x93a8 // 0x63e @0x0
0x063e…0651 lno = 0x0208 // 0x640 @0x2
0x063e…0651 at0004 = ╱83╱ FOR ╱ // 0x642 @0x4
0x063e…0651 at0005 = ╱50╱P╱ // 0x643 @0x5
0x063e…0651 at0006 = ╱49╱I╱ // 0x644 @0x6
0x063e…0651 at0007 = ╱4c╱L╱ // 0x645 @0x7
0x063e…0651 at0008 = ╱36╱6╱ // 0x646 @0x8
0x063e…0651 at0009 = ╱dc╱=╱ // 0x647 @0x9
0x063e…0651 at000a = ╱45╱E╱ // 0x648 @0xa
0x063e…0651 at000b = ╱b7╱ TO ╱ // 0x649 @0xb
0x063e…0651 at000c = ╱34╱4╱ // 0x64a @0xc
0x063e…0651 at000d = ╱fe00008003╱ // 0x64b @0xd
0x063e…0651 at0012 = EOL // 0x650 @0x12
0x063e…0651 }
0x0651…0668 (21,) 93bf 0530 IF NØGL5=Q(PIL6,E) THEN EXIT
0x0651…0668 LineComalBin {
0x0651…0668 ptr = 0x93bf // 0x651 @0x0
0x0651…0668 lno = 0x0212 // 0x653 @0x2
0x0651…0668 at0004 = ╱82╱ IF ╱ // 0x655 @0x4
0x0651…0668 at0005 = ╱4e╱N╱ // 0x656 @0x5
0x0651…0668 at0006 = ╱5c╱Ø╱ // 0x657 @0x6
0x0651…0668 at0007 = ╱47╱G╱ // 0x658 @0x7
0x0651…0668 at0008 = ╱4c╱L╱ // 0x659 @0x8
0x0651…0668 at0009 = ╱35╱5╱ // 0x65a @0x9
0x0651…0668 at000a = ╱dc╱=╱ // 0x65b @0xa
0x0651…0668 at000b = ╱51╱Q╱ // 0x65c @0xb
0x0651…0668 at000c = ╱ed╱(╱ // 0x65d @0xc
0x0651…0668 at000d = ╱50╱P╱ // 0x65e @0xd
0x0651…0668 at000e = ╱49╱I╱ // 0x65f @0xe
0x0651…0668 at000f = ╱4c╱L╱ // 0x660 @0xf
0x0651…0668 at0010 = ╱36╱6╱ // 0x661 @0x10
0x0651…0668 at0011 = ╱ec╱,╱ // 0x662 @0x11
0x0651…0668 at0012 = ╱45╱E╱ // 0x663 @0x12
0x0651…0668 at0013 = ╱ee╱)╱ // 0x664 @0x13
0x0651…0668 at0014 = ╱b6╱ THEN ╱ // 0x665 @0x14
0x0651…0668 at0015 = ╱99╱ EXIT ╱ // 0x666 @0x15
0x0651…0668 at0016 = EOL // 0x667 @0x16
0x0651…0668 }
0x0668…0672 93c9 0540 NEXT PIL6
0x0668…0672 LineComalBin {
0x0668…0672 ptr = 0x93c9 // 0x668 @0x0
0x0668…0672 lno = 0x021c // 0x66a @0x2
0x0668…0672 at0004 = ╱84╱ NEXT ╱ // 0x66c @0x4
0x0668…0672 at0005 = ╱50╱P╱ // 0x66d @0x5
0x0668…0672 at0006 = ╱49╱I╱ // 0x66e @0x6
0x0668…0672 at0007 = ╱4c╱L╱ // 0x66f @0x7
0x0668…0672 at0008 = ╱36╱6╱ // 0x670 @0x8
0x0668…0672 at0009 = EOL // 0x671 @0x9
0x0668…0672 }
0x0672…068a 93e1 0550 IF PIL6<>5 THEN CEKS=B
0x0672…068a LineComalBin {
0x0672…068a ptr = 0x93e1 // 0x672 @0x0
0x0672…068a lno = 0x0226 // 0x674 @0x2
0x0672…068a at0004 = ╱82╱ IF ╱ // 0x676 @0x4
0x0672…068a at0005 = ╱50╱P╱ // 0x677 @0x5
0x0672…068a at0006 = ╱49╱I╱ // 0x678 @0x6
0x0672…068a at0007 = ╱4c╱L╱ // 0x679 @0x7
0x0672…068a at0008 = ╱36╱6╱ // 0x67a @0x8
0x0672…068a at0009 = ╱e1╱<>╱ // 0x67b @0x9
0x0672…068a at000a = ╱35╱5╱ // 0x67c @0xa
0x0672…068a at000b = ╱fe0000a003╱ // 0x67d @0xb
0x0672…068a at0010 = ╱b6╱ THEN ╱ // 0x682 @0x10
0x0672…068a at0011 = ╱43╱C╱ // 0x683 @0x11
0x0672…068a at0012 = ╱45╱E╱ // 0x684 @0x12
0x0672…068a at0013 = ╱4b╱K╱ // 0x685 @0x13
0x0672…068a at0014 = ╱53╱S╱ // 0x686 @0x14
0x0672…068a at0015 = ╱dc╱=╱ // 0x687 @0x15
0x0672…068a at0016 = ╱42╱B╱ // 0x688 @0x16
0x0672…068a at0017 = EOL // 0x689 @0x17
0x0672…068a }
0x068a…0690 93e7 0560 ENDPROC
0x068a…0690 LineComalBin {
0x068a…0690 ptr = 0x93e7 // 0x68a @0x0
0x068a…0690 lno = 0x0230 // 0x68c @0x2
0x068a…0690 at0004 = ╱9f╱ ENDPROC ╱ // 0x68e @0x4
0x068a…0690 at0005 = EOL // 0x68f @0x5
0x068a…0690 }
0x0690…06a9 9400 0570 PROC INDTAB1(Z,MANT5,L7)
0x0690…06a9 LineComalBin {
0x0690…06a9 ptr = 0x9400 // 0x690 @0x0
0x0690…06a9 lno = 0x023a // 0x692 @0x2
0x0690…06a9 at0004 = ╱9e╱ PROC ╱ // 0x694 @0x4
0x0690…06a9 at0005 = ╱49╱I╱ // 0x695 @0x5
0x0690…06a9 at0006 = ╱4e╱N╱ // 0x696 @0x6
0x0690…06a9 at0007 = ╱44╱D╱ // 0x697 @0x7
0x0690…06a9 at0008 = ╱54╱T╱ // 0x698 @0x8
0x0690…06a9 at0009 = ╱41╱A╱ // 0x699 @0x9
0x0690…06a9 at000a = ╱42╱B╱ // 0x69a @0xa
0x0690…06a9 at000b = ╱31╱1╱ // 0x69b @0xb
0x0690…06a9 at000c = ╱ed╱(╱ // 0x69c @0xc
0x0690…06a9 at000d = ╱5a╱Z╱ // 0x69d @0xd
0x0690…06a9 at000e = ╱ec╱,╱ // 0x69e @0xe
0x0690…06a9 at000f = ╱4d╱M╱ // 0x69f @0xf
0x0690…06a9 at0010 = ╱41╱A╱ // 0x6a0 @0x10
0x0690…06a9 at0011 = ╱4e╱N╱ // 0x6a1 @0x11
0x0690…06a9 at0012 = ╱54╱T╱ // 0x6a2 @0x12
0x0690…06a9 at0013 = ╱35╱5╱ // 0x6a3 @0x13
0x0690…06a9 at0014 = ╱ec╱,╱ // 0x6a4 @0x14
0x0690…06a9 at0015 = ╱4c╱L╱ // 0x6a5 @0x15
0x0690…06a9 at0016 = ╱37╱7╱ // 0x6a6 @0x16
0x0690…06a9 at0017 = ╱ee╱)╱ // 0x6a7 @0x17
0x0690…06a9 at0018 = EOL // 0x6a8 @0x18
0x0690…06a9 }
0x06a9…06c0 9417 0580 PIL1=MANT5 DIV 32
0x06a9…06c0 LineComalBin {
0x06a9…06c0 ptr = 0x9417 // 0x6a9 @0x0
0x06a9…06c0 lno = 0x0244 // 0x6ab @0x2
0x06a9…06c0 at0004 = ╱50╱P╱ // 0x6ad @0x4
0x06a9…06c0 at0005 = ╱49╱I╱ // 0x6ae @0x5
0x06a9…06c0 at0006 = ╱4c╱L╱ // 0x6af @0x6
0x06a9…06c0 at0007 = ╱31╱1╱ // 0x6b0 @0x7
0x06a9…06c0 at0008 = ╱dc╱=╱ // 0x6b1 @0x8
0x06a9…06c0 at0009 = ╱4d╱M╱ // 0x6b2 @0x9
0x06a9…06c0 at000a = ╱41╱A╱ // 0x6b3 @0xa
0x06a9…06c0 at000b = ╱4e╱N╱ // 0x6b4 @0xb
0x06a9…06c0 at000c = ╱54╱T╱ // 0x6b5 @0xc
0x06a9…06c0 at000d = ╱35╱5╱ // 0x6b6 @0xd
0x06a9…06c0 at000e = ╱e7╱ DIV ╱ // 0x6b7 @0xe
0x06a9…06c0 at000f = ╱33╱3╱ // 0x6b8 @0xf
0x06a9…06c0 at0010 = ╱32╱2╱ // 0x6b9 @0x10
0x06a9…06c0 at0011 = ╱fe00008006╱ // 0x6ba @0x11
0x06a9…06c0 at0016 = EOL // 0x6bf @0x16
0x06a9…06c0 }
0x06c0…06ce 9425 0590 FOR I=E TO PIL1
0x06c0…06ce LineComalBin {
0x06c0…06ce ptr = 0x9425 // 0x6c0 @0x0
0x06c0…06ce lno = 0x024e // 0x6c2 @0x2
0x06c0…06ce at0004 = ╱83╱ FOR ╱ // 0x6c4 @0x4
0x06c0…06ce at0005 = ╱49╱I╱ // 0x6c5 @0x5
0x06c0…06ce at0006 = ╱dc╱=╱ // 0x6c6 @0x6
0x06c0…06ce at0007 = ╱45╱E╱ // 0x6c7 @0x7
0x06c0…06ce at0008 = ╱b7╱ TO ╱ // 0x6c8 @0x8
0x06c0…06ce at0009 = ╱50╱P╱ // 0x6c9 @0x9
0x06c0…06ce at000a = ╱49╱I╱ // 0x6ca @0xa
0x06c0…06ce at000b = ╱4c╱L╱ // 0x6cb @0xb
0x06c0…06ce at000c = ╱31╱1╱ // 0x6cc @0xc
0x06c0…06ce at000d = EOL // 0x6cd @0xd
0x06c0…06ce }
0x06ce…06e3 943a 0600 H=(I-E)*8+E
0x06ce…06e3 LineComalBin {
0x06ce…06e3 ptr = 0x943a // 0x6ce @0x0
0x06ce…06e3 lno = 0x0258 // 0x6d0 @0x2
0x06ce…06e3 at0004 = ╱48╱H╱ // 0x6d2 @0x4
0x06ce…06e3 at0005 = ╱dc╱=╱ // 0x6d3 @0x5
0x06ce…06e3 at0006 = ╱ed╱(╱ // 0x6d4 @0x6
0x06ce…06e3 at0007 = ╱49╱I╱ // 0x6d5 @0x7
0x06ce…06e3 at0008 = ╱e3╱-╱ // 0x6d6 @0x8
0x06ce…06e3 at0009 = ╱45╱E╱ // 0x6d7 @0x9
0x06ce…06e3 at000a = ╱ee╱)╱ // 0x6d8 @0xa
0x06ce…06e3 at000b = ╱e4╱*╱ // 0x6d9 @0xb
0x06ce…06e3 at000c = ╱38╱8╱ // 0x6da @0xc
0x06ce…06e3 at000d = ╱fe00008004╱ // 0x6db @0xd
0x06ce…06e3 at0012 = ╱e2╱+╱ // 0x6e0 @0x12
0x06ce…06e3 at0013 = ╱45╱E╱ // 0x6e1 @0x13
0x06ce…06e3 at0014 = EOL // 0x6e2 @0x14
0x06ce…06e3 }
0x06e3…0738 948f 0610 GET L7$,I:Z(H),Z(H+E),Z(H+G),Z(H+V),Z(H+4),Z(H+5),Z(H+6),Z(H+7)
0x06e3…0738 LineComalBin {
0x06e3…0738 ptr = 0x948f // 0x6e3 @0x0
0x06e3…0738 lno = 0x0262 // 0x6e5 @0x2
0x06e3…0738 at0004 = ╱a9╱ GET ╱ // 0x6e7 @0x4
0x06e3…0738 at0005 = ╱4c╱L╱ // 0x6e8 @0x5
0x06e3…0738 at0006 = ╱37╱7╱ // 0x6e9 @0x6
0x06e3…0738 at0007 = ╱ef╱$╱ // 0x6ea @0x7
0x06e3…0738 at0008 = ╱ec╱,╱ // 0x6eb @0x8
0x06e3…0738 at0009 = ╱49╱I╱ // 0x6ec @0x9
0x06e3…0738 at000a = ╱f0╱:╱ // 0x6ed @0xa
0x06e3…0738 at000b = ╱5a╱Z╱ // 0x6ee @0xb
0x06e3…0738 at000c = ╱ed╱(╱ // 0x6ef @0xc
0x06e3…0738 at000d = ╱48╱H╱ // 0x6f0 @0xd
0x06e3…0738 at000e = ╱ee╱)╱ // 0x6f1 @0xe
0x06e3…0738 at000f = ╱ec╱,╱ // 0x6f2 @0xf
0x06e3…0738 at0010 = ╱5a╱Z╱ // 0x6f3 @0x10
0x06e3…0738 at0011 = ╱ed╱(╱ // 0x6f4 @0x11
0x06e3…0738 at0012 = ╱48╱H╱ // 0x6f5 @0x12
0x06e3…0738 at0013 = ╱e2╱+╱ // 0x6f6 @0x13
0x06e3…0738 at0014 = ╱45╱E╱ // 0x6f7 @0x14
0x06e3…0738 at0015 = ╱ee╱)╱ // 0x6f8 @0x15
0x06e3…0738 at0016 = ╱ec╱,╱ // 0x6f9 @0x16
0x06e3…0738 at0017 = ╱5a╱Z╱ // 0x6fa @0x17
0x06e3…0738 at0018 = ╱ed╱(╱ // 0x6fb @0x18
0x06e3…0738 at0019 = ╱48╱H╱ // 0x6fc @0x19
0x06e3…0738 at001a = ╱e2╱+╱ // 0x6fd @0x1a
0x06e3…0738 at001b = ╱47╱G╱ // 0x6fe @0x1b
0x06e3…0738 at001c = ╱ee╱)╱ // 0x6ff @0x1c
0x06e3…0738 at001d = ╱ec╱,╱ // 0x700 @0x1d
0x06e3…0738 at001e = ╱5a╱Z╱ // 0x701 @0x1e
0x06e3…0738 at001f = ╱ed╱(╱ // 0x702 @0x1f
0x06e3…0738 at0020 = ╱48╱H╱ // 0x703 @0x20
0x06e3…0738 at0021 = ╱e2╱+╱ // 0x704 @0x21
0x06e3…0738 at0022 = ╱56╱V╱ // 0x705 @0x22
0x06e3…0738 at0023 = ╱ee╱)╱ // 0x706 @0x23
0x06e3…0738 at0024 = ╱ec╱,╱ // 0x707 @0x24
0x06e3…0738 at0025 = ╱5a╱Z╱ // 0x708 @0x25
0x06e3…0738 at0026 = ╱ed╱(╱ // 0x709 @0x26
0x06e3…0738 at0027 = ╱48╱H╱ // 0x70a @0x27
0x06e3…0738 at0028 = ╱e2╱+╱ // 0x70b @0x28
0x06e3…0738 at0029 = ╱34╱4╱ // 0x70c @0x29
0x06e3…0738 at002a = ╱fe00008003╱ // 0x70d @0x2a
0x06e3…0738 at002f = ╱ee╱)╱ // 0x712 @0x2f
0x06e3…0738 at0030 = ╱ec╱,╱ // 0x713 @0x30
0x06e3…0738 at0031 = ╱5a╱Z╱ // 0x714 @0x31
0x06e3…0738 at0032 = ╱ed╱(╱ // 0x715 @0x32
0x06e3…0738 at0033 = ╱48╱H╱ // 0x716 @0x33
0x06e3…0738 at0034 = ╱e2╱+╱ // 0x717 @0x34
0x06e3…0738 at0035 = ╱35╱5╱ // 0x718 @0x35
0x06e3…0738 at0036 = ╱fe0000a003╱ // 0x719 @0x36
0x06e3…0738 at003b = ╱ee╱)╱ // 0x71e @0x3b
0x06e3…0738 at003c = ╱ec╱,╱ // 0x71f @0x3c
0x06e3…0738 at003d = ╱5a╱Z╱ // 0x720 @0x3d
0x06e3…0738 at003e = ╱ed╱(╱ // 0x721 @0x3e
0x06e3…0738 at003f = ╱48╱H╱ // 0x722 @0x3f
0x06e3…0738 at0040 = ╱e2╱+╱ // 0x723 @0x40
0x06e3…0738 at0041 = ╱36╱6╱ // 0x724 @0x41
0x06e3…0738 at0042 = ╱fe0000c003╱ // 0x725 @0x42
0x06e3…0738 at0047 = ╱ee╱)╱ // 0x72a @0x47
0x06e3…0738 at0048 = ╱ec╱,╱ // 0x72b @0x48
0x06e3…0738 at0049 = ╱5a╱Z╱ // 0x72c @0x49
0x06e3…0738 at004a = ╱ed╱(╱ // 0x72d @0x4a
0x06e3…0738 at004b = ╱48╱H╱ // 0x72e @0x4b
0x06e3…0738 at004c = ╱e2╱+╱ // 0x72f @0x4c
0x06e3…0738 at004d = ╱37╱7╱ // 0x730 @0x4d
0x06e3…0738 at004e = ╱fe0000e003╱ // 0x731 @0x4e
0x06e3…0738 at0053 = ╱ee╱)╱ // 0x736 @0x53
0x06e3…0738 at0054 = EOL // 0x737 @0x54
0x06e3…0738 }
0x0738…074b (24,) 94a2 0620 EXEC FEJL(G,E,L7$)
0x0738…074b LineComalBin {
0x0738…074b ptr = 0x94a2 // 0x738 @0x0
0x0738…074b lno = 0x026c // 0x73a @0x2
0x0738…074b at0004 = ╱9d╱ EXEC ╱ // 0x73c @0x4
0x0738…074b at0005 = ╱46╱F╱ // 0x73d @0x5
0x0738…074b at0006 = ╱45╱E╱ // 0x73e @0x6
0x0738…074b at0007 = ╱4a╱J╱ // 0x73f @0x7
0x0738…074b at0008 = ╱4c╱L╱ // 0x740 @0x8
0x0738…074b at0009 = ╱ed╱(╱ // 0x741 @0x9
0x0738…074b at000a = ╱47╱G╱ // 0x742 @0xa
0x0738…074b at000b = ╱ec╱,╱ // 0x743 @0xb
0x0738…074b at000c = ╱45╱E╱ // 0x744 @0xc
0x0738…074b at000d = ╱ec╱,╱ // 0x745 @0xd
0x0738…074b at000e = ╱4c╱L╱ // 0x746 @0xe
0x0738…074b at000f = ╱37╱7╱ // 0x747 @0xf
0x0738…074b at0010 = ╱ef╱$╱ // 0x748 @0x10
0x0738…074b at0011 = ╱ee╱)╱ // 0x749 @0x11
0x0738…074b at0012 = EOL // 0x74a @0x12
0x0738…074b }
0x074b…0752 94a9 0630 NEXT I
0x074b…0752 LineComalBin {
0x074b…0752 ptr = 0x94a9 // 0x74b @0x0
0x074b…0752 lno = 0x0276 // 0x74d @0x2
0x074b…0752 at0004 = ╱84╱ NEXT ╱ // 0x74f @0x4
0x074b…0752 at0005 = ╱49╱I╱ // 0x750 @0x5
0x074b…0752 at0006 = EOL // 0x751 @0x6
0x074b…0752 }
0x0752…0758 94af 0640 ENDPROC
0x0752…0758 LineComalBin {
0x0752…0758 ptr = 0x94af // 0x752 @0x0
0x0752…0758 lno = 0x0280 // 0x754 @0x2
0x0752…0758 at0004 = ╱9f╱ ENDPROC ╱ // 0x756 @0x4
0x0752…0758 at0005 = EOL // 0x757 @0x5
0x0752…0758 }
0x0758…0767 94be 0650 PROC HENTDPOST
0x0758…0767 LineComalBin {
0x0758…0767 ptr = 0x94be // 0x758 @0x0
0x0758…0767 lno = 0x028a // 0x75a @0x2
0x0758…0767 at0004 = ╱9e╱ PROC ╱ // 0x75c @0x4
0x0758…0767 at0005 = ╱48╱H╱ // 0x75d @0x5
0x0758…0767 at0006 = ╱45╱E╱ // 0x75e @0x6
0x0758…0767 at0007 = ╱4e╱N╱ // 0x75f @0x7
0x0758…0767 at0008 = ╱54╱T╱ // 0x760 @0x8
0x0758…0767 at0009 = ╱44╱D╱ // 0x761 @0x9
0x0758…0767 at000a = ╱50╱P╱ // 0x762 @0xa
0x0758…0767 at000b = ╱4f╱O╱ // 0x763 @0xb
0x0758…0767 at000c = ╱53╱S╱ // 0x764 @0xc
0x0758…0767 at000d = ╱54╱T╱ // 0x765 @0xd
0x0758…0767 at000e = EOL // 0x766 @0xe
0x0758…0767 }
0x0767…077b 94d2 0660 S=DTAB(DPIL3,G)
0x0767…077b LineComalBin {
0x0767…077b ptr = 0x94d2 // 0x767 @0x0
0x0767…077b lno = 0x0294 // 0x769 @0x2
0x0767…077b at0004 = ╱53╱S╱ // 0x76b @0x4
0x0767…077b at0005 = ╱dc╱=╱ // 0x76c @0x5
0x0767…077b at0006 = ╱44╱D╱ // 0x76d @0x6
0x0767…077b at0007 = ╱54╱T╱ // 0x76e @0x7
0x0767…077b at0008 = ╱41╱A╱ // 0x76f @0x8
0x0767…077b at0009 = ╱42╱B╱ // 0x770 @0x9
0x0767…077b at000a = ╱ed╱(╱ // 0x771 @0xa
0x0767…077b at000b = ╱44╱D╱ // 0x772 @0xb
0x0767…077b at000c = ╱50╱P╱ // 0x773 @0xc
0x0767…077b at000d = ╱49╱I╱ // 0x774 @0xd
0x0767…077b at000e = ╱4c╱L╱ // 0x775 @0xe
0x0767…077b at000f = ╱33╱3╱ // 0x776 @0xf
0x0767…077b at0010 = ╱ec╱,╱ // 0x777 @0x10
0x0767…077b at0011 = ╱47╱G╱ // 0x778 @0x11
0x0767…077b at0012 = ╱ee╱)╱ // 0x779 @0x12
0x0767…077b at0013 = EOL // 0x77a @0x13
0x0767…077b }
0x077b…07a6 94fd 0670 GET K3$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$
0x077b…07a6 LineComalBin {
0x077b…07a6 ptr = 0x94fd // 0x77b @0x0
0x077b…07a6 lno = 0x029e // 0x77d @0x2
0x077b…07a6 at0004 = ╱a9╱ GET ╱ // 0x77f @0x4
0x077b…07a6 at0005 = ╱4b╱K╱ // 0x780 @0x5
0x077b…07a6 at0006 = ╱33╱3╱ // 0x781 @0x6
0x077b…07a6 at0007 = ╱ef╱$╱ // 0x782 @0x7
0x077b…07a6 at0008 = ╱ec╱,╱ // 0x783 @0x8
0x077b…07a6 at0009 = ╱53╱S╱ // 0x784 @0x9
0x077b…07a6 at000a = ╱f0╱:╱ // 0x785 @0xa
0x077b…07a6 at000b = ╱44╱D╱ // 0x786 @0xb
0x077b…07a6 at000c = ╱45╱E╱ // 0x787 @0xc
0x077b…07a6 at000d = ╱42╱B╱ // 0x788 @0xd
0x077b…07a6 at000e = ╱4e╱N╱ // 0x789 @0xe
0x077b…07a6 at000f = ╱52╱R╱ // 0x78a @0xf
0x077b…07a6 at0010 = ╱ec╱,╱ // 0x78b @0x10
0x077b…07a6 at0011 = ╱44╱D╱ // 0x78c @0x11
0x077b…07a6 at0012 = ╱45╱E╱ // 0x78d @0x12
0x077b…07a6 at0013 = ╱42╱B╱ // 0x78e @0x13
0x077b…07a6 at0014 = ╱4e╱N╱ // 0x78f @0x14
0x077b…07a6 at0015 = ╱41╱A╱ // 0x790 @0x15
0x077b…07a6 at0016 = ╱56╱V╱ // 0x791 @0x16
0x077b…07a6 at0017 = ╱4e╱N╱ // 0x792 @0x17
0x077b…07a6 at0018 = ╱ef╱$╱ // 0x793 @0x18
0x077b…07a6 at0019 = ╱ec╱,╱ // 0x794 @0x19
0x077b…07a6 at001a = ╱44╱D╱ // 0x795 @0x1a
0x077b…07a6 at001b = ╱53╱S╱ // 0x796 @0x1b
0x077b…07a6 at001c = ╱41╱A╱ // 0x797 @0x1c
0x077b…07a6 at001d = ╱4c╱L╱ // 0x798 @0x1d
0x077b…07a6 at001e = ╱44╱D╱ // 0x799 @0x1e
0x077b…07a6 at001f = ╱4f╱O╱ // 0x79a @0x1f
0x077b…07a6 at0020 = ╱31╱1╱ // 0x79b @0x20
0x077b…07a6 at0021 = ╱ef╱$╱ // 0x79c @0x21
0x077b…07a6 at0022 = ╱ec╱,╱ // 0x79d @0x22
0x077b…07a6 at0023 = ╱44╱D╱ // 0x79e @0x23
0x077b…07a6 at0024 = ╱45╱E╱ // 0x79f @0x24
0x077b…07a6 at0025 = ╱42╱B╱ // 0x7a0 @0x25
0x077b…07a6 at0026 = ╱4b╱K╱ // 0x7a1 @0x26
0x077b…07a6 at0027 = ╱47╱G╱ // 0x7a2 @0x27
0x077b…07a6 at0028 = ╱52╱R╱ // 0x7a3 @0x28
0x077b…07a6 at0029 = ╱ef╱$╱ // 0x7a4 @0x29
0x077b…07a6 at002a = EOL // 0x7a5 @0x2a
0x077b…07a6 }
0x07a6…07b9 9510 0680 EXEC FEJL(V,E,K3$)
0x07a6…07b9 LineComalBin {
0x07a6…07b9 ptr = 0x9510 // 0x7a6 @0x0
0x07a6…07b9 lno = 0x02a8 // 0x7a8 @0x2
0x07a6…07b9 at0004 = ╱9d╱ EXEC ╱ // 0x7aa @0x4
0x07a6…07b9 at0005 = ╱46╱F╱ // 0x7ab @0x5
0x07a6…07b9 at0006 = ╱45╱E╱ // 0x7ac @0x6
0x07a6…07b9 at0007 = ╱4a╱J╱ // 0x7ad @0x7
0x07a6…07b9 at0008 = ╱4c╱L╱ // 0x7ae @0x8
0x07a6…07b9 at0009 = ╱ed╱(╱ // 0x7af @0x9
0x07a6…07b9 at000a = ╱56╱V╱ // 0x7b0 @0xa
0x07a6…07b9 at000b = ╱ec╱,╱ // 0x7b1 @0xb
0x07a6…07b9 at000c = ╱45╱E╱ // 0x7b2 @0xc
0x07a6…07b9 at000d = ╱ec╱,╱ // 0x7b3 @0xd
0x07a6…07b9 at000e = ╱4b╱K╱ // 0x7b4 @0xe
0x07a6…07b9 at000f = ╱33╱3╱ // 0x7b5 @0xf
0x07a6…07b9 at0010 = ╱ef╱$╱ // 0x7b6 @0x10
0x07a6…07b9 at0011 = ╱ee╱)╱ // 0x7b7 @0x11
0x07a6…07b9 at0012 = EOL // 0x7b8 @0x12
0x07a6…07b9 }
0x07b9…07f0 9547 0690 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DPOSTNR,DEBLK$
0x07b9…07f0 LineComalBin {
0x07b9…07f0 ptr = 0x9547 // 0x7b9 @0x0
0x07b9…07f0 lno = 0x02b2 // 0x7bb @0x2
0x07b9…07f0 at0004 = ╱a9╱ GET ╱ // 0x7bd @0x4
0x07b9…07f0 at0005 = ╱4b╱K╱ // 0x7be @0x5
0x07b9…07f0 at0006 = ╱33╱3╱ // 0x7bf @0x6
0x07b9…07f0 at0007 = ╱ef╱$╱ // 0x7c0 @0x7
0x07b9…07f0 at0008 = ╱ec╱,╱ // 0x7c1 @0x8
0x07b9…07f0 at0009 = ╱53╱S╱ // 0x7c2 @0x9
0x07b9…07f0 at000a = ╱e2╱+╱ // 0x7c3 @0xa
0x07b9…07f0 at000b = ╱45╱E╱ // 0x7c4 @0xb
0x07b9…07f0 at000c = ╱f0╱:╱ // 0x7c5 @0xc
0x07b9…07f0 at000d = ╱44╱D╱ // 0x7c6 @0xd
0x07b9…07f0 at000e = ╱53╱S╱ // 0x7c7 @0xe
0x07b9…07f0 at000f = ╱41╱A╱ // 0x7c8 @0xf
0x07b9…07f0 at0010 = ╱4c╱L╱ // 0x7c9 @0x10
0x07b9…07f0 at0011 = ╱44╱D╱ // 0x7ca @0x11
0x07b9…07f0 at0012 = ╱4f╱O╱ // 0x7cb @0x12
0x07b9…07f0 at0013 = ╱32╱2╱ // 0x7cc @0x13
0x07b9…07f0 at0014 = ╱ef╱$╱ // 0x7cd @0x14
0x07b9…07f0 at0015 = ╱ec╱,╱ // 0x7ce @0x15
0x07b9…07f0 at0016 = ╱44╱D╱ // 0x7cf @0x16
0x07b9…07f0 at0017 = ╱53╱S╱ // 0x7d0 @0x17
0x07b9…07f0 at0018 = ╱41╱A╱ // 0x7d1 @0x18
0x07b9…07f0 at0019 = ╱4c╱L╱ // 0x7d2 @0x19
0x07b9…07f0 at001a = ╱44╱D╱ // 0x7d3 @0x1a
0x07b9…07f0 at001b = ╱4f╱O╱ // 0x7d4 @0x1b
0x07b9…07f0 at001c = ╱33╱3╱ // 0x7d5 @0x1c
0x07b9…07f0 at001d = ╱ef╱$╱ // 0x7d6 @0x1d
0x07b9…07f0 at001e = ╱ec╱,╱ // 0x7d7 @0x1e
0x07b9…07f0 at001f = ╱44╱D╱ // 0x7d8 @0x1f
0x07b9…07f0 at0020 = ╱53╱S╱ // 0x7d9 @0x20
0x07b9…07f0 at0021 = ╱41╱A╱ // 0x7da @0x21
0x07b9…07f0 at0022 = ╱4c╱L╱ // 0x7db @0x22
0x07b9…07f0 at0023 = ╱44╱D╱ // 0x7dc @0x23
0x07b9…07f0 at0024 = ╱4f╱O╱ // 0x7dd @0x24
0x07b9…07f0 at0025 = ╱34╱4╱ // 0x7de @0x25
0x07b9…07f0 at0026 = ╱ef╱$╱ // 0x7df @0x26
0x07b9…07f0 at0027 = ╱ec╱,╱ // 0x7e0 @0x27
0x07b9…07f0 at0028 = ╱44╱D╱ // 0x7e1 @0x28
0x07b9…07f0 at0029 = ╱50╱P╱ // 0x7e2 @0x29
0x07b9…07f0 at002a = ╱4f╱O╱ // 0x7e3 @0x2a
0x07b9…07f0 at002b = ╱53╱S╱ // 0x7e4 @0x2b
0x07b9…07f0 at002c = ╱54╱T╱ // 0x7e5 @0x2c
0x07b9…07f0 at002d = ╱4e╱N╱ // 0x7e6 @0x2d
0x07b9…07f0 at002e = ╱52╱R╱ // 0x7e7 @0x2e
0x07b9…07f0 at002f = ╱ec╱,╱ // 0x7e8 @0x2f
0x07b9…07f0 at0030 = ╱44╱D╱ // 0x7e9 @0x30
0x07b9…07f0 at0031 = ╱45╱E╱ // 0x7ea @0x31
0x07b9…07f0 at0032 = ╱42╱B╱ // 0x7eb @0x32
0x07b9…07f0 at0033 = ╱4c╱L╱ // 0x7ec @0x33
0x07b9…07f0 at0034 = ╱4b╱K╱ // 0x7ed @0x34
0x07b9…07f0 at0035 = ╱ef╱$╱ // 0x7ee @0x35
0x07b9…07f0 at0036 = EOL // 0x7ef @0x36
0x07b9…07f0 }
0x07f0…0803 955a 0700 EXEC FEJL(V,G,K3$)
0x07f0…0803 LineComalBin {
0x07f0…0803 ptr = 0x955a // 0x7f0 @0x0
0x07f0…0803 lno = 0x02bc // 0x7f2 @0x2
0x07f0…0803 at0004 = ╱9d╱ EXEC ╱ // 0x7f4 @0x4
0x07f0…0803 at0005 = ╱46╱F╱ // 0x7f5 @0x5
0x07f0…0803 at0006 = ╱45╱E╱ // 0x7f6 @0x6
0x07f0…0803 at0007 = ╱4a╱J╱ // 0x7f7 @0x7
0x07f0…0803 at0008 = ╱4c╱L╱ // 0x7f8 @0x8
0x07f0…0803 at0009 = ╱ed╱(╱ // 0x7f9 @0x9
0x07f0…0803 at000a = ╱56╱V╱ // 0x7fa @0xa
0x07f0…0803 at000b = ╱ec╱,╱ // 0x7fb @0xb
0x07f0…0803 at000c = ╱47╱G╱ // 0x7fc @0xc
0x07f0…0803 at000d = ╱ec╱,╱ // 0x7fd @0xd
0x07f0…0803 at000e = ╱4b╱K╱ // 0x7fe @0xe
0x07f0…0803 at000f = ╱33╱3╱ // 0x7ff @0xf
0x07f0…0803 at0010 = ╱ef╱$╱ // 0x800 @0x10
0x07f0…0803 at0011 = ╱ee╱)╱ // 0x801 @0x11
0x07f0…0803 at0012 = EOL // 0x802 @0x12
0x07f0…0803 }
0x0803…082e 9585 0710 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x0803…082e LineComalBin {
0x0803…082e ptr = 0x9585 // 0x803 @0x0
0x0803…082e lno = 0x02c6 // 0x805 @0x2
0x0803…082e at0004 = ╱a9╱ GET ╱ // 0x807 @0x4
0x0803…082e at0005 = ╱4b╱K╱ // 0x808 @0x5
0x0803…082e at0006 = ╱33╱3╱ // 0x809 @0x6
0x0803…082e at0007 = ╱ef╱$╱ // 0x80a @0x7
0x0803…082e at0008 = ╱ec╱,╱ // 0x80b @0x8
0x0803…082e at0009 = ╱53╱S╱ // 0x80c @0x9
0x0803…082e at000a = ╱e2╱+╱ // 0x80d @0xa
0x0803…082e at000b = ╱47╱G╱ // 0x80e @0xb
0x0803…082e at000c = ╱f0╱:╱ // 0x80f @0xc
0x0803…082e at000d = ╱44╱D╱ // 0x810 @0xd
0x0803…082e at000e = ╱45╱E╱ // 0x811 @0xe
0x0803…082e at000f = ╱42╱B╱ // 0x812 @0xf
0x0803…082e at0010 = ╱47╱G╱ // 0x813 @0x10
0x0803…082e at0011 = ╱41╱A╱ // 0x814 @0x11
0x0803…082e at0012 = ╱44╱D╱ // 0x815 @0x12
0x0803…082e at0013 = ╱45╱E╱ // 0x816 @0x13
0x0803…082e at0014 = ╱ef╱$╱ // 0x817 @0x14
0x0803…082e at0015 = ╱ec╱,╱ // 0x818 @0x15
0x0803…082e at0016 = ╱44╱D╱ // 0x819 @0x16
0x0803…082e at0017 = ╱45╱E╱ // 0x81a @0x17
0x0803…082e at0018 = ╱42╱B╱ // 0x81b @0x18
0x0803…082e at0019 = ╱54╱T╱ // 0x81c @0x19
0x0803…082e at001a = ╱4c╱L╱ // 0x81d @0x1a
0x0803…082e at001b = ╱46╱F╱ // 0x81e @0x1b
0x0803…082e at001c = ╱ef╱$╱ // 0x81f @0x1c
0x0803…082e at001d = ╱ec╱,╱ // 0x820 @0x1d
0x0803…082e at001e = ╱48╱H╱ // 0x821 @0x1e
0x0803…082e at001f = ╱50╱P╱ // 0x822 @0x1f
0x0803…082e at0020 = ╱4f╱O╱ // 0x823 @0x20
0x0803…082e at0021 = ╱53╱S╱ // 0x824 @0x21
0x0803…082e at0022 = ╱54╱T╱ // 0x825 @0x22
0x0803…082e at0023 = ╱ec╱,╱ // 0x826 @0x23
0x0803…082e at0024 = ╱48╱H╱ // 0x827 @0x24
0x0803…082e at0025 = ╱4b╱K╱ // 0x828 @0x25
0x0803…082e at0026 = ╱55╱U╱ // 0x829 @0x26
0x0803…082e at0027 = ╱4e╱N╱ // 0x82a @0x27
0x0803…082e at0028 = ╱44╱D╱ // 0x82b @0x28
0x0803…082e at0029 = ╱45╱E╱ // 0x82c @0x29
0x0803…082e at002a = EOL // 0x82d @0x2a
0x0803…082e }
0x082e…0841 9598 0720 EXEC FEJL(V,V,K3$)
0x082e…0841 LineComalBin {
0x082e…0841 ptr = 0x9598 // 0x82e @0x0
0x082e…0841 lno = 0x02d0 // 0x830 @0x2
0x082e…0841 at0004 = ╱9d╱ EXEC ╱ // 0x832 @0x4
0x082e…0841 at0005 = ╱46╱F╱ // 0x833 @0x5
0x082e…0841 at0006 = ╱45╱E╱ // 0x834 @0x6
0x082e…0841 at0007 = ╱4a╱J╱ // 0x835 @0x7
0x082e…0841 at0008 = ╱4c╱L╱ // 0x836 @0x8
0x082e…0841 at0009 = ╱ed╱(╱ // 0x837 @0x9
0x082e…0841 at000a = ╱56╱V╱ // 0x838 @0xa
0x082e…0841 at000b = ╱ec╱,╱ // 0x839 @0xb
0x082e…0841 at000c = ╱56╱V╱ // 0x83a @0xc
0x082e…0841 at000d = ╱ec╱,╱ // 0x83b @0xd
0x082e…0841 at000e = ╱4b╱K╱ // 0x83c @0xe
0x082e…0841 at000f = ╱33╱3╱ // 0x83d @0xf
0x082e…0841 at0010 = ╱ef╱$╱ // 0x83e @0x10
0x082e…0841 at0011 = ╱ee╱)╱ // 0x83f @0x11
0x082e…0841 at0012 = EOL // 0x840 @0x12
0x082e…0841 }
0x0841…0864 95bb 0730 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x0841…0864 LineComalBin {
0x0841…0864 ptr = 0x95bb // 0x841 @0x0
0x0841…0864 lno = 0x02da // 0x843 @0x2
0x0841…0864 at0004 = ╱a9╱ GET ╱ // 0x845 @0x4
0x0841…0864 at0005 = ╱4b╱K╱ // 0x846 @0x5
0x0841…0864 at0006 = ╱33╱3╱ // 0x847 @0x6
0x0841…0864 at0007 = ╱ef╱$╱ // 0x848 @0x7
0x0841…0864 at0008 = ╱ec╱,╱ // 0x849 @0x8
0x0841…0864 at0009 = ╱53╱S╱ // 0x84a @0x9
0x0841…0864 at000a = ╱e2╱+╱ // 0x84b @0xa
0x0841…0864 at000b = ╱56╱V╱ // 0x84c @0xb
0x0841…0864 at000c = ╱f0╱:╱ // 0x84d @0xc
0x0841…0864 at000d = ╱44╱D╱ // 0x84e @0xd
0x0841…0864 at000e = ╱45╱E╱ // 0x84f @0xe
0x0841…0864 at000f = ╱42╱B╱ // 0x850 @0xf
0x0841…0864 at0010 = ╱42╱B╱ // 0x851 @0x10
0x0841…0864 at0011 = ╱59╱Y╱ // 0x852 @0x11
0x0841…0864 at0012 = ╱ef╱$╱ // 0x853 @0x12
0x0841…0864 at0013 = ╱ec╱,╱ // 0x854 @0x13
0x0841…0864 at0014 = ╱5d╱Å╱ // 0x855 @0x14
0x0841…0864 at0015 = ╱52╱R╱ // 0x856 @0x15
0x0841…0864 at0016 = ╱4b╱K╱ // 0x857 @0x16
0x0841…0864 at0017 = ╱5c╱Ø╱ // 0x858 @0x17
0x0841…0864 at0018 = ╱42╱B╱ // 0x859 @0x18
0x0841…0864 at0019 = ╱ef╱$╱ // 0x85a @0x19
0x0841…0864 at001a = ╱ec╱,╱ // 0x85b @0x1a
0x0841…0864 at001b = ╱4d╱M╱ // 0x85c @0x1b
0x0841…0864 at001c = ╱44╱D╱ // 0x85d @0x1c
0x0841…0864 at001d = ╱4e╱N╱ // 0x85e @0x1d
0x0841…0864 at001e = ╱4b╱K╱ // 0x85f @0x1e
0x0841…0864 at001f = ╱5c╱Ø╱ // 0x860 @0x1f
0x0841…0864 at0020 = ╱42╱B╱ // 0x861 @0x20
0x0841…0864 at0021 = ╱ef╱$╱ // 0x862 @0x21
0x0841…0864 at0022 = EOL // 0x863 @0x22
0x0841…0864 }
0x0864…087c 95d3 0740 EXEC FEJL(V,4,K3$)
0x0864…087c LineComalBin {
0x0864…087c ptr = 0x95d3 // 0x864 @0x0
0x0864…087c lno = 0x02e4 // 0x866 @0x2
0x0864…087c at0004 = ╱9d╱ EXEC ╱ // 0x868 @0x4
0x0864…087c at0005 = ╱46╱F╱ // 0x869 @0x5
0x0864…087c at0006 = ╱45╱E╱ // 0x86a @0x6
0x0864…087c at0007 = ╱4a╱J╱ // 0x86b @0x7
0x0864…087c at0008 = ╱4c╱L╱ // 0x86c @0x8
0x0864…087c at0009 = ╱ed╱(╱ // 0x86d @0x9
0x0864…087c at000a = ╱56╱V╱ // 0x86e @0xa
0x0864…087c at000b = ╱ec╱,╱ // 0x86f @0xb
0x0864…087c at000c = ╱34╱4╱ // 0x870 @0xc
0x0864…087c at000d = ╱fe00008003╱ // 0x871 @0xd
0x0864…087c at0012 = ╱ec╱,╱ // 0x876 @0x12
0x0864…087c at0013 = ╱4b╱K╱ // 0x877 @0x13
0x0864…087c at0014 = ╱33╱3╱ // 0x878 @0x14
0x0864…087c at0015 = ╱ef╱$╱ // 0x879 @0x15
0x0864…087c at0016 = ╱ee╱)╱ // 0x87a @0x16
0x0864…087c at0017 = EOL // 0x87b @0x17
0x0864…087c }
0x087c…0882 95d9 0750 ENDPROC
0x087c…0882 LineComalBin {
0x087c…0882 ptr = 0x95d9 // 0x87c @0x0
0x087c…0882 lno = 0x02ee // 0x87e @0x2
0x087c…0882 at0004 = ╱9f╱ ENDPROC ╱ // 0x880 @0x4
0x087c…0882 at0005 = EOL // 0x881 @0x5
0x087c…0882 }
0x0882…0891 95e8 0760 PROC DATOU(DA)
0x0882…0891 LineComalBin {
0x0882…0891 ptr = 0x95e8 // 0x882 @0x0
0x0882…0891 lno = 0x02f8 // 0x884 @0x2
0x0882…0891 at0004 = ╱9e╱ PROC ╱ // 0x886 @0x4
0x0882…0891 at0005 = ╱44╱D╱ // 0x887 @0x5
0x0882…0891 at0006 = ╱41╱A╱ // 0x888 @0x6
0x0882…0891 at0007 = ╱54╱T╱ // 0x889 @0x7
0x0882…0891 at0008 = ╱4f╱O╱ // 0x88a @0x8
0x0882…0891 at0009 = ╱55╱U╱ // 0x88b @0x9
0x0882…0891 at000a = ╱ed╱(╱ // 0x88c @0xa
0x0882…0891 at000b = ╱44╱D╱ // 0x88d @0xb
0x0882…0891 at000c = ╱41╱A╱ // 0x88e @0xc
0x0882…0891 at000d = ╱ee╱)╱ // 0x88f @0xd
0x0882…0891 at000e = EOL // 0x890 @0xe
0x0882…0891 }
0x0891…08a1 95f8 0770 PRINT TAB(5);
0x0891…08a1 LineComalBin {
0x0891…08a1 ptr = 0x95f8 // 0x891 @0x0
0x0891…08a1 lno = 0x0302 // 0x893 @0x2
0x0891…08a1 at0004 = ╱92╱ PRINT ╱ // 0x895 @0x4
0x0891…08a1 at0005 = ╱d2╱TAB╱ // 0x896 @0x5
0x0891…08a1 at0006 = ╱ed╱(╱ // 0x897 @0x6
0x0891…08a1 at0007 = ╱35╱5╱ // 0x898 @0x7
0x0891…08a1 at0008 = ╱fe0000a003╱ // 0x899 @0x8
0x0891…08a1 at000d = ╱ee╱)╱ // 0x89e @0xd
0x0891…08a1 at000e = ╱eb╱;╱ // 0x89f @0xe
0x0891…08a1 at000f = EOL // 0x8a0 @0xf
0x0891…08a1 }
0x08a1…08ca 9621 0780 PRINT USING "###.##":(DA MOD 10000)/100;
0x08a1…08ca LineComalBin {
0x08a1…08ca ptr = 0x9621 // 0x8a1 @0x0
0x08a1…08ca lno = 0x030c // 0x8a3 @0x2
0x08a1…08ca at0004 = ╱92╱ PRINT ╱ // 0x8a5 @0x4
0x08a1…08ca at0005 = ╱b9╱ USING ╱ // 0x8a6 @0x5
0x08a1…08ca at0006 = ╱22╱"╱ // 0x8a7 @0x6
0x08a1…08ca at0007 = ╱23╱#╱ // 0x8a8 @0x7
0x08a1…08ca at0008 = ╱23╱#╱ // 0x8a9 @0x8
0x08a1…08ca at0009 = ╱23╱#╱ // 0x8aa @0x9
0x08a1…08ca at000a = ╱2e╱.╱ // 0x8ab @0xa
0x08a1…08ca at000b = ╱23╱#╱ // 0x8ac @0xb
0x08a1…08ca at000c = ╱23╱#╱ // 0x8ad @0xc
0x08a1…08ca at000d = ╱22╱"╱ // 0x8ae @0xd
0x08a1…08ca at000e = ╱f0╱:╱ // 0x8af @0xe
0x08a1…08ca at000f = ╱ed╱(╱ // 0x8b0 @0xf
0x08a1…08ca at0010 = ╱44╱D╱ // 0x8b1 @0x10
0x08a1…08ca at0011 = ╱41╱A╱ // 0x8b2 @0x11
0x08a1…08ca at0012 = ╱e8╱ MOD ╱ // 0x8b3 @0x12
0x08a1…08ca at0013 = ╱31╱1╱ // 0x8b4 @0x13
0x08a1…08ca at0014 = ╱30╱0╱ // 0x8b5 @0x14
0x08a1…08ca at0015 = ╱30╱0╱ // 0x8b6 @0x15
0x08a1…08ca at0016 = ╱30╱0╱ // 0x8b7 @0x16
0x08a1…08ca at0017 = ╱30╱0╱ // 0x8b8 @0x17
0x08a1…08ca at0018 = ╱fe00409c0e╱ // 0x8b9 @0x18
0x08a1…08ca at001d = ╱ee╱)╱ // 0x8be @0x1d
0x08a1…08ca at001e = ╱e5╱/╱ // 0x8bf @0x1e
0x08a1…08ca at001f = ╱31╱1╱ // 0x8c0 @0x1f
0x08a1…08ca at0020 = ╱30╱0╱ // 0x8c1 @0x20
0x08a1…08ca at0021 = ╱30╱0╱ // 0x8c2 @0x21
0x08a1…08ca at0022 = ╱fe0000c807╱ // 0x8c3 @0x22
0x08a1…08ca at0027 = ╱eb╱;╱ // 0x8c8 @0x27
0x08a1…08ca at0028 = EOL // 0x8c9 @0x28
0x08a1…08ca }
0x08ca…08d5 962c 0790 PRINT TAB(G);
0x08ca…08d5 LineComalBin {
0x08ca…08d5 ptr = 0x962c // 0x8ca @0x0
0x08ca…08d5 lno = 0x0316 // 0x8cc @0x2
0x08ca…08d5 at0004 = ╱92╱ PRINT ╱ // 0x8ce @0x4
0x08ca…08d5 at0005 = ╱d2╱TAB╱ // 0x8cf @0x5
0x08ca…08d5 at0006 = ╱ed╱(╱ // 0x8d0 @0x6
0x08ca…08d5 at0007 = ╱47╱G╱ // 0x8d1 @0x7
0x08ca…08d5 at0008 = ╱ee╱)╱ // 0x8d2 @0x8
0x08ca…08d5 at0009 = ╱eb╱;╱ // 0x8d3 @0x9
0x08ca…08d5 at000a = EOL // 0x8d4 @0xa
0x08ca…08d5 }
0x08d5…08fb 9652 0800 PRINT USING "###.#":(DA DIV 1000)/10;
0x08d5…08fb LineComalBin {
0x08d5…08fb ptr = 0x9652 // 0x8d5 @0x0
0x08d5…08fb lno = 0x0320 // 0x8d7 @0x2
0x08d5…08fb at0004 = ╱92╱ PRINT ╱ // 0x8d9 @0x4
0x08d5…08fb at0005 = ╱b9╱ USING ╱ // 0x8da @0x5
0x08d5…08fb at0006 = ╱22╱"╱ // 0x8db @0x6
0x08d5…08fb at0007 = ╱23╱#╱ // 0x8dc @0x7
0x08d5…08fb at0008 = ╱23╱#╱ // 0x8dd @0x8
0x08d5…08fb at0009 = ╱23╱#╱ // 0x8de @0x9
0x08d5…08fb at000a = ╱2e╱.╱ // 0x8df @0xa
0x08d5…08fb at000b = ╱23╱#╱ // 0x8e0 @0xb
0x08d5…08fb at000c = ╱22╱"╱ // 0x8e1 @0xc
0x08d5…08fb at000d = ╱f0╱:╱ // 0x8e2 @0xd
0x08d5…08fb at000e = ╱ed╱(╱ // 0x8e3 @0xe
0x08d5…08fb at000f = ╱44╱D╱ // 0x8e4 @0xf
0x08d5…08fb at0010 = ╱41╱A╱ // 0x8e5 @0x10
0x08d5…08fb at0011 = ╱e7╱ DIV ╱ // 0x8e6 @0x11
0x08d5…08fb at0012 = ╱31╱1╱ // 0x8e7 @0x12
0x08d5…08fb at0013 = ╱30╱0╱ // 0x8e8 @0x13
0x08d5…08fb at0014 = ╱30╱0╱ // 0x8e9 @0x14
0x08d5…08fb at0015 = ╱30╱0╱ // 0x8ea @0x15
0x08d5…08fb at0016 = ╱fe0000fa0a╱ // 0x8eb @0x16
0x08d5…08fb at001b = ╱ee╱)╱ // 0x8f0 @0x1b
0x08d5…08fb at001c = ╱e5╱/╱ // 0x8f1 @0x1c
0x08d5…08fb at001d = ╱31╱1╱ // 0x8f2 @0x1d
0x08d5…08fb at001e = ╱30╱0╱ // 0x8f3 @0x1e
0x08d5…08fb at001f = ╱fe0000a004╱ // 0x8f4 @0x1f
0x08d5…08fb at0024 = ╱eb╱;╱ // 0x8f9 @0x24
0x08d5…08fb at0025 = EOL // 0x8fa @0x25
0x08d5…08fb }
0x08fb…0901 9658 0810 ENDPROC
0x08fb…0901 LineComalBin {
0x08fb…0901 ptr = 0x9658 // 0x8fb @0x0
0x08fb…0901 lno = 0x032a // 0x8fd @0x2
0x08fb…0901 at0004 = ╱9f╱ ENDPROC ╱ // 0x8ff @0x4
0x08fb…0901 at0005 = EOL // 0x900 @0x5
0x08fb…0901 }
0x0901…091b 9672 0820 K1$="P641220:SYSTEM1"
0x0901…091b LineComalBin {
0x0901…091b ptr = 0x9672 // 0x901 @0x0
0x0901…091b lno = 0x0334 // 0x903 @0x2
0x0901…091b at0004 = ╱4b╱K╱ // 0x905 @0x4
0x0901…091b at0005 = ╱31╱1╱ // 0x906 @0x5
0x0901…091b at0006 = ╱ef╱$╱ // 0x907 @0x6
0x0901…091b at0007 = ╱dc╱=╱ // 0x908 @0x7
0x0901…091b at0008 = ╱22╱"╱ // 0x909 @0x8
0x0901…091b at0009 = ╱50╱P╱ // 0x90a @0x9
0x0901…091b at000a = ╱36╱6╱ // 0x90b @0xa
0x0901…091b at000b = ╱34╱4╱ // 0x90c @0xb
0x0901…091b at000c = ╱31╱1╱ // 0x90d @0xc
0x0901…091b at000d = ╱32╱2╱ // 0x90e @0xd
0x0901…091b at000e = ╱32╱2╱ // 0x90f @0xe
0x0901…091b at000f = ╱30╱0╱ // 0x910 @0xf
0x0901…091b at0010 = ╱3a╱:╱ // 0x911 @0x10
0x0901…091b at0011 = ╱53╱S╱ // 0x912 @0x11
0x0901…091b at0012 = ╱59╱Y╱ // 0x913 @0x12
0x0901…091b at0013 = ╱53╱S╱ // 0x914 @0x13
0x0901…091b at0014 = ╱54╱T╱ // 0x915 @0x14
0x0901…091b at0015 = ╱45╱E╱ // 0x916 @0x15
0x0901…091b at0016 = ╱4d╱M╱ // 0x917 @0x16
0x0901…091b at0017 = ╱31╱1╱ // 0x918 @0x17
0x0901…091b at0018 = ╱22╱"╱ // 0x919 @0x18
0x0901…091b at0019 = EOL // 0x91a @0x19
0x0901…091b }
0x091b…0926 967d 0830 OPEN K1$,R
0x091b…0926 LineComalBin {
0x091b…0926 ptr = 0x967d // 0x91b @0x0
0x091b…0926 lno = 0x033e // 0x91d @0x2
0x091b…0926 at0004 = ╱a7╱ OPEN ╱ // 0x91f @0x4
0x091b…0926 at0005 = ╱4b╱K╱ // 0x920 @0x5
0x091b…0926 at0006 = ╱31╱1╱ // 0x921 @0x6
0x091b…0926 at0007 = ╱ef╱$╱ // 0x922 @0x7
0x091b…0926 at0008 = ╱ec╱,╱ // 0x923 @0x8
0x091b…0926 at0009 = ╱52╱R╱ // 0x924 @0x9
0x091b…0926 at000a = EOL // 0x925 @0xa
0x091b…0926 }
0x0926…0939 9690 0840 EXEC FEJL(W,E,K1$)
0x0926…0939 LineComalBin {
0x0926…0939 ptr = 0x9690 // 0x926 @0x0
0x0926…0939 lno = 0x0348 // 0x928 @0x2
0x0926…0939 at0004 = ╱9d╱ EXEC ╱ // 0x92a @0x4
0x0926…0939 at0005 = ╱46╱F╱ // 0x92b @0x5
0x0926…0939 at0006 = ╱45╱E╱ // 0x92c @0x6
0x0926…0939 at0007 = ╱4a╱J╱ // 0x92d @0x7
0x0926…0939 at0008 = ╱4c╱L╱ // 0x92e @0x8
0x0926…0939 at0009 = ╱ed╱(╱ // 0x92f @0x9
0x0926…0939 at000a = ╱57╱W╱ // 0x930 @0xa
0x0926…0939 at000b = ╱ec╱,╱ // 0x931 @0xb
0x0926…0939 at000c = ╱45╱E╱ // 0x932 @0xc
0x0926…0939 at000d = ╱ec╱,╱ // 0x933 @0xd
0x0926…0939 at000e = ╱4b╱K╱ // 0x934 @0xe
0x0926…0939 at000f = ╱31╱1╱ // 0x935 @0xf
0x0926…0939 at0010 = ╱ef╱$╱ // 0x936 @0x10
0x0926…0939 at0011 = ╱ee╱)╱ // 0x937 @0x11
0x0926…0939 at0012 = EOL // 0x938 @0x12
0x0926…0939 }
0x0939…0954 96ab 0850 GET K1$,E:MFANTAL,MDANTAL
0x0939…0954 LineComalBin {
0x0939…0954 ptr = 0x96ab // 0x939 @0x0
0x0939…0954 lno = 0x0352 // 0x93b @0x2
0x0939…0954 at0004 = ╱a9╱ GET ╱ // 0x93d @0x4
0x0939…0954 at0005 = ╱4b╱K╱ // 0x93e @0x5
0x0939…0954 at0006 = ╱31╱1╱ // 0x93f @0x6
0x0939…0954 at0007 = ╱ef╱$╱ // 0x940 @0x7
0x0939…0954 at0008 = ╱ec╱,╱ // 0x941 @0x8
0x0939…0954 at0009 = ╱45╱E╱ // 0x942 @0x9
0x0939…0954 at000a = ╱f0╱:╱ // 0x943 @0xa
0x0939…0954 at000b = ╱4d╱M╱ // 0x944 @0xb
0x0939…0954 at000c = ╱46╱F╱ // 0x945 @0xc
0x0939…0954 at000d = ╱41╱A╱ // 0x946 @0xd
0x0939…0954 at000e = ╱4e╱N╱ // 0x947 @0xe
0x0939…0954 at000f = ╱54╱T╱ // 0x948 @0xf
0x0939…0954 at0010 = ╱41╱A╱ // 0x949 @0x10
0x0939…0954 at0011 = ╱4c╱L╱ // 0x94a @0x11
0x0939…0954 at0012 = ╱ec╱,╱ // 0x94b @0x12
0x0939…0954 at0013 = ╱4d╱M╱ // 0x94c @0x13
0x0939…0954 at0014 = ╱44╱D╱ // 0x94d @0x14
0x0939…0954 at0015 = ╱41╱A╱ // 0x94e @0x15
0x0939…0954 at0016 = ╱4e╱N╱ // 0x94f @0x16
0x0939…0954 at0017 = ╱54╱T╱ // 0x950 @0x17
0x0939…0954 at0018 = ╱41╱A╱ // 0x951 @0x18
0x0939…0954 at0019 = ╱4c╱L╱ // 0x952 @0x19
0x0939…0954 at001a = EOL // 0x953 @0x1a
0x0939…0954 }
0x0954…0967 96be 0860 EXEC FEJL(W,G,K1$)
0x0954…0967 LineComalBin {
0x0954…0967 ptr = 0x96be // 0x954 @0x0
0x0954…0967 lno = 0x035c // 0x956 @0x2
0x0954…0967 at0004 = ╱9d╱ EXEC ╱ // 0x958 @0x4
0x0954…0967 at0005 = ╱46╱F╱ // 0x959 @0x5
0x0954…0967 at0006 = ╱45╱E╱ // 0x95a @0x6
0x0954…0967 at0007 = ╱4a╱J╱ // 0x95b @0x7
0x0954…0967 at0008 = ╱4c╱L╱ // 0x95c @0x8
0x0954…0967 at0009 = ╱ed╱(╱ // 0x95d @0x9
0x0954…0967 at000a = ╱57╱W╱ // 0x95e @0xa
0x0954…0967 at000b = ╱ec╱,╱ // 0x95f @0xb
0x0954…0967 at000c = ╱47╱G╱ // 0x960 @0xc
0x0954…0967 at000d = ╱ec╱,╱ // 0x961 @0xd
0x0954…0967 at000e = ╱4b╱K╱ // 0x962 @0xe
0x0954…0967 at000f = ╱31╱1╱ // 0x963 @0xf
0x0954…0967 at0010 = ╱ef╱$╱ // 0x964 @0x10
0x0954…0967 at0011 = ╱ee╱)╱ // 0x965 @0x11
0x0954…0967 at0012 = EOL // 0x966 @0x12
0x0954…0967 }
0x0967…097b 96d2 0870 GET K1$,10:N$
0x0967…097b LineComalBin {
0x0967…097b ptr = 0x96d2 // 0x967 @0x0
0x0967…097b lno = 0x0366 // 0x969 @0x2
0x0967…097b at0004 = ╱a9╱ GET ╱ // 0x96b @0x4
0x0967…097b at0005 = ╱4b╱K╱ // 0x96c @0x5
0x0967…097b at0006 = ╱31╱1╱ // 0x96d @0x6
0x0967…097b at0007 = ╱ef╱$╱ // 0x96e @0x7
0x0967…097b at0008 = ╱ec╱,╱ // 0x96f @0x8
0x0967…097b at0009 = ╱31╱1╱ // 0x970 @0x9
0x0967…097b at000a = ╱30╱0╱ // 0x971 @0xa
0x0967…097b at000b = ╱fe0000a004╱ // 0x972 @0xb
0x0967…097b at0010 = ╱f0╱:╱ // 0x977 @0x10
0x0967…097b at0011 = ╱4e╱N╱ // 0x978 @0x11
0x0967…097b at0012 = ╱ef╱$╱ // 0x979 @0x12
0x0967…097b at0013 = EOL // 0x97a @0x13
0x0967…097b }
0x097b…098e 96e5 0880 EXEC FEJL(W,V,K1$)
0x097b…098e LineComalBin {
0x097b…098e ptr = 0x96e5 // 0x97b @0x0
0x097b…098e lno = 0x0370 // 0x97d @0x2
0x097b…098e at0004 = ╱9d╱ EXEC ╱ // 0x97f @0x4
0x097b…098e at0005 = ╱46╱F╱ // 0x980 @0x5
0x097b…098e at0006 = ╱45╱E╱ // 0x981 @0x6
0x097b…098e at0007 = ╱4a╱J╱ // 0x982 @0x7
0x097b…098e at0008 = ╱4c╱L╱ // 0x983 @0x8
0x097b…098e at0009 = ╱ed╱(╱ // 0x984 @0x9
0x097b…098e at000a = ╱57╱W╱ // 0x985 @0xa
0x097b…098e at000b = ╱ec╱,╱ // 0x986 @0xb
0x097b…098e at000c = ╱56╱V╱ // 0x987 @0xc
0x097b…098e at000d = ╱ec╱,╱ // 0x988 @0xd
0x097b…098e at000e = ╱4b╱K╱ // 0x989 @0xe
0x097b…098e at000f = ╱31╱1╱ // 0x98a @0xf
0x097b…098e at0010 = ╱ef╱$╱ // 0x98b @0x10
0x097b…098e at0011 = ╱ee╱)╱ // 0x98c @0x11
0x097b…098e at0012 = EOL // 0x98d @0x12
0x097b…098e }
0x098e…09a3 96fa 0890 GET K1$,12:K2$
0x098e…09a3 LineComalBin {
0x098e…09a3 ptr = 0x96fa // 0x98e @0x0
0x098e…09a3 lno = 0x037a // 0x990 @0x2
0x098e…09a3 at0004 = ╱a9╱ GET ╱ // 0x992 @0x4
0x098e…09a3 at0005 = ╱4b╱K╱ // 0x993 @0x5
0x098e…09a3 at0006 = ╱31╱1╱ // 0x994 @0x6
0x098e…09a3 at0007 = ╱ef╱$╱ // 0x995 @0x7
0x098e…09a3 at0008 = ╱ec╱,╱ // 0x996 @0x8
0x098e…09a3 at0009 = ╱31╱1╱ // 0x997 @0x9
0x098e…09a3 at000a = ╱32╱2╱ // 0x998 @0xa
0x098e…09a3 at000b = ╱fe0000c004╱ // 0x999 @0xb
0x098e…09a3 at0010 = ╱f0╱:╱ // 0x99e @0x10
0x098e…09a3 at0011 = ╱4b╱K╱ // 0x99f @0x11
0x098e…09a3 at0012 = ╱32╱2╱ // 0x9a0 @0x12
0x098e…09a3 at0013 = ╱ef╱$╱ // 0x9a1 @0x13
0x098e…09a3 at0014 = EOL // 0x9a2 @0x14
0x098e…09a3 }
0x09a3…09bb 9712 0900 EXEC FEJL(W,4,K1$)
0x09a3…09bb LineComalBin {
0x09a3…09bb ptr = 0x9712 // 0x9a3 @0x0
0x09a3…09bb lno = 0x0384 // 0x9a5 @0x2
0x09a3…09bb at0004 = ╱9d╱ EXEC ╱ // 0x9a7 @0x4
0x09a3…09bb at0005 = ╱46╱F╱ // 0x9a8 @0x5
0x09a3…09bb at0006 = ╱45╱E╱ // 0x9a9 @0x6
0x09a3…09bb at0007 = ╱4a╱J╱ // 0x9aa @0x7
0x09a3…09bb at0008 = ╱4c╱L╱ // 0x9ab @0x8
0x09a3…09bb at0009 = ╱ed╱(╱ // 0x9ac @0x9
0x09a3…09bb at000a = ╱57╱W╱ // 0x9ad @0xa
0x09a3…09bb at000b = ╱ec╱,╱ // 0x9ae @0xb
0x09a3…09bb at000c = ╱34╱4╱ // 0x9af @0xc
0x09a3…09bb at000d = ╱fe00008003╱ // 0x9b0 @0xd
0x09a3…09bb at0012 = ╱ec╱,╱ // 0x9b5 @0x12
0x09a3…09bb at0013 = ╱4b╱K╱ // 0x9b6 @0x13
0x09a3…09bb at0014 = ╱31╱1╱ // 0x9b7 @0x14
0x09a3…09bb at0015 = ╱ef╱$╱ // 0x9b8 @0x15
0x09a3…09bb at0016 = ╱ee╱)╱ // 0x9b9 @0x16
0x09a3…09bb at0017 = EOL // 0x9ba @0x17
0x09a3…09bb }
0x09bb…09d0 9727 0910 GET K1$,16:K3$
0x09bb…09d0 LineComalBin {
0x09bb…09d0 ptr = 0x9727 // 0x9bb @0x0
0x09bb…09d0 lno = 0x038e // 0x9bd @0x2
0x09bb…09d0 at0004 = ╱a9╱ GET ╱ // 0x9bf @0x4
0x09bb…09d0 at0005 = ╱4b╱K╱ // 0x9c0 @0x5
0x09bb…09d0 at0006 = ╱31╱1╱ // 0x9c1 @0x6
0x09bb…09d0 at0007 = ╱ef╱$╱ // 0x9c2 @0x7
0x09bb…09d0 at0008 = ╱ec╱,╱ // 0x9c3 @0x8
0x09bb…09d0 at0009 = ╱31╱1╱ // 0x9c4 @0x9
0x09bb…09d0 at000a = ╱36╱6╱ // 0x9c5 @0xa
0x09bb…09d0 at000b = ╱fe00008005╱ // 0x9c6 @0xb
0x09bb…09d0 at0010 = ╱f0╱:╱ // 0x9cb @0x10
0x09bb…09d0 at0011 = ╱4b╱K╱ // 0x9cc @0x11
0x09bb…09d0 at0012 = ╱33╱3╱ // 0x9cd @0x12
0x09bb…09d0 at0013 = ╱ef╱$╱ // 0x9ce @0x13
0x09bb…09d0 at0014 = EOL // 0x9cf @0x14
0x09bb…09d0 }
0x09d0…09e8 973f 0920 EXEC FEJL(W,5,K1$)
0x09d0…09e8 LineComalBin {
0x09d0…09e8 ptr = 0x973f // 0x9d0 @0x0
0x09d0…09e8 lno = 0x0398 // 0x9d2 @0x2
0x09d0…09e8 at0004 = ╱9d╱ EXEC ╱ // 0x9d4 @0x4
0x09d0…09e8 at0005 = ╱46╱F╱ // 0x9d5 @0x5
0x09d0…09e8 at0006 = ╱45╱E╱ // 0x9d6 @0x6
0x09d0…09e8 at0007 = ╱4a╱J╱ // 0x9d7 @0x7
0x09d0…09e8 at0008 = ╱4c╱L╱ // 0x9d8 @0x8
0x09d0…09e8 at0009 = ╱ed╱(╱ // 0x9d9 @0x9
0x09d0…09e8 at000a = ╱57╱W╱ // 0x9da @0xa
0x09d0…09e8 at000b = ╱ec╱,╱ // 0x9db @0xb
0x09d0…09e8 at000c = ╱35╱5╱ // 0x9dc @0xc
0x09d0…09e8 at000d = ╱fe0000a003╱ // 0x9dd @0xd
0x09d0…09e8 at0012 = ╱ec╱,╱ // 0x9e2 @0x12
0x09d0…09e8 at0013 = ╱4b╱K╱ // 0x9e3 @0x13
0x09d0…09e8 at0014 = ╱31╱1╱ // 0x9e4 @0x14
0x09d0…09e8 at0015 = ╱ef╱$╱ // 0x9e5 @0x15
0x09d0…09e8 at0016 = ╱ee╱)╱ // 0x9e6 @0x16
0x09d0…09e8 at0017 = EOL // 0x9e7 @0x17
0x09d0…09e8 }
0x09e8…09fd 9754 0930 GET K1$,28:K4$
0x09e8…09fd LineComalBin {
0x09e8…09fd ptr = 0x9754 // 0x9e8 @0x0
0x09e8…09fd lno = 0x03a2 // 0x9ea @0x2
0x09e8…09fd at0004 = ╱a9╱ GET ╱ // 0x9ec @0x4
0x09e8…09fd at0005 = ╱4b╱K╱ // 0x9ed @0x5
0x09e8…09fd at0006 = ╱31╱1╱ // 0x9ee @0x6
0x09e8…09fd at0007 = ╱ef╱$╱ // 0x9ef @0x7
0x09e8…09fd at0008 = ╱ec╱,╱ // 0x9f0 @0x8
0x09e8…09fd at0009 = ╱32╱2╱ // 0x9f1 @0x9
0x09e8…09fd at000a = ╱38╱8╱ // 0x9f2 @0xa
0x09e8…09fd at000b = ╱fe0000e005╱ // 0x9f3 @0xb
0x09e8…09fd at0010 = ╱f0╱:╱ // 0x9f8 @0x10
0x09e8…09fd at0011 = ╱4b╱K╱ // 0x9f9 @0x11
0x09e8…09fd at0012 = ╱34╱4╱ // 0x9fa @0x12
0x09e8…09fd at0013 = ╱ef╱$╱ // 0x9fb @0x13
0x09e8…09fd at0014 = EOL // 0x9fc @0x14
0x09e8…09fd }
0x09fd…0a15 976c 0940 EXEC FEJL(W,6,K1$)
0x09fd…0a15 LineComalBin {
0x09fd…0a15 ptr = 0x976c // 0x9fd @0x0
0x09fd…0a15 lno = 0x03ac // 0x9ff @0x2
0x09fd…0a15 at0004 = ╱9d╱ EXEC ╱ // 0xa01 @0x4
0x09fd…0a15 at0005 = ╱46╱F╱ // 0xa02 @0x5
0x09fd…0a15 at0006 = ╱45╱E╱ // 0xa03 @0x6
0x09fd…0a15 at0007 = ╱4a╱J╱ // 0xa04 @0x7
0x09fd…0a15 at0008 = ╱4c╱L╱ // 0xa05 @0x8
0x09fd…0a15 at0009 = ╱ed╱(╱ // 0xa06 @0x9
0x09fd…0a15 at000a = ╱57╱W╱ // 0xa07 @0xa
0x09fd…0a15 at000b = ╱ec╱,╱ // 0xa08 @0xb
0x09fd…0a15 at000c = ╱36╱6╱ // 0xa09 @0xc
0x09fd…0a15 at000d = ╱fe0000c003╱ // 0xa0a @0xd
0x09fd…0a15 at0012 = ╱ec╱,╱ // 0xa0f @0x12
0x09fd…0a15 at0013 = ╱4b╱K╱ // 0xa10 @0x13
0x09fd…0a15 at0014 = ╱31╱1╱ // 0xa11 @0x14
0x09fd…0a15 at0015 = ╱ef╱$╱ // 0xa12 @0x15
0x09fd…0a15 at0016 = ╱ee╱)╱ // 0xa13 @0x16
0x09fd…0a15 at0017 = EOL // 0xa14 @0x17
0x09fd…0a15 }
0x0a15…0a2a 9781 0950 GET K1$,30:K5$
0x0a15…0a2a LineComalBin {
0x0a15…0a2a ptr = 0x9781 // 0xa15 @0x0
0x0a15…0a2a lno = 0x03b6 // 0xa17 @0x2
0x0a15…0a2a at0004 = ╱a9╱ GET ╱ // 0xa19 @0x4
0x0a15…0a2a at0005 = ╱4b╱K╱ // 0xa1a @0x5
0x0a15…0a2a at0006 = ╱31╱1╱ // 0xa1b @0x6
0x0a15…0a2a at0007 = ╱ef╱$╱ // 0xa1c @0x7
0x0a15…0a2a at0008 = ╱ec╱,╱ // 0xa1d @0x8
0x0a15…0a2a at0009 = ╱33╱3╱ // 0xa1e @0x9
0x0a15…0a2a at000a = ╱30╱0╱ // 0xa1f @0xa
0x0a15…0a2a at000b = ╱fe0000f005╱ // 0xa20 @0xb
0x0a15…0a2a at0010 = ╱f0╱:╱ // 0xa25 @0x10
0x0a15…0a2a at0011 = ╱4b╱K╱ // 0xa26 @0x11
0x0a15…0a2a at0012 = ╱35╱5╱ // 0xa27 @0x12
0x0a15…0a2a at0013 = ╱ef╱$╱ // 0xa28 @0x13
0x0a15…0a2a at0014 = EOL // 0xa29 @0x14
0x0a15…0a2a }
0x0a2a…0a42 9799 0960 EXEC FEJL(W,7,K1$)
0x0a2a…0a42 LineComalBin {
0x0a2a…0a42 ptr = 0x9799 // 0xa2a @0x0
0x0a2a…0a42 lno = 0x03c0 // 0xa2c @0x2
0x0a2a…0a42 at0004 = ╱9d╱ EXEC ╱ // 0xa2e @0x4
0x0a2a…0a42 at0005 = ╱46╱F╱ // 0xa2f @0x5
0x0a2a…0a42 at0006 = ╱45╱E╱ // 0xa30 @0x6
0x0a2a…0a42 at0007 = ╱4a╱J╱ // 0xa31 @0x7
0x0a2a…0a42 at0008 = ╱4c╱L╱ // 0xa32 @0x8
0x0a2a…0a42 at0009 = ╱ed╱(╱ // 0xa33 @0x9
0x0a2a…0a42 at000a = ╱57╱W╱ // 0xa34 @0xa
0x0a2a…0a42 at000b = ╱ec╱,╱ // 0xa35 @0xb
0x0a2a…0a42 at000c = ╱37╱7╱ // 0xa36 @0xc
0x0a2a…0a42 at000d = ╱fe0000e003╱ // 0xa37 @0xd
0x0a2a…0a42 at0012 = ╱ec╱,╱ // 0xa3c @0x12
0x0a2a…0a42 at0013 = ╱4b╱K╱ // 0xa3d @0x13
0x0a2a…0a42 at0014 = ╱31╱1╱ // 0xa3e @0x14
0x0a2a…0a42 at0015 = ╱ef╱$╱ // 0xa3f @0x15
0x0a2a…0a42 at0016 = ╱ee╱)╱ // 0xa40 @0x16
0x0a2a…0a42 at0017 = EOL // 0xa41 @0x17
0x0a2a…0a42 }
0x0a42…0a57 97ae 0970 GET K1$,31:K6$
0x0a42…0a57 LineComalBin {
0x0a42…0a57 ptr = 0x97ae // 0xa42 @0x0
0x0a42…0a57 lno = 0x03ca // 0xa44 @0x2
0x0a42…0a57 at0004 = ╱a9╱ GET ╱ // 0xa46 @0x4
0x0a42…0a57 at0005 = ╱4b╱K╱ // 0xa47 @0x5
0x0a42…0a57 at0006 = ╱31╱1╱ // 0xa48 @0x6
0x0a42…0a57 at0007 = ╱ef╱$╱ // 0xa49 @0x7
0x0a42…0a57 at0008 = ╱ec╱,╱ // 0xa4a @0x8
0x0a42…0a57 at0009 = ╱33╱3╱ // 0xa4b @0x9
0x0a42…0a57 at000a = ╱31╱1╱ // 0xa4c @0xa
0x0a42…0a57 at000b = ╱fe0000f805╱ // 0xa4d @0xb
0x0a42…0a57 at0010 = ╱f0╱:╱ // 0xa52 @0x10
0x0a42…0a57 at0011 = ╱4b╱K╱ // 0xa53 @0x11
0x0a42…0a57 at0012 = ╱36╱6╱ // 0xa54 @0x12
0x0a42…0a57 at0013 = ╱ef╱$╱ // 0xa55 @0x13
0x0a42…0a57 at0014 = EOL // 0xa56 @0x14
0x0a42…0a57 }
0x0a57…0a6f 97c6 0980 EXEC FEJL(W,8,K1$)
0x0a57…0a6f LineComalBin {
0x0a57…0a6f ptr = 0x97c6 // 0xa57 @0x0
0x0a57…0a6f lno = 0x03d4 // 0xa59 @0x2
0x0a57…0a6f at0004 = ╱9d╱ EXEC ╱ // 0xa5b @0x4
0x0a57…0a6f at0005 = ╱46╱F╱ // 0xa5c @0x5
0x0a57…0a6f at0006 = ╱45╱E╱ // 0xa5d @0x6
0x0a57…0a6f at0007 = ╱4a╱J╱ // 0xa5e @0x7
0x0a57…0a6f at0008 = ╱4c╱L╱ // 0xa5f @0x8
0x0a57…0a6f at0009 = ╱ed╱(╱ // 0xa60 @0x9
0x0a57…0a6f at000a = ╱57╱W╱ // 0xa61 @0xa
0x0a57…0a6f at000b = ╱ec╱,╱ // 0xa62 @0xb
0x0a57…0a6f at000c = ╱38╱8╱ // 0xa63 @0xc
0x0a57…0a6f at000d = ╱fe00008004╱ // 0xa64 @0xd
0x0a57…0a6f at0012 = ╱ec╱,╱ // 0xa69 @0x12
0x0a57…0a6f at0013 = ╱4b╱K╱ // 0xa6a @0x13
0x0a57…0a6f at0014 = ╱31╱1╱ // 0xa6b @0x14
0x0a57…0a6f at0015 = ╱ef╱$╱ // 0xa6c @0x15
0x0a57…0a6f at0016 = ╱ee╱)╱ // 0xa6d @0x16
0x0a57…0a6f at0017 = EOL // 0xa6e @0x17
0x0a57…0a6f }
0x0a6f…0a84 97db 0990 GET K1$,36:K7$
0x0a6f…0a84 LineComalBin {
0x0a6f…0a84 ptr = 0x97db // 0xa6f @0x0
0x0a6f…0a84 lno = 0x03de // 0xa71 @0x2
0x0a6f…0a84 at0004 = ╱a9╱ GET ╱ // 0xa73 @0x4
0x0a6f…0a84 at0005 = ╱4b╱K╱ // 0xa74 @0x5
0x0a6f…0a84 at0006 = ╱31╱1╱ // 0xa75 @0x6
0x0a6f…0a84 at0007 = ╱ef╱$╱ // 0xa76 @0x7
0x0a6f…0a84 at0008 = ╱ec╱,╱ // 0xa77 @0x8
0x0a6f…0a84 at0009 = ╱33╱3╱ // 0xa78 @0x9
0x0a6f…0a84 at000a = ╱36╱6╱ // 0xa79 @0xa
0x0a6f…0a84 at000b = ╱fe00009006╱ // 0xa7a @0xb
0x0a6f…0a84 at0010 = ╱f0╱:╱ // 0xa7f @0x10
0x0a6f…0a84 at0011 = ╱4b╱K╱ // 0xa80 @0x11
0x0a6f…0a84 at0012 = ╱37╱7╱ // 0xa81 @0x12
0x0a6f…0a84 at0013 = ╱ef╱$╱ // 0xa82 @0x13
0x0a6f…0a84 at0014 = EOL // 0xa83 @0x14
0x0a6f…0a84 }
0x0a84…0a97 97ee 1000 EXEC FEJL(W,W,K1$)
0x0a84…0a97 LineComalBin {
0x0a84…0a97 ptr = 0x97ee // 0xa84 @0x0
0x0a84…0a97 lno = 0x03e8 // 0xa86 @0x2
0x0a84…0a97 at0004 = ╱9d╱ EXEC ╱ // 0xa88 @0x4
0x0a84…0a97 at0005 = ╱46╱F╱ // 0xa89 @0x5
0x0a84…0a97 at0006 = ╱45╱E╱ // 0xa8a @0x6
0x0a84…0a97 at0007 = ╱4a╱J╱ // 0xa8b @0x7
0x0a84…0a97 at0008 = ╱4c╱L╱ // 0xa8c @0x8
0x0a84…0a97 at0009 = ╱ed╱(╱ // 0xa8d @0x9
0x0a84…0a97 at000a = ╱57╱W╱ // 0xa8e @0xa
0x0a84…0a97 at000b = ╱ec╱,╱ // 0xa8f @0xb
0x0a84…0a97 at000c = ╱57╱W╱ // 0xa90 @0xc
0x0a84…0a97 at000d = ╱ec╱,╱ // 0xa91 @0xd
0x0a84…0a97 at000e = ╱4b╱K╱ // 0xa92 @0xe
0x0a84…0a97 at000f = ╱31╱1╱ // 0xa93 @0xf
0x0a84…0a97 at0010 = ╱ef╱$╱ // 0xa94 @0x10
0x0a84…0a97 at0011 = ╱ee╱)╱ // 0xa95 @0x11
0x0a84…0a97 at0012 = EOL // 0xa96 @0x12
0x0a84…0a97 }
0x0a97…0aa0 97f7 1010 CLOSE K1$
0x0a97…0aa0 LineComalBin {
0x0a97…0aa0 ptr = 0x97f7 // 0xa97 @0x0
0x0a97…0aa0 lno = 0x03f2 // 0xa99 @0x2
0x0a97…0aa0 at0004 = ╱a8╱ CLOSE ╱ // 0xa9b @0x4
0x0a97…0aa0 at0005 = ╱4b╱K╱ // 0xa9c @0x5
0x0a97…0aa0 at0006 = ╱31╱1╱ // 0xa9d @0x6
0x0a97…0aa0 at0007 = ╱ef╱$╱ // 0xa9e @0x7
0x0a97…0aa0 at0008 = EOL // 0xa9f @0x8
0x0a97…0aa0 }
0x0aa0…0ab9 9810 1020 EXEC FEJL(W,10,K1$)
0x0aa0…0ab9 LineComalBin {
0x0aa0…0ab9 ptr = 0x9810 // 0xaa0 @0x0
0x0aa0…0ab9 lno = 0x03fc // 0xaa2 @0x2
0x0aa0…0ab9 at0004 = ╱9d╱ EXEC ╱ // 0xaa4 @0x4
0x0aa0…0ab9 at0005 = ╱46╱F╱ // 0xaa5 @0x5
0x0aa0…0ab9 at0006 = ╱45╱E╱ // 0xaa6 @0x6
0x0aa0…0ab9 at0007 = ╱4a╱J╱ // 0xaa7 @0x7
0x0aa0…0ab9 at0008 = ╱4c╱L╱ // 0xaa8 @0x8
0x0aa0…0ab9 at0009 = ╱ed╱(╱ // 0xaa9 @0x9
0x0aa0…0ab9 at000a = ╱57╱W╱ // 0xaaa @0xa
0x0aa0…0ab9 at000b = ╱ec╱,╱ // 0xaab @0xb
0x0aa0…0ab9 at000c = ╱31╱1╱ // 0xaac @0xc
0x0aa0…0ab9 at000d = ╱30╱0╱ // 0xaad @0xd
0x0aa0…0ab9 at000e = ╱fe0000a004╱ // 0xaae @0xe
0x0aa0…0ab9 at0013 = ╱ec╱,╱ // 0xab3 @0x13
0x0aa0…0ab9 at0014 = ╱4b╱K╱ // 0xab4 @0x14
0x0aa0…0ab9 at0015 = ╱31╱1╱ // 0xab5 @0x15
0x0aa0…0ab9 at0016 = ╱ef╱$╱ // 0xab6 @0x16
0x0aa0…0ab9 at0017 = ╱ee╱)╱ // 0xab7 @0x17
0x0aa0…0ab9 at0018 = EOL // 0xab8 @0x18
0x0aa0…0ab9 }
0x0ab9…0aff 9856 1030 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$
0x0ab9…0aff LineComalBin {
0x0ab9…0aff ptr = 0x9856 // 0xab9 @0x0
0x0ab9…0aff lno = 0x0406 // 0xabb @0x2
0x0ab9…0aff at0004 = ╱4b╱K╱ // 0xabd @0x4
0x0ab9…0aff at0005 = ╱32╱2╱ // 0xabe @0x5
0x0ab9…0aff at0006 = ╱ef╱$╱ // 0xabf @0x6
0x0ab9…0aff at0007 = ╱dc╱=╱ // 0xac0 @0x7
0x0ab9…0aff at0008 = ╱4e╱N╱ // 0xac1 @0x8
0x0ab9…0aff at0009 = ╱ef╱$╱ // 0xac2 @0x9
0x0ab9…0aff at000a = ╱f1╱+╱ // 0xac3 @0xa
0x0ab9…0aff at000b = ╱4b╱K╱ // 0xac4 @0xb
0x0ab9…0aff at000c = ╱32╱2╱ // 0xac5 @0xc
0x0ab9…0aff at000d = ╱ef╱$╱ // 0xac6 @0xd
0x0ab9…0aff at000e = ╱eb╱;╱ // 0xac7 @0xe
0x0ab9…0aff at000f = ╱4b╱K╱ // 0xac8 @0xf
0x0ab9…0aff at0010 = ╱33╱3╱ // 0xac9 @0x10
0x0ab9…0aff at0011 = ╱ef╱$╱ // 0xaca @0x11
0x0ab9…0aff at0012 = ╱dc╱=╱ // 0xacb @0x12
0x0ab9…0aff at0013 = ╱4e╱N╱ // 0xacc @0x13
0x0ab9…0aff at0014 = ╱ef╱$╱ // 0xacd @0x14
0x0ab9…0aff at0015 = ╱f1╱+╱ // 0xace @0x15
0x0ab9…0aff at0016 = ╱4b╱K╱ // 0xacf @0x16
0x0ab9…0aff at0017 = ╱33╱3╱ // 0xad0 @0x17
0x0ab9…0aff at0018 = ╱ef╱$╱ // 0xad1 @0x18
0x0ab9…0aff at0019 = ╱eb╱;╱ // 0xad2 @0x19
0x0ab9…0aff at001a = ╱4b╱K╱ // 0xad3 @0x1a
0x0ab9…0aff at001b = ╱34╱4╱ // 0xad4 @0x1b
0x0ab9…0aff at001c = ╱ef╱$╱ // 0xad5 @0x1c
0x0ab9…0aff at001d = ╱dc╱=╱ // 0xad6 @0x1d
0x0ab9…0aff at001e = ╱4e╱N╱ // 0xad7 @0x1e
0x0ab9…0aff at001f = ╱ef╱$╱ // 0xad8 @0x1f
0x0ab9…0aff at0020 = ╱f1╱+╱ // 0xad9 @0x20
0x0ab9…0aff at0021 = ╱4b╱K╱ // 0xada @0x21
0x0ab9…0aff at0022 = ╱34╱4╱ // 0xadb @0x22
0x0ab9…0aff at0023 = ╱ef╱$╱ // 0xadc @0x23
0x0ab9…0aff at0024 = ╱eb╱;╱ // 0xadd @0x24
0x0ab9…0aff at0025 = ╱4b╱K╱ // 0xade @0x25
0x0ab9…0aff at0026 = ╱35╱5╱ // 0xadf @0x26
0x0ab9…0aff at0027 = ╱ef╱$╱ // 0xae0 @0x27
0x0ab9…0aff at0028 = ╱dc╱=╱ // 0xae1 @0x28
0x0ab9…0aff at0029 = ╱4e╱N╱ // 0xae2 @0x29
0x0ab9…0aff at002a = ╱ef╱$╱ // 0xae3 @0x2a
0x0ab9…0aff at002b = ╱f1╱+╱ // 0xae4 @0x2b
0x0ab9…0aff at002c = ╱4b╱K╱ // 0xae5 @0x2c
0x0ab9…0aff at002d = ╱35╱5╱ // 0xae6 @0x2d
0x0ab9…0aff at002e = ╱ef╱$╱ // 0xae7 @0x2e
0x0ab9…0aff at002f = ╱eb╱;╱ // 0xae8 @0x2f
0x0ab9…0aff at0030 = ╱4b╱K╱ // 0xae9 @0x30
0x0ab9…0aff at0031 = ╱36╱6╱ // 0xaea @0x31
0x0ab9…0aff at0032 = ╱ef╱$╱ // 0xaeb @0x32
0x0ab9…0aff at0033 = ╱dc╱=╱ // 0xaec @0x33
0x0ab9…0aff at0034 = ╱4e╱N╱ // 0xaed @0x34
0x0ab9…0aff at0035 = ╱ef╱$╱ // 0xaee @0x35
0x0ab9…0aff at0036 = ╱f1╱+╱ // 0xaef @0x36
0x0ab9…0aff at0037 = ╱4b╱K╱ // 0xaf0 @0x37
0x0ab9…0aff at0038 = ╱36╱6╱ // 0xaf1 @0x38
0x0ab9…0aff at0039 = ╱ef╱$╱ // 0xaf2 @0x39
0x0ab9…0aff at003a = ╱eb╱;╱ // 0xaf3 @0x3a
0x0ab9…0aff at003b = ╱4b╱K╱ // 0xaf4 @0x3b
0x0ab9…0aff at003c = ╱37╱7╱ // 0xaf5 @0x3c
0x0ab9…0aff at003d = ╱ef╱$╱ // 0xaf6 @0x3d
0x0ab9…0aff at003e = ╱dc╱=╱ // 0xaf7 @0x3e
0x0ab9…0aff at003f = ╱4e╱N╱ // 0xaf8 @0x3f
0x0ab9…0aff at0040 = ╱ef╱$╱ // 0xaf9 @0x40
0x0ab9…0aff at0041 = ╱f1╱+╱ // 0xafa @0x41
0x0ab9…0aff at0042 = ╱4b╱K╱ // 0xafb @0x42
0x0ab9…0aff at0043 = ╱37╱7╱ // 0xafc @0x43
0x0ab9…0aff at0044 = ╱ef╱$╱ // 0xafd @0x44
0x0ab9…0aff at0045 = EOL // 0xafe @0x45
0x0ab9…0aff }
0x0aff…0b29 9880 1040 DIM DTAB1(MDANTAL DIV 4),DTAB(4,G)
0x0aff…0b29 LineComalBin {
0x0aff…0b29 ptr = 0x9880 // 0xaff @0x0
0x0aff…0b29 lno = 0x0410 // 0xb01 @0x2
0x0aff…0b29 at0004 = ╱87╱ DIM ╱ // 0xb03 @0x4
0x0aff…0b29 at0005 = ╱44╱D╱ // 0xb04 @0x5
0x0aff…0b29 at0006 = ╱54╱T╱ // 0xb05 @0x6
0x0aff…0b29 at0007 = ╱41╱A╱ // 0xb06 @0x7
0x0aff…0b29 at0008 = ╱42╱B╱ // 0xb07 @0x8
0x0aff…0b29 at0009 = ╱31╱1╱ // 0xb08 @0x9
0x0aff…0b29 at000a = ╱ed╱(╱ // 0xb09 @0xa
0x0aff…0b29 at000b = ╱4d╱M╱ // 0xb0a @0xb
0x0aff…0b29 at000c = ╱44╱D╱ // 0xb0b @0xc
0x0aff…0b29 at000d = ╱41╱A╱ // 0xb0c @0xd
0x0aff…0b29 at000e = ╱4e╱N╱ // 0xb0d @0xe
0x0aff…0b29 at000f = ╱54╱T╱ // 0xb0e @0xf
0x0aff…0b29 at0010 = ╱41╱A╱ // 0xb0f @0x10
0x0aff…0b29 at0011 = ╱4c╱L╱ // 0xb10 @0x11
0x0aff…0b29 at0012 = ╱e7╱ DIV ╱ // 0xb11 @0x12
0x0aff…0b29 at0013 = ╱34╱4╱ // 0xb12 @0x13
0x0aff…0b29 at0014 = ╱fe00008003╱ // 0xb13 @0x14
0x0aff…0b29 at0019 = ╱ee╱)╱ // 0xb18 @0x19
0x0aff…0b29 at001a = ╱ec╱,╱ // 0xb19 @0x1a
0x0aff…0b29 at001b = ╱44╱D╱ // 0xb1a @0x1b
0x0aff…0b29 at001c = ╱54╱T╱ // 0xb1b @0x1c
0x0aff…0b29 at001d = ╱41╱A╱ // 0xb1c @0x1d
0x0aff…0b29 at001e = ╱42╱B╱ // 0xb1d @0x1e
0x0aff…0b29 at001f = ╱ed╱(╱ // 0xb1e @0x1f
0x0aff…0b29 at0020 = ╱34╱4╱ // 0xb1f @0x20
0x0aff…0b29 at0021 = ╱fe00008003╱ // 0xb20 @0x21
0x0aff…0b29 at0026 = ╱ec╱,╱ // 0xb25 @0x26
0x0aff…0b29 at0027 = ╱47╱G╱ // 0xb26 @0x27
0x0aff…0b29 at0028 = ╱ee╱)╱ // 0xb27 @0x28
0x0aff…0b29 at0029 = EOL // 0xb28 @0x29
0x0aff…0b29 }
0x0b29…0b34 988b 1050 OPEN K2$,R
0x0b29…0b34 LineComalBin {
0x0b29…0b34 ptr = 0x988b // 0xb29 @0x0
0x0b29…0b34 lno = 0x041a // 0xb2b @0x2
0x0b29…0b34 at0004 = ╱a7╱ OPEN ╱ // 0xb2d @0x4
0x0b29…0b34 at0005 = ╱4b╱K╱ // 0xb2e @0x5
0x0b29…0b34 at0006 = ╱32╱2╱ // 0xb2f @0x6
0x0b29…0b34 at0007 = ╱ef╱$╱ // 0xb30 @0x7
0x0b29…0b34 at0008 = ╱ec╱,╱ // 0xb31 @0x8
0x0b29…0b34 at0009 = ╱52╱R╱ // 0xb32 @0x9
0x0b29…0b34 at000a = EOL // 0xb33 @0xa
0x0b29…0b34 }
0x0b34…0b4d 98a4 1060 EXEC FEJL(W,11,K2$)
0x0b34…0b4d LineComalBin {
0x0b34…0b4d ptr = 0x98a4 // 0xb34 @0x0
0x0b34…0b4d lno = 0x0424 // 0xb36 @0x2
0x0b34…0b4d at0004 = ╱9d╱ EXEC ╱ // 0xb38 @0x4
0x0b34…0b4d at0005 = ╱46╱F╱ // 0xb39 @0x5
0x0b34…0b4d at0006 = ╱45╱E╱ // 0xb3a @0x6
0x0b34…0b4d at0007 = ╱4a╱J╱ // 0xb3b @0x7
0x0b34…0b4d at0008 = ╱4c╱L╱ // 0xb3c @0x8
0x0b34…0b4d at0009 = ╱ed╱(╱ // 0xb3d @0x9
0x0b34…0b4d at000a = ╱57╱W╱ // 0xb3e @0xa
0x0b34…0b4d at000b = ╱ec╱,╱ // 0xb3f @0xb
0x0b34…0b4d at000c = ╱31╱1╱ // 0xb40 @0xc
0x0b34…0b4d at000d = ╱31╱1╱ // 0xb41 @0xd
0x0b34…0b4d at000e = ╱fe0000b004╱ // 0xb42 @0xe
0x0b34…0b4d at0013 = ╱ec╱,╱ // 0xb47 @0x13
0x0b34…0b4d at0014 = ╱4b╱K╱ // 0xb48 @0x14
0x0b34…0b4d at0015 = ╱32╱2╱ // 0xb49 @0x15
0x0b34…0b4d at0016 = ╱ef╱$╱ // 0xb4a @0x16
0x0b34…0b4d at0017 = ╱ee╱)╱ // 0xb4b @0x17
0x0b34…0b4d at0018 = EOL // 0xb4c @0x18
0x0b34…0b4d }
0x0b4d…0b58 98af 1070 OPEN K3$,R
0x0b4d…0b58 LineComalBin {
0x0b4d…0b58 ptr = 0x98af // 0xb4d @0x0
0x0b4d…0b58 lno = 0x042e // 0xb4f @0x2
0x0b4d…0b58 at0004 = ╱a7╱ OPEN ╱ // 0xb51 @0x4
0x0b4d…0b58 at0005 = ╱4b╱K╱ // 0xb52 @0x5
0x0b4d…0b58 at0006 = ╱33╱3╱ // 0xb53 @0x6
0x0b4d…0b58 at0007 = ╱ef╱$╱ // 0xb54 @0x7
0x0b4d…0b58 at0008 = ╱ec╱,╱ // 0xb55 @0x8
0x0b4d…0b58 at0009 = ╱52╱R╱ // 0xb56 @0x9
0x0b4d…0b58 at000a = EOL // 0xb57 @0xa
0x0b4d…0b58 }
0x0b58…0b71 98c8 1080 EXEC FEJL(W,12,K3$)
0x0b58…0b71 LineComalBin {
0x0b58…0b71 ptr = 0x98c8 // 0xb58 @0x0
0x0b58…0b71 lno = 0x0438 // 0xb5a @0x2
0x0b58…0b71 at0004 = ╱9d╱ EXEC ╱ // 0xb5c @0x4
0x0b58…0b71 at0005 = ╱46╱F╱ // 0xb5d @0x5
0x0b58…0b71 at0006 = ╱45╱E╱ // 0xb5e @0x6
0x0b58…0b71 at0007 = ╱4a╱J╱ // 0xb5f @0x7
0x0b58…0b71 at0008 = ╱4c╱L╱ // 0xb60 @0x8
0x0b58…0b71 at0009 = ╱ed╱(╱ // 0xb61 @0x9
0x0b58…0b71 at000a = ╱57╱W╱ // 0xb62 @0xa
0x0b58…0b71 at000b = ╱ec╱,╱ // 0xb63 @0xb
0x0b58…0b71 at000c = ╱31╱1╱ // 0xb64 @0xc
0x0b58…0b71 at000d = ╱32╱2╱ // 0xb65 @0xd
0x0b58…0b71 at000e = ╱fe0000c004╱ // 0xb66 @0xe
0x0b58…0b71 at0013 = ╱ec╱,╱ // 0xb6b @0x13
0x0b58…0b71 at0014 = ╱4b╱K╱ // 0xb6c @0x14
0x0b58…0b71 at0015 = ╱33╱3╱ // 0xb6d @0x15
0x0b58…0b71 at0016 = ╱ef╱$╱ // 0xb6e @0x16
0x0b58…0b71 at0017 = ╱ee╱)╱ // 0xb6f @0x17
0x0b58…0b71 at0018 = EOL // 0xb70 @0x18
0x0b58…0b71 }
0x0b71…0b91 98e8 1090 EXEC INDTAB1(DTAB1,MDANTAL,K2$)
0x0b71…0b91 LineComalBin {
0x0b71…0b91 ptr = 0x98e8 // 0xb71 @0x0
0x0b71…0b91 lno = 0x0442 // 0xb73 @0x2
0x0b71…0b91 at0004 = ╱9d╱ EXEC ╱ // 0xb75 @0x4
0x0b71…0b91 at0005 = ╱49╱I╱ // 0xb76 @0x5
0x0b71…0b91 at0006 = ╱4e╱N╱ // 0xb77 @0x6
0x0b71…0b91 at0007 = ╱44╱D╱ // 0xb78 @0x7
0x0b71…0b91 at0008 = ╱54╱T╱ // 0xb79 @0x8
0x0b71…0b91 at0009 = ╱41╱A╱ // 0xb7a @0x9
0x0b71…0b91 at000a = ╱42╱B╱ // 0xb7b @0xa
0x0b71…0b91 at000b = ╱31╱1╱ // 0xb7c @0xb
0x0b71…0b91 at000c = ╱ed╱(╱ // 0xb7d @0xc
0x0b71…0b91 at000d = ╱44╱D╱ // 0xb7e @0xd
0x0b71…0b91 at000e = ╱54╱T╱ // 0xb7f @0xe
0x0b71…0b91 at000f = ╱41╱A╱ // 0xb80 @0xf
0x0b71…0b91 at0010 = ╱42╱B╱ // 0xb81 @0x10
0x0b71…0b91 at0011 = ╱31╱1╱ // 0xb82 @0x11
0x0b71…0b91 at0012 = ╱ec╱,╱ // 0xb83 @0x12
0x0b71…0b91 at0013 = ╱4d╱M╱ // 0xb84 @0x13
0x0b71…0b91 at0014 = ╱44╱D╱ // 0xb85 @0x14
0x0b71…0b91 at0015 = ╱41╱A╱ // 0xb86 @0x15
0x0b71…0b91 at0016 = ╱4e╱N╱ // 0xb87 @0x16
0x0b71…0b91 at0017 = ╱54╱T╱ // 0xb88 @0x17
0x0b71…0b91 at0018 = ╱41╱A╱ // 0xb89 @0x18
0x0b71…0b91 at0019 = ╱4c╱L╱ // 0xb8a @0x19
0x0b71…0b91 at001a = ╱ec╱,╱ // 0xb8b @0x1a
0x0b71…0b91 at001b = ╱4b╱K╱ // 0xb8c @0x1b
0x0b71…0b91 at001c = ╱32╱2╱ // 0xb8d @0x1c
0x0b71…0b91 at001d = ╱ef╱$╱ // 0xb8e @0x1d
0x0b71…0b91 at001e = ╱ee╱)╱ // 0xb8f @0x1e
0x0b71…0b91 at001f = EOL // 0xb90 @0x1f
0x0b71…0b91 }
0x0b91…0b9c 98f3 1100 OPEN K7$,R
0x0b91…0b9c LineComalBin {
0x0b91…0b9c ptr = 0x98f3 // 0xb91 @0x0
0x0b91…0b9c lno = 0x044c // 0xb93 @0x2
0x0b91…0b9c at0004 = ╱a7╱ OPEN ╱ // 0xb95 @0x4
0x0b91…0b9c at0005 = ╱4b╱K╱ // 0xb96 @0x5
0x0b91…0b9c at0006 = ╱37╱7╱ // 0xb97 @0x6
0x0b91…0b9c at0007 = ╱ef╱$╱ // 0xb98 @0x7
0x0b91…0b9c at0008 = ╱ec╱,╱ // 0xb99 @0x8
0x0b91…0b9c at0009 = ╱52╱R╱ // 0xb9a @0x9
0x0b91…0b9c at000a = EOL // 0xb9b @0xa
0x0b91…0b9c }
0x0b9c…0bb5 990c 1110 EXEC FEJL(W,13,K7$)
0x0b9c…0bb5 LineComalBin {
0x0b9c…0bb5 ptr = 0x990c // 0xb9c @0x0
0x0b9c…0bb5 lno = 0x0456 // 0xb9e @0x2
0x0b9c…0bb5 at0004 = ╱9d╱ EXEC ╱ // 0xba0 @0x4
0x0b9c…0bb5 at0005 = ╱46╱F╱ // 0xba1 @0x5
0x0b9c…0bb5 at0006 = ╱45╱E╱ // 0xba2 @0x6
0x0b9c…0bb5 at0007 = ╱4a╱J╱ // 0xba3 @0x7
0x0b9c…0bb5 at0008 = ╱4c╱L╱ // 0xba4 @0x8
0x0b9c…0bb5 at0009 = ╱ed╱(╱ // 0xba5 @0x9
0x0b9c…0bb5 at000a = ╱57╱W╱ // 0xba6 @0xa
0x0b9c…0bb5 at000b = ╱ec╱,╱ // 0xba7 @0xb
0x0b9c…0bb5 at000c = ╱31╱1╱ // 0xba8 @0xc
0x0b9c…0bb5 at000d = ╱33╱3╱ // 0xba9 @0xd
0x0b9c…0bb5 at000e = ╱fe0000d004╱ // 0xbaa @0xe
0x0b9c…0bb5 at0013 = ╱ec╱,╱ // 0xbaf @0x13
0x0b9c…0bb5 at0014 = ╱4b╱K╱ // 0xbb0 @0x14
0x0b9c…0bb5 at0015 = ╱37╱7╱ // 0xbb1 @0x15
0x0b9c…0bb5 at0016 = ╱ef╱$╱ // 0xbb2 @0x16
0x0b9c…0bb5 at0017 = ╱ee╱)╱ // 0xbb3 @0x17
0x0b9c…0bb5 at0018 = EOL // 0xbb4 @0x18
0x0b9c…0bb5 }
0x0bb5…0c0f 9966 1120 GET K7$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x0bb5…0c0f LineComalBin {
0x0bb5…0c0f ptr = 0x9966 // 0xbb5 @0x0
0x0bb5…0c0f lno = 0x0460 // 0xbb7 @0x2
0x0bb5…0c0f at0004 = ╱a9╱ GET ╱ // 0xbb9 @0x4
0x0bb5…0c0f at0005 = ╱4b╱K╱ // 0xbba @0x5
0x0bb5…0c0f at0006 = ╱37╱7╱ // 0xbbb @0x6
0x0bb5…0c0f at0007 = ╱ef╱$╱ // 0xbbc @0x7
0x0bb5…0c0f at0008 = ╱ec╱,╱ // 0xbbd @0x8
0x0bb5…0c0f at0009 = ╱47╱G╱ // 0xbbe @0x9
0x0bb5…0c0f at000a = ╱f0╱:╱ // 0xbbf @0xa
0x0bb5…0c0f at000b = ╱54╱T╱ // 0xbc0 @0xb
0x0bb5…0c0f at000c = ╱31╱1╱ // 0xbc1 @0xc
0x0bb5…0c0f at000d = ╱ed╱(╱ // 0xbc2 @0xd
0x0bb5…0c0f at000e = ╱45╱E╱ // 0xbc3 @0xe
0x0bb5…0c0f at000f = ╱ee╱)╱ // 0xbc4 @0xf
0x0bb5…0c0f at0010 = ╱ec╱,╱ // 0xbc5 @0x10
0x0bb5…0c0f at0011 = ╱54╱T╱ // 0xbc6 @0x11
0x0bb5…0c0f at0012 = ╱31╱1╱ // 0xbc7 @0x12
0x0bb5…0c0f at0013 = ╱ed╱(╱ // 0xbc8 @0x13
0x0bb5…0c0f at0014 = ╱47╱G╱ // 0xbc9 @0x14
0x0bb5…0c0f at0015 = ╱ee╱)╱ // 0xbca @0x15
0x0bb5…0c0f at0016 = ╱ec╱,╱ // 0xbcb @0x16
0x0bb5…0c0f at0017 = ╱54╱T╱ // 0xbcc @0x17
0x0bb5…0c0f at0018 = ╱31╱1╱ // 0xbcd @0x18
0x0bb5…0c0f at0019 = ╱ed╱(╱ // 0xbce @0x19
0x0bb5…0c0f at001a = ╱56╱V╱ // 0xbcf @0x1a
0x0bb5…0c0f at001b = ╱ee╱)╱ // 0xbd0 @0x1b
0x0bb5…0c0f at001c = ╱ec╱,╱ // 0xbd1 @0x1c
0x0bb5…0c0f at001d = ╱54╱T╱ // 0xbd2 @0x1d
0x0bb5…0c0f at001e = ╱31╱1╱ // 0xbd3 @0x1e
0x0bb5…0c0f at001f = ╱ed╱(╱ // 0xbd4 @0x1f
0x0bb5…0c0f at0020 = ╱34╱4╱ // 0xbd5 @0x20
0x0bb5…0c0f at0021 = ╱fe00008003╱ // 0xbd6 @0x21
0x0bb5…0c0f at0026 = ╱ee╱)╱ // 0xbdb @0x26
0x0bb5…0c0f at0027 = ╱ec╱,╱ // 0xbdc @0x27
0x0bb5…0c0f at0028 = ╱54╱T╱ // 0xbdd @0x28
0x0bb5…0c0f at0029 = ╱31╱1╱ // 0xbde @0x29
0x0bb5…0c0f at002a = ╱ed╱(╱ // 0xbdf @0x2a
0x0bb5…0c0f at002b = ╱35╱5╱ // 0xbe0 @0x2b
0x0bb5…0c0f at002c = ╱fe0000a003╱ // 0xbe1 @0x2c
0x0bb5…0c0f at0031 = ╱ee╱)╱ // 0xbe6 @0x31
0x0bb5…0c0f at0032 = ╱ec╱,╱ // 0xbe7 @0x32
0x0bb5…0c0f at0033 = ╱54╱T╱ // 0xbe8 @0x33
0x0bb5…0c0f at0034 = ╱31╱1╱ // 0xbe9 @0x34
0x0bb5…0c0f at0035 = ╱ed╱(╱ // 0xbea @0x35
0x0bb5…0c0f at0036 = ╱36╱6╱ // 0xbeb @0x36
0x0bb5…0c0f at0037 = ╱fe0000c003╱ // 0xbec @0x37
0x0bb5…0c0f at003c = ╱ee╱)╱ // 0xbf1 @0x3c
0x0bb5…0c0f at003d = ╱ec╱,╱ // 0xbf2 @0x3d
0x0bb5…0c0f at003e = ╱54╱T╱ // 0xbf3 @0x3e
0x0bb5…0c0f at003f = ╱31╱1╱ // 0xbf4 @0x3f
0x0bb5…0c0f at0040 = ╱ed╱(╱ // 0xbf5 @0x40
0x0bb5…0c0f at0041 = ╱37╱7╱ // 0xbf6 @0x41
0x0bb5…0c0f at0042 = ╱fe0000e003╱ // 0xbf7 @0x42
0x0bb5…0c0f at0047 = ╱ee╱)╱ // 0xbfc @0x47
0x0bb5…0c0f at0048 = ╱ec╱,╱ // 0xbfd @0x48
0x0bb5…0c0f at0049 = ╱54╱T╱ // 0xbfe @0x49
0x0bb5…0c0f at004a = ╱31╱1╱ // 0xbff @0x4a
0x0bb5…0c0f at004b = ╱ed╱(╱ // 0xc00 @0x4b
0x0bb5…0c0f at004c = ╱38╱8╱ // 0xc01 @0x4c
0x0bb5…0c0f at004d = ╱fe00008004╱ // 0xc02 @0x4d
0x0bb5…0c0f at0052 = ╱ee╱)╱ // 0xc07 @0x52
0x0bb5…0c0f at0053 = ╱ec╱,╱ // 0xc08 @0x53
0x0bb5…0c0f at0054 = ╱54╱T╱ // 0xc09 @0x54
0x0bb5…0c0f at0055 = ╱31╱1╱ // 0xc0a @0x55
0x0bb5…0c0f at0056 = ╱ed╱(╱ // 0xc0b @0x56
0x0bb5…0c0f at0057 = ╱57╱W╱ // 0xc0c @0x57
0x0bb5…0c0f at0058 = ╱ee╱)╱ // 0xc0d @0x58
0x0bb5…0c0f at0059 = EOL // 0xc0e @0x59
0x0bb5…0c0f }
0x0c0f…0c28 997f 1130 EXEC FEJL(W,14,K7$)
0x0c0f…0c28 LineComalBin {
0x0c0f…0c28 ptr = 0x997f // 0xc0f @0x0
0x0c0f…0c28 lno = 0x046a // 0xc11 @0x2
0x0c0f…0c28 at0004 = ╱9d╱ EXEC ╱ // 0xc13 @0x4
0x0c0f…0c28 at0005 = ╱46╱F╱ // 0xc14 @0x5
0x0c0f…0c28 at0006 = ╱45╱E╱ // 0xc15 @0x6
0x0c0f…0c28 at0007 = ╱4a╱J╱ // 0xc16 @0x7
0x0c0f…0c28 at0008 = ╱4c╱L╱ // 0xc17 @0x8
0x0c0f…0c28 at0009 = ╱ed╱(╱ // 0xc18 @0x9
0x0c0f…0c28 at000a = ╱57╱W╱ // 0xc19 @0xa
0x0c0f…0c28 at000b = ╱ec╱,╱ // 0xc1a @0xb
0x0c0f…0c28 at000c = ╱31╱1╱ // 0xc1b @0xc
0x0c0f…0c28 at000d = ╱34╱4╱ // 0xc1c @0xd
0x0c0f…0c28 at000e = ╱fe0000e004╱ // 0xc1d @0xe
0x0c0f…0c28 at0013 = ╱ec╱,╱ // 0xc22 @0x13
0x0c0f…0c28 at0014 = ╱4b╱K╱ // 0xc23 @0x14
0x0c0f…0c28 at0015 = ╱37╱7╱ // 0xc24 @0x15
0x0c0f…0c28 at0016 = ╱ef╱$╱ // 0xc25 @0x16
0x0c0f…0c28 at0017 = ╱ee╱)╱ // 0xc26 @0x17
0x0c0f…0c28 at0018 = EOL // 0xc27 @0x18
0x0c0f…0c28 }
0x0c28…0c88 99df 1140 GET K7$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x0c28…0c88 LineComalBin {
0x0c28…0c88 ptr = 0x99df // 0xc28 @0x0
0x0c28…0c88 lno = 0x0474 // 0xc2a @0x2
0x0c28…0c88 at0004 = ╱a9╱ GET ╱ // 0xc2c @0x4
0x0c28…0c88 at0005 = ╱4b╱K╱ // 0xc2d @0x5
0x0c28…0c88 at0006 = ╱37╱7╱ // 0xc2e @0x6
0x0c28…0c88 at0007 = ╱ef╱$╱ // 0xc2f @0x7
0x0c28…0c88 at0008 = ╱ec╱,╱ // 0xc30 @0x8
0x0c28…0c88 at0009 = ╱31╱1╱ // 0xc31 @0x9
0x0c28…0c88 at000a = ╱32╱2╱ // 0xc32 @0xa
0x0c28…0c88 at000b = ╱fe0000c004╱ // 0xc33 @0xb
0x0c28…0c88 at0010 = ╱f0╱:╱ // 0xc38 @0x10
0x0c28…0c88 at0011 = ╱54╱T╱ // 0xc39 @0x11
0x0c28…0c88 at0012 = ╱32╱2╱ // 0xc3a @0x12
0x0c28…0c88 at0013 = ╱ed╱(╱ // 0xc3b @0x13
0x0c28…0c88 at0014 = ╱45╱E╱ // 0xc3c @0x14
0x0c28…0c88 at0015 = ╱ee╱)╱ // 0xc3d @0x15
0x0c28…0c88 at0016 = ╱ec╱,╱ // 0xc3e @0x16
0x0c28…0c88 at0017 = ╱54╱T╱ // 0xc3f @0x17
0x0c28…0c88 at0018 = ╱32╱2╱ // 0xc40 @0x18
0x0c28…0c88 at0019 = ╱ed╱(╱ // 0xc41 @0x19
0x0c28…0c88 at001a = ╱47╱G╱ // 0xc42 @0x1a
0x0c28…0c88 at001b = ╱ee╱)╱ // 0xc43 @0x1b
0x0c28…0c88 at001c = ╱ec╱,╱ // 0xc44 @0x1c
0x0c28…0c88 at001d = ╱54╱T╱ // 0xc45 @0x1d
0x0c28…0c88 at001e = ╱32╱2╱ // 0xc46 @0x1e
0x0c28…0c88 at001f = ╱ed╱(╱ // 0xc47 @0x1f
0x0c28…0c88 at0020 = ╱56╱V╱ // 0xc48 @0x20
0x0c28…0c88 at0021 = ╱ee╱)╱ // 0xc49 @0x21
0x0c28…0c88 at0022 = ╱ec╱,╱ // 0xc4a @0x22
0x0c28…0c88 at0023 = ╱54╱T╱ // 0xc4b @0x23
0x0c28…0c88 at0024 = ╱32╱2╱ // 0xc4c @0x24
0x0c28…0c88 at0025 = ╱ed╱(╱ // 0xc4d @0x25
0x0c28…0c88 at0026 = ╱34╱4╱ // 0xc4e @0x26
0x0c28…0c88 at0027 = ╱fe00008003╱ // 0xc4f @0x27
0x0c28…0c88 at002c = ╱ee╱)╱ // 0xc54 @0x2c
0x0c28…0c88 at002d = ╱ec╱,╱ // 0xc55 @0x2d
0x0c28…0c88 at002e = ╱54╱T╱ // 0xc56 @0x2e
0x0c28…0c88 at002f = ╱32╱2╱ // 0xc57 @0x2f
0x0c28…0c88 at0030 = ╱ed╱(╱ // 0xc58 @0x30
0x0c28…0c88 at0031 = ╱35╱5╱ // 0xc59 @0x31
0x0c28…0c88 at0032 = ╱fe0000a003╱ // 0xc5a @0x32
0x0c28…0c88 at0037 = ╱ee╱)╱ // 0xc5f @0x37
0x0c28…0c88 at0038 = ╱ec╱,╱ // 0xc60 @0x38
0x0c28…0c88 at0039 = ╱54╱T╱ // 0xc61 @0x39
0x0c28…0c88 at003a = ╱32╱2╱ // 0xc62 @0x3a
0x0c28…0c88 at003b = ╱ed╱(╱ // 0xc63 @0x3b
0x0c28…0c88 at003c = ╱36╱6╱ // 0xc64 @0x3c
0x0c28…0c88 at003d = ╱fe0000c003╱ // 0xc65 @0x3d
0x0c28…0c88 at0042 = ╱ee╱)╱ // 0xc6a @0x42
0x0c28…0c88 at0043 = ╱ec╱,╱ // 0xc6b @0x43
0x0c28…0c88 at0044 = ╱54╱T╱ // 0xc6c @0x44
0x0c28…0c88 at0045 = ╱32╱2╱ // 0xc6d @0x45
0x0c28…0c88 at0046 = ╱ed╱(╱ // 0xc6e @0x46
0x0c28…0c88 at0047 = ╱37╱7╱ // 0xc6f @0x47
0x0c28…0c88 at0048 = ╱fe0000e003╱ // 0xc70 @0x48
0x0c28…0c88 at004d = ╱ee╱)╱ // 0xc75 @0x4d
0x0c28…0c88 at004e = ╱ec╱,╱ // 0xc76 @0x4e
0x0c28…0c88 at004f = ╱54╱T╱ // 0xc77 @0x4f
0x0c28…0c88 at0050 = ╱32╱2╱ // 0xc78 @0x50
0x0c28…0c88 at0051 = ╱ed╱(╱ // 0xc79 @0x51
0x0c28…0c88 at0052 = ╱38╱8╱ // 0xc7a @0x52
0x0c28…0c88 at0053 = ╱fe00008004╱ // 0xc7b @0x53
0x0c28…0c88 at0058 = ╱ee╱)╱ // 0xc80 @0x58
0x0c28…0c88 at0059 = ╱ec╱,╱ // 0xc81 @0x59
0x0c28…0c88 at005a = ╱54╱T╱ // 0xc82 @0x5a
0x0c28…0c88 at005b = ╱32╱2╱ // 0xc83 @0x5b
0x0c28…0c88 at005c = ╱ed╱(╱ // 0xc84 @0x5c
0x0c28…0c88 at005d = ╱57╱W╱ // 0xc85 @0x5d
0x0c28…0c88 at005e = ╱ee╱)╱ // 0xc86 @0x5e
0x0c28…0c88 at005f = EOL // 0xc87 @0x5f
0x0c28…0c88 }
0x0c88…0ca1 99f8 1150 EXEC FEJL(W,15,K7$)
0x0c88…0ca1 LineComalBin {
0x0c88…0ca1 ptr = 0x99f8 // 0xc88 @0x0
0x0c88…0ca1 lno = 0x047e // 0xc8a @0x2
0x0c88…0ca1 at0004 = ╱9d╱ EXEC ╱ // 0xc8c @0x4
0x0c88…0ca1 at0005 = ╱46╱F╱ // 0xc8d @0x5
0x0c88…0ca1 at0006 = ╱45╱E╱ // 0xc8e @0x6
0x0c88…0ca1 at0007 = ╱4a╱J╱ // 0xc8f @0x7
0x0c88…0ca1 at0008 = ╱4c╱L╱ // 0xc90 @0x8
0x0c88…0ca1 at0009 = ╱ed╱(╱ // 0xc91 @0x9
0x0c88…0ca1 at000a = ╱57╱W╱ // 0xc92 @0xa
0x0c88…0ca1 at000b = ╱ec╱,╱ // 0xc93 @0xb
0x0c88…0ca1 at000c = ╱31╱1╱ // 0xc94 @0xc
0x0c88…0ca1 at000d = ╱35╱5╱ // 0xc95 @0xd
0x0c88…0ca1 at000e = ╱fe0000f004╱ // 0xc96 @0xe
0x0c88…0ca1 at0013 = ╱ec╱,╱ // 0xc9b @0x13
0x0c88…0ca1 at0014 = ╱4b╱K╱ // 0xc9c @0x14
0x0c88…0ca1 at0015 = ╱37╱7╱ // 0xc9d @0x15
0x0c88…0ca1 at0016 = ╱ef╱$╱ // 0xc9e @0x16
0x0c88…0ca1 at0017 = ╱ee╱)╱ // 0xc9f @0x17
0x0c88…0ca1 at0018 = EOL // 0xca0 @0x18
0x0c88…0ca1 }
0x0ca1…0cb6 9a0d 1160 GET K7$,20:DV$
0x0ca1…0cb6 LineComalBin {
0x0ca1…0cb6 ptr = 0x9a0d // 0xca1 @0x0
0x0ca1…0cb6 lno = 0x0488 // 0xca3 @0x2
0x0ca1…0cb6 at0004 = ╱a9╱ GET ╱ // 0xca5 @0x4
0x0ca1…0cb6 at0005 = ╱4b╱K╱ // 0xca6 @0x5
0x0ca1…0cb6 at0006 = ╱37╱7╱ // 0xca7 @0x6
0x0ca1…0cb6 at0007 = ╱ef╱$╱ // 0xca8 @0x7
0x0ca1…0cb6 at0008 = ╱ec╱,╱ // 0xca9 @0x8
0x0ca1…0cb6 at0009 = ╱32╱2╱ // 0xcaa @0x9
0x0ca1…0cb6 at000a = ╱30╱0╱ // 0xcab @0xa
0x0ca1…0cb6 at000b = ╱fe0000a005╱ // 0xcac @0xb
0x0ca1…0cb6 at0010 = ╱f0╱:╱ // 0xcb1 @0x10
0x0ca1…0cb6 at0011 = ╱44╱D╱ // 0xcb2 @0x11
0x0ca1…0cb6 at0012 = ╱56╱V╱ // 0xcb3 @0x12
0x0ca1…0cb6 at0013 = ╱ef╱$╱ // 0xcb4 @0x13
0x0ca1…0cb6 at0014 = EOL // 0xcb5 @0x14
0x0ca1…0cb6 }
0x0cb6…0ccf 9a26 1170 EXEC FEJL(W,20,K7$)
0x0cb6…0ccf LineComalBin {
0x0cb6…0ccf ptr = 0x9a26 // 0xcb6 @0x0
0x0cb6…0ccf lno = 0x0492 // 0xcb8 @0x2
0x0cb6…0ccf at0004 = ╱9d╱ EXEC ╱ // 0xcba @0x4
0x0cb6…0ccf at0005 = ╱46╱F╱ // 0xcbb @0x5
0x0cb6…0ccf at0006 = ╱45╱E╱ // 0xcbc @0x6
0x0cb6…0ccf at0007 = ╱4a╱J╱ // 0xcbd @0x7
0x0cb6…0ccf at0008 = ╱4c╱L╱ // 0xcbe @0x8
0x0cb6…0ccf at0009 = ╱ed╱(╱ // 0xcbf @0x9
0x0cb6…0ccf at000a = ╱57╱W╱ // 0xcc0 @0xa
0x0cb6…0ccf at000b = ╱ec╱,╱ // 0xcc1 @0xb
0x0cb6…0ccf at000c = ╱32╱2╱ // 0xcc2 @0xc
0x0cb6…0ccf at000d = ╱30╱0╱ // 0xcc3 @0xd
0x0cb6…0ccf at000e = ╱fe0000a005╱ // 0xcc4 @0xe
0x0cb6…0ccf at0013 = ╱ec╱,╱ // 0xcc9 @0x13
0x0cb6…0ccf at0014 = ╱4b╱K╱ // 0xcca @0x14
0x0cb6…0ccf at0015 = ╱37╱7╱ // 0xccb @0x15
0x0cb6…0ccf at0016 = ╱ef╱$╱ // 0xccc @0x16
0x0cb6…0ccf at0017 = ╱ee╱)╱ // 0xccd @0x17
0x0cb6…0ccf at0018 = EOL // 0xcce @0x18
0x0cb6…0ccf }
0x0ccf…0cd8 9a2f 1180 CLOSE K7$
0x0ccf…0cd8 LineComalBin {
0x0ccf…0cd8 ptr = 0x9a2f // 0xccf @0x0
0x0ccf…0cd8 lno = 0x049c // 0xcd1 @0x2
0x0ccf…0cd8 at0004 = ╱a8╱ CLOSE ╱ // 0xcd3 @0x4
0x0ccf…0cd8 at0005 = ╱4b╱K╱ // 0xcd4 @0x5
0x0ccf…0cd8 at0006 = ╱37╱7╱ // 0xcd5 @0x6
0x0ccf…0cd8 at0007 = ╱ef╱$╱ // 0xcd6 @0x7
0x0ccf…0cd8 at0008 = EOL // 0xcd7 @0x8
0x0ccf…0cd8 }
0x0cd8…0cf1 9a48 1190 EXEC FEJL(W,16,K7$)
0x0cd8…0cf1 LineComalBin {
0x0cd8…0cf1 ptr = 0x9a48 // 0xcd8 @0x0
0x0cd8…0cf1 lno = 0x04a6 // 0xcda @0x2
0x0cd8…0cf1 at0004 = ╱9d╱ EXEC ╱ // 0xcdc @0x4
0x0cd8…0cf1 at0005 = ╱46╱F╱ // 0xcdd @0x5
0x0cd8…0cf1 at0006 = ╱45╱E╱ // 0xcde @0x6
0x0cd8…0cf1 at0007 = ╱4a╱J╱ // 0xcdf @0x7
0x0cd8…0cf1 at0008 = ╱4c╱L╱ // 0xce0 @0x8
0x0cd8…0cf1 at0009 = ╱ed╱(╱ // 0xce1 @0x9
0x0cd8…0cf1 at000a = ╱57╱W╱ // 0xce2 @0xa
0x0cd8…0cf1 at000b = ╱ec╱,╱ // 0xce3 @0xb
0x0cd8…0cf1 at000c = ╱31╱1╱ // 0xce4 @0xc
0x0cd8…0cf1 at000d = ╱36╱6╱ // 0xce5 @0xd
0x0cd8…0cf1 at000e = ╱fe00008005╱ // 0xce6 @0xe
0x0cd8…0cf1 at0013 = ╱ec╱,╱ // 0xceb @0x13
0x0cd8…0cf1 at0014 = ╱4b╱K╱ // 0xcec @0x14
0x0cd8…0cf1 at0015 = ╱37╱7╱ // 0xced @0x15
0x0cd8…0cf1 at0016 = ╱ef╱$╱ // 0xcee @0x16
0x0cd8…0cf1 at0017 = ╱ee╱)╱ // 0xcef @0x17
0x0cd8…0cf1 at0018 = EOL // 0xcf0 @0x18
0x0cd8…0cf1 }
0x0cf1…0d49 9aa0 1200 JOURSIDE=T1(V);DATO=T1(7);FAKPOSTNR=T2(V);AVKONTI=T2(7);FJPOST=T2(8)
0x0cf1…0d49 LineComalBin {
0x0cf1…0d49 ptr = 0x9aa0 // 0xcf1 @0x0
0x0cf1…0d49 lno = 0x04b0 // 0xcf3 @0x2
0x0cf1…0d49 at0004 = ╱4a╱J╱ // 0xcf5 @0x4
0x0cf1…0d49 at0005 = ╱4f╱O╱ // 0xcf6 @0x5
0x0cf1…0d49 at0006 = ╱55╱U╱ // 0xcf7 @0x6
0x0cf1…0d49 at0007 = ╱52╱R╱ // 0xcf8 @0x7
0x0cf1…0d49 at0008 = ╱53╱S╱ // 0xcf9 @0x8
0x0cf1…0d49 at0009 = ╱49╱I╱ // 0xcfa @0x9
0x0cf1…0d49 at000a = ╱44╱D╱ // 0xcfb @0xa
0x0cf1…0d49 at000b = ╱45╱E╱ // 0xcfc @0xb
0x0cf1…0d49 at000c = ╱dc╱=╱ // 0xcfd @0xc
0x0cf1…0d49 at000d = ╱54╱T╱ // 0xcfe @0xd
0x0cf1…0d49 at000e = ╱31╱1╱ // 0xcff @0xe
0x0cf1…0d49 at000f = ╱ed╱(╱ // 0xd00 @0xf
0x0cf1…0d49 at0010 = ╱56╱V╱ // 0xd01 @0x10
0x0cf1…0d49 at0011 = ╱ee╱)╱ // 0xd02 @0x11
0x0cf1…0d49 at0012 = ╱eb╱;╱ // 0xd03 @0x12
0x0cf1…0d49 at0013 = ╱44╱D╱ // 0xd04 @0x13
0x0cf1…0d49 at0014 = ╱41╱A╱ // 0xd05 @0x14
0x0cf1…0d49 at0015 = ╱54╱T╱ // 0xd06 @0x15
0x0cf1…0d49 at0016 = ╱4f╱O╱ // 0xd07 @0x16
0x0cf1…0d49 at0017 = ╱dc╱=╱ // 0xd08 @0x17
0x0cf1…0d49 at0018 = ╱54╱T╱ // 0xd09 @0x18
0x0cf1…0d49 at0019 = ╱31╱1╱ // 0xd0a @0x19
0x0cf1…0d49 at001a = ╱ed╱(╱ // 0xd0b @0x1a
0x0cf1…0d49 at001b = ╱37╱7╱ // 0xd0c @0x1b
0x0cf1…0d49 at001c = ╱fe0000e003╱ // 0xd0d @0x1c
0x0cf1…0d49 at0021 = ╱ee╱)╱ // 0xd12 @0x21
0x0cf1…0d49 at0022 = ╱eb╱;╱ // 0xd13 @0x22
0x0cf1…0d49 at0023 = ╱46╱F╱ // 0xd14 @0x23
0x0cf1…0d49 at0024 = ╱41╱A╱ // 0xd15 @0x24
0x0cf1…0d49 at0025 = ╱4b╱K╱ // 0xd16 @0x25
0x0cf1…0d49 at0026 = ╱50╱P╱ // 0xd17 @0x26
0x0cf1…0d49 at0027 = ╱4f╱O╱ // 0xd18 @0x27
0x0cf1…0d49 at0028 = ╱53╱S╱ // 0xd19 @0x28
0x0cf1…0d49 at0029 = ╱54╱T╱ // 0xd1a @0x29
0x0cf1…0d49 at002a = ╱4e╱N╱ // 0xd1b @0x2a
0x0cf1…0d49 at002b = ╱52╱R╱ // 0xd1c @0x2b
0x0cf1…0d49 at002c = ╱dc╱=╱ // 0xd1d @0x2c
0x0cf1…0d49 at002d = ╱54╱T╱ // 0xd1e @0x2d
0x0cf1…0d49 at002e = ╱32╱2╱ // 0xd1f @0x2e
0x0cf1…0d49 at002f = ╱ed╱(╱ // 0xd20 @0x2f
0x0cf1…0d49 at0030 = ╱56╱V╱ // 0xd21 @0x30
0x0cf1…0d49 at0031 = ╱ee╱)╱ // 0xd22 @0x31
0x0cf1…0d49 at0032 = ╱eb╱;╱ // 0xd23 @0x32
0x0cf1…0d49 at0033 = ╱41╱A╱ // 0xd24 @0x33
0x0cf1…0d49 at0034 = ╱56╱V╱ // 0xd25 @0x34
0x0cf1…0d49 at0035 = ╱4b╱K╱ // 0xd26 @0x35
0x0cf1…0d49 at0036 = ╱4f╱O╱ // 0xd27 @0x36
0x0cf1…0d49 at0037 = ╱4e╱N╱ // 0xd28 @0x37
0x0cf1…0d49 at0038 = ╱54╱T╱ // 0xd29 @0x38
0x0cf1…0d49 at0039 = ╱49╱I╱ // 0xd2a @0x39
0x0cf1…0d49 at003a = ╱dc╱=╱ // 0xd2b @0x3a
0x0cf1…0d49 at003b = ╱54╱T╱ // 0xd2c @0x3b
0x0cf1…0d49 at003c = ╱32╱2╱ // 0xd2d @0x3c
0x0cf1…0d49 at003d = ╱ed╱(╱ // 0xd2e @0x3d
0x0cf1…0d49 at003e = ╱37╱7╱ // 0xd2f @0x3e
0x0cf1…0d49 at003f = ╱fe0000e003╱ // 0xd30 @0x3f
0x0cf1…0d49 at0044 = ╱ee╱)╱ // 0xd35 @0x44
0x0cf1…0d49 at0045 = ╱eb╱;╱ // 0xd36 @0x45
0x0cf1…0d49 at0046 = ╱46╱F╱ // 0xd37 @0x46
0x0cf1…0d49 at0047 = ╱4a╱J╱ // 0xd38 @0x47
0x0cf1…0d49 at0048 = ╱50╱P╱ // 0xd39 @0x48
0x0cf1…0d49 at0049 = ╱4f╱O╱ // 0xd3a @0x49
0x0cf1…0d49 at004a = ╱53╱S╱ // 0xd3b @0x4a
0x0cf1…0d49 at004b = ╱54╱T╱ // 0xd3c @0x4b
0x0cf1…0d49 at004c = ╱dc╱=╱ // 0xd3d @0x4c
0x0cf1…0d49 at004d = ╱54╱T╱ // 0xd3e @0x4d
0x0cf1…0d49 at004e = ╱32╱2╱ // 0xd3f @0x4e
0x0cf1…0d49 at004f = ╱ed╱(╱ // 0xd40 @0x4f
0x0cf1…0d49 at0050 = ╱38╱8╱ // 0xd41 @0x50
0x0cf1…0d49 at0051 = ╱fe00008004╱ // 0xd42 @0x51
0x0cf1…0d49 at0056 = ╱ee╱)╱ // 0xd47 @0x56
0x0cf1…0d49 at0057 = EOL // 0xd48 @0x57
0x0cf1…0d49 }
0x0d49…0d8e 9ae5 1210 DIM VJOURARR(AVKONTI),VBJOUARR$(AVKONTI,12),VUJOURARR(AVKONTI)
0x0d49…0d8e LineComalBin {
0x0d49…0d8e ptr = 0x9ae5 // 0xd49 @0x0
0x0d49…0d8e lno = 0x04ba // 0xd4b @0x2
0x0d49…0d8e at0004 = ╱87╱ DIM ╱ // 0xd4d @0x4
0x0d49…0d8e at0005 = ╱56╱V╱ // 0xd4e @0x5
0x0d49…0d8e at0006 = ╱4a╱J╱ // 0xd4f @0x6
0x0d49…0d8e at0007 = ╱4f╱O╱ // 0xd50 @0x7
0x0d49…0d8e at0008 = ╱55╱U╱ // 0xd51 @0x8
0x0d49…0d8e at0009 = ╱52╱R╱ // 0xd52 @0x9
0x0d49…0d8e at000a = ╱41╱A╱ // 0xd53 @0xa
0x0d49…0d8e at000b = ╱52╱R╱ // 0xd54 @0xb
0x0d49…0d8e at000c = ╱52╱R╱ // 0xd55 @0xc
0x0d49…0d8e at000d = ╱ed╱(╱ // 0xd56 @0xd
0x0d49…0d8e at000e = ╱41╱A╱ // 0xd57 @0xe
0x0d49…0d8e at000f = ╱56╱V╱ // 0xd58 @0xf
0x0d49…0d8e at0010 = ╱4b╱K╱ // 0xd59 @0x10
0x0d49…0d8e at0011 = ╱4f╱O╱ // 0xd5a @0x11
0x0d49…0d8e at0012 = ╱4e╱N╱ // 0xd5b @0x12
0x0d49…0d8e at0013 = ╱54╱T╱ // 0xd5c @0x13
0x0d49…0d8e at0014 = ╱49╱I╱ // 0xd5d @0x14
0x0d49…0d8e at0015 = ╱ee╱)╱ // 0xd5e @0x15
0x0d49…0d8e at0016 = ╱ec╱,╱ // 0xd5f @0x16
0x0d49…0d8e at0017 = ╱56╱V╱ // 0xd60 @0x17
0x0d49…0d8e at0018 = ╱42╱B╱ // 0xd61 @0x18
0x0d49…0d8e at0019 = ╱4a╱J╱ // 0xd62 @0x19
0x0d49…0d8e at001a = ╱4f╱O╱ // 0xd63 @0x1a
0x0d49…0d8e at001b = ╱55╱U╱ // 0xd64 @0x1b
0x0d49…0d8e at001c = ╱41╱A╱ // 0xd65 @0x1c
0x0d49…0d8e at001d = ╱52╱R╱ // 0xd66 @0x1d
0x0d49…0d8e at001e = ╱52╱R╱ // 0xd67 @0x1e
0x0d49…0d8e at001f = ╱ef╱$╱ // 0xd68 @0x1f
0x0d49…0d8e at0020 = ╱ed╱(╱ // 0xd69 @0x20
0x0d49…0d8e at0021 = ╱41╱A╱ // 0xd6a @0x21
0x0d49…0d8e at0022 = ╱56╱V╱ // 0xd6b @0x22
0x0d49…0d8e at0023 = ╱4b╱K╱ // 0xd6c @0x23
0x0d49…0d8e at0024 = ╱4f╱O╱ // 0xd6d @0x24
0x0d49…0d8e at0025 = ╱4e╱N╱ // 0xd6e @0x25
0x0d49…0d8e at0026 = ╱54╱T╱ // 0xd6f @0x26
0x0d49…0d8e at0027 = ╱49╱I╱ // 0xd70 @0x27
0x0d49…0d8e at0028 = ╱ec╱,╱ // 0xd71 @0x28
0x0d49…0d8e at0029 = ╱31╱1╱ // 0xd72 @0x29
0x0d49…0d8e at002a = ╱32╱2╱ // 0xd73 @0x2a
0x0d49…0d8e at002b = ╱fe0000c004╱ // 0xd74 @0x2b
0x0d49…0d8e at0030 = ╱ee╱)╱ // 0xd79 @0x30
0x0d49…0d8e at0031 = ╱ec╱,╱ // 0xd7a @0x31
0x0d49…0d8e at0032 = ╱56╱V╱ // 0xd7b @0x32
0x0d49…0d8e at0033 = ╱55╱U╱ // 0xd7c @0x33
0x0d49…0d8e at0034 = ╱4a╱J╱ // 0xd7d @0x34
0x0d49…0d8e at0035 = ╱4f╱O╱ // 0xd7e @0x35
0x0d49…0d8e at0036 = ╱55╱U╱ // 0xd7f @0x36
0x0d49…0d8e at0037 = ╱52╱R╱ // 0xd80 @0x37
0x0d49…0d8e at0038 = ╱41╱A╱ // 0xd81 @0x38
0x0d49…0d8e at0039 = ╱52╱R╱ // 0xd82 @0x39
0x0d49…0d8e at003a = ╱52╱R╱ // 0xd83 @0x3a
0x0d49…0d8e at003b = ╱ed╱(╱ // 0xd84 @0x3b
0x0d49…0d8e at003c = ╱41╱A╱ // 0xd85 @0x3c
0x0d49…0d8e at003d = ╱56╱V╱ // 0xd86 @0x3d
0x0d49…0d8e at003e = ╱4b╱K╱ // 0xd87 @0x3e
0x0d49…0d8e at003f = ╱4f╱O╱ // 0xd88 @0x3f
0x0d49…0d8e at0040 = ╱4e╱N╱ // 0xd89 @0x40
0x0d49…0d8e at0041 = ╱54╱T╱ // 0xd8a @0x41
0x0d49…0d8e at0042 = ╱49╱I╱ // 0xd8b @0x42
0x0d49…0d8e at0043 = ╱ee╱)╱ // 0xd8c @0x43
0x0d49…0d8e at0044 = EOL // 0xd8d @0x44
0x0d49…0d8e }
0x0d8e…0d94 9aeb 1220 CLEAR
0x0d8e…0d94 LineComalBin {
0x0d8e…0d94 ptr = 0x9aeb // 0xd8e @0x0
0x0d8e…0d94 lno = 0x04c4 // 0xd90 @0x2
0x0d8e…0d94 at0004 = ╱a0╱ CLEAR ╱ // 0xd92 @0x4
0x0d8e…0d94 at0005 = EOL // 0xd93 @0x5
0x0d8e…0d94 }
0x0d94…0dae 9b05 1230 TOTAL$="0+";TAH$="0+"
0x0d94…0dae LineComalBin {
0x0d94…0dae ptr = 0x9b05 // 0xd94 @0x0
0x0d94…0dae lno = 0x04ce // 0xd96 @0x2
0x0d94…0dae at0004 = ╱54╱T╱ // 0xd98 @0x4
0x0d94…0dae at0005 = ╱4f╱O╱ // 0xd99 @0x5
0x0d94…0dae at0006 = ╱54╱T╱ // 0xd9a @0x6
0x0d94…0dae at0007 = ╱41╱A╱ // 0xd9b @0x7
0x0d94…0dae at0008 = ╱4c╱L╱ // 0xd9c @0x8
0x0d94…0dae at0009 = ╱ef╱$╱ // 0xd9d @0x9
0x0d94…0dae at000a = ╱dc╱=╱ // 0xd9e @0xa
0x0d94…0dae at000b = ╱22╱"╱ // 0xd9f @0xb
0x0d94…0dae at000c = ╱30╱0╱ // 0xda0 @0xc
0x0d94…0dae at000d = ╱2b╱+╱ // 0xda1 @0xd
0x0d94…0dae at000e = ╱22╱"╱ // 0xda2 @0xe
0x0d94…0dae at000f = ╱eb╱;╱ // 0xda3 @0xf
0x0d94…0dae at0010 = ╱54╱T╱ // 0xda4 @0x10
0x0d94…0dae at0011 = ╱41╱A╱ // 0xda5 @0x11
0x0d94…0dae at0012 = ╱48╱H╱ // 0xda6 @0x12
0x0d94…0dae at0013 = ╱ef╱$╱ // 0xda7 @0x13
0x0d94…0dae at0014 = ╱dc╱=╱ // 0xda8 @0x14
0x0d94…0dae at0015 = ╱22╱"╱ // 0xda9 @0x15
0x0d94…0dae at0016 = ╱30╱0╱ // 0xdaa @0x16
0x0d94…0dae at0017 = ╱2b╱+╱ // 0xdab @0x17
0x0d94…0dae at0018 = ╱22╱"╱ // 0xdac @0x18
0x0d94…0dae at0019 = EOL // 0xdad @0x19
0x0d94…0dae }
0x0dae…0db9 9b10 1240 OPEN K5$,R
0x0dae…0db9 LineComalBin {
0x0dae…0db9 ptr = 0x9b10 // 0xdae @0x0
0x0dae…0db9 lno = 0x04d8 // 0xdb0 @0x2
0x0dae…0db9 at0004 = ╱a7╱ OPEN ╱ // 0xdb2 @0x4
0x0dae…0db9 at0005 = ╱4b╱K╱ // 0xdb3 @0x5
0x0dae…0db9 at0006 = ╱35╱5╱ // 0xdb4 @0x6
0x0dae…0db9 at0007 = ╱ef╱$╱ // 0xdb5 @0x7
0x0dae…0db9 at0008 = ╱ec╱,╱ // 0xdb6 @0x8
0x0dae…0db9 at0009 = ╱52╱R╱ // 0xdb7 @0x9
0x0dae…0db9 at000a = EOL // 0xdb8 @0xa
0x0dae…0db9 }
0x0db9…0dcc 9b23 1250 EXEC FEJL(G,E,K5$)
0x0db9…0dcc LineComalBin {
0x0db9…0dcc ptr = 0x9b23 // 0xdb9 @0x0
0x0db9…0dcc lno = 0x04e2 // 0xdbb @0x2
0x0db9…0dcc at0004 = ╱9d╱ EXEC ╱ // 0xdbd @0x4
0x0db9…0dcc at0005 = ╱46╱F╱ // 0xdbe @0x5
0x0db9…0dcc at0006 = ╱45╱E╱ // 0xdbf @0x6
0x0db9…0dcc at0007 = ╱4a╱J╱ // 0xdc0 @0x7
0x0db9…0dcc at0008 = ╱4c╱L╱ // 0xdc1 @0x8
0x0db9…0dcc at0009 = ╱ed╱(╱ // 0xdc2 @0x9
0x0db9…0dcc at000a = ╱47╱G╱ // 0xdc3 @0xa
0x0db9…0dcc at000b = ╱ec╱,╱ // 0xdc4 @0xb
0x0db9…0dcc at000c = ╱45╱E╱ // 0xdc5 @0xc
0x0db9…0dcc at000d = ╱ec╱,╱ // 0xdc6 @0xd
0x0db9…0dcc at000e = ╱4b╱K╱ // 0xdc7 @0xe
0x0db9…0dcc at000f = ╱35╱5╱ // 0xdc8 @0xf
0x0db9…0dcc at0010 = ╱ef╱$╱ // 0xdc9 @0x10
0x0db9…0dcc at0011 = ╱ee╱)╱ // 0xdca @0x11
0x0db9…0dcc at0012 = EOL // 0xdcb @0x12
0x0db9…0dcc }
0x0dcc…0de1 9b38 1260 CURSOR 20,10
0x0dcc…0de1 LineComalBin {
0x0dcc…0de1 ptr = 0x9b38 // 0xdcc @0x0
0x0dcc…0de1 lno = 0x04ec // 0xdce @0x2
0x0dcc…0de1 at0004 = ╱a1╱ CURSOR ╱ // 0xdd0 @0x4
0x0dcc…0de1 at0005 = ╱32╱2╱ // 0xdd1 @0x5
0x0dcc…0de1 at0006 = ╱30╱0╱ // 0xdd2 @0x6
0x0dcc…0de1 at0007 = ╱fe0000a005╱ // 0xdd3 @0x7
0x0dcc…0de1 at000c = ╱ec╱,╱ // 0xdd8 @0xc
0x0dcc…0de1 at000d = ╱31╱1╱ // 0xdd9 @0xd
0x0dcc…0de1 at000e = ╱30╱0╱ // 0xdda @0xe
0x0dcc…0de1 at000f = ╱fe0000a004╱ // 0xddb @0xf
0x0dcc…0de1 at0014 = EOL // 0xde0 @0x14
0x0dcc…0de1 }
0x0de1…0e15 9b6c 1270 PRINT "Monter papir til udskrift af fakturajournal."
0x0de1…0e15 LineComalBin {
0x0de1…0e15 ptr = 0x9b6c // 0xde1 @0x0
0x0de1…0e15 lno = 0x04f6 // 0xde3 @0x2
0x0de1…0e15 at0004 = ╱92╱ PRINT ╱ // 0xde5 @0x4
0x0de1…0e15 at0005 = ╱22╱"╱ // 0xde6 @0x5
0x0de1…0e15 at0006 = ╱4d╱M╱ // 0xde7 @0x6
0x0de1…0e15 at0007 = ╱6f╱o╱ // 0xde8 @0x7
0x0de1…0e15 at0008 = ╱6e╱n╱ // 0xde9 @0x8
0x0de1…0e15 at0009 = ╱74╱t╱ // 0xdea @0x9
0x0de1…0e15 at000a = ╱65╱e╱ // 0xdeb @0xa
0x0de1…0e15 at000b = ╱72╱r╱ // 0xdec @0xb
0x0de1…0e15 at000c = ╱20╱…╱ // 0xded @0xc
0x0de1…0e15 at000d = ╱70╱p╱ // 0xdee @0xd
0x0de1…0e15 at000e = ╱61╱a╱ // 0xdef @0xe
0x0de1…0e15 at000f = ╱70╱p╱ // 0xdf0 @0xf
0x0de1…0e15 at0010 = ╱69╱i╱ // 0xdf1 @0x10
0x0de1…0e15 at0011 = ╱72╱r╱ // 0xdf2 @0x11
0x0de1…0e15 at0012 = ╱20╱…╱ // 0xdf3 @0x12
0x0de1…0e15 at0013 = ╱74╱t╱ // 0xdf4 @0x13
0x0de1…0e15 at0014 = ╱69╱i╱ // 0xdf5 @0x14
0x0de1…0e15 at0015 = ╱6c╱l╱ // 0xdf6 @0x15
0x0de1…0e15 at0016 = ╱20╱…╱ // 0xdf7 @0x16
0x0de1…0e15 at0017 = ╱75╱u╱ // 0xdf8 @0x17
0x0de1…0e15 at0018 = ╱64╱d╱ // 0xdf9 @0x18
0x0de1…0e15 at0019 = ╱73╱s╱ // 0xdfa @0x19
0x0de1…0e15 at001a = ╱6b╱k╱ // 0xdfb @0x1a
0x0de1…0e15 at001b = ╱72╱r╱ // 0xdfc @0x1b
0x0de1…0e15 at001c = ╱69╱i╱ // 0xdfd @0x1c
0x0de1…0e15 at001d = ╱66╱f╱ // 0xdfe @0x1d
0x0de1…0e15 at001e = ╱74╱t╱ // 0xdff @0x1e
0x0de1…0e15 at001f = ╱20╱…╱ // 0xe00 @0x1f
0x0de1…0e15 at0020 = ╱61╱a╱ // 0xe01 @0x20
0x0de1…0e15 at0021 = ╱66╱f╱ // 0xe02 @0x21
0x0de1…0e15 at0022 = ╱20╱…╱ // 0xe03 @0x22
0x0de1…0e15 at0023 = ╱66╱f╱ // 0xe04 @0x23
0x0de1…0e15 at0024 = ╱61╱a╱ // 0xe05 @0x24
0x0de1…0e15 at0025 = ╱6b╱k╱ // 0xe06 @0x25
0x0de1…0e15 at0026 = ╱74╱t╱ // 0xe07 @0x26
0x0de1…0e15 at0027 = ╱75╱u╱ // 0xe08 @0x27
0x0de1…0e15 at0028 = ╱72╱r╱ // 0xe09 @0x28
0x0de1…0e15 at0029 = ╱61╱a╱ // 0xe0a @0x29
0x0de1…0e15 at002a = ╱6a╱j╱ // 0xe0b @0x2a
0x0de1…0e15 at002b = ╱6f╱o╱ // 0xe0c @0x2b
0x0de1…0e15 at002c = ╱75╱u╱ // 0xe0d @0x2c
0x0de1…0e15 at002d = ╱72╱r╱ // 0xe0e @0x2d
0x0de1…0e15 at002e = ╱6e╱n╱ // 0xe0f @0x2e
0x0de1…0e15 at002f = ╱61╱a╱ // 0xe10 @0x2f
0x0de1…0e15 at0030 = ╱6c╱l╱ // 0xe11 @0x30
0x0de1…0e15 at0031 = ╱2e╱.╱ // 0xe12 @0x31
0x0de1…0e15 at0032 = ╱22╱"╱ // 0xe13 @0x32
0x0de1…0e15 at0033 = EOL // 0xe14 @0x33
0x0de1…0e15 }
0x0e15…0e2a 9b81 1280 CURSOR 20,12
0x0e15…0e2a LineComalBin {
0x0e15…0e2a ptr = 0x9b81 // 0xe15 @0x0
0x0e15…0e2a lno = 0x0500 // 0xe17 @0x2
0x0e15…0e2a at0004 = ╱a1╱ CURSOR ╱ // 0xe19 @0x4
0x0e15…0e2a at0005 = ╱32╱2╱ // 0xe1a @0x5
0x0e15…0e2a at0006 = ╱30╱0╱ // 0xe1b @0x6
0x0e15…0e2a at0007 = ╱fe0000a005╱ // 0xe1c @0x7
0x0e15…0e2a at000c = ╱ec╱,╱ // 0xe21 @0xc
0x0e15…0e2a at000d = ╱31╱1╱ // 0xe22 @0xd
0x0e15…0e2a at000e = ╱32╱2╱ // 0xe23 @0xe
0x0e15…0e2a at000f = ╱fe0000c004╱ // 0xe24 @0xf
0x0e15…0e2a at0014 = EOL // 0xe29 @0x14
0x0e15…0e2a }
0x0e2a…0e45 9b9c 1290 INPUT "Tast RETURN.",SVAR1$
0x0e2a…0e45 LineComalBin {
0x0e2a…0e45 ptr = 0x9b9c // 0xe2a @0x0
0x0e2a…0e45 lno = 0x050a // 0xe2c @0x2
0x0e2a…0e45 at0004 = ╱91╱ INPUT ╱ // 0xe2e @0x4
0x0e2a…0e45 at0005 = ╱22╱"╱ // 0xe2f @0x5
0x0e2a…0e45 at0006 = ╱54╱T╱ // 0xe30 @0x6
0x0e2a…0e45 at0007 = ╱61╱a╱ // 0xe31 @0x7
0x0e2a…0e45 at0008 = ╱73╱s╱ // 0xe32 @0x8
0x0e2a…0e45 at0009 = ╱74╱t╱ // 0xe33 @0x9
0x0e2a…0e45 at000a = ╱20╱…╱ // 0xe34 @0xa
0x0e2a…0e45 at000b = ╱52╱R╱ // 0xe35 @0xb
0x0e2a…0e45 at000c = ╱45╱E╱ // 0xe36 @0xc
0x0e2a…0e45 at000d = ╱54╱T╱ // 0xe37 @0xd
0x0e2a…0e45 at000e = ╱55╱U╱ // 0xe38 @0xe
0x0e2a…0e45 at000f = ╱52╱R╱ // 0xe39 @0xf
0x0e2a…0e45 at0010 = ╱4e╱N╱ // 0xe3a @0x10
0x0e2a…0e45 at0011 = ╱2e╱.╱ // 0xe3b @0x11
0x0e2a…0e45 at0012 = ╱22╱"╱ // 0xe3c @0x12
0x0e2a…0e45 at0013 = ╱ec╱,╱ // 0xe3d @0x13
0x0e2a…0e45 at0014 = ╱53╱S╱ // 0xe3e @0x14
0x0e2a…0e45 at0015 = ╱56╱V╱ // 0xe3f @0x15
0x0e2a…0e45 at0016 = ╱41╱A╱ // 0xe40 @0x16
0x0e2a…0e45 at0017 = ╱52╱R╱ // 0xe41 @0x17
0x0e2a…0e45 at0018 = ╱31╱1╱ // 0xe42 @0x18
0x0e2a…0e45 at0019 = ╱ef╱$╱ // 0xe43 @0x19
0x0e2a…0e45 at001a = EOL // 0xe44 @0x1a
0x0e2a…0e45 }
0x0e45…0e6d 9bc4 1300 TE$="Der udskrives fakturajournal."
0x0e45…0e6d LineComalBin {
0x0e45…0e6d ptr = 0x9bc4 // 0xe45 @0x0
0x0e45…0e6d lno = 0x0514 // 0xe47 @0x2
0x0e45…0e6d at0004 = ╱54╱T╱ // 0xe49 @0x4
0x0e45…0e6d at0005 = ╱45╱E╱ // 0xe4a @0x5
0x0e45…0e6d at0006 = ╱ef╱$╱ // 0xe4b @0x6
0x0e45…0e6d at0007 = ╱dc╱=╱ // 0xe4c @0x7
0x0e45…0e6d at0008 = ╱22╱"╱ // 0xe4d @0x8
0x0e45…0e6d at0009 = ╱44╱D╱ // 0xe4e @0x9
0x0e45…0e6d at000a = ╱65╱e╱ // 0xe4f @0xa
0x0e45…0e6d at000b = ╱72╱r╱ // 0xe50 @0xb
0x0e45…0e6d at000c = ╱20╱…╱ // 0xe51 @0xc
0x0e45…0e6d at000d = ╱75╱u╱ // 0xe52 @0xd
0x0e45…0e6d at000e = ╱64╱d╱ // 0xe53 @0xe
0x0e45…0e6d at000f = ╱73╱s╱ // 0xe54 @0xf
0x0e45…0e6d at0010 = ╱6b╱k╱ // 0xe55 @0x10
0x0e45…0e6d at0011 = ╱72╱r╱ // 0xe56 @0x11
0x0e45…0e6d at0012 = ╱69╱i╱ // 0xe57 @0x12
0x0e45…0e6d at0013 = ╱76╱v╱ // 0xe58 @0x13
0x0e45…0e6d at0014 = ╱65╱e╱ // 0xe59 @0x14
0x0e45…0e6d at0015 = ╱73╱s╱ // 0xe5a @0x15
0x0e45…0e6d at0016 = ╱20╱…╱ // 0xe5b @0x16
0x0e45…0e6d at0017 = ╱66╱f╱ // 0xe5c @0x17
0x0e45…0e6d at0018 = ╱61╱a╱ // 0xe5d @0x18
0x0e45…0e6d at0019 = ╱6b╱k╱ // 0xe5e @0x19
0x0e45…0e6d at001a = ╱74╱t╱ // 0xe5f @0x1a
0x0e45…0e6d at001b = ╱75╱u╱ // 0xe60 @0x1b
0x0e45…0e6d at001c = ╱72╱r╱ // 0xe61 @0x1c
0x0e45…0e6d at001d = ╱61╱a╱ // 0xe62 @0x1d
0x0e45…0e6d at001e = ╱6a╱j╱ // 0xe63 @0x1e
0x0e45…0e6d at001f = ╱6f╱o╱ // 0xe64 @0x1f
0x0e45…0e6d at0020 = ╱75╱u╱ // 0xe65 @0x20
0x0e45…0e6d at0021 = ╱72╱r╱ // 0xe66 @0x21
0x0e45…0e6d at0022 = ╱6e╱n╱ // 0xe67 @0x22
0x0e45…0e6d at0023 = ╱61╱a╱ // 0xe68 @0x23
0x0e45…0e6d at0024 = ╱6c╱l╱ // 0xe69 @0x24
0x0e45…0e6d at0025 = ╱2e╱.╱ // 0xe6a @0x25
0x0e45…0e6d at0026 = ╱22╱"╱ // 0xe6b @0x26
0x0e45…0e6d at0027 = EOL // 0xe6c @0x27
0x0e45…0e6d }
0x0e6d…0e76 9bcd 1310 EXEC BIL
0x0e6d…0e76 LineComalBin {
0x0e6d…0e76 ptr = 0x9bcd // 0xe6d @0x0
0x0e6d…0e76 lno = 0x051e // 0xe6f @0x2
0x0e6d…0e76 at0004 = ╱9d╱ EXEC ╱ // 0xe71 @0x4
0x0e6d…0e76 at0005 = ╱42╱B╱ // 0xe72 @0x5
0x0e6d…0e76 at0006 = ╱49╱I╱ // 0xe73 @0x6
0x0e6d…0e76 at0007 = ╱4c╱L╱ // 0xe74 @0x7
0x0e6d…0e76 at0008 = EOL // 0xe75 @0x8
0x0e6d…0e76 }
0x0e76…0e7d 9bd4 1320 OUTPUT P
0x0e76…0e7d LineComalBin {
0x0e76…0e7d ptr = 0x9bd4 // 0xe76 @0x0
0x0e76…0e7d lno = 0x0528 // 0xe78 @0x2
0x0e76…0e7d at0004 = ╱a5╱ OUTPUT ╱ // 0xe7a @0x4
0x0e76…0e7d at0005 = ╱50╱P╱ // 0xe7b @0x5
0x0e76…0e7d at0006 = EOL // 0xe7c @0x6
0x0e76…0e7d }
0x0e7d…0e88 9bdf 1330 PROC HOVED
0x0e7d…0e88 LineComalBin {
0x0e7d…0e88 ptr = 0x9bdf // 0xe7d @0x0
0x0e7d…0e88 lno = 0x0532 // 0xe7f @0x2
0x0e7d…0e88 at0004 = ╱9e╱ PROC ╱ // 0xe81 @0x4
0x0e7d…0e88 at0005 = ╱48╱H╱ // 0xe82 @0x5
0x0e7d…0e88 at0006 = ╱4f╱O╱ // 0xe83 @0x6
0x0e7d…0e88 at0007 = ╱56╱V╱ // 0xe84 @0x7
0x0e7d…0e88 at0008 = ╱45╱E╱ // 0xe85 @0x8
0x0e7d…0e88 at0009 = ╱44╱D╱ // 0xe86 @0x9
0x0e7d…0e88 at000a = EOL // 0xe87 @0xa
0x0e7d…0e88 }
0x0e88…0e92 9be9 1335 IF I>E THEN
0x0e88…0e92 LineComalBin {
0x0e88…0e92 ptr = 0x9be9 // 0xe88 @0x0
0x0e88…0e92 lno = 0x0537 // 0xe8a @0x2
0x0e88…0e92 at0004 = ╱9c╱ IF ╱ // 0xe8c @0x4
0x0e88…0e92 at0005 = ╱49╱I╱ // 0xe8d @0x5
0x0e88…0e92 at0006 = ╱de╱>╱ // 0xe8e @0x6
0x0e88…0e92 at0007 = ╱45╱E╱ // 0xe8f @0x7
0x0e88…0e92 at0008 = ╱b6╱ THEN ╱ // 0xe90 @0x8
0x0e88…0e92 at0009 = EOL // 0xe91 @0x9
0x0e88…0e92 }
0x0e92…0e9b 9bf2 1336 PRINT " "
0x0e92…0e9b LineComalBin {
0x0e92…0e9b ptr = 0x9bf2 // 0xe92 @0x0
0x0e92…0e9b lno = 0x0538 // 0xe94 @0x2
0x0e92…0e9b at0004 = ╱92╱ PRINT ╱ // 0xe96 @0x4
0x0e92…0e9b at0005 = ╱22╱"╱ // 0xe97 @0x5
0x0e92…0e9b at0006 = ╱20╱…╱ // 0xe98 @0x6
0x0e92…0e9b at0007 = ╱22╱"╱ // 0xe99 @0x7
0x0e92…0e9b at0008 = EOL // 0xe9a @0x8
0x0e92…0e9b }
0x0e9b…0ea4 9bfb 1337 PRINT " "
0x0e9b…0ea4 LineComalBin {
0x0e9b…0ea4 ptr = 0x9bfb // 0xe9b @0x0
0x0e9b…0ea4 lno = 0x0539 // 0xe9d @0x2
0x0e9b…0ea4 at0004 = ╱92╱ PRINT ╱ // 0xe9f @0x4
0x0e9b…0ea4 at0005 = ╱22╱"╱ // 0xea0 @0x5
0x0e9b…0ea4 at0006 = ╱20╱…╱ // 0xea1 @0x6
0x0e9b…0ea4 at0007 = ╱22╱"╱ // 0xea2 @0x7
0x0e9b…0ea4 at0008 = EOL // 0xea3 @0x8
0x0e9b…0ea4 }
0x0ea4…0ead 9c04 1338 PRINT " "
0x0ea4…0ead LineComalBin {
0x0ea4…0ead ptr = 0x9c04 // 0xea4 @0x0
0x0ea4…0ead lno = 0x053a // 0xea6 @0x2
0x0ea4…0ead at0004 = ╱92╱ PRINT ╱ // 0xea8 @0x4
0x0ea4…0ead at0005 = ╱22╱"╱ // 0xea9 @0x5
0x0ea4…0ead at0006 = ╱20╱…╱ // 0xeaa @0x6
0x0ea4…0ead at0007 = ╱22╱"╱ // 0xeab @0x7
0x0ea4…0ead at0008 = EOL // 0xeac @0x8
0x0ea4…0ead }
0x0ead…0eb3 9c0a 1339 ENDIF
0x0ead…0eb3 LineComalBin {
0x0ead…0eb3 ptr = 0x9c0a // 0xead @0x0
0x0ead…0eb3 lno = 0x053b // 0xeaf @0x2
0x0ead…0eb3 at0004 = ╱9b╱ ENDIF ╱ // 0xeb1 @0x4
0x0ead…0eb3 at0005 = EOL // 0xeb2 @0x5
0x0ead…0eb3 }
0x0eb3…0ecb 9c22 1340 PRINT TAB(67);DV$;" "
0x0eb3…0ecb LineComalBin {
0x0eb3…0ecb ptr = 0x9c22 // 0xeb3 @0x0
0x0eb3…0ecb lno = 0x053c // 0xeb5 @0x2
0x0eb3…0ecb at0004 = ╱92╱ PRINT ╱ // 0xeb7 @0x4
0x0eb3…0ecb at0005 = ╱d2╱TAB╱ // 0xeb8 @0x5
0x0eb3…0ecb at0006 = ╱ed╱(╱ // 0xeb9 @0x6
0x0eb3…0ecb at0007 = ╱36╱6╱ // 0xeba @0x7
0x0eb3…0ecb at0008 = ╱37╱7╱ // 0xebb @0x8
0x0eb3…0ecb at0009 = ╱fe00008607╱ // 0xebc @0x9
0x0eb3…0ecb at000e = ╱ee╱)╱ // 0xec1 @0xe
0x0eb3…0ecb at000f = ╱eb╱;╱ // 0xec2 @0xf
0x0eb3…0ecb at0010 = ╱44╱D╱ // 0xec3 @0x10
0x0eb3…0ecb at0011 = ╱56╱V╱ // 0xec4 @0x11
0x0eb3…0ecb at0012 = ╱ef╱$╱ // 0xec5 @0x12
0x0eb3…0ecb at0013 = ╱eb╱;╱ // 0xec6 @0x13
0x0eb3…0ecb at0014 = ╱22╱"╱ // 0xec7 @0x14
0x0eb3…0ecb at0015 = ╱20╱…╱ // 0xec8 @0x15
0x0eb3…0ecb at0016 = ╱22╱"╱ // 0xec9 @0x16
0x0eb3…0ecb at0017 = EOL // 0xeca @0x17
0x0eb3…0ecb }
0x0ecb…0f21 9c78 1350 PRINT TAB(27);CHR(14);"Fakturajournal";CHR(15);TAB(52);"Side:";TAB(57);
0x0ecb…0f21 LineComalBin {
0x0ecb…0f21 ptr = 0x9c78 // 0xecb @0x0
0x0ecb…0f21 lno = 0x0546 // 0xecd @0x2
0x0ecb…0f21 at0004 = ╱92╱ PRINT ╱ // 0xecf @0x4
0x0ecb…0f21 at0005 = ╱d2╱TAB╱ // 0xed0 @0x5
0x0ecb…0f21 at0006 = ╱ed╱(╱ // 0xed1 @0x6
0x0ecb…0f21 at0007 = ╱32╱2╱ // 0xed2 @0x7
0x0ecb…0f21 at0008 = ╱37╱7╱ // 0xed3 @0x8
0x0ecb…0f21 at0009 = ╱fe0000d805╱ // 0xed4 @0x9
0x0ecb…0f21 at000e = ╱ee╱)╱ // 0xed9 @0xe
0x0ecb…0f21 at000f = ╱eb╱;╱ // 0xeda @0xf
0x0ecb…0f21 at0010 = ╱cf╱CHR╱ // 0xedb @0x10
0x0ecb…0f21 at0011 = ╱ed╱(╱ // 0xedc @0x11
0x0ecb…0f21 at0012 = ╱31╱1╱ // 0xedd @0x12
0x0ecb…0f21 at0013 = ╱34╱4╱ // 0xede @0x13
0x0ecb…0f21 at0014 = ╱fe0000e004╱ // 0xedf @0x14
0x0ecb…0f21 at0019 = ╱ee╱)╱ // 0xee4 @0x19
0x0ecb…0f21 at001a = ╱eb╱;╱ // 0xee5 @0x1a
0x0ecb…0f21 at001b = ╱22╱"╱ // 0xee6 @0x1b
0x0ecb…0f21 at001c = ╱46╱F╱ // 0xee7 @0x1c
0x0ecb…0f21 at001d = ╱61╱a╱ // 0xee8 @0x1d
0x0ecb…0f21 at001e = ╱6b╱k╱ // 0xee9 @0x1e
0x0ecb…0f21 at001f = ╱74╱t╱ // 0xeea @0x1f
0x0ecb…0f21 at0020 = ╱75╱u╱ // 0xeeb @0x20
0x0ecb…0f21 at0021 = ╱72╱r╱ // 0xeec @0x21
0x0ecb…0f21 at0022 = ╱61╱a╱ // 0xeed @0x22
0x0ecb…0f21 at0023 = ╱6a╱j╱ // 0xeee @0x23
0x0ecb…0f21 at0024 = ╱6f╱o╱ // 0xeef @0x24
0x0ecb…0f21 at0025 = ╱75╱u╱ // 0xef0 @0x25
0x0ecb…0f21 at0026 = ╱72╱r╱ // 0xef1 @0x26
0x0ecb…0f21 at0027 = ╱6e╱n╱ // 0xef2 @0x27
0x0ecb…0f21 at0028 = ╱61╱a╱ // 0xef3 @0x28
0x0ecb…0f21 at0029 = ╱6c╱l╱ // 0xef4 @0x29
0x0ecb…0f21 at002a = ╱22╱"╱ // 0xef5 @0x2a
0x0ecb…0f21 at002b = ╱eb╱;╱ // 0xef6 @0x2b
0x0ecb…0f21 at002c = ╱cf╱CHR╱ // 0xef7 @0x2c
0x0ecb…0f21 at002d = ╱ed╱(╱ // 0xef8 @0x2d
0x0ecb…0f21 at002e = ╱31╱1╱ // 0xef9 @0x2e
0x0ecb…0f21 at002f = ╱35╱5╱ // 0xefa @0x2f
0x0ecb…0f21 at0030 = ╱fe0000f004╱ // 0xefb @0x30
0x0ecb…0f21 at0035 = ╱ee╱)╱ // 0xf00 @0x35
0x0ecb…0f21 at0036 = ╱eb╱;╱ // 0xf01 @0x36
0x0ecb…0f21 at0037 = ╱d2╱TAB╱ // 0xf02 @0x37
0x0ecb…0f21 at0038 = ╱ed╱(╱ // 0xf03 @0x38
0x0ecb…0f21 at0039 = ╱35╱5╱ // 0xf04 @0x39
0x0ecb…0f21 at003a = ╱32╱2╱ // 0xf05 @0x3a
0x0ecb…0f21 at003b = ╱fe0000d006╱ // 0xf06 @0x3b
0x0ecb…0f21 at0040 = ╱ee╱)╱ // 0xf0b @0x40
0x0ecb…0f21 at0041 = ╱eb╱;╱ // 0xf0c @0x41
0x0ecb…0f21 at0042 = ╱22╱"╱ // 0xf0d @0x42
0x0ecb…0f21 at0043 = ╱53╱S╱ // 0xf0e @0x43
0x0ecb…0f21 at0044 = ╱69╱i╱ // 0xf0f @0x44
0x0ecb…0f21 at0045 = ╱64╱d╱ // 0xf10 @0x45
0x0ecb…0f21 at0046 = ╱65╱e╱ // 0xf11 @0x46
0x0ecb…0f21 at0047 = ╱3a╱:╱ // 0xf12 @0x47
0x0ecb…0f21 at0048 = ╱22╱"╱ // 0xf13 @0x48
0x0ecb…0f21 at0049 = ╱eb╱;╱ // 0xf14 @0x49
0x0ecb…0f21 at004a = ╱d2╱TAB╱ // 0xf15 @0x4a
0x0ecb…0f21 at004b = ╱ed╱(╱ // 0xf16 @0x4b
0x0ecb…0f21 at004c = ╱35╱5╱ // 0xf17 @0x4c
0x0ecb…0f21 at004d = ╱37╱7╱ // 0xf18 @0x4d
0x0ecb…0f21 at004e = ╱fe0000e406╱ // 0xf19 @0x4e
0x0ecb…0f21 at0053 = ╱ee╱)╱ // 0xf1e @0x53
0x0ecb…0f21 at0054 = ╱eb╱;╱ // 0xf1f @0x54
0x0ecb…0f21 at0055 = EOL // 0xf20 @0x55
0x0ecb…0f21 }
0x0f21…0f38 9c8f 1360 PRINT USING "#####":JOURSIDE
0x0f21…0f38 LineComalBin {
0x0f21…0f38 ptr = 0x9c8f // 0xf21 @0x0
0x0f21…0f38 lno = 0x0550 // 0xf23 @0x2
0x0f21…0f38 at0004 = ╱92╱ PRINT ╱ // 0xf25 @0x4
0x0f21…0f38 at0005 = ╱b9╱ USING ╱ // 0xf26 @0x5
0x0f21…0f38 at0006 = ╱22╱"╱ // 0xf27 @0x6
0x0f21…0f38 at0007 = ╱23╱#╱ // 0xf28 @0x7
0x0f21…0f38 at0008 = ╱23╱#╱ // 0xf29 @0x8
0x0f21…0f38 at0009 = ╱23╱#╱ // 0xf2a @0x9
0x0f21…0f38 at000a = ╱23╱#╱ // 0xf2b @0xa
0x0f21…0f38 at000b = ╱23╱#╱ // 0xf2c @0xb
0x0f21…0f38 at000c = ╱22╱"╱ // 0xf2d @0xc
0x0f21…0f38 at000d = ╱f0╱:╱ // 0xf2e @0xd
0x0f21…0f38 at000e = ╱4a╱J╱ // 0xf2f @0xe
0x0f21…0f38 at000f = ╱4f╱O╱ // 0xf30 @0xf
0x0f21…0f38 at0010 = ╱55╱U╱ // 0xf31 @0x10
0x0f21…0f38 at0011 = ╱52╱R╱ // 0xf32 @0x11
0x0f21…0f38 at0012 = ╱53╱S╱ // 0xf33 @0x12
0x0f21…0f38 at0013 = ╱49╱I╱ // 0xf34 @0x13
0x0f21…0f38 at0014 = ╱44╱D╱ // 0xf35 @0x14
0x0f21…0f38 at0015 = ╱45╱E╱ // 0xf36 @0x15
0x0f21…0f38 at0016 = EOL // 0xf37 @0x16
0x0f21…0f38 }
0x0f38…0f50 9ca7 1370 JOURSIDE=JOURSIDE+E
0x0f38…0f50 LineComalBin {
0x0f38…0f50 ptr = 0x9ca7 // 0xf38 @0x0
0x0f38…0f50 lno = 0x055a // 0xf3a @0x2
0x0f38…0f50 at0004 = ╱4a╱J╱ // 0xf3c @0x4
0x0f38…0f50 at0005 = ╱4f╱O╱ // 0xf3d @0x5
0x0f38…0f50 at0006 = ╱55╱U╱ // 0xf3e @0x6
0x0f38…0f50 at0007 = ╱52╱R╱ // 0xf3f @0x7
0x0f38…0f50 at0008 = ╱53╱S╱ // 0xf40 @0x8
0x0f38…0f50 at0009 = ╱49╱I╱ // 0xf41 @0x9
0x0f38…0f50 at000a = ╱44╱D╱ // 0xf42 @0xa
0x0f38…0f50 at000b = ╱45╱E╱ // 0xf43 @0xb
0x0f38…0f50 at000c = ╱dc╱=╱ // 0xf44 @0xc
0x0f38…0f50 at000d = ╱4a╱J╱ // 0xf45 @0xd
0x0f38…0f50 at000e = ╱4f╱O╱ // 0xf46 @0xe
0x0f38…0f50 at000f = ╱55╱U╱ // 0xf47 @0xf
0x0f38…0f50 at0010 = ╱52╱R╱ // 0xf48 @0x10
0x0f38…0f50 at0011 = ╱53╱S╱ // 0xf49 @0x11
0x0f38…0f50 at0012 = ╱49╱I╱ // 0xf4a @0x12
0x0f38…0f50 at0013 = ╱44╱D╱ // 0xf4b @0x13
0x0f38…0f50 at0014 = ╱45╱E╱ // 0xf4c @0x14
0x0f38…0f50 at0015 = ╱e2╱+╱ // 0xf4d @0x15
0x0f38…0f50 at0016 = ╱45╱E╱ // 0xf4e @0x16
0x0f38…0f50 at0017 = EOL // 0xf4f @0x17
0x0f38…0f50 }
0x0f50…0f59 9cb0 1380 PRINT " "
0x0f50…0f59 LineComalBin {
0x0f50…0f59 ptr = 0x9cb0 // 0xf50 @0x0
0x0f50…0f59 lno = 0x0564 // 0xf52 @0x2
0x0f50…0f59 at0004 = ╱92╱ PRINT ╱ // 0xf54 @0x4
0x0f50…0f59 at0005 = ╱22╱"╱ // 0xf55 @0x5
0x0f50…0f59 at0006 = ╱20╱…╱ // 0xf56 @0x6
0x0f50…0f59 at0007 = ╱22╱"╱ // 0xf57 @0x7
0x0f50…0f59 at0008 = EOL // 0xf58 @0x8
0x0f50…0f59 }
0x0f59…0f62 9cb9 1390 PRINT " "
0x0f59…0f62 LineComalBin {
0x0f59…0f62 ptr = 0x9cb9 // 0xf59 @0x0
0x0f59…0f62 lno = 0x056e // 0xf5b @0x2
0x0f59…0f62 at0004 = ╱92╱ PRINT ╱ // 0xf5d @0x4
0x0f59…0f62 at0005 = ╱22╱"╱ // 0xf5e @0x5
0x0f59…0f62 at0006 = ╱20╱…╱ // 0xf5f @0x6
0x0f59…0f62 at0007 = ╱22╱"╱ // 0xf60 @0x7
0x0f59…0f62 at0008 = EOL // 0xf61 @0x8
0x0f59…0f62 }
0x0f62…0fb3 9d0a 1400 PRINT TAB(5);"Dato Bilag Tekst";TAB(52);"Konto";TAB(70);"Beløb"
0x0f62…0fb3 LineComalBin {
0x0f62…0fb3 ptr = 0x9d0a // 0xf62 @0x0
0x0f62…0fb3 lno = 0x0578 // 0xf64 @0x2
0x0f62…0fb3 at0004 = ╱92╱ PRINT ╱ // 0xf66 @0x4
0x0f62…0fb3 at0005 = ╱d2╱TAB╱ // 0xf67 @0x5
0x0f62…0fb3 at0006 = ╱ed╱(╱ // 0xf68 @0x6
0x0f62…0fb3 at0007 = ╱35╱5╱ // 0xf69 @0x7
0x0f62…0fb3 at0008 = ╱fe0000a003╱ // 0xf6a @0x8
0x0f62…0fb3 at000d = ╱ee╱)╱ // 0xf6f @0xd
0x0f62…0fb3 at000e = ╱eb╱;╱ // 0xf70 @0xe
0x0f62…0fb3 at000f = ╱22╱"╱ // 0xf71 @0xf
0x0f62…0fb3 at0010 = ╱44╱D╱ // 0xf72 @0x10
0x0f62…0fb3 at0011 = ╱61╱a╱ // 0xf73 @0x11
0x0f62…0fb3 at0012 = ╱74╱t╱ // 0xf74 @0x12
0x0f62…0fb3 at0013 = ╱6f╱o╱ // 0xf75 @0x13
0x0f62…0fb3 at0014 = ╱20╱…╱ // 0xf76 @0x14
0x0f62…0fb3 at0015 = ╱20╱…╱ // 0xf77 @0x15
0x0f62…0fb3 at0016 = ╱20╱…╱ // 0xf78 @0x16
0x0f62…0fb3 at0017 = ╱20╱…╱ // 0xf79 @0x17
0x0f62…0fb3 at0018 = ╱20╱…╱ // 0xf7a @0x18
0x0f62…0fb3 at0019 = ╱20╱…╱ // 0xf7b @0x19
0x0f62…0fb3 at001a = ╱42╱B╱ // 0xf7c @0x1a
0x0f62…0fb3 at001b = ╱69╱i╱ // 0xf7d @0x1b
0x0f62…0fb3 at001c = ╱6c╱l╱ // 0xf7e @0x1c
0x0f62…0fb3 at001d = ╱61╱a╱ // 0xf7f @0x1d
0x0f62…0fb3 at001e = ╱67╱g╱ // 0xf80 @0x1e
0x0f62…0fb3 at001f = ╱20╱…╱ // 0xf81 @0x1f
0x0f62…0fb3 at0020 = ╱20╱…╱ // 0xf82 @0x20
0x0f62…0fb3 at0021 = ╱20╱…╱ // 0xf83 @0x21
0x0f62…0fb3 at0022 = ╱20╱…╱ // 0xf84 @0x22
0x0f62…0fb3 at0023 = ╱20╱…╱ // 0xf85 @0x23
0x0f62…0fb3 at0024 = ╱54╱T╱ // 0xf86 @0x24
0x0f62…0fb3 at0025 = ╱65╱e╱ // 0xf87 @0x25
0x0f62…0fb3 at0026 = ╱6b╱k╱ // 0xf88 @0x26
0x0f62…0fb3 at0027 = ╱73╱s╱ // 0xf89 @0x27
0x0f62…0fb3 at0028 = ╱74╱t╱ // 0xf8a @0x28
0x0f62…0fb3 at0029 = ╱22╱"╱ // 0xf8b @0x29
0x0f62…0fb3 at002a = ╱eb╱;╱ // 0xf8c @0x2a
0x0f62…0fb3 at002b = ╱d2╱TAB╱ // 0xf8d @0x2b
0x0f62…0fb3 at002c = ╱ed╱(╱ // 0xf8e @0x2c
0x0f62…0fb3 at002d = ╱35╱5╱ // 0xf8f @0x2d
0x0f62…0fb3 at002e = ╱32╱2╱ // 0xf90 @0x2e
0x0f62…0fb3 at002f = ╱fe0000d006╱ // 0xf91 @0x2f
0x0f62…0fb3 at0034 = ╱ee╱)╱ // 0xf96 @0x34
0x0f62…0fb3 at0035 = ╱eb╱;╱ // 0xf97 @0x35
0x0f62…0fb3 at0036 = ╱22╱"╱ // 0xf98 @0x36
0x0f62…0fb3 at0037 = ╱4b╱K╱ // 0xf99 @0x37
0x0f62…0fb3 at0038 = ╱6f╱o╱ // 0xf9a @0x38
0x0f62…0fb3 at0039 = ╱6e╱n╱ // 0xf9b @0x39
0x0f62…0fb3 at003a = ╱74╱t╱ // 0xf9c @0x3a
0x0f62…0fb3 at003b = ╱6f╱o╱ // 0xf9d @0x3b
0x0f62…0fb3 at003c = ╱22╱"╱ // 0xf9e @0x3c
0x0f62…0fb3 at003d = ╱eb╱;╱ // 0xf9f @0x3d
0x0f62…0fb3 at003e = ╱d2╱TAB╱ // 0xfa0 @0x3e
0x0f62…0fb3 at003f = ╱ed╱(╱ // 0xfa1 @0x3f
0x0f62…0fb3 at0040 = ╱37╱7╱ // 0xfa2 @0x40
0x0f62…0fb3 at0041 = ╱30╱0╱ // 0xfa3 @0x41
0x0f62…0fb3 at0042 = ╱fe00008c07╱ // 0xfa4 @0x42
0x0f62…0fb3 at0047 = ╱ee╱)╱ // 0xfa9 @0x47
0x0f62…0fb3 at0048 = ╱eb╱;╱ // 0xfaa @0x48
0x0f62…0fb3 at0049 = ╱22╱"╱ // 0xfab @0x49
0x0f62…0fb3 at004a = ╱42╱B╱ // 0xfac @0x4a
0x0f62…0fb3 at004b = ╱65╱e╱ // 0xfad @0x4b
0x0f62…0fb3 at004c = ╱6c╱l╱ // 0xfae @0x4c
0x0f62…0fb3 at004d = ╱7c╱ø╱ // 0xfaf @0x4d
0x0f62…0fb3 at004e = ╱62╱b╱ // 0xfb0 @0x4e
0x0f62…0fb3 at004f = ╱22╱"╱ // 0xfb1 @0x4f
0x0f62…0fb3 at0050 = EOL // 0xfb2 @0x50
0x0f62…0fb3 }
0x0fb3…0fbc 9d13 1410 PRINT " "
0x0fb3…0fbc LineComalBin {
0x0fb3…0fbc ptr = 0x9d13 // 0xfb3 @0x0
0x0fb3…0fbc lno = 0x0582 // 0xfb5 @0x2
0x0fb3…0fbc at0004 = ╱92╱ PRINT ╱ // 0xfb7 @0x4
0x0fb3…0fbc at0005 = ╱22╱"╱ // 0xfb8 @0x5
0x0fb3…0fbc at0006 = ╱20╱…╱ // 0xfb9 @0x6
0x0fb3…0fbc at0007 = ╱22╱"╱ // 0xfba @0x7
0x0fb3…0fbc at0008 = EOL // 0xfbb @0x8
0x0fb3…0fbc }
0x0fbc…0fc2 9d19 1420 ENDPROC
0x0fbc…0fc2 LineComalBin {
0x0fbc…0fc2 ptr = 0x9d19 // 0xfbc @0x0
0x0fbc…0fc2 lno = 0x058c // 0xfbe @0x2
0x0fbc…0fc2 at0004 = ╱9f╱ ENDPROC ╱ // 0xfc0 @0x4
0x0fbc…0fc2 at0005 = EOL // 0xfc1 @0x5
0x0fbc…0fc2 }
0x0fc2…0fd2 9d29 1430 FOR I=E TO FJPOST
0x0fc2…0fd2 LineComalBin {
0x0fc2…0fd2 ptr = 0x9d29 // 0xfc2 @0x0
0x0fc2…0fd2 lno = 0x0596 // 0xfc4 @0x2
0x0fc2…0fd2 at0004 = ╱83╱ FOR ╱ // 0xfc6 @0x4
0x0fc2…0fd2 at0005 = ╱49╱I╱ // 0xfc7 @0x5
0x0fc2…0fd2 at0006 = ╱dc╱=╱ // 0xfc8 @0x6
0x0fc2…0fd2 at0007 = ╱45╱E╱ // 0xfc9 @0x7
0x0fc2…0fd2 at0008 = ╱b7╱ TO ╱ // 0xfca @0x8
0x0fc2…0fd2 at0009 = ╱46╱F╱ // 0xfcb @0x9
0x0fc2…0fd2 at000a = ╱4a╱J╱ // 0xfcc @0xa
0x0fc2…0fd2 at000b = ╱50╱P╱ // 0xfcd @0xb
0x0fc2…0fd2 at000c = ╱4f╱O╱ // 0xfce @0xc
0x0fc2…0fd2 at000d = ╱53╱S╱ // 0xfcf @0xd
0x0fc2…0fd2 at000e = ╱54╱T╱ // 0xfd0 @0xe
0x0fc2…0fd2 at000f = EOL // 0xfd1 @0xf
0x0fc2…0fd2 }
0x0fd2…0fea 9d41 1435 IF I MOD 39=E THEN EXEC HOVED
0x0fd2…0fea LineComalBin {
0x0fd2…0fea ptr = 0x9d41 // 0xfd2 @0x0
0x0fd2…0fea lno = 0x059b // 0xfd4 @0x2
0x0fd2…0fea at0004 = ╱82╱ IF ╱ // 0xfd6 @0x4
0x0fd2…0fea at0005 = ╱49╱I╱ // 0xfd7 @0x5
0x0fd2…0fea at0006 = ╱e8╱ MOD ╱ // 0xfd8 @0x6
0x0fd2…0fea at0007 = ╱33╱3╱ // 0xfd9 @0x7
0x0fd2…0fea at0008 = ╱39╱9╱ // 0xfda @0x8
0x0fd2…0fea at0009 = ╱fe00009c06╱ // 0xfdb @0x9
0x0fd2…0fea at000e = ╱dc╱=╱ // 0xfe0 @0xe
0x0fd2…0fea at000f = ╱45╱E╱ // 0xfe1 @0xf
0x0fd2…0fea at0010 = ╱b6╱ THEN ╱ // 0xfe2 @0x10
0x0fd2…0fea at0011 = ╱9d╱ EXEC ╱ // 0xfe3 @0x11
0x0fd2…0fea at0012 = ╱48╱H╱ // 0xfe4 @0x12
0x0fd2…0fea at0013 = ╱4f╱O╱ // 0xfe5 @0x13
0x0fd2…0fea at0014 = ╱56╱V╱ // 0xfe6 @0x14
0x0fd2…0fea at0015 = ╱45╱E╱ // 0xfe7 @0x15
0x0fd2…0fea at0016 = ╱44╱D╱ // 0xfe8 @0x16
0x0fd2…0fea at0017 = EOL // 0xfe9 @0x17
0x0fd2…0fea }
0x0fea…101b 9d72 1440 GET K5$,I:KUNDENR,BELØB$,BILAGSNR,FDATO,ORDRENR
0x0fea…101b LineComalBin {
0x0fea…101b ptr = 0x9d72 // 0xfea @0x0
0x0fea…101b lno = 0x05a0 // 0xfec @0x2
0x0fea…101b at0004 = ╱a9╱ GET ╱ // 0xfee @0x4
0x0fea…101b at0005 = ╱4b╱K╱ // 0xfef @0x5
0x0fea…101b at0006 = ╱35╱5╱ // 0xff0 @0x6
0x0fea…101b at0007 = ╱ef╱$╱ // 0xff1 @0x7
0x0fea…101b at0008 = ╱ec╱,╱ // 0xff2 @0x8
0x0fea…101b at0009 = ╱49╱I╱ // 0xff3 @0x9
0x0fea…101b at000a = ╱f0╱:╱ // 0xff4 @0xa
0x0fea…101b at000b = ╱4b╱K╱ // 0xff5 @0xb
0x0fea…101b at000c = ╱55╱U╱ // 0xff6 @0xc
0x0fea…101b at000d = ╱4e╱N╱ // 0xff7 @0xd
0x0fea…101b at000e = ╱44╱D╱ // 0xff8 @0xe
0x0fea…101b at000f = ╱45╱E╱ // 0xff9 @0xf
0x0fea…101b at0010 = ╱4e╱N╱ // 0xffa @0x10
0x0fea…101b at0011 = ╱52╱R╱ // 0xffb @0x11
0x0fea…101b at0012 = ╱ec╱,╱ // 0xffc @0x12
0x0fea…101b at0013 = ╱42╱B╱ // 0xffd @0x13
0x0fea…101b at0014 = ╱45╱E╱ // 0xffe @0x14
0x0fea…101b at0015 = ╱4c╱L╱ // 0xfff @0x15
0x0fea…101b at0016 = ╱5c╱Ø╱ // 0x1000 @0x16
0x0fea…101b at0017 = ╱42╱B╱ // 0x1001 @0x17
0x0fea…101b at0018 = ╱ef╱$╱ // 0x1002 @0x18
0x0fea…101b at0019 = ╱ec╱,╱ // 0x1003 @0x19
0x0fea…101b at001a = ╱42╱B╱ // 0x1004 @0x1a
0x0fea…101b at001b = ╱49╱I╱ // 0x1005 @0x1b
0x0fea…101b at001c = ╱4c╱L╱ // 0x1006 @0x1c
0x0fea…101b at001d = ╱41╱A╱ // 0x1007 @0x1d
0x0fea…101b at001e = ╱47╱G╱ // 0x1008 @0x1e
0x0fea…101b at001f = ╱53╱S╱ // 0x1009 @0x1f
0x0fea…101b at0020 = ╱4e╱N╱ // 0x100a @0x20
0x0fea…101b at0021 = ╱52╱R╱ // 0x100b @0x21
0x0fea…101b at0022 = ╱ec╱,╱ // 0x100c @0x22
0x0fea…101b at0023 = ╱46╱F╱ // 0x100d @0x23
0x0fea…101b at0024 = ╱44╱D╱ // 0x100e @0x24
0x0fea…101b at0025 = ╱41╱A╱ // 0x100f @0x25
0x0fea…101b at0026 = ╱54╱T╱ // 0x1010 @0x26
0x0fea…101b at0027 = ╱4f╱O╱ // 0x1011 @0x27
0x0fea…101b at0028 = ╱ec╱,╱ // 0x1012 @0x28
0x0fea…101b at0029 = ╱4f╱O╱ // 0x1013 @0x29
0x0fea…101b at002a = ╱52╱R╱ // 0x1014 @0x2a
0x0fea…101b at002b = ╱44╱D╱ // 0x1015 @0x2b
0x0fea…101b at002c = ╱52╱R╱ // 0x1016 @0x2c
0x0fea…101b at002d = ╱45╱E╱ // 0x1017 @0x2d
0x0fea…101b at002e = ╱4e╱N╱ // 0x1018 @0x2e
0x0fea…101b at002f = ╱52╱R╱ // 0x1019 @0x2f
0x0fea…101b at0030 = EOL // 0x101a @0x30
0x0fea…101b }
0x101b…102e 9d85 1450 EXEC FEJL(G,G,K5$)
0x101b…102e LineComalBin {
0x101b…102e ptr = 0x9d85 // 0x101b @0x0
0x101b…102e lno = 0x05aa // 0x101d @0x2
0x101b…102e at0004 = ╱9d╱ EXEC ╱ // 0x101f @0x4
0x101b…102e at0005 = ╱46╱F╱ // 0x1020 @0x5
0x101b…102e at0006 = ╱45╱E╱ // 0x1021 @0x6
0x101b…102e at0007 = ╱4a╱J╱ // 0x1022 @0x7
0x101b…102e at0008 = ╱4c╱L╱ // 0x1023 @0x8
0x101b…102e at0009 = ╱ed╱(╱ // 0x1024 @0x9
0x101b…102e at000a = ╱47╱G╱ // 0x1025 @0xa
0x101b…102e at000b = ╱ec╱,╱ // 0x1026 @0xb
0x101b…102e at000c = ╱47╱G╱ // 0x1027 @0xc
0x101b…102e at000d = ╱ec╱,╱ // 0x1028 @0xd
0x101b…102e at000e = ╱4b╱K╱ // 0x1029 @0xe
0x101b…102e at000f = ╱35╱5╱ // 0x102a @0xf
0x101b…102e at0010 = ╱ef╱$╱ // 0x102b @0x10
0x101b…102e at0011 = ╱ee╱)╱ // 0x102c @0x11
0x101b…102e at0012 = EOL // 0x102d @0x12
0x101b…102e }
0x102e…1063 9dba 1460 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$)
0x102e…1063 LineComalBin {
0x102e…1063 ptr = 0x9dba // 0x102e @0x0
0x102e…1063 lno = 0x05b4 // 0x1030 @0x2
0x102e…1063 at0004 = ╱9d╱ EXEC ╱ // 0x1032 @0x4
0x102e…1063 at0005 = ╱46╱F╱ // 0x1033 @0x5
0x102e…1063 at0006 = ╱49╱I╱ // 0x1034 @0x6
0x102e…1063 at0007 = ╱4e╱N╱ // 0x1035 @0x7
0x102e…1063 at0008 = ╱44╱D╱ // 0x1036 @0x8
0x102e…1063 at0009 = ╱50╱P╱ // 0x1037 @0x9
0x102e…1063 at000a = ╱4f╱O╱ // 0x1038 @0xa
0x102e…1063 at000b = ╱53╱S╱ // 0x1039 @0xb
0x102e…1063 at000c = ╱54╱T╱ // 0x103a @0xc
0x102e…1063 at000d = ╱31╱1╱ // 0x103b @0xd
0x102e…1063 at000e = ╱ed╱(╱ // 0x103c @0xe
0x102e…1063 at000f = ╱44╱D╱ // 0x103d @0xf
0x102e…1063 at0010 = ╱54╱T╱ // 0x103e @0x10
0x102e…1063 at0011 = ╱41╱A╱ // 0x103f @0x11
0x102e…1063 at0012 = ╱42╱B╱ // 0x1040 @0x12
0x102e…1063 at0013 = ╱31╱1╱ // 0x1041 @0x13
0x102e…1063 at0014 = ╱ec╱,╱ // 0x1042 @0x14
0x102e…1063 at0015 = ╱44╱D╱ // 0x1043 @0x15
0x102e…1063 at0016 = ╱54╱T╱ // 0x1044 @0x16
0x102e…1063 at0017 = ╱41╱A╱ // 0x1045 @0x17
0x102e…1063 at0018 = ╱42╱B╱ // 0x1046 @0x18
0x102e…1063 at0019 = ╱ec╱,╱ // 0x1047 @0x19
0x102e…1063 at001a = ╱4d╱M╱ // 0x1048 @0x1a
0x102e…1063 at001b = ╱44╱D╱ // 0x1049 @0x1b
0x102e…1063 at001c = ╱41╱A╱ // 0x104a @0x1c
0x102e…1063 at001d = ╱4e╱N╱ // 0x104b @0x1d
0x102e…1063 at001e = ╱54╱T╱ // 0x104c @0x1e
0x102e…1063 at001f = ╱41╱A╱ // 0x104d @0x1f
0x102e…1063 at0020 = ╱4c╱L╱ // 0x104e @0x20
0x102e…1063 at0021 = ╱ec╱,╱ // 0x104f @0x21
0x102e…1063 at0022 = ╱4b╱K╱ // 0x1050 @0x22
0x102e…1063 at0023 = ╱55╱U╱ // 0x1051 @0x23
0x102e…1063 at0024 = ╱4e╱N╱ // 0x1052 @0x24
0x102e…1063 at0025 = ╱44╱D╱ // 0x1053 @0x25
0x102e…1063 at0026 = ╱45╱E╱ // 0x1054 @0x26
0x102e…1063 at0027 = ╱4e╱N╱ // 0x1055 @0x27
0x102e…1063 at0028 = ╱52╱R╱ // 0x1056 @0x28
0x102e…1063 at0029 = ╱ec╱,╱ // 0x1057 @0x29
0x102e…1063 at002a = ╱44╱D╱ // 0x1058 @0x2a
0x102e…1063 at002b = ╱50╱P╱ // 0x1059 @0x2b
0x102e…1063 at002c = ╱49╱I╱ // 0x105a @0x2c
0x102e…1063 at002d = ╱4c╱L╱ // 0x105b @0x2d
0x102e…1063 at002e = ╱33╱3╱ // 0x105c @0x2e
0x102e…1063 at002f = ╱ec╱,╱ // 0x105d @0x2f
0x102e…1063 at0030 = ╱4b╱K╱ // 0x105e @0x30
0x102e…1063 at0031 = ╱32╱2╱ // 0x105f @0x31
0x102e…1063 at0032 = ╱ef╱$╱ // 0x1060 @0x32
0x102e…1063 at0033 = ╱ee╱)╱ // 0x1061 @0x33
0x102e…1063 at0034 = EOL // 0x1062 @0x34
0x102e…1063 }
0x1063…107a 9dd1 1470 IF CEKS=B THEN EXEC HENTDPOST
0x1063…107a LineComalBin {
0x1063…107a ptr = 0x9dd1 // 0x1063 @0x0
0x1063…107a lno = 0x05be // 0x1065 @0x2
0x1063…107a at0004 = ╱82╱ IF ╱ // 0x1067 @0x4
0x1063…107a at0005 = ╱43╱C╱ // 0x1068 @0x5
0x1063…107a at0006 = ╱45╱E╱ // 0x1069 @0x6
0x1063…107a at0007 = ╱4b╱K╱ // 0x106a @0x7
0x1063…107a at0008 = ╱53╱S╱ // 0x106b @0x8
0x1063…107a at0009 = ╱dc╱=╱ // 0x106c @0x9
0x1063…107a at000a = ╱42╱B╱ // 0x106d @0xa
0x1063…107a at000b = ╱b6╱ THEN ╱ // 0x106e @0xb
0x1063…107a at000c = ╱9d╱ EXEC ╱ // 0x106f @0xc
0x1063…107a at000d = ╱48╱H╱ // 0x1070 @0xd
0x1063…107a at000e = ╱45╱E╱ // 0x1071 @0xe
0x1063…107a at000f = ╱4e╱N╱ // 0x1072 @0xf
0x1063…107a at0010 = ╱54╱T╱ // 0x1073 @0x10
0x1063…107a at0011 = ╱44╱D╱ // 0x1074 @0x11
0x1063…107a at0012 = ╱50╱P╱ // 0x1075 @0x12
0x1063…107a at0013 = ╱4f╱O╱ // 0x1076 @0x13
0x1063…107a at0014 = ╱53╱S╱ // 0x1077 @0x14
0x1063…107a at0015 = ╱54╱T╱ // 0x1078 @0x15
0x1063…107a at0016 = EOL // 0x1079 @0x16
0x1063…107a }
0x107a…108c 9de3 1480 EXEC DATOU(FDATO)
0x107a…108c LineComalBin {
0x107a…108c ptr = 0x9de3 // 0x107a @0x0
0x107a…108c lno = 0x05c8 // 0x107c @0x2
0x107a…108c at0004 = ╱9d╱ EXEC ╱ // 0x107e @0x4
0x107a…108c at0005 = ╱44╱D╱ // 0x107f @0x5
0x107a…108c at0006 = ╱41╱A╱ // 0x1080 @0x6
0x107a…108c at0007 = ╱54╱T╱ // 0x1081 @0x7
0x107a…108c at0008 = ╱4f╱O╱ // 0x1082 @0x8
0x107a…108c at0009 = ╱55╱U╱ // 0x1083 @0x9
0x107a…108c at000a = ╱ed╱(╱ // 0x1084 @0xa
0x107a…108c at000b = ╱46╱F╱ // 0x1085 @0xb
0x107a…108c at000c = ╱44╱D╱ // 0x1086 @0xc
0x107a…108c at000d = ╱41╱A╱ // 0x1087 @0xd
0x107a…108c at000e = ╱54╱T╱ // 0x1088 @0xe
0x107a…108c at000f = ╱4f╱O╱ // 0x1089 @0xf
0x107a…108c at0010 = ╱ee╱)╱ // 0x108a @0x10
0x107a…108c at0011 = EOL // 0x108b @0x11
0x107a…108c }
0x108c…109d 9df4 1490 PRINT TAB(12);
0x108c…109d LineComalBin {
0x108c…109d ptr = 0x9df4 // 0x108c @0x0
0x108c…109d lno = 0x05d2 // 0x108e @0x2
0x108c…109d at0004 = ╱92╱ PRINT ╱ // 0x1090 @0x4
0x108c…109d at0005 = ╱d2╱TAB╱ // 0x1091 @0x5
0x108c…109d at0006 = ╱ed╱(╱ // 0x1092 @0x6
0x108c…109d at0007 = ╱31╱1╱ // 0x1093 @0x7
0x108c…109d at0008 = ╱32╱2╱ // 0x1094 @0x8
0x108c…109d at0009 = ╱fe0000c004╱ // 0x1095 @0x9
0x108c…109d at000e = ╱ee╱)╱ // 0x109a @0xe
0x108c…109d at000f = ╱eb╱;╱ // 0x109b @0xf
0x108c…109d at0010 = EOL // 0x109c @0x10
0x108c…109d }
0x109d…10b7 9e0e 1500 PRINT USING "#######":BILAGSNR;
0x109d…10b7 LineComalBin {
0x109d…10b7 ptr = 0x9e0e // 0x109d @0x0
0x109d…10b7 lno = 0x05dc // 0x109f @0x2
0x109d…10b7 at0004 = ╱92╱ PRINT ╱ // 0x10a1 @0x4
0x109d…10b7 at0005 = ╱b9╱ USING ╱ // 0x10a2 @0x5
0x109d…10b7 at0006 = ╱22╱"╱ // 0x10a3 @0x6
0x109d…10b7 at0007 = ╱23╱#╱ // 0x10a4 @0x7
0x109d…10b7 at0008 = ╱23╱#╱ // 0x10a5 @0x8
0x109d…10b7 at0009 = ╱23╱#╱ // 0x10a6 @0x9
0x109d…10b7 at000a = ╱23╱#╱ // 0x10a7 @0xa
0x109d…10b7 at000b = ╱23╱#╱ // 0x10a8 @0xb
0x109d…10b7 at000c = ╱23╱#╱ // 0x10a9 @0xc
0x109d…10b7 at000d = ╱23╱#╱ // 0x10aa @0xd
0x109d…10b7 at000e = ╱22╱"╱ // 0x10ab @0xe
0x109d…10b7 at000f = ╱f0╱:╱ // 0x10ac @0xf
0x109d…10b7 at0010 = ╱42╱B╱ // 0x10ad @0x10
0x109d…10b7 at0011 = ╱49╱I╱ // 0x10ae @0x11
0x109d…10b7 at0012 = ╱4c╱L╱ // 0x10af @0x12
0x109d…10b7 at0013 = ╱41╱A╱ // 0x10b0 @0x13
0x109d…10b7 at0014 = ╱47╱G╱ // 0x10b1 @0x14
0x109d…10b7 at0015 = ╱53╱S╱ // 0x10b2 @0x15
0x109d…10b7 at0016 = ╱4e╱N╱ // 0x10b3 @0x16
0x109d…10b7 at0017 = ╱52╱R╱ // 0x10b4 @0x17
0x109d…10b7 at0018 = ╱eb╱;╱ // 0x10b5 @0x18
0x109d…10b7 at0019 = EOL // 0x10b6 @0x19
0x109d…10b7 }
0x10b7…10dc 9e33 1510 PRINT TAB(23);DEBNAVN$;TAB(50);
0x10b7…10dc LineComalBin {
0x10b7…10dc ptr = 0x9e33 // 0x10b7 @0x0
0x10b7…10dc lno = 0x05e6 // 0x10b9 @0x2
0x10b7…10dc at0004 = ╱92╱ PRINT ╱ // 0x10bb @0x4
0x10b7…10dc at0005 = ╱d2╱TAB╱ // 0x10bc @0x5
0x10b7…10dc at0006 = ╱ed╱(╱ // 0x10bd @0x6
0x10b7…10dc at0007 = ╱32╱2╱ // 0x10be @0x7
0x10b7…10dc at0008 = ╱33╱3╱ // 0x10bf @0x8
0x10b7…10dc at0009 = ╱fe0000b805╱ // 0x10c0 @0x9
0x10b7…10dc at000e = ╱ee╱)╱ // 0x10c5 @0xe
0x10b7…10dc at000f = ╱eb╱;╱ // 0x10c6 @0xf
0x10b7…10dc at0010 = ╱44╱D╱ // 0x10c7 @0x10
0x10b7…10dc at0011 = ╱45╱E╱ // 0x10c8 @0x11
0x10b7…10dc at0012 = ╱42╱B╱ // 0x10c9 @0x12
0x10b7…10dc at0013 = ╱4e╱N╱ // 0x10ca @0x13
0x10b7…10dc at0014 = ╱41╱A╱ // 0x10cb @0x14
0x10b7…10dc at0015 = ╱56╱V╱ // 0x10cc @0x15
0x10b7…10dc at0016 = ╱4e╱N╱ // 0x10cd @0x16
0x10b7…10dc at0017 = ╱ef╱$╱ // 0x10ce @0x17
0x10b7…10dc at0018 = ╱eb╱;╱ // 0x10cf @0x18
0x10b7…10dc at0019 = ╱d2╱TAB╱ // 0x10d0 @0x19
0x10b7…10dc at001a = ╱ed╱(╱ // 0x10d1 @0x1a
0x10b7…10dc at001b = ╱35╱5╱ // 0x10d2 @0x1b
0x10b7…10dc at001c = ╱30╱0╱ // 0x10d3 @0x1c
0x10b7…10dc at001d = ╱fe0000c806╱ // 0x10d4 @0x1d
0x10b7…10dc at0022 = ╱ee╱)╱ // 0x10d9 @0x22
0x10b7…10dc at0023 = ╱eb╱;╱ // 0x10da @0x23
0x10b7…10dc at0024 = EOL // 0x10db @0x24
0x10b7…10dc }
0x10dc…1105 9e5c 1520 PRINT USING "####### #######":KUNDENR,ORDRENR;
0x10dc…1105 LineComalBin {
0x10dc…1105 ptr = 0x9e5c // 0x10dc @0x0
0x10dc…1105 lno = 0x05f0 // 0x10de @0x2
0x10dc…1105 at0004 = ╱92╱ PRINT ╱ // 0x10e0 @0x4
0x10dc…1105 at0005 = ╱b9╱ USING ╱ // 0x10e1 @0x5
0x10dc…1105 at0006 = ╱22╱"╱ // 0x10e2 @0x6
0x10dc…1105 at0007 = ╱23╱#╱ // 0x10e3 @0x7
0x10dc…1105 at0008 = ╱23╱#╱ // 0x10e4 @0x8
0x10dc…1105 at0009 = ╱23╱#╱ // 0x10e5 @0x9
0x10dc…1105 at000a = ╱23╱#╱ // 0x10e6 @0xa
0x10dc…1105 at000b = ╱23╱#╱ // 0x10e7 @0xb
0x10dc…1105 at000c = ╱23╱#╱ // 0x10e8 @0xc
0x10dc…1105 at000d = ╱23╱#╱ // 0x10e9 @0xd
0x10dc…1105 at000e = ╱20╱…╱ // 0x10ea @0xe
0x10dc…1105 at000f = ╱23╱#╱ // 0x10eb @0xf
0x10dc…1105 at0010 = ╱23╱#╱ // 0x10ec @0x10
0x10dc…1105 at0011 = ╱23╱#╱ // 0x10ed @0x11
0x10dc…1105 at0012 = ╱23╱#╱ // 0x10ee @0x12
0x10dc…1105 at0013 = ╱23╱#╱ // 0x10ef @0x13
0x10dc…1105 at0014 = ╱23╱#╱ // 0x10f0 @0x14
0x10dc…1105 at0015 = ╱23╱#╱ // 0x10f1 @0x15
0x10dc…1105 at0016 = ╱22╱"╱ // 0x10f2 @0x16
0x10dc…1105 at0017 = ╱f0╱:╱ // 0x10f3 @0x17
0x10dc…1105 at0018 = ╱4b╱K╱ // 0x10f4 @0x18
0x10dc…1105 at0019 = ╱55╱U╱ // 0x10f5 @0x19
0x10dc…1105 at001a = ╱4e╱N╱ // 0x10f6 @0x1a
0x10dc…1105 at001b = ╱44╱D╱ // 0x10f7 @0x1b
0x10dc…1105 at001c = ╱45╱E╱ // 0x10f8 @0x1c
0x10dc…1105 at001d = ╱4e╱N╱ // 0x10f9 @0x1d
0x10dc…1105 at001e = ╱52╱R╱ // 0x10fa @0x1e
0x10dc…1105 at001f = ╱ec╱,╱ // 0x10fb @0x1f
0x10dc…1105 at0020 = ╱4f╱O╱ // 0x10fc @0x20
0x10dc…1105 at0021 = ╱52╱R╱ // 0x10fd @0x21
0x10dc…1105 at0022 = ╱44╱D╱ // 0x10fe @0x22
0x10dc…1105 at0023 = ╱52╱R╱ // 0x10ff @0x23
0x10dc…1105 at0024 = ╱45╱E╱ // 0x1100 @0x24
0x10dc…1105 at0025 = ╱4e╱N╱ // 0x1101 @0x25
0x10dc…1105 at0026 = ╱52╱R╱ // 0x1102 @0x26
0x10dc…1105 at0027 = ╱eb╱;╱ // 0x1103 @0x27
0x10dc…1105 at0028 = EOL // 0x1104 @0x28
0x10dc…1105 }
0x1105…1116 9e6d 1530 PRINT TAB(65);
0x1105…1116 LineComalBin {
0x1105…1116 ptr = 0x9e6d // 0x1105 @0x0
0x1105…1116 lno = 0x05fa // 0x1107 @0x2
0x1105…1116 at0004 = ╱92╱ PRINT ╱ // 0x1109 @0x4
0x1105…1116 at0005 = ╱d2╱TAB╱ // 0x110a @0x5
0x1105…1116 at0006 = ╱ed╱(╱ // 0x110b @0x6
0x1105…1116 at0007 = ╱36╱6╱ // 0x110c @0x7
0x1105…1116 at0008 = ╱35╱5╱ // 0x110d @0x8
0x1105…1116 at0009 = ╱fe00008207╱ // 0x110e @0x9
0x1105…1116 at000e = ╱ee╱)╱ // 0x1113 @0xe
0x1105…1116 at000f = ╱eb╱;╱ // 0x1114 @0xf
0x1105…1116 at0010 = EOL // 0x1115 @0x10
0x1105…1116 }
0x1116…1138 9e8f 1540 EXEC CALC(B,TOTAL$,BELØB$,TOTAL$)
0x1116…1138 LineComalBin {
0x1116…1138 ptr = 0x9e8f // 0x1116 @0x0
0x1116…1138 lno = 0x0604 // 0x1118 @0x2
0x1116…1138 at0004 = ╱9d╱ EXEC ╱ // 0x111a @0x4
0x1116…1138 at0005 = ╱43╱C╱ // 0x111b @0x5
0x1116…1138 at0006 = ╱41╱A╱ // 0x111c @0x6
0x1116…1138 at0007 = ╱4c╱L╱ // 0x111d @0x7
0x1116…1138 at0008 = ╱43╱C╱ // 0x111e @0x8
0x1116…1138 at0009 = ╱ed╱(╱ // 0x111f @0x9
0x1116…1138 at000a = ╱42╱B╱ // 0x1120 @0xa
0x1116…1138 at000b = ╱ec╱,╱ // 0x1121 @0xb
0x1116…1138 at000c = ╱54╱T╱ // 0x1122 @0xc
0x1116…1138 at000d = ╱4f╱O╱ // 0x1123 @0xd
0x1116…1138 at000e = ╱54╱T╱ // 0x1124 @0xe
0x1116…1138 at000f = ╱41╱A╱ // 0x1125 @0xf
0x1116…1138 at0010 = ╱4c╱L╱ // 0x1126 @0x10
0x1116…1138 at0011 = ╱ef╱$╱ // 0x1127 @0x11
0x1116…1138 at0012 = ╱ec╱,╱ // 0x1128 @0x12
0x1116…1138 at0013 = ╱42╱B╱ // 0x1129 @0x13
0x1116…1138 at0014 = ╱45╱E╱ // 0x112a @0x14
0x1116…1138 at0015 = ╱4c╱L╱ // 0x112b @0x15
0x1116…1138 at0016 = ╱5c╱Ø╱ // 0x112c @0x16
0x1116…1138 at0017 = ╱42╱B╱ // 0x112d @0x17
0x1116…1138 at0018 = ╱ef╱$╱ // 0x112e @0x18
0x1116…1138 at0019 = ╱ec╱,╱ // 0x112f @0x19
0x1116…1138 at001a = ╱54╱T╱ // 0x1130 @0x1a
0x1116…1138 at001b = ╱4f╱O╱ // 0x1131 @0x1b
0x1116…1138 at001c = ╱54╱T╱ // 0x1132 @0x1c
0x1116…1138 at001d = ╱41╱A╱ // 0x1133 @0x1d
0x1116…1138 at001e = ╱4c╱L╱ // 0x1134 @0x1e
0x1116…1138 at001f = ╱ef╱$╱ // 0x1135 @0x1f
0x1116…1138 at0020 = ╱ee╱)╱ // 0x1136 @0x20
0x1116…1138 at0021 = EOL // 0x1137 @0x21
0x1116…1138 }
0x1138…1153 9eaa 1550 EXEC TUD(BELØB$,TAL4$,E,B)
0x1138…1153 LineComalBin {
0x1138…1153 ptr = 0x9eaa // 0x1138 @0x0
0x1138…1153 lno = 0x060e // 0x113a @0x2
0x1138…1153 at0004 = ╱9d╱ EXEC ╱ // 0x113c @0x4
0x1138…1153 at0005 = ╱54╱T╱ // 0x113d @0x5
0x1138…1153 at0006 = ╱55╱U╱ // 0x113e @0x6
0x1138…1153 at0007 = ╱44╱D╱ // 0x113f @0x7
0x1138…1153 at0008 = ╱ed╱(╱ // 0x1140 @0x8
0x1138…1153 at0009 = ╱42╱B╱ // 0x1141 @0x9
0x1138…1153 at000a = ╱45╱E╱ // 0x1142 @0xa
0x1138…1153 at000b = ╱4c╱L╱ // 0x1143 @0xb
0x1138…1153 at000c = ╱5c╱Ø╱ // 0x1144 @0xc
0x1138…1153 at000d = ╱42╱B╱ // 0x1145 @0xd
0x1138…1153 at000e = ╱ef╱$╱ // 0x1146 @0xe
0x1138…1153 at000f = ╱ec╱,╱ // 0x1147 @0xf
0x1138…1153 at0010 = ╱54╱T╱ // 0x1148 @0x10
0x1138…1153 at0011 = ╱41╱A╱ // 0x1149 @0x11
0x1138…1153 at0012 = ╱4c╱L╱ // 0x114a @0x12
0x1138…1153 at0013 = ╱34╱4╱ // 0x114b @0x13
0x1138…1153 at0014 = ╱ef╱$╱ // 0x114c @0x14
0x1138…1153 at0015 = ╱ec╱,╱ // 0x114d @0x15
0x1138…1153 at0016 = ╱45╱E╱ // 0x114e @0x16
0x1138…1153 at0017 = ╱ec╱,╱ // 0x114f @0x17
0x1138…1153 at0018 = ╱42╱B╱ // 0x1150 @0x18
0x1138…1153 at0019 = ╱ee╱)╱ // 0x1151 @0x19
0x1138…1153 at001a = EOL // 0x1152 @0x1a
0x1138…1153 }
0x1153…115e 9eb5 1560 OPEN K4$,W
0x1153…115e LineComalBin {
0x1153…115e ptr = 0x9eb5 // 0x1153 @0x0
0x1153…115e lno = 0x0618 // 0x1155 @0x2
0x1153…115e at0004 = ╱a7╱ OPEN ╱ // 0x1157 @0x4
0x1153…115e at0005 = ╱4b╱K╱ // 0x1158 @0x5
0x1153…115e at0006 = ╱34╱4╱ // 0x1159 @0x6
0x1153…115e at0007 = ╱ef╱$╱ // 0x115a @0x7
0x1153…115e at0008 = ╱ec╱,╱ // 0x115b @0x8
0x1153…115e at0009 = ╱57╱W╱ // 0x115c @0x9
0x1153…115e at000a = EOL // 0x115d @0xa
0x1153…115e }
0x115e…1171 9ec8 1570 EXEC FEJL(G,V,K4$)
0x115e…1171 LineComalBin {
0x115e…1171 ptr = 0x9ec8 // 0x115e @0x0
0x115e…1171 lno = 0x0622 // 0x1160 @0x2
0x115e…1171 at0004 = ╱9d╱ EXEC ╱ // 0x1162 @0x4
0x115e…1171 at0005 = ╱46╱F╱ // 0x1163 @0x5
0x115e…1171 at0006 = ╱45╱E╱ // 0x1164 @0x6
0x115e…1171 at0007 = ╱4a╱J╱ // 0x1165 @0x7
0x115e…1171 at0008 = ╱4c╱L╱ // 0x1166 @0x8
0x115e…1171 at0009 = ╱ed╱(╱ // 0x1167 @0x9
0x115e…1171 at000a = ╱47╱G╱ // 0x1168 @0xa
0x115e…1171 at000b = ╱ec╱,╱ // 0x1169 @0xb
0x115e…1171 at000c = ╱56╱V╱ // 0x116a @0xc
0x115e…1171 at000d = ╱ec╱,╱ // 0x116b @0xd
0x115e…1171 at000e = ╱4b╱K╱ // 0x116c @0xe
0x115e…1171 at000f = ╱34╱4╱ // 0x116d @0xf
0x115e…1171 at0010 = ╱ef╱$╱ // 0x116e @0x10
0x115e…1171 at0011 = ╱ee╱)╱ // 0x116f @0x11
0x115e…1171 at0012 = EOL // 0x1170 @0x12
0x115e…1171 }
0x1171…118b 9ee2 1580 IF BELØB$(12)="+" THEN
0x1171…118b LineComalBin {
0x1171…118b ptr = 0x9ee2 // 0x1171 @0x0
0x1171…118b lno = 0x062c // 0x1173 @0x2
0x1171…118b at0004 = ╱9c╱ IF ╱ // 0x1175 @0x4
0x1171…118b at0005 = ╱42╱B╱ // 0x1176 @0x5
0x1171…118b at0006 = ╱45╱E╱ // 0x1177 @0x6
0x1171…118b at0007 = ╱4c╱L╱ // 0x1178 @0x7
0x1171…118b at0008 = ╱5c╱Ø╱ // 0x1179 @0x8
0x1171…118b at0009 = ╱42╱B╱ // 0x117a @0x9
0x1171…118b at000a = ╱ef╱$╱ // 0x117b @0xa
0x1171…118b at000b = ╱ed╱(╱ // 0x117c @0xb
0x1171…118b at000c = ╱31╱1╱ // 0x117d @0xc
0x1171…118b at000d = ╱32╱2╱ // 0x117e @0xd
0x1171…118b at000e = ╱fe0000c004╱ // 0x117f @0xe
0x1171…118b at0013 = ╱ee╱)╱ // 0x1184 @0x13
0x1171…118b at0014 = ╱dc╱=╱ // 0x1185 @0x14
0x1171…118b at0015 = ╱22╱"╱ // 0x1186 @0x15
0x1171…118b at0016 = ╱2b╱+╱ // 0x1187 @0x16
0x1171…118b at0017 = ╱22╱"╱ // 0x1188 @0x17
0x1171…118b at0018 = ╱b6╱ THEN ╱ // 0x1189 @0x18
0x1171…118b at0019 = EOL // 0x118a @0x19
0x1171…118b }
0x118b…119d 9ef4 1590 TKODE=21
0x118b…119d LineComalBin {
0x118b…119d ptr = 0x9ef4 // 0x118b @0x0
0x118b…119d lno = 0x0636 // 0x118d @0x2
0x118b…119d at0004 = ╱54╱T╱ // 0x118f @0x4
0x118b…119d at0005 = ╱4b╱K╱ // 0x1190 @0x5
0x118b…119d at0006 = ╱4f╱O╱ // 0x1191 @0x6
0x118b…119d at0007 = ╱44╱D╱ // 0x1192 @0x7
0x118b…119d at0008 = ╱45╱E╱ // 0x1193 @0x8
0x118b…119d at0009 = ╱dc╱=╱ // 0x1194 @0x9
0x118b…119d at000a = ╱32╱2╱ // 0x1195 @0xa
0x118b…119d at000b = ╱31╱1╱ // 0x1196 @0xb
0x118b…119d at000c = ╱fe0000a805╱ // 0x1197 @0xc
0x118b…119d at0011 = EOL // 0x119c @0x11
0x118b…119d }
0x119d…11a3 9efa 1600 ELSE
0x119d…11a3 LineComalBin {
0x119d…11a3 ptr = 0x9efa // 0x119d @0x0
0x119d…11a3 lno = 0x0640 // 0x119f @0x2
0x119d…11a3 at0004 = ╱9a╱ ELSE ╱ // 0x11a1 @0x4
0x119d…11a3 at0005 = EOL // 0x11a2 @0x5
0x119d…11a3 }
0x11a3…11b5 9f0c 1610 TKODE=22
0x11a3…11b5 LineComalBin {
0x11a3…11b5 ptr = 0x9f0c // 0x11a3 @0x0
0x11a3…11b5 lno = 0x064a // 0x11a5 @0x2
0x11a3…11b5 at0004 = ╱54╱T╱ // 0x11a7 @0x4
0x11a3…11b5 at0005 = ╱4b╱K╱ // 0x11a8 @0x5
0x11a3…11b5 at0006 = ╱4f╱O╱ // 0x11a9 @0x6
0x11a3…11b5 at0007 = ╱44╱D╱ // 0x11aa @0x7
0x11a3…11b5 at0008 = ╱45╱E╱ // 0x11ab @0x8
0x11a3…11b5 at0009 = ╱dc╱=╱ // 0x11ac @0x9
0x11a3…11b5 at000a = ╱32╱2╱ // 0x11ad @0xa
0x11a3…11b5 at000b = ╱32╱2╱ // 0x11ae @0xb
0x11a3…11b5 at000c = ╱fe0000b005╱ // 0x11af @0xc
0x11a3…11b5 at0011 = EOL // 0x11b4 @0x11
0x11a3…11b5 }
0x11b5…11bb 9f12 1620 ENDIF
0x11b5…11bb LineComalBin {
0x11b5…11bb ptr = 0x9f12 // 0x11b5 @0x0
0x11b5…11bb lno = 0x0654 // 0x11b7 @0x2
0x11b5…11bb at0004 = ╱9b╱ ENDIF ╱ // 0x11b9 @0x4
0x11b5…11bb at0005 = EOL // 0x11ba @0x5
0x11b5…11bb }
0x11bb…11f5 9f4c 1630 FAKPOSTNR=FAKPOSTNR+E;TEKO$=CHR(48+TKODE);TK1$="3"
0x11bb…11f5 LineComalBin {
0x11bb…11f5 ptr = 0x9f4c // 0x11bb @0x0
0x11bb…11f5 lno = 0x065e // 0x11bd @0x2
0x11bb…11f5 at0004 = ╱46╱F╱ // 0x11bf @0x4
0x11bb…11f5 at0005 = ╱41╱A╱ // 0x11c0 @0x5
0x11bb…11f5 at0006 = ╱4b╱K╱ // 0x11c1 @0x6
0x11bb…11f5 at0007 = ╱50╱P╱ // 0x11c2 @0x7
0x11bb…11f5 at0008 = ╱4f╱O╱ // 0x11c3 @0x8
0x11bb…11f5 at0009 = ╱53╱S╱ // 0x11c4 @0x9
0x11bb…11f5 at000a = ╱54╱T╱ // 0x11c5 @0xa
0x11bb…11f5 at000b = ╱4e╱N╱ // 0x11c6 @0xb
0x11bb…11f5 at000c = ╱52╱R╱ // 0x11c7 @0xc
0x11bb…11f5 at000d = ╱dc╱=╱ // 0x11c8 @0xd
0x11bb…11f5 at000e = ╱46╱F╱ // 0x11c9 @0xe
0x11bb…11f5 at000f = ╱41╱A╱ // 0x11ca @0xf
0x11bb…11f5 at0010 = ╱4b╱K╱ // 0x11cb @0x10
0x11bb…11f5 at0011 = ╱50╱P╱ // 0x11cc @0x11
0x11bb…11f5 at0012 = ╱4f╱O╱ // 0x11cd @0x12
0x11bb…11f5 at0013 = ╱53╱S╱ // 0x11ce @0x13
0x11bb…11f5 at0014 = ╱54╱T╱ // 0x11cf @0x14
0x11bb…11f5 at0015 = ╱4e╱N╱ // 0x11d0 @0x15
0x11bb…11f5 at0016 = ╱52╱R╱ // 0x11d1 @0x16
0x11bb…11f5 at0017 = ╱e2╱+╱ // 0x11d2 @0x17
0x11bb…11f5 at0018 = ╱45╱E╱ // 0x11d3 @0x18
0x11bb…11f5 at0019 = ╱eb╱;╱ // 0x11d4 @0x19
0x11bb…11f5 at001a = ╱54╱T╱ // 0x11d5 @0x1a
0x11bb…11f5 at001b = ╱45╱E╱ // 0x11d6 @0x1b
0x11bb…11f5 at001c = ╱4b╱K╱ // 0x11d7 @0x1c
0x11bb…11f5 at001d = ╱4f╱O╱ // 0x11d8 @0x1d
0x11bb…11f5 at001e = ╱ef╱$╱ // 0x11d9 @0x1e
0x11bb…11f5 at001f = ╱dc╱=╱ // 0x11da @0x1f
0x11bb…11f5 at0020 = ╱cf╱CHR╱ // 0x11db @0x20
0x11bb…11f5 at0021 = ╱ed╱(╱ // 0x11dc @0x21
0x11bb…11f5 at0022 = ╱34╱4╱ // 0x11dd @0x22
0x11bb…11f5 at0023 = ╱38╱8╱ // 0x11de @0x23
0x11bb…11f5 at0024 = ╱fe0000c006╱ // 0x11df @0x24
0x11bb…11f5 at0029 = ╱e2╱+╱ // 0x11e4 @0x29
0x11bb…11f5 at002a = ╱54╱T╱ // 0x11e5 @0x2a
0x11bb…11f5 at002b = ╱4b╱K╱ // 0x11e6 @0x2b
0x11bb…11f5 at002c = ╱4f╱O╱ // 0x11e7 @0x2c
0x11bb…11f5 at002d = ╱44╱D╱ // 0x11e8 @0x2d
0x11bb…11f5 at002e = ╱45╱E╱ // 0x11e9 @0x2e
0x11bb…11f5 at002f = ╱ee╱)╱ // 0x11ea @0x2f
0x11bb…11f5 at0030 = ╱eb╱;╱ // 0x11eb @0x30
0x11bb…11f5 at0031 = ╱54╱T╱ // 0x11ec @0x31
0x11bb…11f5 at0032 = ╱4b╱K╱ // 0x11ed @0x32
0x11bb…11f5 at0033 = ╱31╱1╱ // 0x11ee @0x33
0x11bb…11f5 at0034 = ╱ef╱$╱ // 0x11ef @0x34
0x11bb…11f5 at0035 = ╱dc╱=╱ // 0x11f0 @0x35
0x11bb…11f5 at0036 = ╱22╱"╱ // 0x11f1 @0x36
0x11bb…11f5 at0037 = ╱33╱3╱ // 0x11f2 @0x37
0x11bb…11f5 at0038 = ╱22╱"╱ // 0x11f3 @0x38
0x11bb…11f5 at0039 = EOL // 0x11f4 @0x39
0x11bb…11f5 }
0x11f5…123e 9f95 1640 PUT K4$,FAKPOSTNR:KUNDENR,FDATO,BILAGSNR,TEKO$,BELØB$,TK1$,1000000
0x11f5…123e LineComalBin {
0x11f5…123e ptr = 0x9f95 // 0x11f5 @0x0
0x11f5…123e lno = 0x0668 // 0x11f7 @0x2
0x11f5…123e at0004 = ╱aa╱ PUT ╱ // 0x11f9 @0x4
0x11f5…123e at0005 = ╱4b╱K╱ // 0x11fa @0x5
0x11f5…123e at0006 = ╱34╱4╱ // 0x11fb @0x6
0x11f5…123e at0007 = ╱ef╱$╱ // 0x11fc @0x7
0x11f5…123e at0008 = ╱ec╱,╱ // 0x11fd @0x8
0x11f5…123e at0009 = ╱46╱F╱ // 0x11fe @0x9
0x11f5…123e at000a = ╱41╱A╱ // 0x11ff @0xa
0x11f5…123e at000b = ╱4b╱K╱ // 0x1200 @0xb
0x11f5…123e at000c = ╱50╱P╱ // 0x1201 @0xc
0x11f5…123e at000d = ╱4f╱O╱ // 0x1202 @0xd
0x11f5…123e at000e = ╱53╱S╱ // 0x1203 @0xe
0x11f5…123e at000f = ╱54╱T╱ // 0x1204 @0xf
0x11f5…123e at0010 = ╱4e╱N╱ // 0x1205 @0x10
0x11f5…123e at0011 = ╱52╱R╱ // 0x1206 @0x11
0x11f5…123e at0012 = ╱f0╱:╱ // 0x1207 @0x12
0x11f5…123e at0013 = ╱4b╱K╱ // 0x1208 @0x13
0x11f5…123e at0014 = ╱55╱U╱ // 0x1209 @0x14
0x11f5…123e at0015 = ╱4e╱N╱ // 0x120a @0x15
0x11f5…123e at0016 = ╱44╱D╱ // 0x120b @0x16
0x11f5…123e at0017 = ╱45╱E╱ // 0x120c @0x17
0x11f5…123e at0018 = ╱4e╱N╱ // 0x120d @0x18
0x11f5…123e at0019 = ╱52╱R╱ // 0x120e @0x19
0x11f5…123e at001a = ╱ec╱,╱ // 0x120f @0x1a
0x11f5…123e at001b = ╱46╱F╱ // 0x1210 @0x1b
0x11f5…123e at001c = ╱44╱D╱ // 0x1211 @0x1c
0x11f5…123e at001d = ╱41╱A╱ // 0x1212 @0x1d
0x11f5…123e at001e = ╱54╱T╱ // 0x1213 @0x1e
0x11f5…123e at001f = ╱4f╱O╱ // 0x1214 @0x1f
0x11f5…123e at0020 = ╱ec╱,╱ // 0x1215 @0x20
0x11f5…123e at0021 = ╱42╱B╱ // 0x1216 @0x21
0x11f5…123e at0022 = ╱49╱I╱ // 0x1217 @0x22
0x11f5…123e at0023 = ╱4c╱L╱ // 0x1218 @0x23
0x11f5…123e at0024 = ╱41╱A╱ // 0x1219 @0x24
0x11f5…123e at0025 = ╱47╱G╱ // 0x121a @0x25
0x11f5…123e at0026 = ╱53╱S╱ // 0x121b @0x26
0x11f5…123e at0027 = ╱4e╱N╱ // 0x121c @0x27
0x11f5…123e at0028 = ╱52╱R╱ // 0x121d @0x28
0x11f5…123e at0029 = ╱ec╱,╱ // 0x121e @0x29
0x11f5…123e at002a = ╱54╱T╱ // 0x121f @0x2a
0x11f5…123e at002b = ╱45╱E╱ // 0x1220 @0x2b
0x11f5…123e at002c = ╱4b╱K╱ // 0x1221 @0x2c
0x11f5…123e at002d = ╱4f╱O╱ // 0x1222 @0x2d
0x11f5…123e at002e = ╱ef╱$╱ // 0x1223 @0x2e
0x11f5…123e at002f = ╱ec╱,╱ // 0x1224 @0x2f
0x11f5…123e at0030 = ╱42╱B╱ // 0x1225 @0x30
0x11f5…123e at0031 = ╱45╱E╱ // 0x1226 @0x31
0x11f5…123e at0032 = ╱4c╱L╱ // 0x1227 @0x32
0x11f5…123e at0033 = ╱5c╱Ø╱ // 0x1228 @0x33
0x11f5…123e at0034 = ╱42╱B╱ // 0x1229 @0x34
0x11f5…123e at0035 = ╱ef╱$╱ // 0x122a @0x35
0x11f5…123e at0036 = ╱ec╱,╱ // 0x122b @0x36
0x11f5…123e at0037 = ╱54╱T╱ // 0x122c @0x37
0x11f5…123e at0038 = ╱4b╱K╱ // 0x122d @0x38
0x11f5…123e at0039 = ╱31╱1╱ // 0x122e @0x39
0x11f5…123e at003a = ╱ef╱$╱ // 0x122f @0x3a
0x11f5…123e at003b = ╱ec╱,╱ // 0x1230 @0x3b
0x11f5…123e at003c = ╱31╱1╱ // 0x1231 @0x3c
0x11f5…123e at003d = ╱30╱0╱ // 0x1232 @0x3d
0x11f5…123e at003e = ╱30╱0╱ // 0x1233 @0x3e
0x11f5…123e at003f = ╱30╱0╱ // 0x1234 @0x3f
0x11f5…123e at0040 = ╱30╱0╱ // 0x1235 @0x40
0x11f5…123e at0041 = ╱30╱0╱ // 0x1236 @0x41
0x11f5…123e at0042 = ╱30╱0╱ // 0x1237 @0x42
0x11f5…123e at0043 = ╱fe0024f414╱ // 0x1238 @0x43
0x11f5…123e at0048 = EOL // 0x123d @0x48
0x11f5…123e }
0x123e…1256 9fad 1650 EXEC FEJL(G,4,K4$)
0x123e…1256 LineComalBin {
0x123e…1256 ptr = 0x9fad // 0x123e @0x0
0x123e…1256 lno = 0x0672 // 0x1240 @0x2
0x123e…1256 at0004 = ╱9d╱ EXEC ╱ // 0x1242 @0x4
0x123e…1256 at0005 = ╱46╱F╱ // 0x1243 @0x5
0x123e…1256 at0006 = ╱45╱E╱ // 0x1244 @0x6
0x123e…1256 at0007 = ╱4a╱J╱ // 0x1245 @0x7
0x123e…1256 at0008 = ╱4c╱L╱ // 0x1246 @0x8
0x123e…1256 at0009 = ╱ed╱(╱ // 0x1247 @0x9
0x123e…1256 at000a = ╱47╱G╱ // 0x1248 @0xa
0x123e…1256 at000b = ╱ec╱,╱ // 0x1249 @0xb
0x123e…1256 at000c = ╱34╱4╱ // 0x124a @0xc
0x123e…1256 at000d = ╱fe00008003╱ // 0x124b @0xd
0x123e…1256 at0012 = ╱ec╱,╱ // 0x1250 @0x12
0x123e…1256 at0013 = ╱4b╱K╱ // 0x1251 @0x13
0x123e…1256 at0014 = ╱34╱4╱ // 0x1252 @0x14
0x123e…1256 at0015 = ╱ef╱$╱ // 0x1253 @0x15
0x123e…1256 at0016 = ╱ee╱)╱ // 0x1254 @0x16
0x123e…1256 at0017 = EOL // 0x1255 @0x17
0x123e…1256 }
0x1256…125f 9fb6 1660 CLOSE K4$
0x1256…125f LineComalBin {
0x1256…125f ptr = 0x9fb6 // 0x1256 @0x0
0x1256…125f lno = 0x067c // 0x1258 @0x2
0x1256…125f at0004 = ╱a8╱ CLOSE ╱ // 0x125a @0x4
0x1256…125f at0005 = ╱4b╱K╱ // 0x125b @0x5
0x1256…125f at0006 = ╱34╱4╱ // 0x125c @0x6
0x1256…125f at0007 = ╱ef╱$╱ // 0x125d @0x7
0x1256…125f at0008 = EOL // 0x125e @0x8
0x1256…125f }
0x125f…1277 9fce 1670 EXEC FEJL(G,5,K4$)
0x125f…1277 LineComalBin {
0x125f…1277 ptr = 0x9fce // 0x125f @0x0
0x125f…1277 lno = 0x0686 // 0x1261 @0x2
0x125f…1277 at0004 = ╱9d╱ EXEC ╱ // 0x1263 @0x4
0x125f…1277 at0005 = ╱46╱F╱ // 0x1264 @0x5
0x125f…1277 at0006 = ╱45╱E╱ // 0x1265 @0x6
0x125f…1277 at0007 = ╱4a╱J╱ // 0x1266 @0x7
0x125f…1277 at0008 = ╱4c╱L╱ // 0x1267 @0x8
0x125f…1277 at0009 = ╱ed╱(╱ // 0x1268 @0x9
0x125f…1277 at000a = ╱47╱G╱ // 0x1269 @0xa
0x125f…1277 at000b = ╱ec╱,╱ // 0x126a @0xb
0x125f…1277 at000c = ╱35╱5╱ // 0x126b @0xc
0x125f…1277 at000d = ╱fe0000a003╱ // 0x126c @0xd
0x125f…1277 at0012 = ╱ec╱,╱ // 0x1271 @0x12
0x125f…1277 at0013 = ╱4b╱K╱ // 0x1272 @0x13
0x125f…1277 at0014 = ╱34╱4╱ // 0x1273 @0x14
0x125f…1277 at0015 = ╱ef╱$╱ // 0x1274 @0x15
0x125f…1277 at0016 = ╱ee╱)╱ // 0x1275 @0x16
0x125f…1277 at0017 = EOL // 0x1276 @0x17
0x125f…1277 }
0x1277…127e 9fd5 1680 NEXT I
0x1277…127e LineComalBin {
0x1277…127e ptr = 0x9fd5 // 0x1277 @0x0
0x1277…127e lno = 0x0690 // 0x1279 @0x2
0x1277…127e at0004 = ╱84╱ NEXT ╱ // 0x127b @0x4
0x1277…127e at0005 = ╱49╱I╱ // 0x127c @0x5
0x1277…127e at0006 = EOL // 0x127d @0x6
0x1277…127e }
0x127e…12a2 9ff9 1690 PRINT TAB(26);"TOTAL";TAB(64);
0x127e…12a2 LineComalBin {
0x127e…12a2 ptr = 0x9ff9 // 0x127e @0x0
0x127e…12a2 lno = 0x069a // 0x1280 @0x2
0x127e…12a2 at0004 = ╱92╱ PRINT ╱ // 0x1282 @0x4
0x127e…12a2 at0005 = ╱d2╱TAB╱ // 0x1283 @0x5
0x127e…12a2 at0006 = ╱ed╱(╱ // 0x1284 @0x6
0x127e…12a2 at0007 = ╱32╱2╱ // 0x1285 @0x7
0x127e…12a2 at0008 = ╱36╱6╱ // 0x1286 @0x8
0x127e…12a2 at0009 = ╱fe0000d005╱ // 0x1287 @0x9
0x127e…12a2 at000e = ╱ee╱)╱ // 0x128c @0xe
0x127e…12a2 at000f = ╱eb╱;╱ // 0x128d @0xf
0x127e…12a2 at0010 = ╱22╱"╱ // 0x128e @0x10
0x127e…12a2 at0011 = ╱54╱T╱ // 0x128f @0x11
0x127e…12a2 at0012 = ╱4f╱O╱ // 0x1290 @0x12
0x127e…12a2 at0013 = ╱54╱T╱ // 0x1291 @0x13
0x127e…12a2 at0014 = ╱41╱A╱ // 0x1292 @0x14
0x127e…12a2 at0015 = ╱4c╱L╱ // 0x1293 @0x15
0x127e…12a2 at0016 = ╱22╱"╱ // 0x1294 @0x16
0x127e…12a2 at0017 = ╱eb╱;╱ // 0x1295 @0x17
0x127e…12a2 at0018 = ╱d2╱TAB╱ // 0x1296 @0x18
0x127e…12a2 at0019 = ╱ed╱(╱ // 0x1297 @0x19
0x127e…12a2 at001a = ╱36╱6╱ // 0x1298 @0x1a
0x127e…12a2 at001b = ╱34╱4╱ // 0x1299 @0x1b
0x127e…12a2 at001c = ╱fe00008007╱ // 0x129a @0x1c
0x127e…12a2 at0021 = ╱ee╱)╱ // 0x129f @0x21
0x127e…12a2 at0022 = ╱eb╱;╱ // 0x12a0 @0x22
0x127e…12a2 at0023 = EOL // 0x12a1 @0x23
0x127e…12a2 }
0x12a2…12bd a014 1700 EXEC TUD(TOTAL$,TAL4$,E,B)
0x12a2…12bd LineComalBin {
0x12a2…12bd ptr = 0xa014 // 0x12a2 @0x0
0x12a2…12bd lno = 0x06a4 // 0x12a4 @0x2
0x12a2…12bd at0004 = ╱9d╱ EXEC ╱ // 0x12a6 @0x4
0x12a2…12bd at0005 = ╱54╱T╱ // 0x12a7 @0x5
0x12a2…12bd at0006 = ╱55╱U╱ // 0x12a8 @0x6
0x12a2…12bd at0007 = ╱44╱D╱ // 0x12a9 @0x7
0x12a2…12bd at0008 = ╱ed╱(╱ // 0x12aa @0x8
0x12a2…12bd at0009 = ╱54╱T╱ // 0x12ab @0x9
0x12a2…12bd at000a = ╱4f╱O╱ // 0x12ac @0xa
0x12a2…12bd at000b = ╱54╱T╱ // 0x12ad @0xb
0x12a2…12bd at000c = ╱41╱A╱ // 0x12ae @0xc
0x12a2…12bd at000d = ╱4c╱L╱ // 0x12af @0xd
0x12a2…12bd at000e = ╱ef╱$╱ // 0x12b0 @0xe
0x12a2…12bd at000f = ╱ec╱,╱ // 0x12b1 @0xf
0x12a2…12bd at0010 = ╱54╱T╱ // 0x12b2 @0x10
0x12a2…12bd at0011 = ╱41╱A╱ // 0x12b3 @0x11
0x12a2…12bd at0012 = ╱4c╱L╱ // 0x12b4 @0x12
0x12a2…12bd at0013 = ╱34╱4╱ // 0x12b5 @0x13
0x12a2…12bd at0014 = ╱ef╱$╱ // 0x12b6 @0x14
0x12a2…12bd at0015 = ╱ec╱,╱ // 0x12b7 @0x15
0x12a2…12bd at0016 = ╱45╱E╱ // 0x12b8 @0x16
0x12a2…12bd at0017 = ╱ec╱,╱ // 0x12b9 @0x17
0x12a2…12bd at0018 = ╱42╱B╱ // 0x12ba @0x18
0x12a2…12bd at0019 = ╱ee╱)╱ // 0x12bb @0x19
0x12a2…12bd at001a = EOL // 0x12bc @0x1a
0x12a2…12bd }
0x12bd…12d2 a029 1705 IF FJPOST<40 THEN
0x12bd…12d2 LineComalBin {
0x12bd…12d2 ptr = 0xa029 // 0x12bd @0x0
0x12bd…12d2 lno = 0x06a9 // 0x12bf @0x2
0x12bd…12d2 at0004 = ╱9c╱ IF ╱ // 0x12c1 @0x4
0x12bd…12d2 at0005 = ╱46╱F╱ // 0x12c2 @0x5
0x12bd…12d2 at0006 = ╱4a╱J╱ // 0x12c3 @0x6
0x12bd…12d2 at0007 = ╱50╱P╱ // 0x12c4 @0x7
0x12bd…12d2 at0008 = ╱4f╱O╱ // 0x12c5 @0x8
0x12bd…12d2 at0009 = ╱53╱S╱ // 0x12c6 @0x9
0x12bd…12d2 at000a = ╱54╱T╱ // 0x12c7 @0xa
0x12bd…12d2 at000b = ╱dd╱<╱ // 0x12c8 @0xb
0x12bd…12d2 at000c = ╱34╱4╱ // 0x12c9 @0xc
0x12bd…12d2 at000d = ╱30╱0╱ // 0x12ca @0xd
0x12bd…12d2 at000e = ╱fe0000a006╱ // 0x12cb @0xe
0x12bd…12d2 at0013 = ╱b6╱ THEN ╱ // 0x12d0 @0x13
0x12bd…12d2 at0014 = EOL // 0x12d1 @0x14
0x12bd…12d2 }
0x12d2…12f1 a048 1710 FOR I=E TO 48-FJPOST-7
0x12d2…12f1 LineComalBin {
0x12d2…12f1 ptr = 0xa048 // 0x12d2 @0x0
0x12d2…12f1 lno = 0x06ae // 0x12d4 @0x2
0x12d2…12f1 at0004 = ╱83╱ FOR ╱ // 0x12d6 @0x4
0x12d2…12f1 at0005 = ╱49╱I╱ // 0x12d7 @0x5
0x12d2…12f1 at0006 = ╱dc╱=╱ // 0x12d8 @0x6
0x12d2…12f1 at0007 = ╱45╱E╱ // 0x12d9 @0x7
0x12d2…12f1 at0008 = ╱b7╱ TO ╱ // 0x12da @0x8
0x12d2…12f1 at0009 = ╱34╱4╱ // 0x12db @0x9
0x12d2…12f1 at000a = ╱38╱8╱ // 0x12dc @0xa
0x12d2…12f1 at000b = ╱fe0000c006╱ // 0x12dd @0xb
0x12d2…12f1 at0010 = ╱e3╱-╱ // 0x12e2 @0x10
0x12d2…12f1 at0011 = ╱46╱F╱ // 0x12e3 @0x11
0x12d2…12f1 at0012 = ╱4a╱J╱ // 0x12e4 @0x12
0x12d2…12f1 at0013 = ╱50╱P╱ // 0x12e5 @0x13
0x12d2…12f1 at0014 = ╱4f╱O╱ // 0x12e6 @0x14
0x12d2…12f1 at0015 = ╱53╱S╱ // 0x12e7 @0x15
0x12d2…12f1 at0016 = ╱54╱T╱ // 0x12e8 @0x16
0x12d2…12f1 at0017 = ╱e3╱-╱ // 0x12e9 @0x17
0x12d2…12f1 at0018 = ╱37╱7╱ // 0x12ea @0x18
0x12d2…12f1 at0019 = ╱fe0000e003╱ // 0x12eb @0x19
0x12d2…12f1 at001e = EOL // 0x12f0 @0x1e
0x12d2…12f1 }
0x12f1…12fa a051 1720 PRINT " "
0x12f1…12fa LineComalBin {
0x12f1…12fa ptr = 0xa051 // 0x12f1 @0x0
0x12f1…12fa lno = 0x06b8 // 0x12f3 @0x2
0x12f1…12fa at0004 = ╱92╱ PRINT ╱ // 0x12f5 @0x4
0x12f1…12fa at0005 = ╱22╱"╱ // 0x12f6 @0x5
0x12f1…12fa at0006 = ╱20╱…╱ // 0x12f7 @0x6
0x12f1…12fa at0007 = ╱22╱"╱ // 0x12f8 @0x7
0x12f1…12fa at0008 = EOL // 0x12f9 @0x8
0x12f1…12fa }
0x12fa…1301 a058 1730 NEXT I
0x12fa…1301 LineComalBin {
0x12fa…1301 ptr = 0xa058 // 0x12fa @0x0
0x12fa…1301 lno = 0x06c2 // 0x12fc @0x2
0x12fa…1301 at0004 = ╱84╱ NEXT ╱ // 0x12fe @0x4
0x12fa…1301 at0005 = ╱49╱I╱ // 0x12ff @0x5
0x12fa…1301 at0006 = EOL // 0x1300 @0x6
0x12fa…1301 }
0x1301…1307 a05e 1731 ELSE
0x1301…1307 LineComalBin {
0x1301…1307 ptr = 0xa05e // 0x1301 @0x0
0x1301…1307 lno = 0x06c3 // 0x1303 @0x2
0x1301…1307 at0004 = ╱9a╱ ELSE ╱ // 0x1305 @0x4
0x1301…1307 at0005 = EOL // 0x1306 @0x5
0x1301…1307 }
0x1307…131f a076 1732 FOR I=E TO 80-FJPOST
0x1307…131f LineComalBin {
0x1307…131f ptr = 0xa076 // 0x1307 @0x0
0x1307…131f lno = 0x06c4 // 0x1309 @0x2
0x1307…131f at0004 = ╱83╱ FOR ╱ // 0x130b @0x4
0x1307…131f at0005 = ╱49╱I╱ // 0x130c @0x5
0x1307…131f at0006 = ╱dc╱=╱ // 0x130d @0x6
0x1307…131f at0007 = ╱45╱E╱ // 0x130e @0x7
0x1307…131f at0008 = ╱b7╱ TO ╱ // 0x130f @0x8
0x1307…131f at0009 = ╱38╱8╱ // 0x1310 @0x9
0x1307…131f at000a = ╱30╱0╱ // 0x1311 @0xa
0x1307…131f at000b = ╱fe0000a007╱ // 0x1312 @0xb
0x1307…131f at0010 = ╱e3╱-╱ // 0x1317 @0x10
0x1307…131f at0011 = ╱46╱F╱ // 0x1318 @0x11
0x1307…131f at0012 = ╱4a╱J╱ // 0x1319 @0x12
0x1307…131f at0013 = ╱50╱P╱ // 0x131a @0x13
0x1307…131f at0014 = ╱4f╱O╱ // 0x131b @0x14
0x1307…131f at0015 = ╱53╱S╱ // 0x131c @0x15
0x1307…131f at0016 = ╱54╱T╱ // 0x131d @0x16
0x1307…131f at0017 = EOL // 0x131e @0x17
0x1307…131f }
0x131f…1328 a07f 1733 PRINT " "
0x131f…1328 LineComalBin {
0x131f…1328 ptr = 0xa07f // 0x131f @0x0
0x131f…1328 lno = 0x06c5 // 0x1321 @0x2
0x131f…1328 at0004 = ╱92╱ PRINT ╱ // 0x1323 @0x4
0x131f…1328 at0005 = ╱22╱"╱ // 0x1324 @0x5
0x131f…1328 at0006 = ╱20╱…╱ // 0x1325 @0x6
0x131f…1328 at0007 = ╱22╱"╱ // 0x1326 @0x7
0x131f…1328 at0008 = EOL // 0x1327 @0x8
0x131f…1328 }
0x1328…132f a086 1734 NEXT I
0x1328…132f LineComalBin {
0x1328…132f ptr = 0xa086 // 0x1328 @0x0
0x1328…132f lno = 0x06c6 // 0x132a @0x2
0x1328…132f at0004 = ╱84╱ NEXT ╱ // 0x132c @0x4
0x1328…132f at0005 = ╱49╱I╱ // 0x132d @0x5
0x1328…132f at0006 = EOL // 0x132e @0x6
0x1328…132f }
0x132f…1335 a08c 1735 ENDIF
0x132f…1335 LineComalBin {
0x132f…1335 ptr = 0xa08c // 0x132f @0x0
0x132f…1335 lno = 0x06c7 // 0x1331 @0x2
0x132f…1335 at0004 = ╱9b╱ ENDIF ╱ // 0x1333 @0x4
0x132f…1335 at0005 = EOL // 0x1334 @0x5
0x132f…1335 }
0x1335…133e a095 1740 CLOSE K5$
0x1335…133e LineComalBin {
0x1335…133e ptr = 0xa095 // 0x1335 @0x0
0x1335…133e lno = 0x06cc // 0x1337 @0x2
0x1335…133e at0004 = ╱a8╱ CLOSE ╱ // 0x1339 @0x4
0x1335…133e at0005 = ╱4b╱K╱ // 0x133a @0x5
0x1335…133e at0006 = ╱35╱5╱ // 0x133b @0x6
0x1335…133e at0007 = ╱ef╱$╱ // 0x133c @0x7
0x1335…133e at0008 = EOL // 0x133d @0x8
0x1335…133e }
0x133e…1356 a0ad 1750 EXEC FEJL(G,6,K5$)
0x133e…1356 LineComalBin {
0x133e…1356 ptr = 0xa0ad // 0x133e @0x0
0x133e…1356 lno = 0x06d6 // 0x1340 @0x2
0x133e…1356 at0004 = ╱9d╱ EXEC ╱ // 0x1342 @0x4
0x133e…1356 at0005 = ╱46╱F╱ // 0x1343 @0x5
0x133e…1356 at0006 = ╱45╱E╱ // 0x1344 @0x6
0x133e…1356 at0007 = ╱4a╱J╱ // 0x1345 @0x7
0x133e…1356 at0008 = ╱4c╱L╱ // 0x1346 @0x8
0x133e…1356 at0009 = ╱ed╱(╱ // 0x1347 @0x9
0x133e…1356 at000a = ╱47╱G╱ // 0x1348 @0xa
0x133e…1356 at000b = ╱ec╱,╱ // 0x1349 @0xb
0x133e…1356 at000c = ╱36╱6╱ // 0x134a @0xc
0x133e…1356 at000d = ╱fe0000c003╱ // 0x134b @0xd
0x133e…1356 at0012 = ╱ec╱,╱ // 0x1350 @0x12
0x133e…1356 at0013 = ╱4b╱K╱ // 0x1351 @0x13
0x133e…1356 at0014 = ╱35╱5╱ // 0x1352 @0x14
0x133e…1356 at0015 = ╱ef╱$╱ // 0x1353 @0x15
0x133e…1356 at0016 = ╱ee╱)╱ // 0x1354 @0x16
0x133e…1356 at0017 = EOL // 0x1355 @0x17
0x133e…1356 }
0x1356…1363 a0ba 1760 FJPOST=B
0x1356…1363 LineComalBin {
0x1356…1363 ptr = 0xa0ba // 0x1356 @0x0
0x1356…1363 lno = 0x06e0 // 0x1358 @0x2
0x1356…1363 at0004 = ╱46╱F╱ // 0x135a @0x4
0x1356…1363 at0005 = ╱4a╱J╱ // 0x135b @0x5
0x1356…1363 at0006 = ╱50╱P╱ // 0x135c @0x6
0x1356…1363 at0007 = ╱4f╱O╱ // 0x135d @0x7
0x1356…1363 at0008 = ╱53╱S╱ // 0x135e @0x8
0x1356…1363 at0009 = ╱54╱T╱ // 0x135f @0x9
0x1356…1363 at000a = ╱dc╱=╱ // 0x1360 @0xa
0x1356…1363 at000b = ╱42╱B╱ // 0x1361 @0xb
0x1356…1363 at000c = EOL // 0x1362 @0xc
0x1356…1363 }
0x1363…136e a0c5 1770 OPEN K6$,R
0x1363…136e LineComalBin {
0x1363…136e ptr = 0xa0c5 // 0x1363 @0x0
0x1363…136e lno = 0x06ea // 0x1365 @0x2
0x1363…136e at0004 = ╱a7╱ OPEN ╱ // 0x1367 @0x4
0x1363…136e at0005 = ╱4b╱K╱ // 0x1368 @0x5
0x1363…136e at0006 = ╱36╱6╱ // 0x1369 @0x6
0x1363…136e at0007 = ╱ef╱$╱ // 0x136a @0x7
0x1363…136e at0008 = ╱ec╱,╱ // 0x136b @0x8
0x1363…136e at0009 = ╱52╱R╱ // 0x136c @0x9
0x1363…136e at000a = EOL // 0x136d @0xa
0x1363…136e }
0x136e…1386 a0dd 1780 EXEC FEJL(G,7,K6$)
0x136e…1386 LineComalBin {
0x136e…1386 ptr = 0xa0dd // 0x136e @0x0
0x136e…1386 lno = 0x06f4 // 0x1370 @0x2
0x136e…1386 at0004 = ╱9d╱ EXEC ╱ // 0x1372 @0x4
0x136e…1386 at0005 = ╱46╱F╱ // 0x1373 @0x5
0x136e…1386 at0006 = ╱45╱E╱ // 0x1374 @0x6
0x136e…1386 at0007 = ╱4a╱J╱ // 0x1375 @0x7
0x136e…1386 at0008 = ╱4c╱L╱ // 0x1376 @0x8
0x136e…1386 at0009 = ╱ed╱(╱ // 0x1377 @0x9
0x136e…1386 at000a = ╱47╱G╱ // 0x1378 @0xa
0x136e…1386 at000b = ╱ec╱,╱ // 0x1379 @0xb
0x136e…1386 at000c = ╱37╱7╱ // 0x137a @0xc
0x136e…1386 at000d = ╱fe0000e003╱ // 0x137b @0xd
0x136e…1386 at0012 = ╱ec╱,╱ // 0x1380 @0x12
0x136e…1386 at0013 = ╱4b╱K╱ // 0x1381 @0x13
0x136e…1386 at0014 = ╱36╱6╱ // 0x1382 @0x14
0x136e…1386 at0015 = ╱ef╱$╱ // 0x1383 @0x15
0x136e…1386 at0016 = ╱ee╱)╱ // 0x1384 @0x16
0x136e…1386 at0017 = EOL // 0x1385 @0x17
0x136e…1386 }
0x1386…1397 a0ee 1790 FOR I=E TO AVKONTI
0x1386…1397 LineComalBin {
0x1386…1397 ptr = 0xa0ee // 0x1386 @0x0
0x1386…1397 lno = 0x06fe // 0x1388 @0x2
0x1386…1397 at0004 = ╱83╱ FOR ╱ // 0x138a @0x4
0x1386…1397 at0005 = ╱49╱I╱ // 0x138b @0x5
0x1386…1397 at0006 = ╱dc╱=╱ // 0x138c @0x6
0x1386…1397 at0007 = ╱45╱E╱ // 0x138d @0x7
0x1386…1397 at0008 = ╱b7╱ TO ╱ // 0x138e @0x8
0x1386…1397 at0009 = ╱41╱A╱ // 0x138f @0x9
0x1386…1397 at000a = ╱56╱V╱ // 0x1390 @0xa
0x1386…1397 at000b = ╱4b╱K╱ // 0x1391 @0xb
0x1386…1397 at000c = ╱4f╱O╱ // 0x1392 @0xc
0x1386…1397 at000d = ╱4e╱N╱ // 0x1393 @0xd
0x1386…1397 at000e = ╱54╱T╱ // 0x1394 @0xe
0x1386…1397 at000f = ╱49╱I╱ // 0x1395 @0xf
0x1386…1397 at0010 = EOL // 0x1396 @0x10
0x1386…1397 }
0x1397…13c8 a11f 1800 GET K6$,I:VJOURARR(I),VBJOUARR$(I),VUJOURARR(I)
0x1397…13c8 LineComalBin {
0x1397…13c8 ptr = 0xa11f // 0x1397 @0x0
0x1397…13c8 lno = 0x0708 // 0x1399 @0x2
0x1397…13c8 at0004 = ╱a9╱ GET ╱ // 0x139b @0x4
0x1397…13c8 at0005 = ╱4b╱K╱ // 0x139c @0x5
0x1397…13c8 at0006 = ╱36╱6╱ // 0x139d @0x6
0x1397…13c8 at0007 = ╱ef╱$╱ // 0x139e @0x7
0x1397…13c8 at0008 = ╱ec╱,╱ // 0x139f @0x8
0x1397…13c8 at0009 = ╱49╱I╱ // 0x13a0 @0x9
0x1397…13c8 at000a = ╱f0╱:╱ // 0x13a1 @0xa
0x1397…13c8 at000b = ╱56╱V╱ // 0x13a2 @0xb
0x1397…13c8 at000c = ╱4a╱J╱ // 0x13a3 @0xc
0x1397…13c8 at000d = ╱4f╱O╱ // 0x13a4 @0xd
0x1397…13c8 at000e = ╱55╱U╱ // 0x13a5 @0xe
0x1397…13c8 at000f = ╱52╱R╱ // 0x13a6 @0xf
0x1397…13c8 at0010 = ╱41╱A╱ // 0x13a7 @0x10
0x1397…13c8 at0011 = ╱52╱R╱ // 0x13a8 @0x11
0x1397…13c8 at0012 = ╱52╱R╱ // 0x13a9 @0x12
0x1397…13c8 at0013 = ╱ed╱(╱ // 0x13aa @0x13
0x1397…13c8 at0014 = ╱49╱I╱ // 0x13ab @0x14
0x1397…13c8 at0015 = ╱ee╱)╱ // 0x13ac @0x15
0x1397…13c8 at0016 = ╱ec╱,╱ // 0x13ad @0x16
0x1397…13c8 at0017 = ╱56╱V╱ // 0x13ae @0x17
0x1397…13c8 at0018 = ╱42╱B╱ // 0x13af @0x18
0x1397…13c8 at0019 = ╱4a╱J╱ // 0x13b0 @0x19
0x1397…13c8 at001a = ╱4f╱O╱ // 0x13b1 @0x1a
0x1397…13c8 at001b = ╱55╱U╱ // 0x13b2 @0x1b
0x1397…13c8 at001c = ╱41╱A╱ // 0x13b3 @0x1c
0x1397…13c8 at001d = ╱52╱R╱ // 0x13b4 @0x1d
0x1397…13c8 at001e = ╱52╱R╱ // 0x13b5 @0x1e
0x1397…13c8 at001f = ╱ef╱$╱ // 0x13b6 @0x1f
0x1397…13c8 at0020 = ╱ed╱(╱ // 0x13b7 @0x20
0x1397…13c8 at0021 = ╱49╱I╱ // 0x13b8 @0x21
0x1397…13c8 at0022 = ╱ee╱)╱ // 0x13b9 @0x22
0x1397…13c8 at0023 = ╱ec╱,╱ // 0x13ba @0x23
0x1397…13c8 at0024 = ╱56╱V╱ // 0x13bb @0x24
0x1397…13c8 at0025 = ╱55╱U╱ // 0x13bc @0x25
0x1397…13c8 at0026 = ╱4a╱J╱ // 0x13bd @0x26
0x1397…13c8 at0027 = ╱4f╱O╱ // 0x13be @0x27
0x1397…13c8 at0028 = ╱55╱U╱ // 0x13bf @0x28
0x1397…13c8 at0029 = ╱52╱R╱ // 0x13c0 @0x29
0x1397…13c8 at002a = ╱41╱A╱ // 0x13c1 @0x2a
0x1397…13c8 at002b = ╱52╱R╱ // 0x13c2 @0x2b
0x1397…13c8 at002c = ╱52╱R╱ // 0x13c3 @0x2c
0x1397…13c8 at002d = ╱ed╱(╱ // 0x13c4 @0x2d
0x1397…13c8 at002e = ╱49╱I╱ // 0x13c5 @0x2e
0x1397…13c8 at002f = ╱ee╱)╱ // 0x13c6 @0x2f
0x1397…13c8 at0030 = EOL // 0x13c7 @0x30
0x1397…13c8 }
0x13c8…13e0 a137 1810 EXEC FEJL(G,8,K6$)
0x13c8…13e0 LineComalBin {
0x13c8…13e0 ptr = 0xa137 // 0x13c8 @0x0
0x13c8…13e0 lno = 0x0712 // 0x13ca @0x2
0x13c8…13e0 at0004 = ╱9d╱ EXEC ╱ // 0x13cc @0x4
0x13c8…13e0 at0005 = ╱46╱F╱ // 0x13cd @0x5
0x13c8…13e0 at0006 = ╱45╱E╱ // 0x13ce @0x6
0x13c8…13e0 at0007 = ╱4a╱J╱ // 0x13cf @0x7
0x13c8…13e0 at0008 = ╱4c╱L╱ // 0x13d0 @0x8
0x13c8…13e0 at0009 = ╱ed╱(╱ // 0x13d1 @0x9
0x13c8…13e0 at000a = ╱47╱G╱ // 0x13d2 @0xa
0x13c8…13e0 at000b = ╱ec╱,╱ // 0x13d3 @0xb
0x13c8…13e0 at000c = ╱38╱8╱ // 0x13d4 @0xc
0x13c8…13e0 at000d = ╱fe00008004╱ // 0x13d5 @0xd
0x13c8…13e0 at0012 = ╱ec╱,╱ // 0x13da @0x12
0x13c8…13e0 at0013 = ╱4b╱K╱ // 0x13db @0x13
0x13c8…13e0 at0014 = ╱36╱6╱ // 0x13dc @0x14
0x13c8…13e0 at0015 = ╱ef╱$╱ // 0x13dd @0x15
0x13c8…13e0 at0016 = ╱ee╱)╱ // 0x13de @0x16
0x13c8…13e0 at0017 = EOL // 0x13df @0x17
0x13c8…13e0 }
0x13e0…13e7 a13e 1820 NEXT I
0x13e0…13e7 LineComalBin {
0x13e0…13e7 ptr = 0xa13e // 0x13e0 @0x0
0x13e0…13e7 lno = 0x071c // 0x13e2 @0x2
0x13e0…13e7 at0004 = ╱84╱ NEXT ╱ // 0x13e4 @0x4
0x13e0…13e7 at0005 = ╱49╱I╱ // 0x13e5 @0x5
0x13e0…13e7 at0006 = EOL // 0x13e6 @0x6
0x13e0…13e7 }
0x13e7…13f0 a147 1830 CLOSE K6$
0x13e7…13f0 LineComalBin {
0x13e7…13f0 ptr = 0xa147 // 0x13e7 @0x0
0x13e7…13f0 lno = 0x0726 // 0x13e9 @0x2
0x13e7…13f0 at0004 = ╱a8╱ CLOSE ╱ // 0x13eb @0x4
0x13e7…13f0 at0005 = ╱4b╱K╱ // 0x13ec @0x5
0x13e7…13f0 at0006 = ╱36╱6╱ // 0x13ed @0x6
0x13e7…13f0 at0007 = ╱ef╱$╱ // 0x13ee @0x7
0x13e7…13f0 at0008 = EOL // 0x13ef @0x8
0x13e7…13f0 }
0x13f0…1403 a15a 1840 EXEC FEJL(G,W,K6$)
0x13f0…1403 LineComalBin {
0x13f0…1403 ptr = 0xa15a // 0x13f0 @0x0
0x13f0…1403 lno = 0x0730 // 0x13f2 @0x2
0x13f0…1403 at0004 = ╱9d╱ EXEC ╱ // 0x13f4 @0x4
0x13f0…1403 at0005 = ╱46╱F╱ // 0x13f5 @0x5
0x13f0…1403 at0006 = ╱45╱E╱ // 0x13f6 @0x6
0x13f0…1403 at0007 = ╱4a╱J╱ // 0x13f7 @0x7
0x13f0…1403 at0008 = ╱4c╱L╱ // 0x13f8 @0x8
0x13f0…1403 at0009 = ╱ed╱(╱ // 0x13f9 @0x9
0x13f0…1403 at000a = ╱47╱G╱ // 0x13fa @0xa
0x13f0…1403 at000b = ╱ec╱,╱ // 0x13fb @0xb
0x13f0…1403 at000c = ╱57╱W╱ // 0x13fc @0xc
0x13f0…1403 at000d = ╱ec╱,╱ // 0x13fd @0xd
0x13f0…1403 at000e = ╱4b╱K╱ // 0x13fe @0xe
0x13f0…1403 at000f = ╱36╱6╱ // 0x13ff @0xf
0x13f0…1403 at0010 = ╱ef╱$╱ // 0x1400 @0x10
0x13f0…1403 at0011 = ╱ee╱)╱ // 0x1401 @0x11
0x13f0…1403 at0012 = EOL // 0x1402 @0x12
0x13f0…1403 }
0x1403…1418 a16f 1850 TEKO$=CHR(75)
0x1403…1418 LineComalBin {
0x1403…1418 ptr = 0xa16f // 0x1403 @0x0
0x1403…1418 lno = 0x073a // 0x1405 @0x2
0x1403…1418 at0004 = ╱54╱T╱ // 0x1407 @0x4
0x1403…1418 at0005 = ╱45╱E╱ // 0x1408 @0x5
0x1403…1418 at0006 = ╱4b╱K╱ // 0x1409 @0x6
0x1403…1418 at0007 = ╱4f╱O╱ // 0x140a @0x7
0x1403…1418 at0008 = ╱ef╱$╱ // 0x140b @0x8
0x1403…1418 at0009 = ╱dc╱=╱ // 0x140c @0x9
0x1403…1418 at000a = ╱cf╱CHR╱ // 0x140d @0xa
0x1403…1418 at000b = ╱ed╱(╱ // 0x140e @0xb
0x1403…1418 at000c = ╱37╱7╱ // 0x140f @0xc
0x1403…1418 at000d = ╱35╱5╱ // 0x1410 @0xd
0x1403…1418 at000e = ╱fe00009607╱ // 0x1411 @0xe
0x1403…1418 at0013 = ╱ee╱)╱ // 0x1416 @0x13
0x1403…1418 at0014 = EOL // 0x1417 @0x14
0x1403…1418 }
0x1418…141f a176 1860 OUTPUT T
0x1418…141f LineComalBin {
0x1418…141f ptr = 0xa176 // 0x1418 @0x0
0x1418…141f lno = 0x0744 // 0x141a @0x2
0x1418…141f at0004 = ╱a5╱ OUTPUT ╱ // 0x141c @0x4
0x1418…141f at0005 = ╱54╱T╱ // 0x141d @0x5
0x1418…141f at0006 = EOL // 0x141e @0x6
0x1418…141f }
0x141f…142a a181 1870 OPEN K4$,W
0x141f…142a LineComalBin {
0x141f…142a ptr = 0xa181 // 0x141f @0x0
0x141f…142a lno = 0x074e // 0x1421 @0x2
0x141f…142a at0004 = ╱a7╱ OPEN ╱ // 0x1423 @0x4
0x141f…142a at0005 = ╱4b╱K╱ // 0x1424 @0x5
0x141f…142a at0006 = ╱34╱4╱ // 0x1425 @0x6
0x141f…142a at0007 = ╱ef╱$╱ // 0x1426 @0x7
0x141f…142a at0008 = ╱ec╱,╱ // 0x1427 @0x8
0x141f…142a at0009 = ╱57╱W╱ // 0x1428 @0x9
0x141f…142a at000a = EOL // 0x1429 @0xa
0x141f…142a }
0x142a…1443 a19a 1880 EXEC FEJL(G,10,K4$)
0x142a…1443 LineComalBin {
0x142a…1443 ptr = 0xa19a // 0x142a @0x0
0x142a…1443 lno = 0x0758 // 0x142c @0x2
0x142a…1443 at0004 = ╱9d╱ EXEC ╱ // 0x142e @0x4
0x142a…1443 at0005 = ╱46╱F╱ // 0x142f @0x5
0x142a…1443 at0006 = ╱45╱E╱ // 0x1430 @0x6
0x142a…1443 at0007 = ╱4a╱J╱ // 0x1431 @0x7
0x142a…1443 at0008 = ╱4c╱L╱ // 0x1432 @0x8
0x142a…1443 at0009 = ╱ed╱(╱ // 0x1433 @0x9
0x142a…1443 at000a = ╱47╱G╱ // 0x1434 @0xa
0x142a…1443 at000b = ╱ec╱,╱ // 0x1435 @0xb
0x142a…1443 at000c = ╱31╱1╱ // 0x1436 @0xc
0x142a…1443 at000d = ╱30╱0╱ // 0x1437 @0xd
0x142a…1443 at000e = ╱fe0000a004╱ // 0x1438 @0xe
0x142a…1443 at0013 = ╱ec╱,╱ // 0x143d @0x13
0x142a…1443 at0014 = ╱4b╱K╱ // 0x143e @0x14
0x142a…1443 at0015 = ╱34╱4╱ // 0x143f @0x15
0x142a…1443 at0016 = ╱ef╱$╱ // 0x1440 @0x16
0x142a…1443 at0017 = ╱ee╱)╱ // 0x1441 @0x17
0x142a…1443 at0018 = EOL // 0x1442 @0x18
0x142a…1443 }
0x1443…1454 a1ab 1890 FOR I=E TO AVKONTI
0x1443…1454 LineComalBin {
0x1443…1454 ptr = 0xa1ab // 0x1443 @0x0
0x1443…1454 lno = 0x0762 // 0x1445 @0x2
0x1443…1454 at0004 = ╱83╱ FOR ╱ // 0x1447 @0x4
0x1443…1454 at0005 = ╱49╱I╱ // 0x1448 @0x5
0x1443…1454 at0006 = ╱dc╱=╱ // 0x1449 @0x6
0x1443…1454 at0007 = ╱45╱E╱ // 0x144a @0x7
0x1443…1454 at0008 = ╱b7╱ TO ╱ // 0x144b @0x8
0x1443…1454 at0009 = ╱41╱A╱ // 0x144c @0x9
0x1443…1454 at000a = ╱56╱V╱ // 0x144d @0xa
0x1443…1454 at000b = ╱4b╱K╱ // 0x144e @0xb
0x1443…1454 at000c = ╱4f╱O╱ // 0x144f @0xc
0x1443…1454 at000d = ╱4e╱N╱ // 0x1450 @0xd
0x1443…1454 at000e = ╱54╱T╱ // 0x1451 @0xe
0x1443…1454 at000f = ╱49╱I╱ // 0x1452 @0xf
0x1443…1454 at0010 = EOL // 0x1453 @0x10
0x1443…1454 }
0x1454…1490 a1e7 1900 FAKPOSTNR=FAKPOSTNR+E;TK1$="3";ENR=VUJOURARR(I);DO=DATO
0x1454…1490 LineComalBin {
0x1454…1490 ptr = 0xa1e7 // 0x1454 @0x0
0x1454…1490 lno = 0x076c // 0x1456 @0x2
0x1454…1490 at0004 = ╱46╱F╱ // 0x1458 @0x4
0x1454…1490 at0005 = ╱41╱A╱ // 0x1459 @0x5
0x1454…1490 at0006 = ╱4b╱K╱ // 0x145a @0x6
0x1454…1490 at0007 = ╱50╱P╱ // 0x145b @0x7
0x1454…1490 at0008 = ╱4f╱O╱ // 0x145c @0x8
0x1454…1490 at0009 = ╱53╱S╱ // 0x145d @0x9
0x1454…1490 at000a = ╱54╱T╱ // 0x145e @0xa
0x1454…1490 at000b = ╱4e╱N╱ // 0x145f @0xb
0x1454…1490 at000c = ╱52╱R╱ // 0x1460 @0xc
0x1454…1490 at000d = ╱dc╱=╱ // 0x1461 @0xd
0x1454…1490 at000e = ╱46╱F╱ // 0x1462 @0xe
0x1454…1490 at000f = ╱41╱A╱ // 0x1463 @0xf
0x1454…1490 at0010 = ╱4b╱K╱ // 0x1464 @0x10
0x1454…1490 at0011 = ╱50╱P╱ // 0x1465 @0x11
0x1454…1490 at0012 = ╱4f╱O╱ // 0x1466 @0x12
0x1454…1490 at0013 = ╱53╱S╱ // 0x1467 @0x13
0x1454…1490 at0014 = ╱54╱T╱ // 0x1468 @0x14
0x1454…1490 at0015 = ╱4e╱N╱ // 0x1469 @0x15
0x1454…1490 at0016 = ╱52╱R╱ // 0x146a @0x16
0x1454…1490 at0017 = ╱e2╱+╱ // 0x146b @0x17
0x1454…1490 at0018 = ╱45╱E╱ // 0x146c @0x18
0x1454…1490 at0019 = ╱eb╱;╱ // 0x146d @0x19
0x1454…1490 at001a = ╱54╱T╱ // 0x146e @0x1a
0x1454…1490 at001b = ╱4b╱K╱ // 0x146f @0x1b
0x1454…1490 at001c = ╱31╱1╱ // 0x1470 @0x1c
0x1454…1490 at001d = ╱ef╱$╱ // 0x1471 @0x1d
0x1454…1490 at001e = ╱dc╱=╱ // 0x1472 @0x1e
0x1454…1490 at001f = ╱22╱"╱ // 0x1473 @0x1f
0x1454…1490 at0020 = ╱33╱3╱ // 0x1474 @0x20
0x1454…1490 at0021 = ╱22╱"╱ // 0x1475 @0x21
0x1454…1490 at0022 = ╱eb╱;╱ // 0x1476 @0x22
0x1454…1490 at0023 = ╱45╱E╱ // 0x1477 @0x23
0x1454…1490 at0024 = ╱4e╱N╱ // 0x1478 @0x24
0x1454…1490 at0025 = ╱52╱R╱ // 0x1479 @0x25
0x1454…1490 at0026 = ╱dc╱=╱ // 0x147a @0x26
0x1454…1490 at0027 = ╱56╱V╱ // 0x147b @0x27
0x1454…1490 at0028 = ╱55╱U╱ // 0x147c @0x28
0x1454…1490 at0029 = ╱4a╱J╱ // 0x147d @0x29
0x1454…1490 at002a = ╱4f╱O╱ // 0x147e @0x2a
0x1454…1490 at002b = ╱55╱U╱ // 0x147f @0x2b
0x1454…1490 at002c = ╱52╱R╱ // 0x1480 @0x2c
0x1454…1490 at002d = ╱41╱A╱ // 0x1481 @0x2d
0x1454…1490 at002e = ╱52╱R╱ // 0x1482 @0x2e
0x1454…1490 at002f = ╱52╱R╱ // 0x1483 @0x2f
0x1454…1490 at0030 = ╱ed╱(╱ // 0x1484 @0x30
0x1454…1490 at0031 = ╱49╱I╱ // 0x1485 @0x31
0x1454…1490 at0032 = ╱ee╱)╱ // 0x1486 @0x32
0x1454…1490 at0033 = ╱eb╱;╱ // 0x1487 @0x33
0x1454…1490 at0034 = ╱44╱D╱ // 0x1488 @0x34
0x1454…1490 at0035 = ╱4f╱O╱ // 0x1489 @0x35
0x1454…1490 at0036 = ╱dc╱=╱ // 0x148a @0x36
0x1454…1490 at0037 = ╱44╱D╱ // 0x148b @0x37
0x1454…1490 at0038 = ╱41╱A╱ // 0x148c @0x38
0x1454…1490 at0039 = ╱54╱T╱ // 0x148d @0x39
0x1454…1490 at003a = ╱4f╱O╱ // 0x148e @0x3a
0x1454…1490 at003b = EOL // 0x148f @0x3b
0x1454…1490 }
0x1490…14d9 a230 1910 PUT K4$,FAKPOSTNR:VJOURARR(I),DO,JOURSIDE-E,TEKO$,VBJOUARR$(I),TK1$,ENR
0x1490…14d9 LineComalBin {
0x1490…14d9 ptr = 0xa230 // 0x1490 @0x0
0x1490…14d9 lno = 0x0776 // 0x1492 @0x2
0x1490…14d9 at0004 = ╱aa╱ PUT ╱ // 0x1494 @0x4
0x1490…14d9 at0005 = ╱4b╱K╱ // 0x1495 @0x5
0x1490…14d9 at0006 = ╱34╱4╱ // 0x1496 @0x6
0x1490…14d9 at0007 = ╱ef╱$╱ // 0x1497 @0x7
0x1490…14d9 at0008 = ╱ec╱,╱ // 0x1498 @0x8
0x1490…14d9 at0009 = ╱46╱F╱ // 0x1499 @0x9
0x1490…14d9 at000a = ╱41╱A╱ // 0x149a @0xa
0x1490…14d9 at000b = ╱4b╱K╱ // 0x149b @0xb
0x1490…14d9 at000c = ╱50╱P╱ // 0x149c @0xc
0x1490…14d9 at000d = ╱4f╱O╱ // 0x149d @0xd
0x1490…14d9 at000e = ╱53╱S╱ // 0x149e @0xe
0x1490…14d9 at000f = ╱54╱T╱ // 0x149f @0xf
0x1490…14d9 at0010 = ╱4e╱N╱ // 0x14a0 @0x10
0x1490…14d9 at0011 = ╱52╱R╱ // 0x14a1 @0x11
0x1490…14d9 at0012 = ╱f0╱:╱ // 0x14a2 @0x12
0x1490…14d9 at0013 = ╱56╱V╱ // 0x14a3 @0x13
0x1490…14d9 at0014 = ╱4a╱J╱ // 0x14a4 @0x14
0x1490…14d9 at0015 = ╱4f╱O╱ // 0x14a5 @0x15
0x1490…14d9 at0016 = ╱55╱U╱ // 0x14a6 @0x16
0x1490…14d9 at0017 = ╱52╱R╱ // 0x14a7 @0x17
0x1490…14d9 at0018 = ╱41╱A╱ // 0x14a8 @0x18
0x1490…14d9 at0019 = ╱52╱R╱ // 0x14a9 @0x19
0x1490…14d9 at001a = ╱52╱R╱ // 0x14aa @0x1a
0x1490…14d9 at001b = ╱ed╱(╱ // 0x14ab @0x1b
0x1490…14d9 at001c = ╱49╱I╱ // 0x14ac @0x1c
0x1490…14d9 at001d = ╱ee╱)╱ // 0x14ad @0x1d
0x1490…14d9 at001e = ╱ec╱,╱ // 0x14ae @0x1e
0x1490…14d9 at001f = ╱44╱D╱ // 0x14af @0x1f
0x1490…14d9 at0020 = ╱4f╱O╱ // 0x14b0 @0x20
0x1490…14d9 at0021 = ╱ec╱,╱ // 0x14b1 @0x21
0x1490…14d9 at0022 = ╱4a╱J╱ // 0x14b2 @0x22
0x1490…14d9 at0023 = ╱4f╱O╱ // 0x14b3 @0x23
0x1490…14d9 at0024 = ╱55╱U╱ // 0x14b4 @0x24
0x1490…14d9 at0025 = ╱52╱R╱ // 0x14b5 @0x25
0x1490…14d9 at0026 = ╱53╱S╱ // 0x14b6 @0x26
0x1490…14d9 at0027 = ╱49╱I╱ // 0x14b7 @0x27
0x1490…14d9 at0028 = ╱44╱D╱ // 0x14b8 @0x28
0x1490…14d9 at0029 = ╱45╱E╱ // 0x14b9 @0x29
0x1490…14d9 at002a = ╱e3╱-╱ // 0x14ba @0x2a
0x1490…14d9 at002b = ╱45╱E╱ // 0x14bb @0x2b
0x1490…14d9 at002c = ╱ec╱,╱ // 0x14bc @0x2c
0x1490…14d9 at002d = ╱54╱T╱ // 0x14bd @0x2d
0x1490…14d9 at002e = ╱45╱E╱ // 0x14be @0x2e
0x1490…14d9 at002f = ╱4b╱K╱ // 0x14bf @0x2f
0x1490…14d9 at0030 = ╱4f╱O╱ // 0x14c0 @0x30
0x1490…14d9 at0031 = ╱ef╱$╱ // 0x14c1 @0x31
0x1490…14d9 at0032 = ╱ec╱,╱ // 0x14c2 @0x32
0x1490…14d9 at0033 = ╱56╱V╱ // 0x14c3 @0x33
0x1490…14d9 at0034 = ╱42╱B╱ // 0x14c4 @0x34
0x1490…14d9 at0035 = ╱4a╱J╱ // 0x14c5 @0x35
0x1490…14d9 at0036 = ╱4f╱O╱ // 0x14c6 @0x36
0x1490…14d9 at0037 = ╱55╱U╱ // 0x14c7 @0x37
0x1490…14d9 at0038 = ╱41╱A╱ // 0x14c8 @0x38
0x1490…14d9 at0039 = ╱52╱R╱ // 0x14c9 @0x39
0x1490…14d9 at003a = ╱52╱R╱ // 0x14ca @0x3a
0x1490…14d9 at003b = ╱ef╱$╱ // 0x14cb @0x3b
0x1490…14d9 at003c = ╱ed╱(╱ // 0x14cc @0x3c
0x1490…14d9 at003d = ╱49╱I╱ // 0x14cd @0x3d
0x1490…14d9 at003e = ╱ee╱)╱ // 0x14ce @0x3e
0x1490…14d9 at003f = ╱ec╱,╱ // 0x14cf @0x3f
0x1490…14d9 at0040 = ╱54╱T╱ // 0x14d0 @0x40
0x1490…14d9 at0041 = ╱4b╱K╱ // 0x14d1 @0x41
0x1490…14d9 at0042 = ╱31╱1╱ // 0x14d2 @0x42
0x1490…14d9 at0043 = ╱ef╱$╱ // 0x14d3 @0x43
0x1490…14d9 at0044 = ╱ec╱,╱ // 0x14d4 @0x44
0x1490…14d9 at0045 = ╱45╱E╱ // 0x14d5 @0x45
0x1490…14d9 at0046 = ╱4e╱N╱ // 0x14d6 @0x46
0x1490…14d9 at0047 = ╱52╱R╱ // 0x14d7 @0x47
0x1490…14d9 at0048 = EOL // 0x14d8 @0x48
0x1490…14d9 }
0x14d9…14f2 a249 1920 EXEC FEJL(G,11,K4$)
0x14d9…14f2 LineComalBin {
0x14d9…14f2 ptr = 0xa249 // 0x14d9 @0x0
0x14d9…14f2 lno = 0x0780 // 0x14db @0x2
0x14d9…14f2 at0004 = ╱9d╱ EXEC ╱ // 0x14dd @0x4
0x14d9…14f2 at0005 = ╱46╱F╱ // 0x14de @0x5
0x14d9…14f2 at0006 = ╱45╱E╱ // 0x14df @0x6
0x14d9…14f2 at0007 = ╱4a╱J╱ // 0x14e0 @0x7
0x14d9…14f2 at0008 = ╱4c╱L╱ // 0x14e1 @0x8
0x14d9…14f2 at0009 = ╱ed╱(╱ // 0x14e2 @0x9
0x14d9…14f2 at000a = ╱47╱G╱ // 0x14e3 @0xa
0x14d9…14f2 at000b = ╱ec╱,╱ // 0x14e4 @0xb
0x14d9…14f2 at000c = ╱31╱1╱ // 0x14e5 @0xc
0x14d9…14f2 at000d = ╱31╱1╱ // 0x14e6 @0xd
0x14d9…14f2 at000e = ╱fe0000b004╱ // 0x14e7 @0xe
0x14d9…14f2 at0013 = ╱ec╱,╱ // 0x14ec @0x13
0x14d9…14f2 at0014 = ╱4b╱K╱ // 0x14ed @0x14
0x14d9…14f2 at0015 = ╱34╱4╱ // 0x14ee @0x15
0x14d9…14f2 at0016 = ╱ef╱$╱ // 0x14ef @0x16
0x14d9…14f2 at0017 = ╱ee╱)╱ // 0x14f0 @0x17
0x14d9…14f2 at0018 = EOL // 0x14f1 @0x18
0x14d9…14f2 }
0x14f2…14f9 a250 1930 NEXT I
0x14f2…14f9 LineComalBin {
0x14f2…14f9 ptr = 0xa250 // 0x14f2 @0x0
0x14f2…14f9 lno = 0x078a // 0x14f4 @0x2
0x14f2…14f9 at0004 = ╱84╱ NEXT ╱ // 0x14f6 @0x4
0x14f2…14f9 at0005 = ╱49╱I╱ // 0x14f7 @0x5
0x14f2…14f9 at0006 = EOL // 0x14f8 @0x6
0x14f2…14f9 }
0x14f9…1502 a259 1940 CLOSE K4$
0x14f9…1502 LineComalBin {
0x14f9…1502 ptr = 0xa259 // 0x14f9 @0x0
0x14f9…1502 lno = 0x0794 // 0x14fb @0x2
0x14f9…1502 at0004 = ╱a8╱ CLOSE ╱ // 0x14fd @0x4
0x14f9…1502 at0005 = ╱4b╱K╱ // 0x14fe @0x5
0x14f9…1502 at0006 = ╱34╱4╱ // 0x14ff @0x6
0x14f9…1502 at0007 = ╱ef╱$╱ // 0x1500 @0x7
0x14f9…1502 at0008 = EOL // 0x1501 @0x8
0x14f9…1502 }
0x1502…151b a272 1950 EXEC FEJL(G,12,K4$)
0x1502…151b LineComalBin {
0x1502…151b ptr = 0xa272 // 0x1502 @0x0
0x1502…151b lno = 0x079e // 0x1504 @0x2
0x1502…151b at0004 = ╱9d╱ EXEC ╱ // 0x1506 @0x4
0x1502…151b at0005 = ╱46╱F╱ // 0x1507 @0x5
0x1502…151b at0006 = ╱45╱E╱ // 0x1508 @0x6
0x1502…151b at0007 = ╱4a╱J╱ // 0x1509 @0x7
0x1502…151b at0008 = ╱4c╱L╱ // 0x150a @0x8
0x1502…151b at0009 = ╱ed╱(╱ // 0x150b @0x9
0x1502…151b at000a = ╱47╱G╱ // 0x150c @0xa
0x1502…151b at000b = ╱ec╱,╱ // 0x150d @0xb
0x1502…151b at000c = ╱31╱1╱ // 0x150e @0xc
0x1502…151b at000d = ╱32╱2╱ // 0x150f @0xd
0x1502…151b at000e = ╱fe0000c004╱ // 0x1510 @0xe
0x1502…151b at0013 = ╱ec╱,╱ // 0x1515 @0x13
0x1502…151b at0014 = ╱4b╱K╱ // 0x1516 @0x14
0x1502…151b at0015 = ╱34╱4╱ // 0x1517 @0x15
0x1502…151b at0016 = ╱ef╱$╱ // 0x1518 @0x16
0x1502…151b at0017 = ╱ee╱)╱ // 0x1519 @0x17
0x1502…151b at0018 = EOL // 0x151a @0x18
0x1502…151b }
0x151b…154e a2a5 1960 TE$=" Dagsafslutning. ";AVKONTI=B
0x151b…154e LineComalBin {
0x151b…154e ptr = 0xa2a5 // 0x151b @0x0
0x151b…154e lno = 0x07a8 // 0x151d @0x2
0x151b…154e at0004 = ╱54╱T╱ // 0x151f @0x4
0x151b…154e at0005 = ╱45╱E╱ // 0x1520 @0x5
0x151b…154e at0006 = ╱ef╱$╱ // 0x1521 @0x6
0x151b…154e at0007 = ╱dc╱=╱ // 0x1522 @0x7
0x151b…154e at0008 = ╱22╱"╱ // 0x1523 @0x8
0x151b…154e at0009 = ╱20╱…╱ // 0x1524 @0x9
0x151b…154e at000a = ╱20╱…╱ // 0x1525 @0xa
0x151b…154e at000b = ╱20╱…╱ // 0x1526 @0xb
0x151b…154e at000c = ╱20╱…╱ // 0x1527 @0xc
0x151b…154e at000d = ╱20╱…╱ // 0x1528 @0xd
0x151b…154e at000e = ╱20╱…╱ // 0x1529 @0xe
0x151b…154e at000f = ╱20╱…╱ // 0x152a @0xf
0x151b…154e at0010 = ╱20╱…╱ // 0x152b @0x10
0x151b…154e at0011 = ╱44╱D╱ // 0x152c @0x11
0x151b…154e at0012 = ╱61╱a╱ // 0x152d @0x12
0x151b…154e at0013 = ╱67╱g╱ // 0x152e @0x13
0x151b…154e at0014 = ╱73╱s╱ // 0x152f @0x14
0x151b…154e at0015 = ╱61╱a╱ // 0x1530 @0x15
0x151b…154e at0016 = ╱66╱f╱ // 0x1531 @0x16
0x151b…154e at0017 = ╱73╱s╱ // 0x1532 @0x17
0x151b…154e at0018 = ╱6c╱l╱ // 0x1533 @0x18
0x151b…154e at0019 = ╱75╱u╱ // 0x1534 @0x19
0x151b…154e at001a = ╱74╱t╱ // 0x1535 @0x1a
0x151b…154e at001b = ╱6e╱n╱ // 0x1536 @0x1b
0x151b…154e at001c = ╱69╱i╱ // 0x1537 @0x1c
0x151b…154e at001d = ╱6e╱n╱ // 0x1538 @0x1d
0x151b…154e at001e = ╱67╱g╱ // 0x1539 @0x1e
0x151b…154e at001f = ╱2e╱.╱ // 0x153a @0x1f
0x151b…154e at0020 = ╱20╱…╱ // 0x153b @0x20
0x151b…154e at0021 = ╱20╱…╱ // 0x153c @0x21
0x151b…154e at0022 = ╱20╱…╱ // 0x153d @0x22
0x151b…154e at0023 = ╱20╱…╱ // 0x153e @0x23
0x151b…154e at0024 = ╱20╱…╱ // 0x153f @0x24
0x151b…154e at0025 = ╱20╱…╱ // 0x1540 @0x25
0x151b…154e at0026 = ╱20╱…╱ // 0x1541 @0x26
0x151b…154e at0027 = ╱22╱"╱ // 0x1542 @0x27
0x151b…154e at0028 = ╱eb╱;╱ // 0x1543 @0x28
0x151b…154e at0029 = ╱41╱A╱ // 0x1544 @0x29
0x151b…154e at002a = ╱56╱V╱ // 0x1545 @0x2a
0x151b…154e at002b = ╱4b╱K╱ // 0x1546 @0x2b
0x151b…154e at002c = ╱4f╱O╱ // 0x1547 @0x2c
0x151b…154e at002d = ╱4e╱N╱ // 0x1548 @0x2d
0x151b…154e at002e = ╱54╱T╱ // 0x1549 @0x2e
0x151b…154e at002f = ╱49╱I╱ // 0x154a @0x2f
0x151b…154e at0030 = ╱dc╱=╱ // 0x154b @0x30
0x151b…154e at0031 = ╱42╱B╱ // 0x154c @0x31
0x151b…154e at0032 = EOL // 0x154d @0x32
0x151b…154e }
0x154e…1557 a2ae 1970 EXEC BIL
0x154e…1557 LineComalBin {
0x154e…1557 ptr = 0xa2ae // 0x154e @0x0
0x154e…1557 lno = 0x07b2 // 0x1550 @0x2
0x154e…1557 at0004 = ╱9d╱ EXEC ╱ // 0x1552 @0x4
0x154e…1557 at0005 = ╱42╱B╱ // 0x1553 @0x5
0x154e…1557 at0006 = ╱49╱I╱ // 0x1554 @0x6
0x154e…1557 at0007 = ╱4c╱L╱ // 0x1555 @0x7
0x154e…1557 at0008 = EOL // 0x1556 @0x8
0x154e…1557 }
0x1557…15a4 a2fb 1980 T1(3)=JOURSIDE;T2(V)=FAKPOSTNR;T2(7)=AVKONTI;T2(8)=FJPOST
0x1557…15a4 LineComalBin {
0x1557…15a4 ptr = 0xa2fb // 0x1557 @0x0
0x1557…15a4 lno = 0x07bc // 0x1559 @0x2
0x1557…15a4 at0004 = ╱54╱T╱ // 0x155b @0x4
0x1557…15a4 at0005 = ╱31╱1╱ // 0x155c @0x5
0x1557…15a4 at0006 = ╱ed╱(╱ // 0x155d @0x6
0x1557…15a4 at0007 = ╱33╱3╱ // 0x155e @0x7
0x1557…15a4 at0008 = ╱fe0000c002╱ // 0x155f @0x8
0x1557…15a4 at000d = ╱ee╱)╱ // 0x1564 @0xd
0x1557…15a4 at000e = ╱dc╱=╱ // 0x1565 @0xe
0x1557…15a4 at000f = ╱4a╱J╱ // 0x1566 @0xf
0x1557…15a4 at0010 = ╱4f╱O╱ // 0x1567 @0x10
0x1557…15a4 at0011 = ╱55╱U╱ // 0x1568 @0x11
0x1557…15a4 at0012 = ╱52╱R╱ // 0x1569 @0x12
0x1557…15a4 at0013 = ╱53╱S╱ // 0x156a @0x13
0x1557…15a4 at0014 = ╱49╱I╱ // 0x156b @0x14
0x1557…15a4 at0015 = ╱44╱D╱ // 0x156c @0x15
0x1557…15a4 at0016 = ╱45╱E╱ // 0x156d @0x16
0x1557…15a4 at0017 = ╱eb╱;╱ // 0x156e @0x17
0x1557…15a4 at0018 = ╱54╱T╱ // 0x156f @0x18
0x1557…15a4 at0019 = ╱32╱2╱ // 0x1570 @0x19
0x1557…15a4 at001a = ╱ed╱(╱ // 0x1571 @0x1a
0x1557…15a4 at001b = ╱56╱V╱ // 0x1572 @0x1b
0x1557…15a4 at001c = ╱ee╱)╱ // 0x1573 @0x1c
0x1557…15a4 at001d = ╱dc╱=╱ // 0x1574 @0x1d
0x1557…15a4 at001e = ╱46╱F╱ // 0x1575 @0x1e
0x1557…15a4 at001f = ╱41╱A╱ // 0x1576 @0x1f
0x1557…15a4 at0020 = ╱4b╱K╱ // 0x1577 @0x20
0x1557…15a4 at0021 = ╱50╱P╱ // 0x1578 @0x21
0x1557…15a4 at0022 = ╱4f╱O╱ // 0x1579 @0x22
0x1557…15a4 at0023 = ╱53╱S╱ // 0x157a @0x23
0x1557…15a4 at0024 = ╱54╱T╱ // 0x157b @0x24
0x1557…15a4 at0025 = ╱4e╱N╱ // 0x157c @0x25
0x1557…15a4 at0026 = ╱52╱R╱ // 0x157d @0x26
0x1557…15a4 at0027 = ╱eb╱;╱ // 0x157e @0x27
0x1557…15a4 at0028 = ╱54╱T╱ // 0x157f @0x28
0x1557…15a4 at0029 = ╱32╱2╱ // 0x1580 @0x29
0x1557…15a4 at002a = ╱ed╱(╱ // 0x1581 @0x2a
0x1557…15a4 at002b = ╱37╱7╱ // 0x1582 @0x2b
0x1557…15a4 at002c = ╱fe0000e003╱ // 0x1583 @0x2c
0x1557…15a4 at0031 = ╱ee╱)╱ // 0x1588 @0x31
0x1557…15a4 at0032 = ╱dc╱=╱ // 0x1589 @0x32
0x1557…15a4 at0033 = ╱41╱A╱ // 0x158a @0x33
0x1557…15a4 at0034 = ╱56╱V╱ // 0x158b @0x34
0x1557…15a4 at0035 = ╱4b╱K╱ // 0x158c @0x35
0x1557…15a4 at0036 = ╱4f╱O╱ // 0x158d @0x36
0x1557…15a4 at0037 = ╱4e╱N╱ // 0x158e @0x37
0x1557…15a4 at0038 = ╱54╱T╱ // 0x158f @0x38
0x1557…15a4 at0039 = ╱49╱I╱ // 0x1590 @0x39
0x1557…15a4 at003a = ╱eb╱;╱ // 0x1591 @0x3a
0x1557…15a4 at003b = ╱54╱T╱ // 0x1592 @0x3b
0x1557…15a4 at003c = ╱32╱2╱ // 0x1593 @0x3c
0x1557…15a4 at003d = ╱ed╱(╱ // 0x1594 @0x3d
0x1557…15a4 at003e = ╱38╱8╱ // 0x1595 @0x3e
0x1557…15a4 at003f = ╱fe00008004╱ // 0x1596 @0x3f
0x1557…15a4 at0044 = ╱ee╱)╱ // 0x159b @0x44
0x1557…15a4 at0045 = ╱dc╱=╱ // 0x159c @0x45
0x1557…15a4 at0046 = ╱46╱F╱ // 0x159d @0x46
0x1557…15a4 at0047 = ╱4a╱J╱ // 0x159e @0x47
0x1557…15a4 at0048 = ╱50╱P╱ // 0x159f @0x48
0x1557…15a4 at0049 = ╱4f╱O╱ // 0x15a0 @0x49
0x1557…15a4 at004a = ╱53╱S╱ // 0x15a1 @0x4a
0x1557…15a4 at004b = ╱54╱T╱ // 0x15a2 @0x4b
0x1557…15a4 at004c = EOL // 0x15a3 @0x4c
0x1557…15a4 }
0x15a4…15af a306 1990 OPEN K7$,W
0x15a4…15af LineComalBin {
0x15a4…15af ptr = 0xa306 // 0x15a4 @0x0
0x15a4…15af lno = 0x07c6 // 0x15a6 @0x2
0x15a4…15af at0004 = ╱a7╱ OPEN ╱ // 0x15a8 @0x4
0x15a4…15af at0005 = ╱4b╱K╱ // 0x15a9 @0x5
0x15a4…15af at0006 = ╱37╱7╱ // 0x15aa @0x6
0x15a4…15af at0007 = ╱ef╱$╱ // 0x15ab @0x7
0x15a4…15af at0008 = ╱ec╱,╱ // 0x15ac @0x8
0x15a4…15af at0009 = ╱57╱W╱ // 0x15ad @0x9
0x15a4…15af at000a = EOL // 0x15ae @0xa
0x15a4…15af }
0x15af…15c8 a31f 2000 EXEC FEJL(W,17,K7$)
0x15af…15c8 LineComalBin {
0x15af…15c8 ptr = 0xa31f // 0x15af @0x0
0x15af…15c8 lno = 0x07d0 // 0x15b1 @0x2
0x15af…15c8 at0004 = ╱9d╱ EXEC ╱ // 0x15b3 @0x4
0x15af…15c8 at0005 = ╱46╱F╱ // 0x15b4 @0x5
0x15af…15c8 at0006 = ╱45╱E╱ // 0x15b5 @0x6
0x15af…15c8 at0007 = ╱4a╱J╱ // 0x15b6 @0x7
0x15af…15c8 at0008 = ╱4c╱L╱ // 0x15b7 @0x8
0x15af…15c8 at0009 = ╱ed╱(╱ // 0x15b8 @0x9
0x15af…15c8 at000a = ╱57╱W╱ // 0x15b9 @0xa
0x15af…15c8 at000b = ╱ec╱,╱ // 0x15ba @0xb
0x15af…15c8 at000c = ╱31╱1╱ // 0x15bb @0xc
0x15af…15c8 at000d = ╱37╱7╱ // 0x15bc @0xd
0x15af…15c8 at000e = ╱fe00008805╱ // 0x15bd @0xe
0x15af…15c8 at0013 = ╱ec╱,╱ // 0x15c2 @0x13
0x15af…15c8 at0014 = ╱4b╱K╱ // 0x15c3 @0x14
0x15af…15c8 at0015 = ╱37╱7╱ // 0x15c4 @0x15
0x15af…15c8 at0016 = ╱ef╱$╱ // 0x15c5 @0x16
0x15af…15c8 at0017 = ╱ee╱)╱ // 0x15c6 @0x17
0x15af…15c8 at0018 = EOL // 0x15c7 @0x18
0x15af…15c8 }
0x15c8…1622 a379 2010 PUT K7$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x15c8…1622 LineComalBin {
0x15c8…1622 ptr = 0xa379 // 0x15c8 @0x0
0x15c8…1622 lno = 0x07da // 0x15ca @0x2
0x15c8…1622 at0004 = ╱aa╱ PUT ╱ // 0x15cc @0x4
0x15c8…1622 at0005 = ╱4b╱K╱ // 0x15cd @0x5
0x15c8…1622 at0006 = ╱37╱7╱ // 0x15ce @0x6
0x15c8…1622 at0007 = ╱ef╱$╱ // 0x15cf @0x7
0x15c8…1622 at0008 = ╱ec╱,╱ // 0x15d0 @0x8
0x15c8…1622 at0009 = ╱47╱G╱ // 0x15d1 @0x9
0x15c8…1622 at000a = ╱f0╱:╱ // 0x15d2 @0xa
0x15c8…1622 at000b = ╱54╱T╱ // 0x15d3 @0xb
0x15c8…1622 at000c = ╱31╱1╱ // 0x15d4 @0xc
0x15c8…1622 at000d = ╱ed╱(╱ // 0x15d5 @0xd
0x15c8…1622 at000e = ╱45╱E╱ // 0x15d6 @0xe
0x15c8…1622 at000f = ╱ee╱)╱ // 0x15d7 @0xf
0x15c8…1622 at0010 = ╱ec╱,╱ // 0x15d8 @0x10
0x15c8…1622 at0011 = ╱54╱T╱ // 0x15d9 @0x11
0x15c8…1622 at0012 = ╱31╱1╱ // 0x15da @0x12
0x15c8…1622 at0013 = ╱ed╱(╱ // 0x15db @0x13
0x15c8…1622 at0014 = ╱47╱G╱ // 0x15dc @0x14
0x15c8…1622 at0015 = ╱ee╱)╱ // 0x15dd @0x15
0x15c8…1622 at0016 = ╱ec╱,╱ // 0x15de @0x16
0x15c8…1622 at0017 = ╱54╱T╱ // 0x15df @0x17
0x15c8…1622 at0018 = ╱31╱1╱ // 0x15e0 @0x18
0x15c8…1622 at0019 = ╱ed╱(╱ // 0x15e1 @0x19
0x15c8…1622 at001a = ╱56╱V╱ // 0x15e2 @0x1a
0x15c8…1622 at001b = ╱ee╱)╱ // 0x15e3 @0x1b
0x15c8…1622 at001c = ╱ec╱,╱ // 0x15e4 @0x1c
0x15c8…1622 at001d = ╱54╱T╱ // 0x15e5 @0x1d
0x15c8…1622 at001e = ╱31╱1╱ // 0x15e6 @0x1e
0x15c8…1622 at001f = ╱ed╱(╱ // 0x15e7 @0x1f
0x15c8…1622 at0020 = ╱34╱4╱ // 0x15e8 @0x20
0x15c8…1622 at0021 = ╱fe00008003╱ // 0x15e9 @0x21
0x15c8…1622 at0026 = ╱ee╱)╱ // 0x15ee @0x26
0x15c8…1622 at0027 = ╱ec╱,╱ // 0x15ef @0x27
0x15c8…1622 at0028 = ╱54╱T╱ // 0x15f0 @0x28
0x15c8…1622 at0029 = ╱31╱1╱ // 0x15f1 @0x29
0x15c8…1622 at002a = ╱ed╱(╱ // 0x15f2 @0x2a
0x15c8…1622 at002b = ╱35╱5╱ // 0x15f3 @0x2b
0x15c8…1622 at002c = ╱fe0000a003╱ // 0x15f4 @0x2c
0x15c8…1622 at0031 = ╱ee╱)╱ // 0x15f9 @0x31
0x15c8…1622 at0032 = ╱ec╱,╱ // 0x15fa @0x32
0x15c8…1622 at0033 = ╱54╱T╱ // 0x15fb @0x33
0x15c8…1622 at0034 = ╱31╱1╱ // 0x15fc @0x34
0x15c8…1622 at0035 = ╱ed╱(╱ // 0x15fd @0x35
0x15c8…1622 at0036 = ╱36╱6╱ // 0x15fe @0x36
0x15c8…1622 at0037 = ╱fe0000c003╱ // 0x15ff @0x37
0x15c8…1622 at003c = ╱ee╱)╱ // 0x1604 @0x3c
0x15c8…1622 at003d = ╱ec╱,╱ // 0x1605 @0x3d
0x15c8…1622 at003e = ╱54╱T╱ // 0x1606 @0x3e
0x15c8…1622 at003f = ╱31╱1╱ // 0x1607 @0x3f
0x15c8…1622 at0040 = ╱ed╱(╱ // 0x1608 @0x40
0x15c8…1622 at0041 = ╱37╱7╱ // 0x1609 @0x41
0x15c8…1622 at0042 = ╱fe0000e003╱ // 0x160a @0x42
0x15c8…1622 at0047 = ╱ee╱)╱ // 0x160f @0x47
0x15c8…1622 at0048 = ╱ec╱,╱ // 0x1610 @0x48
0x15c8…1622 at0049 = ╱54╱T╱ // 0x1611 @0x49
0x15c8…1622 at004a = ╱31╱1╱ // 0x1612 @0x4a
0x15c8…1622 at004b = ╱ed╱(╱ // 0x1613 @0x4b
0x15c8…1622 at004c = ╱38╱8╱ // 0x1614 @0x4c
0x15c8…1622 at004d = ╱fe00008004╱ // 0x1615 @0x4d
0x15c8…1622 at0052 = ╱ee╱)╱ // 0x161a @0x52
0x15c8…1622 at0053 = ╱ec╱,╱ // 0x161b @0x53
0x15c8…1622 at0054 = ╱54╱T╱ // 0x161c @0x54
0x15c8…1622 at0055 = ╱31╱1╱ // 0x161d @0x55
0x15c8…1622 at0056 = ╱ed╱(╱ // 0x161e @0x56
0x15c8…1622 at0057 = ╱57╱W╱ // 0x161f @0x57
0x15c8…1622 at0058 = ╱ee╱)╱ // 0x1620 @0x58
0x15c8…1622 at0059 = EOL // 0x1621 @0x59
0x15c8…1622 }
0x1622…163b a392 2020 EXEC FEJL(W,18,K7$)
0x1622…163b LineComalBin {
0x1622…163b ptr = 0xa392 // 0x1622 @0x0
0x1622…163b lno = 0x07e4 // 0x1624 @0x2
0x1622…163b at0004 = ╱9d╱ EXEC ╱ // 0x1626 @0x4
0x1622…163b at0005 = ╱46╱F╱ // 0x1627 @0x5
0x1622…163b at0006 = ╱45╱E╱ // 0x1628 @0x6
0x1622…163b at0007 = ╱4a╱J╱ // 0x1629 @0x7
0x1622…163b at0008 = ╱4c╱L╱ // 0x162a @0x8
0x1622…163b at0009 = ╱ed╱(╱ // 0x162b @0x9
0x1622…163b at000a = ╱57╱W╱ // 0x162c @0xa
0x1622…163b at000b = ╱ec╱,╱ // 0x162d @0xb
0x1622…163b at000c = ╱31╱1╱ // 0x162e @0xc
0x1622…163b at000d = ╱38╱8╱ // 0x162f @0xd
0x1622…163b at000e = ╱fe00009005╱ // 0x1630 @0xe
0x1622…163b at0013 = ╱ec╱,╱ // 0x1635 @0x13
0x1622…163b at0014 = ╱4b╱K╱ // 0x1636 @0x14
0x1622…163b at0015 = ╱37╱7╱ // 0x1637 @0x15
0x1622…163b at0016 = ╱ef╱$╱ // 0x1638 @0x16
0x1622…163b at0017 = ╱ee╱)╱ // 0x1639 @0x17
0x1622…163b at0018 = EOL // 0x163a @0x18
0x1622…163b }
0x163b…169b a3f2 2030 PUT K7$,12:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x163b…169b LineComalBin {
0x163b…169b ptr = 0xa3f2 // 0x163b @0x0
0x163b…169b lno = 0x07ee // 0x163d @0x2
0x163b…169b at0004 = ╱aa╱ PUT ╱ // 0x163f @0x4
0x163b…169b at0005 = ╱4b╱K╱ // 0x1640 @0x5
0x163b…169b at0006 = ╱37╱7╱ // 0x1641 @0x6
0x163b…169b at0007 = ╱ef╱$╱ // 0x1642 @0x7
0x163b…169b at0008 = ╱ec╱,╱ // 0x1643 @0x8
0x163b…169b at0009 = ╱31╱1╱ // 0x1644 @0x9
0x163b…169b at000a = ╱32╱2╱ // 0x1645 @0xa
0x163b…169b at000b = ╱fe0000c004╱ // 0x1646 @0xb
0x163b…169b at0010 = ╱f0╱:╱ // 0x164b @0x10
0x163b…169b at0011 = ╱54╱T╱ // 0x164c @0x11
0x163b…169b at0012 = ╱32╱2╱ // 0x164d @0x12
0x163b…169b at0013 = ╱ed╱(╱ // 0x164e @0x13
0x163b…169b at0014 = ╱45╱E╱ // 0x164f @0x14
0x163b…169b at0015 = ╱ee╱)╱ // 0x1650 @0x15
0x163b…169b at0016 = ╱ec╱,╱ // 0x1651 @0x16
0x163b…169b at0017 = ╱54╱T╱ // 0x1652 @0x17
0x163b…169b at0018 = ╱32╱2╱ // 0x1653 @0x18
0x163b…169b at0019 = ╱ed╱(╱ // 0x1654 @0x19
0x163b…169b at001a = ╱47╱G╱ // 0x1655 @0x1a
0x163b…169b at001b = ╱ee╱)╱ // 0x1656 @0x1b
0x163b…169b at001c = ╱ec╱,╱ // 0x1657 @0x1c
0x163b…169b at001d = ╱54╱T╱ // 0x1658 @0x1d
0x163b…169b at001e = ╱32╱2╱ // 0x1659 @0x1e
0x163b…169b at001f = ╱ed╱(╱ // 0x165a @0x1f
0x163b…169b at0020 = ╱56╱V╱ // 0x165b @0x20
0x163b…169b at0021 = ╱ee╱)╱ // 0x165c @0x21
0x163b…169b at0022 = ╱ec╱,╱ // 0x165d @0x22
0x163b…169b at0023 = ╱54╱T╱ // 0x165e @0x23
0x163b…169b at0024 = ╱32╱2╱ // 0x165f @0x24
0x163b…169b at0025 = ╱ed╱(╱ // 0x1660 @0x25
0x163b…169b at0026 = ╱34╱4╱ // 0x1661 @0x26
0x163b…169b at0027 = ╱fe00008003╱ // 0x1662 @0x27
0x163b…169b at002c = ╱ee╱)╱ // 0x1667 @0x2c
0x163b…169b at002d = ╱ec╱,╱ // 0x1668 @0x2d
0x163b…169b at002e = ╱54╱T╱ // 0x1669 @0x2e
0x163b…169b at002f = ╱32╱2╱ // 0x166a @0x2f
0x163b…169b at0030 = ╱ed╱(╱ // 0x166b @0x30
0x163b…169b at0031 = ╱35╱5╱ // 0x166c @0x31
0x163b…169b at0032 = ╱fe0000a003╱ // 0x166d @0x32
0x163b…169b at0037 = ╱ee╱)╱ // 0x1672 @0x37
0x163b…169b at0038 = ╱ec╱,╱ // 0x1673 @0x38
0x163b…169b at0039 = ╱54╱T╱ // 0x1674 @0x39
0x163b…169b at003a = ╱32╱2╱ // 0x1675 @0x3a
0x163b…169b at003b = ╱ed╱(╱ // 0x1676 @0x3b
0x163b…169b at003c = ╱36╱6╱ // 0x1677 @0x3c
0x163b…169b at003d = ╱fe0000c003╱ // 0x1678 @0x3d
0x163b…169b at0042 = ╱ee╱)╱ // 0x167d @0x42
0x163b…169b at0043 = ╱ec╱,╱ // 0x167e @0x43
0x163b…169b at0044 = ╱54╱T╱ // 0x167f @0x44
0x163b…169b at0045 = ╱32╱2╱ // 0x1680 @0x45
0x163b…169b at0046 = ╱ed╱(╱ // 0x1681 @0x46
0x163b…169b at0047 = ╱37╱7╱ // 0x1682 @0x47
0x163b…169b at0048 = ╱fe0000e003╱ // 0x1683 @0x48
0x163b…169b at004d = ╱ee╱)╱ // 0x1688 @0x4d
0x163b…169b at004e = ╱ec╱,╱ // 0x1689 @0x4e
0x163b…169b at004f = ╱54╱T╱ // 0x168a @0x4f
0x163b…169b at0050 = ╱32╱2╱ // 0x168b @0x50
0x163b…169b at0051 = ╱ed╱(╱ // 0x168c @0x51
0x163b…169b at0052 = ╱38╱8╱ // 0x168d @0x52
0x163b…169b at0053 = ╱fe00008004╱ // 0x168e @0x53
0x163b…169b at0058 = ╱ee╱)╱ // 0x1693 @0x58
0x163b…169b at0059 = ╱ec╱,╱ // 0x1694 @0x59
0x163b…169b at005a = ╱54╱T╱ // 0x1695 @0x5a
0x163b…169b at005b = ╱32╱2╱ // 0x1696 @0x5b
0x163b…169b at005c = ╱ed╱(╱ // 0x1697 @0x5c
0x163b…169b at005d = ╱57╱W╱ // 0x1698 @0x5d
0x163b…169b at005e = ╱ee╱)╱ // 0x1699 @0x5e
0x163b…169b at005f = EOL // 0x169a @0x5f
0x163b…169b }
0x169b…16b4 a40b 2040 EXEC FEJL(W,19,K7$)
0x169b…16b4 LineComalBin {
0x169b…16b4 ptr = 0xa40b // 0x169b @0x0
0x169b…16b4 lno = 0x07f8 // 0x169d @0x2
0x169b…16b4 at0004 = ╱9d╱ EXEC ╱ // 0x169f @0x4
0x169b…16b4 at0005 = ╱46╱F╱ // 0x16a0 @0x5
0x169b…16b4 at0006 = ╱45╱E╱ // 0x16a1 @0x6
0x169b…16b4 at0007 = ╱4a╱J╱ // 0x16a2 @0x7
0x169b…16b4 at0008 = ╱4c╱L╱ // 0x16a3 @0x8
0x169b…16b4 at0009 = ╱ed╱(╱ // 0x16a4 @0x9
0x169b…16b4 at000a = ╱57╱W╱ // 0x16a5 @0xa
0x169b…16b4 at000b = ╱ec╱,╱ // 0x16a6 @0xb
0x169b…16b4 at000c = ╱31╱1╱ // 0x16a7 @0xc
0x169b…16b4 at000d = ╱39╱9╱ // 0x16a8 @0xd
0x169b…16b4 at000e = ╱fe00009805╱ // 0x16a9 @0xe
0x169b…16b4 at0013 = ╱ec╱,╱ // 0x16ae @0x13
0x169b…16b4 at0014 = ╱4b╱K╱ // 0x16af @0x14
0x169b…16b4 at0015 = ╱37╱7╱ // 0x16b0 @0x15
0x169b…16b4 at0016 = ╱ef╱$╱ // 0x16b1 @0x16
0x169b…16b4 at0017 = ╱ee╱)╱ // 0x16b2 @0x17
0x169b…16b4 at0018 = EOL // 0x16b3 @0x18
0x169b…16b4 }
0x16b4…16bd a414 2050 CLOSE K7$
0x16b4…16bd LineComalBin {
0x16b4…16bd ptr = 0xa414 // 0x16b4 @0x0
0x16b4…16bd lno = 0x0802 // 0x16b6 @0x2
0x16b4…16bd at0004 = ╱a8╱ CLOSE ╱ // 0x16b8 @0x4
0x16b4…16bd at0005 = ╱4b╱K╱ // 0x16b9 @0x5
0x16b4…16bd at0006 = ╱37╱7╱ // 0x16ba @0x6
0x16b4…16bd at0007 = ╱ef╱$╱ // 0x16bb @0x7
0x16b4…16bd at0008 = EOL // 0x16bc @0x8
0x16b4…16bd }
0x16bd…16d6 a42d 2060 EXEC FEJL(W,20,K7$)
0x16bd…16d6 LineComalBin {
0x16bd…16d6 ptr = 0xa42d // 0x16bd @0x0
0x16bd…16d6 lno = 0x080c // 0x16bf @0x2
0x16bd…16d6 at0004 = ╱9d╱ EXEC ╱ // 0x16c1 @0x4
0x16bd…16d6 at0005 = ╱46╱F╱ // 0x16c2 @0x5
0x16bd…16d6 at0006 = ╱45╱E╱ // 0x16c3 @0x6
0x16bd…16d6 at0007 = ╱4a╱J╱ // 0x16c4 @0x7
0x16bd…16d6 at0008 = ╱4c╱L╱ // 0x16c5 @0x8
0x16bd…16d6 at0009 = ╱ed╱(╱ // 0x16c6 @0x9
0x16bd…16d6 at000a = ╱57╱W╱ // 0x16c7 @0xa
0x16bd…16d6 at000b = ╱ec╱,╱ // 0x16c8 @0xb
0x16bd…16d6 at000c = ╱32╱2╱ // 0x16c9 @0xc
0x16bd…16d6 at000d = ╱30╱0╱ // 0x16ca @0xd
0x16bd…16d6 at000e = ╱fe0000a005╱ // 0x16cb @0xe
0x16bd…16d6 at0013 = ╱ec╱,╱ // 0x16d0 @0x13
0x16bd…16d6 at0014 = ╱4b╱K╱ // 0x16d1 @0x14
0x16bd…16d6 at0015 = ╱37╱7╱ // 0x16d2 @0x15
0x16bd…16d6 at0016 = ╱ef╱$╱ // 0x16d3 @0x16
0x16bd…16d6 at0017 = ╱ee╱)╱ // 0x16d4 @0x17
0x16bd…16d6 at0018 = EOL // 0x16d5 @0x18
0x16bd…16d6 }
0x16d6…16dc a433 2070 CLOSE
0x16d6…16dc LineComalBin {
0x16d6…16dc ptr = 0xa433 // 0x16d6 @0x0
0x16d6…16dc lno = 0x0816 // 0x16d8 @0x2
0x16d6…16dc at0004 = ╱a8╱ CLOSE ╱ // 0x16da @0x4
0x16d6…16dc at0005 = EOL // 0x16db @0x5
0x16d6…16dc }
0x16dc…16ee (76,) a445 2080 CHAIN "P641210:BJ"
0x16dc…16ee LineComalBin {
0x16dc…16ee ptr = 0xa445 // 0x16dc @0x0
0x16dc…16ee lno = 0x0820 // 0x16de @0x2
0x16dc…16ee at0004 = ╱ac╱ CHAIN ╱ // 0x16e0 @0x4
0x16dc…16ee at0005 = ╱22╱"╱ // 0x16e1 @0x5
0x16dc…16ee at0006 = ╱50╱P╱ // 0x16e2 @0x6
0x16dc…16ee at0007 = ╱36╱6╱ // 0x16e3 @0x7
0x16dc…16ee at0008 = ╱34╱4╱ // 0x16e4 @0x8
0x16dc…16ee at0009 = ╱31╱1╱ // 0x16e5 @0x9
0x16dc…16ee at000a = ╱32╱2╱ // 0x16e6 @0xa
0x16dc…16ee at000b = ╱31╱1╱ // 0x16e7 @0xb
0x16dc…16ee at000c = ╱30╱0╱ // 0x16e8 @0xc
0x16dc…16ee at000d = ╱3a╱:╱ // 0x16e9 @0xd
0x16dc…16ee at000e = ╱42╱B╱ // 0x16ea @0xe
0x16dc…16ee at000f = ╱4a╱J╱ // 0x16eb @0xf
0x16dc…16ee at0010 = ╱22╱"╱ // 0x16ec @0x10
0x16dc…16ee at0011 = EOL // 0x16ed @0x11
0x16dc…16ee }
0x16ee…16f4 a44b 2090 END
0x16ee…16f4 LineComalBin {
0x16ee…16f4 ptr = 0xa44b // 0x16ee @0x0
0x16ee…16f4 lno = 0x082a // 0x16f0 @0x2
0x16ee…16f4 at0004 = ╱8c╱ END ╱ // 0x16f2 @0x4
0x16ee…16f4 at0005 = EOL // 0x16f3 @0x5
0x16ee…16f4 }
0x16f4…16fd a454 2100 PROC BIL
0x16f4…16fd LineComalBin {
0x16f4…16fd ptr = 0xa454 // 0x16f4 @0x0
0x16f4…16fd lno = 0x0834 // 0x16f6 @0x2
0x16f4…16fd at0004 = ╱9e╱ PROC ╱ // 0x16f8 @0x4
0x16f4…16fd at0005 = ╱42╱B╱ // 0x16f9 @0x5
0x16f4…16fd at0006 = ╱49╱I╱ // 0x16fa @0x6
0x16f4…16fd at0007 = ╱4c╱L╱ // 0x16fb @0x7
0x16f4…16fd at0008 = EOL // 0x16fc @0x8
0x16f4…16fd }
0x16fd…1703 a45a 2110 CLEAR
0x16fd…1703 LineComalBin {
0x16fd…1703 ptr = 0xa45a // 0x16fd @0x0
0x16fd…1703 lno = 0x083e // 0x16ff @0x2
0x16fd…1703 at0004 = ╱a0╱ CLEAR ╱ // 0x1701 @0x4
0x16fd…1703 at0005 = EOL // 0x1702 @0x5
0x16fd…1703 }
0x1703…1712 a469 2120 CURSOR 20,W
0x1703…1712 LineComalBin {
0x1703…1712 ptr = 0xa469 // 0x1703 @0x0
0x1703…1712 lno = 0x0848 // 0x1705 @0x2
0x1703…1712 at0004 = ╱a1╱ CURSOR ╱ // 0x1707 @0x4
0x1703…1712 at0005 = ╱32╱2╱ // 0x1708 @0x5
0x1703…1712 at0006 = ╱30╱0╱ // 0x1709 @0x6
0x1703…1712 at0007 = ╱fe0000a005╱ // 0x170a @0x7
0x1703…1712 at000c = ╱ec╱,╱ // 0x170f @0xc
0x1703…1712 at000d = ╱57╱W╱ // 0x1710 @0xd
0x1703…1712 at000e = EOL // 0x1711 @0xe
0x1703…1712 }
0x1712…1743 a49a 2130 PRINT "*****************************************"
0x1712…1743 LineComalBin {
0x1712…1743 ptr = 0xa49a // 0x1712 @0x0
0x1712…1743 lno = 0x0852 // 0x1714 @0x2
0x1712…1743 at0004 = ╱92╱ PRINT ╱ // 0x1716 @0x4
0x1712…1743 at0005 = ╱22╱"╱ // 0x1717 @0x5
0x1712…1743 at0006 = ╱2a╱*╱ // 0x1718 @0x6
0x1712…1743 at0007 = ╱2a╱*╱ // 0x1719 @0x7
0x1712…1743 at0008 = ╱2a╱*╱ // 0x171a @0x8
0x1712…1743 at0009 = ╱2a╱*╱ // 0x171b @0x9
0x1712…1743 at000a = ╱2a╱*╱ // 0x171c @0xa
0x1712…1743 at000b = ╱2a╱*╱ // 0x171d @0xb
0x1712…1743 at000c = ╱2a╱*╱ // 0x171e @0xc
0x1712…1743 at000d = ╱2a╱*╱ // 0x171f @0xd
0x1712…1743 at000e = ╱2a╱*╱ // 0x1720 @0xe
0x1712…1743 at000f = ╱2a╱*╱ // 0x1721 @0xf
0x1712…1743 at0010 = ╱2a╱*╱ // 0x1722 @0x10
0x1712…1743 at0011 = ╱2a╱*╱ // 0x1723 @0x11
0x1712…1743 at0012 = ╱2a╱*╱ // 0x1724 @0x12
0x1712…1743 at0013 = ╱2a╱*╱ // 0x1725 @0x13
0x1712…1743 at0014 = ╱2a╱*╱ // 0x1726 @0x14
0x1712…1743 at0015 = ╱2a╱*╱ // 0x1727 @0x15
0x1712…1743 at0016 = ╱2a╱*╱ // 0x1728 @0x16
0x1712…1743 at0017 = ╱2a╱*╱ // 0x1729 @0x17
0x1712…1743 at0018 = ╱2a╱*╱ // 0x172a @0x18
0x1712…1743 at0019 = ╱2a╱*╱ // 0x172b @0x19
0x1712…1743 at001a = ╱2a╱*╱ // 0x172c @0x1a
0x1712…1743 at001b = ╱2a╱*╱ // 0x172d @0x1b
0x1712…1743 at001c = ╱2a╱*╱ // 0x172e @0x1c
0x1712…1743 at001d = ╱2a╱*╱ // 0x172f @0x1d
0x1712…1743 at001e = ╱2a╱*╱ // 0x1730 @0x1e
0x1712…1743 at001f = ╱2a╱*╱ // 0x1731 @0x1f
0x1712…1743 at0020 = ╱2a╱*╱ // 0x1732 @0x20
0x1712…1743 at0021 = ╱2a╱*╱ // 0x1733 @0x21
0x1712…1743 at0022 = ╱2a╱*╱ // 0x1734 @0x22
0x1712…1743 at0023 = ╱2a╱*╱ // 0x1735 @0x23
0x1712…1743 at0024 = ╱2a╱*╱ // 0x1736 @0x24
0x1712…1743 at0025 = ╱2a╱*╱ // 0x1737 @0x25
0x1712…1743 at0026 = ╱2a╱*╱ // 0x1738 @0x26
0x1712…1743 at0027 = ╱2a╱*╱ // 0x1739 @0x27
0x1712…1743 at0028 = ╱2a╱*╱ // 0x173a @0x28
0x1712…1743 at0029 = ╱2a╱*╱ // 0x173b @0x29
0x1712…1743 at002a = ╱2a╱*╱ // 0x173c @0x2a
0x1712…1743 at002b = ╱2a╱*╱ // 0x173d @0x2b
0x1712…1743 at002c = ╱2a╱*╱ // 0x173e @0x2c
0x1712…1743 at002d = ╱2a╱*╱ // 0x173f @0x2d
0x1712…1743 at002e = ╱2a╱*╱ // 0x1740 @0x2e
0x1712…1743 at002f = ╱22╱"╱ // 0x1741 @0x2f
0x1712…1743 at0030 = EOL // 0x1742 @0x30
0x1712…1743 }
0x1743…1758 a4af 2140 CURSOR 20,10
0x1743…1758 LineComalBin {
0x1743…1758 ptr = 0xa4af // 0x1743 @0x0
0x1743…1758 lno = 0x085c // 0x1745 @0x2
0x1743…1758 at0004 = ╱a1╱ CURSOR ╱ // 0x1747 @0x4
0x1743…1758 at0005 = ╱32╱2╱ // 0x1748 @0x5
0x1743…1758 at0006 = ╱30╱0╱ // 0x1749 @0x6
0x1743…1758 at0007 = ╱fe0000a005╱ // 0x174a @0x7
0x1743…1758 at000c = ╱ec╱,╱ // 0x174f @0xc
0x1743…1758 at000d = ╱31╱1╱ // 0x1750 @0xd
0x1743…1758 at000e = ╱30╱0╱ // 0x1751 @0xe
0x1743…1758 at000f = ╱fe0000a004╱ // 0x1752 @0xf
0x1743…1758 at0014 = EOL // 0x1757 @0x14
0x1743…1758 }
0x1758…1770 a4c7 2150 PRINT "*";TAB(41);"*"
0x1758…1770 LineComalBin {
0x1758…1770 ptr = 0xa4c7 // 0x1758 @0x0
0x1758…1770 lno = 0x0866 // 0x175a @0x2
0x1758…1770 at0004 = ╱92╱ PRINT ╱ // 0x175c @0x4
0x1758…1770 at0005 = ╱22╱"╱ // 0x175d @0x5
0x1758…1770 at0006 = ╱2a╱*╱ // 0x175e @0x6
0x1758…1770 at0007 = ╱22╱"╱ // 0x175f @0x7
0x1758…1770 at0008 = ╱eb╱;╱ // 0x1760 @0x8
0x1758…1770 at0009 = ╱d2╱TAB╱ // 0x1761 @0x9
0x1758…1770 at000a = ╱ed╱(╱ // 0x1762 @0xa
0x1758…1770 at000b = ╱34╱4╱ // 0x1763 @0xb
0x1758…1770 at000c = ╱31╱1╱ // 0x1764 @0xc
0x1758…1770 at000d = ╱fe0000a406╱ // 0x1765 @0xd
0x1758…1770 at0012 = ╱ee╱)╱ // 0x176a @0x12
0x1758…1770 at0013 = ╱eb╱;╱ // 0x176b @0x13
0x1758…1770 at0014 = ╱22╱"╱ // 0x176c @0x14
0x1758…1770 at0015 = ╱2a╱*╱ // 0x176d @0x15
0x1758…1770 at0016 = ╱22╱"╱ // 0x176e @0x16
0x1758…1770 at0017 = EOL // 0x176f @0x17
0x1758…1770 }
0x1770…17a2 a4f9 2160 PRINT TAB(20);"*";TAB(26);TE$;TAB(60);"*"
0x1770…17a2 LineComalBin {
0x1770…17a2 ptr = 0xa4f9 // 0x1770 @0x0
0x1770…17a2 lno = 0x0870 // 0x1772 @0x2
0x1770…17a2 at0004 = ╱92╱ PRINT ╱ // 0x1774 @0x4
0x1770…17a2 at0005 = ╱d2╱TAB╱ // 0x1775 @0x5
0x1770…17a2 at0006 = ╱ed╱(╱ // 0x1776 @0x6
0x1770…17a2 at0007 = ╱32╱2╱ // 0x1777 @0x7
0x1770…17a2 at0008 = ╱30╱0╱ // 0x1778 @0x8
0x1770…17a2 at0009 = ╱fe0000a005╱ // 0x1779 @0x9
0x1770…17a2 at000e = ╱ee╱)╱ // 0x177e @0xe
0x1770…17a2 at000f = ╱eb╱;╱ // 0x177f @0xf
0x1770…17a2 at0010 = ╱22╱"╱ // 0x1780 @0x10
0x1770…17a2 at0011 = ╱2a╱*╱ // 0x1781 @0x11
0x1770…17a2 at0012 = ╱22╱"╱ // 0x1782 @0x12
0x1770…17a2 at0013 = ╱eb╱;╱ // 0x1783 @0x13
0x1770…17a2 at0014 = ╱d2╱TAB╱ // 0x1784 @0x14
0x1770…17a2 at0015 = ╱ed╱(╱ // 0x1785 @0x15
0x1770…17a2 at0016 = ╱32╱2╱ // 0x1786 @0x16
0x1770…17a2 at0017 = ╱36╱6╱ // 0x1787 @0x17
0x1770…17a2 at0018 = ╱fe0000d005╱ // 0x1788 @0x18
0x1770…17a2 at001d = ╱ee╱)╱ // 0x178d @0x1d
0x1770…17a2 at001e = ╱eb╱;╱ // 0x178e @0x1e
0x1770…17a2 at001f = ╱54╱T╱ // 0x178f @0x1f
0x1770…17a2 at0020 = ╱45╱E╱ // 0x1790 @0x20
0x1770…17a2 at0021 = ╱ef╱$╱ // 0x1791 @0x21
0x1770…17a2 at0022 = ╱eb╱;╱ // 0x1792 @0x22
0x1770…17a2 at0023 = ╱d2╱TAB╱ // 0x1793 @0x23
0x1770…17a2 at0024 = ╱ed╱(╱ // 0x1794 @0x24
0x1770…17a2 at0025 = ╱36╱6╱ // 0x1795 @0x25
0x1770…17a2 at0026 = ╱30╱0╱ // 0x1796 @0x26
0x1770…17a2 at0027 = ╱fe0000f006╱ // 0x1797 @0x27
0x1770…17a2 at002c = ╱ee╱)╱ // 0x179c @0x2c
0x1770…17a2 at002d = ╱eb╱;╱ // 0x179d @0x2d
0x1770…17a2 at002e = ╱22╱"╱ // 0x179e @0x2e
0x1770…17a2 at002f = ╱2a╱*╱ // 0x179f @0x2f
0x1770…17a2 at0030 = ╱22╱"╱ // 0x17a0 @0x30
0x1770…17a2 at0031 = EOL // 0x17a1 @0x31
0x1770…17a2 }
0x17a2…17c5 a51c 2170 PRINT TAB(20);"*";TAB(60);"*"
0x17a2…17c5 LineComalBin {
0x17a2…17c5 ptr = 0xa51c // 0x17a2 @0x0
0x17a2…17c5 lno = 0x087a // 0x17a4 @0x2
0x17a2…17c5 at0004 = ╱92╱ PRINT ╱ // 0x17a6 @0x4
0x17a2…17c5 at0005 = ╱d2╱TAB╱ // 0x17a7 @0x5
0x17a2…17c5 at0006 = ╱ed╱(╱ // 0x17a8 @0x6
0x17a2…17c5 at0007 = ╱32╱2╱ // 0x17a9 @0x7
0x17a2…17c5 at0008 = ╱30╱0╱ // 0x17aa @0x8
0x17a2…17c5 at0009 = ╱fe0000a005╱ // 0x17ab @0x9
0x17a2…17c5 at000e = ╱ee╱)╱ // 0x17b0 @0xe
0x17a2…17c5 at000f = ╱eb╱;╱ // 0x17b1 @0xf
0x17a2…17c5 at0010 = ╱22╱"╱ // 0x17b2 @0x10
0x17a2…17c5 at0011 = ╱2a╱*╱ // 0x17b3 @0x11
0x17a2…17c5 at0012 = ╱22╱"╱ // 0x17b4 @0x12
0x17a2…17c5 at0013 = ╱eb╱;╱ // 0x17b5 @0x13
0x17a2…17c5 at0014 = ╱d2╱TAB╱ // 0x17b6 @0x14
0x17a2…17c5 at0015 = ╱ed╱(╱ // 0x17b7 @0x15
0x17a2…17c5 at0016 = ╱36╱6╱ // 0x17b8 @0x16
0x17a2…17c5 at0017 = ╱30╱0╱ // 0x17b9 @0x17
0x17a2…17c5 at0018 = ╱fe0000f006╱ // 0x17ba @0x18
0x17a2…17c5 at001d = ╱ee╱)╱ // 0x17bf @0x1d
0x17a2…17c5 at001e = ╱eb╱;╱ // 0x17c0 @0x1e
0x17a2…17c5 at001f = ╱22╱"╱ // 0x17c1 @0x1f
0x17a2…17c5 at0020 = ╱2a╱*╱ // 0x17c2 @0x20
0x17a2…17c5 at0021 = ╱22╱"╱ // 0x17c3 @0x21
0x17a2…17c5 at0022 = EOL // 0x17c4 @0x22
0x17a2…17c5 }
0x17c5…1801 a558 2180 PRINT TAB(20);"*****************************************"
0x17c5…1801 LineComalBin {
0x17c5…1801 ptr = 0xa558 // 0x17c5 @0x0
0x17c5…1801 lno = 0x0884 // 0x17c7 @0x2
0x17c5…1801 at0004 = ╱92╱ PRINT ╱ // 0x17c9 @0x4
0x17c5…1801 at0005 = ╱d2╱TAB╱ // 0x17ca @0x5
0x17c5…1801 at0006 = ╱ed╱(╱ // 0x17cb @0x6
0x17c5…1801 at0007 = ╱32╱2╱ // 0x17cc @0x7
0x17c5…1801 at0008 = ╱30╱0╱ // 0x17cd @0x8
0x17c5…1801 at0009 = ╱fe0000a005╱ // 0x17ce @0x9
0x17c5…1801 at000e = ╱ee╱)╱ // 0x17d3 @0xe
0x17c5…1801 at000f = ╱eb╱;╱ // 0x17d4 @0xf
0x17c5…1801 at0010 = ╱22╱"╱ // 0x17d5 @0x10
0x17c5…1801 at0011 = ╱2a╱*╱ // 0x17d6 @0x11
0x17c5…1801 at0012 = ╱2a╱*╱ // 0x17d7 @0x12
0x17c5…1801 at0013 = ╱2a╱*╱ // 0x17d8 @0x13
0x17c5…1801 at0014 = ╱2a╱*╱ // 0x17d9 @0x14
0x17c5…1801 at0015 = ╱2a╱*╱ // 0x17da @0x15
0x17c5…1801 at0016 = ╱2a╱*╱ // 0x17db @0x16
0x17c5…1801 at0017 = ╱2a╱*╱ // 0x17dc @0x17
0x17c5…1801 at0018 = ╱2a╱*╱ // 0x17dd @0x18
0x17c5…1801 at0019 = ╱2a╱*╱ // 0x17de @0x19
0x17c5…1801 at001a = ╱2a╱*╱ // 0x17df @0x1a
0x17c5…1801 at001b = ╱2a╱*╱ // 0x17e0 @0x1b
0x17c5…1801 at001c = ╱2a╱*╱ // 0x17e1 @0x1c
0x17c5…1801 at001d = ╱2a╱*╱ // 0x17e2 @0x1d
0x17c5…1801 at001e = ╱2a╱*╱ // 0x17e3 @0x1e
0x17c5…1801 at001f = ╱2a╱*╱ // 0x17e4 @0x1f
0x17c5…1801 at0020 = ╱2a╱*╱ // 0x17e5 @0x20
0x17c5…1801 at0021 = ╱2a╱*╱ // 0x17e6 @0x21
0x17c5…1801 at0022 = ╱2a╱*╱ // 0x17e7 @0x22
0x17c5…1801 at0023 = ╱2a╱*╱ // 0x17e8 @0x23
0x17c5…1801 at0024 = ╱2a╱*╱ // 0x17e9 @0x24
0x17c5…1801 at0025 = ╱2a╱*╱ // 0x17ea @0x25
0x17c5…1801 at0026 = ╱2a╱*╱ // 0x17eb @0x26
0x17c5…1801 at0027 = ╱2a╱*╱ // 0x17ec @0x27
0x17c5…1801 at0028 = ╱2a╱*╱ // 0x17ed @0x28
0x17c5…1801 at0029 = ╱2a╱*╱ // 0x17ee @0x29
0x17c5…1801 at002a = ╱2a╱*╱ // 0x17ef @0x2a
0x17c5…1801 at002b = ╱2a╱*╱ // 0x17f0 @0x2b
0x17c5…1801 at002c = ╱2a╱*╱ // 0x17f1 @0x2c
0x17c5…1801 at002d = ╱2a╱*╱ // 0x17f2 @0x2d
0x17c5…1801 at002e = ╱2a╱*╱ // 0x17f3 @0x2e
0x17c5…1801 at002f = ╱2a╱*╱ // 0x17f4 @0x2f
0x17c5…1801 at0030 = ╱2a╱*╱ // 0x17f5 @0x30
0x17c5…1801 at0031 = ╱2a╱*╱ // 0x17f6 @0x31
0x17c5…1801 at0032 = ╱2a╱*╱ // 0x17f7 @0x32
0x17c5…1801 at0033 = ╱2a╱*╱ // 0x17f8 @0x33
0x17c5…1801 at0034 = ╱2a╱*╱ // 0x17f9 @0x34
0x17c5…1801 at0035 = ╱2a╱*╱ // 0x17fa @0x35
0x17c5…1801 at0036 = ╱2a╱*╱ // 0x17fb @0x36
0x17c5…1801 at0037 = ╱2a╱*╱ // 0x17fc @0x37
0x17c5…1801 at0038 = ╱2a╱*╱ // 0x17fd @0x38
0x17c5…1801 at0039 = ╱2a╱*╱ // 0x17fe @0x39
0x17c5…1801 at003a = ╱22╱"╱ // 0x17ff @0x3a
0x17c5…1801 at003b = EOL // 0x1800 @0x3b
0x17c5…1801 }
0x1801…1807 0000 2190 ENDPROC
0x1801…1807 LineComalBin {
0x1801…1807 ptr = 0x0000 // 0x1801 @0x0
0x1801…1807 lno = 0x088e // 0x1803 @0x2
0x1801…1807 at0004 = ╱9f╱ ENDPROC ╱ // 0x1805 @0x4
0x1801…1807 at0005 = EOL // 0x1806 @0x5
0x1801…1807 }
0x1807…1810 62 8d 5f 00 42 dc 30 fe 00 ┆b _ B 0 ┆
0x1810…1830 (80,) 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 02 eb 57 ┆ E 1 G 2 V 3 W┆
0x1830…1838 dc 39 fe 00 00 90 04 ff ┆ 9 ┆
0x1838…183e (81,) 57 8d 57 8d 10 00 ┆W W ┆