|
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: 25280 (0x62c0)
Types: TextFile
Notes: Mikados_K
Names: »KASRAP.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »KASRAP.K«
0100 DIM OP1$(12),OP2$(12),RES$(14),A1$(12),A2$(77),A3$(25),A4$(17) 0110 DIM A5$(17),A6$(17),A7$(25),A8$(12),A9$(1),B0$(25) 0120 DIM B1$(12),B2$(12),B3$(12),B4$(25),B5$(25) 0130 DIM B6$(17),B7$(77),B8$(14),B9$(12),C0$(9),C1$(20),C2$(17) 0140 DIM C3$(12),C4$(12),C5$(1),A$(2),C6$(12),C7$(1),C8$(1) 0150 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8) 0160 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12) 0170 DIM E2$(17),E3$(25),E4$(25),E5$(18,10),E6$(1),E7$(6),E8(9) 0180 DIM E9$(17),F0(9),F1$(1),F2$(1),F3$(12),F4$(12),F5$(6,12) 0190 DIM F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(1),G1(9) 0200 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25) 0210 PROC CALC(G9,H0,H1,H2) 0220 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=0;FLAG=0;ART=G9-6*(G9>5) 0230 CALL "P641210:REGN" 0240 H2$=RES$ 0250 IF G9<>6 THEN 0260 IF FLAG THEN STOP 0270 ENDIF 0280 ENDPROC 0290 PROC INDTASTNING(H3) 0300 REPEAT 0310 CASE H3 OF 0320 STOP 0330 WHEN 1 0340 REPEAT 0350 REPEAT 0360 CURSOR 3,23 0370 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)" 0380 CURSOR 8,23 0390 INPUT D5$ 0400 EXEC NRTEST(D5$) 0410 UNTIL P=>-3 AND H4=0 0420 IF P<>0 AND H5=19 AND P<>-2 AND P<>-3 THEN 0430 CLEAR 0440 EXEC UDHOVED 0450 H5=1 0460 EXEC UDLINIE(H6,H7,E4$,F4$,H8) 0470 EXEC KYSGEM 0480 H5=H5+1 0490 ENDIF 0500 H9=-1 0510 REPEAT 0520 H9=-1 0530 CASE P OF 0540 CURSOR 1,H5+3 0550 PRINT USING "###":H5 0560 H7=P 0570 P=-4 0580 I0=H7 0590 CURSOR 4,H5+3 0600 PRINT USING "#######":H7 0610 H3=2 0620 WHEN 0 0630 H3=6 0640 IF I1=2 THEN H3=-1 0650 P=-4 0660 WHEN -1 0670 I0=I0+1 0680 P=I0 0690 H9=0 0700 WHEN -2 0710 EXEC NYDATO 0720 EXEC UDHOVED 0730 WHEN -3 0740 IF I2>I3 THEN 0750 I0=I0-1 0760 H5=H5-1 0770 EXEC KLET(5) 0780 EXEC ÆND(1,F4$,H8) 0790 I2=I3;I4=I3-1 0800 ENDIF 0810 ENDCASE 0820 UNTIL H9=-1 0830 UNTIL P=-4 0840 WHEN 2 0850 REPEAT 0860 REPEAT 0870 CURSOR 3,23 0880 PRINT "Tekst"+B7$(1:27)+"(max 25 tegn)"+B7$(1:32) 0890 CURSOR 9,23 0900 INPUT D4$ 0910 I5=LEN(D4$) 0920 UNTIL I5<=25 0930 IF I5<3 THEN 0940 EXEC NRTEST(D4$) 0950 ELSE 0960 P=20;H4=0 0970 ENDIF 0980 UNTIL P=>0 AND P<21 AND H4=0 AND P<>10 0990 IF P<>0 THEN 1000 I6=P MOD 10 1010 IF I6=0 THEN 1020 P=10 1030 E3$=D4$ 1040 E4$=E3$ 1050 ELSE 1060 E4$=E5$(I6)+B7$(1:15) 1070 IF P>10 THEN 1080 REPEAT 1090 CURSOR 3,23 1100 PRINT "Tekst";B7$(1:16);"(max 14 tegn)"+B7$(1:43) 1110 CURSOR 9,23 1120 INPUT D4$ 1130 UNTIL LEN(D4$)<15 1140 E4$(12,25)=D4$ 1150 E3$=E4$ 1160 ENDIF 1170 ENDIF 1180 CURSOR 12,H5+3 1190 PRINT E4$ 1200 ELSE 1210 E4$=B7$(1:25) 1220 ENDIF 1230 H3=3 1240 I7=P 1250 WHEN 3 1260 REPEAT 1270 REPEAT 1280 CURSOR 3,23 1290 PRINT "Konto (5 cifre)";B7$(1:53) 1300 CURSOR 9,23 1310 INPUT D5$ 1320 EXEC NRTEST(D5$) 1330 UNTIL H4=0 AND (I8<>0 AND I5=5) 1340 H6=P 1350 EXEC KTNAVN(I8,H6) 1360 CURSOR 15,23 1370 PRINT "(Navn:";B7$(1:27);"Er konto rigtig (J/N) " 1380 CURSOR 22,23 1390 PRINT B4$ 1400 REPEAT 1410 CURSOR 64,23 1420 INPUT A$ 1430 EXEC NRTEST(A$) 1440 UNTIL P=-7 OR P=-8 1450 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1) 1460 IF I9=1 THEN 1470 EXEC KLET(5) 1480 H3=1;I0=I0-1 1490 ELSE 1500 CURSOR 38,H5+3 1510 H3=4 1520 IF I1=1 THEN H3=-1 1530 PRINT USING "######":H6 1540 ENDIF 1550 WHEN 4 1560 REPEAT 1570 REPEAT 1580 REPEAT 1590 REPEAT 1600 CURSOR 3,23 1610 PRINT "Beløb";B7$(1:14);"(Kredit indtastes med efterstillet minus)"; 1620 PRINT B7$(1:16) 1630 CURSOR 8,23 1640 INPUT F3$ 1650 UNTIL LEN(F3$)>0 1660 EXEC FORTEGN 1670 EXEC CALC(6,F3$,B9$,B8$) 1680 UNTIL FLAG=0 1690 EXEC CALC(4,F3$,B9$,B9$) 1700 UNTIL SI<>0 AND FLAG=0 1710 I8=H6 DIV 10000 1720 J0=0 1730 D5$=F3$(LEN(F3$)) 1740 IF (I8=J1 AND D5$="+") OR (I8=J2 AND D5$="-") THEN 1750 EXEC TESTSALDO(F3$) 1760 ENDIF 1770 UNTIL J0=0 1780 F4$=F3$ 1790 EXEC KLET(3) 1800 IF D5$="+" THEN 1810 CURSOR 46,H5+3 1820 J3=1 1830 ELSE 1840 CURSOR 61,H5+3 1850 J3=0 1860 ENDIF 1870 EXEC TUD(F4$,B8$,0,0) 1880 PRINT B8$ 1890 H3=5 1900 IF I1=1 THEN H3=-1 1910 WHEN 5 1920 REPEAT 1930 CURSOR 3,23 1940 PRINT "Kode (0:Annullering, 1:Kasse, 2:Giro, 3:Bank)"+B7$(1:27) 1950 CURSOR 7,23 1960 INPUT D5$ 1970 EXEC NRTEST(D5$) 1980 UNTIL (P>0 AND P<4) OR (P=0 AND I1<>1) 1990 H8=P;H3=1 2000 IF H8=0 THEN 2010 EXEC KLET(5) 2020 I0=I0-1 2030 ELSE 2040 CURSOR 77,H5+3 2050 PRINT USING "##":H8 2060 IF I1<>1 THEN 2070 EXEC ÆND(0,F4$,H8) 2080 H5=H5+1 2090 EXEC GENNYPOST 2100 ENDIF 2110 ENDIF 2120 IF I1=1 THEN H3=-1 2130 WHEN 6 2140 REPEAT 2150 CURSOR 3,23 2160 PRINT "Ønskes afstemning J/N "+B7$(1:54) 2170 CURSOR 22,23 2180 INPUT A$ 2190 EXEC NRTEST(A$) 2200 UNTIL P=-7 OR P=-8 2210 EXEC KYSGEM 2220 IF P=-7 THEN 2230 J4=0 2240 FOR I=1 TO 6 2250 REPEAT 2260 REPEAT 2270 CURSOR 3,23 2280 PRINT J5$(I);B7$(1:60) 2290 CURSOR 17,23 2300 INPUT F3$ 2310 UNTIL LEN(F3$)>0 2320 EXEC FORTEGN 2330 EXEC CALC(6,F3$,B9$,B8$) 2340 UNTIL FLAG=0 2350 IF I MOD 2=1 THEN 2360 F9$(I)=F3$ 2370 ELSE 2380 F9$(I)=F3$(1:LEN(F3$)-1)+"-" 2390 ENDIF 2400 NEXT I 2410 ELSE 2420 J4=1 2430 ENDIF 2440 H3=-1 2450 ENDCASE 2460 UNTIL H3=-1 2470 ENDPROC 2480 PROC GENNYPOST 2490 I3=I2;F1$=CHR(I7+48);F2$=CHR(H8+48) 2500 PUT D2$,I2:H6,J6,H7,F1$,F4$,F2$ 2510 EXEC FEJL(6,1,D2$) 2520 I2=I2+1 2530 IF I7>9 THEN 2540 PUT D2$,I2:E3$ 2550 EXEC FEJL(6,2,D2$) 2560 I2=I2+1 2570 ENDIF 2580 I4=I2-1 2590 ENDPROC 2600 PROC HENTKRPOST 2610 J7=J8(J9,2) 2620 GET D1$,J7:K0,F8$,A3$ 2630 EXEC FEJL(5,1,D1$) 2640 GET D1$,J7+1:A5$,C7$,C8$,K1,F6$,F7$ 2650 EXEC FEJL(5,2,D1$) 2660 ENDPROC 2670 PROC HENTKASPOST 2680 EXEC UDHOVED 2690 IF K2=I2 THEN K2=1 2700 K3=K2;H5=1 2710 FOR I=1 TO 18 2720 GET D2$,K2:G2(I),G3(I),G4(I),F1$,G6$(I),F2$ 2730 EXEC FEJL(2,1,D2$) 2740 K2=K2+1 2750 G5(I)=ORD(F1$)-48;G7(I)=ORD(F2$)-48 2760 IF G5(I)>9 AND G5(I)<20 THEN 2770 IF I2=K2 THEN EXIT 2780 GET D2$,K2:G8$(I) 2790 EXEC FEJL(2,2,D2$) 2800 K2=K2+1 2810 ELSE 2820 IF G5(I)>0 THEN 2830 G8$(I)=E5$(G5(I)-10*(G5(I)>20)) 2840 ELSE 2850 G8$(I)=B7$(1:25) 2860 ENDIF 2870 ENDIF 2880 IF G2(I)<>0 THEN EXEC UDLINIE(G2(I),G4(I),G8$(I),G6$(I),G7(I)) 2890 H5=H5+1 2900 IF K2=I2 THEN EXIT 2910 NEXT I 2920 ENDPROC 2930 PROC GEMKASPOST 2940 FOR I=1 TO 18 2950 F1$=CHR(G5(I)+48);F2$=CHR(G7(I)+48) 2960 PUT D2$,K3:G2(I),G3(I),G4(I),F1$,G6$(I),F2$ 2970 EXEC FEJL(3,1,D2$) 2980 K3=K3+1 2990 IF G5(I)>9 AND G5(I)<20 THEN 3000 PUT D2$,K3:G8$(I) 3010 EXEC FEJL(3,2,D2$) 3020 K3=K3+1 3030 ENDIF 3040 IF K3=K2 THEN EXIT 3050 NEXT I 3060 ENDPROC 3070 PROC ÆND(K4,K5,K6) 3080 J3=0;B8$=K5$ 3090 IF B8$(LEN(B8$))="+" THEN J3=1 3100 J3=2*K6-J3 3110 EXEC CALC(K4,F5$(J3),B8$,F5$(J3)) 3120 ENDPROC 3130 PROC RETTE 3140 K3=1;K2=1 3150 IF I2=1 THEN EXIT 3160 REPEAT 3170 CLEAR 3180 EXEC HENTKASPOST 3190 K7=H5;K8=0 3200 REPEAT 3210 REPEAT 3220 CURSOR 3,23 3230 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:"; 3240 PRINT "Ny post) " 3250 CURSOR 20,23 3260 INPUT D5$ 3270 EXEC NRTEST(D5$) 3280 UNTIL (P=-8 OR P>-2 AND P<K7) AND H4=0 3290 K9=P 3300 IF K9<1 THEN EXIT 3310 K8=1 3320 REPEAT 3330 REPEAT 3340 CURSOR 3,23 3350 PRINT "Linie:";K9;" Vælg ændring (0:Færdig, A:Annuller, 1:Konto, "; 3360 PRINT "2:Beløb, 3:Kode)" 3370 CURSOR 25,23 3380 INPUT D5$ 3390 EXEC NRTEST(D5$) 3400 UNTIL (P=-3 OR P>-1 AND P<4) AND H4=0 3410 L0=P 3420 IF L0=0 THEN EXIT 3430 H5=K9 3440 IF G2(K9)=0 THEN 3450 CURSOR 3,H5+3 3460 PRINT "Postering er annulleret" 3470 ELSE 3480 IF L0<>1 THEN EXEC ÆND(1,G6$(K9),G7(K9)) 3490 IF L0=-3 THEN 3500 EXEC KLET(5) 3510 G2(K9)=0 3520 ELSE 3530 L0=L0+2;L1=L0;I1=1;H6=G2(K9);F4$=G6$(K9);H8=G7(K9) 3540 EXEC INDTASTNING(L0) 3550 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8 3560 IF L1<>3 THEN EXEC ÆND(0,F4$,H8) 3570 ENDIF 3580 ENDIF 3590 UNTIL L0=-3 OR L0=0 3600 UNTIL K9<1 3610 IF K8=1 THEN 3620 EXEC GEMKASPOST 3630 EXEC KYSGEM 3640 ENDIF 3650 UNTIL K9=0 OR K9=-8 3660 IF K9=-8 THEN 3670 CLEAR 3680 EXEC UDHOVED 3690 H5=1;I1=2 3700 EXEC INDTASTNING(1) 3710 ENDIF 3720 ENDPROC 3730 PROC KYSGEM 3740 E8(4)=L2;E8(8)=I0;F0(2)=I4;G1(1)=L3 3750 OPEN E2$,W 3760 EXEC FEJL(3,1,E2$) 3770 PUT E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9) 3780 EXEC FEJL(3,2,E2$) 3790 PUT E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9) 3800 EXEC FEJL(3,3,E2$) 3810 PUT E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9) 3820 EXEC FEJL(3,4,E2$) 3830 PUT E2$,15:F5$(1),F5$(2),F5$(3) 3840 EXEC FEJL(3,5,E2$) 3850 PUT E2$,16:F5$(4),F5$(5),F5$(6) 3860 EXEC FEJL(3,6,E2$) 3870 CLOSE E2$ 3880 EXEC FEJL(3,7,E2$) 3890 ENDPROC 3900 PROC HENTKASPOST1 3910 GET D2$,I:H6,L4,H7,F1$,F4$,F2$ 3920 EXEC FEJL(4,1,D2$) 3930 I7=ORD(F1$)-48;H8=ORD(F2$)-48 3940 IF I7>9 AND I7<20 THEN 3950 I=I+1 3960 GET D2$,I:E3$ 3970 EXEC FEJL(4,2,D2$) 3980 ENDIF 3990 ENDPROC 4000 PROC FINDPOST1(L5,Q,L6,L7,L8,L9) 4010 M0=L6 DIV 8;L8=M0;I9=1;M1=L6 DIV 4;M2=L6 DIV 32 4020 REPEAT 4030 IF L7=L5(L8) OR M0=1 THEN EXIT 4040 M0=(M0+1) DIV 2 4050 L8=L8+M0*(1-2*(L7<L5(L8))) 4060 IF L8<1 THEN L8=1 4070 IF L8>M1 THEN L8=M1 4080 UNTIL M0=0 4090 IF L5(L8)>L7 THEN L8=L8-1*(L8>1) 4100 L8=M2+L8 4110 GET L9$,L8:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2) 4120 EXEC FEJL(1,1,L9$) 4130 FOR L8=1 TO 4 4140 IF L7=Q(L8,1) THEN EXIT 4150 NEXT L8 4160 IF L8<>5 THEN I9=0 4170 ENDPROC 4180 PROC INDTAB1(Z,M3,M4) 4190 M0=M3 DIV 32 4200 FOR I=1 TO M0 4210 H=(I-1)*8+1 4220 GET M4$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 4230 EXEC FEJL(5,1,M4$) 4240 NEXT I 4250 ENDPROC 4260 PROC KTNAVN(M5,M6) 4270 I9=1 4280 CASE M5 OF 4290 EXEC FINDPOST1(M7,M8,M9,M6,N0,A6$) 4300 IF I9=0 THEN 4310 EXEC HENTPOST 4320 B4$=B0$ 4330 ENDIF 4340 WHEN J1 4350 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN 4360 EXEC FINDPOST1(N2,N3,N4,M6,N5,A4$) 4370 IF I9=0 THEN 4380 EXEC HENTDPOST 4390 B4$=A7$ 4400 ENDIF 4410 ENDIF 4420 WHEN J2 4430 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN 4440 EXEC FINDPOST1(N7,J8,N8,M6,J9,B6$) 4450 IF I9=0 THEN 4460 EXEC HENTKRPOST 4470 B4$=F8$ 4480 ENDIF 4490 ENDIF 4500 ENDCASE 4510 IF I9=1 THEN 4520 B4$="Konto eksisterer ikke " 4530 ENDIF 4540 ENDPROC 4550 PROC TESTSALDO(N9) 4560 EXEC KTNAVN(I8,H6) 4570 IF I9=0 THEN 4580 J0=0 4590 C6$=N9$ 4600 IF I8=J1 THEN 4610 EXEC CALC(4,B3$,B9$,B9$) 4620 IF SI<>0 THEN 4630 EXEC CALC(0,B3$,C6$,C6$) 4640 ELSE 4650 EXEC CALC(4,B2$,B9$,B9$) 4660 IF SI<>0 THEN 4670 EXEC CALC(0,B2$,C6$,C6$) 4680 ELSE 4690 EXEC CALC(4,B1$,B9$,B9$) 4700 IF SI<>0 THEN 4710 EXEC CALC(0,B1$,C6$,C6$) 4720 ELSE 4730 EXEC CALC(4,A8$,B9$,B9$) 4740 IF SI<>0 THEN 4750 EXEC CALC(0,A8$,C6$,C6$) 4760 ELSE 4770 J0=1 4780 C6$="0+" 4790 ENDIF 4800 ENDIF 4810 ENDIF 4820 ENDIF 4830 IF C6$(LEN(C6$))="-" THEN J0=1 4840 ELSE 4850 EXEC CALC(4,F7$,B9$,B9$) 4860 IF SI<>0 THEN 4870 EXEC CALC(0,F7$,C6$,C6$) 4880 ELSE 4890 EXEC CALC(4,F6$,B9$,B9$) 4900 IF SI<>0 THEN 4910 EXEC CALC(0,F6$,C6$,C6$) 4920 ELSE 4930 C6$="0+" 4940 ENDIF 4950 ENDIF 4960 IF C6$(LEN(C6$))="+" THEN J0=1 4970 ENDIF 4980 IF J0=1 THEN 4990 REPEAT 5000 CURSOR 22,23 5010 PRINT " Er beløbet rigtigt ? (J/N)";B7$(1:20) 5020 CURSOR 45,23 5030 INPUT " ",A$ 5040 EXEC NRTEST(A$) 5050 UNTIL P=-7 OR P=-8 5060 IF P=-7 THEN J0=0 5070 ENDIF 5080 ELSE 5090 STOP 5100 ENDIF 5110 ENDPROC 5120 PROC KLET(O0) 5130 CASE O0 OF 5140 STOP 5150 WHEN 1 5160 CURSOR 4,H5+3 5170 PRINT B7$(1:32) 5180 WHEN 2 5190 CURSOR 38,H5+3 5200 PRINT " " 5210 WHEN 3 5220 CURSOR 46,H5+3 5230 PRINT B7$(1:28) 5240 WHEN 4 5250 CURSOR 77,H5+3 5260 PRINT B7$(1) 5270 WHEN 5 5280 CURSOR 4,H5+3 5290 PRINT B7$ 5300 ENDCASE 5310 ENDPROC 5320 PROC FORTEGN 5330 I5=LEN(F3$) 5340 IF I5=0 THEN F3$="0+" 5350 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN 5360 F3$=F3$+"+" 5370 ENDIF 5380 ENDPROC 5390 PROC UDHOVED 5400 CURSOR 35,1 5410 PRINT "Kasserapport";TAB(30);"Dato:" 5420 CURSOR 72,1 5430 PRINT J6 5440 CURSOR 2,3 5450 PRINT "Nr Bilag Tekst";TAB(38);"Konto Debet Kredit"; 5460 PRINT " Kode" 5470 ENDPROC 5480 PROC NYDATO 5490 REPEAT 5500 CURSOR 3,23 5510 PRINT "Ny dato (ååmmdd)"+B7$(1:54) 5520 CURSOR 11,23 5530 INPUT D5$ 5540 EXEC NRTEST(D5$) 5550 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32 5560 J6=P 5570 ENDPROC 5580 PROC UDLINIE(O1,O2,O3,O4,O5) 5590 B8$=O4$ 5600 CURSOR 1,H5+3 5610 PRINT USING "###":H5 5620 IF O2<>-1 THEN 5630 CURSOR 4,H5+3 5640 PRINT USING "#######":O2 5650 ENDIF 5660 CURSOR 12,H5+3 5670 PRINT O3$ 5680 CURSOR 38,H5+3 5690 PRINT O1 5700 IF B8$(LEN(B8$))="+" THEN 5710 CURSOR 46,H5+3 5720 ELSE 5730 CURSOR 61,H5+3 5740 ENDIF 5750 EXEC TUD(B8$,B8$,0,0) 5760 PRINT B8$ 5770 CURSOR 77,H5+3 5780 PRINT O5 5790 ENDPROC 5800 PROC FEJL(O6,O7,O8) 5810 IF STATUS(O8$)<>0 THEN 5820 PRINT STATUS(O8$),O6,O7,O8$ 5830 STOP 5840 ENDIF 5850 ENDPROC 5860 PROC HENTDPOST 5870 J7=N3(N5,2) 5880 GET D0$,J7:O9,A7$,A8$,A9$ 5890 EXEC FEJL(8,2,D0$) 5900 IF O9<>N3(N5,1) THEN STOP 5910 GET D0$,J7+1:B1$,B2$,B3$,P0,C5$ 5920 EXEC FEJL(8,3,D0$) 5930 GET D0$,J7+2:B5$,C0$,P1,P2 5940 EXEC FEJL(8,4,D0$) 5950 GET D0$,J7+3:C1$,C3$,C4$ 5960 EXEC FEJL(8,5,D0$) 5970 ENDPROC 5980 PROC TUD(P3,P4,P5,P6) 5990 C6$=P3$;B8$=P4$ 6000 EXEC CALC(5,C6$,B9$,B8$) 6010 P4$=B8$ 6020 IF P5=0 THEN 6030 P4$=P4$(1:13) 6040 ELSE 6050 IF P5=1 AND P4$(LEN(P4$))="+" THEN 6060 P4$(LEN(P4$))=" " 6070 ENDIF 6080 ENDIF 6090 IF P6=1 THEN 6100 P4$=P4$(4:LEN(P4$)-3) 6110 ENDIF 6120 ENDPROC 6130 PROC NRTEST(P7) 6140 P=0;H4=0;I8=0;I5=LEN(P7$) 6150 CASE I5 OF 6160 FOR I=1 TO I5 6170 P8=INT(ORD(P7$(I))-48) 6180 IF P8=>0 AND P8<10 THEN 6190 P=P*10+P8 6200 ELSE 6210 H4=1 6220 ENDIF 6230 NEXT I 6240 I8=P DIV 10000;KTAL9=P DIV 1000 6250 IF KTAL9=J2 THEN I8=KTAL9 6260 WHEN 0 6270 P=-1 6280 WHEN 1 6290 CASE P7$ OF 6300 P=INT(ORD(P7$)-48) 6310 WHEN "d","D" 6320 P=-2 6330 WHEN "a","A" 6340 P=-3 6350 WHEN "j","J" 6360 P=-7 6370 WHEN "n","N" 6380 P=-8 6390 ENDCASE 6400 ENDCASE 6410 ENDPROC 6420 PROC HENTPOST 6430 J7=M8(N0,2) 6440 GET C9$,J7:P9,B0$ 6450 EXEC FEJL(3,2,C9$) 6460 IF P9<>M8(N0,1) THEN STOP 6470 GET C9$,J7+1:G0$,D7$,D8$ 6480 EXEC FEJL(3,3,C9$) 6490 GET C9$,J7+2:E6$,D9$,E0$ 6500 EXEC FEJL(3,4,C9$) 6510 ENDPROC 6520 PROC BFSTEMNING 6530 REPEAT 6540 CLEAR 6550 CURSOR 21,1 6560 PRINT "Kasserapport afstemning" 6570 CURSOR 66,1 6580 PRINT "Dato :";J6 6590 CURSOR 21,3 6600 PRINT "Differencer Indtastede saldi" 6610 FOR I=1 TO 6 6620 EXEC CALC(1,F5$(I),F9$(I),F3$) 6630 CURSOR 1,I+4 6640 PRINT I;J5$(I) 6650 CURSOR 19,I+4 6660 EXEC TUD(F3$,B8$,1,0) 6670 PRINT B8$ 6680 CURSOR 36,I+4 6690 EXEC TUD(F9$(I),B8$,1,0) 6700 PRINT B8$ 6710 NEXT I 6720 CURSOR 4,12 6730 PRINT "Kontroller dine saldi !" 6740 REPEAT 6750 CURSOR 4,14 6760 PRINT "Hvilken er forkert (0:ingen,1-6)" 6770 CURSOR 25,14 6780 INPUT D5$ 6790 EXEC NRTEST(D5$) 6800 UNTIL -1<P AND P<7 AND H4=0 6810 IF P<>0 THEN 6820 REPEAT 6830 REPEAT 6840 CURSOR 1,16 6850 PRINT P;J5$(P);" (tast ændret saldo)" 6860 CURSOR 19,16 6870 INPUT F3$ 6880 UNTIL LEN(F3$)>0 6890 EXEC FORTEGN 6900 EXEC CALC(6,F3$,B9$,B8$) 6910 UNTIL FLAG=0 6920 IF P MOD 2=0 THEN 6930 F9$(P)=F3$(1:LEN(F3$)-1)+"-" 6940 ELSE 6950 F9$(P)=F3$ 6960 ENDIF 6970 Q0=0 6980 ELSE 6990 FOR I=1 TO 6 7000 EXEC CALC(1,F5$(I),F9$(I),F3$) 7010 EXEC CALC(4,F3$,B9$,B9$) 7020 IF SI<>0 THEN EXIT 7030 NEXT I 7040 IF SI<>0 THEN 7050 EXEC RETTE 7060 Q0=0 7070 ELSE 7080 REPEAT 7090 CURSOR 4,16 7100 PRINT "Ønskes ændringer (J/N)" 7110 CURSOR 22,16 7120 INPUT A$ 7130 EXEC NRTEST(A$) 7140 UNTIL (P=-7 OR P=-8) AND H4=0 7150 IF P=-7 THEN 7160 EXEC RETTE 7170 Q0=0 7180 ELSE 7190 Q0=-1 7200 ENDIF 7210 ENDIF 7220 ENDIF 7230 UNTIL Q0=-1 7240 ENDPROC 7250 PROC HOVEDUD(Q1,Q2) 7260 EXEC DATOUD(Q1,D6$) 7270 OUTPUT P 7280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 7290 PRINT TAB(9);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$; 7300 PRINT TAB(61); 7310 PRINT USING "Side:####":Q2 7320 PRINT CHR(10) 7330 PRINT TAB(3);"Bilag";TAB(10);"Tekst";TAB(39);"Konto"; 7340 PRINT TAB(52);"Debet";TAB(67);"Kredit";TAB(75);"Kode" 7350 PRINT TAB(3);A2$ 7360 ENDPROC 7370 PROC LINIEUD(Q3,Q4,Q5,Q6,Q7,Q8) 7380 IF Q3<>-1 THEN 7390 PRINT USING "#######":Q3; 7400 ENDIF 7410 IF Q4<10 AND Q4>0 THEN 7420 E3$=E5$(Q4)+B7$(1:15) 7430 ENDIF 7440 IF Q4<>0 THEN 7450 PRINT TAB(10);E3$; 7460 ENDIF 7470 PRINT TAB(38); 7480 PRINT USING "######":Q5; 7490 PRINT TAB(47+14*(Q6=0)); 7500 EXEC TUD(Q7$,B8$,0,0) 7510 PRINT B8$;TAB(76); 7520 PRINT USING "##":Q8 7530 ENDPROC 7540 PROC DATOUD(Q9,R0) 7550 R1=Q9 7560 R0$=" " 7570 FOR J=8 TO 1 STEP -1 7580 IF J MOD 3=0 THEN 7590 R0$(J)="." 7600 ELSE 7610 R0$(J)=CHR(R1 MOD 10+48) 7620 R1=R1 DIV 10 7630 ENDIF 7640 NEXT J 7650 ENDPROC 7660 PROC UDSKRIV(R2,R3) 7670 IF R3=36 OR R3=0 THEN 7680 R2=R2+1 7690 EXEC HOVEDUD(R4,R2) 7700 R3=0 7710 ENDIF 7720 R5=0 7730 R3=R3+1 7740 IF F4$(LEN(F4$))="+" THEN R5=1 7750 EXEC LINIEUD(H7,I7,H6,R5,F4$,H8) 7760 ENDPROC 7770 PROC MODFORTEGN(R6,R7) 7780 I5=LEN(R7$) 7790 IF R7$(I5)="+" THEN 7800 R6$=R7$(1:I5-1)+"-" 7810 ELSE 7820 R6$=R7$(1:I5-1)+"+" 7830 ENDIF 7840 ENDPROC 7850 PROC GEMBHPOST 7860 J7=L3;D5$="1" 7870 J7=J7+1 7880 F1$=CHR(I7+48) 7890 PUT D3$,J7:H6,L4,H7,F1$,F3$,D5$ 7900 EXEC FEJL(7,2,D3$) 7910 IF I7=>10 AND I7<20 THEN 7920 J7=J7+1 7930 PUT D3$,J7:H6,E3$ 7940 EXEC FEJL(7,3,D3$) 7950 ENDIF 7960 L3=J7 7970 ENDPROC 7980 PROC BUND 7990 FOR I=R8 TO 36 8000 PRINT CHR(10); 8010 NEXT I 8020 PRINT " " 8030 PRINT TAB(3);A2$ 8040 EXEC TUD(A1$,B8$,0,0) 8050 PRINT TAB(10);CHR(14);"Difference";CHR(15); 8060 PRINT TAB(39+14*(B8$(LEN(B8$))="-"));B8$ 8070 PRINT TAB(3);A2$ 8080 PRINT CHR(10) 8090 ENDPROC 8100 PROC UDBIL 8110 CLEAR 8120 REPEAT 8130 CURSOR 8,13 8140 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$ 8150 UNTIL ORD(A$)=255 8160 ENDPROC 8170 C2$="P641220:SYSTEM1" 8180 OPEN C2$,R 8190 EXEC FEJL(9,1,C2$) 8200 GET C2$,1:M9,N4,N8 8210 EXEC FEJL(9,2,C2$) 8220 GET C2$,2:R9,S0,S1 8230 EXEC FEJL(9,3,C2$) 8240 GET C2$,4:S2,S3,S4,N1 8250 EXEC FEJL(9,4,C2$) 8260 GET C2$,5:N6 8270 EXEC FEJL(9,5,C2$) 8280 GET C2$,6:S5,S6,S7 8290 EXEC FEJL(9,6,C2$) 8300 GET C2$,8:S8,S9,T0,J1 8310 EXEC FEJL(9,7,C2$) 8320 GET C2$,9:J2 8330 EXEC FEJL(9,8,C2$) 8340 GET C2$,10:E7$ 8350 EXEC FEJL(9,9,C2$) 8360 GET C2$,11:A6$ 8370 EXEC FEJL(9,10,C2$) 8380 GET C2$,12:A4$ 8390 EXEC FEJL(9,11,C2$) 8400 GET C2$,13:B6$ 8410 EXEC FEJL(9,12,C2$) 8420 GET C2$,15:C9$ 8430 EXEC FEJL(9,13,C2$) 8440 GET C2$,16:D0$ 8450 EXEC FEJL(9,14,C2$) 8460 GET C2$,17:D1$ 8470 EXEC FEJL(9,15,C2$) 8480 GET C2$,19:D2$ 8490 EXEC FEJL(9,16,C2$) 8500 GET C2$,21:D3$ 8510 EXEC FEJL(9,17,C2$) 8520 GET C2$,36:E2$ 8530 EXEC FEJL(9,18,C2$) 8540 CLOSE C2$ 8550 EXEC FEJL(9,19,C2$) 8560 DIM M7(M9 DIV 4),N2(N4 DIV 4),N7(N8 DIV 4) 8570 DIM M8(4,2),N3(4,2),J8(4,2),J5$(6,14) 8580 E2$=E7$+E2$ 8590 OPEN E2$,R 8600 EXEC FEJL(9,20,E2$) 8610 GET E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9) 8620 EXEC FEJL(9,21,E2$) 8630 FOR I=1 TO 6 8640 J=(I-1)*3+1 8650 GET E2$,I+5:E5$(J),E5$(J+1),E5$(J+2) 8660 EXEC FEJL(9,22,E2$) 8670 NEXT I 8680 GET E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9) 8690 EXEC FEJL(9,23,E2$) 8700 GET E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9) 8710 EXEC FEJL(9,24,E2$) 8720 GET E2$,15:F5$(1),F5$(2),F5$(3) 8730 EXEC FEJL(9,25,E2$) 8740 GET E2$,16:F5$(4),F5$(5),F5$(6) 8750 EXEC FEJL(9,26,E2$) 8760 CLOSE E2$ 8770 EXEC FEJL(9,27,E2$) 8780 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$ 8790 D2$=E7$+D2$;D3$=E7$+D3$ 8800 OPEN A6$,R 8810 EXEC FEJL(9,28,A6$) 8820 OPEN A4$,R 8830 EXEC FEJL(9,29,A4$) 8840 OPEN B6$,R 8850 EXEC FEJL(9,30,B6$) 8860 OPEN C9$,R 8870 EXEC FEJL(9,31,C9$) 8880 OPEN D0$,R 8890 EXEC FEJL(9,32,D0$) 8900 OPEN D1$,R 8910 EXEC FEJL(9,33,D1$) 8920 OPEN D2$,W 8930 EXEC FEJL(9,34,D2$) 8940 EXEC INDTAB1(M7,M9,A6$) 8950 EXEC INDTAB1(N2,N4,A4$) 8960 EXEC INDTAB1(N7,N8,B6$) 8970 J5$(1)="Kasse debet ";J5$(2)="Kasse kredit ";J5$(3)="Giro debet " 8980 J5$(4)="Giro kredit ";J5$(5)="Bank debet ";J5$(6)="Bank kredit " 8990 B7$=" ";B7$=B7$+B7$ 9000 B9$="0+";A1$="0+";A2$="--------------------------------------" 9010 I1=0;A2$=A2$+A2$+" " 9020 L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(2);L3=G1(1) 9030 H5=1;J6=R4;R8=0;L4=0;B8$="0+";I3=I4+1 9040 I2=I3;K3=1;K2=1 9050 CLEAR 9060 EXEC UDHOVED 9070 EXEC INDTASTNING(1) 9080 IF J4=0 THEN 9090 EXEC BFSTEMNING 9100 EXEC UDBIL 9110 OPEN D3$,W 9120 EXEC FEJL(9,37,D3$) 9130 FOR I=1 TO I4 9140 EXEC HENTKASPOST1 9150 IF H6<>0 THEN 9160 EXEC MODFORTEGN(F3$,F4$) 9170 EXEC GEMBHPOST 9180 EXEC CALC(0,F3$,A1$,A1$) 9190 EXEC UDSKRIV(L2,R8) 9200 ENDIF 9210 NEXT I 9220 I7=24;H7=L2;H8=0 9230 EXEC CALC(0,F5$(1),F5$(2),F3$) 9240 EXEC CALC(0,F3$,A1$,A1$) 9250 H6=S5 9260 EXEC GEMBHPOST 9270 I7=10;H7=-1;F4$=F3$;E3$="Samlet kassepostering" 9280 EXEC UDSKRIV(L2,R8) 9290 EXEC CALC(0,F5$(3),F5$(4),F3$) 9300 EXEC CALC(0,F3$,A1$,A1$) 9310 I7=24;H7=L2;H6=S6 9320 EXEC GEMBHPOST 9330 F4$=F3$;I7=10;H7=-1;E3$="Samlet giropostering" 9340 EXEC UDSKRIV(L2,R8) 9350 EXEC CALC(0,F5$(5),F5$(6),F3$) 9360 EXEC CALC(0,F3$,A1$,A1$) 9370 I7=24;H7=L2;H6=S7 9380 EXEC GEMBHPOST 9390 E3$="Samlet bankpostering";F4$=F3$;I7=10;H7=-1 9400 EXEC UDSKRIV(L2,R8) 9410 EXEC CALC(4,A1$,B9$,B9$) 9420 IF SI<>0 THEN 9430 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport" 9440 EXEC MODFORTEGN(F3$,A1$) 9450 EXEC GEMBHPOST 9460 EXEC CALC(0,F3$,A1$,A1$) 9470 F4$=F3$;H7=-1 9480 EXEC UDSKRIV(L2,R8) 9490 ENDIF 9500 EXEC BUND 9510 CLOSE D3$ 9520 EXEC FEJL(9,38,D3$) 9530 I4=0 9540 FOR I=1 TO 6 9550 F5$(I)="0+" 9560 NEXT I 9570 ELSE 9580 REPEAT 9590 CURSOR 3,23 9600 PRINT "Ønskes kontroludskrift J/N ";B7$(1:45) 9610 CURSOR 26,23 9620 INPUT A$ 9630 UNTIL (A$="J" OR A$="N" OR A$="j" OR A$="n") AND LEN(A$)=1 9640 IF A$="J" OR A$="j" THEN 9650 T1=L2 9660 EXEC UDBIL 9670 FOR I=1 TO I4 9680 EXEC HENTKASPOST1 9690 EXEC UDSKRIV(T1,R8) 9700 EXEC CALC(1,A1$,F4$,A1$) 9710 NEXT I 9720 I7=10;H7=-1;H8=0;H6=0 9730 FOR I=1 TO 6 9740 E3$=J5$(I);F4$=F5$(I) 9750 EXEC UDSKRIV(T1,R8) 9760 EXEC CALC(0,A1$,F4$,A1$) 9770 NEXT I 9780 EXEC BUND 9790 ENDIF 9800 ENDIF 9810 EXEC KYSGEM 9820 CLOSE D2$ 9830 EXEC FEJL(9,39,D2$) 9840 CLOSE 9850 OUTPUT T 9860 CHAIN "P641210:OPSTART"
0x0000…0045 Line {l1=0x43, l2=»0100 DIM OP1$(12),OP2$(12),RES$(14),A1$(12),A2$(77),A3$(25),A4$(17)«, l3=0x43}
0x0045…007e Line {l1=0x37, l2=»0110 DIM A5$(17),A6$(17),A7$(25),A8$(12),A9$(1),B0$(25)«, l3=0x37}
0x007e…00b0 Line {l1=0x30, l2=»0120 DIM B1$(12),B2$(12),B3$(12),B4$(25),B5$(25)«, l3=0x30}
0x00b0…00f1 Line {l1=0x3f, l2=»0130 DIM B6$(17),B7$(77),B8$(14),B9$(12),C0$(9),C1$(20),C2$(17)«, l3=0x3f}
0x00f1…012e Line {l1=0x3b, l2=»0140 DIM C3$(12),C4$(12),C5$(1),A$(2),C6$(12),C7$(1),C8$(1)«, l3=0x3b}
0x012e…0176 Line {l1=0x46, l2=»0150 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8)«, l3=0x46}
0x0176…01a8 Line {l1=0x30, l2=»0160 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12)«, l3=0x30}
0x01a8…01e9 Line {l1=0x3f, l2=»0170 DIM E2$(17),E3$(25),E4$(25),E5$(18,10),E6$(1),E7$(6),E8(9)«, l3=0x3f}
0x01e9…0229 Line {l1=0x3e, l2=»0180 DIM E9$(17),F0(9),F1$(1),F2$(1),F3$(12),F4$(12),F5$(6,12)«, l3=0x3e}
0x0229…0262 Line {l1=0x37, l2=»0190 DIM F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(1),G1(9)«, l3=0x37}
0x0262…02a5 Line {l1=0x41, l2=»0200 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25)«, l3=0x41}
0x02a5…02c2 Line {l1=0x1b, l2=»0210 PROC CALC(G9,H0,H1,H2)«, l3=0x1b}
0x02c2…02ff Line {l1=0x3b, l2=»0220 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=0;FLAG=0;ART=G9-6*(G9>5)«, l3=0x3b}
0x02ff…0319 Line {l1=0x18, l2=»0230 CALL "P641210:REGN"«, l3=0x18}
0x0319…0328 Line {l1=0x0d, l2=»0240 H2$=RES$«, l3=0x0d}
0x0328…033d Line {l1=0x13, l2=»0250 IF G9<>6 THEN «, l3=0x13}
0x033d…0356 Line {l1=0x17, l2=»0260 IF FLAG THEN STOP «, l3=0x17}
0x0356…0363 Line {l1=0x0b, l2=»0270 ENDIF «, l3=0x0b}
0x0363…0372 Line {l1=0x0d, l2=»0280 ENDPROC «, l3=0x0d}
0x0372…038d Line {l1=0x19, l2=»0290 PROC INDTASTNING(H3)«, l3=0x19}
0x038d…039b Line {l1=0x0c, l2=»0300 REPEAT «, l3=0x0c}
0x039b…03ad Line {l1=0x10, l2=»0310 CASE H3 OF «, l3=0x10}
0x03ad…03b9 Line {l1=0x0a, l2=»0320 STOP «, l3=0x0a}
0x03b9…03c6 Line {l1=0x0b, l2=»0330 WHEN 1«, l3=0x0b}
0x03c6…03d4 Line {l1=0x0c, l2=»0340 REPEAT «, l3=0x0c}
0x03d4…03e2 Line {l1=0x0c, l2=»0350 REPEAT «, l3=0x0c}
0x03e2…03f4 Line {l1=0x10, l2=»0360 CURSOR 3,23«, l3=0x10}
0x03f4…0442 Line {l1=0x4c, l2=»0370 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)"«, l3=0x4c}
0x0442…0454 Line {l1=0x10, l2=»0380 CURSOR 8,23«, l3=0x10}
0x0454…0464 Line {l1=0x0e, l2=»0390 INPUT D5$«, l3=0x0e}
0x0464…047b Line {l1=0x15, l2=»0400 EXEC NRTEST(D5$)«, l3=0x15}
0x047b…0496 Line {l1=0x19, l2=»0410 UNTIL P=>-3 AND H4=0«, l3=0x19}
0x0496…04c8 Line {l1=0x30, l2=»0420 IF P<>0 AND H5=19 AND P<>-2 AND P<>-3 THEN «, l3=0x30}
0x04c8…04d5 Line {l1=0x0b, l2=»0430 CLEAR «, l3=0x0b}
0x04d5…04e8 Line {l1=0x11, l2=»0440 EXEC UDHOVED«, l3=0x11}
0x04e8…04f3 Line {l1=0x09, l2=»0450 H5=1«, l3=0x09}
0x04f3…0518 Line {l1=0x23, l2=»0460 EXEC UDLINIE(H6,H7,E4$,F4$,H8)«, l3=0x23}
0x0518…052a Line {l1=0x10, l2=»0470 EXEC KYSGEM«, l3=0x10}
0x052a…0538 Line {l1=0x0c, l2=»0480 H5=H5+1«, l3=0x0c}
0x0538…0545 Line {l1=0x0b, l2=»0490 ENDIF «, l3=0x0b}
0x0545…0551 Line {l1=0x0a, l2=»0500 H9=-1«, l3=0x0a}
0x0551…055f Line {l1=0x0c, l2=»0510 REPEAT «, l3=0x0c}
0x055f…056b Line {l1=0x0a, l2=»0520 H9=-1«, l3=0x0a}
0x056b…057c Line {l1=0x0f, l2=»0530 CASE P OF «, l3=0x0f}
0x057c…0590 Line {l1=0x12, l2=»0540 CURSOR 1,H5+3«, l3=0x12}
0x0590…05ab Line {l1=0x19, l2=»0550 PRINT USING "###":H5«, l3=0x19}
0x05ab…05b6 Line {l1=0x09, l2=»0560 H7=P«, l3=0x09}
0x05b6…05c1 Line {l1=0x09, l2=»0570 P=-4«, l3=0x09}
0x05c1…05cd Line {l1=0x0a, l2=»0580 I0=H7«, l3=0x0a}
0x05cd…05e1 Line {l1=0x12, l2=»0590 CURSOR 4,H5+3«, l3=0x12}
0x05e1…0600 Line {l1=0x1d, l2=»0600 PRINT USING "#######":H7«, l3=0x1d}
0x0600…060b Line {l1=0x09, l2=»0610 H3=2«, l3=0x09}
0x060b…0618 Line {l1=0x0b, l2=»0620 WHEN 0«, l3=0x0b}
0x0618…0623 Line {l1=0x09, l2=»0630 H3=6«, l3=0x09}
0x0623…063c Line {l1=0x17, l2=»0640 IF I1=2 THEN H3=-1«, l3=0x17}
0x063c…0647 Line {l1=0x09, l2=»0650 P=-4«, l3=0x09}
0x0647…0655 Line {l1=0x0c, l2=»0660 WHEN -1«, l3=0x0c}
0x0655…0663 Line {l1=0x0c, l2=»0670 I0=I0+1«, l3=0x0c}
0x0663…066e Line {l1=0x09, l2=»0680 P=I0«, l3=0x09}
0x066e…0679 Line {l1=0x09, l2=»0690 H9=0«, l3=0x09}
0x0679…0687 Line {l1=0x0c, l2=»0700 WHEN -2«, l3=0x0c}
0x0687…0699 Line {l1=0x10, l2=»0710 EXEC NYDATO«, l3=0x10}
0x0699…06ac Line {l1=0x11, l2=»0720 EXEC UDHOVED«, l3=0x11}
0x06ac…06ba Line {l1=0x0c, l2=»0730 WHEN -3«, l3=0x0c}
0x06ba…06cf Line {l1=0x13, l2=»0740 IF I2>I3 THEN «, l3=0x13}
0x06cf…06dd Line {l1=0x0c, l2=»0750 I0=I0-1«, l3=0x0c}
0x06dd…06eb Line {l1=0x0c, l2=»0760 H5=H5-1«, l3=0x0c}
0x06eb…06fe Line {l1=0x11, l2=»0770 EXEC KLET(5)«, l3=0x11}
0x06fe…0717 Line {l1=0x17, l2=»0780 EXEC ÆND(1,F4$,H8)«, l3=0x17}
0x0717…072b Line {l1=0x12, l2=»0790 I2=I3;I4=I3-1«, l3=0x12}
0x072b…0738 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x0738…0747 Line {l1=0x0d, l2=»0810 ENDCASE «, l3=0x0d}
0x0747…0759 Line {l1=0x10, l2=»0820 UNTIL H9=-1«, l3=0x10}
0x0759…076a Line {l1=0x0f, l2=»0830 UNTIL P=-4«, l3=0x0f}
0x076a…0777 Line {l1=0x0b, l2=»0840 WHEN 2«, l3=0x0b}
0x0777…0785 Line {l1=0x0c, l2=»0850 REPEAT «, l3=0x0c}
0x0785…0793 Line {l1=0x0c, l2=»0860 REPEAT «, l3=0x0c}
0x0793…07a5 Line {l1=0x10, l2=»0870 CURSOR 3,23«, l3=0x10}
0x07a5…07dd Line {l1=0x36, l2=»0880 PRINT "Tekst"+B7$(1:27)+"(max 25 tegn)"+B7$(1:32)«, l3=0x36}
0x07dd…07ef Line {l1=0x10, l2=»0890 CURSOR 9,23«, l3=0x10}
0x07ef…07ff Line {l1=0x0e, l2=»0900 INPUT D4$«, l3=0x0e}
0x07ff…0811 Line {l1=0x10, l2=»0910 I5=LEN(D4$)«, l3=0x10}
0x0811…0824 Line {l1=0x11, l2=»0920 UNTIL I5<=25«, l3=0x11}
0x0824…0838 Line {l1=0x12, l2=»0930 IF I5<3 THEN «, l3=0x12}
0x0838…084f Line {l1=0x15, l2=»0940 EXEC NRTEST(D4$)«, l3=0x15}
0x084f…085b Line {l1=0x0a, l2=»0950 ELSE «, l3=0x0a}
0x085b…086b Line {l1=0x0e, l2=»0960 P=20;H4=0«, l3=0x0e}
0x086b…0878 Line {l1=0x0b, l2=»0970 ENDIF «, l3=0x0b}
0x0878…08a5 Line {l1=0x2b, l2=»0980 UNTIL P=>0 AND P<21 AND H4=0 AND P<>10«, l3=0x2b}
0x08a5…08b9 Line {l1=0x12, l2=»0990 IF P<>0 THEN «, l3=0x12}
0x08b9…08cb Line {l1=0x10, l2=»1000 I6=P MOD 10«, l3=0x10}
0x08cb…08df Line {l1=0x12, l2=»1010 IF I6=0 THEN «, l3=0x12}
0x08df…08ea Line {l1=0x09, l2=»1020 P=10«, l3=0x09}
0x08ea…08f8 Line {l1=0x0c, l2=»1030 E3$=D4$«, l3=0x0c}
0x08f8…0906 Line {l1=0x0c, l2=»1040 E4$=E3$«, l3=0x0c}
0x0906…0912 Line {l1=0x0a, l2=»1050 ELSE «, l3=0x0a}
0x0912…092e Line {l1=0x1a, l2=»1060 E4$=E5$(I6)+B7$(1:15)«, l3=0x1a}
0x092e…0942 Line {l1=0x12, l2=»1070 IF P>10 THEN «, l3=0x12}
0x0942…0950 Line {l1=0x0c, l2=»1080 REPEAT «, l3=0x0c}
0x0950…0962 Line {l1=0x10, l2=»1090 CURSOR 3,23«, l3=0x10}
0x0962…099a Line {l1=0x36, l2=»1100 PRINT "Tekst";B7$(1:16);"(max 14 tegn)"+B7$(1:43)«, l3=0x36}
0x099a…09ac Line {l1=0x10, l2=»1110 CURSOR 9,23«, l3=0x10}
0x09ac…09bc Line {l1=0x0e, l2=»1120 INPUT D4$«, l3=0x0e}
0x09bc…09d4 Line {l1=0x16, l2=»1130 UNTIL LEN(D4$)<15«, l3=0x16}
0x09d4…09e9 Line {l1=0x13, l2=»1140 E4$(12,25)=D4$«, l3=0x13}
0x09e9…09f7 Line {l1=0x0c, l2=»1150 E3$=E4$«, l3=0x0c}
0x09f7…0a04 Line {l1=0x0b, l2=»1160 ENDIF «, l3=0x0b}
0x0a04…0a11 Line {l1=0x0b, l2=»1170 ENDIF «, l3=0x0b}
0x0a11…0a26 Line {l1=0x13, l2=»1180 CURSOR 12,H5+3«, l3=0x13}
0x0a26…0a36 Line {l1=0x0e, l2=»1190 PRINT E4$«, l3=0x0e}
0x0a36…0a42 Line {l1=0x0a, l2=»1200 ELSE «, l3=0x0a}
0x0a42…0a56 Line {l1=0x12, l2=»1210 E4$=B7$(1:25)«, l3=0x12}
0x0a56…0a63 Line {l1=0x0b, l2=»1220 ENDIF «, l3=0x0b}
0x0a63…0a6e Line {l1=0x09, l2=»1230 H3=3«, l3=0x09}
0x0a6e…0a79 Line {l1=0x09, l2=»1240 I7=P«, l3=0x09}
0x0a79…0a86 Line {l1=0x0b, l2=»1250 WHEN 3«, l3=0x0b}
0x0a86…0a94 Line {l1=0x0c, l2=»1260 REPEAT «, l3=0x0c}
0x0a94…0aa2 Line {l1=0x0c, l2=»1270 REPEAT «, l3=0x0c}
0x0aa2…0ab4 Line {l1=0x10, l2=»1280 CURSOR 3,23«, l3=0x10}
0x0ab4…0ae4 Line {l1=0x2e, l2=»1290 PRINT "Konto (5 cifre)";B7$(1:53)«, l3=0x2e}
0x0ae4…0af6 Line {l1=0x10, l2=»1300 CURSOR 9,23«, l3=0x10}
0x0af6…0b06 Line {l1=0x0e, l2=»1310 INPUT D5$«, l3=0x0e}
0x0b06…0b1d Line {l1=0x15, l2=»1320 EXEC NRTEST(D5$)«, l3=0x15}
0x0b1d…0b43 Line {l1=0x24, l2=»1330 UNTIL H4=0 AND (I8<>0 AND I5=5)«, l3=0x24}
0x0b43…0b4e Line {l1=0x09, l2=»1340 H6=P«, l3=0x09}
0x0b4e…0b67 Line {l1=0x17, l2=»1350 EXEC KTNAVN(I8,H6)«, l3=0x17}
0x0b67…0b7a Line {l1=0x11, l2=»1360 CURSOR 15,23«, l3=0x11}
0x0b7a…0bbc Line {l1=0x40, l2=»1370 PRINT "(Navn:";B7$(1:27);"Er konto rigtig (J/N) "«, l3=0x40}
0x0bbc…0bcf Line {l1=0x11, l2=»1380 CURSOR 22,23«, l3=0x11}
0x0bcf…0bdf Line {l1=0x0e, l2=»1390 PRINT B4$«, l3=0x0e}
0x0bdf…0bed Line {l1=0x0c, l2=»1400 REPEAT «, l3=0x0c}
0x0bed…0c00 Line {l1=0x11, l2=»1410 CURSOR 64,23«, l3=0x11}
0x0c00…0c0f Line {l1=0x0d, l2=»1420 INPUT A$«, l3=0x0d}
0x0c0f…0c25 Line {l1=0x14, l2=»1430 EXEC NRTEST(A$)«, l3=0x14}
0x0c25…0c3e Line {l1=0x17, l2=»1440 UNTIL P=-7 OR P=-8«, l3=0x17}
0x0c3e…0c6e Line {l1=0x2e, l2=»1450 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1)«, l3=0x2e}
0x0c6e…0c82 Line {l1=0x12, l2=»1460 IF I9=1 THEN «, l3=0x12}
0x0c82…0c95 Line {l1=0x11, l2=»1470 EXEC KLET(5)«, l3=0x11}
0x0c95…0ca8 Line {l1=0x11, l2=»1480 H3=1;I0=I0-1«, l3=0x11}
0x0ca8…0cb4 Line {l1=0x0a, l2=»1490 ELSE «, l3=0x0a}
0x0cb4…0cc9 Line {l1=0x13, l2=»1500 CURSOR 38,H5+3«, l3=0x13}
0x0cc9…0cd4 Line {l1=0x09, l2=»1510 H3=4«, l3=0x09}
0x0cd4…0ced Line {l1=0x17, l2=»1520 IF I1=1 THEN H3=-1«, l3=0x17}
0x0ced…0d0b Line {l1=0x1c, l2=»1530 PRINT USING "######":H6«, l3=0x1c}
0x0d0b…0d18 Line {l1=0x0b, l2=»1540 ENDIF «, l3=0x0b}
0x0d18…0d25 Line {l1=0x0b, l2=»1550 WHEN 4«, l3=0x0b}
0x0d25…0d33 Line {l1=0x0c, l2=»1560 REPEAT «, l3=0x0c}
0x0d33…0d41 Line {l1=0x0c, l2=»1570 REPEAT «, l3=0x0c}
0x0d41…0d4f Line {l1=0x0c, l2=»1580 REPEAT «, l3=0x0c}
0x0d4f…0d5d Line {l1=0x0c, l2=»1590 REPEAT «, l3=0x0c}
0x0d5d…0d6f Line {l1=0x10, l2=»1600 CURSOR 3,23«, l3=0x10}
0x0d6f…0dba Line {l1=0x49, l2=»1610 PRINT "Beløb";B7$(1:14);"(Kredit indtastes med efterstillet minus)";«, l3=0x49}
0x0dba…0dd0 Line {l1=0x14, l2=»1620 PRINT B7$(1:16)«, l3=0x14}
0x0dd0…0de2 Line {l1=0x10, l2=»1630 CURSOR 8,23«, l3=0x10}
0x0de2…0df2 Line {l1=0x0e, l2=»1640 INPUT F3$«, l3=0x0e}
0x0df2…0e09 Line {l1=0x15, l2=»1650 UNTIL LEN(F3$)>0«, l3=0x15}
0x0e09…0e1c Line {l1=0x11, l2=»1660 EXEC FORTEGN«, l3=0x11}
0x0e1c…0e3b Line {l1=0x1d, l2=»1670 EXEC CALC(6,F3$,B9$,B8$)«, l3=0x1d}
0x0e3b…0e4e Line {l1=0x11, l2=»1680 UNTIL FLAG=0«, l3=0x11}
0x0e4e…0e6d Line {l1=0x1d, l2=»1690 EXEC CALC(4,F3$,B9$,B9$)«, l3=0x1d}
0x0e6d…0e8a Line {l1=0x1b, l2=»1700 UNTIL SI<>0 AND FLAG=0«, l3=0x1b}
0x0e8a…0ea0 Line {l1=0x14, l2=»1710 I8=H6 DIV 10000«, l3=0x14}
0x0ea0…0eab Line {l1=0x09, l2=»1720 J0=0«, l3=0x09}
0x0eab…0ec3 Line {l1=0x16, l2=»1730 D5$=F3$(LEN(F3$))«, l3=0x16}
0x0ec3…0efd Line {l1=0x38, l2=»1740 IF (I8=J1 AND D5$="+") OR (I8=J2 AND D5$="-") THEN «, l3=0x38}
0x0efd…0f17 Line {l1=0x18, l2=»1750 EXEC TESTSALDO(F3$)«, l3=0x18}
0x0f17…0f24 Line {l1=0x0b, l2=»1760 ENDIF «, l3=0x0b}
0x0f24…0f35 Line {l1=0x0f, l2=»1770 UNTIL J0=0«, l3=0x0f}
0x0f35…0f43 Line {l1=0x0c, l2=»1780 F4$=F3$«, l3=0x0c}
0x0f43…0f56 Line {l1=0x11, l2=»1790 EXEC KLET(3)«, l3=0x11}
0x0f56…0f6d Line {l1=0x15, l2=»1800 IF D5$="+" THEN «, l3=0x15}
0x0f6d…0f82 Line {l1=0x13, l2=»1810 CURSOR 46,H5+3«, l3=0x13}
0x0f82…0f8d Line {l1=0x09, l2=»1820 J3=1«, l3=0x09}
0x0f8d…0f99 Line {l1=0x0a, l2=»1830 ELSE «, l3=0x0a}
0x0f99…0fae Line {l1=0x13, l2=»1840 CURSOR 61,H5+3«, l3=0x13}
0x0fae…0fb9 Line {l1=0x09, l2=»1850 J3=0«, l3=0x09}
0x0fb9…0fc6 Line {l1=0x0b, l2=»1860 ENDIF «, l3=0x0b}
0x0fc6…0fe2 Line {l1=0x1a, l2=»1870 EXEC TUD(F4$,B8$,0,0)«, l3=0x1a}
0x0fe2…0ff2 Line {l1=0x0e, l2=»1880 PRINT B8$«, l3=0x0e}
0x0ff2…0ffd Line {l1=0x09, l2=»1890 H3=5«, l3=0x09}
0x0ffd…1016 Line {l1=0x17, l2=»1900 IF I1=1 THEN H3=-1«, l3=0x17}
0x1016…1023 Line {l1=0x0b, l2=»1910 WHEN 5«, l3=0x0b}
0x1023…1031 Line {l1=0x0c, l2=»1920 REPEAT «, l3=0x0c}
0x1031…1043 Line {l1=0x10, l2=»1930 CURSOR 3,23«, l3=0x10}
0x1043…108b Line {l1=0x46, l2=»1940 PRINT "Kode (0:Annullering, 1:Kasse, 2:Giro, 3:Bank)"+B7$(1:27)«, l3=0x46}
0x108b…109d Line {l1=0x10, l2=»1950 CURSOR 7,23«, l3=0x10}
0x109d…10ad Line {l1=0x0e, l2=»1960 INPUT D5$«, l3=0x0e}
0x10ad…10c4 Line {l1=0x15, l2=»1970 EXEC NRTEST(D5$)«, l3=0x15}
0x10c4…10f1 Line {l1=0x2b, l2=»1980 UNTIL (P>0 AND P<4) OR (P=0 AND I1<>1)«, l3=0x2b}
0x10f1…1101 Line {l1=0x0e, l2=»1990 H8=P;H3=1«, l3=0x0e}
0x1101…1115 Line {l1=0x12, l2=»2000 IF H8=0 THEN «, l3=0x12}
0x1115…1128 Line {l1=0x11, l2=»2010 EXEC KLET(5)«, l3=0x11}
0x1128…1136 Line {l1=0x0c, l2=»2020 I0=I0-1«, l3=0x0c}
0x1136…1142 Line {l1=0x0a, l2=»2030 ELSE «, l3=0x0a}
0x1142…1157 Line {l1=0x13, l2=»2040 CURSOR 77,H5+3«, l3=0x13}
0x1157…1171 Line {l1=0x18, l2=»2050 PRINT USING "##":H8«, l3=0x18}
0x1171…1186 Line {l1=0x13, l2=»2060 IF I1<>1 THEN «, l3=0x13}
0x1186…119f Line {l1=0x17, l2=»2070 EXEC ÆND(0,F4$,H8)«, l3=0x17}
0x119f…11ad Line {l1=0x0c, l2=»2080 H5=H5+1«, l3=0x0c}
0x11ad…11c2 Line {l1=0x13, l2=»2090 EXEC GENNYPOST«, l3=0x13}
0x11c2…11cf Line {l1=0x0b, l2=»2100 ENDIF «, l3=0x0b}
0x11cf…11dc Line {l1=0x0b, l2=»2110 ENDIF «, l3=0x0b}
0x11dc…11f5 Line {l1=0x17, l2=»2120 IF I1=1 THEN H3=-1«, l3=0x17}
0x11f5…1202 Line {l1=0x0b, l2=»2130 WHEN 6«, l3=0x0b}
0x1202…1210 Line {l1=0x0c, l2=»2140 REPEAT «, l3=0x0c}
0x1210…1222 Line {l1=0x10, l2=»2150 CURSOR 3,23«, l3=0x10}
0x1222…1251 Line {l1=0x2d, l2=»2160 PRINT "Ønskes afstemning J/N "+B7$(1:54)«, l3=0x2d}
0x1251…1264 Line {l1=0x11, l2=»2170 CURSOR 22,23«, l3=0x11}
0x1264…1273 Line {l1=0x0d, l2=»2180 INPUT A$«, l3=0x0d}
0x1273…1289 Line {l1=0x14, l2=»2190 EXEC NRTEST(A$)«, l3=0x14}
0x1289…12a2 Line {l1=0x17, l2=»2200 UNTIL P=-7 OR P=-8«, l3=0x17}
0x12a2…12b4 Line {l1=0x10, l2=»2210 EXEC KYSGEM«, l3=0x10}
0x12b4…12c8 Line {l1=0x12, l2=»2220 IF P=-7 THEN «, l3=0x12}
0x12c8…12d3 Line {l1=0x09, l2=»2230 J4=0«, l3=0x09}
0x12d3…12e6 Line {l1=0x11, l2=»2240 FOR I=1 TO 6«, l3=0x11}
0x12e6…12f4 Line {l1=0x0c, l2=»2250 REPEAT «, l3=0x0c}
0x12f4…1302 Line {l1=0x0c, l2=»2260 REPEAT «, l3=0x0c}
0x1302…1314 Line {l1=0x10, l2=»2270 CURSOR 3,23«, l3=0x10}
0x1314…1331 Line {l1=0x1b, l2=»2280 PRINT J5$(I);B7$(1:60)«, l3=0x1b}
0x1331…1344 Line {l1=0x11, l2=»2290 CURSOR 17,23«, l3=0x11}
0x1344…1354 Line {l1=0x0e, l2=»2300 INPUT F3$«, l3=0x0e}
0x1354…136b Line {l1=0x15, l2=»2310 UNTIL LEN(F3$)>0«, l3=0x15}
0x136b…137e Line {l1=0x11, l2=»2320 EXEC FORTEGN«, l3=0x11}
0x137e…139d Line {l1=0x1d, l2=»2330 EXEC CALC(6,F3$,B9$,B8$)«, l3=0x1d}
0x139d…13b0 Line {l1=0x11, l2=»2340 UNTIL FLAG=0«, l3=0x11}
0x13b0…13c9 Line {l1=0x17, l2=»2350 IF I MOD 2=1 THEN «, l3=0x17}
0x13c9…13da Line {l1=0x0f, l2=»2360 F9$(I)=F3$«, l3=0x0f}
0x13da…13e6 Line {l1=0x0a, l2=»2370 ELSE «, l3=0x0a}
0x13e6…1409 Line {l1=0x21, l2=»2380 F9$(I)=F3$(1:LEN(F3$)-1)+"-"«, l3=0x21}
0x1409…1416 Line {l1=0x0b, l2=»2390 ENDIF «, l3=0x0b}
0x1416…1423 Line {l1=0x0b, l2=»2400 NEXT I«, l3=0x0b}
0x1423…142f Line {l1=0x0a, l2=»2410 ELSE «, l3=0x0a}
0x142f…143a Line {l1=0x09, l2=»2420 J4=1«, l3=0x09}
0x143a…1447 Line {l1=0x0b, l2=»2430 ENDIF «, l3=0x0b}
0x1447…1453 Line {l1=0x0a, l2=»2440 H3=-1«, l3=0x0a}
0x1453…1462 Line {l1=0x0d, l2=»2450 ENDCASE «, l3=0x0d}
0x1462…1474 Line {l1=0x10, l2=»2460 UNTIL H3=-1«, l3=0x10}
0x1474…1483 Line {l1=0x0d, l2=»2470 ENDPROC «, l3=0x0d}
0x1483…1498 Line {l1=0x13, l2=»2480 PROC GENNYPOST«, l3=0x13}
0x1498…14c2 Line {l1=0x28, l2=»2490 I3=I2;F1$=CHR(I7+48);F2$=CHR(H8+48)«, l3=0x28}
0x14c2…14e8 Line {l1=0x24, l2=»2500 PUT D2$,I2:H6,J6,H7,F1$,F4$,F2$«, l3=0x24}
0x14e8…1501 Line {l1=0x17, l2=»2510 EXEC FEJL(6,1,D2$)«, l3=0x17}
0x1501…150f Line {l1=0x0c, l2=»2520 I2=I2+1«, l3=0x0c}
0x150f…1523 Line {l1=0x12, l2=»2530 IF I7>9 THEN «, l3=0x12}
0x1523…1538 Line {l1=0x13, l2=»2540 PUT D2$,I2:E3$«, l3=0x13}
0x1538…1551 Line {l1=0x17, l2=»2550 EXEC FEJL(6,2,D2$)«, l3=0x17}
0x1551…155f Line {l1=0x0c, l2=»2560 I2=I2+1«, l3=0x0c}
0x155f…156c Line {l1=0x0b, l2=»2570 ENDIF «, l3=0x0b}
0x156c…157a Line {l1=0x0c, l2=»2580 I4=I2-1«, l3=0x0c}
0x157a…1589 Line {l1=0x0d, l2=»2590 ENDPROC «, l3=0x0d}
0x1589…159f Line {l1=0x14, l2=»2600 PROC HENTKRPOST«, l3=0x14}
0x159f…15b1 Line {l1=0x10, l2=»2610 J7=J8(J9,2)«, l3=0x10}
0x15b1…15cd Line {l1=0x1a, l2=»2620 GET D1$,J7:K0,F8$,A3$«, l3=0x1a}
0x15cd…15e6 Line {l1=0x17, l2=»2630 EXEC FEJL(5,1,D1$)«, l3=0x17}
0x15e6…1610 Line {l1=0x28, l2=»2640 GET D1$,J7+1:A5$,C7$,C8$,K1,F6$,F7$«, l3=0x28}
0x1610…1629 Line {l1=0x17, l2=»2650 EXEC FEJL(5,2,D1$)«, l3=0x17}
0x1629…1638 Line {l1=0x0d, l2=»2660 ENDPROC «, l3=0x0d}
0x1638…164f Line {l1=0x15, l2=»2670 PROC HENTKASPOST«, l3=0x15}
0x164f…1662 Line {l1=0x11, l2=»2680 EXEC UDHOVED«, l3=0x11}
0x1662…167b Line {l1=0x17, l2=»2690 IF K2=I2 THEN K2=1«, l3=0x17}
0x167b…168c Line {l1=0x0f, l2=»2700 K3=K2;H5=1«, l3=0x0f}
0x168c…16a0 Line {l1=0x12, l2=»2710 FOR I=1 TO 18«, l3=0x12}
0x16a0…16d2 Line {l1=0x30, l2=»2720 GET D2$,K2:G2(I),G3(I),G4(I),F1$,G6$(I),F2$«, l3=0x30}
0x16d2…16eb Line {l1=0x17, l2=»2730 EXEC FEJL(2,1,D2$)«, l3=0x17}
0x16eb…16f9 Line {l1=0x0c, l2=»2740 K2=K2+1«, l3=0x0c}
0x16f9…1723 Line {l1=0x28, l2=»2750 G5(I)=ORD(F1$)-48;G7(I)=ORD(F2$)-48«, l3=0x28}
0x1723…1747 Line {l1=0x22, l2=»2760 IF G5(I)>9 AND G5(I)<20 THEN «, l3=0x22}
0x1747…1761 Line {l1=0x18, l2=»2770 IF I2=K2 THEN EXIT «, l3=0x18}
0x1761…1779 Line {l1=0x16, l2=»2780 GET D2$,K2:G8$(I)«, l3=0x16}
0x1779…1792 Line {l1=0x17, l2=»2790 EXEC FEJL(2,2,D2$)«, l3=0x17}
0x1792…17a0 Line {l1=0x0c, l2=»2800 K2=K2+1«, l3=0x0c}
0x17a0…17ac Line {l1=0x0a, l2=»2810 ELSE «, l3=0x0a}
0x17ac…17c3 Line {l1=0x15, l2=»2820 IF G5(I)>0 THEN «, l3=0x15}
0x17c3…17e9 Line {l1=0x24, l2=»2830 G8$(I)=E5$(G5(I)-10*(G5(I)>20))«, l3=0x24}
0x17e9…17f5 Line {l1=0x0a, l2=»2840 ELSE «, l3=0x0a}
0x17f5…180c Line {l1=0x15, l2=»2850 G8$(I)=B7$(1:25)«, l3=0x15}
0x180c…1819 Line {l1=0x0b, l2=»2860 ENDIF «, l3=0x0b}
0x1819…1826 Line {l1=0x0b, l2=»2870 ENDIF «, l3=0x0b}
0x1826…186b Line {l1=0x43, l2=»2880 IF G2(I)<>0 THEN EXEC UDLINIE(G2(I),G4(I),G8$(I),G6$(I),G7(I))«, l3=0x43}
0x186b…1879 Line {l1=0x0c, l2=»2890 H5=H5+1«, l3=0x0c}
0x1879…1893 Line {l1=0x18, l2=»2900 IF K2=I2 THEN EXIT «, l3=0x18}
0x1893…18a0 Line {l1=0x0b, l2=»2910 NEXT I«, l3=0x0b}
0x18a0…18af Line {l1=0x0d, l2=»2920 ENDPROC «, l3=0x0d}
0x18af…18c5 Line {l1=0x14, l2=»2930 PROC GEMKASPOST«, l3=0x14}
0x18c5…18d9 Line {l1=0x12, l2=»2940 FOR I=1 TO 18«, l3=0x12}
0x18d9…1903 Line {l1=0x28, l2=»2950 F1$=CHR(G5(I)+48);F2$=CHR(G7(I)+48)«, l3=0x28}
0x1903…1935 Line {l1=0x30, l2=»2960 PUT D2$,K3:G2(I),G3(I),G4(I),F1$,G6$(I),F2$«, l3=0x30}
0x1935…194e Line {l1=0x17, l2=»2970 EXEC FEJL(3,1,D2$)«, l3=0x17}
0x194e…195c Line {l1=0x0c, l2=»2980 K3=K3+1«, l3=0x0c}
0x195c…1980 Line {l1=0x22, l2=»2990 IF G5(I)>9 AND G5(I)<20 THEN «, l3=0x22}
0x1980…1998 Line {l1=0x16, l2=»3000 PUT D2$,K3:G8$(I)«, l3=0x16}
0x1998…19b1 Line {l1=0x17, l2=»3010 EXEC FEJL(3,2,D2$)«, l3=0x17}
0x19b1…19bf Line {l1=0x0c, l2=»3020 K3=K3+1«, l3=0x0c}
0x19bf…19cc Line {l1=0x0b, l2=»3030 ENDIF «, l3=0x0b}
0x19cc…19e6 Line {l1=0x18, l2=»3040 IF K3=K2 THEN EXIT «, l3=0x18}
0x19e6…19f3 Line {l1=0x0b, l2=»3050 NEXT I«, l3=0x0b}
0x19f3…1a02 Line {l1=0x0d, l2=»3060 ENDPROC «, l3=0x0d}
0x1a02…1a1b Line {l1=0x17, l2=»3070 PROC ÆND(K4,K5,K6)«, l3=0x17}
0x1a1b…1a2e Line {l1=0x11, l2=»3080 J3=0;B8$=K5$«, l3=0x11}
0x1a2e…1a53 Line {l1=0x23, l2=»3090 IF B8$(LEN(B8$))="+" THEN J3=1«, l3=0x23}
0x1a53…1a64 Line {l1=0x0f, l2=»3100 J3=2*K6-J3«, l3=0x0f}
0x1a64…1a8c Line {l1=0x26, l2=»3110 EXEC CALC(K4,F5$(J3),B8$,F5$(J3))«, l3=0x26}
0x1a8c…1a9b Line {l1=0x0d, l2=»3120 ENDPROC «, l3=0x0d}
0x1a9b…1aac Line {l1=0x0f, l2=»3130 PROC RETTE«, l3=0x0f}
0x1aac…1abc Line {l1=0x0e, l2=»3140 K3=1;K2=1«, l3=0x0e}
0x1abc…1ad5 Line {l1=0x17, l2=»3150 IF I2=1 THEN EXIT «, l3=0x17}
0x1ad5…1ae3 Line {l1=0x0c, l2=»3160 REPEAT «, l3=0x0c}
0x1ae3…1af0 Line {l1=0x0b, l2=»3170 CLEAR «, l3=0x0b}
0x1af0…1b07 Line {l1=0x15, l2=»3180 EXEC HENTKASPOST«, l3=0x15}
0x1b07…1b18 Line {l1=0x0f, l2=»3190 K7=H5;K8=0«, l3=0x0f}
0x1b18…1b26 Line {l1=0x0c, l2=»3200 REPEAT «, l3=0x0c}
0x1b26…1b34 Line {l1=0x0c, l2=»3210 REPEAT «, l3=0x0c}
0x1b34…1b46 Line {l1=0x10, l2=»3220 CURSOR 3,23«, l3=0x10}
0x1b46…1b95 Line {l1=0x4d, l2=»3230 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:";«, l3=0x4d}
0x1b95…1bb1 Line {l1=0x1a, l2=»3240 PRINT "Ny post) "«, l3=0x1a}
0x1bb1…1bc4 Line {l1=0x11, l2=»3250 CURSOR 20,23«, l3=0x11}
0x1bc4…1bd4 Line {l1=0x0e, l2=»3260 INPUT D5$«, l3=0x0e}
0x1bd4…1beb Line {l1=0x15, l2=»3270 EXEC NRTEST(D5$)«, l3=0x15}
0x1beb…1c18 Line {l1=0x2b, l2=»3280 UNTIL (P=-8 OR P>-2 AND P<K7) AND H4=0«, l3=0x2b}
0x1c18…1c23 Line {l1=0x09, l2=»3290 K9=P«, l3=0x09}
0x1c23…1c3c Line {l1=0x17, l2=»3300 IF K9<1 THEN EXIT «, l3=0x17}
0x1c3c…1c47 Line {l1=0x09, l2=»3310 K8=1«, l3=0x09}
0x1c47…1c55 Line {l1=0x0c, l2=»3320 REPEAT «, l3=0x0c}
0x1c55…1c63 Line {l1=0x0c, l2=»3330 REPEAT «, l3=0x0c}
0x1c63…1c75 Line {l1=0x10, l2=»3340 CURSOR 3,23«, l3=0x10}
0x1c75…1cc2 Line {l1=0x4b, l2=»3350 PRINT "Linie:";K9;" Vælg ændring (0:Færdig, A:Annuller, 1:Konto, ";«, l3=0x4b}
0x1cc2…1ce1 Line {l1=0x1d, l2=»3360 PRINT "2:Beløb, 3:Kode)"«, l3=0x1d}
0x1ce1…1cf4 Line {l1=0x11, l2=»3370 CURSOR 25,23«, l3=0x11}
0x1cf4…1d04 Line {l1=0x0e, l2=»3380 INPUT D5$«, l3=0x0e}
0x1d04…1d1b Line {l1=0x15, l2=»3390 EXEC NRTEST(D5$)«, l3=0x15}
0x1d1b…1d47 Line {l1=0x2a, l2=»3400 UNTIL (P=-3 OR P>-1 AND P<4) AND H4=0«, l3=0x2a}
0x1d47…1d52 Line {l1=0x09, l2=»3410 L0=P«, l3=0x09}
0x1d52…1d6b Line {l1=0x17, l2=»3420 IF L0=0 THEN EXIT «, l3=0x17}
0x1d6b…1d77 Line {l1=0x0a, l2=»3430 H5=K9«, l3=0x0a}
0x1d77…1d8f Line {l1=0x16, l2=»3440 IF G2(K9)=0 THEN «, l3=0x16}
0x1d8f…1da3 Line {l1=0x12, l2=»3450 CURSOR 3,H5+3«, l3=0x12}
0x1da3…1dc9 Line {l1=0x24, l2=»3460 PRINT "Postering er annulleret"«, l3=0x24}
0x1dc9…1dd5 Line {l1=0x0a, l2=»3470 ELSE «, l3=0x0a}
0x1dd5…1e04 Line {l1=0x2d, l2=»3480 IF L0<>1 THEN EXEC ÆND(1,G6$(K9),G7(K9))«, l3=0x2d}
0x1e04…1e19 Line {l1=0x13, l2=»3490 IF L0=-3 THEN «, l3=0x13}
0x1e19…1e2c Line {l1=0x11, l2=»3500 EXEC KLET(5)«, l3=0x11}
0x1e2c…1e3b Line {l1=0x0d, l2=»3510 G2(K9)=0«, l3=0x0d}
0x1e3b…1e47 Line {l1=0x0a, l2=»3520 ELSE «, l3=0x0a}
0x1e47…1e80 Line {l1=0x37, l2=»3530 L0=L0+2;L1=L0;I1=1;H6=G2(K9);F4$=G6$(K9);H8=G7(K9)«, l3=0x37}
0x1e80…1e9b Line {l1=0x19, l2=»3540 EXEC INDTASTNING(L0)«, l3=0x19}
0x1e9b…1ec1 Line {l1=0x24, l2=»3550 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8«, l3=0x24}
0x1ec1…1ee8 Line {l1=0x25, l2=»3560 IF L1<>3 THEN EXEC ÆND(0,F4$,H8)«, l3=0x25}
0x1ee8…1ef5 Line {l1=0x0b, l2=»3570 ENDIF «, l3=0x0b}
0x1ef5…1f02 Line {l1=0x0b, l2=»3580 ENDIF «, l3=0x0b}
0x1f02…1f1c Line {l1=0x18, l2=»3590 UNTIL L0=-3 OR L0=0«, l3=0x18}
0x1f1c…1f2d Line {l1=0x0f, l2=»3600 UNTIL K9<1«, l3=0x0f}
0x1f2d…1f41 Line {l1=0x12, l2=»3610 IF K8=1 THEN «, l3=0x12}
0x1f41…1f57 Line {l1=0x14, l2=»3620 EXEC GEMKASPOST«, l3=0x14}
0x1f57…1f69 Line {l1=0x10, l2=»3630 EXEC KYSGEM«, l3=0x10}
0x1f69…1f76 Line {l1=0x0b, l2=»3640 ENDIF «, l3=0x0b}
0x1f76…1f90 Line {l1=0x18, l2=»3650 UNTIL K9=0 OR K9=-8«, l3=0x18}
0x1f90…1fa5 Line {l1=0x13, l2=»3660 IF K9=-8 THEN «, l3=0x13}
0x1fa5…1fb2 Line {l1=0x0b, l2=»3670 CLEAR «, l3=0x0b}
0x1fb2…1fc5 Line {l1=0x11, l2=»3680 EXEC UDHOVED«, l3=0x11}
0x1fc5…1fd5 Line {l1=0x0e, l2=»3690 H5=1;I1=2«, l3=0x0e}
0x1fd5…1fef Line {l1=0x18, l2=»3700 EXEC INDTASTNING(1)«, l3=0x18}
0x1fef…1ffc Line {l1=0x0b, l2=»3710 ENDIF «, l3=0x0b}
0x1ffc…200b Line {l1=0x0d, l2=»3720 ENDPROC «, l3=0x0d}
0x200b…201d Line {l1=0x10, l2=»3730 PROC KYSGEM«, l3=0x10}
0x201d…2047 Line {l1=0x28, l2=»3740 E8(4)=L2;E8(8)=I0;F0(2)=I4;G1(1)=L3«, l3=0x28}
0x2047…2058 Line {l1=0x0f, l2=»3750 OPEN E2$,W«, l3=0x0f}
0x2058…2071 Line {l1=0x17, l2=»3760 EXEC FEJL(3,1,E2$)«, l3=0x17}
0x2071…20b7 Line {l1=0x44, l2=»3770 PUT E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9)«, l3=0x44}
0x20b7…20d0 Line {l1=0x17, l2=»3780 EXEC FEJL(3,2,E2$)«, l3=0x17}
0x20d0…2117 Line {l1=0x45, l2=»3790 PUT E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9)«, l3=0x45}
0x2117…2130 Line {l1=0x17, l2=»3800 EXEC FEJL(3,3,E2$)«, l3=0x17}
0x2130…2177 Line {l1=0x45, l2=»3810 PUT E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9)«, l3=0x45}
0x2177…2190 Line {l1=0x17, l2=»3820 EXEC FEJL(3,4,E2$)«, l3=0x17}
0x2190…21b6 Line {l1=0x24, l2=»3830 PUT E2$,15:F5$(1),F5$(2),F5$(3)«, l3=0x24}
0x21b6…21cf Line {l1=0x17, l2=»3840 EXEC FEJL(3,5,E2$)«, l3=0x17}
0x21cf…21f5 Line {l1=0x24, l2=»3850 PUT E2$,16:F5$(4),F5$(5),F5$(6)«, l3=0x24}
0x21f5…220e Line {l1=0x17, l2=»3860 EXEC FEJL(3,6,E2$)«, l3=0x17}
0x220e…221e Line {l1=0x0e, l2=»3870 CLOSE E2$«, l3=0x0e}
0x221e…2237 Line {l1=0x17, l2=»3880 EXEC FEJL(3,7,E2$)«, l3=0x17}
0x2237…2246 Line {l1=0x0d, l2=»3890 ENDPROC «, l3=0x0d}
0x2246…225e Line {l1=0x16, l2=»3900 PROC HENTKASPOST1«, l3=0x16}
0x225e…2283 Line {l1=0x23, l2=»3910 GET D2$,I:H6,L4,H7,F1$,F4$,F2$«, l3=0x23}
0x2283…229c Line {l1=0x17, l2=»3920 EXEC FEJL(4,1,D2$)«, l3=0x17}
0x229c…22c0 Line {l1=0x22, l2=»3930 I7=ORD(F1$)-48;H8=ORD(F2$)-48«, l3=0x22}
0x22c0…22de Line {l1=0x1c, l2=»3940 IF I7>9 AND I7<20 THEN «, l3=0x1c}
0x22de…22ea Line {l1=0x0a, l2=»3950 I=I+1«, l3=0x0a}
0x22ea…22fe Line {l1=0x12, l2=»3960 GET D2$,I:E3$«, l3=0x12}
0x22fe…2317 Line {l1=0x17, l2=»3970 EXEC FEJL(4,2,D2$)«, l3=0x17}
0x2317…2324 Line {l1=0x0b, l2=»3980 ENDIF «, l3=0x0b}
0x2324…2333 Line {l1=0x0d, l2=»3990 ENDPROC «, l3=0x0d}
0x2333…235a Line {l1=0x25, l2=»4000 PROC FINDPOST1(L5,Q,L6,L7,L8,L9)«, l3=0x25}
0x235a…2390 Line {l1=0x34, l2=»4010 M0=L6 DIV 8;L8=M0;I9=1;M1=L6 DIV 4;M2=L6 DIV 32«, l3=0x34}
0x2390…239e Line {l1=0x0c, l2=»4020 REPEAT «, l3=0x0c}
0x239e…23c4 Line {l1=0x24, l2=»4030 IF L7=L5(L8) OR M0=1 THEN EXIT «, l3=0x24}
0x23c4…23da Line {l1=0x14, l2=»4040 M0=(M0+1) DIV 2«, l3=0x14}
0x23da…23fb Line {l1=0x1f, l2=»4050 L8=L8+M0*(1-2*(L7<L5(L8)))«, l3=0x1f}
0x23fb…2413 Line {l1=0x16, l2=»4060 IF L8<1 THEN L8=1«, l3=0x16}
0x2413…242d Line {l1=0x18, l2=»4070 IF L8>M1 THEN L8=M1«, l3=0x18}
0x242d…243e Line {l1=0x0f, l2=»4080 UNTIL M0=0«, l3=0x0f}
0x243e…2465 Line {l1=0x25, l2=»4090 IF L5(L8)>L7 THEN L8=L8-1*(L8>1)«, l3=0x25}
0x2465…2474 Line {l1=0x0d, l2=»4100 L8=M2+L8«, l3=0x0d}
0x2474…24bd Line {l1=0x47, l2=»4110 GET L9$,L8:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2)«, l3=0x47}
0x24bd…24d6 Line {l1=0x17, l2=»4120 EXEC FEJL(1,1,L9$)«, l3=0x17}
0x24d6…24ea Line {l1=0x12, l2=»4130 FOR L8=1 TO 4«, l3=0x12}
0x24ea…2509 Line {l1=0x1d, l2=»4140 IF L7=Q(L8,1) THEN EXIT «, l3=0x1d}
0x2509…2517 Line {l1=0x0c, l2=»4150 NEXT L8«, l3=0x0c}
0x2517…2530 Line {l1=0x17, l2=»4160 IF L8<>5 THEN I9=0«, l3=0x17}
0x2530…253f Line {l1=0x0d, l2=»4170 ENDPROC «, l3=0x0d}
0x253f…255b Line {l1=0x1a, l2=»4180 PROC INDTAB1(Z,M3,M4)«, l3=0x1a}
0x255b…256e Line {l1=0x11, l2=»4190 M0=M3 DIV 32«, l3=0x11}
0x256e…2582 Line {l1=0x12, l2=»4200 FOR I=1 TO M0«, l3=0x12}
0x2582…2594 Line {l1=0x10, l2=»4210 H=(I-1)*8+1«, l3=0x10}
0x2594…25da Line {l1=0x44, l2=»4220 GET M4$,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}
0x25da…25f3 Line {l1=0x17, l2=»4230 EXEC FEJL(5,1,M4$)«, l3=0x17}
0x25f3…2600 Line {l1=0x0b, l2=»4240 NEXT I«, l3=0x0b}
0x2600…260f Line {l1=0x0d, l2=»4250 ENDPROC «, l3=0x0d}
0x260f…2628 Line {l1=0x17, l2=»4260 PROC KTNAVN(M5,M6)«, l3=0x17}
0x2628…2633 Line {l1=0x09, l2=»4270 I9=1«, l3=0x09}
0x2633…2645 Line {l1=0x10, l2=»4280 CASE M5 OF «, l3=0x10}
0x2645…266e Line {l1=0x27, l2=»4290 EXEC FINDPOST1(M7,M8,M9,M6,N0,A6$)«, l3=0x27}
0x266e…2682 Line {l1=0x12, l2=»4300 IF I9=0 THEN «, l3=0x12}
0x2682…2696 Line {l1=0x12, l2=»4310 EXEC HENTPOST«, l3=0x12}
0x2696…26a4 Line {l1=0x0c, l2=»4320 B4$=B0$«, l3=0x0c}
0x26a4…26b1 Line {l1=0x0b, l2=»4330 ENDIF «, l3=0x0b}
0x26b1…26bf Line {l1=0x0c, l2=»4340 WHEN J1«, l3=0x0c}
0x26bf…26f5 Line {l1=0x34, l2=»4350 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN «, l3=0x34}
0x26f5…271e Line {l1=0x27, l2=»4360 EXEC FINDPOST1(N2,N3,N4,M6,N5,A4$)«, l3=0x27}
0x271e…2732 Line {l1=0x12, l2=»4370 IF I9=0 THEN «, l3=0x12}
0x2732…2747 Line {l1=0x13, l2=»4380 EXEC HENTDPOST«, l3=0x13}
0x2747…2755 Line {l1=0x0c, l2=»4390 B4$=A7$«, l3=0x0c}
0x2755…2762 Line {l1=0x0b, l2=»4400 ENDIF «, l3=0x0b}
0x2762…276f Line {l1=0x0b, l2=»4410 ENDIF «, l3=0x0b}
0x276f…277d Line {l1=0x0c, l2=»4420 WHEN J2«, l3=0x0c}
0x277d…27b1 Line {l1=0x32, l2=»4430 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN «, l3=0x32}
0x27b1…27da Line {l1=0x27, l2=»4440 EXEC FINDPOST1(N7,J8,N8,M6,J9,B6$)«, l3=0x27}
0x27da…27ee Line {l1=0x12, l2=»4450 IF I9=0 THEN «, l3=0x12}
0x27ee…2804 Line {l1=0x14, l2=»4460 EXEC HENTKRPOST«, l3=0x14}
0x2804…2812 Line {l1=0x0c, l2=»4470 B4$=F8$«, l3=0x0c}
0x2812…281f Line {l1=0x0b, l2=»4480 ENDIF «, l3=0x0b}
0x281f…282c Line {l1=0x0b, l2=»4490 ENDIF «, l3=0x0b}
0x282c…283b Line {l1=0x0d, l2=»4500 ENDCASE «, l3=0x0d}
0x283b…284f Line {l1=0x12, l2=»4510 IF I9=1 THEN «, l3=0x12}
0x284f…2875 Line {l1=0x24, l2=»4520 B4$="Konto eksisterer ikke "«, l3=0x24}
0x2875…2882 Line {l1=0x0b, l2=»4530 ENDIF «, l3=0x0b}
0x2882…2891 Line {l1=0x0d, l2=»4540 ENDPROC «, l3=0x0d}
0x2891…28aa Line {l1=0x17, l2=»4550 PROC TESTSALDO(N9)«, l3=0x17}
0x28aa…28c3 Line {l1=0x17, l2=»4560 EXEC KTNAVN(I8,H6)«, l3=0x17}
0x28c3…28d7 Line {l1=0x12, l2=»4570 IF I9=0 THEN «, l3=0x12}
0x28d7…28e2 Line {l1=0x09, l2=»4580 J0=0«, l3=0x09}
0x28e2…28f0 Line {l1=0x0c, l2=»4590 C6$=N9$«, l3=0x0c}
0x28f0…2905 Line {l1=0x13, l2=»4600 IF I8=J1 THEN «, l3=0x13}
0x2905…2924 Line {l1=0x1d, l2=»4610 EXEC CALC(4,B3$,B9$,B9$)«, l3=0x1d}
0x2924…2939 Line {l1=0x13, l2=»4620 IF SI<>0 THEN «, l3=0x13}
0x2939…2958 Line {l1=0x1d, l2=»4630 EXEC CALC(0,B3$,C6$,C6$)«, l3=0x1d}
0x2958…2964 Line {l1=0x0a, l2=»4640 ELSE «, l3=0x0a}
0x2964…2983 Line {l1=0x1d, l2=»4650 EXEC CALC(4,B2$,B9$,B9$)«, l3=0x1d}
0x2983…2998 Line {l1=0x13, l2=»4660 IF SI<>0 THEN «, l3=0x13}
0x2998…29b7 Line {l1=0x1d, l2=»4670 EXEC CALC(0,B2$,C6$,C6$)«, l3=0x1d}
0x29b7…29c3 Line {l1=0x0a, l2=»4680 ELSE «, l3=0x0a}
0x29c3…29e2 Line {l1=0x1d, l2=»4690 EXEC CALC(4,B1$,B9$,B9$)«, l3=0x1d}
0x29e2…29f7 Line {l1=0x13, l2=»4700 IF SI<>0 THEN «, l3=0x13}
0x29f7…2a16 Line {l1=0x1d, l2=»4710 EXEC CALC(0,B1$,C6$,C6$)«, l3=0x1d}
0x2a16…2a22 Line {l1=0x0a, l2=»4720 ELSE «, l3=0x0a}
0x2a22…2a41 Line {l1=0x1d, l2=»4730 EXEC CALC(4,A8$,B9$,B9$)«, l3=0x1d}
0x2a41…2a56 Line {l1=0x13, l2=»4740 IF SI<>0 THEN «, l3=0x13}
0x2a56…2a75 Line {l1=0x1d, l2=»4750 EXEC CALC(0,A8$,C6$,C6$)«, l3=0x1d}
0x2a75…2a81 Line {l1=0x0a, l2=»4760 ELSE «, l3=0x0a}
0x2a81…2a8c Line {l1=0x09, l2=»4770 J0=1«, l3=0x09}
0x2a8c…2a9b Line {l1=0x0d, l2=»4780 C6$="0+"«, l3=0x0d}
0x2a9b…2aa8 Line {l1=0x0b, l2=»4790 ENDIF «, l3=0x0b}
0x2aa8…2ab5 Line {l1=0x0b, l2=»4800 ENDIF «, l3=0x0b}
0x2ab5…2ac2 Line {l1=0x0b, l2=»4810 ENDIF «, l3=0x0b}
0x2ac2…2acf Line {l1=0x0b, l2=»4820 ENDIF «, l3=0x0b}
0x2acf…2af4 Line {l1=0x23, l2=»4830 IF C6$(LEN(C6$))="-" THEN J0=1«, l3=0x23}
0x2af4…2b00 Line {l1=0x0a, l2=»4840 ELSE «, l3=0x0a}
0x2b00…2b1f Line {l1=0x1d, l2=»4850 EXEC CALC(4,F7$,B9$,B9$)«, l3=0x1d}
0x2b1f…2b34 Line {l1=0x13, l2=»4860 IF SI<>0 THEN «, l3=0x13}
0x2b34…2b53 Line {l1=0x1d, l2=»4870 EXEC CALC(0,F7$,C6$,C6$)«, l3=0x1d}
0x2b53…2b5f Line {l1=0x0a, l2=»4880 ELSE «, l3=0x0a}
0x2b5f…2b7e Line {l1=0x1d, l2=»4890 EXEC CALC(4,F6$,B9$,B9$)«, l3=0x1d}
0x2b7e…2b93 Line {l1=0x13, l2=»4900 IF SI<>0 THEN «, l3=0x13}
0x2b93…2bb2 Line {l1=0x1d, l2=»4910 EXEC CALC(0,F6$,C6$,C6$)«, l3=0x1d}
0x2bb2…2bbe Line {l1=0x0a, l2=»4920 ELSE «, l3=0x0a}
0x2bbe…2bcd Line {l1=0x0d, l2=»4930 C6$="0+"«, l3=0x0d}
0x2bcd…2bda Line {l1=0x0b, l2=»4940 ENDIF «, l3=0x0b}
0x2bda…2be7 Line {l1=0x0b, l2=»4950 ENDIF «, l3=0x0b}
0x2be7…2c0c Line {l1=0x23, l2=»4960 IF C6$(LEN(C6$))="+" THEN J0=1«, l3=0x23}
0x2c0c…2c19 Line {l1=0x0b, l2=»4970 ENDIF «, l3=0x0b}
0x2c19…2c2d Line {l1=0x12, l2=»4980 IF J0=1 THEN «, l3=0x12}
0x2c2d…2c3b Line {l1=0x0c, l2=»4990 REPEAT «, l3=0x0c}
0x2c3b…2c4e Line {l1=0x11, l2=»5000 CURSOR 22,23«, l3=0x11}
0x2c4e…2c86 Line {l1=0x36, l2=»5010 PRINT " Er beløbet rigtigt ? (J/N)";B7$(1:20)«, l3=0x36}
0x2c86…2c99 Line {l1=0x11, l2=»5020 CURSOR 45,23«, l3=0x11}
0x2c99…2cac Line {l1=0x11, l2=»5030 INPUT " ",A$«, l3=0x11}
0x2cac…2cc2 Line {l1=0x14, l2=»5040 EXEC NRTEST(A$)«, l3=0x14}
0x2cc2…2cdb Line {l1=0x17, l2=»5050 UNTIL P=-7 OR P=-8«, l3=0x17}
0x2cdb…2cf3 Line {l1=0x16, l2=»5060 IF P=-7 THEN J0=0«, l3=0x16}
0x2cf3…2d00 Line {l1=0x0b, l2=»5070 ENDIF «, l3=0x0b}
0x2d00…2d0c Line {l1=0x0a, l2=»5080 ELSE «, l3=0x0a}
0x2d0c…2d18 Line {l1=0x0a, l2=»5090 STOP «, l3=0x0a}
0x2d18…2d25 Line {l1=0x0b, l2=»5100 ENDIF «, l3=0x0b}
0x2d25…2d34 Line {l1=0x0d, l2=»5110 ENDPROC «, l3=0x0d}
0x2d34…2d48 Line {l1=0x12, l2=»5120 PROC KLET(O0)«, l3=0x12}
0x2d48…2d5a Line {l1=0x10, l2=»5130 CASE O0 OF «, l3=0x10}
0x2d5a…2d66 Line {l1=0x0a, l2=»5140 STOP «, l3=0x0a}
0x2d66…2d73 Line {l1=0x0b, l2=»5150 WHEN 1«, l3=0x0b}
0x2d73…2d87 Line {l1=0x12, l2=»5160 CURSOR 4,H5+3«, l3=0x12}
0x2d87…2d9d Line {l1=0x14, l2=»5170 PRINT B7$(1:32)«, l3=0x14}
0x2d9d…2daa Line {l1=0x0b, l2=»5180 WHEN 2«, l3=0x0b}
0x2daa…2dbf Line {l1=0x13, l2=»5190 CURSOR 38,H5+3«, l3=0x13}
0x2dbf…2dd4 Line {l1=0x13, l2=»5200 PRINT " "«, l3=0x13}
0x2dd4…2de1 Line {l1=0x0b, l2=»5210 WHEN 3«, l3=0x0b}
0x2de1…2df6 Line {l1=0x13, l2=»5220 CURSOR 46,H5+3«, l3=0x13}
0x2df6…2e0c Line {l1=0x14, l2=»5230 PRINT B7$(1:28)«, l3=0x14}
0x2e0c…2e19 Line {l1=0x0b, l2=»5240 WHEN 4«, l3=0x0b}
0x2e19…2e2e Line {l1=0x13, l2=»5250 CURSOR 77,H5+3«, l3=0x13}
0x2e2e…2e41 Line {l1=0x11, l2=»5260 PRINT B7$(1)«, l3=0x11}
0x2e41…2e4e Line {l1=0x0b, l2=»5270 WHEN 5«, l3=0x0b}
0x2e4e…2e62 Line {l1=0x12, l2=»5280 CURSOR 4,H5+3«, l3=0x12}
0x2e62…2e72 Line {l1=0x0e, l2=»5290 PRINT B7$«, l3=0x0e}
0x2e72…2e81 Line {l1=0x0d, l2=»5300 ENDCASE «, l3=0x0d}
0x2e81…2e90 Line {l1=0x0d, l2=»5310 ENDPROC «, l3=0x0d}
0x2e90…2ea3 Line {l1=0x11, l2=»5320 PROC FORTEGN«, l3=0x11}
0x2ea3…2eb5 Line {l1=0x10, l2=»5330 I5=LEN(F3$)«, l3=0x10}
0x2eb5…2ed1 Line {l1=0x1a, l2=»5340 IF I5=0 THEN F3$="0+"«, l3=0x1a}
0x2ed1…2efe Line {l1=0x2b, l2=»5350 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN «, l3=0x2b}
0x2efe…2f10 Line {l1=0x10, l2=»5360 F3$=F3$+"+"«, l3=0x10}
0x2f10…2f1d Line {l1=0x0b, l2=»5370 ENDIF «, l3=0x0b}
0x2f1d…2f2c Line {l1=0x0d, l2=»5380 ENDPROC «, l3=0x0d}
0x2f2c…2f3f Line {l1=0x11, l2=»5390 PROC UDHOVED«, l3=0x11}
0x2f3f…2f51 Line {l1=0x10, l2=»5400 CURSOR 35,1«, l3=0x10}
0x2f51…2f7c Line {l1=0x29, l2=»5410 PRINT "Kasserapport";TAB(30);"Dato:"«, l3=0x29}
0x2f7c…2f8e Line {l1=0x10, l2=»5420 CURSOR 72,1«, l3=0x10}
0x2f8e…2f9d Line {l1=0x0d, l2=»5430 PRINT J6«, l3=0x0d}
0x2f9d…2fae Line {l1=0x0f, l2=»5440 CURSOR 2,3«, l3=0x0f}
0x2fae…2ff8 Line {l1=0x48, l2=»5450 PRINT "Nr Bilag Tekst";TAB(38);"Konto Debet Kredit";«, l3=0x48}
0x2ff8…300f Line {l1=0x15, l2=»5460 PRINT " Kode"«, l3=0x15}
0x300f…301e Line {l1=0x0d, l2=»5470 ENDPROC «, l3=0x0d}
0x301e…3030 Line {l1=0x10, l2=»5480 PROC NYDATO«, l3=0x10}
0x3030…303e Line {l1=0x0c, l2=»5490 REPEAT «, l3=0x0c}
0x303e…3050 Line {l1=0x10, l2=»5500 CURSOR 3,23«, l3=0x10}
0x3050…3080 Line {l1=0x2e, l2=»5510 PRINT "Ny dato (ååmmdd)"+B7$(1:54)«, l3=0x2e}
0x3080…3093 Line {l1=0x11, l2=»5520 CURSOR 11,23«, l3=0x11}
0x3093…30a3 Line {l1=0x0e, l2=»5530 INPUT D5$«, l3=0x0e}
0x30a3…30ba Line {l1=0x15, l2=»5540 EXEC NRTEST(D5$)«, l3=0x15}
0x30ba…30fb Line {l1=0x3f, l2=»5550 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32«, l3=0x3f}
0x30fb…3106 Line {l1=0x09, l2=»5560 J6=P«, l3=0x09}
0x3106…3115 Line {l1=0x0d, l2=»5570 ENDPROC «, l3=0x0d}
0x3115…3138 Line {l1=0x21, l2=»5580 PROC UDLINIE(O1,O2,O3,O4,O5)«, l3=0x21}
0x3138…3146 Line {l1=0x0c, l2=»5590 B8$=O4$«, l3=0x0c}
0x3146…315a Line {l1=0x12, l2=»5600 CURSOR 1,H5+3«, l3=0x12}
0x315a…3175 Line {l1=0x19, l2=»5610 PRINT USING "###":H5«, l3=0x19}
0x3175…318b Line {l1=0x14, l2=»5620 IF O2<>-1 THEN «, l3=0x14}
0x318b…319f Line {l1=0x12, l2=»5630 CURSOR 4,H5+3«, l3=0x12}
0x319f…31be Line {l1=0x1d, l2=»5640 PRINT USING "#######":O2«, l3=0x1d}
0x31be…31cb Line {l1=0x0b, l2=»5650 ENDIF «, l3=0x0b}
0x31cb…31e0 Line {l1=0x13, l2=»5660 CURSOR 12,H5+3«, l3=0x13}
0x31e0…31f0 Line {l1=0x0e, l2=»5670 PRINT O3$«, l3=0x0e}
0x31f0…3205 Line {l1=0x13, l2=»5680 CURSOR 38,H5+3«, l3=0x13}
0x3205…3214 Line {l1=0x0d, l2=»5690 PRINT O1«, l3=0x0d}
0x3214…3235 Line {l1=0x1f, l2=»5700 IF B8$(LEN(B8$))="+" THEN «, l3=0x1f}
0x3235…324a Line {l1=0x13, l2=»5710 CURSOR 46,H5+3«, l3=0x13}
0x324a…3256 Line {l1=0x0a, l2=»5720 ELSE «, l3=0x0a}
0x3256…326b Line {l1=0x13, l2=»5730 CURSOR 61,H5+3«, l3=0x13}
0x326b…3278 Line {l1=0x0b, l2=»5740 ENDIF «, l3=0x0b}
0x3278…3294 Line {l1=0x1a, l2=»5750 EXEC TUD(B8$,B8$,0,0)«, l3=0x1a}
0x3294…32a4 Line {l1=0x0e, l2=»5760 PRINT B8$«, l3=0x0e}
0x32a4…32b9 Line {l1=0x13, l2=»5770 CURSOR 77,H5+3«, l3=0x13}
0x32b9…32c8 Line {l1=0x0d, l2=»5780 PRINT O5«, l3=0x0d}
0x32c8…32d7 Line {l1=0x0d, l2=»5790 ENDPROC «, l3=0x0d}
0x32d7…32f1 Line {l1=0x18, l2=»5800 PROC FEJL(O6,O7,O8)«, l3=0x18}
0x32f1…330f Line {l1=0x1c, l2=»5810 IF STATUS(O8$)<>0 THEN «, l3=0x1c}
0x330f…3331 Line {l1=0x20, l2=»5820 PRINT STATUS(O8$),O6,O7,O8$«, l3=0x20}
0x3331…333d Line {l1=0x0a, l2=»5830 STOP «, l3=0x0a}
0x333d…334a Line {l1=0x0b, l2=»5840 ENDIF «, l3=0x0b}
0x334a…3359 Line {l1=0x0d, l2=»5850 ENDPROC «, l3=0x0d}
0x3359…336e Line {l1=0x13, l2=»5860 PROC HENTDPOST«, l3=0x13}
0x336e…3380 Line {l1=0x10, l2=»5870 J7=N3(N5,2)«, l3=0x10}
0x3380…33a0 Line {l1=0x1e, l2=»5880 GET D0$,J7:O9,A7$,A8$,A9$«, l3=0x1e}
0x33a0…33b9 Line {l1=0x17, l2=»5890 EXEC FEJL(8,2,D0$)«, l3=0x17}
0x33b9…33da Line {l1=0x1f, l2=»5900 IF O9<>N3(N5,1) THEN STOP «, l3=0x1f}
0x33da…3400 Line {l1=0x24, l2=»5910 GET D0$,J7+1:B1$,B2$,B3$,P0,C5$«, l3=0x24}
0x3400…3419 Line {l1=0x17, l2=»5920 EXEC FEJL(8,3,D0$)«, l3=0x17}
0x3419…343a Line {l1=0x1f, l2=»5930 GET D0$,J7+2:B5$,C0$,P1,P2«, l3=0x1f}
0x343a…3453 Line {l1=0x17, l2=»5940 EXEC FEJL(8,4,D0$)«, l3=0x17}
0x3453…3472 Line {l1=0x1d, l2=»5950 GET D0$,J7+3:C1$,C3$,C4$«, l3=0x1d}
0x3472…348b Line {l1=0x17, l2=»5960 EXEC FEJL(8,5,D0$)«, l3=0x17}
0x348b…349a Line {l1=0x0d, l2=»5970 ENDPROC «, l3=0x0d}
0x349a…34b6 Line {l1=0x1a, l2=»5980 PROC TUD(P3,P4,P5,P6)«, l3=0x1a}
0x34b6…34cc Line {l1=0x14, l2=»5990 C6$=P3$;B8$=P4$«, l3=0x14}
0x34cc…34eb Line {l1=0x1d, l2=»6000 EXEC CALC(5,C6$,B9$,B8$)«, l3=0x1d}
0x34eb…34f9 Line {l1=0x0c, l2=»6010 P4$=B8$«, l3=0x0c}
0x34f9…350d Line {l1=0x12, l2=»6020 IF P5=0 THEN «, l3=0x12}
0x350d…3521 Line {l1=0x12, l2=»6030 P4$=P4$(1:13)«, l3=0x12}
0x3521…352d Line {l1=0x0a, l2=»6040 ELSE «, l3=0x0a}
0x352d…3557 Line {l1=0x28, l2=»6050 IF P5=1 AND P4$(LEN(P4$))="+" THEN «, l3=0x28}
0x3557…356f Line {l1=0x16, l2=»6060 P4$(LEN(P4$))=" "«, l3=0x16}
0x356f…357c Line {l1=0x0b, l2=»6070 ENDIF «, l3=0x0b}
0x357c…3589 Line {l1=0x0b, l2=»6080 ENDIF «, l3=0x0b}
0x3589…359d Line {l1=0x12, l2=»6090 IF P6=1 THEN «, l3=0x12}
0x359d…35b9 Line {l1=0x1a, l2=»6100 P4$=P4$(4:LEN(P4$)-3)«, l3=0x1a}
0x35b9…35c6 Line {l1=0x0b, l2=»6110 ENDIF «, l3=0x0b}
0x35c6…35d5 Line {l1=0x0d, l2=»6120 ENDPROC «, l3=0x0d}
0x35d5…35eb Line {l1=0x14, l2=»6130 PROC NRTEST(P7)«, l3=0x14}
0x35eb…360b Line {l1=0x1e, l2=»6140 P=0;H4=0;I8=0;I5=LEN(P7$)«, l3=0x1e}
0x360b…361d Line {l1=0x10, l2=»6150 CASE I5 OF «, l3=0x10}
0x361d…3631 Line {l1=0x12, l2=»6160 FOR I=1 TO I5«, l3=0x12}
0x3631…364e Line {l1=0x1b, l2=»6170 P8=INT(ORD(P7$(I))-48)«, l3=0x1b}
0x364e…366d Line {l1=0x1d, l2=»6180 IF P8=>0 AND P8<10 THEN «, l3=0x1d}
0x366d…367d Line {l1=0x0e, l2=»6190 P=P*10+P8«, l3=0x0e}
0x367d…3689 Line {l1=0x0a, l2=»6200 ELSE «, l3=0x0a}
0x3689…3694 Line {l1=0x09, l2=»6210 H4=1«, l3=0x09}
0x3694…36a1 Line {l1=0x0b, l2=»6220 ENDIF «, l3=0x0b}
0x36a1…36ae Line {l1=0x0b, l2=»6230 NEXT I«, l3=0x0b}
0x36ae…36d4 Line {l1=0x24, l2=»6240 I8=P DIV 10000;KTAL9=P DIV 1000«, l3=0x24}
0x36d4…36f4 Line {l1=0x1e, l2=»6250 IF KTAL9=J2 THEN I8=KTAL9«, l3=0x1e}
0x36f4…3701 Line {l1=0x0b, l2=»6260 WHEN 0«, l3=0x0b}
0x3701…370c Line {l1=0x09, l2=»6270 P=-1«, l3=0x09}
0x370c…3719 Line {l1=0x0b, l2=»6280 WHEN 1«, l3=0x0b}
0x3719…372c Line {l1=0x11, l2=»6290 CASE P7$ OF «, l3=0x11}
0x372c…3745 Line {l1=0x17, l2=»6300 P=INT(ORD(P7$)-48)«, l3=0x17}
0x3745…3758 Line {l1=0x11, l2=»6310 WHEN "d","D"«, l3=0x11}
0x3758…3763 Line {l1=0x09, l2=»6320 P=-2«, l3=0x09}
0x3763…3776 Line {l1=0x11, l2=»6330 WHEN "a","A"«, l3=0x11}
0x3776…3781 Line {l1=0x09, l2=»6340 P=-3«, l3=0x09}
0x3781…3794 Line {l1=0x11, l2=»6350 WHEN "j","J"«, l3=0x11}
0x3794…379f Line {l1=0x09, l2=»6360 P=-7«, l3=0x09}
0x379f…37b2 Line {l1=0x11, l2=»6370 WHEN "n","N"«, l3=0x11}
0x37b2…37bd Line {l1=0x09, l2=»6380 P=-8«, l3=0x09}
0x37bd…37cc Line {l1=0x0d, l2=»6390 ENDCASE «, l3=0x0d}
0x37cc…37db Line {l1=0x0d, l2=»6400 ENDCASE «, l3=0x0d}
0x37db…37ea Line {l1=0x0d, l2=»6410 ENDPROC «, l3=0x0d}
0x37ea…37fe Line {l1=0x12, l2=»6420 PROC HENTPOST«, l3=0x12}
0x37fe…3810 Line {l1=0x10, l2=»6430 J7=M8(N0,2)«, l3=0x10}
0x3810…3828 Line {l1=0x16, l2=»6440 GET C9$,J7:P9,B0$«, l3=0x16}
0x3828…3841 Line {l1=0x17, l2=»6450 EXEC FEJL(3,2,C9$)«, l3=0x17}
0x3841…3862 Line {l1=0x1f, l2=»6460 IF P9<>M8(N0,1) THEN STOP «, l3=0x1f}
0x3862…3881 Line {l1=0x1d, l2=»6470 GET C9$,J7+1:G0$,D7$,D8$«, l3=0x1d}
0x3881…389a Line {l1=0x17, l2=»6480 EXEC FEJL(3,3,C9$)«, l3=0x17}
0x389a…38b9 Line {l1=0x1d, l2=»6490 GET C9$,J7+2:E6$,D9$,E0$«, l3=0x1d}
0x38b9…38d2 Line {l1=0x17, l2=»6500 EXEC FEJL(3,4,C9$)«, l3=0x17}
0x38d2…38e1 Line {l1=0x0d, l2=»6510 ENDPROC «, l3=0x0d}
0x38e1…38f7 Line {l1=0x14, l2=»6520 PROC BFSTEMNING«, l3=0x14}
0x38f7…3905 Line {l1=0x0c, l2=»6530 REPEAT «, l3=0x0c}
0x3905…3912 Line {l1=0x0b, l2=»6540 CLEAR «, l3=0x0b}
0x3912…3924 Line {l1=0x10, l2=»6550 CURSOR 21,1«, l3=0x10}
0x3924…394a Line {l1=0x24, l2=»6560 PRINT "Kasserapport afstemning"«, l3=0x24}
0x394a…395c Line {l1=0x10, l2=»6570 CURSOR 66,1«, l3=0x10}
0x395c…3974 Line {l1=0x16, l2=»6580 PRINT "Dato :";J6«, l3=0x16}
0x3974…3986 Line {l1=0x10, l2=»6590 CURSOR 21,3«, l3=0x10}
0x3986…39b3 Line {l1=0x2b, l2=»6600 PRINT "Differencer Indtastede saldi"«, l3=0x2b}
0x39b3…39c6 Line {l1=0x11, l2=»6610 FOR I=1 TO 6«, l3=0x11}
0x39c6…39eb Line {l1=0x23, l2=»6620 EXEC CALC(1,F5$(I),F9$(I),F3$)«, l3=0x23}
0x39eb…39fe Line {l1=0x11, l2=»6630 CURSOR 1,I+4«, l3=0x11}
0x39fe…3a13 Line {l1=0x13, l2=»6640 PRINT I;J5$(I)«, l3=0x13}
0x3a13…3a27 Line {l1=0x12, l2=»6650 CURSOR 19,I+4«, l3=0x12}
0x3a27…3a43 Line {l1=0x1a, l2=»6660 EXEC TUD(F3$,B8$,1,0)«, l3=0x1a}
0x3a43…3a53 Line {l1=0x0e, l2=»6670 PRINT B8$«, l3=0x0e}
0x3a53…3a67 Line {l1=0x12, l2=»6680 CURSOR 36,I+4«, l3=0x12}
0x3a67…3a86 Line {l1=0x1d, l2=»6690 EXEC TUD(F9$(I),B8$,1,0)«, l3=0x1d}
0x3a86…3a96 Line {l1=0x0e, l2=»6700 PRINT B8$«, l3=0x0e}
0x3a96…3aa3 Line {l1=0x0b, l2=»6710 NEXT I«, l3=0x0b}
0x3aa3…3ab5 Line {l1=0x10, l2=»6720 CURSOR 4,12«, l3=0x10}
0x3ab5…3adb Line {l1=0x24, l2=»6730 PRINT "Kontroller dine saldi !"«, l3=0x24}
0x3adb…3ae9 Line {l1=0x0c, l2=»6740 REPEAT «, l3=0x0c}
0x3ae9…3afb Line {l1=0x10, l2=»6750 CURSOR 4,14«, l3=0x10}
0x3afb…3b2e Line {l1=0x31, l2=»6760 PRINT "Hvilken er forkert (0:ingen,1-6)"«, l3=0x31}
0x3b2e…3b41 Line {l1=0x11, l2=»6770 CURSOR 25,14«, l3=0x11}
0x3b41…3b51 Line {l1=0x0e, l2=»6780 INPUT D5$«, l3=0x0e}
0x3b51…3b68 Line {l1=0x15, l2=»6790 EXEC NRTEST(D5$)«, l3=0x15}
0x3b68…3b8a Line {l1=0x20, l2=»6800 UNTIL -1<P AND P<7 AND H4=0«, l3=0x20}
0x3b8a…3b9e Line {l1=0x12, l2=»6810 IF P<>0 THEN «, l3=0x12}
0x3b9e…3bac Line {l1=0x0c, l2=»6820 REPEAT «, l3=0x0c}
0x3bac…3bba Line {l1=0x0c, l2=»6830 REPEAT «, l3=0x0c}
0x3bba…3bcc Line {l1=0x10, l2=»6840 CURSOR 1,16«, l3=0x10}
0x3bcc…3c05 Line {l1=0x37, l2=»6850 PRINT P;J5$(P);" (tast ændret saldo)"«, l3=0x37}
0x3c05…3c18 Line {l1=0x11, l2=»6860 CURSOR 19,16«, l3=0x11}
0x3c18…3c28 Line {l1=0x0e, l2=»6870 INPUT F3$«, l3=0x0e}
0x3c28…3c3f Line {l1=0x15, l2=»6880 UNTIL LEN(F3$)>0«, l3=0x15}
0x3c3f…3c52 Line {l1=0x11, l2=»6890 EXEC FORTEGN«, l3=0x11}
0x3c52…3c71 Line {l1=0x1d, l2=»6900 EXEC CALC(6,F3$,B9$,B8$)«, l3=0x1d}
0x3c71…3c84 Line {l1=0x11, l2=»6910 UNTIL FLAG=0«, l3=0x11}
0x3c84…3c9d Line {l1=0x17, l2=»6920 IF P MOD 2=0 THEN «, l3=0x17}
0x3c9d…3cc0 Line {l1=0x21, l2=»6930 F9$(P)=F3$(1:LEN(F3$)-1)+"-"«, l3=0x21}
0x3cc0…3ccc Line {l1=0x0a, l2=»6940 ELSE «, l3=0x0a}
0x3ccc…3cdd Line {l1=0x0f, l2=»6950 F9$(P)=F3$«, l3=0x0f}
0x3cdd…3cea Line {l1=0x0b, l2=»6960 ENDIF «, l3=0x0b}
0x3cea…3cf5 Line {l1=0x09, l2=»6970 Q0=0«, l3=0x09}
0x3cf5…3d01 Line {l1=0x0a, l2=»6980 ELSE «, l3=0x0a}
0x3d01…3d14 Line {l1=0x11, l2=»6990 FOR I=1 TO 6«, l3=0x11}
0x3d14…3d39 Line {l1=0x23, l2=»7000 EXEC CALC(1,F5$(I),F9$(I),F3$)«, l3=0x23}
0x3d39…3d58 Line {l1=0x1d, l2=»7010 EXEC CALC(4,F3$,B9$,B9$)«, l3=0x1d}
0x3d58…3d72 Line {l1=0x18, l2=»7020 IF SI<>0 THEN EXIT «, l3=0x18}
0x3d72…3d7f Line {l1=0x0b, l2=»7030 NEXT I«, l3=0x0b}
0x3d7f…3d94 Line {l1=0x13, l2=»7040 IF SI<>0 THEN «, l3=0x13}
0x3d94…3da5 Line {l1=0x0f, l2=»7050 EXEC RETTE«, l3=0x0f}
0x3da5…3db0 Line {l1=0x09, l2=»7060 Q0=0«, l3=0x09}
0x3db0…3dbc Line {l1=0x0a, l2=»7070 ELSE «, l3=0x0a}
0x3dbc…3dca Line {l1=0x0c, l2=»7080 REPEAT «, l3=0x0c}
0x3dca…3ddc Line {l1=0x10, l2=»7090 CURSOR 4,16«, l3=0x10}
0x3ddc…3e05 Line {l1=0x27, l2=»7100 PRINT "Ønskes ændringer (J/N)"«, l3=0x27}
0x3e05…3e18 Line {l1=0x11, l2=»7110 CURSOR 22,16«, l3=0x11}
0x3e18…3e27 Line {l1=0x0d, l2=»7120 INPUT A$«, l3=0x0d}
0x3e27…3e3d Line {l1=0x14, l2=»7130 EXEC NRTEST(A$)«, l3=0x14}
0x3e3d…3e61 Line {l1=0x22, l2=»7140 UNTIL (P=-7 OR P=-8) AND H4=0«, l3=0x22}
0x3e61…3e75 Line {l1=0x12, l2=»7150 IF P=-7 THEN «, l3=0x12}
0x3e75…3e86 Line {l1=0x0f, l2=»7160 EXEC RETTE«, l3=0x0f}
0x3e86…3e91 Line {l1=0x09, l2=»7170 Q0=0«, l3=0x09}
0x3e91…3e9d Line {l1=0x0a, l2=»7180 ELSE «, l3=0x0a}
0x3e9d…3ea9 Line {l1=0x0a, l2=»7190 Q0=-1«, l3=0x0a}
0x3ea9…3eb6 Line {l1=0x0b, l2=»7200 ENDIF «, l3=0x0b}
0x3eb6…3ec3 Line {l1=0x0b, l2=»7210 ENDIF «, l3=0x0b}
0x3ec3…3ed0 Line {l1=0x0b, l2=»7220 ENDIF «, l3=0x0b}
0x3ed0…3ee2 Line {l1=0x10, l2=»7230 UNTIL Q0=-1«, l3=0x10}
0x3ee2…3ef1 Line {l1=0x0d, l2=»7240 ENDPROC «, l3=0x0d}
0x3ef1…3f0b Line {l1=0x18, l2=»7250 PROC HOVEDUD(Q1,Q2)«, l3=0x18}
0x3f0b…3f25 Line {l1=0x18, l2=»7260 EXEC DATOUD(Q1,D6$)«, l3=0x18}
0x3f25…3f34 Line {l1=0x0d, l2=»7270 OUTPUT P«, l3=0x0d}
0x3f34…3f7e Line {l1=0x48, l2=»7280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)«, l3=0x48}
0x3f7e…3fc5 Line {l1=0x45, l2=»7290 PRINT TAB(9);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$;«, l3=0x45}
0x3fc5…3fda Line {l1=0x13, l2=»7300 PRINT TAB(61);«, l3=0x13}
0x3fda…3ffb Line {l1=0x1f, l2=»7310 PRINT USING "Side:####":Q2«, l3=0x1f}
0x3ffb…400f Line {l1=0x12, l2=»7320 PRINT CHR(10)«, l3=0x12}
0x400f…404b Line {l1=0x3a, l2=»7330 PRINT TAB(3);"Bilag";TAB(10);"Tekst";TAB(39);"Konto";«, l3=0x3a}
0x404b…4087 Line {l1=0x3a, l2=»7340 PRINT TAB(52);"Debet";TAB(67);"Kredit";TAB(75);"Kode"«, l3=0x3a}
0x4087…409e Line {l1=0x15, l2=»7350 PRINT TAB(3);A2$«, l3=0x15}
0x409e…40ad Line {l1=0x0d, l2=»7360 ENDPROC «, l3=0x0d}
0x40ad…40d3 Line {l1=0x24, l2=»7370 PROC LINIEUD(Q3,Q4,Q5,Q6,Q7,Q8)«, l3=0x24}
0x40d3…40e9 Line {l1=0x14, l2=»7380 IF Q3<>-1 THEN «, l3=0x14}
0x40e9…4109 Line {l1=0x1e, l2=»7390 PRINT USING "#######":Q3;«, l3=0x1e}
0x4109…4116 Line {l1=0x0b, l2=»7400 ENDIF «, l3=0x0b}
0x4116…4134 Line {l1=0x1c, l2=»7410 IF Q4<10 AND Q4>0 THEN «, l3=0x1c}
0x4134…4150 Line {l1=0x1a, l2=»7420 E3$=E5$(Q4)+B7$(1:15)«, l3=0x1a}
0x4150…415d Line {l1=0x0b, l2=»7430 ENDIF «, l3=0x0b}
0x415d…4172 Line {l1=0x13, l2=»7440 IF Q4<>0 THEN «, l3=0x13}
0x4172…418b Line {l1=0x17, l2=»7450 PRINT TAB(10);E3$;«, l3=0x17}
0x418b…4198 Line {l1=0x0b, l2=»7460 ENDIF «, l3=0x0b}
0x4198…41ad Line {l1=0x13, l2=»7470 PRINT TAB(38);«, l3=0x13}
0x41ad…41cc Line {l1=0x1d, l2=»7480 PRINT USING "######":Q5;«, l3=0x1d}
0x41cc…41eb Line {l1=0x1d, l2=»7490 PRINT TAB(47+14*(Q6=0));«, l3=0x1d}
0x41eb…4207 Line {l1=0x1a, l2=»7500 EXEC TUD(Q7$,B8$,0,0)«, l3=0x1a}
0x4207…4220 Line {l1=0x17, l2=»7510 PRINT B8$;TAB(76);«, l3=0x17}
0x4220…423a Line {l1=0x18, l2=»7520 PRINT USING "##":Q8«, l3=0x18}
0x423a…4249 Line {l1=0x0d, l2=»7530 ENDPROC «, l3=0x0d}
0x4249…4262 Line {l1=0x17, l2=»7540 PROC DATOUD(Q9,R0)«, l3=0x17}
0x4262…426e Line {l1=0x0a, l2=»7550 R1=Q9«, l3=0x0a}
0x426e…4283 Line {l1=0x13, l2=»7560 R0$=" "«, l3=0x13}
0x4283…429e Line {l1=0x19, l2=»7570 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x429e…42b7 Line {l1=0x17, l2=»7580 IF J MOD 3=0 THEN «, l3=0x17}
0x42b7…42c8 Line {l1=0x0f, l2=»7590 R0$(J)="."«, l3=0x0f}
0x42c8…42d4 Line {l1=0x0a, l2=»7600 ELSE «, l3=0x0a}
0x42d4…42f3 Line {l1=0x1d, l2=»7610 R0$(J)=CHR(R1 MOD 10+48)«, l3=0x1d}
0x42f3…4306 Line {l1=0x11, l2=»7620 R1=R1 DIV 10«, l3=0x11}
0x4306…4313 Line {l1=0x0b, l2=»7630 ENDIF «, l3=0x0b}
0x4313…4320 Line {l1=0x0b, l2=»7640 NEXT J«, l3=0x0b}
0x4320…432f Line {l1=0x0d, l2=»7650 ENDPROC «, l3=0x0d}
0x432f…4349 Line {l1=0x18, l2=»7660 PROC UDSKRIV(R2,R3)«, l3=0x18}
0x4349…4366 Line {l1=0x1b, l2=»7670 IF R3=36 OR R3=0 THEN «, l3=0x1b}
0x4366…4374 Line {l1=0x0c, l2=»7680 R2=R2+1«, l3=0x0c}
0x4374…438e Line {l1=0x18, l2=»7690 EXEC HOVEDUD(R4,R2)«, l3=0x18}
0x438e…4399 Line {l1=0x09, l2=»7700 R3=0«, l3=0x09}
0x4399…43a6 Line {l1=0x0b, l2=»7710 ENDIF «, l3=0x0b}
0x43a6…43b1 Line {l1=0x09, l2=»7720 R5=0«, l3=0x09}
0x43b1…43bf Line {l1=0x0c, l2=»7730 R3=R3+1«, l3=0x0c}
0x43bf…43e4 Line {l1=0x23, l2=»7740 IF F4$(LEN(F4$))="+" THEN R5=1«, l3=0x23}
0x43e4…440b Line {l1=0x25, l2=»7750 EXEC LINIEUD(H7,I7,H6,R5,F4$,H8)«, l3=0x25}
0x440b…441a Line {l1=0x0d, l2=»7760 ENDPROC «, l3=0x0d}
0x441a…4437 Line {l1=0x1b, l2=»7770 PROC MODFORTEGN(R6,R7)«, l3=0x1b}
0x4437…4449 Line {l1=0x10, l2=»7780 I5=LEN(R7$)«, l3=0x10}
0x4449…4464 Line {l1=0x19, l2=»7790 IF R7$(I5)="+" THEN «, l3=0x19}
0x4464…447e Line {l1=0x18, l2=»7800 R6$=R7$(1:I5-1)+"-"«, l3=0x18}
0x447e…448a Line {l1=0x0a, l2=»7810 ELSE «, l3=0x0a}
0x448a…44a4 Line {l1=0x18, l2=»7820 R6$=R7$(1:I5-1)+"+"«, l3=0x18}
0x44a4…44b1 Line {l1=0x0b, l2=»7830 ENDIF «, l3=0x0b}
0x44b1…44c0 Line {l1=0x0d, l2=»7840 ENDPROC «, l3=0x0d}
0x44c0…44d5 Line {l1=0x13, l2=»7850 PROC GEMBHPOST«, l3=0x13}
0x44d5…44e9 Line {l1=0x12, l2=»7860 J7=L3;D5$="1"«, l3=0x12}
0x44e9…44f7 Line {l1=0x0c, l2=»7870 J7=J7+1«, l3=0x0c}
0x44f7…450c Line {l1=0x13, l2=»7880 F1$=CHR(I7+48)«, l3=0x13}
0x450c…4532 Line {l1=0x24, l2=»7890 PUT D3$,J7:H6,L4,H7,F1$,F3$,D5$«, l3=0x24}
0x4532…454b Line {l1=0x17, l2=»7900 EXEC FEJL(7,2,D3$)«, l3=0x17}
0x454b…456b Line {l1=0x1e, l2=»7910 IF I7=>10 AND I7<20 THEN «, l3=0x1e}
0x456b…4579 Line {l1=0x0c, l2=»7920 J7=J7+1«, l3=0x0c}
0x4579…4591 Line {l1=0x16, l2=»7930 PUT D3$,J7:H6,E3$«, l3=0x16}
0x4591…45aa Line {l1=0x17, l2=»7940 EXEC FEJL(7,3,D3$)«, l3=0x17}
0x45aa…45b7 Line {l1=0x0b, l2=»7950 ENDIF «, l3=0x0b}
0x45b7…45c3 Line {l1=0x0a, l2=»7960 L3=J7«, l3=0x0a}
0x45c3…45d2 Line {l1=0x0d, l2=»7970 ENDPROC «, l3=0x0d}
0x45d2…45e2 Line {l1=0x0e, l2=»7980 PROC BUND«, l3=0x0e}
0x45e2…45f7 Line {l1=0x13, l2=»7990 FOR I=R8 TO 36«, l3=0x13}
0x45f7…460c Line {l1=0x13, l2=»8000 PRINT CHR(10);«, l3=0x13}
0x460c…4619 Line {l1=0x0b, l2=»8010 NEXT I«, l3=0x0b}
0x4619…4629 Line {l1=0x0e, l2=»8020 PRINT " "«, l3=0x0e}
0x4629…4640 Line {l1=0x15, l2=»8030 PRINT TAB(3);A2$«, l3=0x15}
0x4640…465c Line {l1=0x1a, l2=»8040 EXEC TUD(A1$,B8$,0,0)«, l3=0x1a}
0x465c…468e Line {l1=0x30, l2=»8050 PRINT TAB(10);CHR(14);"Difference";CHR(15);«, l3=0x30}
0x468e…46bd Line {l1=0x2d, l2=»8060 PRINT TAB(39+14*(B8$(LEN(B8$))="-"));B8$«, l3=0x2d}
0x46bd…46d4 Line {l1=0x15, l2=»8070 PRINT TAB(3);A2$«, l3=0x15}
0x46d4…46e8 Line {l1=0x12, l2=»8080 PRINT CHR(10)«, l3=0x12}
0x46e8…46f7 Line {l1=0x0d, l2=»8090 ENDPROC «, l3=0x0d}
0x46f7…4708 Line {l1=0x0f, l2=»8100 PROC UDBIL«, l3=0x0f}
0x4708…4715 Line {l1=0x0b, l2=»8110 CLEAR «, l3=0x0b}
0x4715…4723 Line {l1=0x0c, l2=»8120 REPEAT «, l3=0x0c}
0x4723…4735 Line {l1=0x10, l2=»8130 CURSOR 8,13«, l3=0x10}
0x4735…477f Line {l1=0x48, l2=»8140 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$«, l3=0x48}
0x477f…4797 Line {l1=0x16, l2=»8150 UNTIL ORD(A$)=255«, l3=0x16}
0x4797…47a6 Line {l1=0x0d, l2=»8160 ENDPROC «, l3=0x0d}
0x47a6…47c2 Line {l1=0x1a, l2=»8170 C2$="P641220:SYSTEM1"«, l3=0x1a}
0x47c2…47d3 Line {l1=0x0f, l2=»8180 OPEN C2$,R«, l3=0x0f}
0x47d3…47ec Line {l1=0x17, l2=»8190 EXEC FEJL(9,1,C2$)«, l3=0x17}
0x47ec…4805 Line {l1=0x17, l2=»8200 GET C2$,1:M9,N4,N8«, l3=0x17}
0x4805…481e Line {l1=0x17, l2=»8210 EXEC FEJL(9,2,C2$)«, l3=0x17}
0x481e…4837 Line {l1=0x17, l2=»8220 GET C2$,2:R9,S0,S1«, l3=0x17}
0x4837…4850 Line {l1=0x17, l2=»8230 EXEC FEJL(9,3,C2$)«, l3=0x17}
0x4850…486c Line {l1=0x1a, l2=»8240 GET C2$,4:S2,S3,S4,N1«, l3=0x1a}
0x486c…4885 Line {l1=0x17, l2=»8250 EXEC FEJL(9,4,C2$)«, l3=0x17}
0x4885…4898 Line {l1=0x11, l2=»8260 GET C2$,5:N6«, l3=0x11}
0x4898…48b1 Line {l1=0x17, l2=»8270 EXEC FEJL(9,5,C2$)«, l3=0x17}
0x48b1…48ca Line {l1=0x17, l2=»8280 GET C2$,6:S5,S6,S7«, l3=0x17}
0x48ca…48e3 Line {l1=0x17, l2=»8290 EXEC FEJL(9,6,C2$)«, l3=0x17}
0x48e3…48ff Line {l1=0x1a, l2=»8300 GET C2$,8:S8,S9,T0,J1«, l3=0x1a}
0x48ff…4918 Line {l1=0x17, l2=»8310 EXEC FEJL(9,7,C2$)«, l3=0x17}
0x4918…492b Line {l1=0x11, l2=»8320 GET C2$,9:J2«, l3=0x11}
0x492b…4944 Line {l1=0x17, l2=»8330 EXEC FEJL(9,8,C2$)«, l3=0x17}
0x4944…4959 Line {l1=0x13, l2=»8340 GET C2$,10:E7$«, l3=0x13}
0x4959…4972 Line {l1=0x17, l2=»8350 EXEC FEJL(9,9,C2$)«, l3=0x17}
0x4972…4987 Line {l1=0x13, l2=»8360 GET C2$,11:A6$«, l3=0x13}
0x4987…49a1 Line {l1=0x18, l2=»8370 EXEC FEJL(9,10,C2$)«, l3=0x18}
0x49a1…49b6 Line {l1=0x13, l2=»8380 GET C2$,12:A4$«, l3=0x13}
0x49b6…49d0 Line {l1=0x18, l2=»8390 EXEC FEJL(9,11,C2$)«, l3=0x18}
0x49d0…49e5 Line {l1=0x13, l2=»8400 GET C2$,13:B6$«, l3=0x13}
0x49e5…49ff Line {l1=0x18, l2=»8410 EXEC FEJL(9,12,C2$)«, l3=0x18}
0x49ff…4a14 Line {l1=0x13, l2=»8420 GET C2$,15:C9$«, l3=0x13}
0x4a14…4a2e Line {l1=0x18, l2=»8430 EXEC FEJL(9,13,C2$)«, l3=0x18}
0x4a2e…4a43 Line {l1=0x13, l2=»8440 GET C2$,16:D0$«, l3=0x13}
0x4a43…4a5d Line {l1=0x18, l2=»8450 EXEC FEJL(9,14,C2$)«, l3=0x18}
0x4a5d…4a72 Line {l1=0x13, l2=»8460 GET C2$,17:D1$«, l3=0x13}
0x4a72…4a8c Line {l1=0x18, l2=»8470 EXEC FEJL(9,15,C2$)«, l3=0x18}
0x4a8c…4aa1 Line {l1=0x13, l2=»8480 GET C2$,19:D2$«, l3=0x13}
0x4aa1…4abb Line {l1=0x18, l2=»8490 EXEC FEJL(9,16,C2$)«, l3=0x18}
0x4abb…4ad0 Line {l1=0x13, l2=»8500 GET C2$,21:D3$«, l3=0x13}
0x4ad0…4aea Line {l1=0x18, l2=»8510 EXEC FEJL(9,17,C2$)«, l3=0x18}
0x4aea…4aff Line {l1=0x13, l2=»8520 GET C2$,36:E2$«, l3=0x13}
0x4aff…4b19 Line {l1=0x18, l2=»8530 EXEC FEJL(9,18,C2$)«, l3=0x18}
0x4b19…4b29 Line {l1=0x0e, l2=»8540 CLOSE C2$«, l3=0x0e}
0x4b29…4b43 Line {l1=0x18, l2=»8550 EXEC FEJL(9,19,C2$)«, l3=0x18}
0x4b43…4b74 Line {l1=0x2f, l2=»8560 DIM M7(M9 DIV 4),N2(N4 DIV 4),N7(N8 DIV 4)«, l3=0x2f}
0x4b74…4ba0 Line {l1=0x2a, l2=»8570 DIM M8(4,2),N3(4,2),J8(4,2),J5$(6,14)«, l3=0x2a}
0x4ba0…4bb2 Line {l1=0x10, l2=»8580 E2$=E7$+E2$«, l3=0x10}
0x4bb2…4bc3 Line {l1=0x0f, l2=»8590 OPEN E2$,R«, l3=0x0f}
0x4bc3…4bdd Line {l1=0x18, l2=»8600 EXEC FEJL(9,20,E2$)«, l3=0x18}
0x4bdd…4c23 Line {l1=0x44, l2=»8610 GET E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9)«, l3=0x44}
0x4c23…4c3d Line {l1=0x18, l2=»8620 EXEC FEJL(9,21,E2$)«, l3=0x18}
0x4c3d…4c50 Line {l1=0x11, l2=»8630 FOR I=1 TO 6«, l3=0x11}
0x4c50…4c62 Line {l1=0x10, l2=»8640 J=(I-1)*3+1«, l3=0x10}
0x4c62…4c8d Line {l1=0x29, l2=»8650 GET E2$,I+5:E5$(J),E5$(J+1),E5$(J+2)«, l3=0x29}
0x4c8d…4ca7 Line {l1=0x18, l2=»8660 EXEC FEJL(9,22,E2$)«, l3=0x18}
0x4ca7…4cb4 Line {l1=0x0b, l2=»8670 NEXT I«, l3=0x0b}
0x4cb4…4cfb Line {l1=0x45, l2=»8680 GET E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9)«, l3=0x45}
0x4cfb…4d15 Line {l1=0x18, l2=»8690 EXEC FEJL(9,23,E2$)«, l3=0x18}
0x4d15…4d5c Line {l1=0x45, l2=»8700 GET E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9)«, l3=0x45}
0x4d5c…4d76 Line {l1=0x18, l2=»8710 EXEC FEJL(9,24,E2$)«, l3=0x18}
0x4d76…4d9c Line {l1=0x24, l2=»8720 GET E2$,15:F5$(1),F5$(2),F5$(3)«, l3=0x24}
0x4d9c…4db6 Line {l1=0x18, l2=»8730 EXEC FEJL(9,25,E2$)«, l3=0x18}
0x4db6…4ddc Line {l1=0x24, l2=»8740 GET E2$,16:F5$(4),F5$(5),F5$(6)«, l3=0x24}
0x4ddc…4df6 Line {l1=0x18, l2=»8750 EXEC FEJL(9,26,E2$)«, l3=0x18}
0x4df6…4e06 Line {l1=0x0e, l2=»8760 CLOSE E2$«, l3=0x0e}
0x4e06…4e20 Line {l1=0x18, l2=»8770 EXEC FEJL(9,27,E2$)«, l3=0x18}
0x4e20…4e6e Line {l1=0x4c, l2=»8780 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$«, l3=0x4c}
0x4e6e…4e8c Line {l1=0x1c, l2=»8790 D2$=E7$+D2$;D3$=E7$+D3$«, l3=0x1c}
0x4e8c…4e9d Line {l1=0x0f, l2=»8800 OPEN A6$,R«, l3=0x0f}
0x4e9d…4eb7 Line {l1=0x18, l2=»8810 EXEC FEJL(9,28,A6$)«, l3=0x18}
0x4eb7…4ec8 Line {l1=0x0f, l2=»8820 OPEN A4$,R«, l3=0x0f}
0x4ec8…4ee2 Line {l1=0x18, l2=»8830 EXEC FEJL(9,29,A4$)«, l3=0x18}
0x4ee2…4ef3 Line {l1=0x0f, l2=»8840 OPEN B6$,R«, l3=0x0f}
0x4ef3…4f0d Line {l1=0x18, l2=»8850 EXEC FEJL(9,30,B6$)«, l3=0x18}
0x4f0d…4f1e Line {l1=0x0f, l2=»8860 OPEN C9$,R«, l3=0x0f}
0x4f1e…4f38 Line {l1=0x18, l2=»8870 EXEC FEJL(9,31,C9$)«, l3=0x18}
0x4f38…4f49 Line {l1=0x0f, l2=»8880 OPEN D0$,R«, l3=0x0f}
0x4f49…4f63 Line {l1=0x18, l2=»8890 EXEC FEJL(9,32,D0$)«, l3=0x18}
0x4f63…4f74 Line {l1=0x0f, l2=»8900 OPEN D1$,R«, l3=0x0f}
0x4f74…4f8e Line {l1=0x18, l2=»8910 EXEC FEJL(9,33,D1$)«, l3=0x18}
0x4f8e…4f9f Line {l1=0x0f, l2=»8920 OPEN D2$,W«, l3=0x0f}
0x4f9f…4fb9 Line {l1=0x18, l2=»8930 EXEC FEJL(9,34,D2$)«, l3=0x18}
0x4fb9…4fd7 Line {l1=0x1c, l2=»8940 EXEC INDTAB1(M7,M9,A6$)«, l3=0x1c}
0x4fd7…4ff5 Line {l1=0x1c, l2=»8950 EXEC INDTAB1(N2,N4,A4$)«, l3=0x1c}
0x4ff5…5013 Line {l1=0x1c, l2=»8960 EXEC INDTAB1(N7,N8,B6$)«, l3=0x1c}
0x5013…5061 Line {l1=0x4c, l2=»8970 J5$(1)="Kasse debet ";J5$(2)="Kasse kredit ";J5$(3)="Giro debet "«, l3=0x4c}
0x5061…50af Line {l1=0x4c, l2=»8980 J5$(4)="Giro kredit ";J5$(5)="Bank debet ";J5$(6)="Bank kredit "«, l3=0x4c}
0x50af…50f0 Line {l1=0x3f, l2=»8990 B7$=" ";B7$=B7$+B7$«, l3=0x3f}
0x50f0…5135 Line {l1=0x43, l2=»9000 B9$="0+";A1$="0+";A2$="--------------------------------------"«, l3=0x43}
0x5135…5150 Line {l1=0x19, l2=»9010 I1=0;A2$=A2$+A2$+" "«, l3=0x19}
0x5150…5183 Line {l1=0x31, l2=»9020 L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(2);L3=G1(1)«, l3=0x31}
0x5183…51af Line {l1=0x2a, l2=»9030 H5=1;J6=R4;R8=0;L4=0;B8$="0+";I3=I4+1«, l3=0x2a}
0x51af…51c5 Line {l1=0x14, l2=»9040 I2=I3;K3=1;K2=1«, l3=0x14}
0x51c5…51d2 Line {l1=0x0b, l2=»9050 CLEAR «, l3=0x0b}
0x51d2…51e5 Line {l1=0x11, l2=»9060 EXEC UDHOVED«, l3=0x11}
0x51e5…51ff Line {l1=0x18, l2=»9070 EXEC INDTASTNING(1)«, l3=0x18}
0x51ff…5213 Line {l1=0x12, l2=»9080 IF J4=0 THEN «, l3=0x12}
0x5213…5229 Line {l1=0x14, l2=»9090 EXEC BFSTEMNING«, l3=0x14}
0x5229…523a Line {l1=0x0f, l2=»9100 EXEC UDBIL«, l3=0x0f}
0x523a…524b Line {l1=0x0f, l2=»9110 OPEN D3$,W«, l3=0x0f}
0x524b…5265 Line {l1=0x18, l2=»9120 EXEC FEJL(9,37,D3$)«, l3=0x18}
0x5265…5279 Line {l1=0x12, l2=»9130 FOR I=1 TO I4«, l3=0x12}
0x5279…5291 Line {l1=0x16, l2=»9140 EXEC HENTKASPOST1«, l3=0x16}
0x5291…52a6 Line {l1=0x13, l2=»9150 IF H6<>0 THEN «, l3=0x13}
0x52a6…52c5 Line {l1=0x1d, l2=»9160 EXEC MODFORTEGN(F3$,F4$)«, l3=0x1d}
0x52c5…52da Line {l1=0x13, l2=»9170 EXEC GEMBHPOST«, l3=0x13}
0x52da…52f9 Line {l1=0x1d, l2=»9180 EXEC CALC(0,F3$,A1$,A1$)«, l3=0x1d}
0x52f9…5313 Line {l1=0x18, l2=»9190 EXEC UDSKRIV(L2,R8)«, l3=0x18}
0x5313…5320 Line {l1=0x0b, l2=»9200 ENDIF «, l3=0x0b}
0x5320…532d Line {l1=0x0b, l2=»9210 NEXT I«, l3=0x0b}
0x532d…5344 Line {l1=0x15, l2=»9220 I7=24;H7=L2;H8=0«, l3=0x15}
0x5344…5369 Line {l1=0x23, l2=»9230 EXEC CALC(0,F5$(1),F5$(2),F3$)«, l3=0x23}
0x5369…5388 Line {l1=0x1d, l2=»9240 EXEC CALC(0,F3$,A1$,A1$)«, l3=0x1d}
0x5388…5394 Line {l1=0x0a, l2=»9250 H6=S5«, l3=0x0a}
0x5394…53a9 Line {l1=0x13, l2=»9260 EXEC GEMBHPOST«, l3=0x13}
0x53a9…53df Line {l1=0x34, l2=»9270 I7=10;H7=-1;F4$=F3$;E3$="Samlet kassepostering"«, l3=0x34}
0x53df…53f9 Line {l1=0x18, l2=»9280 EXEC UDSKRIV(L2,R8)«, l3=0x18}
0x53f9…541e Line {l1=0x23, l2=»9290 EXEC CALC(0,F5$(3),F5$(4),F3$)«, l3=0x23}
0x541e…543d Line {l1=0x1d, l2=»9300 EXEC CALC(0,F3$,A1$,A1$)«, l3=0x1d}
0x543d…5455 Line {l1=0x16, l2=»9310 I7=24;H7=L2;H6=S6«, l3=0x16}
0x5455…546a Line {l1=0x13, l2=»9320 EXEC GEMBHPOST«, l3=0x13}
0x546a…549f Line {l1=0x33, l2=»9330 F4$=F3$;I7=10;H7=-1;E3$="Samlet giropostering"«, l3=0x33}
0x549f…54b9 Line {l1=0x18, l2=»9340 EXEC UDSKRIV(L2,R8)«, l3=0x18}
0x54b9…54de Line {l1=0x23, l2=»9350 EXEC CALC(0,F5$(5),F5$(6),F3$)«, l3=0x23}
0x54de…54fd Line {l1=0x1d, l2=»9360 EXEC CALC(0,F3$,A1$,A1$)«, l3=0x1d}
0x54fd…5515 Line {l1=0x16, l2=»9370 I7=24;H7=L2;H6=S7«, l3=0x16}
0x5515…552a Line {l1=0x13, l2=»9380 EXEC GEMBHPOST«, l3=0x13}
0x552a…555f Line {l1=0x33, l2=»9390 E3$="Samlet bankpostering";F4$=F3$;I7=10;H7=-1«, l3=0x33}
0x555f…5579 Line {l1=0x18, l2=»9400 EXEC UDSKRIV(L2,R8)«, l3=0x18}
0x5579…5598 Line {l1=0x1d, l2=»9410 EXEC CALC(4,A1$,B9$,B9$)«, l3=0x1d}
0x5598…55ad Line {l1=0x13, l2=»9420 IF SI<>0 THEN «, l3=0x13}
0x55ad…55e3 Line {l1=0x34, l2=»9430 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport"«, l3=0x34}
0x55e3…5602 Line {l1=0x1d, l2=»9440 EXEC MODFORTEGN(F3$,A1$)«, l3=0x1d}
0x5602…5617 Line {l1=0x13, l2=»9450 EXEC GEMBHPOST«, l3=0x13}
0x5617…5636 Line {l1=0x1d, l2=»9460 EXEC CALC(0,F3$,A1$,A1$)«, l3=0x1d}
0x5636…564a Line {l1=0x12, l2=»9470 F4$=F3$;H7=-1«, l3=0x12}
0x564a…5664 Line {l1=0x18, l2=»9480 EXEC UDSKRIV(L2,R8)«, l3=0x18}
0x5664…5671 Line {l1=0x0b, l2=»9490 ENDIF «, l3=0x0b}
0x5671…5681 Line {l1=0x0e, l2=»9500 EXEC BUND«, l3=0x0e}
0x5681…5691 Line {l1=0x0e, l2=»9510 CLOSE D3$«, l3=0x0e}
0x5691…56ab Line {l1=0x18, l2=»9520 EXEC FEJL(9,38,D3$)«, l3=0x18}
0x56ab…56b6 Line {l1=0x09, l2=»9530 I4=0«, l3=0x09}
0x56b6…56c9 Line {l1=0x11, l2=»9540 FOR I=1 TO 6«, l3=0x11}
0x56c9…56db Line {l1=0x10, l2=»9550 F5$(I)="0+"«, l3=0x10}
0x56db…56e8 Line {l1=0x0b, l2=»9560 NEXT I«, l3=0x0b}
0x56e8…56f4 Line {l1=0x0a, l2=»9570 ELSE «, l3=0x0a}
0x56f4…5702 Line {l1=0x0c, l2=»9580 REPEAT «, l3=0x0c}
0x5702…5714 Line {l1=0x10, l2=»9590 CURSOR 3,23«, l3=0x10}
0x5714…5748 Line {l1=0x32, l2=»9600 PRINT "Ønskes kontroludskrift J/N ";B7$(1:45)«, l3=0x32}
0x5748…575b Line {l1=0x11, l2=»9610 CURSOR 26,23«, l3=0x11}
0x575b…576a Line {l1=0x0d, l2=»9620 INPUT A$«, l3=0x0d}
0x576a…57ab Line {l1=0x3f, l2=»9630 UNTIL (A$="J" OR A$="N" OR A$="j" OR A$="n") AND LEN(A$)=1«, l3=0x3f}
0x57ab…57cb Line {l1=0x1e, l2=»9640 IF A$="J" OR A$="j" THEN «, l3=0x1e}
0x57cb…57d7 Line {l1=0x0a, l2=»9650 T1=L2«, l3=0x0a}
0x57d7…57e8 Line {l1=0x0f, l2=»9660 EXEC UDBIL«, l3=0x0f}
0x57e8…57fc Line {l1=0x12, l2=»9670 FOR I=1 TO I4«, l3=0x12}
0x57fc…5814 Line {l1=0x16, l2=»9680 EXEC HENTKASPOST1«, l3=0x16}
0x5814…582e Line {l1=0x18, l2=»9690 EXEC UDSKRIV(T1,R8)«, l3=0x18}
0x582e…584d Line {l1=0x1d, l2=»9700 EXEC CALC(1,A1$,F4$,A1$)«, l3=0x1d}
0x584d…585a Line {l1=0x0b, l2=»9710 NEXT I«, l3=0x0b}
0x585a…5876 Line {l1=0x1a, l2=»9720 I7=10;H7=-1;H8=0;H6=0«, l3=0x1a}
0x5876…5889 Line {l1=0x11, l2=»9730 FOR I=1 TO 6«, l3=0x11}
0x5889…58a5 Line {l1=0x1a, l2=»9740 E3$=J5$(I);F4$=F5$(I)«, l3=0x1a}
0x58a5…58bf Line {l1=0x18, l2=»9750 EXEC UDSKRIV(T1,R8)«, l3=0x18}
0x58bf…58de Line {l1=0x1d, l2=»9760 EXEC CALC(0,A1$,F4$,A1$)«, l3=0x1d}
0x58de…58eb Line {l1=0x0b, l2=»9770 NEXT I«, l3=0x0b}
0x58eb…58fb Line {l1=0x0e, l2=»9780 EXEC BUND«, l3=0x0e}
0x58fb…5908 Line {l1=0x0b, l2=»9790 ENDIF «, l3=0x0b}
0x5908…5915 Line {l1=0x0b, l2=»9800 ENDIF «, l3=0x0b}
0x5915…5927 Line {l1=0x10, l2=»9810 EXEC KYSGEM«, l3=0x10}
0x5927…5937 Line {l1=0x0e, l2=»9820 CLOSE D2$«, l3=0x0e}
0x5937…5951 Line {l1=0x18, l2=»9830 EXEC FEJL(9,39,D2$)«, l3=0x18}
0x5951…595e Line {l1=0x0b, l2=»9840 CLOSE «, l3=0x0b}
0x595e…596d Line {l1=0x0d, l2=»9850 OUTPUT T«, l3=0x0d}
0x596d…598b Line {l1=0x1c, l2=»9860 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x598b…59a0 00 00 54 22 1c 00 00 31 33 30 20 44 49 4d 20 42 36 24 28 31 37 ┆ T" 130 DIM B6$(17┆
0x59a0…59c0 29 2c 42 37 24 28 37 37 29 2c 42 38 24 28 31 34 29 2c 42 39 24 28 31 32 29 2c 43 30 24 28 39 29 ┆),B7$(77),B8$(14),B9$(12),C0$(9)┆
0x59c0…59e0 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┆
[…0x47…]