|
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: »FAKTURA.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »FAKTURA.K«
0100 DIM OP1$(12),OP2$(12),RES$(14),BLB2$(12),T2(9),K2$(17),K3$(17),K4$(17) 0110 DIM K1$(17),N$(6),K6$(17),K5$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2) 0120 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25) 0130 DIM DEBTLF$(9),DEBBY$(20),SALDO$(12),FORS$(12),SVAR2$(1),GTOTAL$(12) 0140 DIM ÅRKØB$(12),MDNKØB$(12),K7$(17),A$(6),TAL1$(12) 0150 DIM MOMS$(12),FTOTAL$(12),KOD1$(1),KOD$(1),TAH$(12),TAL4$(14),T1(9) 0160 DIM VARTEKST$(25),VARPRIS$(12),BELØB$(12),TOTAL$(12),B$(12) 0170 DIM SVAR1$(1),FAKKRE$(1),LEVTEKST$(52),ANTAL$(12),BLANK$(77),LAND$(9,12) 0180 DIM VATEKARR$(25,25),VAPRIARR$(25,12),BELØBARR$(25,12),VAANTARR$(25,5) 0190 DIM ARRKODER(26,2),VANRARR(25) 0200 DIM LTX1$(6),LTX2$(32),LTX3$(47),LTX4$(19),LTX5$(17),LTX6$(31),LTX7$(33) 0210 DIM LTX8$(9),LTX9$(25),LTX10$(26),LTX11$(28),LTX12$(39),LTX13$(33) 0220 TAH$="0+";TAL4$="0+";TOTAL$="0+" 0230 BLANK$=" ";BLANK$=BLANK$+BLANK$+BLANK$+" " 0240 LTX1$="Rabat ";LTX3$="Fakturering. Indtast kundenummer, 0 for færdig:" 0250 LTX2$="Korrekt forsendelsesbeløb (J/N):";LTX4$="Rigtig kunde (J/N):" 0260 LTX5$="Ordrenr.: ";LTX7$="Der er ikke plads til ny faktura." 0270 LTX9$="Linie, som ønskes ændret:";LTX11$="Ønskes linien slettet (J/N):" 0280 LTX8$="Vælg 1-5:";LTX12$="Linie fra hvilken der ønskes udskrevet:" 0290 LTX6$="Fakturahoved godkendes (J/N): " 0300 LTX13$="Hvilket linienummer for ny linie:" 0310 LTX10$="Linie, som ønskes slettet:" 0320 PROC CALC(AR3,B1,B2,ES) 0330 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0340 CALL "P641210:REGN" 0350 IF AR3<6 THEN 0360 IF FLAG THEN STOP 0370 ENDIF 0380 ES$=RES$ 0390 ENDPROC 0400 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LT1) 0410 REPEAT 0420 CURSOR XPOS1,YPOS1 0430 PRINT LT1$;BLANK$(77-XPOS1-LEN(LT1$)) 0440 CURSOR XPOS1+LEN(LT1$)-1,YPOS1 0450 INPUT " ",A$ 0460 EXEC NRTEST(A$) 0470 UNTIL P>LN4 AND P<LN5 AND TEST2=0 0480 ENDPROC 0490 PROC INDPUT2(XPOS2,YPOS2,LT2,VAR) 0500 REPEAT 0510 CURSOR XPOS2,YPOS2 0520 PRINT LT2$;BLANK$(77-XPOS2-LEN(LT2$)) 0530 CURSOR XPOS2+LEN(LT2$)-1,YPOS2 0540 INPUT " ",VAR$ 0550 IF LEN(VAR$)=0 THEN VAR$="0" 0560 VAR$=VAR$+"+" 0570 EXEC CALC(6,VAR$,TAH$,VAR$) 0580 UNTIL FLAG=0 0590 ENDPROC 0600 PROC FEJL(NR1,NR2,NR3) 0610 IF STATUS(NR3$)<>0 THEN 0620 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0630 STOP 0640 ENDIF 0650 ENDPROC 0660 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 0670 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 0680 REPEAT 0690 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 0700 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 0710 IF PIL6<1 THEN PIL6=1 0720 IF PIL6>MANT3 THEN PIL6=MANT3 0730 UNTIL PIL1=0 0740 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 0750 PIL6=MANT4+PIL6 0760 GET L8$,PIL6:Q(1,1),Q(1,2),Q(2,1),Q(2,2),Q(3,1),Q(3,2),Q(4,1),Q(4,2) 0770 EXEC FEJL(1,1,L8$) 0780 FOR PIL6=1 TO 4 0790 IF NØGL5=Q(PIL6,1) THEN EXIT 0800 NEXT PIL6 0810 IF PIL6<>5 THEN CEKS=0 0820 ENDPROC 0830 PROC INDTAB1(Z,MANT5,L7) 0840 PIL1=MANT5 DIV 32 0850 FOR I=1 TO PIL1 0860 H=(I-1)*8+1 0870 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7) 0880 EXEC FEJL(2,1,L7$) 0890 NEXT I 0900 ENDPROC 0910 PROC NRTEST(NUM1) 0920 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0930 IF L>6 THEN EXIT 0940 CASE L OF 0950 FOR J=1 TO L 0960 P1=INT(ORD(NUM1$(J))-48) 0970 IF P1<0 OR P1>9 THEN 0980 TEST2=1 0990 ELSE 1000 P=P*10+P1 1010 ENDIF 1020 NEXT J 1030 KTAL=P DIV 10000 1040 WHEN 0 1050 P=-1 1060 WHEN 1 1070 CASE NUM1$ OF 1080 P=INT(ORD(NUM1$)-48) 1090 WHEN "J","j" 1100 P=-7 1110 WHEN "N","n" 1120 P=-8 1130 ENDCASE 1140 ENDCASE 1150 ENDPROC 1160 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1170 BLB2$=BLB1$ 1180 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 1190 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13) 1200 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 1210 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3) 1220 PRINT UBLB1$ 1230 ENDPROC 1240 PROC HENTDPOST 1250 S=DTAB(DPIL3,2) 1260 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$ 1270 EXEC FEJL(8,1,K4$) 1280 GET K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$ 1290 EXEC FEJL(8,2,K4$) 1300 GET K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE 1310 EXEC FEJL(8,3,K4$) 1320 GET K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$ 1330 EXEC FEJL(8,4,K4$) 1340 ENDPROC 1350 PROC HENTVPOST 1360 S=VTAB(VPIL3,2) 1370 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT 1380 EXEC FEJL(3,1,K5$) 1390 ENDPROC 1400 PROC KUNDEUD(HO) 1410 CURSOR 9,5 1420 PRINT DEBNAVN$ 1430 CURSOR 9,6 1440 PRINT DEBGADE$ 1450 CURSOR 6,7 1460 PRINT USING "#######":DEBPOSTNR 1470 CURSOR 14,7 1480 PRINT DEBBY$ 1490 IF HO=1 THEN 1500 EXEC CALC(0,DSALDO1$,DSALDO2$,SALDO$) 1510 EXEC CALC(0,SALDO$,DSALDO3$,SALDO$) 1520 EXEC CALC(0,SALDO$,DSALDO4$,SALDO$) 1530 CURSOR 9,14 1540 PRINT "Saldo: "; 1550 EXEC TUD(SALDO$,TAL4$,1,0) 1560 CURSOR 12,16 1570 PRINT "0-30 dage 30-60 dage 60-90 dage ældre" 1580 CURSOR 9,18 1590 EXEC TUD(DSALDO1$,TAL4$,1,0) 1600 CURSOR 25,18 1610 EXEC TUD(DSALDO2$,TAL4$,1,0) 1620 CURSOR 41,18 1630 EXEC TUD(DSALDO3$,TAL4$,1,0) 1640 CURSOR 57,18 1650 EXEC TUD(DSALDO4$,TAL4$,1,0) 1660 ENDIF 1670 ENDPROC 1680 PROC DATOINDT 1690 REPEAT 1700 EXEC INDPUT1(64,LINIE,-2,1000000,BLANK$(1)) 1710 UNTIL KTAL=>80 AND (P DIV 100) MOD 100<13 AND P MOD 100<32 OR P=-1 1720 DAT=P 1730 IF DAT=-1 THEN DAT=DATO 1740 CURSOR 67,LINIE 1750 EXEC DATOUD(DAT) 1760 ENDPROC 1770 PROC DATOUD(DA) 1780 PRINT USING "###.##":(DA MOD 10000)/100 1790 CURSOR 64,LINIE 1800 PRINT USING "###.#":(DA DIV 1000)/10 1810 ENDPROC 1820 PROC FAKHOVED 1830 CLEAR 1840 CURSOR 2,1 1850 PRINT USING "Kundenr.:####### ":KUNDENR; 1860 PRINT " ";DEBNAVN$ 1870 CURSOR 54,1 1880 IF FAKKRE$="F" THEN 1890 PRINT USING "Fakturanr.: #######":FAKTNR+AFAKT 1900 ELSE 1910 PRINT USING "Kreditnotanr.: ######":KREDNR+AKRED 1920 ENDIF 1930 CURSOR 2,3 1940 PRINT "Linie Vr.nr. Antal Tekst"; 1950 CURSOR 56,3 1960 PRINT "Pris Beløb" 1970 LINIE=5 1980 ENDPROC 1990 PROC VARELINI 2000 REPEAT 2010 FEJL6=0;VARTEKST$=BLANK$ 2020 CURSOR 3,LINIE 2030 PRINT USING "###":AVALIN; 2040 PRINT BLANK$(1:55) 2050 REPEAT 2060 EXEC INDPUT1(8,LINIE,-1,1000000,BLANK$(1)) 2070 UNTIL NOT (P=3 AND AVALIN=1) 2080 VARENR=P 2090 IF VARENR<>0 THEN 2100 CURSOR 8,LINIE 2110 IF VARENR=5 THEN 2120 PRINT BLANK$(1:25) 2130 ELSE 2140 PRINT USING "#######":VARENR 2150 ENDIF 2160 CASE VARENR OF 2170 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$) 2180 IF CEKS<>0 THEN 2190 CURSOR 17,LINIE 2200 INPUT "Varenummeret eksisterer ikke. Tast RETURN.",SVAR1$ 2210 LINIE=LINIE-1;AVALIN=AVALIN-1 2220 ELSE 2230 EXEC INDPUT2(17,LINIE,BLANK$(1),ANTAL$) 2240 EXEC CALC(4,ANTAL$,TAH$,TAH$) 2250 IF SI=0 THEN FEJL6=1 2260 IF FEJL6=0 THEN 2270 CURSOR 17,LINIE 2280 PRINT ANTAL$(4:5);BLANK$(1:10) 2290 CURSOR 1,23 2300 EXEC HENTVPOST 2310 CURSOR 23,LINIE 2320 IF ORD(VARTEKST$(1))=255 THEN 2330 INPUT " ",VARTEKST$ 2340 ARRKODER(AVALIN,2)=1 2350 ENDIF 2360 CURSOR 24,LINIE 2370 PRINT VARTEKST$;BLANK$(1:25) 2380 EXEC CALC(4,VARPRIS$,TAH$,TAH$) 2390 IF SI=0 THEN 2400 EXEC INDPUT2(50,LINIE,BLANK$(1),VARPRIS$) 2410 ARRKODER(AVALIN,1)=1 2420 ENDIF 2430 CURSOR 51,LINIE 2440 EXEC TUD(VARPRIS$,TAL4$,1,0) 2450 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$) 2460 CURSOR 66,LINIE 2470 EXEC TUD(BELØB$,TAL4$,1,0) 2480 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$) 2490 IF FLAG<>0 THEN STOP 2500 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$ 2510 VAPRIARR$(AVALIN)=VARPRIS$;VAANTARR$(AVALIN)=ANTAL$(4:5) 2520 BELØBARR$(AVALIN)=BELØB$ 2530 ENDIF 2540 ENDIF 2550 WHEN 1,2 2560 VARTEKST$=BLANK$ 2570 CURSOR 23,LINIE 2580 INPUT " ",VARTEKST$ 2590 L2=LEN(VARTEKST$) 2600 IF L2=0 THEN FEJL6=1 2610 IF L2>0 THEN 2620 CURSOR 24,LINIE 2630 PRINT VARTEKST$;BLANK$(1:25) 2640 IF VARENR=1 THEN 2650 EXEC INDPUT2(65,LINIE,BLANK$(1),BELØB$) 2660 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$) 2670 CURSOR 66,LINIE 2680 EXEC TUD(BELØB$,TAL4$,1,0) 2690 BELØBARR$(AVALIN)=BELØB$ 2700 ELSE 2710 BELØBARR$(AVALIN)="0+" 2720 ENDIF 2730 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$ 2740 ENDIF 2750 WHEN 3 2760 IF VANRARR(AVALIN-1)<>3 THEN 2770 EXEC INDPUT2(24,LINIE,LTX1$,VARPRIS$) 2780 EXEC CALC(4,VARPRIS$,TAH$,TAH$) 2790 IF SI=0 THEN FEJL6=1 2800 IF FEJL6=0 THEN 2810 CURSOR 30,LINIE 2820 PRINT VARPRIS$(7:5);" %";BLANK$(1:25) 2830 EXEC CALC(2,VARPRIS$,BELØBARR$(AVALIN-1),BELØB$) 2840 VATEKARR$(AVALIN)="Rabat "+VARPRIS$(7:5)+" %" 2850 VANRARR(AVALIN)=VARENR;VARPRIS$="100-" 2860 EXEC CALC(3,BELØB$,VARPRIS$,BELØB$) 2870 CURSOR 66,LINIE 2880 EXEC TUD(BELØB$,TAL4$,1,0) 2890 BELØBARR$(AVALIN)=BELØB$ 2900 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$) 2910 ENDIF 2920 ELSE 2930 LINIE=LINIE-1;AVALIN=AVALIN-1 2940 ENDIF 2950 WHEN 4 2960 CURSOR 24,LINIE 2970 VARTEKST$="Subtotal " 2980 PRINT VARTEKST$ 2990 CURSOR 66,LINIE 3000 EXEC TUD(TOTAL$,TAL4$,1,0) 3010 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$ 3020 BELØBARR$(AVALIN)=TOTAL$ 3030 ENDCASE 3040 ELSE 3050 VARENR=0 3060 CURSOR 2,LINIE 3070 PRINT BLANK$(1:25) 3080 ENDIF 3090 UNTIL FEJL6=0 3100 ENDPROC 3110 PROC LINITEST 3120 IF LINIE>23 THEN 3130 EXEC FAKHOVED 3140 J=AVALIN-1 3150 EXEC VARLINUD(J) 3160 LINIE=LINIE+1 3170 ENDIF 3180 ENDPROC 3190 PROC VARLINUD(LIN) 3200 CURSOR 3,LINIE 3210 PRINT USING "###":LIN 3220 IF VANRARR(LIN)>4 THEN 3230 CURSOR 8,LINIE 3240 PRINT USING "#######":VANRARR(LIN) 3250 CURSOR 17,LINIE 3260 PRINT VAANTARR$(LIN) 3270 ENDIF 3280 CURSOR 24,LINIE 3290 PRINT VATEKARR$(LIN) 3300 IF VANRARR(LIN)>4 THEN 3310 CURSOR 51,LINIE 3320 B$=VAPRIARR$(LIN) 3330 EXEC TUD(B$,TAL4$,1,0) 3340 ENDIF 3350 CURSOR 66,LINIE 3360 B$=BELØBARR$(LIN) 3370 IF VANRARR(LIN)<>2 THEN EXEC TUD(B$,TAL4$,1,0) 3380 ENDPROC 3390 PROC FAKTBUND 3400 GTOTAL$=TOTAL$ 3410 REPEAT 3420 EXEC SLET 3430 CURSOR 22,19 3440 PRINT "Forsendelse Netto" 3450 CURSOR 56,19 3460 PRINT "Moms Total" 3470 EXEC INDPUT2(20,21,BLANK$(1),FORS$) 3480 CURSOR 21,21 3490 EXEC TUD(FORS$,TAL4$,1,0) 3500 CURSOR 36,21 3510 EXEC CALC(0,FORS$,TOTAL$,TOTAL$) 3520 EXEC TUD(TOTAL$,TAL4$,1,0) 3530 EXEC CALC(2,TOTAL$,MOMS$,FTOTAL$) 3540 ANTAL$="100+" 3550 EXEC CALC(3,FTOTAL$,ANTAL$,ANTAL$) 3560 CURSOR 51,21 3570 EXEC TUD(ANTAL$,TAL4$,1,0) 3580 EXEC CALC(0,ANTAL$,TOTAL$,FTOTAL$) 3590 CURSOR 66,21 3600 EXEC TUD(FTOTAL$,TAL4$,1,0) 3610 TOTAL$=GTOTAL$ 3620 EXEC INDPUT1(9,23,-9,-6,LTX2$) 3630 UNTIL P=-7 3640 ENDPROC 3650 PROC SLET 3660 CURSOR 2,19 3670 PRINT BLANK$ 3680 CURSOR 2,21 3690 PRINT BLANK$ 3700 CURSOR 2,23 3710 PRINT BLANK$ 3720 ENDPROC 3730 PROC LUD 3740 CLEAR 3750 EXEC FAKHOVED 3760 FOR LINIE=5 TO 16 3770 EXEC VARLINUD(STARTL) 3780 STARTL=STARTL+1 3790 IF STARTL>SLUTL THEN EXIT 3800 NEXT LINIE 3810 ENDPROC 3820 PROC AJOUR 3830 TOTAL$="0+" 3840 FOR M=1 TO AVALIN 3850 CASE VANRARR(M) OF 3860 EXEC CALC(0,TOTAL$,BELØBARR$(M),TOTAL$) 3870 WHEN 2 3880 WHEN 4 3890 BELØBARR$(M)=TOTAL$ 3900 WHEN 3 3910 VARPRIS$=" ,"+VATEKARR$(M,7:2)+VATEKARR$(M,10:2)+"-" 3920 IF VARPRIS$(8)=" " THEN VARPRIS$(8)="0" 3930 IF VARPRIS$(9)=" " THEN VARPRIS$(9)="0" 3940 EXEC CALC(2,BELØBARR$(M-1),VARPRIS$,TAL1$) 3950 BELØBARR$(M)=TAL1$ 3960 EXEC CALC(0,TOTAL$,TAL1$,TOTAL$) 3970 ENDCASE 3980 NEXT M 3990 ENDPROC 4000 PROC FAKTGEM 4010 I=APOSTER+1 4020 IF FAKKRE$="F" THEN 4030 AFAKT=AFAKT+1 4040 ELSE 4050 AKRED=AKRED+1 4060 ENDIF 4070 OPEN K6$,W 4080 EXEC FEJL(3,1,K6$) 4090 PUT K6$,I:KUNDENR,ORDREDAT,FAKKRE$,DIVD 4100 EXEC FEJL(3,2,K6$) 4110 I=I+2 4120 IF DIVD=1 THEN 4130 PUT K6$,I:DEBNAVN$(1:13) 4140 EXEC FEJL(3,3,K6$) 4150 PUT K6$,I+1:DEBNAVN$(14:12) 4160 EXEC FEJL(3,4,K6$) 4170 PUT K6$,I+2:DEBGADE$(1:13) 4180 EXEC FEJL(3,5,K6$) 4190 PUT K6$,I+3:DEBGADE$(14:12) 4200 EXEC FEJL(3,6,K6$) 4210 PUT K6$,I+4:DPOSTNR,DEBBY$(1:9) 4220 EXEC FEJL(3,7,K6$) 4230 PUT K6$,I+5:DEBBY$(10:11) 4240 EXEC FEJL(3,8,K6$) 4250 I=I+6 4260 ENDIF 4270 IF LEVKODE=0 THEN 4280 FOR J=I TO I+3 4290 PUT K6$,J:LEVTEKST$((J-I)*13+1:13) 4300 EXEC FEJL(3,8,K6$) 4310 NEXT J 4320 I=I+4 4330 ENDIF 4340 EXEC KODE(1) 4350 KOD1$=KOD$ 4360 FOR LINIE=1 TO AVALIN 4370 J=LINIE+1 4380 EXEC KODE(J) 4390 CASE KOD1$ OF 4400 STOP 4410 WHEN "A" 4420 EXEC VALINGEM 4430 WHEN "B" 4440 VATEKARR$(LINIE,13)=KOD$ 4450 PUT K6$,I:VATEKARR$(LINIE,1:13) 4460 EXEC FEJL(3,9,K6$) 4470 I=I+1 4480 WHEN "C" 4490 EXEC ELØBGEM(BELØBARR$(LINIE)) 4500 WHEN "D" 4510 EXEC TEKSTGEM 4520 WHEN "E" 4530 EXEC TEKSTGEM 4540 EXEC ELØBGEM(BELØBARR$(LINIE)) 4550 WHEN "F" 4560 EXEC VALINGEM 4570 EXEC ELØBGEM(VAPRIARR$(LINIE)) 4580 WHEN "G","H" 4590 EXEC TEKSTGEM 4600 EXEC VALINGEM 4610 IF KOD1$="H" THEN 4620 EXEC ELØBGEM(VAPRIARR$(LINIE)) 4630 ENDIF 4640 ENDCASE 4650 KOD1$=KOD$ 4660 NEXT LINIE 4670 EXEC ELØBGEM(FORS$) 4680 EXEC ELØBGEM(MOMS$) 4690 EXEC ELØBGEM(FTOTAL$) 4700 I=I-1 4710 EXEC KODE(1) 4720 IF LEVKODE=11 THEN KOD$=CHR(11+ORD(KOD$)) 4730 PUT K6$,APOSTER+2:ORDRENR,FDATO,I-APOSTER,KOD$ 4740 EXEC FEJL(3,10,K6$) 4750 APOSTER=I 4760 CLOSE K6$ 4770 EXEC FEJL(3,11,K6$) 4780 ENDPROC 4790 PROC TEKSTGEM 4800 PUT K6$,I:VATEKARR$(LINIE,1:13) 4810 EXEC FEJL(4,1,K6$) 4820 TAL4$=VATEKARR$(LINIE,14:12)+KOD$;I=I+2 4830 PUT K6$,I-1:TAL4$(1:13) 4840 EXEC FEJL(4,2,K6$) 4850 ENDPROC 4860 PROC ELØBGEM(BEL) 4870 TAL4$=BEL$+KOD$;I=I+1 4880 PUT K6$,I-1:TAL4$(1:13) 4890 EXEC FEJL(5,1,K6$) 4900 ENDPROC 4910 PROC VALINGEM 4920 PUT K6$,I:VANRARR(LINIE),VAANTARR$(LINIE),KOD$ 4930 EXEC FEJL(6,1,K6$) 4940 I=I+1 4950 ENDPROC 4960 PROC KODE(LI) 4970 IF ARRKODER(LI,1)=0 AND ARRKODER(LI,2)=0 THEN 4980 CASE VANRARR(LI) OF 4990 KOD$="A" 5000 WHEN 3 5010 KOD$="B" 5020 WHEN 4 5030 KOD$="C" 5040 WHEN 2 5050 KOD$="D" 5060 WHEN 1 5070 KOD$="E" 5080 ENDCASE 5090 ELSE 5100 IF ARRKODER(LI,1)=0 THEN 5110 KOD$="G" 5120 ELSE 5130 IF ARRKODER(LI,2)=0 THEN 5140 KOD$="F" 5150 ELSE 5160 KOD$="H" 5170 ENDIF 5180 ENDIF 5190 ENDIF 5200 ENDPROC 5210 PROC SYSGEM 5220 T1(1)=FAKTNR;T1(2)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT 5230 T2(7)=AVKONTI;T2(8)=FJPOST 5240 OPEN K7$,W 5250 EXEC FEJL(9,1,K7$) 5260 PUT K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 5270 EXEC FEJL(9,2,K7$) 5280 PUT K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 5290 EXEC FEJL(9,3,K7$) 5300 CLOSE K7$ 5310 EXEC FEJL(9,4,K7$) 5320 ENDPROC 5330 K1$="P641220:SYSTEM1" 5340 OPEN K1$,R 5350 EXEC FEJL(9,1,K1$) 5360 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL 5370 EXEC FEJL(9,2,K1$) 5380 GET K1$,4:KPOST,MFAK,MVGR,MKGR 5390 EXEC FEJL(9,3,K1$) 5400 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL 5410 EXEC FEJL(9,4,K1$) 5420 GET K1$,10:N$ 5430 EXEC FEJL(9,5,K1$) 5440 GET K1$,12:K2$ 5450 EXEC FEJL(9,6,K1$) 5460 GET K1$,14:K3$ 5470 EXEC FEJL(9,7,K1$) 5480 GET K1$,16:K4$ 5490 EXEC FEJL(9,8,K1$) 5500 GET K1$,18:K5$ 5510 EXEC FEJL(9,9,K1$) 5520 GET K1$,29:K6$ 5530 EXEC FEJL(9,10,K1$) 5540 GET K1$,36:K7$ 5550 EXEC FEJL(9,11,K1$) 5560 CLOSE K1$ 5570 EXEC FEJL(9,12,K1$) 5580 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,2),DTAB(4,2) 5590 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$ 5600 OPEN K7$,R 5610 EXEC FEJL(9,13,K7$) 5620 GET K7$,1:MOMS$ 5630 EXEC FEJL(9,14,K7$) 5640 GET K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9) 5650 EXEC FEJL(9,15,K7$) 5660 FOR I=1 TO 3 5670 H=(I-1)*3+1 5680 GET K7$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2) 5690 EXEC FEJL(9,16,K7$) 5700 NEXT I 5710 GET K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9) 5720 EXEC FEJL(9,17,K7$) 5730 CLOSE K7$ 5740 EXEC FEJL(9,18,K7$) 5750 OPEN K2$,R 5760 EXEC FEJL(9,19,K2$) 5770 OPEN K3$,R 5780 EXEC FEJL(9,20,K3$) 5790 OPEN K4$,R 5800 EXEC FEJL(9,21,K4$) 5810 OPEN K5$,R 5820 EXEC FEJL(9,22,K5$) 5830 EXEC INDTAB1(VTAB1,MVANTAL,K3$) 5840 EXEC INDTAB1(DTAB1,MDANTAL,K2$) 5850 FAKTNR=T1(1);KREDNR=T1(2);DATO=T1(7);APOSTER=T2(4) 5860 AKRED=T2(5);AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8) 5870 REPEAT 5880 TOTAL$="0+";AVALIN=1 5890 REPEAT 5900 REPEAT 5910 REPEAT 5920 CLEAR 5930 REPEAT 5940 EXEC INDPUT1(9,1,-1,100000,LTX3$) 5950 UNTIL KTAL=DTAL OR P=0 5960 KUNDENR=P 5970 IF KUNDENR=0 THEN EXIT 5980 CURSOR 56,1 5990 PRINT USING "####### ":KUNDENR 6000 IF KUNDENR<>DIVDNR THEN 6010 DIVD=0 6020 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$) 6030 IF CEKS=1 THEN 6040 CURSOR 9,3 6050 INPUT "Kunden eksisterer ikke. Tast RETURN.",SVAR1$ 6060 ELSE 6070 EXEC HENTDPOST 6080 ENDIF 6090 ELSE 6100 DIVD=1;CEKS=0 6110 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,DIVDNR,DPIL3,K2$) 6120 IF CEKS=1 THEN STOP 6130 EXEC HENTDPOST 6140 CURSOR 34,5 6150 PRINT "Navn." 6160 CURSOR 8,5 6170 INPUT " ",DEBNAVN$ 6180 CURSOR 9,5 6190 PRINT DEBNAVN$;BLANK$(1:25) 6200 CURSOR 34,6 6210 PRINT "Gade." 6220 CURSOR 8,6 6230 INPUT " ",DEBGADE$ 6240 CURSOR 9,6 6250 PRINT DEBGADE$;BLANK$(1:25) 6260 CURSOR 13,7 6270 PRINT "Postnummer." 6280 REPEAT 6290 CURSOR 8,7 6300 INPUT " ",TAL1$ 6310 EXEC NRTEST(TAL1$) 6320 UNTIL TEST2=0 AND P>999 6330 DPOSTNR=P 6340 CURSOR 13,7 6350 PRINT BLANK$(1:25);TAB(22);"By." 6360 CURSOR 13,7 6370 INPUT " ",DEBBY$ 6380 CURSOR 34,7 6390 PRINT BLANK$(1:25) 6400 ENDIF 6410 UNTIL CEKS=0 6420 IF KUNDENR=0 THEN EXIT 6430 EXEC KUNDEUD(1) 6440 EXEC INDPUT1(9,21,-9,-6,LTX4$) 6450 UNTIL P=-7 6460 IF KUNDENR=0 THEN EXIT 6470 IF APOSTER>MFAK*20-130 OR FJPOST+AFAKT+AKRED=>MFAK THEN 6480 EXEC INDPUT1(9,23,-2,0,LTX7$) 6490 ELSE 6500 REPEAT 6510 CURSOR 9,23 6520 INPUT "Faktura/kreditnota (F/K):",FAKKRE$ 6530 UNTIL FAKKRE$="F" OR FAKKRE$="K" OR FAKKRE$="f" OR FAKKRE$="k" 6540 IF FAKKRE$="f" THEN FAKKRE$="F" 6550 IF FAKKRE$="k" THEN FAKKRE$="K" 6560 CLEAR 6570 EXEC KUNDEUD(2) 6580 CURSOR 50,4 6590 IF FAKKRE$="F" THEN 6600 PRINT USING "Fakturanr.: #######":FAKTNR+AFAKT 6610 ELSE 6620 PRINT USING "Kreditnotanr.: #######":KREDNR+AKRED 6630 ENDIF 6640 CURSOR 50,6 6650 PRINT USING "Kundenr.: #######":KUNDENR 6660 CURSOR 50,8 6670 PRINT "Ordredato:" 6680 LINIE=8 6690 EXEC DATOINDT 6700 ORDREDAT=DAT 6710 EXEC INDPUT1(50,10,0,1000000,LTX5$) 6720 ORDRENR=P 6730 CURSOR 66,10 6740 PRINT USING "####### ":ORDRENR 6750 CURSOR 50,12 6760 PRINT "Dato:" 6770 LINIE=12 6780 EXEC DATOINDT 6790 FDATO=DAT 6800 CURSOR 9,14 6810 INPUT "Levering: ",LEVTEKST$ 6820 LEVKODE=0 6830 IF LEN(LEVTEKST$)=0 THEN LEVKODE=11 6840 EXEC INDPUT1(9,17,-9,-6,LTX6$) 6850 ENDIF 6860 UNTIL P=-7 6870 IF KUNDENR=0 THEN EXIT 6880 IF APOSTER<=MFAK*20-130 AND FJPOST+AFAKT+AKRED<=MFAK THEN 6890 EXEC FAKHOVED 6900 AVALIN=1 6910 REPEAT 6920 ARRKODER(AVALIN,1)=0;ARRKODER(AVALIN,2)=0 6930 EXEC VARELINI 6940 IF VARENR=0 THEN EXIT 6950 AVALIN=AVALIN+1;LINIE=LINIE+1 6960 EXEC LINITEST 6970 UNTIL VARENR=0 OR AVALIN>25 6980 AVALIN=AVALIN-1 6990 IF AVALIN>0 THEN 7000 IF LINIE>16 THEN 7010 EXEC FAKHOVED 7020 FOR LINIE=5 TO 16 7030 J=AVALIN+LINIE-16 7040 EXEC VARLINUD(J) 7050 NEXT LINIE 7060 ENDIF 7070 REPEAT 7080 CURSOR 4,19 7090 PRINT "1:Ændring. 2:Sletning. 3:Udskrift. 4:Ny linie. 5:Afslutning." 7100 EXEC INDPUT1(4,21,0,6,LTX8$) 7110 SVAR1$=A$ 7120 CASE SVAR1$ OF 7130 WHEN "1" 7140 EXEC INDPUT1(4,23,0,1+AVALIN,LTX9$) 7150 J=P 7160 CURSOR 4,19 7170 LINIE=19 7180 EXEC SLET 7190 EXEC VARLINUD(J) 7200 CASE VANRARR(J) OF 7210 EXEC INDPUT2(17,21,BLANK$(1),ANTAL$) 7220 CURSOR 17,21 7230 PRINT ANTAL$(4:5) 7240 CURSOR 24,21 7250 PRINT VATEKARR$(J) 7260 CURSOR 51,21 7270 VARPRIS$=VAPRIARR$(J) 7280 EXEC TUD(VARPRIS$,TAL4$,1,0) 7290 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$) 7300 CURSOR 66,21 7310 EXEC TUD(BELØB$,TAL4$,1,0) 7320 IF BELØB$<>BELØBARR$(J) THEN 7330 CURSOR 1,23 7340 VAANTARR$(J)=ANTAL$(4:5);BELØBARR$(J)=BELØB$ 7350 EXEC AJOUR 7360 ENDIF 7370 WHEN 1,2 7380 VARTEKST$=BLANK$;M=J 7390 CURSOR 23,21 7400 INPUT " ",VARTEKST$ 7410 IF LEN(VARTEKST$)>0 THEN VATEKARR$(M)=VARTEKST$ 7420 CURSOR 24,21 7430 PRINT VATEKARR$(M);BLANK$(1:25) 7440 IF VANRARR(M)=1 THEN 7450 EXEC INDPUT2(65,21,BLANK$(1),BELØB$) 7460 EXEC CALC(4,BELØB$,TAH$,TAH$) 7470 IF SI=0 THEN 7480 BELØB$=BELØBARR$(M) 7490 ELSE 7500 BELØBARR$(M)=BELØB$ 7510 EXEC AJOUR 7520 ENDIF 7530 CURSOR 66,21 7540 EXEC TUD(BELØB$,TAL4$,1,0) 7550 ENDIF 7560 WHEN 3 7570 M=J 7580 EXEC INDPUT2(24,21,LTX1$,VARPRIS$) 7590 CURSOR 30,21 7600 PRINT VARPRIS$(7:5);" %";BLANK$(1:25) 7610 EXEC CALC(2,VARPRIS$,BELØBARR$(M-1),BELØB$) 7620 VATEKARR$(M,7:5)=VARPRIS$(7:5) 7630 VARPRIS$="100-" 7640 EXEC CALC(3,BELØB$,VARPRIS$,BELØB$) 7650 CURSOR 66,21 7660 EXEC TUD(BELØB$,TAL4$,1,0) 7670 BELØBARR$(M)=BELØB$ 7680 EXEC AJOUR 7690 WHEN 4 7700 CURSOR 17,21 7710 INPUT "Linien er en subtotal og kan ikke rettes. Tast RETURN.",SVAR2$ 7720 ENDCASE 7730 WHEN "2" 7740 EXEC INDPUT1(4,23,0,1+AVALIN,LTX10$) 7750 J=P 7760 CURSOR 4,19 7770 LINIE=19 7780 EXEC SLET 7790 EXEC VARLINUD(J) 7800 IF J<AVALIN THEN 7810 VARENR=VANRARR(J+1) 7820 ELSE 7830 VARENR=0 7840 ENDIF 7870 EXEC INDPUT1(4,21,-9,-6,LTX11$) 7880 IF P=-7 AND VARENR<>3 THEN 7890 AVALIN=AVALIN-1 7900 FOR M=J TO AVALIN 7910 VANRARR(M)=VANRARR(M+1);VAANTARR$(M)=VAANTARR$(M+1) 7920 VATEKARR$(M)=VATEKARR$(M+1);VAPRIARR$(M)=VAPRIARR$(M+1) 7930 BELØBARR$(M)=BELØBARR$(M+1) 7940 ARRKODER(M,1)=ARRKODER(M+1,1);ARRKODER(M,2)=ARRKODER(M+1,2) 7950 NEXT M 7960 EXEC AJOUR 7970 ENDIF 7980 WHEN "3" 7990 EXEC INDPUT1(4,23,0,1+AVALIN,LTX12$) 8000 J=P 8010 EXEC SLET 8020 STARTL=J 8030 IF AVALIN-J<12 THEN 8040 SLUTL=AVALIN 8050 ELSE 8060 SLUTL=J+11 8070 ENDIF 8080 EXEC LUD 8090 WHEN "4" 8100 IF AVALIN<25 THEN 8110 LINIE=19;AVALIN=AVALIN+1 8120 EXEC INDPUT1(4,23,0,1+AVALIN,LTX13$) 8130 EXEC SLET 8140 ARRKODER(AVALIN,1)=0;ARRKODER(AVALIN,2)=0 8150 FOR M=AVALIN TO P+1 STEP -1 8160 VANRARR(M)=VANRARR(M-1);VAANTARR$(M)=VAANTARR$(M-1) 8170 VATEKARR$(M)=VATEKARR$(M-1);VAPRIARR$(M)=VAPRIARR$(M-1) 8180 BELØBARR$(M)=BELØBARR$(M-1) 8190 ARRKODER(M,1)=ARRKODER(M-1,1);ARRKODER(M,2)=ARRKODER(M-1,2) 8200 NEXT M 8210 EXEC SLET 8220 GAVALIN=AVALIN;AVALIN=P;M=P 8230 REPEAT 8240 EXEC VARELINI 8250 UNTIL VARENR<>0 8260 AVALIN=GAVALIN 8270 EXEC AJOUR 8275 ENDIF 8280 ENDCASE 8290 IF SVAR1$<>"3" AND SVAR1$<>"5" THEN 8300 IF AVALIN<=12 THEN 8310 STARTL=1;SLUTL=AVALIN 8320 ELSE 8330 IF J<7 THEN 8340 STARTL=1;SLUTL=12 8350 ELSE 8360 IF AVALIN-J<7 THEN 8370 STARTL=AVALIN-12;SLUTL=AVALIN 8380 ELSE 8390 STARTL=J-5;SLUTL=J+6 8400 ENDIF 8410 ENDIF 8420 ENDIF 8430 EXEC LUD 8440 ENDIF 8450 UNTIL SVAR1$="5" 8460 EXEC FAKTBUND 8470 CURSOR 9,23 8480 PRINT "Maskinen overfører faktura til fakturaregisteret." 8490 EXEC FAKTGEM 8500 EXEC SYSGEM 8510 ENDIF 8520 ENDIF 8530 UNTIL KUNDENR=0 8540 CLEAR 8550 CURSOR 20,9 8560 PRINT "*****************************************" 8570 PRINT TAB(20);"*";TAB(60);"*" 8580 PRINT TAB(20);"*";TAB(34);"Programvalg.";TAB(60);"*" 8590 PRINT TAB(20);"*";TAB(60);"*" 8600 PRINT TAB(19),"*****************************************" 8610 CHAIN "P641210:OPSTART"
0x0000…004d Line {l1=0x4b, l2=»0100 DIM OP1$(12),OP2$(12),RES$(14),BLB2$(12),T2(9),K2$(17),K3$(17),K4$(17)«, l3=0x4b}
0x004d…009a Line {l1=0x4b, l2=»0110 DIM K1$(17),N$(6),K6$(17),K5$(17),DEBNAVN$(25),DSALDO1$(12),DEBKGR$(2)«, l3=0x4b}
0x009a…00e2 Line {l1=0x46, l2=»0120 DIM DSALDO2$(12),DSALDO3$(12),DSALDO4$(12),DEBLK$(2),DEBGADE$(25)«, l3=0x46}
0x00e2…012d Line {l1=0x49, l2=»0130 DIM DEBTLF$(9),DEBBY$(20),SALDO$(12),FORS$(12),SVAR2$(1),GTOTAL$(12)«, l3=0x49}
0x012d…0166 Line {l1=0x37, l2=»0140 DIM ÅRKØB$(12),MDNKØB$(12),K7$(17),A$(6),TAL1$(12)«, l3=0x37}
0x0166…01b0 Line {l1=0x48, l2=»0150 DIM MOMS$(12),FTOTAL$(12),KOD1$(1),KOD$(1),TAH$(12),TAL4$(14),T1(9)«, l3=0x48}
0x01b0…01f2 Line {l1=0x40, l2=»0160 DIM VARTEKST$(25),VARPRIS$(12),BELØB$(12),TOTAL$(12),B$(12)«, l3=0x40}
0x01f2…0241 Line {l1=0x4d, l2=»0170 DIM SVAR1$(1),FAKKRE$(1),LEVTEKST$(52),ANTAL$(12),BLANK$(77),LAND$(9,12)«, l3=0x4d}
0x0241…028e Line {l1=0x4b, l2=»0180 DIM VATEKARR$(25,25),VAPRIARR$(25,12),BELØBARR$(25,12),VAANTARR$(25,5)«, l3=0x4b}
0x028e…02b3 Line {l1=0x23, l2=»0190 DIM ARRKODER(26,2),VANRARR(25)«, l3=0x23}
0x02b3…0302 Line {l1=0x4d, l2=»0200 DIM LTX1$(6),LTX2$(32),LTX3$(47),LTX4$(19),LTX5$(17),LTX6$(31),LTX7$(33)«, l3=0x4d}
0x0302…034b Line {l1=0x47, l2=»0210 DIM LTX8$(9),LTX9$(25),LTX10$(26),LTX11$(28),LTX12$(39),LTX13$(33)«, l3=0x47}
0x034b…0372 Line {l1=0x25, l2=»0220 TAH$="0+";TAL4$="0+";TOTAL$="0+"«, l3=0x25}
0x0372…03bc Line {l1=0x48, l2=»0230 BLANK$=" ";BLANK$=BLANK$+BLANK$+BLANK$+" "«, l3=0x48}
0x03bc…0409 Line {l1=0x4b, l2=»0240 LTX1$="Rabat ";LTX3$="Fakturering. Indtast kundenummer, 0 for færdig:"«, l3=0x4b}
0x0409…0454 Line {l1=0x49, l2=»0250 LTX2$="Korrekt forsendelsesbeløb (J/N):";LTX4$="Rigtig kunde (J/N):"«, l3=0x49}
0x0454…049d Line {l1=0x47, l2=»0260 LTX5$="Ordrenr.: ";LTX7$="Der er ikke plads til ny faktura."«, l3=0x47}
0x049d…04eb Line {l1=0x4c, l2=»0270 LTX9$="Linie, som ønskes ændret:";LTX11$="Ønskes linien slettet (J/N):"«, l3=0x4c}
0x04eb…0534 Line {l1=0x47, l2=»0280 LTX8$="Vælg 1-5:";LTX12$="Linie fra hvilken der ønskes udskrevet:"«, l3=0x47}
0x0534…0562 Line {l1=0x2c, l2=»0290 LTX6$="Fakturahoved godkendes (J/N): "«, l3=0x2c}
0x0562…0593 Line {l1=0x2f, l2=»0300 LTX13$="Hvilket linienummer for ny linie:"«, l3=0x2f}
0x0593…05bd Line {l1=0x28, l2=»0310 LTX10$="Linie, som ønskes slettet:"«, l3=0x28}
0x05bd…05db Line {l1=0x1c, l2=»0320 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x05db…061a Line {l1=0x3d, l2=»0330 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x061a…0634 Line {l1=0x18, l2=»0340 CALL "P641210:REGN"«, l3=0x18}
0x0634…0649 Line {l1=0x13, l2=»0350 IF AR3<6 THEN «, l3=0x13}
0x0649…0662 Line {l1=0x17, l2=»0360 IF FLAG THEN STOP «, l3=0x17}
0x0662…066f Line {l1=0x0b, l2=»0370 ENDIF «, l3=0x0b}
0x066f…067e Line {l1=0x0d, l2=»0380 ES$=RES$«, l3=0x0d}
0x067e…068d Line {l1=0x0d, l2=»0390 ENDPROC «, l3=0x0d}
0x068d…06b9 Line {l1=0x2a, l2=»0400 PROC INDPUT1(XPOS1,YPOS1,LN4,LN5,LT1)«, l3=0x2a}
0x06b9…06c7 Line {l1=0x0c, l2=»0410 REPEAT «, l3=0x0c}
0x06c7…06e0 Line {l1=0x17, l2=»0420 CURSOR XPOS1,YPOS1«, l3=0x17}
0x06e0…070c Line {l1=0x2a, l2=»0430 PRINT LT1$;BLANK$(77-XPOS1-LEN(LT1$))«, l3=0x2a}
0x070c…0731 Line {l1=0x23, l2=»0440 CURSOR XPOS1+LEN(LT1$)-1,YPOS1«, l3=0x23}
0x0731…0744 Line {l1=0x11, l2=»0450 INPUT " ",A$«, l3=0x11}
0x0744…075a Line {l1=0x14, l2=»0460 EXEC NRTEST(A$)«, l3=0x14}
0x075a…0782 Line {l1=0x26, l2=»0470 UNTIL P>LN4 AND P<LN5 AND TEST2=0«, l3=0x26}
0x0782…0791 Line {l1=0x0d, l2=»0480 ENDPROC «, l3=0x0d}
0x0791…07b9 Line {l1=0x26, l2=»0490 PROC INDPUT2(XPOS2,YPOS2,LT2,VAR)«, l3=0x26}
0x07b9…07c7 Line {l1=0x0c, l2=»0500 REPEAT «, l3=0x0c}
0x07c7…07e0 Line {l1=0x17, l2=»0510 CURSOR XPOS2,YPOS2«, l3=0x17}
0x07e0…080c Line {l1=0x2a, l2=»0520 PRINT LT2$;BLANK$(77-XPOS2-LEN(LT2$))«, l3=0x2a}
0x080c…0831 Line {l1=0x23, l2=»0530 CURSOR XPOS2+LEN(LT2$)-1,YPOS2«, l3=0x23}
0x0831…0846 Line {l1=0x13, l2=»0540 INPUT " ",VAR$«, l3=0x13}
0x0846…0869 Line {l1=0x21, l2=»0550 IF LEN(VAR$)=0 THEN VAR$="0"«, l3=0x21}
0x0869…087d Line {l1=0x12, l2=»0560 VAR$=VAR$+"+"«, l3=0x12}
0x087d…089f Line {l1=0x20, l2=»0570 EXEC CALC(6,VAR$,TAH$,VAR$)«, l3=0x20}
0x089f…08b2 Line {l1=0x11, l2=»0580 UNTIL FLAG=0«, l3=0x11}
0x08b2…08c1 Line {l1=0x0d, l2=»0590 ENDPROC «, l3=0x0d}
0x08c1…08de Line {l1=0x1b, l2=»0600 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x08de…08fd Line {l1=0x1d, l2=»0610 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x08fd…0923 Line {l1=0x24, l2=»0620 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0923…092f Line {l1=0x0a, l2=»0630 STOP «, l3=0x0a}
0x092f…093c Line {l1=0x0b, l2=»0640 ENDIF «, l3=0x0b}
0x093c…094b Line {l1=0x0d, l2=»0650 ENDPROC «, l3=0x0d}
0x094b…097c Line {l1=0x2f, l2=»0660 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x097c…09c9 Line {l1=0x4b, l2=»0670 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x09c9…09d7 Line {l1=0x0c, l2=»0680 REPEAT «, l3=0x0c}
0x09d7…0a06 Line {l1=0x2d, l2=»0690 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x0a06…0a48 Line {l1=0x40, l2=»0700 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x0a48…0a64 Line {l1=0x1a, l2=»0710 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x0a64…0a88 Line {l1=0x22, l2=»0720 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x0a88…0a9b Line {l1=0x11, l2=»0730 UNTIL PIL1=0«, l3=0x11}
0x0a9b…0acf Line {l1=0x32, l2=»0740 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x0acf…0ae5 Line {l1=0x14, l2=»0750 PIL6=MANT4+PIL6«, l3=0x14}
0x0ae5…0b30 Line {l1=0x49, l2=»0760 GET L8$,PIL6: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=0x49}
0x0b30…0b49 Line {l1=0x17, l2=»0770 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x0b49…0b5f Line {l1=0x14, l2=»0780 FOR PIL6=1 TO 4«, l3=0x14}
0x0b5f…0b83 Line {l1=0x22, l2=»0790 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x0b83…0b93 Line {l1=0x0e, l2=»0800 NEXT PIL6«, l3=0x0e}
0x0b93…0bb0 Line {l1=0x1b, l2=»0810 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x0bb0…0bbf Line {l1=0x0d, l2=»0820 ENDPROC «, l3=0x0d}
0x0bbf…0bde Line {l1=0x1d, l2=»0830 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0bde…0bf6 Line {l1=0x16, l2=»0840 PIL1=MANT5 DIV 32«, l3=0x16}
0x0bf6…0c0c Line {l1=0x14, l2=»0850 FOR I=1 TO PIL1«, l3=0x14}
0x0c0c…0c1e Line {l1=0x10, l2=»0860 H=(I-1)*8+1«, l3=0x10}
0x0c1e…0c64 Line {l1=0x44, l2=»0870 GET L7$,I:Z(H),Z(H+1),Z(H+2),Z(H+3),Z(H+4),Z(H+5),Z(H+6),Z(H+7)«, l3=0x44}
0x0c64…0c7d Line {l1=0x17, l2=»0880 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x0c7d…0c8a Line {l1=0x0b, l2=»0890 NEXT I«, l3=0x0b}
0x0c8a…0c99 Line {l1=0x0d, l2=»0900 ENDPROC «, l3=0x0d}
0x0c99…0cb1 Line {l1=0x16, l2=»0910 PROC NRTEST(NUM1)«, l3=0x16}
0x0cb1…0cd7 Line {l1=0x24, l2=»0920 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x0cd7…0cef Line {l1=0x16, l2=»0930 IF L>6 THEN EXIT «, l3=0x16}
0x0cef…0d00 Line {l1=0x0f, l2=»0940 CASE L OF «, l3=0x0f}
0x0d00…0d13 Line {l1=0x11, l2=»0950 FOR J=1 TO L«, l3=0x11}
0x0d13…0d32 Line {l1=0x1d, l2=»0960 P1=INT(ORD(NUM1$(J))-48)«, l3=0x1d}
0x0d32…0d4e Line {l1=0x1a, l2=»0970 IF P1<0 OR P1>9 THEN «, l3=0x1a}
0x0d4e…0d5c Line {l1=0x0c, l2=»0980 TEST2=1«, l3=0x0c}
0x0d5c…0d68 Line {l1=0x0a, l2=»0990 ELSE «, l3=0x0a}
0x0d68…0d78 Line {l1=0x0e, l2=»1000 P=P*10+P1«, l3=0x0e}
0x0d78…0d85 Line {l1=0x0b, l2=»1010 ENDIF «, l3=0x0b}
0x0d85…0d92 Line {l1=0x0b, l2=»1020 NEXT J«, l3=0x0b}
0x0d92…0da9 Line {l1=0x15, l2=»1030 KTAL=P DIV 10000«, l3=0x15}
0x0da9…0db6 Line {l1=0x0b, l2=»1040 WHEN 0«, l3=0x0b}
0x0db6…0dc1 Line {l1=0x09, l2=»1050 P=-1«, l3=0x09}
0x0dc1…0dce Line {l1=0x0b, l2=»1060 WHEN 1«, l3=0x0b}
0x0dce…0de3 Line {l1=0x13, l2=»1070 CASE NUM1$ OF «, l3=0x13}
0x0de3…0dfe Line {l1=0x19, l2=»1080 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x0dfe…0e11 Line {l1=0x11, l2=»1090 WHEN "J","j"«, l3=0x11}
0x0e11…0e1c Line {l1=0x09, l2=»1100 P=-7«, l3=0x09}
0x0e1c…0e2f Line {l1=0x11, l2=»1110 WHEN "N","n"«, l3=0x11}
0x0e2f…0e3a Line {l1=0x09, l2=»1120 P=-8«, l3=0x09}
0x0e3a…0e49 Line {l1=0x0d, l2=»1130 ENDCASE «, l3=0x0d}
0x0e49…0e58 Line {l1=0x0d, l2=»1140 ENDCASE «, l3=0x0d}
0x0e58…0e67 Line {l1=0x0d, l2=»1150 ENDPROC «, l3=0x0d}
0x0e67…0e8c Line {l1=0x23, l2=»1160 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x0e8c…0e9e Line {l1=0x10, l2=»1170 BLB2$=BLB1$«, l3=0x10}
0x0e9e…0ec3 Line {l1=0x23, l2=»1180 EXEC CALC(5,BLB2$,TAH$,UBLB1$)«, l3=0x23}
0x0ec3…0eec Line {l1=0x27, l2=»1190 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13)«, l3=0x27}
0x0eec…0f35 Line {l1=0x47, l2=»1200 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "«, l3=0x47}
0x0f35…0f69 Line {l1=0x32, l2=»1210 IF STØR=1 THEN UBLB1$=UBLB1$(4:LEN(UBLB1$)-3)«, l3=0x32}
0x0f69…0f7c Line {l1=0x11, l2=»1220 PRINT UBLB1$«, l3=0x11}
0x0f7c…0f8b Line {l1=0x0d, l2=»1230 ENDPROC «, l3=0x0d}
0x0f8b…0fa0 Line {l1=0x13, l2=»1240 PROC HENTDPOST«, l3=0x13}
0x0fa0…0fb6 Line {l1=0x14, l2=»1250 S=DTAB(DPIL3,2)«, l3=0x14}
0x0fb6…0fe6 Line {l1=0x2e, l2=»1260 GET K4$,S:DEBNR,DEBNAVN$,DSALDO1$,DEBKGR$«, l3=0x2e}
0x0fe6…0fff Line {l1=0x17, l2=»1270 EXEC FEJL(8,1,K4$)«, l3=0x17}
0x0fff…103d Line {l1=0x3c, l2=»1280 GET K4$,S+1:DSALDO2$,DSALDO3$,DSALDO4$,DEBPOSTNR,DEBLK$«, l3=0x3c}
0x103d…1056 Line {l1=0x17, l2=»1290 EXEC FEJL(8,2,K4$)«, l3=0x17}
0x1056…1086 Line {l1=0x2e, l2=»1300 GET K4$,S+2:DEBGADE$,DEBTLF$,HPOST,HKUNDE«, l3=0x2e}
0x1086…109f Line {l1=0x17, l2=»1310 EXEC FEJL(8,3,K4$)«, l3=0x17}
0x109f…10c7 Line {l1=0x26, l2=»1320 GET K4$,S+3:DEBBY$,ÅRKØB$,MDNKØB$«, l3=0x26}
0x10c7…10e0 Line {l1=0x17, l2=»1330 EXEC FEJL(8,4,K4$)«, l3=0x17}
0x10e0…10ef Line {l1=0x0d, l2=»1340 ENDPROC «, l3=0x0d}
0x10ef…1104 Line {l1=0x13, l2=»1350 PROC HENTVPOST«, l3=0x13}
0x1104…111a Line {l1=0x14, l2=»1360 S=VTAB(VPIL3,2)«, l3=0x14}
0x111a…114c Line {l1=0x30, l2=»1370 GET K5$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT«, l3=0x30}
0x114c…1165 Line {l1=0x17, l2=»1380 EXEC FEJL(3,1,K5$)«, l3=0x17}
0x1165…1174 Line {l1=0x0d, l2=»1390 ENDPROC «, l3=0x0d}
0x1174…118b Line {l1=0x15, l2=»1400 PROC KUNDEUD(HO)«, l3=0x15}
0x118b…119c Line {l1=0x0f, l2=»1410 CURSOR 9,5«, l3=0x0f}
0x119c…11b1 Line {l1=0x13, l2=»1420 PRINT DEBNAVN$«, l3=0x13}
0x11b1…11c2 Line {l1=0x0f, l2=»1430 CURSOR 9,6«, l3=0x0f}
0x11c2…11d7 Line {l1=0x13, l2=»1440 PRINT DEBGADE$«, l3=0x13}
0x11d7…11e8 Line {l1=0x0f, l2=»1450 CURSOR 6,7«, l3=0x0f}
0x11e8…120e Line {l1=0x24, l2=»1460 PRINT USING "#######":DEBPOSTNR«, l3=0x24}
0x120e…1220 Line {l1=0x10, l2=»1470 CURSOR 14,7«, l3=0x10}
0x1220…1233 Line {l1=0x11, l2=»1480 PRINT DEBBY$«, l3=0x11}
0x1233…1247 Line {l1=0x12, l2=»1490 IF HO=1 THEN «, l3=0x12}
0x1247…1273 Line {l1=0x2a, l2=»1500 EXEC CALC(0,DSALDO1$,DSALDO2$,SALDO$)«, l3=0x2a}
0x1273…129d Line {l1=0x28, l2=»1510 EXEC CALC(0,SALDO$,DSALDO3$,SALDO$)«, l3=0x28}
0x129d…12c7 Line {l1=0x28, l2=»1520 EXEC CALC(0,SALDO$,DSALDO4$,SALDO$)«, l3=0x28}
0x12c7…12d9 Line {l1=0x10, l2=»1530 CURSOR 9,14«, l3=0x10}
0x12d9…12f0 Line {l1=0x15, l2=»1540 PRINT "Saldo: ";«, l3=0x15}
0x12f0…1311 Line {l1=0x1f, l2=»1550 EXEC TUD(SALDO$,TAL4$,1,0)«, l3=0x1f}
0x1311…1324 Line {l1=0x11, l2=»1560 CURSOR 12,16«, l3=0x11}
0x1324…136a Line {l1=0x44, l2=»1570 PRINT "0-30 dage 30-60 dage 60-90 dage ældre"«, l3=0x44}
0x136a…137c Line {l1=0x10, l2=»1580 CURSOR 9,18«, l3=0x10}
0x137c…139f Line {l1=0x21, l2=»1590 EXEC TUD(DSALDO1$,TAL4$,1,0)«, l3=0x21}
0x139f…13b2 Line {l1=0x11, l2=»1600 CURSOR 25,18«, l3=0x11}
0x13b2…13d5 Line {l1=0x21, l2=»1610 EXEC TUD(DSALDO2$,TAL4$,1,0)«, l3=0x21}
0x13d5…13e8 Line {l1=0x11, l2=»1620 CURSOR 41,18«, l3=0x11}
0x13e8…140b Line {l1=0x21, l2=»1630 EXEC TUD(DSALDO3$,TAL4$,1,0)«, l3=0x21}
0x140b…141e Line {l1=0x11, l2=»1640 CURSOR 57,18«, l3=0x11}
0x141e…1441 Line {l1=0x21, l2=»1650 EXEC TUD(DSALDO4$,TAL4$,1,0)«, l3=0x21}
0x1441…144e Line {l1=0x0b, l2=»1660 ENDIF «, l3=0x0b}
0x144e…145d Line {l1=0x0d, l2=»1670 ENDPROC «, l3=0x0d}
0x145d…1471 Line {l1=0x12, l2=»1680 PROC DATOINDT«, l3=0x12}
0x1471…147f Line {l1=0x0c, l2=»1690 REPEAT «, l3=0x0c}
0x147f…14b1 Line {l1=0x30, l2=»1700 EXEC INDPUT1(64,LINIE,-2,1000000,BLANK$(1))«, l3=0x30}
0x14b1…14fa Line {l1=0x47, l2=»1710 UNTIL KTAL=>80 AND (P DIV 100) MOD 100<13 AND P MOD 100<32 OR P=-1«, l3=0x47}
0x14fa…1506 Line {l1=0x0a, l2=»1720 DAT=P«, l3=0x0a}
0x1506…1524 Line {l1=0x1c, l2=»1730 IF DAT=-1 THEN DAT=DATO«, l3=0x1c}
0x1524…153a Line {l1=0x14, l2=»1740 CURSOR 67,LINIE«, l3=0x14}
0x153a…1551 Line {l1=0x15, l2=»1750 EXEC DATOUD(DAT)«, l3=0x15}
0x1551…1560 Line {l1=0x0d, l2=»1760 ENDPROC «, l3=0x0d}
0x1560…1576 Line {l1=0x14, l2=»1770 PROC DATOUD(DA)«, l3=0x14}
0x1576…15a4 Line {l1=0x2c, l2=»1780 PRINT USING "###.##":(DA MOD 10000)/100«, l3=0x2c}
0x15a4…15ba Line {l1=0x14, l2=»1790 CURSOR 64,LINIE«, l3=0x14}
0x15ba…15e5 Line {l1=0x29, l2=»1800 PRINT USING "###.#":(DA DIV 1000)/10«, l3=0x29}
0x15e5…15f4 Line {l1=0x0d, l2=»1810 ENDPROC «, l3=0x0d}
0x15f4…1608 Line {l1=0x12, l2=»1820 PROC FAKHOVED«, l3=0x12}
0x1608…1615 Line {l1=0x0b, l2=»1830 CLEAR «, l3=0x0b}
0x1615…1626 Line {l1=0x0f, l2=»1840 CURSOR 2,1«, l3=0x0f}
0x1626…1657 Line {l1=0x2f, l2=»1850 PRINT USING "Kundenr.:####### ":KUNDENR;«, l3=0x2f}
0x1657…1673 Line {l1=0x1a, l2=»1860 PRINT " ";DEBNAVN$«, l3=0x1a}
0x1673…1685 Line {l1=0x10, l2=»1870 CURSOR 54,1«, l3=0x10}
0x1685…16a0 Line {l1=0x19, l2=»1880 IF FAKKRE$="F" THEN «, l3=0x19}
0x16a0…16d9 Line {l1=0x37, l2=»1890 PRINT USING "Fakturanr.: #######":FAKTNR+AFAKT«, l3=0x37}
0x16d9…16e5 Line {l1=0x0a, l2=»1900 ELSE «, l3=0x0a}
0x16e5…171d Line {l1=0x36, l2=»1910 PRINT USING "Kreditnotanr.: ######":KREDNR+AKRED«, l3=0x36}
0x171d…172a Line {l1=0x0b, l2=»1920 ENDIF «, l3=0x0b}
0x172a…173b Line {l1=0x0f, l2=»1930 CURSOR 2,3«, l3=0x0f}
0x173b…1766 Line {l1=0x29, l2=»1940 PRINT "Linie Vr.nr. Antal Tekst";«, l3=0x29}
0x1766…1778 Line {l1=0x10, l2=»1950 CURSOR 56,3«, l3=0x10}
0x1778…179a Line {l1=0x20, l2=»1960 PRINT "Pris Beløb"«, l3=0x20}
0x179a…17a8 Line {l1=0x0c, l2=»1970 LINIE=5«, l3=0x0c}
0x17a8…17b7 Line {l1=0x0d, l2=»1980 ENDPROC «, l3=0x0d}
0x17b7…17cb Line {l1=0x12, l2=»1990 PROC VARELINI«, l3=0x12}
0x17cb…17d9 Line {l1=0x0c, l2=»2000 REPEAT «, l3=0x0c}
0x17d9…17f8 Line {l1=0x1d, l2=»2010 FEJL6=0;VARTEKST$=BLANK$«, l3=0x1d}
0x17f8…180d Line {l1=0x13, l2=»2020 CURSOR 3,LINIE«, l3=0x13}
0x180d…182d Line {l1=0x1e, l2=»2030 PRINT USING "###":AVALIN;«, l3=0x1e}
0x182d…1846 Line {l1=0x17, l2=»2040 PRINT BLANK$(1:55)«, l3=0x17}
0x1846…1854 Line {l1=0x0c, l2=»2050 REPEAT «, l3=0x0c}
0x1854…1885 Line {l1=0x2f, l2=»2060 EXEC INDPUT1(8,LINIE,-1,1000000,BLANK$(1))«, l3=0x2f}
0x1885…18a8 Line {l1=0x21, l2=»2070 UNTIL NOT (P=3 AND AVALIN=1)«, l3=0x21}
0x18a8…18b7 Line {l1=0x0d, l2=»2080 VARENR=P«, l3=0x0d}
0x18b7…18d0 Line {l1=0x17, l2=»2090 IF VARENR<>0 THEN «, l3=0x17}
0x18d0…18e5 Line {l1=0x13, l2=»2100 CURSOR 8,LINIE«, l3=0x13}
0x18e5…18fd Line {l1=0x16, l2=»2110 IF VARENR=5 THEN «, l3=0x16}
0x18fd…1916 Line {l1=0x17, l2=»2120 PRINT BLANK$(1:25)«, l3=0x17}
0x1916…1922 Line {l1=0x0a, l2=»2130 ELSE «, l3=0x0a}
0x1922…1945 Line {l1=0x21, l2=»2140 PRINT USING "#######":VARENR«, l3=0x21}
0x1945…1952 Line {l1=0x0b, l2=»2150 ENDIF «, l3=0x0b}
0x1952…1968 Line {l1=0x14, l2=»2160 CASE VARENR OF «, l3=0x14}
0x1968…19a2 Line {l1=0x38, l2=»2170 EXEC FINDPOST1(VTAB1,VTAB,MVANTAL,VARENR,VPIL3,K3$)«, l3=0x38}
0x19a2…19b9 Line {l1=0x15, l2=»2180 IF CEKS<>0 THEN «, l3=0x15}
0x19b9…19cf Line {l1=0x14, l2=»2190 CURSOR 17,LINIE«, l3=0x14}
0x19cf…1a0f Line {l1=0x3e, l2=»2200 INPUT "Varenummeret eksisterer ikke. Tast RETURN.",SVAR1$«, l3=0x3e}
0x1a0f…1a33 Line {l1=0x22, l2=»2210 LINIE=LINIE-1;AVALIN=AVALIN-1«, l3=0x22}
0x1a33…1a3f Line {l1=0x0a, l2=»2220 ELSE «, l3=0x0a}
0x1a3f…1a6d Line {l1=0x2c, l2=»2230 EXEC INDPUT2(17,LINIE,BLANK$(1),ANTAL$)«, l3=0x2c}
0x1a6d…1a91 Line {l1=0x22, l2=»2240 EXEC CALC(4,ANTAL$,TAH$,TAH$)«, l3=0x22}
0x1a91…1aac Line {l1=0x19, l2=»2250 IF SI=0 THEN FEJL6=1«, l3=0x19}
0x1aac…1ac3 Line {l1=0x15, l2=»2260 IF FEJL6=0 THEN «, l3=0x15}
0x1ac3…1ad9 Line {l1=0x14, l2=»2270 CURSOR 17,LINIE«, l3=0x14}
0x1ad9…1afe Line {l1=0x23, l2=»2280 PRINT ANTAL$(4:5);BLANK$(1:10)«, l3=0x23}
0x1afe…1b10 Line {l1=0x10, l2=»2290 CURSOR 1,23«, l3=0x10}
0x1b10…1b25 Line {l1=0x13, l2=»2300 EXEC HENTVPOST«, l3=0x13}
0x1b25…1b3b Line {l1=0x14, l2=»2310 CURSOR 23,LINIE«, l3=0x14}
0x1b3b…1b60 Line {l1=0x23, l2=»2320 IF ORD(VARTEKST$(1))=255 THEN «, l3=0x23}
0x1b60…1b7a Line {l1=0x18, l2=»2330 INPUT " ",VARTEKST$«, l3=0x18}
0x1b7a…1b95 Line {l1=0x19, l2=»2340 ARRKODER(AVALIN,2)=1«, l3=0x19}
0x1b95…1ba2 Line {l1=0x0b, l2=»2350 ENDIF «, l3=0x0b}
0x1ba2…1bb8 Line {l1=0x14, l2=»2360 CURSOR 24,LINIE«, l3=0x14}
0x1bb8…1bdb Line {l1=0x21, l2=»2370 PRINT VARTEKST$;BLANK$(1:25)«, l3=0x21}
0x1bdb…1c01 Line {l1=0x24, l2=»2380 EXEC CALC(4,VARPRIS$,TAH$,TAH$)«, l3=0x24}
0x1c01…1c15 Line {l1=0x12, l2=»2390 IF SI=0 THEN «, l3=0x12}
0x1c15…1c45 Line {l1=0x2e, l2=»2400 EXEC INDPUT2(50,LINIE,BLANK$(1),VARPRIS$)«, l3=0x2e}
0x1c45…1c60 Line {l1=0x19, l2=»2410 ARRKODER(AVALIN,1)=1«, l3=0x19}
0x1c60…1c6d Line {l1=0x0b, l2=»2420 ENDIF «, l3=0x0b}
0x1c6d…1c83 Line {l1=0x14, l2=»2430 CURSOR 51,LINIE«, l3=0x14}
0x1c83…1ca6 Line {l1=0x21, l2=»2440 EXEC TUD(VARPRIS$,TAL4$,1,0)«, l3=0x21}
0x1ca6…1cd0 Line {l1=0x28, l2=»2450 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$)«, l3=0x28}
0x1cd0…1ce6 Line {l1=0x14, l2=»2460 CURSOR 66,LINIE«, l3=0x14}
0x1ce6…1d07 Line {l1=0x1f, l2=»2470 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x1d07…1d2f Line {l1=0x26, l2=»2480 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$)«, l3=0x26}
0x1d2f…1d4b Line {l1=0x1a, l2=»2490 IF FLAG<>0 THEN STOP «, l3=0x1a}
0x1d4b…1d84 Line {l1=0x37, l2=»2500 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$«, l3=0x37}
0x1d84…1dc3 Line {l1=0x3d, l2=»2510 VAPRIARR$(AVALIN)=VARPRIS$;VAANTARR$(AVALIN)=ANTAL$(4:5)«, l3=0x3d}
0x1dc3…1de2 Line {l1=0x1d, l2=»2520 BELØBARR$(AVALIN)=BELØB$«, l3=0x1d}
0x1de2…1def Line {l1=0x0b, l2=»2530 ENDIF «, l3=0x0b}
0x1def…1dfc Line {l1=0x0b, l2=»2540 ENDIF «, l3=0x0b}
0x1dfc…1e0b Line {l1=0x0d, l2=»2550 WHEN 1,2«, l3=0x0d}
0x1e0b…1e22 Line {l1=0x15, l2=»2560 VARTEKST$=BLANK$«, l3=0x15}
0x1e22…1e38 Line {l1=0x14, l2=»2570 CURSOR 23,LINIE«, l3=0x14}
0x1e38…1e52 Line {l1=0x18, l2=»2580 INPUT " ",VARTEKST$«, l3=0x18}
0x1e52…1e6a Line {l1=0x16, l2=»2590 L2=LEN(VARTEKST$)«, l3=0x16}
0x1e6a…1e85 Line {l1=0x19, l2=»2600 IF L2=0 THEN FEJL6=1«, l3=0x19}
0x1e85…1e99 Line {l1=0x12, l2=»2610 IF L2>0 THEN «, l3=0x12}
0x1e99…1eaf Line {l1=0x14, l2=»2620 CURSOR 24,LINIE«, l3=0x14}
0x1eaf…1ed2 Line {l1=0x21, l2=»2630 PRINT VARTEKST$;BLANK$(1:25)«, l3=0x21}
0x1ed2…1eea Line {l1=0x16, l2=»2640 IF VARENR=1 THEN «, l3=0x16}
0x1eea…1f18 Line {l1=0x2c, l2=»2650 EXEC INDPUT2(65,LINIE,BLANK$(1),BELØB$)«, l3=0x2c}
0x1f18…1f40 Line {l1=0x26, l2=»2660 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$)«, l3=0x26}
0x1f40…1f56 Line {l1=0x14, l2=»2670 CURSOR 66,LINIE«, l3=0x14}
0x1f56…1f77 Line {l1=0x1f, l2=»2680 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x1f77…1f96 Line {l1=0x1d, l2=»2690 BELØBARR$(AVALIN)=BELØB$«, l3=0x1d}
0x1f96…1fa2 Line {l1=0x0a, l2=»2700 ELSE «, l3=0x0a}
0x1fa2…1fbf Line {l1=0x1b, l2=»2710 BELØBARR$(AVALIN)="0+"«, l3=0x1b}
0x1fbf…1fcc Line {l1=0x0b, l2=»2720 ENDIF «, l3=0x0b}
0x1fcc…2005 Line {l1=0x37, l2=»2730 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$«, l3=0x37}
0x2005…2012 Line {l1=0x0b, l2=»2740 ENDIF «, l3=0x0b}
0x2012…201f Line {l1=0x0b, l2=»2750 WHEN 3«, l3=0x0b}
0x201f…2043 Line {l1=0x22, l2=»2760 IF VANRARR(AVALIN-1)<>3 THEN «, l3=0x22}
0x2043…206f Line {l1=0x2a, l2=»2770 EXEC INDPUT2(24,LINIE,LTX1$,VARPRIS$)«, l3=0x2a}
0x206f…2095 Line {l1=0x24, l2=»2780 EXEC CALC(4,VARPRIS$,TAH$,TAH$)«, l3=0x24}
0x2095…20b0 Line {l1=0x19, l2=»2790 IF SI=0 THEN FEJL6=1«, l3=0x19}
0x20b0…20c7 Line {l1=0x15, l2=»2800 IF FEJL6=0 THEN «, l3=0x15}
0x20c7…20dd Line {l1=0x14, l2=»2810 CURSOR 30,LINIE«, l3=0x14}
0x20dd…2109 Line {l1=0x2a, l2=»2820 PRINT VARPRIS$(7:5);" %";BLANK$(1:25)«, l3=0x2a}
0x2109…2140 Line {l1=0x35, l2=»2830 EXEC CALC(2,VARPRIS$,BELØBARR$(AVALIN-1),BELØB$)«, l3=0x35}
0x2140…2174 Line {l1=0x32, l2=»2840 VATEKARR$(AVALIN)="Rabat "+VARPRIS$(7:5)+" %"«, l3=0x32}
0x2174…21a1 Line {l1=0x2b, l2=»2850 VANRARR(AVALIN)=VARENR;VARPRIS$="100-"«, l3=0x2b}
0x21a1…21cb Line {l1=0x28, l2=»2860 EXEC CALC(3,BELØB$,VARPRIS$,BELØB$)«, l3=0x28}
0x21cb…21e1 Line {l1=0x14, l2=»2870 CURSOR 66,LINIE«, l3=0x14}
0x21e1…2202 Line {l1=0x1f, l2=»2880 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x2202…2221 Line {l1=0x1d, l2=»2890 BELØBARR$(AVALIN)=BELØB$«, l3=0x1d}
0x2221…2249 Line {l1=0x26, l2=»2900 EXEC CALC(0,BELØB$,TOTAL$,TOTAL$)«, l3=0x26}
0x2249…2256 Line {l1=0x0b, l2=»2910 ENDIF «, l3=0x0b}
0x2256…2262 Line {l1=0x0a, l2=»2920 ELSE «, l3=0x0a}
0x2262…2286 Line {l1=0x22, l2=»2930 LINIE=LINIE-1;AVALIN=AVALIN-1«, l3=0x22}
0x2286…2293 Line {l1=0x0b, l2=»2940 ENDIF «, l3=0x0b}
0x2293…22a0 Line {l1=0x0b, l2=»2950 WHEN 4«, l3=0x0b}
0x22a0…22b6 Line {l1=0x14, l2=»2960 CURSOR 24,LINIE«, l3=0x14}
0x22b6…22e2 Line {l1=0x2a, l2=»2970 VARTEKST$="Subtotal "«, l3=0x2a}
0x22e2…22f8 Line {l1=0x14, l2=»2980 PRINT VARTEKST$«, l3=0x14}
0x22f8…230e Line {l1=0x14, l2=»2990 CURSOR 66,LINIE«, l3=0x14}
0x230e…232f Line {l1=0x1f, l2=»3000 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x232f…2368 Line {l1=0x37, l2=»3010 VANRARR(AVALIN)=VARENR;VATEKARR$(AVALIN)=VARTEKST$«, l3=0x37}
0x2368…2387 Line {l1=0x1d, l2=»3020 BELØBARR$(AVALIN)=TOTAL$«, l3=0x1d}
0x2387…2396 Line {l1=0x0d, l2=»3030 ENDCASE «, l3=0x0d}
0x2396…23a2 Line {l1=0x0a, l2=»3040 ELSE «, l3=0x0a}
0x23a2…23b1 Line {l1=0x0d, l2=»3050 VARENR=0«, l3=0x0d}
0x23b1…23c6 Line {l1=0x13, l2=»3060 CURSOR 2,LINIE«, l3=0x13}
0x23c6…23df Line {l1=0x17, l2=»3070 PRINT BLANK$(1:25)«, l3=0x17}
0x23df…23ec Line {l1=0x0b, l2=»3080 ENDIF «, l3=0x0b}
0x23ec…2400 Line {l1=0x12, l2=»3090 UNTIL FEJL6=0«, l3=0x12}
0x2400…240f Line {l1=0x0d, l2=»3100 ENDPROC «, l3=0x0d}
0x240f…2423 Line {l1=0x12, l2=»3110 PROC LINITEST«, l3=0x12}
0x2423…243b Line {l1=0x16, l2=»3120 IF LINIE>23 THEN «, l3=0x16}
0x243b…244f Line {l1=0x12, l2=»3130 EXEC FAKHOVED«, l3=0x12}
0x244f…2460 Line {l1=0x0f, l2=»3140 J=AVALIN-1«, l3=0x0f}
0x2460…2477 Line {l1=0x15, l2=»3150 EXEC VARLINUD(J)«, l3=0x15}
0x2477…248b Line {l1=0x12, l2=»3160 LINIE=LINIE+1«, l3=0x12}
0x248b…2498 Line {l1=0x0b, l2=»3170 ENDIF «, l3=0x0b}
0x2498…24a7 Line {l1=0x0d, l2=»3180 ENDPROC «, l3=0x0d}
0x24a7…24c0 Line {l1=0x17, l2=»3190 PROC VARLINUD(LIN)«, l3=0x17}
0x24c0…24d5 Line {l1=0x13, l2=»3200 CURSOR 3,LINIE«, l3=0x13}
0x24d5…24f1 Line {l1=0x1a, l2=»3210 PRINT USING "###":LIN«, l3=0x1a}
0x24f1…250f Line {l1=0x1c, l2=»3220 IF VANRARR(LIN)>4 THEN «, l3=0x1c}
0x250f…2524 Line {l1=0x13, l2=»3230 CURSOR 8,LINIE«, l3=0x13}
0x2524…254d Line {l1=0x27, l2=»3240 PRINT USING "#######":VANRARR(LIN)«, l3=0x27}
0x254d…2563 Line {l1=0x14, l2=»3250 CURSOR 17,LINIE«, l3=0x14}
0x2563…257e Line {l1=0x19, l2=»3260 PRINT VAANTARR$(LIN)«, l3=0x19}
0x257e…258b Line {l1=0x0b, l2=»3270 ENDIF «, l3=0x0b}
0x258b…25a1 Line {l1=0x14, l2=»3280 CURSOR 24,LINIE«, l3=0x14}
0x25a1…25bc Line {l1=0x19, l2=»3290 PRINT VATEKARR$(LIN)«, l3=0x19}
0x25bc…25da Line {l1=0x1c, l2=»3300 IF VANRARR(LIN)>4 THEN «, l3=0x1c}
0x25da…25f0 Line {l1=0x14, l2=»3310 CURSOR 51,LINIE«, l3=0x14}
0x25f0…2608 Line {l1=0x16, l2=»3320 B$=VAPRIARR$(LIN)«, l3=0x16}
0x2608…2625 Line {l1=0x1b, l2=»3330 EXEC TUD(B$,TAL4$,1,0)«, l3=0x1b}
0x2625…2632 Line {l1=0x0b, l2=»3340 ENDIF «, l3=0x0b}
0x2632…2648 Line {l1=0x14, l2=»3350 CURSOR 66,LINIE«, l3=0x14}
0x2648…2660 Line {l1=0x16, l2=»3360 B$=BELØBARR$(LIN)«, l3=0x16}
0x2660…2695 Line {l1=0x33, l2=»3370 IF VANRARR(LIN)<>2 THEN EXEC TUD(B$,TAL4$,1,0)«, l3=0x33}
0x2695…26a4 Line {l1=0x0d, l2=»3380 ENDPROC «, l3=0x0d}
0x26a4…26b8 Line {l1=0x12, l2=»3390 PROC FAKTBUND«, l3=0x12}
0x26b8…26cd Line {l1=0x13, l2=»3400 GTOTAL$=TOTAL$«, l3=0x13}
0x26cd…26db Line {l1=0x0c, l2=»3410 REPEAT «, l3=0x0c}
0x26db…26eb Line {l1=0x0e, l2=»3420 EXEC SLET«, l3=0x0e}
0x26eb…26fe Line {l1=0x11, l2=»3430 CURSOR 22,19«, l3=0x11}
0x26fe…2724 Line {l1=0x24, l2=»3440 PRINT "Forsendelse Netto"«, l3=0x24}
0x2724…2737 Line {l1=0x11, l2=»3450 CURSOR 56,19«, l3=0x11}
0x2737…2759 Line {l1=0x20, l2=»3460 PRINT "Moms Total"«, l3=0x20}
0x2759…2783 Line {l1=0x28, l2=»3470 EXEC INDPUT2(20,21,BLANK$(1),FORS$)«, l3=0x28}
0x2783…2796 Line {l1=0x11, l2=»3480 CURSOR 21,21«, l3=0x11}
0x2796…27b6 Line {l1=0x1e, l2=»3490 EXEC TUD(FORS$,TAL4$,1,0)«, l3=0x1e}
0x27b6…27c9 Line {l1=0x11, l2=»3500 CURSOR 36,21«, l3=0x11}
0x27c9…27f0 Line {l1=0x25, l2=»3510 EXEC CALC(0,FORS$,TOTAL$,TOTAL$)«, l3=0x25}
0x27f0…2811 Line {l1=0x1f, l2=»3520 EXEC TUD(TOTAL$,TAL4$,1,0)«, l3=0x1f}
0x2811…2839 Line {l1=0x26, l2=»3530 EXEC CALC(2,TOTAL$,MOMS$,FTOTAL$)«, l3=0x26}
0x2839…284d Line {l1=0x12, l2=»3540 ANTAL$="100+"«, l3=0x12}
0x284d…2876 Line {l1=0x27, l2=»3550 EXEC CALC(3,FTOTAL$,ANTAL$,ANTAL$)«, l3=0x27}
0x2876…2889 Line {l1=0x11, l2=»3560 CURSOR 51,21«, l3=0x11}
0x2889…28aa Line {l1=0x1f, l2=»3570 EXEC TUD(ANTAL$,TAL4$,1,0)«, l3=0x1f}
0x28aa…28d3 Line {l1=0x27, l2=»3580 EXEC CALC(0,ANTAL$,TOTAL$,FTOTAL$)«, l3=0x27}
0x28d3…28e6 Line {l1=0x11, l2=»3590 CURSOR 66,21«, l3=0x11}
0x28e6…2908 Line {l1=0x20, l2=»3600 EXEC TUD(FTOTAL$,TAL4$,1,0)«, l3=0x20}
0x2908…291d Line {l1=0x13, l2=»3610 TOTAL$=GTOTAL$«, l3=0x13}
0x291d…2942 Line {l1=0x23, l2=»3620 EXEC INDPUT1(9,23,-9,-6,LTX2$)«, l3=0x23}
0x2942…2953 Line {l1=0x0f, l2=»3630 UNTIL P=-7«, l3=0x0f}
0x2953…2962 Line {l1=0x0d, l2=»3640 ENDPROC «, l3=0x0d}
0x2962…2972 Line {l1=0x0e, l2=»3650 PROC SLET«, l3=0x0e}
0x2972…2984 Line {l1=0x10, l2=»3660 CURSOR 2,19«, l3=0x10}
0x2984…2997 Line {l1=0x11, l2=»3670 PRINT BLANK$«, l3=0x11}
0x2997…29a9 Line {l1=0x10, l2=»3680 CURSOR 2,21«, l3=0x10}
0x29a9…29bc Line {l1=0x11, l2=»3690 PRINT BLANK$«, l3=0x11}
0x29bc…29ce Line {l1=0x10, l2=»3700 CURSOR 2,23«, l3=0x10}
0x29ce…29e1 Line {l1=0x11, l2=»3710 PRINT BLANK$«, l3=0x11}
0x29e1…29f0 Line {l1=0x0d, l2=»3720 ENDPROC «, l3=0x0d}
0x29f0…29ff Line {l1=0x0d, l2=»3730 PROC LUD«, l3=0x0d}
0x29ff…2a0c Line {l1=0x0b, l2=»3740 CLEAR «, l3=0x0b}
0x2a0c…2a20 Line {l1=0x12, l2=»3750 EXEC FAKHOVED«, l3=0x12}
0x2a20…2a38 Line {l1=0x16, l2=»3760 FOR LINIE=5 TO 16«, l3=0x16}
0x2a38…2a54 Line {l1=0x1a, l2=»3770 EXEC VARLINUD(STARTL)«, l3=0x1a}
0x2a54…2a6a Line {l1=0x14, l2=»3780 STARTL=STARTL+1«, l3=0x14}
0x2a6a…2a8b Line {l1=0x1f, l2=»3790 IF STARTL>SLUTL THEN EXIT «, l3=0x1f}
0x2a8b…2a9c Line {l1=0x0f, l2=»3800 NEXT LINIE«, l3=0x0f}
0x2a9c…2aab Line {l1=0x0d, l2=»3810 ENDPROC «, l3=0x0d}
0x2aab…2abc Line {l1=0x0f, l2=»3820 PROC AJOUR«, l3=0x0f}
0x2abc…2ace Line {l1=0x10, l2=»3830 TOTAL$="0+"«, l3=0x10}
0x2ace…2ae6 Line {l1=0x16, l2=»3840 FOR M=1 TO AVALIN«, l3=0x16}
0x2ae6…2b00 Line {l1=0x18, l2=»3850 CASE VANRARR(M) OF «, l3=0x18}
0x2b00…2b2e Line {l1=0x2c, l2=»3860 EXEC CALC(0,TOTAL$,BELØBARR$(M),TOTAL$)«, l3=0x2c}
0x2b2e…2b3b Line {l1=0x0b, l2=»3870 WHEN 2«, l3=0x0b}
0x2b3b…2b48 Line {l1=0x0b, l2=»3880 WHEN 4«, l3=0x0b}
0x2b48…2b62 Line {l1=0x18, l2=»3890 BELØBARR$(M)=TOTAL$«, l3=0x18}
0x2b62…2b6f Line {l1=0x0b, l2=»3900 WHEN 3«, l3=0x0b}
0x2b6f…2baf Line {l1=0x3e, l2=»3910 VARPRIS$=" ,"+VATEKARR$(M,7:2)+VATEKARR$(M,10:2)+"-"«, l3=0x3e}
0x2baf…2bdd Line {l1=0x2c, l2=»3920 IF VARPRIS$(8)=" " THEN VARPRIS$(8)="0"«, l3=0x2c}
0x2bdd…2c0b Line {l1=0x2c, l2=»3930 IF VARPRIS$(9)=" " THEN VARPRIS$(9)="0"«, l3=0x2c}
0x2c0b…2c3c Line {l1=0x2f, l2=»3940 EXEC CALC(2,BELØBARR$(M-1),VARPRIS$,TAL1$)«, l3=0x2f}
0x2c3c…2c55 Line {l1=0x17, l2=»3950 BELØBARR$(M)=TAL1$«, l3=0x17}
0x2c55…2c7c Line {l1=0x25, l2=»3960 EXEC CALC(0,TOTAL$,TAL1$,TOTAL$)«, l3=0x25}
0x2c7c…2c8b Line {l1=0x0d, l2=»3970 ENDCASE «, l3=0x0d}
0x2c8b…2c98 Line {l1=0x0b, l2=»3980 NEXT M«, l3=0x0b}
0x2c98…2ca7 Line {l1=0x0d, l2=»3990 ENDPROC «, l3=0x0d}
0x2ca7…2cba Line {l1=0x11, l2=»4000 PROC FAKTGEM«, l3=0x11}
0x2cba…2ccc Line {l1=0x10, l2=»4010 I=APOSTER+1«, l3=0x10}
0x2ccc…2ce7 Line {l1=0x19, l2=»4020 IF FAKKRE$="F" THEN «, l3=0x19}
0x2ce7…2cfb Line {l1=0x12, l2=»4030 AFAKT=AFAKT+1«, l3=0x12}
0x2cfb…2d07 Line {l1=0x0a, l2=»4040 ELSE «, l3=0x0a}
0x2d07…2d1b Line {l1=0x12, l2=»4050 AKRED=AKRED+1«, l3=0x12}
0x2d1b…2d28 Line {l1=0x0b, l2=»4060 ENDIF «, l3=0x0b}
0x2d28…2d39 Line {l1=0x0f, l2=»4070 OPEN K6$,W«, l3=0x0f}
0x2d39…2d52 Line {l1=0x17, l2=»4080 EXEC FEJL(3,1,K6$)«, l3=0x17}
0x2d52…2d80 Line {l1=0x2c, l2=»4090 PUT K6$,I:KUNDENR,ORDREDAT,FAKKRE$,DIVD«, l3=0x2c}
0x2d80…2d99 Line {l1=0x17, l2=»4100 EXEC FEJL(3,2,K6$)«, l3=0x17}
0x2d99…2da5 Line {l1=0x0a, l2=»4110 I=I+2«, l3=0x0a}
0x2da5…2dbb Line {l1=0x14, l2=»4120 IF DIVD=1 THEN «, l3=0x14}
0x2dbb…2dda Line {l1=0x1d, l2=»4130 PUT K6$,I:DEBNAVN$(1:13)«, l3=0x1d}
0x2dda…2df3 Line {l1=0x17, l2=»4140 EXEC FEJL(3,3,K6$)«, l3=0x17}
0x2df3…2e15 Line {l1=0x20, l2=»4150 PUT K6$,I+1:DEBNAVN$(14:12)«, l3=0x20}
0x2e15…2e2e Line {l1=0x17, l2=»4160 EXEC FEJL(3,4,K6$)«, l3=0x17}
0x2e2e…2e4f Line {l1=0x1f, l2=»4170 PUT K6$,I+2:DEBGADE$(1:13)«, l3=0x1f}
0x2e4f…2e68 Line {l1=0x17, l2=»4180 EXEC FEJL(3,5,K6$)«, l3=0x17}
0x2e68…2e8a Line {l1=0x20, l2=»4190 PUT K6$,I+3:DEBGADE$(14:12)«, l3=0x20}
0x2e8a…2ea3 Line {l1=0x17, l2=»4200 EXEC FEJL(3,6,K6$)«, l3=0x17}
0x2ea3…2ec9 Line {l1=0x24, l2=»4210 PUT K6$,I+4:DPOSTNR,DEBBY$(1:9)«, l3=0x24}
0x2ec9…2ee2 Line {l1=0x17, l2=»4220 EXEC FEJL(3,7,K6$)«, l3=0x17}
0x2ee2…2f02 Line {l1=0x1e, l2=»4230 PUT K6$,I+5:DEBBY$(10:11)«, l3=0x1e}
0x2f02…2f1b Line {l1=0x17, l2=»4240 EXEC FEJL(3,8,K6$)«, l3=0x17}
0x2f1b…2f27 Line {l1=0x0a, l2=»4250 I=I+6«, l3=0x0a}
0x2f27…2f34 Line {l1=0x0b, l2=»4260 ENDIF «, l3=0x0b}
0x2f34…2f4d Line {l1=0x17, l2=»4270 IF LEVKODE=0 THEN «, l3=0x17}
0x2f4d…2f62 Line {l1=0x13, l2=»4280 FOR J=I TO I+3«, l3=0x13}
0x2f62…2f8b Line {l1=0x27, l2=»4290 PUT K6$,J:LEVTEKST$((J-I)*13+1:13)«, l3=0x27}
0x2f8b…2fa4 Line {l1=0x17, l2=»4300 EXEC FEJL(3,8,K6$)«, l3=0x17}
0x2fa4…2fb1 Line {l1=0x0b, l2=»4310 NEXT J«, l3=0x0b}
0x2fb1…2fbd Line {l1=0x0a, l2=»4320 I=I+4«, l3=0x0a}
0x2fbd…2fca Line {l1=0x0b, l2=»4330 ENDIF «, l3=0x0b}
0x2fca…2fdd Line {l1=0x11, l2=»4340 EXEC KODE(1)«, l3=0x11}
0x2fdd…2fee Line {l1=0x0f, l2=»4350 KOD1$=KOD$«, l3=0x0f}
0x2fee…300a Line {l1=0x1a, l2=»4360 FOR LINIE=1 TO AVALIN«, l3=0x1a}
0x300a…301a Line {l1=0x0e, l2=»4370 J=LINIE+1«, l3=0x0e}
0x301a…302d Line {l1=0x11, l2=»4380 EXEC KODE(J)«, l3=0x11}
0x302d…3042 Line {l1=0x13, l2=»4390 CASE KOD1$ OF «, l3=0x13}
0x3042…304e Line {l1=0x0a, l2=»4400 STOP «, l3=0x0a}
0x304e…305d Line {l1=0x0d, l2=»4410 WHEN "A"«, l3=0x0d}
0x305d…3071 Line {l1=0x12, l2=»4420 EXEC VALINGEM«, l3=0x12}
0x3071…3080 Line {l1=0x0d, l2=»4430 WHEN "B"«, l3=0x0d}
0x3080…309f Line {l1=0x1d, l2=»4440 VATEKARR$(LINIE,13)=KOD$«, l3=0x1d}
0x309f…30c5 Line {l1=0x24, l2=»4450 PUT K6$,I:VATEKARR$(LINIE,1:13)«, l3=0x24}
0x30c5…30de Line {l1=0x17, l2=»4460 EXEC FEJL(3,9,K6$)«, l3=0x17}
0x30de…30ea Line {l1=0x0a, l2=»4470 I=I+1«, l3=0x0a}
0x30ea…30f9 Line {l1=0x0d, l2=»4480 WHEN "C"«, l3=0x0d}
0x30f9…311e Line {l1=0x23, l2=»4490 EXEC ELØBGEM(BELØBARR$(LINIE))«, l3=0x23}
0x311e…312d Line {l1=0x0d, l2=»4500 WHEN "D"«, l3=0x0d}
0x312d…3141 Line {l1=0x12, l2=»4510 EXEC TEKSTGEM«, l3=0x12}
0x3141…3150 Line {l1=0x0d, l2=»4520 WHEN "E"«, l3=0x0d}
0x3150…3164 Line {l1=0x12, l2=»4530 EXEC TEKSTGEM«, l3=0x12}
0x3164…3189 Line {l1=0x23, l2=»4540 EXEC ELØBGEM(BELØBARR$(LINIE))«, l3=0x23}
0x3189…3198 Line {l1=0x0d, l2=»4550 WHEN "F"«, l3=0x0d}
0x3198…31ac Line {l1=0x12, l2=»4560 EXEC VALINGEM«, l3=0x12}
0x31ac…31d1 Line {l1=0x23, l2=»4570 EXEC ELØBGEM(VAPRIARR$(LINIE))«, l3=0x23}
0x31d1…31e4 Line {l1=0x11, l2=»4580 WHEN "G","H"«, l3=0x11}
0x31e4…31f8 Line {l1=0x12, l2=»4590 EXEC TEKSTGEM«, l3=0x12}
0x31f8…320c Line {l1=0x12, l2=»4600 EXEC VALINGEM«, l3=0x12}
0x320c…3225 Line {l1=0x17, l2=»4610 IF KOD1$="H" THEN «, l3=0x17}
0x3225…324a Line {l1=0x23, l2=»4620 EXEC ELØBGEM(VAPRIARR$(LINIE))«, l3=0x23}
0x324a…3257 Line {l1=0x0b, l2=»4630 ENDIF «, l3=0x0b}
0x3257…3266 Line {l1=0x0d, l2=»4640 ENDCASE «, l3=0x0d}
0x3266…3277 Line {l1=0x0f, l2=»4650 KOD1$=KOD$«, l3=0x0f}
0x3277…3288 Line {l1=0x0f, l2=»4660 NEXT LINIE«, l3=0x0f}
0x3288…32a2 Line {l1=0x18, l2=»4670 EXEC ELØBGEM(FORS$)«, l3=0x18}
0x32a2…32bc Line {l1=0x18, l2=»4680 EXEC ELØBGEM(MOMS$)«, l3=0x18}
0x32bc…32d8 Line {l1=0x1a, l2=»4690 EXEC ELØBGEM(FTOTAL$)«, l3=0x1a}
0x32d8…32e4 Line {l1=0x0a, l2=»4700 I=I-1«, l3=0x0a}
0x32e4…32f7 Line {l1=0x11, l2=»4710 EXEC KODE(1)«, l3=0x11}
0x32f7…3327 Line {l1=0x2e, l2=»4720 IF LEVKODE=11 THEN KOD$=CHR(11+ORD(KOD$))«, l3=0x2e}
0x3327…335c Line {l1=0x33, l2=»4730 PUT K6$,APOSTER+2:ORDRENR,FDATO,I-APOSTER,KOD$«, l3=0x33}
0x335c…3376 Line {l1=0x18, l2=»4740 EXEC FEJL(3,10,K6$)«, l3=0x18}
0x3376…3386 Line {l1=0x0e, l2=»4750 APOSTER=I«, l3=0x0e}
0x3386…3396 Line {l1=0x0e, l2=»4760 CLOSE K6$«, l3=0x0e}
0x3396…33b0 Line {l1=0x18, l2=»4770 EXEC FEJL(3,11,K6$)«, l3=0x18}
0x33b0…33bf Line {l1=0x0d, l2=»4780 ENDPROC «, l3=0x0d}
0x33bf…33d3 Line {l1=0x12, l2=»4790 PROC TEKSTGEM«, l3=0x12}
0x33d3…33f9 Line {l1=0x24, l2=»4800 PUT K6$,I:VATEKARR$(LINIE,1:13)«, l3=0x24}
0x33f9…3412 Line {l1=0x17, l2=»4810 EXEC FEJL(4,1,K6$)«, l3=0x17}
0x3412…3440 Line {l1=0x2c, l2=»4820 TAL4$=VATEKARR$(LINIE,14:12)+KOD$;I=I+2«, l3=0x2c}
0x3440…345e Line {l1=0x1c, l2=»4830 PUT K6$,I-1:TAL4$(1:13)«, l3=0x1c}
0x345e…3477 Line {l1=0x17, l2=»4840 EXEC FEJL(4,2,K6$)«, l3=0x17}
0x3477…3486 Line {l1=0x0d, l2=»4850 ENDPROC «, l3=0x0d}
0x3486…349e Line {l1=0x16, l2=»4860 PROC ELØBGEM(BEL)«, l3=0x16}
0x349e…34ba Line {l1=0x1a, l2=»4870 TAL4$=BEL$+KOD$;I=I+1«, l3=0x1a}
0x34ba…34d8 Line {l1=0x1c, l2=»4880 PUT K6$,I-1:TAL4$(1:13)«, l3=0x1c}
0x34d8…34f1 Line {l1=0x17, l2=»4890 EXEC FEJL(5,1,K6$)«, l3=0x17}
0x34f1…3500 Line {l1=0x0d, l2=»4900 ENDPROC «, l3=0x0d}
0x3500…3514 Line {l1=0x12, l2=»4910 PROC VALINGEM«, l3=0x12}
0x3514…3549 Line {l1=0x33, l2=»4920 PUT K6$,I:VANRARR(LINIE),VAANTARR$(LINIE),KOD$«, l3=0x33}
0x3549…3562 Line {l1=0x17, l2=»4930 EXEC FEJL(6,1,K6$)«, l3=0x17}
0x3562…356e Line {l1=0x0a, l2=»4940 I=I+1«, l3=0x0a}
0x356e…357d Line {l1=0x0d, l2=»4950 ENDPROC «, l3=0x0d}
0x357d…3591 Line {l1=0x12, l2=»4960 PROC KODE(LI)«, l3=0x12}
0x3591…35c6 Line {l1=0x33, l2=»4970 IF ARRKODER(LI,1)=0 AND ARRKODER(LI,2)=0 THEN «, l3=0x33}
0x35c6…35e1 Line {l1=0x19, l2=»4980 CASE VANRARR(LI) OF «, l3=0x19}
0x35e1…35f0 Line {l1=0x0d, l2=»4990 KOD$="A"«, l3=0x0d}
0x35f0…35fd Line {l1=0x0b, l2=»5000 WHEN 3«, l3=0x0b}
0x35fd…360c Line {l1=0x0d, l2=»5010 KOD$="B"«, l3=0x0d}
0x360c…3619 Line {l1=0x0b, l2=»5020 WHEN 4«, l3=0x0b}
0x3619…3628 Line {l1=0x0d, l2=»5030 KOD$="C"«, l3=0x0d}
0x3628…3635 Line {l1=0x0b, l2=»5040 WHEN 2«, l3=0x0b}
0x3635…3644 Line {l1=0x0d, l2=»5050 KOD$="D"«, l3=0x0d}
0x3644…3651 Line {l1=0x0b, l2=»5060 WHEN 1«, l3=0x0b}
0x3651…3660 Line {l1=0x0d, l2=»5070 KOD$="E"«, l3=0x0d}
0x3660…366f Line {l1=0x0d, l2=»5080 ENDCASE «, l3=0x0d}
0x366f…367b Line {l1=0x0a, l2=»5090 ELSE «, l3=0x0a}
0x367b…369b Line {l1=0x1e, l2=»5100 IF ARRKODER(LI,1)=0 THEN «, l3=0x1e}
0x369b…36aa Line {l1=0x0d, l2=»5110 KOD$="G"«, l3=0x0d}
0x36aa…36b6 Line {l1=0x0a, l2=»5120 ELSE «, l3=0x0a}
0x36b6…36d6 Line {l1=0x1e, l2=»5130 IF ARRKODER(LI,2)=0 THEN «, l3=0x1e}
0x36d6…36e5 Line {l1=0x0d, l2=»5140 KOD$="F"«, l3=0x0d}
0x36e5…36f1 Line {l1=0x0a, l2=»5150 ELSE «, l3=0x0a}
0x36f1…3700 Line {l1=0x0d, l2=»5160 KOD$="H"«, l3=0x0d}
0x3700…370d Line {l1=0x0b, l2=»5170 ENDIF «, l3=0x0b}
0x370d…371a Line {l1=0x0b, l2=»5180 ENDIF «, l3=0x0b}
0x371a…3727 Line {l1=0x0b, l2=»5190 ENDIF «, l3=0x0b}
0x3727…3736 Line {l1=0x0d, l2=»5200 ENDPROC «, l3=0x0d}
0x3736…3748 Line {l1=0x10, l2=»5210 PROC SYSGEM«, l3=0x10}
0x3748…378e Line {l1=0x44, l2=»5220 T1(1)=FAKTNR;T1(2)=KREDNR;T2(4)=APOSTER;T2(5)=AKRED;T2(6)=AFAKT«, l3=0x44}
0x378e…37af Line {l1=0x1f, l2=»5230 T2(7)=AVKONTI;T2(8)=FJPOST«, l3=0x1f}
0x37af…37c0 Line {l1=0x0f, l2=»5240 OPEN K7$,W«, l3=0x0f}
0x37c0…37d9 Line {l1=0x17, l2=»5250 EXEC FEJL(9,1,K7$)«, l3=0x17}
0x37d9…381f Line {l1=0x44, l2=»5260 PUT K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x381f…3838 Line {l1=0x17, l2=»5270 EXEC FEJL(9,2,K7$)«, l3=0x17}
0x3838…387f Line {l1=0x45, l2=»5280 PUT K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x387f…3898 Line {l1=0x17, l2=»5290 EXEC FEJL(9,3,K7$)«, l3=0x17}
0x3898…38a8 Line {l1=0x0e, l2=»5300 CLOSE K7$«, l3=0x0e}
0x38a8…38c1 Line {l1=0x17, l2=»5310 EXEC FEJL(9,4,K7$)«, l3=0x17}
0x38c1…38d0 Line {l1=0x0d, l2=»5320 ENDPROC «, l3=0x0d}
0x38d0…38ec Line {l1=0x1a, l2=»5330 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x38ec…38fd Line {l1=0x0f, l2=»5340 OPEN K1$,R«, l3=0x0f}
0x38fd…3916 Line {l1=0x17, l2=»5350 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x3916…3946 Line {l1=0x2e, l2=»5360 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL«, l3=0x2e}
0x3946…395f Line {l1=0x17, l2=»5370 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x395f…3984 Line {l1=0x23, l2=»5380 GET K1$,4:KPOST,MFAK,MVGR,MKGR«, l3=0x23}
0x3984…399d Line {l1=0x17, l2=»5390 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x399d…39c5 Line {l1=0x26, l2=»5400 GET K1$,8:DIVNR,DIVDNR,DIFNR,DTAL«, l3=0x26}
0x39c5…39de Line {l1=0x17, l2=»5410 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x39de…39f2 Line {l1=0x12, l2=»5420 GET K1$,10:N$«, l3=0x12}
0x39f2…3a0b Line {l1=0x17, l2=»5430 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x3a0b…3a20 Line {l1=0x13, l2=»5440 GET K1$,12:K2$«, l3=0x13}
0x3a20…3a39 Line {l1=0x17, l2=»5450 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x3a39…3a4e Line {l1=0x13, l2=»5460 GET K1$,14:K3$«, l3=0x13}
0x3a4e…3a67 Line {l1=0x17, l2=»5470 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x3a67…3a7c Line {l1=0x13, l2=»5480 GET K1$,16:K4$«, l3=0x13}
0x3a7c…3a95 Line {l1=0x17, l2=»5490 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x3a95…3aaa Line {l1=0x13, l2=»5500 GET K1$,18:K5$«, l3=0x13}
0x3aaa…3ac3 Line {l1=0x17, l2=»5510 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x3ac3…3ad8 Line {l1=0x13, l2=»5520 GET K1$,29:K6$«, l3=0x13}
0x3ad8…3af2 Line {l1=0x18, l2=»5530 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x3af2…3b07 Line {l1=0x13, l2=»5540 GET K1$,36:K7$«, l3=0x13}
0x3b07…3b21 Line {l1=0x18, l2=»5550 EXEC FEJL(9,11,K1$)«, l3=0x18}
0x3b21…3b31 Line {l1=0x0e, l2=»5560 CLOSE K1$«, l3=0x0e}
0x3b31…3b4b Line {l1=0x18, l2=»5570 EXEC FEJL(9,12,K1$)«, l3=0x18}
0x3b4b…3b93 Line {l1=0x46, l2=»5580 DIM VTAB1(MVANTAL DIV 4),DTAB1(MDANTAL DIV 4),VTAB(4,2),DTAB(4,2)«, l3=0x46}
0x3b93…3bdb Line {l1=0x46, l2=»5590 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K6$=N$+K6$;K7$=N$+K7$«, l3=0x46}
0x3bdb…3bec Line {l1=0x0f, l2=»5600 OPEN K7$,R«, l3=0x0f}
0x3bec…3c06 Line {l1=0x18, l2=»5610 EXEC FEJL(9,13,K7$)«, l3=0x18}
0x3c06…3c1c Line {l1=0x14, l2=»5620 GET K7$,1:MOMS$«, l3=0x14}
0x3c1c…3c36 Line {l1=0x18, l2=»5630 EXEC FEJL(9,14,K7$)«, l3=0x18}
0x3c36…3c7c Line {l1=0x44, l2=»5640 GET K7$,2:T1(1),T1(2),T1(3),T1(4),T1(5),T1(6),T1(7),T1(8),T1(9)«, l3=0x44}
0x3c7c…3c96 Line {l1=0x18, l2=»5650 EXEC FEJL(9,15,K7$)«, l3=0x18}
0x3c96…3ca9 Line {l1=0x11, l2=»5660 FOR I=1 TO 3«, l3=0x11}
0x3ca9…3cbb Line {l1=0x10, l2=»5670 H=(I-1)*3+1«, l3=0x10}
0x3cbb…3cec Line {l1=0x2f, l2=»5680 GET K7$,I+2:LAND$(H),LAND$(H+1),LAND$(H+2)«, l3=0x2f}
0x3cec…3d06 Line {l1=0x18, l2=»5690 EXEC FEJL(9,16,K7$)«, l3=0x18}
0x3d06…3d13 Line {l1=0x0b, l2=»5700 NEXT I«, l3=0x0b}
0x3d13…3d5a Line {l1=0x45, l2=»5710 GET K7$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),T2(9)«, l3=0x45}
0x3d5a…3d74 Line {l1=0x18, l2=»5720 EXEC FEJL(9,17,K7$)«, l3=0x18}
0x3d74…3d84 Line {l1=0x0e, l2=»5730 CLOSE K7$«, l3=0x0e}
0x3d84…3d9e Line {l1=0x18, l2=»5740 EXEC FEJL(9,18,K7$)«, l3=0x18}
0x3d9e…3daf Line {l1=0x0f, l2=»5750 OPEN K2$,R«, l3=0x0f}
0x3daf…3dc9 Line {l1=0x18, l2=»5760 EXEC FEJL(9,19,K2$)«, l3=0x18}
0x3dc9…3dda Line {l1=0x0f, l2=»5770 OPEN K3$,R«, l3=0x0f}
0x3dda…3df4 Line {l1=0x18, l2=»5780 EXEC FEJL(9,20,K3$)«, l3=0x18}
0x3df4…3e05 Line {l1=0x0f, l2=»5790 OPEN K4$,R«, l3=0x0f}
0x3e05…3e1f Line {l1=0x18, l2=»5800 EXEC FEJL(9,21,K4$)«, l3=0x18}
0x3e1f…3e30 Line {l1=0x0f, l2=»5810 OPEN K5$,R«, l3=0x0f}
0x3e30…3e4a Line {l1=0x18, l2=»5820 EXEC FEJL(9,22,K5$)«, l3=0x18}
0x3e4a…3e70 Line {l1=0x24, l2=»5830 EXEC INDTAB1(VTAB1,MVANTAL,K3$)«, l3=0x24}
0x3e70…3e96 Line {l1=0x24, l2=»5840 EXEC INDTAB1(DTAB1,MDANTAL,K2$)«, l3=0x24}
0x3e96…3ecf Line {l1=0x37, l2=»5850 FAKTNR=T1(1);KREDNR=T1(2);DATO=T1(7);APOSTER=T2(4)«, l3=0x37}
0x3ecf…3f08 Line {l1=0x37, l2=»5860 AKRED=T2(5);AFAKT=T2(6);AVKONTI=T2(7);FJPOST=T2(8)«, l3=0x37}
0x3f08…3f16 Line {l1=0x0c, l2=»5870 REPEAT «, l3=0x0c}
0x3f16…3f31 Line {l1=0x19, l2=»5880 TOTAL$="0+";AVALIN=1«, l3=0x19}
0x3f31…3f3f Line {l1=0x0c, l2=»5890 REPEAT «, l3=0x0c}
0x3f3f…3f4d Line {l1=0x0c, l2=»5900 REPEAT «, l3=0x0c}
0x3f4d…3f5b Line {l1=0x0c, l2=»5910 REPEAT «, l3=0x0c}
0x3f5b…3f68 Line {l1=0x0b, l2=»5920 CLEAR «, l3=0x0b}
0x3f68…3f76 Line {l1=0x0c, l2=»5930 REPEAT «, l3=0x0c}
0x3f76…3f9e Line {l1=0x26, l2=»5940 EXEC INDPUT1(9,1,-1,100000,LTX3$)«, l3=0x26}
0x3f9e…3fbb Line {l1=0x1b, l2=»5950 UNTIL KTAL=DTAL OR P=0«, l3=0x1b}
0x3fbb…3fcb Line {l1=0x0e, l2=»5960 KUNDENR=P«, l3=0x0e}
0x3fcb…3fe9 Line {l1=0x1c, l2=»5970 IF KUNDENR=0 THEN EXIT «, l3=0x1c}
0x3fe9…3ffb Line {l1=0x10, l2=»5980 CURSOR 56,1«, l3=0x10}
0x3ffb…402b Line {l1=0x2e, l2=»5990 PRINT USING "####### ":KUNDENR«, l3=0x2e}
0x402b…404a Line {l1=0x1d, l2=»6000 IF KUNDENR<>DIVDNR THEN «, l3=0x1d}
0x404a…4057 Line {l1=0x0b, l2=»6010 DIVD=0«, l3=0x0b}
0x4057…4092 Line {l1=0x39, l2=»6020 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,KUNDENR,DPIL3,K2$)«, l3=0x39}
0x4092…40a8 Line {l1=0x14, l2=»6030 IF CEKS=1 THEN «, l3=0x14}
0x40a8…40b9 Line {l1=0x0f, l2=»6040 CURSOR 9,3«, l3=0x0f}
0x40b9…40f3 Line {l1=0x38, l2=»6050 INPUT "Kunden eksisterer ikke. Tast RETURN.",SVAR1$«, l3=0x38}
0x40f3…40ff Line {l1=0x0a, l2=»6060 ELSE «, l3=0x0a}
0x40ff…4114 Line {l1=0x13, l2=»6070 EXEC HENTDPOST«, l3=0x13}
0x4114…4121 Line {l1=0x0b, l2=»6080 ENDIF «, l3=0x0b}
0x4121…412d Line {l1=0x0a, l2=»6090 ELSE «, l3=0x0a}
0x412d…4141 Line {l1=0x12, l2=»6100 DIVD=1;CEKS=0«, l3=0x12}
0x4141…417b Line {l1=0x38, l2=»6110 EXEC FINDPOST1(DTAB1,DTAB,MDANTAL,DIVDNR,DPIL3,K2$)«, l3=0x38}
0x417b…4196 Line {l1=0x19, l2=»6120 IF CEKS=1 THEN STOP «, l3=0x19}
0x4196…41ab Line {l1=0x13, l2=»6130 EXEC HENTDPOST«, l3=0x13}
0x41ab…41bd Line {l1=0x10, l2=»6140 CURSOR 34,5«, l3=0x10}
0x41bd…41d1 Line {l1=0x12, l2=»6150 PRINT "Navn."«, l3=0x12}
0x41d1…41e2 Line {l1=0x0f, l2=»6160 CURSOR 8,5«, l3=0x0f}
0x41e2…41fb Line {l1=0x17, l2=»6170 INPUT " ",DEBNAVN$«, l3=0x17}
0x41fb…420c Line {l1=0x0f, l2=»6180 CURSOR 9,5«, l3=0x0f}
0x420c…422e Line {l1=0x20, l2=»6190 PRINT DEBNAVN$;BLANK$(1:25)«, l3=0x20}
0x422e…4240 Line {l1=0x10, l2=»6200 CURSOR 34,6«, l3=0x10}
0x4240…4254 Line {l1=0x12, l2=»6210 PRINT "Gade."«, l3=0x12}
0x4254…4265 Line {l1=0x0f, l2=»6220 CURSOR 8,6«, l3=0x0f}
0x4265…427e Line {l1=0x17, l2=»6230 INPUT " ",DEBGADE$«, l3=0x17}
0x427e…428f Line {l1=0x0f, l2=»6240 CURSOR 9,6«, l3=0x0f}
0x428f…42b1 Line {l1=0x20, l2=»6250 PRINT DEBGADE$;BLANK$(1:25)«, l3=0x20}
0x42b1…42c3 Line {l1=0x10, l2=»6260 CURSOR 13,7«, l3=0x10}
0x42c3…42dd Line {l1=0x18, l2=»6270 PRINT "Postnummer."«, l3=0x18}
0x42dd…42eb Line {l1=0x0c, l2=»6280 REPEAT «, l3=0x0c}
0x42eb…42fc Line {l1=0x0f, l2=»6290 CURSOR 8,7«, l3=0x0f}
0x42fc…4312 Line {l1=0x14, l2=»6300 INPUT " ",TAL1$«, l3=0x14}
0x4312…432b Line {l1=0x17, l2=»6310 EXEC NRTEST(TAL1$)«, l3=0x17}
0x432b…4349 Line {l1=0x1c, l2=»6320 UNTIL TEST2=0 AND P>999«, l3=0x1c}
0x4349…4359 Line {l1=0x0e, l2=»6330 DPOSTNR=P«, l3=0x0e}
0x4359…436b Line {l1=0x10, l2=»6340 CURSOR 13,7«, l3=0x10}
0x436b…4392 Line {l1=0x25, l2=»6350 PRINT BLANK$(1:25);TAB(22);"By."«, l3=0x25}
0x4392…43a4 Line {l1=0x10, l2=»6360 CURSOR 13,7«, l3=0x10}
0x43a4…43bb Line {l1=0x15, l2=»6370 INPUT " ",DEBBY$«, l3=0x15}
0x43bb…43cd Line {l1=0x10, l2=»6380 CURSOR 34,7«, l3=0x10}
0x43cd…43e6 Line {l1=0x17, l2=»6390 PRINT BLANK$(1:25)«, l3=0x17}
0x43e6…43f3 Line {l1=0x0b, l2=»6400 ENDIF «, l3=0x0b}
0x43f3…4406 Line {l1=0x11, l2=»6410 UNTIL CEKS=0«, l3=0x11}
0x4406…4424 Line {l1=0x1c, l2=»6420 IF KUNDENR=0 THEN EXIT «, l3=0x1c}
0x4424…443a Line {l1=0x14, l2=»6430 EXEC KUNDEUD(1)«, l3=0x14}
0x443a…445f Line {l1=0x23, l2=»6440 EXEC INDPUT1(9,21,-9,-6,LTX4$)«, l3=0x23}
0x445f…4470 Line {l1=0x0f, l2=»6450 UNTIL P=-7«, l3=0x0f}
0x4470…448e Line {l1=0x1c, l2=»6460 IF KUNDENR=0 THEN EXIT «, l3=0x1c}
0x448e…44cd Line {l1=0x3d, l2=»6470 IF APOSTER>MFAK*20-130 OR FJPOST+AFAKT+AKRED=>MFAK THEN «, l3=0x3d}
0x44cd…44f1 Line {l1=0x22, l2=»6480 EXEC INDPUT1(9,23,-2,0,LTX7$)«, l3=0x22}
0x44f1…44fd Line {l1=0x0a, l2=»6490 ELSE «, l3=0x0a}
0x44fd…450b Line {l1=0x0c, l2=»6500 REPEAT «, l3=0x0c}
0x450b…451d Line {l1=0x10, l2=»6510 CURSOR 9,23«, l3=0x10}
0x451d…454d Line {l1=0x2e, l2=»6520 INPUT "Faktura/kreditnota (F/K):",FAKKRE$«, l3=0x2e}
0x454d…4592 Line {l1=0x43, l2=»6530 UNTIL FAKKRE$="F" OR FAKKRE$="K" OR FAKKRE$="f" OR FAKKRE$="k"«, l3=0x43}
0x4592…45b8 Line {l1=0x24, l2=»6540 IF FAKKRE$="f" THEN FAKKRE$="F"«, l3=0x24}
0x45b8…45de Line {l1=0x24, l2=»6550 IF FAKKRE$="k" THEN FAKKRE$="K"«, l3=0x24}
0x45de…45eb Line {l1=0x0b, l2=»6560 CLEAR «, l3=0x0b}
0x45eb…4601 Line {l1=0x14, l2=»6570 EXEC KUNDEUD(2)«, l3=0x14}
0x4601…4613 Line {l1=0x10, l2=»6580 CURSOR 50,4«, l3=0x10}
0x4613…462e Line {l1=0x19, l2=»6590 IF FAKKRE$="F" THEN «, l3=0x19}
0x462e…4667 Line {l1=0x37, l2=»6600 PRINT USING "Fakturanr.: #######":FAKTNR+AFAKT«, l3=0x37}
0x4667…4673 Line {l1=0x0a, l2=»6610 ELSE «, l3=0x0a}
0x4673…46ac Line {l1=0x37, l2=»6620 PRINT USING "Kreditnotanr.: #######":KREDNR+AKRED«, l3=0x37}
0x46ac…46b9 Line {l1=0x0b, l2=»6630 ENDIF «, l3=0x0b}
0x46b9…46cb Line {l1=0x10, l2=»6640 CURSOR 50,6«, l3=0x10}
0x46cb…46ff Line {l1=0x32, l2=»6650 PRINT USING "Kundenr.: #######":KUNDENR«, l3=0x32}
0x46ff…4711 Line {l1=0x10, l2=»6660 CURSOR 50,8«, l3=0x10}
0x4711…472a Line {l1=0x17, l2=»6670 PRINT "Ordredato:"«, l3=0x17}
0x472a…4738 Line {l1=0x0c, l2=»6680 LINIE=8«, l3=0x0c}
0x4738…474c Line {l1=0x12, l2=»6690 EXEC DATOINDT«, l3=0x12}
0x474c…475f Line {l1=0x11, l2=»6700 ORDREDAT=DAT«, l3=0x11}
0x475f…4789 Line {l1=0x28, l2=»6710 EXEC INDPUT1(50,10,0,1000000,LTX5$)«, l3=0x28}
0x4789…4799 Line {l1=0x0e, l2=»6720 ORDRENR=P«, l3=0x0e}
0x4799…47ac Line {l1=0x11, l2=»6730 CURSOR 66,10«, l3=0x11}
0x47ac…47d5 Line {l1=0x27, l2=»6740 PRINT USING "####### ":ORDRENR«, l3=0x27}
0x47d5…47e8 Line {l1=0x11, l2=»6750 CURSOR 50,12«, l3=0x11}
0x47e8…47fc Line {l1=0x12, l2=»6760 PRINT "Dato:"«, l3=0x12}
0x47fc…480b Line {l1=0x0d, l2=»6770 LINIE=12«, l3=0x0d}
0x480b…481f Line {l1=0x12, l2=»6780 EXEC DATOINDT«, l3=0x12}
0x481f…482f Line {l1=0x0e, l2=»6790 FDATO=DAT«, l3=0x0e}
0x482f…4841 Line {l1=0x10, l2=»6800 CURSOR 9,14«, l3=0x10}
0x4841…4864 Line {l1=0x21, l2=»6810 INPUT "Levering: ",LEVTEKST$«, l3=0x21}
0x4864…4874 Line {l1=0x0e, l2=»6820 LEVKODE=0«, l3=0x0e}
0x4874…489e Line {l1=0x28, l2=»6830 IF LEN(LEVTEKST$)=0 THEN LEVKODE=11«, l3=0x28}
0x489e…48c3 Line {l1=0x23, l2=»6840 EXEC INDPUT1(9,17,-9,-6,LTX6$)«, l3=0x23}
0x48c3…48d0 Line {l1=0x0b, l2=»6850 ENDIF «, l3=0x0b}
0x48d0…48e1 Line {l1=0x0f, l2=»6860 UNTIL P=-7«, l3=0x0f}
0x48e1…48ff Line {l1=0x1c, l2=»6870 IF KUNDENR=0 THEN EXIT «, l3=0x1c}
0x48ff…4940 Line {l1=0x3f, l2=»6880 IF APOSTER<=MFAK*20-130 AND FJPOST+AFAKT+AKRED<=MFAK THEN «, l3=0x3f}
0x4940…4954 Line {l1=0x12, l2=»6890 EXEC FAKHOVED«, l3=0x12}
0x4954…4963 Line {l1=0x0d, l2=»6900 AVALIN=1«, l3=0x0d}
0x4963…4971 Line {l1=0x0c, l2=»6910 REPEAT «, l3=0x0c}
0x4971…49a1 Line {l1=0x2e, l2=»6920 ARRKODER(AVALIN,1)=0;ARRKODER(AVALIN,2)=0«, l3=0x2e}
0x49a1…49b5 Line {l1=0x12, l2=»6930 EXEC VARELINI«, l3=0x12}
0x49b5…49d2 Line {l1=0x1b, l2=»6940 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x49d2…49f6 Line {l1=0x22, l2=»6950 AVALIN=AVALIN+1;LINIE=LINIE+1«, l3=0x22}
0x49f6…4a0a Line {l1=0x12, l2=»6960 EXEC LINITEST«, l3=0x12}
0x4a0a…4a2c Line {l1=0x20, l2=»6970 UNTIL VARENR=0 OR AVALIN>25«, l3=0x20}
0x4a2c…4a42 Line {l1=0x14, l2=»6980 AVALIN=AVALIN-1«, l3=0x14}
0x4a42…4a5a Line {l1=0x16, l2=»6990 IF AVALIN>0 THEN «, l3=0x16}
0x4a5a…4a72 Line {l1=0x16, l2=»7000 IF LINIE>16 THEN «, l3=0x16}
0x4a72…4a86 Line {l1=0x12, l2=»7010 EXEC FAKHOVED«, l3=0x12}
0x4a86…4a9e Line {l1=0x16, l2=»7020 FOR LINIE=5 TO 16«, l3=0x16}
0x4a9e…4ab6 Line {l1=0x16, l2=»7030 J=AVALIN+LINIE-16«, l3=0x16}
0x4ab6…4acd Line {l1=0x15, l2=»7040 EXEC VARLINUD(J)«, l3=0x15}
0x4acd…4ade Line {l1=0x0f, l2=»7050 NEXT LINIE«, l3=0x0f}
0x4ade…4aeb Line {l1=0x0b, l2=»7060 ENDIF «, l3=0x0b}
0x4aeb…4af9 Line {l1=0x0c, l2=»7070 REPEAT «, l3=0x0c}
0x4af9…4b0b Line {l1=0x10, l2=»7080 CURSOR 4,19«, l3=0x10}
0x4b0b…4b56 Line {l1=0x49, l2=»7090 PRINT "1:Ændring. 2:Sletning. 3:Udskrift. 4:Ny linie. 5:Afslutning."«, l3=0x49}
0x4b56…4b79 Line {l1=0x21, l2=»7100 EXEC INDPUT1(4,21,0,6,LTX8$)«, l3=0x21}
0x4b79…4b89 Line {l1=0x0e, l2=»7110 SVAR1$=A$«, l3=0x0e}
0x4b89…4b9f Line {l1=0x14, l2=»7120 CASE SVAR1$ OF «, l3=0x14}
0x4b9f…4bae Line {l1=0x0d, l2=»7130 WHEN "1"«, l3=0x0d}
0x4bae…4bd8 Line {l1=0x28, l2=»7140 EXEC INDPUT1(4,23,0,1+AVALIN,LTX9$)«, l3=0x28}
0x4bd8…4be2 Line {l1=0x08, l2=»7150 J=P«, l3=0x08}
0x4be2…4bf4 Line {l1=0x10, l2=»7160 CURSOR 4,19«, l3=0x10}
0x4bf4…4c03 Line {l1=0x0d, l2=»7170 LINIE=19«, l3=0x0d}
0x4c03…4c13 Line {l1=0x0e, l2=»7180 EXEC SLET«, l3=0x0e}
0x4c13…4c2a Line {l1=0x15, l2=»7190 EXEC VARLINUD(J)«, l3=0x15}
0x4c2a…4c44 Line {l1=0x18, l2=»7200 CASE VANRARR(J) OF «, l3=0x18}
0x4c44…4c6f Line {l1=0x29, l2=»7210 EXEC INDPUT2(17,21,BLANK$(1),ANTAL$)«, l3=0x29}
0x4c6f…4c82 Line {l1=0x11, l2=»7220 CURSOR 17,21«, l3=0x11}
0x4c82…4c9a Line {l1=0x16, l2=»7230 PRINT ANTAL$(4:5)«, l3=0x16}
0x4c9a…4cad Line {l1=0x11, l2=»7240 CURSOR 24,21«, l3=0x11}
0x4cad…4cc6 Line {l1=0x17, l2=»7250 PRINT VATEKARR$(J)«, l3=0x17}
0x4cc6…4cd9 Line {l1=0x11, l2=»7260 CURSOR 51,21«, l3=0x11}
0x4cd9…4cf5 Line {l1=0x1a, l2=»7270 VARPRIS$=VAPRIARR$(J)«, l3=0x1a}
0x4cf5…4d18 Line {l1=0x21, l2=»7280 EXEC TUD(VARPRIS$,TAL4$,1,0)«, l3=0x21}
0x4d18…4d42 Line {l1=0x28, l2=»7290 EXEC CALC(2,VARPRIS$,ANTAL$,BELØB$)«, l3=0x28}
0x4d42…4d55 Line {l1=0x11, l2=»7300 CURSOR 66,21«, l3=0x11}
0x4d55…4d76 Line {l1=0x1f, l2=»7310 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x4d76…4d9a Line {l1=0x22, l2=»7320 IF BELØB$<>BELØBARR$(J) THEN «, l3=0x22}
0x4d9a…4dac Line {l1=0x10, l2=»7330 CURSOR 1,23«, l3=0x10}
0x4dac…4ddf Line {l1=0x31, l2=»7340 VAANTARR$(J)=ANTAL$(4:5);BELØBARR$(J)=BELØB$«, l3=0x31}
0x4ddf…4df0 Line {l1=0x0f, l2=»7350 EXEC AJOUR«, l3=0x0f}
0x4df0…4dfd Line {l1=0x0b, l2=»7360 ENDIF «, l3=0x0b}
0x4dfd…4e0c Line {l1=0x0d, l2=»7370 WHEN 1,2«, l3=0x0d}
0x4e0c…4e27 Line {l1=0x19, l2=»7380 VARTEKST$=BLANK$;M=J«, l3=0x19}
0x4e27…4e3a Line {l1=0x11, l2=»7390 CURSOR 23,21«, l3=0x11}
0x4e3a…4e54 Line {l1=0x18, l2=»7400 INPUT " ",VARTEKST$«, l3=0x18}
0x4e54…4e8a Line {l1=0x34, l2=»7410 IF LEN(VARTEKST$)>0 THEN VATEKARR$(M)=VARTEKST$«, l3=0x34}
0x4e8a…4e9d Line {l1=0x11, l2=»7420 CURSOR 24,21«, l3=0x11}
0x4e9d…4ec3 Line {l1=0x24, l2=»7430 PRINT VATEKARR$(M);BLANK$(1:25)«, l3=0x24}
0x4ec3…4edf Line {l1=0x1a, l2=»7440 IF VANRARR(M)=1 THEN «, l3=0x1a}
0x4edf…4f0a Line {l1=0x29, l2=»7450 EXEC INDPUT2(65,21,BLANK$(1),BELØB$)«, l3=0x29}
0x4f0a…4f2e Line {l1=0x22, l2=»7460 EXEC CALC(4,BELØB$,TAH$,TAH$)«, l3=0x22}
0x4f2e…4f42 Line {l1=0x12, l2=»7470 IF SI=0 THEN «, l3=0x12}
0x4f42…4f5c Line {l1=0x18, l2=»7480 BELØB$=BELØBARR$(M)«, l3=0x18}
0x4f5c…4f68 Line {l1=0x0a, l2=»7490 ELSE «, l3=0x0a}
0x4f68…4f82 Line {l1=0x18, l2=»7500 BELØBARR$(M)=BELØB$«, l3=0x18}
0x4f82…4f93 Line {l1=0x0f, l2=»7510 EXEC AJOUR«, l3=0x0f}
0x4f93…4fa0 Line {l1=0x0b, l2=»7520 ENDIF «, l3=0x0b}
0x4fa0…4fb3 Line {l1=0x11, l2=»7530 CURSOR 66,21«, l3=0x11}
0x4fb3…4fd4 Line {l1=0x1f, l2=»7540 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x4fd4…4fe1 Line {l1=0x0b, l2=»7550 ENDIF «, l3=0x0b}
0x4fe1…4fee Line {l1=0x0b, l2=»7560 WHEN 3«, l3=0x0b}
0x4fee…4ff8 Line {l1=0x08, l2=»7570 M=J«, l3=0x08}
0x4ff8…5021 Line {l1=0x27, l2=»7580 EXEC INDPUT2(24,21,LTX1$,VARPRIS$)«, l3=0x27}
0x5021…5034 Line {l1=0x11, l2=»7590 CURSOR 30,21«, l3=0x11}
0x5034…5060 Line {l1=0x2a, l2=»7600 PRINT VARPRIS$(7:5);" %";BLANK$(1:25)«, l3=0x2a}
0x5060…5092 Line {l1=0x30, l2=»7610 EXEC CALC(2,VARPRIS$,BELØBARR$(M-1),BELØB$)«, l3=0x30}
0x5092…50b7 Line {l1=0x23, l2=»7620 VATEKARR$(M,7:5)=VARPRIS$(7:5)«, l3=0x23}
0x50b7…50cd Line {l1=0x14, l2=»7630 VARPRIS$="100-"«, l3=0x14}
0x50cd…50f7 Line {l1=0x28, l2=»7640 EXEC CALC(3,BELØB$,VARPRIS$,BELØB$)«, l3=0x28}
0x50f7…510a Line {l1=0x11, l2=»7650 CURSOR 66,21«, l3=0x11}
0x510a…512b Line {l1=0x1f, l2=»7660 EXEC TUD(BELØB$,TAL4$,1,0)«, l3=0x1f}
0x512b…5145 Line {l1=0x18, l2=»7670 BELØBARR$(M)=BELØB$«, l3=0x18}
0x5145…5156 Line {l1=0x0f, l2=»7680 EXEC AJOUR«, l3=0x0f}
0x5156…5163 Line {l1=0x0b, l2=»7690 WHEN 4«, l3=0x0b}
0x5163…5176 Line {l1=0x11, l2=»7700 CURSOR 17,21«, l3=0x11}
0x5176…51c2 Line {l1=0x4a, l2=»7710 INPUT "Linien er en subtotal og kan ikke rettes. Tast RETURN.",SVAR2$«, l3=0x4a}
0x51c2…51d1 Line {l1=0x0d, l2=»7720 ENDCASE «, l3=0x0d}
0x51d1…51e0 Line {l1=0x0d, l2=»7730 WHEN "2"«, l3=0x0d}
0x51e0…520b Line {l1=0x29, l2=»7740 EXEC INDPUT1(4,23,0,1+AVALIN,LTX10$)«, l3=0x29}
0x520b…5215 Line {l1=0x08, l2=»7750 J=P«, l3=0x08}
0x5215…5227 Line {l1=0x10, l2=»7760 CURSOR 4,19«, l3=0x10}
0x5227…5236 Line {l1=0x0d, l2=»7770 LINIE=19«, l3=0x0d}
0x5236…5246 Line {l1=0x0e, l2=»7780 EXEC SLET«, l3=0x0e}
0x5246…525d Line {l1=0x15, l2=»7790 EXEC VARLINUD(J)«, l3=0x15}
0x525d…5275 Line {l1=0x16, l2=»7800 IF J<AVALIN THEN «, l3=0x16}
0x5275…528f Line {l1=0x18, l2=»7810 VARENR=VANRARR(J+1)«, l3=0x18}
0x528f…529b Line {l1=0x0a, l2=»7820 ELSE «, l3=0x0a}
0x529b…52aa Line {l1=0x0d, l2=»7830 VARENR=0«, l3=0x0d}
0x52aa…52b7 Line {l1=0x0b, l2=»7840 ENDIF «, l3=0x0b}
0x52b7…52dd Line {l1=0x24, l2=»7870 EXEC INDPUT1(4,21,-9,-6,LTX11$)«, l3=0x24}
0x52dd…52ff Line {l1=0x20, l2=»7880 IF P=-7 AND VARENR<>3 THEN «, l3=0x20}
0x52ff…5315 Line {l1=0x14, l2=»7890 AVALIN=AVALIN-1«, l3=0x14}
0x5315…532d Line {l1=0x16, l2=»7900 FOR M=J TO AVALIN«, l3=0x16}
0x532d…5367 Line {l1=0x38, l2=»7910 VANRARR(M)=VANRARR(M+1);VAANTARR$(M)=VAANTARR$(M+1)«, l3=0x38}
0x5367…53a5 Line {l1=0x3c, l2=»7920 VATEKARR$(M)=VATEKARR$(M+1);VAPRIARR$(M)=VAPRIARR$(M+1)«, l3=0x3c}
0x53a5…53c7 Line {l1=0x20, l2=»7930 BELØBARR$(M)=BELØBARR$(M+1)«, l3=0x20}
0x53c7…5409 Line {l1=0x40, l2=»7940 ARRKODER(M,1)=ARRKODER(M+1,1);ARRKODER(M,2)=ARRKODER(M+1,2)«, l3=0x40}
0x5409…5416 Line {l1=0x0b, l2=»7950 NEXT M«, l3=0x0b}
0x5416…5427 Line {l1=0x0f, l2=»7960 EXEC AJOUR«, l3=0x0f}
0x5427…5434 Line {l1=0x0b, l2=»7970 ENDIF «, l3=0x0b}
0x5434…5443 Line {l1=0x0d, l2=»7980 WHEN "3"«, l3=0x0d}
0x5443…546e Line {l1=0x29, l2=»7990 EXEC INDPUT1(4,23,0,1+AVALIN,LTX12$)«, l3=0x29}
0x546e…5478 Line {l1=0x08, l2=»8000 J=P«, l3=0x08}
0x5478…5488 Line {l1=0x0e, l2=»8010 EXEC SLET«, l3=0x0e}
0x5488…5497 Line {l1=0x0d, l2=»8020 STARTL=J«, l3=0x0d}
0x5497…54b2 Line {l1=0x19, l2=»8030 IF AVALIN-J<12 THEN «, l3=0x19}
0x54b2…54c5 Line {l1=0x11, l2=»8040 SLUTL=AVALIN«, l3=0x11}
0x54c5…54d1 Line {l1=0x0a, l2=»8050 ELSE «, l3=0x0a}
0x54d1…54e2 Line {l1=0x0f, l2=»8060 SLUTL=J+11«, l3=0x0f}
0x54e2…54ef Line {l1=0x0b, l2=»8070 ENDIF «, l3=0x0b}
0x54ef…54fe Line {l1=0x0d, l2=»8080 EXEC LUD«, l3=0x0d}
0x54fe…550d Line {l1=0x0d, l2=»8090 WHEN "4"«, l3=0x0d}
0x550d…5526 Line {l1=0x17, l2=»8100 IF AVALIN<25 THEN «, l3=0x17}
0x5526…5545 Line {l1=0x1d, l2=»8110 LINIE=19;AVALIN=AVALIN+1«, l3=0x1d}
0x5545…5570 Line {l1=0x29, l2=»8120 EXEC INDPUT1(4,23,0,1+AVALIN,LTX13$)«, l3=0x29}
0x5570…5580 Line {l1=0x0e, l2=»8130 EXEC SLET«, l3=0x0e}
0x5580…55b0 Line {l1=0x2e, l2=»8140 ARRKODER(AVALIN,1)=0;ARRKODER(AVALIN,2)=0«, l3=0x2e}
0x55b0…55d2 Line {l1=0x20, l2=»8150 FOR M=AVALIN TO P+1 STEP -1«, l3=0x20}
0x55d2…560c Line {l1=0x38, l2=»8160 VANRARR(M)=VANRARR(M-1);VAANTARR$(M)=VAANTARR$(M-1)«, l3=0x38}
0x560c…564a Line {l1=0x3c, l2=»8170 VATEKARR$(M)=VATEKARR$(M-1);VAPRIARR$(M)=VAPRIARR$(M-1)«, l3=0x3c}
0x564a…566c Line {l1=0x20, l2=»8180 BELØBARR$(M)=BELØBARR$(M-1)«, l3=0x20}
0x566c…56ae Line {l1=0x40, l2=»8190 ARRKODER(M,1)=ARRKODER(M-1,1);ARRKODER(M,2)=ARRKODER(M-1,2)«, l3=0x40}
0x56ae…56bb Line {l1=0x0b, l2=»8200 NEXT M«, l3=0x0b}
0x56bb…56cb Line {l1=0x0e, l2=»8210 EXEC SLET«, l3=0x0e}
0x56cb…56ed Line {l1=0x20, l2=»8220 GAVALIN=AVALIN;AVALIN=P;M=P«, l3=0x20}
0x56ed…56fb Line {l1=0x0c, l2=»8230 REPEAT «, l3=0x0c}
0x56fb…570f Line {l1=0x12, l2=»8240 EXEC VARELINI«, l3=0x12}
0x570f…5725 Line {l1=0x14, l2=»8250 UNTIL VARENR<>0«, l3=0x14}
0x5725…573a Line {l1=0x13, l2=»8260 AVALIN=GAVALIN«, l3=0x13}
0x573a…574b Line {l1=0x0f, l2=»8270 EXEC AJOUR«, l3=0x0f}
0x574b…5758 Line {l1=0x0b, l2=»8275 ENDIF «, l3=0x0b}
0x5758…5767 Line {l1=0x0d, l2=»8280 ENDCASE «, l3=0x0d}
0x5767…5792 Line {l1=0x29, l2=»8290 IF SVAR1$<>"3" AND SVAR1$<>"5" THEN «, l3=0x29}
0x5792…57ac Line {l1=0x18, l2=»8300 IF AVALIN<=12 THEN «, l3=0x18}
0x57ac…57c8 Line {l1=0x1a, l2=»8310 STARTL=1;SLUTL=AVALIN«, l3=0x1a}
0x57c8…57d4 Line {l1=0x0a, l2=»8320 ELSE «, l3=0x0a}
0x57d4…57e7 Line {l1=0x11, l2=»8330 IF J<7 THEN «, l3=0x11}
0x57e7…57ff Line {l1=0x16, l2=»8340 STARTL=1;SLUTL=12«, l3=0x16}
0x57ff…580b Line {l1=0x0a, l2=»8350 ELSE «, l3=0x0a}
0x580b…5825 Line {l1=0x18, l2=»8360 IF AVALIN-J<7 THEN «, l3=0x18}
0x5825…5849 Line {l1=0x22, l2=»8370 STARTL=AVALIN-12;SLUTL=AVALIN«, l3=0x22}
0x5849…5855 Line {l1=0x0a, l2=»8380 ELSE «, l3=0x0a}
0x5855…5870 Line {l1=0x19, l2=»8390 STARTL=J-5;SLUTL=J+6«, l3=0x19}
0x5870…587d Line {l1=0x0b, l2=»8400 ENDIF «, l3=0x0b}
0x587d…588a Line {l1=0x0b, l2=»8410 ENDIF «, l3=0x0b}
0x588a…5897 Line {l1=0x0b, l2=»8420 ENDIF «, l3=0x0b}
0x5897…58a6 Line {l1=0x0d, l2=»8430 EXEC LUD«, l3=0x0d}
0x58a6…58b3 Line {l1=0x0b, l2=»8440 ENDIF «, l3=0x0b}
0x58b3…58ca Line {l1=0x15, l2=»8450 UNTIL SVAR1$="5"«, l3=0x15}
0x58ca…58de Line {l1=0x12, l2=»8460 EXEC FAKTBUND«, l3=0x12}
0x58de…58f0 Line {l1=0x10, l2=»8470 CURSOR 9,23«, l3=0x10}
0x58f0…5930 Line {l1=0x3e, l2=»8480 PRINT "Maskinen overfører faktura til fakturaregisteret."«, l3=0x3e}
0x5930…5943 Line {l1=0x11, l2=»8490 EXEC FAKTGEM«, l3=0x11}
0x5943…5955 Line {l1=0x10, l2=»8500 EXEC SYSGEM«, l3=0x10}
0x5955…5962 Line {l1=0x0b, l2=»8510 ENDIF «, l3=0x0b}
0x5962…596f Line {l1=0x0b, l2=»8520 ENDIF «, l3=0x0b}
0x596f…5985 Line {l1=0x14, l2=»8530 UNTIL KUNDENR=0«, l3=0x14}
0x5985…5992 Line {l1=0x0b, l2=»8540 CLEAR «, l3=0x0b}
0x5992…59a4 Line {l1=0x10, l2=»8550 CURSOR 20,9«, l3=0x10}
0x59a4…59dc Line {l1=0x36, l2=»8560 PRINT "*****************************************"«, l3=0x36}
0x59dc…5a00 Line {l1=0x22, l2=»8570 PRINT TAB(20);"*";TAB(60);"*"«, l3=0x22}
0x5a00…5a3b Line {l1=0x39, l2=»8580 PRINT TAB(20);"*";TAB(34);"Programvalg.";TAB(60);"*"«, l3=0x39}
0x5a3b…5a5f Line {l1=0x22, l2=»8590 PRINT TAB(20);"*";TAB(60);"*"«, l3=0x22}
0x5a5f…5a9f Line {l1=0x3e, l2=»8600 PRINT TAB(19),"*****************************************"«, l3=0x3e}
0x5a9f…5abd Line {l1=0x1c, l2=»8610 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x5abd…5ac0 00 00 63 ┆ c┆
0x5ac0…5ae0 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┆
[…0x3f…]