|
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: 22752 (0x58e0)
Types: TextFile
Notes: Mikados_K
Names: »KASARAP.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »KASARAP.K«
0100 DIM OP1$(12),OP2$(12),RES$(15),A1$(12),A2$(77),A3$(25),A4$(17),A5$(17) 0110 DIM A6$(17),A7$(25),A8$(12),A9$(1),B0$(25),DV$(10),B1$(12),B2$(12) 0120 DIM B3$(12),B4$(29),B5$(25),B6$(17),B7$(77),B8$(14),B9$(12),C0$(9) 0130 DIM C1$(20),C2$(17),C3$(12),C4$(12),C5$(1),A$(2),C6$(12),C7$(1),C8$(1) 0140 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8) 0150 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12),E2$(17),E3$(25),E4$(25) 0160 DIM E5$(18,10),E6$(1),E7$(6),E8(9),E9$(17),F0(9),F1$(1),F2$(1),F3$(12) 0170 DIM F4$(12),F5$(6,12),F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(1),G1(9) 0180 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25),O32$(12) 0190 DIM O33$(12),G12(18),E12$(17),E13$(17),E14$(17) 0200 PROC CA(G9,H0,H1,H2) 0210 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=0;FLAG=0;ART=G9-6*(G9>5) 0220 CALL "P641210:REGN" 0230 H2$=RES$ 0240 IF G9<>6 THEN IF FLAG THEN STOP 0250 ENDPROC 0260 PROC IN(H3) 0270 REPEAT 0280 CASE H3 OF 0290 STOP 0300 WHEN 1 0310 REPEAT 0320 REPEAT 0330 CURSOR 3,23 0340 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)"; 0350 PRINT B7$(1:12) 0360 CURSOR 8,23 0370 INPUT D5$ 0380 EXEC NR(D5$) 0390 UNTIL P=>-3 AND H4=0 0400 IF P<>0 AND H5=19 AND P<>-2 AND P<>-3 THEN 0410 CLEAR 0420 EXEC UH 0430 H5=1 0440 EXEC UL(H6,H7,I6,E4$,F4$,H8,H16) 0450 EXEC SY 0460 H5=H5+1 0470 ENDIF 0480 REPEAT 0490 H9=-1 0500 IF I2+3>R9 OR I2+F0(1)+G1(1)+9>S1 THEN 0510 REPEAT 0520 CURSOR 3,23 0530 PRINT "Ikke plads til flere posteringer , tast RETURN "+B7$(1:30) 0540 CURSOR 50,23 0550 INPUT A$ 0560 EXEC NR(A$) 0570 UNTIL P=-1 0580 P=0 0590 ENDIF 0600 CASE P OF 0610 CURSOR 1,H5+3 0620 PRINT USING "###":H5 0630 H7=P;P=-4;I0=H7;H3=2 0640 CURSOR 4,H5+3 0650 PRINT USING "#######":H7 0660 WHEN 0 0670 H3=7;P=-4 0680 IF I1=2 THEN H3=-1 0690 WHEN -1 0700 I0=I0+1;P=I0;H9=0 0710 WHEN -2 0720 REPEAT 0730 CURSOR 3,23 0740 PRINT "Ny dato (ååmmdd)";B7$(1:54) 0750 CURSOR 11,23 0760 INPUT D5$ 0770 EXEC NR(D5$) 0780 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32 0790 J6=P 0800 EXEC UH 0810 WHEN -3 0820 IF I2>I3 THEN 0830 I0=I0-1;H5=H5-1 0840 EXEC SL(5) 0850 EXEC ÆN(1,F4$,H8) 0860 I2=I3;I4=I3-1 0870 ENDIF 0880 ENDCASE 0890 UNTIL H9=-1 0900 UNTIL P=-4 0910 WHEN 2 0920 REPEAT 0930 REPEAT 0940 CURSOR 3,23 0950 PRINT "Tekst"+B7$(1:27)+"(max 25 tegn)"+B7$(1:32) 0960 CURSOR 9,23 0970 INPUT D4$ 0980 I5=LEN(D4$) 0990 UNTIL I5<=25 1000 IF I5<3 THEN 1010 EXEC NR(D4$) 1020 ELSE 1030 P=20;H4=0 1040 ENDIF 1050 UNTIL P=>0 AND P<21 AND H4=0 AND P<>10 1060 E4$=B7$ 1070 IF P<>0 THEN 1080 I6=P MOD 10 1090 IF I6=0 THEN 1100 P=10;E3$=D4$;E4$=E3$ 1110 ELSE 1120 E4$=E5$(I6)+B7$(1:15) 1130 IF P>10 THEN 1140 REPEAT 1150 CURSOR 3,23 1160 PRINT "Tekst";B7$(1:16);"(max 14 tegn)"+B7$(1:43) 1170 CURSOR 9,23 1180 INPUT D4$ 1190 UNTIL LEN(D4$)<15 1200 E4$(12,25)=D4$;E3$=E4$ 1210 ENDIF 1220 ENDIF 1230 CURSOR 12,H5+3 1240 PRINT E4$ 1250 ENDIF 1260 H3=3;I7=P 1270 WHEN 3 1280 REPEAT 1290 REPEAT 1300 CURSOR 3,23 1310 PRINT "Konto (5 cifre)";B7$(1:54) 1320 CURSOR 9,23 1330 INPUT D5$ 1340 EXEC NR(D5$) 1350 UNTIL H4=0 AND (I8<>0 AND I5=5) 1360 H6=P 1370 EXEC KN(I8,H6) 1380 CURSOR 15,23 1390 PRINT "(Navn:";B7$(1:27);"Er konto rigtig (J/N) " 1400 CURSOR 22,23 1410 PRINT B4$ 1420 REPEAT 1430 CURSOR 64,23 1440 INPUT A$ 1450 EXEC NR(A$) 1460 UNTIL P=-7 OR P=-8 1470 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1) 1480 IF I9=1 THEN 1490 EXEC SL(5) 1500 H3=1;I0=I0-1 1510 ELSE 1520 CURSOR 37,H5+3 1530 H3=4 1540 IF I1=1 THEN H3=-1 1550 PRINT USING "######":H6 1560 ENDIF 1570 WHEN 4 1580 REPEAT 1590 REPEAT 1600 CURSOR 3,23 1610 PRINT "Entreprisekonto (5 cifre)";B7$(1:44) 1620 CURSOR 19,23 1630 INPUT D5$ 1640 EXEC NR(D5$) 1650 UNTIL H4=0 AND (I8<>0 AND I5=5) OR P=-1 1660 H16=1000000;I9=0 1670 IF P=-1 THEN EXIT 1680 H16=P;B4$="Konto eksisterer ikke";F8$=B7$ 1690 EXEC FI(N11,M8,J12,(H16 DIV 100),J19,E13$) 1700 IF I9=0 THEN 1710 FOR X=1 TO J13+J14 1720 I9=0 1730 IF (H16 MOD 100)=N12(X) AND N13$(X)="0" THEN EXIT 1740 I9=1 1750 NEXT X 1760 IF I9=0 THEN 1770 GET E12$,M8(J19,2)+1:B4$ 1780 EXEC FE(99,10,E12$) 1790 GET E14$,X:P9,E6$,F8$ 1800 EXEC FE(99,11,E14$) 1810 ENDIF 1820 ENDIF 1830 CURSOR 1,23 1840 PRINT USING " ###### ":H16; 1850 PRINT B4$;" ";F8$;TAB(65);"Rigtig (J/N)" 1860 REPEAT 1870 CURSOR 71,23 1880 INPUT A$ 1890 EXEC NR(A$) 1900 UNTIL P=-7 OR P=-8 1910 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1) 1920 IF I9=1 THEN 1930 EXEC SL(5) 1940 H3=1;I0=I0-1 1950 ELSE 1960 CURSOR 44,H5+3 1970 H3=5 1980 IF I1=1 THEN H3=-1 1990 PRINT USING "######":H16 2000 ENDIF 2010 WHEN 5 2020 REPEAT 2030 REPEAT 2040 REPEAT 2050 CURSOR 3,23 2060 PRINT "Beløb";B7$(1:14);"(Kredit indtastes med efterstillet minus)"; 2070 PRINT B7$(1:17) 2080 CURSOR 8,23 2090 INPUT F3$ 2100 UNTIL LEN(F3$)>0 2110 EXEC FO 2120 EXEC CA(6,F3$,B9$,B8$) 2130 UNTIL FLAG=0 2140 EXEC CA(4,F3$,B9$,B9$) 2150 UNTIL SI<>0 AND FLAG=0 2160 F4$=F3$;SI=0 2170 EXEC SL(3) 2180 IF F3$(LEN(F3$))="+" THEN SI=1 2190 CURSOR 52+(SI=0)*11,H5+3 2200 EXEC TU(F4$,B8$,0,0) 2210 PRINT B8$ 2220 H3=6 2230 IF I1=1 THEN H3=-1 2240 WHEN 6 2250 REPEAT 2260 CURSOR 3,23 2270 PRINT "Kode (0:Annullering, 1:Kasse, 2:Bank, 3:Giro)"+B7$(1:30) 2280 CURSOR 7,23 2290 INPUT D5$ 2300 EXEC NR(D5$) 2310 UNTIL (P>0 AND P<4) OR (P=0 AND I1<>1) 2320 H8=P;H3=1 2330 IF H8=0 THEN 2340 EXEC SL(5) 2350 I0=I0-1 2360 ELSE 2370 CURSOR 77,H5+3 2380 PRINT USING "##":H8 2390 IF I1<>1 THEN 2400 EXEC ÆN(0,F4$,H8) 2410 H5=H5+1;I3=I2 2420 EXEC GP(D2$,I2,H6,J6,H7,I7,E3$,F4$,H8,H16) 2430 I2=I2+1;I4=I2-1 2440 ENDIF 2450 ENDIF 2460 IF I1=1 THEN H3=-1 2470 WHEN 7 2480 P=-7 2490 IF I2+F0(1)+G1(1)+9<S1 THEN 2500 REPEAT 2510 CURSOR 3,23 2520 PRINT "Ønskes afstemning J/N "+B7$(1:54) 2530 CURSOR 25,23 2540 INPUT A$ 2550 EXEC NR(A$) 2560 UNTIL P=-7 OR P=-8 2570 ENDIF 2580 EXEC SY 2590 J4=1 2600 IF P=-7 THEN 2610 J4=0 2620 FOR I=1 TO 6 2630 REPEAT 2640 REPEAT 2650 CURSOR 3,23 2660 PRINT J5$(I);B7$(1:60) 2670 CURSOR 17,23 2680 INPUT F3$ 2690 UNTIL LEN(F3$)>0 2700 EXEC FO 2710 EXEC CA(6,F3$,B9$,B8$) 2720 UNTIL FLAG=0 2730 F9$(I)=F3$ 2740 IF I MOD 2=0 THEN F9$(I)=F3$(1:LEN(F3$)-1)+"-" 2750 NEXT I 2760 ENDIF 2770 H3=-1 2780 ENDCASE 2790 UNTIL H3=-1 2800 ENDPROC 2810 PROC HK 2820 J7=M8(J9,2) 2830 GET D1$,J7:K0,F8$,A3$ 2840 EXEC FE(5,1,D1$) 2850 GET D1$,J7+1:A5$,C7$,C8$,K1,F6$,F7$ 2860 EXEC FE(5,2,D1$) 2870 ENDPROC 2880 PROC GP(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN) 2890 F1$=CHR(TK+48);D5$=CHR(KO+48) 2900 PUT FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN 2910 EXEC FE(10,1,FL$) 2920 IF TK>9 AND TK<20 THEN 2930 PN=PN+1 2940 PUT FL$,PN:KT,TKS$ 2950 EXEC FE(10,2,FL$) 2960 ENDIF 2970 ENDPROC 2980 PROC GG(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN) 2990 GET FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN 3000 EXEC FE(11,1,FL$) 3010 TK=ORD(F1$)-48;KO=ORD(D5$)-48 3020 IF TK>9 AND TK<20 THEN 3030 PN=PN+1 3040 GET FL$,PN:KT,TKS$ 3050 EXEC FE(11,2,FL$) 3060 ELSE 3070 TKS$=B7$ 3080 IF TK>0 THEN TKS$=E5$(TK-10*(TK>20)) 3090 ENDIF 3100 ENDPROC 3110 PROC ÆN(K4,K5,K6) 3120 J3=0;B8$=K5$ 3130 IF B8$(LEN(B8$))="+" THEN J3=1 3140 J3=2*K6-J3 3150 EXEC CA(K4,F5$(J3),B8$,F5$(J3)) 3160 ENDPROC 3170 PROC RE 3180 K3=1;K2=1 3190 IF I2=1 THEN EXIT 3200 REPEAT 3210 CLEAR 3220 EXEC UH 3230 IF K2=I2 THEN K2=1 3240 K3=K2;H5=1 3250 FOR I=1 TO 18 3260 EXEC GG(D2$,K2,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3270 K2=K2+1 3280 IF G2(I)<>0 THEN EXEC UL(G2(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3290 H5=H5+1 3300 IF K2=I2 THEN EXIT 3310 NEXT I 3320 K7=H5;K8=0 3330 REPEAT 3340 REPEAT 3350 CURSOR 3,23 3360 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:"; 3370 PRINT "Ny post) " 3380 CURSOR 20,23 3390 INPUT D5$ 3400 EXEC NR(D5$) 3410 UNTIL (P=-8 OR P>-2 AND P<K7) AND H4=0 3420 K9=P 3430 IF K9<1 THEN EXIT 3440 K8=1 3450 REPEAT 3460 REPEAT 3470 CURSOR 3,23 3480 PRINT "Linie:";K9;"Vælg ændring (0:Færdig,A:Annuller,1:Konto,"; 3490 PRINT "2:Entre,3:Beløb,4:Kode)" 3500 CURSOR 25,23 3510 INPUT D5$ 3520 EXEC NR(D5$) 3530 UNTIL (P=-3 OR P>-1 AND P<5) AND H4=0 3540 L0=P 3550 IF L0=0 THEN EXIT 3560 H5=K9 3570 IF G2(K9)=0 THEN 3580 CURSOR 3,H5+3 3590 PRINT "Postering er annulleret" 3600 ELSE 3610 IF L0<>1 THEN EXEC ÆN(1,G6$(K9),G7(K9)) 3620 IF L0=-3 THEN 3630 EXEC SL(5) 3640 G2(K9)=0 3650 ELSE 3660 L0=L0+2;L1=L0;I1=1;H6=G2(K9);F4$=G6$(K9);H8=G7(K9);H16=G12(K9) 3670 EXEC IN(L0) 3680 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8;G12(K9)=H16 3690 IF L1<>3 THEN EXEC ÆN(0,F4$,H8) 3700 ENDIF 3710 ENDIF 3720 UNTIL L0=-3 OR L0=0 3730 UNTIL K9<1 3740 IF K8=1 THEN 3750 FOR I=1 TO 18 3760 EXEC GP(D2$,K3,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I)) 3770 K3=K3+1 3780 IF K3=K2 THEN EXIT 3790 NEXT I 3800 EXEC SY 3810 ENDIF 3820 UNTIL K9=0 OR K9=-8 3830 IF K9=-8 THEN 3840 CLEAR 3850 EXEC UH 3860 H5=1;I1=2 3870 EXEC IN(1) 3880 ENDIF 3890 ENDPROC 3900 PROC SY 3910 E8(4)=L2;E8(8)=I0;F0(2)=I4;G1(1)=L3 3920 OPEN E2$,W 3930 EXEC FE(3,1,E2$) 3940 PUT E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9) 3950 EXEC FE(3,2,E2$) 3960 PUT E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9) 3970 EXEC FE(3,3,E2$) 3980 PUT E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9) 3990 EXEC FE(3,4,E2$) 4000 PUT E2$,15:F5$(1),F5$(2),F5$(3) 4010 EXEC FE(3,5,E2$) 4020 PUT E2$,16:F5$(4),F5$(5),F5$(6) 4030 EXEC FE(3,6,E2$) 4040 CLOSE E2$ 4050 EXEC FE(3,7,E2$) 4060 ENDPROC 4070 PROC FI(L5,Q,L6,L7,L8,L9) 4080 M0=L6 DIV 16;L8=M0;I9=1;M1=L6 DIV 8;M2=L6 DIV 32 4090 REPEAT 4100 IF L7=L5(L8) OR M0=1 THEN EXIT 4110 M0=(M0+1) DIV 2;L8=L8+M0*(1-2*(L7<L5(L8))) 4120 IF L8<1 THEN L8=1 4130 IF L8>M1 THEN L8=M1 4140 UNTIL M0=0 4150 IF L5(L8)>L7 THEN L8=L8-1*(L8>1) 4160 L8=M2+L8*2-1 4170 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) 4180 EXEC FE(1,1,L9$) 4190 GET L9$,L8+1:Q(5,1),Q(5,2),Q(6,1),Q(6,2),Q(7,1),Q(7,2),Q(8,1),Q(8,2) 4200 EXEC FE(1,2,L9$) 4210 FOR L8=1 TO 8 4220 IF L7=Q(L8,1) THEN EXIT 4230 NEXT L8 4240 IF L8<>9 THEN I9=0 4250 ENDPROC 4260 PROC IT(Z,M3,M4) 4270 M0=M3 DIV 32 4280 FOR I=1 TO M0 4290 H=(I-1)*4+1 4300 GET M4$,I:Z(H),Z(H+1),Z(H+1),Z(H+2),Z(H+2),Z(H+3),Z(H+3) 4310 EXEC FE(5,1,M4$) 4320 NEXT I 4330 ENDPROC 4340 PROC KN(M5,M6) 4350 I9=1 4360 CASE M5 OF 4370 EXEC FI(M7,M8,M9,M6,N0,A6$) 4380 IF I9=0 THEN 4390 EXEC HF 4400 B4$=B0$ 4410 ENDIF 4420 WHEN J1 4430 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN 4440 EXEC FI(N2,M8,N4,M6,N5,A4$) 4450 IF I9=0 THEN 4460 EXEC HD 4470 B4$=A7$ 4480 ENDIF 4490 ENDIF 4500 WHEN J2 4510 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN 4520 EXEC FI(N7,M8,N8,M6,J9,B6$) 4530 IF I9=0 THEN 4540 EXEC HK 4550 B4$=F8$ 4560 ENDIF 4570 ENDIF 4580 ENDCASE 4590 IF I9=1 THEN 4600 B4$="Konto eksisterer ikke " 4610 ENDIF 4620 ENDPROC 4630 PROC SL(O0) 4640 CASE O0 OF 4650 STOP 4660 WHEN 3 4670 CURSOR 50,H5+3 4680 PRINT B7$(1:28) 4690 WHEN 5 4700 CURSOR 4,H5+3 4710 PRINT B7$ 4720 ENDCASE 4730 ENDPROC 4740 PROC FO 4750 I5=LEN(F3$) 4760 IF I5=0 THEN F3$="0+" 4770 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN F3$=F3$+"+" 4780 ENDPROC 4790 PROC UH 4800 CURSOR 35,1 4810 PRINT "Kasserapport";TAB(30);"Dato:" 4820 CURSOR 72,1 4830 PRINT J6 4840 CURSOR 1,3 4850 PRINT " Nr Bilag Tekst";TAB(38);"Konto Entre. Debet Kredit"; 4860 PRINT " Kode" 4870 ENDPROC 4880 PROC UL(O1,O2,O3,O31,O4,O5,O11) 4890 O32$=O31$;O33$=O4$ 4900 CURSOR 1,H5+3 4910 PRINT USING "###":H5; 4920 EXEC LU(O2,O3,O1,O32$,O33$,O5,O11) 4930 ENDPROC 4940 PROC FE(O6,O7,O8) 4950 IF STATUS(O8$)<>0 THEN 4960 PRINT STATUS(O8$),O6,O7,O8$ 4970 STOP 4980 ENDIF 4990 ENDPROC 5000 PROC HD 5010 J7=M8(N5,2) 5020 GET D0$,J7:O9,A7$,A8$,A9$ 5030 EXEC FE(8,2,D0$) 5040 IF O9<>M8(N5,1) THEN STOP 5050 GET D0$,J7+1:B1$,B2$,B3$,P0,C5$ 5060 EXEC FE(8,3,D0$) 5070 GET D0$,J7+2:B5$,C0$,P1,P2 5080 EXEC FE(8,4,D0$) 5090 GET D0$,J7+3:C1$,C3$,C4$ 5100 EXEC FE(8,5,D0$) 5110 ENDPROC 5120 PROC TU(P3,P4,P5,P6) 5130 C6$=P3$;B8$=P4$ 5140 EXEC CA(5,C6$,B9$,B8$) 5150 P4$=B8$ 5160 IF P5=0 THEN P4$=P4$(1:13) 5170 IF P5=1 AND P4$(LEN(P4$))="+" THEN P4$(LEN(P4$))=" " 5180 IF P6=1 THEN P4$=P4$(4:LEN(P4$)-3) 5190 ENDPROC 5200 PROC NR(P7) 5210 P=0;H4=0;I8=0;I5=LEN(P7$) 5220 CASE I5 OF 5230 FOR I=1 TO I5 5240 P8=INT(ORD(P7$(I))-48) 5250 IF P8=>0 AND P8<10 THEN 5260 P=P*10+P8 5270 ELSE 5280 H4=1 5290 ENDIF 5300 NEXT I 5310 I8=P DIV 10000;KTAL9=P DIV 1000 5320 IF KTAL9=J2 THEN I8=KTAL9 5330 WHEN 0 5340 P=-1 5350 WHEN 1 5360 CASE P7$ OF 5370 P=INT(ORD(P7$)-48) 5380 WHEN "d","D" 5390 P=-2 5400 WHEN "a","A" 5410 P=-3 5420 WHEN "j","J" 5430 P=-7 5440 WHEN "n","N" 5450 P=-8 5460 ENDCASE 5470 ENDCASE 5480 ENDPROC 5490 PROC HF 5500 J7=M8(N0,2) 5510 GET C9$,J7:P9,B0$ 5520 EXEC FE(3,2,C9$) 5530 IF P9<>M8(N0,1) THEN STOP 5540 GET C9$,J7+1:G0$,D7$,D8$ 5550 EXEC FE(3,3,C9$) 5560 GET C9$,J7+2:E6$,D9$,E0$ 5570 EXEC FE(3,4,C9$) 5580 ENDPROC 5590 PROC BF 5600 REPEAT 5610 CLEAR 5620 CURSOR 21,1 5630 PRINT "Kasserapport afstemning" 5640 CURSOR 66,1 5650 PRINT "Dato :";J6 5660 CURSOR 21,3 5670 PRINT "Differencer Indtastede saldi" 5680 FOR I=1 TO 6 5690 EXEC CA(1,F5$(I),F9$(I),F3$) 5700 CURSOR 1,I+4 5710 PRINT I;J5$(I) 5720 CURSOR 19,I+4 5730 EXEC TU(F3$,B8$,1,0) 5740 PRINT B8$ 5750 CURSOR 36,I+4 5760 EXEC TU(F9$(I),B8$,1,0) 5770 PRINT B8$ 5780 NEXT I 5790 CURSOR 4,12 5800 PRINT "Kontroller dine saldi !" 5810 REPEAT 5820 CURSOR 4,14 5830 PRINT "Hvilken er forkert (0:ingen,1-6)" 5840 CURSOR 25,14 5850 INPUT D5$ 5860 EXEC NR(D5$) 5870 UNTIL -1<P AND P<7 AND H4=0 5880 IF P<>0 THEN 5890 REPEAT 5900 REPEAT 5910 CURSOR 1,16 5920 PRINT P;J5$(P);" (tast ændret saldo)" 5930 CURSOR 19,16 5940 INPUT F3$ 5950 UNTIL LEN(F3$)>0 5960 EXEC FO 5970 EXEC CA(6,F3$,B9$,B8$) 5980 UNTIL FLAG=0 5990 F9$(P)=F3$ 6000 IF P MOD 2=0 THEN F9$(P)=F3$(1:LEN(F3$)-1)+"-" 6010 Q0=0 6020 ELSE 6030 FOR I=1 TO 6 6040 EXEC CA(1,F5$(I),F9$(I),F3$) 6050 EXEC CA(4,F3$,B9$,B9$) 6060 IF SI<>0 THEN EXIT 6070 NEXT I 6080 P=-7;Q0=-1 6090 IF SI=0 THEN 6100 REPEAT 6110 CURSOR 4,16 6120 PRINT "Ønskes ændringer (J/N)" 6130 CURSOR 22,16 6140 INPUT A$ 6150 EXEC NR(A$) 6160 UNTIL (P=-7 OR P=-8) AND H4=0 6170 ENDIF 6180 IF P=-7 THEN 6190 EXEC RE 6200 Q0=0 6210 ENDIF 6220 ENDIF 6230 UNTIL Q0=-1 6240 ENDPROC 6250 PROC HU(Q1,Q2) 6260 EXEC DU(Q1,D6$) 6280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10) 6290 PRINT TAB(67);DV$;" " 6300 PRINT TAB(9);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$; 6310 PRINT TAB(61); 6320 PRINT USING "Side:####":Q2 6330 PRINT " " 6340 PRINT TAB(3);"Bilag";TAB(12);"Tekst";TAB(38);"Konto";TAB(45);"Entre."; 6350 PRINT TAB(57);"Debet";TAB(68);"Kredit";TAB(75);"Kode" 6360 PRINT TAB(3);A2$ 6370 ENDPROC 6380 PROC LU(Q3,Q4,Q5,Q6,Q7,Q8,Q15) 6390 R5=0 6400 IF Q7$(LEN(Q7$))="+" THEN R5=1 6410 IF Q3<>-1 THEN PRINT USING "#######":Q3; 6420 IF Q4<10 AND Q4>0 THEN Q6$=E5$(Q4)+B7$(1:15) 6430 IF Q4<>0 THEN PRINT TAB(12);Q6$; 6440 PRINT TAB(37); 6450 PRINT USING "###### ######":Q5,Q15; 6460 EXEC TU(Q7$,B8$,0,0) 6470 PRINT TAB(52+11*(R5=0));B8$;TAB(77); 6480 PRINT USING "##":Q8 6490 ENDPROC 6500 PROC DU(Q9,R0) 6510 R1=Q9 6520 R0$=" " 6530 FOR J=8 TO 1 STEP -1 6540 R0$(J)="." 6550 IF J MOD 3<>0 THEN R0$(J)=CHR(R1 MOD 10+48);R1=R1 DIV 10 6560 NEXT J 6570 ENDPROC 6580 PROC UD(R2,R3) 6590 IF R3=36 OR R3=0 THEN 6600 R2=R2+1 6610 EXEC HU(R4,R2) 6620 R3=0 6630 ENDIF 6640 R3=R3+1 6650 EXEC LU(H7,I7,H6,E3$,F4$,H8,H16) 6660 ENDPROC 6670 PROC MO(R6,R7) 6680 I5=LEN(R7$) 6690 R6$=R7$(1:I5-1)+"+" 6700 IF R7$(I5)="+" THEN R6$=R7$(1:I5-1)+"-" 6710 ENDIF 6720 ENDPROC 6730 PROC GB 6740 J7=L3;J7=J7+1 6750 EXEC GP(D3$,J7,H6,L4,H7,I7,E3$,F3$,1,H16) 6760 L3=J7 6770 ENDPROC 6780 PROC BU 6790 FOR I=R8 TO 36 6800 PRINT " " 6810 NEXT I 6820 PRINT " " 6830 PRINT TAB(3);A2$ 6840 EXEC TU(A1$,B8$,0,0) 6850 PRINT TAB(10);CHR(14);"Difference";CHR(15); 6860 PRINT TAB(45+11*(B8$(LEN(B8$))="-"));B8$ 6870 PRINT TAB(3);A2$ 6880 PRINT " " 6890 PRINT " " 6900 ENDPROC 6910 PROC UB 6920 CLEAR 6930 REPEAT 6940 CURSOR 8,13 6950 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$ 6960 UNTIL ORD(A$)=255 6965 OUTPUT P 6970 ENDPROC 6980 C2$="P641220:SYSTEM1" 6990 OPEN C2$,R 7000 EXEC FE(9,1,C2$) 7010 GET C2$,1:M9,N4,N8 7020 EXEC FE(9,2,C2$) 7030 GET C2$,2:R9,S0,S1 7040 EXEC FE(9,3,C2$) 7050 GET C2$,4:S2,S3,S4,N1 7060 EXEC FE(9,4,C2$) 7070 GET C2$,5:N6 7080 EXEC FE(9,5,C2$) 7090 GET C2$,6:S5,S6,S7 7100 EXEC FE(9,6,C2$) 7110 GET C2$,8:S8,S9,T0,J1 7120 EXEC FE(9,7,C2$) 7130 GET C2$,9:J2,J11,J12,J13 7140 EXEC FE(9,8,C2$) 7150 GET C2$,10:E7$ 7160 EXEC FE(9,9,C2$) 7170 GET C2$,11:A6$ 7180 EXEC FE(9,10,C2$) 7190 GET C2$,12:A4$ 7200 EXEC FE(9,11,C2$) 7210 GET C2$,13:B6$ 7220 EXEC FE(9,12,C2$) 7230 GET C2$,15:C9$ 7240 EXEC FE(9,13,C2$) 7250 GET C2$,16:D0$ 7260 EXEC FE(9,14,C2$) 7270 GET C2$,17:D1$ 7280 EXEC FE(9,15,C2$) 7290 GET C2$,19:D2$ 7300 EXEC FE(9,16,C2$) 7310 GET C2$,21:D3$ 7320 EXEC FE(9,17,C2$) 7330 GET C2$,36:E2$ 7340 EXEC FE(9,18,C2$) 7350 GET C2$,37:E12$ 7360 EXEC FE(99,1,C2$) 7370 GET C2$,38:E13$ 7380 EXEC FE(99,2,C2$) 7390 GET C2$,39:E14$ 7400 EXEC FE(99,3,C2$) 7410 GET C2$,43:J14,J15,J16 7420 EXEC FE(99,4,C2$) 7430 CLOSE C2$ 7440 EXEC FE(9,19,C2$) 7450 DIM M7(M9 DIV 8),N2(N4 DIV 8),N7(N8 DIV 8),N11(J12 DIV 8),N12(J13+J14) 7460 DIM M8(8,2),J5$(6,14),N13$(J13+J14) 7470 E2$=E7$+E2$ 7480 OPEN E2$,R 7490 EXEC FE(9,20,E2$) 7500 GET E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9) 7510 EXEC FE(9,21,E2$) 7520 FOR I=1 TO 6 7530 J=(I-1)*3+1 7540 GET E2$,I+5:E5$(J),E5$(J+1),E5$(J+2) 7550 EXEC FE(9,22,E2$) 7560 NEXT I 7570 GET E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9) 7580 EXEC FE(9,23,E2$) 7590 GET E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9) 7600 EXEC FE(9,24,E2$) 7610 GET E2$,15:F5$(1),F5$(2),F5$(3) 7620 EXEC FE(9,25,E2$) 7630 GET E2$,16:F5$(4),F5$(5),F5$(6) 7640 EXEC FE(9,26,E2$) 7650 GET E2$,20:DV$ 7660 EXEC FE(9,40,E2$) 7670 CLOSE E2$ 7680 EXEC FE(9,27,E2$) 7690 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$ 7700 D2$=E7$+D2$;D3$=E7$+D3$;E12$=E7$+E12$;E13$=E7$+E13$;E14$=E7$+E14$ 7710 OPEN E12$,R 7720 EXEC FE(99,5,E12$) 7730 OPEN E13$,R 7740 EXEC FE(99,6,E13$) 7750 OPEN E14$,R 7760 EXEC FE(99,7,E14$) 7770 OPEN A6$,R 7780 EXEC FE(9,28,A6$) 7790 OPEN A4$,R 7800 EXEC FE(9,29,A4$) 7810 OPEN B6$,R 7820 EXEC FE(9,30,B6$) 7830 OPEN C9$,R 7840 EXEC FE(9,31,C9$) 7850 OPEN D0$,R 7860 EXEC FE(9,32,D0$) 7870 OPEN D1$,R 7880 EXEC FE(9,33,D1$) 7890 OPEN D2$,W 7900 EXEC FE(9,34,D2$) 7910 EXEC IT(M7,M9,A6$) 7920 EXEC IT(N2,N4,A4$) 7930 EXEC IT(N7,N8,B6$) 7940 EXEC IT(N11,J12,E13$) 7950 FOR X=1 TO J13+J14 7960 GET E14$,X:N12(X),N13$(X) 7970 EXEC FE(99,8,E14$) 7980 NEXT X 7990 J5$(1)="Kasse debet ";J5$(2)="Kasse kredit ";J5$(3)="Bank debet " 8000 J5$(4)="Bank kredit ";J5$(5)="Giro debet ";J5$(6)="Giro kredit " 8010 B7$=" ";B7$=B7$+B7$ 8020 B9$="0+";A1$="0+";A2$="--------------------------------------" 8030 I1=0;A2$=A2$+A2$;L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(2);L3=G1(1) 8040 H5=1;J6=R4;R8=0;L4=0;B8$="0+";I3=I4+1;I2=I3;K3=1;K2=1 8050 CLEAR 8060 EXEC UH 8070 EXEC IN(1) 8080 IF J4=0 THEN 8090 EXEC BF 8100 EXEC UB 8110 OPEN D3$,W 8120 EXEC FE(9,37,D3$) 8130 FOR I=1 TO I4 8140 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16) 8150 IF H6<>0 THEN 8160 EXEC MO(F3$,F4$) 8170 EXEC GB 8180 EXEC CA(0,F3$,A1$,A1$) 8190 EXEC UD(L2,R8) 8200 ENDIF 8210 NEXT I 8220 EXEC CA(0,F5$(1),F5$(2),F3$) 8230 EXEC CA(0,F3$,A1$,A1$) 8240 H6=S5;I7=24;H7=L2;H8=0;H16=1000000 8250 EXEC GB 8260 I7=10;H7=-1;F4$=F3$;E3$="Samlet kassepostering" 8270 EXEC UD(L2,R8) 8280 EXEC CA(0,F5$(3),F5$(4),F3$) 8290 EXEC CA(0,F3$,A1$,A1$) 8300 I7=24;H7=L2;H6=S7 8310 EXEC GB 8320 F4$=F3$;I7=10;H7=-1;E3$="Samlet bankpostering" 8330 EXEC UD(L2,R8) 8340 EXEC CA(0,F5$(5),F5$(6),F3$) 8350 EXEC CA(0,F3$,A1$,A1$) 8360 I7=24;H7=L2;H6=S6 8370 EXEC GB 8380 E3$="Samlet giropostering";F4$=F3$;I7=10;H7=-1 8390 EXEC UD(L2,R8) 8400 EXEC CA(4,A1$,B9$,B9$) 8410 IF SI<>0 THEN 8420 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport" 8430 EXEC MO(F3$,A1$) 8440 EXEC GB 8450 EXEC CA(0,F3$,A1$,A1$) 8460 F4$=F3$;H7=-1 8470 EXEC UD(L2,R8) 8480 ENDIF 8490 EXEC BU 8500 CLOSE D3$ 8510 EXEC FE(9,38,D3$) 8520 I4=0 8530 FOR I=1 TO 6 8540 F5$(I)="0+" 8550 NEXT I 8560 ELSE 8570 REPEAT 8580 CURSOR 3,23 8590 PRINT "Ønskes kontroludskrift J/N ";B7$(1:45) 8600 CURSOR 30,23 8610 INPUT A$ 8620 EXEC NR(A$) 8630 UNTIL P=-7 OR P=-8 8640 IF P=-7 THEN 8650 T1=L2 8660 EXEC UB 8670 FOR I=1 TO I4 8680 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16) 8690 EXEC UD(T1,R8) 8700 EXEC CA(1,A1$,F4$,A1$) 8710 NEXT I 8720 I7=10;H7=-1;H8=0;H6=0 8730 FOR I=1 TO 6 8740 E3$=J5$(I);F4$=F5$(I) 8750 EXEC UD(T1,R8) 8760 EXEC CA(0,A1$,F4$,A1$) 8770 NEXT I 8780 EXEC BU 8790 ENDIF 8800 ENDIF 8810 EXEC SY 8820 CLOSE D2$ 8830 EXEC FE(9,39,D2$) 8840 CLOSE 8850 OUTPUT T 8860 CHAIN "P641210:OPSTART"
0x0000…004d Line {l1=0x4b, l2=»0100 DIM OP1$(12),OP2$(12),RES$(15),A1$(12),A2$(77),A3$(25),A4$(17),A5$(17)«, l3=0x4b}
0x004d…0096 Line {l1=0x47, l2=»0110 DIM A6$(17),A7$(25),A8$(12),A9$(1),B0$(25),DV$(10),B1$(12),B2$(12)«, l3=0x47}
0x0096…00df Line {l1=0x47, l2=»0120 DIM B3$(12),B4$(29),B5$(25),B6$(17),B7$(77),B8$(14),B9$(12),C0$(9)«, l3=0x47}
0x00df…012c Line {l1=0x4b, l2=»0130 DIM C1$(20),C2$(17),C3$(12),C4$(12),C5$(1),A$(2),C6$(12),C7$(1),C8$(1)«, l3=0x4b}
0x012c…0174 Line {l1=0x46, l2=»0140 DIM C9$(17),D0$(17),D1$(17),D2$(17),D3$(17),D4$(26),D5$(7),D6$(8)«, l3=0x46}
0x0174…01be Line {l1=0x48, l2=»0150 DIM D7$(12),D8$(12),D9$(12),E0$(12),E1$(12),E2$(17),E3$(25),E4$(25)«, l3=0x48}
0x01be…020b Line {l1=0x4b, l2=»0160 DIM E5$(18,10),E6$(1),E7$(6),E8(9),E9$(17),F0(9),F1$(1),F2$(1),F3$(12)«, l3=0x4b}
0x020b…0256 Line {l1=0x49, l2=»0170 DIM F4$(12),F5$(6,12),F6$(12),F7$(12),F8$(25),F9$(6,12),G0$(1),G1(9)«, l3=0x49}
0x0256…02a2 Line {l1=0x4a, l2=»0180 DIM G2(18),G3(18),G4(18),G5(18),G6$(18,12),G7(18),G8$(18,25),O32$(12)«, l3=0x4a}
0x02a2…02d8 Line {l1=0x34, l2=»0190 DIM O33$(12),G12(18),E12$(17),E13$(17),E14$(17)«, l3=0x34}
0x02d8…02f3 Line {l1=0x19, l2=»0200 PROC CA(G9,H0,H1,H2)«, l3=0x19}
0x02f3…0330 Line {l1=0x3b, l2=»0210 OP1$=H0$;OP2$=H1$;RES$=H2$;SI=0;FLAG=0;ART=G9-6*(G9>5)«, l3=0x3b}
0x0330…034a Line {l1=0x18, l2=»0220 CALL "P641210:REGN"«, l3=0x18}
0x034a…0359 Line {l1=0x0d, l2=»0230 H2$=RES$«, l3=0x0d}
0x0359…0380 Line {l1=0x25, l2=»0240 IF G9<>6 THEN IF FLAG THEN STOP «, l3=0x25}
0x0380…038f Line {l1=0x0d, l2=»0250 ENDPROC «, l3=0x0d}
0x038f…03a1 Line {l1=0x10, l2=»0260 PROC IN(H3)«, l3=0x10}
0x03a1…03af Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x03af…03c1 Line {l1=0x10, l2=»0280 CASE H3 OF «, l3=0x10}
0x03c1…03cd Line {l1=0x0a, l2=»0290 STOP «, l3=0x0a}
0x03cd…03da Line {l1=0x0b, l2=»0300 WHEN 1«, l3=0x0b}
0x03da…03e8 Line {l1=0x0c, l2=»0310 REPEAT «, l3=0x0c}
0x03e8…03f6 Line {l1=0x0c, l2=»0320 REPEAT «, l3=0x0c}
0x03f6…0408 Line {l1=0x10, l2=»0330 CURSOR 3,23«, l3=0x10}
0x0408…0457 Line {l1=0x4d, l2=»0340 PRINT "Bilag (0:Færdig, RETURN:Automatisk, D:Ny dato, A:Annuller)";«, l3=0x4d}
0x0457…046d Line {l1=0x14, l2=»0350 PRINT B7$(1:12)«, l3=0x14}
0x046d…047f Line {l1=0x10, l2=»0360 CURSOR 8,23«, l3=0x10}
0x047f…048f Line {l1=0x0e, l2=»0370 INPUT D5$«, l3=0x0e}
0x048f…04a2 Line {l1=0x11, l2=»0380 EXEC NR(D5$)«, l3=0x11}
0x04a2…04bd Line {l1=0x19, l2=»0390 UNTIL P=>-3 AND H4=0«, l3=0x19}
0x04bd…04ef Line {l1=0x30, l2=»0400 IF P<>0 AND H5=19 AND P<>-2 AND P<>-3 THEN «, l3=0x30}
0x04ef…04fc Line {l1=0x0b, l2=»0410 CLEAR «, l3=0x0b}
0x04fc…050a Line {l1=0x0c, l2=»0420 EXEC UH«, l3=0x0c}
0x050a…0515 Line {l1=0x09, l2=»0430 H5=1«, l3=0x09}
0x0515…053c Line {l1=0x25, l2=»0440 EXEC UL(H6,H7,I6,E4$,F4$,H8,H16)«, l3=0x25}
0x053c…054a Line {l1=0x0c, l2=»0450 EXEC SY«, l3=0x0c}
0x054a…0558 Line {l1=0x0c, l2=»0460 H5=H5+1«, l3=0x0c}
0x0558…0565 Line {l1=0x0b, l2=»0470 ENDIF «, l3=0x0b}
0x0565…0573 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x0573…057f Line {l1=0x0a, l2=»0490 H9=-1«, l3=0x0a}
0x057f…05ad Line {l1=0x2c, l2=»0500 IF I2+3>R9 OR I2+F0(1)+G1(1)+9>S1 THEN «, l3=0x2c}
0x05ad…05bb Line {l1=0x0c, l2=»0510 REPEAT «, l3=0x0c}
0x05bb…05cd Line {l1=0x10, l2=»0520 CURSOR 3,23«, l3=0x10}
0x05cd…0615 Line {l1=0x46, l2=»0530 PRINT "Ikke plads til flere posteringer , tast RETURN "+B7$(1:30)«, l3=0x46}
0x0615…0628 Line {l1=0x11, l2=»0540 CURSOR 50,23«, l3=0x11}
0x0628…0637 Line {l1=0x0d, l2=»0550 INPUT A$«, l3=0x0d}
0x0637…0649 Line {l1=0x10, l2=»0560 EXEC NR(A$)«, l3=0x10}
0x0649…065a Line {l1=0x0f, l2=»0570 UNTIL P=-1«, l3=0x0f}
0x065a…0664 Line {l1=0x08, l2=»0580 P=0«, l3=0x08}
0x0664…0671 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x0671…0682 Line {l1=0x0f, l2=»0600 CASE P OF «, l3=0x0f}
0x0682…0696 Line {l1=0x12, l2=»0610 CURSOR 1,H5+3«, l3=0x12}
0x0696…06b1 Line {l1=0x19, l2=»0620 PRINT USING "###":H5«, l3=0x19}
0x06b1…06cc Line {l1=0x19, l2=»0630 H7=P;P=-4;I0=H7;H3=2«, l3=0x19}
0x06cc…06e0 Line {l1=0x12, l2=»0640 CURSOR 4,H5+3«, l3=0x12}
0x06e0…06ff Line {l1=0x1d, l2=»0650 PRINT USING "#######":H7«, l3=0x1d}
0x06ff…070c Line {l1=0x0b, l2=»0660 WHEN 0«, l3=0x0b}
0x070c…071c Line {l1=0x0e, l2=»0670 H3=7;P=-4«, l3=0x0e}
0x071c…0735 Line {l1=0x17, l2=»0680 IF I1=2 THEN H3=-1«, l3=0x17}
0x0735…0743 Line {l1=0x0c, l2=»0690 WHEN -1«, l3=0x0c}
0x0743…075b Line {l1=0x16, l2=»0700 I0=I0+1;P=I0;H9=0«, l3=0x16}
0x075b…0769 Line {l1=0x0c, l2=»0710 WHEN -2«, l3=0x0c}
0x0769…0777 Line {l1=0x0c, l2=»0720 REPEAT «, l3=0x0c}
0x0777…0789 Line {l1=0x10, l2=»0730 CURSOR 3,23«, l3=0x10}
0x0789…07b9 Line {l1=0x2e, l2=»0740 PRINT "Ny dato (ååmmdd)";B7$(1:54)«, l3=0x2e}
0x07b9…07cc Line {l1=0x11, l2=»0750 CURSOR 11,23«, l3=0x11}
0x07cc…07dc Line {l1=0x0e, l2=»0760 INPUT D5$«, l3=0x0e}
0x07dc…07ef Line {l1=0x11, l2=»0770 EXEC NR(D5$)«, l3=0x11}
0x07ef…0830 Line {l1=0x3f, l2=»0780 UNTIL I8=>80 AND (P MOD 10000) DIV 100<13 AND P MOD 100<32«, l3=0x3f}
0x0830…083b Line {l1=0x09, l2=»0790 J6=P«, l3=0x09}
0x083b…0849 Line {l1=0x0c, l2=»0800 EXEC UH«, l3=0x0c}
0x0849…0857 Line {l1=0x0c, l2=»0810 WHEN -3«, l3=0x0c}
0x0857…086c Line {l1=0x13, l2=»0820 IF I2>I3 THEN «, l3=0x13}
0x086c…0882 Line {l1=0x14, l2=»0830 I0=I0-1;H5=H5-1«, l3=0x14}
0x0882…0893 Line {l1=0x0f, l2=»0840 EXEC SL(5)«, l3=0x0f}
0x0893…08ab Line {l1=0x16, l2=»0850 EXEC ÆN(1,F4$,H8)«, l3=0x16}
0x08ab…08bf Line {l1=0x12, l2=»0860 I2=I3;I4=I3-1«, l3=0x12}
0x08bf…08cc Line {l1=0x0b, l2=»0870 ENDIF «, l3=0x0b}
0x08cc…08db Line {l1=0x0d, l2=»0880 ENDCASE «, l3=0x0d}
0x08db…08ed Line {l1=0x10, l2=»0890 UNTIL H9=-1«, l3=0x10}
0x08ed…08fe Line {l1=0x0f, l2=»0900 UNTIL P=-4«, l3=0x0f}
0x08fe…090b Line {l1=0x0b, l2=»0910 WHEN 2«, l3=0x0b}
0x090b…0919 Line {l1=0x0c, l2=»0920 REPEAT «, l3=0x0c}
0x0919…0927 Line {l1=0x0c, l2=»0930 REPEAT «, l3=0x0c}
0x0927…0939 Line {l1=0x10, l2=»0940 CURSOR 3,23«, l3=0x10}
0x0939…0971 Line {l1=0x36, l2=»0950 PRINT "Tekst"+B7$(1:27)+"(max 25 tegn)"+B7$(1:32)«, l3=0x36}
0x0971…0983 Line {l1=0x10, l2=»0960 CURSOR 9,23«, l3=0x10}
0x0983…0993 Line {l1=0x0e, l2=»0970 INPUT D4$«, l3=0x0e}
0x0993…09a5 Line {l1=0x10, l2=»0980 I5=LEN(D4$)«, l3=0x10}
0x09a5…09b8 Line {l1=0x11, l2=»0990 UNTIL I5<=25«, l3=0x11}
0x09b8…09cc Line {l1=0x12, l2=»1000 IF I5<3 THEN «, l3=0x12}
0x09cc…09df Line {l1=0x11, l2=»1010 EXEC NR(D4$)«, l3=0x11}
0x09df…09eb Line {l1=0x0a, l2=»1020 ELSE «, l3=0x0a}
0x09eb…09fb Line {l1=0x0e, l2=»1030 P=20;H4=0«, l3=0x0e}
0x09fb…0a08 Line {l1=0x0b, l2=»1040 ENDIF «, l3=0x0b}
0x0a08…0a35 Line {l1=0x2b, l2=»1050 UNTIL P=>0 AND P<21 AND H4=0 AND P<>10«, l3=0x2b}
0x0a35…0a43 Line {l1=0x0c, l2=»1060 E4$=B7$«, l3=0x0c}
0x0a43…0a57 Line {l1=0x12, l2=»1070 IF P<>0 THEN «, l3=0x12}
0x0a57…0a69 Line {l1=0x10, l2=»1080 I6=P MOD 10«, l3=0x10}
0x0a69…0a7d Line {l1=0x12, l2=»1090 IF I6=0 THEN «, l3=0x12}
0x0a7d…0a98 Line {l1=0x19, l2=»1100 P=10;E3$=D4$;E4$=E3$«, l3=0x19}
0x0a98…0aa4 Line {l1=0x0a, l2=»1110 ELSE «, l3=0x0a}
0x0aa4…0ac0 Line {l1=0x1a, l2=»1120 E4$=E5$(I6)+B7$(1:15)«, l3=0x1a}
0x0ac0…0ad4 Line {l1=0x12, l2=»1130 IF P>10 THEN «, l3=0x12}
0x0ad4…0ae2 Line {l1=0x0c, l2=»1140 REPEAT «, l3=0x0c}
0x0ae2…0af4 Line {l1=0x10, l2=»1150 CURSOR 3,23«, l3=0x10}
0x0af4…0b2c Line {l1=0x36, l2=»1160 PRINT "Tekst";B7$(1:16);"(max 14 tegn)"+B7$(1:43)«, l3=0x36}
0x0b2c…0b3e Line {l1=0x10, l2=»1170 CURSOR 9,23«, l3=0x10}
0x0b3e…0b4e Line {l1=0x0e, l2=»1180 INPUT D4$«, l3=0x0e}
0x0b4e…0b66 Line {l1=0x16, l2=»1190 UNTIL LEN(D4$)<15«, l3=0x16}
0x0b66…0b83 Line {l1=0x1b, l2=»1200 E4$(12,25)=D4$;E3$=E4$«, l3=0x1b}
0x0b83…0b90 Line {l1=0x0b, l2=»1210 ENDIF «, l3=0x0b}
0x0b90…0b9d Line {l1=0x0b, l2=»1220 ENDIF «, l3=0x0b}
0x0b9d…0bb2 Line {l1=0x13, l2=»1230 CURSOR 12,H5+3«, l3=0x13}
0x0bb2…0bc2 Line {l1=0x0e, l2=»1240 PRINT E4$«, l3=0x0e}
0x0bc2…0bcf Line {l1=0x0b, l2=»1250 ENDIF «, l3=0x0b}
0x0bcf…0bdf Line {l1=0x0e, l2=»1260 H3=3;I7=P«, l3=0x0e}
0x0bdf…0bec Line {l1=0x0b, l2=»1270 WHEN 3«, l3=0x0b}
0x0bec…0bfa Line {l1=0x0c, l2=»1280 REPEAT «, l3=0x0c}
0x0bfa…0c08 Line {l1=0x0c, l2=»1290 REPEAT «, l3=0x0c}
0x0c08…0c1a Line {l1=0x10, l2=»1300 CURSOR 3,23«, l3=0x10}
0x0c1a…0c4a Line {l1=0x2e, l2=»1310 PRINT "Konto (5 cifre)";B7$(1:54)«, l3=0x2e}
0x0c4a…0c5c Line {l1=0x10, l2=»1320 CURSOR 9,23«, l3=0x10}
0x0c5c…0c6c Line {l1=0x0e, l2=»1330 INPUT D5$«, l3=0x0e}
0x0c6c…0c7f Line {l1=0x11, l2=»1340 EXEC NR(D5$)«, l3=0x11}
0x0c7f…0ca5 Line {l1=0x24, l2=»1350 UNTIL H4=0 AND (I8<>0 AND I5=5)«, l3=0x24}
0x0ca5…0cb0 Line {l1=0x09, l2=»1360 H6=P«, l3=0x09}
0x0cb0…0cc5 Line {l1=0x13, l2=»1370 EXEC KN(I8,H6)«, l3=0x13}
0x0cc5…0cd8 Line {l1=0x11, l2=»1380 CURSOR 15,23«, l3=0x11}
0x0cd8…0d1a Line {l1=0x40, l2=»1390 PRINT "(Navn:";B7$(1:27);"Er konto rigtig (J/N) "«, l3=0x40}
0x0d1a…0d2d Line {l1=0x11, l2=»1400 CURSOR 22,23«, l3=0x11}
0x0d2d…0d3d Line {l1=0x0e, l2=»1410 PRINT B4$«, l3=0x0e}
0x0d3d…0d4b Line {l1=0x0c, l2=»1420 REPEAT «, l3=0x0c}
0x0d4b…0d5e Line {l1=0x11, l2=»1430 CURSOR 64,23«, l3=0x11}
0x0d5e…0d6d Line {l1=0x0d, l2=»1440 INPUT A$«, l3=0x0d}
0x0d6d…0d7f Line {l1=0x10, l2=»1450 EXEC NR(A$)«, l3=0x10}
0x0d7f…0d98 Line {l1=0x17, l2=»1460 UNTIL P=-7 OR P=-8«, l3=0x17}
0x0d98…0dc8 Line {l1=0x2e, l2=»1470 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1)«, l3=0x2e}
0x0dc8…0ddc Line {l1=0x12, l2=»1480 IF I9=1 THEN «, l3=0x12}
0x0ddc…0ded Line {l1=0x0f, l2=»1490 EXEC SL(5)«, l3=0x0f}
0x0ded…0e00 Line {l1=0x11, l2=»1500 H3=1;I0=I0-1«, l3=0x11}
0x0e00…0e0c Line {l1=0x0a, l2=»1510 ELSE «, l3=0x0a}
0x0e0c…0e21 Line {l1=0x13, l2=»1520 CURSOR 37,H5+3«, l3=0x13}
0x0e21…0e2c Line {l1=0x09, l2=»1530 H3=4«, l3=0x09}
0x0e2c…0e45 Line {l1=0x17, l2=»1540 IF I1=1 THEN H3=-1«, l3=0x17}
0x0e45…0e63 Line {l1=0x1c, l2=»1550 PRINT USING "######":H6«, l3=0x1c}
0x0e63…0e70 Line {l1=0x0b, l2=»1560 ENDIF «, l3=0x0b}
0x0e70…0e7d Line {l1=0x0b, l2=»1570 WHEN 4«, l3=0x0b}
0x0e7d…0e8b Line {l1=0x0c, l2=»1580 REPEAT «, l3=0x0c}
0x0e8b…0e99 Line {l1=0x0c, l2=»1590 REPEAT «, l3=0x0c}
0x0e99…0eab Line {l1=0x10, l2=»1600 CURSOR 3,23«, l3=0x10}
0x0eab…0ee5 Line {l1=0x38, l2=»1610 PRINT "Entreprisekonto (5 cifre)";B7$(1:44)«, l3=0x38}
0x0ee5…0ef8 Line {l1=0x11, l2=»1620 CURSOR 19,23«, l3=0x11}
0x0ef8…0f08 Line {l1=0x0e, l2=»1630 INPUT D5$«, l3=0x0e}
0x0f08…0f1b Line {l1=0x11, l2=»1640 EXEC NR(D5$)«, l3=0x11}
0x0f1b…0f49 Line {l1=0x2c, l2=»1650 UNTIL H4=0 AND (I8<>0 AND I5=5) OR P=-1«, l3=0x2c}
0x0f49…0f60 Line {l1=0x15, l2=»1660 H16=1000000;I9=0«, l3=0x15}
0x0f60…0f79 Line {l1=0x17, l2=»1670 IF P=-1 THEN EXIT «, l3=0x17}
0x0f79…0fa9 Line {l1=0x2e, l2=»1680 H16=P;B4$="Konto eksisterer ikke";F8$=B7$«, l3=0x2e}
0x0fa9…0fda Line {l1=0x2f, l2=»1690 EXEC FI(N11,M8,J12,(H16 DIV 100),J19,E13$)«, l3=0x2f}
0x0fda…0fee Line {l1=0x12, l2=»1700 IF I9=0 THEN «, l3=0x12}
0x0fee…1007 Line {l1=0x17, l2=»1710 FOR X=1 TO J13+J14«, l3=0x17}
0x1007…1012 Line {l1=0x09, l2=»1720 I9=0«, l3=0x09}
0x1012…104b Line {l1=0x37, l2=»1730 IF (H16 MOD 100)=N12(X) AND N13$(X)="0" THEN EXIT «, l3=0x37}
0x104b…1056 Line {l1=0x09, l2=»1740 I9=1«, l3=0x09}
0x1056…1063 Line {l1=0x0b, l2=»1750 NEXT X«, l3=0x0b}
0x1063…1077 Line {l1=0x12, l2=»1760 IF I9=0 THEN «, l3=0x12}
0x1077…1096 Line {l1=0x1d, l2=»1770 GET E12$,M8(J19,2)+1:B4$«, l3=0x1d}
0x1096…10b0 Line {l1=0x18, l2=»1780 EXEC FE(99,10,E12$)«, l3=0x18}
0x10b0…10cc Line {l1=0x1a, l2=»1790 GET E14$,X:P9,E6$,F8$«, l3=0x1a}
0x10cc…10e6 Line {l1=0x18, l2=»1800 EXEC FE(99,11,E14$)«, l3=0x18}
0x10e6…10f3 Line {l1=0x0b, l2=»1810 ENDIF «, l3=0x0b}
0x10f3…1100 Line {l1=0x0b, l2=»1820 ENDIF «, l3=0x0b}
0x1100…1112 Line {l1=0x10, l2=»1830 CURSOR 1,23«, l3=0x10}
0x1112…1134 Line {l1=0x20, l2=»1840 PRINT USING " ###### ":H16;«, l3=0x20}
0x1134…1165 Line {l1=0x2f, l2=»1850 PRINT B4$;" ";F8$;TAB(65);"Rigtig (J/N)"«, l3=0x2f}
0x1165…1173 Line {l1=0x0c, l2=»1860 REPEAT «, l3=0x0c}
0x1173…1186 Line {l1=0x11, l2=»1870 CURSOR 71,23«, l3=0x11}
0x1186…1195 Line {l1=0x0d, l2=»1880 INPUT A$«, l3=0x0d}
0x1195…11a7 Line {l1=0x10, l2=»1890 EXEC NR(A$)«, l3=0x10}
0x11a7…11c0 Line {l1=0x17, l2=»1900 UNTIL P=-7 OR P=-8«, l3=0x17}
0x11c0…11f0 Line {l1=0x2e, l2=»1910 UNTIL P=-7 AND ((I9=0 AND I1=1) OR I1<>1)«, l3=0x2e}
0x11f0…1204 Line {l1=0x12, l2=»1920 IF I9=1 THEN «, l3=0x12}
0x1204…1215 Line {l1=0x0f, l2=»1930 EXEC SL(5)«, l3=0x0f}
0x1215…1228 Line {l1=0x11, l2=»1940 H3=1;I0=I0-1«, l3=0x11}
0x1228…1234 Line {l1=0x0a, l2=»1950 ELSE «, l3=0x0a}
0x1234…1249 Line {l1=0x13, l2=»1960 CURSOR 44,H5+3«, l3=0x13}
0x1249…1254 Line {l1=0x09, l2=»1970 H3=5«, l3=0x09}
0x1254…126d Line {l1=0x17, l2=»1980 IF I1=1 THEN H3=-1«, l3=0x17}
0x126d…128c Line {l1=0x1d, l2=»1990 PRINT USING "######":H16«, l3=0x1d}
0x128c…1299 Line {l1=0x0b, l2=»2000 ENDIF «, l3=0x0b}
0x1299…12a6 Line {l1=0x0b, l2=»2010 WHEN 5«, l3=0x0b}
0x12a6…12b4 Line {l1=0x0c, l2=»2020 REPEAT «, l3=0x0c}
0x12b4…12c2 Line {l1=0x0c, l2=»2030 REPEAT «, l3=0x0c}
0x12c2…12d0 Line {l1=0x0c, l2=»2040 REPEAT «, l3=0x0c}
0x12d0…12e2 Line {l1=0x10, l2=»2050 CURSOR 3,23«, l3=0x10}
0x12e2…132d Line {l1=0x49, l2=»2060 PRINT "Beløb";B7$(1:14);"(Kredit indtastes med efterstillet minus)";«, l3=0x49}
0x132d…1343 Line {l1=0x14, l2=»2070 PRINT B7$(1:17)«, l3=0x14}
0x1343…1355 Line {l1=0x10, l2=»2080 CURSOR 8,23«, l3=0x10}
0x1355…1365 Line {l1=0x0e, l2=»2090 INPUT F3$«, l3=0x0e}
0x1365…137c Line {l1=0x15, l2=»2100 UNTIL LEN(F3$)>0«, l3=0x15}
0x137c…138a Line {l1=0x0c, l2=»2110 EXEC FO«, l3=0x0c}
0x138a…13a7 Line {l1=0x1b, l2=»2120 EXEC CA(6,F3$,B9$,B8$)«, l3=0x1b}
0x13a7…13ba Line {l1=0x11, l2=»2130 UNTIL FLAG=0«, l3=0x11}
0x13ba…13d7 Line {l1=0x1b, l2=»2140 EXEC CA(4,F3$,B9$,B9$)«, l3=0x1b}
0x13d7…13f4 Line {l1=0x1b, l2=»2150 UNTIL SI<>0 AND FLAG=0«, l3=0x1b}
0x13f4…1407 Line {l1=0x11, l2=»2160 F4$=F3$;SI=0«, l3=0x11}
0x1407…1418 Line {l1=0x0f, l2=»2170 EXEC SL(3)«, l3=0x0f}
0x1418…143d Line {l1=0x23, l2=»2180 IF F3$(LEN(F3$))="+" THEN SI=1«, l3=0x23}
0x143d…145c Line {l1=0x1d, l2=»2190 CURSOR 52+(SI=0)*11,H5+3«, l3=0x1d}
0x145c…1477 Line {l1=0x19, l2=»2200 EXEC TU(F4$,B8$,0,0)«, l3=0x19}
0x1477…1487 Line {l1=0x0e, l2=»2210 PRINT B8$«, l3=0x0e}
0x1487…1492 Line {l1=0x09, l2=»2220 H3=6«, l3=0x09}
0x1492…14ab Line {l1=0x17, l2=»2230 IF I1=1 THEN H3=-1«, l3=0x17}
0x14ab…14b8 Line {l1=0x0b, l2=»2240 WHEN 6«, l3=0x0b}
0x14b8…14c6 Line {l1=0x0c, l2=»2250 REPEAT «, l3=0x0c}
0x14c6…14d8 Line {l1=0x10, l2=»2260 CURSOR 3,23«, l3=0x10}
0x14d8…1520 Line {l1=0x46, l2=»2270 PRINT "Kode (0:Annullering, 1:Kasse, 2:Bank, 3:Giro)"+B7$(1:30)«, l3=0x46}
0x1520…1532 Line {l1=0x10, l2=»2280 CURSOR 7,23«, l3=0x10}
0x1532…1542 Line {l1=0x0e, l2=»2290 INPUT D5$«, l3=0x0e}
0x1542…1555 Line {l1=0x11, l2=»2300 EXEC NR(D5$)«, l3=0x11}
0x1555…1582 Line {l1=0x2b, l2=»2310 UNTIL (P>0 AND P<4) OR (P=0 AND I1<>1)«, l3=0x2b}
0x1582…1592 Line {l1=0x0e, l2=»2320 H8=P;H3=1«, l3=0x0e}
0x1592…15a6 Line {l1=0x12, l2=»2330 IF H8=0 THEN «, l3=0x12}
0x15a6…15b7 Line {l1=0x0f, l2=»2340 EXEC SL(5)«, l3=0x0f}
0x15b7…15c5 Line {l1=0x0c, l2=»2350 I0=I0-1«, l3=0x0c}
0x15c5…15d1 Line {l1=0x0a, l2=»2360 ELSE «, l3=0x0a}
0x15d1…15e6 Line {l1=0x13, l2=»2370 CURSOR 77,H5+3«, l3=0x13}
0x15e6…1600 Line {l1=0x18, l2=»2380 PRINT USING "##":H8«, l3=0x18}
0x1600…1615 Line {l1=0x13, l2=»2390 IF I1<>1 THEN «, l3=0x13}
0x1615…162d Line {l1=0x16, l2=»2400 EXEC ÆN(0,F4$,H8)«, l3=0x16}
0x162d…1641 Line {l1=0x12, l2=»2410 H5=H5+1;I3=I2«, l3=0x12}
0x1641…1672 Line {l1=0x2f, l2=»2420 EXEC GP(D2$,I2,H6,J6,H7,I7,E3$,F4$,H8,H16)«, l3=0x2f}
0x1672…1688 Line {l1=0x14, l2=»2430 I2=I2+1;I4=I2-1«, l3=0x14}
0x1688…1695 Line {l1=0x0b, l2=»2440 ENDIF «, l3=0x0b}
0x1695…16a2 Line {l1=0x0b, l2=»2450 ENDIF «, l3=0x0b}
0x16a2…16bb Line {l1=0x17, l2=»2460 IF I1=1 THEN H3=-1«, l3=0x17}
0x16bb…16c8 Line {l1=0x0b, l2=»2470 WHEN 7«, l3=0x0b}
0x16c8…16d3 Line {l1=0x09, l2=»2480 P=-7«, l3=0x09}
0x16d3…16f6 Line {l1=0x21, l2=»2490 IF I2+F0(1)+G1(1)+9<S1 THEN «, l3=0x21}
0x16f6…1704 Line {l1=0x0c, l2=»2500 REPEAT «, l3=0x0c}
0x1704…1716 Line {l1=0x10, l2=»2510 CURSOR 3,23«, l3=0x10}
0x1716…1745 Line {l1=0x2d, l2=»2520 PRINT "Ønskes afstemning J/N "+B7$(1:54)«, l3=0x2d}
0x1745…1758 Line {l1=0x11, l2=»2530 CURSOR 25,23«, l3=0x11}
0x1758…1767 Line {l1=0x0d, l2=»2540 INPUT A$«, l3=0x0d}
0x1767…1779 Line {l1=0x10, l2=»2550 EXEC NR(A$)«, l3=0x10}
0x1779…1792 Line {l1=0x17, l2=»2560 UNTIL P=-7 OR P=-8«, l3=0x17}
0x1792…179f Line {l1=0x0b, l2=»2570 ENDIF «, l3=0x0b}
0x179f…17ad Line {l1=0x0c, l2=»2580 EXEC SY«, l3=0x0c}
0x17ad…17b8 Line {l1=0x09, l2=»2590 J4=1«, l3=0x09}
0x17b8…17cc Line {l1=0x12, l2=»2600 IF P=-7 THEN «, l3=0x12}
0x17cc…17d7 Line {l1=0x09, l2=»2610 J4=0«, l3=0x09}
0x17d7…17ea Line {l1=0x11, l2=»2620 FOR I=1 TO 6«, l3=0x11}
0x17ea…17f8 Line {l1=0x0c, l2=»2630 REPEAT «, l3=0x0c}
0x17f8…1806 Line {l1=0x0c, l2=»2640 REPEAT «, l3=0x0c}
0x1806…1818 Line {l1=0x10, l2=»2650 CURSOR 3,23«, l3=0x10}
0x1818…1835 Line {l1=0x1b, l2=»2660 PRINT J5$(I);B7$(1:60)«, l3=0x1b}
0x1835…1848 Line {l1=0x11, l2=»2670 CURSOR 17,23«, l3=0x11}
0x1848…1858 Line {l1=0x0e, l2=»2680 INPUT F3$«, l3=0x0e}
0x1858…186f Line {l1=0x15, l2=»2690 UNTIL LEN(F3$)>0«, l3=0x15}
0x186f…187d Line {l1=0x0c, l2=»2700 EXEC FO«, l3=0x0c}
0x187d…189a Line {l1=0x1b, l2=»2710 EXEC CA(6,F3$,B9$,B8$)«, l3=0x1b}
0x189a…18ad Line {l1=0x11, l2=»2720 UNTIL FLAG=0«, l3=0x11}
0x18ad…18be Line {l1=0x0f, l2=»2730 F9$(I)=F3$«, l3=0x0f}
0x18be…18f3 Line {l1=0x33, l2=»2740 IF I MOD 2=0 THEN F9$(I)=F3$(1:LEN(F3$)-1)+"-"«, l3=0x33}
0x18f3…1900 Line {l1=0x0b, l2=»2750 NEXT I«, l3=0x0b}
0x1900…190d Line {l1=0x0b, l2=»2760 ENDIF «, l3=0x0b}
0x190d…1919 Line {l1=0x0a, l2=»2770 H3=-1«, l3=0x0a}
0x1919…1928 Line {l1=0x0d, l2=»2780 ENDCASE «, l3=0x0d}
0x1928…193a Line {l1=0x10, l2=»2790 UNTIL H3=-1«, l3=0x10}
0x193a…1949 Line {l1=0x0d, l2=»2800 ENDPROC «, l3=0x0d}
0x1949…1957 Line {l1=0x0c, l2=»2810 PROC HK«, l3=0x0c}
0x1957…1969 Line {l1=0x10, l2=»2820 J7=M8(J9,2)«, l3=0x10}
0x1969…1985 Line {l1=0x1a, l2=»2830 GET D1$,J7:K0,F8$,A3$«, l3=0x1a}
0x1985…199c Line {l1=0x15, l2=»2840 EXEC FE(5,1,D1$)«, l3=0x15}
0x199c…19c6 Line {l1=0x28, l2=»2850 GET D1$,J7+1:A5$,C7$,C8$,K1,F6$,F7$«, l3=0x28}
0x19c6…19dd Line {l1=0x15, l2=»2860 EXEC FE(5,2,D1$)«, l3=0x15}
0x19dd…19ec Line {l1=0x0d, l2=»2870 ENDPROC «, l3=0x0d}
0x19ec…1a1a Line {l1=0x2c, l2=»2880 PROC GP(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN)«, l3=0x2c}
0x1a1a…1a3e Line {l1=0x22, l2=»2890 F1$=CHR(TK+48);D5$=CHR(KO+48)«, l3=0x22}
0x1a3e…1a67 Line {l1=0x27, l2=»2900 PUT FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN«, l3=0x27}
0x1a67…1a7f Line {l1=0x16, l2=»2910 EXEC FE(10,1,FL$)«, l3=0x16}
0x1a7f…1a9d Line {l1=0x1c, l2=»2920 IF TK>9 AND TK<20 THEN «, l3=0x1c}
0x1a9d…1aab Line {l1=0x0c, l2=»2930 PN=PN+1«, l3=0x0c}
0x1aab…1ac4 Line {l1=0x17, l2=»2940 PUT FL$,PN:KT,TKS$«, l3=0x17}
0x1ac4…1adc Line {l1=0x16, l2=»2950 EXEC FE(10,2,FL$)«, l3=0x16}
0x1adc…1ae9 Line {l1=0x0b, l2=»2960 ENDIF «, l3=0x0b}
0x1ae9…1af8 Line {l1=0x0d, l2=»2970 ENDPROC «, l3=0x0d}
0x1af8…1b26 Line {l1=0x2c, l2=»2980 PROC GG(FL,PN,KT,DT,BN,TK,TKS,BL,KO,EN)«, l3=0x2c}
0x1b26…1b4f Line {l1=0x27, l2=»2990 GET FL$,PN:KT,DT,BN,F1$,BL$,D5$,EN«, l3=0x27}
0x1b4f…1b67 Line {l1=0x16, l2=»3000 EXEC FE(11,1,FL$)«, l3=0x16}
0x1b67…1b8b Line {l1=0x22, l2=»3010 TK=ORD(F1$)-48;KO=ORD(D5$)-48«, l3=0x22}
0x1b8b…1ba9 Line {l1=0x1c, l2=»3020 IF TK>9 AND TK<20 THEN «, l3=0x1c}
0x1ba9…1bb7 Line {l1=0x0c, l2=»3030 PN=PN+1«, l3=0x0c}
0x1bb7…1bd0 Line {l1=0x17, l2=»3040 GET FL$,PN:KT,TKS$«, l3=0x17}
0x1bd0…1be8 Line {l1=0x16, l2=»3050 EXEC FE(11,2,FL$)«, l3=0x16}
0x1be8…1bf4 Line {l1=0x0a, l2=»3060 ELSE «, l3=0x0a}
0x1bf4…1c03 Line {l1=0x0d, l2=»3070 TKS$=B7$«, l3=0x0d}
0x1c03…1c2e Line {l1=0x29, l2=»3080 IF TK>0 THEN TKS$=E5$(TK-10*(TK>20))«, l3=0x29}
0x1c2e…1c3b Line {l1=0x0b, l2=»3090 ENDIF «, l3=0x0b}
0x1c3b…1c4a Line {l1=0x0d, l2=»3100 ENDPROC «, l3=0x0d}
0x1c4a…1c62 Line {l1=0x16, l2=»3110 PROC ÆN(K4,K5,K6)«, l3=0x16}
0x1c62…1c75 Line {l1=0x11, l2=»3120 J3=0;B8$=K5$«, l3=0x11}
0x1c75…1c9a Line {l1=0x23, l2=»3130 IF B8$(LEN(B8$))="+" THEN J3=1«, l3=0x23}
0x1c9a…1cab Line {l1=0x0f, l2=»3140 J3=2*K6-J3«, l3=0x0f}
0x1cab…1cd1 Line {l1=0x24, l2=»3150 EXEC CA(K4,F5$(J3),B8$,F5$(J3))«, l3=0x24}
0x1cd1…1ce0 Line {l1=0x0d, l2=»3160 ENDPROC «, l3=0x0d}
0x1ce0…1cee Line {l1=0x0c, l2=»3170 PROC RE«, l3=0x0c}
0x1cee…1cfe Line {l1=0x0e, l2=»3180 K3=1;K2=1«, l3=0x0e}
0x1cfe…1d17 Line {l1=0x17, l2=»3190 IF I2=1 THEN EXIT «, l3=0x17}
0x1d17…1d25 Line {l1=0x0c, l2=»3200 REPEAT «, l3=0x0c}
0x1d25…1d32 Line {l1=0x0b, l2=»3210 CLEAR «, l3=0x0b}
0x1d32…1d40 Line {l1=0x0c, l2=»3220 EXEC UH«, l3=0x0c}
0x1d40…1d59 Line {l1=0x17, l2=»3230 IF K2=I2 THEN K2=1«, l3=0x17}
0x1d59…1d6a Line {l1=0x0f, l2=»3240 K3=K2;H5=1«, l3=0x0f}
0x1d6a…1d7e Line {l1=0x12, l2=»3250 FOR I=1 TO 18«, l3=0x12}
0x1d7e…1dc7 Line {l1=0x47, l2=»3260 EXEC GG(D2$,K2,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))«, l3=0x47}
0x1dc7…1dd5 Line {l1=0x0c, l2=»3270 K2=K2+1«, l3=0x0c}
0x1dd5…1e22 Line {l1=0x4b, l2=»3280 IF G2(I)<>0 THEN EXEC UL(G2(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))«, l3=0x4b}
0x1e22…1e30 Line {l1=0x0c, l2=»3290 H5=H5+1«, l3=0x0c}
0x1e30…1e4a Line {l1=0x18, l2=»3300 IF K2=I2 THEN EXIT «, l3=0x18}
0x1e4a…1e57 Line {l1=0x0b, l2=»3310 NEXT I«, l3=0x0b}
0x1e57…1e68 Line {l1=0x0f, l2=»3320 K7=H5;K8=0«, l3=0x0f}
0x1e68…1e76 Line {l1=0x0c, l2=»3330 REPEAT «, l3=0x0c}
0x1e76…1e84 Line {l1=0x0c, l2=»3340 REPEAT «, l3=0x0c}
0x1e84…1e96 Line {l1=0x10, l2=»3350 CURSOR 3,23«, l3=0x10}
0x1e96…1ee5 Line {l1=0x4d, l2=»3360 PRINT "Ønskes ændringer (1-18:Linienr, 0:Færdig, RETURN:Ny side, N:";«, l3=0x4d}
0x1ee5…1f02 Line {l1=0x1b, l2=»3370 PRINT "Ny post) "«, l3=0x1b}
0x1f02…1f15 Line {l1=0x11, l2=»3380 CURSOR 20,23«, l3=0x11}
0x1f15…1f25 Line {l1=0x0e, l2=»3390 INPUT D5$«, l3=0x0e}
0x1f25…1f38 Line {l1=0x11, l2=»3400 EXEC NR(D5$)«, l3=0x11}
0x1f38…1f65 Line {l1=0x2b, l2=»3410 UNTIL (P=-8 OR P>-2 AND P<K7) AND H4=0«, l3=0x2b}
0x1f65…1f70 Line {l1=0x09, l2=»3420 K9=P«, l3=0x09}
0x1f70…1f89 Line {l1=0x17, l2=»3430 IF K9<1 THEN EXIT «, l3=0x17}
0x1f89…1f94 Line {l1=0x09, l2=»3440 K8=1«, l3=0x09}
0x1f94…1fa2 Line {l1=0x0c, l2=»3450 REPEAT «, l3=0x0c}
0x1fa2…1fb0 Line {l1=0x0c, l2=»3460 REPEAT «, l3=0x0c}
0x1fb0…1fc2 Line {l1=0x10, l2=»3470 CURSOR 3,23«, l3=0x10}
0x1fc2…200a Line {l1=0x46, l2=»3480 PRINT "Linie:";K9;"Vælg ændring (0:Færdig,A:Annuller,1:Konto,";«, l3=0x46}
0x200a…2030 Line {l1=0x24, l2=»3490 PRINT "2:Entre,3:Beløb,4:Kode)"«, l3=0x24}
0x2030…2043 Line {l1=0x11, l2=»3500 CURSOR 25,23«, l3=0x11}
0x2043…2053 Line {l1=0x0e, l2=»3510 INPUT D5$«, l3=0x0e}
0x2053…2066 Line {l1=0x11, l2=»3520 EXEC NR(D5$)«, l3=0x11}
0x2066…2092 Line {l1=0x2a, l2=»3530 UNTIL (P=-3 OR P>-1 AND P<5) AND H4=0«, l3=0x2a}
0x2092…209d Line {l1=0x09, l2=»3540 L0=P«, l3=0x09}
0x209d…20b6 Line {l1=0x17, l2=»3550 IF L0=0 THEN EXIT «, l3=0x17}
0x20b6…20c2 Line {l1=0x0a, l2=»3560 H5=K9«, l3=0x0a}
0x20c2…20da Line {l1=0x16, l2=»3570 IF G2(K9)=0 THEN «, l3=0x16}
0x20da…20ee Line {l1=0x12, l2=»3580 CURSOR 3,H5+3«, l3=0x12}
0x20ee…2114 Line {l1=0x24, l2=»3590 PRINT "Postering er annulleret"«, l3=0x24}
0x2114…2120 Line {l1=0x0a, l2=»3600 ELSE «, l3=0x0a}
0x2120…214e Line {l1=0x2c, l2=»3610 IF L0<>1 THEN EXEC ÆN(1,G6$(K9),G7(K9))«, l3=0x2c}
0x214e…2163 Line {l1=0x13, l2=»3620 IF L0=-3 THEN «, l3=0x13}
0x2163…2174 Line {l1=0x0f, l2=»3630 EXEC SL(5)«, l3=0x0f}
0x2174…2183 Line {l1=0x0d, l2=»3640 G2(K9)=0«, l3=0x0d}
0x2183…218f Line {l1=0x0a, l2=»3650 ELSE «, l3=0x0a}
0x218f…21d4 Line {l1=0x43, l2=»3660 L0=L0+2;L1=L0;I1=1;H6=G2(K9);F4$=G6$(K9);H8=G7(K9);H16=G12(K9)«, l3=0x43}
0x21d4…21e6 Line {l1=0x10, l2=»3670 EXEC IN(L0)«, l3=0x10}
0x21e6…2218 Line {l1=0x30, l2=»3680 G2(K9)=H6;G6$(K9)=F4$;G7(K9)=H8;G12(K9)=H16«, l3=0x30}
0x2218…223e Line {l1=0x24, l2=»3690 IF L1<>3 THEN EXEC ÆN(0,F4$,H8)«, l3=0x24}
0x223e…224b Line {l1=0x0b, l2=»3700 ENDIF «, l3=0x0b}
0x224b…2258 Line {l1=0x0b, l2=»3710 ENDIF «, l3=0x0b}
0x2258…2272 Line {l1=0x18, l2=»3720 UNTIL L0=-3 OR L0=0«, l3=0x18}
0x2272…2283 Line {l1=0x0f, l2=»3730 UNTIL K9<1«, l3=0x0f}
0x2283…2297 Line {l1=0x12, l2=»3740 IF K8=1 THEN «, l3=0x12}
0x2297…22ab Line {l1=0x12, l2=»3750 FOR I=1 TO 18«, l3=0x12}
0x22ab…22f4 Line {l1=0x47, l2=»3760 EXEC GP(D2$,K3,G2(I),G3(I),G4(I),G5(I),G8$(I),G6$(I),G7(I),G12(I))«, l3=0x47}
0x22f4…2302 Line {l1=0x0c, l2=»3770 K3=K3+1«, l3=0x0c}
0x2302…231c Line {l1=0x18, l2=»3780 IF K3=K2 THEN EXIT «, l3=0x18}
0x231c…2329 Line {l1=0x0b, l2=»3790 NEXT I«, l3=0x0b}
0x2329…2337 Line {l1=0x0c, l2=»3800 EXEC SY«, l3=0x0c}
0x2337…2344 Line {l1=0x0b, l2=»3810 ENDIF «, l3=0x0b}
0x2344…235e Line {l1=0x18, l2=»3820 UNTIL K9=0 OR K9=-8«, l3=0x18}
0x235e…2373 Line {l1=0x13, l2=»3830 IF K9=-8 THEN «, l3=0x13}
0x2373…2380 Line {l1=0x0b, l2=»3840 CLEAR «, l3=0x0b}
0x2380…238e Line {l1=0x0c, l2=»3850 EXEC UH«, l3=0x0c}
0x238e…239e Line {l1=0x0e, l2=»3860 H5=1;I1=2«, l3=0x0e}
0x239e…23af Line {l1=0x0f, l2=»3870 EXEC IN(1)«, l3=0x0f}
0x23af…23bc Line {l1=0x0b, l2=»3880 ENDIF «, l3=0x0b}
0x23bc…23cb Line {l1=0x0d, l2=»3890 ENDPROC «, l3=0x0d}
0x23cb…23d9 Line {l1=0x0c, l2=»3900 PROC SY«, l3=0x0c}
0x23d9…2403 Line {l1=0x28, l2=»3910 E8(4)=L2;E8(8)=I0;F0(2)=I4;G1(1)=L3«, l3=0x28}
0x2403…2414 Line {l1=0x0f, l2=»3920 OPEN E2$,W«, l3=0x0f}
0x2414…242b Line {l1=0x15, l2=»3930 EXEC FE(3,1,E2$)«, l3=0x15}
0x242b…2471 Line {l1=0x44, l2=»3940 PUT E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9)«, l3=0x44}
0x2471…2488 Line {l1=0x15, l2=»3950 EXEC FE(3,2,E2$)«, l3=0x15}
0x2488…24cf Line {l1=0x45, l2=»3960 PUT E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9)«, l3=0x45}
0x24cf…24e6 Line {l1=0x15, l2=»3970 EXEC FE(3,3,E2$)«, l3=0x15}
0x24e6…252d Line {l1=0x45, l2=»3980 PUT E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9)«, l3=0x45}
0x252d…2544 Line {l1=0x15, l2=»3990 EXEC FE(3,4,E2$)«, l3=0x15}
0x2544…256a Line {l1=0x24, l2=»4000 PUT E2$,15:F5$(1),F5$(2),F5$(3)«, l3=0x24}
0x256a…2581 Line {l1=0x15, l2=»4010 EXEC FE(3,5,E2$)«, l3=0x15}
0x2581…25a7 Line {l1=0x24, l2=»4020 PUT E2$,16:F5$(4),F5$(5),F5$(6)«, l3=0x24}
0x25a7…25be Line {l1=0x15, l2=»4030 EXEC FE(3,6,E2$)«, l3=0x15}
0x25be…25ce Line {l1=0x0e, l2=»4040 CLOSE E2$«, l3=0x0e}
0x25ce…25e5 Line {l1=0x15, l2=»4050 EXEC FE(3,7,E2$)«, l3=0x15}
0x25e5…25f4 Line {l1=0x0d, l2=»4060 ENDPROC «, l3=0x0d}
0x25f4…2614 Line {l1=0x1e, l2=»4070 PROC FI(L5,Q,L6,L7,L8,L9)«, l3=0x1e}
0x2614…264b Line {l1=0x35, l2=»4080 M0=L6 DIV 16;L8=M0;I9=1;M1=L6 DIV 8;M2=L6 DIV 32«, l3=0x35}
0x264b…2659 Line {l1=0x0c, l2=»4090 REPEAT «, l3=0x0c}
0x2659…267f Line {l1=0x24, l2=»4100 IF L7=L5(L8) OR M0=1 THEN EXIT «, l3=0x24}
0x267f…26b0 Line {l1=0x2f, l2=»4110 M0=(M0+1) DIV 2;L8=L8+M0*(1-2*(L7<L5(L8)))«, l3=0x2f}
0x26b0…26c8 Line {l1=0x16, l2=»4120 IF L8<1 THEN L8=1«, l3=0x16}
0x26c8…26e2 Line {l1=0x18, l2=»4130 IF L8>M1 THEN L8=M1«, l3=0x18}
0x26e2…26f3 Line {l1=0x0f, l2=»4140 UNTIL M0=0«, l3=0x0f}
0x26f3…271a Line {l1=0x25, l2=»4150 IF L5(L8)>L7 THEN L8=L8-1*(L8>1)«, l3=0x25}
0x271a…272d Line {l1=0x11, l2=»4160 L8=M2+L8*2-1«, l3=0x11}
0x272d…2776 Line {l1=0x47, l2=»4170 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}
0x2776…278d Line {l1=0x15, l2=»4180 EXEC FE(1,1,L9$)«, l3=0x15}
0x278d…27d8 Line {l1=0x49, l2=»4190 GET L9$,L8+1:Q(5,1),Q(5,2),Q(6,1),Q(6,2),Q(7,1),Q(7,2),Q(8,1),Q(8,2)«, l3=0x49}
0x27d8…27ef Line {l1=0x15, l2=»4200 EXEC FE(1,2,L9$)«, l3=0x15}
0x27ef…2803 Line {l1=0x12, l2=»4210 FOR L8=1 TO 8«, l3=0x12}
0x2803…2822 Line {l1=0x1d, l2=»4220 IF L7=Q(L8,1) THEN EXIT «, l3=0x1d}
0x2822…2830 Line {l1=0x0c, l2=»4230 NEXT L8«, l3=0x0c}
0x2830…2849 Line {l1=0x17, l2=»4240 IF L8<>9 THEN I9=0«, l3=0x17}
0x2849…2858 Line {l1=0x0d, l2=»4250 ENDPROC «, l3=0x0d}
0x2858…286f Line {l1=0x15, l2=»4260 PROC IT(Z,M3,M4)«, l3=0x15}
0x286f…2882 Line {l1=0x11, l2=»4270 M0=M3 DIV 32«, l3=0x11}
0x2882…2896 Line {l1=0x12, l2=»4280 FOR I=1 TO M0«, l3=0x12}
0x2896…28a8 Line {l1=0x10, l2=»4290 H=(I-1)*4+1«, l3=0x10}
0x28a8…28e7 Line {l1=0x3d, l2=»4300 GET M4$,I:Z(H),Z(H+1),Z(H+1),Z(H+2),Z(H+2),Z(H+3),Z(H+3)«, l3=0x3d}
0x28e7…28fe Line {l1=0x15, l2=»4310 EXEC FE(5,1,M4$)«, l3=0x15}
0x28fe…290b Line {l1=0x0b, l2=»4320 NEXT I«, l3=0x0b}
0x290b…291a Line {l1=0x0d, l2=»4330 ENDPROC «, l3=0x0d}
0x291a…292f Line {l1=0x13, l2=»4340 PROC KN(M5,M6)«, l3=0x13}
0x292f…293a Line {l1=0x09, l2=»4350 I9=1«, l3=0x09}
0x293a…294c Line {l1=0x10, l2=»4360 CASE M5 OF «, l3=0x10}
0x294c…296e Line {l1=0x20, l2=»4370 EXEC FI(M7,M8,M9,M6,N0,A6$)«, l3=0x20}
0x296e…2982 Line {l1=0x12, l2=»4380 IF I9=0 THEN «, l3=0x12}
0x2982…2990 Line {l1=0x0c, l2=»4390 EXEC HF«, l3=0x0c}
0x2990…299e Line {l1=0x0c, l2=»4400 B4$=B0$«, l3=0x0c}
0x299e…29ab Line {l1=0x0b, l2=»4410 ENDIF «, l3=0x0b}
0x29ab…29b9 Line {l1=0x0c, l2=»4420 WHEN J1«, l3=0x0c}
0x29b9…29ef Line {l1=0x34, l2=»4430 IF NOT (M5*10000<=M6 AND M5*10000+N1=>M6) THEN «, l3=0x34}
0x29ef…2a11 Line {l1=0x20, l2=»4440 EXEC FI(N2,M8,N4,M6,N5,A4$)«, l3=0x20}
0x2a11…2a25 Line {l1=0x12, l2=»4450 IF I9=0 THEN «, l3=0x12}
0x2a25…2a33 Line {l1=0x0c, l2=»4460 EXEC HD«, l3=0x0c}
0x2a33…2a41 Line {l1=0x0c, l2=»4470 B4$=A7$«, l3=0x0c}
0x2a41…2a4e Line {l1=0x0b, l2=»4480 ENDIF «, l3=0x0b}
0x2a4e…2a5b Line {l1=0x0b, l2=»4490 ENDIF «, l3=0x0b}
0x2a5b…2a69 Line {l1=0x0c, l2=»4500 WHEN J2«, l3=0x0c}
0x2a69…2a9d Line {l1=0x32, l2=»4510 IF NOT (M5*1000<=M6 AND M5*1000+N6=>M6) THEN «, l3=0x32}
0x2a9d…2abf Line {l1=0x20, l2=»4520 EXEC FI(N7,M8,N8,M6,J9,B6$)«, l3=0x20}
0x2abf…2ad3 Line {l1=0x12, l2=»4530 IF I9=0 THEN «, l3=0x12}
0x2ad3…2ae1 Line {l1=0x0c, l2=»4540 EXEC HK«, l3=0x0c}
0x2ae1…2aef Line {l1=0x0c, l2=»4550 B4$=F8$«, l3=0x0c}
0x2aef…2afc Line {l1=0x0b, l2=»4560 ENDIF «, l3=0x0b}
0x2afc…2b09 Line {l1=0x0b, l2=»4570 ENDIF «, l3=0x0b}
0x2b09…2b18 Line {l1=0x0d, l2=»4580 ENDCASE «, l3=0x0d}
0x2b18…2b2c Line {l1=0x12, l2=»4590 IF I9=1 THEN «, l3=0x12}
0x2b2c…2b52 Line {l1=0x24, l2=»4600 B4$="Konto eksisterer ikke "«, l3=0x24}
0x2b52…2b5f Line {l1=0x0b, l2=»4610 ENDIF «, l3=0x0b}
0x2b5f…2b6e Line {l1=0x0d, l2=»4620 ENDPROC «, l3=0x0d}
0x2b6e…2b80 Line {l1=0x10, l2=»4630 PROC SL(O0)«, l3=0x10}
0x2b80…2b92 Line {l1=0x10, l2=»4640 CASE O0 OF «, l3=0x10}
0x2b92…2b9e Line {l1=0x0a, l2=»4650 STOP «, l3=0x0a}
0x2b9e…2bab Line {l1=0x0b, l2=»4660 WHEN 3«, l3=0x0b}
0x2bab…2bc0 Line {l1=0x13, l2=»4670 CURSOR 50,H5+3«, l3=0x13}
0x2bc0…2bd6 Line {l1=0x14, l2=»4680 PRINT B7$(1:28)«, l3=0x14}
0x2bd6…2be3 Line {l1=0x0b, l2=»4690 WHEN 5«, l3=0x0b}
0x2be3…2bf7 Line {l1=0x12, l2=»4700 CURSOR 4,H5+3«, l3=0x12}
0x2bf7…2c07 Line {l1=0x0e, l2=»4710 PRINT B7$«, l3=0x0e}
0x2c07…2c16 Line {l1=0x0d, l2=»4720 ENDCASE «, l3=0x0d}
0x2c16…2c25 Line {l1=0x0d, l2=»4730 ENDPROC «, l3=0x0d}
0x2c25…2c33 Line {l1=0x0c, l2=»4740 PROC FO«, l3=0x0c}
0x2c33…2c45 Line {l1=0x10, l2=»4750 I5=LEN(F3$)«, l3=0x10}
0x2c45…2c61 Line {l1=0x1a, l2=»4760 IF I5=0 THEN F3$="0+"«, l3=0x1a}
0x2c61…2c99 Line {l1=0x36, l2=»4770 IF F3$(I5)<>"+" AND F3$(I5)<>"-" THEN F3$=F3$+"+"«, l3=0x36}
0x2c99…2ca8 Line {l1=0x0d, l2=»4780 ENDPROC «, l3=0x0d}
0x2ca8…2cb6 Line {l1=0x0c, l2=»4790 PROC UH«, l3=0x0c}
0x2cb6…2cc8 Line {l1=0x10, l2=»4800 CURSOR 35,1«, l3=0x10}
0x2cc8…2cf3 Line {l1=0x29, l2=»4810 PRINT "Kasserapport";TAB(30);"Dato:"«, l3=0x29}
0x2cf3…2d05 Line {l1=0x10, l2=»4820 CURSOR 72,1«, l3=0x10}
0x2d05…2d14 Line {l1=0x0d, l2=»4830 PRINT J6«, l3=0x0d}
0x2d14…2d25 Line {l1=0x0f, l2=»4840 CURSOR 1,3«, l3=0x0f}
0x2d25…2d74 Line {l1=0x4d, l2=»4850 PRINT " Nr Bilag Tekst";TAB(38);"Konto Entre. Debet Kredit";«, l3=0x4d}
0x2d74…2d89 Line {l1=0x13, l2=»4860 PRINT " Kode"«, l3=0x13}
0x2d89…2d98 Line {l1=0x0d, l2=»4870 ENDPROC «, l3=0x0d}
0x2d98…2dbe Line {l1=0x24, l2=»4880 PROC UL(O1,O2,O3,O31,O4,O5,O11)«, l3=0x24}
0x2dbe…2dd7 Line {l1=0x17, l2=»4890 O32$=O31$;O33$=O4$«, l3=0x17}
0x2dd7…2deb Line {l1=0x12, l2=»4900 CURSOR 1,H5+3«, l3=0x12}
0x2deb…2e07 Line {l1=0x1a, l2=»4910 PRINT USING "###":H5;«, l3=0x1a}
0x2e07…2e30 Line {l1=0x27, l2=»4920 EXEC LU(O2,O3,O1,O32$,O33$,O5,O11)«, l3=0x27}
0x2e30…2e3f Line {l1=0x0d, l2=»4930 ENDPROC «, l3=0x0d}
0x2e3f…2e57 Line {l1=0x16, l2=»4940 PROC FE(O6,O7,O8)«, l3=0x16}
0x2e57…2e75 Line {l1=0x1c, l2=»4950 IF STATUS(O8$)<>0 THEN «, l3=0x1c}
0x2e75…2e97 Line {l1=0x20, l2=»4960 PRINT STATUS(O8$),O6,O7,O8$«, l3=0x20}
0x2e97…2ea3 Line {l1=0x0a, l2=»4970 STOP «, l3=0x0a}
0x2ea3…2eb0 Line {l1=0x0b, l2=»4980 ENDIF «, l3=0x0b}
0x2eb0…2ebf Line {l1=0x0d, l2=»4990 ENDPROC «, l3=0x0d}
0x2ebf…2ecd Line {l1=0x0c, l2=»5000 PROC HD«, l3=0x0c}
0x2ecd…2edf Line {l1=0x10, l2=»5010 J7=M8(N5,2)«, l3=0x10}
0x2edf…2eff Line {l1=0x1e, l2=»5020 GET D0$,J7:O9,A7$,A8$,A9$«, l3=0x1e}
0x2eff…2f16 Line {l1=0x15, l2=»5030 EXEC FE(8,2,D0$)«, l3=0x15}
0x2f16…2f37 Line {l1=0x1f, l2=»5040 IF O9<>M8(N5,1) THEN STOP «, l3=0x1f}
0x2f37…2f5d Line {l1=0x24, l2=»5050 GET D0$,J7+1:B1$,B2$,B3$,P0,C5$«, l3=0x24}
0x2f5d…2f74 Line {l1=0x15, l2=»5060 EXEC FE(8,3,D0$)«, l3=0x15}
0x2f74…2f95 Line {l1=0x1f, l2=»5070 GET D0$,J7+2:B5$,C0$,P1,P2«, l3=0x1f}
0x2f95…2fac Line {l1=0x15, l2=»5080 EXEC FE(8,4,D0$)«, l3=0x15}
0x2fac…2fcb Line {l1=0x1d, l2=»5090 GET D0$,J7+3:C1$,C3$,C4$«, l3=0x1d}
0x2fcb…2fe2 Line {l1=0x15, l2=»5100 EXEC FE(8,5,D0$)«, l3=0x15}
0x2fe2…2ff1 Line {l1=0x0d, l2=»5110 ENDPROC «, l3=0x0d}
0x2ff1…300c Line {l1=0x19, l2=»5120 PROC TU(P3,P4,P5,P6)«, l3=0x19}
0x300c…3022 Line {l1=0x14, l2=»5130 C6$=P3$;B8$=P4$«, l3=0x14}
0x3022…303f Line {l1=0x1b, l2=»5140 EXEC CA(5,C6$,B9$,B8$)«, l3=0x1b}
0x303f…304d Line {l1=0x0c, l2=»5150 P4$=B8$«, l3=0x0c}
0x304d…306e Line {l1=0x1f, l2=»5160 IF P5=0 THEN P4$=P4$(1:13)«, l3=0x1f}
0x306e…30a9 Line {l1=0x39, l2=»5170 IF P5=1 AND P4$(LEN(P4$))="+" THEN P4$(LEN(P4$))=" "«, l3=0x39}
0x30a9…30d2 Line {l1=0x27, l2=»5180 IF P6=1 THEN P4$=P4$(4:LEN(P4$)-3)«, l3=0x27}
0x30d2…30e1 Line {l1=0x0d, l2=»5190 ENDPROC «, l3=0x0d}
0x30e1…30f3 Line {l1=0x10, l2=»5200 PROC NR(P7)«, l3=0x10}
0x30f3…3113 Line {l1=0x1e, l2=»5210 P=0;H4=0;I8=0;I5=LEN(P7$)«, l3=0x1e}
0x3113…3125 Line {l1=0x10, l2=»5220 CASE I5 OF «, l3=0x10}
0x3125…3139 Line {l1=0x12, l2=»5230 FOR I=1 TO I5«, l3=0x12}
0x3139…3156 Line {l1=0x1b, l2=»5240 P8=INT(ORD(P7$(I))-48)«, l3=0x1b}
0x3156…3175 Line {l1=0x1d, l2=»5250 IF P8=>0 AND P8<10 THEN «, l3=0x1d}
0x3175…3185 Line {l1=0x0e, l2=»5260 P=P*10+P8«, l3=0x0e}
0x3185…3191 Line {l1=0x0a, l2=»5270 ELSE «, l3=0x0a}
0x3191…319c Line {l1=0x09, l2=»5280 H4=1«, l3=0x09}
0x319c…31a9 Line {l1=0x0b, l2=»5290 ENDIF «, l3=0x0b}
0x31a9…31b6 Line {l1=0x0b, l2=»5300 NEXT I«, l3=0x0b}
0x31b6…31dc Line {l1=0x24, l2=»5310 I8=P DIV 10000;KTAL9=P DIV 1000«, l3=0x24}
0x31dc…31fc Line {l1=0x1e, l2=»5320 IF KTAL9=J2 THEN I8=KTAL9«, l3=0x1e}
0x31fc…3209 Line {l1=0x0b, l2=»5330 WHEN 0«, l3=0x0b}
0x3209…3214 Line {l1=0x09, l2=»5340 P=-1«, l3=0x09}
0x3214…3221 Line {l1=0x0b, l2=»5350 WHEN 1«, l3=0x0b}
0x3221…3234 Line {l1=0x11, l2=»5360 CASE P7$ OF «, l3=0x11}
0x3234…324d Line {l1=0x17, l2=»5370 P=INT(ORD(P7$)-48)«, l3=0x17}
0x324d…3260 Line {l1=0x11, l2=»5380 WHEN "d","D"«, l3=0x11}
0x3260…326b Line {l1=0x09, l2=»5390 P=-2«, l3=0x09}
0x326b…327e Line {l1=0x11, l2=»5400 WHEN "a","A"«, l3=0x11}
0x327e…3289 Line {l1=0x09, l2=»5410 P=-3«, l3=0x09}
0x3289…329c Line {l1=0x11, l2=»5420 WHEN "j","J"«, l3=0x11}
0x329c…32a7 Line {l1=0x09, l2=»5430 P=-7«, l3=0x09}
0x32a7…32ba Line {l1=0x11, l2=»5440 WHEN "n","N"«, l3=0x11}
0x32ba…32c5 Line {l1=0x09, l2=»5450 P=-8«, l3=0x09}
0x32c5…32d4 Line {l1=0x0d, l2=»5460 ENDCASE «, l3=0x0d}
0x32d4…32e3 Line {l1=0x0d, l2=»5470 ENDCASE «, l3=0x0d}
0x32e3…32f2 Line {l1=0x0d, l2=»5480 ENDPROC «, l3=0x0d}
0x32f2…3300 Line {l1=0x0c, l2=»5490 PROC HF«, l3=0x0c}
0x3300…3312 Line {l1=0x10, l2=»5500 J7=M8(N0,2)«, l3=0x10}
0x3312…332a Line {l1=0x16, l2=»5510 GET C9$,J7:P9,B0$«, l3=0x16}
0x332a…3341 Line {l1=0x15, l2=»5520 EXEC FE(3,2,C9$)«, l3=0x15}
0x3341…3362 Line {l1=0x1f, l2=»5530 IF P9<>M8(N0,1) THEN STOP «, l3=0x1f}
0x3362…3381 Line {l1=0x1d, l2=»5540 GET C9$,J7+1:G0$,D7$,D8$«, l3=0x1d}
0x3381…3398 Line {l1=0x15, l2=»5550 EXEC FE(3,3,C9$)«, l3=0x15}
0x3398…33b7 Line {l1=0x1d, l2=»5560 GET C9$,J7+2:E6$,D9$,E0$«, l3=0x1d}
0x33b7…33ce Line {l1=0x15, l2=»5570 EXEC FE(3,4,C9$)«, l3=0x15}
0x33ce…33dd Line {l1=0x0d, l2=»5580 ENDPROC «, l3=0x0d}
0x33dd…33eb Line {l1=0x0c, l2=»5590 PROC BF«, l3=0x0c}
0x33eb…33f9 Line {l1=0x0c, l2=»5600 REPEAT «, l3=0x0c}
0x33f9…3406 Line {l1=0x0b, l2=»5610 CLEAR «, l3=0x0b}
0x3406…3418 Line {l1=0x10, l2=»5620 CURSOR 21,1«, l3=0x10}
0x3418…343e Line {l1=0x24, l2=»5630 PRINT "Kasserapport afstemning"«, l3=0x24}
0x343e…3450 Line {l1=0x10, l2=»5640 CURSOR 66,1«, l3=0x10}
0x3450…3468 Line {l1=0x16, l2=»5650 PRINT "Dato :";J6«, l3=0x16}
0x3468…347a Line {l1=0x10, l2=»5660 CURSOR 21,3«, l3=0x10}
0x347a…34a7 Line {l1=0x2b, l2=»5670 PRINT "Differencer Indtastede saldi"«, l3=0x2b}
0x34a7…34ba Line {l1=0x11, l2=»5680 FOR I=1 TO 6«, l3=0x11}
0x34ba…34dd Line {l1=0x21, l2=»5690 EXEC CA(1,F5$(I),F9$(I),F3$)«, l3=0x21}
0x34dd…34f0 Line {l1=0x11, l2=»5700 CURSOR 1,I+4«, l3=0x11}
0x34f0…3505 Line {l1=0x13, l2=»5710 PRINT I;J5$(I)«, l3=0x13}
0x3505…3519 Line {l1=0x12, l2=»5720 CURSOR 19,I+4«, l3=0x12}
0x3519…3534 Line {l1=0x19, l2=»5730 EXEC TU(F3$,B8$,1,0)«, l3=0x19}
0x3534…3544 Line {l1=0x0e, l2=»5740 PRINT B8$«, l3=0x0e}
0x3544…3558 Line {l1=0x12, l2=»5750 CURSOR 36,I+4«, l3=0x12}
0x3558…3576 Line {l1=0x1c, l2=»5760 EXEC TU(F9$(I),B8$,1,0)«, l3=0x1c}
0x3576…3586 Line {l1=0x0e, l2=»5770 PRINT B8$«, l3=0x0e}
0x3586…3593 Line {l1=0x0b, l2=»5780 NEXT I«, l3=0x0b}
0x3593…35a5 Line {l1=0x10, l2=»5790 CURSOR 4,12«, l3=0x10}
0x35a5…35cb Line {l1=0x24, l2=»5800 PRINT "Kontroller dine saldi !"«, l3=0x24}
0x35cb…35d9 Line {l1=0x0c, l2=»5810 REPEAT «, l3=0x0c}
0x35d9…35eb Line {l1=0x10, l2=»5820 CURSOR 4,14«, l3=0x10}
0x35eb…361e Line {l1=0x31, l2=»5830 PRINT "Hvilken er forkert (0:ingen,1-6)"«, l3=0x31}
0x361e…3631 Line {l1=0x11, l2=»5840 CURSOR 25,14«, l3=0x11}
0x3631…3641 Line {l1=0x0e, l2=»5850 INPUT D5$«, l3=0x0e}
0x3641…3654 Line {l1=0x11, l2=»5860 EXEC NR(D5$)«, l3=0x11}
0x3654…3676 Line {l1=0x20, l2=»5870 UNTIL -1<P AND P<7 AND H4=0«, l3=0x20}
0x3676…368a Line {l1=0x12, l2=»5880 IF P<>0 THEN «, l3=0x12}
0x368a…3698 Line {l1=0x0c, l2=»5890 REPEAT «, l3=0x0c}
0x3698…36a6 Line {l1=0x0c, l2=»5900 REPEAT «, l3=0x0c}
0x36a6…36b8 Line {l1=0x10, l2=»5910 CURSOR 1,16«, l3=0x10}
0x36b8…36f1 Line {l1=0x37, l2=»5920 PRINT P;J5$(P);" (tast ændret saldo)"«, l3=0x37}
0x36f1…3704 Line {l1=0x11, l2=»5930 CURSOR 19,16«, l3=0x11}
0x3704…3714 Line {l1=0x0e, l2=»5940 INPUT F3$«, l3=0x0e}
0x3714…372b Line {l1=0x15, l2=»5950 UNTIL LEN(F3$)>0«, l3=0x15}
0x372b…3739 Line {l1=0x0c, l2=»5960 EXEC FO«, l3=0x0c}
0x3739…3756 Line {l1=0x1b, l2=»5970 EXEC CA(6,F3$,B9$,B8$)«, l3=0x1b}
0x3756…3769 Line {l1=0x11, l2=»5980 UNTIL FLAG=0«, l3=0x11}
0x3769…377a Line {l1=0x0f, l2=»5990 F9$(P)=F3$«, l3=0x0f}
0x377a…37af Line {l1=0x33, l2=»6000 IF P MOD 2=0 THEN F9$(P)=F3$(1:LEN(F3$)-1)+"-"«, l3=0x33}
0x37af…37ba Line {l1=0x09, l2=»6010 Q0=0«, l3=0x09}
0x37ba…37c6 Line {l1=0x0a, l2=»6020 ELSE «, l3=0x0a}
0x37c6…37d9 Line {l1=0x11, l2=»6030 FOR I=1 TO 6«, l3=0x11}
0x37d9…37fc Line {l1=0x21, l2=»6040 EXEC CA(1,F5$(I),F9$(I),F3$)«, l3=0x21}
0x37fc…3819 Line {l1=0x1b, l2=»6050 EXEC CA(4,F3$,B9$,B9$)«, l3=0x1b}
0x3819…3833 Line {l1=0x18, l2=»6060 IF SI<>0 THEN EXIT «, l3=0x18}
0x3833…3840 Line {l1=0x0b, l2=»6070 NEXT I«, l3=0x0b}
0x3840…3851 Line {l1=0x0f, l2=»6080 P=-7;Q0=-1«, l3=0x0f}
0x3851…3865 Line {l1=0x12, l2=»6090 IF SI=0 THEN «, l3=0x12}
0x3865…3873 Line {l1=0x0c, l2=»6100 REPEAT «, l3=0x0c}
0x3873…3885 Line {l1=0x10, l2=»6110 CURSOR 4,16«, l3=0x10}
0x3885…38ae Line {l1=0x27, l2=»6120 PRINT "Ønskes ændringer (J/N)"«, l3=0x27}
0x38ae…38c1 Line {l1=0x11, l2=»6130 CURSOR 22,16«, l3=0x11}
0x38c1…38d0 Line {l1=0x0d, l2=»6140 INPUT A$«, l3=0x0d}
0x38d0…38e2 Line {l1=0x10, l2=»6150 EXEC NR(A$)«, l3=0x10}
0x38e2…3906 Line {l1=0x22, l2=»6160 UNTIL (P=-7 OR P=-8) AND H4=0«, l3=0x22}
0x3906…3913 Line {l1=0x0b, l2=»6170 ENDIF «, l3=0x0b}
0x3913…3927 Line {l1=0x12, l2=»6180 IF P=-7 THEN «, l3=0x12}
0x3927…3935 Line {l1=0x0c, l2=»6190 EXEC RE«, l3=0x0c}
0x3935…3940 Line {l1=0x09, l2=»6200 Q0=0«, l3=0x09}
0x3940…394d Line {l1=0x0b, l2=»6210 ENDIF «, l3=0x0b}
0x394d…395a Line {l1=0x0b, l2=»6220 ENDIF «, l3=0x0b}
0x395a…396c Line {l1=0x10, l2=»6230 UNTIL Q0=-1«, l3=0x10}
0x396c…397b Line {l1=0x0d, l2=»6240 ENDPROC «, l3=0x0d}
0x397b…3990 Line {l1=0x13, l2=»6250 PROC HU(Q1,Q2)«, l3=0x13}
0x3990…39a6 Line {l1=0x14, l2=»6260 EXEC DU(Q1,D6$)«, l3=0x14}
0x39a6…39f0 Line {l1=0x48, l2=»6280 IF R3=36 THEN PRINT CHR(10);CHR(10);CHR(10);CHR(10);CHR(10);CHR(10)«, l3=0x48}
0x39f0…3a0c Line {l1=0x1a, l2=»6290 PRINT TAB(67);DV$;" "«, l3=0x1a}
0x3a0c…3a53 Line {l1=0x45, l2=»6300 PRINT TAB(9);CHR(14);"Kasserapport";CHR(15);TAB(44);"Dato:";D6$;«, l3=0x45}
0x3a53…3a68 Line {l1=0x13, l2=»6310 PRINT TAB(61);«, l3=0x13}
0x3a68…3a89 Line {l1=0x1f, l2=»6320 PRINT USING "Side:####":Q2«, l3=0x1f}
0x3a89…3a99 Line {l1=0x0e, l2=»6330 PRINT " "«, l3=0x0e}
0x3a99…3ae6 Line {l1=0x4b, l2=»6340 PRINT TAB(3);"Bilag";TAB(12);"Tekst";TAB(38);"Konto";TAB(45);"Entre.";«, l3=0x4b}
0x3ae6…3b22 Line {l1=0x3a, l2=»6350 PRINT TAB(57);"Debet";TAB(68);"Kredit";TAB(75);"Kode"«, l3=0x3a}
0x3b22…3b39 Line {l1=0x15, l2=»6360 PRINT TAB(3);A2$«, l3=0x15}
0x3b39…3b48 Line {l1=0x0d, l2=»6370 ENDPROC «, l3=0x0d}
0x3b48…3b6d Line {l1=0x23, l2=»6380 PROC LU(Q3,Q4,Q5,Q6,Q7,Q8,Q15)«, l3=0x23}
0x3b6d…3b78 Line {l1=0x09, l2=»6390 R5=0«, l3=0x09}
0x3b78…3b9d Line {l1=0x23, l2=»6400 IF Q7$(LEN(Q7$))="+" THEN R5=1«, l3=0x23}
0x3b9d…3bcc Line {l1=0x2d, l2=»6410 IF Q3<>-1 THEN PRINT USING "#######":Q3;«, l3=0x2d}
0x3bcc…3bff Line {l1=0x31, l2=»6420 IF Q4<10 AND Q4>0 THEN Q6$=E5$(Q4)+B7$(1:15)«, l3=0x31}
0x3bff…3c26 Line {l1=0x25, l2=»6430 IF Q4<>0 THEN PRINT TAB(12);Q6$;«, l3=0x25}
0x3c26…3c3b Line {l1=0x13, l2=»6440 PRINT TAB(37);«, l3=0x13}
0x3c3b…3c65 Line {l1=0x28, l2=»6450 PRINT USING "###### ######":Q5,Q15;«, l3=0x28}
0x3c65…3c80 Line {l1=0x19, l2=»6460 EXEC TU(Q7$,B8$,0,0)«, l3=0x19}
0x3c80…3cab Line {l1=0x29, l2=»6470 PRINT TAB(52+11*(R5=0));B8$;TAB(77);«, l3=0x29}
0x3cab…3cc5 Line {l1=0x18, l2=»6480 PRINT USING "##":Q8«, l3=0x18}
0x3cc5…3cd4 Line {l1=0x0d, l2=»6490 ENDPROC «, l3=0x0d}
0x3cd4…3ce9 Line {l1=0x13, l2=»6500 PROC DU(Q9,R0)«, l3=0x13}
0x3ce9…3cf5 Line {l1=0x0a, l2=»6510 R1=Q9«, l3=0x0a}
0x3cf5…3d0a Line {l1=0x13, l2=»6520 R0$=" "«, l3=0x13}
0x3d0a…3d25 Line {l1=0x19, l2=»6530 FOR J=8 TO 1 STEP -1«, l3=0x19}
0x3d25…3d36 Line {l1=0x0f, l2=»6540 R0$(J)="."«, l3=0x0f}
0x3d36…3d75 Line {l1=0x3d, l2=»6550 IF J MOD 3<>0 THEN R0$(J)=CHR(R1 MOD 10+48);R1=R1 DIV 10«, l3=0x3d}
0x3d75…3d82 Line {l1=0x0b, l2=»6560 NEXT J«, l3=0x0b}
0x3d82…3d91 Line {l1=0x0d, l2=»6570 ENDPROC «, l3=0x0d}
0x3d91…3da6 Line {l1=0x13, l2=»6580 PROC UD(R2,R3)«, l3=0x13}
0x3da6…3dc3 Line {l1=0x1b, l2=»6590 IF R3=36 OR R3=0 THEN «, l3=0x1b}
0x3dc3…3dd1 Line {l1=0x0c, l2=»6600 R2=R2+1«, l3=0x0c}
0x3dd1…3de6 Line {l1=0x13, l2=»6610 EXEC HU(R4,R2)«, l3=0x13}
0x3de6…3df1 Line {l1=0x09, l2=»6620 R3=0«, l3=0x09}
0x3df1…3dfe Line {l1=0x0b, l2=»6630 ENDIF «, l3=0x0b}
0x3dfe…3e0c Line {l1=0x0c, l2=»6640 R3=R3+1«, l3=0x0c}
0x3e0c…3e33 Line {l1=0x25, l2=»6650 EXEC LU(H7,I7,H6,E3$,F4$,H8,H16)«, l3=0x25}
0x3e33…3e42 Line {l1=0x0d, l2=»6660 ENDPROC «, l3=0x0d}
0x3e42…3e57 Line {l1=0x13, l2=»6670 PROC MO(R6,R7)«, l3=0x13}
0x3e57…3e69 Line {l1=0x10, l2=»6680 I5=LEN(R7$)«, l3=0x10}
0x3e69…3e83 Line {l1=0x18, l2=»6690 R6$=R7$(1:I5-1)+"+"«, l3=0x18}
0x3e83…3eb1 Line {l1=0x2c, l2=»6700 IF R7$(I5)="+" THEN R6$=R7$(1:I5-1)+"-"«, l3=0x2c}
0x3eb1…3ebe Line {l1=0x0b, l2=»6710 ENDIF «, l3=0x0b}
0x3ebe…3ecd Line {l1=0x0d, l2=»6720 ENDPROC «, l3=0x0d}
0x3ecd…3edb Line {l1=0x0c, l2=»6730 PROC GB«, l3=0x0c}
0x3edb…3eef Line {l1=0x12, l2=»6740 J7=L3;J7=J7+1«, l3=0x12}
0x3eef…3f1f Line {l1=0x2e, l2=»6750 EXEC GP(D3$,J7,H6,L4,H7,I7,E3$,F3$,1,H16)«, l3=0x2e}
0x3f1f…3f2b Line {l1=0x0a, l2=»6760 L3=J7«, l3=0x0a}
0x3f2b…3f3a Line {l1=0x0d, l2=»6770 ENDPROC «, l3=0x0d}
0x3f3a…3f48 Line {l1=0x0c, l2=»6780 PROC BU«, l3=0x0c}
0x3f48…3f5d Line {l1=0x13, l2=»6790 FOR I=R8 TO 36«, l3=0x13}
0x3f5d…3f6d Line {l1=0x0e, l2=»6800 PRINT " "«, l3=0x0e}
0x3f6d…3f7a Line {l1=0x0b, l2=»6810 NEXT I«, l3=0x0b}
0x3f7a…3f8a Line {l1=0x0e, l2=»6820 PRINT " "«, l3=0x0e}
0x3f8a…3fa1 Line {l1=0x15, l2=»6830 PRINT TAB(3);A2$«, l3=0x15}
0x3fa1…3fbc Line {l1=0x19, l2=»6840 EXEC TU(A1$,B8$,0,0)«, l3=0x19}
0x3fbc…3fee Line {l1=0x30, l2=»6850 PRINT TAB(10);CHR(14);"Difference";CHR(15);«, l3=0x30}
0x3fee…401d Line {l1=0x2d, l2=»6860 PRINT TAB(45+11*(B8$(LEN(B8$))="-"));B8$«, l3=0x2d}
0x401d…4034 Line {l1=0x15, l2=»6870 PRINT TAB(3);A2$«, l3=0x15}
0x4034…4044 Line {l1=0x0e, l2=»6880 PRINT " "«, l3=0x0e}
0x4044…4054 Line {l1=0x0e, l2=»6890 PRINT " "«, l3=0x0e}
0x4054…4063 Line {l1=0x0d, l2=»6900 ENDPROC «, l3=0x0d}
0x4063…4071 Line {l1=0x0c, l2=»6910 PROC UB«, l3=0x0c}
0x4071…407e Line {l1=0x0b, l2=»6920 CLEAR «, l3=0x0b}
0x407e…408c Line {l1=0x0c, l2=»6930 REPEAT «, l3=0x0c}
0x408c…409e Line {l1=0x10, l2=»6940 CURSOR 8,13«, l3=0x10}
0x409e…40e8 Line {l1=0x48, l2=»6950 INPUT "Monter papir til udskrift af kasserapport og tast RETURN",A$«, l3=0x48}
0x40e8…4100 Line {l1=0x16, l2=»6960 UNTIL ORD(A$)=255«, l3=0x16}
0x4100…410f Line {l1=0x0d, l2=»6965 OUTPUT P«, l3=0x0d}
0x410f…411e Line {l1=0x0d, l2=»6970 ENDPROC «, l3=0x0d}
0x411e…413a Line {l1=0x1a, l2=»6980 C2$="P641220:SYSTEM1"«, l3=0x1a}
0x413a…414b Line {l1=0x0f, l2=»6990 OPEN C2$,R«, l3=0x0f}
0x414b…4162 Line {l1=0x15, l2=»7000 EXEC FE(9,1,C2$)«, l3=0x15}
0x4162…417b Line {l1=0x17, l2=»7010 GET C2$,1:M9,N4,N8«, l3=0x17}
0x417b…4192 Line {l1=0x15, l2=»7020 EXEC FE(9,2,C2$)«, l3=0x15}
0x4192…41ab Line {l1=0x17, l2=»7030 GET C2$,2:R9,S0,S1«, l3=0x17}
0x41ab…41c2 Line {l1=0x15, l2=»7040 EXEC FE(9,3,C2$)«, l3=0x15}
0x41c2…41de Line {l1=0x1a, l2=»7050 GET C2$,4:S2,S3,S4,N1«, l3=0x1a}
0x41de…41f5 Line {l1=0x15, l2=»7060 EXEC FE(9,4,C2$)«, l3=0x15}
0x41f5…4208 Line {l1=0x11, l2=»7070 GET C2$,5:N6«, l3=0x11}
0x4208…421f Line {l1=0x15, l2=»7080 EXEC FE(9,5,C2$)«, l3=0x15}
0x421f…4238 Line {l1=0x17, l2=»7090 GET C2$,6:S5,S6,S7«, l3=0x17}
0x4238…424f Line {l1=0x15, l2=»7100 EXEC FE(9,6,C2$)«, l3=0x15}
0x424f…426b Line {l1=0x1a, l2=»7110 GET C2$,8:S8,S9,T0,J1«, l3=0x1a}
0x426b…4282 Line {l1=0x15, l2=»7120 EXEC FE(9,7,C2$)«, l3=0x15}
0x4282…42a1 Line {l1=0x1d, l2=»7130 GET C2$,9:J2,J11,J12,J13«, l3=0x1d}
0x42a1…42b8 Line {l1=0x15, l2=»7140 EXEC FE(9,8,C2$)«, l3=0x15}
0x42b8…42cd Line {l1=0x13, l2=»7150 GET C2$,10:E7$«, l3=0x13}
0x42cd…42e4 Line {l1=0x15, l2=»7160 EXEC FE(9,9,C2$)«, l3=0x15}
0x42e4…42f9 Line {l1=0x13, l2=»7170 GET C2$,11:A6$«, l3=0x13}
0x42f9…4311 Line {l1=0x16, l2=»7180 EXEC FE(9,10,C2$)«, l3=0x16}
0x4311…4326 Line {l1=0x13, l2=»7190 GET C2$,12:A4$«, l3=0x13}
0x4326…433e Line {l1=0x16, l2=»7200 EXEC FE(9,11,C2$)«, l3=0x16}
0x433e…4353 Line {l1=0x13, l2=»7210 GET C2$,13:B6$«, l3=0x13}
0x4353…436b Line {l1=0x16, l2=»7220 EXEC FE(9,12,C2$)«, l3=0x16}
0x436b…4380 Line {l1=0x13, l2=»7230 GET C2$,15:C9$«, l3=0x13}
0x4380…4398 Line {l1=0x16, l2=»7240 EXEC FE(9,13,C2$)«, l3=0x16}
0x4398…43ad Line {l1=0x13, l2=»7250 GET C2$,16:D0$«, l3=0x13}
0x43ad…43c5 Line {l1=0x16, l2=»7260 EXEC FE(9,14,C2$)«, l3=0x16}
0x43c5…43da Line {l1=0x13, l2=»7270 GET C2$,17:D1$«, l3=0x13}
0x43da…43f2 Line {l1=0x16, l2=»7280 EXEC FE(9,15,C2$)«, l3=0x16}
0x43f2…4407 Line {l1=0x13, l2=»7290 GET C2$,19:D2$«, l3=0x13}
0x4407…441f Line {l1=0x16, l2=»7300 EXEC FE(9,16,C2$)«, l3=0x16}
0x441f…4434 Line {l1=0x13, l2=»7310 GET C2$,21:D3$«, l3=0x13}
0x4434…444c Line {l1=0x16, l2=»7320 EXEC FE(9,17,C2$)«, l3=0x16}
0x444c…4461 Line {l1=0x13, l2=»7330 GET C2$,36:E2$«, l3=0x13}
0x4461…4479 Line {l1=0x16, l2=»7340 EXEC FE(9,18,C2$)«, l3=0x16}
0x4479…448f Line {l1=0x14, l2=»7350 GET C2$,37:E12$«, l3=0x14}
0x448f…44a7 Line {l1=0x16, l2=»7360 EXEC FE(99,1,C2$)«, l3=0x16}
0x44a7…44bd Line {l1=0x14, l2=»7370 GET C2$,38:E13$«, l3=0x14}
0x44bd…44d5 Line {l1=0x16, l2=»7380 EXEC FE(99,2,C2$)«, l3=0x16}
0x44d5…44eb Line {l1=0x14, l2=»7390 GET C2$,39:E14$«, l3=0x14}
0x44eb…4503 Line {l1=0x16, l2=»7400 EXEC FE(99,3,C2$)«, l3=0x16}
0x4503…4520 Line {l1=0x1b, l2=»7410 GET C2$,43:J14,J15,J16«, l3=0x1b}
0x4520…4538 Line {l1=0x16, l2=»7420 EXEC FE(99,4,C2$)«, l3=0x16}
0x4538…4548 Line {l1=0x0e, l2=»7430 CLOSE C2$«, l3=0x0e}
0x4548…4560 Line {l1=0x16, l2=»7440 EXEC FE(9,19,C2$)«, l3=0x16}
0x4560…45ad Line {l1=0x4b, l2=»7450 DIM M7(M9 DIV 8),N2(N4 DIV 8),N7(N8 DIV 8),N11(J12 DIV 8),N12(J13+J14)«, l3=0x4b}
0x45ad…45d7 Line {l1=0x28, l2=»7460 DIM M8(8,2),J5$(6,14),N13$(J13+J14)«, l3=0x28}
0x45d7…45e9 Line {l1=0x10, l2=»7470 E2$=E7$+E2$«, l3=0x10}
0x45e9…45fa Line {l1=0x0f, l2=»7480 OPEN E2$,R«, l3=0x0f}
0x45fa…4612 Line {l1=0x16, l2=»7490 EXEC FE(9,20,E2$)«, l3=0x16}
0x4612…4658 Line {l1=0x44, l2=»7500 GET E2$,2:E8(1),E8(2),E8(3),E8(4),E8(5),E8(6),E8(7),E8(8),E8(9)«, l3=0x44}
0x4658…4670 Line {l1=0x16, l2=»7510 EXEC FE(9,21,E2$)«, l3=0x16}
0x4670…4683 Line {l1=0x11, l2=»7520 FOR I=1 TO 6«, l3=0x11}
0x4683…4695 Line {l1=0x10, l2=»7530 J=(I-1)*3+1«, l3=0x10}
0x4695…46c0 Line {l1=0x29, l2=»7540 GET E2$,I+5:E5$(J),E5$(J+1),E5$(J+2)«, l3=0x29}
0x46c0…46d8 Line {l1=0x16, l2=»7550 EXEC FE(9,22,E2$)«, l3=0x16}
0x46d8…46e5 Line {l1=0x0b, l2=»7560 NEXT I«, l3=0x0b}
0x46e5…472c Line {l1=0x45, l2=»7570 GET E2$,12:F0(1),F0(2),F0(3),F0(4),F0(5),F0(6),F0(7),F0(8),F0(9)«, l3=0x45}
0x472c…4744 Line {l1=0x16, l2=»7580 EXEC FE(9,23,E2$)«, l3=0x16}
0x4744…478b Line {l1=0x45, l2=»7590 GET E2$,13:G1(1),G1(2),G1(3),G1(4),G1(5),G1(6),G1(7),G1(8),G1(9)«, l3=0x45}
0x478b…47a3 Line {l1=0x16, l2=»7600 EXEC FE(9,24,E2$)«, l3=0x16}
0x47a3…47c9 Line {l1=0x24, l2=»7610 GET E2$,15:F5$(1),F5$(2),F5$(3)«, l3=0x24}
0x47c9…47e1 Line {l1=0x16, l2=»7620 EXEC FE(9,25,E2$)«, l3=0x16}
0x47e1…4807 Line {l1=0x24, l2=»7630 GET E2$,16:F5$(4),F5$(5),F5$(6)«, l3=0x24}
0x4807…481f Line {l1=0x16, l2=»7640 EXEC FE(9,26,E2$)«, l3=0x16}
0x481f…4834 Line {l1=0x13, l2=»7650 GET E2$,20:DV$«, l3=0x13}
0x4834…484c Line {l1=0x16, l2=»7660 EXEC FE(9,40,E2$)«, l3=0x16}
0x484c…485c Line {l1=0x0e, l2=»7670 CLOSE E2$«, l3=0x0e}
0x485c…4874 Line {l1=0x16, l2=»7680 EXEC FE(9,27,E2$)«, l3=0x16}
0x4874…48c2 Line {l1=0x4c, l2=»7690 A6$=E7$+A6$;A4$=E7$+A4$;B6$=E7$+B6$;C9$=E7$+C9$;D0$=E7$+D0$;D1$=E7$+D1$«, l3=0x4c}
0x48c2…490a Line {l1=0x46, l2=»7700 D2$=E7$+D2$;D3$=E7$+D3$;E12$=E7$+E12$;E13$=E7$+E13$;E14$=E7$+E14$«, l3=0x46}
0x490a…491c Line {l1=0x10, l2=»7710 OPEN E12$,R«, l3=0x10}
0x491c…4935 Line {l1=0x17, l2=»7720 EXEC FE(99,5,E12$)«, l3=0x17}
0x4935…4947 Line {l1=0x10, l2=»7730 OPEN E13$,R«, l3=0x10}
0x4947…4960 Line {l1=0x17, l2=»7740 EXEC FE(99,6,E13$)«, l3=0x17}
0x4960…4972 Line {l1=0x10, l2=»7750 OPEN E14$,R«, l3=0x10}
0x4972…498b Line {l1=0x17, l2=»7760 EXEC FE(99,7,E14$)«, l3=0x17}
0x498b…499c Line {l1=0x0f, l2=»7770 OPEN A6$,R«, l3=0x0f}
0x499c…49b4 Line {l1=0x16, l2=»7780 EXEC FE(9,28,A6$)«, l3=0x16}
0x49b4…49c5 Line {l1=0x0f, l2=»7790 OPEN A4$,R«, l3=0x0f}
0x49c5…49dd Line {l1=0x16, l2=»7800 EXEC FE(9,29,A4$)«, l3=0x16}
0x49dd…49ee Line {l1=0x0f, l2=»7810 OPEN B6$,R«, l3=0x0f}
0x49ee…4a06 Line {l1=0x16, l2=»7820 EXEC FE(9,30,B6$)«, l3=0x16}
0x4a06…4a17 Line {l1=0x0f, l2=»7830 OPEN C9$,R«, l3=0x0f}
0x4a17…4a2f Line {l1=0x16, l2=»7840 EXEC FE(9,31,C9$)«, l3=0x16}
0x4a2f…4a40 Line {l1=0x0f, l2=»7850 OPEN D0$,R«, l3=0x0f}
0x4a40…4a58 Line {l1=0x16, l2=»7860 EXEC FE(9,32,D0$)«, l3=0x16}
0x4a58…4a69 Line {l1=0x0f, l2=»7870 OPEN D1$,R«, l3=0x0f}
0x4a69…4a81 Line {l1=0x16, l2=»7880 EXEC FE(9,33,D1$)«, l3=0x16}
0x4a81…4a92 Line {l1=0x0f, l2=»7890 OPEN D2$,W«, l3=0x0f}
0x4a92…4aaa Line {l1=0x16, l2=»7900 EXEC FE(9,34,D2$)«, l3=0x16}
0x4aaa…4ac3 Line {l1=0x17, l2=»7910 EXEC IT(M7,M9,A6$)«, l3=0x17}
0x4ac3…4adc Line {l1=0x17, l2=»7920 EXEC IT(N2,N4,A4$)«, l3=0x17}
0x4adc…4af5 Line {l1=0x17, l2=»7930 EXEC IT(N7,N8,B6$)«, l3=0x17}
0x4af5…4b11 Line {l1=0x1a, l2=»7940 EXEC IT(N11,J12,E13$)«, l3=0x1a}
0x4b11…4b2a Line {l1=0x17, l2=»7950 FOR X=1 TO J13+J14«, l3=0x17}
0x4b2a…4b4a Line {l1=0x1e, l2=»7960 GET E14$,X:N12(X),N13$(X)«, l3=0x1e}
0x4b4a…4b63 Line {l1=0x17, l2=»7970 EXEC FE(99,8,E14$)«, l3=0x17}
0x4b63…4b70 Line {l1=0x0b, l2=»7980 NEXT X«, l3=0x0b}
0x4b70…4bbe Line {l1=0x4c, l2=»7990 J5$(1)="Kasse debet ";J5$(2)="Kasse kredit ";J5$(3)="Bank debet "«, l3=0x4c}
0x4bbe…4c0c Line {l1=0x4c, l2=»8000 J5$(4)="Bank kredit ";J5$(5)="Giro debet ";J5$(6)="Giro kredit "«, l3=0x4c}
0x4c0c…4c4d Line {l1=0x3f, l2=»8010 B7$=" ";B7$=B7$+B7$«, l3=0x3f}
0x4c4d…4c92 Line {l1=0x43, l2=»8020 B9$="0+";A1$="0+";A2$="--------------------------------------"«, l3=0x43}
0x4c92…4cd6 Line {l1=0x42, l2=»8030 I1=0;A2$=A2$+A2$;L2=E8(4);R4=E8(7);I0=E8(8);I4=F0(2);L3=G1(1)«, l3=0x42}
0x4cd6…4d12 Line {l1=0x3a, l2=»8040 H5=1;J6=R4;R8=0;L4=0;B8$="0+";I3=I4+1;I2=I3;K3=1;K2=1«, l3=0x3a}
0x4d12…4d1f Line {l1=0x0b, l2=»8050 CLEAR «, l3=0x0b}
0x4d1f…4d2d Line {l1=0x0c, l2=»8060 EXEC UH«, l3=0x0c}
0x4d2d…4d3e Line {l1=0x0f, l2=»8070 EXEC IN(1)«, l3=0x0f}
0x4d3e…4d52 Line {l1=0x12, l2=»8080 IF J4=0 THEN «, l3=0x12}
0x4d52…4d60 Line {l1=0x0c, l2=»8090 EXEC BF«, l3=0x0c}
0x4d60…4d6e Line {l1=0x0c, l2=»8100 EXEC UB«, l3=0x0c}
0x4d6e…4d7f Line {l1=0x0f, l2=»8110 OPEN D3$,W«, l3=0x0f}
0x4d7f…4d97 Line {l1=0x16, l2=»8120 EXEC FE(9,37,D3$)«, l3=0x16}
0x4d97…4dab Line {l1=0x12, l2=»8130 FOR I=1 TO I4«, l3=0x12}
0x4dab…4ddb Line {l1=0x2e, l2=»8140 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16)«, l3=0x2e}
0x4ddb…4df0 Line {l1=0x13, l2=»8150 IF H6<>0 THEN «, l3=0x13}
0x4df0…4e07 Line {l1=0x15, l2=»8160 EXEC MO(F3$,F4$)«, l3=0x15}
0x4e07…4e15 Line {l1=0x0c, l2=»8170 EXEC GB«, l3=0x0c}
0x4e15…4e32 Line {l1=0x1b, l2=»8180 EXEC CA(0,F3$,A1$,A1$)«, l3=0x1b}
0x4e32…4e47 Line {l1=0x13, l2=»8190 EXEC UD(L2,R8)«, l3=0x13}
0x4e47…4e54 Line {l1=0x0b, l2=»8200 ENDIF «, l3=0x0b}
0x4e54…4e61 Line {l1=0x0b, l2=»8210 NEXT I«, l3=0x0b}
0x4e61…4e84 Line {l1=0x21, l2=»8220 EXEC CA(0,F5$(1),F5$(2),F3$)«, l3=0x21}
0x4e84…4ea1 Line {l1=0x1b, l2=»8230 EXEC CA(0,F3$,A1$,A1$)«, l3=0x1b}
0x4ea1…4eca Line {l1=0x27, l2=»8240 H6=S5;I7=24;H7=L2;H8=0;H16=1000000«, l3=0x27}
0x4eca…4ed8 Line {l1=0x0c, l2=»8250 EXEC GB«, l3=0x0c}
0x4ed8…4f0e Line {l1=0x34, l2=»8260 I7=10;H7=-1;F4$=F3$;E3$="Samlet kassepostering"«, l3=0x34}
0x4f0e…4f23 Line {l1=0x13, l2=»8270 EXEC UD(L2,R8)«, l3=0x13}
0x4f23…4f46 Line {l1=0x21, l2=»8280 EXEC CA(0,F5$(3),F5$(4),F3$)«, l3=0x21}
0x4f46…4f63 Line {l1=0x1b, l2=»8290 EXEC CA(0,F3$,A1$,A1$)«, l3=0x1b}
0x4f63…4f7b Line {l1=0x16, l2=»8300 I7=24;H7=L2;H6=S7«, l3=0x16}
0x4f7b…4f89 Line {l1=0x0c, l2=»8310 EXEC GB«, l3=0x0c}
0x4f89…4fbe Line {l1=0x33, l2=»8320 F4$=F3$;I7=10;H7=-1;E3$="Samlet bankpostering"«, l3=0x33}
0x4fbe…4fd3 Line {l1=0x13, l2=»8330 EXEC UD(L2,R8)«, l3=0x13}
0x4fd3…4ff6 Line {l1=0x21, l2=»8340 EXEC CA(0,F5$(5),F5$(6),F3$)«, l3=0x21}
0x4ff6…5013 Line {l1=0x1b, l2=»8350 EXEC CA(0,F3$,A1$,A1$)«, l3=0x1b}
0x5013…502b Line {l1=0x16, l2=»8360 I7=24;H7=L2;H6=S6«, l3=0x16}
0x502b…5039 Line {l1=0x0c, l2=»8370 EXEC GB«, l3=0x0c}
0x5039…506e Line {l1=0x33, l2=»8380 E3$="Samlet giropostering";F4$=F3$;I7=10;H7=-1«, l3=0x33}
0x506e…5083 Line {l1=0x13, l2=»8390 EXEC UD(L2,R8)«, l3=0x13}
0x5083…50a0 Line {l1=0x1b, l2=»8400 EXEC CA(4,A1$,B9$,B9$)«, l3=0x1b}
0x50a0…50b5 Line {l1=0x13, l2=»8410 IF SI<>0 THEN «, l3=0x13}
0x50b5…50eb Line {l1=0x34, l2=»8420 I7=10;H7=L2;H6=T0;E3$="Difference kasserapport"«, l3=0x34}
0x50eb…5102 Line {l1=0x15, l2=»8430 EXEC MO(F3$,A1$)«, l3=0x15}
0x5102…5110 Line {l1=0x0c, l2=»8440 EXEC GB«, l3=0x0c}
0x5110…512d Line {l1=0x1b, l2=»8450 EXEC CA(0,F3$,A1$,A1$)«, l3=0x1b}
0x512d…5141 Line {l1=0x12, l2=»8460 F4$=F3$;H7=-1«, l3=0x12}
0x5141…5156 Line {l1=0x13, l2=»8470 EXEC UD(L2,R8)«, l3=0x13}
0x5156…5163 Line {l1=0x0b, l2=»8480 ENDIF «, l3=0x0b}
0x5163…5171 Line {l1=0x0c, l2=»8490 EXEC BU«, l3=0x0c}
0x5171…5181 Line {l1=0x0e, l2=»8500 CLOSE D3$«, l3=0x0e}
0x5181…5199 Line {l1=0x16, l2=»8510 EXEC FE(9,38,D3$)«, l3=0x16}
0x5199…51a4 Line {l1=0x09, l2=»8520 I4=0«, l3=0x09}
0x51a4…51b7 Line {l1=0x11, l2=»8530 FOR I=1 TO 6«, l3=0x11}
0x51b7…51c9 Line {l1=0x10, l2=»8540 F5$(I)="0+"«, l3=0x10}
0x51c9…51d6 Line {l1=0x0b, l2=»8550 NEXT I«, l3=0x0b}
0x51d6…51e2 Line {l1=0x0a, l2=»8560 ELSE «, l3=0x0a}
0x51e2…51f0 Line {l1=0x0c, l2=»8570 REPEAT «, l3=0x0c}
0x51f0…5202 Line {l1=0x10, l2=»8580 CURSOR 3,23«, l3=0x10}
0x5202…5236 Line {l1=0x32, l2=»8590 PRINT "Ønskes kontroludskrift J/N ";B7$(1:45)«, l3=0x32}
0x5236…5249 Line {l1=0x11, l2=»8600 CURSOR 30,23«, l3=0x11}
0x5249…5258 Line {l1=0x0d, l2=»8610 INPUT A$«, l3=0x0d}
0x5258…526a Line {l1=0x10, l2=»8620 EXEC NR(A$)«, l3=0x10}
0x526a…5283 Line {l1=0x17, l2=»8630 UNTIL P=-7 OR P=-8«, l3=0x17}
0x5283…5297 Line {l1=0x12, l2=»8640 IF P=-7 THEN «, l3=0x12}
0x5297…52a3 Line {l1=0x0a, l2=»8650 T1=L2«, l3=0x0a}
0x52a3…52b1 Line {l1=0x0c, l2=»8660 EXEC UB«, l3=0x0c}
0x52b1…52c5 Line {l1=0x12, l2=»8670 FOR I=1 TO I4«, l3=0x12}
0x52c5…52f5 Line {l1=0x2e, l2=»8680 EXEC GG(D2$,I,H6,L4,H7,I7,E3$,F4$,H8,H16)«, l3=0x2e}
0x52f5…530a Line {l1=0x13, l2=»8690 EXEC UD(T1,R8)«, l3=0x13}
0x530a…5327 Line {l1=0x1b, l2=»8700 EXEC CA(1,A1$,F4$,A1$)«, l3=0x1b}
0x5327…5334 Line {l1=0x0b, l2=»8710 NEXT I«, l3=0x0b}
0x5334…5350 Line {l1=0x1a, l2=»8720 I7=10;H7=-1;H8=0;H6=0«, l3=0x1a}
0x5350…5363 Line {l1=0x11, l2=»8730 FOR I=1 TO 6«, l3=0x11}
0x5363…537f Line {l1=0x1a, l2=»8740 E3$=J5$(I);F4$=F5$(I)«, l3=0x1a}
0x537f…5394 Line {l1=0x13, l2=»8750 EXEC UD(T1,R8)«, l3=0x13}
0x5394…53b1 Line {l1=0x1b, l2=»8760 EXEC CA(0,A1$,F4$,A1$)«, l3=0x1b}
0x53b1…53be Line {l1=0x0b, l2=»8770 NEXT I«, l3=0x0b}
0x53be…53cc Line {l1=0x0c, l2=»8780 EXEC BU«, l3=0x0c}
0x53cc…53d9 Line {l1=0x0b, l2=»8790 ENDIF «, l3=0x0b}
0x53d9…53e6 Line {l1=0x0b, l2=»8800 ENDIF «, l3=0x0b}
0x53e6…53f4 Line {l1=0x0c, l2=»8810 EXEC SY«, l3=0x0c}
0x53f4…5404 Line {l1=0x0e, l2=»8820 CLOSE D2$«, l3=0x0e}
0x5404…541c Line {l1=0x16, l2=»8830 EXEC FE(9,39,D2$)«, l3=0x16}
0x541c…5429 Line {l1=0x0b, l2=»8840 CLOSE «, l3=0x0b}
0x5429…5438 Line {l1=0x0d, l2=»8850 OUTPUT T«, l3=0x0d}
0x5438…5456 Line {l1=0x1c, l2=»8860 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x5456…5460 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x5460…5480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x23…]