|
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: 10451 (0x28d3)
Types: SPC/1-COMAL-BIN
Notes: Mikados_B
Names: »RENTE.B«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »RENTE.B«
└─⟦ff7f7aeee⟧ Bits:30009007 NBT 15/3-84
└─⟦this⟧ »RENTE.B«
0090 DIM OP1$(12),OP2$(12),RES$(15),K2$(17),K4$(17),DEBNAVN$(25) 0100 DIM A$(6),SUM1$(14),SUM2$(12),SUM3$(12),K5$(17),SALDO$(12),FSALDO$(12) 0110 DIM RENTE$(12),UBELØB1$(14),UBELØB2$(14),UBELØB3$(14),NAVN$(25) 0130 DIM DSALDO1$(12),DEBKGR$(E),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12) 0140 DIM DEBLK$(E),DEBGADE$(25),DEBTLF$(10),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12) 0150 DIM K1$(17),N$(6),K3$(17),DAT$(8),TXT1$(6,28),RENPRO$(12),TAH$(12) 0160 DIM MINREN$(12),SALDO1$(12),TAL3$(12),MUL$(E),TKO$(E),K6$(17) 0170 DIM TORENTE$(12),TEKST$(25),T1(W),T2(W),BLB2$(12),DV$(10) 0180 PROC SKRIVLIST(TXT,SIDE) 0190 REPEAT 0200 OUTPUT T 0210 CLEAR 0220 REPEAT 0230 CURSOR 15,13 0240 INPUT "Monter papir til udskrift af liste og tast RETURN",A$ 0250 EXEC NRTEST(A$) 0260 UNTIL P=-E 0270 OUTPUT P 0280 LINIE=E;SUM1$="0+";SUM2$="0+";SUM3$="0+";SALDO$="0+";FSALDO$="0+" 0281 RENTE$="0+" 0290 FOR RENNR1=E TO REN 0300 IF LINIE=40 THEN 0310 PRINT CHR(10);CHR(10);CHR(10) 0320 LINIE=E;SIDE=SIDE+E 0330 ENDIF 0340 IF LINIE=E THEN 0345 PRINT TAB(67);DV$;" " 0350 PRINT TAB(10);CHR(14);TXT$;CHR(15);" Dato: ";DAT$; 0360 PRINT USING " side:###":SIDE 0370 PRINT CHR(10) 0380 PRINT " Nr Konto Navn";TAB(44);"Saldo Forf.saldo Rentebeløb" 0390 PRINT " " 0400 ENDIF 0410 REPEAT 0420 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$ 0430 EXEC FEJL(E,E,K5$) 0440 IF KONTO=B THEN RENNR1=RENNR1+E;SALDO$="0+";FSALDO$="0+";RENTE$="0+" 0450 UNTIL KONTO<>B OR RENNR1=REN+E 0455 IF KONTO=B THEN EXIT 0460 EXEC CALC(B,SUM1$,SALDO$,SUM1$) 0470 EXEC CALC(B,SUM2$,FSALDO$,SUM2$) 0480 EXEC CALC(B,SUM3$,RENTE$,SUM3$) 0490 EXEC TUD(SALDO$,UBELØB1$,E,B) 0500 EXEC TUD(FSALDO$,UBELØB2$,E,B) 0510 EXEC TUD(RENTE$,UBELØB3$,E,B) 0520 PRINT USING "#### ###### ":RENNR1,KONTO; 0530 PRINT NAVN$;TAB(37);UBELØB1$;UBELØB2$;UBELØB3$ 0540 LINIE=LINIE+E 0550 NEXT RENNR1 0555 IF REN=B THEN 0556 PRINT CHR(10);CHR(10);CHR(10) 0557 PRINT " " 0558 ENDIF 0560 FOR LINIE=LINIE TO 40 0570 PRINT " " 0580 NEXT LINIE 0600 EXEC TUD(SUM1$,UBELØB1$,E,B) 0610 EXEC TUD(SUM2$,UBELØB2$,E,B) 0620 EXEC TUD(SUM3$,UBELØB3$,E,B) 0630 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(34);UBELØB1$;UBELØB2$;UBELØB3$ 0640 PRINT " " 0645 PRINT " " 0650 OUTPUT T 0660 CLEAR 0670 SIDE=SIDE+E;P=-8 0680 IF TYPE=G THEN EXIT 0690 REPEAT 0700 CURSOR 15,13 0710 INPUT "Ønskes ny udskrift (J/N) ",A$ 0720 EXEC NRTEST(A$) 0730 UNTIL P=-7 OR P=-8 0740 UNTIL P=-8 0750 ENDPROC 0751 PROC TUD(BLB1,UBLB1,TEGN,STØR) 0752 BLB2$=BLB1$ 0753 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 0754 IF TEGN=B THEN UBLB1$=UBLB1$(E:13) 0755 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0756 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V) 0757 ENDPROC 0760 PROC SYSGEM 0770 T2(E)=BHPOSTNR;T1(W)=RENRAPSIDE;T2(8)=REN 0780 OPEN K6$,W 0790 EXEC FEJL(V,E,K6$) 0800 PUT K6$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 0810 EXEC FEJL(V,G,K6$) 0820 PUT K6$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 0830 EXEC FEJL(V,V,K6$) 0840 CLOSE K6$ 0850 EXEC FEJL(V,4,K6$) 0860 ENDPROC 0870 PROC DATOUD(DA1,DA2) 0880 DA3=DA1 0890 DA2$=" " 0900 FOR J=8 TO E STEP -E 0910 IF J MOD V=B THEN 0920 DA2$(J)="." 0930 ELSE 0940 DA2$(J)=CHR(DA3 MOD 10+48) 0950 DA3=DA3 DIV 10 0960 ENDIF 0970 NEXT J 0980 ENDPROC 0990 PROC INDTAB1(Z,MANT5,L7) 1000 PIL1=MANT5 DIV 32 1010 FOR I=E TO PIL1 1020 H=(I-E)*8+E 1030 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) 1040 EXEC FEJL(G,E,L7$) 1050 NEXT I 1060 ENDPROC 1070 PROC NRTEST(NUM1) 1080 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$) 1090 IF L>6 THEN EXIT 1100 CASE L OF 1110 FOR I=E TO L 1120 P1=INT(ORD(NUM1$(I))-48) 1130 IF P1<B OR P1>W THEN TEST2=E 1140 P=P*10+P1 1150 NEXT I 1160 KTAL=P DIV 10000 1170 WHEN B 1180 P=-E 1190 WHEN E 1200 CASE NUM1$ OF 1210 P=INT(ORD(NUM1$)-48) 1220 WHEN "D","d" 1230 P=-G 1240 WHEN "A","a" 1250 P=-V 1260 WHEN "M","m" 1270 P=-4 1280 WHEN "J","j" 1290 P=-7 1300 WHEN "N","n" 1310 P=-8 1320 ENDCASE 1330 ENDCASE 1340 ENDPROC 1350 PROC FINDPOST2(TAB5,MANT8,NØGL6,PIL10) 1360 PIL1=MANT8 DIV 8;PIL10=PIL1;MANT3=MANT8 DIV 4;MANT4=MANT8 DIV 32 1370 REPEAT 1380 IF NØGL6=TAB5(PIL10) OR PIL1=E THEN EXIT 1390 PIL1=(PIL1+E) DIV G;PIL10=PIL10+PIL1*(E-G*(NØGL6<TAB5(PIL10))) 1400 IF PIL10<E THEN PIL10=E 1410 IF PIL10>MANT3 THEN PIL10=MANT3 1420 UNTIL PIL1=B 1430 IF TAB5(PIL10)>NØGL6 THEN PIL10=PIL10-E*(PIL10>E) 1440 ENDPROC 1450 PROC CALC(AR3,B1,B2,ES) 1460 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5) 1470 CALL "P641210:REGN" 1480 ES$=RES$ 1490 IF AR3<6 THEN 1500 IF FLAG THEN STOP 1510 ENDIF 1520 ENDPROC 1530 PROC FEJL(NR1,NR2,NR3) 1540 IF STATUS(NR3$)<>B THEN 1550 PRINT STATUS(NR3$),NR1,NR2,NR3$ 1560 STOP 1570 ENDIF 1580 ENDPROC 1590 PROC INDLÆS1(U,PIL8) 1600 PIL1=MDANTAL DIV 32+PIL8 1610 GET K2$,PIL1:U(E,E),U(E,G),U(G,E),U(G,G),U(V,E),U(V,G),U(4,E),U(4,G) 1620 EXEC FEJL(E,E,K2$) 1630 ENDPROC 1640 PROC HENTDPOST 1650 S=DTAB3(DPIL3,G) 1660 GET K3$,S:KONTO,DEBNAVN$,DSALDO1$,DEBKGR$ 1670 EXEC FEJL(8,E,K3$) 1680 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1690 EXEC FEJL(8,G,K3$) 1700 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1710 EXEC FEJL(8,V,K3$) 1720 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$ 1730 EXEC FEJL(8,4,K3$) 1740 ENDPROC 1750 K1$="P641220:SYSTEM1" 1760 OPEN K1$,R 1770 EXEC FEJL(W,E,K1$) 1780 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL 1790 EXEC FEJL(W,G,K1$) 1800 GET K1$,G:MKAS,MPOS,MBHPOST,MFMID 1810 EXEC FEJL(W,V,K1$) 1820 GET K1$,V:MDMID 1830 EXEC FEJL(W,4,K1$) 1840 GET K1$,7:INDMOMS,RENTENR 1850 EXEC FEJL(W,5,K1$) 1855 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 1856 EXEC FEJL(W,51,K1$) 1860 GET K1$,10:N$ 1870 EXEC FEJL(W,6,K1$) 1880 GET K1$,12:K2$ 1890 EXEC FEJL(W,7,K1$) 1900 GET K1$,16:K3$ 1910 EXEC FEJL(W,8,K1$) 1920 GET K1$,21:K4$ 1930 EXEC FEJL(W,W,K1$) 1940 GET K1$,36:K6$ 1950 EXEC FEJL(W,10,K1$) 1960 CLOSE K1$ 1970 EXEC FEJL(W,11,K1$) 1980 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K6$=N$+K6$;K5$=N$+"10:RENPOST" 1990 DIM DTAB(MDANTAL DIV 4),DTAB3(4,G) 2000 IF MDMID>MBHPOST THEN MDMID=MBHPOST 2010 CREATE K5$,MDMID,70 2020 IF STATUS(K5$)>G THEN STOP 2030 OPEN K6$,R 2040 EXEC FEJL(W,12,K6$) 2050 GET K6$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W) 2060 EXEC FEJL(W,13,K6$) 2070 GET K6$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W) 2080 EXEC FEJL(W,14,K6$) 2082 GET K6$,20:DV$ 2084 EXEC FEJL(W,22,K6$) 2090 CLOSE K6$ 2100 EXEC FEJL(W,15,K6$) 2110 DATO=T1(7);BHPOSTNR=T2(E);RENRAPSIDE=T1(W);REN=T2(8);TAH$="0+" 2111 TAL3$="100+" 2120 OPEN K2$,R 2130 EXEC FEJL(W,16,K2$) 2140 OPEN K3$,R 2150 EXEC FEJL(W,17,K3$) 2160 OPEN K4$,W 2170 EXEC FEJL(W,18,K4$) 2180 OPEN K5$,W 2190 EXEC FEJL(W,19,K5$) 2200 EXEC INDTAB1(DTAB,MDANTAL,K2$) 2210 EXEC DATOUD(DATO,DAT$) 2220 TXT1$(E)="Beregning af rente" 2230 TXT1$(G)="Bogføring af rente" 2240 TXT1$(V)="Sletning af renteposteringer" 2250 TXT1$(4)="Udskriv renteposteringer" 2260 TXT1$(5)="Renteberegningsoversigt" 2270 TXT1$(6)="Rentebogføringsrapport" 2280 REPEAT 2290 OUTPUT T 2300 CLEAR 2310 CURSOR 20,E 2320 PRINT "Renteberegning" 2330 CURSOR 16,4 2340 PRINT "0 :Færdig" 2350 FOR I=E TO 4 2360 CURSOR 15,(I-E)*G+6 2370 PRINT I;":";TXT1$(I) 2380 NEXT I 2390 REPEAT 2400 CURSOR 18,14 2410 INPUT "Vælg type (0-4): ",A$ 2420 EXEC NRTEST(A$) 2430 UNTIL P=>B AND P<5 AND TEST2=B 2440 TYPE=P 2450 IF TYPE=B THEN EXIT 2470 CLEAR 2480 CURSOR 18,8 2490 PRINT TXT1$(TYPE) 2500 CASE TYPE OF 2510 STOP 2520 WHEN E 2525 REPEAT 2530 REPEAT 2540 CURSOR 18,10 2550 PRINT "Fra kundenr : (0:Alle)" 2560 CURSOR 31,10 2570 INPUT " ",A$ 2580 EXEC NRTEST(A$) 2590 UNTIL (KTAL=DTAL OR P=B) AND TEST2=B 2600 FRANR=P 2610 IF P=B THEN 2620 FRA=E;TIL=MDANTAL DIV 4;TILNR=(DTAL+E)*10000 2630 ELSE 2640 EXEC FINDPOST2(DTAB,MDANTAL,P,FRA) 2650 IF DTAB(FRA)=1000000 THEN FRA=B 2660 ENDIF 2670 UNTIL FRA>B 2680 IF P>B THEN 2690 REPEAT 2700 REPEAT 2710 CURSOR 18,12 2720 INPUT "Til kundenr : ",A$ 2730 EXEC NRTEST(A$) 2740 UNTIL KTAL=DTAL AND TEST2=B 2750 EXEC FINDPOST2(DTAB,MDANTAL,P,TIL) 2760 TILNR=P 2770 UNTIL FRA<=TIL 2780 ENDIF 2790 REPEAT 2800 REPEAT 2810 CURSOR 18,14 2820 INPUT "Indtast renteprocent: ",RENPRO$ 2830 RENPRO$=RENPRO$+"+" 2840 EXEC CALC(6,RENPRO$,TAH$,RENPRO$) 2850 UNTIL FLAG=B 2860 REPEAT 2870 CURSOR 18,16 2880 PRINT "Er ";RENPRO$(7:5);" % rigtig (J/N)" 2890 CURSOR 42,16 2900 INPUT " ",A$ 2910 EXEC NRTEST(A$) 2920 UNTIL P=-7 OR P=-8 2930 UNTIL P=-7 2940 REPEAT 2950 CURSOR 18,18 2960 INPUT "Indtast minimumsrentebeløb: ",MINREN$ 2970 MINREN$=MINREN$+"+" 2980 EXEC CALC(6,MINREN$,TAH$,MINREN$) 2990 UNTIL FLAG=B 3000 REPEAT 3010 CURSOR 18,20 3020 PRINT "Foretages denne beregning før eller efter månedsafslutning" 3030 CURSOR 18,22 3040 INPUT "Vælg 0:Før , 1:Efter ",A$ 3050 EXEC NRTEST(A$) 3060 UNTIL (P=B OR P=E) AND TEST2=B 3070 FØR=P 3080 FOR DPIL1=FRA TO TIL 3090 IF TILNR<DTAB(DPIL1) OR REN=MDMID THEN EXIT 3100 EXEC INDLÆS1(DTAB3,DPIL1) 3110 FOR DPIL3=E TO 4 3120 IF DTAB3(DPIL3,E)=>FRANR AND DTAB3(DPIL3,E)<=TILNR THEN 3130 EXEC HENTDPOST 3140 SALDO$="0+";SALDO1$="0+" 3150 EXEC CALC(B,DSALDO4$,DSALDO3$,SALDO$) 3160 EXEC CALC(B,DSALDO1$,DSALDO2$,SALDO1$) 3170 EXEC CALC(B,SALDO1$,SALDO$,SALDO1$) 3180 IF FØR=B THEN EXEC CALC(B,SALDO$,DSALDO2$,SALDO$) 3190 IF SALDO$(LEN(SALDO$))="+" THEN 3200 EXEC CALC(G,SALDO$,RENPRO$,RENTE$) 3210 EXEC CALC(V,RENTE$,TAL3$,RENTE$) 3220 EXEC CALC(4,RENTE$,MINREN$,TAL3$) 3230 IF SI<>E THEN 3240 REN=REN+E 3250 PUT K5$,REN:KONTO,DEBNAVN$,SALDO1$,SALDO$,RENTE$ 3260 EXEC FEJL(G,E,K5$) 3265 ENDIF 3270 ENDIF 3280 ENDIF 3290 IF DTAB3(DPIL3,E)>TILNR OR REN=>MDMID THEN EXIT 3300 NEXT DPIL3 3310 NEXT DPIL1 3320 IF REN=MDMID THEN 3330 CLEAR 3340 REPEAT 3350 CURSOR 15,13 3360 INPUT "Ikke plads til flere renteposteringer,tast RETURN",A$ 3370 EXEC NRTEST(A$) 3380 UNTIL P=-E 3390 ENDIF 3400 CLEAR 3410 REPEAT 3420 CURSOR 15,13 3430 INPUT "Ønskes liste udskrevet (J/N): ",A$ 3440 EXEC NRTEST(A$) 3450 UNTIL P=-7 OR P=-8 3460 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1) 3470 WHEN G 3480 MUL$="4";TKO$=CHR(23+48);TORENTE$="0+" 3490 FOR RENNR1=E TO REN 3500 GET K5$,RENNR1:KONTO,NAVN$,SALDO1$,SALDO$,RENTE$ 3510 EXEC FEJL(4,E,K5$) 3520 IF KONTO<>B THEN 3530 BHPOSTNR=BHPOSTNR+E 3540 PUT K4$,BHPOSTNR:KONTO,DATO,RENNR1,TKO$,RENTE$,MUL$ 3550 EXEC FEJL(4,G,K4$) 3560 EXEC CALC(E,TORENTE$,RENTE$,TORENTE$) 3570 ENDIF 3580 NEXT RENNR1 3590 BHPOSTNR=BHPOSTNR+G;TKO$=CHR(10+48);TEKST$="Samlet rentepostering" 3600 PUT K4$,BHPOSTNR-E:RENTENR,DATO,RENRAPSIDE,TKO$,TORENTE$,MUL$ 3610 EXEC FEJL(4,V,K4$) 3620 PUT K4$,BHPOSTNR:RENTENR,TEKST$ 3630 EXEC FEJL(4,4,K4$) 3640 EXEC SKRIVLIST(TXT1$(6),RENRAPSIDE) 3650 REN=B 3660 EXEC SYSGEM 3670 FOR I=E TO RENNR1-E 3680 PUT K5$,I:B,TAH$,TAH$,TAH$ 3690 EXEC FEJL(4,5,K5$) 3700 NEXT I 3710 WHEN V 3720 REPEAT 3730 CURSOR 18,10 3740 PRINT "Fra posteringsnr : (0:Alle,RETURN:færdig)" 3750 CURSOR 36,10 3760 INPUT " ",A$ 3770 EXEC NRTEST(A$) 3780 UNTIL P<=REN AND TEST2=B 3790 FRA=P 3800 IF P<>-E THEN 3810 IF P=B THEN 3820 FRA=E;TIL=REN 3830 ELSE 3840 REPEAT 3850 CURSOR 18,12 3860 INPUT "Til posteringsnr : ",A$ 3870 EXEC NRTEST(A$) 3880 UNTIL P=>FRA AND TEST2=B AND P<=REN 3885 TIL=P 3890 ENDIF 3900 FOR RENNR1=FRA TO TIL 3910 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$ 3920 EXEC FEJL(V,E,K5$) 3930 PUT K5$,RENNR1:B,NAVN$,SALDO$,FSALDO$,RENTE$ 3940 EXEC FEJL(V,G,K5$) 3950 NEXT RENNR1 3960 CLEAR 3970 REPEAT 3980 CURSOR 15,13 3990 INPUT "Ønskes liste udskrevet (J/N): ",A$ 4000 EXEC NRTEST(A$) 4010 UNTIL P=-7 OR P=-8 4020 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1) 4030 ENDIF 4040 WHEN 4 4050 EXEC SKRIVLIST(TXT1$(5),1) 4060 ENDCASE 4080 UNTIL TYPE=G OR TYPE=B 4090 CLOSE K4$ 4100 EXEC FEJL(W,20,K4$) 4110 CLOSE K5$ 4120 EXEC FEJL(W,21,K5$) 4130 CLOSE 4140 CLEAR 4200 IF TYPE=G THEN CHAIN "P641210:BJ" 4210 EXEC SYSGEM 4220 CHAIN "P641210:OPSTART"
0x0000…005b (0,) 8db2 0090 DIM OP1$(12),OP2$(12),RES$(15),K2$(17),K4$(17),DEBNAVN$(25)
0x0000…005b LineComalBin {
0x0000…005b ptr = 0x8db2 // 0x0 @0x0
0x0000…005b lno = 0x005a // 0x2 @0x2
0x0000…005b at0004 = ╱87╱ DIM ╱ // 0x4 @0x4
0x0000…005b at0005 = ╱4f╱O╱ // 0x5 @0x5
0x0000…005b at0006 = ╱50╱P╱ // 0x6 @0x6
0x0000…005b at0007 = ╱31╱1╱ // 0x7 @0x7
0x0000…005b at0008 = ╱ef╱$╱ // 0x8 @0x8
0x0000…005b at0009 = ╱ed╱(╱ // 0x9 @0x9
0x0000…005b at000a = ╱31╱1╱ // 0xa @0xa
0x0000…005b at000b = ╱32╱2╱ // 0xb @0xb
0x0000…005b at000c = ╱fe0000c004╱ // 0xc @0xc
0x0000…005b at0011 = ╱ee╱)╱ // 0x11 @0x11
0x0000…005b at0012 = ╱ec╱,╱ // 0x12 @0x12
0x0000…005b at0013 = ╱4f╱O╱ // 0x13 @0x13
0x0000…005b at0014 = ╱50╱P╱ // 0x14 @0x14
0x0000…005b at0015 = ╱32╱2╱ // 0x15 @0x15
0x0000…005b at0016 = ╱ef╱$╱ // 0x16 @0x16
0x0000…005b at0017 = ╱ed╱(╱ // 0x17 @0x17
0x0000…005b at0018 = ╱31╱1╱ // 0x18 @0x18
0x0000…005b at0019 = ╱32╱2╱ // 0x19 @0x19
0x0000…005b at001a = ╱fe0000c004╱ // 0x1a @0x1a
0x0000…005b at001f = ╱ee╱)╱ // 0x1f @0x1f
0x0000…005b at0020 = ╱ec╱,╱ // 0x20 @0x20
0x0000…005b at0021 = ╱52╱R╱ // 0x21 @0x21
0x0000…005b at0022 = ╱45╱E╱ // 0x22 @0x22
0x0000…005b at0023 = ╱53╱S╱ // 0x23 @0x23
0x0000…005b at0024 = ╱ef╱$╱ // 0x24 @0x24
0x0000…005b at0025 = ╱ed╱(╱ // 0x25 @0x25
0x0000…005b at0026 = ╱31╱1╱ // 0x26 @0x26
0x0000…005b at0027 = ╱35╱5╱ // 0x27 @0x27
0x0000…005b at0028 = ╱fe0000f004╱ // 0x28 @0x28
0x0000…005b at002d = ╱ee╱)╱ // 0x2d @0x2d
0x0000…005b at002e = ╱ec╱,╱ // 0x2e @0x2e
0x0000…005b at002f = ╱4b╱K╱ // 0x2f @0x2f
0x0000…005b at0030 = ╱32╱2╱ // 0x30 @0x30
0x0000…005b at0031 = ╱ef╱$╱ // 0x31 @0x31
0x0000…005b at0032 = ╱ed╱(╱ // 0x32 @0x32
0x0000…005b at0033 = ╱31╱1╱ // 0x33 @0x33
0x0000…005b at0034 = ╱37╱7╱ // 0x34 @0x34
0x0000…005b at0035 = ╱fe00008805╱ // 0x35 @0x35
0x0000…005b at003a = ╱ee╱)╱ // 0x3a @0x3a
0x0000…005b at003b = ╱ec╱,╱ // 0x3b @0x3b
0x0000…005b at003c = ╱4b╱K╱ // 0x3c @0x3c
0x0000…005b at003d = ╱34╱4╱ // 0x3d @0x3d
0x0000…005b at003e = ╱ef╱$╱ // 0x3e @0x3e
0x0000…005b at003f = ╱ed╱(╱ // 0x3f @0x3f
0x0000…005b at0040 = ╱31╱1╱ // 0x40 @0x40
0x0000…005b at0041 = ╱37╱7╱ // 0x41 @0x41
0x0000…005b at0042 = ╱fe00008805╱ // 0x42 @0x42
0x0000…005b at0047 = ╱ee╱)╱ // 0x47 @0x47
0x0000…005b at0048 = ╱ec╱,╱ // 0x48 @0x48
0x0000…005b at0049 = ╱44╱D╱ // 0x49 @0x49
0x0000…005b at004a = ╱45╱E╱ // 0x4a @0x4a
0x0000…005b at004b = ╱42╱B╱ // 0x4b @0x4b
0x0000…005b at004c = ╱4e╱N╱ // 0x4c @0x4c
0x0000…005b at004d = ╱41╱A╱ // 0x4d @0x4d
0x0000…005b at004e = ╱56╱V╱ // 0x4e @0x4e
0x0000…005b at004f = ╱4e╱N╱ // 0x4f @0x4f
0x0000…005b at0050 = ╱ef╱$╱ // 0x50 @0x50
0x0000…005b at0051 = ╱ed╱(╱ // 0x51 @0x51
0x0000…005b at0052 = ╱32╱2╱ // 0x52 @0x52
0x0000…005b at0053 = ╱35╱5╱ // 0x53 @0x53
0x0000…005b at0054 = ╱fe0000c805╱ // 0x54 @0x54
0x0000…005b at0059 = ╱ee╱)╱ // 0x59 @0x59
0x0000…005b at005a = EOL // 0x5a @0x5a
0x0000…005b }
0x005b…00c6 8e1d 0100 DIM A$(6),SUM1$(14),SUM2$(12),SUM3$(12),K5$(17),SALDO$(12),FSALDO$(12)
0x005b…00c6 LineComalBin {
0x005b…00c6 ptr = 0x8e1d // 0x5b @0x0
0x005b…00c6 lno = 0x0064 // 0x5d @0x2
0x005b…00c6 at0004 = ╱87╱ DIM ╱ // 0x5f @0x4
0x005b…00c6 at0005 = ╱41╱A╱ // 0x60 @0x5
0x005b…00c6 at0006 = ╱ef╱$╱ // 0x61 @0x6
0x005b…00c6 at0007 = ╱ed╱(╱ // 0x62 @0x7
0x005b…00c6 at0008 = ╱36╱6╱ // 0x63 @0x8
0x005b…00c6 at0009 = ╱fe0000c003╱ // 0x64 @0x9
0x005b…00c6 at000e = ╱ee╱)╱ // 0x69 @0xe
0x005b…00c6 at000f = ╱ec╱,╱ // 0x6a @0xf
0x005b…00c6 at0010 = ╱53╱S╱ // 0x6b @0x10
0x005b…00c6 at0011 = ╱55╱U╱ // 0x6c @0x11
0x005b…00c6 at0012 = ╱4d╱M╱ // 0x6d @0x12
0x005b…00c6 at0013 = ╱31╱1╱ // 0x6e @0x13
0x005b…00c6 at0014 = ╱ef╱$╱ // 0x6f @0x14
0x005b…00c6 at0015 = ╱ed╱(╱ // 0x70 @0x15
0x005b…00c6 at0016 = ╱31╱1╱ // 0x71 @0x16
0x005b…00c6 at0017 = ╱34╱4╱ // 0x72 @0x17
0x005b…00c6 at0018 = ╱fe0000e004╱ // 0x73 @0x18
0x005b…00c6 at001d = ╱ee╱)╱ // 0x78 @0x1d
0x005b…00c6 at001e = ╱ec╱,╱ // 0x79 @0x1e
0x005b…00c6 at001f = ╱53╱S╱ // 0x7a @0x1f
0x005b…00c6 at0020 = ╱55╱U╱ // 0x7b @0x20
0x005b…00c6 at0021 = ╱4d╱M╱ // 0x7c @0x21
0x005b…00c6 at0022 = ╱32╱2╱ // 0x7d @0x22
0x005b…00c6 at0023 = ╱ef╱$╱ // 0x7e @0x23
0x005b…00c6 at0024 = ╱ed╱(╱ // 0x7f @0x24
0x005b…00c6 at0025 = ╱31╱1╱ // 0x80 @0x25
0x005b…00c6 at0026 = ╱32╱2╱ // 0x81 @0x26
0x005b…00c6 at0027 = ╱fe0000c004╱ // 0x82 @0x27
0x005b…00c6 at002c = ╱ee╱)╱ // 0x87 @0x2c
0x005b…00c6 at002d = ╱ec╱,╱ // 0x88 @0x2d
0x005b…00c6 at002e = ╱53╱S╱ // 0x89 @0x2e
0x005b…00c6 at002f = ╱55╱U╱ // 0x8a @0x2f
0x005b…00c6 at0030 = ╱4d╱M╱ // 0x8b @0x30
0x005b…00c6 at0031 = ╱33╱3╱ // 0x8c @0x31
0x005b…00c6 at0032 = ╱ef╱$╱ // 0x8d @0x32
0x005b…00c6 at0033 = ╱ed╱(╱ // 0x8e @0x33
0x005b…00c6 at0034 = ╱31╱1╱ // 0x8f @0x34
0x005b…00c6 at0035 = ╱32╱2╱ // 0x90 @0x35
0x005b…00c6 at0036 = ╱fe0000c004╱ // 0x91 @0x36
0x005b…00c6 at003b = ╱ee╱)╱ // 0x96 @0x3b
0x005b…00c6 at003c = ╱ec╱,╱ // 0x97 @0x3c
0x005b…00c6 at003d = ╱4b╱K╱ // 0x98 @0x3d
0x005b…00c6 at003e = ╱35╱5╱ // 0x99 @0x3e
0x005b…00c6 at003f = ╱ef╱$╱ // 0x9a @0x3f
0x005b…00c6 at0040 = ╱ed╱(╱ // 0x9b @0x40
0x005b…00c6 at0041 = ╱31╱1╱ // 0x9c @0x41
0x005b…00c6 at0042 = ╱37╱7╱ // 0x9d @0x42
0x005b…00c6 at0043 = ╱fe00008805╱ // 0x9e @0x43
0x005b…00c6 at0048 = ╱ee╱)╱ // 0xa3 @0x48
0x005b…00c6 at0049 = ╱ec╱,╱ // 0xa4 @0x49
0x005b…00c6 at004a = ╱53╱S╱ // 0xa5 @0x4a
0x005b…00c6 at004b = ╱41╱A╱ // 0xa6 @0x4b
0x005b…00c6 at004c = ╱4c╱L╱ // 0xa7 @0x4c
0x005b…00c6 at004d = ╱44╱D╱ // 0xa8 @0x4d
0x005b…00c6 at004e = ╱4f╱O╱ // 0xa9 @0x4e
0x005b…00c6 at004f = ╱ef╱$╱ // 0xaa @0x4f
0x005b…00c6 at0050 = ╱ed╱(╱ // 0xab @0x50
0x005b…00c6 at0051 = ╱31╱1╱ // 0xac @0x51
0x005b…00c6 at0052 = ╱32╱2╱ // 0xad @0x52
0x005b…00c6 at0053 = ╱fe0000c004╱ // 0xae @0x53
0x005b…00c6 at0058 = ╱ee╱)╱ // 0xb3 @0x58
0x005b…00c6 at0059 = ╱ec╱,╱ // 0xb4 @0x59
0x005b…00c6 at005a = ╱46╱F╱ // 0xb5 @0x5a
0x005b…00c6 at005b = ╱53╱S╱ // 0xb6 @0x5b
0x005b…00c6 at005c = ╱41╱A╱ // 0xb7 @0x5c
0x005b…00c6 at005d = ╱4c╱L╱ // 0xb8 @0x5d
0x005b…00c6 at005e = ╱44╱D╱ // 0xb9 @0x5e
0x005b…00c6 at005f = ╱4f╱O╱ // 0xba @0x5f
0x005b…00c6 at0060 = ╱ef╱$╱ // 0xbb @0x60
0x005b…00c6 at0061 = ╱ed╱(╱ // 0xbc @0x61
0x005b…00c6 at0062 = ╱31╱1╱ // 0xbd @0x62
0x005b…00c6 at0063 = ╱32╱2╱ // 0xbe @0x63
0x005b…00c6 at0064 = ╱fe0000c004╱ // 0xbf @0x64
0x005b…00c6 at0069 = ╱ee╱)╱ // 0xc4 @0x69
0x005b…00c6 at006a = EOL // 0xc5 @0x6a
0x005b…00c6 }
0x00c6…0120 8e77 0110 DIM RENTE$(12),UBELØB1$(14),UBELØB2$(14),UBELØB3$(14),NAVN$(25)
0x00c6…0120 LineComalBin {
0x00c6…0120 ptr = 0x8e77 // 0xc6 @0x0
0x00c6…0120 lno = 0x006e // 0xc8 @0x2
0x00c6…0120 at0004 = ╱87╱ DIM ╱ // 0xca @0x4
0x00c6…0120 at0005 = ╱52╱R╱ // 0xcb @0x5
0x00c6…0120 at0006 = ╱45╱E╱ // 0xcc @0x6
0x00c6…0120 at0007 = ╱4e╱N╱ // 0xcd @0x7
0x00c6…0120 at0008 = ╱54╱T╱ // 0xce @0x8
0x00c6…0120 at0009 = ╱45╱E╱ // 0xcf @0x9
0x00c6…0120 at000a = ╱ef╱$╱ // 0xd0 @0xa
0x00c6…0120 at000b = ╱ed╱(╱ // 0xd1 @0xb
0x00c6…0120 at000c = ╱31╱1╱ // 0xd2 @0xc
0x00c6…0120 at000d = ╱32╱2╱ // 0xd3 @0xd
0x00c6…0120 at000e = ╱fe0000c004╱ // 0xd4 @0xe
0x00c6…0120 at0013 = ╱ee╱)╱ // 0xd9 @0x13
0x00c6…0120 at0014 = ╱ec╱,╱ // 0xda @0x14
0x00c6…0120 at0015 = ╱55╱U╱ // 0xdb @0x15
0x00c6…0120 at0016 = ╱42╱B╱ // 0xdc @0x16
0x00c6…0120 at0017 = ╱45╱E╱ // 0xdd @0x17
0x00c6…0120 at0018 = ╱4c╱L╱ // 0xde @0x18
0x00c6…0120 at0019 = ╱5c╱Ø╱ // 0xdf @0x19
0x00c6…0120 at001a = ╱42╱B╱ // 0xe0 @0x1a
0x00c6…0120 at001b = ╱31╱1╱ // 0xe1 @0x1b
0x00c6…0120 at001c = ╱ef╱$╱ // 0xe2 @0x1c
0x00c6…0120 at001d = ╱ed╱(╱ // 0xe3 @0x1d
0x00c6…0120 at001e = ╱31╱1╱ // 0xe4 @0x1e
0x00c6…0120 at001f = ╱34╱4╱ // 0xe5 @0x1f
0x00c6…0120 at0020 = ╱fe0000e004╱ // 0xe6 @0x20
0x00c6…0120 at0025 = ╱ee╱)╱ // 0xeb @0x25
0x00c6…0120 at0026 = ╱ec╱,╱ // 0xec @0x26
0x00c6…0120 at0027 = ╱55╱U╱ // 0xed @0x27
0x00c6…0120 at0028 = ╱42╱B╱ // 0xee @0x28
0x00c6…0120 at0029 = ╱45╱E╱ // 0xef @0x29
0x00c6…0120 at002a = ╱4c╱L╱ // 0xf0 @0x2a
0x00c6…0120 at002b = ╱5c╱Ø╱ // 0xf1 @0x2b
0x00c6…0120 at002c = ╱42╱B╱ // 0xf2 @0x2c
0x00c6…0120 at002d = ╱32╱2╱ // 0xf3 @0x2d
0x00c6…0120 at002e = ╱ef╱$╱ // 0xf4 @0x2e
0x00c6…0120 at002f = ╱ed╱(╱ // 0xf5 @0x2f
0x00c6…0120 at0030 = ╱31╱1╱ // 0xf6 @0x30
0x00c6…0120 at0031 = ╱34╱4╱ // 0xf7 @0x31
0x00c6…0120 at0032 = ╱fe0000e004╱ // 0xf8 @0x32
0x00c6…0120 at0037 = ╱ee╱)╱ // 0xfd @0x37
0x00c6…0120 at0038 = ╱ec╱,╱ // 0xfe @0x38
0x00c6…0120 at0039 = ╱55╱U╱ // 0xff @0x39
0x00c6…0120 at003a = ╱42╱B╱ // 0x100 @0x3a
0x00c6…0120 at003b = ╱45╱E╱ // 0x101 @0x3b
0x00c6…0120 at003c = ╱4c╱L╱ // 0x102 @0x3c
0x00c6…0120 at003d = ╱5c╱Ø╱ // 0x103 @0x3d
0x00c6…0120 at003e = ╱42╱B╱ // 0x104 @0x3e
0x00c6…0120 at003f = ╱33╱3╱ // 0x105 @0x3f
0x00c6…0120 at0040 = ╱ef╱$╱ // 0x106 @0x40
0x00c6…0120 at0041 = ╱ed╱(╱ // 0x107 @0x41
0x00c6…0120 at0042 = ╱31╱1╱ // 0x108 @0x42
0x00c6…0120 at0043 = ╱34╱4╱ // 0x109 @0x43
0x00c6…0120 at0044 = ╱fe0000e004╱ // 0x10a @0x44
0x00c6…0120 at0049 = ╱ee╱)╱ // 0x10f @0x49
0x00c6…0120 at004a = ╱ec╱,╱ // 0x110 @0x4a
0x00c6…0120 at004b = ╱4e╱N╱ // 0x111 @0x4b
0x00c6…0120 at004c = ╱41╱A╱ // 0x112 @0x4c
0x00c6…0120 at004d = ╱56╱V╱ // 0x113 @0x4d
0x00c6…0120 at004e = ╱4e╱N╱ // 0x114 @0x4e
0x00c6…0120 at004f = ╱ef╱$╱ // 0x115 @0x4f
0x00c6…0120 at0050 = ╱ed╱(╱ // 0x116 @0x50
0x00c6…0120 at0051 = ╱32╱2╱ // 0x117 @0x51
0x00c6…0120 at0052 = ╱35╱5╱ // 0x118 @0x52
0x00c6…0120 at0053 = ╱fe0000c805╱ // 0x119 @0x53
0x00c6…0120 at0058 = ╱ee╱)╱ // 0x11e @0x58
0x00c6…0120 at0059 = EOL // 0x11f @0x59
0x00c6…0120 }
0x0120…0178 8ecf 0130 DIM DSALDO1$(12),DEBKGR$(E),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12)
0x0120…0178 LineComalBin {
0x0120…0178 ptr = 0x8ecf // 0x120 @0x0
0x0120…0178 lno = 0x0082 // 0x122 @0x2
0x0120…0178 at0004 = ╱87╱ DIM ╱ // 0x124 @0x4
0x0120…0178 at0005 = ╱44╱D╱ // 0x125 @0x5
0x0120…0178 at0006 = ╱53╱S╱ // 0x126 @0x6
0x0120…0178 at0007 = ╱41╱A╱ // 0x127 @0x7
0x0120…0178 at0008 = ╱4c╱L╱ // 0x128 @0x8
0x0120…0178 at0009 = ╱44╱D╱ // 0x129 @0x9
0x0120…0178 at000a = ╱4f╱O╱ // 0x12a @0xa
0x0120…0178 at000b = ╱31╱1╱ // 0x12b @0xb
0x0120…0178 at000c = ╱ef╱$╱ // 0x12c @0xc
0x0120…0178 at000d = ╱ed╱(╱ // 0x12d @0xd
0x0120…0178 at000e = ╱31╱1╱ // 0x12e @0xe
0x0120…0178 at000f = ╱32╱2╱ // 0x12f @0xf
0x0120…0178 at0010 = ╱fe0000c004╱ // 0x130 @0x10
0x0120…0178 at0015 = ╱ee╱)╱ // 0x135 @0x15
0x0120…0178 at0016 = ╱ec╱,╱ // 0x136 @0x16
0x0120…0178 at0017 = ╱44╱D╱ // 0x137 @0x17
0x0120…0178 at0018 = ╱45╱E╱ // 0x138 @0x18
0x0120…0178 at0019 = ╱42╱B╱ // 0x139 @0x19
0x0120…0178 at001a = ╱4b╱K╱ // 0x13a @0x1a
0x0120…0178 at001b = ╱47╱G╱ // 0x13b @0x1b
0x0120…0178 at001c = ╱52╱R╱ // 0x13c @0x1c
0x0120…0178 at001d = ╱ef╱$╱ // 0x13d @0x1d
0x0120…0178 at001e = ╱ed╱(╱ // 0x13e @0x1e
0x0120…0178 at001f = ╱45╱E╱ // 0x13f @0x1f
0x0120…0178 at0020 = ╱ee╱)╱ // 0x140 @0x20
0x0120…0178 at0021 = ╱ec╱,╱ // 0x141 @0x21
0x0120…0178 at0022 = ╱44╱D╱ // 0x142 @0x22
0x0120…0178 at0023 = ╱53╱S╱ // 0x143 @0x23
0x0120…0178 at0024 = ╱41╱A╱ // 0x144 @0x24
0x0120…0178 at0025 = ╱4c╱L╱ // 0x145 @0x25
0x0120…0178 at0026 = ╱44╱D╱ // 0x146 @0x26
0x0120…0178 at0027 = ╱4f╱O╱ // 0x147 @0x27
0x0120…0178 at0028 = ╱32╱2╱ // 0x148 @0x28
0x0120…0178 at0029 = ╱ef╱$╱ // 0x149 @0x29
0x0120…0178 at002a = ╱ed╱(╱ // 0x14a @0x2a
0x0120…0178 at002b = ╱31╱1╱ // 0x14b @0x2b
0x0120…0178 at002c = ╱32╱2╱ // 0x14c @0x2c
0x0120…0178 at002d = ╱fe0000c004╱ // 0x14d @0x2d
0x0120…0178 at0032 = ╱ee╱)╱ // 0x152 @0x32
0x0120…0178 at0033 = ╱ec╱,╱ // 0x153 @0x33
0x0120…0178 at0034 = ╱44╱D╱ // 0x154 @0x34
0x0120…0178 at0035 = ╱53╱S╱ // 0x155 @0x35
0x0120…0178 at0036 = ╱41╱A╱ // 0x156 @0x36
0x0120…0178 at0037 = ╱4c╱L╱ // 0x157 @0x37
0x0120…0178 at0038 = ╱44╱D╱ // 0x158 @0x38
0x0120…0178 at0039 = ╱4f╱O╱ // 0x159 @0x39
0x0120…0178 at003a = ╱33╱3╱ // 0x15a @0x3a
0x0120…0178 at003b = ╱ef╱$╱ // 0x15b @0x3b
0x0120…0178 at003c = ╱ed╱(╱ // 0x15c @0x3c
0x0120…0178 at003d = ╱31╱1╱ // 0x15d @0x3d
0x0120…0178 at003e = ╱32╱2╱ // 0x15e @0x3e
0x0120…0178 at003f = ╱fe0000c004╱ // 0x15f @0x3f
0x0120…0178 at0044 = ╱ee╱)╱ // 0x164 @0x44
0x0120…0178 at0045 = ╱ec╱,╱ // 0x165 @0x45
0x0120…0178 at0046 = ╱44╱D╱ // 0x166 @0x46
0x0120…0178 at0047 = ╱53╱S╱ // 0x167 @0x47
0x0120…0178 at0048 = ╱41╱A╱ // 0x168 @0x48
0x0120…0178 at0049 = ╱4c╱L╱ // 0x169 @0x49
0x0120…0178 at004a = ╱44╱D╱ // 0x16a @0x4a
0x0120…0178 at004b = ╱4f╱O╱ // 0x16b @0x4b
0x0120…0178 at004c = ╱34╱4╱ // 0x16c @0x4c
0x0120…0178 at004d = ╱ef╱$╱ // 0x16d @0x4d
0x0120…0178 at004e = ╱ed╱(╱ // 0x16e @0x4e
0x0120…0178 at004f = ╱31╱1╱ // 0x16f @0x4f
0x0120…0178 at0050 = ╱32╱2╱ // 0x170 @0x50
0x0120…0178 at0051 = ╱fe0000c004╱ // 0x171 @0x51
0x0120…0178 at0056 = ╱ee╱)╱ // 0x176 @0x56
0x0120…0178 at0057 = EOL // 0x177 @0x57
0x0120…0178 }
0x0178…01db 8f32 0140 DIM DEBLK$(E),DEBGADE$(25),DEBTLF$(10),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12)
0x0178…01db LineComalBin {
0x0178…01db ptr = 0x8f32 // 0x178 @0x0
0x0178…01db lno = 0x008c // 0x17a @0x2
0x0178…01db at0004 = ╱87╱ DIM ╱ // 0x17c @0x4
0x0178…01db at0005 = ╱44╱D╱ // 0x17d @0x5
0x0178…01db at0006 = ╱45╱E╱ // 0x17e @0x6
0x0178…01db at0007 = ╱42╱B╱ // 0x17f @0x7
0x0178…01db at0008 = ╱4c╱L╱ // 0x180 @0x8
0x0178…01db at0009 = ╱4b╱K╱ // 0x181 @0x9
0x0178…01db at000a = ╱ef╱$╱ // 0x182 @0xa
0x0178…01db at000b = ╱ed╱(╱ // 0x183 @0xb
0x0178…01db at000c = ╱45╱E╱ // 0x184 @0xc
0x0178…01db at000d = ╱ee╱)╱ // 0x185 @0xd
0x0178…01db at000e = ╱ec╱,╱ // 0x186 @0xe
0x0178…01db at000f = ╱44╱D╱ // 0x187 @0xf
0x0178…01db at0010 = ╱45╱E╱ // 0x188 @0x10
0x0178…01db at0011 = ╱42╱B╱ // 0x189 @0x11
0x0178…01db at0012 = ╱47╱G╱ // 0x18a @0x12
0x0178…01db at0013 = ╱41╱A╱ // 0x18b @0x13
0x0178…01db at0014 = ╱44╱D╱ // 0x18c @0x14
0x0178…01db at0015 = ╱45╱E╱ // 0x18d @0x15
0x0178…01db at0016 = ╱ef╱$╱ // 0x18e @0x16
0x0178…01db at0017 = ╱ed╱(╱ // 0x18f @0x17
0x0178…01db at0018 = ╱32╱2╱ // 0x190 @0x18
0x0178…01db at0019 = ╱35╱5╱ // 0x191 @0x19
0x0178…01db at001a = ╱fe0000c805╱ // 0x192 @0x1a
0x0178…01db at001f = ╱ee╱)╱ // 0x197 @0x1f
0x0178…01db at0020 = ╱ec╱,╱ // 0x198 @0x20
0x0178…01db at0021 = ╱44╱D╱ // 0x199 @0x21
0x0178…01db at0022 = ╱45╱E╱ // 0x19a @0x22
0x0178…01db at0023 = ╱42╱B╱ // 0x19b @0x23
0x0178…01db at0024 = ╱54╱T╱ // 0x19c @0x24
0x0178…01db at0025 = ╱4c╱L╱ // 0x19d @0x25
0x0178…01db at0026 = ╱46╱F╱ // 0x19e @0x26
0x0178…01db at0027 = ╱ef╱$╱ // 0x19f @0x27
0x0178…01db at0028 = ╱ed╱(╱ // 0x1a0 @0x28
0x0178…01db at0029 = ╱31╱1╱ // 0x1a1 @0x29
0x0178…01db at002a = ╱30╱0╱ // 0x1a2 @0x2a
0x0178…01db at002b = ╱fe0000a004╱ // 0x1a3 @0x2b
0x0178…01db at0030 = ╱ee╱)╱ // 0x1a8 @0x30
0x0178…01db at0031 = ╱ec╱,╱ // 0x1a9 @0x31
0x0178…01db at0032 = ╱44╱D╱ // 0x1aa @0x32
0x0178…01db at0033 = ╱45╱E╱ // 0x1ab @0x33
0x0178…01db at0034 = ╱42╱B╱ // 0x1ac @0x34
0x0178…01db at0035 = ╱42╱B╱ // 0x1ad @0x35
0x0178…01db at0036 = ╱59╱Y╱ // 0x1ae @0x36
0x0178…01db at0037 = ╱ef╱$╱ // 0x1af @0x37
0x0178…01db at0038 = ╱ed╱(╱ // 0x1b0 @0x38
0x0178…01db at0039 = ╱32╱2╱ // 0x1b1 @0x39
0x0178…01db at003a = ╱30╱0╱ // 0x1b2 @0x3a
0x0178…01db at003b = ╱fe0000a005╱ // 0x1b3 @0x3b
0x0178…01db at0040 = ╱ee╱)╱ // 0x1b8 @0x40
0x0178…01db at0041 = ╱ec╱,╱ // 0x1b9 @0x41
0x0178…01db at0042 = ╱5d╱Å╱ // 0x1ba @0x42
0x0178…01db at0043 = ╱52╱R╱ // 0x1bb @0x43
0x0178…01db at0044 = ╱4b╱K╱ // 0x1bc @0x44
0x0178…01db at0045 = ╱5c╱Ø╱ // 0x1bd @0x45
0x0178…01db at0046 = ╱42╱B╱ // 0x1be @0x46
0x0178…01db at0047 = ╱ef╱$╱ // 0x1bf @0x47
0x0178…01db at0048 = ╱ed╱(╱ // 0x1c0 @0x48
0x0178…01db at0049 = ╱31╱1╱ // 0x1c1 @0x49
0x0178…01db at004a = ╱32╱2╱ // 0x1c2 @0x4a
0x0178…01db at004b = ╱fe0000c004╱ // 0x1c3 @0x4b
0x0178…01db at0050 = ╱ee╱)╱ // 0x1c8 @0x50
0x0178…01db at0051 = ╱ec╱,╱ // 0x1c9 @0x51
0x0178…01db at0052 = ╱4d╱M╱ // 0x1ca @0x52
0x0178…01db at0053 = ╱44╱D╱ // 0x1cb @0x53
0x0178…01db at0054 = ╱4e╱N╱ // 0x1cc @0x54
0x0178…01db at0055 = ╱4b╱K╱ // 0x1cd @0x55
0x0178…01db at0056 = ╱5c╱Ø╱ // 0x1ce @0x56
0x0178…01db at0057 = ╱42╱B╱ // 0x1cf @0x57
0x0178…01db at0058 = ╱ef╱$╱ // 0x1d0 @0x58
0x0178…01db at0059 = ╱ed╱(╱ // 0x1d1 @0x59
0x0178…01db at005a = ╱31╱1╱ // 0x1d2 @0x5a
0x0178…01db at005b = ╱32╱2╱ // 0x1d3 @0x5b
0x0178…01db at005c = ╱fe0000c004╱ // 0x1d4 @0x5c
0x0178…01db at0061 = ╱ee╱)╱ // 0x1d9 @0x61
0x0178…01db at0062 = EOL // 0x1da @0x62
0x0178…01db }
0x01db…0247 8f9e 0150 DIM K1$(17),N$(6),K3$(17),DAT$(8),TXT1$(6,28),RENPRO$(12),TAH$(12)
0x01db…0247 LineComalBin {
0x01db…0247 ptr = 0x8f9e // 0x1db @0x0
0x01db…0247 lno = 0x0096 // 0x1dd @0x2
0x01db…0247 at0004 = ╱87╱ DIM ╱ // 0x1df @0x4
0x01db…0247 at0005 = ╱4b╱K╱ // 0x1e0 @0x5
0x01db…0247 at0006 = ╱31╱1╱ // 0x1e1 @0x6
0x01db…0247 at0007 = ╱ef╱$╱ // 0x1e2 @0x7
0x01db…0247 at0008 = ╱ed╱(╱ // 0x1e3 @0x8
0x01db…0247 at0009 = ╱31╱1╱ // 0x1e4 @0x9
0x01db…0247 at000a = ╱37╱7╱ // 0x1e5 @0xa
0x01db…0247 at000b = ╱fe00008805╱ // 0x1e6 @0xb
0x01db…0247 at0010 = ╱ee╱)╱ // 0x1eb @0x10
0x01db…0247 at0011 = ╱ec╱,╱ // 0x1ec @0x11
0x01db…0247 at0012 = ╱4e╱N╱ // 0x1ed @0x12
0x01db…0247 at0013 = ╱ef╱$╱ // 0x1ee @0x13
0x01db…0247 at0014 = ╱ed╱(╱ // 0x1ef @0x14
0x01db…0247 at0015 = ╱36╱6╱ // 0x1f0 @0x15
0x01db…0247 at0016 = ╱fe0000c003╱ // 0x1f1 @0x16
0x01db…0247 at001b = ╱ee╱)╱ // 0x1f6 @0x1b
0x01db…0247 at001c = ╱ec╱,╱ // 0x1f7 @0x1c
0x01db…0247 at001d = ╱4b╱K╱ // 0x1f8 @0x1d
0x01db…0247 at001e = ╱33╱3╱ // 0x1f9 @0x1e
0x01db…0247 at001f = ╱ef╱$╱ // 0x1fa @0x1f
0x01db…0247 at0020 = ╱ed╱(╱ // 0x1fb @0x20
0x01db…0247 at0021 = ╱31╱1╱ // 0x1fc @0x21
0x01db…0247 at0022 = ╱37╱7╱ // 0x1fd @0x22
0x01db…0247 at0023 = ╱fe00008805╱ // 0x1fe @0x23
0x01db…0247 at0028 = ╱ee╱)╱ // 0x203 @0x28
0x01db…0247 at0029 = ╱ec╱,╱ // 0x204 @0x29
0x01db…0247 at002a = ╱44╱D╱ // 0x205 @0x2a
0x01db…0247 at002b = ╱41╱A╱ // 0x206 @0x2b
0x01db…0247 at002c = ╱54╱T╱ // 0x207 @0x2c
0x01db…0247 at002d = ╱ef╱$╱ // 0x208 @0x2d
0x01db…0247 at002e = ╱ed╱(╱ // 0x209 @0x2e
0x01db…0247 at002f = ╱38╱8╱ // 0x20a @0x2f
0x01db…0247 at0030 = ╱fe00008004╱ // 0x20b @0x30
0x01db…0247 at0035 = ╱ee╱)╱ // 0x210 @0x35
0x01db…0247 at0036 = ╱ec╱,╱ // 0x211 @0x36
0x01db…0247 at0037 = ╱54╱T╱ // 0x212 @0x37
0x01db…0247 at0038 = ╱58╱X╱ // 0x213 @0x38
0x01db…0247 at0039 = ╱54╱T╱ // 0x214 @0x39
0x01db…0247 at003a = ╱31╱1╱ // 0x215 @0x3a
0x01db…0247 at003b = ╱ef╱$╱ // 0x216 @0x3b
0x01db…0247 at003c = ╱ed╱(╱ // 0x217 @0x3c
0x01db…0247 at003d = ╱36╱6╱ // 0x218 @0x3d
0x01db…0247 at003e = ╱fe0000c003╱ // 0x219 @0x3e
0x01db…0247 at0043 = ╱ec╱,╱ // 0x21e @0x43
0x01db…0247 at0044 = ╱32╱2╱ // 0x21f @0x44
0x01db…0247 at0045 = ╱38╱8╱ // 0x220 @0x45
0x01db…0247 at0046 = ╱fe0000e005╱ // 0x221 @0x46
0x01db…0247 at004b = ╱ee╱)╱ // 0x226 @0x4b
0x01db…0247 at004c = ╱ec╱,╱ // 0x227 @0x4c
0x01db…0247 at004d = ╱52╱R╱ // 0x228 @0x4d
0x01db…0247 at004e = ╱45╱E╱ // 0x229 @0x4e
0x01db…0247 at004f = ╱4e╱N╱ // 0x22a @0x4f
0x01db…0247 at0050 = ╱50╱P╱ // 0x22b @0x50
0x01db…0247 at0051 = ╱52╱R╱ // 0x22c @0x51
0x01db…0247 at0052 = ╱4f╱O╱ // 0x22d @0x52
0x01db…0247 at0053 = ╱ef╱$╱ // 0x22e @0x53
0x01db…0247 at0054 = ╱ed╱(╱ // 0x22f @0x54
0x01db…0247 at0055 = ╱31╱1╱ // 0x230 @0x55
0x01db…0247 at0056 = ╱32╱2╱ // 0x231 @0x56
0x01db…0247 at0057 = ╱fe0000c004╱ // 0x232 @0x57
0x01db…0247 at005c = ╱ee╱)╱ // 0x237 @0x5c
0x01db…0247 at005d = ╱ec╱,╱ // 0x238 @0x5d
0x01db…0247 at005e = ╱54╱T╱ // 0x239 @0x5e
0x01db…0247 at005f = ╱41╱A╱ // 0x23a @0x5f
0x01db…0247 at0060 = ╱48╱H╱ // 0x23b @0x60
0x01db…0247 at0061 = ╱ef╱$╱ // 0x23c @0x61
0x01db…0247 at0062 = ╱ed╱(╱ // 0x23d @0x62
0x01db…0247 at0063 = ╱31╱1╱ // 0x23e @0x63
0x01db…0247 at0064 = ╱32╱2╱ // 0x23f @0x64
0x01db…0247 at0065 = ╱fe0000c004╱ // 0x240 @0x65
0x01db…0247 at006a = ╱ee╱)╱ // 0x245 @0x6a
0x01db…0247 at006b = EOL // 0x246 @0x6b
0x01db…0247 }
0x0247…029a 8ff1 0160 DIM MINREN$(12),SALDO1$(12),TAL3$(12),MUL$(E),TKO$(E),K6$(17)
0x0247…029a LineComalBin {
0x0247…029a ptr = 0x8ff1 // 0x247 @0x0
0x0247…029a lno = 0x00a0 // 0x249 @0x2
0x0247…029a at0004 = ╱87╱ DIM ╱ // 0x24b @0x4
0x0247…029a at0005 = ╱4d╱M╱ // 0x24c @0x5
0x0247…029a at0006 = ╱49╱I╱ // 0x24d @0x6
0x0247…029a at0007 = ╱4e╱N╱ // 0x24e @0x7
0x0247…029a at0008 = ╱52╱R╱ // 0x24f @0x8
0x0247…029a at0009 = ╱45╱E╱ // 0x250 @0x9
0x0247…029a at000a = ╱4e╱N╱ // 0x251 @0xa
0x0247…029a at000b = ╱ef╱$╱ // 0x252 @0xb
0x0247…029a at000c = ╱ed╱(╱ // 0x253 @0xc
0x0247…029a at000d = ╱31╱1╱ // 0x254 @0xd
0x0247…029a at000e = ╱32╱2╱ // 0x255 @0xe
0x0247…029a at000f = ╱fe0000c004╱ // 0x256 @0xf
0x0247…029a at0014 = ╱ee╱)╱ // 0x25b @0x14
0x0247…029a at0015 = ╱ec╱,╱ // 0x25c @0x15
0x0247…029a at0016 = ╱53╱S╱ // 0x25d @0x16
0x0247…029a at0017 = ╱41╱A╱ // 0x25e @0x17
0x0247…029a at0018 = ╱4c╱L╱ // 0x25f @0x18
0x0247…029a at0019 = ╱44╱D╱ // 0x260 @0x19
0x0247…029a at001a = ╱4f╱O╱ // 0x261 @0x1a
0x0247…029a at001b = ╱31╱1╱ // 0x262 @0x1b
0x0247…029a at001c = ╱ef╱$╱ // 0x263 @0x1c
0x0247…029a at001d = ╱ed╱(╱ // 0x264 @0x1d
0x0247…029a at001e = ╱31╱1╱ // 0x265 @0x1e
0x0247…029a at001f = ╱32╱2╱ // 0x266 @0x1f
0x0247…029a at0020 = ╱fe0000c004╱ // 0x267 @0x20
0x0247…029a at0025 = ╱ee╱)╱ // 0x26c @0x25
0x0247…029a at0026 = ╱ec╱,╱ // 0x26d @0x26
0x0247…029a at0027 = ╱54╱T╱ // 0x26e @0x27
0x0247…029a at0028 = ╱41╱A╱ // 0x26f @0x28
0x0247…029a at0029 = ╱4c╱L╱ // 0x270 @0x29
0x0247…029a at002a = ╱33╱3╱ // 0x271 @0x2a
0x0247…029a at002b = ╱ef╱$╱ // 0x272 @0x2b
0x0247…029a at002c = ╱ed╱(╱ // 0x273 @0x2c
0x0247…029a at002d = ╱31╱1╱ // 0x274 @0x2d
0x0247…029a at002e = ╱32╱2╱ // 0x275 @0x2e
0x0247…029a at002f = ╱fe0000c004╱ // 0x276 @0x2f
0x0247…029a at0034 = ╱ee╱)╱ // 0x27b @0x34
0x0247…029a at0035 = ╱ec╱,╱ // 0x27c @0x35
0x0247…029a at0036 = ╱4d╱M╱ // 0x27d @0x36
0x0247…029a at0037 = ╱55╱U╱ // 0x27e @0x37
0x0247…029a at0038 = ╱4c╱L╱ // 0x27f @0x38
0x0247…029a at0039 = ╱ef╱$╱ // 0x280 @0x39
0x0247…029a at003a = ╱ed╱(╱ // 0x281 @0x3a
0x0247…029a at003b = ╱45╱E╱ // 0x282 @0x3b
0x0247…029a at003c = ╱ee╱)╱ // 0x283 @0x3c
0x0247…029a at003d = ╱ec╱,╱ // 0x284 @0x3d
0x0247…029a at003e = ╱54╱T╱ // 0x285 @0x3e
0x0247…029a at003f = ╱4b╱K╱ // 0x286 @0x3f
0x0247…029a at0040 = ╱4f╱O╱ // 0x287 @0x40
0x0247…029a at0041 = ╱ef╱$╱ // 0x288 @0x41
0x0247…029a at0042 = ╱ed╱(╱ // 0x289 @0x42
0x0247…029a at0043 = ╱45╱E╱ // 0x28a @0x43
0x0247…029a at0044 = ╱ee╱)╱ // 0x28b @0x44
0x0247…029a at0045 = ╱ec╱,╱ // 0x28c @0x45
0x0247…029a at0046 = ╱4b╱K╱ // 0x28d @0x46
0x0247…029a at0047 = ╱36╱6╱ // 0x28e @0x47
0x0247…029a at0048 = ╱ef╱$╱ // 0x28f @0x48
0x0247…029a at0049 = ╱ed╱(╱ // 0x290 @0x49
0x0247…029a at004a = ╱31╱1╱ // 0x291 @0x4a
0x0247…029a at004b = ╱37╱7╱ // 0x292 @0x4b
0x0247…029a at004c = ╱fe00008805╱ // 0x293 @0x4c
0x0247…029a at0051 = ╱ee╱)╱ // 0x298 @0x51
0x0247…029a at0052 = EOL // 0x299 @0x52
0x0247…029a }
0x029a…02e9 9040 0170 DIM TORENTE$(12),TEKST$(25),T1(W),T2(W),BLB2$(12),DV$(10)
0x029a…02e9 LineComalBin {
0x029a…02e9 ptr = 0x9040 // 0x29a @0x0
0x029a…02e9 lno = 0x00aa // 0x29c @0x2
0x029a…02e9 at0004 = ╱87╱ DIM ╱ // 0x29e @0x4
0x029a…02e9 at0005 = ╱54╱T╱ // 0x29f @0x5
0x029a…02e9 at0006 = ╱4f╱O╱ // 0x2a0 @0x6
0x029a…02e9 at0007 = ╱52╱R╱ // 0x2a1 @0x7
0x029a…02e9 at0008 = ╱45╱E╱ // 0x2a2 @0x8
0x029a…02e9 at0009 = ╱4e╱N╱ // 0x2a3 @0x9
0x029a…02e9 at000a = ╱54╱T╱ // 0x2a4 @0xa
0x029a…02e9 at000b = ╱45╱E╱ // 0x2a5 @0xb
0x029a…02e9 at000c = ╱ef╱$╱ // 0x2a6 @0xc
0x029a…02e9 at000d = ╱ed╱(╱ // 0x2a7 @0xd
0x029a…02e9 at000e = ╱31╱1╱ // 0x2a8 @0xe
0x029a…02e9 at000f = ╱32╱2╱ // 0x2a9 @0xf
0x029a…02e9 at0010 = ╱fe0000c004╱ // 0x2aa @0x10
0x029a…02e9 at0015 = ╱ee╱)╱ // 0x2af @0x15
0x029a…02e9 at0016 = ╱ec╱,╱ // 0x2b0 @0x16
0x029a…02e9 at0017 = ╱54╱T╱ // 0x2b1 @0x17
0x029a…02e9 at0018 = ╱45╱E╱ // 0x2b2 @0x18
0x029a…02e9 at0019 = ╱4b╱K╱ // 0x2b3 @0x19
0x029a…02e9 at001a = ╱53╱S╱ // 0x2b4 @0x1a
0x029a…02e9 at001b = ╱54╱T╱ // 0x2b5 @0x1b
0x029a…02e9 at001c = ╱ef╱$╱ // 0x2b6 @0x1c
0x029a…02e9 at001d = ╱ed╱(╱ // 0x2b7 @0x1d
0x029a…02e9 at001e = ╱32╱2╱ // 0x2b8 @0x1e
0x029a…02e9 at001f = ╱35╱5╱ // 0x2b9 @0x1f
0x029a…02e9 at0020 = ╱fe0000c805╱ // 0x2ba @0x20
0x029a…02e9 at0025 = ╱ee╱)╱ // 0x2bf @0x25
0x029a…02e9 at0026 = ╱ec╱,╱ // 0x2c0 @0x26
0x029a…02e9 at0027 = ╱54╱T╱ // 0x2c1 @0x27
0x029a…02e9 at0028 = ╱31╱1╱ // 0x2c2 @0x28
0x029a…02e9 at0029 = ╱ed╱(╱ // 0x2c3 @0x29
0x029a…02e9 at002a = ╱57╱W╱ // 0x2c4 @0x2a
0x029a…02e9 at002b = ╱ee╱)╱ // 0x2c5 @0x2b
0x029a…02e9 at002c = ╱ec╱,╱ // 0x2c6 @0x2c
0x029a…02e9 at002d = ╱54╱T╱ // 0x2c7 @0x2d
0x029a…02e9 at002e = ╱32╱2╱ // 0x2c8 @0x2e
0x029a…02e9 at002f = ╱ed╱(╱ // 0x2c9 @0x2f
0x029a…02e9 at0030 = ╱57╱W╱ // 0x2ca @0x30
0x029a…02e9 at0031 = ╱ee╱)╱ // 0x2cb @0x31
0x029a…02e9 at0032 = ╱ec╱,╱ // 0x2cc @0x32
0x029a…02e9 at0033 = ╱42╱B╱ // 0x2cd @0x33
0x029a…02e9 at0034 = ╱4c╱L╱ // 0x2ce @0x34
0x029a…02e9 at0035 = ╱42╱B╱ // 0x2cf @0x35
0x029a…02e9 at0036 = ╱32╱2╱ // 0x2d0 @0x36
0x029a…02e9 at0037 = ╱ef╱$╱ // 0x2d1 @0x37
0x029a…02e9 at0038 = ╱ed╱(╱ // 0x2d2 @0x38
0x029a…02e9 at0039 = ╱31╱1╱ // 0x2d3 @0x39
0x029a…02e9 at003a = ╱32╱2╱ // 0x2d4 @0x3a
0x029a…02e9 at003b = ╱fe0000c004╱ // 0x2d5 @0x3b
0x029a…02e9 at0040 = ╱ee╱)╱ // 0x2da @0x40
0x029a…02e9 at0041 = ╱ec╱,╱ // 0x2db @0x41
0x029a…02e9 at0042 = ╱44╱D╱ // 0x2dc @0x42
0x029a…02e9 at0043 = ╱56╱V╱ // 0x2dd @0x43
0x029a…02e9 at0044 = ╱ef╱$╱ // 0x2de @0x44
0x029a…02e9 at0045 = ╱ed╱(╱ // 0x2df @0x45
0x029a…02e9 at0046 = ╱31╱1╱ // 0x2e0 @0x46
0x029a…02e9 at0047 = ╱30╱0╱ // 0x2e1 @0x47
0x029a…02e9 at0048 = ╱fe0000a004╱ // 0x2e2 @0x48
0x029a…02e9 at004d = ╱ee╱)╱ // 0x2e7 @0x4d
0x029a…02e9 at004e = EOL // 0x2e8 @0x4e
0x029a…02e9 }
0x02e9…0302 9059 0180 PROC SKRIVLIST(TXT,SIDE)
0x02e9…0302 LineComalBin {
0x02e9…0302 ptr = 0x9059 // 0x2e9 @0x0
0x02e9…0302 lno = 0x00b4 // 0x2eb @0x2
0x02e9…0302 at0004 = ╱9e╱ PROC ╱ // 0x2ed @0x4
0x02e9…0302 at0005 = ╱53╱S╱ // 0x2ee @0x5
0x02e9…0302 at0006 = ╱4b╱K╱ // 0x2ef @0x6
0x02e9…0302 at0007 = ╱52╱R╱ // 0x2f0 @0x7
0x02e9…0302 at0008 = ╱49╱I╱ // 0x2f1 @0x8
0x02e9…0302 at0009 = ╱56╱V╱ // 0x2f2 @0x9
0x02e9…0302 at000a = ╱4c╱L╱ // 0x2f3 @0xa
0x02e9…0302 at000b = ╱49╱I╱ // 0x2f4 @0xb
0x02e9…0302 at000c = ╱53╱S╱ // 0x2f5 @0xc
0x02e9…0302 at000d = ╱54╱T╱ // 0x2f6 @0xd
0x02e9…0302 at000e = ╱ed╱(╱ // 0x2f7 @0xe
0x02e9…0302 at000f = ╱54╱T╱ // 0x2f8 @0xf
0x02e9…0302 at0010 = ╱58╱X╱ // 0x2f9 @0x10
0x02e9…0302 at0011 = ╱54╱T╱ // 0x2fa @0x11
0x02e9…0302 at0012 = ╱ec╱,╱ // 0x2fb @0x12
0x02e9…0302 at0013 = ╱53╱S╱ // 0x2fc @0x13
0x02e9…0302 at0014 = ╱49╱I╱ // 0x2fd @0x14
0x02e9…0302 at0015 = ╱44╱D╱ // 0x2fe @0x15
0x02e9…0302 at0016 = ╱45╱E╱ // 0x2ff @0x16
0x02e9…0302 at0017 = ╱ee╱)╱ // 0x300 @0x17
0x02e9…0302 at0018 = EOL // 0x301 @0x18
0x02e9…0302 }
0x0302…0308 (10,) 905f 0190 REPEAT
0x0302…0308 LineComalBin {
0x0302…0308 ptr = 0x905f // 0x302 @0x0
0x0302…0308 lno = 0x00be // 0x304 @0x2
0x0302…0308 at0004 = ╱97╱ REPEAT ╱ // 0x306 @0x4
0x0302…0308 at0005 = EOL // 0x307 @0x5
0x0302…0308 }
0x0308…030f 9066 0200 OUTPUT T
0x0308…030f LineComalBin {
0x0308…030f ptr = 0x9066 // 0x308 @0x0
0x0308…030f lno = 0x00c8 // 0x30a @0x2
0x0308…030f at0004 = ╱a5╱ OUTPUT ╱ // 0x30c @0x4
0x0308…030f at0005 = ╱54╱T╱ // 0x30d @0x5
0x0308…030f at0006 = EOL // 0x30e @0x6
0x0308…030f }
0x030f…0315 906c 0210 CLEAR
0x030f…0315 LineComalBin {
0x030f…0315 ptr = 0x906c // 0x30f @0x0
0x030f…0315 lno = 0x00d2 // 0x311 @0x2
0x030f…0315 at0004 = ╱a0╱ CLEAR ╱ // 0x313 @0x4
0x030f…0315 at0005 = EOL // 0x314 @0x5
0x030f…0315 }
0x0315…031b 9072 0220 REPEAT
0x0315…031b LineComalBin {
0x0315…031b ptr = 0x9072 // 0x315 @0x0
0x0315…031b lno = 0x00dc // 0x317 @0x2
0x0315…031b at0004 = ╱97╱ REPEAT ╱ // 0x319 @0x4
0x0315…031b at0005 = EOL // 0x31a @0x5
0x0315…031b }
0x031b…0330 9087 0230 CURSOR 15,13
0x031b…0330 LineComalBin {
0x031b…0330 ptr = 0x9087 // 0x31b @0x0
0x031b…0330 lno = 0x00e6 // 0x31d @0x2
0x031b…0330 at0004 = ╱a1╱ CURSOR ╱ // 0x31f @0x4
0x031b…0330 at0005 = ╱31╱1╱ // 0x320 @0x5
0x031b…0330 at0006 = ╱35╱5╱ // 0x321 @0x6
0x031b…0330 at0007 = ╱fe0000f004╱ // 0x322 @0x7
0x031b…0330 at000c = ╱ec╱,╱ // 0x327 @0xc
0x031b…0330 at000d = ╱31╱1╱ // 0x328 @0xd
0x031b…0330 at000e = ╱33╱3╱ // 0x329 @0xe
0x031b…0330 at000f = ╱fe0000d004╱ // 0x32a @0xf
0x031b…0330 at0014 = EOL // 0x32f @0x14
0x031b…0330 }
0x0330…036c 90c3 0240 INPUT "Monter papir til udskrift af liste og tast RETURN",A$
0x0330…036c LineComalBin {
0x0330…036c ptr = 0x90c3 // 0x330 @0x0
0x0330…036c lno = 0x00f0 // 0x332 @0x2
0x0330…036c at0004 = ╱91╱ INPUT ╱ // 0x334 @0x4
0x0330…036c at0005 = ╱22╱"╱ // 0x335 @0x5
0x0330…036c at0006 = ╱4d╱M╱ // 0x336 @0x6
0x0330…036c at0007 = ╱6f╱o╱ // 0x337 @0x7
0x0330…036c at0008 = ╱6e╱n╱ // 0x338 @0x8
0x0330…036c at0009 = ╱74╱t╱ // 0x339 @0x9
0x0330…036c at000a = ╱65╱e╱ // 0x33a @0xa
0x0330…036c at000b = ╱72╱r╱ // 0x33b @0xb
0x0330…036c at000c = ╱20╱…╱ // 0x33c @0xc
0x0330…036c at000d = ╱70╱p╱ // 0x33d @0xd
0x0330…036c at000e = ╱61╱a╱ // 0x33e @0xe
0x0330…036c at000f = ╱70╱p╱ // 0x33f @0xf
0x0330…036c at0010 = ╱69╱i╱ // 0x340 @0x10
0x0330…036c at0011 = ╱72╱r╱ // 0x341 @0x11
0x0330…036c at0012 = ╱20╱…╱ // 0x342 @0x12
0x0330…036c at0013 = ╱74╱t╱ // 0x343 @0x13
0x0330…036c at0014 = ╱69╱i╱ // 0x344 @0x14
0x0330…036c at0015 = ╱6c╱l╱ // 0x345 @0x15
0x0330…036c at0016 = ╱20╱…╱ // 0x346 @0x16
0x0330…036c at0017 = ╱75╱u╱ // 0x347 @0x17
0x0330…036c at0018 = ╱64╱d╱ // 0x348 @0x18
0x0330…036c at0019 = ╱73╱s╱ // 0x349 @0x19
0x0330…036c at001a = ╱6b╱k╱ // 0x34a @0x1a
0x0330…036c at001b = ╱72╱r╱ // 0x34b @0x1b
0x0330…036c at001c = ╱69╱i╱ // 0x34c @0x1c
0x0330…036c at001d = ╱66╱f╱ // 0x34d @0x1d
0x0330…036c at001e = ╱74╱t╱ // 0x34e @0x1e
0x0330…036c at001f = ╱20╱…╱ // 0x34f @0x1f
0x0330…036c at0020 = ╱61╱a╱ // 0x350 @0x20
0x0330…036c at0021 = ╱66╱f╱ // 0x351 @0x21
0x0330…036c at0022 = ╱20╱…╱ // 0x352 @0x22
0x0330…036c at0023 = ╱6c╱l╱ // 0x353 @0x23
0x0330…036c at0024 = ╱69╱i╱ // 0x354 @0x24
0x0330…036c at0025 = ╱73╱s╱ // 0x355 @0x25
0x0330…036c at0026 = ╱74╱t╱ // 0x356 @0x26
0x0330…036c at0027 = ╱65╱e╱ // 0x357 @0x27
0x0330…036c at0028 = ╱20╱…╱ // 0x358 @0x28
0x0330…036c at0029 = ╱6f╱o╱ // 0x359 @0x29
0x0330…036c at002a = ╱67╱g╱ // 0x35a @0x2a
0x0330…036c at002b = ╱20╱…╱ // 0x35b @0x2b
0x0330…036c at002c = ╱74╱t╱ // 0x35c @0x2c
0x0330…036c at002d = ╱61╱a╱ // 0x35d @0x2d
0x0330…036c at002e = ╱73╱s╱ // 0x35e @0x2e
0x0330…036c at002f = ╱74╱t╱ // 0x35f @0x2f
0x0330…036c at0030 = ╱20╱…╱ // 0x360 @0x30
0x0330…036c at0031 = ╱52╱R╱ // 0x361 @0x31
0x0330…036c at0032 = ╱45╱E╱ // 0x362 @0x32
0x0330…036c at0033 = ╱54╱T╱ // 0x363 @0x33
0x0330…036c at0034 = ╱55╱U╱ // 0x364 @0x34
0x0330…036c at0035 = ╱52╱R╱ // 0x365 @0x35
0x0330…036c at0036 = ╱4e╱N╱ // 0x366 @0x36
0x0330…036c at0037 = ╱22╱"╱ // 0x367 @0x37
0x0330…036c at0038 = ╱ec╱,╱ // 0x368 @0x38
0x0330…036c at0039 = ╱41╱A╱ // 0x369 @0x39
0x0330…036c at003a = ╱ef╱$╱ // 0x36a @0x3a
0x0330…036c at003b = EOL // 0x36b @0x3b
0x0330…036c }
0x036c…037c 90d3 0250 EXEC NRTEST(A$)
0x036c…037c LineComalBin {
0x036c…037c ptr = 0x90d3 // 0x36c @0x0
0x036c…037c lno = 0x00fa // 0x36e @0x2
0x036c…037c at0004 = ╱9d╱ EXEC ╱ // 0x370 @0x4
0x036c…037c at0005 = ╱4e╱N╱ // 0x371 @0x5
0x036c…037c at0006 = ╱52╱R╱ // 0x372 @0x6
0x036c…037c at0007 = ╱54╱T╱ // 0x373 @0x7
0x036c…037c at0008 = ╱45╱E╱ // 0x374 @0x8
0x036c…037c at0009 = ╱53╱S╱ // 0x375 @0x9
0x036c…037c at000a = ╱54╱T╱ // 0x376 @0xa
0x036c…037c at000b = ╱ed╱(╱ // 0x377 @0xb
0x036c…037c at000c = ╱41╱A╱ // 0x378 @0xc
0x036c…037c at000d = ╱ef╱$╱ // 0x379 @0xd
0x036c…037c at000e = ╱ee╱)╱ // 0x37a @0xe
0x036c…037c at000f = EOL // 0x37b @0xf
0x036c…037c }
0x037c…0386 90dd 0260 UNTIL P=-E
0x037c…0386 LineComalBin {
0x037c…0386 ptr = 0x90dd // 0x37c @0x0
0x037c…0386 lno = 0x0104 // 0x37e @0x2
0x037c…0386 at0004 = ╱98╱ UNTIL ╱ // 0x380 @0x4
0x037c…0386 at0005 = ╱50╱P╱ // 0x381 @0x5
0x037c…0386 at0006 = ╱dc╱=╱ // 0x382 @0x6
0x037c…0386 at0007 = ╱e9╱-╱ // 0x383 @0x7
0x037c…0386 at0008 = ╱45╱E╱ // 0x384 @0x8
0x037c…0386 at0009 = EOL // 0x385 @0x9
0x037c…0386 }
0x0386…038d 90e4 0270 OUTPUT P
0x0386…038d LineComalBin {
0x0386…038d ptr = 0x90e4 // 0x386 @0x0
0x0386…038d lno = 0x010e // 0x388 @0x2
0x0386…038d at0004 = ╱a5╱ OUTPUT ╱ // 0x38a @0x4
0x0386…038d at0005 = ╱50╱P╱ // 0x38b @0x5
0x0386…038d at0006 = EOL // 0x38c @0x6
0x0386…038d }
0x038d…03d3 912a 0280 LINIE=E;SUM1$="0+";SUM2$="0+";SUM3$="0+";SALDO$="0+";FSALDO$="0+"
0x038d…03d3 LineComalBin {
0x038d…03d3 ptr = 0x912a // 0x38d @0x0
0x038d…03d3 lno = 0x0118 // 0x38f @0x2
0x038d…03d3 at0004 = ╱4c╱L╱ // 0x391 @0x4
0x038d…03d3 at0005 = ╱49╱I╱ // 0x392 @0x5
0x038d…03d3 at0006 = ╱4e╱N╱ // 0x393 @0x6
0x038d…03d3 at0007 = ╱49╱I╱ // 0x394 @0x7
0x038d…03d3 at0008 = ╱45╱E╱ // 0x395 @0x8
0x038d…03d3 at0009 = ╱dc╱=╱ // 0x396 @0x9
0x038d…03d3 at000a = ╱45╱E╱ // 0x397 @0xa
0x038d…03d3 at000b = ╱eb╱;╱ // 0x398 @0xb
0x038d…03d3 at000c = ╱53╱S╱ // 0x399 @0xc
0x038d…03d3 at000d = ╱55╱U╱ // 0x39a @0xd
0x038d…03d3 at000e = ╱4d╱M╱ // 0x39b @0xe
0x038d…03d3 at000f = ╱31╱1╱ // 0x39c @0xf
0x038d…03d3 at0010 = ╱ef╱$╱ // 0x39d @0x10
0x038d…03d3 at0011 = ╱dc╱=╱ // 0x39e @0x11
0x038d…03d3 at0012 = ╱22╱"╱ // 0x39f @0x12
0x038d…03d3 at0013 = ╱30╱0╱ // 0x3a0 @0x13
0x038d…03d3 at0014 = ╱2b╱+╱ // 0x3a1 @0x14
0x038d…03d3 at0015 = ╱22╱"╱ // 0x3a2 @0x15
0x038d…03d3 at0016 = ╱eb╱;╱ // 0x3a3 @0x16
0x038d…03d3 at0017 = ╱53╱S╱ // 0x3a4 @0x17
0x038d…03d3 at0018 = ╱55╱U╱ // 0x3a5 @0x18
0x038d…03d3 at0019 = ╱4d╱M╱ // 0x3a6 @0x19
0x038d…03d3 at001a = ╱32╱2╱ // 0x3a7 @0x1a
0x038d…03d3 at001b = ╱ef╱$╱ // 0x3a8 @0x1b
0x038d…03d3 at001c = ╱dc╱=╱ // 0x3a9 @0x1c
0x038d…03d3 at001d = ╱22╱"╱ // 0x3aa @0x1d
0x038d…03d3 at001e = ╱30╱0╱ // 0x3ab @0x1e
0x038d…03d3 at001f = ╱2b╱+╱ // 0x3ac @0x1f
0x038d…03d3 at0020 = ╱22╱"╱ // 0x3ad @0x20
0x038d…03d3 at0021 = ╱eb╱;╱ // 0x3ae @0x21
0x038d…03d3 at0022 = ╱53╱S╱ // 0x3af @0x22
0x038d…03d3 at0023 = ╱55╱U╱ // 0x3b0 @0x23
0x038d…03d3 at0024 = ╱4d╱M╱ // 0x3b1 @0x24
0x038d…03d3 at0025 = ╱33╱3╱ // 0x3b2 @0x25
0x038d…03d3 at0026 = ╱ef╱$╱ // 0x3b3 @0x26
0x038d…03d3 at0027 = ╱dc╱=╱ // 0x3b4 @0x27
0x038d…03d3 at0028 = ╱22╱"╱ // 0x3b5 @0x28
0x038d…03d3 at0029 = ╱30╱0╱ // 0x3b6 @0x29
0x038d…03d3 at002a = ╱2b╱+╱ // 0x3b7 @0x2a
0x038d…03d3 at002b = ╱22╱"╱ // 0x3b8 @0x2b
0x038d…03d3 at002c = ╱eb╱;╱ // 0x3b9 @0x2c
0x038d…03d3 at002d = ╱53╱S╱ // 0x3ba @0x2d
0x038d…03d3 at002e = ╱41╱A╱ // 0x3bb @0x2e
0x038d…03d3 at002f = ╱4c╱L╱ // 0x3bc @0x2f
0x038d…03d3 at0030 = ╱44╱D╱ // 0x3bd @0x30
0x038d…03d3 at0031 = ╱4f╱O╱ // 0x3be @0x31
0x038d…03d3 at0032 = ╱ef╱$╱ // 0x3bf @0x32
0x038d…03d3 at0033 = ╱dc╱=╱ // 0x3c0 @0x33
0x038d…03d3 at0034 = ╱22╱"╱ // 0x3c1 @0x34
0x038d…03d3 at0035 = ╱30╱0╱ // 0x3c2 @0x35
0x038d…03d3 at0036 = ╱2b╱+╱ // 0x3c3 @0x36
0x038d…03d3 at0037 = ╱22╱"╱ // 0x3c4 @0x37
0x038d…03d3 at0038 = ╱eb╱;╱ // 0x3c5 @0x38
0x038d…03d3 at0039 = ╱46╱F╱ // 0x3c6 @0x39
0x038d…03d3 at003a = ╱53╱S╱ // 0x3c7 @0x3a
0x038d…03d3 at003b = ╱41╱A╱ // 0x3c8 @0x3b
0x038d…03d3 at003c = ╱4c╱L╱ // 0x3c9 @0x3c
0x038d…03d3 at003d = ╱44╱D╱ // 0x3ca @0x3d
0x038d…03d3 at003e = ╱4f╱O╱ // 0x3cb @0x3e
0x038d…03d3 at003f = ╱ef╱$╱ // 0x3cc @0x3f
0x038d…03d3 at0040 = ╱dc╱=╱ // 0x3cd @0x40
0x038d…03d3 at0041 = ╱22╱"╱ // 0x3ce @0x41
0x038d…03d3 at0042 = ╱30╱0╱ // 0x3cf @0x42
0x038d…03d3 at0043 = ╱2b╱+╱ // 0x3d0 @0x43
0x038d…03d3 at0044 = ╱22╱"╱ // 0x3d1 @0x44
0x038d…03d3 at0045 = EOL // 0x3d2 @0x45
0x038d…03d3 }
0x03d3…03e3 913a 0281 RENTE$="0+"
0x03d3…03e3 LineComalBin {
0x03d3…03e3 ptr = 0x913a // 0x3d3 @0x0
0x03d3…03e3 lno = 0x0119 // 0x3d5 @0x2
0x03d3…03e3 at0004 = ╱52╱R╱ // 0x3d7 @0x4
0x03d3…03e3 at0005 = ╱45╱E╱ // 0x3d8 @0x5
0x03d3…03e3 at0006 = ╱4e╱N╱ // 0x3d9 @0x6
0x03d3…03e3 at0007 = ╱54╱T╱ // 0x3da @0x7
0x03d3…03e3 at0008 = ╱45╱E╱ // 0x3db @0x8
0x03d3…03e3 at0009 = ╱ef╱$╱ // 0x3dc @0x9
0x03d3…03e3 at000a = ╱dc╱=╱ // 0x3dd @0xa
0x03d3…03e3 at000b = ╱22╱"╱ // 0x3de @0xb
0x03d3…03e3 at000c = ╱30╱0╱ // 0x3df @0xc
0x03d3…03e3 at000d = ╱2b╱+╱ // 0x3e0 @0xd
0x03d3…03e3 at000e = ╱22╱"╱ // 0x3e1 @0xe
0x03d3…03e3 at000f = EOL // 0x3e2 @0xf
0x03d3…03e3 }
0x03e3…03f5 914c 0290 FOR RENNR1=E TO REN
0x03e3…03f5 LineComalBin {
0x03e3…03f5 ptr = 0x914c // 0x3e3 @0x0
0x03e3…03f5 lno = 0x0122 // 0x3e5 @0x2
0x03e3…03f5 at0004 = ╱83╱ FOR ╱ // 0x3e7 @0x4
0x03e3…03f5 at0005 = ╱52╱R╱ // 0x3e8 @0x5
0x03e3…03f5 at0006 = ╱45╱E╱ // 0x3e9 @0x6
0x03e3…03f5 at0007 = ╱4e╱N╱ // 0x3ea @0x7
0x03e3…03f5 at0008 = ╱4e╱N╱ // 0x3eb @0x8
0x03e3…03f5 at0009 = ╱52╱R╱ // 0x3ec @0x9
0x03e3…03f5 at000a = ╱31╱1╱ // 0x3ed @0xa
0x03e3…03f5 at000b = ╱dc╱=╱ // 0x3ee @0xb
0x03e3…03f5 at000c = ╱45╱E╱ // 0x3ef @0xc
0x03e3…03f5 at000d = ╱b7╱ TO ╱ // 0x3f0 @0xd
0x03e3…03f5 at000e = ╱52╱R╱ // 0x3f1 @0xe
0x03e3…03f5 at000f = ╱45╱E╱ // 0x3f2 @0xf
0x03e3…03f5 at0010 = ╱4e╱N╱ // 0x3f3 @0x10
0x03e3…03f5 at0011 = EOL // 0x3f4 @0x11
0x03e3…03f5 }
0x03f5…0409 9160 0300 IF LINIE=40 THEN
0x03f5…0409 LineComalBin {
0x03f5…0409 ptr = 0x9160 // 0x3f5 @0x0
0x03f5…0409 lno = 0x012c // 0x3f7 @0x2
0x03f5…0409 at0004 = ╱9c╱ IF ╱ // 0x3f9 @0x4
0x03f5…0409 at0005 = ╱4c╱L╱ // 0x3fa @0x5
0x03f5…0409 at0006 = ╱49╱I╱ // 0x3fb @0x6
0x03f5…0409 at0007 = ╱4e╱N╱ // 0x3fc @0x7
0x03f5…0409 at0008 = ╱49╱I╱ // 0x3fd @0x8
0x03f5…0409 at0009 = ╱45╱E╱ // 0x3fe @0x9
0x03f5…0409 at000a = ╱dc╱=╱ // 0x3ff @0xa
0x03f5…0409 at000b = ╱34╱4╱ // 0x400 @0xb
0x03f5…0409 at000c = ╱30╱0╱ // 0x401 @0xc
0x03f5…0409 at000d = ╱fe0000a006╱ // 0x402 @0xd
0x03f5…0409 at0012 = ╱b6╱ THEN ╱ // 0x407 @0x12
0x03f5…0409 at0013 = EOL // 0x408 @0x13
0x03f5…0409 }
0x0409…042f 9186 0310 PRINT CHR(10);CHR(10);CHR(10)
0x0409…042f LineComalBin {
0x0409…042f ptr = 0x9186 // 0x409 @0x0
0x0409…042f lno = 0x0136 // 0x40b @0x2
0x0409…042f at0004 = ╱92╱ PRINT ╱ // 0x40d @0x4
0x0409…042f at0005 = ╱cf╱CHR╱ // 0x40e @0x5
0x0409…042f at0006 = ╱ed╱(╱ // 0x40f @0x6
0x0409…042f at0007 = ╱31╱1╱ // 0x410 @0x7
0x0409…042f at0008 = ╱30╱0╱ // 0x411 @0x8
0x0409…042f at0009 = ╱fe0000a004╱ // 0x412 @0x9
0x0409…042f at000e = ╱ee╱)╱ // 0x417 @0xe
0x0409…042f at000f = ╱eb╱;╱ // 0x418 @0xf
0x0409…042f at0010 = ╱cf╱CHR╱ // 0x419 @0x10
0x0409…042f at0011 = ╱ed╱(╱ // 0x41a @0x11
0x0409…042f at0012 = ╱31╱1╱ // 0x41b @0x12
0x0409…042f at0013 = ╱30╱0╱ // 0x41c @0x13
0x0409…042f at0014 = ╱fe0000a004╱ // 0x41d @0x14
0x0409…042f at0019 = ╱ee╱)╱ // 0x422 @0x19
0x0409…042f at001a = ╱eb╱;╱ // 0x423 @0x1a
0x0409…042f at001b = ╱cf╱CHR╱ // 0x424 @0x1b
0x0409…042f at001c = ╱ed╱(╱ // 0x425 @0x1c
0x0409…042f at001d = ╱31╱1╱ // 0x426 @0x1d
0x0409…042f at001e = ╱30╱0╱ // 0x427 @0x1e
0x0409…042f at001f = ╱fe0000a004╱ // 0x428 @0x1f
0x0409…042f at0024 = ╱ee╱)╱ // 0x42d @0x24
0x0409…042f at0025 = EOL // 0x42e @0x25
0x0409…042f }
0x042f…0447 919e 0320 LINIE=E;SIDE=SIDE+E
0x042f…0447 LineComalBin {
0x042f…0447 ptr = 0x919e // 0x42f @0x0
0x042f…0447 lno = 0x0140 // 0x431 @0x2
0x042f…0447 at0004 = ╱4c╱L╱ // 0x433 @0x4
0x042f…0447 at0005 = ╱49╱I╱ // 0x434 @0x5
0x042f…0447 at0006 = ╱4e╱N╱ // 0x435 @0x6
0x042f…0447 at0007 = ╱49╱I╱ // 0x436 @0x7
0x042f…0447 at0008 = ╱45╱E╱ // 0x437 @0x8
0x042f…0447 at0009 = ╱dc╱=╱ // 0x438 @0x9
0x042f…0447 at000a = ╱45╱E╱ // 0x439 @0xa
0x042f…0447 at000b = ╱eb╱;╱ // 0x43a @0xb
0x042f…0447 at000c = ╱53╱S╱ // 0x43b @0xc
0x042f…0447 at000d = ╱49╱I╱ // 0x43c @0xd
0x042f…0447 at000e = ╱44╱D╱ // 0x43d @0xe
0x042f…0447 at000f = ╱45╱E╱ // 0x43e @0xf
0x042f…0447 at0010 = ╱dc╱=╱ // 0x43f @0x10
0x042f…0447 at0011 = ╱53╱S╱ // 0x440 @0x11
0x042f…0447 at0012 = ╱49╱I╱ // 0x441 @0x12
0x042f…0447 at0013 = ╱44╱D╱ // 0x442 @0x13
0x042f…0447 at0014 = ╱45╱E╱ // 0x443 @0x14
0x042f…0447 at0015 = ╱e2╱+╱ // 0x444 @0x15
0x042f…0447 at0016 = ╱45╱E╱ // 0x445 @0x16
0x042f…0447 at0017 = EOL // 0x446 @0x17
0x042f…0447 }
0x0447…044d 91a4 0330 ENDIF
0x0447…044d LineComalBin {
0x0447…044d ptr = 0x91a4 // 0x447 @0x0
0x0447…044d lno = 0x014a // 0x449 @0x2
0x0447…044d at0004 = ╱9b╱ ENDIF ╱ // 0x44b @0x4
0x0447…044d at0005 = EOL // 0x44c @0x5
0x0447…044d }
0x044d…045b 91b2 0340 IF LINIE=E THEN
0x044d…045b LineComalBin {
0x044d…045b ptr = 0x91b2 // 0x44d @0x0
0x044d…045b lno = 0x0154 // 0x44f @0x2
0x044d…045b at0004 = ╱9c╱ IF ╱ // 0x451 @0x4
0x044d…045b at0005 = ╱4c╱L╱ // 0x452 @0x5
0x044d…045b at0006 = ╱49╱I╱ // 0x453 @0x6
0x044d…045b at0007 = ╱4e╱N╱ // 0x454 @0x7
0x044d…045b at0008 = ╱49╱I╱ // 0x455 @0x8
0x044d…045b at0009 = ╱45╱E╱ // 0x456 @0x9
0x044d…045b at000a = ╱dc╱=╱ // 0x457 @0xa
0x044d…045b at000b = ╱45╱E╱ // 0x458 @0xb
0x044d…045b at000c = ╱b6╱ THEN ╱ // 0x459 @0xc
0x044d…045b at000d = EOL // 0x45a @0xd
0x044d…045b }
0x045b…0473 91ca 0345 PRINT TAB(67);DV$;" "
0x045b…0473 LineComalBin {
0x045b…0473 ptr = 0x91ca // 0x45b @0x0
0x045b…0473 lno = 0x0159 // 0x45d @0x2
0x045b…0473 at0004 = ╱92╱ PRINT ╱ // 0x45f @0x4
0x045b…0473 at0005 = ╱d2╱TAB╱ // 0x460 @0x5
0x045b…0473 at0006 = ╱ed╱(╱ // 0x461 @0x6
0x045b…0473 at0007 = ╱36╱6╱ // 0x462 @0x7
0x045b…0473 at0008 = ╱37╱7╱ // 0x463 @0x8
0x045b…0473 at0009 = ╱fe00008607╱ // 0x464 @0x9
0x045b…0473 at000e = ╱ee╱)╱ // 0x469 @0xe
0x045b…0473 at000f = ╱eb╱;╱ // 0x46a @0xf
0x045b…0473 at0010 = ╱44╱D╱ // 0x46b @0x10
0x045b…0473 at0011 = ╱56╱V╱ // 0x46c @0x11
0x045b…0473 at0012 = ╱ef╱$╱ // 0x46d @0x12
0x045b…0473 at0013 = ╱eb╱;╱ // 0x46e @0x13
0x045b…0473 at0014 = ╱22╱"╱ // 0x46f @0x14
0x045b…0473 at0015 = ╱20╱…╱ // 0x470 @0x15
0x045b…0473 at0016 = ╱22╱"╱ // 0x471 @0x16
0x045b…0473 at0017 = EOL // 0x472 @0x17
0x045b…0473 }
0x0473…04ae 9205 0350 PRINT TAB(10);CHR(14);TXT$;CHR(15);" Dato: ";DAT$;
0x0473…04ae LineComalBin {
0x0473…04ae ptr = 0x9205 // 0x473 @0x0
0x0473…04ae lno = 0x015e // 0x475 @0x2
0x0473…04ae at0004 = ╱92╱ PRINT ╱ // 0x477 @0x4
0x0473…04ae at0005 = ╱d2╱TAB╱ // 0x478 @0x5
0x0473…04ae at0006 = ╱ed╱(╱ // 0x479 @0x6
0x0473…04ae at0007 = ╱31╱1╱ // 0x47a @0x7
0x0473…04ae at0008 = ╱30╱0╱ // 0x47b @0x8
0x0473…04ae at0009 = ╱fe0000a004╱ // 0x47c @0x9
0x0473…04ae at000e = ╱ee╱)╱ // 0x481 @0xe
0x0473…04ae at000f = ╱eb╱;╱ // 0x482 @0xf
0x0473…04ae at0010 = ╱cf╱CHR╱ // 0x483 @0x10
0x0473…04ae at0011 = ╱ed╱(╱ // 0x484 @0x11
0x0473…04ae at0012 = ╱31╱1╱ // 0x485 @0x12
0x0473…04ae at0013 = ╱34╱4╱ // 0x486 @0x13
0x0473…04ae at0014 = ╱fe0000e004╱ // 0x487 @0x14
0x0473…04ae at0019 = ╱ee╱)╱ // 0x48c @0x19
0x0473…04ae at001a = ╱eb╱;╱ // 0x48d @0x1a
0x0473…04ae at001b = ╱54╱T╱ // 0x48e @0x1b
0x0473…04ae at001c = ╱58╱X╱ // 0x48f @0x1c
0x0473…04ae at001d = ╱54╱T╱ // 0x490 @0x1d
0x0473…04ae at001e = ╱ef╱$╱ // 0x491 @0x1e
0x0473…04ae at001f = ╱eb╱;╱ // 0x492 @0x1f
0x0473…04ae at0020 = ╱cf╱CHR╱ // 0x493 @0x20
0x0473…04ae at0021 = ╱ed╱(╱ // 0x494 @0x21
0x0473…04ae at0022 = ╱31╱1╱ // 0x495 @0x22
0x0473…04ae at0023 = ╱35╱5╱ // 0x496 @0x23
0x0473…04ae at0024 = ╱fe0000f004╱ // 0x497 @0x24
0x0473…04ae at0029 = ╱ee╱)╱ // 0x49c @0x29
0x0473…04ae at002a = ╱eb╱;╱ // 0x49d @0x2a
0x0473…04ae at002b = ╱22╱"╱ // 0x49e @0x2b
0x0473…04ae at002c = ╱20╱…╱ // 0x49f @0x2c
0x0473…04ae at002d = ╱44╱D╱ // 0x4a0 @0x2d
0x0473…04ae at002e = ╱61╱a╱ // 0x4a1 @0x2e
0x0473…04ae at002f = ╱74╱t╱ // 0x4a2 @0x2f
0x0473…04ae at0030 = ╱6f╱o╱ // 0x4a3 @0x30
0x0473…04ae at0031 = ╱3a╱:╱ // 0x4a4 @0x31
0x0473…04ae at0032 = ╱20╱…╱ // 0x4a5 @0x32
0x0473…04ae at0033 = ╱22╱"╱ // 0x4a6 @0x33
0x0473…04ae at0034 = ╱eb╱;╱ // 0x4a7 @0x34
0x0473…04ae at0035 = ╱44╱D╱ // 0x4a8 @0x35
0x0473…04ae at0036 = ╱41╱A╱ // 0x4a9 @0x36
0x0473…04ae at0037 = ╱54╱T╱ // 0x4aa @0x37
0x0473…04ae at0038 = ╱ef╱$╱ // 0x4ab @0x38
0x0473…04ae at0039 = ╱eb╱;╱ // 0x4ac @0x39
0x0473…04ae at003a = EOL // 0x4ad @0x3a
0x0473…04ae }
0x04ae…04c5 921c 0360 PRINT USING " side:###":SIDE
0x04ae…04c5 LineComalBin {
0x04ae…04c5 ptr = 0x921c // 0x4ae @0x0
0x04ae…04c5 lno = 0x0168 // 0x4b0 @0x2
0x04ae…04c5 at0004 = ╱92╱ PRINT ╱ // 0x4b2 @0x4
0x04ae…04c5 at0005 = ╱b9╱ USING ╱ // 0x4b3 @0x5
0x04ae…04c5 at0006 = ╱22╱"╱ // 0x4b4 @0x6
0x04ae…04c5 at0007 = ╱20╱…╱ // 0x4b5 @0x7
0x04ae…04c5 at0008 = ╱73╱s╱ // 0x4b6 @0x8
0x04ae…04c5 at0009 = ╱69╱i╱ // 0x4b7 @0x9
0x04ae…04c5 at000a = ╱64╱d╱ // 0x4b8 @0xa
0x04ae…04c5 at000b = ╱65╱e╱ // 0x4b9 @0xb
0x04ae…04c5 at000c = ╱3a╱:╱ // 0x4ba @0xc
0x04ae…04c5 at000d = ╱23╱#╱ // 0x4bb @0xd
0x04ae…04c5 at000e = ╱23╱#╱ // 0x4bc @0xe
0x04ae…04c5 at000f = ╱23╱#╱ // 0x4bd @0xf
0x04ae…04c5 at0010 = ╱22╱"╱ // 0x4be @0x10
0x04ae…04c5 at0011 = ╱f0╱:╱ // 0x4bf @0x11
0x04ae…04c5 at0012 = ╱53╱S╱ // 0x4c0 @0x12
0x04ae…04c5 at0013 = ╱49╱I╱ // 0x4c1 @0x13
0x04ae…04c5 at0014 = ╱44╱D╱ // 0x4c2 @0x14
0x04ae…04c5 at0015 = ╱45╱E╱ // 0x4c3 @0x15
0x04ae…04c5 at0016 = EOL // 0x4c4 @0x16
0x04ae…04c5 }
0x04c5…04d5 922c 0370 PRINT CHR(10)
0x04c5…04d5 LineComalBin {
0x04c5…04d5 ptr = 0x922c // 0x4c5 @0x0
0x04c5…04d5 lno = 0x0172 // 0x4c7 @0x2
0x04c5…04d5 at0004 = ╱92╱ PRINT ╱ // 0x4c9 @0x4
0x04c5…04d5 at0005 = ╱cf╱CHR╱ // 0x4ca @0x5
0x04c5…04d5 at0006 = ╱ed╱(╱ // 0x4cb @0x6
0x04c5…04d5 at0007 = ╱31╱1╱ // 0x4cc @0x7
0x04c5…04d5 at0008 = ╱30╱0╱ // 0x4cd @0x8
0x04c5…04d5 at0009 = ╱fe0000a004╱ // 0x4ce @0x9
0x04c5…04d5 at000e = ╱ee╱)╱ // 0x4d3 @0xe
0x04c5…04d5 at000f = EOL // 0x4d4 @0xf
0x04c5…04d5 }
0x04d5…051c 9273 0380 PRINT " Nr Konto Navn";TAB(44);"Saldo Forf.saldo Rentebeløb"
0x04d5…051c LineComalBin {
0x04d5…051c ptr = 0x9273 // 0x4d5 @0x0
0x04d5…051c lno = 0x017c // 0x4d7 @0x2
0x04d5…051c at0004 = ╱92╱ PRINT ╱ // 0x4d9 @0x4
0x04d5…051c at0005 = ╱22╱"╱ // 0x4da @0x5
0x04d5…051c at0006 = ╱20╱…╱ // 0x4db @0x6
0x04d5…051c at0007 = ╱4e╱N╱ // 0x4dc @0x7
0x04d5…051c at0008 = ╱72╱r╱ // 0x4dd @0x8
0x04d5…051c at0009 = ╱20╱…╱ // 0x4de @0x9
0x04d5…051c at000a = ╱20╱…╱ // 0x4df @0xa
0x04d5…051c at000b = ╱20╱…╱ // 0x4e0 @0xb
0x04d5…051c at000c = ╱4b╱K╱ // 0x4e1 @0xc
0x04d5…051c at000d = ╱6f╱o╱ // 0x4e2 @0xd
0x04d5…051c at000e = ╱6e╱n╱ // 0x4e3 @0xe
0x04d5…051c at000f = ╱74╱t╱ // 0x4e4 @0xf
0x04d5…051c at0010 = ╱6f╱o╱ // 0x4e5 @0x10
0x04d5…051c at0011 = ╱20╱…╱ // 0x4e6 @0x11
0x04d5…051c at0012 = ╱4e╱N╱ // 0x4e7 @0x12
0x04d5…051c at0013 = ╱61╱a╱ // 0x4e8 @0x13
0x04d5…051c at0014 = ╱76╱v╱ // 0x4e9 @0x14
0x04d5…051c at0015 = ╱6e╱n╱ // 0x4ea @0x15
0x04d5…051c at0016 = ╱22╱"╱ // 0x4eb @0x16
0x04d5…051c at0017 = ╱eb╱;╱ // 0x4ec @0x17
0x04d5…051c at0018 = ╱d2╱TAB╱ // 0x4ed @0x18
0x04d5…051c at0019 = ╱ed╱(╱ // 0x4ee @0x19
0x04d5…051c at001a = ╱34╱4╱ // 0x4ef @0x1a
0x04d5…051c at001b = ╱34╱4╱ // 0x4f0 @0x1b
0x04d5…051c at001c = ╱fe0000b006╱ // 0x4f1 @0x1c
0x04d5…051c at0021 = ╱ee╱)╱ // 0x4f6 @0x21
0x04d5…051c at0022 = ╱eb╱;╱ // 0x4f7 @0x22
0x04d5…051c at0023 = ╱22╱"╱ // 0x4f8 @0x23
0x04d5…051c at0024 = ╱53╱S╱ // 0x4f9 @0x24
0x04d5…051c at0025 = ╱61╱a╱ // 0x4fa @0x25
0x04d5…051c at0026 = ╱6c╱l╱ // 0x4fb @0x26
0x04d5…051c at0027 = ╱64╱d╱ // 0x4fc @0x27
0x04d5…051c at0028 = ╱6f╱o╱ // 0x4fd @0x28
0x04d5…051c at0029 = ╱20╱…╱ // 0x4fe @0x29
0x04d5…051c at002a = ╱20╱…╱ // 0x4ff @0x2a
0x04d5…051c at002b = ╱20╱…╱ // 0x500 @0x2b
0x04d5…051c at002c = ╱20╱…╱ // 0x501 @0x2c
0x04d5…051c at002d = ╱20╱…╱ // 0x502 @0x2d
0x04d5…051c at002e = ╱46╱F╱ // 0x503 @0x2e
0x04d5…051c at002f = ╱6f╱o╱ // 0x504 @0x2f
0x04d5…051c at0030 = ╱72╱r╱ // 0x505 @0x30
0x04d5…051c at0031 = ╱66╱f╱ // 0x506 @0x31
0x04d5…051c at0032 = ╱2e╱.╱ // 0x507 @0x32
0x04d5…051c at0033 = ╱73╱s╱ // 0x508 @0x33
0x04d5…051c at0034 = ╱61╱a╱ // 0x509 @0x34
0x04d5…051c at0035 = ╱6c╱l╱ // 0x50a @0x35
0x04d5…051c at0036 = ╱64╱d╱ // 0x50b @0x36
0x04d5…051c at0037 = ╱6f╱o╱ // 0x50c @0x37
0x04d5…051c at0038 = ╱20╱…╱ // 0x50d @0x38
0x04d5…051c at0039 = ╱20╱…╱ // 0x50e @0x39
0x04d5…051c at003a = ╱20╱…╱ // 0x50f @0x3a
0x04d5…051c at003b = ╱52╱R╱ // 0x510 @0x3b
0x04d5…051c at003c = ╱65╱e╱ // 0x511 @0x3c
0x04d5…051c at003d = ╱6e╱n╱ // 0x512 @0x3d
0x04d5…051c at003e = ╱74╱t╱ // 0x513 @0x3e
0x04d5…051c at003f = ╱65╱e╱ // 0x514 @0x3f
0x04d5…051c at0040 = ╱62╱b╱ // 0x515 @0x40
0x04d5…051c at0041 = ╱65╱e╱ // 0x516 @0x41
0x04d5…051c at0042 = ╱6c╱l╱ // 0x517 @0x42
0x04d5…051c at0043 = ╱7c╱ø╱ // 0x518 @0x43
0x04d5…051c at0044 = ╱62╱b╱ // 0x519 @0x44
0x04d5…051c at0045 = ╱22╱"╱ // 0x51a @0x45
0x04d5…051c at0046 = EOL // 0x51b @0x46
0x04d5…051c }
0x051c…0525 927c 0390 PRINT " "
0x051c…0525 LineComalBin {
0x051c…0525 ptr = 0x927c // 0x51c @0x0
0x051c…0525 lno = 0x0186 // 0x51e @0x2
0x051c…0525 at0004 = ╱92╱ PRINT ╱ // 0x520 @0x4
0x051c…0525 at0005 = ╱22╱"╱ // 0x521 @0x5
0x051c…0525 at0006 = ╱20╱…╱ // 0x522 @0x6
0x051c…0525 at0007 = ╱22╱"╱ // 0x523 @0x7
0x051c…0525 at0008 = EOL // 0x524 @0x8
0x051c…0525 }
0x0525…052b 9282 0400 ENDIF
0x0525…052b LineComalBin {
0x0525…052b ptr = 0x9282 // 0x525 @0x0
0x0525…052b lno = 0x0190 // 0x527 @0x2
0x0525…052b at0004 = ╱9b╱ ENDIF ╱ // 0x529 @0x4
0x0525…052b at0005 = EOL // 0x52a @0x5
0x0525…052b }
0x052b…0531 9288 0410 REPEAT
0x052b…0531 LineComalBin {
0x052b…0531 ptr = 0x9288 // 0x52b @0x0
0x052b…0531 lno = 0x019a // 0x52d @0x2
0x052b…0531 at0004 = ╱97╱ REPEAT ╱ // 0x52f @0x4
0x052b…0531 at0005 = EOL // 0x530 @0x5
0x052b…0531 }
0x0531…0563 92ba 0420 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$
0x0531…0563 LineComalBin {
0x0531…0563 ptr = 0x92ba // 0x531 @0x0
0x0531…0563 lno = 0x01a4 // 0x533 @0x2
0x0531…0563 at0004 = ╱a9╱ GET ╱ // 0x535 @0x4
0x0531…0563 at0005 = ╱4b╱K╱ // 0x536 @0x5
0x0531…0563 at0006 = ╱35╱5╱ // 0x537 @0x6
0x0531…0563 at0007 = ╱ef╱$╱ // 0x538 @0x7
0x0531…0563 at0008 = ╱ec╱,╱ // 0x539 @0x8
0x0531…0563 at0009 = ╱52╱R╱ // 0x53a @0x9
0x0531…0563 at000a = ╱45╱E╱ // 0x53b @0xa
0x0531…0563 at000b = ╱4e╱N╱ // 0x53c @0xb
0x0531…0563 at000c = ╱4e╱N╱ // 0x53d @0xc
0x0531…0563 at000d = ╱52╱R╱ // 0x53e @0xd
0x0531…0563 at000e = ╱31╱1╱ // 0x53f @0xe
0x0531…0563 at000f = ╱f0╱:╱ // 0x540 @0xf
0x0531…0563 at0010 = ╱4b╱K╱ // 0x541 @0x10
0x0531…0563 at0011 = ╱4f╱O╱ // 0x542 @0x11
0x0531…0563 at0012 = ╱4e╱N╱ // 0x543 @0x12
0x0531…0563 at0013 = ╱54╱T╱ // 0x544 @0x13
0x0531…0563 at0014 = ╱4f╱O╱ // 0x545 @0x14
0x0531…0563 at0015 = ╱ec╱,╱ // 0x546 @0x15
0x0531…0563 at0016 = ╱4e╱N╱ // 0x547 @0x16
0x0531…0563 at0017 = ╱41╱A╱ // 0x548 @0x17
0x0531…0563 at0018 = ╱56╱V╱ // 0x549 @0x18
0x0531…0563 at0019 = ╱4e╱N╱ // 0x54a @0x19
0x0531…0563 at001a = ╱ef╱$╱ // 0x54b @0x1a
0x0531…0563 at001b = ╱ec╱,╱ // 0x54c @0x1b
0x0531…0563 at001c = ╱53╱S╱ // 0x54d @0x1c
0x0531…0563 at001d = ╱41╱A╱ // 0x54e @0x1d
0x0531…0563 at001e = ╱4c╱L╱ // 0x54f @0x1e
0x0531…0563 at001f = ╱44╱D╱ // 0x550 @0x1f
0x0531…0563 at0020 = ╱4f╱O╱ // 0x551 @0x20
0x0531…0563 at0021 = ╱ef╱$╱ // 0x552 @0x21
0x0531…0563 at0022 = ╱ec╱,╱ // 0x553 @0x22
0x0531…0563 at0023 = ╱46╱F╱ // 0x554 @0x23
0x0531…0563 at0024 = ╱53╱S╱ // 0x555 @0x24
0x0531…0563 at0025 = ╱41╱A╱ // 0x556 @0x25
0x0531…0563 at0026 = ╱4c╱L╱ // 0x557 @0x26
0x0531…0563 at0027 = ╱44╱D╱ // 0x558 @0x27
0x0531…0563 at0028 = ╱4f╱O╱ // 0x559 @0x28
0x0531…0563 at0029 = ╱ef╱$╱ // 0x55a @0x29
0x0531…0563 at002a = ╱ec╱,╱ // 0x55b @0x2a
0x0531…0563 at002b = ╱52╱R╱ // 0x55c @0x2b
0x0531…0563 at002c = ╱45╱E╱ // 0x55d @0x2c
0x0531…0563 at002d = ╱4e╱N╱ // 0x55e @0x2d
0x0531…0563 at002e = ╱54╱T╱ // 0x55f @0x2e
0x0531…0563 at002f = ╱45╱E╱ // 0x560 @0x2f
0x0531…0563 at0030 = ╱ef╱$╱ // 0x561 @0x30
0x0531…0563 at0031 = EOL // 0x562 @0x31
0x0531…0563 }
0x0563…0576 92cd 0430 EXEC FEJL(E,E,K5$)
0x0563…0576 LineComalBin {
0x0563…0576 ptr = 0x92cd // 0x563 @0x0
0x0563…0576 lno = 0x01ae // 0x565 @0x2
0x0563…0576 at0004 = ╱9d╱ EXEC ╱ // 0x567 @0x4
0x0563…0576 at0005 = ╱46╱F╱ // 0x568 @0x5
0x0563…0576 at0006 = ╱45╱E╱ // 0x569 @0x6
0x0563…0576 at0007 = ╱4a╱J╱ // 0x56a @0x7
0x0563…0576 at0008 = ╱4c╱L╱ // 0x56b @0x8
0x0563…0576 at0009 = ╱ed╱(╱ // 0x56c @0x9
0x0563…0576 at000a = ╱45╱E╱ // 0x56d @0xa
0x0563…0576 at000b = ╱ec╱,╱ // 0x56e @0xb
0x0563…0576 at000c = ╱45╱E╱ // 0x56f @0xc
0x0563…0576 at000d = ╱ec╱,╱ // 0x570 @0xd
0x0563…0576 at000e = ╱4b╱K╱ // 0x571 @0xe
0x0563…0576 at000f = ╱35╱5╱ // 0x572 @0xf
0x0563…0576 at0010 = ╱ef╱$╱ // 0x573 @0x10
0x0563…0576 at0011 = ╱ee╱)╱ // 0x574 @0x11
0x0563…0576 at0012 = EOL // 0x575 @0x12
0x0563…0576 }
0x0576…05b8 930f 0440 IF KONTO=B THEN RENNR1=RENNR1+E;SALDO$="0+";FSALDO$="0+";RENTE$="0+"
0x0576…05b8 LineComalBin {
0x0576…05b8 ptr = 0x930f // 0x576 @0x0
0x0576…05b8 lno = 0x01b8 // 0x578 @0x2
0x0576…05b8 at0004 = ╱82╱ IF ╱ // 0x57a @0x4
0x0576…05b8 at0005 = ╱4b╱K╱ // 0x57b @0x5
0x0576…05b8 at0006 = ╱4f╱O╱ // 0x57c @0x6
0x0576…05b8 at0007 = ╱4e╱N╱ // 0x57d @0x7
0x0576…05b8 at0008 = ╱54╱T╱ // 0x57e @0x8
0x0576…05b8 at0009 = ╱4f╱O╱ // 0x57f @0x9
0x0576…05b8 at000a = ╱dc╱=╱ // 0x580 @0xa
0x0576…05b8 at000b = ╱42╱B╱ // 0x581 @0xb
0x0576…05b8 at000c = ╱b6╱ THEN ╱ // 0x582 @0xc
0x0576…05b8 at000d = ╱52╱R╱ // 0x583 @0xd
0x0576…05b8 at000e = ╱45╱E╱ // 0x584 @0xe
0x0576…05b8 at000f = ╱4e╱N╱ // 0x585 @0xf
0x0576…05b8 at0010 = ╱4e╱N╱ // 0x586 @0x10
0x0576…05b8 at0011 = ╱52╱R╱ // 0x587 @0x11
0x0576…05b8 at0012 = ╱31╱1╱ // 0x588 @0x12
0x0576…05b8 at0013 = ╱dc╱=╱ // 0x589 @0x13
0x0576…05b8 at0014 = ╱52╱R╱ // 0x58a @0x14
0x0576…05b8 at0015 = ╱45╱E╱ // 0x58b @0x15
0x0576…05b8 at0016 = ╱4e╱N╱ // 0x58c @0x16
0x0576…05b8 at0017 = ╱4e╱N╱ // 0x58d @0x17
0x0576…05b8 at0018 = ╱52╱R╱ // 0x58e @0x18
0x0576…05b8 at0019 = ╱31╱1╱ // 0x58f @0x19
0x0576…05b8 at001a = ╱e2╱+╱ // 0x590 @0x1a
0x0576…05b8 at001b = ╱45╱E╱ // 0x591 @0x1b
0x0576…05b8 at001c = ╱eb╱;╱ // 0x592 @0x1c
0x0576…05b8 at001d = ╱53╱S╱ // 0x593 @0x1d
0x0576…05b8 at001e = ╱41╱A╱ // 0x594 @0x1e
0x0576…05b8 at001f = ╱4c╱L╱ // 0x595 @0x1f
0x0576…05b8 at0020 = ╱44╱D╱ // 0x596 @0x20
0x0576…05b8 at0021 = ╱4f╱O╱ // 0x597 @0x21
0x0576…05b8 at0022 = ╱ef╱$╱ // 0x598 @0x22
0x0576…05b8 at0023 = ╱dc╱=╱ // 0x599 @0x23
0x0576…05b8 at0024 = ╱22╱"╱ // 0x59a @0x24
0x0576…05b8 at0025 = ╱30╱0╱ // 0x59b @0x25
0x0576…05b8 at0026 = ╱2b╱+╱ // 0x59c @0x26
0x0576…05b8 at0027 = ╱22╱"╱ // 0x59d @0x27
0x0576…05b8 at0028 = ╱eb╱;╱ // 0x59e @0x28
0x0576…05b8 at0029 = ╱46╱F╱ // 0x59f @0x29
0x0576…05b8 at002a = ╱53╱S╱ // 0x5a0 @0x2a
0x0576…05b8 at002b = ╱41╱A╱ // 0x5a1 @0x2b
0x0576…05b8 at002c = ╱4c╱L╱ // 0x5a2 @0x2c
0x0576…05b8 at002d = ╱44╱D╱ // 0x5a3 @0x2d
0x0576…05b8 at002e = ╱4f╱O╱ // 0x5a4 @0x2e
0x0576…05b8 at002f = ╱ef╱$╱ // 0x5a5 @0x2f
0x0576…05b8 at0030 = ╱dc╱=╱ // 0x5a6 @0x30
0x0576…05b8 at0031 = ╱22╱"╱ // 0x5a7 @0x31
0x0576…05b8 at0032 = ╱30╱0╱ // 0x5a8 @0x32
0x0576…05b8 at0033 = ╱2b╱+╱ // 0x5a9 @0x33
0x0576…05b8 at0034 = ╱22╱"╱ // 0x5aa @0x34
0x0576…05b8 at0035 = ╱eb╱;╱ // 0x5ab @0x35
0x0576…05b8 at0036 = ╱52╱R╱ // 0x5ac @0x36
0x0576…05b8 at0037 = ╱45╱E╱ // 0x5ad @0x37
0x0576…05b8 at0038 = ╱4e╱N╱ // 0x5ae @0x38
0x0576…05b8 at0039 = ╱54╱T╱ // 0x5af @0x39
0x0576…05b8 at003a = ╱45╱E╱ // 0x5b0 @0x3a
0x0576…05b8 at003b = ╱ef╱$╱ // 0x5b1 @0x3b
0x0576…05b8 at003c = ╱dc╱=╱ // 0x5b2 @0x3c
0x0576…05b8 at003d = ╱22╱"╱ // 0x5b3 @0x3d
0x0576…05b8 at003e = ╱30╱0╱ // 0x5b4 @0x3e
0x0576…05b8 at003f = ╱2b╱+╱ // 0x5b5 @0x3f
0x0576…05b8 at0040 = ╱22╱"╱ // 0x5b6 @0x40
0x0576…05b8 at0041 = EOL // 0x5b7 @0x41
0x0576…05b8 }
0x05b8…05d2 9329 0450 UNTIL KONTO<>B OR RENNR1=REN+E
0x05b8…05d2 LineComalBin {
0x05b8…05d2 ptr = 0x9329 // 0x5b8 @0x0
0x05b8…05d2 lno = 0x01c2 // 0x5ba @0x2
0x05b8…05d2 at0004 = ╱98╱ UNTIL ╱ // 0x5bc @0x4
0x05b8…05d2 at0005 = ╱4b╱K╱ // 0x5bd @0x5
0x05b8…05d2 at0006 = ╱4f╱O╱ // 0x5be @0x6
0x05b8…05d2 at0007 = ╱4e╱N╱ // 0x5bf @0x7
0x05b8…05d2 at0008 = ╱54╱T╱ // 0x5c0 @0x8
0x05b8…05d2 at0009 = ╱4f╱O╱ // 0x5c1 @0x9
0x05b8…05d2 at000a = ╱e1╱<>╱ // 0x5c2 @0xa
0x05b8…05d2 at000b = ╱42╱B╱ // 0x5c3 @0xb
0x05b8…05d2 at000c = ╱db╱ OR ╱ // 0x5c4 @0xc
0x05b8…05d2 at000d = ╱52╱R╱ // 0x5c5 @0xd
0x05b8…05d2 at000e = ╱45╱E╱ // 0x5c6 @0xe
0x05b8…05d2 at000f = ╱4e╱N╱ // 0x5c7 @0xf
0x05b8…05d2 at0010 = ╱4e╱N╱ // 0x5c8 @0x10
0x05b8…05d2 at0011 = ╱52╱R╱ // 0x5c9 @0x11
0x05b8…05d2 at0012 = ╱31╱1╱ // 0x5ca @0x12
0x05b8…05d2 at0013 = ╱dc╱=╱ // 0x5cb @0x13
0x05b8…05d2 at0014 = ╱52╱R╱ // 0x5cc @0x14
0x05b8…05d2 at0015 = ╱45╱E╱ // 0x5cd @0x15
0x05b8…05d2 at0016 = ╱4e╱N╱ // 0x5ce @0x16
0x05b8…05d2 at0017 = ╱e2╱+╱ // 0x5cf @0x17
0x05b8…05d2 at0018 = ╱45╱E╱ // 0x5d0 @0x18
0x05b8…05d2 at0019 = EOL // 0x5d1 @0x19
0x05b8…05d2 }
0x05d2…05e1 9338 0455 IF KONTO=B THEN EXIT
0x05d2…05e1 LineComalBin {
0x05d2…05e1 ptr = 0x9338 // 0x5d2 @0x0
0x05d2…05e1 lno = 0x01c7 // 0x5d4 @0x2
0x05d2…05e1 at0004 = ╱82╱ IF ╱ // 0x5d6 @0x4
0x05d2…05e1 at0005 = ╱4b╱K╱ // 0x5d7 @0x5
0x05d2…05e1 at0006 = ╱4f╱O╱ // 0x5d8 @0x6
0x05d2…05e1 at0007 = ╱4e╱N╱ // 0x5d9 @0x7
0x05d2…05e1 at0008 = ╱54╱T╱ // 0x5da @0x8
0x05d2…05e1 at0009 = ╱4f╱O╱ // 0x5db @0x9
0x05d2…05e1 at000a = ╱dc╱=╱ // 0x5dc @0xa
0x05d2…05e1 at000b = ╱42╱B╱ // 0x5dd @0xb
0x05d2…05e1 at000c = ╱b6╱ THEN ╱ // 0x5de @0xc
0x05d2…05e1 at000d = ╱99╱ EXIT ╱ // 0x5df @0xd
0x05d2…05e1 at000e = EOL // 0x5e0 @0xe
0x05d2…05e1 }
0x05e1…0601 9358 0460 EXEC CALC(B,SUM1$,SALDO$,SUM1$)
0x05e1…0601 LineComalBin {
0x05e1…0601 ptr = 0x9358 // 0x5e1 @0x0
0x05e1…0601 lno = 0x01cc // 0x5e3 @0x2
0x05e1…0601 at0004 = ╱9d╱ EXEC ╱ // 0x5e5 @0x4
0x05e1…0601 at0005 = ╱43╱C╱ // 0x5e6 @0x5
0x05e1…0601 at0006 = ╱41╱A╱ // 0x5e7 @0x6
0x05e1…0601 at0007 = ╱4c╱L╱ // 0x5e8 @0x7
0x05e1…0601 at0008 = ╱43╱C╱ // 0x5e9 @0x8
0x05e1…0601 at0009 = ╱ed╱(╱ // 0x5ea @0x9
0x05e1…0601 at000a = ╱42╱B╱ // 0x5eb @0xa
0x05e1…0601 at000b = ╱ec╱,╱ // 0x5ec @0xb
0x05e1…0601 at000c = ╱53╱S╱ // 0x5ed @0xc
0x05e1…0601 at000d = ╱55╱U╱ // 0x5ee @0xd
0x05e1…0601 at000e = ╱4d╱M╱ // 0x5ef @0xe
0x05e1…0601 at000f = ╱31╱1╱ // 0x5f0 @0xf
0x05e1…0601 at0010 = ╱ef╱$╱ // 0x5f1 @0x10
0x05e1…0601 at0011 = ╱ec╱,╱ // 0x5f2 @0x11
0x05e1…0601 at0012 = ╱53╱S╱ // 0x5f3 @0x12
0x05e1…0601 at0013 = ╱41╱A╱ // 0x5f4 @0x13
0x05e1…0601 at0014 = ╱4c╱L╱ // 0x5f5 @0x14
0x05e1…0601 at0015 = ╱44╱D╱ // 0x5f6 @0x15
0x05e1…0601 at0016 = ╱4f╱O╱ // 0x5f7 @0x16
0x05e1…0601 at0017 = ╱ef╱$╱ // 0x5f8 @0x17
0x05e1…0601 at0018 = ╱ec╱,╱ // 0x5f9 @0x18
0x05e1…0601 at0019 = ╱53╱S╱ // 0x5fa @0x19
0x05e1…0601 at001a = ╱55╱U╱ // 0x5fb @0x1a
0x05e1…0601 at001b = ╱4d╱M╱ // 0x5fc @0x1b
0x05e1…0601 at001c = ╱31╱1╱ // 0x5fd @0x1c
0x05e1…0601 at001d = ╱ef╱$╱ // 0x5fe @0x1d
0x05e1…0601 at001e = ╱ee╱)╱ // 0x5ff @0x1e
0x05e1…0601 at001f = EOL // 0x600 @0x1f
0x05e1…0601 }
0x0601…0622 9379 0470 EXEC CALC(B,SUM2$,FSALDO$,SUM2$)
0x0601…0622 LineComalBin {
0x0601…0622 ptr = 0x9379 // 0x601 @0x0
0x0601…0622 lno = 0x01d6 // 0x603 @0x2
0x0601…0622 at0004 = ╱9d╱ EXEC ╱ // 0x605 @0x4
0x0601…0622 at0005 = ╱43╱C╱ // 0x606 @0x5
0x0601…0622 at0006 = ╱41╱A╱ // 0x607 @0x6
0x0601…0622 at0007 = ╱4c╱L╱ // 0x608 @0x7
0x0601…0622 at0008 = ╱43╱C╱ // 0x609 @0x8
0x0601…0622 at0009 = ╱ed╱(╱ // 0x60a @0x9
0x0601…0622 at000a = ╱42╱B╱ // 0x60b @0xa
0x0601…0622 at000b = ╱ec╱,╱ // 0x60c @0xb
0x0601…0622 at000c = ╱53╱S╱ // 0x60d @0xc
0x0601…0622 at000d = ╱55╱U╱ // 0x60e @0xd
0x0601…0622 at000e = ╱4d╱M╱ // 0x60f @0xe
0x0601…0622 at000f = ╱32╱2╱ // 0x610 @0xf
0x0601…0622 at0010 = ╱ef╱$╱ // 0x611 @0x10
0x0601…0622 at0011 = ╱ec╱,╱ // 0x612 @0x11
0x0601…0622 at0012 = ╱46╱F╱ // 0x613 @0x12
0x0601…0622 at0013 = ╱53╱S╱ // 0x614 @0x13
0x0601…0622 at0014 = ╱41╱A╱ // 0x615 @0x14
0x0601…0622 at0015 = ╱4c╱L╱ // 0x616 @0x15
0x0601…0622 at0016 = ╱44╱D╱ // 0x617 @0x16
0x0601…0622 at0017 = ╱4f╱O╱ // 0x618 @0x17
0x0601…0622 at0018 = ╱ef╱$╱ // 0x619 @0x18
0x0601…0622 at0019 = ╱ec╱,╱ // 0x61a @0x19
0x0601…0622 at001a = ╱53╱S╱ // 0x61b @0x1a
0x0601…0622 at001b = ╱55╱U╱ // 0x61c @0x1b
0x0601…0622 at001c = ╱4d╱M╱ // 0x61d @0x1c
0x0601…0622 at001d = ╱32╱2╱ // 0x61e @0x1d
0x0601…0622 at001e = ╱ef╱$╱ // 0x61f @0x1e
0x0601…0622 at001f = ╱ee╱)╱ // 0x620 @0x1f
0x0601…0622 at0020 = EOL // 0x621 @0x20
0x0601…0622 }
0x0622…0642 9399 0480 EXEC CALC(B,SUM3$,RENTE$,SUM3$)
0x0622…0642 LineComalBin {
0x0622…0642 ptr = 0x9399 // 0x622 @0x0
0x0622…0642 lno = 0x01e0 // 0x624 @0x2
0x0622…0642 at0004 = ╱9d╱ EXEC ╱ // 0x626 @0x4
0x0622…0642 at0005 = ╱43╱C╱ // 0x627 @0x5
0x0622…0642 at0006 = ╱41╱A╱ // 0x628 @0x6
0x0622…0642 at0007 = ╱4c╱L╱ // 0x629 @0x7
0x0622…0642 at0008 = ╱43╱C╱ // 0x62a @0x8
0x0622…0642 at0009 = ╱ed╱(╱ // 0x62b @0x9
0x0622…0642 at000a = ╱42╱B╱ // 0x62c @0xa
0x0622…0642 at000b = ╱ec╱,╱ // 0x62d @0xb
0x0622…0642 at000c = ╱53╱S╱ // 0x62e @0xc
0x0622…0642 at000d = ╱55╱U╱ // 0x62f @0xd
0x0622…0642 at000e = ╱4d╱M╱ // 0x630 @0xe
0x0622…0642 at000f = ╱33╱3╱ // 0x631 @0xf
0x0622…0642 at0010 = ╱ef╱$╱ // 0x632 @0x10
0x0622…0642 at0011 = ╱ec╱,╱ // 0x633 @0x11
0x0622…0642 at0012 = ╱52╱R╱ // 0x634 @0x12
0x0622…0642 at0013 = ╱45╱E╱ // 0x635 @0x13
0x0622…0642 at0014 = ╱4e╱N╱ // 0x636 @0x14
0x0622…0642 at0015 = ╱54╱T╱ // 0x637 @0x15
0x0622…0642 at0016 = ╱45╱E╱ // 0x638 @0x16
0x0622…0642 at0017 = ╱ef╱$╱ // 0x639 @0x17
0x0622…0642 at0018 = ╱ec╱,╱ // 0x63a @0x18
0x0622…0642 at0019 = ╱53╱S╱ // 0x63b @0x19
0x0622…0642 at001a = ╱55╱U╱ // 0x63c @0x1a
0x0622…0642 at001b = ╱4d╱M╱ // 0x63d @0x1b
0x0622…0642 at001c = ╱33╱3╱ // 0x63e @0x1c
0x0622…0642 at001d = ╱ef╱$╱ // 0x63f @0x1d
0x0622…0642 at001e = ╱ee╱)╱ // 0x640 @0x1e
0x0622…0642 at001f = EOL // 0x641 @0x1f
0x0622…0642 }
0x0642…0660 93b7 0490 EXEC TUD(SALDO$,UBELØB1$,E,B)
0x0642…0660 LineComalBin {
0x0642…0660 ptr = 0x93b7 // 0x642 @0x0
0x0642…0660 lno = 0x01ea // 0x644 @0x2
0x0642…0660 at0004 = ╱9d╱ EXEC ╱ // 0x646 @0x4
0x0642…0660 at0005 = ╱54╱T╱ // 0x647 @0x5
0x0642…0660 at0006 = ╱55╱U╱ // 0x648 @0x6
0x0642…0660 at0007 = ╱44╱D╱ // 0x649 @0x7
0x0642…0660 at0008 = ╱ed╱(╱ // 0x64a @0x8
0x0642…0660 at0009 = ╱53╱S╱ // 0x64b @0x9
0x0642…0660 at000a = ╱41╱A╱ // 0x64c @0xa
0x0642…0660 at000b = ╱4c╱L╱ // 0x64d @0xb
0x0642…0660 at000c = ╱44╱D╱ // 0x64e @0xc
0x0642…0660 at000d = ╱4f╱O╱ // 0x64f @0xd
0x0642…0660 at000e = ╱ef╱$╱ // 0x650 @0xe
0x0642…0660 at000f = ╱ec╱,╱ // 0x651 @0xf
0x0642…0660 at0010 = ╱55╱U╱ // 0x652 @0x10
0x0642…0660 at0011 = ╱42╱B╱ // 0x653 @0x11
0x0642…0660 at0012 = ╱45╱E╱ // 0x654 @0x12
0x0642…0660 at0013 = ╱4c╱L╱ // 0x655 @0x13
0x0642…0660 at0014 = ╱5c╱Ø╱ // 0x656 @0x14
0x0642…0660 at0015 = ╱42╱B╱ // 0x657 @0x15
0x0642…0660 at0016 = ╱31╱1╱ // 0x658 @0x16
0x0642…0660 at0017 = ╱ef╱$╱ // 0x659 @0x17
0x0642…0660 at0018 = ╱ec╱,╱ // 0x65a @0x18
0x0642…0660 at0019 = ╱45╱E╱ // 0x65b @0x19
0x0642…0660 at001a = ╱ec╱,╱ // 0x65c @0x1a
0x0642…0660 at001b = ╱42╱B╱ // 0x65d @0x1b
0x0642…0660 at001c = ╱ee╱)╱ // 0x65e @0x1c
0x0642…0660 at001d = EOL // 0x65f @0x1d
0x0642…0660 }
0x0660…067f 93d6 0500 EXEC TUD(FSALDO$,UBELØB2$,E,B)
0x0660…067f LineComalBin {
0x0660…067f ptr = 0x93d6 // 0x660 @0x0
0x0660…067f lno = 0x01f4 // 0x662 @0x2
0x0660…067f at0004 = ╱9d╱ EXEC ╱ // 0x664 @0x4
0x0660…067f at0005 = ╱54╱T╱ // 0x665 @0x5
0x0660…067f at0006 = ╱55╱U╱ // 0x666 @0x6
0x0660…067f at0007 = ╱44╱D╱ // 0x667 @0x7
0x0660…067f at0008 = ╱ed╱(╱ // 0x668 @0x8
0x0660…067f at0009 = ╱46╱F╱ // 0x669 @0x9
0x0660…067f at000a = ╱53╱S╱ // 0x66a @0xa
0x0660…067f at000b = ╱41╱A╱ // 0x66b @0xb
0x0660…067f at000c = ╱4c╱L╱ // 0x66c @0xc
0x0660…067f at000d = ╱44╱D╱ // 0x66d @0xd
0x0660…067f at000e = ╱4f╱O╱ // 0x66e @0xe
0x0660…067f at000f = ╱ef╱$╱ // 0x66f @0xf
0x0660…067f at0010 = ╱ec╱,╱ // 0x670 @0x10
0x0660…067f at0011 = ╱55╱U╱ // 0x671 @0x11
0x0660…067f at0012 = ╱42╱B╱ // 0x672 @0x12
0x0660…067f at0013 = ╱45╱E╱ // 0x673 @0x13
0x0660…067f at0014 = ╱4c╱L╱ // 0x674 @0x14
0x0660…067f at0015 = ╱5c╱Ø╱ // 0x675 @0x15
0x0660…067f at0016 = ╱42╱B╱ // 0x676 @0x16
0x0660…067f at0017 = ╱32╱2╱ // 0x677 @0x17
0x0660…067f at0018 = ╱ef╱$╱ // 0x678 @0x18
0x0660…067f at0019 = ╱ec╱,╱ // 0x679 @0x19
0x0660…067f at001a = ╱45╱E╱ // 0x67a @0x1a
0x0660…067f at001b = ╱ec╱,╱ // 0x67b @0x1b
0x0660…067f at001c = ╱42╱B╱ // 0x67c @0x1c
0x0660…067f at001d = ╱ee╱)╱ // 0x67d @0x1d
0x0660…067f at001e = EOL // 0x67e @0x1e
0x0660…067f }
0x067f…069d 93f4 0510 EXEC TUD(RENTE$,UBELØB3$,E,B)
0x067f…069d LineComalBin {
0x067f…069d ptr = 0x93f4 // 0x67f @0x0
0x067f…069d lno = 0x01fe // 0x681 @0x2
0x067f…069d at0004 = ╱9d╱ EXEC ╱ // 0x683 @0x4
0x067f…069d at0005 = ╱54╱T╱ // 0x684 @0x5
0x067f…069d at0006 = ╱55╱U╱ // 0x685 @0x6
0x067f…069d at0007 = ╱44╱D╱ // 0x686 @0x7
0x067f…069d at0008 = ╱ed╱(╱ // 0x687 @0x8
0x067f…069d at0009 = ╱52╱R╱ // 0x688 @0x9
0x067f…069d at000a = ╱45╱E╱ // 0x689 @0xa
0x067f…069d at000b = ╱4e╱N╱ // 0x68a @0xb
0x067f…069d at000c = ╱54╱T╱ // 0x68b @0xc
0x067f…069d at000d = ╱45╱E╱ // 0x68c @0xd
0x067f…069d at000e = ╱ef╱$╱ // 0x68d @0xe
0x067f…069d at000f = ╱ec╱,╱ // 0x68e @0xf
0x067f…069d at0010 = ╱55╱U╱ // 0x68f @0x10
0x067f…069d at0011 = ╱42╱B╱ // 0x690 @0x11
0x067f…069d at0012 = ╱45╱E╱ // 0x691 @0x12
0x067f…069d at0013 = ╱4c╱L╱ // 0x692 @0x13
0x067f…069d at0014 = ╱5c╱Ø╱ // 0x693 @0x14
0x067f…069d at0015 = ╱42╱B╱ // 0x694 @0x15
0x067f…069d at0016 = ╱33╱3╱ // 0x695 @0x16
0x067f…069d at0017 = ╱ef╱$╱ // 0x696 @0x17
0x067f…069d at0018 = ╱ec╱,╱ // 0x697 @0x18
0x067f…069d at0019 = ╱45╱E╱ // 0x698 @0x19
0x067f…069d at001a = ╱ec╱,╱ // 0x699 @0x1a
0x067f…069d at001b = ╱42╱B╱ // 0x69a @0x1b
0x067f…069d at001c = ╱ee╱)╱ // 0x69b @0x1c
0x067f…069d at001d = EOL // 0x69c @0x1d
0x067f…069d }
0x069d…06c0 9417 0520 PRINT USING "#### ###### ":RENNR1,KONTO;
0x069d…06c0 LineComalBin {
0x069d…06c0 ptr = 0x9417 // 0x69d @0x0
0x069d…06c0 lno = 0x0208 // 0x69f @0x2
0x069d…06c0 at0004 = ╱92╱ PRINT ╱ // 0x6a1 @0x4
0x069d…06c0 at0005 = ╱b9╱ USING ╱ // 0x6a2 @0x5
0x069d…06c0 at0006 = ╱22╱"╱ // 0x6a3 @0x6
0x069d…06c0 at0007 = ╱23╱#╱ // 0x6a4 @0x7
0x069d…06c0 at0008 = ╱23╱#╱ // 0x6a5 @0x8
0x069d…06c0 at0009 = ╱23╱#╱ // 0x6a6 @0x9
0x069d…06c0 at000a = ╱23╱#╱ // 0x6a7 @0xa
0x069d…06c0 at000b = ╱20╱…╱ // 0x6a8 @0xb
0x069d…06c0 at000c = ╱23╱#╱ // 0x6a9 @0xc
0x069d…06c0 at000d = ╱23╱#╱ // 0x6aa @0xd
0x069d…06c0 at000e = ╱23╱#╱ // 0x6ab @0xe
0x069d…06c0 at000f = ╱23╱#╱ // 0x6ac @0xf
0x069d…06c0 at0010 = ╱23╱#╱ // 0x6ad @0x10
0x069d…06c0 at0011 = ╱23╱#╱ // 0x6ae @0x11
0x069d…06c0 at0012 = ╱20╱…╱ // 0x6af @0x12
0x069d…06c0 at0013 = ╱22╱"╱ // 0x6b0 @0x13
0x069d…06c0 at0014 = ╱f0╱:╱ // 0x6b1 @0x14
0x069d…06c0 at0015 = ╱52╱R╱ // 0x6b2 @0x15
0x069d…06c0 at0016 = ╱45╱E╱ // 0x6b3 @0x16
0x069d…06c0 at0017 = ╱4e╱N╱ // 0x6b4 @0x17
0x069d…06c0 at0018 = ╱4e╱N╱ // 0x6b5 @0x18
0x069d…06c0 at0019 = ╱52╱R╱ // 0x6b6 @0x19
0x069d…06c0 at001a = ╱31╱1╱ // 0x6b7 @0x1a
0x069d…06c0 at001b = ╱ec╱,╱ // 0x6b8 @0x1b
0x069d…06c0 at001c = ╱4b╱K╱ // 0x6b9 @0x1c
0x069d…06c0 at001d = ╱4f╱O╱ // 0x6ba @0x1d
0x069d…06c0 at001e = ╱4e╱N╱ // 0x6bb @0x1e
0x069d…06c0 at001f = ╱54╱T╱ // 0x6bc @0x1f
0x069d…06c0 at0020 = ╱4f╱O╱ // 0x6bd @0x20
0x069d…06c0 at0021 = ╱eb╱;╱ // 0x6be @0x21
0x069d…06c0 at0022 = EOL // 0x6bf @0x22
0x069d…06c0 }
0x06c0…06f1 9448 0530 PRINT NAVN$;TAB(37);UBELØB1$;UBELØB2$;UBELØB3$
0x06c0…06f1 LineComalBin {
0x06c0…06f1 ptr = 0x9448 // 0x6c0 @0x0
0x06c0…06f1 lno = 0x0212 // 0x6c2 @0x2
0x06c0…06f1 at0004 = ╱92╱ PRINT ╱ // 0x6c4 @0x4
0x06c0…06f1 at0005 = ╱4e╱N╱ // 0x6c5 @0x5
0x06c0…06f1 at0006 = ╱41╱A╱ // 0x6c6 @0x6
0x06c0…06f1 at0007 = ╱56╱V╱ // 0x6c7 @0x7
0x06c0…06f1 at0008 = ╱4e╱N╱ // 0x6c8 @0x8
0x06c0…06f1 at0009 = ╱ef╱$╱ // 0x6c9 @0x9
0x06c0…06f1 at000a = ╱eb╱;╱ // 0x6ca @0xa
0x06c0…06f1 at000b = ╱d2╱TAB╱ // 0x6cb @0xb
0x06c0…06f1 at000c = ╱ed╱(╱ // 0x6cc @0xc
0x06c0…06f1 at000d = ╱33╱3╱ // 0x6cd @0xd
0x06c0…06f1 at000e = ╱37╱7╱ // 0x6ce @0xe
0x06c0…06f1 at000f = ╱fe00009406╱ // 0x6cf @0xf
0x06c0…06f1 at0014 = ╱ee╱)╱ // 0x6d4 @0x14
0x06c0…06f1 at0015 = ╱eb╱;╱ // 0x6d5 @0x15
0x06c0…06f1 at0016 = ╱55╱U╱ // 0x6d6 @0x16
0x06c0…06f1 at0017 = ╱42╱B╱ // 0x6d7 @0x17
0x06c0…06f1 at0018 = ╱45╱E╱ // 0x6d8 @0x18
0x06c0…06f1 at0019 = ╱4c╱L╱ // 0x6d9 @0x19
0x06c0…06f1 at001a = ╱5c╱Ø╱ // 0x6da @0x1a
0x06c0…06f1 at001b = ╱42╱B╱ // 0x6db @0x1b
0x06c0…06f1 at001c = ╱31╱1╱ // 0x6dc @0x1c
0x06c0…06f1 at001d = ╱ef╱$╱ // 0x6dd @0x1d
0x06c0…06f1 at001e = ╱eb╱;╱ // 0x6de @0x1e
0x06c0…06f1 at001f = ╱55╱U╱ // 0x6df @0x1f
0x06c0…06f1 at0020 = ╱42╱B╱ // 0x6e0 @0x20
0x06c0…06f1 at0021 = ╱45╱E╱ // 0x6e1 @0x21
0x06c0…06f1 at0022 = ╱4c╱L╱ // 0x6e2 @0x22
0x06c0…06f1 at0023 = ╱5c╱Ø╱ // 0x6e3 @0x23
0x06c0…06f1 at0024 = ╱42╱B╱ // 0x6e4 @0x24
0x06c0…06f1 at0025 = ╱32╱2╱ // 0x6e5 @0x25
0x06c0…06f1 at0026 = ╱ef╱$╱ // 0x6e6 @0x26
0x06c0…06f1 at0027 = ╱eb╱;╱ // 0x6e7 @0x27
0x06c0…06f1 at0028 = ╱55╱U╱ // 0x6e8 @0x28
0x06c0…06f1 at0029 = ╱42╱B╱ // 0x6e9 @0x29
0x06c0…06f1 at002a = ╱45╱E╱ // 0x6ea @0x2a
0x06c0…06f1 at002b = ╱4c╱L╱ // 0x6eb @0x2b
0x06c0…06f1 at002c = ╱5c╱Ø╱ // 0x6ec @0x2c
0x06c0…06f1 at002d = ╱42╱B╱ // 0x6ed @0x2d
0x06c0…06f1 at002e = ╱33╱3╱ // 0x6ee @0x2e
0x06c0…06f1 at002f = ╱ef╱$╱ // 0x6ef @0x2f
0x06c0…06f1 at0030 = EOL // 0x6f0 @0x30
0x06c0…06f1 }
0x06f1…0703 945a 0540 LINIE=LINIE+E
0x06f1…0703 LineComalBin {
0x06f1…0703 ptr = 0x945a // 0x6f1 @0x0
0x06f1…0703 lno = 0x021c // 0x6f3 @0x2
0x06f1…0703 at0004 = ╱4c╱L╱ // 0x6f5 @0x4
0x06f1…0703 at0005 = ╱49╱I╱ // 0x6f6 @0x5
0x06f1…0703 at0006 = ╱4e╱N╱ // 0x6f7 @0x6
0x06f1…0703 at0007 = ╱49╱I╱ // 0x6f8 @0x7
0x06f1…0703 at0008 = ╱45╱E╱ // 0x6f9 @0x8
0x06f1…0703 at0009 = ╱dc╱=╱ // 0x6fa @0x9
0x06f1…0703 at000a = ╱4c╱L╱ // 0x6fb @0xa
0x06f1…0703 at000b = ╱49╱I╱ // 0x6fc @0xb
0x06f1…0703 at000c = ╱4e╱N╱ // 0x6fd @0xc
0x06f1…0703 at000d = ╱49╱I╱ // 0x6fe @0xd
0x06f1…0703 at000e = ╱45╱E╱ // 0x6ff @0xe
0x06f1…0703 at000f = ╱e2╱+╱ // 0x700 @0xf
0x06f1…0703 at0010 = ╱45╱E╱ // 0x701 @0x10
0x06f1…0703 at0011 = EOL // 0x702 @0x11
0x06f1…0703 }
0x0703…070f 9466 0550 NEXT RENNR1
0x0703…070f LineComalBin {
0x0703…070f ptr = 0x9466 // 0x703 @0x0
0x0703…070f lno = 0x0226 // 0x705 @0x2
0x0703…070f at0004 = ╱84╱ NEXT ╱ // 0x707 @0x4
0x0703…070f at0005 = ╱52╱R╱ // 0x708 @0x5
0x0703…070f at0006 = ╱45╱E╱ // 0x709 @0x6
0x0703…070f at0007 = ╱4e╱N╱ // 0x70a @0x7
0x0703…070f at0008 = ╱4e╱N╱ // 0x70b @0x8
0x0703…070f at0009 = ╱52╱R╱ // 0x70c @0x9
0x0703…070f at000a = ╱31╱1╱ // 0x70d @0xa
0x0703…070f at000b = EOL // 0x70e @0xb
0x0703…070f }
0x070f…071b 9472 0555 IF REN=B THEN
0x070f…071b LineComalBin {
0x070f…071b ptr = 0x9472 // 0x70f @0x0
0x070f…071b lno = 0x022b // 0x711 @0x2
0x070f…071b at0004 = ╱9c╱ IF ╱ // 0x713 @0x4
0x070f…071b at0005 = ╱52╱R╱ // 0x714 @0x5
0x070f…071b at0006 = ╱45╱E╱ // 0x715 @0x6
0x070f…071b at0007 = ╱4e╱N╱ // 0x716 @0x7
0x070f…071b at0008 = ╱dc╱=╱ // 0x717 @0x8
0x070f…071b at0009 = ╱42╱B╱ // 0x718 @0x9
0x070f…071b at000a = ╱b6╱ THEN ╱ // 0x719 @0xa
0x070f…071b at000b = EOL // 0x71a @0xb
0x070f…071b }
0x071b…0741 9498 0556 PRINT CHR(10);CHR(10);CHR(10)
0x071b…0741 LineComalBin {
0x071b…0741 ptr = 0x9498 // 0x71b @0x0
0x071b…0741 lno = 0x022c // 0x71d @0x2
0x071b…0741 at0004 = ╱92╱ PRINT ╱ // 0x71f @0x4
0x071b…0741 at0005 = ╱cf╱CHR╱ // 0x720 @0x5
0x071b…0741 at0006 = ╱ed╱(╱ // 0x721 @0x6
0x071b…0741 at0007 = ╱31╱1╱ // 0x722 @0x7
0x071b…0741 at0008 = ╱30╱0╱ // 0x723 @0x8
0x071b…0741 at0009 = ╱fe0000a004╱ // 0x724 @0x9
0x071b…0741 at000e = ╱ee╱)╱ // 0x729 @0xe
0x071b…0741 at000f = ╱eb╱;╱ // 0x72a @0xf
0x071b…0741 at0010 = ╱cf╱CHR╱ // 0x72b @0x10
0x071b…0741 at0011 = ╱ed╱(╱ // 0x72c @0x11
0x071b…0741 at0012 = ╱31╱1╱ // 0x72d @0x12
0x071b…0741 at0013 = ╱30╱0╱ // 0x72e @0x13
0x071b…0741 at0014 = ╱fe0000a004╱ // 0x72f @0x14
0x071b…0741 at0019 = ╱ee╱)╱ // 0x734 @0x19
0x071b…0741 at001a = ╱eb╱;╱ // 0x735 @0x1a
0x071b…0741 at001b = ╱cf╱CHR╱ // 0x736 @0x1b
0x071b…0741 at001c = ╱ed╱(╱ // 0x737 @0x1c
0x071b…0741 at001d = ╱31╱1╱ // 0x738 @0x1d
0x071b…0741 at001e = ╱30╱0╱ // 0x739 @0x1e
0x071b…0741 at001f = ╱fe0000a004╱ // 0x73a @0x1f
0x071b…0741 at0024 = ╱ee╱)╱ // 0x73f @0x24
0x071b…0741 at0025 = EOL // 0x740 @0x25
0x071b…0741 }
0x0741…074a 94a1 0557 PRINT " "
0x0741…074a LineComalBin {
0x0741…074a ptr = 0x94a1 // 0x741 @0x0
0x0741…074a lno = 0x022d // 0x743 @0x2
0x0741…074a at0004 = ╱92╱ PRINT ╱ // 0x745 @0x4
0x0741…074a at0005 = ╱22╱"╱ // 0x746 @0x5
0x0741…074a at0006 = ╱20╱…╱ // 0x747 @0x6
0x0741…074a at0007 = ╱22╱"╱ // 0x748 @0x7
0x0741…074a at0008 = EOL // 0x749 @0x8
0x0741…074a }
0x074a…0750 94a7 0558 ENDIF
0x074a…0750 LineComalBin {
0x074a…0750 ptr = 0x94a7 // 0x74a @0x0
0x074a…0750 lno = 0x022e // 0x74c @0x2
0x074a…0750 at0004 = ╱9b╱ ENDIF ╱ // 0x74e @0x4
0x074a…0750 at0005 = EOL // 0x74f @0x5
0x074a…0750 }
0x0750…0769 94c0 0560 FOR LINIE=LINIE TO 40
0x0750…0769 LineComalBin {
0x0750…0769 ptr = 0x94c0 // 0x750 @0x0
0x0750…0769 lno = 0x0230 // 0x752 @0x2
0x0750…0769 at0004 = ╱83╱ FOR ╱ // 0x754 @0x4
0x0750…0769 at0005 = ╱4c╱L╱ // 0x755 @0x5
0x0750…0769 at0006 = ╱49╱I╱ // 0x756 @0x6
0x0750…0769 at0007 = ╱4e╱N╱ // 0x757 @0x7
0x0750…0769 at0008 = ╱49╱I╱ // 0x758 @0x8
0x0750…0769 at0009 = ╱45╱E╱ // 0x759 @0x9
0x0750…0769 at000a = ╱dc╱=╱ // 0x75a @0xa
0x0750…0769 at000b = ╱4c╱L╱ // 0x75b @0xb
0x0750…0769 at000c = ╱49╱I╱ // 0x75c @0xc
0x0750…0769 at000d = ╱4e╱N╱ // 0x75d @0xd
0x0750…0769 at000e = ╱49╱I╱ // 0x75e @0xe
0x0750…0769 at000f = ╱45╱E╱ // 0x75f @0xf
0x0750…0769 at0010 = ╱b7╱ TO ╱ // 0x760 @0x10
0x0750…0769 at0011 = ╱34╱4╱ // 0x761 @0x11
0x0750…0769 at0012 = ╱30╱0╱ // 0x762 @0x12
0x0750…0769 at0013 = ╱fe0000a006╱ // 0x763 @0x13
0x0750…0769 at0018 = EOL // 0x768 @0x18
0x0750…0769 }
0x0769…0772 94c9 0570 PRINT " "
0x0769…0772 LineComalBin {
0x0769…0772 ptr = 0x94c9 // 0x769 @0x0
0x0769…0772 lno = 0x023a // 0x76b @0x2
0x0769…0772 at0004 = ╱92╱ PRINT ╱ // 0x76d @0x4
0x0769…0772 at0005 = ╱22╱"╱ // 0x76e @0x5
0x0769…0772 at0006 = ╱20╱…╱ // 0x76f @0x6
0x0769…0772 at0007 = ╱22╱"╱ // 0x770 @0x7
0x0769…0772 at0008 = EOL // 0x771 @0x8
0x0769…0772 }
0x0772…077d 94d4 0580 NEXT LINIE
0x0772…077d LineComalBin {
0x0772…077d ptr = 0x94d4 // 0x772 @0x0
0x0772…077d lno = 0x0244 // 0x774 @0x2
0x0772…077d at0004 = ╱84╱ NEXT ╱ // 0x776 @0x4
0x0772…077d at0005 = ╱4c╱L╱ // 0x777 @0x5
0x0772…077d at0006 = ╱49╱I╱ // 0x778 @0x6
0x0772…077d at0007 = ╱4e╱N╱ // 0x779 @0x7
0x0772…077d at0008 = ╱49╱I╱ // 0x77a @0x8
0x0772…077d at0009 = ╱45╱E╱ // 0x77b @0x9
0x0772…077d at000a = EOL // 0x77c @0xa
0x0772…077d }
0x077d…079a 94f1 0600 EXEC TUD(SUM1$,UBELØB1$,E,B)
0x077d…079a LineComalBin {
0x077d…079a ptr = 0x94f1 // 0x77d @0x0
0x077d…079a lno = 0x0258 // 0x77f @0x2
0x077d…079a at0004 = ╱9d╱ EXEC ╱ // 0x781 @0x4
0x077d…079a at0005 = ╱54╱T╱ // 0x782 @0x5
0x077d…079a at0006 = ╱55╱U╱ // 0x783 @0x6
0x077d…079a at0007 = ╱44╱D╱ // 0x784 @0x7
0x077d…079a at0008 = ╱ed╱(╱ // 0x785 @0x8
0x077d…079a at0009 = ╱53╱S╱ // 0x786 @0x9
0x077d…079a at000a = ╱55╱U╱ // 0x787 @0xa
0x077d…079a at000b = ╱4d╱M╱ // 0x788 @0xb
0x077d…079a at000c = ╱31╱1╱ // 0x789 @0xc
0x077d…079a at000d = ╱ef╱$╱ // 0x78a @0xd
0x077d…079a at000e = ╱ec╱,╱ // 0x78b @0xe
0x077d…079a at000f = ╱55╱U╱ // 0x78c @0xf
0x077d…079a at0010 = ╱42╱B╱ // 0x78d @0x10
0x077d…079a at0011 = ╱45╱E╱ // 0x78e @0x11
0x077d…079a at0012 = ╱4c╱L╱ // 0x78f @0x12
0x077d…079a at0013 = ╱5c╱Ø╱ // 0x790 @0x13
0x077d…079a at0014 = ╱42╱B╱ // 0x791 @0x14
0x077d…079a at0015 = ╱31╱1╱ // 0x792 @0x15
0x077d…079a at0016 = ╱ef╱$╱ // 0x793 @0x16
0x077d…079a at0017 = ╱ec╱,╱ // 0x794 @0x17
0x077d…079a at0018 = ╱45╱E╱ // 0x795 @0x18
0x077d…079a at0019 = ╱ec╱,╱ // 0x796 @0x19
0x077d…079a at001a = ╱42╱B╱ // 0x797 @0x1a
0x077d…079a at001b = ╱ee╱)╱ // 0x798 @0x1b
0x077d…079a at001c = EOL // 0x799 @0x1c
0x077d…079a }
0x079a…07b7 950e 0610 EXEC TUD(SUM2$,UBELØB2$,E,B)
0x079a…07b7 LineComalBin {
0x079a…07b7 ptr = 0x950e // 0x79a @0x0
0x079a…07b7 lno = 0x0262 // 0x79c @0x2
0x079a…07b7 at0004 = ╱9d╱ EXEC ╱ // 0x79e @0x4
0x079a…07b7 at0005 = ╱54╱T╱ // 0x79f @0x5
0x079a…07b7 at0006 = ╱55╱U╱ // 0x7a0 @0x6
0x079a…07b7 at0007 = ╱44╱D╱ // 0x7a1 @0x7
0x079a…07b7 at0008 = ╱ed╱(╱ // 0x7a2 @0x8
0x079a…07b7 at0009 = ╱53╱S╱ // 0x7a3 @0x9
0x079a…07b7 at000a = ╱55╱U╱ // 0x7a4 @0xa
0x079a…07b7 at000b = ╱4d╱M╱ // 0x7a5 @0xb
0x079a…07b7 at000c = ╱32╱2╱ // 0x7a6 @0xc
0x079a…07b7 at000d = ╱ef╱$╱ // 0x7a7 @0xd
0x079a…07b7 at000e = ╱ec╱,╱ // 0x7a8 @0xe
0x079a…07b7 at000f = ╱55╱U╱ // 0x7a9 @0xf
0x079a…07b7 at0010 = ╱42╱B╱ // 0x7aa @0x10
0x079a…07b7 at0011 = ╱45╱E╱ // 0x7ab @0x11
0x079a…07b7 at0012 = ╱4c╱L╱ // 0x7ac @0x12
0x079a…07b7 at0013 = ╱5c╱Ø╱ // 0x7ad @0x13
0x079a…07b7 at0014 = ╱42╱B╱ // 0x7ae @0x14
0x079a…07b7 at0015 = ╱32╱2╱ // 0x7af @0x15
0x079a…07b7 at0016 = ╱ef╱$╱ // 0x7b0 @0x16
0x079a…07b7 at0017 = ╱ec╱,╱ // 0x7b1 @0x17
0x079a…07b7 at0018 = ╱45╱E╱ // 0x7b2 @0x18
0x079a…07b7 at0019 = ╱ec╱,╱ // 0x7b3 @0x19
0x079a…07b7 at001a = ╱42╱B╱ // 0x7b4 @0x1a
0x079a…07b7 at001b = ╱ee╱)╱ // 0x7b5 @0x1b
0x079a…07b7 at001c = EOL // 0x7b6 @0x1c
0x079a…07b7 }
0x07b7…07d4 952b 0620 EXEC TUD(SUM3$,UBELØB3$,E,B)
0x07b7…07d4 LineComalBin {
0x07b7…07d4 ptr = 0x952b // 0x7b7 @0x0
0x07b7…07d4 lno = 0x026c // 0x7b9 @0x2
0x07b7…07d4 at0004 = ╱9d╱ EXEC ╱ // 0x7bb @0x4
0x07b7…07d4 at0005 = ╱54╱T╱ // 0x7bc @0x5
0x07b7…07d4 at0006 = ╱55╱U╱ // 0x7bd @0x6
0x07b7…07d4 at0007 = ╱44╱D╱ // 0x7be @0x7
0x07b7…07d4 at0008 = ╱ed╱(╱ // 0x7bf @0x8
0x07b7…07d4 at0009 = ╱53╱S╱ // 0x7c0 @0x9
0x07b7…07d4 at000a = ╱55╱U╱ // 0x7c1 @0xa
0x07b7…07d4 at000b = ╱4d╱M╱ // 0x7c2 @0xb
0x07b7…07d4 at000c = ╱33╱3╱ // 0x7c3 @0xc
0x07b7…07d4 at000d = ╱ef╱$╱ // 0x7c4 @0xd
0x07b7…07d4 at000e = ╱ec╱,╱ // 0x7c5 @0xe
0x07b7…07d4 at000f = ╱55╱U╱ // 0x7c6 @0xf
0x07b7…07d4 at0010 = ╱42╱B╱ // 0x7c7 @0x10
0x07b7…07d4 at0011 = ╱45╱E╱ // 0x7c8 @0x11
0x07b7…07d4 at0012 = ╱4c╱L╱ // 0x7c9 @0x12
0x07b7…07d4 at0013 = ╱5c╱Ø╱ // 0x7ca @0x13
0x07b7…07d4 at0014 = ╱42╱B╱ // 0x7cb @0x14
0x07b7…07d4 at0015 = ╱33╱3╱ // 0x7cc @0x15
0x07b7…07d4 at0016 = ╱ef╱$╱ // 0x7cd @0x16
0x07b7…07d4 at0017 = ╱ec╱,╱ // 0x7ce @0x17
0x07b7…07d4 at0018 = ╱45╱E╱ // 0x7cf @0x18
0x07b7…07d4 at0019 = ╱ec╱,╱ // 0x7d0 @0x19
0x07b7…07d4 at001a = ╱42╱B╱ // 0x7d1 @0x1a
0x07b7…07d4 at001b = ╱ee╱)╱ // 0x7d2 @0x1b
0x07b7…07d4 at001c = EOL // 0x7d3 @0x1c
0x07b7…07d4 }
0x07d4…0828 957f 0630 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(34);UBELØB1$;UBELØB2$;UBELØB3$
0x07d4…0828 LineComalBin {
0x07d4…0828 ptr = 0x957f // 0x7d4 @0x0
0x07d4…0828 lno = 0x0276 // 0x7d6 @0x2
0x07d4…0828 at0004 = ╱92╱ PRINT ╱ // 0x7d8 @0x4
0x07d4…0828 at0005 = ╱d2╱TAB╱ // 0x7d9 @0x5
0x07d4…0828 at0006 = ╱ed╱(╱ // 0x7da @0x6
0x07d4…0828 at0007 = ╱31╱1╱ // 0x7db @0x7
0x07d4…0828 at0008 = ╱30╱0╱ // 0x7dc @0x8
0x07d4…0828 at0009 = ╱fe0000a004╱ // 0x7dd @0x9
0x07d4…0828 at000e = ╱ee╱)╱ // 0x7e2 @0xe
0x07d4…0828 at000f = ╱eb╱;╱ // 0x7e3 @0xf
0x07d4…0828 at0010 = ╱cf╱CHR╱ // 0x7e4 @0x10
0x07d4…0828 at0011 = ╱ed╱(╱ // 0x7e5 @0x11
0x07d4…0828 at0012 = ╱31╱1╱ // 0x7e6 @0x12
0x07d4…0828 at0013 = ╱34╱4╱ // 0x7e7 @0x13
0x07d4…0828 at0014 = ╱fe0000e004╱ // 0x7e8 @0x14
0x07d4…0828 at0019 = ╱ee╱)╱ // 0x7ed @0x19
0x07d4…0828 at001a = ╱eb╱;╱ // 0x7ee @0x1a
0x07d4…0828 at001b = ╱22╱"╱ // 0x7ef @0x1b
0x07d4…0828 at001c = ╱54╱T╱ // 0x7f0 @0x1c
0x07d4…0828 at001d = ╱6f╱o╱ // 0x7f1 @0x1d
0x07d4…0828 at001e = ╱74╱t╱ // 0x7f2 @0x1e
0x07d4…0828 at001f = ╱61╱a╱ // 0x7f3 @0x1f
0x07d4…0828 at0020 = ╱6c╱l╱ // 0x7f4 @0x20
0x07d4…0828 at0021 = ╱22╱"╱ // 0x7f5 @0x21
0x07d4…0828 at0022 = ╱eb╱;╱ // 0x7f6 @0x22
0x07d4…0828 at0023 = ╱cf╱CHR╱ // 0x7f7 @0x23
0x07d4…0828 at0024 = ╱ed╱(╱ // 0x7f8 @0x24
0x07d4…0828 at0025 = ╱31╱1╱ // 0x7f9 @0x25
0x07d4…0828 at0026 = ╱35╱5╱ // 0x7fa @0x26
0x07d4…0828 at0027 = ╱fe0000f004╱ // 0x7fb @0x27
0x07d4…0828 at002c = ╱ee╱)╱ // 0x800 @0x2c
0x07d4…0828 at002d = ╱eb╱;╱ // 0x801 @0x2d
0x07d4…0828 at002e = ╱d2╱TAB╱ // 0x802 @0x2e
0x07d4…0828 at002f = ╱ed╱(╱ // 0x803 @0x2f
0x07d4…0828 at0030 = ╱33╱3╱ // 0x804 @0x30
0x07d4…0828 at0031 = ╱34╱4╱ // 0x805 @0x31
0x07d4…0828 at0032 = ╱fe00008806╱ // 0x806 @0x32
0x07d4…0828 at0037 = ╱ee╱)╱ // 0x80b @0x37
0x07d4…0828 at0038 = ╱eb╱;╱ // 0x80c @0x38
0x07d4…0828 at0039 = ╱55╱U╱ // 0x80d @0x39
0x07d4…0828 at003a = ╱42╱B╱ // 0x80e @0x3a
0x07d4…0828 at003b = ╱45╱E╱ // 0x80f @0x3b
0x07d4…0828 at003c = ╱4c╱L╱ // 0x810 @0x3c
0x07d4…0828 at003d = ╱5c╱Ø╱ // 0x811 @0x3d
0x07d4…0828 at003e = ╱42╱B╱ // 0x812 @0x3e
0x07d4…0828 at003f = ╱31╱1╱ // 0x813 @0x3f
0x07d4…0828 at0040 = ╱ef╱$╱ // 0x814 @0x40
0x07d4…0828 at0041 = ╱eb╱;╱ // 0x815 @0x41
0x07d4…0828 at0042 = ╱55╱U╱ // 0x816 @0x42
0x07d4…0828 at0043 = ╱42╱B╱ // 0x817 @0x43
0x07d4…0828 at0044 = ╱45╱E╱ // 0x818 @0x44
0x07d4…0828 at0045 = ╱4c╱L╱ // 0x819 @0x45
0x07d4…0828 at0046 = ╱5c╱Ø╱ // 0x81a @0x46
0x07d4…0828 at0047 = ╱42╱B╱ // 0x81b @0x47
0x07d4…0828 at0048 = ╱32╱2╱ // 0x81c @0x48
0x07d4…0828 at0049 = ╱ef╱$╱ // 0x81d @0x49
0x07d4…0828 at004a = ╱eb╱;╱ // 0x81e @0x4a
0x07d4…0828 at004b = ╱55╱U╱ // 0x81f @0x4b
0x07d4…0828 at004c = ╱42╱B╱ // 0x820 @0x4c
0x07d4…0828 at004d = ╱45╱E╱ // 0x821 @0x4d
0x07d4…0828 at004e = ╱4c╱L╱ // 0x822 @0x4e
0x07d4…0828 at004f = ╱5c╱Ø╱ // 0x823 @0x4f
0x07d4…0828 at0050 = ╱42╱B╱ // 0x824 @0x50
0x07d4…0828 at0051 = ╱33╱3╱ // 0x825 @0x51
0x07d4…0828 at0052 = ╱ef╱$╱ // 0x826 @0x52
0x07d4…0828 at0053 = EOL // 0x827 @0x53
0x07d4…0828 }
0x0828…0831 9588 0640 PRINT " "
0x0828…0831 LineComalBin {
0x0828…0831 ptr = 0x9588 // 0x828 @0x0
0x0828…0831 lno = 0x0280 // 0x82a @0x2
0x0828…0831 at0004 = ╱92╱ PRINT ╱ // 0x82c @0x4
0x0828…0831 at0005 = ╱22╱"╱ // 0x82d @0x5
0x0828…0831 at0006 = ╱20╱…╱ // 0x82e @0x6
0x0828…0831 at0007 = ╱22╱"╱ // 0x82f @0x7
0x0828…0831 at0008 = EOL // 0x830 @0x8
0x0828…0831 }
0x0831…083a 9591 0645 PRINT " "
0x0831…083a LineComalBin {
0x0831…083a ptr = 0x9591 // 0x831 @0x0
0x0831…083a lno = 0x0285 // 0x833 @0x2
0x0831…083a at0004 = ╱92╱ PRINT ╱ // 0x835 @0x4
0x0831…083a at0005 = ╱22╱"╱ // 0x836 @0x5
0x0831…083a at0006 = ╱20╱…╱ // 0x837 @0x6
0x0831…083a at0007 = ╱22╱"╱ // 0x838 @0x7
0x0831…083a at0008 = EOL // 0x839 @0x8
0x0831…083a }
0x083a…0841 9598 0650 OUTPUT T
0x083a…0841 LineComalBin {
0x083a…0841 ptr = 0x9598 // 0x83a @0x0
0x083a…0841 lno = 0x028a // 0x83c @0x2
0x083a…0841 at0004 = ╱a5╱ OUTPUT ╱ // 0x83e @0x4
0x083a…0841 at0005 = ╱54╱T╱ // 0x83f @0x5
0x083a…0841 at0006 = EOL // 0x840 @0x6
0x083a…0841 }
0x0841…0847 959e 0660 CLEAR
0x0841…0847 LineComalBin {
0x0841…0847 ptr = 0x959e // 0x841 @0x0
0x0841…0847 lno = 0x0294 // 0x843 @0x2
0x0841…0847 at0004 = ╱a0╱ CLEAR ╱ // 0x845 @0x4
0x0841…0847 at0005 = EOL // 0x846 @0x5
0x0841…0847 }
0x0847…0861 95b8 0670 SIDE=SIDE+E;P=-8
0x0847…0861 LineComalBin {
0x0847…0861 ptr = 0x95b8 // 0x847 @0x0
0x0847…0861 lno = 0x029e // 0x849 @0x2
0x0847…0861 at0004 = ╱53╱S╱ // 0x84b @0x4
0x0847…0861 at0005 = ╱49╱I╱ // 0x84c @0x5
0x0847…0861 at0006 = ╱44╱D╱ // 0x84d @0x6
0x0847…0861 at0007 = ╱45╱E╱ // 0x84e @0x7
0x0847…0861 at0008 = ╱dc╱=╱ // 0x84f @0x8
0x0847…0861 at0009 = ╱53╱S╱ // 0x850 @0x9
0x0847…0861 at000a = ╱49╱I╱ // 0x851 @0xa
0x0847…0861 at000b = ╱44╱D╱ // 0x852 @0xb
0x0847…0861 at000c = ╱45╱E╱ // 0x853 @0xc
0x0847…0861 at000d = ╱e2╱+╱ // 0x854 @0xd
0x0847…0861 at000e = ╱45╱E╱ // 0x855 @0xe
0x0847…0861 at000f = ╱eb╱;╱ // 0x856 @0xf
0x0847…0861 at0010 = ╱50╱P╱ // 0x857 @0x10
0x0847…0861 at0011 = ╱dc╱=╱ // 0x858 @0x11
0x0847…0861 at0012 = ╱e9╱-╱ // 0x859 @0x12
0x0847…0861 at0013 = ╱38╱8╱ // 0x85a @0x13
0x0847…0861 at0014 = ╱fe00008004╱ // 0x85b @0x14
0x0847…0861 at0019 = EOL // 0x860 @0x19
0x0847…0861 }
0x0861…086f 95c6 0680 IF TYPE=G THEN EXIT
0x0861…086f LineComalBin {
0x0861…086f ptr = 0x95c6 // 0x861 @0x0
0x0861…086f lno = 0x02a8 // 0x863 @0x2
0x0861…086f at0004 = ╱82╱ IF ╱ // 0x865 @0x4
0x0861…086f at0005 = ╱54╱T╱ // 0x866 @0x5
0x0861…086f at0006 = ╱59╱Y╱ // 0x867 @0x6
0x0861…086f at0007 = ╱50╱P╱ // 0x868 @0x7
0x0861…086f at0008 = ╱45╱E╱ // 0x869 @0x8
0x0861…086f at0009 = ╱dc╱=╱ // 0x86a @0x9
0x0861…086f at000a = ╱47╱G╱ // 0x86b @0xa
0x0861…086f at000b = ╱b6╱ THEN ╱ // 0x86c @0xb
0x0861…086f at000c = ╱99╱ EXIT ╱ // 0x86d @0xc
0x0861…086f at000d = EOL // 0x86e @0xd
0x0861…086f }
0x086f…0875 95cc 0690 REPEAT
0x086f…0875 LineComalBin {
0x086f…0875 ptr = 0x95cc // 0x86f @0x0
0x086f…0875 lno = 0x02b2 // 0x871 @0x2
0x086f…0875 at0004 = ╱97╱ REPEAT ╱ // 0x873 @0x4
0x086f…0875 at0005 = EOL // 0x874 @0x5
0x086f…0875 }
0x0875…088a 95e1 0700 CURSOR 15,13
0x0875…088a LineComalBin {
0x0875…088a ptr = 0x95e1 // 0x875 @0x0
0x0875…088a lno = 0x02bc // 0x877 @0x2
0x0875…088a at0004 = ╱a1╱ CURSOR ╱ // 0x879 @0x4
0x0875…088a at0005 = ╱31╱1╱ // 0x87a @0x5
0x0875…088a at0006 = ╱35╱5╱ // 0x87b @0x6
0x0875…088a at0007 = ╱fe0000f004╱ // 0x87c @0x7
0x0875…088a at000c = ╱ec╱,╱ // 0x881 @0xc
0x0875…088a at000d = ╱31╱1╱ // 0x882 @0xd
0x0875…088a at000e = ╱33╱3╱ // 0x883 @0xe
0x0875…088a at000f = ╱fe0000d004╱ // 0x884 @0xf
0x0875…088a at0014 = EOL // 0x889 @0x14
0x0875…088a }
0x088a…08ae 9605 0710 INPUT "Ønskes ny udskrift (J/N) ",A$
0x088a…08ae LineComalBin {
0x088a…08ae ptr = 0x9605 // 0x88a @0x0
0x088a…08ae lno = 0x02c6 // 0x88c @0x2
0x088a…08ae at0004 = ╱91╱ INPUT ╱ // 0x88e @0x4
0x088a…08ae at0005 = ╱22╱"╱ // 0x88f @0x5
0x088a…08ae at0006 = ╱5c╱Ø╱ // 0x890 @0x6
0x088a…08ae at0007 = ╱6e╱n╱ // 0x891 @0x7
0x088a…08ae at0008 = ╱73╱s╱ // 0x892 @0x8
0x088a…08ae at0009 = ╱6b╱k╱ // 0x893 @0x9
0x088a…08ae at000a = ╱65╱e╱ // 0x894 @0xa
0x088a…08ae at000b = ╱73╱s╱ // 0x895 @0xb
0x088a…08ae at000c = ╱20╱…╱ // 0x896 @0xc
0x088a…08ae at000d = ╱6e╱n╱ // 0x897 @0xd
0x088a…08ae at000e = ╱79╱y╱ // 0x898 @0xe
0x088a…08ae at000f = ╱20╱…╱ // 0x899 @0xf
0x088a…08ae at0010 = ╱75╱u╱ // 0x89a @0x10
0x088a…08ae at0011 = ╱64╱d╱ // 0x89b @0x11
0x088a…08ae at0012 = ╱73╱s╱ // 0x89c @0x12
0x088a…08ae at0013 = ╱6b╱k╱ // 0x89d @0x13
0x088a…08ae at0014 = ╱72╱r╱ // 0x89e @0x14
0x088a…08ae at0015 = ╱69╱i╱ // 0x89f @0x15
0x088a…08ae at0016 = ╱66╱f╱ // 0x8a0 @0x16
0x088a…08ae at0017 = ╱74╱t╱ // 0x8a1 @0x17
0x088a…08ae at0018 = ╱20╱…╱ // 0x8a2 @0x18
0x088a…08ae at0019 = ╱28╱(╱ // 0x8a3 @0x19
0x088a…08ae at001a = ╱4a╱J╱ // 0x8a4 @0x1a
0x088a…08ae at001b = ╱2f╱/╱ // 0x8a5 @0x1b
0x088a…08ae at001c = ╱4e╱N╱ // 0x8a6 @0x1c
0x088a…08ae at001d = ╱29╱)╱ // 0x8a7 @0x1d
0x088a…08ae at001e = ╱20╱…╱ // 0x8a8 @0x1e
0x088a…08ae at001f = ╱22╱"╱ // 0x8a9 @0x1f
0x088a…08ae at0020 = ╱ec╱,╱ // 0x8aa @0x20
0x088a…08ae at0021 = ╱41╱A╱ // 0x8ab @0x21
0x088a…08ae at0022 = ╱ef╱$╱ // 0x8ac @0x22
0x088a…08ae at0023 = EOL // 0x8ad @0x23
0x088a…08ae }
0x08ae…08be 9615 0720 EXEC NRTEST(A$)
0x08ae…08be LineComalBin {
0x08ae…08be ptr = 0x9615 // 0x8ae @0x0
0x08ae…08be lno = 0x02d0 // 0x8b0 @0x2
0x08ae…08be at0004 = ╱9d╱ EXEC ╱ // 0x8b2 @0x4
0x08ae…08be at0005 = ╱4e╱N╱ // 0x8b3 @0x5
0x08ae…08be at0006 = ╱52╱R╱ // 0x8b4 @0x6
0x08ae…08be at0007 = ╱54╱T╱ // 0x8b5 @0x7
0x08ae…08be at0008 = ╱45╱E╱ // 0x8b6 @0x8
0x08ae…08be at0009 = ╱53╱S╱ // 0x8b7 @0x9
0x08ae…08be at000a = ╱54╱T╱ // 0x8b8 @0xa
0x08ae…08be at000b = ╱ed╱(╱ // 0x8b9 @0xb
0x08ae…08be at000c = ╱41╱A╱ // 0x8ba @0xc
0x08ae…08be at000d = ╱ef╱$╱ // 0x8bb @0xd
0x08ae…08be at000e = ╱ee╱)╱ // 0x8bc @0xe
0x08ae…08be at000f = EOL // 0x8bd @0xf
0x08ae…08be }
0x08be…08d7 962e 0730 UNTIL P=-7 OR P=-8
0x08be…08d7 LineComalBin {
0x08be…08d7 ptr = 0x962e // 0x8be @0x0
0x08be…08d7 lno = 0x02da // 0x8c0 @0x2
0x08be…08d7 at0004 = ╱98╱ UNTIL ╱ // 0x8c2 @0x4
0x08be…08d7 at0005 = ╱50╱P╱ // 0x8c3 @0x5
0x08be…08d7 at0006 = ╱dc╱=╱ // 0x8c4 @0x6
0x08be…08d7 at0007 = ╱e9╱-╱ // 0x8c5 @0x7
0x08be…08d7 at0008 = ╱37╱7╱ // 0x8c6 @0x8
0x08be…08d7 at0009 = ╱fe0000e003╱ // 0x8c7 @0x9
0x08be…08d7 at000e = ╱db╱ OR ╱ // 0x8cc @0xe
0x08be…08d7 at000f = ╱50╱P╱ // 0x8cd @0xf
0x08be…08d7 at0010 = ╱dc╱=╱ // 0x8ce @0x10
0x08be…08d7 at0011 = ╱e9╱-╱ // 0x8cf @0x11
0x08be…08d7 at0012 = ╱38╱8╱ // 0x8d0 @0x12
0x08be…08d7 at0013 = ╱fe00008004╱ // 0x8d1 @0x13
0x08be…08d7 at0018 = EOL // 0x8d6 @0x18
0x08be…08d7 }
0x08d7…08e6 963d 0740 UNTIL P=-8
0x08d7…08e6 LineComalBin {
0x08d7…08e6 ptr = 0x963d // 0x8d7 @0x0
0x08d7…08e6 lno = 0x02e4 // 0x8d9 @0x2
0x08d7…08e6 at0004 = ╱98╱ UNTIL ╱ // 0x8db @0x4
0x08d7…08e6 at0005 = ╱50╱P╱ // 0x8dc @0x5
0x08d7…08e6 at0006 = ╱dc╱=╱ // 0x8dd @0x6
0x08d7…08e6 at0007 = ╱e9╱-╱ // 0x8de @0x7
0x08d7…08e6 at0008 = ╱38╱8╱ // 0x8df @0x8
0x08d7…08e6 at0009 = ╱fe00008004╱ // 0x8e0 @0x9
0x08d7…08e6 at000e = EOL // 0x8e5 @0xe
0x08d7…08e6 }
0x08e6…08ec 9643 0750 ENDPROC
0x08e6…08ec LineComalBin {
0x08e6…08ec ptr = 0x9643 // 0x8e6 @0x0
0x08e6…08ec lno = 0x02ee // 0x8e8 @0x2
0x08e6…08ec at0004 = ╱9f╱ ENDPROC ╱ // 0x8ea @0x4
0x08e6…08ec at0005 = EOL // 0x8eb @0x5
0x08e6…08ec }
0x08ec…090b 9662 0751 PROC TUD(BLB1,UBLB1,TEGN,STØR)
0x08ec…090b LineComalBin {
0x08ec…090b ptr = 0x9662 // 0x8ec @0x0
0x08ec…090b lno = 0x02ef // 0x8ee @0x2
0x08ec…090b at0004 = ╱9e╱ PROC ╱ // 0x8f0 @0x4
0x08ec…090b at0005 = ╱54╱T╱ // 0x8f1 @0x5
0x08ec…090b at0006 = ╱55╱U╱ // 0x8f2 @0x6
0x08ec…090b at0007 = ╱44╱D╱ // 0x8f3 @0x7
0x08ec…090b at0008 = ╱ed╱(╱ // 0x8f4 @0x8
0x08ec…090b at0009 = ╱42╱B╱ // 0x8f5 @0x9
0x08ec…090b at000a = ╱4c╱L╱ // 0x8f6 @0xa
0x08ec…090b at000b = ╱42╱B╱ // 0x8f7 @0xb
0x08ec…090b at000c = ╱31╱1╱ // 0x8f8 @0xc
0x08ec…090b at000d = ╱ec╱,╱ // 0x8f9 @0xd
0x08ec…090b at000e = ╱55╱U╱ // 0x8fa @0xe
0x08ec…090b at000f = ╱42╱B╱ // 0x8fb @0xf
0x08ec…090b at0010 = ╱4c╱L╱ // 0x8fc @0x10
0x08ec…090b at0011 = ╱42╱B╱ // 0x8fd @0x11
0x08ec…090b at0012 = ╱31╱1╱ // 0x8fe @0x12
0x08ec…090b at0013 = ╱ec╱,╱ // 0x8ff @0x13
0x08ec…090b at0014 = ╱54╱T╱ // 0x900 @0x14
0x08ec…090b at0015 = ╱45╱E╱ // 0x901 @0x15
0x08ec…090b at0016 = ╱47╱G╱ // 0x902 @0x16
0x08ec…090b at0017 = ╱4e╱N╱ // 0x903 @0x17
0x08ec…090b at0018 = ╱ec╱,╱ // 0x904 @0x18
0x08ec…090b at0019 = ╱53╱S╱ // 0x905 @0x19
0x08ec…090b at001a = ╱54╱T╱ // 0x906 @0x1a
0x08ec…090b at001b = ╱5c╱Ø╱ // 0x907 @0x1b
0x08ec…090b at001c = ╱52╱R╱ // 0x908 @0x1c
0x08ec…090b at001d = ╱ee╱)╱ // 0x909 @0x1d
0x08ec…090b at001e = EOL // 0x90a @0x1e
0x08ec…090b }
0x090b…091b 9672 0752 BLB2$=BLB1$
0x090b…091b LineComalBin {
0x090b…091b ptr = 0x9672 // 0x90b @0x0
0x090b…091b lno = 0x02f0 // 0x90d @0x2
0x090b…091b at0004 = ╱42╱B╱ // 0x90f @0x4
0x090b…091b at0005 = ╱4c╱L╱ // 0x910 @0x5
0x090b…091b at0006 = ╱42╱B╱ // 0x911 @0x6
0x090b…091b at0007 = ╱32╱2╱ // 0x912 @0x7
0x090b…091b at0008 = ╱ef╱$╱ // 0x913 @0x8
0x090b…091b at0009 = ╱dc╱=╱ // 0x914 @0x9
0x090b…091b at000a = ╱42╱B╱ // 0x915 @0xa
0x090b…091b at000b = ╱4c╱L╱ // 0x916 @0xb
0x090b…091b at000c = ╱42╱B╱ // 0x917 @0xc
0x090b…091b at000d = ╱31╱1╱ // 0x918 @0xd
0x090b…091b at000e = ╱ef╱$╱ // 0x919 @0xe
0x090b…091b at000f = EOL // 0x91a @0xf
0x090b…091b }
0x091b…093f 9696 0753 EXEC CALC(5,BLB2$,TAH$,UBLB1$)
0x091b…093f LineComalBin {
0x091b…093f ptr = 0x9696 // 0x91b @0x0
0x091b…093f lno = 0x02f1 // 0x91d @0x2
0x091b…093f at0004 = ╱9d╱ EXEC ╱ // 0x91f @0x4
0x091b…093f at0005 = ╱43╱C╱ // 0x920 @0x5
0x091b…093f at0006 = ╱41╱A╱ // 0x921 @0x6
0x091b…093f at0007 = ╱4c╱L╱ // 0x922 @0x7
0x091b…093f at0008 = ╱43╱C╱ // 0x923 @0x8
0x091b…093f at0009 = ╱ed╱(╱ // 0x924 @0x9
0x091b…093f at000a = ╱35╱5╱ // 0x925 @0xa
0x091b…093f at000b = ╱fe0000a003╱ // 0x926 @0xb
0x091b…093f at0010 = ╱ec╱,╱ // 0x92b @0x10
0x091b…093f at0011 = ╱42╱B╱ // 0x92c @0x11
0x091b…093f at0012 = ╱4c╱L╱ // 0x92d @0x12
0x091b…093f at0013 = ╱42╱B╱ // 0x92e @0x13
0x091b…093f at0014 = ╱32╱2╱ // 0x92f @0x14
0x091b…093f at0015 = ╱ef╱$╱ // 0x930 @0x15
0x091b…093f at0016 = ╱ec╱,╱ // 0x931 @0x16
0x091b…093f at0017 = ╱54╱T╱ // 0x932 @0x17
0x091b…093f at0018 = ╱41╱A╱ // 0x933 @0x18
0x091b…093f at0019 = ╱48╱H╱ // 0x934 @0x19
0x091b…093f at001a = ╱ef╱$╱ // 0x935 @0x1a
0x091b…093f at001b = ╱ec╱,╱ // 0x936 @0x1b
0x091b…093f at001c = ╱55╱U╱ // 0x937 @0x1c
0x091b…093f at001d = ╱42╱B╱ // 0x938 @0x1d
0x091b…093f at001e = ╱4c╱L╱ // 0x939 @0x1e
0x091b…093f at001f = ╱42╱B╱ // 0x93a @0x1f
0x091b…093f at0020 = ╱31╱1╱ // 0x93b @0x20
0x091b…093f at0021 = ╱ef╱$╱ // 0x93c @0x21
0x091b…093f at0022 = ╱ee╱)╱ // 0x93d @0x22
0x091b…093f at0023 = EOL // 0x93e @0x23
0x091b…093f }
0x093f…0964 96bb 0754 IF TEGN=B THEN UBLB1$=UBLB1$(E:13)
0x093f…0964 LineComalBin {
0x093f…0964 ptr = 0x96bb // 0x93f @0x0
0x093f…0964 lno = 0x02f2 // 0x941 @0x2
0x093f…0964 at0004 = ╱82╱ IF ╱ // 0x943 @0x4
0x093f…0964 at0005 = ╱54╱T╱ // 0x944 @0x5
0x093f…0964 at0006 = ╱45╱E╱ // 0x945 @0x6
0x093f…0964 at0007 = ╱47╱G╱ // 0x946 @0x7
0x093f…0964 at0008 = ╱4e╱N╱ // 0x947 @0x8
0x093f…0964 at0009 = ╱dc╱=╱ // 0x948 @0x9
0x093f…0964 at000a = ╱42╱B╱ // 0x949 @0xa
0x093f…0964 at000b = ╱b6╱ THEN ╱ // 0x94a @0xb
0x093f…0964 at000c = ╱55╱U╱ // 0x94b @0xc
0x093f…0964 at000d = ╱42╱B╱ // 0x94c @0xd
0x093f…0964 at000e = ╱4c╱L╱ // 0x94d @0xe
0x093f…0964 at000f = ╱42╱B╱ // 0x94e @0xf
0x093f…0964 at0010 = ╱31╱1╱ // 0x94f @0x10
0x093f…0964 at0011 = ╱ef╱$╱ // 0x950 @0x11
0x093f…0964 at0012 = ╱dc╱=╱ // 0x951 @0x12
0x093f…0964 at0013 = ╱55╱U╱ // 0x952 @0x13
0x093f…0964 at0014 = ╱42╱B╱ // 0x953 @0x14
0x093f…0964 at0015 = ╱4c╱L╱ // 0x954 @0x15
0x093f…0964 at0016 = ╱42╱B╱ // 0x955 @0x16
0x093f…0964 at0017 = ╱31╱1╱ // 0x956 @0x17
0x093f…0964 at0018 = ╱ef╱$╱ // 0x957 @0x18
0x093f…0964 at0019 = ╱ed╱(╱ // 0x958 @0x19
0x093f…0964 at001a = ╱45╱E╱ // 0x959 @0x1a
0x093f…0964 at001b = ╱f0╱:╱ // 0x95a @0x1b
0x093f…0964 at001c = ╱31╱1╱ // 0x95b @0x1c
0x093f…0964 at001d = ╱33╱3╱ // 0x95c @0x1d
0x093f…0964 at001e = ╱fe0000d004╱ // 0x95d @0x1e
0x093f…0964 at0023 = ╱ee╱)╱ // 0x962 @0x23
0x093f…0964 at0024 = EOL // 0x963 @0x24
0x093f…0964 }
0x0964…099c 96f3 0755 IF TEGN=E AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "
0x0964…099c LineComalBin {
0x0964…099c ptr = 0x96f3 // 0x964 @0x0
0x0964…099c lno = 0x02f3 // 0x966 @0x2
0x0964…099c at0004 = ╱82╱ IF ╱ // 0x968 @0x4
0x0964…099c at0005 = ╱54╱T╱ // 0x969 @0x5
0x0964…099c at0006 = ╱45╱E╱ // 0x96a @0x6
0x0964…099c at0007 = ╱47╱G╱ // 0x96b @0x7
0x0964…099c at0008 = ╱4e╱N╱ // 0x96c @0x8
0x0964…099c at0009 = ╱dc╱=╱ // 0x96d @0x9
0x0964…099c at000a = ╱45╱E╱ // 0x96e @0xa
0x0964…099c at000b = ╱da╱ AND ╱ // 0x96f @0xb
0x0964…099c at000c = ╱55╱U╱ // 0x970 @0xc
0x0964…099c at000d = ╱42╱B╱ // 0x971 @0xd
0x0964…099c at000e = ╱4c╱L╱ // 0x972 @0xe
0x0964…099c at000f = ╱42╱B╱ // 0x973 @0xf
0x0964…099c at0010 = ╱31╱1╱ // 0x974 @0x10
0x0964…099c at0011 = ╱ef╱$╱ // 0x975 @0x11
0x0964…099c at0012 = ╱ed╱(╱ // 0x976 @0x12
0x0964…099c at0013 = ╱cc╱LEN╱ // 0x977 @0x13
0x0964…099c at0014 = ╱ed╱(╱ // 0x978 @0x14
0x0964…099c at0015 = ╱55╱U╱ // 0x979 @0x15
0x0964…099c at0016 = ╱42╱B╱ // 0x97a @0x16
0x0964…099c at0017 = ╱4c╱L╱ // 0x97b @0x17
0x0964…099c at0018 = ╱42╱B╱ // 0x97c @0x18
0x0964…099c at0019 = ╱31╱1╱ // 0x97d @0x19
0x0964…099c at001a = ╱ef╱$╱ // 0x97e @0x1a
0x0964…099c at001b = ╱ee╱)╱ // 0x97f @0x1b
0x0964…099c at001c = ╱ee╱)╱ // 0x980 @0x1c
0x0964…099c at001d = ╱dc╱=╱ // 0x981 @0x1d
0x0964…099c at001e = ╱22╱"╱ // 0x982 @0x1e
0x0964…099c at001f = ╱2b╱+╱ // 0x983 @0x1f
0x0964…099c at0020 = ╱22╱"╱ // 0x984 @0x20
0x0964…099c at0021 = ╱b6╱ THEN ╱ // 0x985 @0x21
0x0964…099c at0022 = ╱55╱U╱ // 0x986 @0x22
0x0964…099c at0023 = ╱42╱B╱ // 0x987 @0x23
0x0964…099c at0024 = ╱4c╱L╱ // 0x988 @0x24
0x0964…099c at0025 = ╱42╱B╱ // 0x989 @0x25
0x0964…099c at0026 = ╱31╱1╱ // 0x98a @0x26
0x0964…099c at0027 = ╱ef╱$╱ // 0x98b @0x27
0x0964…099c at0028 = ╱ed╱(╱ // 0x98c @0x28
0x0964…099c at0029 = ╱cc╱LEN╱ // 0x98d @0x29
0x0964…099c at002a = ╱ed╱(╱ // 0x98e @0x2a
0x0964…099c at002b = ╱55╱U╱ // 0x98f @0x2b
0x0964…099c at002c = ╱42╱B╱ // 0x990 @0x2c
0x0964…099c at002d = ╱4c╱L╱ // 0x991 @0x2d
0x0964…099c at002e = ╱42╱B╱ // 0x992 @0x2e
0x0964…099c at002f = ╱31╱1╱ // 0x993 @0x2f
0x0964…099c at0030 = ╱ef╱$╱ // 0x994 @0x30
0x0964…099c at0031 = ╱ee╱)╱ // 0x995 @0x31
0x0964…099c at0032 = ╱ee╱)╱ // 0x996 @0x32
0x0964…099c at0033 = ╱dc╱=╱ // 0x997 @0x33
0x0964…099c at0034 = ╱22╱"╱ // 0x998 @0x34
0x0964…099c at0035 = ╱20╱…╱ // 0x999 @0x35
0x0964…099c at0036 = ╱22╱"╱ // 0x99a @0x36
0x0964…099c at0037 = EOL // 0x99b @0x37
0x0964…099c }
0x099c…09ca 9721 0756 IF STØR=E THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-V)
0x099c…09ca LineComalBin {
0x099c…09ca ptr = 0x9721 // 0x99c @0x0
0x099c…09ca lno = 0x02f4 // 0x99e @0x2
0x099c…09ca at0004 = ╱82╱ IF ╱ // 0x9a0 @0x4
0x099c…09ca at0005 = ╱53╱S╱ // 0x9a1 @0x5
0x099c…09ca at0006 = ╱54╱T╱ // 0x9a2 @0x6
0x099c…09ca at0007 = ╱5c╱Ø╱ // 0x9a3 @0x7
0x099c…09ca at0008 = ╱52╱R╱ // 0x9a4 @0x8
0x099c…09ca at0009 = ╱dc╱=╱ // 0x9a5 @0x9
0x099c…09ca at000a = ╱45╱E╱ // 0x9a6 @0xa
0x099c…09ca at000b = ╱b6╱ THEN ╱ // 0x9a7 @0xb
0x099c…09ca at000c = ╱55╱U╱ // 0x9a8 @0xc
0x099c…09ca at000d = ╱42╱B╱ // 0x9a9 @0xd
0x099c…09ca at000e = ╱4c╱L╱ // 0x9aa @0xe
0x099c…09ca at000f = ╱42╱B╱ // 0x9ab @0xf
0x099c…09ca at0010 = ╱31╱1╱ // 0x9ac @0x10
0x099c…09ca at0011 = ╱ef╱$╱ // 0x9ad @0x11
0x099c…09ca at0012 = ╱dc╱=╱ // 0x9ae @0x12
0x099c…09ca at0013 = ╱55╱U╱ // 0x9af @0x13
0x099c…09ca at0014 = ╱42╱B╱ // 0x9b0 @0x14
0x099c…09ca at0015 = ╱4c╱L╱ // 0x9b1 @0x15
0x099c…09ca at0016 = ╱42╱B╱ // 0x9b2 @0x16
0x099c…09ca at0017 = ╱31╱1╱ // 0x9b3 @0x17
0x099c…09ca at0018 = ╱ef╱$╱ // 0x9b4 @0x18
0x099c…09ca at0019 = ╱ed╱(╱ // 0x9b5 @0x19
0x099c…09ca at001a = ╱34╱4╱ // 0x9b6 @0x1a
0x099c…09ca at001b = ╱fe00008003╱ // 0x9b7 @0x1b
0x099c…09ca at0020 = ╱f0╱:╱ // 0x9bc @0x20
0x099c…09ca at0021 = ╱cc╱LEN╱ // 0x9bd @0x21
0x099c…09ca at0022 = ╱ed╱(╱ // 0x9be @0x22
0x099c…09ca at0023 = ╱55╱U╱ // 0x9bf @0x23
0x099c…09ca at0024 = ╱42╱B╱ // 0x9c0 @0x24
0x099c…09ca at0025 = ╱4c╱L╱ // 0x9c1 @0x25
0x099c…09ca at0026 = ╱42╱B╱ // 0x9c2 @0x26
0x099c…09ca at0027 = ╱31╱1╱ // 0x9c3 @0x27
0x099c…09ca at0028 = ╱ef╱$╱ // 0x9c4 @0x28
0x099c…09ca at0029 = ╱ee╱)╱ // 0x9c5 @0x29
0x099c…09ca at002a = ╱e3╱-╱ // 0x9c6 @0x2a
0x099c…09ca at002b = ╱56╱V╱ // 0x9c7 @0x2b
0x099c…09ca at002c = ╱ee╱)╱ // 0x9c8 @0x2c
0x099c…09ca at002d = EOL // 0x9c9 @0x2d
0x099c…09ca }
0x09ca…09d0 9727 0757 ENDPROC
0x09ca…09d0 LineComalBin {
0x09ca…09d0 ptr = 0x9727 // 0x9ca @0x0
0x09ca…09d0 lno = 0x02f5 // 0x9cc @0x2
0x09ca…09d0 at0004 = ╱9f╱ ENDPROC ╱ // 0x9ce @0x4
0x09ca…09d0 at0005 = EOL // 0x9cf @0x5
0x09ca…09d0 }
0x09d0…09dc 9733 0760 PROC SYSGEM
0x09d0…09dc LineComalBin {
0x09d0…09dc ptr = 0x9733 // 0x9d0 @0x0
0x09d0…09dc lno = 0x02f8 // 0x9d2 @0x2
0x09d0…09dc at0004 = ╱9e╱ PROC ╱ // 0x9d4 @0x4
0x09d0…09dc at0005 = ╱53╱S╱ // 0x9d5 @0x5
0x09d0…09dc at0006 = ╱59╱Y╱ // 0x9d6 @0x6
0x09d0…09dc at0007 = ╱53╱S╱ // 0x9d7 @0x7
0x09d0…09dc at0008 = ╱47╱G╱ // 0x9d8 @0x8
0x09d0…09dc at0009 = ╱45╱E╱ // 0x9d9 @0x9
0x09d0…09dc at000a = ╱4d╱M╱ // 0x9da @0xa
0x09d0…09dc at000b = EOL // 0x9db @0xb
0x09d0…09dc }
0x09dc…0a0f 9766 0770 T2(E)=BHPOSTNR;T1(W)=RENRAPSIDE;T2(8)=REN
0x09dc…0a0f LineComalBin {
0x09dc…0a0f ptr = 0x9766 // 0x9dc @0x0
0x09dc…0a0f lno = 0x0302 // 0x9de @0x2
0x09dc…0a0f at0004 = ╱54╱T╱ // 0x9e0 @0x4
0x09dc…0a0f at0005 = ╱32╱2╱ // 0x9e1 @0x5
0x09dc…0a0f at0006 = ╱ed╱(╱ // 0x9e2 @0x6
0x09dc…0a0f at0007 = ╱45╱E╱ // 0x9e3 @0x7
0x09dc…0a0f at0008 = ╱ee╱)╱ // 0x9e4 @0x8
0x09dc…0a0f at0009 = ╱dc╱=╱ // 0x9e5 @0x9
0x09dc…0a0f at000a = ╱42╱B╱ // 0x9e6 @0xa
0x09dc…0a0f at000b = ╱48╱H╱ // 0x9e7 @0xb
0x09dc…0a0f at000c = ╱50╱P╱ // 0x9e8 @0xc
0x09dc…0a0f at000d = ╱4f╱O╱ // 0x9e9 @0xd
0x09dc…0a0f at000e = ╱53╱S╱ // 0x9ea @0xe
0x09dc…0a0f at000f = ╱54╱T╱ // 0x9eb @0xf
0x09dc…0a0f at0010 = ╱4e╱N╱ // 0x9ec @0x10
0x09dc…0a0f at0011 = ╱52╱R╱ // 0x9ed @0x11
0x09dc…0a0f at0012 = ╱eb╱;╱ // 0x9ee @0x12
0x09dc…0a0f at0013 = ╱54╱T╱ // 0x9ef @0x13
0x09dc…0a0f at0014 = ╱31╱1╱ // 0x9f0 @0x14
0x09dc…0a0f at0015 = ╱ed╱(╱ // 0x9f1 @0x15
0x09dc…0a0f at0016 = ╱57╱W╱ // 0x9f2 @0x16
0x09dc…0a0f at0017 = ╱ee╱)╱ // 0x9f3 @0x17
0x09dc…0a0f at0018 = ╱dc╱=╱ // 0x9f4 @0x18
0x09dc…0a0f at0019 = ╱52╱R╱ // 0x9f5 @0x19
0x09dc…0a0f at001a = ╱45╱E╱ // 0x9f6 @0x1a
0x09dc…0a0f at001b = ╱4e╱N╱ // 0x9f7 @0x1b
0x09dc…0a0f at001c = ╱52╱R╱ // 0x9f8 @0x1c
0x09dc…0a0f at001d = ╱41╱A╱ // 0x9f9 @0x1d
0x09dc…0a0f at001e = ╱50╱P╱ // 0x9fa @0x1e
0x09dc…0a0f at001f = ╱53╱S╱ // 0x9fb @0x1f
0x09dc…0a0f at0020 = ╱49╱I╱ // 0x9fc @0x20
0x09dc…0a0f at0021 = ╱44╱D╱ // 0x9fd @0x21
0x09dc…0a0f at0022 = ╱45╱E╱ // 0x9fe @0x22
0x09dc…0a0f at0023 = ╱eb╱;╱ // 0x9ff @0x23
0x09dc…0a0f at0024 = ╱54╱T╱ // 0xa00 @0x24
0x09dc…0a0f at0025 = ╱32╱2╱ // 0xa01 @0x25
0x09dc…0a0f at0026 = ╱ed╱(╱ // 0xa02 @0x26
0x09dc…0a0f at0027 = ╱38╱8╱ // 0xa03 @0x27
0x09dc…0a0f at0028 = ╱fe00008004╱ // 0xa04 @0x28
0x09dc…0a0f at002d = ╱ee╱)╱ // 0xa09 @0x2d
0x09dc…0a0f at002e = ╱dc╱=╱ // 0xa0a @0x2e
0x09dc…0a0f at002f = ╱52╱R╱ // 0xa0b @0x2f
0x09dc…0a0f at0030 = ╱45╱E╱ // 0xa0c @0x30
0x09dc…0a0f at0031 = ╱4e╱N╱ // 0xa0d @0x31
0x09dc…0a0f at0032 = EOL // 0xa0e @0x32
0x09dc…0a0f }
0x0a0f…0a1a 9771 0780 OPEN K6$,W
0x0a0f…0a1a LineComalBin {
0x0a0f…0a1a ptr = 0x9771 // 0xa0f @0x0
0x0a0f…0a1a lno = 0x030c // 0xa11 @0x2
0x0a0f…0a1a at0004 = ╱a7╱ OPEN ╱ // 0xa13 @0x4
0x0a0f…0a1a at0005 = ╱4b╱K╱ // 0xa14 @0x5
0x0a0f…0a1a at0006 = ╱36╱6╱ // 0xa15 @0x6
0x0a0f…0a1a at0007 = ╱ef╱$╱ // 0xa16 @0x7
0x0a0f…0a1a at0008 = ╱ec╱,╱ // 0xa17 @0x8
0x0a0f…0a1a at0009 = ╱57╱W╱ // 0xa18 @0x9
0x0a0f…0a1a at000a = EOL // 0xa19 @0xa
0x0a0f…0a1a }
0x0a1a…0a2d 9784 0790 EXEC FEJL(V,E,K6$)
0x0a1a…0a2d LineComalBin {
0x0a1a…0a2d ptr = 0x9784 // 0xa1a @0x0
0x0a1a…0a2d lno = 0x0316 // 0xa1c @0x2
0x0a1a…0a2d at0004 = ╱9d╱ EXEC ╱ // 0xa1e @0x4
0x0a1a…0a2d at0005 = ╱46╱F╱ // 0xa1f @0x5
0x0a1a…0a2d at0006 = ╱45╱E╱ // 0xa20 @0x6
0x0a1a…0a2d at0007 = ╱4a╱J╱ // 0xa21 @0x7
0x0a1a…0a2d at0008 = ╱4c╱L╱ // 0xa22 @0x8
0x0a1a…0a2d at0009 = ╱ed╱(╱ // 0xa23 @0x9
0x0a1a…0a2d at000a = ╱56╱V╱ // 0xa24 @0xa
0x0a1a…0a2d at000b = ╱ec╱,╱ // 0xa25 @0xb
0x0a1a…0a2d at000c = ╱45╱E╱ // 0xa26 @0xc
0x0a1a…0a2d at000d = ╱ec╱,╱ // 0xa27 @0xd
0x0a1a…0a2d at000e = ╱4b╱K╱ // 0xa28 @0xe
0x0a1a…0a2d at000f = ╱36╱6╱ // 0xa29 @0xf
0x0a1a…0a2d at0010 = ╱ef╱$╱ // 0xa2a @0x10
0x0a1a…0a2d at0011 = ╱ee╱)╱ // 0xa2b @0x11
0x0a1a…0a2d at0012 = EOL // 0xa2c @0x12
0x0a1a…0a2d }
0x0a2d…0a87 97de 0800 PUT K6$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x0a2d…0a87 LineComalBin {
0x0a2d…0a87 ptr = 0x97de // 0xa2d @0x0
0x0a2d…0a87 lno = 0x0320 // 0xa2f @0x2
0x0a2d…0a87 at0004 = ╱aa╱ PUT ╱ // 0xa31 @0x4
0x0a2d…0a87 at0005 = ╱4b╱K╱ // 0xa32 @0x5
0x0a2d…0a87 at0006 = ╱36╱6╱ // 0xa33 @0x6
0x0a2d…0a87 at0007 = ╱ef╱$╱ // 0xa34 @0x7
0x0a2d…0a87 at0008 = ╱ec╱,╱ // 0xa35 @0x8
0x0a2d…0a87 at0009 = ╱47╱G╱ // 0xa36 @0x9
0x0a2d…0a87 at000a = ╱f0╱:╱ // 0xa37 @0xa
0x0a2d…0a87 at000b = ╱54╱T╱ // 0xa38 @0xb
0x0a2d…0a87 at000c = ╱31╱1╱ // 0xa39 @0xc
0x0a2d…0a87 at000d = ╱ed╱(╱ // 0xa3a @0xd
0x0a2d…0a87 at000e = ╱45╱E╱ // 0xa3b @0xe
0x0a2d…0a87 at000f = ╱ee╱)╱ // 0xa3c @0xf
0x0a2d…0a87 at0010 = ╱ec╱,╱ // 0xa3d @0x10
0x0a2d…0a87 at0011 = ╱54╱T╱ // 0xa3e @0x11
0x0a2d…0a87 at0012 = ╱31╱1╱ // 0xa3f @0x12
0x0a2d…0a87 at0013 = ╱ed╱(╱ // 0xa40 @0x13
0x0a2d…0a87 at0014 = ╱47╱G╱ // 0xa41 @0x14
0x0a2d…0a87 at0015 = ╱ee╱)╱ // 0xa42 @0x15
0x0a2d…0a87 at0016 = ╱ec╱,╱ // 0xa43 @0x16
0x0a2d…0a87 at0017 = ╱54╱T╱ // 0xa44 @0x17
0x0a2d…0a87 at0018 = ╱31╱1╱ // 0xa45 @0x18
0x0a2d…0a87 at0019 = ╱ed╱(╱ // 0xa46 @0x19
0x0a2d…0a87 at001a = ╱56╱V╱ // 0xa47 @0x1a
0x0a2d…0a87 at001b = ╱ee╱)╱ // 0xa48 @0x1b
0x0a2d…0a87 at001c = ╱ec╱,╱ // 0xa49 @0x1c
0x0a2d…0a87 at001d = ╱54╱T╱ // 0xa4a @0x1d
0x0a2d…0a87 at001e = ╱31╱1╱ // 0xa4b @0x1e
0x0a2d…0a87 at001f = ╱ed╱(╱ // 0xa4c @0x1f
0x0a2d…0a87 at0020 = ╱34╱4╱ // 0xa4d @0x20
0x0a2d…0a87 at0021 = ╱fe00008003╱ // 0xa4e @0x21
0x0a2d…0a87 at0026 = ╱ee╱)╱ // 0xa53 @0x26
0x0a2d…0a87 at0027 = ╱ec╱,╱ // 0xa54 @0x27
0x0a2d…0a87 at0028 = ╱54╱T╱ // 0xa55 @0x28
0x0a2d…0a87 at0029 = ╱31╱1╱ // 0xa56 @0x29
0x0a2d…0a87 at002a = ╱ed╱(╱ // 0xa57 @0x2a
0x0a2d…0a87 at002b = ╱35╱5╱ // 0xa58 @0x2b
0x0a2d…0a87 at002c = ╱fe0000a003╱ // 0xa59 @0x2c
0x0a2d…0a87 at0031 = ╱ee╱)╱ // 0xa5e @0x31
0x0a2d…0a87 at0032 = ╱ec╱,╱ // 0xa5f @0x32
0x0a2d…0a87 at0033 = ╱54╱T╱ // 0xa60 @0x33
0x0a2d…0a87 at0034 = ╱31╱1╱ // 0xa61 @0x34
0x0a2d…0a87 at0035 = ╱ed╱(╱ // 0xa62 @0x35
0x0a2d…0a87 at0036 = ╱36╱6╱ // 0xa63 @0x36
0x0a2d…0a87 at0037 = ╱fe0000c003╱ // 0xa64 @0x37
0x0a2d…0a87 at003c = ╱ee╱)╱ // 0xa69 @0x3c
0x0a2d…0a87 at003d = ╱ec╱,╱ // 0xa6a @0x3d
0x0a2d…0a87 at003e = ╱54╱T╱ // 0xa6b @0x3e
0x0a2d…0a87 at003f = ╱31╱1╱ // 0xa6c @0x3f
0x0a2d…0a87 at0040 = ╱ed╱(╱ // 0xa6d @0x40
0x0a2d…0a87 at0041 = ╱37╱7╱ // 0xa6e @0x41
0x0a2d…0a87 at0042 = ╱fe0000e003╱ // 0xa6f @0x42
0x0a2d…0a87 at0047 = ╱ee╱)╱ // 0xa74 @0x47
0x0a2d…0a87 at0048 = ╱ec╱,╱ // 0xa75 @0x48
0x0a2d…0a87 at0049 = ╱54╱T╱ // 0xa76 @0x49
0x0a2d…0a87 at004a = ╱31╱1╱ // 0xa77 @0x4a
0x0a2d…0a87 at004b = ╱ed╱(╱ // 0xa78 @0x4b
0x0a2d…0a87 at004c = ╱38╱8╱ // 0xa79 @0x4c
0x0a2d…0a87 at004d = ╱fe00008004╱ // 0xa7a @0x4d
0x0a2d…0a87 at0052 = ╱ee╱)╱ // 0xa7f @0x52
0x0a2d…0a87 at0053 = ╱ec╱,╱ // 0xa80 @0x53
0x0a2d…0a87 at0054 = ╱54╱T╱ // 0xa81 @0x54
0x0a2d…0a87 at0055 = ╱31╱1╱ // 0xa82 @0x55
0x0a2d…0a87 at0056 = ╱ed╱(╱ // 0xa83 @0x56
0x0a2d…0a87 at0057 = ╱57╱W╱ // 0xa84 @0x57
0x0a2d…0a87 at0058 = ╱ee╱)╱ // 0xa85 @0x58
0x0a2d…0a87 at0059 = EOL // 0xa86 @0x59
0x0a2d…0a87 }
0x0a87…0a9a (35,) 97f1 0810 EXEC FEJL(V,G,K6$)
0x0a87…0a9a LineComalBin {
0x0a87…0a9a ptr = 0x97f1 // 0xa87 @0x0
0x0a87…0a9a lno = 0x032a // 0xa89 @0x2
0x0a87…0a9a at0004 = ╱9d╱ EXEC ╱ // 0xa8b @0x4
0x0a87…0a9a at0005 = ╱46╱F╱ // 0xa8c @0x5
0x0a87…0a9a at0006 = ╱45╱E╱ // 0xa8d @0x6
0x0a87…0a9a at0007 = ╱4a╱J╱ // 0xa8e @0x7
0x0a87…0a9a at0008 = ╱4c╱L╱ // 0xa8f @0x8
0x0a87…0a9a at0009 = ╱ed╱(╱ // 0xa90 @0x9
0x0a87…0a9a at000a = ╱56╱V╱ // 0xa91 @0xa
0x0a87…0a9a at000b = ╱ec╱,╱ // 0xa92 @0xb
0x0a87…0a9a at000c = ╱47╱G╱ // 0xa93 @0xc
0x0a87…0a9a at000d = ╱ec╱,╱ // 0xa94 @0xd
0x0a87…0a9a at000e = ╱4b╱K╱ // 0xa95 @0xe
0x0a87…0a9a at000f = ╱36╱6╱ // 0xa96 @0xf
0x0a87…0a9a at0010 = ╱ef╱$╱ // 0xa97 @0x10
0x0a87…0a9a at0011 = ╱ee╱)╱ // 0xa98 @0x11
0x0a87…0a9a at0012 = EOL // 0xa99 @0x12
0x0a87…0a9a }
0x0a9a…0afa 9851 0820 PUT K6$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x0a9a…0afa LineComalBin {
0x0a9a…0afa ptr = 0x9851 // 0xa9a @0x0
0x0a9a…0afa lno = 0x0334 // 0xa9c @0x2
0x0a9a…0afa at0004 = ╱aa╱ PUT ╱ // 0xa9e @0x4
0x0a9a…0afa at0005 = ╱4b╱K╱ // 0xa9f @0x5
0x0a9a…0afa at0006 = ╱36╱6╱ // 0xaa0 @0x6
0x0a9a…0afa at0007 = ╱ef╱$╱ // 0xaa1 @0x7
0x0a9a…0afa at0008 = ╱ec╱,╱ // 0xaa2 @0x8
0x0a9a…0afa at0009 = ╱31╱1╱ // 0xaa3 @0x9
0x0a9a…0afa at000a = ╱33╱3╱ // 0xaa4 @0xa
0x0a9a…0afa at000b = ╱fe0000d004╱ // 0xaa5 @0xb
0x0a9a…0afa at0010 = ╱f0╱:╱ // 0xaaa @0x10
0x0a9a…0afa at0011 = ╱54╱T╱ // 0xaab @0x11
0x0a9a…0afa at0012 = ╱32╱2╱ // 0xaac @0x12
0x0a9a…0afa at0013 = ╱ed╱(╱ // 0xaad @0x13
0x0a9a…0afa at0014 = ╱45╱E╱ // 0xaae @0x14
0x0a9a…0afa at0015 = ╱ee╱)╱ // 0xaaf @0x15
0x0a9a…0afa at0016 = ╱ec╱,╱ // 0xab0 @0x16
0x0a9a…0afa at0017 = ╱54╱T╱ // 0xab1 @0x17
0x0a9a…0afa at0018 = ╱32╱2╱ // 0xab2 @0x18
0x0a9a…0afa at0019 = ╱ed╱(╱ // 0xab3 @0x19
0x0a9a…0afa at001a = ╱47╱G╱ // 0xab4 @0x1a
0x0a9a…0afa at001b = ╱ee╱)╱ // 0xab5 @0x1b
0x0a9a…0afa at001c = ╱ec╱,╱ // 0xab6 @0x1c
0x0a9a…0afa at001d = ╱54╱T╱ // 0xab7 @0x1d
0x0a9a…0afa at001e = ╱32╱2╱ // 0xab8 @0x1e
0x0a9a…0afa at001f = ╱ed╱(╱ // 0xab9 @0x1f
0x0a9a…0afa at0020 = ╱56╱V╱ // 0xaba @0x20
0x0a9a…0afa at0021 = ╱ee╱)╱ // 0xabb @0x21
0x0a9a…0afa at0022 = ╱ec╱,╱ // 0xabc @0x22
0x0a9a…0afa at0023 = ╱54╱T╱ // 0xabd @0x23
0x0a9a…0afa at0024 = ╱32╱2╱ // 0xabe @0x24
0x0a9a…0afa at0025 = ╱ed╱(╱ // 0xabf @0x25
0x0a9a…0afa at0026 = ╱34╱4╱ // 0xac0 @0x26
0x0a9a…0afa at0027 = ╱fe00008003╱ // 0xac1 @0x27
0x0a9a…0afa at002c = ╱ee╱)╱ // 0xac6 @0x2c
0x0a9a…0afa at002d = ╱ec╱,╱ // 0xac7 @0x2d
0x0a9a…0afa at002e = ╱54╱T╱ // 0xac8 @0x2e
0x0a9a…0afa at002f = ╱32╱2╱ // 0xac9 @0x2f
0x0a9a…0afa at0030 = ╱ed╱(╱ // 0xaca @0x30
0x0a9a…0afa at0031 = ╱35╱5╱ // 0xacb @0x31
0x0a9a…0afa at0032 = ╱fe0000a003╱ // 0xacc @0x32
0x0a9a…0afa at0037 = ╱ee╱)╱ // 0xad1 @0x37
0x0a9a…0afa at0038 = ╱ec╱,╱ // 0xad2 @0x38
0x0a9a…0afa at0039 = ╱54╱T╱ // 0xad3 @0x39
0x0a9a…0afa at003a = ╱32╱2╱ // 0xad4 @0x3a
0x0a9a…0afa at003b = ╱ed╱(╱ // 0xad5 @0x3b
0x0a9a…0afa at003c = ╱36╱6╱ // 0xad6 @0x3c
0x0a9a…0afa at003d = ╱fe0000c003╱ // 0xad7 @0x3d
0x0a9a…0afa at0042 = ╱ee╱)╱ // 0xadc @0x42
0x0a9a…0afa at0043 = ╱ec╱,╱ // 0xadd @0x43
0x0a9a…0afa at0044 = ╱54╱T╱ // 0xade @0x44
0x0a9a…0afa at0045 = ╱32╱2╱ // 0xadf @0x45
0x0a9a…0afa at0046 = ╱ed╱(╱ // 0xae0 @0x46
0x0a9a…0afa at0047 = ╱37╱7╱ // 0xae1 @0x47
0x0a9a…0afa at0048 = ╱fe0000e003╱ // 0xae2 @0x48
0x0a9a…0afa at004d = ╱ee╱)╱ // 0xae7 @0x4d
0x0a9a…0afa at004e = ╱ec╱,╱ // 0xae8 @0x4e
0x0a9a…0afa at004f = ╱54╱T╱ // 0xae9 @0x4f
0x0a9a…0afa at0050 = ╱32╱2╱ // 0xaea @0x50
0x0a9a…0afa at0051 = ╱ed╱(╱ // 0xaeb @0x51
0x0a9a…0afa at0052 = ╱38╱8╱ // 0xaec @0x52
0x0a9a…0afa at0053 = ╱fe00008004╱ // 0xaed @0x53
0x0a9a…0afa at0058 = ╱ee╱)╱ // 0xaf2 @0x58
0x0a9a…0afa at0059 = ╱ec╱,╱ // 0xaf3 @0x59
0x0a9a…0afa at005a = ╱54╱T╱ // 0xaf4 @0x5a
0x0a9a…0afa at005b = ╱32╱2╱ // 0xaf5 @0x5b
0x0a9a…0afa at005c = ╱ed╱(╱ // 0xaf6 @0x5c
0x0a9a…0afa at005d = ╱57╱W╱ // 0xaf7 @0x5d
0x0a9a…0afa at005e = ╱ee╱)╱ // 0xaf8 @0x5e
0x0a9a…0afa at005f = EOL // 0xaf9 @0x5f
0x0a9a…0afa }
0x0afa…0b0d 9864 0830 EXEC FEJL(V,V,K6$)
0x0afa…0b0d LineComalBin {
0x0afa…0b0d ptr = 0x9864 // 0xafa @0x0
0x0afa…0b0d lno = 0x033e // 0xafc @0x2
0x0afa…0b0d at0004 = ╱9d╱ EXEC ╱ // 0xafe @0x4
0x0afa…0b0d at0005 = ╱46╱F╱ // 0xaff @0x5
0x0afa…0b0d at0006 = ╱45╱E╱ // 0xb00 @0x6
0x0afa…0b0d at0007 = ╱4a╱J╱ // 0xb01 @0x7
0x0afa…0b0d at0008 = ╱4c╱L╱ // 0xb02 @0x8
0x0afa…0b0d at0009 = ╱ed╱(╱ // 0xb03 @0x9
0x0afa…0b0d at000a = ╱56╱V╱ // 0xb04 @0xa
0x0afa…0b0d at000b = ╱ec╱,╱ // 0xb05 @0xb
0x0afa…0b0d at000c = ╱56╱V╱ // 0xb06 @0xc
0x0afa…0b0d at000d = ╱ec╱,╱ // 0xb07 @0xd
0x0afa…0b0d at000e = ╱4b╱K╱ // 0xb08 @0xe
0x0afa…0b0d at000f = ╱36╱6╱ // 0xb09 @0xf
0x0afa…0b0d at0010 = ╱ef╱$╱ // 0xb0a @0x10
0x0afa…0b0d at0011 = ╱ee╱)╱ // 0xb0b @0x11
0x0afa…0b0d at0012 = EOL // 0xb0c @0x12
0x0afa…0b0d }
0x0b0d…0b16 986d 0840 CLOSE K6$
0x0b0d…0b16 LineComalBin {
0x0b0d…0b16 ptr = 0x986d // 0xb0d @0x0
0x0b0d…0b16 lno = 0x0348 // 0xb0f @0x2
0x0b0d…0b16 at0004 = ╱a8╱ CLOSE ╱ // 0xb11 @0x4
0x0b0d…0b16 at0005 = ╱4b╱K╱ // 0xb12 @0x5
0x0b0d…0b16 at0006 = ╱36╱6╱ // 0xb13 @0x6
0x0b0d…0b16 at0007 = ╱ef╱$╱ // 0xb14 @0x7
0x0b0d…0b16 at0008 = EOL // 0xb15 @0x8
0x0b0d…0b16 }
0x0b16…0b2e 9885 0850 EXEC FEJL(V,4,K6$)
0x0b16…0b2e LineComalBin {
0x0b16…0b2e ptr = 0x9885 // 0xb16 @0x0
0x0b16…0b2e lno = 0x0352 // 0xb18 @0x2
0x0b16…0b2e at0004 = ╱9d╱ EXEC ╱ // 0xb1a @0x4
0x0b16…0b2e at0005 = ╱46╱F╱ // 0xb1b @0x5
0x0b16…0b2e at0006 = ╱45╱E╱ // 0xb1c @0x6
0x0b16…0b2e at0007 = ╱4a╱J╱ // 0xb1d @0x7
0x0b16…0b2e at0008 = ╱4c╱L╱ // 0xb1e @0x8
0x0b16…0b2e at0009 = ╱ed╱(╱ // 0xb1f @0x9
0x0b16…0b2e at000a = ╱56╱V╱ // 0xb20 @0xa
0x0b16…0b2e at000b = ╱ec╱,╱ // 0xb21 @0xb
0x0b16…0b2e at000c = ╱34╱4╱ // 0xb22 @0xc
0x0b16…0b2e at000d = ╱fe00008003╱ // 0xb23 @0xd
0x0b16…0b2e at0012 = ╱ec╱,╱ // 0xb28 @0x12
0x0b16…0b2e at0013 = ╱4b╱K╱ // 0xb29 @0x13
0x0b16…0b2e at0014 = ╱36╱6╱ // 0xb2a @0x14
0x0b16…0b2e at0015 = ╱ef╱$╱ // 0xb2b @0x15
0x0b16…0b2e at0016 = ╱ee╱)╱ // 0xb2c @0x16
0x0b16…0b2e at0017 = EOL // 0xb2d @0x17
0x0b16…0b2e }
0x0b2e…0b34 988b 0860 ENDPROC
0x0b2e…0b34 LineComalBin {
0x0b2e…0b34 ptr = 0x988b // 0xb2e @0x0
0x0b2e…0b34 lno = 0x035c // 0xb30 @0x2
0x0b2e…0b34 at0004 = ╱9f╱ ENDPROC ╱ // 0xb32 @0x4
0x0b2e…0b34 at0005 = EOL // 0xb33 @0x5
0x0b2e…0b34 }
0x0b34…0b49 98a0 0870 PROC DATOUD(DA1,DA2)
0x0b34…0b49 LineComalBin {
0x0b34…0b49 ptr = 0x98a0 // 0xb34 @0x0
0x0b34…0b49 lno = 0x0366 // 0xb36 @0x2
0x0b34…0b49 at0004 = ╱9e╱ PROC ╱ // 0xb38 @0x4
0x0b34…0b49 at0005 = ╱44╱D╱ // 0xb39 @0x5
0x0b34…0b49 at0006 = ╱41╱A╱ // 0xb3a @0x6
0x0b34…0b49 at0007 = ╱54╱T╱ // 0xb3b @0x7
0x0b34…0b49 at0008 = ╱4f╱O╱ // 0xb3c @0x8
0x0b34…0b49 at0009 = ╱55╱U╱ // 0xb3d @0x9
0x0b34…0b49 at000a = ╱44╱D╱ // 0xb3e @0xa
0x0b34…0b49 at000b = ╱ed╱(╱ // 0xb3f @0xb
0x0b34…0b49 at000c = ╱44╱D╱ // 0xb40 @0xc
0x0b34…0b49 at000d = ╱41╱A╱ // 0xb41 @0xd
0x0b34…0b49 at000e = ╱31╱1╱ // 0xb42 @0xe
0x0b34…0b49 at000f = ╱ec╱,╱ // 0xb43 @0xf
0x0b34…0b49 at0010 = ╱44╱D╱ // 0xb44 @0x10
0x0b34…0b49 at0011 = ╱41╱A╱ // 0xb45 @0x11
0x0b34…0b49 at0012 = ╱32╱2╱ // 0xb46 @0x12
0x0b34…0b49 at0013 = ╱ee╱)╱ // 0xb47 @0x13
0x0b34…0b49 at0014 = EOL // 0xb48 @0x14
0x0b34…0b49 }
0x0b49…0b55 98ac 0880 DA3=DA1
0x0b49…0b55 LineComalBin {
0x0b49…0b55 ptr = 0x98ac // 0xb49 @0x0
0x0b49…0b55 lno = 0x0370 // 0xb4b @0x2
0x0b49…0b55 at0004 = ╱44╱D╱ // 0xb4d @0x4
0x0b49…0b55 at0005 = ╱41╱A╱ // 0xb4e @0x5
0x0b49…0b55 at0006 = ╱33╱3╱ // 0xb4f @0x6
0x0b49…0b55 at0007 = ╱dc╱=╱ // 0xb50 @0x7
0x0b49…0b55 at0008 = ╱44╱D╱ // 0xb51 @0x8
0x0b49…0b55 at0009 = ╱41╱A╱ // 0xb52 @0x9
0x0b49…0b55 at000a = ╱31╱1╱ // 0xb53 @0xa
0x0b49…0b55 at000b = EOL // 0xb54 @0xb
0x0b49…0b55 }
0x0b55…0b69 98c0 0890 DA2$=" "
0x0b55…0b69 LineComalBin {
0x0b55…0b69 ptr = 0x98c0 // 0xb55 @0x0
0x0b55…0b69 lno = 0x037a // 0xb57 @0x2
0x0b55…0b69 at0004 = ╱44╱D╱ // 0xb59 @0x4
0x0b55…0b69 at0005 = ╱41╱A╱ // 0xb5a @0x5
0x0b55…0b69 at0006 = ╱32╱2╱ // 0xb5b @0x6
0x0b55…0b69 at0007 = ╱ef╱$╱ // 0xb5c @0x7
0x0b55…0b69 at0008 = ╱dc╱=╱ // 0xb5d @0x8
0x0b55…0b69 at0009 = ╱22╱"╱ // 0xb5e @0x9
0x0b55…0b69 at000a = ╱20╱…╱ // 0xb5f @0xa
0x0b55…0b69 at000b = ╱20╱…╱ // 0xb60 @0xb
0x0b55…0b69 at000c = ╱20╱…╱ // 0xb61 @0xc
0x0b55…0b69 at000d = ╱20╱…╱ // 0xb62 @0xd
0x0b55…0b69 at000e = ╱20╱…╱ // 0xb63 @0xe
0x0b55…0b69 at000f = ╱20╱…╱ // 0xb64 @0xf
0x0b55…0b69 at0010 = ╱20╱…╱ // 0xb65 @0x10
0x0b55…0b69 at0011 = ╱20╱…╱ // 0xb66 @0x11
0x0b55…0b69 at0012 = ╱22╱"╱ // 0xb67 @0x12
0x0b55…0b69 at0013 = EOL // 0xb68 @0x13
0x0b55…0b69 }
0x0b69…0b7c 98d3 0900 FOR J=8 TO E STEP -E
0x0b69…0b7c LineComalBin {
0x0b69…0b7c ptr = 0x98d3 // 0xb69 @0x0
0x0b69…0b7c lno = 0x0384 // 0xb6b @0x2
0x0b69…0b7c at0004 = ╱83╱ FOR ╱ // 0xb6d @0x4
0x0b69…0b7c at0005 = ╱4a╱J╱ // 0xb6e @0x5
0x0b69…0b7c at0006 = ╱dc╱=╱ // 0xb6f @0x6
0x0b69…0b7c at0007 = ╱38╱8╱ // 0xb70 @0x7
0x0b69…0b7c at0008 = ╱fe00008004╱ // 0xb71 @0x8
0x0b69…0b7c at000d = ╱b7╱ TO ╱ // 0xb76 @0xd
0x0b69…0b7c at000e = ╱45╱E╱ // 0xb77 @0xe
0x0b69…0b7c at000f = ╱b8╱ STEP ╱ // 0xb78 @0xf
0x0b69…0b7c at0010 = ╱e9╱-╱ // 0xb79 @0x10
0x0b69…0b7c at0011 = ╱45╱E╱ // 0xb7a @0x11
0x0b69…0b7c at0012 = EOL // 0xb7b @0x12
0x0b69…0b7c }
0x0b7c…0b88 98df 0910 IF J MOD V=B THEN
0x0b7c…0b88 LineComalBin {
0x0b7c…0b88 ptr = 0x98df // 0xb7c @0x0
0x0b7c…0b88 lno = 0x038e // 0xb7e @0x2
0x0b7c…0b88 at0004 = ╱9c╱ IF ╱ // 0xb80 @0x4
0x0b7c…0b88 at0005 = ╱4a╱J╱ // 0xb81 @0x5
0x0b7c…0b88 at0006 = ╱e8╱ MOD ╱ // 0xb82 @0x6
0x0b7c…0b88 at0007 = ╱56╱V╱ // 0xb83 @0x7
0x0b7c…0b88 at0008 = ╱dc╱=╱ // 0xb84 @0x8
0x0b7c…0b88 at0009 = ╱42╱B╱ // 0xb85 @0x9
0x0b7c…0b88 at000a = ╱b6╱ THEN ╱ // 0xb86 @0xa
0x0b7c…0b88 at000b = EOL // 0xb87 @0xb
0x0b7c…0b88 }
0x0b88…0b98 98ef 0920 DA2$(J)="."
0x0b88…0b98 LineComalBin {
0x0b88…0b98 ptr = 0x98ef // 0xb88 @0x0
0x0b88…0b98 lno = 0x0398 // 0xb8a @0x2
0x0b88…0b98 at0004 = ╱44╱D╱ // 0xb8c @0x4
0x0b88…0b98 at0005 = ╱41╱A╱ // 0xb8d @0x5
0x0b88…0b98 at0006 = ╱32╱2╱ // 0xb8e @0x6
0x0b88…0b98 at0007 = ╱ef╱$╱ // 0xb8f @0x7
0x0b88…0b98 at0008 = ╱ed╱(╱ // 0xb90 @0x8
0x0b88…0b98 at0009 = ╱4a╱J╱ // 0xb91 @0x9
0x0b88…0b98 at000a = ╱ee╱)╱ // 0xb92 @0xa
0x0b88…0b98 at000b = ╱dc╱=╱ // 0xb93 @0xb
0x0b88…0b98 at000c = ╱22╱"╱ // 0xb94 @0xc
0x0b88…0b98 at000d = ╱2e╱.╱ // 0xb95 @0xd
0x0b88…0b98 at000e = ╱22╱"╱ // 0xb96 @0xe
0x0b88…0b98 at000f = EOL // 0xb97 @0xf
0x0b88…0b98 }
0x0b98…0b9e 98f5 0930 ELSE
0x0b98…0b9e LineComalBin {
0x0b98…0b9e ptr = 0x98f5 // 0xb98 @0x0
0x0b98…0b9e lno = 0x03a2 // 0xb9a @0x2
0x0b98…0b9e at0004 = ╱9a╱ ELSE ╱ // 0xb9c @0x4
0x0b98…0b9e at0005 = EOL // 0xb9d @0x5
0x0b98…0b9e }
0x0b9e…0bc1 9918 0940 DA2$(J)=CHR(DA3 MOD 10+48)
0x0b9e…0bc1 LineComalBin {
0x0b9e…0bc1 ptr = 0x9918 // 0xb9e @0x0
0x0b9e…0bc1 lno = 0x03ac // 0xba0 @0x2
0x0b9e…0bc1 at0004 = ╱44╱D╱ // 0xba2 @0x4
0x0b9e…0bc1 at0005 = ╱41╱A╱ // 0xba3 @0x5
0x0b9e…0bc1 at0006 = ╱32╱2╱ // 0xba4 @0x6
0x0b9e…0bc1 at0007 = ╱ef╱$╱ // 0xba5 @0x7
0x0b9e…0bc1 at0008 = ╱ed╱(╱ // 0xba6 @0x8
0x0b9e…0bc1 at0009 = ╱4a╱J╱ // 0xba7 @0x9
0x0b9e…0bc1 at000a = ╱ee╱)╱ // 0xba8 @0xa
0x0b9e…0bc1 at000b = ╱dc╱=╱ // 0xba9 @0xb
0x0b9e…0bc1 at000c = ╱cf╱CHR╱ // 0xbaa @0xc
0x0b9e…0bc1 at000d = ╱ed╱(╱ // 0xbab @0xd
0x0b9e…0bc1 at000e = ╱44╱D╱ // 0xbac @0xe
0x0b9e…0bc1 at000f = ╱41╱A╱ // 0xbad @0xf
0x0b9e…0bc1 at0010 = ╱33╱3╱ // 0xbae @0x10
0x0b9e…0bc1 at0011 = ╱e8╱ MOD ╱ // 0xbaf @0x11
0x0b9e…0bc1 at0012 = ╱31╱1╱ // 0xbb0 @0x12
0x0b9e…0bc1 at0013 = ╱30╱0╱ // 0xbb1 @0x13
0x0b9e…0bc1 at0014 = ╱fe0000a004╱ // 0xbb2 @0x14
0x0b9e…0bc1 at0019 = ╱e2╱+╱ // 0xbb7 @0x19
0x0b9e…0bc1 at001a = ╱34╱4╱ // 0xbb8 @0x1a
0x0b9e…0bc1 at001b = ╱38╱8╱ // 0xbb9 @0x1b
0x0b9e…0bc1 at001c = ╱fe0000c006╱ // 0xbba @0x1c
0x0b9e…0bc1 at0021 = ╱ee╱)╱ // 0xbbf @0x21
0x0b9e…0bc1 at0022 = EOL // 0xbc0 @0x22
0x0b9e…0bc1 }
0x0bc1…0bd5 992c 0950 DA3=DA3 DIV 10
0x0bc1…0bd5 LineComalBin {
0x0bc1…0bd5 ptr = 0x992c // 0xbc1 @0x0
0x0bc1…0bd5 lno = 0x03b6 // 0xbc3 @0x2
0x0bc1…0bd5 at0004 = ╱44╱D╱ // 0xbc5 @0x4
0x0bc1…0bd5 at0005 = ╱41╱A╱ // 0xbc6 @0x5
0x0bc1…0bd5 at0006 = ╱33╱3╱ // 0xbc7 @0x6
0x0bc1…0bd5 at0007 = ╱dc╱=╱ // 0xbc8 @0x7
0x0bc1…0bd5 at0008 = ╱44╱D╱ // 0xbc9 @0x8
0x0bc1…0bd5 at0009 = ╱41╱A╱ // 0xbca @0x9
0x0bc1…0bd5 at000a = ╱33╱3╱ // 0xbcb @0xa
0x0bc1…0bd5 at000b = ╱e7╱ DIV ╱ // 0xbcc @0xb
0x0bc1…0bd5 at000c = ╱31╱1╱ // 0xbcd @0xc
0x0bc1…0bd5 at000d = ╱30╱0╱ // 0xbce @0xd
0x0bc1…0bd5 at000e = ╱fe0000a004╱ // 0xbcf @0xe
0x0bc1…0bd5 at0013 = EOL // 0xbd4 @0x13
0x0bc1…0bd5 }
0x0bd5…0bdb 9932 0960 ENDIF
0x0bd5…0bdb LineComalBin {
0x0bd5…0bdb ptr = 0x9932 // 0xbd5 @0x0
0x0bd5…0bdb lno = 0x03c0 // 0xbd7 @0x2
0x0bd5…0bdb at0004 = ╱9b╱ ENDIF ╱ // 0xbd9 @0x4
0x0bd5…0bdb at0005 = EOL // 0xbda @0x5
0x0bd5…0bdb }
0x0bdb…0be2 9939 0970 NEXT J
0x0bdb…0be2 LineComalBin {
0x0bdb…0be2 ptr = 0x9939 // 0xbdb @0x0
0x0bdb…0be2 lno = 0x03ca // 0xbdd @0x2
0x0bdb…0be2 at0004 = ╱84╱ NEXT ╱ // 0xbdf @0x4
0x0bdb…0be2 at0005 = ╱4a╱J╱ // 0xbe0 @0x5
0x0bdb…0be2 at0006 = EOL // 0xbe1 @0x6
0x0bdb…0be2 }
0x0be2…0be8 993f 0980 ENDPROC
0x0be2…0be8 LineComalBin {
0x0be2…0be8 ptr = 0x993f // 0xbe2 @0x0
0x0be2…0be8 lno = 0x03d4 // 0xbe4 @0x2
0x0be2…0be8 at0004 = ╱9f╱ ENDPROC ╱ // 0xbe6 @0x4
0x0be2…0be8 at0005 = EOL // 0xbe7 @0x5
0x0be2…0be8 }
0x0be8…0c01 9958 0990 PROC INDTAB1(Z,MANT5,L7)
0x0be8…0c01 LineComalBin {
0x0be8…0c01 ptr = 0x9958 // 0xbe8 @0x0
0x0be8…0c01 lno = 0x03de // 0xbea @0x2
0x0be8…0c01 at0004 = ╱9e╱ PROC ╱ // 0xbec @0x4
0x0be8…0c01 at0005 = ╱49╱I╱ // 0xbed @0x5
0x0be8…0c01 at0006 = ╱4e╱N╱ // 0xbee @0x6
0x0be8…0c01 at0007 = ╱44╱D╱ // 0xbef @0x7
0x0be8…0c01 at0008 = ╱54╱T╱ // 0xbf0 @0x8
0x0be8…0c01 at0009 = ╱41╱A╱ // 0xbf1 @0x9
0x0be8…0c01 at000a = ╱42╱B╱ // 0xbf2 @0xa
0x0be8…0c01 at000b = ╱31╱1╱ // 0xbf3 @0xb
0x0be8…0c01 at000c = ╱ed╱(╱ // 0xbf4 @0xc
0x0be8…0c01 at000d = ╱5a╱Z╱ // 0xbf5 @0xd
0x0be8…0c01 at000e = ╱ec╱,╱ // 0xbf6 @0xe
0x0be8…0c01 at000f = ╱4d╱M╱ // 0xbf7 @0xf
0x0be8…0c01 at0010 = ╱41╱A╱ // 0xbf8 @0x10
0x0be8…0c01 at0011 = ╱4e╱N╱ // 0xbf9 @0x11
0x0be8…0c01 at0012 = ╱54╱T╱ // 0xbfa @0x12
0x0be8…0c01 at0013 = ╱35╱5╱ // 0xbfb @0x13
0x0be8…0c01 at0014 = ╱ec╱,╱ // 0xbfc @0x14
0x0be8…0c01 at0015 = ╱4c╱L╱ // 0xbfd @0x15
0x0be8…0c01 at0016 = ╱37╱7╱ // 0xbfe @0x16
0x0be8…0c01 at0017 = ╱ee╱)╱ // 0xbff @0x17
0x0be8…0c01 at0018 = EOL // 0xc00 @0x18
0x0be8…0c01 }
0x0c01…0c18 996f 1000 PIL1=MANT5 DIV 32
0x0c01…0c18 LineComalBin {
0x0c01…0c18 ptr = 0x996f // 0xc01 @0x0
0x0c01…0c18 lno = 0x03e8 // 0xc03 @0x2
0x0c01…0c18 at0004 = ╱50╱P╱ // 0xc05 @0x4
0x0c01…0c18 at0005 = ╱49╱I╱ // 0xc06 @0x5
0x0c01…0c18 at0006 = ╱4c╱L╱ // 0xc07 @0x6
0x0c01…0c18 at0007 = ╱31╱1╱ // 0xc08 @0x7
0x0c01…0c18 at0008 = ╱dc╱=╱ // 0xc09 @0x8
0x0c01…0c18 at0009 = ╱4d╱M╱ // 0xc0a @0x9
0x0c01…0c18 at000a = ╱41╱A╱ // 0xc0b @0xa
0x0c01…0c18 at000b = ╱4e╱N╱ // 0xc0c @0xb
0x0c01…0c18 at000c = ╱54╱T╱ // 0xc0d @0xc
0x0c01…0c18 at000d = ╱35╱5╱ // 0xc0e @0xd
0x0c01…0c18 at000e = ╱e7╱ DIV ╱ // 0xc0f @0xe
0x0c01…0c18 at000f = ╱33╱3╱ // 0xc10 @0xf
0x0c01…0c18 at0010 = ╱32╱2╱ // 0xc11 @0x10
0x0c01…0c18 at0011 = ╱fe00008006╱ // 0xc12 @0x11
0x0c01…0c18 at0016 = EOL // 0xc17 @0x16
0x0c01…0c18 }
0x0c18…0c26 997d 1010 FOR I=E TO PIL1
0x0c18…0c26 LineComalBin {
0x0c18…0c26 ptr = 0x997d // 0xc18 @0x0
0x0c18…0c26 lno = 0x03f2 // 0xc1a @0x2
0x0c18…0c26 at0004 = ╱83╱ FOR ╱ // 0xc1c @0x4
0x0c18…0c26 at0005 = ╱49╱I╱ // 0xc1d @0x5
0x0c18…0c26 at0006 = ╱dc╱=╱ // 0xc1e @0x6
0x0c18…0c26 at0007 = ╱45╱E╱ // 0xc1f @0x7
0x0c18…0c26 at0008 = ╱b7╱ TO ╱ // 0xc20 @0x8
0x0c18…0c26 at0009 = ╱50╱P╱ // 0xc21 @0x9
0x0c18…0c26 at000a = ╱49╱I╱ // 0xc22 @0xa
0x0c18…0c26 at000b = ╱4c╱L╱ // 0xc23 @0xb
0x0c18…0c26 at000c = ╱31╱1╱ // 0xc24 @0xc
0x0c18…0c26 at000d = EOL // 0xc25 @0xd
0x0c18…0c26 }
0x0c26…0c3b 9992 1020 H=(I-E)*8+E
0x0c26…0c3b LineComalBin {
0x0c26…0c3b ptr = 0x9992 // 0xc26 @0x0
0x0c26…0c3b lno = 0x03fc // 0xc28 @0x2
0x0c26…0c3b at0004 = ╱48╱H╱ // 0xc2a @0x4
0x0c26…0c3b at0005 = ╱dc╱=╱ // 0xc2b @0x5
0x0c26…0c3b at0006 = ╱ed╱(╱ // 0xc2c @0x6
0x0c26…0c3b at0007 = ╱49╱I╱ // 0xc2d @0x7
0x0c26…0c3b at0008 = ╱e3╱-╱ // 0xc2e @0x8
0x0c26…0c3b at0009 = ╱45╱E╱ // 0xc2f @0x9
0x0c26…0c3b at000a = ╱ee╱)╱ // 0xc30 @0xa
0x0c26…0c3b at000b = ╱e4╱*╱ // 0xc31 @0xb
0x0c26…0c3b at000c = ╱38╱8╱ // 0xc32 @0xc
0x0c26…0c3b at000d = ╱fe00008004╱ // 0xc33 @0xd
0x0c26…0c3b at0012 = ╱e2╱+╱ // 0xc38 @0x12
0x0c26…0c3b at0013 = ╱45╱E╱ // 0xc39 @0x13
0x0c26…0c3b at0014 = EOL // 0xc3a @0x14
0x0c26…0c3b }
0x0c3b…0c90 99e7 1030 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)
0x0c3b…0c90 LineComalBin {
0x0c3b…0c90 ptr = 0x99e7 // 0xc3b @0x0
0x0c3b…0c90 lno = 0x0406 // 0xc3d @0x2
0x0c3b…0c90 at0004 = ╱a9╱ GET ╱ // 0xc3f @0x4
0x0c3b…0c90 at0005 = ╱4c╱L╱ // 0xc40 @0x5
0x0c3b…0c90 at0006 = ╱37╱7╱ // 0xc41 @0x6
0x0c3b…0c90 at0007 = ╱ef╱$╱ // 0xc42 @0x7
0x0c3b…0c90 at0008 = ╱ec╱,╱ // 0xc43 @0x8
0x0c3b…0c90 at0009 = ╱49╱I╱ // 0xc44 @0x9
0x0c3b…0c90 at000a = ╱f0╱:╱ // 0xc45 @0xa
0x0c3b…0c90 at000b = ╱5a╱Z╱ // 0xc46 @0xb
0x0c3b…0c90 at000c = ╱ed╱(╱ // 0xc47 @0xc
0x0c3b…0c90 at000d = ╱48╱H╱ // 0xc48 @0xd
0x0c3b…0c90 at000e = ╱ee╱)╱ // 0xc49 @0xe
0x0c3b…0c90 at000f = ╱ec╱,╱ // 0xc4a @0xf
0x0c3b…0c90 at0010 = ╱5a╱Z╱ // 0xc4b @0x10
0x0c3b…0c90 at0011 = ╱ed╱(╱ // 0xc4c @0x11
0x0c3b…0c90 at0012 = ╱48╱H╱ // 0xc4d @0x12
0x0c3b…0c90 at0013 = ╱e2╱+╱ // 0xc4e @0x13
0x0c3b…0c90 at0014 = ╱45╱E╱ // 0xc4f @0x14
0x0c3b…0c90 at0015 = ╱ee╱)╱ // 0xc50 @0x15
0x0c3b…0c90 at0016 = ╱ec╱,╱ // 0xc51 @0x16
0x0c3b…0c90 at0017 = ╱5a╱Z╱ // 0xc52 @0x17
0x0c3b…0c90 at0018 = ╱ed╱(╱ // 0xc53 @0x18
0x0c3b…0c90 at0019 = ╱48╱H╱ // 0xc54 @0x19
0x0c3b…0c90 at001a = ╱e2╱+╱ // 0xc55 @0x1a
0x0c3b…0c90 at001b = ╱47╱G╱ // 0xc56 @0x1b
0x0c3b…0c90 at001c = ╱ee╱)╱ // 0xc57 @0x1c
0x0c3b…0c90 at001d = ╱ec╱,╱ // 0xc58 @0x1d
0x0c3b…0c90 at001e = ╱5a╱Z╱ // 0xc59 @0x1e
0x0c3b…0c90 at001f = ╱ed╱(╱ // 0xc5a @0x1f
0x0c3b…0c90 at0020 = ╱48╱H╱ // 0xc5b @0x20
0x0c3b…0c90 at0021 = ╱e2╱+╱ // 0xc5c @0x21
0x0c3b…0c90 at0022 = ╱56╱V╱ // 0xc5d @0x22
0x0c3b…0c90 at0023 = ╱ee╱)╱ // 0xc5e @0x23
0x0c3b…0c90 at0024 = ╱ec╱,╱ // 0xc5f @0x24
0x0c3b…0c90 at0025 = ╱5a╱Z╱ // 0xc60 @0x25
0x0c3b…0c90 at0026 = ╱ed╱(╱ // 0xc61 @0x26
0x0c3b…0c90 at0027 = ╱48╱H╱ // 0xc62 @0x27
0x0c3b…0c90 at0028 = ╱e2╱+╱ // 0xc63 @0x28
0x0c3b…0c90 at0029 = ╱34╱4╱ // 0xc64 @0x29
0x0c3b…0c90 at002a = ╱fe00008003╱ // 0xc65 @0x2a
0x0c3b…0c90 at002f = ╱ee╱)╱ // 0xc6a @0x2f
0x0c3b…0c90 at0030 = ╱ec╱,╱ // 0xc6b @0x30
0x0c3b…0c90 at0031 = ╱5a╱Z╱ // 0xc6c @0x31
0x0c3b…0c90 at0032 = ╱ed╱(╱ // 0xc6d @0x32
0x0c3b…0c90 at0033 = ╱48╱H╱ // 0xc6e @0x33
0x0c3b…0c90 at0034 = ╱e2╱+╱ // 0xc6f @0x34
0x0c3b…0c90 at0035 = ╱35╱5╱ // 0xc70 @0x35
0x0c3b…0c90 at0036 = ╱fe0000a003╱ // 0xc71 @0x36
0x0c3b…0c90 at003b = ╱ee╱)╱ // 0xc76 @0x3b
0x0c3b…0c90 at003c = ╱ec╱,╱ // 0xc77 @0x3c
0x0c3b…0c90 at003d = ╱5a╱Z╱ // 0xc78 @0x3d
0x0c3b…0c90 at003e = ╱ed╱(╱ // 0xc79 @0x3e
0x0c3b…0c90 at003f = ╱48╱H╱ // 0xc7a @0x3f
0x0c3b…0c90 at0040 = ╱e2╱+╱ // 0xc7b @0x40
0x0c3b…0c90 at0041 = ╱36╱6╱ // 0xc7c @0x41
0x0c3b…0c90 at0042 = ╱fe0000c003╱ // 0xc7d @0x42
0x0c3b…0c90 at0047 = ╱ee╱)╱ // 0xc82 @0x47
0x0c3b…0c90 at0048 = ╱ec╱,╱ // 0xc83 @0x48
0x0c3b…0c90 at0049 = ╱5a╱Z╱ // 0xc84 @0x49
0x0c3b…0c90 at004a = ╱ed╱(╱ // 0xc85 @0x4a
0x0c3b…0c90 at004b = ╱48╱H╱ // 0xc86 @0x4b
0x0c3b…0c90 at004c = ╱e2╱+╱ // 0xc87 @0x4c
0x0c3b…0c90 at004d = ╱37╱7╱ // 0xc88 @0x4d
0x0c3b…0c90 at004e = ╱fe0000e003╱ // 0xc89 @0x4e
0x0c3b…0c90 at0053 = ╱ee╱)╱ // 0xc8e @0x53
0x0c3b…0c90 at0054 = EOL // 0xc8f @0x54
0x0c3b…0c90 }
0x0c90…0ca3 99fa 1040 EXEC FEJL(G,E,L7$)
0x0c90…0ca3 LineComalBin {
0x0c90…0ca3 ptr = 0x99fa // 0xc90 @0x0
0x0c90…0ca3 lno = 0x0410 // 0xc92 @0x2
0x0c90…0ca3 at0004 = ╱9d╱ EXEC ╱ // 0xc94 @0x4
0x0c90…0ca3 at0005 = ╱46╱F╱ // 0xc95 @0x5
0x0c90…0ca3 at0006 = ╱45╱E╱ // 0xc96 @0x6
0x0c90…0ca3 at0007 = ╱4a╱J╱ // 0xc97 @0x7
0x0c90…0ca3 at0008 = ╱4c╱L╱ // 0xc98 @0x8
0x0c90…0ca3 at0009 = ╱ed╱(╱ // 0xc99 @0x9
0x0c90…0ca3 at000a = ╱47╱G╱ // 0xc9a @0xa
0x0c90…0ca3 at000b = ╱ec╱,╱ // 0xc9b @0xb
0x0c90…0ca3 at000c = ╱45╱E╱ // 0xc9c @0xc
0x0c90…0ca3 at000d = ╱ec╱,╱ // 0xc9d @0xd
0x0c90…0ca3 at000e = ╱4c╱L╱ // 0xc9e @0xe
0x0c90…0ca3 at000f = ╱37╱7╱ // 0xc9f @0xf
0x0c90…0ca3 at0010 = ╱ef╱$╱ // 0xca0 @0x10
0x0c90…0ca3 at0011 = ╱ee╱)╱ // 0xca1 @0x11
0x0c90…0ca3 at0012 = EOL // 0xca2 @0x12
0x0c90…0ca3 }
0x0ca3…0caa 9a01 1050 NEXT I
0x0ca3…0caa LineComalBin {
0x0ca3…0caa ptr = 0x9a01 // 0xca3 @0x0
0x0ca3…0caa lno = 0x041a // 0xca5 @0x2
0x0ca3…0caa at0004 = ╱84╱ NEXT ╱ // 0xca7 @0x4
0x0ca3…0caa at0005 = ╱49╱I╱ // 0xca8 @0x5
0x0ca3…0caa at0006 = EOL // 0xca9 @0x6
0x0ca3…0caa }
0x0caa…0cb0 9a07 1060 ENDPROC
0x0caa…0cb0 LineComalBin {
0x0caa…0cb0 ptr = 0x9a07 // 0xcaa @0x0
0x0caa…0cb0 lno = 0x0424 // 0xcac @0x2
0x0caa…0cb0 at0004 = ╱9f╱ ENDPROC ╱ // 0xcae @0x4
0x0caa…0cb0 at0005 = EOL // 0xcaf @0x5
0x0caa…0cb0 }
0x0cb0…0cc2 9a19 1070 PROC NRTEST(NUM1)
0x0cb0…0cc2 LineComalBin {
0x0cb0…0cc2 ptr = 0x9a19 // 0xcb0 @0x0
0x0cb0…0cc2 lno = 0x042e // 0xcb2 @0x2
0x0cb0…0cc2 at0004 = ╱9e╱ PROC ╱ // 0xcb4 @0x4
0x0cb0…0cc2 at0005 = ╱4e╱N╱ // 0xcb5 @0x5
0x0cb0…0cc2 at0006 = ╱52╱R╱ // 0xcb6 @0x6
0x0cb0…0cc2 at0007 = ╱54╱T╱ // 0xcb7 @0x7
0x0cb0…0cc2 at0008 = ╱45╱E╱ // 0xcb8 @0x8
0x0cb0…0cc2 at0009 = ╱53╱S╱ // 0xcb9 @0x9
0x0cb0…0cc2 at000a = ╱54╱T╱ // 0xcba @0xa
0x0cb0…0cc2 at000b = ╱ed╱(╱ // 0xcbb @0xb
0x0cb0…0cc2 at000c = ╱4e╱N╱ // 0xcbc @0xc
0x0cb0…0cc2 at000d = ╱55╱U╱ // 0xcbd @0xd
0x0cb0…0cc2 at000e = ╱4d╱M╱ // 0xcbe @0xe
0x0cb0…0cc2 at000f = ╱31╱1╱ // 0xcbf @0xf
0x0cb0…0cc2 at0010 = ╱ee╱)╱ // 0xcc0 @0x10
0x0cb0…0cc2 at0011 = EOL // 0xcc1 @0x11
0x0cb0…0cc2 }
0x0cc2…0ce4 9a3b 1080 P=B;TEST2=B;KTAL=B;L=LEN(NUM1$)
0x0cc2…0ce4 LineComalBin {
0x0cc2…0ce4 ptr = 0x9a3b // 0xcc2 @0x0
0x0cc2…0ce4 lno = 0x0438 // 0xcc4 @0x2
0x0cc2…0ce4 at0004 = ╱50╱P╱ // 0xcc6 @0x4
0x0cc2…0ce4 at0005 = ╱dc╱=╱ // 0xcc7 @0x5
0x0cc2…0ce4 at0006 = ╱42╱B╱ // 0xcc8 @0x6
0x0cc2…0ce4 at0007 = ╱eb╱;╱ // 0xcc9 @0x7
0x0cc2…0ce4 at0008 = ╱54╱T╱ // 0xcca @0x8
0x0cc2…0ce4 at0009 = ╱45╱E╱ // 0xccb @0x9
0x0cc2…0ce4 at000a = ╱53╱S╱ // 0xccc @0xa
0x0cc2…0ce4 at000b = ╱54╱T╱ // 0xccd @0xb
0x0cc2…0ce4 at000c = ╱32╱2╱ // 0xcce @0xc
0x0cc2…0ce4 at000d = ╱dc╱=╱ // 0xccf @0xd
0x0cc2…0ce4 at000e = ╱42╱B╱ // 0xcd0 @0xe
0x0cc2…0ce4 at000f = ╱eb╱;╱ // 0xcd1 @0xf
0x0cc2…0ce4 at0010 = ╱4b╱K╱ // 0xcd2 @0x10
0x0cc2…0ce4 at0011 = ╱54╱T╱ // 0xcd3 @0x11
0x0cc2…0ce4 at0012 = ╱41╱A╱ // 0xcd4 @0x12
0x0cc2…0ce4 at0013 = ╱4c╱L╱ // 0xcd5 @0x13
0x0cc2…0ce4 at0014 = ╱dc╱=╱ // 0xcd6 @0x14
0x0cc2…0ce4 at0015 = ╱42╱B╱ // 0xcd7 @0x15
0x0cc2…0ce4 at0016 = ╱eb╱;╱ // 0xcd8 @0x16
0x0cc2…0ce4 at0017 = ╱4c╱L╱ // 0xcd9 @0x17
0x0cc2…0ce4 at0018 = ╱dc╱=╱ // 0xcda @0x18
0x0cc2…0ce4 at0019 = ╱cc╱LEN╱ // 0xcdb @0x19
0x0cc2…0ce4 at001a = ╱ed╱(╱ // 0xcdc @0x1a
0x0cc2…0ce4 at001b = ╱4e╱N╱ // 0xcdd @0x1b
0x0cc2…0ce4 at001c = ╱55╱U╱ // 0xcde @0x1c
0x0cc2…0ce4 at001d = ╱4d╱M╱ // 0xcdf @0x1d
0x0cc2…0ce4 at001e = ╱31╱1╱ // 0xce0 @0x1e
0x0cc2…0ce4 at001f = ╱ef╱$╱ // 0xce1 @0x1f
0x0cc2…0ce4 at0020 = ╱ee╱)╱ // 0xce2 @0x20
0x0cc2…0ce4 at0021 = EOL // 0xce3 @0x21
0x0cc2…0ce4 }
0x0ce4…0cf4 9a4b 1090 IF L>6 THEN EXIT
0x0ce4…0cf4 LineComalBin {
0x0ce4…0cf4 ptr = 0x9a4b // 0xce4 @0x0
0x0ce4…0cf4 lno = 0x0442 // 0xce6 @0x2
0x0ce4…0cf4 at0004 = ╱82╱ IF ╱ // 0xce8 @0x4
0x0ce4…0cf4 at0005 = ╱4c╱L╱ // 0xce9 @0x5
0x0ce4…0cf4 at0006 = ╱de╱>╱ // 0xcea @0x6
0x0ce4…0cf4 at0007 = ╱36╱6╱ // 0xceb @0x7
0x0ce4…0cf4 at0008 = ╱fe0000c003╱ // 0xcec @0x8
0x0ce4…0cf4 at000d = ╱b6╱ THEN ╱ // 0xcf1 @0xd
0x0ce4…0cf4 at000e = ╱99╱ EXIT ╱ // 0xcf2 @0xe
0x0ce4…0cf4 at000f = EOL // 0xcf3 @0xf
0x0ce4…0cf4 }
0x0cf4…0cfd 9a54 1100 CASE L OF
0x0cf4…0cfd LineComalBin {
0x0cf4…0cfd ptr = 0x9a54 // 0xcf4 @0x0
0x0cf4…0cfd lno = 0x044c // 0xcf6 @0x2
0x0cf4…0cfd at0004 = ╱a201╱ CASE ╱ // 0xcf8 @0x4
0x0cf4…0cfd at0006 = ╱4c╱L╱ // 0xcfa @0x6
0x0cf4…0cfd at0007 = ╱ba╱ OF ╱ // 0xcfb @0x7
0x0cf4…0cfd at0008 = EOL // 0xcfc @0x8
0x0cf4…0cfd }
0x0cfd…0d08 9a5f 1110 FOR I=E TO L
0x0cfd…0d08 LineComalBin {
0x0cfd…0d08 ptr = 0x9a5f // 0xcfd @0x0
0x0cfd…0d08 lno = 0x0456 // 0xcff @0x2
0x0cfd…0d08 at0004 = ╱83╱ FOR ╱ // 0xd01 @0x4
0x0cfd…0d08 at0005 = ╱49╱I╱ // 0xd02 @0x5
0x0cfd…0d08 at0006 = ╱dc╱=╱ // 0xd03 @0x6
0x0cfd…0d08 at0007 = ╱45╱E╱ // 0xd04 @0x7
0x0cfd…0d08 at0008 = ╱b7╱ TO ╱ // 0xd05 @0x8
0x0cfd…0d08 at0009 = ╱4c╱L╱ // 0xd06 @0x9
0x0cfd…0d08 at000a = EOL // 0xd07 @0xa
0x0cfd…0d08 }
0x0d08…0d26 9a7d 1120 P1=INT(ORD(NUM1$(I))-48)
0x0d08…0d26 LineComalBin {
0x0d08…0d26 ptr = 0x9a7d // 0xd08 @0x0
0x0d08…0d26 lno = 0x0460 // 0xd0a @0x2
0x0d08…0d26 at0004 = ╱50╱P╱ // 0xd0c @0x4
0x0d08…0d26 at0005 = ╱31╱1╱ // 0xd0d @0x5
0x0d08…0d26 at0006 = ╱dc╱=╱ // 0xd0e @0x6
0x0d08…0d26 at0007 = ╱c6╱INT╱ // 0xd0f @0x7
0x0d08…0d26 at0008 = ╱ed╱(╱ // 0xd10 @0x8
0x0d08…0d26 at0009 = ╱cd╱ORD╱ // 0xd11 @0x9
0x0d08…0d26 at000a = ╱ed╱(╱ // 0xd12 @0xa
0x0d08…0d26 at000b = ╱4e╱N╱ // 0xd13 @0xb
0x0d08…0d26 at000c = ╱55╱U╱ // 0xd14 @0xc
0x0d08…0d26 at000d = ╱4d╱M╱ // 0xd15 @0xd
0x0d08…0d26 at000e = ╱31╱1╱ // 0xd16 @0xe
0x0d08…0d26 at000f = ╱ef╱$╱ // 0xd17 @0xf
0x0d08…0d26 at0010 = ╱ed╱(╱ // 0xd18 @0x10
0x0d08…0d26 at0011 = ╱49╱I╱ // 0xd19 @0x11
0x0d08…0d26 at0012 = ╱ee╱)╱ // 0xd1a @0x12
0x0d08…0d26 at0013 = ╱ee╱)╱ // 0xd1b @0x13
0x0d08…0d26 at0014 = ╱e3╱-╱ // 0xd1c @0x14
0x0d08…0d26 at0015 = ╱34╱4╱ // 0xd1d @0x15
0x0d08…0d26 at0016 = ╱38╱8╱ // 0xd1e @0x16
0x0d08…0d26 at0017 = ╱fe0000c006╱ // 0xd1f @0x17
0x0d08…0d26 at001c = ╱ee╱)╱ // 0xd24 @0x1c
0x0d08…0d26 at001d = EOL // 0xd25 @0x1d
0x0d08…0d26 }
0x0d26…0d3d 9a94 1130 IF P1<B OR P1>W THEN TEST2=E
0x0d26…0d3d LineComalBin {
0x0d26…0d3d ptr = 0x9a94 // 0xd26 @0x0
0x0d26…0d3d lno = 0x046a // 0xd28 @0x2
0x0d26…0d3d at0004 = ╱82╱ IF ╱ // 0xd2a @0x4
0x0d26…0d3d at0005 = ╱50╱P╱ // 0xd2b @0x5
0x0d26…0d3d at0006 = ╱31╱1╱ // 0xd2c @0x6
0x0d26…0d3d at0007 = ╱dd╱<╱ // 0xd2d @0x7
0x0d26…0d3d at0008 = ╱42╱B╱ // 0xd2e @0x8
0x0d26…0d3d at0009 = ╱db╱ OR ╱ // 0xd2f @0x9
0x0d26…0d3d at000a = ╱50╱P╱ // 0xd30 @0xa
0x0d26…0d3d at000b = ╱31╱1╱ // 0xd31 @0xb
0x0d26…0d3d at000c = ╱de╱>╱ // 0xd32 @0xc
0x0d26…0d3d at000d = ╱57╱W╱ // 0xd33 @0xd
0x0d26…0d3d at000e = ╱b6╱ THEN ╱ // 0xd34 @0xe
0x0d26…0d3d at000f = ╱54╱T╱ // 0xd35 @0xf
0x0d26…0d3d at0010 = ╱45╱E╱ // 0xd36 @0x10
0x0d26…0d3d at0011 = ╱53╱S╱ // 0xd37 @0x11
0x0d26…0d3d at0012 = ╱54╱T╱ // 0xd38 @0x12
0x0d26…0d3d at0013 = ╱32╱2╱ // 0xd39 @0x13
0x0d26…0d3d at0014 = ╱dc╱=╱ // 0xd3a @0x14
0x0d26…0d3d at0015 = ╱45╱E╱ // 0xd3b @0x15
0x0d26…0d3d at0016 = EOL // 0xd3c @0x16
0x0d26…0d3d }
0x0d3d…0d50 9aa7 1140 P=P*10+P1
0x0d3d…0d50 LineComalBin {
0x0d3d…0d50 ptr = 0x9aa7 // 0xd3d @0x0
0x0d3d…0d50 lno = 0x0474 // 0xd3f @0x2
0x0d3d…0d50 at0004 = ╱50╱P╱ // 0xd41 @0x4
0x0d3d…0d50 at0005 = ╱dc╱=╱ // 0xd42 @0x5
0x0d3d…0d50 at0006 = ╱50╱P╱ // 0xd43 @0x6
0x0d3d…0d50 at0007 = ╱e4╱*╱ // 0xd44 @0x7
0x0d3d…0d50 at0008 = ╱31╱1╱ // 0xd45 @0x8
0x0d3d…0d50 at0009 = ╱30╱0╱ // 0xd46 @0x9
0x0d3d…0d50 at000a = ╱fe0000a004╱ // 0xd47 @0xa
0x0d3d…0d50 at000f = ╱e2╱+╱ // 0xd4c @0xf
0x0d3d…0d50 at0010 = ╱50╱P╱ // 0xd4d @0x10
0x0d3d…0d50 at0011 = ╱31╱1╱ // 0xd4e @0x11
0x0d3d…0d50 at0012 = EOL // 0xd4f @0x12
0x0d3d…0d50 }
0x0d50…0d57 9aae 1150 NEXT I
0x0d50…0d57 LineComalBin {
0x0d50…0d57 ptr = 0x9aae // 0xd50 @0x0
0x0d50…0d57 lno = 0x047e // 0xd52 @0x2
0x0d50…0d57 at0004 = ╱84╱ NEXT ╱ // 0xd54 @0x4
0x0d50…0d57 at0005 = ╱49╱I╱ // 0xd55 @0x5
0x0d50…0d57 at0006 = EOL // 0xd56 @0x6
0x0d50…0d57 }
0x0d57…0d6d 9ac4 1160 KTAL=P DIV 10000
0x0d57…0d6d LineComalBin {
0x0d57…0d6d ptr = 0x9ac4 // 0xd57 @0x0
0x0d57…0d6d lno = 0x0488 // 0xd59 @0x2
0x0d57…0d6d at0004 = ╱4b╱K╱ // 0xd5b @0x4
0x0d57…0d6d at0005 = ╱54╱T╱ // 0xd5c @0x5
0x0d57…0d6d at0006 = ╱41╱A╱ // 0xd5d @0x6
0x0d57…0d6d at0007 = ╱4c╱L╱ // 0xd5e @0x7
0x0d57…0d6d at0008 = ╱dc╱=╱ // 0xd5f @0x8
0x0d57…0d6d at0009 = ╱50╱P╱ // 0xd60 @0x9
0x0d57…0d6d at000a = ╱e7╱ DIV ╱ // 0xd61 @0xa
0x0d57…0d6d at000b = ╱31╱1╱ // 0xd62 @0xb
0x0d57…0d6d at000c = ╱30╱0╱ // 0xd63 @0xc
0x0d57…0d6d at000d = ╱30╱0╱ // 0xd64 @0xd
0x0d57…0d6d at000e = ╱30╱0╱ // 0xd65 @0xe
0x0d57…0d6d at000f = ╱30╱0╱ // 0xd66 @0xf
0x0d57…0d6d at0010 = ╱fe00409c0e╱ // 0xd67 @0x10
0x0d57…0d6d at0015 = EOL // 0xd6c @0x15
0x0d57…0d6d }
0x0d6d…0d75 9acc 1170 WHEN B
0x0d6d…0d75 LineComalBin {
0x0d6d…0d75 ptr = 0x9acc // 0xd6d @0x0
0x0d6d…0d75 lno = 0x0492 // 0xd6f @0x2
0x0d6d…0d75 at0004 = ╱a301╱ WHEN ╱ // 0xd71 @0x4
0x0d6d…0d75 at0006 = ╱42╱B╱ // 0xd73 @0x6
0x0d6d…0d75 at0007 = EOL // 0xd74 @0x7
0x0d6d…0d75 }
0x0d75…0d7e 9ad5 1180 P=-E
0x0d75…0d7e LineComalBin {
0x0d75…0d7e ptr = 0x9ad5 // 0xd75 @0x0
0x0d75…0d7e lno = 0x049c // 0xd77 @0x2
0x0d75…0d7e at0004 = ╱50╱P╱ // 0xd79 @0x4
0x0d75…0d7e at0005 = ╱dc╱=╱ // 0xd7a @0x5
0x0d75…0d7e at0006 = ╱e9╱-╱ // 0xd7b @0x6
0x0d75…0d7e at0007 = ╱45╱E╱ // 0xd7c @0x7
0x0d75…0d7e at0008 = EOL // 0xd7d @0x8
0x0d75…0d7e }
0x0d7e…0d86 9add 1190 WHEN E
0x0d7e…0d86 LineComalBin {
0x0d7e…0d86 ptr = 0x9add // 0xd7e @0x0
0x0d7e…0d86 lno = 0x04a6 // 0xd80 @0x2
0x0d7e…0d86 at0004 = ╱a301╱ WHEN ╱ // 0xd82 @0x4
0x0d7e…0d86 at0006 = ╱45╱E╱ // 0xd84 @0x6
0x0d7e…0d86 at0007 = EOL // 0xd85 @0x7
0x0d7e…0d86 }
0x0d86…0d93 9aea 1200 CASE NUM1$ OF
0x0d86…0d93 LineComalBin {
0x0d86…0d93 ptr = 0x9aea // 0xd86 @0x0
0x0d86…0d93 lno = 0x04b0 // 0xd88 @0x2
0x0d86…0d93 at0004 = ╱a200╱ CASE ╱ // 0xd8a @0x4
0x0d86…0d93 at0006 = ╱4e╱N╱ // 0xd8c @0x6
0x0d86…0d93 at0007 = ╱55╱U╱ // 0xd8d @0x7
0x0d86…0d93 at0008 = ╱4d╱M╱ // 0xd8e @0x8
0x0d86…0d93 at0009 = ╱31╱1╱ // 0xd8f @0x9
0x0d86…0d93 at000a = ╱ef╱$╱ // 0xd90 @0xa
0x0d86…0d93 at000b = ╱ba╱ OF ╱ // 0xd91 @0xb
0x0d86…0d93 at000c = EOL // 0xd92 @0xc
0x0d86…0d93 }
0x0d93…0dad 9b04 1210 P=INT(ORD(NUM1$)-48)
0x0d93…0dad LineComalBin {
0x0d93…0dad ptr = 0x9b04 // 0xd93 @0x0
0x0d93…0dad lno = 0x04ba // 0xd95 @0x2
0x0d93…0dad at0004 = ╱50╱P╱ // 0xd97 @0x4
0x0d93…0dad at0005 = ╱dc╱=╱ // 0xd98 @0x5
0x0d93…0dad at0006 = ╱c6╱INT╱ // 0xd99 @0x6
0x0d93…0dad at0007 = ╱ed╱(╱ // 0xd9a @0x7
0x0d93…0dad at0008 = ╱cd╱ORD╱ // 0xd9b @0x8
0x0d93…0dad at0009 = ╱ed╱(╱ // 0xd9c @0x9
0x0d93…0dad at000a = ╱4e╱N╱ // 0xd9d @0xa
0x0d93…0dad at000b = ╱55╱U╱ // 0xd9e @0xb
0x0d93…0dad at000c = ╱4d╱M╱ // 0xd9f @0xc
0x0d93…0dad at000d = ╱31╱1╱ // 0xda0 @0xd
0x0d93…0dad at000e = ╱ef╱$╱ // 0xda1 @0xe
0x0d93…0dad at000f = ╱ee╱)╱ // 0xda2 @0xf
0x0d93…0dad at0010 = ╱e3╱-╱ // 0xda3 @0x10
0x0d93…0dad at0011 = ╱34╱4╱ // 0xda4 @0x11
0x0d93…0dad at0012 = ╱38╱8╱ // 0xda5 @0x12
0x0d93…0dad at0013 = ╱fe0000c006╱ // 0xda6 @0x13
0x0d93…0dad at0018 = ╱ee╱)╱ // 0xdab @0x18
0x0d93…0dad at0019 = EOL // 0xdac @0x19
0x0d93…0dad }
0x0dad…0dbb 9b12 1220 WHEN "D","d"
0x0dad…0dbb LineComalBin {
0x0dad…0dbb ptr = 0x9b12 // 0xdad @0x0
0x0dad…0dbb lno = 0x04c4 // 0xdaf @0x2
0x0dad…0dbb at0004 = ╱a300╱ WHEN ╱ // 0xdb1 @0x4
0x0dad…0dbb at0006 = ╱22╱"╱ // 0xdb3 @0x6
0x0dad…0dbb at0007 = ╱44╱D╱ // 0xdb4 @0x7
0x0dad…0dbb at0008 = ╱22╱"╱ // 0xdb5 @0x8
0x0dad…0dbb at0009 = ╱ec╱,╱ // 0xdb6 @0x9
0x0dad…0dbb at000a = ╱22╱"╱ // 0xdb7 @0xa
0x0dad…0dbb at000b = ╱64╱d╱ // 0xdb8 @0xb
0x0dad…0dbb at000c = ╱22╱"╱ // 0xdb9 @0xc
0x0dad…0dbb at000d = EOL // 0xdba @0xd
0x0dad…0dbb }
0x0dbb…0dc4 9b1b 1230 P=-G
0x0dbb…0dc4 LineComalBin {
0x0dbb…0dc4 ptr = 0x9b1b // 0xdbb @0x0
0x0dbb…0dc4 lno = 0x04ce // 0xdbd @0x2
0x0dbb…0dc4 at0004 = ╱50╱P╱ // 0xdbf @0x4
0x0dbb…0dc4 at0005 = ╱dc╱=╱ // 0xdc0 @0x5
0x0dbb…0dc4 at0006 = ╱e9╱-╱ // 0xdc1 @0x6
0x0dbb…0dc4 at0007 = ╱47╱G╱ // 0xdc2 @0x7
0x0dbb…0dc4 at0008 = EOL // 0xdc3 @0x8
0x0dbb…0dc4 }
0x0dc4…0dd2 9b29 1240 WHEN "A","a"
0x0dc4…0dd2 LineComalBin {
0x0dc4…0dd2 ptr = 0x9b29 // 0xdc4 @0x0
0x0dc4…0dd2 lno = 0x04d8 // 0xdc6 @0x2
0x0dc4…0dd2 at0004 = ╱a300╱ WHEN ╱ // 0xdc8 @0x4
0x0dc4…0dd2 at0006 = ╱22╱"╱ // 0xdca @0x6
0x0dc4…0dd2 at0007 = ╱41╱A╱ // 0xdcb @0x7
0x0dc4…0dd2 at0008 = ╱22╱"╱ // 0xdcc @0x8
0x0dc4…0dd2 at0009 = ╱ec╱,╱ // 0xdcd @0x9
0x0dc4…0dd2 at000a = ╱22╱"╱ // 0xdce @0xa
0x0dc4…0dd2 at000b = ╱61╱a╱ // 0xdcf @0xb
0x0dc4…0dd2 at000c = ╱22╱"╱ // 0xdd0 @0xc
0x0dc4…0dd2 at000d = EOL // 0xdd1 @0xd
0x0dc4…0dd2 }
0x0dd2…0ddb 9b32 1250 P=-V
0x0dd2…0ddb LineComalBin {
0x0dd2…0ddb ptr = 0x9b32 // 0xdd2 @0x0
0x0dd2…0ddb lno = 0x04e2 // 0xdd4 @0x2
0x0dd2…0ddb at0004 = ╱50╱P╱ // 0xdd6 @0x4
0x0dd2…0ddb at0005 = ╱dc╱=╱ // 0xdd7 @0x5
0x0dd2…0ddb at0006 = ╱e9╱-╱ // 0xdd8 @0x6
0x0dd2…0ddb at0007 = ╱56╱V╱ // 0xdd9 @0x7
0x0dd2…0ddb at0008 = EOL // 0xdda @0x8
0x0dd2…0ddb }
0x0ddb…0de9 9b40 1260 WHEN "M","m"
0x0ddb…0de9 LineComalBin {
0x0ddb…0de9 ptr = 0x9b40 // 0xddb @0x0
0x0ddb…0de9 lno = 0x04ec // 0xddd @0x2
0x0ddb…0de9 at0004 = ╱a300╱ WHEN ╱ // 0xddf @0x4
0x0ddb…0de9 at0006 = ╱22╱"╱ // 0xde1 @0x6
0x0ddb…0de9 at0007 = ╱4d╱M╱ // 0xde2 @0x7
0x0ddb…0de9 at0008 = ╱22╱"╱ // 0xde3 @0x8
0x0ddb…0de9 at0009 = ╱ec╱,╱ // 0xde4 @0x9
0x0ddb…0de9 at000a = ╱22╱"╱ // 0xde5 @0xa
0x0ddb…0de9 at000b = ╱6d╱m╱ // 0xde6 @0xb
0x0ddb…0de9 at000c = ╱22╱"╱ // 0xde7 @0xc
0x0ddb…0de9 at000d = EOL // 0xde8 @0xd
0x0ddb…0de9 }
0x0de9…0df7 9b4e 1270 P=-4
0x0de9…0df7 LineComalBin {
0x0de9…0df7 ptr = 0x9b4e // 0xde9 @0x0
0x0de9…0df7 lno = 0x04f6 // 0xdeb @0x2
0x0de9…0df7 at0004 = ╱50╱P╱ // 0xded @0x4
0x0de9…0df7 at0005 = ╱dc╱=╱ // 0xdee @0x5
0x0de9…0df7 at0006 = ╱e9╱-╱ // 0xdef @0x6
0x0de9…0df7 at0007 = ╱34╱4╱ // 0xdf0 @0x7
0x0de9…0df7 at0008 = ╱fe00008003╱ // 0xdf1 @0x8
0x0de9…0df7 at000d = EOL // 0xdf6 @0xd
0x0de9…0df7 }
0x0df7…0e05 9b5c 1280 WHEN "J","j"
0x0df7…0e05 LineComalBin {
0x0df7…0e05 ptr = 0x9b5c // 0xdf7 @0x0
0x0df7…0e05 lno = 0x0500 // 0xdf9 @0x2
0x0df7…0e05 at0004 = ╱a300╱ WHEN ╱ // 0xdfb @0x4
0x0df7…0e05 at0006 = ╱22╱"╱ // 0xdfd @0x6
0x0df7…0e05 at0007 = ╱4a╱J╱ // 0xdfe @0x7
0x0df7…0e05 at0008 = ╱22╱"╱ // 0xdff @0x8
0x0df7…0e05 at0009 = ╱ec╱,╱ // 0xe00 @0x9
0x0df7…0e05 at000a = ╱22╱"╱ // 0xe01 @0xa
0x0df7…0e05 at000b = ╱6a╱j╱ // 0xe02 @0xb
0x0df7…0e05 at000c = ╱22╱"╱ // 0xe03 @0xc
0x0df7…0e05 at000d = EOL // 0xe04 @0xd
0x0df7…0e05 }
0x0e05…0e13 9b6a 1290 P=-7
0x0e05…0e13 LineComalBin {
0x0e05…0e13 ptr = 0x9b6a // 0xe05 @0x0
0x0e05…0e13 lno = 0x050a // 0xe07 @0x2
0x0e05…0e13 at0004 = ╱50╱P╱ // 0xe09 @0x4
0x0e05…0e13 at0005 = ╱dc╱=╱ // 0xe0a @0x5
0x0e05…0e13 at0006 = ╱e9╱-╱ // 0xe0b @0x6
0x0e05…0e13 at0007 = ╱37╱7╱ // 0xe0c @0x7
0x0e05…0e13 at0008 = ╱fe0000e003╱ // 0xe0d @0x8
0x0e05…0e13 at000d = EOL // 0xe12 @0xd
0x0e05…0e13 }
0x0e13…0e21 9b78 1300 WHEN "N","n"
0x0e13…0e21 LineComalBin {
0x0e13…0e21 ptr = 0x9b78 // 0xe13 @0x0
0x0e13…0e21 lno = 0x0514 // 0xe15 @0x2
0x0e13…0e21 at0004 = ╱a300╱ WHEN ╱ // 0xe17 @0x4
0x0e13…0e21 at0006 = ╱22╱"╱ // 0xe19 @0x6
0x0e13…0e21 at0007 = ╱4e╱N╱ // 0xe1a @0x7
0x0e13…0e21 at0008 = ╱22╱"╱ // 0xe1b @0x8
0x0e13…0e21 at0009 = ╱ec╱,╱ // 0xe1c @0x9
0x0e13…0e21 at000a = ╱22╱"╱ // 0xe1d @0xa
0x0e13…0e21 at000b = ╱6e╱n╱ // 0xe1e @0xb
0x0e13…0e21 at000c = ╱22╱"╱ // 0xe1f @0xc
0x0e13…0e21 at000d = EOL // 0xe20 @0xd
0x0e13…0e21 }
0x0e21…0e2f 9b86 1310 P=-8
0x0e21…0e2f LineComalBin {
0x0e21…0e2f ptr = 0x9b86 // 0xe21 @0x0
0x0e21…0e2f lno = 0x051e // 0xe23 @0x2
0x0e21…0e2f at0004 = ╱50╱P╱ // 0xe25 @0x4
0x0e21…0e2f at0005 = ╱dc╱=╱ // 0xe26 @0x5
0x0e21…0e2f at0006 = ╱e9╱-╱ // 0xe27 @0x6
0x0e21…0e2f at0007 = ╱38╱8╱ // 0xe28 @0x7
0x0e21…0e2f at0008 = ╱fe00008004╱ // 0xe29 @0x8
0x0e21…0e2f at000d = EOL // 0xe2e @0xd
0x0e21…0e2f }
0x0e2f…0e35 9b8c 1320 ENDCASE
0x0e2f…0e35 LineComalBin {
0x0e2f…0e35 ptr = 0x9b8c // 0xe2f @0x0
0x0e2f…0e35 lno = 0x0528 // 0xe31 @0x2
0x0e2f…0e35 at0004 = ╱a4╱ ENDCASE ╱ // 0xe33 @0x4
0x0e2f…0e35 at0005 = EOL // 0xe34 @0x5
0x0e2f…0e35 }
0x0e35…0e3b 9b92 1330 ENDCASE
0x0e35…0e3b LineComalBin {
0x0e35…0e3b ptr = 0x9b92 // 0xe35 @0x0
0x0e35…0e3b lno = 0x0532 // 0xe37 @0x2
0x0e35…0e3b at0004 = ╱a4╱ ENDCASE ╱ // 0xe39 @0x4
0x0e35…0e3b at0005 = EOL // 0xe3a @0x5
0x0e35…0e3b }
0x0e3b…0e41 9b98 1340 ENDPROC
0x0e3b…0e41 LineComalBin {
0x0e3b…0e41 ptr = 0x9b98 // 0xe3b @0x0
0x0e3b…0e41 lno = 0x053c // 0xe3d @0x2
0x0e3b…0e41 at0004 = ╱9f╱ ENDPROC ╱ // 0xe3f @0x4
0x0e3b…0e41 at0005 = EOL // 0xe40 @0x5
0x0e3b…0e41 }
0x0e41…0e68 9bbf 1350 PROC FINDPOST2(TAB5,MANT8,NØGL6,PIL10)
0x0e41…0e68 LineComalBin {
0x0e41…0e68 ptr = 0x9bbf // 0xe41 @0x0
0x0e41…0e68 lno = 0x0546 // 0xe43 @0x2
0x0e41…0e68 at0004 = ╱9e╱ PROC ╱ // 0xe45 @0x4
0x0e41…0e68 at0005 = ╱46╱F╱ // 0xe46 @0x5
0x0e41…0e68 at0006 = ╱49╱I╱ // 0xe47 @0x6
0x0e41…0e68 at0007 = ╱4e╱N╱ // 0xe48 @0x7
0x0e41…0e68 at0008 = ╱44╱D╱ // 0xe49 @0x8
0x0e41…0e68 at0009 = ╱50╱P╱ // 0xe4a @0x9
0x0e41…0e68 at000a = ╱4f╱O╱ // 0xe4b @0xa
0x0e41…0e68 at000b = ╱53╱S╱ // 0xe4c @0xb
0x0e41…0e68 at000c = ╱54╱T╱ // 0xe4d @0xc
0x0e41…0e68 at000d = ╱32╱2╱ // 0xe4e @0xd
0x0e41…0e68 at000e = ╱ed╱(╱ // 0xe4f @0xe
0x0e41…0e68 at000f = ╱54╱T╱ // 0xe50 @0xf
0x0e41…0e68 at0010 = ╱41╱A╱ // 0xe51 @0x10
0x0e41…0e68 at0011 = ╱42╱B╱ // 0xe52 @0x11
0x0e41…0e68 at0012 = ╱35╱5╱ // 0xe53 @0x12
0x0e41…0e68 at0013 = ╱ec╱,╱ // 0xe54 @0x13
0x0e41…0e68 at0014 = ╱4d╱M╱ // 0xe55 @0x14
0x0e41…0e68 at0015 = ╱41╱A╱ // 0xe56 @0x15
0x0e41…0e68 at0016 = ╱4e╱N╱ // 0xe57 @0x16
0x0e41…0e68 at0017 = ╱54╱T╱ // 0xe58 @0x17
0x0e41…0e68 at0018 = ╱38╱8╱ // 0xe59 @0x18
0x0e41…0e68 at0019 = ╱ec╱,╱ // 0xe5a @0x19
0x0e41…0e68 at001a = ╱4e╱N╱ // 0xe5b @0x1a
0x0e41…0e68 at001b = ╱5c╱Ø╱ // 0xe5c @0x1b
0x0e41…0e68 at001c = ╱47╱G╱ // 0xe5d @0x1c
0x0e41…0e68 at001d = ╱4c╱L╱ // 0xe5e @0x1d
0x0e41…0e68 at001e = ╱36╱6╱ // 0xe5f @0x1e
0x0e41…0e68 at001f = ╱ec╱,╱ // 0xe60 @0x1f
0x0e41…0e68 at0020 = ╱50╱P╱ // 0xe61 @0x20
0x0e41…0e68 at0021 = ╱49╱I╱ // 0xe62 @0x21
0x0e41…0e68 at0022 = ╱4c╱L╱ // 0xe63 @0x22
0x0e41…0e68 at0023 = ╱31╱1╱ // 0xe64 @0x23
0x0e41…0e68 at0024 = ╱30╱0╱ // 0xe65 @0x24
0x0e41…0e68 at0025 = ╱ee╱)╱ // 0xe66 @0x25
0x0e41…0e68 at0026 = EOL // 0xe67 @0x26
0x0e41…0e68 }
0x0e68…0eb0 9c07 1360 PIL1=MANT8 DIV 8;PIL10=PIL1;MANT3=MANT8 DIV 4;MANT4=MANT8 DIV 32
0x0e68…0eb0 LineComalBin {
0x0e68…0eb0 ptr = 0x9c07 // 0xe68 @0x0
0x0e68…0eb0 lno = 0x0550 // 0xe6a @0x2
0x0e68…0eb0 at0004 = ╱50╱P╱ // 0xe6c @0x4
0x0e68…0eb0 at0005 = ╱49╱I╱ // 0xe6d @0x5
0x0e68…0eb0 at0006 = ╱4c╱L╱ // 0xe6e @0x6
0x0e68…0eb0 at0007 = ╱31╱1╱ // 0xe6f @0x7
0x0e68…0eb0 at0008 = ╱dc╱=╱ // 0xe70 @0x8
0x0e68…0eb0 at0009 = ╱4d╱M╱ // 0xe71 @0x9
0x0e68…0eb0 at000a = ╱41╱A╱ // 0xe72 @0xa
0x0e68…0eb0 at000b = ╱4e╱N╱ // 0xe73 @0xb
0x0e68…0eb0 at000c = ╱54╱T╱ // 0xe74 @0xc
0x0e68…0eb0 at000d = ╱38╱8╱ // 0xe75 @0xd
0x0e68…0eb0 at000e = ╱e7╱ DIV ╱ // 0xe76 @0xe
0x0e68…0eb0 at000f = ╱38╱8╱ // 0xe77 @0xf
0x0e68…0eb0 at0010 = ╱fe00008004╱ // 0xe78 @0x10
0x0e68…0eb0 at0015 = ╱eb╱;╱ // 0xe7d @0x15
0x0e68…0eb0 at0016 = ╱50╱P╱ // 0xe7e @0x16
0x0e68…0eb0 at0017 = ╱49╱I╱ // 0xe7f @0x17
0x0e68…0eb0 at0018 = ╱4c╱L╱ // 0xe80 @0x18
0x0e68…0eb0 at0019 = ╱31╱1╱ // 0xe81 @0x19
0x0e68…0eb0 at001a = ╱30╱0╱ // 0xe82 @0x1a
0x0e68…0eb0 at001b = ╱dc╱=╱ // 0xe83 @0x1b
0x0e68…0eb0 at001c = ╱50╱P╱ // 0xe84 @0x1c
0x0e68…0eb0 at001d = ╱49╱I╱ // 0xe85 @0x1d
0x0e68…0eb0 at001e = ╱4c╱L╱ // 0xe86 @0x1e
0x0e68…0eb0 at001f = ╱31╱1╱ // 0xe87 @0x1f
0x0e68…0eb0 at0020 = ╱eb╱;╱ // 0xe88 @0x20
0x0e68…0eb0 at0021 = ╱4d╱M╱ // 0xe89 @0x21
0x0e68…0eb0 at0022 = ╱41╱A╱ // 0xe8a @0x22
0x0e68…0eb0 at0023 = ╱4e╱N╱ // 0xe8b @0x23
0x0e68…0eb0 at0024 = ╱54╱T╱ // 0xe8c @0x24
0x0e68…0eb0 at0025 = ╱33╱3╱ // 0xe8d @0x25
0x0e68…0eb0 at0026 = ╱dc╱=╱ // 0xe8e @0x26
0x0e68…0eb0 at0027 = ╱4d╱M╱ // 0xe8f @0x27
0x0e68…0eb0 at0028 = ╱41╱A╱ // 0xe90 @0x28
0x0e68…0eb0 at0029 = ╱4e╱N╱ // 0xe91 @0x29
0x0e68…0eb0 at002a = ╱54╱T╱ // 0xe92 @0x2a
0x0e68…0eb0 at002b = ╱38╱8╱ // 0xe93 @0x2b
0x0e68…0eb0 at002c = ╱e7╱ DIV ╱ // 0xe94 @0x2c
0x0e68…0eb0 at002d = ╱34╱4╱ // 0xe95 @0x2d
0x0e68…0eb0 at002e = ╱fe00008003╱ // 0xe96 @0x2e
0x0e68…0eb0 at0033 = ╱eb╱;╱ // 0xe9b @0x33
0x0e68…0eb0 at0034 = ╱4d╱M╱ // 0xe9c @0x34
0x0e68…0eb0 at0035 = ╱41╱A╱ // 0xe9d @0x35
0x0e68…0eb0 at0036 = ╱4e╱N╱ // 0xe9e @0x36
0x0e68…0eb0 at0037 = ╱54╱T╱ // 0xe9f @0x37
0x0e68…0eb0 at0038 = ╱34╱4╱ // 0xea0 @0x38
0x0e68…0eb0 at0039 = ╱dc╱=╱ // 0xea1 @0x39
0x0e68…0eb0 at003a = ╱4d╱M╱ // 0xea2 @0x3a
0x0e68…0eb0 at003b = ╱41╱A╱ // 0xea3 @0x3b
0x0e68…0eb0 at003c = ╱4e╱N╱ // 0xea4 @0x3c
0x0e68…0eb0 at003d = ╱54╱T╱ // 0xea5 @0x3d
0x0e68…0eb0 at003e = ╱38╱8╱ // 0xea6 @0x3e
0x0e68…0eb0 at003f = ╱e7╱ DIV ╱ // 0xea7 @0x3f
0x0e68…0eb0 at0040 = ╱33╱3╱ // 0xea8 @0x40
0x0e68…0eb0 at0041 = ╱32╱2╱ // 0xea9 @0x41
0x0e68…0eb0 at0042 = ╱fe00008006╱ // 0xeaa @0x42
0x0e68…0eb0 at0047 = EOL // 0xeaf @0x47
0x0e68…0eb0 }
0x0eb0…0eb6 9c0d 1370 REPEAT
0x0eb0…0eb6 LineComalBin {
0x0eb0…0eb6 ptr = 0x9c0d // 0xeb0 @0x0
0x0eb0…0eb6 lno = 0x055a // 0xeb2 @0x2
0x0eb0…0eb6 at0004 = ╱97╱ REPEAT ╱ // 0xeb4 @0x4
0x0eb0…0eb6 at0005 = EOL // 0xeb5 @0x5
0x0eb0…0eb6 }
0x0eb6…0ed6 9c2d 1380 IF NØGL6=TAB5(PIL10) OR PIL1=E THEN EXIT
0x0eb6…0ed6 LineComalBin {
0x0eb6…0ed6 ptr = 0x9c2d // 0xeb6 @0x0
0x0eb6…0ed6 lno = 0x0564 // 0xeb8 @0x2
0x0eb6…0ed6 at0004 = ╱82╱ IF ╱ // 0xeba @0x4
0x0eb6…0ed6 at0005 = ╱4e╱N╱ // 0xebb @0x5
0x0eb6…0ed6 at0006 = ╱5c╱Ø╱ // 0xebc @0x6
0x0eb6…0ed6 at0007 = ╱47╱G╱ // 0xebd @0x7
0x0eb6…0ed6 at0008 = ╱4c╱L╱ // 0xebe @0x8
0x0eb6…0ed6 at0009 = ╱36╱6╱ // 0xebf @0x9
0x0eb6…0ed6 at000a = ╱dc╱=╱ // 0xec0 @0xa
0x0eb6…0ed6 at000b = ╱54╱T╱ // 0xec1 @0xb
0x0eb6…0ed6 at000c = ╱41╱A╱ // 0xec2 @0xc
0x0eb6…0ed6 at000d = ╱42╱B╱ // 0xec3 @0xd
0x0eb6…0ed6 at000e = ╱35╱5╱ // 0xec4 @0xe
0x0eb6…0ed6 at000f = ╱ed╱(╱ // 0xec5 @0xf
0x0eb6…0ed6 at0010 = ╱50╱P╱ // 0xec6 @0x10
0x0eb6…0ed6 at0011 = ╱49╱I╱ // 0xec7 @0x11
0x0eb6…0ed6 at0012 = ╱4c╱L╱ // 0xec8 @0x12
0x0eb6…0ed6 at0013 = ╱31╱1╱ // 0xec9 @0x13
0x0eb6…0ed6 at0014 = ╱30╱0╱ // 0xeca @0x14
0x0eb6…0ed6 at0015 = ╱ee╱)╱ // 0xecb @0x15
0x0eb6…0ed6 at0016 = ╱db╱ OR ╱ // 0xecc @0x16
0x0eb6…0ed6 at0017 = ╱50╱P╱ // 0xecd @0x17
0x0eb6…0ed6 at0018 = ╱49╱I╱ // 0xece @0x18
0x0eb6…0ed6 at0019 = ╱4c╱L╱ // 0xecf @0x19
0x0eb6…0ed6 at001a = ╱31╱1╱ // 0xed0 @0x1a
0x0eb6…0ed6 at001b = ╱dc╱=╱ // 0xed1 @0x1b
0x0eb6…0ed6 at001c = ╱45╱E╱ // 0xed2 @0x1c
0x0eb6…0ed6 at001d = ╱b6╱ THEN ╱ // 0xed3 @0x1d
0x0eb6…0ed6 at001e = ╱99╱ EXIT ╱ // 0xed4 @0x1e
0x0eb6…0ed6 at001f = EOL // 0xed5 @0x1f
0x0eb6…0ed6 }
0x0ed6…0f15 9c6c 1390 PIL1=(PIL1+E) DIV G;PIL10=PIL10+PIL1*(E-G*(NØGL6<TAB5(PIL10)))
0x0ed6…0f15 LineComalBin {
0x0ed6…0f15 ptr = 0x9c6c // 0xed6 @0x0
0x0ed6…0f15 lno = 0x056e // 0xed8 @0x2
0x0ed6…0f15 at0004 = ╱50╱P╱ // 0xeda @0x4
0x0ed6…0f15 at0005 = ╱49╱I╱ // 0xedb @0x5
0x0ed6…0f15 at0006 = ╱4c╱L╱ // 0xedc @0x6
0x0ed6…0f15 at0007 = ╱31╱1╱ // 0xedd @0x7
0x0ed6…0f15 at0008 = ╱dc╱=╱ // 0xede @0x8
0x0ed6…0f15 at0009 = ╱ed╱(╱ // 0xedf @0x9
0x0ed6…0f15 at000a = ╱50╱P╱ // 0xee0 @0xa
0x0ed6…0f15 at000b = ╱49╱I╱ // 0xee1 @0xb
0x0ed6…0f15 at000c = ╱4c╱L╱ // 0xee2 @0xc
0x0ed6…0f15 at000d = ╱31╱1╱ // 0xee3 @0xd
0x0ed6…0f15 at000e = ╱e2╱+╱ // 0xee4 @0xe
0x0ed6…0f15 at000f = ╱45╱E╱ // 0xee5 @0xf
0x0ed6…0f15 at0010 = ╱ee╱)╱ // 0xee6 @0x10
0x0ed6…0f15 at0011 = ╱e7╱ DIV ╱ // 0xee7 @0x11
0x0ed6…0f15 at0012 = ╱47╱G╱ // 0xee8 @0x12
0x0ed6…0f15 at0013 = ╱eb╱;╱ // 0xee9 @0x13
0x0ed6…0f15 at0014 = ╱50╱P╱ // 0xeea @0x14
0x0ed6…0f15 at0015 = ╱49╱I╱ // 0xeeb @0x15
0x0ed6…0f15 at0016 = ╱4c╱L╱ // 0xeec @0x16
0x0ed6…0f15 at0017 = ╱31╱1╱ // 0xeed @0x17
0x0ed6…0f15 at0018 = ╱30╱0╱ // 0xeee @0x18
0x0ed6…0f15 at0019 = ╱dc╱=╱ // 0xeef @0x19
0x0ed6…0f15 at001a = ╱50╱P╱ // 0xef0 @0x1a
0x0ed6…0f15 at001b = ╱49╱I╱ // 0xef1 @0x1b
0x0ed6…0f15 at001c = ╱4c╱L╱ // 0xef2 @0x1c
0x0ed6…0f15 at001d = ╱31╱1╱ // 0xef3 @0x1d
0x0ed6…0f15 at001e = ╱30╱0╱ // 0xef4 @0x1e
0x0ed6…0f15 at001f = ╱e2╱+╱ // 0xef5 @0x1f
0x0ed6…0f15 at0020 = ╱50╱P╱ // 0xef6 @0x20
0x0ed6…0f15 at0021 = ╱49╱I╱ // 0xef7 @0x21
0x0ed6…0f15 at0022 = ╱4c╱L╱ // 0xef8 @0x22
0x0ed6…0f15 at0023 = ╱31╱1╱ // 0xef9 @0x23
0x0ed6…0f15 at0024 = ╱e4╱*╱ // 0xefa @0x24
0x0ed6…0f15 at0025 = ╱ed╱(╱ // 0xefb @0x25
0x0ed6…0f15 at0026 = ╱45╱E╱ // 0xefc @0x26
0x0ed6…0f15 at0027 = ╱e3╱-╱ // 0xefd @0x27
0x0ed6…0f15 at0028 = ╱47╱G╱ // 0xefe @0x28
0x0ed6…0f15 at0029 = ╱e4╱*╱ // 0xeff @0x29
0x0ed6…0f15 at002a = ╱ed╱(╱ // 0xf00 @0x2a
0x0ed6…0f15 at002b = ╱4e╱N╱ // 0xf01 @0x2b
0x0ed6…0f15 at002c = ╱5c╱Ø╱ // 0xf02 @0x2c
0x0ed6…0f15 at002d = ╱47╱G╱ // 0xf03 @0x2d
0x0ed6…0f15 at002e = ╱4c╱L╱ // 0xf04 @0x2e
0x0ed6…0f15 at002f = ╱36╱6╱ // 0xf05 @0x2f
0x0ed6…0f15 at0030 = ╱dd╱<╱ // 0xf06 @0x30
0x0ed6…0f15 at0031 = ╱54╱T╱ // 0xf07 @0x31
0x0ed6…0f15 at0032 = ╱41╱A╱ // 0xf08 @0x32
0x0ed6…0f15 at0033 = ╱42╱B╱ // 0xf09 @0x33
0x0ed6…0f15 at0034 = ╱35╱5╱ // 0xf0a @0x34
0x0ed6…0f15 at0035 = ╱ed╱(╱ // 0xf0b @0x35
0x0ed6…0f15 at0036 = ╱50╱P╱ // 0xf0c @0x36
0x0ed6…0f15 at0037 = ╱49╱I╱ // 0xf0d @0x37
0x0ed6…0f15 at0038 = ╱4c╱L╱ // 0xf0e @0x38
0x0ed6…0f15 at0039 = ╱31╱1╱ // 0xf0f @0x39
0x0ed6…0f15 at003a = ╱30╱0╱ // 0xf10 @0x3a
0x0ed6…0f15 at003b = ╱ee╱)╱ // 0xf11 @0x3b
0x0ed6…0f15 at003c = ╱ee╱)╱ // 0xf12 @0x3c
0x0ed6…0f15 at003d = ╱ee╱)╱ // 0xf13 @0x3d
0x0ed6…0f15 at003e = EOL // 0xf14 @0x3e
0x0ed6…0f15 }
0x0f15…0f2a 9c81 1400 IF PIL10<E THEN PIL10=E
0x0f15…0f2a LineComalBin {
0x0f15…0f2a ptr = 0x9c81 // 0xf15 @0x0
0x0f15…0f2a lno = 0x0578 // 0xf17 @0x2
0x0f15…0f2a at0004 = ╱82╱ IF ╱ // 0xf19 @0x4
0x0f15…0f2a at0005 = ╱50╱P╱ // 0xf1a @0x5
0x0f15…0f2a at0006 = ╱49╱I╱ // 0xf1b @0x6
0x0f15…0f2a at0007 = ╱4c╱L╱ // 0xf1c @0x7
0x0f15…0f2a at0008 = ╱31╱1╱ // 0xf1d @0x8
0x0f15…0f2a at0009 = ╱30╱0╱ // 0xf1e @0x9
0x0f15…0f2a at000a = ╱dd╱<╱ // 0xf1f @0xa
0x0f15…0f2a at000b = ╱45╱E╱ // 0xf20 @0xb
0x0f15…0f2a at000c = ╱b6╱ THEN ╱ // 0xf21 @0xc
0x0f15…0f2a at000d = ╱50╱P╱ // 0xf22 @0xd
0x0f15…0f2a at000e = ╱49╱I╱ // 0xf23 @0xe
0x0f15…0f2a at000f = ╱4c╱L╱ // 0xf24 @0xf
0x0f15…0f2a at0010 = ╱31╱1╱ // 0xf25 @0x10
0x0f15…0f2a at0011 = ╱30╱0╱ // 0xf26 @0x11
0x0f15…0f2a at0012 = ╱dc╱=╱ // 0xf27 @0x12
0x0f15…0f2a at0013 = ╱45╱E╱ // 0xf28 @0x13
0x0f15…0f2a at0014 = EOL // 0xf29 @0x14
0x0f15…0f2a }
0x0f2a…0f47 9c9e 1410 IF PIL10>MANT3 THEN PIL10=MANT3
0x0f2a…0f47 LineComalBin {
0x0f2a…0f47 ptr = 0x9c9e // 0xf2a @0x0
0x0f2a…0f47 lno = 0x0582 // 0xf2c @0x2
0x0f2a…0f47 at0004 = ╱82╱ IF ╱ // 0xf2e @0x4
0x0f2a…0f47 at0005 = ╱50╱P╱ // 0xf2f @0x5
0x0f2a…0f47 at0006 = ╱49╱I╱ // 0xf30 @0x6
0x0f2a…0f47 at0007 = ╱4c╱L╱ // 0xf31 @0x7
0x0f2a…0f47 at0008 = ╱31╱1╱ // 0xf32 @0x8
0x0f2a…0f47 at0009 = ╱30╱0╱ // 0xf33 @0x9
0x0f2a…0f47 at000a = ╱de╱>╱ // 0xf34 @0xa
0x0f2a…0f47 at000b = ╱4d╱M╱ // 0xf35 @0xb
0x0f2a…0f47 at000c = ╱41╱A╱ // 0xf36 @0xc
0x0f2a…0f47 at000d = ╱4e╱N╱ // 0xf37 @0xd
0x0f2a…0f47 at000e = ╱54╱T╱ // 0xf38 @0xe
0x0f2a…0f47 at000f = ╱33╱3╱ // 0xf39 @0xf
0x0f2a…0f47 at0010 = ╱b6╱ THEN ╱ // 0xf3a @0x10
0x0f2a…0f47 at0011 = ╱50╱P╱ // 0xf3b @0x11
0x0f2a…0f47 at0012 = ╱49╱I╱ // 0xf3c @0x12
0x0f2a…0f47 at0013 = ╱4c╱L╱ // 0xf3d @0x13
0x0f2a…0f47 at0014 = ╱31╱1╱ // 0xf3e @0x14
0x0f2a…0f47 at0015 = ╱30╱0╱ // 0xf3f @0x15
0x0f2a…0f47 at0016 = ╱dc╱=╱ // 0xf40 @0x16
0x0f2a…0f47 at0017 = ╱4d╱M╱ // 0xf41 @0x17
0x0f2a…0f47 at0018 = ╱41╱A╱ // 0xf42 @0x18
0x0f2a…0f47 at0019 = ╱4e╱N╱ // 0xf43 @0x19
0x0f2a…0f47 at001a = ╱54╱T╱ // 0xf44 @0x1a
0x0f2a…0f47 at001b = ╱33╱3╱ // 0xf45 @0x1b
0x0f2a…0f47 at001c = EOL // 0xf46 @0x1c
0x0f2a…0f47 }
0x0f47…0f53 9caa 1420 UNTIL PIL1=B
0x0f47…0f53 LineComalBin {
0x0f47…0f53 ptr = 0x9caa // 0xf47 @0x0
0x0f47…0f53 lno = 0x058c // 0xf49 @0x2
0x0f47…0f53 at0004 = ╱98╱ UNTIL ╱ // 0xf4b @0x4
0x0f47…0f53 at0005 = ╱50╱P╱ // 0xf4c @0x5
0x0f47…0f53 at0006 = ╱49╱I╱ // 0xf4d @0x6
0x0f47…0f53 at0007 = ╱4c╱L╱ // 0xf4e @0x7
0x0f47…0f53 at0008 = ╱31╱1╱ // 0xf4f @0x8
0x0f47…0f53 at0009 = ╱dc╱=╱ // 0xf50 @0x9
0x0f47…0f53 at000a = ╱42╱B╱ // 0xf51 @0xa
0x0f47…0f53 at000b = EOL // 0xf52 @0xb
0x0f47…0f53 }
0x0f53…0f82 9cd9 1430 IF TAB5(PIL10)>NØGL6 THEN PIL10=PIL10-E*(PIL10>E)
0x0f53…0f82 LineComalBin {
0x0f53…0f82 ptr = 0x9cd9 // 0xf53 @0x0
0x0f53…0f82 lno = 0x0596 // 0xf55 @0x2
0x0f53…0f82 at0004 = ╱82╱ IF ╱ // 0xf57 @0x4
0x0f53…0f82 at0005 = ╱54╱T╱ // 0xf58 @0x5
0x0f53…0f82 at0006 = ╱41╱A╱ // 0xf59 @0x6
0x0f53…0f82 at0007 = ╱42╱B╱ // 0xf5a @0x7
0x0f53…0f82 at0008 = ╱35╱5╱ // 0xf5b @0x8
0x0f53…0f82 at0009 = ╱ed╱(╱ // 0xf5c @0x9
0x0f53…0f82 at000a = ╱50╱P╱ // 0xf5d @0xa
0x0f53…0f82 at000b = ╱49╱I╱ // 0xf5e @0xb
0x0f53…0f82 at000c = ╱4c╱L╱ // 0xf5f @0xc
0x0f53…0f82 at000d = ╱31╱1╱ // 0xf60 @0xd
0x0f53…0f82 at000e = ╱30╱0╱ // 0xf61 @0xe
0x0f53…0f82 at000f = ╱ee╱)╱ // 0xf62 @0xf
0x0f53…0f82 at0010 = ╱de╱>╱ // 0xf63 @0x10
0x0f53…0f82 at0011 = ╱4e╱N╱ // 0xf64 @0x11
0x0f53…0f82 at0012 = ╱5c╱Ø╱ // 0xf65 @0x12
0x0f53…0f82 at0013 = ╱47╱G╱ // 0xf66 @0x13
0x0f53…0f82 at0014 = ╱4c╱L╱ // 0xf67 @0x14
0x0f53…0f82 at0015 = ╱36╱6╱ // 0xf68 @0x15
0x0f53…0f82 at0016 = ╱b6╱ THEN ╱ // 0xf69 @0x16
0x0f53…0f82 at0017 = ╱50╱P╱ // 0xf6a @0x17
0x0f53…0f82 at0018 = ╱49╱I╱ // 0xf6b @0x18
0x0f53…0f82 at0019 = ╱4c╱L╱ // 0xf6c @0x19
0x0f53…0f82 at001a = ╱31╱1╱ // 0xf6d @0x1a
0x0f53…0f82 at001b = ╱30╱0╱ // 0xf6e @0x1b
0x0f53…0f82 at001c = ╱dc╱=╱ // 0xf6f @0x1c
0x0f53…0f82 at001d = ╱50╱P╱ // 0xf70 @0x1d
0x0f53…0f82 at001e = ╱49╱I╱ // 0xf71 @0x1e
0x0f53…0f82 at001f = ╱4c╱L╱ // 0xf72 @0x1f
0x0f53…0f82 at0020 = ╱31╱1╱ // 0xf73 @0x20
0x0f53…0f82 at0021 = ╱30╱0╱ // 0xf74 @0x21
0x0f53…0f82 at0022 = ╱e3╱-╱ // 0xf75 @0x22
0x0f53…0f82 at0023 = ╱45╱E╱ // 0xf76 @0x23
0x0f53…0f82 at0024 = ╱e4╱*╱ // 0xf77 @0x24
0x0f53…0f82 at0025 = ╱ed╱(╱ // 0xf78 @0x25
0x0f53…0f82 at0026 = ╱50╱P╱ // 0xf79 @0x26
0x0f53…0f82 at0027 = ╱49╱I╱ // 0xf7a @0x27
0x0f53…0f82 at0028 = ╱4c╱L╱ // 0xf7b @0x28
0x0f53…0f82 at0029 = ╱31╱1╱ // 0xf7c @0x29
0x0f53…0f82 at002a = ╱30╱0╱ // 0xf7d @0x2a
0x0f53…0f82 at002b = ╱de╱>╱ // 0xf7e @0x2b
0x0f53…0f82 at002c = ╱45╱E╱ // 0xf7f @0x2c
0x0f53…0f82 at002d = ╱ee╱)╱ // 0xf80 @0x2d
0x0f53…0f82 at002e = EOL // 0xf81 @0x2e
0x0f53…0f82 }
0x0f82…0f88 9cdf 1440 ENDPROC
0x0f82…0f88 LineComalBin {
0x0f82…0f88 ptr = 0x9cdf // 0xf82 @0x0
0x0f82…0f88 lno = 0x05a0 // 0xf84 @0x2
0x0f82…0f88 at0004 = ╱9f╱ ENDPROC ╱ // 0xf86 @0x4
0x0f82…0f88 at0005 = EOL // 0xf87 @0x5
0x0f82…0f88 }
0x0f88…0fa0 9cf7 1450 PROC CALC(AR3,B1,B2,ES)
0x0f88…0fa0 LineComalBin {
0x0f88…0fa0 ptr = 0x9cf7 // 0xf88 @0x0
0x0f88…0fa0 lno = 0x05aa // 0xf8a @0x2
0x0f88…0fa0 at0004 = ╱9e╱ PROC ╱ // 0xf8c @0x4
0x0f88…0fa0 at0005 = ╱43╱C╱ // 0xf8d @0x5
0x0f88…0fa0 at0006 = ╱41╱A╱ // 0xf8e @0x6
0x0f88…0fa0 at0007 = ╱4c╱L╱ // 0xf8f @0x7
0x0f88…0fa0 at0008 = ╱43╱C╱ // 0xf90 @0x8
0x0f88…0fa0 at0009 = ╱ed╱(╱ // 0xf91 @0x9
0x0f88…0fa0 at000a = ╱41╱A╱ // 0xf92 @0xa
0x0f88…0fa0 at000b = ╱52╱R╱ // 0xf93 @0xb
0x0f88…0fa0 at000c = ╱33╱3╱ // 0xf94 @0xc
0x0f88…0fa0 at000d = ╱ec╱,╱ // 0xf95 @0xd
0x0f88…0fa0 at000e = ╱42╱B╱ // 0xf96 @0xe
0x0f88…0fa0 at000f = ╱31╱1╱ // 0xf97 @0xf
0x0f88…0fa0 at0010 = ╱ec╱,╱ // 0xf98 @0x10
0x0f88…0fa0 at0011 = ╱42╱B╱ // 0xf99 @0x11
0x0f88…0fa0 at0012 = ╱32╱2╱ // 0xf9a @0x12
0x0f88…0fa0 at0013 = ╱ec╱,╱ // 0xf9b @0x13
0x0f88…0fa0 at0014 = ╱45╱E╱ // 0xf9c @0x14
0x0f88…0fa0 at0015 = ╱53╱S╱ // 0xf9d @0x15
0x0f88…0fa0 at0016 = ╱ee╱)╱ // 0xf9e @0x16
0x0f88…0fa0 at0017 = EOL // 0xf9f @0x17
0x0f88…0fa0 }
0x0fa0…0fe7 9d3e 1460 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=B;FLAG=B;ART=AR3-6*(AR3>5)
0x0fa0…0fe7 LineComalBin {
0x0fa0…0fe7 ptr = 0x9d3e // 0xfa0 @0x0
0x0fa0…0fe7 lno = 0x05b4 // 0xfa2 @0x2
0x0fa0…0fe7 at0004 = ╱4f╱O╱ // 0xfa4 @0x4
0x0fa0…0fe7 at0005 = ╱50╱P╱ // 0xfa5 @0x5
0x0fa0…0fe7 at0006 = ╱31╱1╱ // 0xfa6 @0x6
0x0fa0…0fe7 at0007 = ╱ef╱$╱ // 0xfa7 @0x7
0x0fa0…0fe7 at0008 = ╱dc╱=╱ // 0xfa8 @0x8
0x0fa0…0fe7 at0009 = ╱42╱B╱ // 0xfa9 @0x9
0x0fa0…0fe7 at000a = ╱31╱1╱ // 0xfaa @0xa
0x0fa0…0fe7 at000b = ╱ef╱$╱ // 0xfab @0xb
0x0fa0…0fe7 at000c = ╱eb╱;╱ // 0xfac @0xc
0x0fa0…0fe7 at000d = ╱4f╱O╱ // 0xfad @0xd
0x0fa0…0fe7 at000e = ╱50╱P╱ // 0xfae @0xe
0x0fa0…0fe7 at000f = ╱32╱2╱ // 0xfaf @0xf
0x0fa0…0fe7 at0010 = ╱ef╱$╱ // 0xfb0 @0x10
0x0fa0…0fe7 at0011 = ╱dc╱=╱ // 0xfb1 @0x11
0x0fa0…0fe7 at0012 = ╱42╱B╱ // 0xfb2 @0x12
0x0fa0…0fe7 at0013 = ╱32╱2╱ // 0xfb3 @0x13
0x0fa0…0fe7 at0014 = ╱ef╱$╱ // 0xfb4 @0x14
0x0fa0…0fe7 at0015 = ╱eb╱;╱ // 0xfb5 @0x15
0x0fa0…0fe7 at0016 = ╱52╱R╱ // 0xfb6 @0x16
0x0fa0…0fe7 at0017 = ╱45╱E╱ // 0xfb7 @0x17
0x0fa0…0fe7 at0018 = ╱53╱S╱ // 0xfb8 @0x18
0x0fa0…0fe7 at0019 = ╱ef╱$╱ // 0xfb9 @0x19
0x0fa0…0fe7 at001a = ╱dc╱=╱ // 0xfba @0x1a
0x0fa0…0fe7 at001b = ╱45╱E╱ // 0xfbb @0x1b
0x0fa0…0fe7 at001c = ╱53╱S╱ // 0xfbc @0x1c
0x0fa0…0fe7 at001d = ╱ef╱$╱ // 0xfbd @0x1d
0x0fa0…0fe7 at001e = ╱eb╱;╱ // 0xfbe @0x1e
0x0fa0…0fe7 at001f = ╱53╱S╱ // 0xfbf @0x1f
0x0fa0…0fe7 at0020 = ╱49╱I╱ // 0xfc0 @0x20
0x0fa0…0fe7 at0021 = ╱dc╱=╱ // 0xfc1 @0x21
0x0fa0…0fe7 at0022 = ╱42╱B╱ // 0xfc2 @0x22
0x0fa0…0fe7 at0023 = ╱eb╱;╱ // 0xfc3 @0x23
0x0fa0…0fe7 at0024 = ╱46╱F╱ // 0xfc4 @0x24
0x0fa0…0fe7 at0025 = ╱4c╱L╱ // 0xfc5 @0x25
0x0fa0…0fe7 at0026 = ╱41╱A╱ // 0xfc6 @0x26
0x0fa0…0fe7 at0027 = ╱47╱G╱ // 0xfc7 @0x27
0x0fa0…0fe7 at0028 = ╱dc╱=╱ // 0xfc8 @0x28
0x0fa0…0fe7 at0029 = ╱42╱B╱ // 0xfc9 @0x29
0x0fa0…0fe7 at002a = ╱eb╱;╱ // 0xfca @0x2a
0x0fa0…0fe7 at002b = ╱41╱A╱ // 0xfcb @0x2b
0x0fa0…0fe7 at002c = ╱52╱R╱ // 0xfcc @0x2c
0x0fa0…0fe7 at002d = ╱54╱T╱ // 0xfcd @0x2d
0x0fa0…0fe7 at002e = ╱dc╱=╱ // 0xfce @0x2e
0x0fa0…0fe7 at002f = ╱41╱A╱ // 0xfcf @0x2f
0x0fa0…0fe7 at0030 = ╱52╱R╱ // 0xfd0 @0x30
0x0fa0…0fe7 at0031 = ╱33╱3╱ // 0xfd1 @0x31
0x0fa0…0fe7 at0032 = ╱e3╱-╱ // 0xfd2 @0x32
0x0fa0…0fe7 at0033 = ╱36╱6╱ // 0xfd3 @0x33
0x0fa0…0fe7 at0034 = ╱fe0000c003╱ // 0xfd4 @0x34
0x0fa0…0fe7 at0039 = ╱e4╱*╱ // 0xfd9 @0x39
0x0fa0…0fe7 at003a = ╱ed╱(╱ // 0xfda @0x3a
0x0fa0…0fe7 at003b = ╱41╱A╱ // 0xfdb @0x3b
0x0fa0…0fe7 at003c = ╱52╱R╱ // 0xfdc @0x3c
0x0fa0…0fe7 at003d = ╱33╱3╱ // 0xfdd @0x3d
0x0fa0…0fe7 at003e = ╱de╱>╱ // 0xfde @0x3e
0x0fa0…0fe7 at003f = ╱35╱5╱ // 0xfdf @0x3f
0x0fa0…0fe7 at0040 = ╱fe0000a003╱ // 0xfe0 @0x40
0x0fa0…0fe7 at0045 = ╱ee╱)╱ // 0xfe5 @0x45
0x0fa0…0fe7 at0046 = EOL // 0xfe6 @0x46
0x0fa0…0fe7 }
0x0fe7…0ffd 9d54 1470 CALL "P641210:REGN"
0x0fe7…0ffd LineComalBin {
0x0fe7…0ffd ptr = 0x9d54 // 0xfe7 @0x0
0x0fe7…0ffd lno = 0x05be // 0xfe9 @0x2
0x0fe7…0ffd at0004 = ╱ad4ced╱ CALL ╱ // 0xfeb @0x4
0x0fe7…0ffd at0007 = ╱22╱"╱ // 0xfee @0x7
0x0fe7…0ffd at0008 = ╱50╱P╱ // 0xfef @0x8
0x0fe7…0ffd at0009 = ╱36╱6╱ // 0xff0 @0x9
0x0fe7…0ffd at000a = ╱34╱4╱ // 0xff1 @0xa
0x0fe7…0ffd at000b = ╱31╱1╱ // 0xff2 @0xb
0x0fe7…0ffd at000c = ╱32╱2╱ // 0xff3 @0xc
0x0fe7…0ffd at000d = ╱31╱1╱ // 0xff4 @0xd
0x0fe7…0ffd at000e = ╱30╱0╱ // 0xff5 @0xe
0x0fe7…0ffd at000f = ╱3a╱:╱ // 0xff6 @0xf
0x0fe7…0ffd at0010 = ╱52╱R╱ // 0xff7 @0x10
0x0fe7…0ffd at0011 = ╱45╱E╱ // 0xff8 @0x11
0x0fe7…0ffd at0012 = ╱47╱G╱ // 0xff9 @0x12
0x0fe7…0ffd at0013 = ╱4e╱N╱ // 0xffa @0x13
0x0fe7…0ffd at0014 = ╱22╱"╱ // 0xffb @0x14
0x0fe7…0ffd at0015 = EOL // 0xffc @0x15
0x0fe7…0ffd }
0x0ffd…100a 9d61 1480 ES$=RES$
0x0ffd…100a LineComalBin {
0x0ffd…100a ptr = 0x9d61 // 0xffd @0x0
0x0ffd…100a lno = 0x05c8 // 0xfff @0x2
0x0ffd…100a at0004 = ╱45╱E╱ // 0x1001 @0x4
0x0ffd…100a at0005 = ╱53╱S╱ // 0x1002 @0x5
0x0ffd…100a at0006 = ╱ef╱$╱ // 0x1003 @0x6
0x0ffd…100a at0007 = ╱dc╱=╱ // 0x1004 @0x7
0x0ffd…100a at0008 = ╱52╱R╱ // 0x1005 @0x8
0x0ffd…100a at0009 = ╱45╱E╱ // 0x1006 @0x9
0x0ffd…100a at000a = ╱53╱S╱ // 0x1007 @0xa
0x0ffd…100a at000b = ╱ef╱$╱ // 0x1008 @0xb
0x0ffd…100a at000c = EOL // 0x1009 @0xc
0x0ffd…100a }
0x100a…101b 9d72 1490 IF AR3<6 THEN
0x100a…101b LineComalBin {
0x100a…101b ptr = 0x9d72 // 0x100a @0x0
0x100a…101b lno = 0x05d2 // 0x100c @0x2
0x100a…101b at0004 = ╱9c╱ IF ╱ // 0x100e @0x4
0x100a…101b at0005 = ╱41╱A╱ // 0x100f @0x5
0x100a…101b at0006 = ╱52╱R╱ // 0x1010 @0x6
0x100a…101b at0007 = ╱33╱3╱ // 0x1011 @0x7
0x100a…101b at0008 = ╱dd╱<╱ // 0x1012 @0x8
0x100a…101b at0009 = ╱36╱6╱ // 0x1013 @0x9
0x100a…101b at000a = ╱fe0000c003╱ // 0x1014 @0xa
0x100a…101b at000f = ╱b6╱ THEN ╱ // 0x1019 @0xf
0x100a…101b at0010 = EOL // 0x101a @0x10
0x100a…101b }
0x101b…1027 9d7e 1500 IF FLAG THEN STOP
0x101b…1027 LineComalBin {
0x101b…1027 ptr = 0x9d7e // 0x101b @0x0
0x101b…1027 lno = 0x05dc // 0x101d @0x2
0x101b…1027 at0004 = ╱82╱ IF ╱ // 0x101f @0x4
0x101b…1027 at0005 = ╱46╱F╱ // 0x1020 @0x5
0x101b…1027 at0006 = ╱4c╱L╱ // 0x1021 @0x6
0x101b…1027 at0007 = ╱41╱A╱ // 0x1022 @0x7
0x101b…1027 at0008 = ╱47╱G╱ // 0x1023 @0x8
0x101b…1027 at0009 = ╱b6╱ THEN ╱ // 0x1024 @0x9
0x101b…1027 at000a = ╱8d╱ STOP ╱ // 0x1025 @0xa
0x101b…1027 at000b = EOL // 0x1026 @0xb
0x101b…1027 }
0x1027…102d 9d84 1510 ENDIF
0x1027…102d LineComalBin {
0x1027…102d ptr = 0x9d84 // 0x1027 @0x0
0x1027…102d lno = 0x05e6 // 0x1029 @0x2
0x1027…102d at0004 = ╱9b╱ ENDIF ╱ // 0x102b @0x4
0x1027…102d at0005 = EOL // 0x102c @0x5
0x1027…102d }
0x102d…1033 9d8a 1520 ENDPROC
0x102d…1033 LineComalBin {
0x102d…1033 ptr = 0x9d8a // 0x102d @0x0
0x102d…1033 lno = 0x05f0 // 0x102f @0x2
0x102d…1033 at0004 = ╱9f╱ ENDPROC ╱ // 0x1031 @0x4
0x102d…1033 at0005 = EOL // 0x1032 @0x5
0x102d…1033 }
0x1033…104a 9da1 1530 PROC FEJL(NR1,NR2,NR3)
0x1033…104a LineComalBin {
0x1033…104a ptr = 0x9da1 // 0x1033 @0x0
0x1033…104a lno = 0x05fa // 0x1035 @0x2
0x1033…104a at0004 = ╱9e╱ PROC ╱ // 0x1037 @0x4
0x1033…104a at0005 = ╱46╱F╱ // 0x1038 @0x5
0x1033…104a at0006 = ╱45╱E╱ // 0x1039 @0x6
0x1033…104a at0007 = ╱4a╱J╱ // 0x103a @0x7
0x1033…104a at0008 = ╱4c╱L╱ // 0x103b @0x8
0x1033…104a at0009 = ╱ed╱(╱ // 0x103c @0x9
0x1033…104a at000a = ╱4e╱N╱ // 0x103d @0xa
0x1033…104a at000b = ╱52╱R╱ // 0x103e @0xb
0x1033…104a at000c = ╱31╱1╱ // 0x103f @0xc
0x1033…104a at000d = ╱ec╱,╱ // 0x1040 @0xd
0x1033…104a at000e = ╱4e╱N╱ // 0x1041 @0xe
0x1033…104a at000f = ╱52╱R╱ // 0x1042 @0xf
0x1033…104a at0010 = ╱32╱2╱ // 0x1043 @0x10
0x1033…104a at0011 = ╱ec╱,╱ // 0x1044 @0x11
0x1033…104a at0012 = ╱4e╱N╱ // 0x1045 @0x12
0x1033…104a at0013 = ╱52╱R╱ // 0x1046 @0x13
0x1033…104a at0014 = ╱33╱3╱ // 0x1047 @0x14
0x1033…104a at0015 = ╱ee╱)╱ // 0x1048 @0x15
0x1033…104a at0016 = EOL // 0x1049 @0x16
0x1033…104a }
0x104a…105a 9db1 1540 IF STATUS(NR3$)<>B THEN
0x104a…105a LineComalBin {
0x104a…105a ptr = 0x9db1 // 0x104a @0x0
0x104a…105a lno = 0x0604 // 0x104c @0x2
0x104a…105a at0004 = ╱9c╱ IF ╱ // 0x104e @0x4
0x104a…105a at0005 = ╱ce╱STATUS╱ // 0x104f @0x5
0x104a…105a at0006 = ╱ed╱(╱ // 0x1050 @0x6
0x104a…105a at0007 = ╱4e╱N╱ // 0x1051 @0x7
0x104a…105a at0008 = ╱52╱R╱ // 0x1052 @0x8
0x104a…105a at0009 = ╱33╱3╱ // 0x1053 @0x9
0x104a…105a at000a = ╱ef╱$╱ // 0x1054 @0xa
0x104a…105a at000b = ╱ee╱)╱ // 0x1055 @0xb
0x104a…105a at000c = ╱e1╱<>╱ // 0x1056 @0xc
0x104a…105a at000d = ╱42╱B╱ // 0x1057 @0xd
0x104a…105a at000e = ╱b6╱ THEN ╱ // 0x1058 @0xe
0x104a…105a at000f = EOL // 0x1059 @0xf
0x104a…105a }
0x105a…1074 9dcb 1550 PRINT STATUS(NR3$),NR1,NR2,NR3$
0x105a…1074 LineComalBin {
0x105a…1074 ptr = 0x9dcb // 0x105a @0x0
0x105a…1074 lno = 0x060e // 0x105c @0x2
0x105a…1074 at0004 = ╱92╱ PRINT ╱ // 0x105e @0x4
0x105a…1074 at0005 = ╱ce╱STATUS╱ // 0x105f @0x5
0x105a…1074 at0006 = ╱ed╱(╱ // 0x1060 @0x6
0x105a…1074 at0007 = ╱4e╱N╱ // 0x1061 @0x7
0x105a…1074 at0008 = ╱52╱R╱ // 0x1062 @0x8
0x105a…1074 at0009 = ╱33╱3╱ // 0x1063 @0x9
0x105a…1074 at000a = ╱ef╱$╱ // 0x1064 @0xa
0x105a…1074 at000b = ╱ee╱)╱ // 0x1065 @0xb
0x105a…1074 at000c = ╱ec╱,╱ // 0x1066 @0xc
0x105a…1074 at000d = ╱4e╱N╱ // 0x1067 @0xd
0x105a…1074 at000e = ╱52╱R╱ // 0x1068 @0xe
0x105a…1074 at000f = ╱31╱1╱ // 0x1069 @0xf
0x105a…1074 at0010 = ╱ec╱,╱ // 0x106a @0x10
0x105a…1074 at0011 = ╱4e╱N╱ // 0x106b @0x11
0x105a…1074 at0012 = ╱52╱R╱ // 0x106c @0x12
0x105a…1074 at0013 = ╱32╱2╱ // 0x106d @0x13
0x105a…1074 at0014 = ╱ec╱,╱ // 0x106e @0x14
0x105a…1074 at0015 = ╱4e╱N╱ // 0x106f @0x15
0x105a…1074 at0016 = ╱52╱R╱ // 0x1070 @0x16
0x105a…1074 at0017 = ╱33╱3╱ // 0x1071 @0x17
0x105a…1074 at0018 = ╱ef╱$╱ // 0x1072 @0x18
0x105a…1074 at0019 = EOL // 0x1073 @0x19
0x105a…1074 }
0x1074…107a 9dd1 1560 STOP
0x1074…107a LineComalBin {
0x1074…107a ptr = 0x9dd1 // 0x1074 @0x0
0x1074…107a lno = 0x0618 // 0x1076 @0x2
0x1074…107a at0004 = ╱8d╱ STOP ╱ // 0x1078 @0x4
0x1074…107a at0005 = EOL // 0x1079 @0x5
0x1074…107a }
0x107a…1080 9dd7 1570 ENDIF
0x107a…1080 LineComalBin {
0x107a…1080 ptr = 0x9dd7 // 0x107a @0x0
0x107a…1080 lno = 0x0622 // 0x107c @0x2
0x107a…1080 at0004 = ╱9b╱ ENDIF ╱ // 0x107e @0x4
0x107a…1080 at0005 = EOL // 0x107f @0x5
0x107a…1080 }
0x1080…1086 9ddd 1580 ENDPROC
0x1080…1086 LineComalBin {
0x1080…1086 ptr = 0x9ddd // 0x1080 @0x0
0x1080…1086 lno = 0x062c // 0x1082 @0x2
0x1080…1086 at0004 = ╱9f╱ ENDPROC ╱ // 0x1084 @0x4
0x1080…1086 at0005 = EOL // 0x1085 @0x5
0x1080…1086 }
0x1086…109b 9df2 1590 PROC INDLÆS1(U,PIL8)
0x1086…109b LineComalBin {
0x1086…109b ptr = 0x9df2 // 0x1086 @0x0
0x1086…109b lno = 0x0636 // 0x1088 @0x2
0x1086…109b at0004 = ╱9e╱ PROC ╱ // 0x108a @0x4
0x1086…109b at0005 = ╱49╱I╱ // 0x108b @0x5
0x1086…109b at0006 = ╱4e╱N╱ // 0x108c @0x6
0x1086…109b at0007 = ╱44╱D╱ // 0x108d @0x7
0x1086…109b at0008 = ╱4c╱L╱ // 0x108e @0x8
0x1086…109b at0009 = ╱5b╱Æ╱ // 0x108f @0x9
0x1086…109b at000a = ╱53╱S╱ // 0x1090 @0xa
0x1086…109b at000b = ╱31╱1╱ // 0x1091 @0xb
0x1086…109b at000c = ╱ed╱(╱ // 0x1092 @0xc
0x1086…109b at000d = ╱55╱U╱ // 0x1093 @0xd
0x1086…109b at000e = ╱ec╱,╱ // 0x1094 @0xe
0x1086…109b at000f = ╱50╱P╱ // 0x1095 @0xf
0x1086…109b at0010 = ╱49╱I╱ // 0x1096 @0x10
0x1086…109b at0011 = ╱4c╱L╱ // 0x1097 @0x11
0x1086…109b at0012 = ╱38╱8╱ // 0x1098 @0x12
0x1086…109b at0013 = ╱ee╱)╱ // 0x1099 @0x13
0x1086…109b at0014 = EOL // 0x109a @0x14
0x1086…109b }
0x109b…10b9 9e10 1600 PIL1=MDANTAL DIV 32+PIL8
0x109b…10b9 LineComalBin {
0x109b…10b9 ptr = 0x9e10 // 0x109b @0x0
0x109b…10b9 lno = 0x0640 // 0x109d @0x2
0x109b…10b9 at0004 = ╱50╱P╱ // 0x109f @0x4
0x109b…10b9 at0005 = ╱49╱I╱ // 0x10a0 @0x5
0x109b…10b9 at0006 = ╱4c╱L╱ // 0x10a1 @0x6
0x109b…10b9 at0007 = ╱31╱1╱ // 0x10a2 @0x7
0x109b…10b9 at0008 = ╱dc╱=╱ // 0x10a3 @0x8
0x109b…10b9 at0009 = ╱4d╱M╱ // 0x10a4 @0x9
0x109b…10b9 at000a = ╱44╱D╱ // 0x10a5 @0xa
0x109b…10b9 at000b = ╱41╱A╱ // 0x10a6 @0xb
0x109b…10b9 at000c = ╱4e╱N╱ // 0x10a7 @0xc
0x109b…10b9 at000d = ╱54╱T╱ // 0x10a8 @0xd
0x109b…10b9 at000e = ╱41╱A╱ // 0x10a9 @0xe
0x109b…10b9 at000f = ╱4c╱L╱ // 0x10aa @0xf
0x109b…10b9 at0010 = ╱e7╱ DIV ╱ // 0x10ab @0x10
0x109b…10b9 at0011 = ╱33╱3╱ // 0x10ac @0x11
0x109b…10b9 at0012 = ╱32╱2╱ // 0x10ad @0x12
0x109b…10b9 at0013 = ╱fe00008006╱ // 0x10ae @0x13
0x109b…10b9 at0018 = ╱e2╱+╱ // 0x10b3 @0x18
0x109b…10b9 at0019 = ╱50╱P╱ // 0x10b4 @0x19
0x109b…10b9 at001a = ╱49╱I╱ // 0x10b5 @0x1a
0x109b…10b9 at001b = ╱4c╱L╱ // 0x10b6 @0x1b
0x109b…10b9 at001c = ╱38╱8╱ // 0x10b7 @0x1c
0x109b…10b9 at001d = EOL // 0x10b8 @0x1d
0x109b…10b9 }
0x10b9…1109 9e60 1610 GET K2$,PIL1:U(E,E),U(E,G),U(G,E),U(G,G),U(V,E),U(V,G),U(4,E),U(4,G)
0x10b9…1109 LineComalBin {
0x10b9…1109 ptr = 0x9e60 // 0x10b9 @0x0
0x10b9…1109 lno = 0x064a // 0x10bb @0x2
0x10b9…1109 at0004 = ╱a9╱ GET ╱ // 0x10bd @0x4
0x10b9…1109 at0005 = ╱4b╱K╱ // 0x10be @0x5
0x10b9…1109 at0006 = ╱32╱2╱ // 0x10bf @0x6
0x10b9…1109 at0007 = ╱ef╱$╱ // 0x10c0 @0x7
0x10b9…1109 at0008 = ╱ec╱,╱ // 0x10c1 @0x8
0x10b9…1109 at0009 = ╱50╱P╱ // 0x10c2 @0x9
0x10b9…1109 at000a = ╱49╱I╱ // 0x10c3 @0xa
0x10b9…1109 at000b = ╱4c╱L╱ // 0x10c4 @0xb
0x10b9…1109 at000c = ╱31╱1╱ // 0x10c5 @0xc
0x10b9…1109 at000d = ╱f0╱:╱ // 0x10c6 @0xd
0x10b9…1109 at000e = ╱55╱U╱ // 0x10c7 @0xe
0x10b9…1109 at000f = ╱ed╱(╱ // 0x10c8 @0xf
0x10b9…1109 at0010 = ╱45╱E╱ // 0x10c9 @0x10
0x10b9…1109 at0011 = ╱ec╱,╱ // 0x10ca @0x11
0x10b9…1109 at0012 = ╱45╱E╱ // 0x10cb @0x12
0x10b9…1109 at0013 = ╱ee╱)╱ // 0x10cc @0x13
0x10b9…1109 at0014 = ╱ec╱,╱ // 0x10cd @0x14
0x10b9…1109 at0015 = ╱55╱U╱ // 0x10ce @0x15
0x10b9…1109 at0016 = ╱ed╱(╱ // 0x10cf @0x16
0x10b9…1109 at0017 = ╱45╱E╱ // 0x10d0 @0x17
0x10b9…1109 at0018 = ╱ec╱,╱ // 0x10d1 @0x18
0x10b9…1109 at0019 = ╱47╱G╱ // 0x10d2 @0x19
0x10b9…1109 at001a = ╱ee╱)╱ // 0x10d3 @0x1a
0x10b9…1109 at001b = ╱ec╱,╱ // 0x10d4 @0x1b
0x10b9…1109 at001c = ╱55╱U╱ // 0x10d5 @0x1c
0x10b9…1109 at001d = ╱ed╱(╱ // 0x10d6 @0x1d
0x10b9…1109 at001e = ╱47╱G╱ // 0x10d7 @0x1e
0x10b9…1109 at001f = ╱ec╱,╱ // 0x10d8 @0x1f
0x10b9…1109 at0020 = ╱45╱E╱ // 0x10d9 @0x20
0x10b9…1109 at0021 = ╱ee╱)╱ // 0x10da @0x21
0x10b9…1109 at0022 = ╱ec╱,╱ // 0x10db @0x22
0x10b9…1109 at0023 = ╱55╱U╱ // 0x10dc @0x23
0x10b9…1109 at0024 = ╱ed╱(╱ // 0x10dd @0x24
0x10b9…1109 at0025 = ╱47╱G╱ // 0x10de @0x25
0x10b9…1109 at0026 = ╱ec╱,╱ // 0x10df @0x26
0x10b9…1109 at0027 = ╱47╱G╱ // 0x10e0 @0x27
0x10b9…1109 at0028 = ╱ee╱)╱ // 0x10e1 @0x28
0x10b9…1109 at0029 = ╱ec╱,╱ // 0x10e2 @0x29
0x10b9…1109 at002a = ╱55╱U╱ // 0x10e3 @0x2a
0x10b9…1109 at002b = ╱ed╱(╱ // 0x10e4 @0x2b
0x10b9…1109 at002c = ╱56╱V╱ // 0x10e5 @0x2c
0x10b9…1109 at002d = ╱ec╱,╱ // 0x10e6 @0x2d
0x10b9…1109 at002e = ╱45╱E╱ // 0x10e7 @0x2e
0x10b9…1109 at002f = ╱ee╱)╱ // 0x10e8 @0x2f
0x10b9…1109 at0030 = ╱ec╱,╱ // 0x10e9 @0x30
0x10b9…1109 at0031 = ╱55╱U╱ // 0x10ea @0x31
0x10b9…1109 at0032 = ╱ed╱(╱ // 0x10eb @0x32
0x10b9…1109 at0033 = ╱56╱V╱ // 0x10ec @0x33
0x10b9…1109 at0034 = ╱ec╱,╱ // 0x10ed @0x34
0x10b9…1109 at0035 = ╱47╱G╱ // 0x10ee @0x35
0x10b9…1109 at0036 = ╱ee╱)╱ // 0x10ef @0x36
0x10b9…1109 at0037 = ╱ec╱,╱ // 0x10f0 @0x37
0x10b9…1109 at0038 = ╱55╱U╱ // 0x10f1 @0x38
0x10b9…1109 at0039 = ╱ed╱(╱ // 0x10f2 @0x39
0x10b9…1109 at003a = ╱34╱4╱ // 0x10f3 @0x3a
0x10b9…1109 at003b = ╱fe00008003╱ // 0x10f4 @0x3b
0x10b9…1109 at0040 = ╱ec╱,╱ // 0x10f9 @0x40
0x10b9…1109 at0041 = ╱45╱E╱ // 0x10fa @0x41
0x10b9…1109 at0042 = ╱ee╱)╱ // 0x10fb @0x42
0x10b9…1109 at0043 = ╱ec╱,╱ // 0x10fc @0x43
0x10b9…1109 at0044 = ╱55╱U╱ // 0x10fd @0x44
0x10b9…1109 at0045 = ╱ed╱(╱ // 0x10fe @0x45
0x10b9…1109 at0046 = ╱34╱4╱ // 0x10ff @0x46
0x10b9…1109 at0047 = ╱fe00008003╱ // 0x1100 @0x47
0x10b9…1109 at004c = ╱ec╱,╱ // 0x1105 @0x4c
0x10b9…1109 at004d = ╱47╱G╱ // 0x1106 @0x4d
0x10b9…1109 at004e = ╱ee╱)╱ // 0x1107 @0x4e
0x10b9…1109 at004f = EOL // 0x1108 @0x4f
0x10b9…1109 }
0x1109…111c 9e73 1620 EXEC FEJL(E,E,K2$)
0x1109…111c LineComalBin {
0x1109…111c ptr = 0x9e73 // 0x1109 @0x0
0x1109…111c lno = 0x0654 // 0x110b @0x2
0x1109…111c at0004 = ╱9d╱ EXEC ╱ // 0x110d @0x4
0x1109…111c at0005 = ╱46╱F╱ // 0x110e @0x5
0x1109…111c at0006 = ╱45╱E╱ // 0x110f @0x6
0x1109…111c at0007 = ╱4a╱J╱ // 0x1110 @0x7
0x1109…111c at0008 = ╱4c╱L╱ // 0x1111 @0x8
0x1109…111c at0009 = ╱ed╱(╱ // 0x1112 @0x9
0x1109…111c at000a = ╱45╱E╱ // 0x1113 @0xa
0x1109…111c at000b = ╱ec╱,╱ // 0x1114 @0xb
0x1109…111c at000c = ╱45╱E╱ // 0x1115 @0xc
0x1109…111c at000d = ╱ec╱,╱ // 0x1116 @0xd
0x1109…111c at000e = ╱4b╱K╱ // 0x1117 @0xe
0x1109…111c at000f = ╱32╱2╱ // 0x1118 @0xf
0x1109…111c at0010 = ╱ef╱$╱ // 0x1119 @0x10
0x1109…111c at0011 = ╱ee╱)╱ // 0x111a @0x11
0x1109…111c at0012 = EOL // 0x111b @0x12
0x1109…111c }
0x111c…1122 9e79 1630 ENDPROC
0x111c…1122 LineComalBin {
0x111c…1122 ptr = 0x9e79 // 0x111c @0x0
0x111c…1122 lno = 0x065e // 0x111e @0x2
0x111c…1122 at0004 = ╱9f╱ ENDPROC ╱ // 0x1120 @0x4
0x111c…1122 at0005 = EOL // 0x1121 @0x5
0x111c…1122 }
0x1122…1131 9e88 1640 PROC HENTDPOST
0x1122…1131 LineComalBin {
0x1122…1131 ptr = 0x9e88 // 0x1122 @0x0
0x1122…1131 lno = 0x0668 // 0x1124 @0x2
0x1122…1131 at0004 = ╱9e╱ PROC ╱ // 0x1126 @0x4
0x1122…1131 at0005 = ╱48╱H╱ // 0x1127 @0x5
0x1122…1131 at0006 = ╱45╱E╱ // 0x1128 @0x6
0x1122…1131 at0007 = ╱4e╱N╱ // 0x1129 @0x7
0x1122…1131 at0008 = ╱54╱T╱ // 0x112a @0x8
0x1122…1131 at0009 = ╱44╱D╱ // 0x112b @0x9
0x1122…1131 at000a = ╱50╱P╱ // 0x112c @0xa
0x1122…1131 at000b = ╱4f╱O╱ // 0x112d @0xb
0x1122…1131 at000c = ╱53╱S╱ // 0x112e @0xc
0x1122…1131 at000d = ╱54╱T╱ // 0x112f @0xd
0x1122…1131 at000e = EOL // 0x1130 @0xe
0x1122…1131 }
0x1131…1146 9e9d 1650 S=DTAB3(DPIL3,G)
0x1131…1146 LineComalBin {
0x1131…1146 ptr = 0x9e9d // 0x1131 @0x0
0x1131…1146 lno = 0x0672 // 0x1133 @0x2
0x1131…1146 at0004 = ╱53╱S╱ // 0x1135 @0x4
0x1131…1146 at0005 = ╱dc╱=╱ // 0x1136 @0x5
0x1131…1146 at0006 = ╱44╱D╱ // 0x1137 @0x6
0x1131…1146 at0007 = ╱54╱T╱ // 0x1138 @0x7
0x1131…1146 at0008 = ╱41╱A╱ // 0x1139 @0x8
0x1131…1146 at0009 = ╱42╱B╱ // 0x113a @0x9
0x1131…1146 at000a = ╱33╱3╱ // 0x113b @0xa
0x1131…1146 at000b = ╱ed╱(╱ // 0x113c @0xb
0x1131…1146 at000c = ╱44╱D╱ // 0x113d @0xc
0x1131…1146 at000d = ╱50╱P╱ // 0x113e @0xd
0x1131…1146 at000e = ╱49╱I╱ // 0x113f @0xe
0x1131…1146 at000f = ╱4c╱L╱ // 0x1140 @0xf
0x1131…1146 at0010 = ╱33╱3╱ // 0x1141 @0x10
0x1131…1146 at0011 = ╱ec╱,╱ // 0x1142 @0x11
0x1131…1146 at0012 = ╱47╱G╱ // 0x1143 @0x12
0x1131…1146 at0013 = ╱ee╱)╱ // 0x1144 @0x13
0x1131…1146 at0014 = EOL // 0x1145 @0x14
0x1131…1146 }
0x1146…1171 9ec8 1660 GET K3$,S:KONTO,DEBNAVN$,DSALDO1$,DEBKGR$
0x1146…1171 LineComalBin {
0x1146…1171 ptr = 0x9ec8 // 0x1146 @0x0
0x1146…1171 lno = 0x067c // 0x1148 @0x2
0x1146…1171 at0004 = ╱a9╱ GET ╱ // 0x114a @0x4
0x1146…1171 at0005 = ╱4b╱K╱ // 0x114b @0x5
0x1146…1171 at0006 = ╱33╱3╱ // 0x114c @0x6
0x1146…1171 at0007 = ╱ef╱$╱ // 0x114d @0x7
0x1146…1171 at0008 = ╱ec╱,╱ // 0x114e @0x8
0x1146…1171 at0009 = ╱53╱S╱ // 0x114f @0x9
0x1146…1171 at000a = ╱f0╱:╱ // 0x1150 @0xa
0x1146…1171 at000b = ╱4b╱K╱ // 0x1151 @0xb
0x1146…1171 at000c = ╱4f╱O╱ // 0x1152 @0xc
0x1146…1171 at000d = ╱4e╱N╱ // 0x1153 @0xd
0x1146…1171 at000e = ╱54╱T╱ // 0x1154 @0xe
0x1146…1171 at000f = ╱4f╱O╱ // 0x1155 @0xf
0x1146…1171 at0010 = ╱ec╱,╱ // 0x1156 @0x10
0x1146…1171 at0011 = ╱44╱D╱ // 0x1157 @0x11
0x1146…1171 at0012 = ╱45╱E╱ // 0x1158 @0x12
0x1146…1171 at0013 = ╱42╱B╱ // 0x1159 @0x13
0x1146…1171 at0014 = ╱4e╱N╱ // 0x115a @0x14
0x1146…1171 at0015 = ╱41╱A╱ // 0x115b @0x15
0x1146…1171 at0016 = ╱56╱V╱ // 0x115c @0x16
0x1146…1171 at0017 = ╱4e╱N╱ // 0x115d @0x17
0x1146…1171 at0018 = ╱ef╱$╱ // 0x115e @0x18
0x1146…1171 at0019 = ╱ec╱,╱ // 0x115f @0x19
0x1146…1171 at001a = ╱44╱D╱ // 0x1160 @0x1a
0x1146…1171 at001b = ╱53╱S╱ // 0x1161 @0x1b
0x1146…1171 at001c = ╱41╱A╱ // 0x1162 @0x1c
0x1146…1171 at001d = ╱4c╱L╱ // 0x1163 @0x1d
0x1146…1171 at001e = ╱44╱D╱ // 0x1164 @0x1e
0x1146…1171 at001f = ╱4f╱O╱ // 0x1165 @0x1f
0x1146…1171 at0020 = ╱31╱1╱ // 0x1166 @0x20
0x1146…1171 at0021 = ╱ef╱$╱ // 0x1167 @0x21
0x1146…1171 at0022 = ╱ec╱,╱ // 0x1168 @0x22
0x1146…1171 at0023 = ╱44╱D╱ // 0x1169 @0x23
0x1146…1171 at0024 = ╱45╱E╱ // 0x116a @0x24
0x1146…1171 at0025 = ╱42╱B╱ // 0x116b @0x25
0x1146…1171 at0026 = ╱4b╱K╱ // 0x116c @0x26
0x1146…1171 at0027 = ╱47╱G╱ // 0x116d @0x27
0x1146…1171 at0028 = ╱52╱R╱ // 0x116e @0x28
0x1146…1171 at0029 = ╱ef╱$╱ // 0x116f @0x29
0x1146…1171 at002a = EOL // 0x1170 @0x2a
0x1146…1171 }
0x1171…1189 9ee0 1670 EXEC FEJL(8,E,K3$)
0x1171…1189 LineComalBin {
0x1171…1189 ptr = 0x9ee0 // 0x1171 @0x0
0x1171…1189 lno = 0x0686 // 0x1173 @0x2
0x1171…1189 at0004 = ╱9d╱ EXEC ╱ // 0x1175 @0x4
0x1171…1189 at0005 = ╱46╱F╱ // 0x1176 @0x5
0x1171…1189 at0006 = ╱45╱E╱ // 0x1177 @0x6
0x1171…1189 at0007 = ╱4a╱J╱ // 0x1178 @0x7
0x1171…1189 at0008 = ╱4c╱L╱ // 0x1179 @0x8
0x1171…1189 at0009 = ╱ed╱(╱ // 0x117a @0x9
0x1171…1189 at000a = ╱38╱8╱ // 0x117b @0xa
0x1171…1189 at000b = ╱fe00008004╱ // 0x117c @0xb
0x1171…1189 at0010 = ╱ec╱,╱ // 0x1181 @0x10
0x1171…1189 at0011 = ╱45╱E╱ // 0x1182 @0x11
0x1171…1189 at0012 = ╱ec╱,╱ // 0x1183 @0x12
0x1171…1189 at0013 = ╱4b╱K╱ // 0x1184 @0x13
0x1171…1189 at0014 = ╱33╱3╱ // 0x1185 @0x14
0x1171…1189 at0015 = ╱ef╱$╱ // 0x1186 @0x15
0x1171…1189 at0016 = ╱ee╱)╱ // 0x1187 @0x16
0x1171…1189 at0017 = EOL // 0x1188 @0x17
0x1171…1189 }
0x1189…11c2 9f19 1680 GET K3$,S+E:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$
0x1189…11c2 LineComalBin {
0x1189…11c2 ptr = 0x9f19 // 0x1189 @0x0
0x1189…11c2 lno = 0x0690 // 0x118b @0x2
0x1189…11c2 at0004 = ╱a9╱ GET ╱ // 0x118d @0x4
0x1189…11c2 at0005 = ╱4b╱K╱ // 0x118e @0x5
0x1189…11c2 at0006 = ╱33╱3╱ // 0x118f @0x6
0x1189…11c2 at0007 = ╱ef╱$╱ // 0x1190 @0x7
0x1189…11c2 at0008 = ╱ec╱,╱ // 0x1191 @0x8
0x1189…11c2 at0009 = ╱53╱S╱ // 0x1192 @0x9
0x1189…11c2 at000a = ╱e2╱+╱ // 0x1193 @0xa
0x1189…11c2 at000b = ╱45╱E╱ // 0x1194 @0xb
0x1189…11c2 at000c = ╱f0╱:╱ // 0x1195 @0xc
0x1189…11c2 at000d = ╱44╱D╱ // 0x1196 @0xd
0x1189…11c2 at000e = ╱53╱S╱ // 0x1197 @0xe
0x1189…11c2 at000f = ╱41╱A╱ // 0x1198 @0xf
0x1189…11c2 at0010 = ╱4c╱L╱ // 0x1199 @0x10
0x1189…11c2 at0011 = ╱44╱D╱ // 0x119a @0x11
0x1189…11c2 at0012 = ╱4f╱O╱ // 0x119b @0x12
0x1189…11c2 at0013 = ╱32╱2╱ // 0x119c @0x13
0x1189…11c2 at0014 = ╱ef╱$╱ // 0x119d @0x14
0x1189…11c2 at0015 = ╱ec╱,╱ // 0x119e @0x15
0x1189…11c2 at0016 = ╱44╱D╱ // 0x119f @0x16
0x1189…11c2 at0017 = ╱53╱S╱ // 0x11a0 @0x17
0x1189…11c2 at0018 = ╱41╱A╱ // 0x11a1 @0x18
0x1189…11c2 at0019 = ╱4c╱L╱ // 0x11a2 @0x19
0x1189…11c2 at001a = ╱44╱D╱ // 0x11a3 @0x1a
0x1189…11c2 at001b = ╱4f╱O╱ // 0x11a4 @0x1b
0x1189…11c2 at001c = ╱33╱3╱ // 0x11a5 @0x1c
0x1189…11c2 at001d = ╱ef╱$╱ // 0x11a6 @0x1d
0x1189…11c2 at001e = ╱ec╱,╱ // 0x11a7 @0x1e
0x1189…11c2 at001f = ╱44╱D╱ // 0x11a8 @0x1f
0x1189…11c2 at0020 = ╱53╱S╱ // 0x11a9 @0x20
0x1189…11c2 at0021 = ╱41╱A╱ // 0x11aa @0x21
0x1189…11c2 at0022 = ╱4c╱L╱ // 0x11ab @0x22
0x1189…11c2 at0023 = ╱44╱D╱ // 0x11ac @0x23
0x1189…11c2 at0024 = ╱4f╱O╱ // 0x11ad @0x24
0x1189…11c2 at0025 = ╱34╱4╱ // 0x11ae @0x25
0x1189…11c2 at0026 = ╱ef╱$╱ // 0x11af @0x26
0x1189…11c2 at0027 = ╱ec╱,╱ // 0x11b0 @0x27
0x1189…11c2 at0028 = ╱44╱D╱ // 0x11b1 @0x28
0x1189…11c2 at0029 = ╱45╱E╱ // 0x11b2 @0x29
0x1189…11c2 at002a = ╱42╱B╱ // 0x11b3 @0x2a
0x1189…11c2 at002b = ╱50╱P╱ // 0x11b4 @0x2b
0x1189…11c2 at002c = ╱4f╱O╱ // 0x11b5 @0x2c
0x1189…11c2 at002d = ╱53╱S╱ // 0x11b6 @0x2d
0x1189…11c2 at002e = ╱54╱T╱ // 0x11b7 @0x2e
0x1189…11c2 at002f = ╱4e╱N╱ // 0x11b8 @0x2f
0x1189…11c2 at0030 = ╱52╱R╱ // 0x11b9 @0x30
0x1189…11c2 at0031 = ╱ec╱,╱ // 0x11ba @0x31
0x1189…11c2 at0032 = ╱44╱D╱ // 0x11bb @0x32
0x1189…11c2 at0033 = ╱45╱E╱ // 0x11bc @0x33
0x1189…11c2 at0034 = ╱42╱B╱ // 0x11bd @0x34
0x1189…11c2 at0035 = ╱4c╱L╱ // 0x11be @0x35
0x1189…11c2 at0036 = ╱4b╱K╱ // 0x11bf @0x36
0x1189…11c2 at0037 = ╱ef╱$╱ // 0x11c0 @0x37
0x1189…11c2 at0038 = EOL // 0x11c1 @0x38
0x1189…11c2 }
0x11c2…11da 9f31 1690 EXEC FEJL(8,G,K3$)
0x11c2…11da LineComalBin {
0x11c2…11da ptr = 0x9f31 // 0x11c2 @0x0
0x11c2…11da lno = 0x069a // 0x11c4 @0x2
0x11c2…11da at0004 = ╱9d╱ EXEC ╱ // 0x11c6 @0x4
0x11c2…11da at0005 = ╱46╱F╱ // 0x11c7 @0x5
0x11c2…11da at0006 = ╱45╱E╱ // 0x11c8 @0x6
0x11c2…11da at0007 = ╱4a╱J╱ // 0x11c9 @0x7
0x11c2…11da at0008 = ╱4c╱L╱ // 0x11ca @0x8
0x11c2…11da at0009 = ╱ed╱(╱ // 0x11cb @0x9
0x11c2…11da at000a = ╱38╱8╱ // 0x11cc @0xa
0x11c2…11da at000b = ╱fe00008004╱ // 0x11cd @0xb
0x11c2…11da at0010 = ╱ec╱,╱ // 0x11d2 @0x10
0x11c2…11da at0011 = ╱47╱G╱ // 0x11d3 @0x11
0x11c2…11da at0012 = ╱ec╱,╱ // 0x11d4 @0x12
0x11c2…11da at0013 = ╱4b╱K╱ // 0x11d5 @0x13
0x11c2…11da at0014 = ╱33╱3╱ // 0x11d6 @0x14
0x11c2…11da at0015 = ╱ef╱$╱ // 0x11d7 @0x15
0x11c2…11da at0016 = ╱ee╱)╱ // 0x11d8 @0x16
0x11c2…11da at0017 = EOL // 0x11d9 @0x17
0x11c2…11da }
0x11da…1205 9f5c 1700 GET K3$,S+G:DEBGADE$,DEBTLF$,HPOST,HKUNDE
0x11da…1205 LineComalBin {
0x11da…1205 ptr = 0x9f5c // 0x11da @0x0
0x11da…1205 lno = 0x06a4 // 0x11dc @0x2
0x11da…1205 at0004 = ╱a9╱ GET ╱ // 0x11de @0x4
0x11da…1205 at0005 = ╱4b╱K╱ // 0x11df @0x5
0x11da…1205 at0006 = ╱33╱3╱ // 0x11e0 @0x6
0x11da…1205 at0007 = ╱ef╱$╱ // 0x11e1 @0x7
0x11da…1205 at0008 = ╱ec╱,╱ // 0x11e2 @0x8
0x11da…1205 at0009 = ╱53╱S╱ // 0x11e3 @0x9
0x11da…1205 at000a = ╱e2╱+╱ // 0x11e4 @0xa
0x11da…1205 at000b = ╱47╱G╱ // 0x11e5 @0xb
0x11da…1205 at000c = ╱f0╱:╱ // 0x11e6 @0xc
0x11da…1205 at000d = ╱44╱D╱ // 0x11e7 @0xd
0x11da…1205 at000e = ╱45╱E╱ // 0x11e8 @0xe
0x11da…1205 at000f = ╱42╱B╱ // 0x11e9 @0xf
0x11da…1205 at0010 = ╱47╱G╱ // 0x11ea @0x10
0x11da…1205 at0011 = ╱41╱A╱ // 0x11eb @0x11
0x11da…1205 at0012 = ╱44╱D╱ // 0x11ec @0x12
0x11da…1205 at0013 = ╱45╱E╱ // 0x11ed @0x13
0x11da…1205 at0014 = ╱ef╱$╱ // 0x11ee @0x14
0x11da…1205 at0015 = ╱ec╱,╱ // 0x11ef @0x15
0x11da…1205 at0016 = ╱44╱D╱ // 0x11f0 @0x16
0x11da…1205 at0017 = ╱45╱E╱ // 0x11f1 @0x17
0x11da…1205 at0018 = ╱42╱B╱ // 0x11f2 @0x18
0x11da…1205 at0019 = ╱54╱T╱ // 0x11f3 @0x19
0x11da…1205 at001a = ╱4c╱L╱ // 0x11f4 @0x1a
0x11da…1205 at001b = ╱46╱F╱ // 0x11f5 @0x1b
0x11da…1205 at001c = ╱ef╱$╱ // 0x11f6 @0x1c
0x11da…1205 at001d = ╱ec╱,╱ // 0x11f7 @0x1d
0x11da…1205 at001e = ╱48╱H╱ // 0x11f8 @0x1e
0x11da…1205 at001f = ╱50╱P╱ // 0x11f9 @0x1f
0x11da…1205 at0020 = ╱4f╱O╱ // 0x11fa @0x20
0x11da…1205 at0021 = ╱53╱S╱ // 0x11fb @0x21
0x11da…1205 at0022 = ╱54╱T╱ // 0x11fc @0x22
0x11da…1205 at0023 = ╱ec╱,╱ // 0x11fd @0x23
0x11da…1205 at0024 = ╱48╱H╱ // 0x11fe @0x24
0x11da…1205 at0025 = ╱4b╱K╱ // 0x11ff @0x25
0x11da…1205 at0026 = ╱55╱U╱ // 0x1200 @0x26
0x11da…1205 at0027 = ╱4e╱N╱ // 0x1201 @0x27
0x11da…1205 at0028 = ╱44╱D╱ // 0x1202 @0x28
0x11da…1205 at0029 = ╱45╱E╱ // 0x1203 @0x29
0x11da…1205 at002a = EOL // 0x1204 @0x2a
0x11da…1205 }
0x1205…121d 9f74 1710 EXEC FEJL(8,V,K3$)
0x1205…121d LineComalBin {
0x1205…121d ptr = 0x9f74 // 0x1205 @0x0
0x1205…121d lno = 0x06ae // 0x1207 @0x2
0x1205…121d at0004 = ╱9d╱ EXEC ╱ // 0x1209 @0x4
0x1205…121d at0005 = ╱46╱F╱ // 0x120a @0x5
0x1205…121d at0006 = ╱45╱E╱ // 0x120b @0x6
0x1205…121d at0007 = ╱4a╱J╱ // 0x120c @0x7
0x1205…121d at0008 = ╱4c╱L╱ // 0x120d @0x8
0x1205…121d at0009 = ╱ed╱(╱ // 0x120e @0x9
0x1205…121d at000a = ╱38╱8╱ // 0x120f @0xa
0x1205…121d at000b = ╱fe00008004╱ // 0x1210 @0xb
0x1205…121d at0010 = ╱ec╱,╱ // 0x1215 @0x10
0x1205…121d at0011 = ╱56╱V╱ // 0x1216 @0x11
0x1205…121d at0012 = ╱ec╱,╱ // 0x1217 @0x12
0x1205…121d at0013 = ╱4b╱K╱ // 0x1218 @0x13
0x1205…121d at0014 = ╱33╱3╱ // 0x1219 @0x14
0x1205…121d at0015 = ╱ef╱$╱ // 0x121a @0x15
0x1205…121d at0016 = ╱ee╱)╱ // 0x121b @0x16
0x1205…121d at0017 = EOL // 0x121c @0x17
0x1205…121d }
0x121d…1240 9f97 1720 GET K3$,S+V:DEBBY$,ÅRKØB$,MDNKØB$
0x121d…1240 LineComalBin {
0x121d…1240 ptr = 0x9f97 // 0x121d @0x0
0x121d…1240 lno = 0x06b8 // 0x121f @0x2
0x121d…1240 at0004 = ╱a9╱ GET ╱ // 0x1221 @0x4
0x121d…1240 at0005 = ╱4b╱K╱ // 0x1222 @0x5
0x121d…1240 at0006 = ╱33╱3╱ // 0x1223 @0x6
0x121d…1240 at0007 = ╱ef╱$╱ // 0x1224 @0x7
0x121d…1240 at0008 = ╱ec╱,╱ // 0x1225 @0x8
0x121d…1240 at0009 = ╱53╱S╱ // 0x1226 @0x9
0x121d…1240 at000a = ╱e2╱+╱ // 0x1227 @0xa
0x121d…1240 at000b = ╱56╱V╱ // 0x1228 @0xb
0x121d…1240 at000c = ╱f0╱:╱ // 0x1229 @0xc
0x121d…1240 at000d = ╱44╱D╱ // 0x122a @0xd
0x121d…1240 at000e = ╱45╱E╱ // 0x122b @0xe
0x121d…1240 at000f = ╱42╱B╱ // 0x122c @0xf
0x121d…1240 at0010 = ╱42╱B╱ // 0x122d @0x10
0x121d…1240 at0011 = ╱59╱Y╱ // 0x122e @0x11
0x121d…1240 at0012 = ╱ef╱$╱ // 0x122f @0x12
0x121d…1240 at0013 = ╱ec╱,╱ // 0x1230 @0x13
0x121d…1240 at0014 = ╱5d╱Å╱ // 0x1231 @0x14
0x121d…1240 at0015 = ╱52╱R╱ // 0x1232 @0x15
0x121d…1240 at0016 = ╱4b╱K╱ // 0x1233 @0x16
0x121d…1240 at0017 = ╱5c╱Ø╱ // 0x1234 @0x17
0x121d…1240 at0018 = ╱42╱B╱ // 0x1235 @0x18
0x121d…1240 at0019 = ╱ef╱$╱ // 0x1236 @0x19
0x121d…1240 at001a = ╱ec╱,╱ // 0x1237 @0x1a
0x121d…1240 at001b = ╱4d╱M╱ // 0x1238 @0x1b
0x121d…1240 at001c = ╱44╱D╱ // 0x1239 @0x1c
0x121d…1240 at001d = ╱4e╱N╱ // 0x123a @0x1d
0x121d…1240 at001e = ╱4b╱K╱ // 0x123b @0x1e
0x121d…1240 at001f = ╱5c╱Ø╱ // 0x123c @0x1f
0x121d…1240 at0020 = ╱42╱B╱ // 0x123d @0x20
0x121d…1240 at0021 = ╱ef╱$╱ // 0x123e @0x21
0x121d…1240 at0022 = EOL // 0x123f @0x22
0x121d…1240 }
0x1240…125d 9fb4 1730 EXEC FEJL(8,4,K3$)
0x1240…125d LineComalBin {
0x1240…125d ptr = 0x9fb4 // 0x1240 @0x0
0x1240…125d lno = 0x06c2 // 0x1242 @0x2
0x1240…125d at0004 = ╱9d╱ EXEC ╱ // 0x1244 @0x4
0x1240…125d at0005 = ╱46╱F╱ // 0x1245 @0x5
0x1240…125d at0006 = ╱45╱E╱ // 0x1246 @0x6
0x1240…125d at0007 = ╱4a╱J╱ // 0x1247 @0x7
0x1240…125d at0008 = ╱4c╱L╱ // 0x1248 @0x8
0x1240…125d at0009 = ╱ed╱(╱ // 0x1249 @0x9
0x1240…125d at000a = ╱38╱8╱ // 0x124a @0xa
0x1240…125d at000b = ╱fe00008004╱ // 0x124b @0xb
0x1240…125d at0010 = ╱ec╱,╱ // 0x1250 @0x10
0x1240…125d at0011 = ╱34╱4╱ // 0x1251 @0x11
0x1240…125d at0012 = ╱fe00008003╱ // 0x1252 @0x12
0x1240…125d at0017 = ╱ec╱,╱ // 0x1257 @0x17
0x1240…125d at0018 = ╱4b╱K╱ // 0x1258 @0x18
0x1240…125d at0019 = ╱33╱3╱ // 0x1259 @0x19
0x1240…125d at001a = ╱ef╱$╱ // 0x125a @0x1a
0x1240…125d at001b = ╱ee╱)╱ // 0x125b @0x1b
0x1240…125d at001c = EOL // 0x125c @0x1c
0x1240…125d }
0x125d…1263 9fba 1740 ENDPROC
0x125d…1263 LineComalBin {
0x125d…1263 ptr = 0x9fba // 0x125d @0x0
0x125d…1263 lno = 0x06cc // 0x125f @0x2
0x125d…1263 at0004 = ╱9f╱ ENDPROC ╱ // 0x1261 @0x4
0x125d…1263 at0005 = EOL // 0x1262 @0x5
0x125d…1263 }
0x1263…127d 9fd4 1750 K1$="P641220:SYSTEM1"
0x1263…127d LineComalBin {
0x1263…127d ptr = 0x9fd4 // 0x1263 @0x0
0x1263…127d lno = 0x06d6 // 0x1265 @0x2
0x1263…127d at0004 = ╱4b╱K╱ // 0x1267 @0x4
0x1263…127d at0005 = ╱31╱1╱ // 0x1268 @0x5
0x1263…127d at0006 = ╱ef╱$╱ // 0x1269 @0x6
0x1263…127d at0007 = ╱dc╱=╱ // 0x126a @0x7
0x1263…127d at0008 = ╱22╱"╱ // 0x126b @0x8
0x1263…127d at0009 = ╱50╱P╱ // 0x126c @0x9
0x1263…127d at000a = ╱36╱6╱ // 0x126d @0xa
0x1263…127d at000b = ╱34╱4╱ // 0x126e @0xb
0x1263…127d at000c = ╱31╱1╱ // 0x126f @0xc
0x1263…127d at000d = ╱32╱2╱ // 0x1270 @0xd
0x1263…127d at000e = ╱32╱2╱ // 0x1271 @0xe
0x1263…127d at000f = ╱30╱0╱ // 0x1272 @0xf
0x1263…127d at0010 = ╱3a╱:╱ // 0x1273 @0x10
0x1263…127d at0011 = ╱53╱S╱ // 0x1274 @0x11
0x1263…127d at0012 = ╱59╱Y╱ // 0x1275 @0x12
0x1263…127d at0013 = ╱53╱S╱ // 0x1276 @0x13
0x1263…127d at0014 = ╱54╱T╱ // 0x1277 @0x14
0x1263…127d at0015 = ╱45╱E╱ // 0x1278 @0x15
0x1263…127d at0016 = ╱4d╱M╱ // 0x1279 @0x16
0x1263…127d at0017 = ╱31╱1╱ // 0x127a @0x17
0x1263…127d at0018 = ╱22╱"╱ // 0x127b @0x18
0x1263…127d at0019 = EOL // 0x127c @0x19
0x1263…127d }
0x127d…1288 9fdf 1760 OPEN K1$,R
0x127d…1288 LineComalBin {
0x127d…1288 ptr = 0x9fdf // 0x127d @0x0
0x127d…1288 lno = 0x06e0 // 0x127f @0x2
0x127d…1288 at0004 = ╱a7╱ OPEN ╱ // 0x1281 @0x4
0x127d…1288 at0005 = ╱4b╱K╱ // 0x1282 @0x5
0x127d…1288 at0006 = ╱31╱1╱ // 0x1283 @0x6
0x127d…1288 at0007 = ╱ef╱$╱ // 0x1284 @0x7
0x127d…1288 at0008 = ╱ec╱,╱ // 0x1285 @0x8
0x127d…1288 at0009 = ╱52╱R╱ // 0x1286 @0x9
0x127d…1288 at000a = EOL // 0x1287 @0xa
0x127d…1288 }
0x1288…129b 9ff2 1770 EXEC FEJL(W,E,K1$)
0x1288…129b LineComalBin {
0x1288…129b ptr = 0x9ff2 // 0x1288 @0x0
0x1288…129b lno = 0x06ea // 0x128a @0x2
0x1288…129b at0004 = ╱9d╱ EXEC ╱ // 0x128c @0x4
0x1288…129b at0005 = ╱46╱F╱ // 0x128d @0x5
0x1288…129b at0006 = ╱45╱E╱ // 0x128e @0x6
0x1288…129b at0007 = ╱4a╱J╱ // 0x128f @0x7
0x1288…129b at0008 = ╱4c╱L╱ // 0x1290 @0x8
0x1288…129b at0009 = ╱ed╱(╱ // 0x1291 @0x9
0x1288…129b at000a = ╱57╱W╱ // 0x1292 @0xa
0x1288…129b at000b = ╱ec╱,╱ // 0x1293 @0xb
0x1288…129b at000c = ╱45╱E╱ // 0x1294 @0xc
0x1288…129b at000d = ╱ec╱,╱ // 0x1295 @0xd
0x1288…129b at000e = ╱4b╱K╱ // 0x1296 @0xe
0x1288…129b at000f = ╱31╱1╱ // 0x1297 @0xf
0x1288…129b at0010 = ╱ef╱$╱ // 0x1298 @0x10
0x1288…129b at0011 = ╱ee╱)╱ // 0x1299 @0x11
0x1288…129b at0012 = EOL // 0x129a @0x12
0x1288…129b }
0x129b…12c6 a01d 1780 GET K1$,E:MFANTAL,MDANTAL,MKANTAL,MVANTAL
0x129b…12c6 LineComalBin {
0x129b…12c6 ptr = 0xa01d // 0x129b @0x0
0x129b…12c6 lno = 0x06f4 // 0x129d @0x2
0x129b…12c6 at0004 = ╱a9╱ GET ╱ // 0x129f @0x4
0x129b…12c6 at0005 = ╱4b╱K╱ // 0x12a0 @0x5
0x129b…12c6 at0006 = ╱31╱1╱ // 0x12a1 @0x6
0x129b…12c6 at0007 = ╱ef╱$╱ // 0x12a2 @0x7
0x129b…12c6 at0008 = ╱ec╱,╱ // 0x12a3 @0x8
0x129b…12c6 at0009 = ╱45╱E╱ // 0x12a4 @0x9
0x129b…12c6 at000a = ╱f0╱:╱ // 0x12a5 @0xa
0x129b…12c6 at000b = ╱4d╱M╱ // 0x12a6 @0xb
0x129b…12c6 at000c = ╱46╱F╱ // 0x12a7 @0xc
0x129b…12c6 at000d = ╱41╱A╱ // 0x12a8 @0xd
0x129b…12c6 at000e = ╱4e╱N╱ // 0x12a9 @0xe
0x129b…12c6 at000f = ╱54╱T╱ // 0x12aa @0xf
0x129b…12c6 at0010 = ╱41╱A╱ // 0x12ab @0x10
0x129b…12c6 at0011 = ╱4c╱L╱ // 0x12ac @0x11
0x129b…12c6 at0012 = ╱ec╱,╱ // 0x12ad @0x12
0x129b…12c6 at0013 = ╱4d╱M╱ // 0x12ae @0x13
0x129b…12c6 at0014 = ╱44╱D╱ // 0x12af @0x14
0x129b…12c6 at0015 = ╱41╱A╱ // 0x12b0 @0x15
0x129b…12c6 at0016 = ╱4e╱N╱ // 0x12b1 @0x16
0x129b…12c6 at0017 = ╱54╱T╱ // 0x12b2 @0x17
0x129b…12c6 at0018 = ╱41╱A╱ // 0x12b3 @0x18
0x129b…12c6 at0019 = ╱4c╱L╱ // 0x12b4 @0x19
0x129b…12c6 at001a = ╱ec╱,╱ // 0x12b5 @0x1a
0x129b…12c6 at001b = ╱4d╱M╱ // 0x12b6 @0x1b
0x129b…12c6 at001c = ╱4b╱K╱ // 0x12b7 @0x1c
0x129b…12c6 at001d = ╱41╱A╱ // 0x12b8 @0x1d
0x129b…12c6 at001e = ╱4e╱N╱ // 0x12b9 @0x1e
0x129b…12c6 at001f = ╱54╱T╱ // 0x12ba @0x1f
0x129b…12c6 at0020 = ╱41╱A╱ // 0x12bb @0x20
0x129b…12c6 at0021 = ╱4c╱L╱ // 0x12bc @0x21
0x129b…12c6 at0022 = ╱ec╱,╱ // 0x12bd @0x22
0x129b…12c6 at0023 = ╱4d╱M╱ // 0x12be @0x23
0x129b…12c6 at0024 = ╱56╱V╱ // 0x12bf @0x24
0x129b…12c6 at0025 = ╱41╱A╱ // 0x12c0 @0x25
0x129b…12c6 at0026 = ╱4e╱N╱ // 0x12c1 @0x26
0x129b…12c6 at0027 = ╱54╱T╱ // 0x12c2 @0x27
0x129b…12c6 at0028 = ╱41╱A╱ // 0x12c3 @0x28
0x129b…12c6 at0029 = ╱4c╱L╱ // 0x12c4 @0x29
0x129b…12c6 at002a = EOL // 0x12c5 @0x2a
0x129b…12c6 }
0x12c6…12d9 a030 1790 EXEC FEJL(W,G,K1$)
0x12c6…12d9 LineComalBin {
0x12c6…12d9 ptr = 0xa030 // 0x12c6 @0x0
0x12c6…12d9 lno = 0x06fe // 0x12c8 @0x2
0x12c6…12d9 at0004 = ╱9d╱ EXEC ╱ // 0x12ca @0x4
0x12c6…12d9 at0005 = ╱46╱F╱ // 0x12cb @0x5
0x12c6…12d9 at0006 = ╱45╱E╱ // 0x12cc @0x6
0x12c6…12d9 at0007 = ╱4a╱J╱ // 0x12cd @0x7
0x12c6…12d9 at0008 = ╱4c╱L╱ // 0x12ce @0x8
0x12c6…12d9 at0009 = ╱ed╱(╱ // 0x12cf @0x9
0x12c6…12d9 at000a = ╱57╱W╱ // 0x12d0 @0xa
0x12c6…12d9 at000b = ╱ec╱,╱ // 0x12d1 @0xb
0x12c6…12d9 at000c = ╱47╱G╱ // 0x12d2 @0xc
0x12c6…12d9 at000d = ╱ec╱,╱ // 0x12d3 @0xd
0x12c6…12d9 at000e = ╱4b╱K╱ // 0x12d4 @0xe
0x12c6…12d9 at000f = ╱31╱1╱ // 0x12d5 @0xf
0x12c6…12d9 at0010 = ╱ef╱$╱ // 0x12d6 @0x10
0x12c6…12d9 at0011 = ╱ee╱)╱ // 0x12d7 @0x11
0x12c6…12d9 at0012 = EOL // 0x12d8 @0x12
0x12c6…12d9 }
0x12d9…12fc a053 1800 GET K1$,G:MKAS,MPOS,MBHPOST,MFMID
0x12d9…12fc LineComalBin {
0x12d9…12fc ptr = 0xa053 // 0x12d9 @0x0
0x12d9…12fc lno = 0x0708 // 0x12db @0x2
0x12d9…12fc at0004 = ╱a9╱ GET ╱ // 0x12dd @0x4
0x12d9…12fc at0005 = ╱4b╱K╱ // 0x12de @0x5
0x12d9…12fc at0006 = ╱31╱1╱ // 0x12df @0x6
0x12d9…12fc at0007 = ╱ef╱$╱ // 0x12e0 @0x7
0x12d9…12fc at0008 = ╱ec╱,╱ // 0x12e1 @0x8
0x12d9…12fc at0009 = ╱47╱G╱ // 0x12e2 @0x9
0x12d9…12fc at000a = ╱f0╱:╱ // 0x12e3 @0xa
0x12d9…12fc at000b = ╱4d╱M╱ // 0x12e4 @0xb
0x12d9…12fc at000c = ╱4b╱K╱ // 0x12e5 @0xc
0x12d9…12fc at000d = ╱41╱A╱ // 0x12e6 @0xd
0x12d9…12fc at000e = ╱53╱S╱ // 0x12e7 @0xe
0x12d9…12fc at000f = ╱ec╱,╱ // 0x12e8 @0xf
0x12d9…12fc at0010 = ╱4d╱M╱ // 0x12e9 @0x10
0x12d9…12fc at0011 = ╱50╱P╱ // 0x12ea @0x11
0x12d9…12fc at0012 = ╱4f╱O╱ // 0x12eb @0x12
0x12d9…12fc at0013 = ╱53╱S╱ // 0x12ec @0x13
0x12d9…12fc at0014 = ╱ec╱,╱ // 0x12ed @0x14
0x12d9…12fc at0015 = ╱4d╱M╱ // 0x12ee @0x15
0x12d9…12fc at0016 = ╱42╱B╱ // 0x12ef @0x16
0x12d9…12fc at0017 = ╱48╱H╱ // 0x12f0 @0x17
0x12d9…12fc at0018 = ╱50╱P╱ // 0x12f1 @0x18
0x12d9…12fc at0019 = ╱4f╱O╱ // 0x12f2 @0x19
0x12d9…12fc at001a = ╱53╱S╱ // 0x12f3 @0x1a
0x12d9…12fc at001b = ╱54╱T╱ // 0x12f4 @0x1b
0x12d9…12fc at001c = ╱ec╱,╱ // 0x12f5 @0x1c
0x12d9…12fc at001d = ╱4d╱M╱ // 0x12f6 @0x1d
0x12d9…12fc at001e = ╱46╱F╱ // 0x12f7 @0x1e
0x12d9…12fc at001f = ╱4d╱M╱ // 0x12f8 @0x1f
0x12d9…12fc at0020 = ╱49╱I╱ // 0x12f9 @0x20
0x12d9…12fc at0021 = ╱44╱D╱ // 0x12fa @0x21
0x12d9…12fc at0022 = EOL // 0x12fb @0x22
0x12d9…12fc }
0x12fc…130f a066 1810 EXEC FEJL(W,V,K1$)
0x12fc…130f LineComalBin {
0x12fc…130f ptr = 0xa066 // 0x12fc @0x0
0x12fc…130f lno = 0x0712 // 0x12fe @0x2
0x12fc…130f at0004 = ╱9d╱ EXEC ╱ // 0x1300 @0x4
0x12fc…130f at0005 = ╱46╱F╱ // 0x1301 @0x5
0x12fc…130f at0006 = ╱45╱E╱ // 0x1302 @0x6
0x12fc…130f at0007 = ╱4a╱J╱ // 0x1303 @0x7
0x12fc…130f at0008 = ╱4c╱L╱ // 0x1304 @0x8
0x12fc…130f at0009 = ╱ed╱(╱ // 0x1305 @0x9
0x12fc…130f at000a = ╱57╱W╱ // 0x1306 @0xa
0x12fc…130f at000b = ╱ec╱,╱ // 0x1307 @0xb
0x12fc…130f at000c = ╱56╱V╱ // 0x1308 @0xc
0x12fc…130f at000d = ╱ec╱,╱ // 0x1309 @0xd
0x12fc…130f at000e = ╱4b╱K╱ // 0x130a @0xe
0x12fc…130f at000f = ╱31╱1╱ // 0x130b @0xf
0x12fc…130f at0010 = ╱ef╱$╱ // 0x130c @0x10
0x12fc…130f at0011 = ╱ee╱)╱ // 0x130d @0x11
0x12fc…130f at0012 = EOL // 0x130e @0x12
0x12fc…130f }
0x130f…1320 a077 1820 GET K1$,V:MDMID
0x130f…1320 LineComalBin {
0x130f…1320 ptr = 0xa077 // 0x130f @0x0
0x130f…1320 lno = 0x071c // 0x1311 @0x2
0x130f…1320 at0004 = ╱a9╱ GET ╱ // 0x1313 @0x4
0x130f…1320 at0005 = ╱4b╱K╱ // 0x1314 @0x5
0x130f…1320 at0006 = ╱31╱1╱ // 0x1315 @0x6
0x130f…1320 at0007 = ╱ef╱$╱ // 0x1316 @0x7
0x130f…1320 at0008 = ╱ec╱,╱ // 0x1317 @0x8
0x130f…1320 at0009 = ╱56╱V╱ // 0x1318 @0x9
0x130f…1320 at000a = ╱f0╱:╱ // 0x1319 @0xa
0x130f…1320 at000b = ╱4d╱M╱ // 0x131a @0xb
0x130f…1320 at000c = ╱44╱D╱ // 0x131b @0xc
0x130f…1320 at000d = ╱4d╱M╱ // 0x131c @0xd
0x130f…1320 at000e = ╱49╱I╱ // 0x131d @0xe
0x130f…1320 at000f = ╱44╱D╱ // 0x131e @0xf
0x130f…1320 at0010 = EOL // 0x131f @0x10
0x130f…1320 }
0x1320…1338 a08f 1830 EXEC FEJL(W,4,K1$)
0x1320…1338 LineComalBin {
0x1320…1338 ptr = 0xa08f // 0x1320 @0x0
0x1320…1338 lno = 0x0726 // 0x1322 @0x2
0x1320…1338 at0004 = ╱9d╱ EXEC ╱ // 0x1324 @0x4
0x1320…1338 at0005 = ╱46╱F╱ // 0x1325 @0x5
0x1320…1338 at0006 = ╱45╱E╱ // 0x1326 @0x6
0x1320…1338 at0007 = ╱4a╱J╱ // 0x1327 @0x7
0x1320…1338 at0008 = ╱4c╱L╱ // 0x1328 @0x8
0x1320…1338 at0009 = ╱ed╱(╱ // 0x1329 @0x9
0x1320…1338 at000a = ╱57╱W╱ // 0x132a @0xa
0x1320…1338 at000b = ╱ec╱,╱ // 0x132b @0xb
0x1320…1338 at000c = ╱34╱4╱ // 0x132c @0xc
0x1320…1338 at000d = ╱fe00008003╱ // 0x132d @0xd
0x1320…1338 at0012 = ╱ec╱,╱ // 0x1332 @0x12
0x1320…1338 at0013 = ╱4b╱K╱ // 0x1333 @0x13
0x1320…1338 at0014 = ╱31╱1╱ // 0x1334 @0x14
0x1320…1338 at0015 = ╱ef╱$╱ // 0x1335 @0x15
0x1320…1338 at0016 = ╱ee╱)╱ // 0x1336 @0x16
0x1320…1338 at0017 = EOL // 0x1337 @0x17
0x1320…1338 }
0x1338…1358 a0af 1840 GET K1$,7:INDMOMS,RENTENR
0x1338…1358 LineComalBin {
0x1338…1358 ptr = 0xa0af // 0x1338 @0x0
0x1338…1358 lno = 0x0730 // 0x133a @0x2
0x1338…1358 at0004 = ╱a9╱ GET ╱ // 0x133c @0x4
0x1338…1358 at0005 = ╱4b╱K╱ // 0x133d @0x5
0x1338…1358 at0006 = ╱31╱1╱ // 0x133e @0x6
0x1338…1358 at0007 = ╱ef╱$╱ // 0x133f @0x7
0x1338…1358 at0008 = ╱ec╱,╱ // 0x1340 @0x8
0x1338…1358 at0009 = ╱37╱7╱ // 0x1341 @0x9
0x1338…1358 at000a = ╱fe0000e003╱ // 0x1342 @0xa
0x1338…1358 at000f = ╱f0╱:╱ // 0x1347 @0xf
0x1338…1358 at0010 = ╱49╱I╱ // 0x1348 @0x10
0x1338…1358 at0011 = ╱4e╱N╱ // 0x1349 @0x11
0x1338…1358 at0012 = ╱44╱D╱ // 0x134a @0x12
0x1338…1358 at0013 = ╱4d╱M╱ // 0x134b @0x13
0x1338…1358 at0014 = ╱4f╱O╱ // 0x134c @0x14
0x1338…1358 at0015 = ╱4d╱M╱ // 0x134d @0x15
0x1338…1358 at0016 = ╱53╱S╱ // 0x134e @0x16
0x1338…1358 at0017 = ╱ec╱,╱ // 0x134f @0x17
0x1338…1358 at0018 = ╱52╱R╱ // 0x1350 @0x18
0x1338…1358 at0019 = ╱45╱E╱ // 0x1351 @0x19
0x1338…1358 at001a = ╱4e╱N╱ // 0x1352 @0x1a
0x1338…1358 at001b = ╱54╱T╱ // 0x1353 @0x1b
0x1338…1358 at001c = ╱45╱E╱ // 0x1354 @0x1c
0x1338…1358 at001d = ╱4e╱N╱ // 0x1355 @0x1d
0x1338…1358 at001e = ╱52╱R╱ // 0x1356 @0x1e
0x1338…1358 at001f = EOL // 0x1357 @0x1f
0x1338…1358 }
0x1358…1370 a0c7 1850 EXEC FEJL(W,5,K1$)
0x1358…1370 LineComalBin {
0x1358…1370 ptr = 0xa0c7 // 0x1358 @0x0
0x1358…1370 lno = 0x073a // 0x135a @0x2
0x1358…1370 at0004 = ╱9d╱ EXEC ╱ // 0x135c @0x4
0x1358…1370 at0005 = ╱46╱F╱ // 0x135d @0x5
0x1358…1370 at0006 = ╱45╱E╱ // 0x135e @0x6
0x1358…1370 at0007 = ╱4a╱J╱ // 0x135f @0x7
0x1358…1370 at0008 = ╱4c╱L╱ // 0x1360 @0x8
0x1358…1370 at0009 = ╱ed╱(╱ // 0x1361 @0x9
0x1358…1370 at000a = ╱57╱W╱ // 0x1362 @0xa
0x1358…1370 at000b = ╱ec╱,╱ // 0x1363 @0xb
0x1358…1370 at000c = ╱35╱5╱ // 0x1364 @0xc
0x1358…1370 at000d = ╱fe0000a003╱ // 0x1365 @0xd
0x1358…1370 at0012 = ╱ec╱,╱ // 0x136a @0x12
0x1358…1370 at0013 = ╱4b╱K╱ // 0x136b @0x13
0x1358…1370 at0014 = ╱31╱1╱ // 0x136c @0x14
0x1358…1370 at0015 = ╱ef╱$╱ // 0x136d @0x15
0x1358…1370 at0016 = ╱ee╱)╱ // 0x136e @0x16
0x1358…1370 at0017 = EOL // 0x136f @0x17
0x1358…1370 }
0x1370…1398 a0ef 1855 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL
0x1370…1398 LineComalBin {
0x1370…1398 ptr = 0xa0ef // 0x1370 @0x0
0x1370…1398 lno = 0x073f // 0x1372 @0x2
0x1370…1398 at0004 = ╱a9╱ GET ╱ // 0x1374 @0x4
0x1370…1398 at0005 = ╱4b╱K╱ // 0x1375 @0x5
0x1370…1398 at0006 = ╱31╱1╱ // 0x1376 @0x6
0x1370…1398 at0007 = ╱ef╱$╱ // 0x1377 @0x7
0x1370…1398 at0008 = ╱ec╱,╱ // 0x1378 @0x8
0x1370…1398 at0009 = ╱38╱8╱ // 0x1379 @0x9
0x1370…1398 at000a = ╱fe00008004╱ // 0x137a @0xa
0x1370…1398 at000f = ╱f0╱:╱ // 0x137f @0xf
0x1370…1398 at0010 = ╱44╱D╱ // 0x1380 @0x10
0x1370…1398 at0011 = ╱49╱I╱ // 0x1381 @0x11
0x1370…1398 at0012 = ╱56╱V╱ // 0x1382 @0x12
0x1370…1398 at0013 = ╱4e╱N╱ // 0x1383 @0x13
0x1370…1398 at0014 = ╱52╱R╱ // 0x1384 @0x14
0x1370…1398 at0015 = ╱ec╱,╱ // 0x1385 @0x15
0x1370…1398 at0016 = ╱44╱D╱ // 0x1386 @0x16
0x1370…1398 at0017 = ╱49╱I╱ // 0x1387 @0x17
0x1370…1398 at0018 = ╱56╱V╱ // 0x1388 @0x18
0x1370…1398 at0019 = ╱44╱D╱ // 0x1389 @0x19
0x1370…1398 at001a = ╱4e╱N╱ // 0x138a @0x1a
0x1370…1398 at001b = ╱52╱R╱ // 0x138b @0x1b
0x1370…1398 at001c = ╱ec╱,╱ // 0x138c @0x1c
0x1370…1398 at001d = ╱44╱D╱ // 0x138d @0x1d
0x1370…1398 at001e = ╱49╱I╱ // 0x138e @0x1e
0x1370…1398 at001f = ╱46╱F╱ // 0x138f @0x1f
0x1370…1398 at0020 = ╱4e╱N╱ // 0x1390 @0x20
0x1370…1398 at0021 = ╱52╱R╱ // 0x1391 @0x21
0x1370…1398 at0022 = ╱ec╱,╱ // 0x1392 @0x22
0x1370…1398 at0023 = ╱44╱D╱ // 0x1393 @0x23
0x1370…1398 at0024 = ╱54╱T╱ // 0x1394 @0x24
0x1370…1398 at0025 = ╱41╱A╱ // 0x1395 @0x25
0x1370…1398 at0026 = ╱4c╱L╱ // 0x1396 @0x26
0x1370…1398 at0027 = EOL // 0x1397 @0x27
0x1370…1398 }
0x1398…13b1 a108 1856 EXEC FEJL(W,51,K1$)
0x1398…13b1 LineComalBin {
0x1398…13b1 ptr = 0xa108 // 0x1398 @0x0
0x1398…13b1 lno = 0x0740 // 0x139a @0x2
0x1398…13b1 at0004 = ╱9d╱ EXEC ╱ // 0x139c @0x4
0x1398…13b1 at0005 = ╱46╱F╱ // 0x139d @0x5
0x1398…13b1 at0006 = ╱45╱E╱ // 0x139e @0x6
0x1398…13b1 at0007 = ╱4a╱J╱ // 0x139f @0x7
0x1398…13b1 at0008 = ╱4c╱L╱ // 0x13a0 @0x8
0x1398…13b1 at0009 = ╱ed╱(╱ // 0x13a1 @0x9
0x1398…13b1 at000a = ╱57╱W╱ // 0x13a2 @0xa
0x1398…13b1 at000b = ╱ec╱,╱ // 0x13a3 @0xb
0x1398…13b1 at000c = ╱35╱5╱ // 0x13a4 @0xc
0x1398…13b1 at000d = ╱31╱1╱ // 0x13a5 @0xd
0x1398…13b1 at000e = ╱fe0000cc06╱ // 0x13a6 @0xe
0x1398…13b1 at0013 = ╱ec╱,╱ // 0x13ab @0x13
0x1398…13b1 at0014 = ╱4b╱K╱ // 0x13ac @0x14
0x1398…13b1 at0015 = ╱31╱1╱ // 0x13ad @0x15
0x1398…13b1 at0016 = ╱ef╱$╱ // 0x13ae @0x16
0x1398…13b1 at0017 = ╱ee╱)╱ // 0x13af @0x17
0x1398…13b1 at0018 = EOL // 0x13b0 @0x18
0x1398…13b1 }
0x13b1…13c5 a11c 1860 GET K1$,10:N$
0x13b1…13c5 LineComalBin {
0x13b1…13c5 ptr = 0xa11c // 0x13b1 @0x0
0x13b1…13c5 lno = 0x0744 // 0x13b3 @0x2
0x13b1…13c5 at0004 = ╱a9╱ GET ╱ // 0x13b5 @0x4
0x13b1…13c5 at0005 = ╱4b╱K╱ // 0x13b6 @0x5
0x13b1…13c5 at0006 = ╱31╱1╱ // 0x13b7 @0x6
0x13b1…13c5 at0007 = ╱ef╱$╱ // 0x13b8 @0x7
0x13b1…13c5 at0008 = ╱ec╱,╱ // 0x13b9 @0x8
0x13b1…13c5 at0009 = ╱31╱1╱ // 0x13ba @0x9
0x13b1…13c5 at000a = ╱30╱0╱ // 0x13bb @0xa
0x13b1…13c5 at000b = ╱fe0000a004╱ // 0x13bc @0xb
0x13b1…13c5 at0010 = ╱f0╱:╱ // 0x13c1 @0x10
0x13b1…13c5 at0011 = ╱4e╱N╱ // 0x13c2 @0x11
0x13b1…13c5 at0012 = ╱ef╱$╱ // 0x13c3 @0x12
0x13b1…13c5 at0013 = EOL // 0x13c4 @0x13
0x13b1…13c5 }
0x13c5…13dd a134 1870 EXEC FEJL(W,6,K1$)
0x13c5…13dd LineComalBin {
0x13c5…13dd ptr = 0xa134 // 0x13c5 @0x0
0x13c5…13dd lno = 0x074e // 0x13c7 @0x2
0x13c5…13dd at0004 = ╱9d╱ EXEC ╱ // 0x13c9 @0x4
0x13c5…13dd at0005 = ╱46╱F╱ // 0x13ca @0x5
0x13c5…13dd at0006 = ╱45╱E╱ // 0x13cb @0x6
0x13c5…13dd at0007 = ╱4a╱J╱ // 0x13cc @0x7
0x13c5…13dd at0008 = ╱4c╱L╱ // 0x13cd @0x8
0x13c5…13dd at0009 = ╱ed╱(╱ // 0x13ce @0x9
0x13c5…13dd at000a = ╱57╱W╱ // 0x13cf @0xa
0x13c5…13dd at000b = ╱ec╱,╱ // 0x13d0 @0xb
0x13c5…13dd at000c = ╱36╱6╱ // 0x13d1 @0xc
0x13c5…13dd at000d = ╱fe0000c003╱ // 0x13d2 @0xd
0x13c5…13dd at0012 = ╱ec╱,╱ // 0x13d7 @0x12
0x13c5…13dd at0013 = ╱4b╱K╱ // 0x13d8 @0x13
0x13c5…13dd at0014 = ╱31╱1╱ // 0x13d9 @0x14
0x13c5…13dd at0015 = ╱ef╱$╱ // 0x13da @0x15
0x13c5…13dd at0016 = ╱ee╱)╱ // 0x13db @0x16
0x13c5…13dd at0017 = EOL // 0x13dc @0x17
0x13c5…13dd }
0x13dd…13f2 a149 1880 GET K1$,12:K2$
0x13dd…13f2 LineComalBin {
0x13dd…13f2 ptr = 0xa149 // 0x13dd @0x0
0x13dd…13f2 lno = 0x0758 // 0x13df @0x2
0x13dd…13f2 at0004 = ╱a9╱ GET ╱ // 0x13e1 @0x4
0x13dd…13f2 at0005 = ╱4b╱K╱ // 0x13e2 @0x5
0x13dd…13f2 at0006 = ╱31╱1╱ // 0x13e3 @0x6
0x13dd…13f2 at0007 = ╱ef╱$╱ // 0x13e4 @0x7
0x13dd…13f2 at0008 = ╱ec╱,╱ // 0x13e5 @0x8
0x13dd…13f2 at0009 = ╱31╱1╱ // 0x13e6 @0x9
0x13dd…13f2 at000a = ╱32╱2╱ // 0x13e7 @0xa
0x13dd…13f2 at000b = ╱fe0000c004╱ // 0x13e8 @0xb
0x13dd…13f2 at0010 = ╱f0╱:╱ // 0x13ed @0x10
0x13dd…13f2 at0011 = ╱4b╱K╱ // 0x13ee @0x11
0x13dd…13f2 at0012 = ╱32╱2╱ // 0x13ef @0x12
0x13dd…13f2 at0013 = ╱ef╱$╱ // 0x13f0 @0x13
0x13dd…13f2 at0014 = EOL // 0x13f1 @0x14
0x13dd…13f2 }
0x13f2…140a a161 1890 EXEC FEJL(W,7,K1$)
0x13f2…140a LineComalBin {
0x13f2…140a ptr = 0xa161 // 0x13f2 @0x0
0x13f2…140a lno = 0x0762 // 0x13f4 @0x2
0x13f2…140a at0004 = ╱9d╱ EXEC ╱ // 0x13f6 @0x4
0x13f2…140a at0005 = ╱46╱F╱ // 0x13f7 @0x5
0x13f2…140a at0006 = ╱45╱E╱ // 0x13f8 @0x6
0x13f2…140a at0007 = ╱4a╱J╱ // 0x13f9 @0x7
0x13f2…140a at0008 = ╱4c╱L╱ // 0x13fa @0x8
0x13f2…140a at0009 = ╱ed╱(╱ // 0x13fb @0x9
0x13f2…140a at000a = ╱57╱W╱ // 0x13fc @0xa
0x13f2…140a at000b = ╱ec╱,╱ // 0x13fd @0xb
0x13f2…140a at000c = ╱37╱7╱ // 0x13fe @0xc
0x13f2…140a at000d = ╱fe0000e003╱ // 0x13ff @0xd
0x13f2…140a at0012 = ╱ec╱,╱ // 0x1404 @0x12
0x13f2…140a at0013 = ╱4b╱K╱ // 0x1405 @0x13
0x13f2…140a at0014 = ╱31╱1╱ // 0x1406 @0x14
0x13f2…140a at0015 = ╱ef╱$╱ // 0x1407 @0x15
0x13f2…140a at0016 = ╱ee╱)╱ // 0x1408 @0x16
0x13f2…140a at0017 = EOL // 0x1409 @0x17
0x13f2…140a }
0x140a…141f a176 1900 GET K1$,16:K3$
0x140a…141f LineComalBin {
0x140a…141f ptr = 0xa176 // 0x140a @0x0
0x140a…141f lno = 0x076c // 0x140c @0x2
0x140a…141f at0004 = ╱a9╱ GET ╱ // 0x140e @0x4
0x140a…141f at0005 = ╱4b╱K╱ // 0x140f @0x5
0x140a…141f at0006 = ╱31╱1╱ // 0x1410 @0x6
0x140a…141f at0007 = ╱ef╱$╱ // 0x1411 @0x7
0x140a…141f at0008 = ╱ec╱,╱ // 0x1412 @0x8
0x140a…141f at0009 = ╱31╱1╱ // 0x1413 @0x9
0x140a…141f at000a = ╱36╱6╱ // 0x1414 @0xa
0x140a…141f at000b = ╱fe00008005╱ // 0x1415 @0xb
0x140a…141f at0010 = ╱f0╱:╱ // 0x141a @0x10
0x140a…141f at0011 = ╱4b╱K╱ // 0x141b @0x11
0x140a…141f at0012 = ╱33╱3╱ // 0x141c @0x12
0x140a…141f at0013 = ╱ef╱$╱ // 0x141d @0x13
0x140a…141f at0014 = EOL // 0x141e @0x14
0x140a…141f }
0x141f…1437 a18e 1910 EXEC FEJL(W,8,K1$)
0x141f…1437 LineComalBin {
0x141f…1437 ptr = 0xa18e // 0x141f @0x0
0x141f…1437 lno = 0x0776 // 0x1421 @0x2
0x141f…1437 at0004 = ╱9d╱ EXEC ╱ // 0x1423 @0x4
0x141f…1437 at0005 = ╱46╱F╱ // 0x1424 @0x5
0x141f…1437 at0006 = ╱45╱E╱ // 0x1425 @0x6
0x141f…1437 at0007 = ╱4a╱J╱ // 0x1426 @0x7
0x141f…1437 at0008 = ╱4c╱L╱ // 0x1427 @0x8
0x141f…1437 at0009 = ╱ed╱(╱ // 0x1428 @0x9
0x141f…1437 at000a = ╱57╱W╱ // 0x1429 @0xa
0x141f…1437 at000b = ╱ec╱,╱ // 0x142a @0xb
0x141f…1437 at000c = ╱38╱8╱ // 0x142b @0xc
0x141f…1437 at000d = ╱fe00008004╱ // 0x142c @0xd
0x141f…1437 at0012 = ╱ec╱,╱ // 0x1431 @0x12
0x141f…1437 at0013 = ╱4b╱K╱ // 0x1432 @0x13
0x141f…1437 at0014 = ╱31╱1╱ // 0x1433 @0x14
0x141f…1437 at0015 = ╱ef╱$╱ // 0x1434 @0x15
0x141f…1437 at0016 = ╱ee╱)╱ // 0x1435 @0x16
0x141f…1437 at0017 = EOL // 0x1436 @0x17
0x141f…1437 }
0x1437…144c a1a3 1920 GET K1$,21:K4$
0x1437…144c LineComalBin {
0x1437…144c ptr = 0xa1a3 // 0x1437 @0x0
0x1437…144c lno = 0x0780 // 0x1439 @0x2
0x1437…144c at0004 = ╱a9╱ GET ╱ // 0x143b @0x4
0x1437…144c at0005 = ╱4b╱K╱ // 0x143c @0x5
0x1437…144c at0006 = ╱31╱1╱ // 0x143d @0x6
0x1437…144c at0007 = ╱ef╱$╱ // 0x143e @0x7
0x1437…144c at0008 = ╱ec╱,╱ // 0x143f @0x8
0x1437…144c at0009 = ╱32╱2╱ // 0x1440 @0x9
0x1437…144c at000a = ╱31╱1╱ // 0x1441 @0xa
0x1437…144c at000b = ╱fe0000a805╱ // 0x1442 @0xb
0x1437…144c at0010 = ╱f0╱:╱ // 0x1447 @0x10
0x1437…144c at0011 = ╱4b╱K╱ // 0x1448 @0x11
0x1437…144c at0012 = ╱34╱4╱ // 0x1449 @0x12
0x1437…144c at0013 = ╱ef╱$╱ // 0x144a @0x13
0x1437…144c at0014 = EOL // 0x144b @0x14
0x1437…144c }
0x144c…145f a1b6 1930 EXEC FEJL(W,W,K1$)
0x144c…145f LineComalBin {
0x144c…145f ptr = 0xa1b6 // 0x144c @0x0
0x144c…145f lno = 0x078a // 0x144e @0x2
0x144c…145f at0004 = ╱9d╱ EXEC ╱ // 0x1450 @0x4
0x144c…145f at0005 = ╱46╱F╱ // 0x1451 @0x5
0x144c…145f at0006 = ╱45╱E╱ // 0x1452 @0x6
0x144c…145f at0007 = ╱4a╱J╱ // 0x1453 @0x7
0x144c…145f at0008 = ╱4c╱L╱ // 0x1454 @0x8
0x144c…145f at0009 = ╱ed╱(╱ // 0x1455 @0x9
0x144c…145f at000a = ╱57╱W╱ // 0x1456 @0xa
0x144c…145f at000b = ╱ec╱,╱ // 0x1457 @0xb
0x144c…145f at000c = ╱57╱W╱ // 0x1458 @0xc
0x144c…145f at000d = ╱ec╱,╱ // 0x1459 @0xd
0x144c…145f at000e = ╱4b╱K╱ // 0x145a @0xe
0x144c…145f at000f = ╱31╱1╱ // 0x145b @0xf
0x144c…145f at0010 = ╱ef╱$╱ // 0x145c @0x10
0x144c…145f at0011 = ╱ee╱)╱ // 0x145d @0x11
0x144c…145f at0012 = EOL // 0x145e @0x12
0x144c…145f }
0x145f…1474 a1cb 1940 GET K1$,36:K6$
0x145f…1474 LineComalBin {
0x145f…1474 ptr = 0xa1cb // 0x145f @0x0
0x145f…1474 lno = 0x0794 // 0x1461 @0x2
0x145f…1474 at0004 = ╱a9╱ GET ╱ // 0x1463 @0x4
0x145f…1474 at0005 = ╱4b╱K╱ // 0x1464 @0x5
0x145f…1474 at0006 = ╱31╱1╱ // 0x1465 @0x6
0x145f…1474 at0007 = ╱ef╱$╱ // 0x1466 @0x7
0x145f…1474 at0008 = ╱ec╱,╱ // 0x1467 @0x8
0x145f…1474 at0009 = ╱33╱3╱ // 0x1468 @0x9
0x145f…1474 at000a = ╱36╱6╱ // 0x1469 @0xa
0x145f…1474 at000b = ╱fe00009006╱ // 0x146a @0xb
0x145f…1474 at0010 = ╱f0╱:╱ // 0x146f @0x10
0x145f…1474 at0011 = ╱4b╱K╱ // 0x1470 @0x11
0x145f…1474 at0012 = ╱36╱6╱ // 0x1471 @0x12
0x145f…1474 at0013 = ╱ef╱$╱ // 0x1472 @0x13
0x145f…1474 at0014 = EOL // 0x1473 @0x14
0x145f…1474 }
0x1474…148d (68,) a1e4 1950 EXEC FEJL(W,10,K1$)
0x1474…148d LineComalBin {
0x1474…148d ptr = 0xa1e4 // 0x1474 @0x0
0x1474…148d lno = 0x079e // 0x1476 @0x2
0x1474…148d at0004 = ╱9d╱ EXEC ╱ // 0x1478 @0x4
0x1474…148d at0005 = ╱46╱F╱ // 0x1479 @0x5
0x1474…148d at0006 = ╱45╱E╱ // 0x147a @0x6
0x1474…148d at0007 = ╱4a╱J╱ // 0x147b @0x7
0x1474…148d at0008 = ╱4c╱L╱ // 0x147c @0x8
0x1474…148d at0009 = ╱ed╱(╱ // 0x147d @0x9
0x1474…148d at000a = ╱57╱W╱ // 0x147e @0xa
0x1474…148d at000b = ╱ec╱,╱ // 0x147f @0xb
0x1474…148d at000c = ╱31╱1╱ // 0x1480 @0xc
0x1474…148d at000d = ╱30╱0╱ // 0x1481 @0xd
0x1474…148d at000e = ╱fe0000a004╱ // 0x1482 @0xe
0x1474…148d at0013 = ╱ec╱,╱ // 0x1487 @0x13
0x1474…148d at0014 = ╱4b╱K╱ // 0x1488 @0x14
0x1474…148d at0015 = ╱31╱1╱ // 0x1489 @0x15
0x1474…148d at0016 = ╱ef╱$╱ // 0x148a @0x16
0x1474…148d at0017 = ╱ee╱)╱ // 0x148b @0x17
0x1474…148d at0018 = EOL // 0x148c @0x18
0x1474…148d }
0x148d…1496 a1ed 1960 CLOSE K1$
0x148d…1496 LineComalBin {
0x148d…1496 ptr = 0xa1ed // 0x148d @0x0
0x148d…1496 lno = 0x07a8 // 0x148f @0x2
0x148d…1496 at0004 = ╱a8╱ CLOSE ╱ // 0x1491 @0x4
0x148d…1496 at0005 = ╱4b╱K╱ // 0x1492 @0x5
0x148d…1496 at0006 = ╱31╱1╱ // 0x1493 @0x6
0x148d…1496 at0007 = ╱ef╱$╱ // 0x1494 @0x7
0x148d…1496 at0008 = EOL // 0x1495 @0x8
0x148d…1496 }
0x1496…14af a206 1970 EXEC FEJL(W,11,K1$)
0x1496…14af LineComalBin {
0x1496…14af ptr = 0xa206 // 0x1496 @0x0
0x1496…14af lno = 0x07b2 // 0x1498 @0x2
0x1496…14af at0004 = ╱9d╱ EXEC ╱ // 0x149a @0x4
0x1496…14af at0005 = ╱46╱F╱ // 0x149b @0x5
0x1496…14af at0006 = ╱45╱E╱ // 0x149c @0x6
0x1496…14af at0007 = ╱4a╱J╱ // 0x149d @0x7
0x1496…14af at0008 = ╱4c╱L╱ // 0x149e @0x8
0x1496…14af at0009 = ╱ed╱(╱ // 0x149f @0x9
0x1496…14af at000a = ╱57╱W╱ // 0x14a0 @0xa
0x1496…14af at000b = ╱ec╱,╱ // 0x14a1 @0xb
0x1496…14af at000c = ╱31╱1╱ // 0x14a2 @0xc
0x1496…14af at000d = ╱31╱1╱ // 0x14a3 @0xd
0x1496…14af at000e = ╱fe0000b004╱ // 0x14a4 @0xe
0x1496…14af at0013 = ╱ec╱,╱ // 0x14a9 @0x13
0x1496…14af at0014 = ╱4b╱K╱ // 0x14aa @0x14
0x1496…14af at0015 = ╱31╱1╱ // 0x14ab @0x15
0x1496…14af at0016 = ╱ef╱$╱ // 0x14ac @0x16
0x1496…14af at0017 = ╱ee╱)╱ // 0x14ad @0x17
0x1496…14af at0018 = EOL // 0x14ae @0x18
0x1496…14af }
0x14af…14f3 a24a 1980 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K6$=N$+K6$;K5$=N$+"10:RENPOST"
0x14af…14f3 LineComalBin {
0x14af…14f3 ptr = 0xa24a // 0x14af @0x0
0x14af…14f3 lno = 0x07bc // 0x14b1 @0x2
0x14af…14f3 at0004 = ╱4b╱K╱ // 0x14b3 @0x4
0x14af…14f3 at0005 = ╱32╱2╱ // 0x14b4 @0x5
0x14af…14f3 at0006 = ╱ef╱$╱ // 0x14b5 @0x6
0x14af…14f3 at0007 = ╱dc╱=╱ // 0x14b6 @0x7
0x14af…14f3 at0008 = ╱4e╱N╱ // 0x14b7 @0x8
0x14af…14f3 at0009 = ╱ef╱$╱ // 0x14b8 @0x9
0x14af…14f3 at000a = ╱f1╱+╱ // 0x14b9 @0xa
0x14af…14f3 at000b = ╱4b╱K╱ // 0x14ba @0xb
0x14af…14f3 at000c = ╱32╱2╱ // 0x14bb @0xc
0x14af…14f3 at000d = ╱ef╱$╱ // 0x14bc @0xd
0x14af…14f3 at000e = ╱eb╱;╱ // 0x14bd @0xe
0x14af…14f3 at000f = ╱4b╱K╱ // 0x14be @0xf
0x14af…14f3 at0010 = ╱33╱3╱ // 0x14bf @0x10
0x14af…14f3 at0011 = ╱ef╱$╱ // 0x14c0 @0x11
0x14af…14f3 at0012 = ╱dc╱=╱ // 0x14c1 @0x12
0x14af…14f3 at0013 = ╱4e╱N╱ // 0x14c2 @0x13
0x14af…14f3 at0014 = ╱ef╱$╱ // 0x14c3 @0x14
0x14af…14f3 at0015 = ╱f1╱+╱ // 0x14c4 @0x15
0x14af…14f3 at0016 = ╱4b╱K╱ // 0x14c5 @0x16
0x14af…14f3 at0017 = ╱33╱3╱ // 0x14c6 @0x17
0x14af…14f3 at0018 = ╱ef╱$╱ // 0x14c7 @0x18
0x14af…14f3 at0019 = ╱eb╱;╱ // 0x14c8 @0x19
0x14af…14f3 at001a = ╱4b╱K╱ // 0x14c9 @0x1a
0x14af…14f3 at001b = ╱34╱4╱ // 0x14ca @0x1b
0x14af…14f3 at001c = ╱ef╱$╱ // 0x14cb @0x1c
0x14af…14f3 at001d = ╱dc╱=╱ // 0x14cc @0x1d
0x14af…14f3 at001e = ╱4e╱N╱ // 0x14cd @0x1e
0x14af…14f3 at001f = ╱ef╱$╱ // 0x14ce @0x1f
0x14af…14f3 at0020 = ╱f1╱+╱ // 0x14cf @0x20
0x14af…14f3 at0021 = ╱4b╱K╱ // 0x14d0 @0x21
0x14af…14f3 at0022 = ╱34╱4╱ // 0x14d1 @0x22
0x14af…14f3 at0023 = ╱ef╱$╱ // 0x14d2 @0x23
0x14af…14f3 at0024 = ╱eb╱;╱ // 0x14d3 @0x24
0x14af…14f3 at0025 = ╱4b╱K╱ // 0x14d4 @0x25
0x14af…14f3 at0026 = ╱36╱6╱ // 0x14d5 @0x26
0x14af…14f3 at0027 = ╱ef╱$╱ // 0x14d6 @0x27
0x14af…14f3 at0028 = ╱dc╱=╱ // 0x14d7 @0x28
0x14af…14f3 at0029 = ╱4e╱N╱ // 0x14d8 @0x29
0x14af…14f3 at002a = ╱ef╱$╱ // 0x14d9 @0x2a
0x14af…14f3 at002b = ╱f1╱+╱ // 0x14da @0x2b
0x14af…14f3 at002c = ╱4b╱K╱ // 0x14db @0x2c
0x14af…14f3 at002d = ╱36╱6╱ // 0x14dc @0x2d
0x14af…14f3 at002e = ╱ef╱$╱ // 0x14dd @0x2e
0x14af…14f3 at002f = ╱eb╱;╱ // 0x14de @0x2f
0x14af…14f3 at0030 = ╱4b╱K╱ // 0x14df @0x30
0x14af…14f3 at0031 = ╱35╱5╱ // 0x14e0 @0x31
0x14af…14f3 at0032 = ╱ef╱$╱ // 0x14e1 @0x32
0x14af…14f3 at0033 = ╱dc╱=╱ // 0x14e2 @0x33
0x14af…14f3 at0034 = ╱4e╱N╱ // 0x14e3 @0x34
0x14af…14f3 at0035 = ╱ef╱$╱ // 0x14e4 @0x35
0x14af…14f3 at0036 = ╱f1╱+╱ // 0x14e5 @0x36
0x14af…14f3 at0037 = ╱22╱"╱ // 0x14e6 @0x37
0x14af…14f3 at0038 = ╱31╱1╱ // 0x14e7 @0x38
0x14af…14f3 at0039 = ╱30╱0╱ // 0x14e8 @0x39
0x14af…14f3 at003a = ╱3a╱:╱ // 0x14e9 @0x3a
0x14af…14f3 at003b = ╱52╱R╱ // 0x14ea @0x3b
0x14af…14f3 at003c = ╱45╱E╱ // 0x14eb @0x3c
0x14af…14f3 at003d = ╱4e╱N╱ // 0x14ec @0x3d
0x14af…14f3 at003e = ╱50╱P╱ // 0x14ed @0x3e
0x14af…14f3 at003f = ╱4f╱O╱ // 0x14ee @0x3f
0x14af…14f3 at0040 = ╱53╱S╱ // 0x14ef @0x40
0x14af…14f3 at0041 = ╱54╱T╱ // 0x14f0 @0x41
0x14af…14f3 at0042 = ╱22╱"╱ // 0x14f1 @0x42
0x14af…14f3 at0043 = EOL // 0x14f2 @0x43
0x14af…14f3 }
0x14f3…151d a274 1990 DIM DTAB(MDANTAL DIV 4),DTAB3(4,G)
0x14f3…151d LineComalBin {
0x14f3…151d ptr = 0xa274 // 0x14f3 @0x0
0x14f3…151d lno = 0x07c6 // 0x14f5 @0x2
0x14f3…151d at0004 = ╱87╱ DIM ╱ // 0x14f7 @0x4
0x14f3…151d at0005 = ╱44╱D╱ // 0x14f8 @0x5
0x14f3…151d at0006 = ╱54╱T╱ // 0x14f9 @0x6
0x14f3…151d at0007 = ╱41╱A╱ // 0x14fa @0x7
0x14f3…151d at0008 = ╱42╱B╱ // 0x14fb @0x8
0x14f3…151d at0009 = ╱ed╱(╱ // 0x14fc @0x9
0x14f3…151d at000a = ╱4d╱M╱ // 0x14fd @0xa
0x14f3…151d at000b = ╱44╱D╱ // 0x14fe @0xb
0x14f3…151d at000c = ╱41╱A╱ // 0x14ff @0xc
0x14f3…151d at000d = ╱4e╱N╱ // 0x1500 @0xd
0x14f3…151d at000e = ╱54╱T╱ // 0x1501 @0xe
0x14f3…151d at000f = ╱41╱A╱ // 0x1502 @0xf
0x14f3…151d at0010 = ╱4c╱L╱ // 0x1503 @0x10
0x14f3…151d at0011 = ╱e7╱ DIV ╱ // 0x1504 @0x11
0x14f3…151d at0012 = ╱34╱4╱ // 0x1505 @0x12
0x14f3…151d at0013 = ╱fe00008003╱ // 0x1506 @0x13
0x14f3…151d at0018 = ╱ee╱)╱ // 0x150b @0x18
0x14f3…151d at0019 = ╱ec╱,╱ // 0x150c @0x19
0x14f3…151d at001a = ╱44╱D╱ // 0x150d @0x1a
0x14f3…151d at001b = ╱54╱T╱ // 0x150e @0x1b
0x14f3…151d at001c = ╱41╱A╱ // 0x150f @0x1c
0x14f3…151d at001d = ╱42╱B╱ // 0x1510 @0x1d
0x14f3…151d at001e = ╱33╱3╱ // 0x1511 @0x1e
0x14f3…151d at001f = ╱ed╱(╱ // 0x1512 @0x1f
0x14f3…151d at0020 = ╱34╱4╱ // 0x1513 @0x20
0x14f3…151d at0021 = ╱fe00008003╱ // 0x1514 @0x21
0x14f3…151d at0026 = ╱ec╱,╱ // 0x1519 @0x26
0x14f3…151d at0027 = ╱47╱G╱ // 0x151a @0x27
0x14f3…151d at0028 = ╱ee╱)╱ // 0x151b @0x28
0x14f3…151d at0029 = EOL // 0x151c @0x29
0x14f3…151d }
0x151d…153e a295 2000 IF MDMID>MBHPOST THEN MDMID=MBHPOST
0x151d…153e LineComalBin {
0x151d…153e ptr = 0xa295 // 0x151d @0x0
0x151d…153e lno = 0x07d0 // 0x151f @0x2
0x151d…153e at0004 = ╱82╱ IF ╱ // 0x1521 @0x4
0x151d…153e at0005 = ╱4d╱M╱ // 0x1522 @0x5
0x151d…153e at0006 = ╱44╱D╱ // 0x1523 @0x6
0x151d…153e at0007 = ╱4d╱M╱ // 0x1524 @0x7
0x151d…153e at0008 = ╱49╱I╱ // 0x1525 @0x8
0x151d…153e at0009 = ╱44╱D╱ // 0x1526 @0x9
0x151d…153e at000a = ╱de╱>╱ // 0x1527 @0xa
0x151d…153e at000b = ╱4d╱M╱ // 0x1528 @0xb
0x151d…153e at000c = ╱42╱B╱ // 0x1529 @0xc
0x151d…153e at000d = ╱48╱H╱ // 0x152a @0xd
0x151d…153e at000e = ╱50╱P╱ // 0x152b @0xe
0x151d…153e at000f = ╱4f╱O╱ // 0x152c @0xf
0x151d…153e at0010 = ╱53╱S╱ // 0x152d @0x10
0x151d…153e at0011 = ╱54╱T╱ // 0x152e @0x11
0x151d…153e at0012 = ╱b6╱ THEN ╱ // 0x152f @0x12
0x151d…153e at0013 = ╱4d╱M╱ // 0x1530 @0x13
0x151d…153e at0014 = ╱44╱D╱ // 0x1531 @0x14
0x151d…153e at0015 = ╱4d╱M╱ // 0x1532 @0x15
0x151d…153e at0016 = ╱49╱I╱ // 0x1533 @0x16
0x151d…153e at0017 = ╱44╱D╱ // 0x1534 @0x17
0x151d…153e at0018 = ╱dc╱=╱ // 0x1535 @0x18
0x151d…153e at0019 = ╱4d╱M╱ // 0x1536 @0x19
0x151d…153e at001a = ╱42╱B╱ // 0x1537 @0x1a
0x151d…153e at001b = ╱48╱H╱ // 0x1538 @0x1b
0x151d…153e at001c = ╱50╱P╱ // 0x1539 @0x1c
0x151d…153e at001d = ╱4f╱O╱ // 0x153a @0x1d
0x151d…153e at001e = ╱53╱S╱ // 0x153b @0x1e
0x151d…153e at001f = ╱54╱T╱ // 0x153c @0x1f
0x151d…153e at0020 = EOL // 0x153d @0x20
0x151d…153e }
0x153e…1555 a2ac 2010 CREATE K5$,MDMID,70
0x153e…1555 LineComalBin {
0x153e…1555 ptr = 0xa2ac // 0x153e @0x0
0x153e…1555 lno = 0x07da // 0x1540 @0x2
0x153e…1555 at0004 = ╱ae╱ CREATE ╱ // 0x1542 @0x4
0x153e…1555 at0005 = ╱4b╱K╱ // 0x1543 @0x5
0x153e…1555 at0006 = ╱35╱5╱ // 0x1544 @0x6
0x153e…1555 at0007 = ╱ef╱$╱ // 0x1545 @0x7
0x153e…1555 at0008 = ╱ec╱,╱ // 0x1546 @0x8
0x153e…1555 at0009 = ╱4d╱M╱ // 0x1547 @0x9
0x153e…1555 at000a = ╱44╱D╱ // 0x1548 @0xa
0x153e…1555 at000b = ╱4d╱M╱ // 0x1549 @0xb
0x153e…1555 at000c = ╱49╱I╱ // 0x154a @0xc
0x153e…1555 at000d = ╱44╱D╱ // 0x154b @0xd
0x153e…1555 at000e = ╱ec╱,╱ // 0x154c @0xe
0x153e…1555 at000f = ╱37╱7╱ // 0x154d @0xf
0x153e…1555 at0010 = ╱30╱0╱ // 0x154e @0x10
0x153e…1555 at0011 = ╱fe00008c07╱ // 0x154f @0x11
0x153e…1555 at0016 = EOL // 0x1554 @0x16
0x153e…1555 }
0x1555…1565 a2bc 2020 IF STATUS(K5$)>G THEN STOP
0x1555…1565 LineComalBin {
0x1555…1565 ptr = 0xa2bc // 0x1555 @0x0
0x1555…1565 lno = 0x07e4 // 0x1557 @0x2
0x1555…1565 at0004 = ╱82╱ IF ╱ // 0x1559 @0x4
0x1555…1565 at0005 = ╱ce╱STATUS╱ // 0x155a @0x5
0x1555…1565 at0006 = ╱ed╱(╱ // 0x155b @0x6
0x1555…1565 at0007 = ╱4b╱K╱ // 0x155c @0x7
0x1555…1565 at0008 = ╱35╱5╱ // 0x155d @0x8
0x1555…1565 at0009 = ╱ef╱$╱ // 0x155e @0x9
0x1555…1565 at000a = ╱ee╱)╱ // 0x155f @0xa
0x1555…1565 at000b = ╱de╱>╱ // 0x1560 @0xb
0x1555…1565 at000c = ╱47╱G╱ // 0x1561 @0xc
0x1555…1565 at000d = ╱b6╱ THEN ╱ // 0x1562 @0xd
0x1555…1565 at000e = ╱8d╱ STOP ╱ // 0x1563 @0xe
0x1555…1565 at000f = EOL // 0x1564 @0xf
0x1555…1565 }
0x1565…1570 a2c7 2030 OPEN K6$,R
0x1565…1570 LineComalBin {
0x1565…1570 ptr = 0xa2c7 // 0x1565 @0x0
0x1565…1570 lno = 0x07ee // 0x1567 @0x2
0x1565…1570 at0004 = ╱a7╱ OPEN ╱ // 0x1569 @0x4
0x1565…1570 at0005 = ╱4b╱K╱ // 0x156a @0x5
0x1565…1570 at0006 = ╱36╱6╱ // 0x156b @0x6
0x1565…1570 at0007 = ╱ef╱$╱ // 0x156c @0x7
0x1565…1570 at0008 = ╱ec╱,╱ // 0x156d @0x8
0x1565…1570 at0009 = ╱52╱R╱ // 0x156e @0x9
0x1565…1570 at000a = EOL // 0x156f @0xa
0x1565…1570 }
0x1570…1589 a2e0 2040 EXEC FEJL(W,12,K6$)
0x1570…1589 LineComalBin {
0x1570…1589 ptr = 0xa2e0 // 0x1570 @0x0
0x1570…1589 lno = 0x07f8 // 0x1572 @0x2
0x1570…1589 at0004 = ╱9d╱ EXEC ╱ // 0x1574 @0x4
0x1570…1589 at0005 = ╱46╱F╱ // 0x1575 @0x5
0x1570…1589 at0006 = ╱45╱E╱ // 0x1576 @0x6
0x1570…1589 at0007 = ╱4a╱J╱ // 0x1577 @0x7
0x1570…1589 at0008 = ╱4c╱L╱ // 0x1578 @0x8
0x1570…1589 at0009 = ╱ed╱(╱ // 0x1579 @0x9
0x1570…1589 at000a = ╱57╱W╱ // 0x157a @0xa
0x1570…1589 at000b = ╱ec╱,╱ // 0x157b @0xb
0x1570…1589 at000c = ╱31╱1╱ // 0x157c @0xc
0x1570…1589 at000d = ╱32╱2╱ // 0x157d @0xd
0x1570…1589 at000e = ╱fe0000c004╱ // 0x157e @0xe
0x1570…1589 at0013 = ╱ec╱,╱ // 0x1583 @0x13
0x1570…1589 at0014 = ╱4b╱K╱ // 0x1584 @0x14
0x1570…1589 at0015 = ╱36╱6╱ // 0x1585 @0x15
0x1570…1589 at0016 = ╱ef╱$╱ // 0x1586 @0x16
0x1570…1589 at0017 = ╱ee╱)╱ // 0x1587 @0x17
0x1570…1589 at0018 = EOL // 0x1588 @0x18
0x1570…1589 }
0x1589…15e3 a33a 2050 GET K6$,G:T1(E),T1(G),T1(V),T1(4),T1(5),T1(6),T1(7),T1(8),T1(W)
0x1589…15e3 LineComalBin {
0x1589…15e3 ptr = 0xa33a // 0x1589 @0x0
0x1589…15e3 lno = 0x0802 // 0x158b @0x2
0x1589…15e3 at0004 = ╱a9╱ GET ╱ // 0x158d @0x4
0x1589…15e3 at0005 = ╱4b╱K╱ // 0x158e @0x5
0x1589…15e3 at0006 = ╱36╱6╱ // 0x158f @0x6
0x1589…15e3 at0007 = ╱ef╱$╱ // 0x1590 @0x7
0x1589…15e3 at0008 = ╱ec╱,╱ // 0x1591 @0x8
0x1589…15e3 at0009 = ╱47╱G╱ // 0x1592 @0x9
0x1589…15e3 at000a = ╱f0╱:╱ // 0x1593 @0xa
0x1589…15e3 at000b = ╱54╱T╱ // 0x1594 @0xb
0x1589…15e3 at000c = ╱31╱1╱ // 0x1595 @0xc
0x1589…15e3 at000d = ╱ed╱(╱ // 0x1596 @0xd
0x1589…15e3 at000e = ╱45╱E╱ // 0x1597 @0xe
0x1589…15e3 at000f = ╱ee╱)╱ // 0x1598 @0xf
0x1589…15e3 at0010 = ╱ec╱,╱ // 0x1599 @0x10
0x1589…15e3 at0011 = ╱54╱T╱ // 0x159a @0x11
0x1589…15e3 at0012 = ╱31╱1╱ // 0x159b @0x12
0x1589…15e3 at0013 = ╱ed╱(╱ // 0x159c @0x13
0x1589…15e3 at0014 = ╱47╱G╱ // 0x159d @0x14
0x1589…15e3 at0015 = ╱ee╱)╱ // 0x159e @0x15
0x1589…15e3 at0016 = ╱ec╱,╱ // 0x159f @0x16
0x1589…15e3 at0017 = ╱54╱T╱ // 0x15a0 @0x17
0x1589…15e3 at0018 = ╱31╱1╱ // 0x15a1 @0x18
0x1589…15e3 at0019 = ╱ed╱(╱ // 0x15a2 @0x19
0x1589…15e3 at001a = ╱56╱V╱ // 0x15a3 @0x1a
0x1589…15e3 at001b = ╱ee╱)╱ // 0x15a4 @0x1b
0x1589…15e3 at001c = ╱ec╱,╱ // 0x15a5 @0x1c
0x1589…15e3 at001d = ╱54╱T╱ // 0x15a6 @0x1d
0x1589…15e3 at001e = ╱31╱1╱ // 0x15a7 @0x1e
0x1589…15e3 at001f = ╱ed╱(╱ // 0x15a8 @0x1f
0x1589…15e3 at0020 = ╱34╱4╱ // 0x15a9 @0x20
0x1589…15e3 at0021 = ╱fe00008003╱ // 0x15aa @0x21
0x1589…15e3 at0026 = ╱ee╱)╱ // 0x15af @0x26
0x1589…15e3 at0027 = ╱ec╱,╱ // 0x15b0 @0x27
0x1589…15e3 at0028 = ╱54╱T╱ // 0x15b1 @0x28
0x1589…15e3 at0029 = ╱31╱1╱ // 0x15b2 @0x29
0x1589…15e3 at002a = ╱ed╱(╱ // 0x15b3 @0x2a
0x1589…15e3 at002b = ╱35╱5╱ // 0x15b4 @0x2b
0x1589…15e3 at002c = ╱fe0000a003╱ // 0x15b5 @0x2c
0x1589…15e3 at0031 = ╱ee╱)╱ // 0x15ba @0x31
0x1589…15e3 at0032 = ╱ec╱,╱ // 0x15bb @0x32
0x1589…15e3 at0033 = ╱54╱T╱ // 0x15bc @0x33
0x1589…15e3 at0034 = ╱31╱1╱ // 0x15bd @0x34
0x1589…15e3 at0035 = ╱ed╱(╱ // 0x15be @0x35
0x1589…15e3 at0036 = ╱36╱6╱ // 0x15bf @0x36
0x1589…15e3 at0037 = ╱fe0000c003╱ // 0x15c0 @0x37
0x1589…15e3 at003c = ╱ee╱)╱ // 0x15c5 @0x3c
0x1589…15e3 at003d = ╱ec╱,╱ // 0x15c6 @0x3d
0x1589…15e3 at003e = ╱54╱T╱ // 0x15c7 @0x3e
0x1589…15e3 at003f = ╱31╱1╱ // 0x15c8 @0x3f
0x1589…15e3 at0040 = ╱ed╱(╱ // 0x15c9 @0x40
0x1589…15e3 at0041 = ╱37╱7╱ // 0x15ca @0x41
0x1589…15e3 at0042 = ╱fe0000e003╱ // 0x15cb @0x42
0x1589…15e3 at0047 = ╱ee╱)╱ // 0x15d0 @0x47
0x1589…15e3 at0048 = ╱ec╱,╱ // 0x15d1 @0x48
0x1589…15e3 at0049 = ╱54╱T╱ // 0x15d2 @0x49
0x1589…15e3 at004a = ╱31╱1╱ // 0x15d3 @0x4a
0x1589…15e3 at004b = ╱ed╱(╱ // 0x15d4 @0x4b
0x1589…15e3 at004c = ╱38╱8╱ // 0x15d5 @0x4c
0x1589…15e3 at004d = ╱fe00008004╱ // 0x15d6 @0x4d
0x1589…15e3 at0052 = ╱ee╱)╱ // 0x15db @0x52
0x1589…15e3 at0053 = ╱ec╱,╱ // 0x15dc @0x53
0x1589…15e3 at0054 = ╱54╱T╱ // 0x15dd @0x54
0x1589…15e3 at0055 = ╱31╱1╱ // 0x15de @0x55
0x1589…15e3 at0056 = ╱ed╱(╱ // 0x15df @0x56
0x1589…15e3 at0057 = ╱57╱W╱ // 0x15e0 @0x57
0x1589…15e3 at0058 = ╱ee╱)╱ // 0x15e1 @0x58
0x1589…15e3 at0059 = EOL // 0x15e2 @0x59
0x1589…15e3 }
0x15e3…15fc a353 2060 EXEC FEJL(W,13,K6$)
0x15e3…15fc LineComalBin {
0x15e3…15fc ptr = 0xa353 // 0x15e3 @0x0
0x15e3…15fc lno = 0x080c // 0x15e5 @0x2
0x15e3…15fc at0004 = ╱9d╱ EXEC ╱ // 0x15e7 @0x4
0x15e3…15fc at0005 = ╱46╱F╱ // 0x15e8 @0x5
0x15e3…15fc at0006 = ╱45╱E╱ // 0x15e9 @0x6
0x15e3…15fc at0007 = ╱4a╱J╱ // 0x15ea @0x7
0x15e3…15fc at0008 = ╱4c╱L╱ // 0x15eb @0x8
0x15e3…15fc at0009 = ╱ed╱(╱ // 0x15ec @0x9
0x15e3…15fc at000a = ╱57╱W╱ // 0x15ed @0xa
0x15e3…15fc at000b = ╱ec╱,╱ // 0x15ee @0xb
0x15e3…15fc at000c = ╱31╱1╱ // 0x15ef @0xc
0x15e3…15fc at000d = ╱33╱3╱ // 0x15f0 @0xd
0x15e3…15fc at000e = ╱fe0000d004╱ // 0x15f1 @0xe
0x15e3…15fc at0013 = ╱ec╱,╱ // 0x15f6 @0x13
0x15e3…15fc at0014 = ╱4b╱K╱ // 0x15f7 @0x14
0x15e3…15fc at0015 = ╱36╱6╱ // 0x15f8 @0x15
0x15e3…15fc at0016 = ╱ef╱$╱ // 0x15f9 @0x16
0x15e3…15fc at0017 = ╱ee╱)╱ // 0x15fa @0x17
0x15e3…15fc at0018 = EOL // 0x15fb @0x18
0x15e3…15fc }
0x15fc…165c a3b3 2070 GET K6$,13:T2(E),T2(G),T2(V),T2(4),T2(5),T2(6),T2(7),T2(8),T2(W)
0x15fc…165c LineComalBin {
0x15fc…165c ptr = 0xa3b3 // 0x15fc @0x0
0x15fc…165c lno = 0x0816 // 0x15fe @0x2
0x15fc…165c at0004 = ╱a9╱ GET ╱ // 0x1600 @0x4
0x15fc…165c at0005 = ╱4b╱K╱ // 0x1601 @0x5
0x15fc…165c at0006 = ╱36╱6╱ // 0x1602 @0x6
0x15fc…165c at0007 = ╱ef╱$╱ // 0x1603 @0x7
0x15fc…165c at0008 = ╱ec╱,╱ // 0x1604 @0x8
0x15fc…165c at0009 = ╱31╱1╱ // 0x1605 @0x9
0x15fc…165c at000a = ╱33╱3╱ // 0x1606 @0xa
0x15fc…165c at000b = ╱fe0000d004╱ // 0x1607 @0xb
0x15fc…165c at0010 = ╱f0╱:╱ // 0x160c @0x10
0x15fc…165c at0011 = ╱54╱T╱ // 0x160d @0x11
0x15fc…165c at0012 = ╱32╱2╱ // 0x160e @0x12
0x15fc…165c at0013 = ╱ed╱(╱ // 0x160f @0x13
0x15fc…165c at0014 = ╱45╱E╱ // 0x1610 @0x14
0x15fc…165c at0015 = ╱ee╱)╱ // 0x1611 @0x15
0x15fc…165c at0016 = ╱ec╱,╱ // 0x1612 @0x16
0x15fc…165c at0017 = ╱54╱T╱ // 0x1613 @0x17
0x15fc…165c at0018 = ╱32╱2╱ // 0x1614 @0x18
0x15fc…165c at0019 = ╱ed╱(╱ // 0x1615 @0x19
0x15fc…165c at001a = ╱47╱G╱ // 0x1616 @0x1a
0x15fc…165c at001b = ╱ee╱)╱ // 0x1617 @0x1b
0x15fc…165c at001c = ╱ec╱,╱ // 0x1618 @0x1c
0x15fc…165c at001d = ╱54╱T╱ // 0x1619 @0x1d
0x15fc…165c at001e = ╱32╱2╱ // 0x161a @0x1e
0x15fc…165c at001f = ╱ed╱(╱ // 0x161b @0x1f
0x15fc…165c at0020 = ╱56╱V╱ // 0x161c @0x20
0x15fc…165c at0021 = ╱ee╱)╱ // 0x161d @0x21
0x15fc…165c at0022 = ╱ec╱,╱ // 0x161e @0x22
0x15fc…165c at0023 = ╱54╱T╱ // 0x161f @0x23
0x15fc…165c at0024 = ╱32╱2╱ // 0x1620 @0x24
0x15fc…165c at0025 = ╱ed╱(╱ // 0x1621 @0x25
0x15fc…165c at0026 = ╱34╱4╱ // 0x1622 @0x26
0x15fc…165c at0027 = ╱fe00008003╱ // 0x1623 @0x27
0x15fc…165c at002c = ╱ee╱)╱ // 0x1628 @0x2c
0x15fc…165c at002d = ╱ec╱,╱ // 0x1629 @0x2d
0x15fc…165c at002e = ╱54╱T╱ // 0x162a @0x2e
0x15fc…165c at002f = ╱32╱2╱ // 0x162b @0x2f
0x15fc…165c at0030 = ╱ed╱(╱ // 0x162c @0x30
0x15fc…165c at0031 = ╱35╱5╱ // 0x162d @0x31
0x15fc…165c at0032 = ╱fe0000a003╱ // 0x162e @0x32
0x15fc…165c at0037 = ╱ee╱)╱ // 0x1633 @0x37
0x15fc…165c at0038 = ╱ec╱,╱ // 0x1634 @0x38
0x15fc…165c at0039 = ╱54╱T╱ // 0x1635 @0x39
0x15fc…165c at003a = ╱32╱2╱ // 0x1636 @0x3a
0x15fc…165c at003b = ╱ed╱(╱ // 0x1637 @0x3b
0x15fc…165c at003c = ╱36╱6╱ // 0x1638 @0x3c
0x15fc…165c at003d = ╱fe0000c003╱ // 0x1639 @0x3d
0x15fc…165c at0042 = ╱ee╱)╱ // 0x163e @0x42
0x15fc…165c at0043 = ╱ec╱,╱ // 0x163f @0x43
0x15fc…165c at0044 = ╱54╱T╱ // 0x1640 @0x44
0x15fc…165c at0045 = ╱32╱2╱ // 0x1641 @0x45
0x15fc…165c at0046 = ╱ed╱(╱ // 0x1642 @0x46
0x15fc…165c at0047 = ╱37╱7╱ // 0x1643 @0x47
0x15fc…165c at0048 = ╱fe0000e003╱ // 0x1644 @0x48
0x15fc…165c at004d = ╱ee╱)╱ // 0x1649 @0x4d
0x15fc…165c at004e = ╱ec╱,╱ // 0x164a @0x4e
0x15fc…165c at004f = ╱54╱T╱ // 0x164b @0x4f
0x15fc…165c at0050 = ╱32╱2╱ // 0x164c @0x50
0x15fc…165c at0051 = ╱ed╱(╱ // 0x164d @0x51
0x15fc…165c at0052 = ╱38╱8╱ // 0x164e @0x52
0x15fc…165c at0053 = ╱fe00008004╱ // 0x164f @0x53
0x15fc…165c at0058 = ╱ee╱)╱ // 0x1654 @0x58
0x15fc…165c at0059 = ╱ec╱,╱ // 0x1655 @0x59
0x15fc…165c at005a = ╱54╱T╱ // 0x1656 @0x5a
0x15fc…165c at005b = ╱32╱2╱ // 0x1657 @0x5b
0x15fc…165c at005c = ╱ed╱(╱ // 0x1658 @0x5c
0x15fc…165c at005d = ╱57╱W╱ // 0x1659 @0x5d
0x15fc…165c at005e = ╱ee╱)╱ // 0x165a @0x5e
0x15fc…165c at005f = EOL // 0x165b @0x5f
0x15fc…165c }
0x165c…1675 a3cc 2080 EXEC FEJL(W,14,K6$)
0x165c…1675 LineComalBin {
0x165c…1675 ptr = 0xa3cc // 0x165c @0x0
0x165c…1675 lno = 0x0820 // 0x165e @0x2
0x165c…1675 at0004 = ╱9d╱ EXEC ╱ // 0x1660 @0x4
0x165c…1675 at0005 = ╱46╱F╱ // 0x1661 @0x5
0x165c…1675 at0006 = ╱45╱E╱ // 0x1662 @0x6
0x165c…1675 at0007 = ╱4a╱J╱ // 0x1663 @0x7
0x165c…1675 at0008 = ╱4c╱L╱ // 0x1664 @0x8
0x165c…1675 at0009 = ╱ed╱(╱ // 0x1665 @0x9
0x165c…1675 at000a = ╱57╱W╱ // 0x1666 @0xa
0x165c…1675 at000b = ╱ec╱,╱ // 0x1667 @0xb
0x165c…1675 at000c = ╱31╱1╱ // 0x1668 @0xc
0x165c…1675 at000d = ╱34╱4╱ // 0x1669 @0xd
0x165c…1675 at000e = ╱fe0000e004╱ // 0x166a @0xe
0x165c…1675 at0013 = ╱ec╱,╱ // 0x166f @0x13
0x165c…1675 at0014 = ╱4b╱K╱ // 0x1670 @0x14
0x165c…1675 at0015 = ╱36╱6╱ // 0x1671 @0x15
0x165c…1675 at0016 = ╱ef╱$╱ // 0x1672 @0x16
0x165c…1675 at0017 = ╱ee╱)╱ // 0x1673 @0x17
0x165c…1675 at0018 = EOL // 0x1674 @0x18
0x165c…1675 }
0x1675…168a a3e1 2082 GET K6$,20:DV$
0x1675…168a LineComalBin {
0x1675…168a ptr = 0xa3e1 // 0x1675 @0x0
0x1675…168a lno = 0x0822 // 0x1677 @0x2
0x1675…168a at0004 = ╱a9╱ GET ╱ // 0x1679 @0x4
0x1675…168a at0005 = ╱4b╱K╱ // 0x167a @0x5
0x1675…168a at0006 = ╱36╱6╱ // 0x167b @0x6
0x1675…168a at0007 = ╱ef╱$╱ // 0x167c @0x7
0x1675…168a at0008 = ╱ec╱,╱ // 0x167d @0x8
0x1675…168a at0009 = ╱32╱2╱ // 0x167e @0x9
0x1675…168a at000a = ╱30╱0╱ // 0x167f @0xa
0x1675…168a at000b = ╱fe0000a005╱ // 0x1680 @0xb
0x1675…168a at0010 = ╱f0╱:╱ // 0x1685 @0x10
0x1675…168a at0011 = ╱44╱D╱ // 0x1686 @0x11
0x1675…168a at0012 = ╱56╱V╱ // 0x1687 @0x12
0x1675…168a at0013 = ╱ef╱$╱ // 0x1688 @0x13
0x1675…168a at0014 = EOL // 0x1689 @0x14
0x1675…168a }
0x168a…16a3 a3fa 2084 EXEC FEJL(W,22,K6$)
0x168a…16a3 LineComalBin {
0x168a…16a3 ptr = 0xa3fa // 0x168a @0x0
0x168a…16a3 lno = 0x0824 // 0x168c @0x2
0x168a…16a3 at0004 = ╱9d╱ EXEC ╱ // 0x168e @0x4
0x168a…16a3 at0005 = ╱46╱F╱ // 0x168f @0x5
0x168a…16a3 at0006 = ╱45╱E╱ // 0x1690 @0x6
0x168a…16a3 at0007 = ╱4a╱J╱ // 0x1691 @0x7
0x168a…16a3 at0008 = ╱4c╱L╱ // 0x1692 @0x8
0x168a…16a3 at0009 = ╱ed╱(╱ // 0x1693 @0x9
0x168a…16a3 at000a = ╱57╱W╱ // 0x1694 @0xa
0x168a…16a3 at000b = ╱ec╱,╱ // 0x1695 @0xb
0x168a…16a3 at000c = ╱32╱2╱ // 0x1696 @0xc
0x168a…16a3 at000d = ╱32╱2╱ // 0x1697 @0xd
0x168a…16a3 at000e = ╱fe0000b005╱ // 0x1698 @0xe
0x168a…16a3 at0013 = ╱ec╱,╱ // 0x169d @0x13
0x168a…16a3 at0014 = ╱4b╱K╱ // 0x169e @0x14
0x168a…16a3 at0015 = ╱36╱6╱ // 0x169f @0x15
0x168a…16a3 at0016 = ╱ef╱$╱ // 0x16a0 @0x16
0x168a…16a3 at0017 = ╱ee╱)╱ // 0x16a1 @0x17
0x168a…16a3 at0018 = EOL // 0x16a2 @0x18
0x168a…16a3 }
0x16a3…16ac a403 2090 CLOSE K6$
0x16a3…16ac LineComalBin {
0x16a3…16ac ptr = 0xa403 // 0x16a3 @0x0
0x16a3…16ac lno = 0x082a // 0x16a5 @0x2
0x16a3…16ac at0004 = ╱a8╱ CLOSE ╱ // 0x16a7 @0x4
0x16a3…16ac at0005 = ╱4b╱K╱ // 0x16a8 @0x5
0x16a3…16ac at0006 = ╱36╱6╱ // 0x16a9 @0x6
0x16a3…16ac at0007 = ╱ef╱$╱ // 0x16aa @0x7
0x16a3…16ac at0008 = EOL // 0x16ab @0x8
0x16a3…16ac }
0x16ac…16c5 a41c 2100 EXEC FEJL(W,15,K6$)
0x16ac…16c5 LineComalBin {
0x16ac…16c5 ptr = 0xa41c // 0x16ac @0x0
0x16ac…16c5 lno = 0x0834 // 0x16ae @0x2
0x16ac…16c5 at0004 = ╱9d╱ EXEC ╱ // 0x16b0 @0x4
0x16ac…16c5 at0005 = ╱46╱F╱ // 0x16b1 @0x5
0x16ac…16c5 at0006 = ╱45╱E╱ // 0x16b2 @0x6
0x16ac…16c5 at0007 = ╱4a╱J╱ // 0x16b3 @0x7
0x16ac…16c5 at0008 = ╱4c╱L╱ // 0x16b4 @0x8
0x16ac…16c5 at0009 = ╱ed╱(╱ // 0x16b5 @0x9
0x16ac…16c5 at000a = ╱57╱W╱ // 0x16b6 @0xa
0x16ac…16c5 at000b = ╱ec╱,╱ // 0x16b7 @0xb
0x16ac…16c5 at000c = ╱31╱1╱ // 0x16b8 @0xc
0x16ac…16c5 at000d = ╱35╱5╱ // 0x16b9 @0xd
0x16ac…16c5 at000e = ╱fe0000f004╱ // 0x16ba @0xe
0x16ac…16c5 at0013 = ╱ec╱,╱ // 0x16bf @0x13
0x16ac…16c5 at0014 = ╱4b╱K╱ // 0x16c0 @0x14
0x16ac…16c5 at0015 = ╱36╱6╱ // 0x16c1 @0x15
0x16ac…16c5 at0016 = ╱ef╱$╱ // 0x16c2 @0x16
0x16ac…16c5 at0017 = ╱ee╱)╱ // 0x16c3 @0x17
0x16ac…16c5 at0018 = EOL // 0x16c4 @0x18
0x16ac…16c5 }
0x16c5…1712 a469 2110 DATO=T1(7);BHPOSTNR=T2(E);RENRAPSIDE=T1(W);REN=T2(8);TAH$="0+"
0x16c5…1712 LineComalBin {
0x16c5…1712 ptr = 0xa469 // 0x16c5 @0x0
0x16c5…1712 lno = 0x083e // 0x16c7 @0x2
0x16c5…1712 at0004 = ╱44╱D╱ // 0x16c9 @0x4
0x16c5…1712 at0005 = ╱41╱A╱ // 0x16ca @0x5
0x16c5…1712 at0006 = ╱54╱T╱ // 0x16cb @0x6
0x16c5…1712 at0007 = ╱4f╱O╱ // 0x16cc @0x7
0x16c5…1712 at0008 = ╱dc╱=╱ // 0x16cd @0x8
0x16c5…1712 at0009 = ╱54╱T╱ // 0x16ce @0x9
0x16c5…1712 at000a = ╱31╱1╱ // 0x16cf @0xa
0x16c5…1712 at000b = ╱ed╱(╱ // 0x16d0 @0xb
0x16c5…1712 at000c = ╱37╱7╱ // 0x16d1 @0xc
0x16c5…1712 at000d = ╱fe0000e003╱ // 0x16d2 @0xd
0x16c5…1712 at0012 = ╱ee╱)╱ // 0x16d7 @0x12
0x16c5…1712 at0013 = ╱eb╱;╱ // 0x16d8 @0x13
0x16c5…1712 at0014 = ╱42╱B╱ // 0x16d9 @0x14
0x16c5…1712 at0015 = ╱48╱H╱ // 0x16da @0x15
0x16c5…1712 at0016 = ╱50╱P╱ // 0x16db @0x16
0x16c5…1712 at0017 = ╱4f╱O╱ // 0x16dc @0x17
0x16c5…1712 at0018 = ╱53╱S╱ // 0x16dd @0x18
0x16c5…1712 at0019 = ╱54╱T╱ // 0x16de @0x19
0x16c5…1712 at001a = ╱4e╱N╱ // 0x16df @0x1a
0x16c5…1712 at001b = ╱52╱R╱ // 0x16e0 @0x1b
0x16c5…1712 at001c = ╱dc╱=╱ // 0x16e1 @0x1c
0x16c5…1712 at001d = ╱54╱T╱ // 0x16e2 @0x1d
0x16c5…1712 at001e = ╱32╱2╱ // 0x16e3 @0x1e
0x16c5…1712 at001f = ╱ed╱(╱ // 0x16e4 @0x1f
0x16c5…1712 at0020 = ╱45╱E╱ // 0x16e5 @0x20
0x16c5…1712 at0021 = ╱ee╱)╱ // 0x16e6 @0x21
0x16c5…1712 at0022 = ╱eb╱;╱ // 0x16e7 @0x22
0x16c5…1712 at0023 = ╱52╱R╱ // 0x16e8 @0x23
0x16c5…1712 at0024 = ╱45╱E╱ // 0x16e9 @0x24
0x16c5…1712 at0025 = ╱4e╱N╱ // 0x16ea @0x25
0x16c5…1712 at0026 = ╱52╱R╱ // 0x16eb @0x26
0x16c5…1712 at0027 = ╱41╱A╱ // 0x16ec @0x27
0x16c5…1712 at0028 = ╱50╱P╱ // 0x16ed @0x28
0x16c5…1712 at0029 = ╱53╱S╱ // 0x16ee @0x29
0x16c5…1712 at002a = ╱49╱I╱ // 0x16ef @0x2a
0x16c5…1712 at002b = ╱44╱D╱ // 0x16f0 @0x2b
0x16c5…1712 at002c = ╱45╱E╱ // 0x16f1 @0x2c
0x16c5…1712 at002d = ╱dc╱=╱ // 0x16f2 @0x2d
0x16c5…1712 at002e = ╱54╱T╱ // 0x16f3 @0x2e
0x16c5…1712 at002f = ╱31╱1╱ // 0x16f4 @0x2f
0x16c5…1712 at0030 = ╱ed╱(╱ // 0x16f5 @0x30
0x16c5…1712 at0031 = ╱57╱W╱ // 0x16f6 @0x31
0x16c5…1712 at0032 = ╱ee╱)╱ // 0x16f7 @0x32
0x16c5…1712 at0033 = ╱eb╱;╱ // 0x16f8 @0x33
0x16c5…1712 at0034 = ╱52╱R╱ // 0x16f9 @0x34
0x16c5…1712 at0035 = ╱45╱E╱ // 0x16fa @0x35
0x16c5…1712 at0036 = ╱4e╱N╱ // 0x16fb @0x36
0x16c5…1712 at0037 = ╱dc╱=╱ // 0x16fc @0x37
0x16c5…1712 at0038 = ╱54╱T╱ // 0x16fd @0x38
0x16c5…1712 at0039 = ╱32╱2╱ // 0x16fe @0x39
0x16c5…1712 at003a = ╱ed╱(╱ // 0x16ff @0x3a
0x16c5…1712 at003b = ╱38╱8╱ // 0x1700 @0x3b
0x16c5…1712 at003c = ╱fe00008004╱ // 0x1701 @0x3c
0x16c5…1712 at0041 = ╱ee╱)╱ // 0x1706 @0x41
0x16c5…1712 at0042 = ╱eb╱;╱ // 0x1707 @0x42
0x16c5…1712 at0043 = ╱54╱T╱ // 0x1708 @0x43
0x16c5…1712 at0044 = ╱41╱A╱ // 0x1709 @0x44
0x16c5…1712 at0045 = ╱48╱H╱ // 0x170a @0x45
0x16c5…1712 at0046 = ╱ef╱$╱ // 0x170b @0x46
0x16c5…1712 at0047 = ╱dc╱=╱ // 0x170c @0x47
0x16c5…1712 at0048 = ╱22╱"╱ // 0x170d @0x48
0x16c5…1712 at0049 = ╱30╱0╱ // 0x170e @0x49
0x16c5…1712 at004a = ╱2b╱+╱ // 0x170f @0x4a
0x16c5…1712 at004b = ╱22╱"╱ // 0x1710 @0x4b
0x16c5…1712 at004c = EOL // 0x1711 @0x4c
0x16c5…1712 }
0x1712…1723 a47a 2111 TAL3$="100+"
0x1712…1723 LineComalBin {
0x1712…1723 ptr = 0xa47a // 0x1712 @0x0
0x1712…1723 lno = 0x083f // 0x1714 @0x2
0x1712…1723 at0004 = ╱54╱T╱ // 0x1716 @0x4
0x1712…1723 at0005 = ╱41╱A╱ // 0x1717 @0x5
0x1712…1723 at0006 = ╱4c╱L╱ // 0x1718 @0x6
0x1712…1723 at0007 = ╱33╱3╱ // 0x1719 @0x7
0x1712…1723 at0008 = ╱ef╱$╱ // 0x171a @0x8
0x1712…1723 at0009 = ╱dc╱=╱ // 0x171b @0x9
0x1712…1723 at000a = ╱22╱"╱ // 0x171c @0xa
0x1712…1723 at000b = ╱31╱1╱ // 0x171d @0xb
0x1712…1723 at000c = ╱30╱0╱ // 0x171e @0xc
0x1712…1723 at000d = ╱30╱0╱ // 0x171f @0xd
0x1712…1723 at000e = ╱2b╱+╱ // 0x1720 @0xe
0x1712…1723 at000f = ╱22╱"╱ // 0x1721 @0xf
0x1712…1723 at0010 = EOL // 0x1722 @0x10
0x1712…1723 }
0x1723…172e a485 2120 OPEN K2$,R
0x1723…172e LineComalBin {
0x1723…172e ptr = 0xa485 // 0x1723 @0x0
0x1723…172e lno = 0x0848 // 0x1725 @0x2
0x1723…172e at0004 = ╱a7╱ OPEN ╱ // 0x1727 @0x4
0x1723…172e at0005 = ╱4b╱K╱ // 0x1728 @0x5
0x1723…172e at0006 = ╱32╱2╱ // 0x1729 @0x6
0x1723…172e at0007 = ╱ef╱$╱ // 0x172a @0x7
0x1723…172e at0008 = ╱ec╱,╱ // 0x172b @0x8
0x1723…172e at0009 = ╱52╱R╱ // 0x172c @0x9
0x1723…172e at000a = EOL // 0x172d @0xa
0x1723…172e }
0x172e…1747 a49e 2130 EXEC FEJL(W,16,K2$)
0x172e…1747 LineComalBin {
0x172e…1747 ptr = 0xa49e // 0x172e @0x0
0x172e…1747 lno = 0x0852 // 0x1730 @0x2
0x172e…1747 at0004 = ╱9d╱ EXEC ╱ // 0x1732 @0x4
0x172e…1747 at0005 = ╱46╱F╱ // 0x1733 @0x5
0x172e…1747 at0006 = ╱45╱E╱ // 0x1734 @0x6
0x172e…1747 at0007 = ╱4a╱J╱ // 0x1735 @0x7
0x172e…1747 at0008 = ╱4c╱L╱ // 0x1736 @0x8
0x172e…1747 at0009 = ╱ed╱(╱ // 0x1737 @0x9
0x172e…1747 at000a = ╱57╱W╱ // 0x1738 @0xa
0x172e…1747 at000b = ╱ec╱,╱ // 0x1739 @0xb
0x172e…1747 at000c = ╱31╱1╱ // 0x173a @0xc
0x172e…1747 at000d = ╱36╱6╱ // 0x173b @0xd
0x172e…1747 at000e = ╱fe00008005╱ // 0x173c @0xe
0x172e…1747 at0013 = ╱ec╱,╱ // 0x1741 @0x13
0x172e…1747 at0014 = ╱4b╱K╱ // 0x1742 @0x14
0x172e…1747 at0015 = ╱32╱2╱ // 0x1743 @0x15
0x172e…1747 at0016 = ╱ef╱$╱ // 0x1744 @0x16
0x172e…1747 at0017 = ╱ee╱)╱ // 0x1745 @0x17
0x172e…1747 at0018 = EOL // 0x1746 @0x18
0x172e…1747 }
0x1747…1752 a4a9 2140 OPEN K3$,R
0x1747…1752 LineComalBin {
0x1747…1752 ptr = 0xa4a9 // 0x1747 @0x0
0x1747…1752 lno = 0x085c // 0x1749 @0x2
0x1747…1752 at0004 = ╱a7╱ OPEN ╱ // 0x174b @0x4
0x1747…1752 at0005 = ╱4b╱K╱ // 0x174c @0x5
0x1747…1752 at0006 = ╱33╱3╱ // 0x174d @0x6
0x1747…1752 at0007 = ╱ef╱$╱ // 0x174e @0x7
0x1747…1752 at0008 = ╱ec╱,╱ // 0x174f @0x8
0x1747…1752 at0009 = ╱52╱R╱ // 0x1750 @0x9
0x1747…1752 at000a = EOL // 0x1751 @0xa
0x1747…1752 }
0x1752…176b a4c2 2150 EXEC FEJL(W,17,K3$)
0x1752…176b LineComalBin {
0x1752…176b ptr = 0xa4c2 // 0x1752 @0x0
0x1752…176b lno = 0x0866 // 0x1754 @0x2
0x1752…176b at0004 = ╱9d╱ EXEC ╱ // 0x1756 @0x4
0x1752…176b at0005 = ╱46╱F╱ // 0x1757 @0x5
0x1752…176b at0006 = ╱45╱E╱ // 0x1758 @0x6
0x1752…176b at0007 = ╱4a╱J╱ // 0x1759 @0x7
0x1752…176b at0008 = ╱4c╱L╱ // 0x175a @0x8
0x1752…176b at0009 = ╱ed╱(╱ // 0x175b @0x9
0x1752…176b at000a = ╱57╱W╱ // 0x175c @0xa
0x1752…176b at000b = ╱ec╱,╱ // 0x175d @0xb
0x1752…176b at000c = ╱31╱1╱ // 0x175e @0xc
0x1752…176b at000d = ╱37╱7╱ // 0x175f @0xd
0x1752…176b at000e = ╱fe00008805╱ // 0x1760 @0xe
0x1752…176b at0013 = ╱ec╱,╱ // 0x1765 @0x13
0x1752…176b at0014 = ╱4b╱K╱ // 0x1766 @0x14
0x1752…176b at0015 = ╱33╱3╱ // 0x1767 @0x15
0x1752…176b at0016 = ╱ef╱$╱ // 0x1768 @0x16
0x1752…176b at0017 = ╱ee╱)╱ // 0x1769 @0x17
0x1752…176b at0018 = EOL // 0x176a @0x18
0x1752…176b }
0x176b…1776 a4cd 2160 OPEN K4$,W
0x176b…1776 LineComalBin {
0x176b…1776 ptr = 0xa4cd // 0x176b @0x0
0x176b…1776 lno = 0x0870 // 0x176d @0x2
0x176b…1776 at0004 = ╱a7╱ OPEN ╱ // 0x176f @0x4
0x176b…1776 at0005 = ╱4b╱K╱ // 0x1770 @0x5
0x176b…1776 at0006 = ╱34╱4╱ // 0x1771 @0x6
0x176b…1776 at0007 = ╱ef╱$╱ // 0x1772 @0x7
0x176b…1776 at0008 = ╱ec╱,╱ // 0x1773 @0x8
0x176b…1776 at0009 = ╱57╱W╱ // 0x1774 @0x9
0x176b…1776 at000a = EOL // 0x1775 @0xa
0x176b…1776 }
0x1776…178f (78,) a4e6 2170 EXEC FEJL(W,18,K4$)
0x1776…178f LineComalBin {
0x1776…178f ptr = 0xa4e6 // 0x1776 @0x0
0x1776…178f lno = 0x087a // 0x1778 @0x2
0x1776…178f at0004 = ╱9d╱ EXEC ╱ // 0x177a @0x4
0x1776…178f at0005 = ╱46╱F╱ // 0x177b @0x5
0x1776…178f at0006 = ╱45╱E╱ // 0x177c @0x6
0x1776…178f at0007 = ╱4a╱J╱ // 0x177d @0x7
0x1776…178f at0008 = ╱4c╱L╱ // 0x177e @0x8
0x1776…178f at0009 = ╱ed╱(╱ // 0x177f @0x9
0x1776…178f at000a = ╱57╱W╱ // 0x1780 @0xa
0x1776…178f at000b = ╱ec╱,╱ // 0x1781 @0xb
0x1776…178f at000c = ╱31╱1╱ // 0x1782 @0xc
0x1776…178f at000d = ╱38╱8╱ // 0x1783 @0xd
0x1776…178f at000e = ╱fe00009005╱ // 0x1784 @0xe
0x1776…178f at0013 = ╱ec╱,╱ // 0x1789 @0x13
0x1776…178f at0014 = ╱4b╱K╱ // 0x178a @0x14
0x1776…178f at0015 = ╱34╱4╱ // 0x178b @0x15
0x1776…178f at0016 = ╱ef╱$╱ // 0x178c @0x16
0x1776…178f at0017 = ╱ee╱)╱ // 0x178d @0x17
0x1776…178f at0018 = EOL // 0x178e @0x18
0x1776…178f }
0x178f…179a a4f1 2180 OPEN K5$,W
0x178f…179a LineComalBin {
0x178f…179a ptr = 0xa4f1 // 0x178f @0x0
0x178f…179a lno = 0x0884 // 0x1791 @0x2
0x178f…179a at0004 = ╱a7╱ OPEN ╱ // 0x1793 @0x4
0x178f…179a at0005 = ╱4b╱K╱ // 0x1794 @0x5
0x178f…179a at0006 = ╱35╱5╱ // 0x1795 @0x6
0x178f…179a at0007 = ╱ef╱$╱ // 0x1796 @0x7
0x178f…179a at0008 = ╱ec╱,╱ // 0x1797 @0x8
0x178f…179a at0009 = ╱57╱W╱ // 0x1798 @0x9
0x178f…179a at000a = EOL // 0x1799 @0xa
0x178f…179a }
0x179a…17b3 a50a 2190 EXEC FEJL(W,19,K5$)
0x179a…17b3 LineComalBin {
0x179a…17b3 ptr = 0xa50a // 0x179a @0x0
0x179a…17b3 lno = 0x088e // 0x179c @0x2
0x179a…17b3 at0004 = ╱9d╱ EXEC ╱ // 0x179e @0x4
0x179a…17b3 at0005 = ╱46╱F╱ // 0x179f @0x5
0x179a…17b3 at0006 = ╱45╱E╱ // 0x17a0 @0x6
0x179a…17b3 at0007 = ╱4a╱J╱ // 0x17a1 @0x7
0x179a…17b3 at0008 = ╱4c╱L╱ // 0x17a2 @0x8
0x179a…17b3 at0009 = ╱ed╱(╱ // 0x17a3 @0x9
0x179a…17b3 at000a = ╱57╱W╱ // 0x17a4 @0xa
0x179a…17b3 at000b = ╱ec╱,╱ // 0x17a5 @0xb
0x179a…17b3 at000c = ╱31╱1╱ // 0x17a6 @0xc
0x179a…17b3 at000d = ╱39╱9╱ // 0x17a7 @0xd
0x179a…17b3 at000e = ╱fe00009805╱ // 0x17a8 @0xe
0x179a…17b3 at0013 = ╱ec╱,╱ // 0x17ad @0x13
0x179a…17b3 at0014 = ╱4b╱K╱ // 0x17ae @0x14
0x179a…17b3 at0015 = ╱35╱5╱ // 0x17af @0x15
0x179a…17b3 at0016 = ╱ef╱$╱ // 0x17b0 @0x16
0x179a…17b3 at0017 = ╱ee╱)╱ // 0x17b1 @0x17
0x179a…17b3 at0018 = EOL // 0x17b2 @0x18
0x179a…17b3 }
0x17b3…17d2 a529 2200 EXEC INDTAB1(DTAB,MDANTAL,K2$)
0x17b3…17d2 LineComalBin {
0x17b3…17d2 ptr = 0xa529 // 0x17b3 @0x0
0x17b3…17d2 lno = 0x0898 // 0x17b5 @0x2
0x17b3…17d2 at0004 = ╱9d╱ EXEC ╱ // 0x17b7 @0x4
0x17b3…17d2 at0005 = ╱49╱I╱ // 0x17b8 @0x5
0x17b3…17d2 at0006 = ╱4e╱N╱ // 0x17b9 @0x6
0x17b3…17d2 at0007 = ╱44╱D╱ // 0x17ba @0x7
0x17b3…17d2 at0008 = ╱54╱T╱ // 0x17bb @0x8
0x17b3…17d2 at0009 = ╱41╱A╱ // 0x17bc @0x9
0x17b3…17d2 at000a = ╱42╱B╱ // 0x17bd @0xa
0x17b3…17d2 at000b = ╱31╱1╱ // 0x17be @0xb
0x17b3…17d2 at000c = ╱ed╱(╱ // 0x17bf @0xc
0x17b3…17d2 at000d = ╱44╱D╱ // 0x17c0 @0xd
0x17b3…17d2 at000e = ╱54╱T╱ // 0x17c1 @0xe
0x17b3…17d2 at000f = ╱41╱A╱ // 0x17c2 @0xf
0x17b3…17d2 at0010 = ╱42╱B╱ // 0x17c3 @0x10
0x17b3…17d2 at0011 = ╱ec╱,╱ // 0x17c4 @0x11
0x17b3…17d2 at0012 = ╱4d╱M╱ // 0x17c5 @0x12
0x17b3…17d2 at0013 = ╱44╱D╱ // 0x17c6 @0x13
0x17b3…17d2 at0014 = ╱41╱A╱ // 0x17c7 @0x14
0x17b3…17d2 at0015 = ╱4e╱N╱ // 0x17c8 @0x15
0x17b3…17d2 at0016 = ╱54╱T╱ // 0x17c9 @0x16
0x17b3…17d2 at0017 = ╱41╱A╱ // 0x17ca @0x17
0x17b3…17d2 at0018 = ╱4c╱L╱ // 0x17cb @0x18
0x17b3…17d2 at0019 = ╱ec╱,╱ // 0x17cc @0x19
0x17b3…17d2 at001a = ╱4b╱K╱ // 0x17cd @0x1a
0x17b3…17d2 at001b = ╱32╱2╱ // 0x17ce @0x1b
0x17b3…17d2 at001c = ╱ef╱$╱ // 0x17cf @0x1c
0x17b3…17d2 at001d = ╱ee╱)╱ // 0x17d0 @0x1d
0x17b3…17d2 at001e = EOL // 0x17d1 @0x1e
0x17b3…17d2 }
0x17d2…17e9 a540 2210 EXEC DATOUD(DATO,DAT$)
0x17d2…17e9 LineComalBin {
0x17d2…17e9 ptr = 0xa540 // 0x17d2 @0x0
0x17d2…17e9 lno = 0x08a2 // 0x17d4 @0x2
0x17d2…17e9 at0004 = ╱9d╱ EXEC ╱ // 0x17d6 @0x4
0x17d2…17e9 at0005 = ╱44╱D╱ // 0x17d7 @0x5
0x17d2…17e9 at0006 = ╱41╱A╱ // 0x17d8 @0x6
0x17d2…17e9 at0007 = ╱54╱T╱ // 0x17d9 @0x7
0x17d2…17e9 at0008 = ╱4f╱O╱ // 0x17da @0x8
0x17d2…17e9 at0009 = ╱55╱U╱ // 0x17db @0x9
0x17d2…17e9 at000a = ╱44╱D╱ // 0x17dc @0xa
0x17d2…17e9 at000b = ╱ed╱(╱ // 0x17dd @0xb
0x17d2…17e9 at000c = ╱44╱D╱ // 0x17de @0xc
0x17d2…17e9 at000d = ╱41╱A╱ // 0x17df @0xd
0x17d2…17e9 at000e = ╱54╱T╱ // 0x17e0 @0xe
0x17d2…17e9 at000f = ╱4f╱O╱ // 0x17e1 @0xf
0x17d2…17e9 at0010 = ╱ec╱,╱ // 0x17e2 @0x10
0x17d2…17e9 at0011 = ╱44╱D╱ // 0x17e3 @0x11
0x17d2…17e9 at0012 = ╱41╱A╱ // 0x17e4 @0x12
0x17d2…17e9 at0013 = ╱54╱T╱ // 0x17e5 @0x13
0x17d2…17e9 at0014 = ╱ef╱$╱ // 0x17e6 @0x14
0x17d2…17e9 at0015 = ╱ee╱)╱ // 0x17e7 @0x15
0x17d2…17e9 at0016 = EOL // 0x17e8 @0x16
0x17d2…17e9 }
0x17e9…180b a562 2220 TXT1$(E)="Beregning af rente"
0x17e9…180b LineComalBin {
0x17e9…180b ptr = 0xa562 // 0x17e9 @0x0
0x17e9…180b lno = 0x08ac // 0x17eb @0x2
0x17e9…180b at0004 = ╱54╱T╱ // 0x17ed @0x4
0x17e9…180b at0005 = ╱58╱X╱ // 0x17ee @0x5
0x17e9…180b at0006 = ╱54╱T╱ // 0x17ef @0x6
0x17e9…180b at0007 = ╱31╱1╱ // 0x17f0 @0x7
0x17e9…180b at0008 = ╱ef╱$╱ // 0x17f1 @0x8
0x17e9…180b at0009 = ╱ed╱(╱ // 0x17f2 @0x9
0x17e9…180b at000a = ╱45╱E╱ // 0x17f3 @0xa
0x17e9…180b at000b = ╱ee╱)╱ // 0x17f4 @0xb
0x17e9…180b at000c = ╱dc╱=╱ // 0x17f5 @0xc
0x17e9…180b at000d = ╱22╱"╱ // 0x17f6 @0xd
0x17e9…180b at000e = ╱42╱B╱ // 0x17f7 @0xe
0x17e9…180b at000f = ╱65╱e╱ // 0x17f8 @0xf
0x17e9…180b at0010 = ╱72╱r╱ // 0x17f9 @0x10
0x17e9…180b at0011 = ╱65╱e╱ // 0x17fa @0x11
0x17e9…180b at0012 = ╱67╱g╱ // 0x17fb @0x12
0x17e9…180b at0013 = ╱6e╱n╱ // 0x17fc @0x13
0x17e9…180b at0014 = ╱69╱i╱ // 0x17fd @0x14
0x17e9…180b at0015 = ╱6e╱n╱ // 0x17fe @0x15
0x17e9…180b at0016 = ╱67╱g╱ // 0x17ff @0x16
0x17e9…180b at0017 = ╱20╱…╱ // 0x1800 @0x17
0x17e9…180b at0018 = ╱61╱a╱ // 0x1801 @0x18
0x17e9…180b at0019 = ╱66╱f╱ // 0x1802 @0x19
0x17e9…180b at001a = ╱20╱…╱ // 0x1803 @0x1a
0x17e9…180b at001b = ╱72╱r╱ // 0x1804 @0x1b
0x17e9…180b at001c = ╱65╱e╱ // 0x1805 @0x1c
0x17e9…180b at001d = ╱6e╱n╱ // 0x1806 @0x1d
0x17e9…180b at001e = ╱74╱t╱ // 0x1807 @0x1e
0x17e9…180b at001f = ╱65╱e╱ // 0x1808 @0x1f
0x17e9…180b at0020 = ╱22╱"╱ // 0x1809 @0x20
0x17e9…180b at0021 = EOL // 0x180a @0x21
0x17e9…180b }
0x180b…182d a584 2230 TXT1$(G)="Bogføring af rente"
0x180b…182d LineComalBin {
0x180b…182d ptr = 0xa584 // 0x180b @0x0
0x180b…182d lno = 0x08b6 // 0x180d @0x2
0x180b…182d at0004 = ╱54╱T╱ // 0x180f @0x4
0x180b…182d at0005 = ╱58╱X╱ // 0x1810 @0x5
0x180b…182d at0006 = ╱54╱T╱ // 0x1811 @0x6
0x180b…182d at0007 = ╱31╱1╱ // 0x1812 @0x7
0x180b…182d at0008 = ╱ef╱$╱ // 0x1813 @0x8
0x180b…182d at0009 = ╱ed╱(╱ // 0x1814 @0x9
0x180b…182d at000a = ╱47╱G╱ // 0x1815 @0xa
0x180b…182d at000b = ╱ee╱)╱ // 0x1816 @0xb
0x180b…182d at000c = ╱dc╱=╱ // 0x1817 @0xc
0x180b…182d at000d = ╱22╱"╱ // 0x1818 @0xd
0x180b…182d at000e = ╱42╱B╱ // 0x1819 @0xe
0x180b…182d at000f = ╱6f╱o╱ // 0x181a @0xf
0x180b…182d at0010 = ╱67╱g╱ // 0x181b @0x10
0x180b…182d at0011 = ╱66╱f╱ // 0x181c @0x11
0x180b…182d at0012 = ╱7c╱ø╱ // 0x181d @0x12
0x180b…182d at0013 = ╱72╱r╱ // 0x181e @0x13
0x180b…182d at0014 = ╱69╱i╱ // 0x181f @0x14
0x180b…182d at0015 = ╱6e╱n╱ // 0x1820 @0x15
0x180b…182d at0016 = ╱67╱g╱ // 0x1821 @0x16
0x180b…182d at0017 = ╱20╱…╱ // 0x1822 @0x17
0x180b…182d at0018 = ╱61╱a╱ // 0x1823 @0x18
0x180b…182d at0019 = ╱66╱f╱ // 0x1824 @0x19
0x180b…182d at001a = ╱20╱…╱ // 0x1825 @0x1a
0x180b…182d at001b = ╱72╱r╱ // 0x1826 @0x1b
0x180b…182d at001c = ╱65╱e╱ // 0x1827 @0x1c
0x180b…182d at001d = ╱6e╱n╱ // 0x1828 @0x1d
0x180b…182d at001e = ╱74╱t╱ // 0x1829 @0x1e
0x180b…182d at001f = ╱65╱e╱ // 0x182a @0x1f
0x180b…182d at0020 = ╱22╱"╱ // 0x182b @0x20
0x180b…182d at0021 = EOL // 0x182c @0x21
0x180b…182d }
0x182d…1859 a5b0 2240 TXT1$(V)="Sletning af renteposteringer"
0x182d…1859 LineComalBin {
0x182d…1859 ptr = 0xa5b0 // 0x182d @0x0
0x182d…1859 lno = 0x08c0 // 0x182f @0x2
0x182d…1859 at0004 = ╱54╱T╱ // 0x1831 @0x4
0x182d…1859 at0005 = ╱58╱X╱ // 0x1832 @0x5
0x182d…1859 at0006 = ╱54╱T╱ // 0x1833 @0x6
0x182d…1859 at0007 = ╱31╱1╱ // 0x1834 @0x7
0x182d…1859 at0008 = ╱ef╱$╱ // 0x1835 @0x8
0x182d…1859 at0009 = ╱ed╱(╱ // 0x1836 @0x9
0x182d…1859 at000a = ╱56╱V╱ // 0x1837 @0xa
0x182d…1859 at000b = ╱ee╱)╱ // 0x1838 @0xb
0x182d…1859 at000c = ╱dc╱=╱ // 0x1839 @0xc
0x182d…1859 at000d = ╱22╱"╱ // 0x183a @0xd
0x182d…1859 at000e = ╱53╱S╱ // 0x183b @0xe
0x182d…1859 at000f = ╱6c╱l╱ // 0x183c @0xf
0x182d…1859 at0010 = ╱65╱e╱ // 0x183d @0x10
0x182d…1859 at0011 = ╱74╱t╱ // 0x183e @0x11
0x182d…1859 at0012 = ╱6e╱n╱ // 0x183f @0x12
0x182d…1859 at0013 = ╱69╱i╱ // 0x1840 @0x13
0x182d…1859 at0014 = ╱6e╱n╱ // 0x1841 @0x14
0x182d…1859 at0015 = ╱67╱g╱ // 0x1842 @0x15
0x182d…1859 at0016 = ╱20╱…╱ // 0x1843 @0x16
0x182d…1859 at0017 = ╱61╱a╱ // 0x1844 @0x17
0x182d…1859 at0018 = ╱66╱f╱ // 0x1845 @0x18
0x182d…1859 at0019 = ╱20╱…╱ // 0x1846 @0x19
0x182d…1859 at001a = ╱72╱r╱ // 0x1847 @0x1a
0x182d…1859 at001b = ╱65╱e╱ // 0x1848 @0x1b
0x182d…1859 at001c = ╱6e╱n╱ // 0x1849 @0x1c
0x182d…1859 at001d = ╱74╱t╱ // 0x184a @0x1d
0x182d…1859 at001e = ╱65╱e╱ // 0x184b @0x1e
0x182d…1859 at001f = ╱70╱p╱ // 0x184c @0x1f
0x182d…1859 at0020 = ╱6f╱o╱ // 0x184d @0x20
0x182d…1859 at0021 = ╱73╱s╱ // 0x184e @0x21
0x182d…1859 at0022 = ╱74╱t╱ // 0x184f @0x22
0x182d…1859 at0023 = ╱65╱e╱ // 0x1850 @0x23
0x182d…1859 at0024 = ╱72╱r╱ // 0x1851 @0x24
0x182d…1859 at0025 = ╱69╱i╱ // 0x1852 @0x25
0x182d…1859 at0026 = ╱6e╱n╱ // 0x1853 @0x26
0x182d…1859 at0027 = ╱67╱g╱ // 0x1854 @0x27
0x182d…1859 at0028 = ╱65╱e╱ // 0x1855 @0x28
0x182d…1859 at0029 = ╱72╱r╱ // 0x1856 @0x29
0x182d…1859 at002a = ╱22╱"╱ // 0x1857 @0x2a
0x182d…1859 at002b = EOL // 0x1858 @0x2b
0x182d…1859 }
0x1859…1886 a5dd 2250 TXT1$(4)="Udskriv renteposteringer"
0x1859…1886 LineComalBin {
0x1859…1886 ptr = 0xa5dd // 0x1859 @0x0
0x1859…1886 lno = 0x08ca // 0x185b @0x2
0x1859…1886 at0004 = ╱54╱T╱ // 0x185d @0x4
0x1859…1886 at0005 = ╱58╱X╱ // 0x185e @0x5
0x1859…1886 at0006 = ╱54╱T╱ // 0x185f @0x6
0x1859…1886 at0007 = ╱31╱1╱ // 0x1860 @0x7
0x1859…1886 at0008 = ╱ef╱$╱ // 0x1861 @0x8
0x1859…1886 at0009 = ╱ed╱(╱ // 0x1862 @0x9
0x1859…1886 at000a = ╱34╱4╱ // 0x1863 @0xa
0x1859…1886 at000b = ╱fe00008003╱ // 0x1864 @0xb
0x1859…1886 at0010 = ╱ee╱)╱ // 0x1869 @0x10
0x1859…1886 at0011 = ╱dc╱=╱ // 0x186a @0x11
0x1859…1886 at0012 = ╱22╱"╱ // 0x186b @0x12
0x1859…1886 at0013 = ╱55╱U╱ // 0x186c @0x13
0x1859…1886 at0014 = ╱64╱d╱ // 0x186d @0x14
0x1859…1886 at0015 = ╱73╱s╱ // 0x186e @0x15
0x1859…1886 at0016 = ╱6b╱k╱ // 0x186f @0x16
0x1859…1886 at0017 = ╱72╱r╱ // 0x1870 @0x17
0x1859…1886 at0018 = ╱69╱i╱ // 0x1871 @0x18
0x1859…1886 at0019 = ╱76╱v╱ // 0x1872 @0x19
0x1859…1886 at001a = ╱20╱…╱ // 0x1873 @0x1a
0x1859…1886 at001b = ╱72╱r╱ // 0x1874 @0x1b
0x1859…1886 at001c = ╱65╱e╱ // 0x1875 @0x1c
0x1859…1886 at001d = ╱6e╱n╱ // 0x1876 @0x1d
0x1859…1886 at001e = ╱74╱t╱ // 0x1877 @0x1e
0x1859…1886 at001f = ╱65╱e╱ // 0x1878 @0x1f
0x1859…1886 at0020 = ╱70╱p╱ // 0x1879 @0x20
0x1859…1886 at0021 = ╱6f╱o╱ // 0x187a @0x21
0x1859…1886 at0022 = ╱73╱s╱ // 0x187b @0x22
0x1859…1886 at0023 = ╱74╱t╱ // 0x187c @0x23
0x1859…1886 at0024 = ╱65╱e╱ // 0x187d @0x24
0x1859…1886 at0025 = ╱72╱r╱ // 0x187e @0x25
0x1859…1886 at0026 = ╱69╱i╱ // 0x187f @0x26
0x1859…1886 at0027 = ╱6e╱n╱ // 0x1880 @0x27
0x1859…1886 at0028 = ╱67╱g╱ // 0x1881 @0x28
0x1859…1886 at0029 = ╱65╱e╱ // 0x1882 @0x29
0x1859…1886 at002a = ╱72╱r╱ // 0x1883 @0x2a
0x1859…1886 at002b = ╱22╱"╱ // 0x1884 @0x2b
0x1859…1886 at002c = EOL // 0x1885 @0x2c
0x1859…1886 }
0x1886…18b2 a609 2260 TXT1$(5)="Renteberegningsoversigt"
0x1886…18b2 LineComalBin {
0x1886…18b2 ptr = 0xa609 // 0x1886 @0x0
0x1886…18b2 lno = 0x08d4 // 0x1888 @0x2
0x1886…18b2 at0004 = ╱54╱T╱ // 0x188a @0x4
0x1886…18b2 at0005 = ╱58╱X╱ // 0x188b @0x5
0x1886…18b2 at0006 = ╱54╱T╱ // 0x188c @0x6
0x1886…18b2 at0007 = ╱31╱1╱ // 0x188d @0x7
0x1886…18b2 at0008 = ╱ef╱$╱ // 0x188e @0x8
0x1886…18b2 at0009 = ╱ed╱(╱ // 0x188f @0x9
0x1886…18b2 at000a = ╱35╱5╱ // 0x1890 @0xa
0x1886…18b2 at000b = ╱fe0000a003╱ // 0x1891 @0xb
0x1886…18b2 at0010 = ╱ee╱)╱ // 0x1896 @0x10
0x1886…18b2 at0011 = ╱dc╱=╱ // 0x1897 @0x11
0x1886…18b2 at0012 = ╱22╱"╱ // 0x1898 @0x12
0x1886…18b2 at0013 = ╱52╱R╱ // 0x1899 @0x13
0x1886…18b2 at0014 = ╱65╱e╱ // 0x189a @0x14
0x1886…18b2 at0015 = ╱6e╱n╱ // 0x189b @0x15
0x1886…18b2 at0016 = ╱74╱t╱ // 0x189c @0x16
0x1886…18b2 at0017 = ╱65╱e╱ // 0x189d @0x17
0x1886…18b2 at0018 = ╱62╱b╱ // 0x189e @0x18
0x1886…18b2 at0019 = ╱65╱e╱ // 0x189f @0x19
0x1886…18b2 at001a = ╱72╱r╱ // 0x18a0 @0x1a
0x1886…18b2 at001b = ╱65╱e╱ // 0x18a1 @0x1b
0x1886…18b2 at001c = ╱67╱g╱ // 0x18a2 @0x1c
0x1886…18b2 at001d = ╱6e╱n╱ // 0x18a3 @0x1d
0x1886…18b2 at001e = ╱69╱i╱ // 0x18a4 @0x1e
0x1886…18b2 at001f = ╱6e╱n╱ // 0x18a5 @0x1f
0x1886…18b2 at0020 = ╱67╱g╱ // 0x18a6 @0x20
0x1886…18b2 at0021 = ╱73╱s╱ // 0x18a7 @0x21
0x1886…18b2 at0022 = ╱6f╱o╱ // 0x18a8 @0x22
0x1886…18b2 at0023 = ╱76╱v╱ // 0x18a9 @0x23
0x1886…18b2 at0024 = ╱65╱e╱ // 0x18aa @0x24
0x1886…18b2 at0025 = ╱72╱r╱ // 0x18ab @0x25
0x1886…18b2 at0026 = ╱73╱s╱ // 0x18ac @0x26
0x1886…18b2 at0027 = ╱69╱i╱ // 0x18ad @0x27
0x1886…18b2 at0028 = ╱67╱g╱ // 0x18ae @0x28
0x1886…18b2 at0029 = ╱74╱t╱ // 0x18af @0x29
0x1886…18b2 at002a = ╱22╱"╱ // 0x18b0 @0x2a
0x1886…18b2 at002b = EOL // 0x18b1 @0x2b
0x1886…18b2 }
0x18b2…18dd a634 2270 TXT1$(6)="Rentebogføringsrapport"
0x18b2…18dd LineComalBin {
0x18b2…18dd ptr = 0xa634 // 0x18b2 @0x0
0x18b2…18dd lno = 0x08de // 0x18b4 @0x2
0x18b2…18dd at0004 = ╱54╱T╱ // 0x18b6 @0x4
0x18b2…18dd at0005 = ╱58╱X╱ // 0x18b7 @0x5
0x18b2…18dd at0006 = ╱54╱T╱ // 0x18b8 @0x6
0x18b2…18dd at0007 = ╱31╱1╱ // 0x18b9 @0x7
0x18b2…18dd at0008 = ╱ef╱$╱ // 0x18ba @0x8
0x18b2…18dd at0009 = ╱ed╱(╱ // 0x18bb @0x9
0x18b2…18dd at000a = ╱36╱6╱ // 0x18bc @0xa
0x18b2…18dd at000b = ╱fe0000c003╱ // 0x18bd @0xb
0x18b2…18dd at0010 = ╱ee╱)╱ // 0x18c2 @0x10
0x18b2…18dd at0011 = ╱dc╱=╱ // 0x18c3 @0x11
0x18b2…18dd at0012 = ╱22╱"╱ // 0x18c4 @0x12
0x18b2…18dd at0013 = ╱52╱R╱ // 0x18c5 @0x13
0x18b2…18dd at0014 = ╱65╱e╱ // 0x18c6 @0x14
0x18b2…18dd at0015 = ╱6e╱n╱ // 0x18c7 @0x15
0x18b2…18dd at0016 = ╱74╱t╱ // 0x18c8 @0x16
0x18b2…18dd at0017 = ╱65╱e╱ // 0x18c9 @0x17
0x18b2…18dd at0018 = ╱62╱b╱ // 0x18ca @0x18
0x18b2…18dd at0019 = ╱6f╱o╱ // 0x18cb @0x19
0x18b2…18dd at001a = ╱67╱g╱ // 0x18cc @0x1a
0x18b2…18dd at001b = ╱66╱f╱ // 0x18cd @0x1b
0x18b2…18dd at001c = ╱7c╱ø╱ // 0x18ce @0x1c
0x18b2…18dd at001d = ╱72╱r╱ // 0x18cf @0x1d
0x18b2…18dd at001e = ╱69╱i╱ // 0x18d0 @0x1e
0x18b2…18dd at001f = ╱6e╱n╱ // 0x18d1 @0x1f
0x18b2…18dd at0020 = ╱67╱g╱ // 0x18d2 @0x20
0x18b2…18dd at0021 = ╱73╱s╱ // 0x18d3 @0x21
0x18b2…18dd at0022 = ╱72╱r╱ // 0x18d4 @0x22
0x18b2…18dd at0023 = ╱61╱a╱ // 0x18d5 @0x23
0x18b2…18dd at0024 = ╱70╱p╱ // 0x18d6 @0x24
0x18b2…18dd at0025 = ╱70╱p╱ // 0x18d7 @0x25
0x18b2…18dd at0026 = ╱6f╱o╱ // 0x18d8 @0x26
0x18b2…18dd at0027 = ╱72╱r╱ // 0x18d9 @0x27
0x18b2…18dd at0028 = ╱74╱t╱ // 0x18da @0x28
0x18b2…18dd at0029 = ╱22╱"╱ // 0x18db @0x29
0x18b2…18dd at002a = EOL // 0x18dc @0x2a
0x18b2…18dd }
0x18dd…18e3 a63a 2280 REPEAT
0x18dd…18e3 LineComalBin {
0x18dd…18e3 ptr = 0xa63a // 0x18dd @0x0
0x18dd…18e3 lno = 0x08e8 // 0x18df @0x2
0x18dd…18e3 at0004 = ╱97╱ REPEAT ╱ // 0x18e1 @0x4
0x18dd…18e3 at0005 = EOL // 0x18e2 @0x5
0x18dd…18e3 }
0x18e3…18ea a641 2290 OUTPUT T
0x18e3…18ea LineComalBin {
0x18e3…18ea ptr = 0xa641 // 0x18e3 @0x0
0x18e3…18ea lno = 0x08f2 // 0x18e5 @0x2
0x18e3…18ea at0004 = ╱a5╱ OUTPUT ╱ // 0x18e7 @0x4
0x18e3…18ea at0005 = ╱54╱T╱ // 0x18e8 @0x5
0x18e3…18ea at0006 = EOL // 0x18e9 @0x6
0x18e3…18ea }
0x18ea…18f0 a647 2300 CLEAR
0x18ea…18f0 LineComalBin {
0x18ea…18f0 ptr = 0xa647 // 0x18ea @0x0
0x18ea…18f0 lno = 0x08fc // 0x18ec @0x2
0x18ea…18f0 at0004 = ╱a0╱ CLEAR ╱ // 0x18ee @0x4
0x18ea…18f0 at0005 = EOL // 0x18ef @0x5
0x18ea…18f0 }
0x18f0…18ff a656 2310 CURSOR 20,E
0x18f0…18ff LineComalBin {
0x18f0…18ff ptr = 0xa656 // 0x18f0 @0x0
0x18f0…18ff lno = 0x0906 // 0x18f2 @0x2
0x18f0…18ff at0004 = ╱a1╱ CURSOR ╱ // 0x18f4 @0x4
0x18f0…18ff at0005 = ╱32╱2╱ // 0x18f5 @0x5
0x18f0…18ff at0006 = ╱30╱0╱ // 0x18f6 @0x6
0x18f0…18ff at0007 = ╱fe0000a005╱ // 0x18f7 @0x7
0x18f0…18ff at000c = ╱ec╱,╱ // 0x18fc @0xc
0x18f0…18ff at000d = ╱45╱E╱ // 0x18fd @0xd
0x18f0…18ff at000e = EOL // 0x18fe @0xe
0x18f0…18ff }
0x18ff…1915 a66c 2320 PRINT "Renteberegning"
0x18ff…1915 LineComalBin {
0x18ff…1915 ptr = 0xa66c // 0x18ff @0x0
0x18ff…1915 lno = 0x0910 // 0x1901 @0x2
0x18ff…1915 at0004 = ╱92╱ PRINT ╱ // 0x1903 @0x4
0x18ff…1915 at0005 = ╱22╱"╱ // 0x1904 @0x5
0x18ff…1915 at0006 = ╱52╱R╱ // 0x1905 @0x6
0x18ff…1915 at0007 = ╱65╱e╱ // 0x1906 @0x7
0x18ff…1915 at0008 = ╱6e╱n╱ // 0x1907 @0x8
0x18ff…1915 at0009 = ╱74╱t╱ // 0x1908 @0x9
0x18ff…1915 at000a = ╱65╱e╱ // 0x1909 @0xa
0x18ff…1915 at000b = ╱62╱b╱ // 0x190a @0xb
0x18ff…1915 at000c = ╱65╱e╱ // 0x190b @0xc
0x18ff…1915 at000d = ╱72╱r╱ // 0x190c @0xd
0x18ff…1915 at000e = ╱65╱e╱ // 0x190d @0xe
0x18ff…1915 at000f = ╱67╱g╱ // 0x190e @0xf
0x18ff…1915 at0010 = ╱6e╱n╱ // 0x190f @0x10
0x18ff…1915 at0011 = ╱69╱i╱ // 0x1910 @0x11
0x18ff…1915 at0012 = ╱6e╱n╱ // 0x1911 @0x12
0x18ff…1915 at0013 = ╱67╱g╱ // 0x1912 @0x13
0x18ff…1915 at0014 = ╱22╱"╱ // 0x1913 @0x14
0x18ff…1915 at0015 = EOL // 0x1914 @0x15
0x18ff…1915 }
0x1915…1929 a680 2330 CURSOR 16,4
0x1915…1929 LineComalBin {
0x1915…1929 ptr = 0xa680 // 0x1915 @0x0
0x1915…1929 lno = 0x091a // 0x1917 @0x2
0x1915…1929 at0004 = ╱a1╱ CURSOR ╱ // 0x1919 @0x4
0x1915…1929 at0005 = ╱31╱1╱ // 0x191a @0x5
0x1915…1929 at0006 = ╱36╱6╱ // 0x191b @0x6
0x1915…1929 at0007 = ╱fe00008005╱ // 0x191c @0x7
0x1915…1929 at000c = ╱ec╱,╱ // 0x1921 @0xc
0x1915…1929 at000d = ╱34╱4╱ // 0x1922 @0xd
0x1915…1929 at000e = ╱fe00008003╱ // 0x1923 @0xe
0x1915…1929 at0013 = EOL // 0x1928 @0x13
0x1915…1929 }
0x1929…193a a691 2340 PRINT "0 :Færdig"
0x1929…193a LineComalBin {
0x1929…193a ptr = 0xa691 // 0x1929 @0x0
0x1929…193a lno = 0x0924 // 0x192b @0x2
0x1929…193a at0004 = ╱92╱ PRINT ╱ // 0x192d @0x4
0x1929…193a at0005 = ╱22╱"╱ // 0x192e @0x5
0x1929…193a at0006 = ╱30╱0╱ // 0x192f @0x6
0x1929…193a at0007 = ╱20╱…╱ // 0x1930 @0x7
0x1929…193a at0008 = ╱3a╱:╱ // 0x1931 @0x8
0x1929…193a at0009 = ╱46╱F╱ // 0x1932 @0x9
0x1929…193a at000a = ╱7b╱æ╱ // 0x1933 @0xa
0x1929…193a at000b = ╱72╱r╱ // 0x1934 @0xb
0x1929…193a at000c = ╱64╱d╱ // 0x1935 @0xc
0x1929…193a at000d = ╱69╱i╱ // 0x1936 @0xd
0x1929…193a at000e = ╱67╱g╱ // 0x1937 @0xe
0x1929…193a at000f = ╱22╱"╱ // 0x1938 @0xf
0x1929…193a at0010 = EOL // 0x1939 @0x10
0x1929…193a }
0x193a…194a a6a1 2350 FOR I=E TO 4
0x193a…194a LineComalBin {
0x193a…194a ptr = 0xa6a1 // 0x193a @0x0
0x193a…194a lno = 0x092e // 0x193c @0x2
0x193a…194a at0004 = ╱83╱ FOR ╱ // 0x193e @0x4
0x193a…194a at0005 = ╱49╱I╱ // 0x193f @0x5
0x193a…194a at0006 = ╱dc╱=╱ // 0x1940 @0x6
0x193a…194a at0007 = ╱45╱E╱ // 0x1941 @0x7
0x193a…194a at0008 = ╱b7╱ TO ╱ // 0x1942 @0x8
0x193a…194a at0009 = ╱34╱4╱ // 0x1943 @0x9
0x193a…194a at000a = ╱fe00008003╱ // 0x1944 @0xa
0x193a…194a at000f = EOL // 0x1949 @0xf
0x193a…194a }
0x194a…1966 a6bd 2360 CURSOR 15,(I-E)*G+6
0x194a…1966 LineComalBin {
0x194a…1966 ptr = 0xa6bd // 0x194a @0x0
0x194a…1966 lno = 0x0938 // 0x194c @0x2
0x194a…1966 at0004 = ╱a1╱ CURSOR ╱ // 0x194e @0x4
0x194a…1966 at0005 = ╱31╱1╱ // 0x194f @0x5
0x194a…1966 at0006 = ╱35╱5╱ // 0x1950 @0x6
0x194a…1966 at0007 = ╱fe0000f004╱ // 0x1951 @0x7
0x194a…1966 at000c = ╱ec╱,╱ // 0x1956 @0xc
0x194a…1966 at000d = ╱ed╱(╱ // 0x1957 @0xd
0x194a…1966 at000e = ╱49╱I╱ // 0x1958 @0xe
0x194a…1966 at000f = ╱e3╱-╱ // 0x1959 @0xf
0x194a…1966 at0010 = ╱45╱E╱ // 0x195a @0x10
0x194a…1966 at0011 = ╱ee╱)╱ // 0x195b @0x11
0x194a…1966 at0012 = ╱e4╱*╱ // 0x195c @0x12
0x194a…1966 at0013 = ╱47╱G╱ // 0x195d @0x13
0x194a…1966 at0014 = ╱e2╱+╱ // 0x195e @0x14
0x194a…1966 at0015 = ╱36╱6╱ // 0x195f @0x15
0x194a…1966 at0016 = ╱fe0000c003╱ // 0x1960 @0x16
0x194a…1966 at001b = EOL // 0x1965 @0x1b
0x194a…1966 }
0x1966…197a a6d1 2370 PRINT I;":";TXT1$(I)
0x1966…197a LineComalBin {
0x1966…197a ptr = 0xa6d1 // 0x1966 @0x0
0x1966…197a lno = 0x0942 // 0x1968 @0x2
0x1966…197a at0004 = ╱92╱ PRINT ╱ // 0x196a @0x4
0x1966…197a at0005 = ╱49╱I╱ // 0x196b @0x5
0x1966…197a at0006 = ╱eb╱;╱ // 0x196c @0x6
0x1966…197a at0007 = ╱22╱"╱ // 0x196d @0x7
0x1966…197a at0008 = ╱3a╱:╱ // 0x196e @0x8
0x1966…197a at0009 = ╱22╱"╱ // 0x196f @0x9
0x1966…197a at000a = ╱eb╱;╱ // 0x1970 @0xa
0x1966…197a at000b = ╱54╱T╱ // 0x1971 @0xb
0x1966…197a at000c = ╱58╱X╱ // 0x1972 @0xc
0x1966…197a at000d = ╱54╱T╱ // 0x1973 @0xd
0x1966…197a at000e = ╱31╱1╱ // 0x1974 @0xe
0x1966…197a at000f = ╱ef╱$╱ // 0x1975 @0xf
0x1966…197a at0010 = ╱ed╱(╱ // 0x1976 @0x10
0x1966…197a at0011 = ╱49╱I╱ // 0x1977 @0x11
0x1966…197a at0012 = ╱ee╱)╱ // 0x1978 @0x12
0x1966…197a at0013 = EOL // 0x1979 @0x13
0x1966…197a }
0x197a…1981 a6d8 2380 NEXT I
0x197a…1981 LineComalBin {
0x197a…1981 ptr = 0xa6d8 // 0x197a @0x0
0x197a…1981 lno = 0x094c // 0x197c @0x2
0x197a…1981 at0004 = ╱84╱ NEXT ╱ // 0x197e @0x4
0x197a…1981 at0005 = ╱49╱I╱ // 0x197f @0x5
0x197a…1981 at0006 = EOL // 0x1980 @0x6
0x197a…1981 }
0x1981…1987 a6de 2390 REPEAT
0x1981…1987 LineComalBin {
0x1981…1987 ptr = 0xa6de // 0x1981 @0x0
0x1981…1987 lno = 0x0956 // 0x1983 @0x2
0x1981…1987 at0004 = ╱97╱ REPEAT ╱ // 0x1985 @0x4
0x1981…1987 at0005 = EOL // 0x1986 @0x5
0x1981…1987 }
0x1987…199c a6f3 2400 CURSOR 18,14
0x1987…199c LineComalBin {
0x1987…199c ptr = 0xa6f3 // 0x1987 @0x0
0x1987…199c lno = 0x0960 // 0x1989 @0x2
0x1987…199c at0004 = ╱a1╱ CURSOR ╱ // 0x198b @0x4
0x1987…199c at0005 = ╱31╱1╱ // 0x198c @0x5
0x1987…199c at0006 = ╱38╱8╱ // 0x198d @0x6
0x1987…199c at0007 = ╱fe00009005╱ // 0x198e @0x7
0x1987…199c at000c = ╱ec╱,╱ // 0x1993 @0xc
0x1987…199c at000d = ╱31╱1╱ // 0x1994 @0xd
0x1987…199c at000e = ╱34╱4╱ // 0x1995 @0xe
0x1987…199c at000f = ╱fe0000e004╱ // 0x1996 @0xf
0x1987…199c at0014 = EOL // 0x199b @0x14
0x1987…199c }
0x199c…19b8 a70f 2410 INPUT "Vælg type (0-4): ",A$
0x199c…19b8 LineComalBin {
0x199c…19b8 ptr = 0xa70f // 0x199c @0x0
0x199c…19b8 lno = 0x096a // 0x199e @0x2
0x199c…19b8 at0004 = ╱91╱ INPUT ╱ // 0x19a0 @0x4
0x199c…19b8 at0005 = ╱22╱"╱ // 0x19a1 @0x5
0x199c…19b8 at0006 = ╱56╱V╱ // 0x19a2 @0x6
0x199c…19b8 at0007 = ╱7b╱æ╱ // 0x19a3 @0x7
0x199c…19b8 at0008 = ╱6c╱l╱ // 0x19a4 @0x8
0x199c…19b8 at0009 = ╱67╱g╱ // 0x19a5 @0x9
0x199c…19b8 at000a = ╱20╱…╱ // 0x19a6 @0xa
0x199c…19b8 at000b = ╱74╱t╱ // 0x19a7 @0xb
0x199c…19b8 at000c = ╱79╱y╱ // 0x19a8 @0xc
0x199c…19b8 at000d = ╱70╱p╱ // 0x19a9 @0xd
0x199c…19b8 at000e = ╱65╱e╱ // 0x19aa @0xe
0x199c…19b8 at000f = ╱20╱…╱ // 0x19ab @0xf
0x199c…19b8 at0010 = ╱28╱(╱ // 0x19ac @0x10
0x199c…19b8 at0011 = ╱30╱0╱ // 0x19ad @0x11
0x199c…19b8 at0012 = ╱2d╱-╱ // 0x19ae @0x12
0x199c…19b8 at0013 = ╱34╱4╱ // 0x19af @0x13
0x199c…19b8 at0014 = ╱29╱)╱ // 0x19b0 @0x14
0x199c…19b8 at0015 = ╱3a╱:╱ // 0x19b1 @0x15
0x199c…19b8 at0016 = ╱20╱…╱ // 0x19b2 @0x16
0x199c…19b8 at0017 = ╱22╱"╱ // 0x19b3 @0x17
0x199c…19b8 at0018 = ╱ec╱,╱ // 0x19b4 @0x18
0x199c…19b8 at0019 = ╱41╱A╱ // 0x19b5 @0x19
0x199c…19b8 at001a = ╱ef╱$╱ // 0x19b6 @0x1a
0x199c…19b8 at001b = EOL // 0x19b7 @0x1b
0x199c…19b8 }
0x19b8…19c8 a71f 2420 EXEC NRTEST(A$)
0x19b8…19c8 LineComalBin {
0x19b8…19c8 ptr = 0xa71f // 0x19b8 @0x0
0x19b8…19c8 lno = 0x0974 // 0x19ba @0x2
0x19b8…19c8 at0004 = ╱9d╱ EXEC ╱ // 0x19bc @0x4
0x19b8…19c8 at0005 = ╱4e╱N╱ // 0x19bd @0x5
0x19b8…19c8 at0006 = ╱52╱R╱ // 0x19be @0x6
0x19b8…19c8 at0007 = ╱54╱T╱ // 0x19bf @0x7
0x19b8…19c8 at0008 = ╱45╱E╱ // 0x19c0 @0x8
0x19b8…19c8 at0009 = ╱53╱S╱ // 0x19c1 @0x9
0x19b8…19c8 at000a = ╱54╱T╱ // 0x19c2 @0xa
0x19b8…19c8 at000b = ╱ed╱(╱ // 0x19c3 @0xb
0x19b8…19c8 at000c = ╱41╱A╱ // 0x19c4 @0xc
0x19b8…19c8 at000d = ╱ef╱$╱ // 0x19c5 @0xd
0x19b8…19c8 at000e = ╱ee╱)╱ // 0x19c6 @0xe
0x19b8…19c8 at000f = EOL // 0x19c7 @0xf
0x19b8…19c8 }
0x19c8…19e2 a739 2430 UNTIL P=>B AND P<5 AND TEST2=B
0x19c8…19e2 LineComalBin {
0x19c8…19e2 ptr = 0xa739 // 0x19c8 @0x0
0x19c8…19e2 lno = 0x097e // 0x19ca @0x2
0x19c8…19e2 at0004 = ╱98╱ UNTIL ╱ // 0x19cc @0x4
0x19c8…19e2 at0005 = ╱50╱P╱ // 0x19cd @0x5
0x19c8…19e2 at0006 = ╱e0╱=>╱ // 0x19ce @0x6
0x19c8…19e2 at0007 = ╱42╱B╱ // 0x19cf @0x7
0x19c8…19e2 at0008 = ╱da╱ AND ╱ // 0x19d0 @0x8
0x19c8…19e2 at0009 = ╱50╱P╱ // 0x19d1 @0x9
0x19c8…19e2 at000a = ╱dd╱<╱ // 0x19d2 @0xa
0x19c8…19e2 at000b = ╱35╱5╱ // 0x19d3 @0xb
0x19c8…19e2 at000c = ╱fe0000a003╱ // 0x19d4 @0xc
0x19c8…19e2 at0011 = ╱da╱ AND ╱ // 0x19d9 @0x11
0x19c8…19e2 at0012 = ╱54╱T╱ // 0x19da @0x12
0x19c8…19e2 at0013 = ╱45╱E╱ // 0x19db @0x13
0x19c8…19e2 at0014 = ╱53╱S╱ // 0x19dc @0x14
0x19c8…19e2 at0015 = ╱54╱T╱ // 0x19dd @0x15
0x19c8…19e2 at0016 = ╱32╱2╱ // 0x19de @0x16
0x19c8…19e2 at0017 = ╱dc╱=╱ // 0x19df @0x17
0x19c8…19e2 at0018 = ╱42╱B╱ // 0x19e0 @0x18
0x19c8…19e2 at0019 = EOL // 0x19e1 @0x19
0x19c8…19e2 }
0x19e2…19ed a744 2440 TYPE=P
0x19e2…19ed LineComalBin {
0x19e2…19ed ptr = 0xa744 // 0x19e2 @0x0
0x19e2…19ed lno = 0x0988 // 0x19e4 @0x2
0x19e2…19ed at0004 = ╱54╱T╱ // 0x19e6 @0x4
0x19e2…19ed at0005 = ╱59╱Y╱ // 0x19e7 @0x5
0x19e2…19ed at0006 = ╱50╱P╱ // 0x19e8 @0x6
0x19e2…19ed at0007 = ╱45╱E╱ // 0x19e9 @0x7
0x19e2…19ed at0008 = ╱dc╱=╱ // 0x19ea @0x8
0x19e2…19ed at0009 = ╱50╱P╱ // 0x19eb @0x9
0x19e2…19ed at000a = EOL // 0x19ec @0xa
0x19e2…19ed }
0x19ed…19fb a752 2450 IF TYPE=B THEN EXIT
0x19ed…19fb LineComalBin {
0x19ed…19fb ptr = 0xa752 // 0x19ed @0x0
0x19ed…19fb lno = 0x0992 // 0x19ef @0x2
0x19ed…19fb at0004 = ╱82╱ IF ╱ // 0x19f1 @0x4
0x19ed…19fb at0005 = ╱54╱T╱ // 0x19f2 @0x5
0x19ed…19fb at0006 = ╱59╱Y╱ // 0x19f3 @0x6
0x19ed…19fb at0007 = ╱50╱P╱ // 0x19f4 @0x7
0x19ed…19fb at0008 = ╱45╱E╱ // 0x19f5 @0x8
0x19ed…19fb at0009 = ╱dc╱=╱ // 0x19f6 @0x9
0x19ed…19fb at000a = ╱42╱B╱ // 0x19f7 @0xa
0x19ed…19fb at000b = ╱b6╱ THEN ╱ // 0x19f8 @0xb
0x19ed…19fb at000c = ╱99╱ EXIT ╱ // 0x19f9 @0xc
0x19ed…19fb at000d = EOL // 0x19fa @0xd
0x19ed…19fb }
0x19fb…1a01 a758 2470 CLEAR
0x19fb…1a01 LineComalBin {
0x19fb…1a01 ptr = 0xa758 // 0x19fb @0x0
0x19fb…1a01 lno = 0x09a6 // 0x19fd @0x2
0x19fb…1a01 at0004 = ╱a0╱ CLEAR ╱ // 0x19ff @0x4
0x19fb…1a01 at0005 = EOL // 0x1a00 @0x5
0x19fb…1a01 }
0x1a01…1a15 a76c 2480 CURSOR 18,8
0x1a01…1a15 LineComalBin {
0x1a01…1a15 ptr = 0xa76c // 0x1a01 @0x0
0x1a01…1a15 lno = 0x09b0 // 0x1a03 @0x2
0x1a01…1a15 at0004 = ╱a1╱ CURSOR ╱ // 0x1a05 @0x4
0x1a01…1a15 at0005 = ╱31╱1╱ // 0x1a06 @0x5
0x1a01…1a15 at0006 = ╱38╱8╱ // 0x1a07 @0x6
0x1a01…1a15 at0007 = ╱fe00009005╱ // 0x1a08 @0x7
0x1a01…1a15 at000c = ╱ec╱,╱ // 0x1a0d @0xc
0x1a01…1a15 at000d = ╱38╱8╱ // 0x1a0e @0xd
0x1a01…1a15 at000e = ╱fe00008004╱ // 0x1a0f @0xe
0x1a01…1a15 at0013 = EOL // 0x1a14 @0x13
0x1a01…1a15 }
0x1a15…1a26 a77d 2490 PRINT TXT1$(TYPE)
0x1a15…1a26 LineComalBin {
0x1a15…1a26 ptr = 0xa77d // 0x1a15 @0x0
0x1a15…1a26 lno = 0x09ba // 0x1a17 @0x2
0x1a15…1a26 at0004 = ╱92╱ PRINT ╱ // 0x1a19 @0x4
0x1a15…1a26 at0005 = ╱54╱T╱ // 0x1a1a @0x5
0x1a15…1a26 at0006 = ╱58╱X╱ // 0x1a1b @0x6
0x1a15…1a26 at0007 = ╱54╱T╱ // 0x1a1c @0x7
0x1a15…1a26 at0008 = ╱31╱1╱ // 0x1a1d @0x8
0x1a15…1a26 at0009 = ╱ef╱$╱ // 0x1a1e @0x9
0x1a15…1a26 at000a = ╱ed╱(╱ // 0x1a1f @0xa
0x1a15…1a26 at000b = ╱54╱T╱ // 0x1a20 @0xb
0x1a15…1a26 at000c = ╱59╱Y╱ // 0x1a21 @0xc
0x1a15…1a26 at000d = ╱50╱P╱ // 0x1a22 @0xd
0x1a15…1a26 at000e = ╱45╱E╱ // 0x1a23 @0xe
0x1a15…1a26 at000f = ╱ee╱)╱ // 0x1a24 @0xf
0x1a15…1a26 at0010 = EOL // 0x1a25 @0x10
0x1a15…1a26 }
0x1a26…1a32 a789 2500 CASE TYPE OF
0x1a26…1a32 LineComalBin {
0x1a26…1a32 ptr = 0xa789 // 0x1a26 @0x0
0x1a26…1a32 lno = 0x09c4 // 0x1a28 @0x2
0x1a26…1a32 at0004 = ╱a201╱ CASE ╱ // 0x1a2a @0x4
0x1a26…1a32 at0006 = ╱54╱T╱ // 0x1a2c @0x6
0x1a26…1a32 at0007 = ╱59╱Y╱ // 0x1a2d @0x7
0x1a26…1a32 at0008 = ╱50╱P╱ // 0x1a2e @0x8
0x1a26…1a32 at0009 = ╱45╱E╱ // 0x1a2f @0x9
0x1a26…1a32 at000a = ╱ba╱ OF ╱ // 0x1a30 @0xa
0x1a26…1a32 at000b = EOL // 0x1a31 @0xb
0x1a26…1a32 }
0x1a32…1a38 a78f 2510 STOP
0x1a32…1a38 LineComalBin {
0x1a32…1a38 ptr = 0xa78f // 0x1a32 @0x0
0x1a32…1a38 lno = 0x09ce // 0x1a34 @0x2
0x1a32…1a38 at0004 = ╱8d╱ STOP ╱ // 0x1a36 @0x4
0x1a32…1a38 at0005 = EOL // 0x1a37 @0x5
0x1a32…1a38 }
0x1a38…1a40 a797 2520 WHEN E
0x1a38…1a40 LineComalBin {
0x1a38…1a40 ptr = 0xa797 // 0x1a38 @0x0
0x1a38…1a40 lno = 0x09d8 // 0x1a3a @0x2
0x1a38…1a40 at0004 = ╱a301╱ WHEN ╱ // 0x1a3c @0x4
0x1a38…1a40 at0006 = ╱45╱E╱ // 0x1a3e @0x6
0x1a38…1a40 at0007 = EOL // 0x1a3f @0x7
0x1a38…1a40 }
0x1a40…1a46 a79d 2525 REPEAT
0x1a40…1a46 LineComalBin {
0x1a40…1a46 ptr = 0xa79d // 0x1a40 @0x0
0x1a40…1a46 lno = 0x09dd // 0x1a42 @0x2
0x1a40…1a46 at0004 = ╱97╱ REPEAT ╱ // 0x1a44 @0x4
0x1a40…1a46 at0005 = EOL // 0x1a45 @0x5
0x1a40…1a46 }
0x1a46…1a4c a7a3 2530 REPEAT
0x1a46…1a4c LineComalBin {
0x1a46…1a4c ptr = 0xa7a3 // 0x1a46 @0x0
0x1a46…1a4c lno = 0x09e2 // 0x1a48 @0x2
0x1a46…1a4c at0004 = ╱97╱ REPEAT ╱ // 0x1a4a @0x4
0x1a46…1a4c at0005 = EOL // 0x1a4b @0x5
0x1a46…1a4c }
0x1a4c…1a61 a7b8 2540 CURSOR 18,10
0x1a4c…1a61 LineComalBin {
0x1a4c…1a61 ptr = 0xa7b8 // 0x1a4c @0x0
0x1a4c…1a61 lno = 0x09ec // 0x1a4e @0x2
0x1a4c…1a61 at0004 = ╱a1╱ CURSOR ╱ // 0x1a50 @0x4
0x1a4c…1a61 at0005 = ╱31╱1╱ // 0x1a51 @0x5
0x1a4c…1a61 at0006 = ╱38╱8╱ // 0x1a52 @0x6
0x1a4c…1a61 at0007 = ╱fe00009005╱ // 0x1a53 @0x7
0x1a4c…1a61 at000c = ╱ec╱,╱ // 0x1a58 @0xc
0x1a4c…1a61 at000d = ╱31╱1╱ // 0x1a59 @0xd
0x1a4c…1a61 at000e = ╱30╱0╱ // 0x1a5a @0xe
0x1a4c…1a61 at000f = ╱fe0000a004╱ // 0x1a5b @0xf
0x1a4c…1a61 at0014 = EOL // 0x1a60 @0x14
0x1a4c…1a61 }
0x1a61…1a85 a7dc 2550 PRINT "Fra kundenr : (0:Alle)"
0x1a61…1a85 LineComalBin {
0x1a61…1a85 ptr = 0xa7dc // 0x1a61 @0x0
0x1a61…1a85 lno = 0x09f6 // 0x1a63 @0x2
0x1a61…1a85 at0004 = ╱92╱ PRINT ╱ // 0x1a65 @0x4
0x1a61…1a85 at0005 = ╱22╱"╱ // 0x1a66 @0x5
0x1a61…1a85 at0006 = ╱46╱F╱ // 0x1a67 @0x6
0x1a61…1a85 at0007 = ╱72╱r╱ // 0x1a68 @0x7
0x1a61…1a85 at0008 = ╱61╱a╱ // 0x1a69 @0x8
0x1a61…1a85 at0009 = ╱20╱…╱ // 0x1a6a @0x9
0x1a61…1a85 at000a = ╱6b╱k╱ // 0x1a6b @0xa
0x1a61…1a85 at000b = ╱75╱u╱ // 0x1a6c @0xb
0x1a61…1a85 at000c = ╱6e╱n╱ // 0x1a6d @0xc
0x1a61…1a85 at000d = ╱64╱d╱ // 0x1a6e @0xd
0x1a61…1a85 at000e = ╱65╱e╱ // 0x1a6f @0xe
0x1a61…1a85 at000f = ╱6e╱n╱ // 0x1a70 @0xf
0x1a61…1a85 at0010 = ╱72╱r╱ // 0x1a71 @0x10
0x1a61…1a85 at0011 = ╱20╱…╱ // 0x1a72 @0x11
0x1a61…1a85 at0012 = ╱3a╱:╱ // 0x1a73 @0x12
0x1a61…1a85 at0013 = ╱20╱…╱ // 0x1a74 @0x13
0x1a61…1a85 at0014 = ╱20╱…╱ // 0x1a75 @0x14
0x1a61…1a85 at0015 = ╱20╱…╱ // 0x1a76 @0x15
0x1a61…1a85 at0016 = ╱20╱…╱ // 0x1a77 @0x16
0x1a61…1a85 at0017 = ╱20╱…╱ // 0x1a78 @0x17
0x1a61…1a85 at0018 = ╱20╱…╱ // 0x1a79 @0x18
0x1a61…1a85 at0019 = ╱20╱…╱ // 0x1a7a @0x19
0x1a61…1a85 at001a = ╱28╱(╱ // 0x1a7b @0x1a
0x1a61…1a85 at001b = ╱30╱0╱ // 0x1a7c @0x1b
0x1a61…1a85 at001c = ╱3a╱:╱ // 0x1a7d @0x1c
0x1a61…1a85 at001d = ╱41╱A╱ // 0x1a7e @0x1d
0x1a61…1a85 at001e = ╱6c╱l╱ // 0x1a7f @0x1e
0x1a61…1a85 at001f = ╱6c╱l╱ // 0x1a80 @0x1f
0x1a61…1a85 at0020 = ╱65╱e╱ // 0x1a81 @0x20
0x1a61…1a85 at0021 = ╱29╱)╱ // 0x1a82 @0x21
0x1a61…1a85 at0022 = ╱22╱"╱ // 0x1a83 @0x22
0x1a61…1a85 at0023 = EOL // 0x1a84 @0x23
0x1a61…1a85 }
0x1a85…1a9a a7f1 2560 CURSOR 31,10
0x1a85…1a9a LineComalBin {
0x1a85…1a9a ptr = 0xa7f1 // 0x1a85 @0x0
0x1a85…1a9a lno = 0x0a00 // 0x1a87 @0x2
0x1a85…1a9a at0004 = ╱a1╱ CURSOR ╱ // 0x1a89 @0x4
0x1a85…1a9a at0005 = ╱33╱3╱ // 0x1a8a @0x5
0x1a85…1a9a at0006 = ╱31╱1╱ // 0x1a8b @0x6
0x1a85…1a9a at0007 = ╱fe0000f805╱ // 0x1a8c @0x7
0x1a85…1a9a at000c = ╱ec╱,╱ // 0x1a91 @0xc
0x1a85…1a9a at000d = ╱31╱1╱ // 0x1a92 @0xd
0x1a85…1a9a at000e = ╱30╱0╱ // 0x1a93 @0xe
0x1a85…1a9a at000f = ╱fe0000a004╱ // 0x1a94 @0xf
0x1a85…1a9a at0014 = EOL // 0x1a99 @0x14
0x1a85…1a9a }
0x1a9a…1aa6 a7fd 2570 INPUT " ",A$
0x1a9a…1aa6 LineComalBin {
0x1a9a…1aa6 ptr = 0xa7fd // 0x1a9a @0x0
0x1a9a…1aa6 lno = 0x0a0a // 0x1a9c @0x2
0x1a9a…1aa6 at0004 = ╱91╱ INPUT ╱ // 0x1a9e @0x4
0x1a9a…1aa6 at0005 = ╱22╱"╱ // 0x1a9f @0x5
0x1a9a…1aa6 at0006 = ╱20╱…╱ // 0x1aa0 @0x6
0x1a9a…1aa6 at0007 = ╱22╱"╱ // 0x1aa1 @0x7
0x1a9a…1aa6 at0008 = ╱ec╱,╱ // 0x1aa2 @0x8
0x1a9a…1aa6 at0009 = ╱41╱A╱ // 0x1aa3 @0x9
0x1a9a…1aa6 at000a = ╱ef╱$╱ // 0x1aa4 @0xa
0x1a9a…1aa6 at000b = EOL // 0x1aa5 @0xb
0x1a9a…1aa6 }
0x1aa6…1ab6 a80d 2580 EXEC NRTEST(A$)
0x1aa6…1ab6 LineComalBin {
0x1aa6…1ab6 ptr = 0xa80d // 0x1aa6 @0x0
0x1aa6…1ab6 lno = 0x0a14 // 0x1aa8 @0x2
0x1aa6…1ab6 at0004 = ╱9d╱ EXEC ╱ // 0x1aaa @0x4
0x1aa6…1ab6 at0005 = ╱4e╱N╱ // 0x1aab @0x5
0x1aa6…1ab6 at0006 = ╱52╱R╱ // 0x1aac @0x6
0x1aa6…1ab6 at0007 = ╱54╱T╱ // 0x1aad @0x7
0x1aa6…1ab6 at0008 = ╱45╱E╱ // 0x1aae @0x8
0x1aa6…1ab6 at0009 = ╱53╱S╱ // 0x1aaf @0x9
0x1aa6…1ab6 at000a = ╱54╱T╱ // 0x1ab0 @0xa
0x1aa6…1ab6 at000b = ╱ed╱(╱ // 0x1ab1 @0xb
0x1aa6…1ab6 at000c = ╱41╱A╱ // 0x1ab2 @0xc
0x1aa6…1ab6 at000d = ╱ef╱$╱ // 0x1ab3 @0xd
0x1aa6…1ab6 at000e = ╱ee╱)╱ // 0x1ab4 @0xe
0x1aa6…1ab6 at000f = EOL // 0x1ab5 @0xf
0x1aa6…1ab6 }
0x1ab6…1ad3 a82a 2590 UNTIL (KTAL=DTAL OR P=B) AND TEST2=B
0x1ab6…1ad3 LineComalBin {
0x1ab6…1ad3 ptr = 0xa82a // 0x1ab6 @0x0
0x1ab6…1ad3 lno = 0x0a1e // 0x1ab8 @0x2
0x1ab6…1ad3 at0004 = ╱98╱ UNTIL ╱ // 0x1aba @0x4
0x1ab6…1ad3 at0005 = ╱ed╱(╱ // 0x1abb @0x5
0x1ab6…1ad3 at0006 = ╱4b╱K╱ // 0x1abc @0x6
0x1ab6…1ad3 at0007 = ╱54╱T╱ // 0x1abd @0x7
0x1ab6…1ad3 at0008 = ╱41╱A╱ // 0x1abe @0x8
0x1ab6…1ad3 at0009 = ╱4c╱L╱ // 0x1abf @0x9
0x1ab6…1ad3 at000a = ╱dc╱=╱ // 0x1ac0 @0xa
0x1ab6…1ad3 at000b = ╱44╱D╱ // 0x1ac1 @0xb
0x1ab6…1ad3 at000c = ╱54╱T╱ // 0x1ac2 @0xc
0x1ab6…1ad3 at000d = ╱41╱A╱ // 0x1ac3 @0xd
0x1ab6…1ad3 at000e = ╱4c╱L╱ // 0x1ac4 @0xe
0x1ab6…1ad3 at000f = ╱db╱ OR ╱ // 0x1ac5 @0xf
0x1ab6…1ad3 at0010 = ╱50╱P╱ // 0x1ac6 @0x10
0x1ab6…1ad3 at0011 = ╱dc╱=╱ // 0x1ac7 @0x11
0x1ab6…1ad3 at0012 = ╱42╱B╱ // 0x1ac8 @0x12
0x1ab6…1ad3 at0013 = ╱ee╱)╱ // 0x1ac9 @0x13
0x1ab6…1ad3 at0014 = ╱da╱ AND ╱ // 0x1aca @0x14
0x1ab6…1ad3 at0015 = ╱54╱T╱ // 0x1acb @0x15
0x1ab6…1ad3 at0016 = ╱45╱E╱ // 0x1acc @0x16
0x1ab6…1ad3 at0017 = ╱53╱S╱ // 0x1acd @0x17
0x1ab6…1ad3 at0018 = ╱54╱T╱ // 0x1ace @0x18
0x1ab6…1ad3 at0019 = ╱32╱2╱ // 0x1acf @0x19
0x1ab6…1ad3 at001a = ╱dc╱=╱ // 0x1ad0 @0x1a
0x1ab6…1ad3 at001b = ╱42╱B╱ // 0x1ad1 @0x1b
0x1ab6…1ad3 at001c = EOL // 0x1ad2 @0x1c
0x1ab6…1ad3 }
0x1ad3…1adf a836 2600 FRANR=P
0x1ad3…1adf LineComalBin {
0x1ad3…1adf ptr = 0xa836 // 0x1ad3 @0x0
0x1ad3…1adf lno = 0x0a28 // 0x1ad5 @0x2
0x1ad3…1adf at0004 = ╱46╱F╱ // 0x1ad7 @0x4
0x1ad3…1adf at0005 = ╱52╱R╱ // 0x1ad8 @0x5
0x1ad3…1adf at0006 = ╱41╱A╱ // 0x1ad9 @0x6
0x1ad3…1adf at0007 = ╱4e╱N╱ // 0x1ada @0x7
0x1ad3…1adf at0008 = ╱52╱R╱ // 0x1adb @0x8
0x1ad3…1adf at0009 = ╱dc╱=╱ // 0x1adc @0x9
0x1ad3…1adf at000a = ╱50╱P╱ // 0x1add @0xa
0x1ad3…1adf at000b = EOL // 0x1ade @0xb
0x1ad3…1adf }
0x1adf…1ae9 a840 2610 IF P=B THEN
0x1adf…1ae9 LineComalBin {
0x1adf…1ae9 ptr = 0xa840 // 0x1adf @0x0
0x1adf…1ae9 lno = 0x0a32 // 0x1ae1 @0x2
0x1adf…1ae9 at0004 = ╱9c╱ IF ╱ // 0x1ae3 @0x4
0x1adf…1ae9 at0005 = ╱50╱P╱ // 0x1ae4 @0x5
0x1adf…1ae9 at0006 = ╱dc╱=╱ // 0x1ae5 @0x6
0x1adf…1ae9 at0007 = ╱42╱B╱ // 0x1ae6 @0x7
0x1adf…1ae9 at0008 = ╱b6╱ THEN ╱ // 0x1ae7 @0x8
0x1adf…1ae9 at0009 = EOL // 0x1ae8 @0x9
0x1adf…1ae9 }
0x1ae9…1b20 a877 2620 FRA=E;TIL=MDANTAL DIV 4;TILNR=(DTAL+E)*10000
0x1ae9…1b20 LineComalBin {
0x1ae9…1b20 ptr = 0xa877 // 0x1ae9 @0x0
0x1ae9…1b20 lno = 0x0a3c // 0x1aeb @0x2
0x1ae9…1b20 at0004 = ╱46╱F╱ // 0x1aed @0x4
0x1ae9…1b20 at0005 = ╱52╱R╱ // 0x1aee @0x5
0x1ae9…1b20 at0006 = ╱41╱A╱ // 0x1aef @0x6
0x1ae9…1b20 at0007 = ╱dc╱=╱ // 0x1af0 @0x7
0x1ae9…1b20 at0008 = ╱45╱E╱ // 0x1af1 @0x8
0x1ae9…1b20 at0009 = ╱eb╱;╱ // 0x1af2 @0x9
0x1ae9…1b20 at000a = ╱54╱T╱ // 0x1af3 @0xa
0x1ae9…1b20 at000b = ╱49╱I╱ // 0x1af4 @0xb
0x1ae9…1b20 at000c = ╱4c╱L╱ // 0x1af5 @0xc
0x1ae9…1b20 at000d = ╱dc╱=╱ // 0x1af6 @0xd
0x1ae9…1b20 at000e = ╱4d╱M╱ // 0x1af7 @0xe
0x1ae9…1b20 at000f = ╱44╱D╱ // 0x1af8 @0xf
0x1ae9…1b20 at0010 = ╱41╱A╱ // 0x1af9 @0x10
0x1ae9…1b20 at0011 = ╱4e╱N╱ // 0x1afa @0x11
0x1ae9…1b20 at0012 = ╱54╱T╱ // 0x1afb @0x12
0x1ae9…1b20 at0013 = ╱41╱A╱ // 0x1afc @0x13
0x1ae9…1b20 at0014 = ╱4c╱L╱ // 0x1afd @0x14
0x1ae9…1b20 at0015 = ╱e7╱ DIV ╱ // 0x1afe @0x15
0x1ae9…1b20 at0016 = ╱34╱4╱ // 0x1aff @0x16
0x1ae9…1b20 at0017 = ╱fe00008003╱ // 0x1b00 @0x17
0x1ae9…1b20 at001c = ╱eb╱;╱ // 0x1b05 @0x1c
0x1ae9…1b20 at001d = ╱54╱T╱ // 0x1b06 @0x1d
0x1ae9…1b20 at001e = ╱49╱I╱ // 0x1b07 @0x1e
0x1ae9…1b20 at001f = ╱4c╱L╱ // 0x1b08 @0x1f
0x1ae9…1b20 at0020 = ╱4e╱N╱ // 0x1b09 @0x20
0x1ae9…1b20 at0021 = ╱52╱R╱ // 0x1b0a @0x21
0x1ae9…1b20 at0022 = ╱dc╱=╱ // 0x1b0b @0x22
0x1ae9…1b20 at0023 = ╱ed╱(╱ // 0x1b0c @0x23
0x1ae9…1b20 at0024 = ╱44╱D╱ // 0x1b0d @0x24
0x1ae9…1b20 at0025 = ╱54╱T╱ // 0x1b0e @0x25
0x1ae9…1b20 at0026 = ╱41╱A╱ // 0x1b0f @0x26
0x1ae9…1b20 at0027 = ╱4c╱L╱ // 0x1b10 @0x27
0x1ae9…1b20 at0028 = ╱e2╱+╱ // 0x1b11 @0x28
0x1ae9…1b20 at0029 = ╱45╱E╱ // 0x1b12 @0x29
0x1ae9…1b20 at002a = ╱ee╱)╱ // 0x1b13 @0x2a
0x1ae9…1b20 at002b = ╱e4╱*╱ // 0x1b14 @0x2b
0x1ae9…1b20 at002c = ╱31╱1╱ // 0x1b15 @0x2c
0x1ae9…1b20 at002d = ╱30╱0╱ // 0x1b16 @0x2d
0x1ae9…1b20 at002e = ╱30╱0╱ // 0x1b17 @0x2e
0x1ae9…1b20 at002f = ╱30╱0╱ // 0x1b18 @0x2f
0x1ae9…1b20 at0030 = ╱30╱0╱ // 0x1b19 @0x30
0x1ae9…1b20 at0031 = ╱fe00409c0e╱ // 0x1b1a @0x31
0x1ae9…1b20 at0036 = EOL // 0x1b1f @0x36
0x1ae9…1b20 }
0x1b20…1b26 a87d 2630 ELSE
0x1b20…1b26 LineComalBin {
0x1b20…1b26 ptr = 0xa87d // 0x1b20 @0x0
0x1b20…1b26 lno = 0x0a46 // 0x1b22 @0x2
0x1b20…1b26 at0004 = ╱9a╱ ELSE ╱ // 0x1b24 @0x4
0x1b20…1b26 at0005 = EOL // 0x1b25 @0x5
0x1b20…1b26 }
0x1b26…1b49 a8a0 2640 EXEC FINDPOST2(DTAB,MDANTAL,P,FRA)
0x1b26…1b49 LineComalBin {
0x1b26…1b49 ptr = 0xa8a0 // 0x1b26 @0x0
0x1b26…1b49 lno = 0x0a50 // 0x1b28 @0x2
0x1b26…1b49 at0004 = ╱9d╱ EXEC ╱ // 0x1b2a @0x4
0x1b26…1b49 at0005 = ╱46╱F╱ // 0x1b2b @0x5
0x1b26…1b49 at0006 = ╱49╱I╱ // 0x1b2c @0x6
0x1b26…1b49 at0007 = ╱4e╱N╱ // 0x1b2d @0x7
0x1b26…1b49 at0008 = ╱44╱D╱ // 0x1b2e @0x8
0x1b26…1b49 at0009 = ╱50╱P╱ // 0x1b2f @0x9
0x1b26…1b49 at000a = ╱4f╱O╱ // 0x1b30 @0xa
0x1b26…1b49 at000b = ╱53╱S╱ // 0x1b31 @0xb
0x1b26…1b49 at000c = ╱54╱T╱ // 0x1b32 @0xc
0x1b26…1b49 at000d = ╱32╱2╱ // 0x1b33 @0xd
0x1b26…1b49 at000e = ╱ed╱(╱ // 0x1b34 @0xe
0x1b26…1b49 at000f = ╱44╱D╱ // 0x1b35 @0xf
0x1b26…1b49 at0010 = ╱54╱T╱ // 0x1b36 @0x10
0x1b26…1b49 at0011 = ╱41╱A╱ // 0x1b37 @0x11
0x1b26…1b49 at0012 = ╱42╱B╱ // 0x1b38 @0x12
0x1b26…1b49 at0013 = ╱ec╱,╱ // 0x1b39 @0x13
0x1b26…1b49 at0014 = ╱4d╱M╱ // 0x1b3a @0x14
0x1b26…1b49 at0015 = ╱44╱D╱ // 0x1b3b @0x15
0x1b26…1b49 at0016 = ╱41╱A╱ // 0x1b3c @0x16
0x1b26…1b49 at0017 = ╱4e╱N╱ // 0x1b3d @0x17
0x1b26…1b49 at0018 = ╱54╱T╱ // 0x1b3e @0x18
0x1b26…1b49 at0019 = ╱41╱A╱ // 0x1b3f @0x19
0x1b26…1b49 at001a = ╱4c╱L╱ // 0x1b40 @0x1a
0x1b26…1b49 at001b = ╱ec╱,╱ // 0x1b41 @0x1b
0x1b26…1b49 at001c = ╱50╱P╱ // 0x1b42 @0x1c
0x1b26…1b49 at001d = ╱ec╱,╱ // 0x1b43 @0x1d
0x1b26…1b49 at001e = ╱46╱F╱ // 0x1b44 @0x1e
0x1b26…1b49 at001f = ╱52╱R╱ // 0x1b45 @0x1f
0x1b26…1b49 at0020 = ╱41╱A╱ // 0x1b46 @0x20
0x1b26…1b49 at0021 = ╱ee╱)╱ // 0x1b47 @0x21
0x1b26…1b49 at0022 = EOL // 0x1b48 @0x22
0x1b26…1b49 }
0x1b49…1b6b a8c2 2650 IF DTAB(FRA)=1000000 THEN FRA=B
0x1b49…1b6b LineComalBin {
0x1b49…1b6b ptr = 0xa8c2 // 0x1b49 @0x0
0x1b49…1b6b lno = 0x0a5a // 0x1b4b @0x2
0x1b49…1b6b at0004 = ╱82╱ IF ╱ // 0x1b4d @0x4
0x1b49…1b6b at0005 = ╱44╱D╱ // 0x1b4e @0x5
0x1b49…1b6b at0006 = ╱54╱T╱ // 0x1b4f @0x6
0x1b49…1b6b at0007 = ╱41╱A╱ // 0x1b50 @0x7
0x1b49…1b6b at0008 = ╱42╱B╱ // 0x1b51 @0x8
0x1b49…1b6b at0009 = ╱ed╱(╱ // 0x1b52 @0x9
0x1b49…1b6b at000a = ╱46╱F╱ // 0x1b53 @0xa
0x1b49…1b6b at000b = ╱52╱R╱ // 0x1b54 @0xb
0x1b49…1b6b at000c = ╱41╱A╱ // 0x1b55 @0xc
0x1b49…1b6b at000d = ╱ee╱)╱ // 0x1b56 @0xd
0x1b49…1b6b at000e = ╱dc╱=╱ // 0x1b57 @0xe
0x1b49…1b6b at000f = ╱31╱1╱ // 0x1b58 @0xf
0x1b49…1b6b at0010 = ╱30╱0╱ // 0x1b59 @0x10
0x1b49…1b6b at0011 = ╱30╱0╱ // 0x1b5a @0x11
0x1b49…1b6b at0012 = ╱30╱0╱ // 0x1b5b @0x12
0x1b49…1b6b at0013 = ╱30╱0╱ // 0x1b5c @0x13
0x1b49…1b6b at0014 = ╱30╱0╱ // 0x1b5d @0x14
0x1b49…1b6b at0015 = ╱30╱0╱ // 0x1b5e @0x15
0x1b49…1b6b at0016 = ╱fe0024f414╱ // 0x1b5f @0x16
0x1b49…1b6b at001b = ╱b6╱ THEN ╱ // 0x1b64 @0x1b
0x1b49…1b6b at001c = ╱46╱F╱ // 0x1b65 @0x1c
0x1b49…1b6b at001d = ╱52╱R╱ // 0x1b66 @0x1d
0x1b49…1b6b at001e = ╱41╱A╱ // 0x1b67 @0x1e
0x1b49…1b6b at001f = ╱dc╱=╱ // 0x1b68 @0x1f
0x1b49…1b6b at0020 = ╱42╱B╱ // 0x1b69 @0x20
0x1b49…1b6b at0021 = EOL // 0x1b6a @0x21
0x1b49…1b6b }
0x1b6b…1b71 a8c8 2660 ENDIF
0x1b6b…1b71 LineComalBin {
0x1b6b…1b71 ptr = 0xa8c8 // 0x1b6b @0x0
0x1b6b…1b71 lno = 0x0a64 // 0x1b6d @0x2
0x1b6b…1b71 at0004 = ╱9b╱ ENDIF ╱ // 0x1b6f @0x4
0x1b6b…1b71 at0005 = EOL // 0x1b70 @0x5
0x1b6b…1b71 }
0x1b71…1b7c a8d3 2670 UNTIL FRA>B
0x1b71…1b7c LineComalBin {
0x1b71…1b7c ptr = 0xa8d3 // 0x1b71 @0x0
0x1b71…1b7c lno = 0x0a6e // 0x1b73 @0x2
0x1b71…1b7c at0004 = ╱98╱ UNTIL ╱ // 0x1b75 @0x4
0x1b71…1b7c at0005 = ╱46╱F╱ // 0x1b76 @0x5
0x1b71…1b7c at0006 = ╱52╱R╱ // 0x1b77 @0x6
0x1b71…1b7c at0007 = ╱41╱A╱ // 0x1b78 @0x7
0x1b71…1b7c at0008 = ╱de╱>╱ // 0x1b79 @0x8
0x1b71…1b7c at0009 = ╱42╱B╱ // 0x1b7a @0x9
0x1b71…1b7c at000a = EOL // 0x1b7b @0xa
0x1b71…1b7c }
0x1b7c…1b86 a8dd 2680 IF P>B THEN
0x1b7c…1b86 LineComalBin {
0x1b7c…1b86 ptr = 0xa8dd // 0x1b7c @0x0
0x1b7c…1b86 lno = 0x0a78 // 0x1b7e @0x2
0x1b7c…1b86 at0004 = ╱9c╱ IF ╱ // 0x1b80 @0x4
0x1b7c…1b86 at0005 = ╱50╱P╱ // 0x1b81 @0x5
0x1b7c…1b86 at0006 = ╱de╱>╱ // 0x1b82 @0x6
0x1b7c…1b86 at0007 = ╱42╱B╱ // 0x1b83 @0x7
0x1b7c…1b86 at0008 = ╱b6╱ THEN ╱ // 0x1b84 @0x8
0x1b7c…1b86 at0009 = EOL // 0x1b85 @0x9
0x1b7c…1b86 }
0x1b86…1b8c a8e3 2690 REPEAT
0x1b86…1b8c LineComalBin {
0x1b86…1b8c ptr = 0xa8e3 // 0x1b86 @0x0
0x1b86…1b8c lno = 0x0a82 // 0x1b88 @0x2
0x1b86…1b8c at0004 = ╱97╱ REPEAT ╱ // 0x1b8a @0x4
0x1b86…1b8c at0005 = EOL // 0x1b8b @0x5
0x1b86…1b8c }
0x1b8c…1b92 a8e9 2700 REPEAT
0x1b8c…1b92 LineComalBin {
0x1b8c…1b92 ptr = 0xa8e9 // 0x1b8c @0x0
0x1b8c…1b92 lno = 0x0a8c // 0x1b8e @0x2
0x1b8c…1b92 at0004 = ╱97╱ REPEAT ╱ // 0x1b90 @0x4
0x1b8c…1b92 at0005 = EOL // 0x1b91 @0x5
0x1b8c…1b92 }
0x1b92…1ba7 a8fe 2710 CURSOR 18,12
0x1b92…1ba7 LineComalBin {
0x1b92…1ba7 ptr = 0xa8fe // 0x1b92 @0x0
0x1b92…1ba7 lno = 0x0a96 // 0x1b94 @0x2
0x1b92…1ba7 at0004 = ╱a1╱ CURSOR ╱ // 0x1b96 @0x4
0x1b92…1ba7 at0005 = ╱31╱1╱ // 0x1b97 @0x5
0x1b92…1ba7 at0006 = ╱38╱8╱ // 0x1b98 @0x6
0x1b92…1ba7 at0007 = ╱fe00009005╱ // 0x1b99 @0x7
0x1b92…1ba7 at000c = ╱ec╱,╱ // 0x1b9e @0xc
0x1b92…1ba7 at000d = ╱31╱1╱ // 0x1b9f @0xd
0x1b92…1ba7 at000e = ╱32╱2╱ // 0x1ba0 @0xe
0x1b92…1ba7 at000f = ╱fe0000c004╱ // 0x1ba1 @0xf
0x1b92…1ba7 at0014 = EOL // 0x1ba6 @0x14
0x1b92…1ba7 }
0x1ba7…1bc0 a917 2720 INPUT "Til kundenr : ",A$
0x1ba7…1bc0 LineComalBin {
0x1ba7…1bc0 ptr = 0xa917 // 0x1ba7 @0x0
0x1ba7…1bc0 lno = 0x0aa0 // 0x1ba9 @0x2
0x1ba7…1bc0 at0004 = ╱91╱ INPUT ╱ // 0x1bab @0x4
0x1ba7…1bc0 at0005 = ╱22╱"╱ // 0x1bac @0x5
0x1ba7…1bc0 at0006 = ╱54╱T╱ // 0x1bad @0x6
0x1ba7…1bc0 at0007 = ╱69╱i╱ // 0x1bae @0x7
0x1ba7…1bc0 at0008 = ╱6c╱l╱ // 0x1baf @0x8
0x1ba7…1bc0 at0009 = ╱20╱…╱ // 0x1bb0 @0x9
0x1ba7…1bc0 at000a = ╱6b╱k╱ // 0x1bb1 @0xa
0x1ba7…1bc0 at000b = ╱75╱u╱ // 0x1bb2 @0xb
0x1ba7…1bc0 at000c = ╱6e╱n╱ // 0x1bb3 @0xc
0x1ba7…1bc0 at000d = ╱64╱d╱ // 0x1bb4 @0xd
0x1ba7…1bc0 at000e = ╱65╱e╱ // 0x1bb5 @0xe
0x1ba7…1bc0 at000f = ╱6e╱n╱ // 0x1bb6 @0xf
0x1ba7…1bc0 at0010 = ╱72╱r╱ // 0x1bb7 @0x10
0x1ba7…1bc0 at0011 = ╱20╱…╱ // 0x1bb8 @0x11
0x1ba7…1bc0 at0012 = ╱3a╱:╱ // 0x1bb9 @0x12
0x1ba7…1bc0 at0013 = ╱20╱…╱ // 0x1bba @0x13
0x1ba7…1bc0 at0014 = ╱22╱"╱ // 0x1bbb @0x14
0x1ba7…1bc0 at0015 = ╱ec╱,╱ // 0x1bbc @0x15
0x1ba7…1bc0 at0016 = ╱41╱A╱ // 0x1bbd @0x16
0x1ba7…1bc0 at0017 = ╱ef╱$╱ // 0x1bbe @0x17
0x1ba7…1bc0 at0018 = EOL // 0x1bbf @0x18
0x1ba7…1bc0 }
0x1bc0…1bd0 a927 2730 EXEC NRTEST(A$)
0x1bc0…1bd0 LineComalBin {
0x1bc0…1bd0 ptr = 0xa927 // 0x1bc0 @0x0
0x1bc0…1bd0 lno = 0x0aaa // 0x1bc2 @0x2
0x1bc0…1bd0 at0004 = ╱9d╱ EXEC ╱ // 0x1bc4 @0x4
0x1bc0…1bd0 at0005 = ╱4e╱N╱ // 0x1bc5 @0x5
0x1bc0…1bd0 at0006 = ╱52╱R╱ // 0x1bc6 @0x6
0x1bc0…1bd0 at0007 = ╱54╱T╱ // 0x1bc7 @0x7
0x1bc0…1bd0 at0008 = ╱45╱E╱ // 0x1bc8 @0x8
0x1bc0…1bd0 at0009 = ╱53╱S╱ // 0x1bc9 @0x9
0x1bc0…1bd0 at000a = ╱54╱T╱ // 0x1bca @0xa
0x1bc0…1bd0 at000b = ╱ed╱(╱ // 0x1bcb @0xb
0x1bc0…1bd0 at000c = ╱41╱A╱ // 0x1bcc @0xc
0x1bc0…1bd0 at000d = ╱ef╱$╱ // 0x1bcd @0xd
0x1bc0…1bd0 at000e = ╱ee╱)╱ // 0x1bce @0xe
0x1bc0…1bd0 at000f = EOL // 0x1bcf @0xf
0x1bc0…1bd0 }
0x1bd0…1be7 a93e 2740 UNTIL KTAL=DTAL AND TEST2=B
0x1bd0…1be7 LineComalBin {
0x1bd0…1be7 ptr = 0xa93e // 0x1bd0 @0x0
0x1bd0…1be7 lno = 0x0ab4 // 0x1bd2 @0x2
0x1bd0…1be7 at0004 = ╱98╱ UNTIL ╱ // 0x1bd4 @0x4
0x1bd0…1be7 at0005 = ╱4b╱K╱ // 0x1bd5 @0x5
0x1bd0…1be7 at0006 = ╱54╱T╱ // 0x1bd6 @0x6
0x1bd0…1be7 at0007 = ╱41╱A╱ // 0x1bd7 @0x7
0x1bd0…1be7 at0008 = ╱4c╱L╱ // 0x1bd8 @0x8
0x1bd0…1be7 at0009 = ╱dc╱=╱ // 0x1bd9 @0x9
0x1bd0…1be7 at000a = ╱44╱D╱ // 0x1bda @0xa
0x1bd0…1be7 at000b = ╱54╱T╱ // 0x1bdb @0xb
0x1bd0…1be7 at000c = ╱41╱A╱ // 0x1bdc @0xc
0x1bd0…1be7 at000d = ╱4c╱L╱ // 0x1bdd @0xd
0x1bd0…1be7 at000e = ╱da╱ AND ╱ // 0x1bde @0xe
0x1bd0…1be7 at000f = ╱54╱T╱ // 0x1bdf @0xf
0x1bd0…1be7 at0010 = ╱45╱E╱ // 0x1be0 @0x10
0x1bd0…1be7 at0011 = ╱53╱S╱ // 0x1be1 @0x11
0x1bd0…1be7 at0012 = ╱54╱T╱ // 0x1be2 @0x12
0x1bd0…1be7 at0013 = ╱32╱2╱ // 0x1be3 @0x13
0x1bd0…1be7 at0014 = ╱dc╱=╱ // 0x1be4 @0x14
0x1bd0…1be7 at0015 = ╱42╱B╱ // 0x1be5 @0x15
0x1bd0…1be7 at0016 = EOL // 0x1be6 @0x16
0x1bd0…1be7 }
0x1be7…1c0a a961 2750 EXEC FINDPOST2(DTAB,MDANTAL,P,TIL)
0x1be7…1c0a LineComalBin {
0x1be7…1c0a ptr = 0xa961 // 0x1be7 @0x0
0x1be7…1c0a lno = 0x0abe // 0x1be9 @0x2
0x1be7…1c0a at0004 = ╱9d╱ EXEC ╱ // 0x1beb @0x4
0x1be7…1c0a at0005 = ╱46╱F╱ // 0x1bec @0x5
0x1be7…1c0a at0006 = ╱49╱I╱ // 0x1bed @0x6
0x1be7…1c0a at0007 = ╱4e╱N╱ // 0x1bee @0x7
0x1be7…1c0a at0008 = ╱44╱D╱ // 0x1bef @0x8
0x1be7…1c0a at0009 = ╱50╱P╱ // 0x1bf0 @0x9
0x1be7…1c0a at000a = ╱4f╱O╱ // 0x1bf1 @0xa
0x1be7…1c0a at000b = ╱53╱S╱ // 0x1bf2 @0xb
0x1be7…1c0a at000c = ╱54╱T╱ // 0x1bf3 @0xc
0x1be7…1c0a at000d = ╱32╱2╱ // 0x1bf4 @0xd
0x1be7…1c0a at000e = ╱ed╱(╱ // 0x1bf5 @0xe
0x1be7…1c0a at000f = ╱44╱D╱ // 0x1bf6 @0xf
0x1be7…1c0a at0010 = ╱54╱T╱ // 0x1bf7 @0x10
0x1be7…1c0a at0011 = ╱41╱A╱ // 0x1bf8 @0x11
0x1be7…1c0a at0012 = ╱42╱B╱ // 0x1bf9 @0x12
0x1be7…1c0a at0013 = ╱ec╱,╱ // 0x1bfa @0x13
0x1be7…1c0a at0014 = ╱4d╱M╱ // 0x1bfb @0x14
0x1be7…1c0a at0015 = ╱44╱D╱ // 0x1bfc @0x15
0x1be7…1c0a at0016 = ╱41╱A╱ // 0x1bfd @0x16
0x1be7…1c0a at0017 = ╱4e╱N╱ // 0x1bfe @0x17
0x1be7…1c0a at0018 = ╱54╱T╱ // 0x1bff @0x18
0x1be7…1c0a at0019 = ╱41╱A╱ // 0x1c00 @0x19
0x1be7…1c0a at001a = ╱4c╱L╱ // 0x1c01 @0x1a
0x1be7…1c0a at001b = ╱ec╱,╱ // 0x1c02 @0x1b
0x1be7…1c0a at001c = ╱50╱P╱ // 0x1c03 @0x1c
0x1be7…1c0a at001d = ╱ec╱,╱ // 0x1c04 @0x1d
0x1be7…1c0a at001e = ╱54╱T╱ // 0x1c05 @0x1e
0x1be7…1c0a at001f = ╱49╱I╱ // 0x1c06 @0x1f
0x1be7…1c0a at0020 = ╱4c╱L╱ // 0x1c07 @0x20
0x1be7…1c0a at0021 = ╱ee╱)╱ // 0x1c08 @0x21
0x1be7…1c0a at0022 = EOL // 0x1c09 @0x22
0x1be7…1c0a }
0x1c0a…1c16 a96d 2760 TILNR=P
0x1c0a…1c16 LineComalBin {
0x1c0a…1c16 ptr = 0xa96d // 0x1c0a @0x0
0x1c0a…1c16 lno = 0x0ac8 // 0x1c0c @0x2
0x1c0a…1c16 at0004 = ╱54╱T╱ // 0x1c0e @0x4
0x1c0a…1c16 at0005 = ╱49╱I╱ // 0x1c0f @0x5
0x1c0a…1c16 at0006 = ╱4c╱L╱ // 0x1c10 @0x6
0x1c0a…1c16 at0007 = ╱4e╱N╱ // 0x1c11 @0x7
0x1c0a…1c16 at0008 = ╱52╱R╱ // 0x1c12 @0x8
0x1c0a…1c16 at0009 = ╱dc╱=╱ // 0x1c13 @0x9
0x1c0a…1c16 at000a = ╱50╱P╱ // 0x1c14 @0xa
0x1c0a…1c16 at000b = EOL // 0x1c15 @0xb
0x1c0a…1c16 }
0x1c16…1c23 a97a 2770 UNTIL FRA<=TIL
0x1c16…1c23 LineComalBin {
0x1c16…1c23 ptr = 0xa97a // 0x1c16 @0x0
0x1c16…1c23 lno = 0x0ad2 // 0x1c18 @0x2
0x1c16…1c23 at0004 = ╱98╱ UNTIL ╱ // 0x1c1a @0x4
0x1c16…1c23 at0005 = ╱46╱F╱ // 0x1c1b @0x5
0x1c16…1c23 at0006 = ╱52╱R╱ // 0x1c1c @0x6
0x1c16…1c23 at0007 = ╱41╱A╱ // 0x1c1d @0x7
0x1c16…1c23 at0008 = ╱df╱<=╱ // 0x1c1e @0x8
0x1c16…1c23 at0009 = ╱54╱T╱ // 0x1c1f @0x9
0x1c16…1c23 at000a = ╱49╱I╱ // 0x1c20 @0xa
0x1c16…1c23 at000b = ╱4c╱L╱ // 0x1c21 @0xb
0x1c16…1c23 at000c = EOL // 0x1c22 @0xc
0x1c16…1c23 }
0x1c23…1c29 a980 2780 ENDIF
0x1c23…1c29 LineComalBin {
0x1c23…1c29 ptr = 0xa980 // 0x1c23 @0x0
0x1c23…1c29 lno = 0x0adc // 0x1c25 @0x2
0x1c23…1c29 at0004 = ╱9b╱ ENDIF ╱ // 0x1c27 @0x4
0x1c23…1c29 at0005 = EOL // 0x1c28 @0x5
0x1c23…1c29 }
0x1c29…1c2f a986 2790 REPEAT
0x1c29…1c2f LineComalBin {
0x1c29…1c2f ptr = 0xa986 // 0x1c29 @0x0
0x1c29…1c2f lno = 0x0ae6 // 0x1c2b @0x2
0x1c29…1c2f at0004 = ╱97╱ REPEAT ╱ // 0x1c2d @0x4
0x1c29…1c2f at0005 = EOL // 0x1c2e @0x5
0x1c29…1c2f }
0x1c2f…1c35 a98c 2800 REPEAT
0x1c2f…1c35 LineComalBin {
0x1c2f…1c35 ptr = 0xa98c // 0x1c2f @0x0
0x1c2f…1c35 lno = 0x0af0 // 0x1c31 @0x2
0x1c2f…1c35 at0004 = ╱97╱ REPEAT ╱ // 0x1c33 @0x4
0x1c2f…1c35 at0005 = EOL // 0x1c34 @0x5
0x1c2f…1c35 }
0x1c35…1c4a a9a1 2810 CURSOR 18,14
0x1c35…1c4a LineComalBin {
0x1c35…1c4a ptr = 0xa9a1 // 0x1c35 @0x0
0x1c35…1c4a lno = 0x0afa // 0x1c37 @0x2
0x1c35…1c4a at0004 = ╱a1╱ CURSOR ╱ // 0x1c39 @0x4
0x1c35…1c4a at0005 = ╱31╱1╱ // 0x1c3a @0x5
0x1c35…1c4a at0006 = ╱38╱8╱ // 0x1c3b @0x6
0x1c35…1c4a at0007 = ╱fe00009005╱ // 0x1c3c @0x7
0x1c35…1c4a at000c = ╱ec╱,╱ // 0x1c41 @0xc
0x1c35…1c4a at000d = ╱31╱1╱ // 0x1c42 @0xd
0x1c35…1c4a at000e = ╱34╱4╱ // 0x1c43 @0xe
0x1c35…1c4a at000f = ╱fe0000e004╱ // 0x1c44 @0xf
0x1c35…1c4a at0014 = EOL // 0x1c49 @0x14
0x1c35…1c4a }
0x1c4a…1c70 a9c7 2820 INPUT "Indtast renteprocent: ",RENPRO$
0x1c4a…1c70 LineComalBin {
0x1c4a…1c70 ptr = 0xa9c7 // 0x1c4a @0x0
0x1c4a…1c70 lno = 0x0b04 // 0x1c4c @0x2
0x1c4a…1c70 at0004 = ╱91╱ INPUT ╱ // 0x1c4e @0x4
0x1c4a…1c70 at0005 = ╱22╱"╱ // 0x1c4f @0x5
0x1c4a…1c70 at0006 = ╱49╱I╱ // 0x1c50 @0x6
0x1c4a…1c70 at0007 = ╱6e╱n╱ // 0x1c51 @0x7
0x1c4a…1c70 at0008 = ╱64╱d╱ // 0x1c52 @0x8
0x1c4a…1c70 at0009 = ╱74╱t╱ // 0x1c53 @0x9
0x1c4a…1c70 at000a = ╱61╱a╱ // 0x1c54 @0xa
0x1c4a…1c70 at000b = ╱73╱s╱ // 0x1c55 @0xb
0x1c4a…1c70 at000c = ╱74╱t╱ // 0x1c56 @0xc
0x1c4a…1c70 at000d = ╱20╱…╱ // 0x1c57 @0xd
0x1c4a…1c70 at000e = ╱72╱r╱ // 0x1c58 @0xe
0x1c4a…1c70 at000f = ╱65╱e╱ // 0x1c59 @0xf
0x1c4a…1c70 at0010 = ╱6e╱n╱ // 0x1c5a @0x10
0x1c4a…1c70 at0011 = ╱74╱t╱ // 0x1c5b @0x11
0x1c4a…1c70 at0012 = ╱65╱e╱ // 0x1c5c @0x12
0x1c4a…1c70 at0013 = ╱70╱p╱ // 0x1c5d @0x13
0x1c4a…1c70 at0014 = ╱72╱r╱ // 0x1c5e @0x14
0x1c4a…1c70 at0015 = ╱6f╱o╱ // 0x1c5f @0x15
0x1c4a…1c70 at0016 = ╱63╱c╱ // 0x1c60 @0x16
0x1c4a…1c70 at0017 = ╱65╱e╱ // 0x1c61 @0x17
0x1c4a…1c70 at0018 = ╱6e╱n╱ // 0x1c62 @0x18
0x1c4a…1c70 at0019 = ╱74╱t╱ // 0x1c63 @0x19
0x1c4a…1c70 at001a = ╱3a╱:╱ // 0x1c64 @0x1a
0x1c4a…1c70 at001b = ╱20╱…╱ // 0x1c65 @0x1b
0x1c4a…1c70 at001c = ╱22╱"╱ // 0x1c66 @0x1c
0x1c4a…1c70 at001d = ╱ec╱,╱ // 0x1c67 @0x1d
0x1c4a…1c70 at001e = ╱52╱R╱ // 0x1c68 @0x1e
0x1c4a…1c70 at001f = ╱45╱E╱ // 0x1c69 @0x1f
0x1c4a…1c70 at0020 = ╱4e╱N╱ // 0x1c6a @0x20
0x1c4a…1c70 at0021 = ╱50╱P╱ // 0x1c6b @0x21
0x1c4a…1c70 at0022 = ╱52╱R╱ // 0x1c6c @0x22
0x1c4a…1c70 at0023 = ╱4f╱O╱ // 0x1c6d @0x23
0x1c4a…1c70 at0024 = ╱ef╱$╱ // 0x1c6e @0x24
0x1c4a…1c70 at0025 = EOL // 0x1c6f @0x25
0x1c4a…1c70 }
0x1c70…1c88 a9df 2830 RENPRO$=RENPRO$+"+"
0x1c70…1c88 LineComalBin {
0x1c70…1c88 ptr = 0xa9df // 0x1c70 @0x0
0x1c70…1c88 lno = 0x0b0e // 0x1c72 @0x2
0x1c70…1c88 at0004 = ╱52╱R╱ // 0x1c74 @0x4
0x1c70…1c88 at0005 = ╱45╱E╱ // 0x1c75 @0x5
0x1c70…1c88 at0006 = ╱4e╱N╱ // 0x1c76 @0x6
0x1c70…1c88 at0007 = ╱50╱P╱ // 0x1c77 @0x7
0x1c70…1c88 at0008 = ╱52╱R╱ // 0x1c78 @0x8
0x1c70…1c88 at0009 = ╱4f╱O╱ // 0x1c79 @0x9
0x1c70…1c88 at000a = ╱ef╱$╱ // 0x1c7a @0xa
0x1c70…1c88 at000b = ╱dc╱=╱ // 0x1c7b @0xb
0x1c70…1c88 at000c = ╱52╱R╱ // 0x1c7c @0xc
0x1c70…1c88 at000d = ╱45╱E╱ // 0x1c7d @0xd
0x1c70…1c88 at000e = ╱4e╱N╱ // 0x1c7e @0xe
0x1c70…1c88 at000f = ╱50╱P╱ // 0x1c7f @0xf
0x1c70…1c88 at0010 = ╱52╱R╱ // 0x1c80 @0x10
0x1c70…1c88 at0011 = ╱4f╱O╱ // 0x1c81 @0x11
0x1c70…1c88 at0012 = ╱ef╱$╱ // 0x1c82 @0x12
0x1c70…1c88 at0013 = ╱f1╱+╱ // 0x1c83 @0x13
0x1c70…1c88 at0014 = ╱22╱"╱ // 0x1c84 @0x14
0x1c70…1c88 at0015 = ╱2b╱+╱ // 0x1c85 @0x15
0x1c70…1c88 at0016 = ╱22╱"╱ // 0x1c86 @0x16
0x1c70…1c88 at0017 = EOL // 0x1c87 @0x17
0x1c70…1c88 }
0x1c88…1caf aa06 2840 EXEC CALC(6,RENPRO$,TAH$,RENPRO$)
0x1c88…1caf LineComalBin {
0x1c88…1caf ptr = 0xaa06 // 0x1c88 @0x0
0x1c88…1caf lno = 0x0b18 // 0x1c8a @0x2
0x1c88…1caf at0004 = ╱9d╱ EXEC ╱ // 0x1c8c @0x4
0x1c88…1caf at0005 = ╱43╱C╱ // 0x1c8d @0x5
0x1c88…1caf at0006 = ╱41╱A╱ // 0x1c8e @0x6
0x1c88…1caf at0007 = ╱4c╱L╱ // 0x1c8f @0x7
0x1c88…1caf at0008 = ╱43╱C╱ // 0x1c90 @0x8
0x1c88…1caf at0009 = ╱ed╱(╱ // 0x1c91 @0x9
0x1c88…1caf at000a = ╱36╱6╱ // 0x1c92 @0xa
0x1c88…1caf at000b = ╱fe0000c003╱ // 0x1c93 @0xb
0x1c88…1caf at0010 = ╱ec╱,╱ // 0x1c98 @0x10
0x1c88…1caf at0011 = ╱52╱R╱ // 0x1c99 @0x11
0x1c88…1caf at0012 = ╱45╱E╱ // 0x1c9a @0x12
0x1c88…1caf at0013 = ╱4e╱N╱ // 0x1c9b @0x13
0x1c88…1caf at0014 = ╱50╱P╱ // 0x1c9c @0x14
0x1c88…1caf at0015 = ╱52╱R╱ // 0x1c9d @0x15
0x1c88…1caf at0016 = ╱4f╱O╱ // 0x1c9e @0x16
0x1c88…1caf at0017 = ╱ef╱$╱ // 0x1c9f @0x17
0x1c88…1caf at0018 = ╱ec╱,╱ // 0x1ca0 @0x18
0x1c88…1caf at0019 = ╱54╱T╱ // 0x1ca1 @0x19
0x1c88…1caf at001a = ╱41╱A╱ // 0x1ca2 @0x1a
0x1c88…1caf at001b = ╱48╱H╱ // 0x1ca3 @0x1b
0x1c88…1caf at001c = ╱ef╱$╱ // 0x1ca4 @0x1c
0x1c88…1caf at001d = ╱ec╱,╱ // 0x1ca5 @0x1d
0x1c88…1caf at001e = ╱52╱R╱ // 0x1ca6 @0x1e
0x1c88…1caf at001f = ╱45╱E╱ // 0x1ca7 @0x1f
0x1c88…1caf at0020 = ╱4e╱N╱ // 0x1ca8 @0x20
0x1c88…1caf at0021 = ╱50╱P╱ // 0x1ca9 @0x21
0x1c88…1caf at0022 = ╱52╱R╱ // 0x1caa @0x22
0x1c88…1caf at0023 = ╱4f╱O╱ // 0x1cab @0x23
0x1c88…1caf at0024 = ╱ef╱$╱ // 0x1cac @0x24
0x1c88…1caf at0025 = ╱ee╱)╱ // 0x1cad @0x25
0x1c88…1caf at0026 = EOL // 0x1cae @0x26
0x1c88…1caf }
0x1caf…1cbb aa12 2850 UNTIL FLAG=B
0x1caf…1cbb LineComalBin {
0x1caf…1cbb ptr = 0xaa12 // 0x1caf @0x0
0x1caf…1cbb lno = 0x0b22 // 0x1cb1 @0x2
0x1caf…1cbb at0004 = ╱98╱ UNTIL ╱ // 0x1cb3 @0x4
0x1caf…1cbb at0005 = ╱46╱F╱ // 0x1cb4 @0x5
0x1caf…1cbb at0006 = ╱4c╱L╱ // 0x1cb5 @0x6
0x1caf…1cbb at0007 = ╱41╱A╱ // 0x1cb6 @0x7
0x1caf…1cbb at0008 = ╱47╱G╱ // 0x1cb7 @0x8
0x1caf…1cbb at0009 = ╱dc╱=╱ // 0x1cb8 @0x9
0x1caf…1cbb at000a = ╱42╱B╱ // 0x1cb9 @0xa
0x1caf…1cbb at000b = EOL // 0x1cba @0xb
0x1caf…1cbb }
0x1cbb…1cc1 aa18 2860 REPEAT
0x1cbb…1cc1 LineComalBin {
0x1cbb…1cc1 ptr = 0xaa18 // 0x1cbb @0x0
0x1cbb…1cc1 lno = 0x0b2c // 0x1cbd @0x2
0x1cbb…1cc1 at0004 = ╱97╱ REPEAT ╱ // 0x1cbf @0x4
0x1cbb…1cc1 at0005 = EOL // 0x1cc0 @0x5
0x1cbb…1cc1 }
0x1cc1…1cd6 aa2d 2870 CURSOR 18,16
0x1cc1…1cd6 LineComalBin {
0x1cc1…1cd6 ptr = 0xaa2d // 0x1cc1 @0x0
0x1cc1…1cd6 lno = 0x0b36 // 0x1cc3 @0x2
0x1cc1…1cd6 at0004 = ╱a1╱ CURSOR ╱ // 0x1cc5 @0x4
0x1cc1…1cd6 at0005 = ╱31╱1╱ // 0x1cc6 @0x5
0x1cc1…1cd6 at0006 = ╱38╱8╱ // 0x1cc7 @0x6
0x1cc1…1cd6 at0007 = ╱fe00009005╱ // 0x1cc8 @0x7
0x1cc1…1cd6 at000c = ╱ec╱,╱ // 0x1ccd @0xc
0x1cc1…1cd6 at000d = ╱31╱1╱ // 0x1cce @0xd
0x1cc1…1cd6 at000e = ╱36╱6╱ // 0x1ccf @0xe
0x1cc1…1cd6 at000f = ╱fe00008005╱ // 0x1cd0 @0xf
0x1cc1…1cd6 at0014 = EOL // 0x1cd5 @0x14
0x1cc1…1cd6 }
0x1cd6…1d0a aa61 2880 PRINT "Er ";RENPRO$(7:5);" % rigtig (J/N)"
0x1cd6…1d0a LineComalBin {
0x1cd6…1d0a ptr = 0xaa61 // 0x1cd6 @0x0
0x1cd6…1d0a lno = 0x0b40 // 0x1cd8 @0x2
0x1cd6…1d0a at0004 = ╱92╱ PRINT ╱ // 0x1cda @0x4
0x1cd6…1d0a at0005 = ╱22╱"╱ // 0x1cdb @0x5
0x1cd6…1d0a at0006 = ╱45╱E╱ // 0x1cdc @0x6
0x1cd6…1d0a at0007 = ╱72╱r╱ // 0x1cdd @0x7
0x1cd6…1d0a at0008 = ╱20╱…╱ // 0x1cde @0x8
0x1cd6…1d0a at0009 = ╱22╱"╱ // 0x1cdf @0x9
0x1cd6…1d0a at000a = ╱eb╱;╱ // 0x1ce0 @0xa
0x1cd6…1d0a at000b = ╱52╱R╱ // 0x1ce1 @0xb
0x1cd6…1d0a at000c = ╱45╱E╱ // 0x1ce2 @0xc
0x1cd6…1d0a at000d = ╱4e╱N╱ // 0x1ce3 @0xd
0x1cd6…1d0a at000e = ╱50╱P╱ // 0x1ce4 @0xe
0x1cd6…1d0a at000f = ╱52╱R╱ // 0x1ce5 @0xf
0x1cd6…1d0a at0010 = ╱4f╱O╱ // 0x1ce6 @0x10
0x1cd6…1d0a at0011 = ╱ef╱$╱ // 0x1ce7 @0x11
0x1cd6…1d0a at0012 = ╱ed╱(╱ // 0x1ce8 @0x12
0x1cd6…1d0a at0013 = ╱37╱7╱ // 0x1ce9 @0x13
0x1cd6…1d0a at0014 = ╱fe0000e003╱ // 0x1cea @0x14
0x1cd6…1d0a at0019 = ╱f0╱:╱ // 0x1cef @0x19
0x1cd6…1d0a at001a = ╱35╱5╱ // 0x1cf0 @0x1a
0x1cd6…1d0a at001b = ╱fe0000a003╱ // 0x1cf1 @0x1b
0x1cd6…1d0a at0020 = ╱ee╱)╱ // 0x1cf6 @0x20
0x1cd6…1d0a at0021 = ╱eb╱;╱ // 0x1cf7 @0x21
0x1cd6…1d0a at0022 = ╱22╱"╱ // 0x1cf8 @0x22
0x1cd6…1d0a at0023 = ╱20╱…╱ // 0x1cf9 @0x23
0x1cd6…1d0a at0024 = ╱25╱%╱ // 0x1cfa @0x24
0x1cd6…1d0a at0025 = ╱20╱…╱ // 0x1cfb @0x25
0x1cd6…1d0a at0026 = ╱72╱r╱ // 0x1cfc @0x26
0x1cd6…1d0a at0027 = ╱69╱i╱ // 0x1cfd @0x27
0x1cd6…1d0a at0028 = ╱67╱g╱ // 0x1cfe @0x28
0x1cd6…1d0a at0029 = ╱74╱t╱ // 0x1cff @0x29
0x1cd6…1d0a at002a = ╱69╱i╱ // 0x1d00 @0x2a
0x1cd6…1d0a at002b = ╱67╱g╱ // 0x1d01 @0x2b
0x1cd6…1d0a at002c = ╱20╱…╱ // 0x1d02 @0x2c
0x1cd6…1d0a at002d = ╱28╱(╱ // 0x1d03 @0x2d
0x1cd6…1d0a at002e = ╱4a╱J╱ // 0x1d04 @0x2e
0x1cd6…1d0a at002f = ╱2f╱/╱ // 0x1d05 @0x2f
0x1cd6…1d0a at0030 = ╱4e╱N╱ // 0x1d06 @0x30
0x1cd6…1d0a at0031 = ╱29╱)╱ // 0x1d07 @0x31
0x1cd6…1d0a at0032 = ╱22╱"╱ // 0x1d08 @0x32
0x1cd6…1d0a at0033 = EOL // 0x1d09 @0x33
0x1cd6…1d0a }
0x1d0a…1d1f aa76 2890 CURSOR 42,16
0x1d0a…1d1f LineComalBin {
0x1d0a…1d1f ptr = 0xaa76 // 0x1d0a @0x0
0x1d0a…1d1f lno = 0x0b4a // 0x1d0c @0x2
0x1d0a…1d1f at0004 = ╱a1╱ CURSOR ╱ // 0x1d0e @0x4
0x1d0a…1d1f at0005 = ╱34╱4╱ // 0x1d0f @0x5
0x1d0a…1d1f at0006 = ╱32╱2╱ // 0x1d10 @0x6
0x1d0a…1d1f at0007 = ╱fe0000a806╱ // 0x1d11 @0x7
0x1d0a…1d1f at000c = ╱ec╱,╱ // 0x1d16 @0xc
0x1d0a…1d1f at000d = ╱31╱1╱ // 0x1d17 @0xd
0x1d0a…1d1f at000e = ╱36╱6╱ // 0x1d18 @0xe
0x1d0a…1d1f at000f = ╱fe00008005╱ // 0x1d19 @0xf
0x1d0a…1d1f at0014 = EOL // 0x1d1e @0x14
0x1d0a…1d1f }
0x1d1f…1d2b aa82 2900 INPUT " ",A$
0x1d1f…1d2b LineComalBin {
0x1d1f…1d2b ptr = 0xaa82 // 0x1d1f @0x0
0x1d1f…1d2b lno = 0x0b54 // 0x1d21 @0x2
0x1d1f…1d2b at0004 = ╱91╱ INPUT ╱ // 0x1d23 @0x4
0x1d1f…1d2b at0005 = ╱22╱"╱ // 0x1d24 @0x5
0x1d1f…1d2b at0006 = ╱20╱…╱ // 0x1d25 @0x6
0x1d1f…1d2b at0007 = ╱22╱"╱ // 0x1d26 @0x7
0x1d1f…1d2b at0008 = ╱ec╱,╱ // 0x1d27 @0x8
0x1d1f…1d2b at0009 = ╱41╱A╱ // 0x1d28 @0x9
0x1d1f…1d2b at000a = ╱ef╱$╱ // 0x1d29 @0xa
0x1d1f…1d2b at000b = EOL // 0x1d2a @0xb
0x1d1f…1d2b }
0x1d2b…1d3b aa92 2910 EXEC NRTEST(A$)
0x1d2b…1d3b LineComalBin {
0x1d2b…1d3b ptr = 0xaa92 // 0x1d2b @0x0
0x1d2b…1d3b lno = 0x0b5e // 0x1d2d @0x2
0x1d2b…1d3b at0004 = ╱9d╱ EXEC ╱ // 0x1d2f @0x4
0x1d2b…1d3b at0005 = ╱4e╱N╱ // 0x1d30 @0x5
0x1d2b…1d3b at0006 = ╱52╱R╱ // 0x1d31 @0x6
0x1d2b…1d3b at0007 = ╱54╱T╱ // 0x1d32 @0x7
0x1d2b…1d3b at0008 = ╱45╱E╱ // 0x1d33 @0x8
0x1d2b…1d3b at0009 = ╱53╱S╱ // 0x1d34 @0x9
0x1d2b…1d3b at000a = ╱54╱T╱ // 0x1d35 @0xa
0x1d2b…1d3b at000b = ╱ed╱(╱ // 0x1d36 @0xb
0x1d2b…1d3b at000c = ╱41╱A╱ // 0x1d37 @0xc
0x1d2b…1d3b at000d = ╱ef╱$╱ // 0x1d38 @0xd
0x1d2b…1d3b at000e = ╱ee╱)╱ // 0x1d39 @0xe
0x1d2b…1d3b at000f = EOL // 0x1d3a @0xf
0x1d2b…1d3b }
0x1d3b…1d54 aaab 2920 UNTIL P=-7 OR P=-8
0x1d3b…1d54 LineComalBin {
0x1d3b…1d54 ptr = 0xaaab // 0x1d3b @0x0
0x1d3b…1d54 lno = 0x0b68 // 0x1d3d @0x2
0x1d3b…1d54 at0004 = ╱98╱ UNTIL ╱ // 0x1d3f @0x4
0x1d3b…1d54 at0005 = ╱50╱P╱ // 0x1d40 @0x5
0x1d3b…1d54 at0006 = ╱dc╱=╱ // 0x1d41 @0x6
0x1d3b…1d54 at0007 = ╱e9╱-╱ // 0x1d42 @0x7
0x1d3b…1d54 at0008 = ╱37╱7╱ // 0x1d43 @0x8
0x1d3b…1d54 at0009 = ╱fe0000e003╱ // 0x1d44 @0x9
0x1d3b…1d54 at000e = ╱db╱ OR ╱ // 0x1d49 @0xe
0x1d3b…1d54 at000f = ╱50╱P╱ // 0x1d4a @0xf
0x1d3b…1d54 at0010 = ╱dc╱=╱ // 0x1d4b @0x10
0x1d3b…1d54 at0011 = ╱e9╱-╱ // 0x1d4c @0x11
0x1d3b…1d54 at0012 = ╱38╱8╱ // 0x1d4d @0x12
0x1d3b…1d54 at0013 = ╱fe00008004╱ // 0x1d4e @0x13
0x1d3b…1d54 at0018 = EOL // 0x1d53 @0x18
0x1d3b…1d54 }
0x1d54…1d63 aaba 2930 UNTIL P=-7
0x1d54…1d63 LineComalBin {
0x1d54…1d63 ptr = 0xaaba // 0x1d54 @0x0
0x1d54…1d63 lno = 0x0b72 // 0x1d56 @0x2
0x1d54…1d63 at0004 = ╱98╱ UNTIL ╱ // 0x1d58 @0x4
0x1d54…1d63 at0005 = ╱50╱P╱ // 0x1d59 @0x5
0x1d54…1d63 at0006 = ╱dc╱=╱ // 0x1d5a @0x6
0x1d54…1d63 at0007 = ╱e9╱-╱ // 0x1d5b @0x7
0x1d54…1d63 at0008 = ╱37╱7╱ // 0x1d5c @0x8
0x1d54…1d63 at0009 = ╱fe0000e003╱ // 0x1d5d @0x9
0x1d54…1d63 at000e = EOL // 0x1d62 @0xe
0x1d54…1d63 }
0x1d63…1d69 aac0 2940 REPEAT
0x1d63…1d69 LineComalBin {
0x1d63…1d69 ptr = 0xaac0 // 0x1d63 @0x0
0x1d63…1d69 lno = 0x0b7c // 0x1d65 @0x2
0x1d63…1d69 at0004 = ╱97╱ REPEAT ╱ // 0x1d67 @0x4
0x1d63…1d69 at0005 = EOL // 0x1d68 @0x5
0x1d63…1d69 }
0x1d69…1d7e aad5 2950 CURSOR 18,18
0x1d69…1d7e LineComalBin {
0x1d69…1d7e ptr = 0xaad5 // 0x1d69 @0x0
0x1d69…1d7e lno = 0x0b86 // 0x1d6b @0x2
0x1d69…1d7e at0004 = ╱a1╱ CURSOR ╱ // 0x1d6d @0x4
0x1d69…1d7e at0005 = ╱31╱1╱ // 0x1d6e @0x5
0x1d69…1d7e at0006 = ╱38╱8╱ // 0x1d6f @0x6
0x1d69…1d7e at0007 = ╱fe00009005╱ // 0x1d70 @0x7
0x1d69…1d7e at000c = ╱ec╱,╱ // 0x1d75 @0xc
0x1d69…1d7e at000d = ╱31╱1╱ // 0x1d76 @0xd
0x1d69…1d7e at000e = ╱38╱8╱ // 0x1d77 @0xe
0x1d69…1d7e at000f = ╱fe00009005╱ // 0x1d78 @0xf
0x1d69…1d7e at0014 = EOL // 0x1d7d @0x14
0x1d69…1d7e }
0x1d7e…1daa ab01 2960 INPUT "Indtast minimumsrentebeløb: ",MINREN$
0x1d7e…1daa LineComalBin {
0x1d7e…1daa ptr = 0xab01 // 0x1d7e @0x0
0x1d7e…1daa lno = 0x0b90 // 0x1d80 @0x2
0x1d7e…1daa at0004 = ╱91╱ INPUT ╱ // 0x1d82 @0x4
0x1d7e…1daa at0005 = ╱22╱"╱ // 0x1d83 @0x5
0x1d7e…1daa at0006 = ╱49╱I╱ // 0x1d84 @0x6
0x1d7e…1daa at0007 = ╱6e╱n╱ // 0x1d85 @0x7
0x1d7e…1daa at0008 = ╱64╱d╱ // 0x1d86 @0x8
0x1d7e…1daa at0009 = ╱74╱t╱ // 0x1d87 @0x9
0x1d7e…1daa at000a = ╱61╱a╱ // 0x1d88 @0xa
0x1d7e…1daa at000b = ╱73╱s╱ // 0x1d89 @0xb
0x1d7e…1daa at000c = ╱74╱t╱ // 0x1d8a @0xc
0x1d7e…1daa at000d = ╱20╱…╱ // 0x1d8b @0xd
0x1d7e…1daa at000e = ╱6d╱m╱ // 0x1d8c @0xe
0x1d7e…1daa at000f = ╱69╱i╱ // 0x1d8d @0xf
0x1d7e…1daa at0010 = ╱6e╱n╱ // 0x1d8e @0x10
0x1d7e…1daa at0011 = ╱69╱i╱ // 0x1d8f @0x11
0x1d7e…1daa at0012 = ╱6d╱m╱ // 0x1d90 @0x12
0x1d7e…1daa at0013 = ╱75╱u╱ // 0x1d91 @0x13
0x1d7e…1daa at0014 = ╱6d╱m╱ // 0x1d92 @0x14
0x1d7e…1daa at0015 = ╱73╱s╱ // 0x1d93 @0x15
0x1d7e…1daa at0016 = ╱72╱r╱ // 0x1d94 @0x16
0x1d7e…1daa at0017 = ╱65╱e╱ // 0x1d95 @0x17
0x1d7e…1daa at0018 = ╱6e╱n╱ // 0x1d96 @0x18
0x1d7e…1daa at0019 = ╱74╱t╱ // 0x1d97 @0x19
0x1d7e…1daa at001a = ╱65╱e╱ // 0x1d98 @0x1a
0x1d7e…1daa at001b = ╱62╱b╱ // 0x1d99 @0x1b
0x1d7e…1daa at001c = ╱65╱e╱ // 0x1d9a @0x1c
0x1d7e…1daa at001d = ╱6c╱l╱ // 0x1d9b @0x1d
0x1d7e…1daa at001e = ╱7c╱ø╱ // 0x1d9c @0x1e
0x1d7e…1daa at001f = ╱62╱b╱ // 0x1d9d @0x1f
0x1d7e…1daa at0020 = ╱3a╱:╱ // 0x1d9e @0x20
0x1d7e…1daa at0021 = ╱20╱…╱ // 0x1d9f @0x21
0x1d7e…1daa at0022 = ╱22╱"╱ // 0x1da0 @0x22
0x1d7e…1daa at0023 = ╱ec╱,╱ // 0x1da1 @0x23
0x1d7e…1daa at0024 = ╱4d╱M╱ // 0x1da2 @0x24
0x1d7e…1daa at0025 = ╱49╱I╱ // 0x1da3 @0x25
0x1d7e…1daa at0026 = ╱4e╱N╱ // 0x1da4 @0x26
0x1d7e…1daa at0027 = ╱52╱R╱ // 0x1da5 @0x27
0x1d7e…1daa at0028 = ╱45╱E╱ // 0x1da6 @0x28
0x1d7e…1daa at0029 = ╱4e╱N╱ // 0x1da7 @0x29
0x1d7e…1daa at002a = ╱ef╱$╱ // 0x1da8 @0x2a
0x1d7e…1daa at002b = EOL // 0x1da9 @0x2b
0x1d7e…1daa }
0x1daa…1dc2 ab19 2970 MINREN$=MINREN$+"+"
0x1daa…1dc2 LineComalBin {
0x1daa…1dc2 ptr = 0xab19 // 0x1daa @0x0
0x1daa…1dc2 lno = 0x0b9a // 0x1dac @0x2
0x1daa…1dc2 at0004 = ╱4d╱M╱ // 0x1dae @0x4
0x1daa…1dc2 at0005 = ╱49╱I╱ // 0x1daf @0x5
0x1daa…1dc2 at0006 = ╱4e╱N╱ // 0x1db0 @0x6
0x1daa…1dc2 at0007 = ╱52╱R╱ // 0x1db1 @0x7
0x1daa…1dc2 at0008 = ╱45╱E╱ // 0x1db2 @0x8
0x1daa…1dc2 at0009 = ╱4e╱N╱ // 0x1db3 @0x9
0x1daa…1dc2 at000a = ╱ef╱$╱ // 0x1db4 @0xa
0x1daa…1dc2 at000b = ╱dc╱=╱ // 0x1db5 @0xb
0x1daa…1dc2 at000c = ╱4d╱M╱ // 0x1db6 @0xc
0x1daa…1dc2 at000d = ╱49╱I╱ // 0x1db7 @0xd
0x1daa…1dc2 at000e = ╱4e╱N╱ // 0x1db8 @0xe
0x1daa…1dc2 at000f = ╱52╱R╱ // 0x1db9 @0xf
0x1daa…1dc2 at0010 = ╱45╱E╱ // 0x1dba @0x10
0x1daa…1dc2 at0011 = ╱4e╱N╱ // 0x1dbb @0x11
0x1daa…1dc2 at0012 = ╱ef╱$╱ // 0x1dbc @0x12
0x1daa…1dc2 at0013 = ╱f1╱+╱ // 0x1dbd @0x13
0x1daa…1dc2 at0014 = ╱22╱"╱ // 0x1dbe @0x14
0x1daa…1dc2 at0015 = ╱2b╱+╱ // 0x1dbf @0x15
0x1daa…1dc2 at0016 = ╱22╱"╱ // 0x1dc0 @0x16
0x1daa…1dc2 at0017 = EOL // 0x1dc1 @0x17
0x1daa…1dc2 }
0x1dc2…1de9 ab40 2980 EXEC CALC(6,MINREN$,TAH$,MINREN$)
0x1dc2…1de9 LineComalBin {
0x1dc2…1de9 ptr = 0xab40 // 0x1dc2 @0x0
0x1dc2…1de9 lno = 0x0ba4 // 0x1dc4 @0x2
0x1dc2…1de9 at0004 = ╱9d╱ EXEC ╱ // 0x1dc6 @0x4
0x1dc2…1de9 at0005 = ╱43╱C╱ // 0x1dc7 @0x5
0x1dc2…1de9 at0006 = ╱41╱A╱ // 0x1dc8 @0x6
0x1dc2…1de9 at0007 = ╱4c╱L╱ // 0x1dc9 @0x7
0x1dc2…1de9 at0008 = ╱43╱C╱ // 0x1dca @0x8
0x1dc2…1de9 at0009 = ╱ed╱(╱ // 0x1dcb @0x9
0x1dc2…1de9 at000a = ╱36╱6╱ // 0x1dcc @0xa
0x1dc2…1de9 at000b = ╱fe0000c003╱ // 0x1dcd @0xb
0x1dc2…1de9 at0010 = ╱ec╱,╱ // 0x1dd2 @0x10
0x1dc2…1de9 at0011 = ╱4d╱M╱ // 0x1dd3 @0x11
0x1dc2…1de9 at0012 = ╱49╱I╱ // 0x1dd4 @0x12
0x1dc2…1de9 at0013 = ╱4e╱N╱ // 0x1dd5 @0x13
0x1dc2…1de9 at0014 = ╱52╱R╱ // 0x1dd6 @0x14
0x1dc2…1de9 at0015 = ╱45╱E╱ // 0x1dd7 @0x15
0x1dc2…1de9 at0016 = ╱4e╱N╱ // 0x1dd8 @0x16
0x1dc2…1de9 at0017 = ╱ef╱$╱ // 0x1dd9 @0x17
0x1dc2…1de9 at0018 = ╱ec╱,╱ // 0x1dda @0x18
0x1dc2…1de9 at0019 = ╱54╱T╱ // 0x1ddb @0x19
0x1dc2…1de9 at001a = ╱41╱A╱ // 0x1ddc @0x1a
0x1dc2…1de9 at001b = ╱48╱H╱ // 0x1ddd @0x1b
0x1dc2…1de9 at001c = ╱ef╱$╱ // 0x1dde @0x1c
0x1dc2…1de9 at001d = ╱ec╱,╱ // 0x1ddf @0x1d
0x1dc2…1de9 at001e = ╱4d╱M╱ // 0x1de0 @0x1e
0x1dc2…1de9 at001f = ╱49╱I╱ // 0x1de1 @0x1f
0x1dc2…1de9 at0020 = ╱4e╱N╱ // 0x1de2 @0x20
0x1dc2…1de9 at0021 = ╱52╱R╱ // 0x1de3 @0x21
0x1dc2…1de9 at0022 = ╱45╱E╱ // 0x1de4 @0x22
0x1dc2…1de9 at0023 = ╱4e╱N╱ // 0x1de5 @0x23
0x1dc2…1de9 at0024 = ╱ef╱$╱ // 0x1de6 @0x24
0x1dc2…1de9 at0025 = ╱ee╱)╱ // 0x1de7 @0x25
0x1dc2…1de9 at0026 = EOL // 0x1de8 @0x26
0x1dc2…1de9 }
0x1de9…1df5 ab4c 2990 UNTIL FLAG=B
0x1de9…1df5 LineComalBin {
0x1de9…1df5 ptr = 0xab4c // 0x1de9 @0x0
0x1de9…1df5 lno = 0x0bae // 0x1deb @0x2
0x1de9…1df5 at0004 = ╱98╱ UNTIL ╱ // 0x1ded @0x4
0x1de9…1df5 at0005 = ╱46╱F╱ // 0x1dee @0x5
0x1de9…1df5 at0006 = ╱4c╱L╱ // 0x1def @0x6
0x1de9…1df5 at0007 = ╱41╱A╱ // 0x1df0 @0x7
0x1de9…1df5 at0008 = ╱47╱G╱ // 0x1df1 @0x8
0x1de9…1df5 at0009 = ╱dc╱=╱ // 0x1df2 @0x9
0x1de9…1df5 at000a = ╱42╱B╱ // 0x1df3 @0xa
0x1de9…1df5 at000b = EOL // 0x1df4 @0xb
0x1de9…1df5 }
0x1df5…1dfb ab52 3000 REPEAT
0x1df5…1dfb LineComalBin {
0x1df5…1dfb ptr = 0xab52 // 0x1df5 @0x0
0x1df5…1dfb lno = 0x0bb8 // 0x1df7 @0x2
0x1df5…1dfb at0004 = ╱97╱ REPEAT ╱ // 0x1df9 @0x4
0x1df5…1dfb at0005 = EOL // 0x1dfa @0x5
0x1df5…1dfb }
0x1dfb…1e10 ab67 3010 CURSOR 18,20
0x1dfb…1e10 LineComalBin {
0x1dfb…1e10 ptr = 0xab67 // 0x1dfb @0x0
0x1dfb…1e10 lno = 0x0bc2 // 0x1dfd @0x2
0x1dfb…1e10 at0004 = ╱a1╱ CURSOR ╱ // 0x1dff @0x4
0x1dfb…1e10 at0005 = ╱31╱1╱ // 0x1e00 @0x5
0x1dfb…1e10 at0006 = ╱38╱8╱ // 0x1e01 @0x6
0x1dfb…1e10 at0007 = ╱fe00009005╱ // 0x1e02 @0x7
0x1dfb…1e10 at000c = ╱ec╱,╱ // 0x1e07 @0xc
0x1dfb…1e10 at000d = ╱32╱2╱ // 0x1e08 @0xd
0x1dfb…1e10 at000e = ╱30╱0╱ // 0x1e09 @0xe
0x1dfb…1e10 at000f = ╱fe0000a005╱ // 0x1e0a @0xf
0x1dfb…1e10 at0014 = EOL // 0x1e0f @0x14
0x1dfb…1e10 }
0x1e10…1e52 aba9 3020 PRINT "Foretages denne beregning før eller efter månedsafslutning"
0x1e10…1e52 LineComalBin {
0x1e10…1e52 ptr = 0xaba9 // 0x1e10 @0x0
0x1e10…1e52 lno = 0x0bcc // 0x1e12 @0x2
0x1e10…1e52 at0004 = ╱92╱ PRINT ╱ // 0x1e14 @0x4
0x1e10…1e52 at0005 = ╱22╱"╱ // 0x1e15 @0x5
0x1e10…1e52 at0006 = ╱46╱F╱ // 0x1e16 @0x6
0x1e10…1e52 at0007 = ╱6f╱o╱ // 0x1e17 @0x7
0x1e10…1e52 at0008 = ╱72╱r╱ // 0x1e18 @0x8
0x1e10…1e52 at0009 = ╱65╱e╱ // 0x1e19 @0x9
0x1e10…1e52 at000a = ╱74╱t╱ // 0x1e1a @0xa
0x1e10…1e52 at000b = ╱61╱a╱ // 0x1e1b @0xb
0x1e10…1e52 at000c = ╱67╱g╱ // 0x1e1c @0xc
0x1e10…1e52 at000d = ╱65╱e╱ // 0x1e1d @0xd
0x1e10…1e52 at000e = ╱73╱s╱ // 0x1e1e @0xe
0x1e10…1e52 at000f = ╱20╱…╱ // 0x1e1f @0xf
0x1e10…1e52 at0010 = ╱64╱d╱ // 0x1e20 @0x10
0x1e10…1e52 at0011 = ╱65╱e╱ // 0x1e21 @0x11
0x1e10…1e52 at0012 = ╱6e╱n╱ // 0x1e22 @0x12
0x1e10…1e52 at0013 = ╱6e╱n╱ // 0x1e23 @0x13
0x1e10…1e52 at0014 = ╱65╱e╱ // 0x1e24 @0x14
0x1e10…1e52 at0015 = ╱20╱…╱ // 0x1e25 @0x15
0x1e10…1e52 at0016 = ╱62╱b╱ // 0x1e26 @0x16
0x1e10…1e52 at0017 = ╱65╱e╱ // 0x1e27 @0x17
0x1e10…1e52 at0018 = ╱72╱r╱ // 0x1e28 @0x18
0x1e10…1e52 at0019 = ╱65╱e╱ // 0x1e29 @0x19
0x1e10…1e52 at001a = ╱67╱g╱ // 0x1e2a @0x1a
0x1e10…1e52 at001b = ╱6e╱n╱ // 0x1e2b @0x1b
0x1e10…1e52 at001c = ╱69╱i╱ // 0x1e2c @0x1c
0x1e10…1e52 at001d = ╱6e╱n╱ // 0x1e2d @0x1d
0x1e10…1e52 at001e = ╱67╱g╱ // 0x1e2e @0x1e
0x1e10…1e52 at001f = ╱20╱…╱ // 0x1e2f @0x1f
0x1e10…1e52 at0020 = ╱66╱f╱ // 0x1e30 @0x20
0x1e10…1e52 at0021 = ╱7c╱ø╱ // 0x1e31 @0x21
0x1e10…1e52 at0022 = ╱72╱r╱ // 0x1e32 @0x22
0x1e10…1e52 at0023 = ╱20╱…╱ // 0x1e33 @0x23
0x1e10…1e52 at0024 = ╱65╱e╱ // 0x1e34 @0x24
0x1e10…1e52 at0025 = ╱6c╱l╱ // 0x1e35 @0x25
0x1e10…1e52 at0026 = ╱6c╱l╱ // 0x1e36 @0x26
0x1e10…1e52 at0027 = ╱65╱e╱ // 0x1e37 @0x27
0x1e10…1e52 at0028 = ╱72╱r╱ // 0x1e38 @0x28
0x1e10…1e52 at0029 = ╱20╱…╱ // 0x1e39 @0x29
0x1e10…1e52 at002a = ╱65╱e╱ // 0x1e3a @0x2a
0x1e10…1e52 at002b = ╱66╱f╱ // 0x1e3b @0x2b
0x1e10…1e52 at002c = ╱74╱t╱ // 0x1e3c @0x2c
0x1e10…1e52 at002d = ╱65╱e╱ // 0x1e3d @0x2d
0x1e10…1e52 at002e = ╱72╱r╱ // 0x1e3e @0x2e
0x1e10…1e52 at002f = ╱20╱…╱ // 0x1e3f @0x2f
0x1e10…1e52 at0030 = ╱6d╱m╱ // 0x1e40 @0x30
0x1e10…1e52 at0031 = ╱7d╱å╱ // 0x1e41 @0x31
0x1e10…1e52 at0032 = ╱6e╱n╱ // 0x1e42 @0x32
0x1e10…1e52 at0033 = ╱65╱e╱ // 0x1e43 @0x33
0x1e10…1e52 at0034 = ╱64╱d╱ // 0x1e44 @0x34
0x1e10…1e52 at0035 = ╱73╱s╱ // 0x1e45 @0x35
0x1e10…1e52 at0036 = ╱61╱a╱ // 0x1e46 @0x36
0x1e10…1e52 at0037 = ╱66╱f╱ // 0x1e47 @0x37
0x1e10…1e52 at0038 = ╱73╱s╱ // 0x1e48 @0x38
0x1e10…1e52 at0039 = ╱6c╱l╱ // 0x1e49 @0x39
0x1e10…1e52 at003a = ╱75╱u╱ // 0x1e4a @0x3a
0x1e10…1e52 at003b = ╱74╱t╱ // 0x1e4b @0x3b
0x1e10…1e52 at003c = ╱6e╱n╱ // 0x1e4c @0x3c
0x1e10…1e52 at003d = ╱69╱i╱ // 0x1e4d @0x3d
0x1e10…1e52 at003e = ╱6e╱n╱ // 0x1e4e @0x3e
0x1e10…1e52 at003f = ╱67╱g╱ // 0x1e4f @0x3f
0x1e10…1e52 at0040 = ╱22╱"╱ // 0x1e50 @0x40
0x1e10…1e52 at0041 = EOL // 0x1e51 @0x41
0x1e10…1e52 }
0x1e52…1e67 abbe 3030 CURSOR 18,22
0x1e52…1e67 LineComalBin {
0x1e52…1e67 ptr = 0xabbe // 0x1e52 @0x0
0x1e52…1e67 lno = 0x0bd6 // 0x1e54 @0x2
0x1e52…1e67 at0004 = ╱a1╱ CURSOR ╱ // 0x1e56 @0x4
0x1e52…1e67 at0005 = ╱31╱1╱ // 0x1e57 @0x5
0x1e52…1e67 at0006 = ╱38╱8╱ // 0x1e58 @0x6
0x1e52…1e67 at0007 = ╱fe00009005╱ // 0x1e59 @0x7
0x1e52…1e67 at000c = ╱ec╱,╱ // 0x1e5e @0xc
0x1e52…1e67 at000d = ╱32╱2╱ // 0x1e5f @0xd
0x1e52…1e67 at000e = ╱32╱2╱ // 0x1e60 @0xe
0x1e52…1e67 at000f = ╱fe0000b005╱ // 0x1e61 @0xf
0x1e52…1e67 at0014 = EOL // 0x1e66 @0x14
0x1e52…1e67 }
0x1e67…1e87 abde 3040 INPUT "Vælg 0:Før , 1:Efter ",A$
0x1e67…1e87 LineComalBin {
0x1e67…1e87 ptr = 0xabde // 0x1e67 @0x0
0x1e67…1e87 lno = 0x0be0 // 0x1e69 @0x2
0x1e67…1e87 at0004 = ╱91╱ INPUT ╱ // 0x1e6b @0x4
0x1e67…1e87 at0005 = ╱22╱"╱ // 0x1e6c @0x5
0x1e67…1e87 at0006 = ╱56╱V╱ // 0x1e6d @0x6
0x1e67…1e87 at0007 = ╱7b╱æ╱ // 0x1e6e @0x7
0x1e67…1e87 at0008 = ╱6c╱l╱ // 0x1e6f @0x8
0x1e67…1e87 at0009 = ╱67╱g╱ // 0x1e70 @0x9
0x1e67…1e87 at000a = ╱20╱…╱ // 0x1e71 @0xa
0x1e67…1e87 at000b = ╱30╱0╱ // 0x1e72 @0xb
0x1e67…1e87 at000c = ╱3a╱:╱ // 0x1e73 @0xc
0x1e67…1e87 at000d = ╱46╱F╱ // 0x1e74 @0xd
0x1e67…1e87 at000e = ╱7c╱ø╱ // 0x1e75 @0xe
0x1e67…1e87 at000f = ╱72╱r╱ // 0x1e76 @0xf
0x1e67…1e87 at0010 = ╱20╱…╱ // 0x1e77 @0x10
0x1e67…1e87 at0011 = ╱2c╱,╱ // 0x1e78 @0x11
0x1e67…1e87 at0012 = ╱20╱…╱ // 0x1e79 @0x12
0x1e67…1e87 at0013 = ╱31╱1╱ // 0x1e7a @0x13
0x1e67…1e87 at0014 = ╱3a╱:╱ // 0x1e7b @0x14
0x1e67…1e87 at0015 = ╱45╱E╱ // 0x1e7c @0x15
0x1e67…1e87 at0016 = ╱66╱f╱ // 0x1e7d @0x16
0x1e67…1e87 at0017 = ╱74╱t╱ // 0x1e7e @0x17
0x1e67…1e87 at0018 = ╱65╱e╱ // 0x1e7f @0x18
0x1e67…1e87 at0019 = ╱72╱r╱ // 0x1e80 @0x19
0x1e67…1e87 at001a = ╱20╱…╱ // 0x1e81 @0x1a
0x1e67…1e87 at001b = ╱22╱"╱ // 0x1e82 @0x1b
0x1e67…1e87 at001c = ╱ec╱,╱ // 0x1e83 @0x1c
0x1e67…1e87 at001d = ╱41╱A╱ // 0x1e84 @0x1d
0x1e67…1e87 at001e = ╱ef╱$╱ // 0x1e85 @0x1e
0x1e67…1e87 at001f = EOL // 0x1e86 @0x1f
0x1e67…1e87 }
0x1e87…1e97 abee 3050 EXEC NRTEST(A$)
0x1e87…1e97 LineComalBin {
0x1e87…1e97 ptr = 0xabee // 0x1e87 @0x0
0x1e87…1e97 lno = 0x0bea // 0x1e89 @0x2
0x1e87…1e97 at0004 = ╱9d╱ EXEC ╱ // 0x1e8b @0x4
0x1e87…1e97 at0005 = ╱4e╱N╱ // 0x1e8c @0x5
0x1e87…1e97 at0006 = ╱52╱R╱ // 0x1e8d @0x6
0x1e87…1e97 at0007 = ╱54╱T╱ // 0x1e8e @0x7
0x1e87…1e97 at0008 = ╱45╱E╱ // 0x1e8f @0x8
0x1e87…1e97 at0009 = ╱53╱S╱ // 0x1e90 @0x9
0x1e87…1e97 at000a = ╱54╱T╱ // 0x1e91 @0xa
0x1e87…1e97 at000b = ╱ed╱(╱ // 0x1e92 @0xb
0x1e87…1e97 at000c = ╱41╱A╱ // 0x1e93 @0xc
0x1e87…1e97 at000d = ╱ef╱$╱ // 0x1e94 @0xd
0x1e87…1e97 at000e = ╱ee╱)╱ // 0x1e95 @0xe
0x1e87…1e97 at000f = EOL // 0x1e96 @0xf
0x1e87…1e97 }
0x1e97…1eae ac05 3060 UNTIL (P=B OR P=E) AND TEST2=B
0x1e97…1eae LineComalBin {
0x1e97…1eae ptr = 0xac05 // 0x1e97 @0x0
0x1e97…1eae lno = 0x0bf4 // 0x1e99 @0x2
0x1e97…1eae at0004 = ╱98╱ UNTIL ╱ // 0x1e9b @0x4
0x1e97…1eae at0005 = ╱ed╱(╱ // 0x1e9c @0x5
0x1e97…1eae at0006 = ╱50╱P╱ // 0x1e9d @0x6
0x1e97…1eae at0007 = ╱dc╱=╱ // 0x1e9e @0x7
0x1e97…1eae at0008 = ╱42╱B╱ // 0x1e9f @0x8
0x1e97…1eae at0009 = ╱db╱ OR ╱ // 0x1ea0 @0x9
0x1e97…1eae at000a = ╱50╱P╱ // 0x1ea1 @0xa
0x1e97…1eae at000b = ╱dc╱=╱ // 0x1ea2 @0xb
0x1e97…1eae at000c = ╱45╱E╱ // 0x1ea3 @0xc
0x1e97…1eae at000d = ╱ee╱)╱ // 0x1ea4 @0xd
0x1e97…1eae at000e = ╱da╱ AND ╱ // 0x1ea5 @0xe
0x1e97…1eae at000f = ╱54╱T╱ // 0x1ea6 @0xf
0x1e97…1eae at0010 = ╱45╱E╱ // 0x1ea7 @0x10
0x1e97…1eae at0011 = ╱53╱S╱ // 0x1ea8 @0x11
0x1e97…1eae at0012 = ╱54╱T╱ // 0x1ea9 @0x12
0x1e97…1eae at0013 = ╱32╱2╱ // 0x1eaa @0x13
0x1e97…1eae at0014 = ╱dc╱=╱ // 0x1eab @0x14
0x1e97…1eae at0015 = ╱42╱B╱ // 0x1eac @0x15
0x1e97…1eae at0016 = EOL // 0x1ead @0x16
0x1e97…1eae }
0x1eae…1eb8 (102,) ac0f 3070 FØR=P
0x1eae…1eb8 LineComalBin {
0x1eae…1eb8 ptr = 0xac0f // 0x1eae @0x0
0x1eae…1eb8 lno = 0x0bfe // 0x1eb0 @0x2
0x1eae…1eb8 at0004 = ╱46╱F╱ // 0x1eb2 @0x4
0x1eae…1eb8 at0005 = ╱5c╱Ø╱ // 0x1eb3 @0x5
0x1eae…1eb8 at0006 = ╱52╱R╱ // 0x1eb4 @0x6
0x1eae…1eb8 at0007 = ╱dc╱=╱ // 0x1eb5 @0x7
0x1eae…1eb8 at0008 = ╱50╱P╱ // 0x1eb6 @0x8
0x1eae…1eb8 at0009 = EOL // 0x1eb7 @0x9
0x1eae…1eb8 }
0x1eb8…1ecb ac22 3080 FOR DPIL1=FRA TO TIL
0x1eb8…1ecb LineComalBin {
0x1eb8…1ecb ptr = 0xac22 // 0x1eb8 @0x0
0x1eb8…1ecb lno = 0x0c08 // 0x1eba @0x2
0x1eb8…1ecb at0004 = ╱83╱ FOR ╱ // 0x1ebc @0x4
0x1eb8…1ecb at0005 = ╱44╱D╱ // 0x1ebd @0x5
0x1eb8…1ecb at0006 = ╱50╱P╱ // 0x1ebe @0x6
0x1eb8…1ecb at0007 = ╱49╱I╱ // 0x1ebf @0x7
0x1eb8…1ecb at0008 = ╱4c╱L╱ // 0x1ec0 @0x8
0x1eb8…1ecb at0009 = ╱31╱1╱ // 0x1ec1 @0x9
0x1eb8…1ecb at000a = ╱dc╱=╱ // 0x1ec2 @0xa
0x1eb8…1ecb at000b = ╱46╱F╱ // 0x1ec3 @0xb
0x1eb8…1ecb at000c = ╱52╱R╱ // 0x1ec4 @0xc
0x1eb8…1ecb at000d = ╱41╱A╱ // 0x1ec5 @0xd
0x1eb8…1ecb at000e = ╱b7╱ TO ╱ // 0x1ec6 @0xe
0x1eb8…1ecb at000f = ╱54╱T╱ // 0x1ec7 @0xf
0x1eb8…1ecb at0010 = ╱49╱I╱ // 0x1ec8 @0x10
0x1eb8…1ecb at0011 = ╱4c╱L╱ // 0x1ec9 @0x11
0x1eb8…1ecb at0012 = EOL // 0x1eca @0x12
0x1eb8…1ecb }
0x1ecb…1eee ac45 3090 IF TILNR<DTAB(DPIL1) OR REN=MDMID THEN EXIT
0x1ecb…1eee LineComalBin {
0x1ecb…1eee ptr = 0xac45 // 0x1ecb @0x0
0x1ecb…1eee lno = 0x0c12 // 0x1ecd @0x2
0x1ecb…1eee at0004 = ╱82╱ IF ╱ // 0x1ecf @0x4
0x1ecb…1eee at0005 = ╱54╱T╱ // 0x1ed0 @0x5
0x1ecb…1eee at0006 = ╱49╱I╱ // 0x1ed1 @0x6
0x1ecb…1eee at0007 = ╱4c╱L╱ // 0x1ed2 @0x7
0x1ecb…1eee at0008 = ╱4e╱N╱ // 0x1ed3 @0x8
0x1ecb…1eee at0009 = ╱52╱R╱ // 0x1ed4 @0x9
0x1ecb…1eee at000a = ╱dd╱<╱ // 0x1ed5 @0xa
0x1ecb…1eee at000b = ╱44╱D╱ // 0x1ed6 @0xb
0x1ecb…1eee at000c = ╱54╱T╱ // 0x1ed7 @0xc
0x1ecb…1eee at000d = ╱41╱A╱ // 0x1ed8 @0xd
0x1ecb…1eee at000e = ╱42╱B╱ // 0x1ed9 @0xe
0x1ecb…1eee at000f = ╱ed╱(╱ // 0x1eda @0xf
0x1ecb…1eee at0010 = ╱44╱D╱ // 0x1edb @0x10
0x1ecb…1eee at0011 = ╱50╱P╱ // 0x1edc @0x11
0x1ecb…1eee at0012 = ╱49╱I╱ // 0x1edd @0x12
0x1ecb…1eee at0013 = ╱4c╱L╱ // 0x1ede @0x13
0x1ecb…1eee at0014 = ╱31╱1╱ // 0x1edf @0x14
0x1ecb…1eee at0015 = ╱ee╱)╱ // 0x1ee0 @0x15
0x1ecb…1eee at0016 = ╱db╱ OR ╱ // 0x1ee1 @0x16
0x1ecb…1eee at0017 = ╱52╱R╱ // 0x1ee2 @0x17
0x1ecb…1eee at0018 = ╱45╱E╱ // 0x1ee3 @0x18
0x1ecb…1eee at0019 = ╱4e╱N╱ // 0x1ee4 @0x19
0x1ecb…1eee at001a = ╱dc╱=╱ // 0x1ee5 @0x1a
0x1ecb…1eee at001b = ╱4d╱M╱ // 0x1ee6 @0x1b
0x1ecb…1eee at001c = ╱44╱D╱ // 0x1ee7 @0x1c
0x1ecb…1eee at001d = ╱4d╱M╱ // 0x1ee8 @0x1d
0x1ecb…1eee at001e = ╱49╱I╱ // 0x1ee9 @0x1e
0x1ecb…1eee at001f = ╱44╱D╱ // 0x1eea @0x1f
0x1ecb…1eee at0020 = ╱b6╱ THEN ╱ // 0x1eeb @0x20
0x1ecb…1eee at0021 = ╱99╱ EXIT ╱ // 0x1eec @0x21
0x1ecb…1eee at0022 = EOL // 0x1eed @0x22
0x1ecb…1eee }
0x1eee…1f08 ac5f 3100 EXEC INDLÆS1(DTAB3,DPIL1)
0x1eee…1f08 LineComalBin {
0x1eee…1f08 ptr = 0xac5f // 0x1eee @0x0
0x1eee…1f08 lno = 0x0c1c // 0x1ef0 @0x2
0x1eee…1f08 at0004 = ╱9d╱ EXEC ╱ // 0x1ef2 @0x4
0x1eee…1f08 at0005 = ╱49╱I╱ // 0x1ef3 @0x5
0x1eee…1f08 at0006 = ╱4e╱N╱ // 0x1ef4 @0x6
0x1eee…1f08 at0007 = ╱44╱D╱ // 0x1ef5 @0x7
0x1eee…1f08 at0008 = ╱4c╱L╱ // 0x1ef6 @0x8
0x1eee…1f08 at0009 = ╱5b╱Æ╱ // 0x1ef7 @0x9
0x1eee…1f08 at000a = ╱53╱S╱ // 0x1ef8 @0xa
0x1eee…1f08 at000b = ╱31╱1╱ // 0x1ef9 @0xb
0x1eee…1f08 at000c = ╱ed╱(╱ // 0x1efa @0xc
0x1eee…1f08 at000d = ╱44╱D╱ // 0x1efb @0xd
0x1eee…1f08 at000e = ╱54╱T╱ // 0x1efc @0xe
0x1eee…1f08 at000f = ╱41╱A╱ // 0x1efd @0xf
0x1eee…1f08 at0010 = ╱42╱B╱ // 0x1efe @0x10
0x1eee…1f08 at0011 = ╱33╱3╱ // 0x1eff @0x11
0x1eee…1f08 at0012 = ╱ec╱,╱ // 0x1f00 @0x12
0x1eee…1f08 at0013 = ╱44╱D╱ // 0x1f01 @0x13
0x1eee…1f08 at0014 = ╱50╱P╱ // 0x1f02 @0x14
0x1eee…1f08 at0015 = ╱49╱I╱ // 0x1f03 @0x15
0x1eee…1f08 at0016 = ╱4c╱L╱ // 0x1f04 @0x16
0x1eee…1f08 at0017 = ╱31╱1╱ // 0x1f05 @0x17
0x1eee…1f08 at0018 = ╱ee╱)╱ // 0x1f06 @0x18
0x1eee…1f08 at0019 = EOL // 0x1f07 @0x19
0x1eee…1f08 }
0x1f08…1f1c ac73 3110 FOR DPIL3=E TO 4
0x1f08…1f1c LineComalBin {
0x1f08…1f1c ptr = 0xac73 // 0x1f08 @0x0
0x1f08…1f1c lno = 0x0c26 // 0x1f0a @0x2
0x1f08…1f1c at0004 = ╱83╱ FOR ╱ // 0x1f0c @0x4
0x1f08…1f1c at0005 = ╱44╱D╱ // 0x1f0d @0x5
0x1f08…1f1c at0006 = ╱50╱P╱ // 0x1f0e @0x6
0x1f08…1f1c at0007 = ╱49╱I╱ // 0x1f0f @0x7
0x1f08…1f1c at0008 = ╱4c╱L╱ // 0x1f10 @0x8
0x1f08…1f1c at0009 = ╱33╱3╱ // 0x1f11 @0x9
0x1f08…1f1c at000a = ╱dc╱=╱ // 0x1f12 @0xa
0x1f08…1f1c at000b = ╱45╱E╱ // 0x1f13 @0xb
0x1f08…1f1c at000c = ╱b7╱ TO ╱ // 0x1f14 @0xc
0x1f08…1f1c at000d = ╱34╱4╱ // 0x1f15 @0xd
0x1f08…1f1c at000e = ╱fe00008003╱ // 0x1f16 @0xe
0x1f08…1f1c at0013 = EOL // 0x1f1b @0x13
0x1f08…1f1c }
0x1f1c…1f4c aca3 3120 IF DTAB3(DPIL3,E)=>FRANR AND DTAB3(DPIL3,E)<=TILNR THEN
0x1f1c…1f4c LineComalBin {
0x1f1c…1f4c ptr = 0xaca3 // 0x1f1c @0x0
0x1f1c…1f4c lno = 0x0c30 // 0x1f1e @0x2
0x1f1c…1f4c at0004 = ╱9c╱ IF ╱ // 0x1f20 @0x4
0x1f1c…1f4c at0005 = ╱44╱D╱ // 0x1f21 @0x5
0x1f1c…1f4c at0006 = ╱54╱T╱ // 0x1f22 @0x6
0x1f1c…1f4c at0007 = ╱41╱A╱ // 0x1f23 @0x7
0x1f1c…1f4c at0008 = ╱42╱B╱ // 0x1f24 @0x8
0x1f1c…1f4c at0009 = ╱33╱3╱ // 0x1f25 @0x9
0x1f1c…1f4c at000a = ╱ed╱(╱ // 0x1f26 @0xa
0x1f1c…1f4c at000b = ╱44╱D╱ // 0x1f27 @0xb
0x1f1c…1f4c at000c = ╱50╱P╱ // 0x1f28 @0xc
0x1f1c…1f4c at000d = ╱49╱I╱ // 0x1f29 @0xd
0x1f1c…1f4c at000e = ╱4c╱L╱ // 0x1f2a @0xe
0x1f1c…1f4c at000f = ╱33╱3╱ // 0x1f2b @0xf
0x1f1c…1f4c at0010 = ╱ec╱,╱ // 0x1f2c @0x10
0x1f1c…1f4c at0011 = ╱45╱E╱ // 0x1f2d @0x11
0x1f1c…1f4c at0012 = ╱ee╱)╱ // 0x1f2e @0x12
0x1f1c…1f4c at0013 = ╱e0╱=>╱ // 0x1f2f @0x13
0x1f1c…1f4c at0014 = ╱46╱F╱ // 0x1f30 @0x14
0x1f1c…1f4c at0015 = ╱52╱R╱ // 0x1f31 @0x15
0x1f1c…1f4c at0016 = ╱41╱A╱ // 0x1f32 @0x16
0x1f1c…1f4c at0017 = ╱4e╱N╱ // 0x1f33 @0x17
0x1f1c…1f4c at0018 = ╱52╱R╱ // 0x1f34 @0x18
0x1f1c…1f4c at0019 = ╱da╱ AND ╱ // 0x1f35 @0x19
0x1f1c…1f4c at001a = ╱44╱D╱ // 0x1f36 @0x1a
0x1f1c…1f4c at001b = ╱54╱T╱ // 0x1f37 @0x1b
0x1f1c…1f4c at001c = ╱41╱A╱ // 0x1f38 @0x1c
0x1f1c…1f4c at001d = ╱42╱B╱ // 0x1f39 @0x1d
0x1f1c…1f4c at001e = ╱33╱3╱ // 0x1f3a @0x1e
0x1f1c…1f4c at001f = ╱ed╱(╱ // 0x1f3b @0x1f
0x1f1c…1f4c at0020 = ╱44╱D╱ // 0x1f3c @0x20
0x1f1c…1f4c at0021 = ╱50╱P╱ // 0x1f3d @0x21
0x1f1c…1f4c at0022 = ╱49╱I╱ // 0x1f3e @0x22
0x1f1c…1f4c at0023 = ╱4c╱L╱ // 0x1f3f @0x23
0x1f1c…1f4c at0024 = ╱33╱3╱ // 0x1f40 @0x24
0x1f1c…1f4c at0025 = ╱ec╱,╱ // 0x1f41 @0x25
0x1f1c…1f4c at0026 = ╱45╱E╱ // 0x1f42 @0x26
0x1f1c…1f4c at0027 = ╱ee╱)╱ // 0x1f43 @0x27
0x1f1c…1f4c at0028 = ╱df╱<=╱ // 0x1f44 @0x28
0x1f1c…1f4c at0029 = ╱54╱T╱ // 0x1f45 @0x29
0x1f1c…1f4c at002a = ╱49╱I╱ // 0x1f46 @0x2a
0x1f1c…1f4c at002b = ╱4c╱L╱ // 0x1f47 @0x2b
0x1f1c…1f4c at002c = ╱4e╱N╱ // 0x1f48 @0x2c
0x1f1c…1f4c at002d = ╱52╱R╱ // 0x1f49 @0x2d
0x1f1c…1f4c at002e = ╱b6╱ THEN ╱ // 0x1f4a @0x2e
0x1f1c…1f4c at002f = EOL // 0x1f4b @0x2f
0x1f1c…1f4c }
0x1f4c…1f5b acb2 3130 EXEC HENTDPOST
0x1f4c…1f5b LineComalBin {
0x1f4c…1f5b ptr = 0xacb2 // 0x1f4c @0x0
0x1f4c…1f5b lno = 0x0c3a // 0x1f4e @0x2
0x1f4c…1f5b at0004 = ╱9d╱ EXEC ╱ // 0x1f50 @0x4
0x1f4c…1f5b at0005 = ╱48╱H╱ // 0x1f51 @0x5
0x1f4c…1f5b at0006 = ╱45╱E╱ // 0x1f52 @0x6
0x1f4c…1f5b at0007 = ╱4e╱N╱ // 0x1f53 @0x7
0x1f4c…1f5b at0008 = ╱54╱T╱ // 0x1f54 @0x8
0x1f4c…1f5b at0009 = ╱44╱D╱ // 0x1f55 @0x9
0x1f4c…1f5b at000a = ╱50╱P╱ // 0x1f56 @0xa
0x1f4c…1f5b at000b = ╱4f╱O╱ // 0x1f57 @0xb
0x1f4c…1f5b at000c = ╱53╱S╱ // 0x1f58 @0xc
0x1f4c…1f5b at000d = ╱54╱T╱ // 0x1f59 @0xd
0x1f4c…1f5b at000e = EOL // 0x1f5a @0xe
0x1f4c…1f5b }
0x1f5b…1f78 accf 3140 SALDO$="0+";SALDO1$="0+"
0x1f5b…1f78 LineComalBin {
0x1f5b…1f78 ptr = 0xaccf // 0x1f5b @0x0
0x1f5b…1f78 lno = 0x0c44 // 0x1f5d @0x2
0x1f5b…1f78 at0004 = ╱53╱S╱ // 0x1f5f @0x4
0x1f5b…1f78 at0005 = ╱41╱A╱ // 0x1f60 @0x5
0x1f5b…1f78 at0006 = ╱4c╱L╱ // 0x1f61 @0x6
0x1f5b…1f78 at0007 = ╱44╱D╱ // 0x1f62 @0x7
0x1f5b…1f78 at0008 = ╱4f╱O╱ // 0x1f63 @0x8
0x1f5b…1f78 at0009 = ╱ef╱$╱ // 0x1f64 @0x9
0x1f5b…1f78 at000a = ╱dc╱=╱ // 0x1f65 @0xa
0x1f5b…1f78 at000b = ╱22╱"╱ // 0x1f66 @0xb
0x1f5b…1f78 at000c = ╱30╱0╱ // 0x1f67 @0xc
0x1f5b…1f78 at000d = ╱2b╱+╱ // 0x1f68 @0xd
0x1f5b…1f78 at000e = ╱22╱"╱ // 0x1f69 @0xe
0x1f5b…1f78 at000f = ╱eb╱;╱ // 0x1f6a @0xf
0x1f5b…1f78 at0010 = ╱53╱S╱ // 0x1f6b @0x10
0x1f5b…1f78 at0011 = ╱41╱A╱ // 0x1f6c @0x11
0x1f5b…1f78 at0012 = ╱4c╱L╱ // 0x1f6d @0x12
0x1f5b…1f78 at0013 = ╱44╱D╱ // 0x1f6e @0x13
0x1f5b…1f78 at0014 = ╱4f╱O╱ // 0x1f6f @0x14
0x1f5b…1f78 at0015 = ╱31╱1╱ // 0x1f70 @0x15
0x1f5b…1f78 at0016 = ╱ef╱$╱ // 0x1f71 @0x16
0x1f5b…1f78 at0017 = ╱dc╱=╱ // 0x1f72 @0x17
0x1f5b…1f78 at0018 = ╱22╱"╱ // 0x1f73 @0x18
0x1f5b…1f78 at0019 = ╱30╱0╱ // 0x1f74 @0x19
0x1f5b…1f78 at001a = ╱2b╱+╱ // 0x1f75 @0x1a
0x1f5b…1f78 at001b = ╱22╱"╱ // 0x1f76 @0x1b
0x1f5b…1f78 at001c = EOL // 0x1f77 @0x1c
0x1f5b…1f78 }
0x1f78…1f9e acf5 3150 EXEC CALC(B,DSALDO4$,DSALDO3$,SALDO$)
0x1f78…1f9e LineComalBin {
0x1f78…1f9e ptr = 0xacf5 // 0x1f78 @0x0
0x1f78…1f9e lno = 0x0c4e // 0x1f7a @0x2
0x1f78…1f9e at0004 = ╱9d╱ EXEC ╱ // 0x1f7c @0x4
0x1f78…1f9e at0005 = ╱43╱C╱ // 0x1f7d @0x5
0x1f78…1f9e at0006 = ╱41╱A╱ // 0x1f7e @0x6
0x1f78…1f9e at0007 = ╱4c╱L╱ // 0x1f7f @0x7
0x1f78…1f9e at0008 = ╱43╱C╱ // 0x1f80 @0x8
0x1f78…1f9e at0009 = ╱ed╱(╱ // 0x1f81 @0x9
0x1f78…1f9e at000a = ╱42╱B╱ // 0x1f82 @0xa
0x1f78…1f9e at000b = ╱ec╱,╱ // 0x1f83 @0xb
0x1f78…1f9e at000c = ╱44╱D╱ // 0x1f84 @0xc
0x1f78…1f9e at000d = ╱53╱S╱ // 0x1f85 @0xd
0x1f78…1f9e at000e = ╱41╱A╱ // 0x1f86 @0xe
0x1f78…1f9e at000f = ╱4c╱L╱ // 0x1f87 @0xf
0x1f78…1f9e at0010 = ╱44╱D╱ // 0x1f88 @0x10
0x1f78…1f9e at0011 = ╱4f╱O╱ // 0x1f89 @0x11
0x1f78…1f9e at0012 = ╱34╱4╱ // 0x1f8a @0x12
0x1f78…1f9e at0013 = ╱ef╱$╱ // 0x1f8b @0x13
0x1f78…1f9e at0014 = ╱ec╱,╱ // 0x1f8c @0x14
0x1f78…1f9e at0015 = ╱44╱D╱ // 0x1f8d @0x15
0x1f78…1f9e at0016 = ╱53╱S╱ // 0x1f8e @0x16
0x1f78…1f9e at0017 = ╱41╱A╱ // 0x1f8f @0x17
0x1f78…1f9e at0018 = ╱4c╱L╱ // 0x1f90 @0x18
0x1f78…1f9e at0019 = ╱44╱D╱ // 0x1f91 @0x19
0x1f78…1f9e at001a = ╱4f╱O╱ // 0x1f92 @0x1a
0x1f78…1f9e at001b = ╱33╱3╱ // 0x1f93 @0x1b
0x1f78…1f9e at001c = ╱ef╱$╱ // 0x1f94 @0x1c
0x1f78…1f9e at001d = ╱ec╱,╱ // 0x1f95 @0x1d
0x1f78…1f9e at001e = ╱53╱S╱ // 0x1f96 @0x1e
0x1f78…1f9e at001f = ╱41╱A╱ // 0x1f97 @0x1f
0x1f78…1f9e at0020 = ╱4c╱L╱ // 0x1f98 @0x20
0x1f78…1f9e at0021 = ╱44╱D╱ // 0x1f99 @0x21
0x1f78…1f9e at0022 = ╱4f╱O╱ // 0x1f9a @0x22
0x1f78…1f9e at0023 = ╱ef╱$╱ // 0x1f9b @0x23
0x1f78…1f9e at0024 = ╱ee╱)╱ // 0x1f9c @0x24
0x1f78…1f9e at0025 = EOL // 0x1f9d @0x25
0x1f78…1f9e }
0x1f9e…1fc5 ad1c 3160 EXEC CALC(B,DSALDO1$,DSALDO2$,SALDO1$)
0x1f9e…1fc5 LineComalBin {
0x1f9e…1fc5 ptr = 0xad1c // 0x1f9e @0x0
0x1f9e…1fc5 lno = 0x0c58 // 0x1fa0 @0x2
0x1f9e…1fc5 at0004 = ╱9d╱ EXEC ╱ // 0x1fa2 @0x4
0x1f9e…1fc5 at0005 = ╱43╱C╱ // 0x1fa3 @0x5
0x1f9e…1fc5 at0006 = ╱41╱A╱ // 0x1fa4 @0x6
0x1f9e…1fc5 at0007 = ╱4c╱L╱ // 0x1fa5 @0x7
0x1f9e…1fc5 at0008 = ╱43╱C╱ // 0x1fa6 @0x8
0x1f9e…1fc5 at0009 = ╱ed╱(╱ // 0x1fa7 @0x9
0x1f9e…1fc5 at000a = ╱42╱B╱ // 0x1fa8 @0xa
0x1f9e…1fc5 at000b = ╱ec╱,╱ // 0x1fa9 @0xb
0x1f9e…1fc5 at000c = ╱44╱D╱ // 0x1faa @0xc
0x1f9e…1fc5 at000d = ╱53╱S╱ // 0x1fab @0xd
0x1f9e…1fc5 at000e = ╱41╱A╱ // 0x1fac @0xe
0x1f9e…1fc5 at000f = ╱4c╱L╱ // 0x1fad @0xf
0x1f9e…1fc5 at0010 = ╱44╱D╱ // 0x1fae @0x10
0x1f9e…1fc5 at0011 = ╱4f╱O╱ // 0x1faf @0x11
0x1f9e…1fc5 at0012 = ╱31╱1╱ // 0x1fb0 @0x12
0x1f9e…1fc5 at0013 = ╱ef╱$╱ // 0x1fb1 @0x13
0x1f9e…1fc5 at0014 = ╱ec╱,╱ // 0x1fb2 @0x14
0x1f9e…1fc5 at0015 = ╱44╱D╱ // 0x1fb3 @0x15
0x1f9e…1fc5 at0016 = ╱53╱S╱ // 0x1fb4 @0x16
0x1f9e…1fc5 at0017 = ╱41╱A╱ // 0x1fb5 @0x17
0x1f9e…1fc5 at0018 = ╱4c╱L╱ // 0x1fb6 @0x18
0x1f9e…1fc5 at0019 = ╱44╱D╱ // 0x1fb7 @0x19
0x1f9e…1fc5 at001a = ╱4f╱O╱ // 0x1fb8 @0x1a
0x1f9e…1fc5 at001b = ╱32╱2╱ // 0x1fb9 @0x1b
0x1f9e…1fc5 at001c = ╱ef╱$╱ // 0x1fba @0x1c
0x1f9e…1fc5 at001d = ╱ec╱,╱ // 0x1fbb @0x1d
0x1f9e…1fc5 at001e = ╱53╱S╱ // 0x1fbc @0x1e
0x1f9e…1fc5 at001f = ╱41╱A╱ // 0x1fbd @0x1f
0x1f9e…1fc5 at0020 = ╱4c╱L╱ // 0x1fbe @0x20
0x1f9e…1fc5 at0021 = ╱44╱D╱ // 0x1fbf @0x21
0x1f9e…1fc5 at0022 = ╱4f╱O╱ // 0x1fc0 @0x22
0x1f9e…1fc5 at0023 = ╱31╱1╱ // 0x1fc1 @0x23
0x1f9e…1fc5 at0024 = ╱ef╱$╱ // 0x1fc2 @0x24
0x1f9e…1fc5 at0025 = ╱ee╱)╱ // 0x1fc3 @0x25
0x1f9e…1fc5 at0026 = EOL // 0x1fc4 @0x26
0x1f9e…1fc5 }
0x1fc5…1fe9 ad40 3170 EXEC CALC(B,SALDO1$,SALDO$,SALDO1$)
0x1fc5…1fe9 LineComalBin {
0x1fc5…1fe9 ptr = 0xad40 // 0x1fc5 @0x0
0x1fc5…1fe9 lno = 0x0c62 // 0x1fc7 @0x2
0x1fc5…1fe9 at0004 = ╱9d╱ EXEC ╱ // 0x1fc9 @0x4
0x1fc5…1fe9 at0005 = ╱43╱C╱ // 0x1fca @0x5
0x1fc5…1fe9 at0006 = ╱41╱A╱ // 0x1fcb @0x6
0x1fc5…1fe9 at0007 = ╱4c╱L╱ // 0x1fcc @0x7
0x1fc5…1fe9 at0008 = ╱43╱C╱ // 0x1fcd @0x8
0x1fc5…1fe9 at0009 = ╱ed╱(╱ // 0x1fce @0x9
0x1fc5…1fe9 at000a = ╱42╱B╱ // 0x1fcf @0xa
0x1fc5…1fe9 at000b = ╱ec╱,╱ // 0x1fd0 @0xb
0x1fc5…1fe9 at000c = ╱53╱S╱ // 0x1fd1 @0xc
0x1fc5…1fe9 at000d = ╱41╱A╱ // 0x1fd2 @0xd
0x1fc5…1fe9 at000e = ╱4c╱L╱ // 0x1fd3 @0xe
0x1fc5…1fe9 at000f = ╱44╱D╱ // 0x1fd4 @0xf
0x1fc5…1fe9 at0010 = ╱4f╱O╱ // 0x1fd5 @0x10
0x1fc5…1fe9 at0011 = ╱31╱1╱ // 0x1fd6 @0x11
0x1fc5…1fe9 at0012 = ╱ef╱$╱ // 0x1fd7 @0x12
0x1fc5…1fe9 at0013 = ╱ec╱,╱ // 0x1fd8 @0x13
0x1fc5…1fe9 at0014 = ╱53╱S╱ // 0x1fd9 @0x14
0x1fc5…1fe9 at0015 = ╱41╱A╱ // 0x1fda @0x15
0x1fc5…1fe9 at0016 = ╱4c╱L╱ // 0x1fdb @0x16
0x1fc5…1fe9 at0017 = ╱44╱D╱ // 0x1fdc @0x17
0x1fc5…1fe9 at0018 = ╱4f╱O╱ // 0x1fdd @0x18
0x1fc5…1fe9 at0019 = ╱ef╱$╱ // 0x1fde @0x19
0x1fc5…1fe9 at001a = ╱ec╱,╱ // 0x1fdf @0x1a
0x1fc5…1fe9 at001b = ╱53╱S╱ // 0x1fe0 @0x1b
0x1fc5…1fe9 at001c = ╱41╱A╱ // 0x1fe1 @0x1c
0x1fc5…1fe9 at001d = ╱4c╱L╱ // 0x1fe2 @0x1d
0x1fc5…1fe9 at001e = ╱44╱D╱ // 0x1fe3 @0x1e
0x1fc5…1fe9 at001f = ╱4f╱O╱ // 0x1fe4 @0x1f
0x1fc5…1fe9 at0020 = ╱31╱1╱ // 0x1fe5 @0x20
0x1fc5…1fe9 at0021 = ╱ef╱$╱ // 0x1fe6 @0x21
0x1fc5…1fe9 at0022 = ╱ee╱)╱ // 0x1fe7 @0x22
0x1fc5…1fe9 at0023 = EOL // 0x1fe8 @0x23
0x1fc5…1fe9 }
0x1fe9…2014 ad6b 3180 IF FØR=B THEN EXEC CALC(B,SALDO$,DSALDO2$,SALDO$)
0x1fe9…2014 LineComalBin {
0x1fe9…2014 ptr = 0xad6b // 0x1fe9 @0x0
0x1fe9…2014 lno = 0x0c6c // 0x1feb @0x2
0x1fe9…2014 at0004 = ╱82╱ IF ╱ // 0x1fed @0x4
0x1fe9…2014 at0005 = ╱46╱F╱ // 0x1fee @0x5
0x1fe9…2014 at0006 = ╱5c╱Ø╱ // 0x1fef @0x6
0x1fe9…2014 at0007 = ╱52╱R╱ // 0x1ff0 @0x7
0x1fe9…2014 at0008 = ╱dc╱=╱ // 0x1ff1 @0x8
0x1fe9…2014 at0009 = ╱42╱B╱ // 0x1ff2 @0x9
0x1fe9…2014 at000a = ╱b6╱ THEN ╱ // 0x1ff3 @0xa
0x1fe9…2014 at000b = ╱9d╱ EXEC ╱ // 0x1ff4 @0xb
0x1fe9…2014 at000c = ╱43╱C╱ // 0x1ff5 @0xc
0x1fe9…2014 at000d = ╱41╱A╱ // 0x1ff6 @0xd
0x1fe9…2014 at000e = ╱4c╱L╱ // 0x1ff7 @0xe
0x1fe9…2014 at000f = ╱43╱C╱ // 0x1ff8 @0xf
0x1fe9…2014 at0010 = ╱ed╱(╱ // 0x1ff9 @0x10
0x1fe9…2014 at0011 = ╱42╱B╱ // 0x1ffa @0x11
0x1fe9…2014 at0012 = ╱ec╱,╱ // 0x1ffb @0x12
0x1fe9…2014 at0013 = ╱53╱S╱ // 0x1ffc @0x13
0x1fe9…2014 at0014 = ╱41╱A╱ // 0x1ffd @0x14
0x1fe9…2014 at0015 = ╱4c╱L╱ // 0x1ffe @0x15
0x1fe9…2014 at0016 = ╱44╱D╱ // 0x1fff @0x16
0x1fe9…2014 at0017 = ╱4f╱O╱ // 0x2000 @0x17
0x1fe9…2014 at0018 = ╱ef╱$╱ // 0x2001 @0x18
0x1fe9…2014 at0019 = ╱ec╱,╱ // 0x2002 @0x19
0x1fe9…2014 at001a = ╱44╱D╱ // 0x2003 @0x1a
0x1fe9…2014 at001b = ╱53╱S╱ // 0x2004 @0x1b
0x1fe9…2014 at001c = ╱41╱A╱ // 0x2005 @0x1c
0x1fe9…2014 at001d = ╱4c╱L╱ // 0x2006 @0x1d
0x1fe9…2014 at001e = ╱44╱D╱ // 0x2007 @0x1e
0x1fe9…2014 at001f = ╱4f╱O╱ // 0x2008 @0x1f
0x1fe9…2014 at0020 = ╱32╱2╱ // 0x2009 @0x20
0x1fe9…2014 at0021 = ╱ef╱$╱ // 0x200a @0x21
0x1fe9…2014 at0022 = ╱ec╱,╱ // 0x200b @0x22
0x1fe9…2014 at0023 = ╱53╱S╱ // 0x200c @0x23
0x1fe9…2014 at0024 = ╱41╱A╱ // 0x200d @0x24
0x1fe9…2014 at0025 = ╱4c╱L╱ // 0x200e @0x25
0x1fe9…2014 at0026 = ╱44╱D╱ // 0x200f @0x26
0x1fe9…2014 at0027 = ╱4f╱O╱ // 0x2010 @0x27
0x1fe9…2014 at0028 = ╱ef╱$╱ // 0x2011 @0x28
0x1fe9…2014 at0029 = ╱ee╱)╱ // 0x2012 @0x29
0x1fe9…2014 at002a = EOL // 0x2013 @0x2a
0x1fe9…2014 }
0x2014…2030 ad87 3190 IF SALDO$(LEN(SALDO$))="+" THEN
0x2014…2030 LineComalBin {
0x2014…2030 ptr = 0xad87 // 0x2014 @0x0
0x2014…2030 lno = 0x0c76 // 0x2016 @0x2
0x2014…2030 at0004 = ╱9c╱ IF ╱ // 0x2018 @0x4
0x2014…2030 at0005 = ╱53╱S╱ // 0x2019 @0x5
0x2014…2030 at0006 = ╱41╱A╱ // 0x201a @0x6
0x2014…2030 at0007 = ╱4c╱L╱ // 0x201b @0x7
0x2014…2030 at0008 = ╱44╱D╱ // 0x201c @0x8
0x2014…2030 at0009 = ╱4f╱O╱ // 0x201d @0x9
0x2014…2030 at000a = ╱ef╱$╱ // 0x201e @0xa
0x2014…2030 at000b = ╱ed╱(╱ // 0x201f @0xb
0x2014…2030 at000c = ╱cc╱LEN╱ // 0x2020 @0xc
0x2014…2030 at000d = ╱ed╱(╱ // 0x2021 @0xd
0x2014…2030 at000e = ╱53╱S╱ // 0x2022 @0xe
0x2014…2030 at000f = ╱41╱A╱ // 0x2023 @0xf
0x2014…2030 at0010 = ╱4c╱L╱ // 0x2024 @0x10
0x2014…2030 at0011 = ╱44╱D╱ // 0x2025 @0x11
0x2014…2030 at0012 = ╱4f╱O╱ // 0x2026 @0x12
0x2014…2030 at0013 = ╱ef╱$╱ // 0x2027 @0x13
0x2014…2030 at0014 = ╱ee╱)╱ // 0x2028 @0x14
0x2014…2030 at0015 = ╱ee╱)╱ // 0x2029 @0x15
0x2014…2030 at0016 = ╱dc╱=╱ // 0x202a @0x16
0x2014…2030 at0017 = ╱22╱"╱ // 0x202b @0x17
0x2014…2030 at0018 = ╱2b╱+╱ // 0x202c @0x18
0x2014…2030 at0019 = ╱22╱"╱ // 0x202d @0x19
0x2014…2030 at001a = ╱b6╱ THEN ╱ // 0x202e @0x1a
0x2014…2030 at001b = EOL // 0x202f @0x1b
0x2014…2030 }
0x2030…2053 adaa 3200 EXEC CALC(G,SALDO$,RENPRO$,RENTE$)
0x2030…2053 LineComalBin {
0x2030…2053 ptr = 0xadaa // 0x2030 @0x0
0x2030…2053 lno = 0x0c80 // 0x2032 @0x2
0x2030…2053 at0004 = ╱9d╱ EXEC ╱ // 0x2034 @0x4
0x2030…2053 at0005 = ╱43╱C╱ // 0x2035 @0x5
0x2030…2053 at0006 = ╱41╱A╱ // 0x2036 @0x6
0x2030…2053 at0007 = ╱4c╱L╱ // 0x2037 @0x7
0x2030…2053 at0008 = ╱43╱C╱ // 0x2038 @0x8
0x2030…2053 at0009 = ╱ed╱(╱ // 0x2039 @0x9
0x2030…2053 at000a = ╱47╱G╱ // 0x203a @0xa
0x2030…2053 at000b = ╱ec╱,╱ // 0x203b @0xb
0x2030…2053 at000c = ╱53╱S╱ // 0x203c @0xc
0x2030…2053 at000d = ╱41╱A╱ // 0x203d @0xd
0x2030…2053 at000e = ╱4c╱L╱ // 0x203e @0xe
0x2030…2053 at000f = ╱44╱D╱ // 0x203f @0xf
0x2030…2053 at0010 = ╱4f╱O╱ // 0x2040 @0x10
0x2030…2053 at0011 = ╱ef╱$╱ // 0x2041 @0x11
0x2030…2053 at0012 = ╱ec╱,╱ // 0x2042 @0x12
0x2030…2053 at0013 = ╱52╱R╱ // 0x2043 @0x13
0x2030…2053 at0014 = ╱45╱E╱ // 0x2044 @0x14
0x2030…2053 at0015 = ╱4e╱N╱ // 0x2045 @0x15
0x2030…2053 at0016 = ╱50╱P╱ // 0x2046 @0x16
0x2030…2053 at0017 = ╱52╱R╱ // 0x2047 @0x17
0x2030…2053 at0018 = ╱4f╱O╱ // 0x2048 @0x18
0x2030…2053 at0019 = ╱ef╱$╱ // 0x2049 @0x19
0x2030…2053 at001a = ╱ec╱,╱ // 0x204a @0x1a
0x2030…2053 at001b = ╱52╱R╱ // 0x204b @0x1b
0x2030…2053 at001c = ╱45╱E╱ // 0x204c @0x1c
0x2030…2053 at001d = ╱4e╱N╱ // 0x204d @0x1d
0x2030…2053 at001e = ╱54╱T╱ // 0x204e @0x1e
0x2030…2053 at001f = ╱45╱E╱ // 0x204f @0x1f
0x2030…2053 at0020 = ╱ef╱$╱ // 0x2050 @0x20
0x2030…2053 at0021 = ╱ee╱)╱ // 0x2051 @0x21
0x2030…2053 at0022 = EOL // 0x2052 @0x22
0x2030…2053 }
0x2053…2074 adcb 3210 EXEC CALC(V,RENTE$,TAL3$,RENTE$)
0x2053…2074 LineComalBin {
0x2053…2074 ptr = 0xadcb // 0x2053 @0x0
0x2053…2074 lno = 0x0c8a // 0x2055 @0x2
0x2053…2074 at0004 = ╱9d╱ EXEC ╱ // 0x2057 @0x4
0x2053…2074 at0005 = ╱43╱C╱ // 0x2058 @0x5
0x2053…2074 at0006 = ╱41╱A╱ // 0x2059 @0x6
0x2053…2074 at0007 = ╱4c╱L╱ // 0x205a @0x7
0x2053…2074 at0008 = ╱43╱C╱ // 0x205b @0x8
0x2053…2074 at0009 = ╱ed╱(╱ // 0x205c @0x9
0x2053…2074 at000a = ╱56╱V╱ // 0x205d @0xa
0x2053…2074 at000b = ╱ec╱,╱ // 0x205e @0xb
0x2053…2074 at000c = ╱52╱R╱ // 0x205f @0xc
0x2053…2074 at000d = ╱45╱E╱ // 0x2060 @0xd
0x2053…2074 at000e = ╱4e╱N╱ // 0x2061 @0xe
0x2053…2074 at000f = ╱54╱T╱ // 0x2062 @0xf
0x2053…2074 at0010 = ╱45╱E╱ // 0x2063 @0x10
0x2053…2074 at0011 = ╱ef╱$╱ // 0x2064 @0x11
0x2053…2074 at0012 = ╱ec╱,╱ // 0x2065 @0x12
0x2053…2074 at0013 = ╱54╱T╱ // 0x2066 @0x13
0x2053…2074 at0014 = ╱41╱A╱ // 0x2067 @0x14
0x2053…2074 at0015 = ╱4c╱L╱ // 0x2068 @0x15
0x2053…2074 at0016 = ╱33╱3╱ // 0x2069 @0x16
0x2053…2074 at0017 = ╱ef╱$╱ // 0x206a @0x17
0x2053…2074 at0018 = ╱ec╱,╱ // 0x206b @0x18
0x2053…2074 at0019 = ╱52╱R╱ // 0x206c @0x19
0x2053…2074 at001a = ╱45╱E╱ // 0x206d @0x1a
0x2053…2074 at001b = ╱4e╱N╱ // 0x206e @0x1b
0x2053…2074 at001c = ╱54╱T╱ // 0x206f @0x1c
0x2053…2074 at001d = ╱45╱E╱ // 0x2070 @0x1d
0x2053…2074 at001e = ╱ef╱$╱ // 0x2071 @0x1e
0x2053…2074 at001f = ╱ee╱)╱ // 0x2072 @0x1f
0x2053…2074 at0020 = EOL // 0x2073 @0x20
0x2053…2074 }
0x2074…209b adf2 3220 EXEC CALC(4,RENTE$,MINREN$,TAL3$)
0x2074…209b LineComalBin {
0x2074…209b ptr = 0xadf2 // 0x2074 @0x0
0x2074…209b lno = 0x0c94 // 0x2076 @0x2
0x2074…209b at0004 = ╱9d╱ EXEC ╱ // 0x2078 @0x4
0x2074…209b at0005 = ╱43╱C╱ // 0x2079 @0x5
0x2074…209b at0006 = ╱41╱A╱ // 0x207a @0x6
0x2074…209b at0007 = ╱4c╱L╱ // 0x207b @0x7
0x2074…209b at0008 = ╱43╱C╱ // 0x207c @0x8
0x2074…209b at0009 = ╱ed╱(╱ // 0x207d @0x9
0x2074…209b at000a = ╱34╱4╱ // 0x207e @0xa
0x2074…209b at000b = ╱fe00008003╱ // 0x207f @0xb
0x2074…209b at0010 = ╱ec╱,╱ // 0x2084 @0x10
0x2074…209b at0011 = ╱52╱R╱ // 0x2085 @0x11
0x2074…209b at0012 = ╱45╱E╱ // 0x2086 @0x12
0x2074…209b at0013 = ╱4e╱N╱ // 0x2087 @0x13
0x2074…209b at0014 = ╱54╱T╱ // 0x2088 @0x14
0x2074…209b at0015 = ╱45╱E╱ // 0x2089 @0x15
0x2074…209b at0016 = ╱ef╱$╱ // 0x208a @0x16
0x2074…209b at0017 = ╱ec╱,╱ // 0x208b @0x17
0x2074…209b at0018 = ╱4d╱M╱ // 0x208c @0x18
0x2074…209b at0019 = ╱49╱I╱ // 0x208d @0x19
0x2074…209b at001a = ╱4e╱N╱ // 0x208e @0x1a
0x2074…209b at001b = ╱52╱R╱ // 0x208f @0x1b
0x2074…209b at001c = ╱45╱E╱ // 0x2090 @0x1c
0x2074…209b at001d = ╱4e╱N╱ // 0x2091 @0x1d
0x2074…209b at001e = ╱ef╱$╱ // 0x2092 @0x1e
0x2074…209b at001f = ╱ec╱,╱ // 0x2093 @0x1f
0x2074…209b at0020 = ╱54╱T╱ // 0x2094 @0x20
0x2074…209b at0021 = ╱41╱A╱ // 0x2095 @0x21
0x2074…209b at0022 = ╱4c╱L╱ // 0x2096 @0x22
0x2074…209b at0023 = ╱33╱3╱ // 0x2097 @0x23
0x2074…209b at0024 = ╱ef╱$╱ // 0x2098 @0x24
0x2074…209b at0025 = ╱ee╱)╱ // 0x2099 @0x25
0x2074…209b at0026 = EOL // 0x209a @0x26
0x2074…209b }
0x209b…20a6 adfd 3230 IF SI<>E THEN
0x209b…20a6 LineComalBin {
0x209b…20a6 ptr = 0xadfd // 0x209b @0x0
0x209b…20a6 lno = 0x0c9e // 0x209d @0x2
0x209b…20a6 at0004 = ╱9c╱ IF ╱ // 0x209f @0x4
0x209b…20a6 at0005 = ╱53╱S╱ // 0x20a0 @0x5
0x209b…20a6 at0006 = ╱49╱I╱ // 0x20a1 @0x6
0x209b…20a6 at0007 = ╱e1╱<>╱ // 0x20a2 @0x7
0x209b…20a6 at0008 = ╱45╱E╱ // 0x20a3 @0x8
0x209b…20a6 at0009 = ╱b6╱ THEN ╱ // 0x20a4 @0x9
0x209b…20a6 at000a = EOL // 0x20a5 @0xa
0x209b…20a6 }
0x20a6…20b4 ae0b 3240 REN=REN+E
0x20a6…20b4 LineComalBin {
0x20a6…20b4 ptr = 0xae0b // 0x20a6 @0x0
0x20a6…20b4 lno = 0x0ca8 // 0x20a8 @0x2
0x20a6…20b4 at0004 = ╱52╱R╱ // 0x20aa @0x4
0x20a6…20b4 at0005 = ╱45╱E╱ // 0x20ab @0x5
0x20a6…20b4 at0006 = ╱4e╱N╱ // 0x20ac @0x6
0x20a6…20b4 at0007 = ╱dc╱=╱ // 0x20ad @0x7
0x20a6…20b4 at0008 = ╱52╱R╱ // 0x20ae @0x8
0x20a6…20b4 at0009 = ╱45╱E╱ // 0x20af @0x9
0x20a6…20b4 at000a = ╱4e╱N╱ // 0x20b0 @0xa
0x20a6…20b4 at000b = ╱e2╱+╱ // 0x20b1 @0xb
0x20a6…20b4 at000c = ╱45╱E╱ // 0x20b2 @0xc
0x20a6…20b4 at000d = EOL // 0x20b3 @0xd
0x20a6…20b4 }
0x20b4…20e6 ae3d 3250 PUT K5$,REN:KONTO,DEBNAVN$,SALDO1$,SALDO$,RENTE$
0x20b4…20e6 LineComalBin {
0x20b4…20e6 ptr = 0xae3d // 0x20b4 @0x0
0x20b4…20e6 lno = 0x0cb2 // 0x20b6 @0x2
0x20b4…20e6 at0004 = ╱aa╱ PUT ╱ // 0x20b8 @0x4
0x20b4…20e6 at0005 = ╱4b╱K╱ // 0x20b9 @0x5
0x20b4…20e6 at0006 = ╱35╱5╱ // 0x20ba @0x6
0x20b4…20e6 at0007 = ╱ef╱$╱ // 0x20bb @0x7
0x20b4…20e6 at0008 = ╱ec╱,╱ // 0x20bc @0x8
0x20b4…20e6 at0009 = ╱52╱R╱ // 0x20bd @0x9
0x20b4…20e6 at000a = ╱45╱E╱ // 0x20be @0xa
0x20b4…20e6 at000b = ╱4e╱N╱ // 0x20bf @0xb
0x20b4…20e6 at000c = ╱f0╱:╱ // 0x20c0 @0xc
0x20b4…20e6 at000d = ╱4b╱K╱ // 0x20c1 @0xd
0x20b4…20e6 at000e = ╱4f╱O╱ // 0x20c2 @0xe
0x20b4…20e6 at000f = ╱4e╱N╱ // 0x20c3 @0xf
0x20b4…20e6 at0010 = ╱54╱T╱ // 0x20c4 @0x10
0x20b4…20e6 at0011 = ╱4f╱O╱ // 0x20c5 @0x11
0x20b4…20e6 at0012 = ╱ec╱,╱ // 0x20c6 @0x12
0x20b4…20e6 at0013 = ╱44╱D╱ // 0x20c7 @0x13
0x20b4…20e6 at0014 = ╱45╱E╱ // 0x20c8 @0x14
0x20b4…20e6 at0015 = ╱42╱B╱ // 0x20c9 @0x15
0x20b4…20e6 at0016 = ╱4e╱N╱ // 0x20ca @0x16
0x20b4…20e6 at0017 = ╱41╱A╱ // 0x20cb @0x17
0x20b4…20e6 at0018 = ╱56╱V╱ // 0x20cc @0x18
0x20b4…20e6 at0019 = ╱4e╱N╱ // 0x20cd @0x19
0x20b4…20e6 at001a = ╱ef╱$╱ // 0x20ce @0x1a
0x20b4…20e6 at001b = ╱ec╱,╱ // 0x20cf @0x1b
0x20b4…20e6 at001c = ╱53╱S╱ // 0x20d0 @0x1c
0x20b4…20e6 at001d = ╱41╱A╱ // 0x20d1 @0x1d
0x20b4…20e6 at001e = ╱4c╱L╱ // 0x20d2 @0x1e
0x20b4…20e6 at001f = ╱44╱D╱ // 0x20d3 @0x1f
0x20b4…20e6 at0020 = ╱4f╱O╱ // 0x20d4 @0x20
0x20b4…20e6 at0021 = ╱31╱1╱ // 0x20d5 @0x21
0x20b4…20e6 at0022 = ╱ef╱$╱ // 0x20d6 @0x22
0x20b4…20e6 at0023 = ╱ec╱,╱ // 0x20d7 @0x23
0x20b4…20e6 at0024 = ╱53╱S╱ // 0x20d8 @0x24
0x20b4…20e6 at0025 = ╱41╱A╱ // 0x20d9 @0x25
0x20b4…20e6 at0026 = ╱4c╱L╱ // 0x20da @0x26
0x20b4…20e6 at0027 = ╱44╱D╱ // 0x20db @0x27
0x20b4…20e6 at0028 = ╱4f╱O╱ // 0x20dc @0x28
0x20b4…20e6 at0029 = ╱ef╱$╱ // 0x20dd @0x29
0x20b4…20e6 at002a = ╱ec╱,╱ // 0x20de @0x2a
0x20b4…20e6 at002b = ╱52╱R╱ // 0x20df @0x2b
0x20b4…20e6 at002c = ╱45╱E╱ // 0x20e0 @0x2c
0x20b4…20e6 at002d = ╱4e╱N╱ // 0x20e1 @0x2d
0x20b4…20e6 at002e = ╱54╱T╱ // 0x20e2 @0x2e
0x20b4…20e6 at002f = ╱45╱E╱ // 0x20e3 @0x2f
0x20b4…20e6 at0030 = ╱ef╱$╱ // 0x20e4 @0x30
0x20b4…20e6 at0031 = EOL // 0x20e5 @0x31
0x20b4…20e6 }
0x20e6…20f9 ae50 3260 EXEC FEJL(G,E,K5$)
0x20e6…20f9 LineComalBin {
0x20e6…20f9 ptr = 0xae50 // 0x20e6 @0x0
0x20e6…20f9 lno = 0x0cbc // 0x20e8 @0x2
0x20e6…20f9 at0004 = ╱9d╱ EXEC ╱ // 0x20ea @0x4
0x20e6…20f9 at0005 = ╱46╱F╱ // 0x20eb @0x5
0x20e6…20f9 at0006 = ╱45╱E╱ // 0x20ec @0x6
0x20e6…20f9 at0007 = ╱4a╱J╱ // 0x20ed @0x7
0x20e6…20f9 at0008 = ╱4c╱L╱ // 0x20ee @0x8
0x20e6…20f9 at0009 = ╱ed╱(╱ // 0x20ef @0x9
0x20e6…20f9 at000a = ╱47╱G╱ // 0x20f0 @0xa
0x20e6…20f9 at000b = ╱ec╱,╱ // 0x20f1 @0xb
0x20e6…20f9 at000c = ╱45╱E╱ // 0x20f2 @0xc
0x20e6…20f9 at000d = ╱ec╱,╱ // 0x20f3 @0xd
0x20e6…20f9 at000e = ╱4b╱K╱ // 0x20f4 @0xe
0x20e6…20f9 at000f = ╱35╱5╱ // 0x20f5 @0xf
0x20e6…20f9 at0010 = ╱ef╱$╱ // 0x20f6 @0x10
0x20e6…20f9 at0011 = ╱ee╱)╱ // 0x20f7 @0x11
0x20e6…20f9 at0012 = EOL // 0x20f8 @0x12
0x20e6…20f9 }
0x20f9…20ff ae56 3265 ENDIF
0x20f9…20ff LineComalBin {
0x20f9…20ff ptr = 0xae56 // 0x20f9 @0x0
0x20f9…20ff lno = 0x0cc1 // 0x20fb @0x2
0x20f9…20ff at0004 = ╱9b╱ ENDIF ╱ // 0x20fd @0x4
0x20f9…20ff at0005 = EOL // 0x20fe @0x5
0x20f9…20ff }
0x20ff…2105 ae5c 3270 ENDIF
0x20ff…2105 LineComalBin {
0x20ff…2105 ptr = 0xae5c // 0x20ff @0x0
0x20ff…2105 lno = 0x0cc6 // 0x2101 @0x2
0x20ff…2105 at0004 = ╱9b╱ ENDIF ╱ // 0x2103 @0x4
0x20ff…2105 at0005 = EOL // 0x2104 @0x5
0x20ff…2105 }
0x2105…210b ae62 3280 ENDIF
0x2105…210b LineComalBin {
0x2105…210b ptr = 0xae62 // 0x2105 @0x0
0x2105…210b lno = 0x0cd0 // 0x2107 @0x2
0x2105…210b at0004 = ╱9b╱ ENDIF ╱ // 0x2109 @0x4
0x2105…210b at0005 = EOL // 0x210a @0x5
0x2105…210b }
0x210b…2131 ae88 3290 IF DTAB3(DPIL3,E)>TILNR OR REN=>MDMID THEN EXIT
0x210b…2131 LineComalBin {
0x210b…2131 ptr = 0xae88 // 0x210b @0x0
0x210b…2131 lno = 0x0cda // 0x210d @0x2
0x210b…2131 at0004 = ╱82╱ IF ╱ // 0x210f @0x4
0x210b…2131 at0005 = ╱44╱D╱ // 0x2110 @0x5
0x210b…2131 at0006 = ╱54╱T╱ // 0x2111 @0x6
0x210b…2131 at0007 = ╱41╱A╱ // 0x2112 @0x7
0x210b…2131 at0008 = ╱42╱B╱ // 0x2113 @0x8
0x210b…2131 at0009 = ╱33╱3╱ // 0x2114 @0x9
0x210b…2131 at000a = ╱ed╱(╱ // 0x2115 @0xa
0x210b…2131 at000b = ╱44╱D╱ // 0x2116 @0xb
0x210b…2131 at000c = ╱50╱P╱ // 0x2117 @0xc
0x210b…2131 at000d = ╱49╱I╱ // 0x2118 @0xd
0x210b…2131 at000e = ╱4c╱L╱ // 0x2119 @0xe
0x210b…2131 at000f = ╱33╱3╱ // 0x211a @0xf
0x210b…2131 at0010 = ╱ec╱,╱ // 0x211b @0x10
0x210b…2131 at0011 = ╱45╱E╱ // 0x211c @0x11
0x210b…2131 at0012 = ╱ee╱)╱ // 0x211d @0x12
0x210b…2131 at0013 = ╱de╱>╱ // 0x211e @0x13
0x210b…2131 at0014 = ╱54╱T╱ // 0x211f @0x14
0x210b…2131 at0015 = ╱49╱I╱ // 0x2120 @0x15
0x210b…2131 at0016 = ╱4c╱L╱ // 0x2121 @0x16
0x210b…2131 at0017 = ╱4e╱N╱ // 0x2122 @0x17
0x210b…2131 at0018 = ╱52╱R╱ // 0x2123 @0x18
0x210b…2131 at0019 = ╱db╱ OR ╱ // 0x2124 @0x19
0x210b…2131 at001a = ╱52╱R╱ // 0x2125 @0x1a
0x210b…2131 at001b = ╱45╱E╱ // 0x2126 @0x1b
0x210b…2131 at001c = ╱4e╱N╱ // 0x2127 @0x1c
0x210b…2131 at001d = ╱e0╱=>╱ // 0x2128 @0x1d
0x210b…2131 at001e = ╱4d╱M╱ // 0x2129 @0x1e
0x210b…2131 at001f = ╱44╱D╱ // 0x212a @0x1f
0x210b…2131 at0020 = ╱4d╱M╱ // 0x212b @0x20
0x210b…2131 at0021 = ╱49╱I╱ // 0x212c @0x21
0x210b…2131 at0022 = ╱44╱D╱ // 0x212d @0x22
0x210b…2131 at0023 = ╱b6╱ THEN ╱ // 0x212e @0x23
0x210b…2131 at0024 = ╱99╱ EXIT ╱ // 0x212f @0x24
0x210b…2131 at0025 = EOL // 0x2130 @0x25
0x210b…2131 }
0x2131…213c ae93 3300 NEXT DPIL3
0x2131…213c LineComalBin {
0x2131…213c ptr = 0xae93 // 0x2131 @0x0
0x2131…213c lno = 0x0ce4 // 0x2133 @0x2
0x2131…213c at0004 = ╱84╱ NEXT ╱ // 0x2135 @0x4
0x2131…213c at0005 = ╱44╱D╱ // 0x2136 @0x5
0x2131…213c at0006 = ╱50╱P╱ // 0x2137 @0x6
0x2131…213c at0007 = ╱49╱I╱ // 0x2138 @0x7
0x2131…213c at0008 = ╱4c╱L╱ // 0x2139 @0x8
0x2131…213c at0009 = ╱33╱3╱ // 0x213a @0x9
0x2131…213c at000a = EOL // 0x213b @0xa
0x2131…213c }
0x213c…2147 ae9e 3310 NEXT DPIL1
0x213c…2147 LineComalBin {
0x213c…2147 ptr = 0xae9e // 0x213c @0x0
0x213c…2147 lno = 0x0cee // 0x213e @0x2
0x213c…2147 at0004 = ╱84╱ NEXT ╱ // 0x2140 @0x4
0x213c…2147 at0005 = ╱44╱D╱ // 0x2141 @0x5
0x213c…2147 at0006 = ╱50╱P╱ // 0x2142 @0x6
0x213c…2147 at0007 = ╱49╱I╱ // 0x2143 @0x7
0x213c…2147 at0008 = ╱4c╱L╱ // 0x2144 @0x8
0x213c…2147 at0009 = ╱31╱1╱ // 0x2145 @0x9
0x213c…2147 at000a = EOL // 0x2146 @0xa
0x213c…2147 }
0x2147…2157 aeae 3320 IF REN=MDMID THEN
0x2147…2157 LineComalBin {
0x2147…2157 ptr = 0xaeae // 0x2147 @0x0
0x2147…2157 lno = 0x0cf8 // 0x2149 @0x2
0x2147…2157 at0004 = ╱9c╱ IF ╱ // 0x214b @0x4
0x2147…2157 at0005 = ╱52╱R╱ // 0x214c @0x5
0x2147…2157 at0006 = ╱45╱E╱ // 0x214d @0x6
0x2147…2157 at0007 = ╱4e╱N╱ // 0x214e @0x7
0x2147…2157 at0008 = ╱dc╱=╱ // 0x214f @0x8
0x2147…2157 at0009 = ╱4d╱M╱ // 0x2150 @0x9
0x2147…2157 at000a = ╱44╱D╱ // 0x2151 @0xa
0x2147…2157 at000b = ╱4d╱M╱ // 0x2152 @0xb
0x2147…2157 at000c = ╱49╱I╱ // 0x2153 @0xc
0x2147…2157 at000d = ╱44╱D╱ // 0x2154 @0xd
0x2147…2157 at000e = ╱b6╱ THEN ╱ // 0x2155 @0xe
0x2147…2157 at000f = EOL // 0x2156 @0xf
0x2147…2157 }
0x2157…215d aeb4 3330 CLEAR
0x2157…215d LineComalBin {
0x2157…215d ptr = 0xaeb4 // 0x2157 @0x0
0x2157…215d lno = 0x0d02 // 0x2159 @0x2
0x2157…215d at0004 = ╱a0╱ CLEAR ╱ // 0x215b @0x4
0x2157…215d at0005 = EOL // 0x215c @0x5
0x2157…215d }
0x215d…2163 aeba 3340 REPEAT
0x215d…2163 LineComalBin {
0x215d…2163 ptr = 0xaeba // 0x215d @0x0
0x215d…2163 lno = 0x0d0c // 0x215f @0x2
0x215d…2163 at0004 = ╱97╱ REPEAT ╱ // 0x2161 @0x4
0x215d…2163 at0005 = EOL // 0x2162 @0x5
0x215d…2163 }
0x2163…2178 (111,) aecf 3350 CURSOR 15,13
0x2163…2178 LineComalBin {
0x2163…2178 ptr = 0xaecf // 0x2163 @0x0
0x2163…2178 lno = 0x0d16 // 0x2165 @0x2
0x2163…2178 at0004 = ╱a1╱ CURSOR ╱ // 0x2167 @0x4
0x2163…2178 at0005 = ╱31╱1╱ // 0x2168 @0x5
0x2163…2178 at0006 = ╱35╱5╱ // 0x2169 @0x6
0x2163…2178 at0007 = ╱fe0000f004╱ // 0x216a @0x7
0x2163…2178 at000c = ╱ec╱,╱ // 0x216f @0xc
0x2163…2178 at000d = ╱31╱1╱ // 0x2170 @0xd
0x2163…2178 at000e = ╱33╱3╱ // 0x2171 @0xe
0x2163…2178 at000f = ╱fe0000d004╱ // 0x2172 @0xf
0x2163…2178 at0014 = EOL // 0x2177 @0x14
0x2163…2178 }
0x2178…21b4 af0b 3360 INPUT "Ikke plads til flere renteposteringer,tast RETURN",A$
0x2178…21b4 LineComalBin {
0x2178…21b4 ptr = 0xaf0b // 0x2178 @0x0
0x2178…21b4 lno = 0x0d20 // 0x217a @0x2
0x2178…21b4 at0004 = ╱91╱ INPUT ╱ // 0x217c @0x4
0x2178…21b4 at0005 = ╱22╱"╱ // 0x217d @0x5
0x2178…21b4 at0006 = ╱49╱I╱ // 0x217e @0x6
0x2178…21b4 at0007 = ╱6b╱k╱ // 0x217f @0x7
0x2178…21b4 at0008 = ╱6b╱k╱ // 0x2180 @0x8
0x2178…21b4 at0009 = ╱65╱e╱ // 0x2181 @0x9
0x2178…21b4 at000a = ╱20╱…╱ // 0x2182 @0xa
0x2178…21b4 at000b = ╱70╱p╱ // 0x2183 @0xb
0x2178…21b4 at000c = ╱6c╱l╱ // 0x2184 @0xc
0x2178…21b4 at000d = ╱61╱a╱ // 0x2185 @0xd
0x2178…21b4 at000e = ╱64╱d╱ // 0x2186 @0xe
0x2178…21b4 at000f = ╱73╱s╱ // 0x2187 @0xf
0x2178…21b4 at0010 = ╱20╱…╱ // 0x2188 @0x10
0x2178…21b4 at0011 = ╱74╱t╱ // 0x2189 @0x11
0x2178…21b4 at0012 = ╱69╱i╱ // 0x218a @0x12
0x2178…21b4 at0013 = ╱6c╱l╱ // 0x218b @0x13
0x2178…21b4 at0014 = ╱20╱…╱ // 0x218c @0x14
0x2178…21b4 at0015 = ╱66╱f╱ // 0x218d @0x15
0x2178…21b4 at0016 = ╱6c╱l╱ // 0x218e @0x16
0x2178…21b4 at0017 = ╱65╱e╱ // 0x218f @0x17
0x2178…21b4 at0018 = ╱72╱r╱ // 0x2190 @0x18
0x2178…21b4 at0019 = ╱65╱e╱ // 0x2191 @0x19
0x2178…21b4 at001a = ╱20╱…╱ // 0x2192 @0x1a
0x2178…21b4 at001b = ╱72╱r╱ // 0x2193 @0x1b
0x2178…21b4 at001c = ╱65╱e╱ // 0x2194 @0x1c
0x2178…21b4 at001d = ╱6e╱n╱ // 0x2195 @0x1d
0x2178…21b4 at001e = ╱74╱t╱ // 0x2196 @0x1e
0x2178…21b4 at001f = ╱65╱e╱ // 0x2197 @0x1f
0x2178…21b4 at0020 = ╱70╱p╱ // 0x2198 @0x20
0x2178…21b4 at0021 = ╱6f╱o╱ // 0x2199 @0x21
0x2178…21b4 at0022 = ╱73╱s╱ // 0x219a @0x22
0x2178…21b4 at0023 = ╱74╱t╱ // 0x219b @0x23
0x2178…21b4 at0024 = ╱65╱e╱ // 0x219c @0x24
0x2178…21b4 at0025 = ╱72╱r╱ // 0x219d @0x25
0x2178…21b4 at0026 = ╱69╱i╱ // 0x219e @0x26
0x2178…21b4 at0027 = ╱6e╱n╱ // 0x219f @0x27
0x2178…21b4 at0028 = ╱67╱g╱ // 0x21a0 @0x28
0x2178…21b4 at0029 = ╱65╱e╱ // 0x21a1 @0x29
0x2178…21b4 at002a = ╱72╱r╱ // 0x21a2 @0x2a
0x2178…21b4 at002b = ╱2c╱,╱ // 0x21a3 @0x2b
0x2178…21b4 at002c = ╱74╱t╱ // 0x21a4 @0x2c
0x2178…21b4 at002d = ╱61╱a╱ // 0x21a5 @0x2d
0x2178…21b4 at002e = ╱73╱s╱ // 0x21a6 @0x2e
0x2178…21b4 at002f = ╱74╱t╱ // 0x21a7 @0x2f
0x2178…21b4 at0030 = ╱20╱…╱ // 0x21a8 @0x30
0x2178…21b4 at0031 = ╱52╱R╱ // 0x21a9 @0x31
0x2178…21b4 at0032 = ╱45╱E╱ // 0x21aa @0x32
0x2178…21b4 at0033 = ╱54╱T╱ // 0x21ab @0x33
0x2178…21b4 at0034 = ╱55╱U╱ // 0x21ac @0x34
0x2178…21b4 at0035 = ╱52╱R╱ // 0x21ad @0x35
0x2178…21b4 at0036 = ╱4e╱N╱ // 0x21ae @0x36
0x2178…21b4 at0037 = ╱22╱"╱ // 0x21af @0x37
0x2178…21b4 at0038 = ╱ec╱,╱ // 0x21b0 @0x38
0x2178…21b4 at0039 = ╱41╱A╱ // 0x21b1 @0x39
0x2178…21b4 at003a = ╱ef╱$╱ // 0x21b2 @0x3a
0x2178…21b4 at003b = EOL // 0x21b3 @0x3b
0x2178…21b4 }
0x21b4…21c4 af1b 3370 EXEC NRTEST(A$)
0x21b4…21c4 LineComalBin {
0x21b4…21c4 ptr = 0xaf1b // 0x21b4 @0x0
0x21b4…21c4 lno = 0x0d2a // 0x21b6 @0x2
0x21b4…21c4 at0004 = ╱9d╱ EXEC ╱ // 0x21b8 @0x4
0x21b4…21c4 at0005 = ╱4e╱N╱ // 0x21b9 @0x5
0x21b4…21c4 at0006 = ╱52╱R╱ // 0x21ba @0x6
0x21b4…21c4 at0007 = ╱54╱T╱ // 0x21bb @0x7
0x21b4…21c4 at0008 = ╱45╱E╱ // 0x21bc @0x8
0x21b4…21c4 at0009 = ╱53╱S╱ // 0x21bd @0x9
0x21b4…21c4 at000a = ╱54╱T╱ // 0x21be @0xa
0x21b4…21c4 at000b = ╱ed╱(╱ // 0x21bf @0xb
0x21b4…21c4 at000c = ╱41╱A╱ // 0x21c0 @0xc
0x21b4…21c4 at000d = ╱ef╱$╱ // 0x21c1 @0xd
0x21b4…21c4 at000e = ╱ee╱)╱ // 0x21c2 @0xe
0x21b4…21c4 at000f = EOL // 0x21c3 @0xf
0x21b4…21c4 }
0x21c4…21ce af25 3380 UNTIL P=-E
0x21c4…21ce LineComalBin {
0x21c4…21ce ptr = 0xaf25 // 0x21c4 @0x0
0x21c4…21ce lno = 0x0d34 // 0x21c6 @0x2
0x21c4…21ce at0004 = ╱98╱ UNTIL ╱ // 0x21c8 @0x4
0x21c4…21ce at0005 = ╱50╱P╱ // 0x21c9 @0x5
0x21c4…21ce at0006 = ╱dc╱=╱ // 0x21ca @0x6
0x21c4…21ce at0007 = ╱e9╱-╱ // 0x21cb @0x7
0x21c4…21ce at0008 = ╱45╱E╱ // 0x21cc @0x8
0x21c4…21ce at0009 = EOL // 0x21cd @0x9
0x21c4…21ce }
0x21ce…21d4 af2b 3390 ENDIF
0x21ce…21d4 LineComalBin {
0x21ce…21d4 ptr = 0xaf2b // 0x21ce @0x0
0x21ce…21d4 lno = 0x0d3e // 0x21d0 @0x2
0x21ce…21d4 at0004 = ╱9b╱ ENDIF ╱ // 0x21d2 @0x4
0x21ce…21d4 at0005 = EOL // 0x21d3 @0x5
0x21ce…21d4 }
0x21d4…21da af31 3400 CLEAR
0x21d4…21da LineComalBin {
0x21d4…21da ptr = 0xaf31 // 0x21d4 @0x0
0x21d4…21da lno = 0x0d48 // 0x21d6 @0x2
0x21d4…21da at0004 = ╱a0╱ CLEAR ╱ // 0x21d8 @0x4
0x21d4…21da at0005 = EOL // 0x21d9 @0x5
0x21d4…21da }
0x21da…21e0 af37 3410 REPEAT
0x21da…21e0 LineComalBin {
0x21da…21e0 ptr = 0xaf37 // 0x21da @0x0
0x21da…21e0 lno = 0x0d52 // 0x21dc @0x2
0x21da…21e0 at0004 = ╱97╱ REPEAT ╱ // 0x21de @0x4
0x21da…21e0 at0005 = EOL // 0x21df @0x5
0x21da…21e0 }
0x21e0…21f5 af4c 3420 CURSOR 15,13
0x21e0…21f5 LineComalBin {
0x21e0…21f5 ptr = 0xaf4c // 0x21e0 @0x0
0x21e0…21f5 lno = 0x0d5c // 0x21e2 @0x2
0x21e0…21f5 at0004 = ╱a1╱ CURSOR ╱ // 0x21e4 @0x4
0x21e0…21f5 at0005 = ╱31╱1╱ // 0x21e5 @0x5
0x21e0…21f5 at0006 = ╱35╱5╱ // 0x21e6 @0x6
0x21e0…21f5 at0007 = ╱fe0000f004╱ // 0x21e7 @0x7
0x21e0…21f5 at000c = ╱ec╱,╱ // 0x21ec @0xc
0x21e0…21f5 at000d = ╱31╱1╱ // 0x21ed @0xd
0x21e0…21f5 at000e = ╱33╱3╱ // 0x21ee @0xe
0x21e0…21f5 at000f = ╱fe0000d004╱ // 0x21ef @0xf
0x21e0…21f5 at0014 = EOL // 0x21f4 @0x14
0x21e0…21f5 }
0x21f5…221e af75 3430 INPUT "Ønskes liste udskrevet (J/N): ",A$
0x21f5…221e LineComalBin {
0x21f5…221e ptr = 0xaf75 // 0x21f5 @0x0
0x21f5…221e lno = 0x0d66 // 0x21f7 @0x2
0x21f5…221e at0004 = ╱91╱ INPUT ╱ // 0x21f9 @0x4
0x21f5…221e at0005 = ╱22╱"╱ // 0x21fa @0x5
0x21f5…221e at0006 = ╱5c╱Ø╱ // 0x21fb @0x6
0x21f5…221e at0007 = ╱6e╱n╱ // 0x21fc @0x7
0x21f5…221e at0008 = ╱73╱s╱ // 0x21fd @0x8
0x21f5…221e at0009 = ╱6b╱k╱ // 0x21fe @0x9
0x21f5…221e at000a = ╱65╱e╱ // 0x21ff @0xa
0x21f5…221e at000b = ╱73╱s╱ // 0x2200 @0xb
0x21f5…221e at000c = ╱20╱…╱ // 0x2201 @0xc
0x21f5…221e at000d = ╱6c╱l╱ // 0x2202 @0xd
0x21f5…221e at000e = ╱69╱i╱ // 0x2203 @0xe
0x21f5…221e at000f = ╱73╱s╱ // 0x2204 @0xf
0x21f5…221e at0010 = ╱74╱t╱ // 0x2205 @0x10
0x21f5…221e at0011 = ╱65╱e╱ // 0x2206 @0x11
0x21f5…221e at0012 = ╱20╱…╱ // 0x2207 @0x12
0x21f5…221e at0013 = ╱75╱u╱ // 0x2208 @0x13
0x21f5…221e at0014 = ╱64╱d╱ // 0x2209 @0x14
0x21f5…221e at0015 = ╱73╱s╱ // 0x220a @0x15
0x21f5…221e at0016 = ╱6b╱k╱ // 0x220b @0x16
0x21f5…221e at0017 = ╱72╱r╱ // 0x220c @0x17
0x21f5…221e at0018 = ╱65╱e╱ // 0x220d @0x18
0x21f5…221e at0019 = ╱76╱v╱ // 0x220e @0x19
0x21f5…221e at001a = ╱65╱e╱ // 0x220f @0x1a
0x21f5…221e at001b = ╱74╱t╱ // 0x2210 @0x1b
0x21f5…221e at001c = ╱20╱…╱ // 0x2211 @0x1c
0x21f5…221e at001d = ╱28╱(╱ // 0x2212 @0x1d
0x21f5…221e at001e = ╱4a╱J╱ // 0x2213 @0x1e
0x21f5…221e at001f = ╱2f╱/╱ // 0x2214 @0x1f
0x21f5…221e at0020 = ╱4e╱N╱ // 0x2215 @0x20
0x21f5…221e at0021 = ╱29╱)╱ // 0x2216 @0x21
0x21f5…221e at0022 = ╱3a╱:╱ // 0x2217 @0x22
0x21f5…221e at0023 = ╱20╱…╱ // 0x2218 @0x23
0x21f5…221e at0024 = ╱22╱"╱ // 0x2219 @0x24
0x21f5…221e at0025 = ╱ec╱,╱ // 0x221a @0x25
0x21f5…221e at0026 = ╱41╱A╱ // 0x221b @0x26
0x21f5…221e at0027 = ╱ef╱$╱ // 0x221c @0x27
0x21f5…221e at0028 = EOL // 0x221d @0x28
0x21f5…221e }
0x221e…222e af85 3440 EXEC NRTEST(A$)
0x221e…222e LineComalBin {
0x221e…222e ptr = 0xaf85 // 0x221e @0x0
0x221e…222e lno = 0x0d70 // 0x2220 @0x2
0x221e…222e at0004 = ╱9d╱ EXEC ╱ // 0x2222 @0x4
0x221e…222e at0005 = ╱4e╱N╱ // 0x2223 @0x5
0x221e…222e at0006 = ╱52╱R╱ // 0x2224 @0x6
0x221e…222e at0007 = ╱54╱T╱ // 0x2225 @0x7
0x221e…222e at0008 = ╱45╱E╱ // 0x2226 @0x8
0x221e…222e at0009 = ╱53╱S╱ // 0x2227 @0x9
0x221e…222e at000a = ╱54╱T╱ // 0x2228 @0xa
0x221e…222e at000b = ╱ed╱(╱ // 0x2229 @0xb
0x221e…222e at000c = ╱41╱A╱ // 0x222a @0xc
0x221e…222e at000d = ╱ef╱$╱ // 0x222b @0xd
0x221e…222e at000e = ╱ee╱)╱ // 0x222c @0xe
0x221e…222e at000f = EOL // 0x222d @0xf
0x221e…222e }
0x222e…2247 af9e 3450 UNTIL P=-7 OR P=-8
0x222e…2247 LineComalBin {
0x222e…2247 ptr = 0xaf9e // 0x222e @0x0
0x222e…2247 lno = 0x0d7a // 0x2230 @0x2
0x222e…2247 at0004 = ╱98╱ UNTIL ╱ // 0x2232 @0x4
0x222e…2247 at0005 = ╱50╱P╱ // 0x2233 @0x5
0x222e…2247 at0006 = ╱dc╱=╱ // 0x2234 @0x6
0x222e…2247 at0007 = ╱e9╱-╱ // 0x2235 @0x7
0x222e…2247 at0008 = ╱37╱7╱ // 0x2236 @0x8
0x222e…2247 at0009 = ╱fe0000e003╱ // 0x2237 @0x9
0x222e…2247 at000e = ╱db╱ OR ╱ // 0x223c @0xe
0x222e…2247 at000f = ╱50╱P╱ // 0x223d @0xf
0x222e…2247 at0010 = ╱dc╱=╱ // 0x223e @0x10
0x222e…2247 at0011 = ╱e9╱-╱ // 0x223f @0x11
0x222e…2247 at0012 = ╱38╱8╱ // 0x2240 @0x12
0x222e…2247 at0013 = ╱fe00008004╱ // 0x2241 @0x13
0x222e…2247 at0018 = EOL // 0x2246 @0x18
0x222e…2247 }
0x2247…2277 afce 3460 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1)
0x2247…2277 LineComalBin {
0x2247…2277 ptr = 0xafce // 0x2247 @0x0
0x2247…2277 lno = 0x0d84 // 0x2249 @0x2
0x2247…2277 at0004 = ╱82╱ IF ╱ // 0x224b @0x4
0x2247…2277 at0005 = ╱50╱P╱ // 0x224c @0x5
0x2247…2277 at0006 = ╱dc╱=╱ // 0x224d @0x6
0x2247…2277 at0007 = ╱e9╱-╱ // 0x224e @0x7
0x2247…2277 at0008 = ╱37╱7╱ // 0x224f @0x8
0x2247…2277 at0009 = ╱fe0000e003╱ // 0x2250 @0x9
0x2247…2277 at000e = ╱b6╱ THEN ╱ // 0x2255 @0xe
0x2247…2277 at000f = ╱9d╱ EXEC ╱ // 0x2256 @0xf
0x2247…2277 at0010 = ╱53╱S╱ // 0x2257 @0x10
0x2247…2277 at0011 = ╱4b╱K╱ // 0x2258 @0x11
0x2247…2277 at0012 = ╱52╱R╱ // 0x2259 @0x12
0x2247…2277 at0013 = ╱49╱I╱ // 0x225a @0x13
0x2247…2277 at0014 = ╱56╱V╱ // 0x225b @0x14
0x2247…2277 at0015 = ╱4c╱L╱ // 0x225c @0x15
0x2247…2277 at0016 = ╱49╱I╱ // 0x225d @0x16
0x2247…2277 at0017 = ╱53╱S╱ // 0x225e @0x17
0x2247…2277 at0018 = ╱54╱T╱ // 0x225f @0x18
0x2247…2277 at0019 = ╱ed╱(╱ // 0x2260 @0x19
0x2247…2277 at001a = ╱54╱T╱ // 0x2261 @0x1a
0x2247…2277 at001b = ╱58╱X╱ // 0x2262 @0x1b
0x2247…2277 at001c = ╱54╱T╱ // 0x2263 @0x1c
0x2247…2277 at001d = ╱31╱1╱ // 0x2264 @0x1d
0x2247…2277 at001e = ╱ef╱$╱ // 0x2265 @0x1e
0x2247…2277 at001f = ╱ed╱(╱ // 0x2266 @0x1f
0x2247…2277 at0020 = ╱35╱5╱ // 0x2267 @0x20
0x2247…2277 at0021 = ╱fe0000a003╱ // 0x2268 @0x21
0x2247…2277 at0026 = ╱ee╱)╱ // 0x226d @0x26
0x2247…2277 at0027 = ╱ec╱,╱ // 0x226e @0x27
0x2247…2277 at0028 = ╱31╱1╱ // 0x226f @0x28
0x2247…2277 at0029 = ╱fe00008001╱ // 0x2270 @0x29
0x2247…2277 at002e = ╱ee╱)╱ // 0x2275 @0x2e
0x2247…2277 at002f = EOL // 0x2276 @0x2f
0x2247…2277 }
0x2277…227f afd6 3470 WHEN G
0x2277…227f LineComalBin {
0x2277…227f ptr = 0xafd6 // 0x2277 @0x0
0x2277…227f lno = 0x0d8e // 0x2279 @0x2
0x2277…227f at0004 = ╱a301╱ WHEN ╱ // 0x227b @0x4
0x2277…227f at0006 = ╱47╱G╱ // 0x227d @0x6
0x2277…227f at0007 = EOL // 0x227e @0x7
0x2277…227f }
0x227f…22b2 b009 3480 MUL$="4";TKO$=CHR(23+48);TORENTE$="0+"
0x227f…22b2 LineComalBin {
0x227f…22b2 ptr = 0xb009 // 0x227f @0x0
0x227f…22b2 lno = 0x0d98 // 0x2281 @0x2
0x227f…22b2 at0004 = ╱4d╱M╱ // 0x2283 @0x4
0x227f…22b2 at0005 = ╱55╱U╱ // 0x2284 @0x5
0x227f…22b2 at0006 = ╱4c╱L╱ // 0x2285 @0x6
0x227f…22b2 at0007 = ╱ef╱$╱ // 0x2286 @0x7
0x227f…22b2 at0008 = ╱dc╱=╱ // 0x2287 @0x8
0x227f…22b2 at0009 = ╱22╱"╱ // 0x2288 @0x9
0x227f…22b2 at000a = ╱34╱4╱ // 0x2289 @0xa
0x227f…22b2 at000b = ╱22╱"╱ // 0x228a @0xb
0x227f…22b2 at000c = ╱eb╱;╱ // 0x228b @0xc
0x227f…22b2 at000d = ╱54╱T╱ // 0x228c @0xd
0x227f…22b2 at000e = ╱4b╱K╱ // 0x228d @0xe
0x227f…22b2 at000f = ╱4f╱O╱ // 0x228e @0xf
0x227f…22b2 at0010 = ╱ef╱$╱ // 0x228f @0x10
0x227f…22b2 at0011 = ╱dc╱=╱ // 0x2290 @0x11
0x227f…22b2 at0012 = ╱cf╱CHR╱ // 0x2291 @0x12
0x227f…22b2 at0013 = ╱ed╱(╱ // 0x2292 @0x13
0x227f…22b2 at0014 = ╱32╱2╱ // 0x2293 @0x14
0x227f…22b2 at0015 = ╱33╱3╱ // 0x2294 @0x15
0x227f…22b2 at0016 = ╱fe0000b805╱ // 0x2295 @0x16
0x227f…22b2 at001b = ╱e2╱+╱ // 0x229a @0x1b
0x227f…22b2 at001c = ╱34╱4╱ // 0x229b @0x1c
0x227f…22b2 at001d = ╱38╱8╱ // 0x229c @0x1d
0x227f…22b2 at001e = ╱fe0000c006╱ // 0x229d @0x1e
0x227f…22b2 at0023 = ╱ee╱)╱ // 0x22a2 @0x23
0x227f…22b2 at0024 = ╱eb╱;╱ // 0x22a3 @0x24
0x227f…22b2 at0025 = ╱54╱T╱ // 0x22a4 @0x25
0x227f…22b2 at0026 = ╱4f╱O╱ // 0x22a5 @0x26
0x227f…22b2 at0027 = ╱52╱R╱ // 0x22a6 @0x27
0x227f…22b2 at0028 = ╱45╱E╱ // 0x22a7 @0x28
0x227f…22b2 at0029 = ╱4e╱N╱ // 0x22a8 @0x29
0x227f…22b2 at002a = ╱54╱T╱ // 0x22a9 @0x2a
0x227f…22b2 at002b = ╱45╱E╱ // 0x22aa @0x2b
0x227f…22b2 at002c = ╱ef╱$╱ // 0x22ab @0x2c
0x227f…22b2 at002d = ╱dc╱=╱ // 0x22ac @0x2d
0x227f…22b2 at002e = ╱22╱"╱ // 0x22ad @0x2e
0x227f…22b2 at002f = ╱30╱0╱ // 0x22ae @0x2f
0x227f…22b2 at0030 = ╱2b╱+╱ // 0x22af @0x30
0x227f…22b2 at0031 = ╱22╱"╱ // 0x22b0 @0x31
0x227f…22b2 at0032 = EOL // 0x22b1 @0x32
0x227f…22b2 }
0x22b2…22c4 b01b 3490 FOR RENNR1=E TO REN
0x22b2…22c4 LineComalBin {
0x22b2…22c4 ptr = 0xb01b // 0x22b2 @0x0
0x22b2…22c4 lno = 0x0da2 // 0x22b4 @0x2
0x22b2…22c4 at0004 = ╱83╱ FOR ╱ // 0x22b6 @0x4
0x22b2…22c4 at0005 = ╱52╱R╱ // 0x22b7 @0x5
0x22b2…22c4 at0006 = ╱45╱E╱ // 0x22b8 @0x6
0x22b2…22c4 at0007 = ╱4e╱N╱ // 0x22b9 @0x7
0x22b2…22c4 at0008 = ╱4e╱N╱ // 0x22ba @0x8
0x22b2…22c4 at0009 = ╱52╱R╱ // 0x22bb @0x9
0x22b2…22c4 at000a = ╱31╱1╱ // 0x22bc @0xa
0x22b2…22c4 at000b = ╱dc╱=╱ // 0x22bd @0xb
0x22b2…22c4 at000c = ╱45╱E╱ // 0x22be @0xc
0x22b2…22c4 at000d = ╱b7╱ TO ╱ // 0x22bf @0xd
0x22b2…22c4 at000e = ╱52╱R╱ // 0x22c0 @0xe
0x22b2…22c4 at000f = ╱45╱E╱ // 0x22c1 @0xf
0x22b2…22c4 at0010 = ╱4e╱N╱ // 0x22c2 @0x10
0x22b2…22c4 at0011 = EOL // 0x22c3 @0x11
0x22b2…22c4 }
0x22c4…22f6 b04d 3500 GET K5$,RENNR1:KONTO,NAVN$,SALDO1$,SALDO$,RENTE$
0x22c4…22f6 LineComalBin {
0x22c4…22f6 ptr = 0xb04d // 0x22c4 @0x0
0x22c4…22f6 lno = 0x0dac // 0x22c6 @0x2
0x22c4…22f6 at0004 = ╱a9╱ GET ╱ // 0x22c8 @0x4
0x22c4…22f6 at0005 = ╱4b╱K╱ // 0x22c9 @0x5
0x22c4…22f6 at0006 = ╱35╱5╱ // 0x22ca @0x6
0x22c4…22f6 at0007 = ╱ef╱$╱ // 0x22cb @0x7
0x22c4…22f6 at0008 = ╱ec╱,╱ // 0x22cc @0x8
0x22c4…22f6 at0009 = ╱52╱R╱ // 0x22cd @0x9
0x22c4…22f6 at000a = ╱45╱E╱ // 0x22ce @0xa
0x22c4…22f6 at000b = ╱4e╱N╱ // 0x22cf @0xb
0x22c4…22f6 at000c = ╱4e╱N╱ // 0x22d0 @0xc
0x22c4…22f6 at000d = ╱52╱R╱ // 0x22d1 @0xd
0x22c4…22f6 at000e = ╱31╱1╱ // 0x22d2 @0xe
0x22c4…22f6 at000f = ╱f0╱:╱ // 0x22d3 @0xf
0x22c4…22f6 at0010 = ╱4b╱K╱ // 0x22d4 @0x10
0x22c4…22f6 at0011 = ╱4f╱O╱ // 0x22d5 @0x11
0x22c4…22f6 at0012 = ╱4e╱N╱ // 0x22d6 @0x12
0x22c4…22f6 at0013 = ╱54╱T╱ // 0x22d7 @0x13
0x22c4…22f6 at0014 = ╱4f╱O╱ // 0x22d8 @0x14
0x22c4…22f6 at0015 = ╱ec╱,╱ // 0x22d9 @0x15
0x22c4…22f6 at0016 = ╱4e╱N╱ // 0x22da @0x16
0x22c4…22f6 at0017 = ╱41╱A╱ // 0x22db @0x17
0x22c4…22f6 at0018 = ╱56╱V╱ // 0x22dc @0x18
0x22c4…22f6 at0019 = ╱4e╱N╱ // 0x22dd @0x19
0x22c4…22f6 at001a = ╱ef╱$╱ // 0x22de @0x1a
0x22c4…22f6 at001b = ╱ec╱,╱ // 0x22df @0x1b
0x22c4…22f6 at001c = ╱53╱S╱ // 0x22e0 @0x1c
0x22c4…22f6 at001d = ╱41╱A╱ // 0x22e1 @0x1d
0x22c4…22f6 at001e = ╱4c╱L╱ // 0x22e2 @0x1e
0x22c4…22f6 at001f = ╱44╱D╱ // 0x22e3 @0x1f
0x22c4…22f6 at0020 = ╱4f╱O╱ // 0x22e4 @0x20
0x22c4…22f6 at0021 = ╱31╱1╱ // 0x22e5 @0x21
0x22c4…22f6 at0022 = ╱ef╱$╱ // 0x22e6 @0x22
0x22c4…22f6 at0023 = ╱ec╱,╱ // 0x22e7 @0x23
0x22c4…22f6 at0024 = ╱53╱S╱ // 0x22e8 @0x24
0x22c4…22f6 at0025 = ╱41╱A╱ // 0x22e9 @0x25
0x22c4…22f6 at0026 = ╱4c╱L╱ // 0x22ea @0x26
0x22c4…22f6 at0027 = ╱44╱D╱ // 0x22eb @0x27
0x22c4…22f6 at0028 = ╱4f╱O╱ // 0x22ec @0x28
0x22c4…22f6 at0029 = ╱ef╱$╱ // 0x22ed @0x29
0x22c4…22f6 at002a = ╱ec╱,╱ // 0x22ee @0x2a
0x22c4…22f6 at002b = ╱52╱R╱ // 0x22ef @0x2b
0x22c4…22f6 at002c = ╱45╱E╱ // 0x22f0 @0x2c
0x22c4…22f6 at002d = ╱4e╱N╱ // 0x22f1 @0x2d
0x22c4…22f6 at002e = ╱54╱T╱ // 0x22f2 @0x2e
0x22c4…22f6 at002f = ╱45╱E╱ // 0x22f3 @0x2f
0x22c4…22f6 at0030 = ╱ef╱$╱ // 0x22f4 @0x30
0x22c4…22f6 at0031 = EOL // 0x22f5 @0x31
0x22c4…22f6 }
0x22f6…230e b065 3510 EXEC FEJL(4,E,K5$)
0x22f6…230e LineComalBin {
0x22f6…230e ptr = 0xb065 // 0x22f6 @0x0
0x22f6…230e lno = 0x0db6 // 0x22f8 @0x2
0x22f6…230e at0004 = ╱9d╱ EXEC ╱ // 0x22fa @0x4
0x22f6…230e at0005 = ╱46╱F╱ // 0x22fb @0x5
0x22f6…230e at0006 = ╱45╱E╱ // 0x22fc @0x6
0x22f6…230e at0007 = ╱4a╱J╱ // 0x22fd @0x7
0x22f6…230e at0008 = ╱4c╱L╱ // 0x22fe @0x8
0x22f6…230e at0009 = ╱ed╱(╱ // 0x22ff @0x9
0x22f6…230e at000a = ╱34╱4╱ // 0x2300 @0xa
0x22f6…230e at000b = ╱fe00008003╱ // 0x2301 @0xb
0x22f6…230e at0010 = ╱ec╱,╱ // 0x2306 @0x10
0x22f6…230e at0011 = ╱45╱E╱ // 0x2307 @0x11
0x22f6…230e at0012 = ╱ec╱,╱ // 0x2308 @0x12
0x22f6…230e at0013 = ╱4b╱K╱ // 0x2309 @0x13
0x22f6…230e at0014 = ╱35╱5╱ // 0x230a @0x14
0x22f6…230e at0015 = ╱ef╱$╱ // 0x230b @0x15
0x22f6…230e at0016 = ╱ee╱)╱ // 0x230c @0x16
0x22f6…230e at0017 = EOL // 0x230d @0x17
0x22f6…230e }
0x230e…231c b073 3520 IF KONTO<>B THEN
0x230e…231c LineComalBin {
0x230e…231c ptr = 0xb073 // 0x230e @0x0
0x230e…231c lno = 0x0dc0 // 0x2310 @0x2
0x230e…231c at0004 = ╱9c╱ IF ╱ // 0x2312 @0x4
0x230e…231c at0005 = ╱4b╱K╱ // 0x2313 @0x5
0x230e…231c at0006 = ╱4f╱O╱ // 0x2314 @0x6
0x230e…231c at0007 = ╱4e╱N╱ // 0x2315 @0x7
0x230e…231c at0008 = ╱54╱T╱ // 0x2316 @0x8
0x230e…231c at0009 = ╱4f╱O╱ // 0x2317 @0x9
0x230e…231c at000a = ╱e1╱<>╱ // 0x2318 @0xa
0x230e…231c at000b = ╱42╱B╱ // 0x2319 @0xb
0x230e…231c at000c = ╱b6╱ THEN ╱ // 0x231a @0xc
0x230e…231c at000d = EOL // 0x231b @0xd
0x230e…231c }
0x231c…2334 b08b 3530 BHPOSTNR=BHPOSTNR+E
0x231c…2334 LineComalBin {
0x231c…2334 ptr = 0xb08b // 0x231c @0x0
0x231c…2334 lno = 0x0dca // 0x231e @0x2
0x231c…2334 at0004 = ╱42╱B╱ // 0x2320 @0x4
0x231c…2334 at0005 = ╱48╱H╱ // 0x2321 @0x5
0x231c…2334 at0006 = ╱50╱P╱ // 0x2322 @0x6
0x231c…2334 at0007 = ╱4f╱O╱ // 0x2323 @0x7
0x231c…2334 at0008 = ╱53╱S╱ // 0x2324 @0x8
0x231c…2334 at0009 = ╱54╱T╱ // 0x2325 @0x9
0x231c…2334 at000a = ╱4e╱N╱ // 0x2326 @0xa
0x231c…2334 at000b = ╱52╱R╱ // 0x2327 @0xb
0x231c…2334 at000c = ╱dc╱=╱ // 0x2328 @0xc
0x231c…2334 at000d = ╱42╱B╱ // 0x2329 @0xd
0x231c…2334 at000e = ╱48╱H╱ // 0x232a @0xe
0x231c…2334 at000f = ╱50╱P╱ // 0x232b @0xf
0x231c…2334 at0010 = ╱4f╱O╱ // 0x232c @0x10
0x231c…2334 at0011 = ╱53╱S╱ // 0x232d @0x11
0x231c…2334 at0012 = ╱54╱T╱ // 0x232e @0x12
0x231c…2334 at0013 = ╱4e╱N╱ // 0x232f @0x13
0x231c…2334 at0014 = ╱52╱R╱ // 0x2330 @0x14
0x231c…2334 at0015 = ╱e2╱+╱ // 0x2331 @0x15
0x231c…2334 at0016 = ╱45╱E╱ // 0x2332 @0x16
0x231c…2334 at0017 = EOL // 0x2333 @0x17
0x231c…2334 }
0x2334…2369 b0c0 3540 PUT K4$,BHPOSTNR:KONTO,DATO,RENNR1,TKO$,RENTE$,MUL$
0x2334…2369 LineComalBin {
0x2334…2369 ptr = 0xb0c0 // 0x2334 @0x0
0x2334…2369 lno = 0x0dd4 // 0x2336 @0x2
0x2334…2369 at0004 = ╱aa╱ PUT ╱ // 0x2338 @0x4
0x2334…2369 at0005 = ╱4b╱K╱ // 0x2339 @0x5
0x2334…2369 at0006 = ╱34╱4╱ // 0x233a @0x6
0x2334…2369 at0007 = ╱ef╱$╱ // 0x233b @0x7
0x2334…2369 at0008 = ╱ec╱,╱ // 0x233c @0x8
0x2334…2369 at0009 = ╱42╱B╱ // 0x233d @0x9
0x2334…2369 at000a = ╱48╱H╱ // 0x233e @0xa
0x2334…2369 at000b = ╱50╱P╱ // 0x233f @0xb
0x2334…2369 at000c = ╱4f╱O╱ // 0x2340 @0xc
0x2334…2369 at000d = ╱53╱S╱ // 0x2341 @0xd
0x2334…2369 at000e = ╱54╱T╱ // 0x2342 @0xe
0x2334…2369 at000f = ╱4e╱N╱ // 0x2343 @0xf
0x2334…2369 at0010 = ╱52╱R╱ // 0x2344 @0x10
0x2334…2369 at0011 = ╱f0╱:╱ // 0x2345 @0x11
0x2334…2369 at0012 = ╱4b╱K╱ // 0x2346 @0x12
0x2334…2369 at0013 = ╱4f╱O╱ // 0x2347 @0x13
0x2334…2369 at0014 = ╱4e╱N╱ // 0x2348 @0x14
0x2334…2369 at0015 = ╱54╱T╱ // 0x2349 @0x15
0x2334…2369 at0016 = ╱4f╱O╱ // 0x234a @0x16
0x2334…2369 at0017 = ╱ec╱,╱ // 0x234b @0x17
0x2334…2369 at0018 = ╱44╱D╱ // 0x234c @0x18
0x2334…2369 at0019 = ╱41╱A╱ // 0x234d @0x19
0x2334…2369 at001a = ╱54╱T╱ // 0x234e @0x1a
0x2334…2369 at001b = ╱4f╱O╱ // 0x234f @0x1b
0x2334…2369 at001c = ╱ec╱,╱ // 0x2350 @0x1c
0x2334…2369 at001d = ╱52╱R╱ // 0x2351 @0x1d
0x2334…2369 at001e = ╱45╱E╱ // 0x2352 @0x1e
0x2334…2369 at001f = ╱4e╱N╱ // 0x2353 @0x1f
0x2334…2369 at0020 = ╱4e╱N╱ // 0x2354 @0x20
0x2334…2369 at0021 = ╱52╱R╱ // 0x2355 @0x21
0x2334…2369 at0022 = ╱31╱1╱ // 0x2356 @0x22
0x2334…2369 at0023 = ╱ec╱,╱ // 0x2357 @0x23
0x2334…2369 at0024 = ╱54╱T╱ // 0x2358 @0x24
0x2334…2369 at0025 = ╱4b╱K╱ // 0x2359 @0x25
0x2334…2369 at0026 = ╱4f╱O╱ // 0x235a @0x26
0x2334…2369 at0027 = ╱ef╱$╱ // 0x235b @0x27
0x2334…2369 at0028 = ╱ec╱,╱ // 0x235c @0x28
0x2334…2369 at0029 = ╱52╱R╱ // 0x235d @0x29
0x2334…2369 at002a = ╱45╱E╱ // 0x235e @0x2a
0x2334…2369 at002b = ╱4e╱N╱ // 0x235f @0x2b
0x2334…2369 at002c = ╱54╱T╱ // 0x2360 @0x2c
0x2334…2369 at002d = ╱45╱E╱ // 0x2361 @0x2d
0x2334…2369 at002e = ╱ef╱$╱ // 0x2362 @0x2e
0x2334…2369 at002f = ╱ec╱,╱ // 0x2363 @0x2f
0x2334…2369 at0030 = ╱4d╱M╱ // 0x2364 @0x30
0x2334…2369 at0031 = ╱55╱U╱ // 0x2365 @0x31
0x2334…2369 at0032 = ╱4c╱L╱ // 0x2366 @0x32
0x2334…2369 at0033 = ╱ef╱$╱ // 0x2367 @0x33
0x2334…2369 at0034 = EOL // 0x2368 @0x34
0x2334…2369 }
0x2369…2381 b0d8 3550 EXEC FEJL(4,G,K4$)
0x2369…2381 LineComalBin {
0x2369…2381 ptr = 0xb0d8 // 0x2369 @0x0
0x2369…2381 lno = 0x0dde // 0x236b @0x2
0x2369…2381 at0004 = ╱9d╱ EXEC ╱ // 0x236d @0x4
0x2369…2381 at0005 = ╱46╱F╱ // 0x236e @0x5
0x2369…2381 at0006 = ╱45╱E╱ // 0x236f @0x6
0x2369…2381 at0007 = ╱4a╱J╱ // 0x2370 @0x7
0x2369…2381 at0008 = ╱4c╱L╱ // 0x2371 @0x8
0x2369…2381 at0009 = ╱ed╱(╱ // 0x2372 @0x9
0x2369…2381 at000a = ╱34╱4╱ // 0x2373 @0xa
0x2369…2381 at000b = ╱fe00008003╱ // 0x2374 @0xb
0x2369…2381 at0010 = ╱ec╱,╱ // 0x2379 @0x10
0x2369…2381 at0011 = ╱47╱G╱ // 0x237a @0x11
0x2369…2381 at0012 = ╱ec╱,╱ // 0x237b @0x12
0x2369…2381 at0013 = ╱4b╱K╱ // 0x237c @0x13
0x2369…2381 at0014 = ╱34╱4╱ // 0x237d @0x14
0x2369…2381 at0015 = ╱ef╱$╱ // 0x237e @0x15
0x2369…2381 at0016 = ╱ee╱)╱ // 0x237f @0x16
0x2369…2381 at0017 = EOL // 0x2380 @0x17
0x2369…2381 }
0x2381…23a7 b0fe 3560 EXEC CALC(E,TORENTE$,RENTE$,TORENTE$)
0x2381…23a7 LineComalBin {
0x2381…23a7 ptr = 0xb0fe // 0x2381 @0x0
0x2381…23a7 lno = 0x0de8 // 0x2383 @0x2
0x2381…23a7 at0004 = ╱9d╱ EXEC ╱ // 0x2385 @0x4
0x2381…23a7 at0005 = ╱43╱C╱ // 0x2386 @0x5
0x2381…23a7 at0006 = ╱41╱A╱ // 0x2387 @0x6
0x2381…23a7 at0007 = ╱4c╱L╱ // 0x2388 @0x7
0x2381…23a7 at0008 = ╱43╱C╱ // 0x2389 @0x8
0x2381…23a7 at0009 = ╱ed╱(╱ // 0x238a @0x9
0x2381…23a7 at000a = ╱45╱E╱ // 0x238b @0xa
0x2381…23a7 at000b = ╱ec╱,╱ // 0x238c @0xb
0x2381…23a7 at000c = ╱54╱T╱ // 0x238d @0xc
0x2381…23a7 at000d = ╱4f╱O╱ // 0x238e @0xd
0x2381…23a7 at000e = ╱52╱R╱ // 0x238f @0xe
0x2381…23a7 at000f = ╱45╱E╱ // 0x2390 @0xf
0x2381…23a7 at0010 = ╱4e╱N╱ // 0x2391 @0x10
0x2381…23a7 at0011 = ╱54╱T╱ // 0x2392 @0x11
0x2381…23a7 at0012 = ╱45╱E╱ // 0x2393 @0x12
0x2381…23a7 at0013 = ╱ef╱$╱ // 0x2394 @0x13
0x2381…23a7 at0014 = ╱ec╱,╱ // 0x2395 @0x14
0x2381…23a7 at0015 = ╱52╱R╱ // 0x2396 @0x15
0x2381…23a7 at0016 = ╱45╱E╱ // 0x2397 @0x16
0x2381…23a7 at0017 = ╱4e╱N╱ // 0x2398 @0x17
0x2381…23a7 at0018 = ╱54╱T╱ // 0x2399 @0x18
0x2381…23a7 at0019 = ╱45╱E╱ // 0x239a @0x19
0x2381…23a7 at001a = ╱ef╱$╱ // 0x239b @0x1a
0x2381…23a7 at001b = ╱ec╱,╱ // 0x239c @0x1b
0x2381…23a7 at001c = ╱54╱T╱ // 0x239d @0x1c
0x2381…23a7 at001d = ╱4f╱O╱ // 0x239e @0x1d
0x2381…23a7 at001e = ╱52╱R╱ // 0x239f @0x1e
0x2381…23a7 at001f = ╱45╱E╱ // 0x23a0 @0x1f
0x2381…23a7 at0020 = ╱4e╱N╱ // 0x23a1 @0x20
0x2381…23a7 at0021 = ╱54╱T╱ // 0x23a2 @0x21
0x2381…23a7 at0022 = ╱45╱E╱ // 0x23a3 @0x22
0x2381…23a7 at0023 = ╱ef╱$╱ // 0x23a4 @0x23
0x2381…23a7 at0024 = ╱ee╱)╱ // 0x23a5 @0x24
0x2381…23a7 at0025 = EOL // 0x23a6 @0x25
0x2381…23a7 }
0x23a7…23ad b104 3570 ENDIF
0x23a7…23ad LineComalBin {
0x23a7…23ad ptr = 0xb104 // 0x23a7 @0x0
0x23a7…23ad lno = 0x0df2 // 0x23a9 @0x2
0x23a7…23ad at0004 = ╱9b╱ ENDIF ╱ // 0x23ab @0x4
0x23a7…23ad at0005 = EOL // 0x23ac @0x5
0x23a7…23ad }
0x23ad…23b9 b110 3580 NEXT RENNR1
0x23ad…23b9 LineComalBin {
0x23ad…23b9 ptr = 0xb110 // 0x23ad @0x0
0x23ad…23b9 lno = 0x0dfc // 0x23af @0x2
0x23ad…23b9 at0004 = ╱84╱ NEXT ╱ // 0x23b1 @0x4
0x23ad…23b9 at0005 = ╱52╱R╱ // 0x23b2 @0x5
0x23ad…23b9 at0006 = ╱45╱E╱ // 0x23b3 @0x6
0x23ad…23b9 at0007 = ╱4e╱N╱ // 0x23b4 @0x7
0x23ad…23b9 at0008 = ╱4e╱N╱ // 0x23b5 @0x8
0x23ad…23b9 at0009 = ╱52╱R╱ // 0x23b6 @0x9
0x23ad…23b9 at000a = ╱31╱1╱ // 0x23b7 @0xa
0x23ad…23b9 at000b = EOL // 0x23b8 @0xb
0x23ad…23b9 }
0x23b9…2408 b15f 3590 BHPOSTNR=BHPOSTNR+G;TKO$=CHR(10+48);TEKST$="Samlet rentepostering"
0x23b9…2408 LineComalBin {
0x23b9…2408 ptr = 0xb15f // 0x23b9 @0x0
0x23b9…2408 lno = 0x0e06 // 0x23bb @0x2
0x23b9…2408 at0004 = ╱42╱B╱ // 0x23bd @0x4
0x23b9…2408 at0005 = ╱48╱H╱ // 0x23be @0x5
0x23b9…2408 at0006 = ╱50╱P╱ // 0x23bf @0x6
0x23b9…2408 at0007 = ╱4f╱O╱ // 0x23c0 @0x7
0x23b9…2408 at0008 = ╱53╱S╱ // 0x23c1 @0x8
0x23b9…2408 at0009 = ╱54╱T╱ // 0x23c2 @0x9
0x23b9…2408 at000a = ╱4e╱N╱ // 0x23c3 @0xa
0x23b9…2408 at000b = ╱52╱R╱ // 0x23c4 @0xb
0x23b9…2408 at000c = ╱dc╱=╱ // 0x23c5 @0xc
0x23b9…2408 at000d = ╱42╱B╱ // 0x23c6 @0xd
0x23b9…2408 at000e = ╱48╱H╱ // 0x23c7 @0xe
0x23b9…2408 at000f = ╱50╱P╱ // 0x23c8 @0xf
0x23b9…2408 at0010 = ╱4f╱O╱ // 0x23c9 @0x10
0x23b9…2408 at0011 = ╱53╱S╱ // 0x23ca @0x11
0x23b9…2408 at0012 = ╱54╱T╱ // 0x23cb @0x12
0x23b9…2408 at0013 = ╱4e╱N╱ // 0x23cc @0x13
0x23b9…2408 at0014 = ╱52╱R╱ // 0x23cd @0x14
0x23b9…2408 at0015 = ╱e2╱+╱ // 0x23ce @0x15
0x23b9…2408 at0016 = ╱47╱G╱ // 0x23cf @0x16
0x23b9…2408 at0017 = ╱eb╱;╱ // 0x23d0 @0x17
0x23b9…2408 at0018 = ╱54╱T╱ // 0x23d1 @0x18
0x23b9…2408 at0019 = ╱4b╱K╱ // 0x23d2 @0x19
0x23b9…2408 at001a = ╱4f╱O╱ // 0x23d3 @0x1a
0x23b9…2408 at001b = ╱ef╱$╱ // 0x23d4 @0x1b
0x23b9…2408 at001c = ╱dc╱=╱ // 0x23d5 @0x1c
0x23b9…2408 at001d = ╱cf╱CHR╱ // 0x23d6 @0x1d
0x23b9…2408 at001e = ╱ed╱(╱ // 0x23d7 @0x1e
0x23b9…2408 at001f = ╱31╱1╱ // 0x23d8 @0x1f
0x23b9…2408 at0020 = ╱30╱0╱ // 0x23d9 @0x20
0x23b9…2408 at0021 = ╱fe0000a004╱ // 0x23da @0x21
0x23b9…2408 at0026 = ╱e2╱+╱ // 0x23df @0x26
0x23b9…2408 at0027 = ╱34╱4╱ // 0x23e0 @0x27
0x23b9…2408 at0028 = ╱38╱8╱ // 0x23e1 @0x28
0x23b9…2408 at0029 = ╱fe0000c006╱ // 0x23e2 @0x29
0x23b9…2408 at002e = ╱ee╱)╱ // 0x23e7 @0x2e
0x23b9…2408 at002f = ╱eb╱;╱ // 0x23e8 @0x2f
0x23b9…2408 at0030 = ╱54╱T╱ // 0x23e9 @0x30
0x23b9…2408 at0031 = ╱45╱E╱ // 0x23ea @0x31
0x23b9…2408 at0032 = ╱4b╱K╱ // 0x23eb @0x32
0x23b9…2408 at0033 = ╱53╱S╱ // 0x23ec @0x33
0x23b9…2408 at0034 = ╱54╱T╱ // 0x23ed @0x34
0x23b9…2408 at0035 = ╱ef╱$╱ // 0x23ee @0x35
0x23b9…2408 at0036 = ╱dc╱=╱ // 0x23ef @0x36
0x23b9…2408 at0037 = ╱22╱"╱ // 0x23f0 @0x37
0x23b9…2408 at0038 = ╱53╱S╱ // 0x23f1 @0x38
0x23b9…2408 at0039 = ╱61╱a╱ // 0x23f2 @0x39
0x23b9…2408 at003a = ╱6d╱m╱ // 0x23f3 @0x3a
0x23b9…2408 at003b = ╱6c╱l╱ // 0x23f4 @0x3b
0x23b9…2408 at003c = ╱65╱e╱ // 0x23f5 @0x3c
0x23b9…2408 at003d = ╱74╱t╱ // 0x23f6 @0x3d
0x23b9…2408 at003e = ╱20╱…╱ // 0x23f7 @0x3e
0x23b9…2408 at003f = ╱72╱r╱ // 0x23f8 @0x3f
0x23b9…2408 at0040 = ╱65╱e╱ // 0x23f9 @0x40
0x23b9…2408 at0041 = ╱6e╱n╱ // 0x23fa @0x41
0x23b9…2408 at0042 = ╱74╱t╱ // 0x23fb @0x42
0x23b9…2408 at0043 = ╱65╱e╱ // 0x23fc @0x43
0x23b9…2408 at0044 = ╱70╱p╱ // 0x23fd @0x44
0x23b9…2408 at0045 = ╱6f╱o╱ // 0x23fe @0x45
0x23b9…2408 at0046 = ╱73╱s╱ // 0x23ff @0x46
0x23b9…2408 at0047 = ╱74╱t╱ // 0x2400 @0x47
0x23b9…2408 at0048 = ╱65╱e╱ // 0x2401 @0x48
0x23b9…2408 at0049 = ╱72╱r╱ // 0x2402 @0x49
0x23b9…2408 at004a = ╱69╱i╱ // 0x2403 @0x4a
0x23b9…2408 at004b = ╱6e╱n╱ // 0x2404 @0x4b
0x23b9…2408 at004c = ╱67╱g╱ // 0x2405 @0x4c
0x23b9…2408 at004d = ╱22╱"╱ // 0x2406 @0x4d
0x23b9…2408 at004e = EOL // 0x2407 @0x4e
0x23b9…2408 }
0x2408…2447 b19e 3600 PUT K4$,BHPOSTNR-E:RENTENR,DATO,RENRAPSIDE,TKO$,TORENTE$,MUL$
0x2408…2447 LineComalBin {
0x2408…2447 ptr = 0xb19e // 0x2408 @0x0
0x2408…2447 lno = 0x0e10 // 0x240a @0x2
0x2408…2447 at0004 = ╱aa╱ PUT ╱ // 0x240c @0x4
0x2408…2447 at0005 = ╱4b╱K╱ // 0x240d @0x5
0x2408…2447 at0006 = ╱34╱4╱ // 0x240e @0x6
0x2408…2447 at0007 = ╱ef╱$╱ // 0x240f @0x7
0x2408…2447 at0008 = ╱ec╱,╱ // 0x2410 @0x8
0x2408…2447 at0009 = ╱42╱B╱ // 0x2411 @0x9
0x2408…2447 at000a = ╱48╱H╱ // 0x2412 @0xa
0x2408…2447 at000b = ╱50╱P╱ // 0x2413 @0xb
0x2408…2447 at000c = ╱4f╱O╱ // 0x2414 @0xc
0x2408…2447 at000d = ╱53╱S╱ // 0x2415 @0xd
0x2408…2447 at000e = ╱54╱T╱ // 0x2416 @0xe
0x2408…2447 at000f = ╱4e╱N╱ // 0x2417 @0xf
0x2408…2447 at0010 = ╱52╱R╱ // 0x2418 @0x10
0x2408…2447 at0011 = ╱e3╱-╱ // 0x2419 @0x11
0x2408…2447 at0012 = ╱45╱E╱ // 0x241a @0x12
0x2408…2447 at0013 = ╱f0╱:╱ // 0x241b @0x13
0x2408…2447 at0014 = ╱52╱R╱ // 0x241c @0x14
0x2408…2447 at0015 = ╱45╱E╱ // 0x241d @0x15
0x2408…2447 at0016 = ╱4e╱N╱ // 0x241e @0x16
0x2408…2447 at0017 = ╱54╱T╱ // 0x241f @0x17
0x2408…2447 at0018 = ╱45╱E╱ // 0x2420 @0x18
0x2408…2447 at0019 = ╱4e╱N╱ // 0x2421 @0x19
0x2408…2447 at001a = ╱52╱R╱ // 0x2422 @0x1a
0x2408…2447 at001b = ╱ec╱,╱ // 0x2423 @0x1b
0x2408…2447 at001c = ╱44╱D╱ // 0x2424 @0x1c
0x2408…2447 at001d = ╱41╱A╱ // 0x2425 @0x1d
0x2408…2447 at001e = ╱54╱T╱ // 0x2426 @0x1e
0x2408…2447 at001f = ╱4f╱O╱ // 0x2427 @0x1f
0x2408…2447 at0020 = ╱ec╱,╱ // 0x2428 @0x20
0x2408…2447 at0021 = ╱52╱R╱ // 0x2429 @0x21
0x2408…2447 at0022 = ╱45╱E╱ // 0x242a @0x22
0x2408…2447 at0023 = ╱4e╱N╱ // 0x242b @0x23
0x2408…2447 at0024 = ╱52╱R╱ // 0x242c @0x24
0x2408…2447 at0025 = ╱41╱A╱ // 0x242d @0x25
0x2408…2447 at0026 = ╱50╱P╱ // 0x242e @0x26
0x2408…2447 at0027 = ╱53╱S╱ // 0x242f @0x27
0x2408…2447 at0028 = ╱49╱I╱ // 0x2430 @0x28
0x2408…2447 at0029 = ╱44╱D╱ // 0x2431 @0x29
0x2408…2447 at002a = ╱45╱E╱ // 0x2432 @0x2a
0x2408…2447 at002b = ╱ec╱,╱ // 0x2433 @0x2b
0x2408…2447 at002c = ╱54╱T╱ // 0x2434 @0x2c
0x2408…2447 at002d = ╱4b╱K╱ // 0x2435 @0x2d
0x2408…2447 at002e = ╱4f╱O╱ // 0x2436 @0x2e
0x2408…2447 at002f = ╱ef╱$╱ // 0x2437 @0x2f
0x2408…2447 at0030 = ╱ec╱,╱ // 0x2438 @0x30
0x2408…2447 at0031 = ╱54╱T╱ // 0x2439 @0x31
0x2408…2447 at0032 = ╱4f╱O╱ // 0x243a @0x32
0x2408…2447 at0033 = ╱52╱R╱ // 0x243b @0x33
0x2408…2447 at0034 = ╱45╱E╱ // 0x243c @0x34
0x2408…2447 at0035 = ╱4e╱N╱ // 0x243d @0x35
0x2408…2447 at0036 = ╱54╱T╱ // 0x243e @0x36
0x2408…2447 at0037 = ╱45╱E╱ // 0x243f @0x37
0x2408…2447 at0038 = ╱ef╱$╱ // 0x2440 @0x38
0x2408…2447 at0039 = ╱ec╱,╱ // 0x2441 @0x39
0x2408…2447 at003a = ╱4d╱M╱ // 0x2442 @0x3a
0x2408…2447 at003b = ╱55╱U╱ // 0x2443 @0x3b
0x2408…2447 at003c = ╱4c╱L╱ // 0x2444 @0x3c
0x2408…2447 at003d = ╱ef╱$╱ // 0x2445 @0x3d
0x2408…2447 at003e = EOL // 0x2446 @0x3e
0x2408…2447 }
0x2447…245f b1b6 3610 EXEC FEJL(4,V,K4$)
0x2447…245f LineComalBin {
0x2447…245f ptr = 0xb1b6 // 0x2447 @0x0
0x2447…245f lno = 0x0e1a // 0x2449 @0x2
0x2447…245f at0004 = ╱9d╱ EXEC ╱ // 0x244b @0x4
0x2447…245f at0005 = ╱46╱F╱ // 0x244c @0x5
0x2447…245f at0006 = ╱45╱E╱ // 0x244d @0x6
0x2447…245f at0007 = ╱4a╱J╱ // 0x244e @0x7
0x2447…245f at0008 = ╱4c╱L╱ // 0x244f @0x8
0x2447…245f at0009 = ╱ed╱(╱ // 0x2450 @0x9
0x2447…245f at000a = ╱34╱4╱ // 0x2451 @0xa
0x2447…245f at000b = ╱fe00008003╱ // 0x2452 @0xb
0x2447…245f at0010 = ╱ec╱,╱ // 0x2457 @0x10
0x2447…245f at0011 = ╱56╱V╱ // 0x2458 @0x11
0x2447…245f at0012 = ╱ec╱,╱ // 0x2459 @0x12
0x2447…245f at0013 = ╱4b╱K╱ // 0x245a @0x13
0x2447…245f at0014 = ╱34╱4╱ // 0x245b @0x14
0x2447…245f at0015 = ╱ef╱$╱ // 0x245c @0x15
0x2447…245f at0016 = ╱ee╱)╱ // 0x245d @0x16
0x2447…245f at0017 = EOL // 0x245e @0x17
0x2447…245f }
0x245f…2480 b1d7 3620 PUT K4$,BHPOSTNR:RENTENR,TEKST$
0x245f…2480 LineComalBin {
0x245f…2480 ptr = 0xb1d7 // 0x245f @0x0
0x245f…2480 lno = 0x0e24 // 0x2461 @0x2
0x245f…2480 at0004 = ╱aa╱ PUT ╱ // 0x2463 @0x4
0x245f…2480 at0005 = ╱4b╱K╱ // 0x2464 @0x5
0x245f…2480 at0006 = ╱34╱4╱ // 0x2465 @0x6
0x245f…2480 at0007 = ╱ef╱$╱ // 0x2466 @0x7
0x245f…2480 at0008 = ╱ec╱,╱ // 0x2467 @0x8
0x245f…2480 at0009 = ╱42╱B╱ // 0x2468 @0x9
0x245f…2480 at000a = ╱48╱H╱ // 0x2469 @0xa
0x245f…2480 at000b = ╱50╱P╱ // 0x246a @0xb
0x245f…2480 at000c = ╱4f╱O╱ // 0x246b @0xc
0x245f…2480 at000d = ╱53╱S╱ // 0x246c @0xd
0x245f…2480 at000e = ╱54╱T╱ // 0x246d @0xe
0x245f…2480 at000f = ╱4e╱N╱ // 0x246e @0xf
0x245f…2480 at0010 = ╱52╱R╱ // 0x246f @0x10
0x245f…2480 at0011 = ╱f0╱:╱ // 0x2470 @0x11
0x245f…2480 at0012 = ╱52╱R╱ // 0x2471 @0x12
0x245f…2480 at0013 = ╱45╱E╱ // 0x2472 @0x13
0x245f…2480 at0014 = ╱4e╱N╱ // 0x2473 @0x14
0x245f…2480 at0015 = ╱54╱T╱ // 0x2474 @0x15
0x245f…2480 at0016 = ╱45╱E╱ // 0x2475 @0x16
0x245f…2480 at0017 = ╱4e╱N╱ // 0x2476 @0x17
0x245f…2480 at0018 = ╱52╱R╱ // 0x2477 @0x18
0x245f…2480 at0019 = ╱ec╱,╱ // 0x2478 @0x19
0x245f…2480 at001a = ╱54╱T╱ // 0x2479 @0x1a
0x245f…2480 at001b = ╱45╱E╱ // 0x247a @0x1b
0x245f…2480 at001c = ╱4b╱K╱ // 0x247b @0x1c
0x245f…2480 at001d = ╱53╱S╱ // 0x247c @0x1d
0x245f…2480 at001e = ╱54╱T╱ // 0x247d @0x1e
0x245f…2480 at001f = ╱ef╱$╱ // 0x247e @0x1f
0x245f…2480 at0020 = EOL // 0x247f @0x20
0x245f…2480 }
0x2480…249d b1f4 3630 EXEC FEJL(4,4,K4$)
0x2480…249d LineComalBin {
0x2480…249d ptr = 0xb1f4 // 0x2480 @0x0
0x2480…249d lno = 0x0e2e // 0x2482 @0x2
0x2480…249d at0004 = ╱9d╱ EXEC ╱ // 0x2484 @0x4
0x2480…249d at0005 = ╱46╱F╱ // 0x2485 @0x5
0x2480…249d at0006 = ╱45╱E╱ // 0x2486 @0x6
0x2480…249d at0007 = ╱4a╱J╱ // 0x2487 @0x7
0x2480…249d at0008 = ╱4c╱L╱ // 0x2488 @0x8
0x2480…249d at0009 = ╱ed╱(╱ // 0x2489 @0x9
0x2480…249d at000a = ╱34╱4╱ // 0x248a @0xa
0x2480…249d at000b = ╱fe00008003╱ // 0x248b @0xb
0x2480…249d at0010 = ╱ec╱,╱ // 0x2490 @0x10
0x2480…249d at0011 = ╱34╱4╱ // 0x2491 @0x11
0x2480…249d at0012 = ╱fe00008003╱ // 0x2492 @0x12
0x2480…249d at0017 = ╱ec╱,╱ // 0x2497 @0x17
0x2480…249d at0018 = ╱4b╱K╱ // 0x2498 @0x18
0x2480…249d at0019 = ╱34╱4╱ // 0x2499 @0x19
0x2480…249d at001a = ╱ef╱$╱ // 0x249a @0x1a
0x2480…249d at001b = ╱ee╱)╱ // 0x249b @0x1b
0x2480…249d at001c = EOL // 0x249c @0x1c
0x2480…249d }
0x249d…24c6 b21d 3640 EXEC SKRIVLIST(TXT1$(6),RENRAPSIDE)
0x249d…24c6 LineComalBin {
0x249d…24c6 ptr = 0xb21d // 0x249d @0x0
0x249d…24c6 lno = 0x0e38 // 0x249f @0x2
0x249d…24c6 at0004 = ╱9d╱ EXEC ╱ // 0x24a1 @0x4
0x249d…24c6 at0005 = ╱53╱S╱ // 0x24a2 @0x5
0x249d…24c6 at0006 = ╱4b╱K╱ // 0x24a3 @0x6
0x249d…24c6 at0007 = ╱52╱R╱ // 0x24a4 @0x7
0x249d…24c6 at0008 = ╱49╱I╱ // 0x24a5 @0x8
0x249d…24c6 at0009 = ╱56╱V╱ // 0x24a6 @0x9
0x249d…24c6 at000a = ╱4c╱L╱ // 0x24a7 @0xa
0x249d…24c6 at000b = ╱49╱I╱ // 0x24a8 @0xb
0x249d…24c6 at000c = ╱53╱S╱ // 0x24a9 @0xc
0x249d…24c6 at000d = ╱54╱T╱ // 0x24aa @0xd
0x249d…24c6 at000e = ╱ed╱(╱ // 0x24ab @0xe
0x249d…24c6 at000f = ╱54╱T╱ // 0x24ac @0xf
0x249d…24c6 at0010 = ╱58╱X╱ // 0x24ad @0x10
0x249d…24c6 at0011 = ╱54╱T╱ // 0x24ae @0x11
0x249d…24c6 at0012 = ╱31╱1╱ // 0x24af @0x12
0x249d…24c6 at0013 = ╱ef╱$╱ // 0x24b0 @0x13
0x249d…24c6 at0014 = ╱ed╱(╱ // 0x24b1 @0x14
0x249d…24c6 at0015 = ╱36╱6╱ // 0x24b2 @0x15
0x249d…24c6 at0016 = ╱fe0000c003╱ // 0x24b3 @0x16
0x249d…24c6 at001b = ╱ee╱)╱ // 0x24b8 @0x1b
0x249d…24c6 at001c = ╱ec╱,╱ // 0x24b9 @0x1c
0x249d…24c6 at001d = ╱52╱R╱ // 0x24ba @0x1d
0x249d…24c6 at001e = ╱45╱E╱ // 0x24bb @0x1e
0x249d…24c6 at001f = ╱4e╱N╱ // 0x24bc @0x1f
0x249d…24c6 at0020 = ╱52╱R╱ // 0x24bd @0x20
0x249d…24c6 at0021 = ╱41╱A╱ // 0x24be @0x21
0x249d…24c6 at0022 = ╱50╱P╱ // 0x24bf @0x22
0x249d…24c6 at0023 = ╱53╱S╱ // 0x24c0 @0x23
0x249d…24c6 at0024 = ╱49╱I╱ // 0x24c1 @0x24
0x249d…24c6 at0025 = ╱44╱D╱ // 0x24c2 @0x25
0x249d…24c6 at0026 = ╱45╱E╱ // 0x24c3 @0x26
0x249d…24c6 at0027 = ╱ee╱)╱ // 0x24c4 @0x27
0x249d…24c6 at0028 = EOL // 0x24c5 @0x28
0x249d…24c6 }
0x24c6…24d0 b227 3650 REN=B
0x24c6…24d0 LineComalBin {
0x24c6…24d0 ptr = 0xb227 // 0x24c6 @0x0
0x24c6…24d0 lno = 0x0e42 // 0x24c8 @0x2
0x24c6…24d0 at0004 = ╱52╱R╱ // 0x24ca @0x4
0x24c6…24d0 at0005 = ╱45╱E╱ // 0x24cb @0x5
0x24c6…24d0 at0006 = ╱4e╱N╱ // 0x24cc @0x6
0x24c6…24d0 at0007 = ╱dc╱=╱ // 0x24cd @0x7
0x24c6…24d0 at0008 = ╱42╱B╱ // 0x24ce @0x8
0x24c6…24d0 at0009 = EOL // 0x24cf @0x9
0x24c6…24d0 }
0x24d0…24dc b233 3660 EXEC SYSGEM
0x24d0…24dc LineComalBin {
0x24d0…24dc ptr = 0xb233 // 0x24d0 @0x0
0x24d0…24dc lno = 0x0e4c // 0x24d2 @0x2
0x24d0…24dc at0004 = ╱9d╱ EXEC ╱ // 0x24d4 @0x4
0x24d0…24dc at0005 = ╱53╱S╱ // 0x24d5 @0x5
0x24d0…24dc at0006 = ╱59╱Y╱ // 0x24d6 @0x6
0x24d0…24dc at0007 = ╱53╱S╱ // 0x24d7 @0x7
0x24d0…24dc at0008 = ╱47╱G╱ // 0x24d8 @0x8
0x24d0…24dc at0009 = ╱45╱E╱ // 0x24d9 @0x9
0x24d0…24dc at000a = ╱4d╱M╱ // 0x24da @0xa
0x24d0…24dc at000b = EOL // 0x24db @0xb
0x24d0…24dc }
0x24dc…24ee b245 3670 FOR I=E TO RENNR1-E
0x24dc…24ee LineComalBin {
0x24dc…24ee ptr = 0xb245 // 0x24dc @0x0
0x24dc…24ee lno = 0x0e56 // 0x24de @0x2
0x24dc…24ee at0004 = ╱83╱ FOR ╱ // 0x24e0 @0x4
0x24dc…24ee at0005 = ╱49╱I╱ // 0x24e1 @0x5
0x24dc…24ee at0006 = ╱dc╱=╱ // 0x24e2 @0x6
0x24dc…24ee at0007 = ╱45╱E╱ // 0x24e3 @0x7
0x24dc…24ee at0008 = ╱b7╱ TO ╱ // 0x24e4 @0x8
0x24dc…24ee at0009 = ╱52╱R╱ // 0x24e5 @0x9
0x24dc…24ee at000a = ╱45╱E╱ // 0x24e6 @0xa
0x24dc…24ee at000b = ╱4e╱N╱ // 0x24e7 @0xb
0x24dc…24ee at000c = ╱4e╱N╱ // 0x24e8 @0xc
0x24dc…24ee at000d = ╱52╱R╱ // 0x24e9 @0xd
0x24dc…24ee at000e = ╱31╱1╱ // 0x24ea @0xe
0x24dc…24ee at000f = ╱e3╱-╱ // 0x24eb @0xf
0x24dc…24ee at0010 = ╱45╱E╱ // 0x24ec @0x10
0x24dc…24ee at0011 = EOL // 0x24ed @0x11
0x24dc…24ee }
0x24ee…250a b261 3680 PUT K5$,I:B,TAH$,TAH$,TAH$
0x24ee…250a LineComalBin {
0x24ee…250a ptr = 0xb261 // 0x24ee @0x0
0x24ee…250a lno = 0x0e60 // 0x24f0 @0x2
0x24ee…250a at0004 = ╱aa╱ PUT ╱ // 0x24f2 @0x4
0x24ee…250a at0005 = ╱4b╱K╱ // 0x24f3 @0x5
0x24ee…250a at0006 = ╱35╱5╱ // 0x24f4 @0x6
0x24ee…250a at0007 = ╱ef╱$╱ // 0x24f5 @0x7
0x24ee…250a at0008 = ╱ec╱,╱ // 0x24f6 @0x8
0x24ee…250a at0009 = ╱49╱I╱ // 0x24f7 @0x9
0x24ee…250a at000a = ╱f0╱:╱ // 0x24f8 @0xa
0x24ee…250a at000b = ╱42╱B╱ // 0x24f9 @0xb
0x24ee…250a at000c = ╱ec╱,╱ // 0x24fa @0xc
0x24ee…250a at000d = ╱54╱T╱ // 0x24fb @0xd
0x24ee…250a at000e = ╱41╱A╱ // 0x24fc @0xe
0x24ee…250a at000f = ╱48╱H╱ // 0x24fd @0xf
0x24ee…250a at0010 = ╱ef╱$╱ // 0x24fe @0x10
0x24ee…250a at0011 = ╱ec╱,╱ // 0x24ff @0x11
0x24ee…250a at0012 = ╱54╱T╱ // 0x2500 @0x12
0x24ee…250a at0013 = ╱41╱A╱ // 0x2501 @0x13
0x24ee…250a at0014 = ╱48╱H╱ // 0x2502 @0x14
0x24ee…250a at0015 = ╱ef╱$╱ // 0x2503 @0x15
0x24ee…250a at0016 = ╱ec╱,╱ // 0x2504 @0x16
0x24ee…250a at0017 = ╱54╱T╱ // 0x2505 @0x17
0x24ee…250a at0018 = ╱41╱A╱ // 0x2506 @0x18
0x24ee…250a at0019 = ╱48╱H╱ // 0x2507 @0x19
0x24ee…250a at001a = ╱ef╱$╱ // 0x2508 @0x1a
0x24ee…250a at001b = EOL // 0x2509 @0x1b
0x24ee…250a }
0x250a…2527 b27e 3690 EXEC FEJL(4,5,K5$)
0x250a…2527 LineComalBin {
0x250a…2527 ptr = 0xb27e // 0x250a @0x0
0x250a…2527 lno = 0x0e6a // 0x250c @0x2
0x250a…2527 at0004 = ╱9d╱ EXEC ╱ // 0x250e @0x4
0x250a…2527 at0005 = ╱46╱F╱ // 0x250f @0x5
0x250a…2527 at0006 = ╱45╱E╱ // 0x2510 @0x6
0x250a…2527 at0007 = ╱4a╱J╱ // 0x2511 @0x7
0x250a…2527 at0008 = ╱4c╱L╱ // 0x2512 @0x8
0x250a…2527 at0009 = ╱ed╱(╱ // 0x2513 @0x9
0x250a…2527 at000a = ╱34╱4╱ // 0x2514 @0xa
0x250a…2527 at000b = ╱fe00008003╱ // 0x2515 @0xb
0x250a…2527 at0010 = ╱ec╱,╱ // 0x251a @0x10
0x250a…2527 at0011 = ╱35╱5╱ // 0x251b @0x11
0x250a…2527 at0012 = ╱fe0000a003╱ // 0x251c @0x12
0x250a…2527 at0017 = ╱ec╱,╱ // 0x2521 @0x17
0x250a…2527 at0018 = ╱4b╱K╱ // 0x2522 @0x18
0x250a…2527 at0019 = ╱35╱5╱ // 0x2523 @0x19
0x250a…2527 at001a = ╱ef╱$╱ // 0x2524 @0x1a
0x250a…2527 at001b = ╱ee╱)╱ // 0x2525 @0x1b
0x250a…2527 at001c = EOL // 0x2526 @0x1c
0x250a…2527 }
0x2527…252e b285 3700 NEXT I
0x2527…252e LineComalBin {
0x2527…252e ptr = 0xb285 // 0x2527 @0x0
0x2527…252e lno = 0x0e74 // 0x2529 @0x2
0x2527…252e at0004 = ╱84╱ NEXT ╱ // 0x252b @0x4
0x2527…252e at0005 = ╱49╱I╱ // 0x252c @0x5
0x2527…252e at0006 = EOL // 0x252d @0x6
0x2527…252e }
0x252e…2536 b28d 3710 WHEN V
0x252e…2536 LineComalBin {
0x252e…2536 ptr = 0xb28d // 0x252e @0x0
0x252e…2536 lno = 0x0e7e // 0x2530 @0x2
0x252e…2536 at0004 = ╱a301╱ WHEN ╱ // 0x2532 @0x4
0x252e…2536 at0006 = ╱56╱V╱ // 0x2534 @0x6
0x252e…2536 at0007 = EOL // 0x2535 @0x7
0x252e…2536 }
0x2536…253c b293 3720 REPEAT
0x2536…253c LineComalBin {
0x2536…253c ptr = 0xb293 // 0x2536 @0x0
0x2536…253c lno = 0x0e88 // 0x2538 @0x2
0x2536…253c at0004 = ╱97╱ REPEAT ╱ // 0x253a @0x4
0x2536…253c at0005 = EOL // 0x253b @0x5
0x2536…253c }
0x253c…2551 b2a8 3730 CURSOR 18,10
0x253c…2551 LineComalBin {
0x253c…2551 ptr = 0xb2a8 // 0x253c @0x0
0x253c…2551 lno = 0x0e92 // 0x253e @0x2
0x253c…2551 at0004 = ╱a1╱ CURSOR ╱ // 0x2540 @0x4
0x253c…2551 at0005 = ╱31╱1╱ // 0x2541 @0x5
0x253c…2551 at0006 = ╱38╱8╱ // 0x2542 @0x6
0x253c…2551 at0007 = ╱fe00009005╱ // 0x2543 @0x7
0x253c…2551 at000c = ╱ec╱,╱ // 0x2548 @0xc
0x253c…2551 at000d = ╱31╱1╱ // 0x2549 @0xd
0x253c…2551 at000e = ╱30╱0╱ // 0x254a @0xe
0x253c…2551 at000f = ╱fe0000a004╱ // 0x254b @0xf
0x253c…2551 at0014 = EOL // 0x2550 @0x14
0x253c…2551 }
0x2551…2588 b2df 3740 PRINT "Fra posteringsnr : (0:Alle,RETURN:færdig)"
0x2551…2588 LineComalBin {
0x2551…2588 ptr = 0xb2df // 0x2551 @0x0
0x2551…2588 lno = 0x0e9c // 0x2553 @0x2
0x2551…2588 at0004 = ╱92╱ PRINT ╱ // 0x2555 @0x4
0x2551…2588 at0005 = ╱22╱"╱ // 0x2556 @0x5
0x2551…2588 at0006 = ╱46╱F╱ // 0x2557 @0x6
0x2551…2588 at0007 = ╱72╱r╱ // 0x2558 @0x7
0x2551…2588 at0008 = ╱61╱a╱ // 0x2559 @0x8
0x2551…2588 at0009 = ╱20╱…╱ // 0x255a @0x9
0x2551…2588 at000a = ╱70╱p╱ // 0x255b @0xa
0x2551…2588 at000b = ╱6f╱o╱ // 0x255c @0xb
0x2551…2588 at000c = ╱73╱s╱ // 0x255d @0xc
0x2551…2588 at000d = ╱74╱t╱ // 0x255e @0xd
0x2551…2588 at000e = ╱65╱e╱ // 0x255f @0xe
0x2551…2588 at000f = ╱72╱r╱ // 0x2560 @0xf
0x2551…2588 at0010 = ╱69╱i╱ // 0x2561 @0x10
0x2551…2588 at0011 = ╱6e╱n╱ // 0x2562 @0x11
0x2551…2588 at0012 = ╱67╱g╱ // 0x2563 @0x12
0x2551…2588 at0013 = ╱73╱s╱ // 0x2564 @0x13
0x2551…2588 at0014 = ╱6e╱n╱ // 0x2565 @0x14
0x2551…2588 at0015 = ╱72╱r╱ // 0x2566 @0x15
0x2551…2588 at0016 = ╱20╱…╱ // 0x2567 @0x16
0x2551…2588 at0017 = ╱3a╱:╱ // 0x2568 @0x17
0x2551…2588 at0018 = ╱20╱…╱ // 0x2569 @0x18
0x2551…2588 at0019 = ╱20╱…╱ // 0x256a @0x19
0x2551…2588 at001a = ╱20╱…╱ // 0x256b @0x1a
0x2551…2588 at001b = ╱20╱…╱ // 0x256c @0x1b
0x2551…2588 at001c = ╱20╱…╱ // 0x256d @0x1c
0x2551…2588 at001d = ╱20╱…╱ // 0x256e @0x1d
0x2551…2588 at001e = ╱20╱…╱ // 0x256f @0x1e
0x2551…2588 at001f = ╱28╱(╱ // 0x2570 @0x1f
0x2551…2588 at0020 = ╱30╱0╱ // 0x2571 @0x20
0x2551…2588 at0021 = ╱3a╱:╱ // 0x2572 @0x21
0x2551…2588 at0022 = ╱41╱A╱ // 0x2573 @0x22
0x2551…2588 at0023 = ╱6c╱l╱ // 0x2574 @0x23
0x2551…2588 at0024 = ╱6c╱l╱ // 0x2575 @0x24
0x2551…2588 at0025 = ╱65╱e╱ // 0x2576 @0x25
0x2551…2588 at0026 = ╱2c╱,╱ // 0x2577 @0x26
0x2551…2588 at0027 = ╱52╱R╱ // 0x2578 @0x27
0x2551…2588 at0028 = ╱45╱E╱ // 0x2579 @0x28
0x2551…2588 at0029 = ╱54╱T╱ // 0x257a @0x29
0x2551…2588 at002a = ╱55╱U╱ // 0x257b @0x2a
0x2551…2588 at002b = ╱52╱R╱ // 0x257c @0x2b
0x2551…2588 at002c = ╱4e╱N╱ // 0x257d @0x2c
0x2551…2588 at002d = ╱3a╱:╱ // 0x257e @0x2d
0x2551…2588 at002e = ╱66╱f╱ // 0x257f @0x2e
0x2551…2588 at002f = ╱7b╱æ╱ // 0x2580 @0x2f
0x2551…2588 at0030 = ╱72╱r╱ // 0x2581 @0x30
0x2551…2588 at0031 = ╱64╱d╱ // 0x2582 @0x31
0x2551…2588 at0032 = ╱69╱i╱ // 0x2583 @0x32
0x2551…2588 at0033 = ╱67╱g╱ // 0x2584 @0x33
0x2551…2588 at0034 = ╱29╱)╱ // 0x2585 @0x34
0x2551…2588 at0035 = ╱22╱"╱ // 0x2586 @0x35
0x2551…2588 at0036 = EOL // 0x2587 @0x36
0x2551…2588 }
0x2588…259d b2f4 3750 CURSOR 36,10
0x2588…259d LineComalBin {
0x2588…259d ptr = 0xb2f4 // 0x2588 @0x0
0x2588…259d lno = 0x0ea6 // 0x258a @0x2
0x2588…259d at0004 = ╱a1╱ CURSOR ╱ // 0x258c @0x4
0x2588…259d at0005 = ╱33╱3╱ // 0x258d @0x5
0x2588…259d at0006 = ╱36╱6╱ // 0x258e @0x6
0x2588…259d at0007 = ╱fe00009006╱ // 0x258f @0x7
0x2588…259d at000c = ╱ec╱,╱ // 0x2594 @0xc
0x2588…259d at000d = ╱31╱1╱ // 0x2595 @0xd
0x2588…259d at000e = ╱30╱0╱ // 0x2596 @0xe
0x2588…259d at000f = ╱fe0000a004╱ // 0x2597 @0xf
0x2588…259d at0014 = EOL // 0x259c @0x14
0x2588…259d }
0x259d…25a9 b300 3760 INPUT " ",A$
0x259d…25a9 LineComalBin {
0x259d…25a9 ptr = 0xb300 // 0x259d @0x0
0x259d…25a9 lno = 0x0eb0 // 0x259f @0x2
0x259d…25a9 at0004 = ╱91╱ INPUT ╱ // 0x25a1 @0x4
0x259d…25a9 at0005 = ╱22╱"╱ // 0x25a2 @0x5
0x259d…25a9 at0006 = ╱20╱…╱ // 0x25a3 @0x6
0x259d…25a9 at0007 = ╱22╱"╱ // 0x25a4 @0x7
0x259d…25a9 at0008 = ╱ec╱,╱ // 0x25a5 @0x8
0x259d…25a9 at0009 = ╱41╱A╱ // 0x25a6 @0x9
0x259d…25a9 at000a = ╱ef╱$╱ // 0x25a7 @0xa
0x259d…25a9 at000b = EOL // 0x25a8 @0xb
0x259d…25a9 }
0x25a9…25b9 b310 3770 EXEC NRTEST(A$)
0x25a9…25b9 LineComalBin {
0x25a9…25b9 ptr = 0xb310 // 0x25a9 @0x0
0x25a9…25b9 lno = 0x0eba // 0x25ab @0x2
0x25a9…25b9 at0004 = ╱9d╱ EXEC ╱ // 0x25ad @0x4
0x25a9…25b9 at0005 = ╱4e╱N╱ // 0x25ae @0x5
0x25a9…25b9 at0006 = ╱52╱R╱ // 0x25af @0x6
0x25a9…25b9 at0007 = ╱54╱T╱ // 0x25b0 @0x7
0x25a9…25b9 at0008 = ╱45╱E╱ // 0x25b1 @0x8
0x25a9…25b9 at0009 = ╱53╱S╱ // 0x25b2 @0x9
0x25a9…25b9 at000a = ╱54╱T╱ // 0x25b3 @0xa
0x25a9…25b9 at000b = ╱ed╱(╱ // 0x25b4 @0xb
0x25a9…25b9 at000c = ╱41╱A╱ // 0x25b5 @0xc
0x25a9…25b9 at000d = ╱ef╱$╱ // 0x25b6 @0xd
0x25a9…25b9 at000e = ╱ee╱)╱ // 0x25b7 @0xe
0x25a9…25b9 at000f = EOL // 0x25b8 @0xf
0x25a9…25b9 }
0x25b9…25cc b323 3780 UNTIL P<=REN AND TEST2=B
0x25b9…25cc LineComalBin {
0x25b9…25cc ptr = 0xb323 // 0x25b9 @0x0
0x25b9…25cc lno = 0x0ec4 // 0x25bb @0x2
0x25b9…25cc at0004 = ╱98╱ UNTIL ╱ // 0x25bd @0x4
0x25b9…25cc at0005 = ╱50╱P╱ // 0x25be @0x5
0x25b9…25cc at0006 = ╱df╱<=╱ // 0x25bf @0x6
0x25b9…25cc at0007 = ╱52╱R╱ // 0x25c0 @0x7
0x25b9…25cc at0008 = ╱45╱E╱ // 0x25c1 @0x8
0x25b9…25cc at0009 = ╱4e╱N╱ // 0x25c2 @0x9
0x25b9…25cc at000a = ╱da╱ AND ╱ // 0x25c3 @0xa
0x25b9…25cc at000b = ╱54╱T╱ // 0x25c4 @0xb
0x25b9…25cc at000c = ╱45╱E╱ // 0x25c5 @0xc
0x25b9…25cc at000d = ╱53╱S╱ // 0x25c6 @0xd
0x25b9…25cc at000e = ╱54╱T╱ // 0x25c7 @0xe
0x25b9…25cc at000f = ╱32╱2╱ // 0x25c8 @0xf
0x25b9…25cc at0010 = ╱dc╱=╱ // 0x25c9 @0x10
0x25b9…25cc at0011 = ╱42╱B╱ // 0x25ca @0x11
0x25b9…25cc at0012 = EOL // 0x25cb @0x12
0x25b9…25cc }
0x25cc…25d6 b32d 3790 FRA=P
0x25cc…25d6 LineComalBin {
0x25cc…25d6 ptr = 0xb32d // 0x25cc @0x0
0x25cc…25d6 lno = 0x0ece // 0x25ce @0x2
0x25cc…25d6 at0004 = ╱46╱F╱ // 0x25d0 @0x4
0x25cc…25d6 at0005 = ╱52╱R╱ // 0x25d1 @0x5
0x25cc…25d6 at0006 = ╱41╱A╱ // 0x25d2 @0x6
0x25cc…25d6 at0007 = ╱dc╱=╱ // 0x25d3 @0x7
0x25cc…25d6 at0008 = ╱50╱P╱ // 0x25d4 @0x8
0x25cc…25d6 at0009 = EOL // 0x25d5 @0x9
0x25cc…25d6 }
0x25d6…25e1 b338 3800 IF P<>-E THEN
0x25d6…25e1 LineComalBin {
0x25d6…25e1 ptr = 0xb338 // 0x25d6 @0x0
0x25d6…25e1 lno = 0x0ed8 // 0x25d8 @0x2
0x25d6…25e1 at0004 = ╱9c╱ IF ╱ // 0x25da @0x4
0x25d6…25e1 at0005 = ╱50╱P╱ // 0x25db @0x5
0x25d6…25e1 at0006 = ╱e1╱<>╱ // 0x25dc @0x6
0x25d6…25e1 at0007 = ╱e9╱-╱ // 0x25dd @0x7
0x25d6…25e1 at0008 = ╱45╱E╱ // 0x25de @0x8
0x25d6…25e1 at0009 = ╱b6╱ THEN ╱ // 0x25df @0x9
0x25d6…25e1 at000a = EOL // 0x25e0 @0xa
0x25d6…25e1 }
0x25e1…25eb b342 3810 IF P=B THEN
0x25e1…25eb LineComalBin {
0x25e1…25eb ptr = 0xb342 // 0x25e1 @0x0
0x25e1…25eb lno = 0x0ee2 // 0x25e3 @0x2
0x25e1…25eb at0004 = ╱9c╱ IF ╱ // 0x25e5 @0x4
0x25e1…25eb at0005 = ╱50╱P╱ // 0x25e6 @0x5
0x25e1…25eb at0006 = ╱dc╱=╱ // 0x25e7 @0x6
0x25e1…25eb at0007 = ╱42╱B╱ // 0x25e8 @0x7
0x25e1…25eb at0008 = ╱b6╱ THEN ╱ // 0x25e9 @0x8
0x25e1…25eb at0009 = EOL // 0x25ea @0x9
0x25e1…25eb }
0x25eb…25fd b354 3820 FRA=E;TIL=REN
0x25eb…25fd LineComalBin {
0x25eb…25fd ptr = 0xb354 // 0x25eb @0x0
0x25eb…25fd lno = 0x0eec // 0x25ed @0x2
0x25eb…25fd at0004 = ╱46╱F╱ // 0x25ef @0x4
0x25eb…25fd at0005 = ╱52╱R╱ // 0x25f0 @0x5
0x25eb…25fd at0006 = ╱41╱A╱ // 0x25f1 @0x6
0x25eb…25fd at0007 = ╱dc╱=╱ // 0x25f2 @0x7
0x25eb…25fd at0008 = ╱45╱E╱ // 0x25f3 @0x8
0x25eb…25fd at0009 = ╱eb╱;╱ // 0x25f4 @0x9
0x25eb…25fd at000a = ╱54╱T╱ // 0x25f5 @0xa
0x25eb…25fd at000b = ╱49╱I╱ // 0x25f6 @0xb
0x25eb…25fd at000c = ╱4c╱L╱ // 0x25f7 @0xc
0x25eb…25fd at000d = ╱dc╱=╱ // 0x25f8 @0xd
0x25eb…25fd at000e = ╱52╱R╱ // 0x25f9 @0xe
0x25eb…25fd at000f = ╱45╱E╱ // 0x25fa @0xf
0x25eb…25fd at0010 = ╱4e╱N╱ // 0x25fb @0x10
0x25eb…25fd at0011 = EOL // 0x25fc @0x11
0x25eb…25fd }
0x25fd…2603 b35a 3830 ELSE
0x25fd…2603 LineComalBin {
0x25fd…2603 ptr = 0xb35a // 0x25fd @0x0
0x25fd…2603 lno = 0x0ef6 // 0x25ff @0x2
0x25fd…2603 at0004 = ╱9a╱ ELSE ╱ // 0x2601 @0x4
0x25fd…2603 at0005 = EOL // 0x2602 @0x5
0x25fd…2603 }
0x2603…2609 b360 3840 REPEAT
0x2603…2609 LineComalBin {
0x2603…2609 ptr = 0xb360 // 0x2603 @0x0
0x2603…2609 lno = 0x0f00 // 0x2605 @0x2
0x2603…2609 at0004 = ╱97╱ REPEAT ╱ // 0x2607 @0x4
0x2603…2609 at0005 = EOL // 0x2608 @0x5
0x2603…2609 }
0x2609…261e b375 3850 CURSOR 18,12
0x2609…261e LineComalBin {
0x2609…261e ptr = 0xb375 // 0x2609 @0x0
0x2609…261e lno = 0x0f0a // 0x260b @0x2
0x2609…261e at0004 = ╱a1╱ CURSOR ╱ // 0x260d @0x4
0x2609…261e at0005 = ╱31╱1╱ // 0x260e @0x5
0x2609…261e at0006 = ╱38╱8╱ // 0x260f @0x6
0x2609…261e at0007 = ╱fe00009005╱ // 0x2610 @0x7
0x2609…261e at000c = ╱ec╱,╱ // 0x2615 @0xc
0x2609…261e at000d = ╱31╱1╱ // 0x2616 @0xd
0x2609…261e at000e = ╱32╱2╱ // 0x2617 @0xe
0x2609…261e at000f = ╱fe0000c004╱ // 0x2618 @0xf
0x2609…261e at0014 = EOL // 0x261d @0x14
0x2609…261e }
0x261e…263c b393 3860 INPUT "Til posteringsnr : ",A$
0x261e…263c LineComalBin {
0x261e…263c ptr = 0xb393 // 0x261e @0x0
0x261e…263c lno = 0x0f14 // 0x2620 @0x2
0x261e…263c at0004 = ╱91╱ INPUT ╱ // 0x2622 @0x4
0x261e…263c at0005 = ╱22╱"╱ // 0x2623 @0x5
0x261e…263c at0006 = ╱54╱T╱ // 0x2624 @0x6
0x261e…263c at0007 = ╱69╱i╱ // 0x2625 @0x7
0x261e…263c at0008 = ╱6c╱l╱ // 0x2626 @0x8
0x261e…263c at0009 = ╱20╱…╱ // 0x2627 @0x9
0x261e…263c at000a = ╱70╱p╱ // 0x2628 @0xa
0x261e…263c at000b = ╱6f╱o╱ // 0x2629 @0xb
0x261e…263c at000c = ╱73╱s╱ // 0x262a @0xc
0x261e…263c at000d = ╱74╱t╱ // 0x262b @0xd
0x261e…263c at000e = ╱65╱e╱ // 0x262c @0xe
0x261e…263c at000f = ╱72╱r╱ // 0x262d @0xf
0x261e…263c at0010 = ╱69╱i╱ // 0x262e @0x10
0x261e…263c at0011 = ╱6e╱n╱ // 0x262f @0x11
0x261e…263c at0012 = ╱67╱g╱ // 0x2630 @0x12
0x261e…263c at0013 = ╱73╱s╱ // 0x2631 @0x13
0x261e…263c at0014 = ╱6e╱n╱ // 0x2632 @0x14
0x261e…263c at0015 = ╱72╱r╱ // 0x2633 @0x15
0x261e…263c at0016 = ╱20╱…╱ // 0x2634 @0x16
0x261e…263c at0017 = ╱3a╱:╱ // 0x2635 @0x17
0x261e…263c at0018 = ╱20╱…╱ // 0x2636 @0x18
0x261e…263c at0019 = ╱22╱"╱ // 0x2637 @0x19
0x261e…263c at001a = ╱ec╱,╱ // 0x2638 @0x1a
0x261e…263c at001b = ╱41╱A╱ // 0x2639 @0x1b
0x261e…263c at001c = ╱ef╱$╱ // 0x263a @0x1c
0x261e…263c at001d = EOL // 0x263b @0x1d
0x261e…263c }
0x263c…264c b3a3 3870 EXEC NRTEST(A$)
0x263c…264c LineComalBin {
0x263c…264c ptr = 0xb3a3 // 0x263c @0x0
0x263c…264c lno = 0x0f1e // 0x263e @0x2
0x263c…264c at0004 = ╱9d╱ EXEC ╱ // 0x2640 @0x4
0x263c…264c at0005 = ╱4e╱N╱ // 0x2641 @0x5
0x263c…264c at0006 = ╱52╱R╱ // 0x2642 @0x6
0x263c…264c at0007 = ╱54╱T╱ // 0x2643 @0x7
0x263c…264c at0008 = ╱45╱E╱ // 0x2644 @0x8
0x263c…264c at0009 = ╱53╱S╱ // 0x2645 @0x9
0x263c…264c at000a = ╱54╱T╱ // 0x2646 @0xa
0x263c…264c at000b = ╱ed╱(╱ // 0x2647 @0xb
0x263c…264c at000c = ╱41╱A╱ // 0x2648 @0xc
0x263c…264c at000d = ╱ef╱$╱ // 0x2649 @0xd
0x263c…264c at000e = ╱ee╱)╱ // 0x264a @0xe
0x263c…264c at000f = EOL // 0x264b @0xf
0x263c…264c }
0x264c…2665 b3bc 3880 UNTIL P=>FRA AND TEST2=B AND P<=REN
0x264c…2665 LineComalBin {
0x264c…2665 ptr = 0xb3bc // 0x264c @0x0
0x264c…2665 lno = 0x0f28 // 0x264e @0x2
0x264c…2665 at0004 = ╱98╱ UNTIL ╱ // 0x2650 @0x4
0x264c…2665 at0005 = ╱50╱P╱ // 0x2651 @0x5
0x264c…2665 at0006 = ╱e0╱=>╱ // 0x2652 @0x6
0x264c…2665 at0007 = ╱46╱F╱ // 0x2653 @0x7
0x264c…2665 at0008 = ╱52╱R╱ // 0x2654 @0x8
0x264c…2665 at0009 = ╱41╱A╱ // 0x2655 @0x9
0x264c…2665 at000a = ╱da╱ AND ╱ // 0x2656 @0xa
0x264c…2665 at000b = ╱54╱T╱ // 0x2657 @0xb
0x264c…2665 at000c = ╱45╱E╱ // 0x2658 @0xc
0x264c…2665 at000d = ╱53╱S╱ // 0x2659 @0xd
0x264c…2665 at000e = ╱54╱T╱ // 0x265a @0xe
0x264c…2665 at000f = ╱32╱2╱ // 0x265b @0xf
0x264c…2665 at0010 = ╱dc╱=╱ // 0x265c @0x10
0x264c…2665 at0011 = ╱42╱B╱ // 0x265d @0x11
0x264c…2665 at0012 = ╱da╱ AND ╱ // 0x265e @0x12
0x264c…2665 at0013 = ╱50╱P╱ // 0x265f @0x13
0x264c…2665 at0014 = ╱df╱<=╱ // 0x2660 @0x14
0x264c…2665 at0015 = ╱52╱R╱ // 0x2661 @0x15
0x264c…2665 at0016 = ╱45╱E╱ // 0x2662 @0x16
0x264c…2665 at0017 = ╱4e╱N╱ // 0x2663 @0x17
0x264c…2665 at0018 = EOL // 0x2664 @0x18
0x264c…2665 }
0x2665…266f b3c6 3885 TIL=P
0x2665…266f LineComalBin {
0x2665…266f ptr = 0xb3c6 // 0x2665 @0x0
0x2665…266f lno = 0x0f2d // 0x2667 @0x2
0x2665…266f at0004 = ╱54╱T╱ // 0x2669 @0x4
0x2665…266f at0005 = ╱49╱I╱ // 0x266a @0x5
0x2665…266f at0006 = ╱4c╱L╱ // 0x266b @0x6
0x2665…266f at0007 = ╱dc╱=╱ // 0x266c @0x7
0x2665…266f at0008 = ╱50╱P╱ // 0x266d @0x8
0x2665…266f at0009 = EOL // 0x266e @0x9
0x2665…266f }
0x266f…2675 b3cc 3890 ENDIF
0x266f…2675 LineComalBin {
0x266f…2675 ptr = 0xb3cc // 0x266f @0x0
0x266f…2675 lno = 0x0f32 // 0x2671 @0x2
0x266f…2675 at0004 = ╱9b╱ ENDIF ╱ // 0x2673 @0x4
0x266f…2675 at0005 = EOL // 0x2674 @0x5
0x266f…2675 }
0x2675…2689 b3e0 3900 FOR RENNR1=FRA TO TIL
0x2675…2689 LineComalBin {
0x2675…2689 ptr = 0xb3e0 // 0x2675 @0x0
0x2675…2689 lno = 0x0f3c // 0x2677 @0x2
0x2675…2689 at0004 = ╱83╱ FOR ╱ // 0x2679 @0x4
0x2675…2689 at0005 = ╱52╱R╱ // 0x267a @0x5
0x2675…2689 at0006 = ╱45╱E╱ // 0x267b @0x6
0x2675…2689 at0007 = ╱4e╱N╱ // 0x267c @0x7
0x2675…2689 at0008 = ╱4e╱N╱ // 0x267d @0x8
0x2675…2689 at0009 = ╱52╱R╱ // 0x267e @0x9
0x2675…2689 at000a = ╱31╱1╱ // 0x267f @0xa
0x2675…2689 at000b = ╱dc╱=╱ // 0x2680 @0xb
0x2675…2689 at000c = ╱46╱F╱ // 0x2681 @0xc
0x2675…2689 at000d = ╱52╱R╱ // 0x2682 @0xd
0x2675…2689 at000e = ╱41╱A╱ // 0x2683 @0xe
0x2675…2689 at000f = ╱b7╱ TO ╱ // 0x2684 @0xf
0x2675…2689 at0010 = ╱54╱T╱ // 0x2685 @0x10
0x2675…2689 at0011 = ╱49╱I╱ // 0x2686 @0x11
0x2675…2689 at0012 = ╱4c╱L╱ // 0x2687 @0x12
0x2675…2689 at0013 = EOL // 0x2688 @0x13
0x2675…2689 }
0x2689…26bb b412 3910 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$
0x2689…26bb LineComalBin {
0x2689…26bb ptr = 0xb412 // 0x2689 @0x0
0x2689…26bb lno = 0x0f46 // 0x268b @0x2
0x2689…26bb at0004 = ╱a9╱ GET ╱ // 0x268d @0x4
0x2689…26bb at0005 = ╱4b╱K╱ // 0x268e @0x5
0x2689…26bb at0006 = ╱35╱5╱ // 0x268f @0x6
0x2689…26bb at0007 = ╱ef╱$╱ // 0x2690 @0x7
0x2689…26bb at0008 = ╱ec╱,╱ // 0x2691 @0x8
0x2689…26bb at0009 = ╱52╱R╱ // 0x2692 @0x9
0x2689…26bb at000a = ╱45╱E╱ // 0x2693 @0xa
0x2689…26bb at000b = ╱4e╱N╱ // 0x2694 @0xb
0x2689…26bb at000c = ╱4e╱N╱ // 0x2695 @0xc
0x2689…26bb at000d = ╱52╱R╱ // 0x2696 @0xd
0x2689…26bb at000e = ╱31╱1╱ // 0x2697 @0xe
0x2689…26bb at000f = ╱f0╱:╱ // 0x2698 @0xf
0x2689…26bb at0010 = ╱4b╱K╱ // 0x2699 @0x10
0x2689…26bb at0011 = ╱4f╱O╱ // 0x269a @0x11
0x2689…26bb at0012 = ╱4e╱N╱ // 0x269b @0x12
0x2689…26bb at0013 = ╱54╱T╱ // 0x269c @0x13
0x2689…26bb at0014 = ╱4f╱O╱ // 0x269d @0x14
0x2689…26bb at0015 = ╱ec╱,╱ // 0x269e @0x15
0x2689…26bb at0016 = ╱4e╱N╱ // 0x269f @0x16
0x2689…26bb at0017 = ╱41╱A╱ // 0x26a0 @0x17
0x2689…26bb at0018 = ╱56╱V╱ // 0x26a1 @0x18
0x2689…26bb at0019 = ╱4e╱N╱ // 0x26a2 @0x19
0x2689…26bb at001a = ╱ef╱$╱ // 0x26a3 @0x1a
0x2689…26bb at001b = ╱ec╱,╱ // 0x26a4 @0x1b
0x2689…26bb at001c = ╱53╱S╱ // 0x26a5 @0x1c
0x2689…26bb at001d = ╱41╱A╱ // 0x26a6 @0x1d
0x2689…26bb at001e = ╱4c╱L╱ // 0x26a7 @0x1e
0x2689…26bb at001f = ╱44╱D╱ // 0x26a8 @0x1f
0x2689…26bb at0020 = ╱4f╱O╱ // 0x26a9 @0x20
0x2689…26bb at0021 = ╱ef╱$╱ // 0x26aa @0x21
0x2689…26bb at0022 = ╱ec╱,╱ // 0x26ab @0x22
0x2689…26bb at0023 = ╱46╱F╱ // 0x26ac @0x23
0x2689…26bb at0024 = ╱53╱S╱ // 0x26ad @0x24
0x2689…26bb at0025 = ╱41╱A╱ // 0x26ae @0x25
0x2689…26bb at0026 = ╱4c╱L╱ // 0x26af @0x26
0x2689…26bb at0027 = ╱44╱D╱ // 0x26b0 @0x27
0x2689…26bb at0028 = ╱4f╱O╱ // 0x26b1 @0x28
0x2689…26bb at0029 = ╱ef╱$╱ // 0x26b2 @0x29
0x2689…26bb at002a = ╱ec╱,╱ // 0x26b3 @0x2a
0x2689…26bb at002b = ╱52╱R╱ // 0x26b4 @0x2b
0x2689…26bb at002c = ╱45╱E╱ // 0x26b5 @0x2c
0x2689…26bb at002d = ╱4e╱N╱ // 0x26b6 @0x2d
0x2689…26bb at002e = ╱54╱T╱ // 0x26b7 @0x2e
0x2689…26bb at002f = ╱45╱E╱ // 0x26b8 @0x2f
0x2689…26bb at0030 = ╱ef╱$╱ // 0x26b9 @0x30
0x2689…26bb at0031 = EOL // 0x26ba @0x31
0x2689…26bb }
0x26bb…26ce b425 3920 EXEC FEJL(V,E,K5$)
0x26bb…26ce LineComalBin {
0x26bb…26ce ptr = 0xb425 // 0x26bb @0x0
0x26bb…26ce lno = 0x0f50 // 0x26bd @0x2
0x26bb…26ce at0004 = ╱9d╱ EXEC ╱ // 0x26bf @0x4
0x26bb…26ce at0005 = ╱46╱F╱ // 0x26c0 @0x5
0x26bb…26ce at0006 = ╱45╱E╱ // 0x26c1 @0x6
0x26bb…26ce at0007 = ╱4a╱J╱ // 0x26c2 @0x7
0x26bb…26ce at0008 = ╱4c╱L╱ // 0x26c3 @0x8
0x26bb…26ce at0009 = ╱ed╱(╱ // 0x26c4 @0x9
0x26bb…26ce at000a = ╱56╱V╱ // 0x26c5 @0xa
0x26bb…26ce at000b = ╱ec╱,╱ // 0x26c6 @0xb
0x26bb…26ce at000c = ╱45╱E╱ // 0x26c7 @0xc
0x26bb…26ce at000d = ╱ec╱,╱ // 0x26c8 @0xd
0x26bb…26ce at000e = ╱4b╱K╱ // 0x26c9 @0xe
0x26bb…26ce at000f = ╱35╱5╱ // 0x26ca @0xf
0x26bb…26ce at0010 = ╱ef╱$╱ // 0x26cb @0x10
0x26bb…26ce at0011 = ╱ee╱)╱ // 0x26cc @0x11
0x26bb…26ce at0012 = EOL // 0x26cd @0x12
0x26bb…26ce }
0x26ce…26fc b453 3930 PUT K5$,RENNR1:B,NAVN$,SALDO$,FSALDO$,RENTE$
0x26ce…26fc LineComalBin {
0x26ce…26fc ptr = 0xb453 // 0x26ce @0x0
0x26ce…26fc lno = 0x0f5a // 0x26d0 @0x2
0x26ce…26fc at0004 = ╱aa╱ PUT ╱ // 0x26d2 @0x4
0x26ce…26fc at0005 = ╱4b╱K╱ // 0x26d3 @0x5
0x26ce…26fc at0006 = ╱35╱5╱ // 0x26d4 @0x6
0x26ce…26fc at0007 = ╱ef╱$╱ // 0x26d5 @0x7
0x26ce…26fc at0008 = ╱ec╱,╱ // 0x26d6 @0x8
0x26ce…26fc at0009 = ╱52╱R╱ // 0x26d7 @0x9
0x26ce…26fc at000a = ╱45╱E╱ // 0x26d8 @0xa
0x26ce…26fc at000b = ╱4e╱N╱ // 0x26d9 @0xb
0x26ce…26fc at000c = ╱4e╱N╱ // 0x26da @0xc
0x26ce…26fc at000d = ╱52╱R╱ // 0x26db @0xd
0x26ce…26fc at000e = ╱31╱1╱ // 0x26dc @0xe
0x26ce…26fc at000f = ╱f0╱:╱ // 0x26dd @0xf
0x26ce…26fc at0010 = ╱42╱B╱ // 0x26de @0x10
0x26ce…26fc at0011 = ╱ec╱,╱ // 0x26df @0x11
0x26ce…26fc at0012 = ╱4e╱N╱ // 0x26e0 @0x12
0x26ce…26fc at0013 = ╱41╱A╱ // 0x26e1 @0x13
0x26ce…26fc at0014 = ╱56╱V╱ // 0x26e2 @0x14
0x26ce…26fc at0015 = ╱4e╱N╱ // 0x26e3 @0x15
0x26ce…26fc at0016 = ╱ef╱$╱ // 0x26e4 @0x16
0x26ce…26fc at0017 = ╱ec╱,╱ // 0x26e5 @0x17
0x26ce…26fc at0018 = ╱53╱S╱ // 0x26e6 @0x18
0x26ce…26fc at0019 = ╱41╱A╱ // 0x26e7 @0x19
0x26ce…26fc at001a = ╱4c╱L╱ // 0x26e8 @0x1a
0x26ce…26fc at001b = ╱44╱D╱ // 0x26e9 @0x1b
0x26ce…26fc at001c = ╱4f╱O╱ // 0x26ea @0x1c
0x26ce…26fc at001d = ╱ef╱$╱ // 0x26eb @0x1d
0x26ce…26fc at001e = ╱ec╱,╱ // 0x26ec @0x1e
0x26ce…26fc at001f = ╱46╱F╱ // 0x26ed @0x1f
0x26ce…26fc at0020 = ╱53╱S╱ // 0x26ee @0x20
0x26ce…26fc at0021 = ╱41╱A╱ // 0x26ef @0x21
0x26ce…26fc at0022 = ╱4c╱L╱ // 0x26f0 @0x22
0x26ce…26fc at0023 = ╱44╱D╱ // 0x26f1 @0x23
0x26ce…26fc at0024 = ╱4f╱O╱ // 0x26f2 @0x24
0x26ce…26fc at0025 = ╱ef╱$╱ // 0x26f3 @0x25
0x26ce…26fc at0026 = ╱ec╱,╱ // 0x26f4 @0x26
0x26ce…26fc at0027 = ╱52╱R╱ // 0x26f5 @0x27
0x26ce…26fc at0028 = ╱45╱E╱ // 0x26f6 @0x28
0x26ce…26fc at0029 = ╱4e╱N╱ // 0x26f7 @0x29
0x26ce…26fc at002a = ╱54╱T╱ // 0x26f8 @0x2a
0x26ce…26fc at002b = ╱45╱E╱ // 0x26f9 @0x2b
0x26ce…26fc at002c = ╱ef╱$╱ // 0x26fa @0x2c
0x26ce…26fc at002d = EOL // 0x26fb @0x2d
0x26ce…26fc }
0x26fc…270f b466 3940 EXEC FEJL(V,G,K5$)
0x26fc…270f LineComalBin {
0x26fc…270f ptr = 0xb466 // 0x26fc @0x0
0x26fc…270f lno = 0x0f64 // 0x26fe @0x2
0x26fc…270f at0004 = ╱9d╱ EXEC ╱ // 0x2700 @0x4
0x26fc…270f at0005 = ╱46╱F╱ // 0x2701 @0x5
0x26fc…270f at0006 = ╱45╱E╱ // 0x2702 @0x6
0x26fc…270f at0007 = ╱4a╱J╱ // 0x2703 @0x7
0x26fc…270f at0008 = ╱4c╱L╱ // 0x2704 @0x8
0x26fc…270f at0009 = ╱ed╱(╱ // 0x2705 @0x9
0x26fc…270f at000a = ╱56╱V╱ // 0x2706 @0xa
0x26fc…270f at000b = ╱ec╱,╱ // 0x2707 @0xb
0x26fc…270f at000c = ╱47╱G╱ // 0x2708 @0xc
0x26fc…270f at000d = ╱ec╱,╱ // 0x2709 @0xd
0x26fc…270f at000e = ╱4b╱K╱ // 0x270a @0xe
0x26fc…270f at000f = ╱35╱5╱ // 0x270b @0xf
0x26fc…270f at0010 = ╱ef╱$╱ // 0x270c @0x10
0x26fc…270f at0011 = ╱ee╱)╱ // 0x270d @0x11
0x26fc…270f at0012 = EOL // 0x270e @0x12
0x26fc…270f }
0x270f…271b b472 3950 NEXT RENNR1
0x270f…271b LineComalBin {
0x270f…271b ptr = 0xb472 // 0x270f @0x0
0x270f…271b lno = 0x0f6e // 0x2711 @0x2
0x270f…271b at0004 = ╱84╱ NEXT ╱ // 0x2713 @0x4
0x270f…271b at0005 = ╱52╱R╱ // 0x2714 @0x5
0x270f…271b at0006 = ╱45╱E╱ // 0x2715 @0x6
0x270f…271b at0007 = ╱4e╱N╱ // 0x2716 @0x7
0x270f…271b at0008 = ╱4e╱N╱ // 0x2717 @0x8
0x270f…271b at0009 = ╱52╱R╱ // 0x2718 @0x9
0x270f…271b at000a = ╱31╱1╱ // 0x2719 @0xa
0x270f…271b at000b = EOL // 0x271a @0xb
0x270f…271b }
0x271b…2721 b478 3960 CLEAR
0x271b…2721 LineComalBin {
0x271b…2721 ptr = 0xb478 // 0x271b @0x0
0x271b…2721 lno = 0x0f78 // 0x271d @0x2
0x271b…2721 at0004 = ╱a0╱ CLEAR ╱ // 0x271f @0x4
0x271b…2721 at0005 = EOL // 0x2720 @0x5
0x271b…2721 }
0x2721…2727 b47e 3970 REPEAT
0x2721…2727 LineComalBin {
0x2721…2727 ptr = 0xb47e // 0x2721 @0x0
0x2721…2727 lno = 0x0f82 // 0x2723 @0x2
0x2721…2727 at0004 = ╱97╱ REPEAT ╱ // 0x2725 @0x4
0x2721…2727 at0005 = EOL // 0x2726 @0x5
0x2721…2727 }
0x2727…273c b493 3980 CURSOR 15,13
0x2727…273c LineComalBin {
0x2727…273c ptr = 0xb493 // 0x2727 @0x0
0x2727…273c lno = 0x0f8c // 0x2729 @0x2
0x2727…273c at0004 = ╱a1╱ CURSOR ╱ // 0x272b @0x4
0x2727…273c at0005 = ╱31╱1╱ // 0x272c @0x5
0x2727…273c at0006 = ╱35╱5╱ // 0x272d @0x6
0x2727…273c at0007 = ╱fe0000f004╱ // 0x272e @0x7
0x2727…273c at000c = ╱ec╱,╱ // 0x2733 @0xc
0x2727…273c at000d = ╱31╱1╱ // 0x2734 @0xd
0x2727…273c at000e = ╱33╱3╱ // 0x2735 @0xe
0x2727…273c at000f = ╱fe0000d004╱ // 0x2736 @0xf
0x2727…273c at0014 = EOL // 0x273b @0x14
0x2727…273c }
0x273c…2765 b4bc 3990 INPUT "Ønskes liste udskrevet (J/N): ",A$
0x273c…2765 LineComalBin {
0x273c…2765 ptr = 0xb4bc // 0x273c @0x0
0x273c…2765 lno = 0x0f96 // 0x273e @0x2
0x273c…2765 at0004 = ╱91╱ INPUT ╱ // 0x2740 @0x4
0x273c…2765 at0005 = ╱22╱"╱ // 0x2741 @0x5
0x273c…2765 at0006 = ╱5c╱Ø╱ // 0x2742 @0x6
0x273c…2765 at0007 = ╱6e╱n╱ // 0x2743 @0x7
0x273c…2765 at0008 = ╱73╱s╱ // 0x2744 @0x8
0x273c…2765 at0009 = ╱6b╱k╱ // 0x2745 @0x9
0x273c…2765 at000a = ╱65╱e╱ // 0x2746 @0xa
0x273c…2765 at000b = ╱73╱s╱ // 0x2747 @0xb
0x273c…2765 at000c = ╱20╱…╱ // 0x2748 @0xc
0x273c…2765 at000d = ╱6c╱l╱ // 0x2749 @0xd
0x273c…2765 at000e = ╱69╱i╱ // 0x274a @0xe
0x273c…2765 at000f = ╱73╱s╱ // 0x274b @0xf
0x273c…2765 at0010 = ╱74╱t╱ // 0x274c @0x10
0x273c…2765 at0011 = ╱65╱e╱ // 0x274d @0x11
0x273c…2765 at0012 = ╱20╱…╱ // 0x274e @0x12
0x273c…2765 at0013 = ╱75╱u╱ // 0x274f @0x13
0x273c…2765 at0014 = ╱64╱d╱ // 0x2750 @0x14
0x273c…2765 at0015 = ╱73╱s╱ // 0x2751 @0x15
0x273c…2765 at0016 = ╱6b╱k╱ // 0x2752 @0x16
0x273c…2765 at0017 = ╱72╱r╱ // 0x2753 @0x17
0x273c…2765 at0018 = ╱65╱e╱ // 0x2754 @0x18
0x273c…2765 at0019 = ╱76╱v╱ // 0x2755 @0x19
0x273c…2765 at001a = ╱65╱e╱ // 0x2756 @0x1a
0x273c…2765 at001b = ╱74╱t╱ // 0x2757 @0x1b
0x273c…2765 at001c = ╱20╱…╱ // 0x2758 @0x1c
0x273c…2765 at001d = ╱28╱(╱ // 0x2759 @0x1d
0x273c…2765 at001e = ╱4a╱J╱ // 0x275a @0x1e
0x273c…2765 at001f = ╱2f╱/╱ // 0x275b @0x1f
0x273c…2765 at0020 = ╱4e╱N╱ // 0x275c @0x20
0x273c…2765 at0021 = ╱29╱)╱ // 0x275d @0x21
0x273c…2765 at0022 = ╱3a╱:╱ // 0x275e @0x22
0x273c…2765 at0023 = ╱20╱…╱ // 0x275f @0x23
0x273c…2765 at0024 = ╱22╱"╱ // 0x2760 @0x24
0x273c…2765 at0025 = ╱ec╱,╱ // 0x2761 @0x25
0x273c…2765 at0026 = ╱41╱A╱ // 0x2762 @0x26
0x273c…2765 at0027 = ╱ef╱$╱ // 0x2763 @0x27
0x273c…2765 at0028 = EOL // 0x2764 @0x28
0x273c…2765 }
0x2765…2775 b4cc 4000 EXEC NRTEST(A$)
0x2765…2775 LineComalBin {
0x2765…2775 ptr = 0xb4cc // 0x2765 @0x0
0x2765…2775 lno = 0x0fa0 // 0x2767 @0x2
0x2765…2775 at0004 = ╱9d╱ EXEC ╱ // 0x2769 @0x4
0x2765…2775 at0005 = ╱4e╱N╱ // 0x276a @0x5
0x2765…2775 at0006 = ╱52╱R╱ // 0x276b @0x6
0x2765…2775 at0007 = ╱54╱T╱ // 0x276c @0x7
0x2765…2775 at0008 = ╱45╱E╱ // 0x276d @0x8
0x2765…2775 at0009 = ╱53╱S╱ // 0x276e @0x9
0x2765…2775 at000a = ╱54╱T╱ // 0x276f @0xa
0x2765…2775 at000b = ╱ed╱(╱ // 0x2770 @0xb
0x2765…2775 at000c = ╱41╱A╱ // 0x2771 @0xc
0x2765…2775 at000d = ╱ef╱$╱ // 0x2772 @0xd
0x2765…2775 at000e = ╱ee╱)╱ // 0x2773 @0xe
0x2765…2775 at000f = EOL // 0x2774 @0xf
0x2765…2775 }
0x2775…278e b4e5 4010 UNTIL P=-7 OR P=-8
0x2775…278e LineComalBin {
0x2775…278e ptr = 0xb4e5 // 0x2775 @0x0
0x2775…278e lno = 0x0faa // 0x2777 @0x2
0x2775…278e at0004 = ╱98╱ UNTIL ╱ // 0x2779 @0x4
0x2775…278e at0005 = ╱50╱P╱ // 0x277a @0x5
0x2775…278e at0006 = ╱dc╱=╱ // 0x277b @0x6
0x2775…278e at0007 = ╱e9╱-╱ // 0x277c @0x7
0x2775…278e at0008 = ╱37╱7╱ // 0x277d @0x8
0x2775…278e at0009 = ╱fe0000e003╱ // 0x277e @0x9
0x2775…278e at000e = ╱db╱ OR ╱ // 0x2783 @0xe
0x2775…278e at000f = ╱50╱P╱ // 0x2784 @0xf
0x2775…278e at0010 = ╱dc╱=╱ // 0x2785 @0x10
0x2775…278e at0011 = ╱e9╱-╱ // 0x2786 @0x11
0x2775…278e at0012 = ╱38╱8╱ // 0x2787 @0x12
0x2775…278e at0013 = ╱fe00008004╱ // 0x2788 @0x13
0x2775…278e at0018 = EOL // 0x278d @0x18
0x2775…278e }
0x278e…27be b515 4020 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1)
0x278e…27be LineComalBin {
0x278e…27be ptr = 0xb515 // 0x278e @0x0
0x278e…27be lno = 0x0fb4 // 0x2790 @0x2
0x278e…27be at0004 = ╱82╱ IF ╱ // 0x2792 @0x4
0x278e…27be at0005 = ╱50╱P╱ // 0x2793 @0x5
0x278e…27be at0006 = ╱dc╱=╱ // 0x2794 @0x6
0x278e…27be at0007 = ╱e9╱-╱ // 0x2795 @0x7
0x278e…27be at0008 = ╱37╱7╱ // 0x2796 @0x8
0x278e…27be at0009 = ╱fe0000e003╱ // 0x2797 @0x9
0x278e…27be at000e = ╱b6╱ THEN ╱ // 0x279c @0xe
0x278e…27be at000f = ╱9d╱ EXEC ╱ // 0x279d @0xf
0x278e…27be at0010 = ╱53╱S╱ // 0x279e @0x10
0x278e…27be at0011 = ╱4b╱K╱ // 0x279f @0x11
0x278e…27be at0012 = ╱52╱R╱ // 0x27a0 @0x12
0x278e…27be at0013 = ╱49╱I╱ // 0x27a1 @0x13
0x278e…27be at0014 = ╱56╱V╱ // 0x27a2 @0x14
0x278e…27be at0015 = ╱4c╱L╱ // 0x27a3 @0x15
0x278e…27be at0016 = ╱49╱I╱ // 0x27a4 @0x16
0x278e…27be at0017 = ╱53╱S╱ // 0x27a5 @0x17
0x278e…27be at0018 = ╱54╱T╱ // 0x27a6 @0x18
0x278e…27be at0019 = ╱ed╱(╱ // 0x27a7 @0x19
0x278e…27be at001a = ╱54╱T╱ // 0x27a8 @0x1a
0x278e…27be at001b = ╱58╱X╱ // 0x27a9 @0x1b
0x278e…27be at001c = ╱54╱T╱ // 0x27aa @0x1c
0x278e…27be at001d = ╱31╱1╱ // 0x27ab @0x1d
0x278e…27be at001e = ╱ef╱$╱ // 0x27ac @0x1e
0x278e…27be at001f = ╱ed╱(╱ // 0x27ad @0x1f
0x278e…27be at0020 = ╱35╱5╱ // 0x27ae @0x20
0x278e…27be at0021 = ╱fe0000a003╱ // 0x27af @0x21
0x278e…27be at0026 = ╱ee╱)╱ // 0x27b4 @0x26
0x278e…27be at0027 = ╱ec╱,╱ // 0x27b5 @0x27
0x278e…27be at0028 = ╱31╱1╱ // 0x27b6 @0x28
0x278e…27be at0029 = ╱fe00008001╱ // 0x27b7 @0x29
0x278e…27be at002e = ╱ee╱)╱ // 0x27bc @0x2e
0x278e…27be at002f = EOL // 0x27bd @0x2f
0x278e…27be }
0x27be…27c4 b51b 4030 ENDIF
0x27be…27c4 LineComalBin {
0x27be…27c4 ptr = 0xb51b // 0x27be @0x0
0x27be…27c4 lno = 0x0fbe // 0x27c0 @0x2
0x27be…27c4 at0004 = ╱9b╱ ENDIF ╱ // 0x27c2 @0x4
0x27be…27c4 at0005 = EOL // 0x27c3 @0x5
0x27be…27c4 }
0x27c4…27d1 b528 4040 WHEN 4
0x27c4…27d1 LineComalBin {
0x27c4…27d1 ptr = 0xb528 // 0x27c4 @0x0
0x27c4…27d1 lno = 0x0fc8 // 0x27c6 @0x2
0x27c4…27d1 at0004 = ╱a301╱ WHEN ╱ // 0x27c8 @0x4
0x27c4…27d1 at0006 = ╱34╱4╱ // 0x27ca @0x6
0x27c4…27d1 at0007 = ╱fe00008003╱ // 0x27cb @0x7
0x27c4…27d1 at000c = EOL // 0x27d0 @0xc
0x27c4…27d1 }
0x27d1…27f6 b54d 4050 EXEC SKRIVLIST(TXT1$(5),1)
0x27d1…27f6 LineComalBin {
0x27d1…27f6 ptr = 0xb54d // 0x27d1 @0x0
0x27d1…27f6 lno = 0x0fd2 // 0x27d3 @0x2
0x27d1…27f6 at0004 = ╱9d╱ EXEC ╱ // 0x27d5 @0x4
0x27d1…27f6 at0005 = ╱53╱S╱ // 0x27d6 @0x5
0x27d1…27f6 at0006 = ╱4b╱K╱ // 0x27d7 @0x6
0x27d1…27f6 at0007 = ╱52╱R╱ // 0x27d8 @0x7
0x27d1…27f6 at0008 = ╱49╱I╱ // 0x27d9 @0x8
0x27d1…27f6 at0009 = ╱56╱V╱ // 0x27da @0x9
0x27d1…27f6 at000a = ╱4c╱L╱ // 0x27db @0xa
0x27d1…27f6 at000b = ╱49╱I╱ // 0x27dc @0xb
0x27d1…27f6 at000c = ╱53╱S╱ // 0x27dd @0xc
0x27d1…27f6 at000d = ╱54╱T╱ // 0x27de @0xd
0x27d1…27f6 at000e = ╱ed╱(╱ // 0x27df @0xe
0x27d1…27f6 at000f = ╱54╱T╱ // 0x27e0 @0xf
0x27d1…27f6 at0010 = ╱58╱X╱ // 0x27e1 @0x10
0x27d1…27f6 at0011 = ╱54╱T╱ // 0x27e2 @0x11
0x27d1…27f6 at0012 = ╱31╱1╱ // 0x27e3 @0x12
0x27d1…27f6 at0013 = ╱ef╱$╱ // 0x27e4 @0x13
0x27d1…27f6 at0014 = ╱ed╱(╱ // 0x27e5 @0x14
0x27d1…27f6 at0015 = ╱35╱5╱ // 0x27e6 @0x15
0x27d1…27f6 at0016 = ╱fe0000a003╱ // 0x27e7 @0x16
0x27d1…27f6 at001b = ╱ee╱)╱ // 0x27ec @0x1b
0x27d1…27f6 at001c = ╱ec╱,╱ // 0x27ed @0x1c
0x27d1…27f6 at001d = ╱31╱1╱ // 0x27ee @0x1d
0x27d1…27f6 at001e = ╱fe00008001╱ // 0x27ef @0x1e
0x27d1…27f6 at0023 = ╱ee╱)╱ // 0x27f4 @0x23
0x27d1…27f6 at0024 = EOL // 0x27f5 @0x24
0x27d1…27f6 }
0x27f6…27fc b553 4060 ENDCASE
0x27f6…27fc LineComalBin {
0x27f6…27fc ptr = 0xb553 // 0x27f6 @0x0
0x27f6…27fc lno = 0x0fdc // 0x27f8 @0x2
0x27f6…27fc at0004 = ╱a4╱ ENDCASE ╱ // 0x27fa @0x4
0x27f6…27fc at0005 = EOL // 0x27fb @0x5
0x27f6…27fc }
0x27fc…280f b566 4080 UNTIL TYPE=G OR TYPE=B
0x27fc…280f LineComalBin {
0x27fc…280f ptr = 0xb566 // 0x27fc @0x0
0x27fc…280f lno = 0x0ff0 // 0x27fe @0x2
0x27fc…280f at0004 = ╱98╱ UNTIL ╱ // 0x2800 @0x4
0x27fc…280f at0005 = ╱54╱T╱ // 0x2801 @0x5
0x27fc…280f at0006 = ╱59╱Y╱ // 0x2802 @0x6
0x27fc…280f at0007 = ╱50╱P╱ // 0x2803 @0x7
0x27fc…280f at0008 = ╱45╱E╱ // 0x2804 @0x8
0x27fc…280f at0009 = ╱dc╱=╱ // 0x2805 @0x9
0x27fc…280f at000a = ╱47╱G╱ // 0x2806 @0xa
0x27fc…280f at000b = ╱db╱ OR ╱ // 0x2807 @0xb
0x27fc…280f at000c = ╱54╱T╱ // 0x2808 @0xc
0x27fc…280f at000d = ╱59╱Y╱ // 0x2809 @0xd
0x27fc…280f at000e = ╱50╱P╱ // 0x280a @0xe
0x27fc…280f at000f = ╱45╱E╱ // 0x280b @0xf
0x27fc…280f at0010 = ╱dc╱=╱ // 0x280c @0x10
0x27fc…280f at0011 = ╱42╱B╱ // 0x280d @0x11
0x27fc…280f at0012 = EOL // 0x280e @0x12
0x27fc…280f }
0x280f…2818 b56f 4090 CLOSE K4$
0x280f…2818 LineComalBin {
0x280f…2818 ptr = 0xb56f // 0x280f @0x0
0x280f…2818 lno = 0x0ffa // 0x2811 @0x2
0x280f…2818 at0004 = ╱a8╱ CLOSE ╱ // 0x2813 @0x4
0x280f…2818 at0005 = ╱4b╱K╱ // 0x2814 @0x5
0x280f…2818 at0006 = ╱34╱4╱ // 0x2815 @0x6
0x280f…2818 at0007 = ╱ef╱$╱ // 0x2816 @0x7
0x280f…2818 at0008 = EOL // 0x2817 @0x8
0x280f…2818 }
0x2818…2831 b588 4100 EXEC FEJL(W,20,K4$)
0x2818…2831 LineComalBin {
0x2818…2831 ptr = 0xb588 // 0x2818 @0x0
0x2818…2831 lno = 0x1004 // 0x281a @0x2
0x2818…2831 at0004 = ╱9d╱ EXEC ╱ // 0x281c @0x4
0x2818…2831 at0005 = ╱46╱F╱ // 0x281d @0x5
0x2818…2831 at0006 = ╱45╱E╱ // 0x281e @0x6
0x2818…2831 at0007 = ╱4a╱J╱ // 0x281f @0x7
0x2818…2831 at0008 = ╱4c╱L╱ // 0x2820 @0x8
0x2818…2831 at0009 = ╱ed╱(╱ // 0x2821 @0x9
0x2818…2831 at000a = ╱57╱W╱ // 0x2822 @0xa
0x2818…2831 at000b = ╱ec╱,╱ // 0x2823 @0xb
0x2818…2831 at000c = ╱32╱2╱ // 0x2824 @0xc
0x2818…2831 at000d = ╱30╱0╱ // 0x2825 @0xd
0x2818…2831 at000e = ╱fe0000a005╱ // 0x2826 @0xe
0x2818…2831 at0013 = ╱ec╱,╱ // 0x282b @0x13
0x2818…2831 at0014 = ╱4b╱K╱ // 0x282c @0x14
0x2818…2831 at0015 = ╱34╱4╱ // 0x282d @0x15
0x2818…2831 at0016 = ╱ef╱$╱ // 0x282e @0x16
0x2818…2831 at0017 = ╱ee╱)╱ // 0x282f @0x17
0x2818…2831 at0018 = EOL // 0x2830 @0x18
0x2818…2831 }
0x2831…283a b591 4110 CLOSE K5$
0x2831…283a LineComalBin {
0x2831…283a ptr = 0xb591 // 0x2831 @0x0
0x2831…283a lno = 0x100e // 0x2833 @0x2
0x2831…283a at0004 = ╱a8╱ CLOSE ╱ // 0x2835 @0x4
0x2831…283a at0005 = ╱4b╱K╱ // 0x2836 @0x5
0x2831…283a at0006 = ╱35╱5╱ // 0x2837 @0x6
0x2831…283a at0007 = ╱ef╱$╱ // 0x2838 @0x7
0x2831…283a at0008 = EOL // 0x2839 @0x8
0x2831…283a }
0x283a…2853 b5aa 4120 EXEC FEJL(W,21,K5$)
0x283a…2853 LineComalBin {
0x283a…2853 ptr = 0xb5aa // 0x283a @0x0
0x283a…2853 lno = 0x1018 // 0x283c @0x2
0x283a…2853 at0004 = ╱9d╱ EXEC ╱ // 0x283e @0x4
0x283a…2853 at0005 = ╱46╱F╱ // 0x283f @0x5
0x283a…2853 at0006 = ╱45╱E╱ // 0x2840 @0x6
0x283a…2853 at0007 = ╱4a╱J╱ // 0x2841 @0x7
0x283a…2853 at0008 = ╱4c╱L╱ // 0x2842 @0x8
0x283a…2853 at0009 = ╱ed╱(╱ // 0x2843 @0x9
0x283a…2853 at000a = ╱57╱W╱ // 0x2844 @0xa
0x283a…2853 at000b = ╱ec╱,╱ // 0x2845 @0xb
0x283a…2853 at000c = ╱32╱2╱ // 0x2846 @0xc
0x283a…2853 at000d = ╱31╱1╱ // 0x2847 @0xd
0x283a…2853 at000e = ╱fe0000a805╱ // 0x2848 @0xe
0x283a…2853 at0013 = ╱ec╱,╱ // 0x284d @0x13
0x283a…2853 at0014 = ╱4b╱K╱ // 0x284e @0x14
0x283a…2853 at0015 = ╱35╱5╱ // 0x284f @0x15
0x283a…2853 at0016 = ╱ef╱$╱ // 0x2850 @0x16
0x283a…2853 at0017 = ╱ee╱)╱ // 0x2851 @0x17
0x283a…2853 at0018 = EOL // 0x2852 @0x18
0x283a…2853 }
0x2853…2859 b5b0 4130 CLOSE
0x2853…2859 LineComalBin {
0x2853…2859 ptr = 0xb5b0 // 0x2853 @0x0
0x2853…2859 lno = 0x1022 // 0x2855 @0x2
0x2853…2859 at0004 = ╱a8╱ CLOSE ╱ // 0x2857 @0x4
0x2853…2859 at0005 = EOL // 0x2858 @0x5
0x2853…2859 }
0x2859…285f b5b6 4140 CLEAR
0x2859…285f LineComalBin {
0x2859…285f ptr = 0xb5b6 // 0x2859 @0x0
0x2859…285f lno = 0x102c // 0x285b @0x2
0x2859…285f at0004 = ╱a0╱ CLEAR ╱ // 0x285d @0x4
0x2859…285f at0005 = EOL // 0x285e @0x5
0x2859…285f }
0x285f…2879 b5d0 4200 IF TYPE=G THEN CHAIN "P641210:BJ"
0x285f…2879 LineComalBin {
0x285f…2879 ptr = 0xb5d0 // 0x285f @0x0
0x285f…2879 lno = 0x1068 // 0x2861 @0x2
0x285f…2879 at0004 = ╱82╱ IF ╱ // 0x2863 @0x4
0x285f…2879 at0005 = ╱54╱T╱ // 0x2864 @0x5
0x285f…2879 at0006 = ╱59╱Y╱ // 0x2865 @0x6
0x285f…2879 at0007 = ╱50╱P╱ // 0x2866 @0x7
0x285f…2879 at0008 = ╱45╱E╱ // 0x2867 @0x8
0x285f…2879 at0009 = ╱dc╱=╱ // 0x2868 @0x9
0x285f…2879 at000a = ╱47╱G╱ // 0x2869 @0xa
0x285f…2879 at000b = ╱b6╱ THEN ╱ // 0x286a @0xb
0x285f…2879 at000c = ╱ac╱ CHAIN ╱ // 0x286b @0xc
0x285f…2879 at000d = ╱22╱"╱ // 0x286c @0xd
0x285f…2879 at000e = ╱50╱P╱ // 0x286d @0xe
0x285f…2879 at000f = ╱36╱6╱ // 0x286e @0xf
0x285f…2879 at0010 = ╱34╱4╱ // 0x286f @0x10
0x285f…2879 at0011 = ╱31╱1╱ // 0x2870 @0x11
0x285f…2879 at0012 = ╱32╱2╱ // 0x2871 @0x12
0x285f…2879 at0013 = ╱31╱1╱ // 0x2872 @0x13
0x285f…2879 at0014 = ╱30╱0╱ // 0x2873 @0x14
0x285f…2879 at0015 = ╱3a╱:╱ // 0x2874 @0x15
0x285f…2879 at0016 = ╱42╱B╱ // 0x2875 @0x16
0x285f…2879 at0017 = ╱4a╱J╱ // 0x2876 @0x17
0x285f…2879 at0018 = ╱22╱"╱ // 0x2877 @0x18
0x285f…2879 at0019 = EOL // 0x2878 @0x19
0x285f…2879 }
0x2879…2885 b5dc 4210 EXEC SYSGEM
0x2879…2885 LineComalBin {
0x2879…2885 ptr = 0xb5dc // 0x2879 @0x0
0x2879…2885 lno = 0x1072 // 0x287b @0x2
0x2879…2885 at0004 = ╱9d╱ EXEC ╱ // 0x287d @0x4
0x2879…2885 at0005 = ╱53╱S╱ // 0x287e @0x5
0x2879…2885 at0006 = ╱59╱Y╱ // 0x287f @0x6
0x2879…2885 at0007 = ╱53╱S╱ // 0x2880 @0x7
0x2879…2885 at0008 = ╱47╱G╱ // 0x2881 @0x8
0x2879…2885 at0009 = ╱45╱E╱ // 0x2882 @0x9
0x2879…2885 at000a = ╱4d╱M╱ // 0x2883 @0xa
0x2879…2885 at000b = EOL // 0x2884 @0xb
0x2879…2885 }
0x2885…289c 0000 4220 CHAIN "P641210:OPSTART"
0x2885…289c LineComalBin {
0x2885…289c ptr = 0x0000 // 0x2885 @0x0
0x2885…289c lno = 0x107c // 0x2887 @0x2
0x2885…289c at0004 = ╱ac╱ CHAIN ╱ // 0x2889 @0x4
0x2885…289c at0005 = ╱22╱"╱ // 0x288a @0x5
0x2885…289c at0006 = ╱50╱P╱ // 0x288b @0x6
0x2885…289c at0007 = ╱36╱6╱ // 0x288c @0x7
0x2885…289c at0008 = ╱34╱4╱ // 0x288d @0x8
0x2885…289c at0009 = ╱31╱1╱ // 0x288e @0x9
0x2885…289c at000a = ╱32╱2╱ // 0x288f @0xa
0x2885…289c at000b = ╱31╱1╱ // 0x2890 @0xb
0x2885…289c at000c = ╱30╱0╱ // 0x2891 @0xc
0x2885…289c at000d = ╱3a╱:╱ // 0x2892 @0xd
0x2885…289c at000e = ╱4f╱O╱ // 0x2893 @0xe
0x2885…289c at000f = ╱50╱P╱ // 0x2894 @0xf
0x2885…289c at0010 = ╱53╱S╱ // 0x2895 @0x10
0x2885…289c at0011 = ╱54╱T╱ // 0x2896 @0x11
0x2885…289c at0012 = ╱41╱A╱ // 0x2897 @0x12
0x2885…289c at0013 = ╱52╱R╱ // 0x2898 @0x13
0x2885…289c at0014 = ╱54╱T╱ // 0x2899 @0x14
0x2885…289c at0015 = ╱22╱"╱ // 0x289a @0x15
0x2885…289c at0016 = EOL // 0x289b @0x16
0x2885…289c }
0x289c…28a0 57 8d 55 00 ┆W U ┆
0x28a0…28c0 42 dc 30 fe 00 00 00 00 eb 45 dc 31 fe 00 00 80 01 eb 47 dc 32 fe 00 00 80 02 eb 56 dc 33 fe 00 ┆B 0 E 1 G 2 V 3 ┆
0x28c0…28cd 00 c0 02 eb 57 dc 39 fe 00 00 90 04 ff ┆ W 9 ┆
0x28cd…28d3 (136,) 57 8d f3 b5 10 00 ┆W ┆