|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »RENTE.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »RENTE.K«
0090 DIM OP1$(12),OP2$(12),RES$(14),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$(1),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12) 0140 DIM DEBLK$(1),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$(1),TKO$(1),K6$(17) 0170 DIM TORENTE$(12),TEKST$(25),T1(9),T2(9),BLB2$(12) 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=-1 0270 OUTPUT P 0280 LINIE=1;SUM1$="0+";SUM2$="0+";SUM3$="0+";SALDO$="0+";FSALDO$="0+" 0281 RENTE$="0+" 0290 FOR RENNR1=1 TO REN 0300 IF LINIE=40 THEN 0310 PRINT CHR(10);CHR(10);CHR(10) 0320 LINIE=1;SIDE=SIDE+1 0330 ENDIF 0340 IF LINIE=1 THEN 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(1,1,K5$) 0440 IF KONTO=0 THEN RENNR1=RENNR1+1;SALDO$="0+";FSALDO$="0+";RENTE$="0+" 0450 UNTIL KONTO<>0 OR RENNR1=REN+1 0455 IF KONTO=0 THEN EXIT 0460 EXEC CALC(0,SUM1$,SALDO$,SUM1$) 0470 EXEC CALC(0,SUM2$,FSALDO$,SUM2$) 0480 EXEC CALC(0,SUM3$,RENTE$,SUM3$) 0490 EXEC TUD(SALDO$,UBELØB1$,1,0) 0500 EXEC TUD(FSALDO$,UBELØB2$,1,0) 0510 EXEC TUD(RENTE$,UBELØB3$,1,0) 0520 PRINT USING "#### ###### ":RENNR1,KONTO; 0530 PRINT NAVN$;TAB(38);UBELØB1$;UBELØB2$;UBELØB3$ 0540 LINIE=LINIE+1 0550 NEXT RENNR1 0560 FOR LINIE=LINIE TO 40 0570 PRINT " " 0580 NEXT LINIE 0590 PRINT "" 0600 EXEC TUD(SUM1$,UBELØB1$,1,0) 0610 EXEC TUD(SUM2$,UBELØB2$,1,0) 0620 EXEC TUD(SUM3$,UBELØB3$,1,0) 0630 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(34);UBELØB1$;UBELØB2$;UBELØB3$ 0640 PRINT CHR(10) 0650 OUTPUT T 0660 CLEAR 0670 SIDE=SIDE+1;P=-8 0680 IF TYPE=2 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=0 THEN UBLB1$=UBLB1$(1:13) 0755 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 0756 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 0757 ENDPROC 0760 PROC SYSGEM 0770 T2(1)=BHPOSTNR;T1(9)=RENRAPSIDE;T2(8)=REN 0780 OPEN K6$,W 0790 EXEC FEJL(3,1,K6$) 0800 PUT K6$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 0810 EXEC FEJL(3,2,K6$) 0820 PUT K6$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 0830 EXEC FEJL(3,3,K6$) 0840 CLOSE K6$ 0850 EXEC FEJL(3,4,K6$) 0860 ENDPROC 0870 PROC DATOUD(DA1,DA2) 0880 DA3=DA1 0890 DA2$=" " 0900 FOR J=8 TO 1 STEP -1 0910 IF J MOD 3=0 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=1 TO PIL1 1020 H=(I-1)*8+1 1030 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 1040 EXEC FEJL(2,1,L7$) 1050 NEXT I 1060 ENDPROC 1070 PROC NRTEST(NUM1) 1080 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 1090 IF L>6 THEN EXIT 1100 CASE L OF 1110 FOR I=1 TO L 1120 P1=INT(ORD(NUM1$(I))-48) 1130 IF P1<0 OR P1>9 THEN TEST2=1 1140 P=P*10+P1 1150 NEXT I 1160 KTAL=P DIV 10000 1170 WHEN 0 1180 P=-1 1190 WHEN 1 1200 CASE NUM1$ OF 1210 P=INT(ORD(NUM1$)-48) 1220 WHEN "D","d" 1230 P=-2 1240 WHEN "A","a" 1250 P=-3 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=1 THEN EXIT 1390 PIL1=(PIL1+1) DIV 2;PIL10=PIL10+PIL1*(1-2*(NØGL6<TAB5(PIL10))) 1400 IF PIL10<1 THEN PIL10=1 1410 IF PIL10>MANT3 THEN PIL10=MANT3 1420 UNTIL PIL1=0 1430 IF TAB5(PIL10)>NØGL6 THEN PIL10=PIL10-1*(PIL10>1) 1440 ENDPROC 1450 PROC CALC(AR3,B1,B2,ES) 1460 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 1470 CALL "P641215: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$)<>0 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(1,1),U(1,2),U(2,1),U(2,2),U(3,1),U(3,2),U(4,1),U(4,2) 1620 EXEC FEJL(1,1,K2$) 1630 ENDPROC 1640 PROC HENTDPOST 1650 S=DTAB3(DPIL3,2) 1660 GET K3$,S:KONTO,DEBNAVN$,DSALDO1$,DEBKGR$ 1670 EXEC FEJL(8,1,K3$) 1680 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1690 EXEC FEJL(8,2,K3$) 1700 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1710 EXEC FEJL(8,3,K3$) 1720 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1730 EXEC FEJL(8,4,K3$) 1740 ENDPROC 1750 K1$="P641220:SYSTEM1" 1760 OPEN K1$,R 1770 EXEC FEJL(9,1,K1$) 1780 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL 1790 EXEC FEJL(9,2,K1$) 1800 GET K1$,2:MKAS,MPOS,MBHPOST,MFMID 1810 EXEC FEJL(9,3,K1$) 1820 GET K1$,3:MDMID 1830 EXEC FEJL(9,4,K1$) 1840 GET K1$,7:INDMOMS,RENTENR 1850 EXEC FEJL(9,5,K1$) 1855 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 1856 EXEC FEJL(9,51,K1$) 1860 GET K1$,10:N$ 1870 EXEC FEJL(9,6,K1$) 1880 GET K1$,12:K2$ 1890 EXEC FEJL(9,7,K1$) 1900 GET K1$,16:K3$ 1910 EXEC FEJL(9,8,K1$) 1920 GET K1$,21:K4$ 1930 EXEC FEJL(9,9,K1$) 1940 GET K1$,36:K6$ 1950 EXEC FEJL(9,10,K1$) 1960 CLOSE K1$ 1970 EXEC FEJL(9,11,K1$) 1980 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K6$=N$+K6$;K5$=N$+"15:RENPOST" 1990 DIM DTAB(MDANTAL DIV 4),DTAB3(4,2) 2000 IF MDMID>MBHPOST THEN MDMID=MBHPOST 2010 CREATE K5$,MDMID,70 2020 IF STATUS(K5$)>2 THEN STOP 2030 OPEN K6$,R 2040 EXEC FEJL(9,12,K6$) 2050 GET K6$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 2060 EXEC FEJL(9,13,K6$) 2070 GET K6$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 2080 EXEC FEJL(9,14,K6$) 2090 CLOSE K6$ 2100 EXEC FEJL(9,15,K6$) 2110 DATO=T1(7);BHPOSTNR=T2(1);RENRAPSIDE=T1(9);REN=T2(8);TAH$="0+" 2111 TAL3$="100+" 2120 OPEN K2$,R 2130 EXEC FEJL(9,16,K2$) 2140 OPEN K3$,R 2150 EXEC FEJL(9,17,K3$) 2160 OPEN K4$,W 2170 EXEC FEJL(9,18,K4$) 2180 OPEN K5$,W 2190 EXEC FEJL(9,19,K5$) 2200 EXEC INDTAB1(DTAB,MDANTAL,K2$) 2210 EXEC DATOUD(DATO,DAT$) 2220 TXT1$(1)="Beregning af rente" 2230 TXT1$(2)="Bogføring af rente" 2240 TXT1$(3)="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,1 2320 PRINT "Renteberegning" 2330 CURSOR 16,4 2340 PRINT "0 :Færdig" 2350 FOR I=1 TO 4 2360 CURSOR 15,(I-1)*2+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=>0 AND P<5 AND TEST2=0 2440 TYPE=P 2450 IF TYPE=0 THEN EXIT 2470 CLEAR 2480 CURSOR 18,8 2490 PRINT TXT1$(TYPE) 2500 CASE TYPE OF 2510 STOP 2520 WHEN 1 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=0) AND TEST2=0 2600 FRANR=P 2610 IF P=0 THEN 2620 FRA=1;TIL=MDANTAL DIV 4;TILNR=(DTAL+1)*10000 2630 ELSE 2640 EXEC FINDPOST2(DTAB,MDANTAL,P,FRA) 2650 IF DTAB(FRA)=1000000 THEN FRA=0 2660 ENDIF 2670 UNTIL FRA>0 2680 IF P>0 THEN 2690 REPEAT 2700 REPEAT 2710 CURSOR 18,12 2720 INPUT "Til kundenr : ",A$ 2730 EXEC NRTEST(A$) 2740 UNTIL KTAL=DTAL AND TEST2=0 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=0 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=0 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=0 OR P=1) AND TEST2=0 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=1 TO 4 3120 IF DTAB3(DPIL3,1)=>FRANR AND DTAB3(DPIL3,1)<=TILNR THEN 3130 EXEC HENTDPOST 3140 SALDO$="0+";SALDO1$="0+" 3150 EXEC CALC(0,DSALDO4$,DSALDO3$,SALDO$) 3160 EXEC CALC(0,DSALDO1$,DSALDO2$,SALDO1$) 3170 EXEC CALC(0,SALDO1$,SALDO$,SALDO1$) 3180 IF FØR=0 THEN EXEC CALC(0,SALDO$,DSALDO2$,SALDO$) 3190 IF SALDO$(LEN(SALDO$))="+" THEN 3200 EXEC CALC(2,SALDO$,RENPRO$,RENTE$) 3210 EXEC CALC(3,RENTE$,TAL3$,RENTE$) 3220 EXEC CALC(4,RENTE$,MINREN$,TAL3$) 3230 IF SI<>1 THEN 3240 REN=REN+1 3250 PUT K5$,REN:KONTO,DEBNAVN$,SALDO1$,SALDO$,RENTE$ 3260 EXEC FEJL(2,1,K5$) 3265 ENDIF 3270 ENDIF 3280 ENDIF 3290 IF DTAB3(DPIL3,1)>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=-1 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 2 3480 MUL$="4";TKO$=CHR(23+48);TORENTE$="0+" 3490 FOR RENNR1=1 TO REN 3500 GET K5$,RENNR1:KONTO,NAVN$,SALDO1$,SALDO$,RENTE$ 3510 EXEC FEJL(4,1,K5$) 3520 IF KONTO<>0 THEN 3530 BHPOSTNR=BHPOSTNR+1 3540 PUT K4$,BHPOSTNR:KONTO,DATO,RENNR1,TKO$,RENTE$,MUL$ 3550 EXEC FEJL(4,2,K4$) 3560 EXEC CALC(1,TORENTE$,RENTE$,TORENTE$) 3570 ENDIF 3580 NEXT RENNR1 3590 BHPOSTNR=BHPOSTNR+2;TKO$=CHR(10+48);TEKST$="Samlet rentepostering" 3600 PUT K4$,BHPOSTNR-1:RENTENR,DATO,RENRAPSIDE,TKO$,TORENTE$,MUL$ 3610 EXEC FEJL(4,3,K4$) 3620 PUT K4$,BHPOSTNR:RENTENR,TEKST$ 3630 EXEC FEJL(4,4,K4$) 3640 EXEC SKRIVLIST(TXT1$(6),RENRAPSIDE) 3650 REN=0 3660 EXEC SYSGEM 3670 FOR I=1 TO RENNR1-1 3680 PUT K5$,I:0,TAH$,TAH$,TAH$ 3690 EXEC FEJL(4,5,K5$) 3700 NEXT I 3710 WHEN 3 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=0 3790 FRA=P 3800 IF P<>-1 THEN 3810 IF P=0 THEN 3820 FRA=1;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=0 AND P<=REN 3890 ENDIF 3895 TIL=P 3900 FOR RENNR1=FRA TO TIL 3910 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$ 3920 EXEC FEJL(3,1,K5$) 3930 PUT K5$,RENNR1:0,NAVN$,SALDO$,FSALDO$,RENTE$ 3940 EXEC FEJL(3,2,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=2 OR TYPE=0 4090 CLOSE K4$ 4100 EXEC FEJL(9,20,K4$) 4110 CLOSE K5$ 4120 EXEC FEJL(9,21,K5$) 4130 CLOSE 4140 CLEAR 4150 REPEAT 4160 CURSOR 15,13 4170 INPUT "Isæt plade nr 10 og tast RETURN",A$ 4180 EXEC NRTEST(A$) 4190 UNTIL P=-1 4200 IF TYPE=2 THEN CHAIN "P641210:BJ" 4210 EXEC SYSGEM 4220 CHAIN "P641210:OPSTART"
0x0000…0042 Line {l1=0x40, l2=»0090 DIM OP1$(12),OP2$(12),RES$(14),K2$(17),K4$(17),DEBNAVN$(25)«, l3=0x40}
0x0042…008f Line {l1=0x4b, l2=»0100 DIM A$(6),SUM1$(14),SUM2$(12),SUM3$(12),K5$(17),SALDO$(12),FSALDO$(12)«, l3=0x4b}
0x008f…00d5 Line {l1=0x44, l2=»0110 DIM RENTE$(12),UBELØB1$(14),UBELØB2$(14),UBELØB3$(14),NAVN$(25)«, l3=0x44}
0x00d5…011e Line {l1=0x47, l2=»0130 DIM DSALDO1$(12),DEBKGR$(1),DSALDO2$(12),DSALDO3$(12),DSALDO4$(12)«, l3=0x47}
0x011e…016d Line {l1=0x4d, l2=»0140 DIM DEBLK$(1),DEBGADE$(25),DEBTLF$(10),DEBBY$(20),ÅRKØB$(12),MDNKØB$(12)«, l3=0x4d}
0x016d…01b6 Line {l1=0x47, l2=»0150 DIM K1$(17),N$(6),K3$(17),DAT$(8),TXT1$(6,28),RENPRO$(12),TAH$(12)«, l3=0x47}
0x01b6…01fa Line {l1=0x42, l2=»0160 DIM MINREN$(12),SALDO1$(12),TAL3$(12),MUL$(1),TKO$(1),K6$(17)«, l3=0x42}
0x01fa…0232 Line {l1=0x36, l2=»0170 DIM TORENTE$(12),TEKST$(25),T1(9),T2(9),BLB2$(12)«, l3=0x36}
0x0232…0251 Line {l1=0x1d, l2=»0180 PROC SKRIVLIST(TXT,SIDE)«, l3=0x1d}
0x0251…025f Line {l1=0x0c, l2=»0190 REPEAT «, l3=0x0c}
0x025f…026e Line {l1=0x0d, l2=»0200 OUTPUT T«, l3=0x0d}
0x026e…027b Line {l1=0x0b, l2=»0210 CLEAR «, l3=0x0b}
0x027b…0289 Line {l1=0x0c, l2=»0220 REPEAT «, l3=0x0c}
0x0289…029c Line {l1=0x11, l2=»0230 CURSOR 15,13«, l3=0x11}
0x029c…02df Line {l1=0x41, l2=»0240 INPUT "Monter papir til udskrift af liste og tast RETURN",A$«, l3=0x41}
0x02df…02f5 Line {l1=0x14, l2=»0250 EXEC NRTEST(A$)«, l3=0x14}
0x02f5…0306 Line {l1=0x0f, l2=»0260 UNTIL P=-1«, l3=0x0f}
0x0306…0315 Line {l1=0x0d, l2=»0270 OUTPUT P«, l3=0x0d}
0x0315…035d Line {l1=0x46, l2=»0280 LINIE=1;SUM1$="0+";SUM2$="0+";SUM3$="0+";SALDO$="0+";FSALDO$="0+"«, l3=0x46}
0x035d…036f Line {l1=0x10, l2=»0281 RENTE$="0+"«, l3=0x10}
0x036f…0389 Line {l1=0x18, l2=»0290 FOR RENNR1=1 TO REN«, l3=0x18}
0x0389…03a1 Line {l1=0x16, l2=»0300 IF LINIE=40 THEN «, l3=0x16}
0x03a1…03c5 Line {l1=0x22, l2=»0310 PRINT CHR(10);CHR(10);CHR(10)«, l3=0x22}
0x03c5…03df Line {l1=0x18, l2=»0320 LINIE=1;SIDE=SIDE+1«, l3=0x18}
0x03df…03ec Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x03ec…0403 Line {l1=0x15, l2=»0340 IF LINIE=1 THEN «, l3=0x15}
0x0403…043c Line {l1=0x37, l2=»0350 PRINT TAB(10);CHR(14);TXT$;CHR(15);" Dato: ";DAT$;«, l3=0x37}
0x043c…045f Line {l1=0x21, l2=»0360 PRINT USING " side:###":SIDE«, l3=0x21}
0x045f…0473 Line {l1=0x12, l2=»0370 PRINT CHR(10)«, l3=0x12}
0x0473…04be Line {l1=0x49, l2=»0380 PRINT " Nr Konto Navn";TAB(44);"Saldo Forf.saldo Rentebeløb"«, l3=0x49}
0x04be…04ce Line {l1=0x0e, l2=»0390 PRINT " "«, l3=0x0e}
0x04ce…04db Line {l1=0x0b, l2=»0400 ENDIF «, l3=0x0b}
0x04db…04e9 Line {l1=0x0c, l2=»0410 REPEAT «, l3=0x0c}
0x04e9…0520 Line {l1=0x35, l2=»0420 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$«, l3=0x35}
0x0520…0539 Line {l1=0x17, l2=»0430 EXEC FEJL(1,1,K5$)«, l3=0x17}
0x0539…0584 Line {l1=0x49, l2=»0440 IF KONTO=0 THEN RENNR1=RENNR1+1;SALDO$="0+";FSALDO$="0+";RENTE$="0+"«, l3=0x49}
0x0584…05a9 Line {l1=0x23, l2=»0450 UNTIL KONTO<>0 OR RENNR1=REN+1«, l3=0x23}
0x05a9…05c5 Line {l1=0x1a, l2=»0455 IF KONTO=0 THEN EXIT «, l3=0x1a}
0x05c5…05eb Line {l1=0x24, l2=»0460 EXEC CALC(0,SUM1$,SALDO$,SUM1$)«, l3=0x24}
0x05eb…0612 Line {l1=0x25, l2=»0470 EXEC CALC(0,SUM2$,FSALDO$,SUM2$)«, l3=0x25}
0x0612…0638 Line {l1=0x24, l2=»0480 EXEC CALC(0,SUM3$,RENTE$,SUM3$)«, l3=0x24}
0x0638…065c Line {l1=0x22, l2=»0490 EXEC TUD(SALDO$,UBELØB1$,1,0)«, l3=0x22}
0x065c…0681 Line {l1=0x23, l2=»0500 EXEC TUD(FSALDO$,UBELØB2$,1,0)«, l3=0x23}
0x0681…06a5 Line {l1=0x22, l2=»0510 EXEC TUD(RENTE$,UBELØB3$,1,0)«, l3=0x22}
0x06a5…06d4 Line {l1=0x2d, l2=»0520 PRINT USING "#### ###### ":RENNR1,KONTO;«, l3=0x2d}
0x06d4…0709 Line {l1=0x33, l2=»0530 PRINT NAVN$;TAB(38);UBELØB1$;UBELØB2$;UBELØB3$«, l3=0x33}
0x0709…071d Line {l1=0x12, l2=»0540 LINIE=LINIE+1«, l3=0x12}
0x071d…072f Line {l1=0x10, l2=»0550 NEXT RENNR1«, l3=0x10}
0x072f…074b Line {l1=0x1a, l2=»0560 FOR LINIE=LINIE TO 40«, l3=0x1a}
0x074b…075b Line {l1=0x0e, l2=»0570 PRINT " "«, l3=0x0e}
0x075b…076c Line {l1=0x0f, l2=»0580 NEXT LINIE«, l3=0x0f}
0x076c…077b Line {l1=0x0d, l2=»0590 PRINT ""«, l3=0x0d}
0x077b…079e Line {l1=0x21, l2=»0600 EXEC TUD(SUM1$,UBELØB1$,1,0)«, l3=0x21}
0x079e…07c1 Line {l1=0x21, l2=»0610 EXEC TUD(SUM2$,UBELØB2$,1,0)«, l3=0x21}
0x07c1…07e4 Line {l1=0x21, l2=»0620 EXEC TUD(SUM3$,UBELØB3$,1,0)«, l3=0x21}
0x07e4…0833 Line {l1=0x4d, l2=»0630 PRINT TAB(10);CHR(14);"Total";CHR(15);TAB(34);UBELØB1$;UBELØB2$;UBELØB3$«, l3=0x4d}
0x0833…0847 Line {l1=0x12, l2=»0640 PRINT CHR(10)«, l3=0x12}
0x0847…0856 Line {l1=0x0d, l2=»0650 OUTPUT T«, l3=0x0d}
0x0856…0863 Line {l1=0x0b, l2=»0660 CLEAR «, l3=0x0b}
0x0863…087a Line {l1=0x15, l2=»0670 SIDE=SIDE+1;P=-8«, l3=0x15}
0x087a…0895 Line {l1=0x19, l2=»0680 IF TYPE=2 THEN EXIT «, l3=0x19}
0x0895…08a3 Line {l1=0x0c, l2=»0690 REPEAT «, l3=0x0c}
0x08a3…08b6 Line {l1=0x11, l2=»0700 CURSOR 15,13«, l3=0x11}
0x08b6…08e1 Line {l1=0x29, l2=»0710 INPUT "Ønskes ny udskrift (J/N) ",A$«, l3=0x29}
0x08e1…08f7 Line {l1=0x14, l2=»0720 EXEC NRTEST(A$)«, l3=0x14}
0x08f7…0910 Line {l1=0x17, l2=»0730 UNTIL P=-7 OR P=-8«, l3=0x17}
0x0910…0921 Line {l1=0x0f, l2=»0740 UNTIL P=-8«, l3=0x0f}
0x0921…0930 Line {l1=0x0d, l2=»0750 ENDPROC «, l3=0x0d}
0x0930…0955 Line {l1=0x23, l2=»0751 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x0955…0967 Line {l1=0x10, l2=»0752 BLB2$=BLB1$«, l3=0x10}
0x0967…098c Line {l1=0x23, l2=»0753 EXEC CALC(5,BLB2$,TAH$,UBLB1$)«, l3=0x23}
0x098c…09b5 Line {l1=0x27, l2=»0754 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13)«, l3=0x27}
0x09b5…09fe Line {l1=0x47, l2=»0755 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "«, l3=0x47}
0x09fe…0a32 Line {l1=0x32, l2=»0756 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x32}
0x0a32…0a41 Line {l1=0x0d, l2=»0757 ENDPROC «, l3=0x0d}
0x0a41…0a53 Line {l1=0x10, l2=»0760 PROC SYSGEM«, l3=0x10}
0x0a53…0a83 Line {l1=0x2e, l2=»0770 T2(1)=BHPOSTNR;T1(9)=RENRAPSIDE;T2(8)=REN«, l3=0x2e}
0x0a83…0a94 Line {l1=0x0f, l2=»0780 OPEN K6$,W«, l3=0x0f}
0x0a94…0aad Line {l1=0x17, l2=»0790 EXEC FEJL(3,1,K6$)«, l3=0x17}
0x0aad…0af3 Line {l1=0x44, l2=»0800 PUT K6$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x0af3…0b0c Line {l1=0x17, l2=»0810 EXEC FEJL(3,2,K6$)«, l3=0x17}
0x0b0c…0b53 Line {l1=0x45, l2=»0820 PUT K6$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x0b53…0b6c Line {l1=0x17, l2=»0830 EXEC FEJL(3,3,K6$)«, l3=0x17}
0x0b6c…0b7c Line {l1=0x0e, l2=»0840 CLOSE K6$«, l3=0x0e}
0x0b7c…0b95 Line {l1=0x17, l2=»0850 EXEC FEJL(3,4,K6$)«, l3=0x17}
0x0b95…0ba4 Line {l1=0x0d, l2=»0860 ENDPROC «, l3=0x0d}
0x0ba4…0bbf Line {l1=0x19, l2=»0870 PROC DATOUD(DA1,DA2)«, l3=0x19}
0x0bbf…0bcd Line {l1=0x0c, l2=»0880 DA3=DA1«, l3=0x0c}
0x0bcd…0be3 Line {l1=0x14, l2=»0890 DA2$=" "«, l3=0x14}
0x0be3…0bfe Line {l1=0x19, l2=»0900 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x0bfe…0c17 Line {l1=0x17, l2=»0910 IF J MOD 3=0 THEN «, l3=0x17}
0x0c17…0c29 Line {l1=0x10, l2=»0920 DA2$(J)="."«, l3=0x10}
0x0c29…0c35 Line {l1=0x0a, l2=»0930 ELSE «, l3=0x0a}
0x0c35…0c56 Line {l1=0x1f, l2=»0940 DA2$(J)=CHR(DA3 MOD 10+48)«, l3=0x1f}
0x0c56…0c6b Line {l1=0x13, l2=»0950 DA3=DA3 DIV 10«, l3=0x13}
0x0c6b…0c78 Line {l1=0x0b, l2=»0960 ENDIF «, l3=0x0b}
0x0c78…0c85 Line {l1=0x0b, l2=»0970 NEXT J«, l3=0x0b}
0x0c85…0c94 Line {l1=0x0d, l2=»0980 ENDPROC «, l3=0x0d}
0x0c94…0cb3 Line {l1=0x1d, l2=»0990 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0cb3…0ccb Line {l1=0x16, l2=»1000 PIL1=MANT5 DIV 32«, l3=0x16}
0x0ccb…0ce1 Line {l1=0x14, l2=»1010 FOR I=1 TO PIL1«, l3=0x14}
0x0ce1…0cf3 Line {l1=0x10, l2=»1020 H=(I-1)*8+1«, l3=0x10}
0x0cf3…0d39 Line {l1=0x44, l2=»1030 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7)«, l3=0x44}
0x0d39…0d52 Line {l1=0x17, l2=»1040 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x0d52…0d5f Line {l1=0x0b, l2=»1050 NEXT I«, l3=0x0b}
0x0d5f…0d6e Line {l1=0x0d, l2=»1060 ENDPROC «, l3=0x0d}
0x0d6e…0d86 Line {l1=0x16, l2=»1070 PROC NRTEST(NUM1)«, l3=0x16}
0x0d86…0dac Line {l1=0x24, l2=»1080 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x0dac…0dc4 Line {l1=0x16, l2=»1090 IF L>6 THEN EXIT «, l3=0x16}
0x0dc4…0dd5 Line {l1=0x0f, l2=»1100 CASE L OF «, l3=0x0f}
0x0dd5…0de8 Line {l1=0x11, l2=»1110 FOR I=1 TO L«, l3=0x11}
0x0de8…0e07 Line {l1=0x1d, l2=»1120 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x0e07…0e2a Line {l1=0x21, l2=»1130 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x0e2a…0e3a Line {l1=0x0e, l2=»1140 P=P*10+P1«, l3=0x0e}
0x0e3a…0e47 Line {l1=0x0b, l2=»1150 NEXT I«, l3=0x0b}
0x0e47…0e5e Line {l1=0x15, l2=»1160 KTAL=P DIV 10000«, l3=0x15}
0x0e5e…0e6b Line {l1=0x0b, l2=»1170 WHEN 0«, l3=0x0b}
0x0e6b…0e76 Line {l1=0x09, l2=»1180 P=-1«, l3=0x09}
0x0e76…0e83 Line {l1=0x0b, l2=»1190 WHEN 1«, l3=0x0b}
0x0e83…0e98 Line {l1=0x13, l2=»1200 CASE NUM1$ OF «, l3=0x13}
0x0e98…0eb3 Line {l1=0x19, l2=»1210 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x0eb3…0ec6 Line {l1=0x11, l2=»1220 WHEN "D","d"«, l3=0x11}
0x0ec6…0ed1 Line {l1=0x09, l2=»1230 P=-2«, l3=0x09}
0x0ed1…0ee4 Line {l1=0x11, l2=»1240 WHEN "A","a"«, l3=0x11}
0x0ee4…0eef Line {l1=0x09, l2=»1250 P=-3«, l3=0x09}
0x0eef…0f02 Line {l1=0x11, l2=»1260 WHEN "M","m"«, l3=0x11}
0x0f02…0f0d Line {l1=0x09, l2=»1270 P=-4«, l3=0x09}
0x0f0d…0f20 Line {l1=0x11, l2=»1280 WHEN "J","j"«, l3=0x11}
0x0f20…0f2b Line {l1=0x09, l2=»1290 P=-7«, l3=0x09}
0x0f2b…0f3e Line {l1=0x11, l2=»1300 WHEN "N","n"«, l3=0x11}
0x0f3e…0f49 Line {l1=0x09, l2=»1310 P=-8«, l3=0x09}
0x0f49…0f58 Line {l1=0x0d, l2=»1320 ENDCASE «, l3=0x0d}
0x0f58…0f67 Line {l1=0x0d, l2=»1330 ENDCASE «, l3=0x0d}
0x0f67…0f76 Line {l1=0x0d, l2=»1340 ENDPROC «, l3=0x0d}
0x0f76…0fa3 Line {l1=0x2b, l2=»1350 PROC FINDPOST2(TAB5,MANT8,NØGL6,PIL10)«, l3=0x2b}
0x0fa3…0fea Line {l1=0x45, l2=»1360 PIL1=MANT8 DIV 8;PIL10=PIL1;MANT3=MANT8 DIV 4;MANT4=MANT8 DIV 32«, l3=0x45}
0x0fea…0ff8 Line {l1=0x0c, l2=»1370 REPEAT «, l3=0x0c}
0x0ff8…1028 Line {l1=0x2e, l2=»1380 IF NØGL6=TAB5(PIL10) OR PIL1=1 THEN EXIT «, l3=0x2e}
0x1028…106d Line {l1=0x43, l2=»1390 PIL1=(PIL1+1) DIV 2;PIL10=PIL10+PIL1*(1-2*(NØGL6<TAB5(PIL10)))«, l3=0x43}
0x106d…108b Line {l1=0x1c, l2=»1400 IF PIL10<1 THEN PIL10=1«, l3=0x1c}
0x108b…10b1 Line {l1=0x24, l2=»1410 IF PIL10>MANT3 THEN PIL10=MANT3«, l3=0x24}
0x10b1…10c4 Line {l1=0x11, l2=»1420 UNTIL PIL1=0«, l3=0x11}
0x10c4…10fc Line {l1=0x36, l2=»1430 IF TAB5(PIL10)>NØGL6 THEN PIL10=PIL10-1*(PIL10>1)«, l3=0x36}
0x10fc…110b Line {l1=0x0d, l2=»1440 ENDPROC «, l3=0x0d}
0x110b…1129 Line {l1=0x1c, l2=»1450 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x1129…1168 Line {l1=0x3d, l2=»1460 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x1168…1182 Line {l1=0x18, l2=»1470 CALL "P641215:REGN"«, l3=0x18}
0x1182…1191 Line {l1=0x0d, l2=»1480 ES$=RES$«, l3=0x0d}
0x1191…11a6 Line {l1=0x13, l2=»1490 IF AR3<6 THEN «, l3=0x13}
0x11a6…11bf Line {l1=0x17, l2=»1500 IF FLAG THEN STOP «, l3=0x17}
0x11bf…11cc Line {l1=0x0b, l2=»1510 ENDIF «, l3=0x0b}
0x11cc…11db Line {l1=0x0d, l2=»1520 ENDPROC «, l3=0x0d}
0x11db…11f8 Line {l1=0x1b, l2=»1530 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x11f8…1217 Line {l1=0x1d, l2=»1540 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x1217…123d Line {l1=0x24, l2=»1550 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x123d…1249 Line {l1=0x0a, l2=»1560 STOP «, l3=0x0a}
0x1249…1256 Line {l1=0x0b, l2=»1570 ENDIF «, l3=0x0b}
0x1256…1265 Line {l1=0x0d, l2=»1580 ENDPROC «, l3=0x0d}
0x1265…1280 Line {l1=0x19, l2=»1590 PROC INDLÆS1(U,PIL8)«, l3=0x19}
0x1280…129f Line {l1=0x1d, l2=»1600 PIL1=MDANTAL DIV 32+PIL8«, l3=0x1d}
0x129f…12ea Line {l1=0x49, l2=»1610 GET K2$,PIL1:U(1,1),U(1,2),U(2,1),U(2,2),U(3,1),U(3,2),U(4,1),U(4,2)«, l3=0x49}
0x12ea…1303 Line {l1=0x17, l2=»1620 EXEC FEJL(1,1,K2$)«, l3=0x17}
0x1303…1312 Line {l1=0x0d, l2=»1630 ENDPROC «, l3=0x0d}
0x1312…1327 Line {l1=0x13, l2=»1640 PROC HENTDPOST«, l3=0x13}
0x1327…133e Line {l1=0x15, l2=»1650 S=DTAB3(DPIL3,2)«, l3=0x15}
0x133e…136e Line {l1=0x2e, l2=»1660 GET K3$,S:KONTO,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x136e…1387 Line {l1=0x17, l2=»1670 EXEC FEJL(8,1,K3$)«, l3=0x17}
0x1387…13c5 Line {l1=0x3c, l2=»1680 GET K3$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x13c5…13de Line {l1=0x17, l2=»1690 EXEC FEJL(8,2,K3$)«, l3=0x17}
0x13de…140e Line {l1=0x2e, l2=»1700 GET K3$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x140e…1427 Line {l1=0x17, l2=»1710 EXEC FEJL(8,3,K3$)«, l3=0x17}
0x1427…144f Line {l1=0x26, l2=»1720 GET K3$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x144f…1468 Line {l1=0x17, l2=»1730 EXEC FEJL(8,4,K3$)«, l3=0x17}
0x1468…1477 Line {l1=0x0d, l2=»1740 ENDPROC «, l3=0x0d}
0x1477…1493 Line {l1=0x1a, l2=»1750 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1493…14a4 Line {l1=0x0f, l2=»1760 OPEN K1$,R«, l3=0x0f}
0x14a4…14bd Line {l1=0x17, l2=»1770 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x14bd…14ed Line {l1=0x2e, l2=»1780 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL«, l3=0x2e}
0x14ed…1506 Line {l1=0x17, l2=»1790 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1506…152e Line {l1=0x26, l2=»1800 GET K1$,2:MKAS,MPOS,MBHPOST,MFMID«, l3=0x26}
0x152e…1547 Line {l1=0x17, l2=»1810 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x1547…155d Line {l1=0x14, l2=»1820 GET K1$,3:MDMID«, l3=0x14}
0x155d…1576 Line {l1=0x17, l2=»1830 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x1576…1596 Line {l1=0x1e, l2=»1840 GET K1$,7:INDMOMS,RENTENR«, l3=0x1e}
0x1596…15af Line {l1=0x17, l2=»1850 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x15af…15d7 Line {l1=0x26, l2=»1855 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x15d7…15f1 Line {l1=0x18, l2=»1856 EXEC FEJL(9,51,K1$)«, l3=0x18}
0x15f1…1605 Line {l1=0x12, l2=»1860 GET K1$,10:N$«, l3=0x12}
0x1605…161e Line {l1=0x17, l2=»1870 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x161e…1633 Line {l1=0x13, l2=»1880 GET K1$,12:K2$«, l3=0x13}
0x1633…164c Line {l1=0x17, l2=»1890 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x164c…1661 Line {l1=0x13, l2=»1900 GET K1$,16:K3$«, l3=0x13}
0x1661…167a Line {l1=0x17, l2=»1910 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x167a…168f Line {l1=0x13, l2=»1920 GET K1$,21:K4$«, l3=0x13}
0x168f…16a8 Line {l1=0x17, l2=»1930 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x16a8…16bd Line {l1=0x13, l2=»1940 GET K1$,36:K6$«, l3=0x13}
0x16bd…16d7 Line {l1=0x18, l2=»1950 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x16d7…16e7 Line {l1=0x0e, l2=»1960 CLOSE K1$«, l3=0x0e}
0x16e7…1701 Line {l1=0x18, l2=»1970 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x1701…1747 Line {l1=0x44, l2=»1980 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K6$=N$+K6$;K5$=N$+"15:RENPOST"«, l3=0x44}
0x1747…1770 Line {l1=0x27, l2=»1990 DIM DTAB(MDANTAL DIV 4),DTAB3(4,2)«, l3=0x27}
0x1770…179a Line {l1=0x28, l2=»2000 IF MDMID>MBHPOST THEN MDMID=MBHPOST«, l3=0x28}
0x179a…17b4 Line {l1=0x18, l2=»2010 CREATE K5$,MDMID,70«, l3=0x18}
0x17b4…17d6 Line {l1=0x20, l2=»2020 IF STATUS(K5$)>2 THEN STOP «, l3=0x20}
0x17d6…17e7 Line {l1=0x0f, l2=»2030 OPEN K6$,R«, l3=0x0f}
0x17e7…1801 Line {l1=0x18, l2=»2040 EXEC FEJL(9,12,K6$)«, l3=0x18}
0x1801…1847 Line {l1=0x44, l2=»2050 GET K6$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x1847…1861 Line {l1=0x18, l2=»2060 EXEC FEJL(9,13,K6$)«, l3=0x18}
0x1861…18a8 Line {l1=0x45, l2=»2070 GET K6$,13:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x18a8…18c2 Line {l1=0x18, l2=»2080 EXEC FEJL(9,14,K6$)«, l3=0x18}
0x18c2…18d2 Line {l1=0x0e, l2=»2090 CLOSE K6$«, l3=0x0e}
0x18d2…18ec Line {l1=0x18, l2=»2100 EXEC FEJL(9,15,K6$)«, l3=0x18}
0x18ec…1931 Line {l1=0x43, l2=»2110 DATO=T1(7);BHPOSTNR=T2(1);RENRAPSIDE=T1(9);REN=T2(8);TAH$="0+"«, l3=0x43}
0x1931…1944 Line {l1=0x11, l2=»2111 TAL3$="100+"«, l3=0x11}
0x1944…1955 Line {l1=0x0f, l2=»2120 OPEN K2$,R«, l3=0x0f}
0x1955…196f Line {l1=0x18, l2=»2130 EXEC FEJL(9,16,K2$)«, l3=0x18}
0x196f…1980 Line {l1=0x0f, l2=»2140 OPEN K3$,R«, l3=0x0f}
0x1980…199a Line {l1=0x18, l2=»2150 EXEC FEJL(9,17,K3$)«, l3=0x18}
0x199a…19ab Line {l1=0x0f, l2=»2160 OPEN K4$,W«, l3=0x0f}
0x19ab…19c5 Line {l1=0x18, l2=»2170 EXEC FEJL(9,18,K4$)«, l3=0x18}
0x19c5…19d6 Line {l1=0x0f, l2=»2180 OPEN K5$,W«, l3=0x0f}
0x19d6…19f0 Line {l1=0x18, l2=»2190 EXEC FEJL(9,19,K5$)«, l3=0x18}
0x19f0…1a15 Line {l1=0x23, l2=»2200 EXEC INDTAB1(DTAB,MDANTAL,K2$)«, l3=0x23}
0x1a15…1a32 Line {l1=0x1b, l2=»2210 EXEC DATOUD(DATO,DAT$)«, l3=0x1b}
0x1a32…1a56 Line {l1=0x22, l2=»2220 TXT1$(1)="Beregning af rente"«, l3=0x22}
0x1a56…1a7a Line {l1=0x22, l2=»2230 TXT1$(2)="Bogføring af rente"«, l3=0x22}
0x1a7a…1aa8 Line {l1=0x2c, l2=»2240 TXT1$(3)="Sletning af renteposteringer"«, l3=0x2c}
0x1aa8…1ad2 Line {l1=0x28, l2=»2250 TXT1$(4)="Udskriv renteposteringer"«, l3=0x28}
0x1ad2…1afb Line {l1=0x27, l2=»2260 TXT1$(5)="Renteberegningsoversigt"«, l3=0x27}
0x1afb…1b23 Line {l1=0x26, l2=»2270 TXT1$(6)="Rentebogføringsrapport"«, l3=0x26}
0x1b23…1b31 Line {l1=0x0c, l2=»2280 REPEAT «, l3=0x0c}
0x1b31…1b40 Line {l1=0x0d, l2=»2290 OUTPUT T«, l3=0x0d}
0x1b40…1b4d Line {l1=0x0b, l2=»2300 CLEAR «, l3=0x0b}
0x1b4d…1b5f Line {l1=0x10, l2=»2310 CURSOR 20,1«, l3=0x10}
0x1b5f…1b7c Line {l1=0x1b, l2=»2320 PRINT "Renteberegning"«, l3=0x1b}
0x1b7c…1b8e Line {l1=0x10, l2=»2330 CURSOR 16,4«, l3=0x10}
0x1b8e…1ba6 Line {l1=0x16, l2=»2340 PRINT "0 :Færdig"«, l3=0x16}
0x1ba6…1bb9 Line {l1=0x11, l2=»2350 FOR I=1 TO 4«, l3=0x11}
0x1bb9…1bd3 Line {l1=0x18, l2=»2360 CURSOR 15,(I-1)*2+6«, l3=0x18}
0x1bd3…1bee Line {l1=0x19, l2=»2370 PRINT I;":";TXT1$(I)«, l3=0x19}
0x1bee…1bfb Line {l1=0x0b, l2=»2380 NEXT I«, l3=0x0b}
0x1bfb…1c09 Line {l1=0x0c, l2=»2390 REPEAT «, l3=0x0c}
0x1c09…1c1c Line {l1=0x11, l2=»2400 CURSOR 18,14«, l3=0x11}
0x1c1c…1c3f Line {l1=0x21, l2=»2410 INPUT "Vælg type (0-4): ",A$«, l3=0x21}
0x1c3f…1c55 Line {l1=0x14, l2=»2420 EXEC NRTEST(A$)«, l3=0x14}
0x1c55…1c7a Line {l1=0x23, l2=»2430 UNTIL P=>0 AND P<5 AND TEST2=0«, l3=0x23}
0x1c7a…1c87 Line {l1=0x0b, l2=»2440 TYPE=P«, l3=0x0b}
0x1c87…1ca2 Line {l1=0x19, l2=»2450 IF TYPE=0 THEN EXIT «, l3=0x19}
0x1ca2…1caf Line {l1=0x0b, l2=»2470 CLEAR «, l3=0x0b}
0x1caf…1cc1 Line {l1=0x10, l2=»2480 CURSOR 18,8«, l3=0x10}
0x1cc1…1cd9 Line {l1=0x16, l2=»2490 PRINT TXT1$(TYPE)«, l3=0x16}
0x1cd9…1ced Line {l1=0x12, l2=»2500 CASE TYPE OF «, l3=0x12}
0x1ced…1cf9 Line {l1=0x0a, l2=»2510 STOP «, l3=0x0a}
0x1cf9…1d06 Line {l1=0x0b, l2=»2520 WHEN 1«, l3=0x0b}
0x1d06…1d14 Line {l1=0x0c, l2=»2525 REPEAT «, l3=0x0c}
0x1d14…1d22 Line {l1=0x0c, l2=»2530 REPEAT «, l3=0x0c}
0x1d22…1d35 Line {l1=0x11, l2=»2540 CURSOR 18,10«, l3=0x11}
0x1d35…1d60 Line {l1=0x29, l2=»2550 PRINT "Fra kundenr : (0:Alle)"«, l3=0x29}
0x1d60…1d73 Line {l1=0x11, l2=»2560 CURSOR 31,10«, l3=0x11}
0x1d73…1d86 Line {l1=0x11, l2=»2570 INPUT " ",A$«, l3=0x11}
0x1d86…1d9c Line {l1=0x14, l2=»2580 EXEC NRTEST(A$)«, l3=0x14}
0x1d9c…1dc7 Line {l1=0x29, l2=»2590 UNTIL (KTAL=DTAL OR P=0) AND TEST2=0«, l3=0x29}
0x1dc7…1dd5 Line {l1=0x0c, l2=»2600 FRANR=P«, l3=0x0c}
0x1dd5…1de8 Line {l1=0x11, l2=»2610 IF P=0 THEN «, l3=0x11}
0x1de8…1e1b Line {l1=0x31, l2=»2620 FRA=1;TIL=MDANTAL DIV 4;TILNR=(DTAL+1)*10000«, l3=0x31}
0x1e1b…1e27 Line {l1=0x0a, l2=»2630 ELSE «, l3=0x0a}
0x1e27…1e50 Line {l1=0x27, l2=»2640 EXEC FINDPOST2(DTAB,MDANTAL,P,FRA)«, l3=0x27}
0x1e50…1e76 Line {l1=0x24, l2=»2650 IF DTAB(FRA)=1000000 THEN FRA=0«, l3=0x24}
0x1e76…1e83 Line {l1=0x0b, l2=»2660 ENDIF «, l3=0x0b}
0x1e83…1e95 Line {l1=0x10, l2=»2670 UNTIL FRA>0«, l3=0x10}
0x1e95…1ea8 Line {l1=0x11, l2=»2680 IF P>0 THEN «, l3=0x11}
0x1ea8…1eb6 Line {l1=0x0c, l2=»2690 REPEAT «, l3=0x0c}
0x1eb6…1ec4 Line {l1=0x0c, l2=»2700 REPEAT «, l3=0x0c}
0x1ec4…1ed7 Line {l1=0x11, l2=»2710 CURSOR 18,12«, l3=0x11}
0x1ed7…1ef7 Line {l1=0x1e, l2=»2720 INPUT "Til kundenr : ",A$«, l3=0x1e}
0x1ef7…1f0d Line {l1=0x14, l2=»2730 EXEC NRTEST(A$)«, l3=0x14}
0x1f0d…1f2f Line {l1=0x20, l2=»2740 UNTIL KTAL=DTAL AND TEST2=0«, l3=0x20}
0x1f2f…1f58 Line {l1=0x27, l2=»2750 EXEC FINDPOST2(DTAB,MDANTAL,P,TIL)«, l3=0x27}
0x1f58…1f66 Line {l1=0x0c, l2=»2760 TILNR=P«, l3=0x0c}
0x1f66…1f7b Line {l1=0x13, l2=»2770 UNTIL FRA<=TIL«, l3=0x13}
0x1f7b…1f88 Line {l1=0x0b, l2=»2780 ENDIF «, l3=0x0b}
0x1f88…1f96 Line {l1=0x0c, l2=»2790 REPEAT «, l3=0x0c}
0x1f96…1fa4 Line {l1=0x0c, l2=»2800 REPEAT «, l3=0x0c}
0x1fa4…1fb7 Line {l1=0x11, l2=»2810 CURSOR 18,14«, l3=0x11}
0x1fb7…1fe4 Line {l1=0x2b, l2=»2820 INPUT "Indtast renteprocent: ",RENPRO$«, l3=0x2b}
0x1fe4…1ffe Line {l1=0x18, l2=»2830 RENPRO$=RENPRO$+"+"«, l3=0x18}
0x1ffe…2026 Line {l1=0x26, l2=»2840 EXEC CALC(6,RENPRO$,TAH$,RENPRO$)«, l3=0x26}
0x2026…2039 Line {l1=0x11, l2=»2850 UNTIL FLAG=0«, l3=0x11}
0x2039…2047 Line {l1=0x0c, l2=»2860 REPEAT «, l3=0x0c}
0x2047…205a Line {l1=0x11, l2=»2870 CURSOR 18,16«, l3=0x11}
0x205a…208b Line {l1=0x2f, l2=»2880 PRINT "Er ";RENPRO$(7:5);" % rigtig (J/N)"«, l3=0x2f}
0x208b…209e Line {l1=0x11, l2=»2890 CURSOR 42,16«, l3=0x11}
0x209e…20b1 Line {l1=0x11, l2=»2900 INPUT " ",A$«, l3=0x11}
0x20b1…20c7 Line {l1=0x14, l2=»2910 EXEC NRTEST(A$)«, l3=0x14}
0x20c7…20e0 Line {l1=0x17, l2=»2920 UNTIL P=-7 OR P=-8«, l3=0x17}
0x20e0…20f1 Line {l1=0x0f, l2=»2930 UNTIL P=-7«, l3=0x0f}
0x20f1…20ff Line {l1=0x0c, l2=»2940 REPEAT «, l3=0x0c}
0x20ff…2112 Line {l1=0x11, l2=»2950 CURSOR 18,18«, l3=0x11}
0x2112…2145 Line {l1=0x31, l2=»2960 INPUT "Indtast minimumsrentebeløb: ",MINREN$«, l3=0x31}
0x2145…215f Line {l1=0x18, l2=»2970 MINREN$=MINREN$+"+"«, l3=0x18}
0x215f…2187 Line {l1=0x26, l2=»2980 EXEC CALC(6,MINREN$,TAH$,MINREN$)«, l3=0x26}
0x2187…219a Line {l1=0x11, l2=»2990 UNTIL FLAG=0«, l3=0x11}
0x219a…21a8 Line {l1=0x0c, l2=»3000 REPEAT «, l3=0x0c}
0x21a8…21bb Line {l1=0x11, l2=»3010 CURSOR 18,20«, l3=0x11}
0x21bb…2204 Line {l1=0x47, l2=»3020 PRINT "Foretages denne beregning før eller efter månedsafslutning"«, l3=0x47}
0x2204…2217 Line {l1=0x11, l2=»3030 CURSOR 18,22«, l3=0x11}
0x2217…223e Line {l1=0x25, l2=»3040 INPUT "Vælg 0:Før , 1:Efter ",A$«, l3=0x25}
0x223e…2254 Line {l1=0x14, l2=»3050 EXEC NRTEST(A$)«, l3=0x14}
0x2254…2279 Line {l1=0x23, l2=»3060 UNTIL (P=0 OR P=1) AND TEST2=0«, l3=0x23}
0x2279…2285 Line {l1=0x0a, l2=»3070 FØR=P«, l3=0x0a}
0x2285…22a0 Line {l1=0x19, l2=»3080 FOR DPIL1=FRA TO TIL«, l3=0x19}
0x22a0…22d3 Line {l1=0x31, l2=»3090 IF TILNR<DTAB(DPIL1) OR REN=MDMID THEN EXIT «, l3=0x31}
0x22d3…22f3 Line {l1=0x1e, l2=»3100 EXEC INDLÆS1(DTAB3,DPIL1)«, l3=0x1e}
0x22f3…230a Line {l1=0x15, l2=»3110 FOR DPIL3=1 TO 4«, l3=0x15}
0x230a…2349 Line {l1=0x3d, l2=»3120 IF DTAB3(DPIL3,1)=>FRANR AND DTAB3(DPIL3,1)<=TILNR THEN «, l3=0x3d}
0x2349…235e Line {l1=0x13, l2=»3130 EXEC HENTDPOST«, l3=0x13}
0x235e…237d Line {l1=0x1d, l2=»3140 SALDO$="0+";SALDO1$="0+"«, l3=0x1d}
0x237d…23a9 Line {l1=0x2a, l2=»3150 EXEC CALC(0,DSALDO4$,DSALDO3$,SALDO$)«, l3=0x2a}
0x23a9…23d6 Line {l1=0x2b, l2=»3160 EXEC CALC(0,DSALDO1$,DSALDO2$,SALDO1$)«, l3=0x2b}
0x23d6…2400 Line {l1=0x28, l2=»3170 EXEC CALC(0,SALDO1$,SALDO$,SALDO1$)«, l3=0x28}
0x2400…2438 Line {l1=0x36, l2=»3180 IF FØR=0 THEN EXEC CALC(0,SALDO$,DSALDO2$,SALDO$)«, l3=0x36}
0x2438…245f Line {l1=0x25, l2=»3190 IF SALDO$(LEN(SALDO$))="+" THEN «, l3=0x25}
0x245f…2488 Line {l1=0x27, l2=»3200 EXEC CALC(2,SALDO$,RENPRO$,RENTE$)«, l3=0x27}
0x2488…24af Line {l1=0x25, l2=»3210 EXEC CALC(3,RENTE$,TAL3$,RENTE$)«, l3=0x25}
0x24af…24d7 Line {l1=0x26, l2=»3220 EXEC CALC(4,RENTE$,MINREN$,TAL3$)«, l3=0x26}
0x24d7…24ec Line {l1=0x13, l2=»3230 IF SI<>1 THEN «, l3=0x13}
0x24ec…24fc Line {l1=0x0e, l2=»3240 REN=REN+1«, l3=0x0e}
0x24fc…2533 Line {l1=0x35, l2=»3250 PUT K5$,REN:KONTO,DEBNAVN$,SALDO1$,SALDO$,RENTE$«, l3=0x35}
0x2533…254c Line {l1=0x17, l2=»3260 EXEC FEJL(2,1,K5$)«, l3=0x17}
0x254c…2559 Line {l1=0x0b, l2=»3265 ENDIF «, l3=0x0b}
0x2559…2566 Line {l1=0x0b, l2=»3270 ENDIF «, l3=0x0b}
0x2566…2573 Line {l1=0x0b, l2=»3280 ENDIF «, l3=0x0b}
0x2573…25a9 Line {l1=0x34, l2=»3290 IF DTAB3(DPIL3,1)>TILNR OR REN=MDMID THEN EXIT «, l3=0x34}
0x25a9…25ba Line {l1=0x0f, l2=»3300 NEXT DPIL3«, l3=0x0f}
0x25ba…25cb Line {l1=0x0f, l2=»3310 NEXT DPIL1«, l3=0x0f}
0x25cb…25e4 Line {l1=0x17, l2=»3320 IF REN=MDMID THEN «, l3=0x17}
0x25e4…25f1 Line {l1=0x0b, l2=»3330 CLEAR «, l3=0x0b}
0x25f1…25ff Line {l1=0x0c, l2=»3340 REPEAT «, l3=0x0c}
0x25ff…2612 Line {l1=0x11, l2=»3350 CURSOR 15,13«, l3=0x11}
0x2612…2655 Line {l1=0x41, l2=»3360 INPUT "Ikke plads til flere renteposteringer,tast RETURN",A$«, l3=0x41}
0x2655…266b Line {l1=0x14, l2=»3370 EXEC NRTEST(A$)«, l3=0x14}
0x266b…267c Line {l1=0x0f, l2=»3380 UNTIL P=-1«, l3=0x0f}
0x267c…2689 Line {l1=0x0b, l2=»3390 ENDIF «, l3=0x0b}
0x2689…2696 Line {l1=0x0b, l2=»3400 CLEAR «, l3=0x0b}
0x2696…26a4 Line {l1=0x0c, l2=»3410 REPEAT «, l3=0x0c}
0x26a4…26b7 Line {l1=0x11, l2=»3420 CURSOR 15,13«, l3=0x11}
0x26b7…26e7 Line {l1=0x2e, l2=»3430 INPUT "Ønskes liste udskrevet (J/N): ",A$«, l3=0x2e}
0x26e7…26fd Line {l1=0x14, l2=»3440 EXEC NRTEST(A$)«, l3=0x14}
0x26fd…2716 Line {l1=0x17, l2=»3450 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2716…2744 Line {l1=0x2c, l2=»3460 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1)«, l3=0x2c}
0x2744…2751 Line {l1=0x0b, l2=»3470 WHEN 2«, l3=0x0b}
0x2751…277e Line {l1=0x2b, l2=»3480 MUL$="4";TKO$=CHR(23+48);TORENTE$="0+"«, l3=0x2b}
0x277e…2798 Line {l1=0x18, l2=»3490 FOR RENNR1=1 TO REN«, l3=0x18}
0x2798…27cf Line {l1=0x35, l2=»3500 GET K5$,RENNR1:KONTO,NAVN$,SALDO1$,SALDO$,RENTE$«, l3=0x35}
0x27cf…27e8 Line {l1=0x17, l2=»3510 EXEC FEJL(4,1,K5$)«, l3=0x17}
0x27e8…2800 Line {l1=0x16, l2=»3520 IF KONTO<>0 THEN «, l3=0x16}
0x2800…281a Line {l1=0x18, l2=»3530 BHPOSTNR=BHPOSTNR+1«, l3=0x18}
0x281a…2854 Line {l1=0x38, l2=»3540 PUT K4$,BHPOSTNR:KONTO,DATO,RENNR1,TKO$,RENTE$,MUL$«, l3=0x38}
0x2854…286d Line {l1=0x17, l2=»3550 EXEC FEJL(4,2,K4$)«, l3=0x17}
0x286d…2899 Line {l1=0x2a, l2=»3560 EXEC CALC(1,TORENTE$,RENTE$,TORENTE$)«, l3=0x2a}
0x2899…28a6 Line {l1=0x0b, l2=»3570 ENDIF «, l3=0x0b}
0x28a6…28b8 Line {l1=0x10, l2=»3580 NEXT RENNR1«, l3=0x10}
0x28b8…2901 Line {l1=0x47, l2=»3590 BHPOSTNR=BHPOSTNR+2;TKO$=CHR(10+48);TEKST$="Samlet rentepostering"«, l3=0x47}
0x2901…2945 Line {l1=0x42, l2=»3600 PUT K4$,BHPOSTNR-1:RENTENR,DATO,RENRAPSIDE,TKO$,TORENTE$,MUL$«, l3=0x42}
0x2945…295e Line {l1=0x17, l2=»3610 EXEC FEJL(4,3,K4$)«, l3=0x17}
0x295e…2984 Line {l1=0x24, l2=»3620 PUT K4$,BHPOSTNR:RENTENR,TEKST$«, l3=0x24}
0x2984…299d Line {l1=0x17, l2=»3630 EXEC FEJL(4,4,K4$)«, l3=0x17}
0x299d…29c7 Line {l1=0x28, l2=»3640 EXEC SKRIVLIST(TXT1$(6),RENRAPSIDE)«, l3=0x28}
0x29c7…29d3 Line {l1=0x0a, l2=»3650 REN=0«, l3=0x0a}
0x29d3…29e5 Line {l1=0x10, l2=»3660 EXEC SYSGEM«, l3=0x10}
0x29e5…29ff Line {l1=0x18, l2=»3670 FOR I=1 TO RENNR1-1«, l3=0x18}
0x29ff…2a20 Line {l1=0x1f, l2=»3680 PUT K5$,I:0,TAH$,TAH$,TAH$«, l3=0x1f}
0x2a20…2a39 Line {l1=0x17, l2=»3690 EXEC FEJL(4,5,K5$)«, l3=0x17}
0x2a39…2a46 Line {l1=0x0b, l2=»3700 NEXT I«, l3=0x0b}
0x2a46…2a53 Line {l1=0x0b, l2=»3710 WHEN 3«, l3=0x0b}
0x2a53…2a61 Line {l1=0x0c, l2=»3720 REPEAT «, l3=0x0c}
0x2a61…2a74 Line {l1=0x11, l2=»3730 CURSOR 18,10«, l3=0x11}
0x2a74…2ab2 Line {l1=0x3c, l2=»3740 PRINT "Fra posteringsnr : (0:Alle,RETURN:færdig)"«, l3=0x3c}
0x2ab2…2ac5 Line {l1=0x11, l2=»3750 CURSOR 36,10«, l3=0x11}
0x2ac5…2ad8 Line {l1=0x11, l2=»3760 INPUT " ",A$«, l3=0x11}
0x2ad8…2aee Line {l1=0x14, l2=»3770 EXEC NRTEST(A$)«, l3=0x14}
0x2aee…2b0d Line {l1=0x1d, l2=»3780 UNTIL P<=REN AND TEST2=0«, l3=0x1d}
0x2b0d…2b19 Line {l1=0x0a, l2=»3790 FRA=P«, l3=0x0a}
0x2b19…2b2e Line {l1=0x13, l2=»3800 IF P<>-1 THEN «, l3=0x13}
0x2b2e…2b41 Line {l1=0x11, l2=»3810 IF P=0 THEN «, l3=0x11}
0x2b41…2b55 Line {l1=0x12, l2=»3820 FRA=1;TIL=REN«, l3=0x12}
0x2b55…2b61 Line {l1=0x0a, l2=»3830 ELSE «, l3=0x0a}
0x2b61…2b6f Line {l1=0x0c, l2=»3840 REPEAT «, l3=0x0c}
0x2b6f…2b82 Line {l1=0x11, l2=»3850 CURSOR 18,12«, l3=0x11}
0x2b82…2ba7 Line {l1=0x23, l2=»3860 INPUT "Til posteringsnr : ",A$«, l3=0x23}
0x2ba7…2bbd Line {l1=0x14, l2=»3870 EXEC NRTEST(A$)«, l3=0x14}
0x2bbd…2be7 Line {l1=0x28, l2=»3880 UNTIL P=>FRA AND TEST2=0 AND P<=REN«, l3=0x28}
0x2be7…2bf4 Line {l1=0x0b, l2=»3890 ENDIF «, l3=0x0b}
0x2bf4…2c00 Line {l1=0x0a, l2=»3895 TIL=P«, l3=0x0a}
0x2c00…2c1c Line {l1=0x1a, l2=»3900 FOR RENNR1=FRA TO TIL«, l3=0x1a}
0x2c1c…2c53 Line {l1=0x35, l2=»3910 GET K5$,RENNR1:KONTO,NAVN$,SALDO$,FSALDO$,RENTE$«, l3=0x35}
0x2c53…2c6c Line {l1=0x17, l2=»3920 EXEC FEJL(3,1,K5$)«, l3=0x17}
0x2c6c…2c9f Line {l1=0x31, l2=»3930 PUT K5$,RENNR1:0,NAVN$,SALDO$,FSALDO$,RENTE$«, l3=0x31}
0x2c9f…2cb8 Line {l1=0x17, l2=»3940 EXEC FEJL(3,2,K5$)«, l3=0x17}
0x2cb8…2cca Line {l1=0x10, l2=»3950 NEXT RENNR1«, l3=0x10}
0x2cca…2cd7 Line {l1=0x0b, l2=»3960 CLEAR «, l3=0x0b}
0x2cd7…2ce5 Line {l1=0x0c, l2=»3970 REPEAT «, l3=0x0c}
0x2ce5…2cf8 Line {l1=0x11, l2=»3980 CURSOR 15,13«, l3=0x11}
0x2cf8…2d28 Line {l1=0x2e, l2=»3990 INPUT "Ønskes liste udskrevet (J/N): ",A$«, l3=0x2e}
0x2d28…2d3e Line {l1=0x14, l2=»4000 EXEC NRTEST(A$)«, l3=0x14}
0x2d3e…2d57 Line {l1=0x17, l2=»4010 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2d57…2d85 Line {l1=0x2c, l2=»4020 IF P=-7 THEN EXEC SKRIVLIST(TXT1$(5),1)«, l3=0x2c}
0x2d85…2d92 Line {l1=0x0b, l2=»4030 ENDIF «, l3=0x0b}
0x2d92…2d9f Line {l1=0x0b, l2=»4040 WHEN 4«, l3=0x0b}
0x2d9f…2dc0 Line {l1=0x1f, l2=»4050 EXEC SKRIVLIST(TXT1$(5),1)«, l3=0x1f}
0x2dc0…2dcf Line {l1=0x0d, l2=»4060 ENDCASE «, l3=0x0d}
0x2dcf…2dec Line {l1=0x1b, l2=»4080 UNTIL TYPE=2 OR TYPE=0«, l3=0x1b}
0x2dec…2dfc Line {l1=0x0e, l2=»4090 CLOSE K4$«, l3=0x0e}
0x2dfc…2e16 Line {l1=0x18, l2=»4100 EXEC FEJL(9,20,K4$)«, l3=0x18}
0x2e16…2e26 Line {l1=0x0e, l2=»4110 CLOSE K5$«, l3=0x0e}
0x2e26…2e40 Line {l1=0x18, l2=»4120 EXEC FEJL(9,21,K5$)«, l3=0x18}
0x2e40…2e4d Line {l1=0x0b, l2=»4130 CLOSE «, l3=0x0b}
0x2e4d…2e5a Line {l1=0x0b, l2=»4140 CLEAR «, l3=0x0b}
0x2e5a…2e68 Line {l1=0x0c, l2=»4150 REPEAT «, l3=0x0c}
0x2e68…2e7b Line {l1=0x11, l2=»4160 CURSOR 15,13«, l3=0x11}
0x2e7b…2eac Line {l1=0x2f, l2=»4170 INPUT "Isæt plade nr 10 og tast RETURN",A$«, l3=0x2f}
0x2eac…2ec2 Line {l1=0x14, l2=»4180 EXEC NRTEST(A$)«, l3=0x14}
0x2ec2…2ed3 Line {l1=0x0f, l2=»4190 UNTIL P=-1«, l3=0x0f}
0x2ed3…2efb Line {l1=0x26, l2=»4200 IF TYPE=2 THEN CHAIN "P641210:BJ"«, l3=0x26}
0x2efb…2f0d Line {l1=0x10, l2=»4210 EXEC SYSGEM«, l3=0x10}
0x2f0d…2f2b Line {l1=0x1c, l2=»4220 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x2f2b…2f40 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x2f40…2f60 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x10…]