|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »VAREVEDL.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »VAREVEDL.K«
0090 DIM OP1$(12),OP2$(12),RES$(14) 0100 DIM K1$(17),N$(6),K2$(17),K3$(17),K4$(17),K5$(17),STREG$(77) 0110 DIM SVAR$(1),VARTEKST$(25),VARPRIS$(12),TAH$(12),T2(9),T3(9) 0120 DIM TAL1$(12),TAL4$(14),SVAR1$(1),VARPRI$(12),VARTEK$(25) 0130 DIM TAL2$(12),BLANK$(25),BLB2$(12) 0140 BLANK$=" ";TAH$="0+" 0150 STREG$="---------------------------------";STREG$=STREG$+STREG$ 0160 PROC VALINUD 0170 CURSOR 4,LINIE 0180 PRINT USING "#######":VARENR 0190 CURSOR 16,LINIE 0200 PRINT VARTEKST$ 0210 CURSOR 44,LINIE 0220 EXEC TUD(VARPRIS$,TAL4$,0,0) 0225 PRINT TAL4$ 0230 CURSOR 59,LINIE 0240 PRINT USING "#######":VARKONT 0250 ENDPROC 0260 PROC LINTEST 0270 CLEAR 0280 CURSOR 21,1 0290 PRINT "Varevedligeholdelse. "; 0300 EXEC VARHOVED 0310 EXEC VALINUD 0315 LINIE=LINIE+1 0320 ENDPROC 0330 PROC VARHOVED 0340 PRINT "Ny vare." 0350 CURSOR 21,2 0360 PRINT "Hvis færdig, tast varenummer 0." 0370 EXEC VARELTEK 0380 ENDPROC 0390 PROC SLETVPOST 0400 EXEC NULVPOST 0410 VNR2=VARENR;VARENR=0 0420 EXEC GEMVPOST 0430 VARENR=VNR2 0440 EXEC SLETPOST(VTAB,AVARE,VPIL3) 0450 ENDPROC 0460 PROC GEMVPOST 0470 S=VTAB(VPIL3,2) 0480 PUT K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT 0490 EXEC FEJL(2,1,K4$) 0500 ENDPROC 0510 PROC HENTVPOST 0520 S=VTAB(VPIL3,2) 0530 GET K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT 0540 EXEC FEJL(3,1,K4$) 0550 ENDPROC 0560 PROC NULVPOST 0570 VARTEKST$=BLANK$(1:25);VARPRIS$="0+";VARKONT=0 0580 ENDPROC 0590 PROC NRTEST(NUM1) 0600 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$) 0610 IF L>6 THEN EXIT 0620 CASE L OF 0630 FOR I=1 TO L 0640 P1=INT(ORD(NUM1$(I))-48) 0650 IF P1<0 OR P1>9 THEN TEST2=1 0660 P=P*10+P1 0670 NEXT I 0680 KTAL=P DIV 10000 0690 WHEN 0 0700 P=-1 0710 WHEN 1 0720 CASE NUM1$ OF 0730 P=INT(ORD(NUM1$)-48) 0740 WHEN "d","D" 0750 P=-2 0760 WHEN "a","A" 0770 P=-3 0780 WHEN "m","M" 0790 P=-4 0800 WHEN "j","J" 0810 P=-7 0820 WHEN "n","N" 0830 P=-8 0840 ENDCASE 0850 ENDCASE 0860 ENDPROC 0870 PROC FEJL(NR1,NR2,NR3) 0880 IF STATUS(NR3$)<>0 THEN 0890 PRINT STATUS(NR3$),NR1,NR2,NR3$ 0900 STOP 0910 ENDIF 0920 ENDPROC 0930 PROC CALC(AR3,B1,B2,ES) 0940 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0950 CALL "P641210:REGN" 0960 ES$=RES$ 0970 IF AR3<6 THEN 0980 IF FLAG THEN STOP 0990 ENDIF 1000 ENDPROC 1010 PROC TUD(BLB1,UBLB1,TEGN,STØR) 1020 BLB2$=BLB1$ 1030 EXEC CALC(5,BLB2$,TAH$,UBLB1$) 1040 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13) 1050 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 1060 IF STØR=1 THEN UBLB1$=UBLB$(4:LEN(UBLB1$)-3) 1070 ENDPROC 1080 PROC SLETPOST(TAB3,ANTAL3,PIL5) 1090 POSTNR=TAB3(PIL5,2) 1100 FOR I=PIL5 TO ANTAL3-1 1110 TAB3(I,1)=TAB3(I+1,1);TAB3(I,2)=TAB3(I+1,2) 1120 NEXT I 1130 TAB3(ANTAL3,1)=1000000;TAB3(ANTAL3,2)=POSTNR;ANTAL3=ANTAL3-1 1140 ENDPROC 1150 PROC INDSÆT1(TAB2,ANTAL2,NØGL2,PIL4) 1160 POSTNR=TAB2(ANTAL2+1,2) 1170 IF NØGL2>TAB2(PIL4,1) THEN PIL4=PIL4+1 1180 FOR I=ANTAL2+1 TO PIL4+1 STEP -1 1190 TAB2(I,1)=TAB2(I-1,1);TAB2(I,2)=TAB2(I-1,2) 1200 NEXT I 1210 TAB2(PIL4,1)=NØGL2;TAB2(PIL4,2)=POSTNR;ANTAL2=ANTAL2+1 1220 ENDPROC 1230 PROC INDTAB1(Z,MANT5,L7) 1240 PIL1=MANT5 DIV 32 1250 FOR I=1 TO PIL1 1260 H=(I-1)*8+1 1270 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) 1280 EXEC FEJL(2,1,L7$) 1290 NEXT I 1300 ENDPROC 1310 PROC UDTAB(U,MANTAL1,L9) 1320 MANTAL2=MANTAL1 DIV 32+1;MANTAL3=MANTAL1 DIV 4+MANTAL2-1 1330 FOR I=1 TO MANTAL2-1 1340 H=(I-1)*32+1;H1=H+4;H2=H+8;H3=H+12;H4=H+16;H5=H+20;H6=H+24;H7=H+28 1350 PUT L9$,I:U(H,1),U(H1,1),U(H2,1),U(H3,1),U(H4,1),U(H5,1),U(H6,1),U(H7,1) 1360 EXEC FEJL(3,1,L9$) 1370 NEXT I 1380 FOR I=MANTAL2 TO MANTAL3 1390 H=(I-MANTAL2)*4+1;H1=H+1;H2=H+2;H3=H+3 1400 PUT L9$,I:U(H,1),U(H,2),U(H1,1),U(H1,2),U(H2,1),U(H2,2),U(H3,1),U(H3,2) 1410 EXEC FEJL(3,2,L9$) 1420 NEXT I 1430 ENDPROC 1440 PROC INDTAB(T,MANTAL,L10) 1450 MANTAL2=MANTAL DIV 32+1;MANTAL3=MANTAL DIV 4+MANTAL2-1 1460 FOR I=MANTAL2 TO MANTAL3 1470 H=(I-MANTAL2)*4+1;H1=H+1;H2=H+2;H3=H+3 1480 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2) 1490 EXEC FEJL(4,1,L10$) 1500 NEXT I 1510 ENDPROC 1520 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8) 1530 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32 1540 REPEAT 1550 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT 1560 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6))) 1570 IF PIL6<1 THEN PIL6=1 1580 IF PIL6>MANT3 THEN PIL6=MANT3 1590 UNTIL PIL1=0 1600 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1) 1610 PIL6=MANT4+PIL6 1620 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) 1630 EXEC FEJL(1,1,L8$) 1640 FOR PIL6=1 TO 4 1650 IF NØGL5=Q(PIL6,1) THEN EXIT 1660 NEXT PIL6 1670 IF PIL6<>5 THEN CEKS=0 1680 ENDPROC 1690 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3) 1700 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1 1710 REPEAT 1720 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT 1730 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1))) 1740 IF PIL3<1 THEN PIL3=1 1750 IF PIL3>MANT1 THEN PIL3=MANT1 1760 UNTIL PIL1=0 1765 IF NØGL1>TAB1(PIL3,1) THEN PIL3=PIL3+1*(PIL3<MANT1) 1770 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0 1780 ENDPROC 1790 PROC VAREÆND 1800 VARTEK$=BLANK$ 1810 CURSOR 15,LINIE 1820 INPUT " ",VARTEK$ 1830 IF LEN(VARTEK$)>0 THEN VARTEKST$=VARTEK$ 1840 CURSOR 16,LINIE 1850 PRINT VARTEKST$;BLANK$;BLANK$ 1860 REPEAT 1870 CURSOR 43,LINIE 1880 INPUT " ",VARPRI$ 1885 IF LEN(VARPRI$)=0 THEN EXIT 1890 IF VARPRI$(LEN(VARPRI$))<>"+" THEN VARPRI$=VARPRI$+"+" 1900 EXEC CALC(6,VARPRI$,TAH$,VARPRI$) 1910 UNTIL FLAG=0 1915 IF LEN(VARPRI$)>0 THEN VARPRIS$=VARPRI$ 1920 CURSOR 44,LINIE 1930 EXEC TUD(VARPRIS$,TAL4$,0,0) 1935 PRINT TAL4$ 1936 VARKONTO=VARKONT 1940 REPEAT 1950 REPEAT 1960 CURSOR 60,LINIE 1970 PRINT BLANK$ 1980 CURSOR 60,LINIE 1990 INPUT " ",TAL1$ 2000 EXEC NRTEST(TAL1$) 2010 UNTIL (P<1 OR KTAL=VTAL) AND TEST2=0 2020 VARKONT=P;CEKS=1 2030 IF P>0 THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 2040 UNTIL P<1 OR CEKS=0 2050 IF P=0 THEN VARKONT=DIVNR 2055 IF P=-1 THEN VARKONT=VARKONTO 2060 CURSOR 59,LINIE 2070 PRINT USING "####### ":VARKONT 2080 ENDPROC 2090 PROC VARELTEK 2100 CURSOR 3,4 2110 PRINT "Varenummer Varetekst" 2120 CURSOR 47,4 2130 PRINT "Varepris Varekonto" 2140 LINIE=6 2150 ENDPROC 2160 PROC OVERSKRI 2170 PRINT TAB(10);CHR(14);"Varefortegnelse";CHR(15); 2180 PRINT TAB(50);"Dato:";TAB(58); 2190 PRINT USING "###.##":(DATO MOD 10000)/100; 2200 PRINT TAB(55); 2210 PRINT USING "###.#":(DATO DIV 1000)/10 2220 PRINT CHR(10) 2230 PRINT " Varenummer Varetekst Varepris"; 2240 PRINT TAB(66);"Varekonto" 2250 PRINT TAB(10);STREG$ 2260 ENDPROC 2270 K1$="P641220:SYSTEM1" 2280 OPEN K1$,R 2290 EXEC FEJL(9,1,K1$) 2300 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL 2310 EXEC FEJL(9,2,K1$) 2320 GET K1$,4:MKPOST,MFAK,MVGR 2330 EXEC FEJL(9,3,K1$) 2340 GET K1$,8:DIVNR 2350 EXEC FEJL(9,21,K1$) 2360 GET K1$,9:KRTAL,VTAL 2370 EXEC FEJL(9,4,K1$) 2380 GET K1$,10:N$ 2390 EXEC FEJL(9,5,K1$) 2400 GET K1$,11:K2$ 2410 EXEC FEJL(9,6,K1$) 2420 GET K1$,14:K3$ 2430 EXEC FEJL(9,7,K1$) 2440 GET K1$,18:K4$ 2450 EXEC FEJL(9,8,K1$) 2460 GET K1$,36:K5$ 2470 EXEC FEJL(9,9,K1$) 2480 CLOSE K1$ 2490 EXEC FEJL(9,10,K1$) 2500 DIM VTAB(MVANTAL,2),FTAB1(MFANTAL DIV 4),FTAB(4,2) 2510 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$ 2520 OPEN K5$,W 2530 EXEC FEJL(9,11,K5$) 2540 GET K5$,2:T1,T1,T1,T1,T1,T1,DATO 2550 EXEC FEJL(9,12,K5$) 2560 GET K5$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE 2570 EXEC FEJL(9,13,K5$) 2580 GET K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 2590 EXEC FEJL(9,14,K5$) 2600 T3(6)=1 2610 PUT K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 2620 EXEC FEJL(9,15,K5$) 2630 CLOSE K5$ 2640 EXEC FEJL(9,16,K5$) 2650 OPEN K2$,R 2660 EXEC FEJL(9,17,K2$) 2670 OPEN K3$,W 2680 EXEC FEJL(9,18,K3$) 2690 OPEN K4$,W 2700 EXEC FEJL(9,19,K4$) 2710 EXEC INDTAB1(FTAB1,MFANTAL,K2$) 2720 EXEC INDTAB(VTAB,MVANTAL,K3$) 2730 REPEAT 2740 CLEAR 2750 CURSOR 21,1 2760 PRINT "Varevedligeholdelse." 2770 CURSOR 11,4 2780 PRINT "0: Færdig." 2790 CURSOR 11,6 2800 PRINT "1: Ny vare." 2810 CURSOR 11,8 2820 PRINT "2: Ændring af vare." 2830 CURSOR 11,10 2840 PRINT "3: Sletning af vare." 2850 CURSOR 11,12 2860 PRINT "4: Udskrift af vare." 2870 CURSOR 11,14 2880 PRINT "5: Printerudskrift af vare." 2890 REPEAT 2900 CURSOR 11,17 2910 INPUT "Vælg 0-5:",SVAR$ 2920 UNTIL SVAR$<"6" AND SVAR$=>"0" 2930 CLEAR 2940 CURSOR 21,1 2950 PRINT "Varevedligeholdelse. "; 2960 CASE SVAR$ OF 2970 CLEAR 2980 WHEN "1" 3000 EXEC VARHOVED 3010 REPEAT 3015 IF AVARE<MVANTAL THEN 3020 VARTEKST$=BLANK$ 3030 REPEAT 3040 REPEAT 3050 CURSOR 1,LINIE 3060 PRINT BLANK$ 3070 CURSOR 1,LINIE 3080 INPUT " ",TAL1$ 3090 EXEC NRTEST(TAL1$) 3100 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0 3110 VARENR=P 3120 IF VARENR=0 THEN EXIT 3130 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3) 3140 IF CEKS=0 THEN 3150 EXEC HENTVPOST 3160 EXEC VALINUD 3170 LINIE=LINIE+1 3180 IF LINIE>23 THEN EXEC LINIETEST 3190 ENDIF 3200 UNTIL CEKS=1 3205 IF VARENR=0 THEN EXIT 3210 CURSOR 4,LINIE 3220 PRINT USING "####### ":VARENR 3230 CURSOR 15,LINIE 3240 INPUT " ",VARTEKST$ 3250 CURSOR 16,LINIE 3260 PRINT VARTEKST$;BLANK$;BLANK$ 3270 REPEAT 3275 REPEAT 3280 CURSOR 43,LINIE 3290 INPUT " ",VARPRIS$ 3295 UNTIL LEN(VARPRIS$)>0 3300 IF VARPRIS$(LEN(VARPRIS$))<>"+" THEN VARPRIS$=VARPRIS$+"+" 3310 EXEC CALC(6,VARPRIS$,TAH$,VARPRIS$) 3320 UNTIL FLAG=0 3330 CURSOR 44,LINIE 3340 EXEC TUD(VARPRIS$,TAL4$,0,0) 3345 PRINT TAL4$ 3350 REPEAT 3360 REPEAT 3370 CURSOR 60,LINIE 3380 PRINT BLANK$ 3390 CURSOR 60,LINIE 3400 INPUT " ",TAL1$ 3410 EXEC NRTEST(TAL1$) 3420 UNTIL (KTAL=VTAL OR P=0) AND TEST2=0 3430 VARKONT=P;CEKS=1 3440 IF P>0 THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$) 3450 UNTIL P=0 OR CEKS=0 3460 IF P=0 THEN VARKONT=DIVNR 3470 CURSOR 59,LINIE 3480 PRINT USING "####### ":VARKONT 3490 CURSOR 1,24 3495 EXEC INDSÆT1(VTAB,AVARE,VARENR,VPIL3) 3500 EXEC GEMVPOST 3510 LINIE=LINIE+1 3520 IF LINIE>23 THEN EXEC LINTEST 3540 ELSE 3550 CURSOR 21,5 3560 INPUT "Der er ikke plads til flere varer. Tast RETURN.",SVAR1$ 3565 VARENR=0 3570 ENDIF 3575 UNTIL VARENR=0 3580 WHEN "2","3","4" 3590 REPEAT 3600 CLEAR 3610 CURSOR 21,1 3620 PRINT "Varevedligeholdelse. "; 3630 CASE SVAR$ OF 3640 WHEN "2" 3650 PRINT "Ændring af vare." 3660 WHEN "3" 3670 PRINT "Sletning af vare." 3680 WHEN "4" 3690 PRINT "Udskrift af vare." 3700 ENDCASE 3710 REPEAT 3720 CURSOR 11,4 3730 PRINT BLANK$ 3740 CURSOR 11,4 3750 INPUT "Varenummer, 0 for færdig:",TAL1$ 3760 EXEC NRTEST(TAL1$) 3770 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0 3780 VARENR=P 3790 CURSOR 11,4 3800 PRINT BLANK$;BLANK$ 3810 IF VARENR=0 THEN EXIT 3820 CURSOR 1,24 3830 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3) 3840 IF CEKS=0 THEN 3850 EXEC VARELTEK 3855 EXEC HENTVPOST 3860 EXEC VALINUD 3870 CASE SVAR$ OF 3880 WHEN "2" 3890 LINIE=7 3900 EXEC VAREÆND 3910 CURSOR 1,24 3920 EXEC GEMVPOST 3930 WHEN "3" 3940 IF T2(4)>0 THEN 3950 CURSOR 16,11 3960 PRINT "Der er fakturaer til udskrift" 3970 CURSOR 16,13 3980 INPUT "og ingen varer kan slettes. Tast RETURN.",SVAR1$ 3990 SVAR1$="N" 4000 ELSE 4010 REPEAT 4020 CURSOR 16,11 4030 INPUT "Ønskes varen slettet (J/N):",SVAR1$ 4040 UNTIL SVAR1$="J" OR SVAR1$="N" 4050 ENDIF 4060 IF SVAR1$="J" THEN 4070 EXEC SLETVPOST 4080 CURSOR 16,11 4090 PRINT USING "Varenummer ####### er slettet. Tast RETURN.":VARENR 4100 INPUT " ",SVAR1$ 4110 ENDIF 4120 WHEN "4" 4130 CURSOR 16,11 4140 INPUT "Tast RETURN",SVAR1$ 4150 ENDCASE 4160 ELSE 4170 CURSOR 3,4 4180 PRINT USING "Varenummer ####### eksistere ikke.Tast RETURN.":VARENR 4190 INPUT " ",SVAR1$ 4200 ENDIF 4210 UNTIL VARENR=0 4220 WHEN "5" 4230 PRINT "Printerudskrift." 4240 SVARE=999999 4250 REPEAT 4260 CURSOR 21,3 4270 INPUT "Fra varenummer (0 for alle varer):",TAL1$ 4280 EXEC NRTEST(TAL1$) 4290 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0 4300 FVARE=P 4310 IF FVARE>0 THEN 4320 REPEAT 4330 CURSOR 21,4 4340 INPUT "Til varenummer :",TAL1$ 4350 EXEC NRTEST(TAL1$) 4360 UNTIL P=>FVARE AND P<=999999 AND TEST2=0 4370 SVARE=P 4380 ENDIF 4390 CURSOR 21,6 4400 INPUT "Monter papir. Tast RETURN",SVAR1$ 4410 OUTPUT P 4420 STARTV=1 4430 REPEAT 4440 EXEC OVERSKRI 4450 FOR VPIL3=STARTV TO AVARE 4460 IF VTAB(VPIL3,1)=>FVARE AND VTAB(VPIL3,1)<=SVARE THEN 4470 EXEC HENTVPOST 4480 PRINT USING " ####### ":VARENR; 4490 PRINT TAB(22);VARTEKST$;TAB(51);VARPRIS$(1:11); 4500 PRINT USING " #######":VARKONT 4510 ENDIF 4520 IF VPIL3 MOD 40=0 THEN EXIT 4530 NEXT VPIL3 4540 STARTV=STARTV+40 4550 PRINT CHR(10);CHR(10) 4560 UNTIL STARTV>AVARE 4570 REPEAT 4580 PRINT CHR(10); 4590 VPIL3=VPIL3+1 4600 UNTIL VPIL3 MOD 40=0 4610 PRINT " " 4620 OUTPUT T 4630 ENDCASE 4640 UNTIL SVAR$="0" 4650 EXEC UDTAB(VTAB,MVANTAL,K3$) 4660 CLOSE K3$ 4670 EXEC FEJL(9,30,K3$) 4680 CLOSE K4$ 4690 EXEC FEJL(9,31,K4$) 4700 CLOSE K2$ 4710 T3(6)=0 4720 OPEN K5$,W 4730 EXEC FEJL(9,32,K5$) 4740 PUT K5$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE 4750 EXEC FEJL(9,33,K5$) 4760 PUT K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9) 4770 EXEC FEJL(9,34,K5$) 4780 CLOSE K5$ 4790 EXEC FEJL(9,35,K5$) 4800 CHAIN "P641210:OPSTART"
0x0000…0025 Line {l1=0x23, l2=»0090 DIM OP1$(12),OP2$(12),RES$(14)«, l3=0x23}
0x0025…0068 Line {l1=0x41, l2=»0100 DIM K1$(17),N$(6),K2$(17),K3$(17),K4$(17),K5$(17),STREG$(77)«, l3=0x41}
0x0068…00ab Line {l1=0x41, l2=»0110 DIM SVAR$(1),VARTEKST$(25),VARPRIS$(12),TAH$(12),T2(9),T3(9)«, l3=0x41}
0x00ab…00eb Line {l1=0x3e, l2=»0120 DIM TAL1$(12),TAL4$(14),SVAR1$(1),VARPRI$(12),VARTEK$(25)«, l3=0x3e}
0x00eb…0114 Line {l1=0x27, l2=»0130 DIM TAL2$(12),BLANK$(25),BLB2$(12)«, l3=0x27}
0x0114…0147 Line {l1=0x31, l2=»0140 BLANK$=" ";TAH$="0+"«, l3=0x31}
0x0147…018d Line {l1=0x44, l2=»0150 STREG$="---------------------------------";STREG$=STREG$+STREG$«, l3=0x44}
0x018d…01a0 Line {l1=0x11, l2=»0160 PROC VALINUD«, l3=0x11}
0x01a0…01b5 Line {l1=0x13, l2=»0170 CURSOR 4,LINIE«, l3=0x13}
0x01b5…01d8 Line {l1=0x21, l2=»0180 PRINT USING "#######":VARENR«, l3=0x21}
0x01d8…01ee Line {l1=0x14, l2=»0190 CURSOR 16,LINIE«, l3=0x14}
0x01ee…0204 Line {l1=0x14, l2=»0200 PRINT VARTEKST$«, l3=0x14}
0x0204…021a Line {l1=0x14, l2=»0210 CURSOR 44,LINIE«, l3=0x14}
0x021a…023d Line {l1=0x21, l2=»0220 EXEC TUD(VARPRIS$,TAL4$,0,0)«, l3=0x21}
0x023d…024f Line {l1=0x10, l2=»0225 PRINT TAL4$«, l3=0x10}
0x024f…0265 Line {l1=0x14, l2=»0230 CURSOR 59,LINIE«, l3=0x14}
0x0265…0289 Line {l1=0x22, l2=»0240 PRINT USING "#######":VARKONT«, l3=0x22}
0x0289…0298 Line {l1=0x0d, l2=»0250 ENDPROC «, l3=0x0d}
0x0298…02ab Line {l1=0x11, l2=»0260 PROC LINTEST«, l3=0x11}
0x02ab…02b8 Line {l1=0x0b, l2=»0270 CLEAR «, l3=0x0b}
0x02b8…02ca Line {l1=0x10, l2=»0280 CURSOR 21,1«, l3=0x10}
0x02ca…02ef Line {l1=0x23, l2=»0290 PRINT "Varevedligeholdelse. ";«, l3=0x23}
0x02ef…0303 Line {l1=0x12, l2=»0300 EXEC VARHOVED«, l3=0x12}
0x0303…0316 Line {l1=0x11, l2=»0310 EXEC VALINUD«, l3=0x11}
0x0316…032a Line {l1=0x12, l2=»0315 LINIE=LINIE+1«, l3=0x12}
0x032a…0339 Line {l1=0x0d, l2=»0320 ENDPROC «, l3=0x0d}
0x0339…034d Line {l1=0x12, l2=»0330 PROC VARHOVED«, l3=0x12}
0x034d…0364 Line {l1=0x15, l2=»0340 PRINT "Ny vare."«, l3=0x15}
0x0364…0376 Line {l1=0x10, l2=»0350 CURSOR 21,2«, l3=0x10}
0x0376…03a4 Line {l1=0x2c, l2=»0360 PRINT "Hvis færdig, tast varenummer 0."«, l3=0x2c}
0x03a4…03b8 Line {l1=0x12, l2=»0370 EXEC VARELTEK«, l3=0x12}
0x03b8…03c7 Line {l1=0x0d, l2=»0380 ENDPROC «, l3=0x0d}
0x03c7…03dc Line {l1=0x13, l2=»0390 PROC SLETVPOST«, l3=0x13}
0x03dc…03f0 Line {l1=0x12, l2=»0400 EXEC NULVPOST«, l3=0x12}
0x03f0…040b Line {l1=0x19, l2=»0410 VNR2=VARENR;VARENR=0«, l3=0x19}
0x040b…041f Line {l1=0x12, l2=»0420 EXEC GEMVPOST«, l3=0x12}
0x041f…0431 Line {l1=0x10, l2=»0430 VARENR=VNR2«, l3=0x10}
0x0431…0457 Line {l1=0x24, l2=»0440 EXEC SLETPOST(VTAB,AVARE,VPIL3)«, l3=0x24}
0x0457…0466 Line {l1=0x0d, l2=»0450 ENDPROC «, l3=0x0d}
0x0466…047a Line {l1=0x12, l2=»0460 PROC GEMVPOST«, l3=0x12}
0x047a…0490 Line {l1=0x14, l2=»0470 S=VTAB(VPIL3,2)«, l3=0x14}
0x0490…04c2 Line {l1=0x30, l2=»0480 PUT K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT«, l3=0x30}
0x04c2…04db Line {l1=0x17, l2=»0490 EXEC FEJL(2,1,K4$)«, l3=0x17}
0x04db…04ea Line {l1=0x0d, l2=»0500 ENDPROC «, l3=0x0d}
0x04ea…04ff Line {l1=0x13, l2=»0510 PROC HENTVPOST«, l3=0x13}
0x04ff…0515 Line {l1=0x14, l2=»0520 S=VTAB(VPIL3,2)«, l3=0x14}
0x0515…0547 Line {l1=0x30, l2=»0530 GET K4$,S:VARENR,VARTEKST$,VARPRIS$,VARKONT«, l3=0x30}
0x0547…0560 Line {l1=0x17, l2=»0540 EXEC FEJL(3,1,K4$)«, l3=0x17}
0x0560…056f Line {l1=0x0d, l2=»0550 ENDPROC «, l3=0x0d}
0x056f…0583 Line {l1=0x12, l2=»0560 PROC NULVPOST«, l3=0x12}
0x0583…05b8 Line {l1=0x33, l2=»0570 VARTEKST$=BLANK$(1:25);VARPRIS$="0+";VARKONT=0«, l3=0x33}
0x05b8…05c7 Line {l1=0x0d, l2=»0580 ENDPROC «, l3=0x0d}
0x05c7…05df Line {l1=0x16, l2=»0590 PROC NRTEST(NUM1)«, l3=0x16}
0x05df…0605 Line {l1=0x24, l2=»0600 P=0;TEST2=0;KTAL=0;L=LEN(NUM1$)«, l3=0x24}
0x0605…061d Line {l1=0x16, l2=»0610 IF L>6 THEN EXIT «, l3=0x16}
0x061d…062e Line {l1=0x0f, l2=»0620 CASE L OF «, l3=0x0f}
0x062e…0641 Line {l1=0x11, l2=»0630 FOR I=1 TO L«, l3=0x11}
0x0641…0660 Line {l1=0x1d, l2=»0640 P1=INT(ORD(NUM1$(I))-48)«, l3=0x1d}
0x0660…0683 Line {l1=0x21, l2=»0650 IF P1<0 OR P1>9 THEN TEST2=1«, l3=0x21}
0x0683…0693 Line {l1=0x0e, l2=»0660 P=P*10+P1«, l3=0x0e}
0x0693…06a0 Line {l1=0x0b, l2=»0670 NEXT I«, l3=0x0b}
0x06a0…06b7 Line {l1=0x15, l2=»0680 KTAL=P DIV 10000«, l3=0x15}
0x06b7…06c4 Line {l1=0x0b, l2=»0690 WHEN 0«, l3=0x0b}
0x06c4…06cf Line {l1=0x09, l2=»0700 P=-1«, l3=0x09}
0x06cf…06dc Line {l1=0x0b, l2=»0710 WHEN 1«, l3=0x0b}
0x06dc…06f1 Line {l1=0x13, l2=»0720 CASE NUM1$ OF «, l3=0x13}
0x06f1…070c Line {l1=0x19, l2=»0730 P=INT(ORD(NUM1$)-48)«, l3=0x19}
0x070c…071f Line {l1=0x11, l2=»0740 WHEN "d","D"«, l3=0x11}
0x071f…072a Line {l1=0x09, l2=»0750 P=-2«, l3=0x09}
0x072a…073d Line {l1=0x11, l2=»0760 WHEN "a","A"«, l3=0x11}
0x073d…0748 Line {l1=0x09, l2=»0770 P=-3«, l3=0x09}
0x0748…075b Line {l1=0x11, l2=»0780 WHEN "m","M"«, l3=0x11}
0x075b…0766 Line {l1=0x09, l2=»0790 P=-4«, l3=0x09}
0x0766…0779 Line {l1=0x11, l2=»0800 WHEN "j","J"«, l3=0x11}
0x0779…0784 Line {l1=0x09, l2=»0810 P=-7«, l3=0x09}
0x0784…0797 Line {l1=0x11, l2=»0820 WHEN "n","N"«, l3=0x11}
0x0797…07a2 Line {l1=0x09, l2=»0830 P=-8«, l3=0x09}
0x07a2…07b1 Line {l1=0x0d, l2=»0840 ENDCASE «, l3=0x0d}
0x07b1…07c0 Line {l1=0x0d, l2=»0850 ENDCASE «, l3=0x0d}
0x07c0…07cf Line {l1=0x0d, l2=»0860 ENDPROC «, l3=0x0d}
0x07cf…07ec Line {l1=0x1b, l2=»0870 PROC FEJL(NR1,NR2,NR3)«, l3=0x1b}
0x07ec…080b Line {l1=0x1d, l2=»0880 IF STATUS(NR3$)<>0 THEN «, l3=0x1d}
0x080b…0831 Line {l1=0x24, l2=»0890 PRINT STATUS(NR3$),NR1,NR2,NR3$«, l3=0x24}
0x0831…083d Line {l1=0x0a, l2=»0900 STOP «, l3=0x0a}
0x083d…084a Line {l1=0x0b, l2=»0910 ENDIF «, l3=0x0b}
0x084a…0859 Line {l1=0x0d, l2=»0920 ENDPROC «, l3=0x0d}
0x0859…0877 Line {l1=0x1c, l2=»0930 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x0877…08b6 Line {l1=0x3d, l2=»0940 OP1$=B1$;OP2$=B2$;RES$=ES$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x08b6…08d0 Line {l1=0x18, l2=»0950 CALL "P641210:REGN"«, l3=0x18}
0x08d0…08df Line {l1=0x0d, l2=»0960 ES$=RES$«, l3=0x0d}
0x08df…08f4 Line {l1=0x13, l2=»0970 IF AR3<6 THEN «, l3=0x13}
0x08f4…090d Line {l1=0x17, l2=»0980 IF FLAG THEN STOP «, l3=0x17}
0x090d…091a Line {l1=0x0b, l2=»0990 ENDIF «, l3=0x0b}
0x091a…0929 Line {l1=0x0d, l2=»1000 ENDPROC «, l3=0x0d}
0x0929…094e Line {l1=0x23, l2=»1010 PROC TUD(BLB1,UBLB1,TEGN,STØR)«, l3=0x23}
0x094e…0960 Line {l1=0x10, l2=»1020 BLB2$=BLB1$«, l3=0x10}
0x0960…0985 Line {l1=0x23, l2=»1030 EXEC CALC(5,BLB2$,TAH$,UBLB1$)«, l3=0x23}
0x0985…09ae Line {l1=0x27, l2=»1040 IF TEGN=0 THEN UBLB1$=UBLB1$(1:13)«, l3=0x27}
0x09ae…09f8 Line {l1=0x48, l2=»1050 IF TEGN=1 AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" "«, l3=0x48}
0x09f8…0a2b Line {l1=0x31, l2=»1060 IF STØR=1 THEN UBLB1$=UBLB$(4:LEN(UBLB1$)-3)«, l3=0x31}
0x0a2b…0a3a Line {l1=0x0d, l2=»1070 ENDPROC «, l3=0x0d}
0x0a3a…0a60 Line {l1=0x24, l2=»1080 PROC SLETPOST(TAB3,ANTAL3,PIL5)«, l3=0x24}
0x0a60…0a7a Line {l1=0x18, l2=»1090 POSTNR=TAB3(PIL5,2)«, l3=0x18}
0x0a7a…0a97 Line {l1=0x1b, l2=»1100 FOR I=PIL5 TO ANTAL3-1«, l3=0x1b}
0x0a97…0ac9 Line {l1=0x30, l2=»1110 TAB3(I,1)=TAB3(I+1,1);TAB3(I,2)=TAB3(I+1,2)«, l3=0x30}
0x0ac9…0ad6 Line {l1=0x0b, l2=»1120 NEXT I«, l3=0x0b}
0x0ad6…0b19 Line {l1=0x41, l2=»1130 TAB3(ANTAL3,1)=1000000;TAB3(ANTAL3,2)=POSTNR;ANTAL3=ANTAL3-1«, l3=0x41}
0x0b19…0b28 Line {l1=0x0d, l2=»1140 ENDPROC «, l3=0x0d}
0x0b28…0b53 Line {l1=0x29, l2=»1150 PROC INDSÆT1(TAB2,ANTAL2,NØGL2,PIL4)«, l3=0x29}
0x0b53…0b71 Line {l1=0x1c, l2=»1160 POSTNR=TAB2(ANTAL2+1,2)«, l3=0x1c}
0x0b71…0b9e Line {l1=0x2b, l2=»1170 IF NØGL2>TAB2(PIL4,1) THEN PIL4=PIL4+1«, l3=0x2b}
0x0b9e…0bc5 Line {l1=0x25, l2=»1180 FOR I=ANTAL2+1 TO PIL4+1 STEP -1«, l3=0x25}
0x0bc5…0bf7 Line {l1=0x30, l2=»1190 TAB2(I,1)=TAB2(I-1,1);TAB2(I,2)=TAB2(I-1,2)«, l3=0x30}
0x0bf7…0c04 Line {l1=0x0b, l2=»1200 NEXT I«, l3=0x0b}
0x0c04…0c41 Line {l1=0x3b, l2=»1210 TAB2(PIL4,1)=NØGL2;TAB2(PIL4,2)=POSTNR;ANTAL2=ANTAL2+1«, l3=0x3b}
0x0c41…0c50 Line {l1=0x0d, l2=»1220 ENDPROC «, l3=0x0d}
0x0c50…0c6f Line {l1=0x1d, l2=»1230 PROC INDTAB1(Z,MANT5,L7)«, l3=0x1d}
0x0c6f…0c87 Line {l1=0x16, l2=»1240 PIL1=MANT5 DIV 32«, l3=0x16}
0x0c87…0c9d Line {l1=0x14, l2=»1250 FOR I=1 TO PIL1«, l3=0x14}
0x0c9d…0caf Line {l1=0x10, l2=»1260 H=(I-1)*8+1«, l3=0x10}
0x0caf…0cf5 Line {l1=0x44, l2=»1270 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}
0x0cf5…0d0e Line {l1=0x17, l2=»1280 EXEC FEJL(2,1,L7$)«, l3=0x17}
0x0d0e…0d1b Line {l1=0x0b, l2=»1290 NEXT I«, l3=0x0b}
0x0d1b…0d2a Line {l1=0x0d, l2=»1300 ENDPROC «, l3=0x0d}
0x0d2a…0d49 Line {l1=0x1d, l2=»1310 PROC UDTAB(U,MANTAL1,L9)«, l3=0x1d}
0x0d49…0d88 Line {l1=0x3d, l2=»1320 MANTAL2=MANTAL1 DIV 32+1;MANTAL3=MANTAL1 DIV 4+MANTAL2-1«, l3=0x3d}
0x0d88…0da3 Line {l1=0x19, l2=»1330 FOR I=1 TO MANTAL2-1«, l3=0x19}
0x0da3…0dec Line {l1=0x47, l2=»1340 H=(I-1)*32+1;H1=H+4;H2=H+8;H3=H+12;H4=H+16;H5=H+20;H6=H+24;H7=H+28«, l3=0x47}
0x0dec…0e3b Line {l1=0x4d, l2=»1350 PUT L9$,I:U(H,1),U(H1,1),U(H2,1),U(H3,1),U(H4,1),U(H5,1),U(H6,1),U(H7,1)«, l3=0x4d}
0x0e3b…0e54 Line {l1=0x17, l2=»1360 EXEC FEJL(3,1,L9$)«, l3=0x17}
0x0e54…0e61 Line {l1=0x0b, l2=»1370 NEXT I«, l3=0x0b}
0x0e61…0e80 Line {l1=0x1d, l2=»1380 FOR I=MANTAL2 TO MANTAL3«, l3=0x1d}
0x0e80…0ead Line {l1=0x2b, l2=»1390 H=(I-MANTAL2)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x2b}
0x0ead…0efb Line {l1=0x4c, l2=»1400 PUT L9$,I:U(H,1),U(H,2),U(H1,1),U(H1,2),U(H2,1),U(H2,2),U(H3,1),U(H3,2)«, l3=0x4c}
0x0efb…0f14 Line {l1=0x17, l2=»1410 EXEC FEJL(3,2,L9$)«, l3=0x17}
0x0f14…0f21 Line {l1=0x0b, l2=»1420 NEXT I«, l3=0x0b}
0x0f21…0f30 Line {l1=0x0d, l2=»1430 ENDPROC «, l3=0x0d}
0x0f30…0f50 Line {l1=0x1e, l2=»1440 PROC INDTAB(T,MANTAL,L10)«, l3=0x1e}
0x0f50…0f8d Line {l1=0x3b, l2=»1450 MANTAL2=MANTAL DIV 32+1;MANTAL3=MANTAL DIV 4+MANTAL2-1«, l3=0x3b}
0x0f8d…0fac Line {l1=0x1d, l2=»1460 FOR I=MANTAL2 TO MANTAL3«, l3=0x1d}
0x0fac…0fd9 Line {l1=0x2b, l2=»1470 H=(I-MANTAL2)*4+1;H1=H+1;H2=H+2;H3=H+3«, l3=0x2b}
0x0fd9…1028 Line {l1=0x4d, l2=»1480 GET L10$,I:T(H,1),T(H,2),T(H1,1),T(H1,2),T(H2,1),T(H2,2),T(H3,1),T(H3,2)«, l3=0x4d}
0x1028…1042 Line {l1=0x18, l2=»1490 EXEC FEJL(4,1,L10$)«, l3=0x18}
0x1042…104f Line {l1=0x0b, l2=»1500 NEXT I«, l3=0x0b}
0x104f…105e Line {l1=0x0d, l2=»1510 ENDPROC «, l3=0x0d}
0x105e…108f Line {l1=0x2f, l2=»1520 PROC FINDPOST1(TAB4,Q,MANT2,NØGL5,PIL6,L8)«, l3=0x2f}
0x108f…10dc Line {l1=0x4b, l2=»1530 PIL1=MANT2 DIV 8;PIL6=PIL1;CEKS=1;MANT3=MANT2 DIV 4;MANT4=MANT2 DIV 32«, l3=0x4b}
0x10dc…10ea Line {l1=0x0c, l2=»1540 REPEAT «, l3=0x0c}
0x10ea…1119 Line {l1=0x2d, l2=»1550 IF NØGL5=TAB4(PIL6) OR PIL1=1 THEN EXIT «, l3=0x2d}
0x1119…115b Line {l1=0x40, l2=»1560 PIL1=(PIL1+1) DIV 2;PIL6=PIL6+PIL1*(1-2*(NØGL5<TAB4(PIL6)))«, l3=0x40}
0x115b…1177 Line {l1=0x1a, l2=»1570 IF PIL6<1 THEN PIL6=1«, l3=0x1a}
0x1177…119b Line {l1=0x22, l2=»1580 IF PIL6>MANT3 THEN PIL6=MANT3«, l3=0x22}
0x119b…11ae Line {l1=0x11, l2=»1590 UNTIL PIL1=0«, l3=0x11}
0x11ae…11e2 Line {l1=0x32, l2=»1600 IF TAB4(PIL6)>NØGL5 THEN PIL6=PIL6-1*(PIL6>1)«, l3=0x32}
0x11e2…11f8 Line {l1=0x14, l2=»1610 PIL6=MANT4+PIL6«, l3=0x14}
0x11f8…1243 Line {l1=0x49, l2=»1620 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}
0x1243…125c Line {l1=0x17, l2=»1630 EXEC FEJL(1,1,L8$)«, l3=0x17}
0x125c…1272 Line {l1=0x14, l2=»1640 FOR PIL6=1 TO 4«, l3=0x14}
0x1272…1296 Line {l1=0x22, l2=»1650 IF NØGL5=Q(PIL6,1) THEN EXIT «, l3=0x22}
0x1296…12a6 Line {l1=0x0e, l2=»1660 NEXT PIL6«, l3=0x0e}
0x12a6…12c3 Line {l1=0x1b, l2=»1670 IF PIL6<>5 THEN CEKS=0«, l3=0x1b}
0x12c3…12d2 Line {l1=0x0d, l2=»1680 ENDPROC «, l3=0x0d}
0x12d2…12fd Line {l1=0x29, l2=»1690 PROC FINDPOST(TAB1,MANT1,NØGL1,PIL3)«, l3=0x29}
0x12fd…1325 Line {l1=0x26, l2=»1700 PIL1=MANT1 DIV 2;PIL3=PIL1;CEKS=1«, l3=0x26}
0x1325…1333 Line {l1=0x0c, l2=»1710 REPEAT «, l3=0x0c}
0x1333…1364 Line {l1=0x2f, l2=»1720 IF NØGL1=TAB1(PIL3,1) OR PIL1=1 THEN EXIT «, l3=0x2f}
0x1364…13a8 Line {l1=0x42, l2=»1730 PIL1=(PIL1+1) DIV 2;PIL3=PIL3+PIL1*(1-2*(NØGL1<TAB1(PIL3,1)))«, l3=0x42}
0x13a8…13c4 Line {l1=0x1a, l2=»1740 IF PIL3<1 THEN PIL3=1«, l3=0x1a}
0x13c4…13e8 Line {l1=0x22, l2=»1750 IF PIL3>MANT1 THEN PIL3=MANT1«, l3=0x22}
0x13e8…13fb Line {l1=0x11, l2=»1760 UNTIL PIL1=0«, l3=0x11}
0x13fb…1435 Line {l1=0x38, l2=»1765 IF NØGL1>TAB1(PIL3,1) THEN PIL3=PIL3+1*(PIL3<MANT1)«, l3=0x38}
0x1435…145d Line {l1=0x26, l2=»1770 IF NØGL1=TAB1(PIL3,1) THEN CEKS=0«, l3=0x26}
0x145d…146c Line {l1=0x0d, l2=»1780 ENDPROC «, l3=0x0d}
0x146c…147f Line {l1=0x11, l2=»1790 PROC VAREÆND«, l3=0x11}
0x147f…1494 Line {l1=0x13, l2=»1800 VARTEK$=BLANK$«, l3=0x13}
0x1494…14aa Line {l1=0x14, l2=»1810 CURSOR 15,LINIE«, l3=0x14}
0x14aa…14c2 Line {l1=0x16, l2=»1820 INPUT " ",VARTEK$«, l3=0x16}
0x14c2…14f1 Line {l1=0x2d, l2=»1830 IF LEN(VARTEK$)>0 THEN VARTEKST$=VARTEK$«, l3=0x2d}
0x14f1…1507 Line {l1=0x14, l2=»1840 CURSOR 16,LINIE«, l3=0x14}
0x1507…152b Line {l1=0x22, l2=»1850 PRINT VARTEKST$;BLANK$;BLANK$«, l3=0x22}
0x152b…1539 Line {l1=0x0c, l2=»1860 REPEAT «, l3=0x0c}
0x1539…154f Line {l1=0x14, l2=»1870 CURSOR 43,LINIE«, l3=0x14}
0x154f…1567 Line {l1=0x16, l2=»1880 INPUT " ",VARPRI$«, l3=0x16}
0x1567…158a Line {l1=0x21, l2=»1885 IF LEN(VARPRI$)=0 THEN EXIT «, l3=0x21}
0x158a…15c7 Line {l1=0x3b, l2=»1890 IF VARPRI$(LEN(VARPRI$))<>"+" THEN VARPRI$=VARPRI$+"+"«, l3=0x3b}
0x15c7…15ef Line {l1=0x26, l2=»1900 EXEC CALC(6,VARPRI$,TAH$,VARPRI$)«, l3=0x26}
0x15ef…1602 Line {l1=0x11, l2=»1910 UNTIL FLAG=0«, l3=0x11}
0x1602…1630 Line {l1=0x2c, l2=»1915 IF LEN(VARPRI$)>0 THEN VARPRIS$=VARPRI$«, l3=0x2c}
0x1630…1646 Line {l1=0x14, l2=»1920 CURSOR 44,LINIE«, l3=0x14}
0x1646…1669 Line {l1=0x21, l2=»1930 EXEC TUD(VARPRIS$,TAL4$,0,0)«, l3=0x21}
0x1669…167b Line {l1=0x10, l2=»1935 PRINT TAL4$«, l3=0x10}
0x167b…1692 Line {l1=0x15, l2=»1936 VARKONTO=VARKONT«, l3=0x15}
0x1692…16a0 Line {l1=0x0c, l2=»1940 REPEAT «, l3=0x0c}
0x16a0…16ae Line {l1=0x0c, l2=»1950 REPEAT «, l3=0x0c}
0x16ae…16c4 Line {l1=0x14, l2=»1960 CURSOR 60,LINIE«, l3=0x14}
0x16c4…16d7 Line {l1=0x11, l2=»1970 PRINT BLANK$«, l3=0x11}
0x16d7…16ed Line {l1=0x14, l2=»1980 CURSOR 60,LINIE«, l3=0x14}
0x16ed…1703 Line {l1=0x14, l2=»1990 INPUT " ",TAL1$«, l3=0x14}
0x1703…171c Line {l1=0x17, l2=»2000 EXEC NRTEST(TAL1$)«, l3=0x17}
0x171c…1747 Line {l1=0x29, l2=»2010 UNTIL (P<1 OR KTAL=VTAL) AND TEST2=0«, l3=0x29}
0x1747…175e Line {l1=0x15, l2=»2020 VARKONT=P;CEKS=1«, l3=0x15}
0x175e…179f Line {l1=0x3f, l2=»2030 IF P>0 THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)«, l3=0x3f}
0x179f…17b9 Line {l1=0x18, l2=»2040 UNTIL P<1 OR CEKS=0«, l3=0x18}
0x17b9…17d9 Line {l1=0x1e, l2=»2050 IF P=0 THEN VARKONT=DIVNR«, l3=0x1e}
0x17d9…17fd Line {l1=0x22, l2=»2055 IF P=-1 THEN VARKONT=VARKONTO«, l3=0x22}
0x17fd…1813 Line {l1=0x14, l2=»2060 CURSOR 59,LINIE«, l3=0x14}
0x1813…183b Line {l1=0x26, l2=»2070 PRINT USING "####### ":VARKONT«, l3=0x26}
0x183b…184a Line {l1=0x0d, l2=»2080 ENDPROC «, l3=0x0d}
0x184a…185e Line {l1=0x12, l2=»2090 PROC VARELTEK«, l3=0x12}
0x185e…186f Line {l1=0x0f, l2=»2100 CURSOR 3,4«, l3=0x0f}
0x186f…1894 Line {l1=0x23, l2=»2110 PRINT "Varenummer Varetekst"«, l3=0x23}
0x1894…18a6 Line {l1=0x10, l2=»2120 CURSOR 47,4«, l3=0x10}
0x18a6…18cb Line {l1=0x23, l2=»2130 PRINT "Varepris Varekonto"«, l3=0x23}
0x18cb…18d9 Line {l1=0x0c, l2=»2140 LINIE=6«, l3=0x0c}
0x18d9…18e8 Line {l1=0x0d, l2=»2150 ENDPROC «, l3=0x0d}
0x18e8…18fc Line {l1=0x12, l2=»2160 PROC OVERSKRI«, l3=0x12}
0x18fc…1933 Line {l1=0x35, l2=»2170 PRINT TAB(10);CHR(14);"Varefortegnelse";CHR(15);«, l3=0x35}
0x1933…1958 Line {l1=0x23, l2=»2180 PRINT TAB(50);"Dato:";TAB(58);«, l3=0x23}
0x1958…1989 Line {l1=0x2f, l2=»2190 PRINT USING "###.##":(DATO MOD 10000)/100;«, l3=0x2f}
0x1989…199e Line {l1=0x13, l2=»2200 PRINT TAB(55);«, l3=0x13}
0x199e…19cb Line {l1=0x2b, l2=»2210 PRINT USING "###.#":(DATO DIV 1000)/10«, l3=0x2b}
0x19cb…19df Line {l1=0x12, l2=»2220 PRINT CHR(10)«, l3=0x12}
0x19df…1a2c Line {l1=0x4b, l2=»2230 PRINT " Varenummer Varetekst Varepris";«, l3=0x4b}
0x1a2c…1a4c Line {l1=0x1e, l2=»2240 PRINT TAB(66);"Varekonto"«, l3=0x1e}
0x1a4c…1a67 Line {l1=0x19, l2=»2250 PRINT TAB(10);STREG$«, l3=0x19}
0x1a67…1a76 Line {l1=0x0d, l2=»2260 ENDPROC «, l3=0x0d}
0x1a76…1a92 Line {l1=0x1a, l2=»2270 K1$="P641220:SYSTEM1"«, l3=0x1a}
0x1a92…1aa3 Line {l1=0x0f, l2=»2280 OPEN K1$,R«, l3=0x0f}
0x1aa3…1abc Line {l1=0x17, l2=»2290 EXEC FEJL(9,1,K1$)«, l3=0x17}
0x1abc…1aec Line {l1=0x2e, l2=»2300 GET K1$,1:MFANTAL,MDANTAL,MKANTAL,MVANTAL«, l3=0x2e}
0x1aec…1b05 Line {l1=0x17, l2=»2310 EXEC FEJL(9,2,K1$)«, l3=0x17}
0x1b05…1b26 Line {l1=0x1f, l2=»2320 GET K1$,4:MKPOST,MFAK,MVGR«, l3=0x1f}
0x1b26…1b3f Line {l1=0x17, l2=»2330 EXEC FEJL(9,3,K1$)«, l3=0x17}
0x1b3f…1b55 Line {l1=0x14, l2=»2340 GET K1$,8:DIVNR«, l3=0x14}
0x1b55…1b6f Line {l1=0x18, l2=»2350 EXEC FEJL(9,21,K1$)«, l3=0x18}
0x1b6f…1b8a Line {l1=0x19, l2=»2360 GET K1$,9:KRTAL,VTAL«, l3=0x19}
0x1b8a…1ba3 Line {l1=0x17, l2=»2370 EXEC FEJL(9,4,K1$)«, l3=0x17}
0x1ba3…1bb7 Line {l1=0x12, l2=»2380 GET K1$,10:N$«, l3=0x12}
0x1bb7…1bd0 Line {l1=0x17, l2=»2390 EXEC FEJL(9,5,K1$)«, l3=0x17}
0x1bd0…1be5 Line {l1=0x13, l2=»2400 GET K1$,11:K2$«, l3=0x13}
0x1be5…1bfe Line {l1=0x17, l2=»2410 EXEC FEJL(9,6,K1$)«, l3=0x17}
0x1bfe…1c13 Line {l1=0x13, l2=»2420 GET K1$,14:K3$«, l3=0x13}
0x1c13…1c2c Line {l1=0x17, l2=»2430 EXEC FEJL(9,7,K1$)«, l3=0x17}
0x1c2c…1c41 Line {l1=0x13, l2=»2440 GET K1$,18:K4$«, l3=0x13}
0x1c41…1c5a Line {l1=0x17, l2=»2450 EXEC FEJL(9,8,K1$)«, l3=0x17}
0x1c5a…1c6f Line {l1=0x13, l2=»2460 GET K1$,36:K5$«, l3=0x13}
0x1c6f…1c88 Line {l1=0x17, l2=»2470 EXEC FEJL(9,9,K1$)«, l3=0x17}
0x1c88…1c98 Line {l1=0x0e, l2=»2480 CLOSE K1$«, l3=0x0e}
0x1c98…1cb2 Line {l1=0x18, l2=»2490 EXEC FEJL(9,10,K1$)«, l3=0x18}
0x1cb2…1ceb Line {l1=0x37, l2=»2500 DIM VTAB(MVANTAL,2),FTAB1(MFANTAL DIV 4),FTAB(4,2)«, l3=0x37}
0x1ceb…1d1d Line {l1=0x30, l2=»2510 K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$«, l3=0x30}
0x1d1d…1d2e Line {l1=0x0f, l2=»2520 OPEN K5$,W«, l3=0x0f}
0x1d2e…1d48 Line {l1=0x18, l2=»2530 EXEC FEJL(9,11,K5$)«, l3=0x18}
0x1d48…1d6f Line {l1=0x25, l2=»2540 GET K5$,2:T1,T1,T1,T1,T1,T1,DATO«, l3=0x25}
0x1d6f…1d89 Line {l1=0x18, l2=»2550 EXEC FEJL(9,12,K5$)«, l3=0x18}
0x1d89…1dd0 Line {l1=0x45, l2=»2560 GET K5$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE«, l3=0x45}
0x1dd0…1dea Line {l1=0x18, l2=»2570 EXEC FEJL(9,13,K5$)«, l3=0x18}
0x1dea…1e31 Line {l1=0x45, l2=»2580 GET K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x45}
0x1e31…1e4b Line {l1=0x18, l2=»2590 EXEC FEJL(9,14,K5$)«, l3=0x18}
0x1e4b…1e59 Line {l1=0x0c, l2=»2600 T3(6)=1«, l3=0x0c}
0x1e59…1ea0 Line {l1=0x45, l2=»2610 PUT K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x45}
0x1ea0…1eba Line {l1=0x18, l2=»2620 EXEC FEJL(9,15,K5$)«, l3=0x18}
0x1eba…1eca Line {l1=0x0e, l2=»2630 CLOSE K5$«, l3=0x0e}
0x1eca…1ee4 Line {l1=0x18, l2=»2640 EXEC FEJL(9,16,K5$)«, l3=0x18}
0x1ee4…1ef5 Line {l1=0x0f, l2=»2650 OPEN K2$,R«, l3=0x0f}
0x1ef5…1f0f Line {l1=0x18, l2=»2660 EXEC FEJL(9,17,K2$)«, l3=0x18}
0x1f0f…1f20 Line {l1=0x0f, l2=»2670 OPEN K3$,W«, l3=0x0f}
0x1f20…1f3a Line {l1=0x18, l2=»2680 EXEC FEJL(9,18,K3$)«, l3=0x18}
0x1f3a…1f4b Line {l1=0x0f, l2=»2690 OPEN K4$,W«, l3=0x0f}
0x1f4b…1f65 Line {l1=0x18, l2=»2700 EXEC FEJL(9,19,K4$)«, l3=0x18}
0x1f65…1f8b Line {l1=0x24, l2=»2710 EXEC INDTAB1(FTAB1,MFANTAL,K2$)«, l3=0x24}
0x1f8b…1faf Line {l1=0x22, l2=»2720 EXEC INDTAB(VTAB,MVANTAL,K3$)«, l3=0x22}
0x1faf…1fbd Line {l1=0x0c, l2=»2730 REPEAT «, l3=0x0c}
0x1fbd…1fca Line {l1=0x0b, l2=»2740 CLEAR «, l3=0x0b}
0x1fca…1fdc Line {l1=0x10, l2=»2750 CURSOR 21,1«, l3=0x10}
0x1fdc…1fff Line {l1=0x21, l2=»2760 PRINT "Varevedligeholdelse."«, l3=0x21}
0x1fff…2011 Line {l1=0x10, l2=»2770 CURSOR 11,4«, l3=0x10}
0x2011…202a Line {l1=0x17, l2=»2780 PRINT "0: Færdig."«, l3=0x17}
0x202a…203c Line {l1=0x10, l2=»2790 CURSOR 11,6«, l3=0x10}
0x203c…2056 Line {l1=0x18, l2=»2800 PRINT "1: Ny vare."«, l3=0x18}
0x2056…2068 Line {l1=0x10, l2=»2810 CURSOR 11,8«, l3=0x10}
0x2068…208a Line {l1=0x20, l2=»2820 PRINT "2: Ændring af vare."«, l3=0x20}
0x208a…209d Line {l1=0x11, l2=»2830 CURSOR 11,10«, l3=0x11}
0x209d…20c0 Line {l1=0x21, l2=»2840 PRINT "3: Sletning af vare."«, l3=0x21}
0x20c0…20d3 Line {l1=0x11, l2=»2850 CURSOR 11,12«, l3=0x11}
0x20d3…20f6 Line {l1=0x21, l2=»2860 PRINT "4: Udskrift af vare."«, l3=0x21}
0x20f6…2109 Line {l1=0x11, l2=»2870 CURSOR 11,14«, l3=0x11}
0x2109…2133 Line {l1=0x28, l2=»2880 PRINT "5: Printerudskrift af vare."«, l3=0x28}
0x2133…2141 Line {l1=0x0c, l2=»2890 REPEAT «, l3=0x0c}
0x2141…2154 Line {l1=0x11, l2=»2900 CURSOR 11,17«, l3=0x11}
0x2154…2172 Line {l1=0x1c, l2=»2910 INPUT "Vælg 0-5:",SVAR$«, l3=0x1c}
0x2172…2197 Line {l1=0x23, l2=»2920 UNTIL SVAR$<"6" AND SVAR$=>"0"«, l3=0x23}
0x2197…21a4 Line {l1=0x0b, l2=»2930 CLEAR «, l3=0x0b}
0x21a4…21b6 Line {l1=0x10, l2=»2940 CURSOR 21,1«, l3=0x10}
0x21b6…21db Line {l1=0x23, l2=»2950 PRINT "Varevedligeholdelse. ";«, l3=0x23}
0x21db…21f0 Line {l1=0x13, l2=»2960 CASE SVAR$ OF «, l3=0x13}
0x21f0…21fd Line {l1=0x0b, l2=»2970 CLEAR «, l3=0x0b}
0x21fd…220c Line {l1=0x0d, l2=»2980 WHEN "1"«, l3=0x0d}
0x220c…2220 Line {l1=0x12, l2=»3000 EXEC VARHOVED«, l3=0x12}
0x2220…222e Line {l1=0x0c, l2=»3010 REPEAT «, l3=0x0c}
0x222e…224b Line {l1=0x1b, l2=»3015 IF AVARE<MVANTAL THEN «, l3=0x1b}
0x224b…2262 Line {l1=0x15, l2=»3020 VARTEKST$=BLANK$«, l3=0x15}
0x2262…2270 Line {l1=0x0c, l2=»3030 REPEAT «, l3=0x0c}
0x2270…227e Line {l1=0x0c, l2=»3040 REPEAT «, l3=0x0c}
0x227e…2293 Line {l1=0x13, l2=»3050 CURSOR 1,LINIE«, l3=0x13}
0x2293…22a6 Line {l1=0x11, l2=»3060 PRINT BLANK$«, l3=0x11}
0x22a6…22bb Line {l1=0x13, l2=»3070 CURSOR 1,LINIE«, l3=0x13}
0x22bb…22d4 Line {l1=0x17, l2=»3080 INPUT " ",TAL1$«, l3=0x17}
0x22d4…22ed Line {l1=0x17, l2=»3090 EXEC NRTEST(TAL1$)«, l3=0x17}
0x22ed…2320 Line {l1=0x31, l2=»3100 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0«, l3=0x31}
0x2320…232f Line {l1=0x0d, l2=»3110 VARENR=P«, l3=0x0d}
0x232f…234c Line {l1=0x1b, l2=»3120 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x234c…237b Line {l1=0x2d, l2=»3130 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3)«, l3=0x2d}
0x237b…2391 Line {l1=0x14, l2=»3140 IF CEKS=0 THEN «, l3=0x14}
0x2391…23a6 Line {l1=0x13, l2=»3150 EXEC HENTVPOST«, l3=0x13}
0x23a6…23b9 Line {l1=0x11, l2=»3160 EXEC VALINUD«, l3=0x11}
0x23b9…23cd Line {l1=0x12, l2=»3170 LINIE=LINIE+1«, l3=0x12}
0x23cd…23f3 Line {l1=0x24, l2=»3180 IF LINIE>23 THEN EXEC LINIETEST«, l3=0x24}
0x23f3…2400 Line {l1=0x0b, l2=»3190 ENDIF «, l3=0x0b}
0x2400…2413 Line {l1=0x11, l2=»3200 UNTIL CEKS=1«, l3=0x11}
0x2413…2430 Line {l1=0x1b, l2=»3205 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x2430…2445 Line {l1=0x13, l2=»3210 CURSOR 4,LINIE«, l3=0x13}
0x2445…246b Line {l1=0x24, l2=»3220 PRINT USING "####### ":VARENR«, l3=0x24}
0x246b…2481 Line {l1=0x14, l2=»3230 CURSOR 15,LINIE«, l3=0x14}
0x2481…249b Line {l1=0x18, l2=»3240 INPUT " ",VARTEKST$«, l3=0x18}
0x249b…24b1 Line {l1=0x14, l2=»3250 CURSOR 16,LINIE«, l3=0x14}
0x24b1…24d5 Line {l1=0x22, l2=»3260 PRINT VARTEKST$;BLANK$;BLANK$«, l3=0x22}
0x24d5…24e3 Line {l1=0x0c, l2=»3270 REPEAT «, l3=0x0c}
0x24e3…24f1 Line {l1=0x0c, l2=»3275 REPEAT «, l3=0x0c}
0x24f1…2507 Line {l1=0x14, l2=»3280 CURSOR 43,LINIE«, l3=0x14}
0x2507…2520 Line {l1=0x17, l2=»3290 INPUT " ",VARPRIS$«, l3=0x17}
0x2520…253c Line {l1=0x1a, l2=»3295 UNTIL LEN(VARPRIS$)>0«, l3=0x1a}
0x253c…257d Line {l1=0x3f, l2=»3300 IF VARPRIS$(LEN(VARPRIS$))<>"+" THEN VARPRIS$=VARPRIS$+"+"«, l3=0x3f}
0x257d…25a7 Line {l1=0x28, l2=»3310 EXEC CALC(6,VARPRIS$,TAH$,VARPRIS$)«, l3=0x28}
0x25a7…25ba Line {l1=0x11, l2=»3320 UNTIL FLAG=0«, l3=0x11}
0x25ba…25d0 Line {l1=0x14, l2=»3330 CURSOR 44,LINIE«, l3=0x14}
0x25d0…25f3 Line {l1=0x21, l2=»3340 EXEC TUD(VARPRIS$,TAL4$,0,0)«, l3=0x21}
0x25f3…2605 Line {l1=0x10, l2=»3345 PRINT TAL4$«, l3=0x10}
0x2605…2613 Line {l1=0x0c, l2=»3350 REPEAT «, l3=0x0c}
0x2613…2621 Line {l1=0x0c, l2=»3360 REPEAT «, l3=0x0c}
0x2621…2637 Line {l1=0x14, l2=»3370 CURSOR 60,LINIE«, l3=0x14}
0x2637…264a Line {l1=0x11, l2=»3380 PRINT BLANK$«, l3=0x11}
0x264a…2660 Line {l1=0x14, l2=»3390 CURSOR 60,LINIE«, l3=0x14}
0x2660…2676 Line {l1=0x14, l2=»3400 INPUT " ",TAL1$«, l3=0x14}
0x2676…268f Line {l1=0x17, l2=»3410 EXEC NRTEST(TAL1$)«, l3=0x17}
0x268f…26ba Line {l1=0x29, l2=»3420 UNTIL (KTAL=VTAL OR P=0) AND TEST2=0«, l3=0x29}
0x26ba…26d1 Line {l1=0x15, l2=»3430 VARKONT=P;CEKS=1«, l3=0x15}
0x26d1…2712 Line {l1=0x3f, l2=»3440 IF P>0 THEN EXEC FINDPOST1(FTAB1,FTAB,MFANTAL,P,FPIL3,K2$)«, l3=0x3f}
0x2712…272c Line {l1=0x18, l2=»3450 UNTIL P=0 OR CEKS=0«, l3=0x18}
0x272c…274c Line {l1=0x1e, l2=»3460 IF P=0 THEN VARKONT=DIVNR«, l3=0x1e}
0x274c…2762 Line {l1=0x14, l2=»3470 CURSOR 59,LINIE«, l3=0x14}
0x2762…278a Line {l1=0x26, l2=»3480 PRINT USING "####### ":VARKONT«, l3=0x26}
0x278a…279c Line {l1=0x10, l2=»3490 CURSOR 1,24«, l3=0x10}
0x279c…27c8 Line {l1=0x2a, l2=»3495 EXEC INDSÆT1(VTAB,AVARE,VARENR,VPIL3)«, l3=0x2a}
0x27c8…27dc Line {l1=0x12, l2=»3500 EXEC GEMVPOST«, l3=0x12}
0x27dc…27f0 Line {l1=0x12, l2=»3510 LINIE=LINIE+1«, l3=0x12}
0x27f0…2814 Line {l1=0x22, l2=»3520 IF LINIE>23 THEN EXEC LINTEST«, l3=0x22}
0x2814…2820 Line {l1=0x0a, l2=»3540 ELSE «, l3=0x0a}
0x2820…2832 Line {l1=0x10, l2=»3550 CURSOR 21,5«, l3=0x10}
0x2832…2877 Line {l1=0x43, l2=»3560 INPUT "Der er ikke plads til flere varer. Tast RETURN.",SVAR1$«, l3=0x43}
0x2877…2886 Line {l1=0x0d, l2=»3565 VARENR=0«, l3=0x0d}
0x2886…2893 Line {l1=0x0b, l2=»3570 ENDIF «, l3=0x0b}
0x2893…28a8 Line {l1=0x13, l2=»3575 UNTIL VARENR=0«, l3=0x13}
0x28a8…28bf Line {l1=0x15, l2=»3580 WHEN "2","3","4"«, l3=0x15}
0x28bf…28cd Line {l1=0x0c, l2=»3590 REPEAT «, l3=0x0c}
0x28cd…28da Line {l1=0x0b, l2=»3600 CLEAR «, l3=0x0b}
0x28da…28ec Line {l1=0x10, l2=»3610 CURSOR 21,1«, l3=0x10}
0x28ec…2911 Line {l1=0x23, l2=»3620 PRINT "Varevedligeholdelse. ";«, l3=0x23}
0x2911…2926 Line {l1=0x13, l2=»3630 CASE SVAR$ OF «, l3=0x13}
0x2926…2935 Line {l1=0x0d, l2=»3640 WHEN "2"«, l3=0x0d}
0x2935…2954 Line {l1=0x1d, l2=»3650 PRINT "Ændring af vare."«, l3=0x1d}
0x2954…2963 Line {l1=0x0d, l2=»3660 WHEN "3"«, l3=0x0d}
0x2963…2983 Line {l1=0x1e, l2=»3670 PRINT "Sletning af vare."«, l3=0x1e}
0x2983…2992 Line {l1=0x0d, l2=»3680 WHEN "4"«, l3=0x0d}
0x2992…29b2 Line {l1=0x1e, l2=»3690 PRINT "Udskrift af vare."«, l3=0x1e}
0x29b2…29c1 Line {l1=0x0d, l2=»3700 ENDCASE «, l3=0x0d}
0x29c1…29cf Line {l1=0x0c, l2=»3710 REPEAT «, l3=0x0c}
0x29cf…29e1 Line {l1=0x10, l2=»3720 CURSOR 11,4«, l3=0x10}
0x29e1…29f4 Line {l1=0x11, l2=»3730 PRINT BLANK$«, l3=0x11}
0x29f4…2a06 Line {l1=0x10, l2=»3740 CURSOR 11,4«, l3=0x10}
0x2a06…2a34 Line {l1=0x2c, l2=»3750 INPUT "Varenummer, 0 for færdig:",TAL1$«, l3=0x2c}
0x2a34…2a4d Line {l1=0x17, l2=»3760 EXEC NRTEST(TAL1$)«, l3=0x17}
0x2a4d…2a80 Line {l1=0x31, l2=»3770 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0«, l3=0x31}
0x2a80…2a8f Line {l1=0x0d, l2=»3780 VARENR=P«, l3=0x0d}
0x2a8f…2aa1 Line {l1=0x10, l2=»3790 CURSOR 11,4«, l3=0x10}
0x2aa1…2abb Line {l1=0x18, l2=»3800 PRINT BLANK$;BLANK$«, l3=0x18}
0x2abb…2ad8 Line {l1=0x1b, l2=»3810 IF VARENR=0 THEN EXIT «, l3=0x1b}
0x2ad8…2aea Line {l1=0x10, l2=»3820 CURSOR 1,24«, l3=0x10}
0x2aea…2b19 Line {l1=0x2d, l2=»3830 EXEC FINDPOST(VTAB,MVANTAL,VARENR,VPIL3)«, l3=0x2d}
0x2b19…2b2f Line {l1=0x14, l2=»3840 IF CEKS=0 THEN «, l3=0x14}
0x2b2f…2b43 Line {l1=0x12, l2=»3850 EXEC VARELTEK«, l3=0x12}
0x2b43…2b58 Line {l1=0x13, l2=»3855 EXEC HENTVPOST«, l3=0x13}
0x2b58…2b6b Line {l1=0x11, l2=»3860 EXEC VALINUD«, l3=0x11}
0x2b6b…2b80 Line {l1=0x13, l2=»3870 CASE SVAR$ OF «, l3=0x13}
0x2b80…2b8f Line {l1=0x0d, l2=»3880 WHEN "2"«, l3=0x0d}
0x2b8f…2b9d Line {l1=0x0c, l2=»3890 LINIE=7«, l3=0x0c}
0x2b9d…2bb0 Line {l1=0x11, l2=»3900 EXEC VAREÆND«, l3=0x11}
0x2bb0…2bc2 Line {l1=0x10, l2=»3910 CURSOR 1,24«, l3=0x10}
0x2bc2…2bd6 Line {l1=0x12, l2=»3920 EXEC GEMVPOST«, l3=0x12}
0x2bd6…2be5 Line {l1=0x0d, l2=»3930 WHEN "3"«, l3=0x0d}
0x2be5…2bfc Line {l1=0x15, l2=»3940 IF T2(4)>0 THEN «, l3=0x15}
0x2bfc…2c0f Line {l1=0x11, l2=»3950 CURSOR 16,11«, l3=0x11}
0x2c0f…2c3b Line {l1=0x2a, l2=»3960 PRINT "Der er fakturaer til udskrift"«, l3=0x2a}
0x2c3b…2c4e Line {l1=0x11, l2=»3970 CURSOR 16,13«, l3=0x11}
0x2c4e…2c8c Line {l1=0x3c, l2=»3980 INPUT "og ingen varer kan slettes. Tast RETURN.",SVAR1$«, l3=0x3c}
0x2c8c…2c9d Line {l1=0x0f, l2=»3990 SVAR1$="N"«, l3=0x0f}
0x2c9d…2ca9 Line {l1=0x0a, l2=»4000 ELSE «, l3=0x0a}
0x2ca9…2cb7 Line {l1=0x0c, l2=»4010 REPEAT «, l3=0x0c}
0x2cb7…2cca Line {l1=0x11, l2=»4020 CURSOR 16,11«, l3=0x11}
0x2cca…2cfb Line {l1=0x2f, l2=»4030 INPUT "Ønskes varen slettet (J/N):",SVAR1$«, l3=0x2f}
0x2cfb…2d20 Line {l1=0x23, l2=»4040 UNTIL SVAR1$="J" OR SVAR1$="N"«, l3=0x23}
0x2d20…2d2d Line {l1=0x0b, l2=»4050 ENDIF «, l3=0x0b}
0x2d2d…2d47 Line {l1=0x18, l2=»4060 IF SVAR1$="J" THEN «, l3=0x18}
0x2d47…2d5c Line {l1=0x13, l2=»4070 EXEC SLETVPOST«, l3=0x13}
0x2d5c…2d6f Line {l1=0x11, l2=»4080 CURSOR 16,11«, l3=0x11}
0x2d6f…2db6 Line {l1=0x45, l2=»4090 PRINT USING "Varenummer ####### er slettet. Tast RETURN.":VARENR«, l3=0x45}
0x2db6…2dcd Line {l1=0x15, l2=»4100 INPUT " ",SVAR1$«, l3=0x15}
0x2dcd…2dda Line {l1=0x0b, l2=»4110 ENDIF «, l3=0x0b}
0x2dda…2de9 Line {l1=0x0d, l2=»4120 WHEN "4"«, l3=0x0d}
0x2de9…2dfc Line {l1=0x11, l2=»4130 CURSOR 16,11«, l3=0x11}
0x2dfc…2e1d Line {l1=0x1f, l2=»4140 INPUT "Tast RETURN",SVAR1$«, l3=0x1f}
0x2e1d…2e2c Line {l1=0x0d, l2=»4150 ENDCASE «, l3=0x0d}
0x2e2c…2e38 Line {l1=0x0a, l2=»4160 ELSE «, l3=0x0a}
0x2e38…2e49 Line {l1=0x0f, l2=»4170 CURSOR 3,4«, l3=0x0f}
0x2e49…2e93 Line {l1=0x48, l2=»4180 PRINT USING "Varenummer ####### eksistere ikke.Tast RETURN.":VARENR«, l3=0x48}
0x2e93…2eaa Line {l1=0x15, l2=»4190 INPUT " ",SVAR1$«, l3=0x15}
0x2eaa…2eb7 Line {l1=0x0b, l2=»4200 ENDIF «, l3=0x0b}
0x2eb7…2ecc Line {l1=0x13, l2=»4210 UNTIL VARENR=0«, l3=0x13}
0x2ecc…2edb Line {l1=0x0d, l2=»4220 WHEN "5"«, l3=0x0d}
0x2edb…2efa Line {l1=0x1d, l2=»4230 PRINT "Printerudskrift."«, l3=0x1d}
0x2efa…2f0d Line {l1=0x11, l2=»4240 SVARE=999999«, l3=0x11}
0x2f0d…2f1b Line {l1=0x0c, l2=»4250 REPEAT «, l3=0x0c}
0x2f1b…2f2d Line {l1=0x10, l2=»4260 CURSOR 21,3«, l3=0x10}
0x2f2d…2f64 Line {l1=0x35, l2=»4270 INPUT "Fra varenummer (0 for alle varer):",TAL1$«, l3=0x35}
0x2f64…2f7d Line {l1=0x17, l2=»4280 EXEC NRTEST(TAL1$)«, l3=0x17}
0x2f7d…2fb0 Line {l1=0x31, l2=»4290 UNTIL (P>4 AND P<=999999 OR P=0) AND TEST2=0«, l3=0x31}
0x2fb0…2fbe Line {l1=0x0c, l2=»4300 FVARE=P«, l3=0x0c}
0x2fbe…2fd5 Line {l1=0x15, l2=»4310 IF FVARE>0 THEN «, l3=0x15}
0x2fd5…2fe3 Line {l1=0x0c, l2=»4320 REPEAT «, l3=0x0c}
0x2fe3…2ff5 Line {l1=0x10, l2=»4330 CURSOR 21,4«, l3=0x10}
0x2ff5…302c Line {l1=0x35, l2=»4340 INPUT "Til varenummer :",TAL1$«, l3=0x35}
0x302c…3045 Line {l1=0x17, l2=»4350 EXEC NRTEST(TAL1$)«, l3=0x17}
0x3045…3074 Line {l1=0x2d, l2=»4360 UNTIL P=>FVARE AND P<=999999 AND TEST2=0«, l3=0x2d}
0x3074…3082 Line {l1=0x0c, l2=»4370 SVARE=P«, l3=0x0c}
0x3082…308f Line {l1=0x0b, l2=»4380 ENDIF «, l3=0x0b}
0x308f…30a1 Line {l1=0x10, l2=»4390 CURSOR 21,6«, l3=0x10}
0x30a1…30d0 Line {l1=0x2d, l2=»4400 INPUT "Monter papir. Tast RETURN",SVAR1$«, l3=0x2d}
0x30d0…30df Line {l1=0x0d, l2=»4410 OUTPUT P«, l3=0x0d}
0x30df…30ee Line {l1=0x0d, l2=»4420 STARTV=1«, l3=0x0d}
0x30ee…30fc Line {l1=0x0c, l2=»4430 REPEAT «, l3=0x0c}
0x30fc…3110 Line {l1=0x12, l2=»4440 EXEC OVERSKRI«, l3=0x12}
0x3110…3130 Line {l1=0x1e, l2=»4450 FOR VPIL3=STARTV TO AVARE«, l3=0x1e}
0x3130…316d Line {l1=0x3b, l2=»4460 IF VTAB(VPIL3,1)=>FVARE AND VTAB(VPIL3,1)<=SVARE THEN «, l3=0x3b}
0x316d…3182 Line {l1=0x13, l2=»4470 EXEC HENTVPOST«, l3=0x13}
0x3182…31b4 Line {l1=0x30, l2=»4480 PRINT USING " ####### ":VARENR;«, l3=0x30}
0x31b4…31ea Line {l1=0x34, l2=»4490 PRINT TAB(22);VARTEKST$;TAB(51);VARPRIS$(1:11);«, l3=0x34}
0x31ea…3212 Line {l1=0x26, l2=»4500 PRINT USING " #######":VARKONT«, l3=0x26}
0x3212…321f Line {l1=0x0b, l2=»4510 ENDIF «, l3=0x0b}
0x321f…3242 Line {l1=0x21, l2=»4520 IF VPIL3 MOD 40=0 THEN EXIT «, l3=0x21}
0x3242…3253 Line {l1=0x0f, l2=»4530 NEXT VPIL3«, l3=0x0f}
0x3253…326a Line {l1=0x15, l2=»4540 STARTV=STARTV+40«, l3=0x15}
0x326a…3286 Line {l1=0x1a, l2=»4550 PRINT CHR(10);CHR(10)«, l3=0x1a}
0x3286…329f Line {l1=0x17, l2=»4560 UNTIL STARTV>AVARE«, l3=0x17}
0x329f…32ad Line {l1=0x0c, l2=»4570 REPEAT «, l3=0x0c}
0x32ad…32c2 Line {l1=0x13, l2=»4580 PRINT CHR(10);«, l3=0x13}
0x32c2…32d6 Line {l1=0x12, l2=»4590 VPIL3=VPIL3+1«, l3=0x12}
0x32d6…32f1 Line {l1=0x19, l2=»4600 UNTIL VPIL3 MOD 40=0«, l3=0x19}
0x32f1…3301 Line {l1=0x0e, l2=»4610 PRINT " "«, l3=0x0e}
0x3301…3310 Line {l1=0x0d, l2=»4620 OUTPUT T«, l3=0x0d}
0x3310…331f Line {l1=0x0d, l2=»4630 ENDCASE «, l3=0x0d}
0x331f…3335 Line {l1=0x14, l2=»4640 UNTIL SVAR$="0"«, l3=0x14}
0x3335…3358 Line {l1=0x21, l2=»4650 EXEC UDTAB(VTAB,MVANTAL,K3$)«, l3=0x21}
0x3358…3368 Line {l1=0x0e, l2=»4660 CLOSE K3$«, l3=0x0e}
0x3368…3382 Line {l1=0x18, l2=»4670 EXEC FEJL(9,30,K3$)«, l3=0x18}
0x3382…3392 Line {l1=0x0e, l2=»4680 CLOSE K4$«, l3=0x0e}
0x3392…33ac Line {l1=0x18, l2=»4690 EXEC FEJL(9,31,K4$)«, l3=0x18}
0x33ac…33bc Line {l1=0x0e, l2=»4700 CLOSE K2$«, l3=0x0e}
0x33bc…33ca Line {l1=0x0c, l2=»4710 T3(6)=0«, l3=0x0c}
0x33ca…33db Line {l1=0x0f, l2=»4720 OPEN K5$,W«, l3=0x0f}
0x33db…33f5 Line {l1=0x18, l2=»4730 EXEC FEJL(9,32,K5$)«, l3=0x18}
0x33f5…343c Line {l1=0x45, l2=»4740 PUT K5$,12:T2(1),T2(2),T2(3),T2(4),T2(5),T2(6),T2(7),T2(8),AVARE«, l3=0x45}
0x343c…3456 Line {l1=0x18, l2=»4750 EXEC FEJL(9,33,K5$)«, l3=0x18}
0x3456…349d Line {l1=0x45, l2=»4760 PUT K5$,17:T3(1),T3(2),T3(3),T3(4),T3(5),T3(6),T3(7),T3(8),T3(9)«, l3=0x45}
0x349d…34b7 Line {l1=0x18, l2=»4770 EXEC FEJL(9,34,K5$)«, l3=0x18}
0x34b7…34c7 Line {l1=0x0e, l2=»4780 CLOSE K5$«, l3=0x0e}
0x34c7…34e1 Line {l1=0x18, l2=»4790 EXEC FEJL(9,35,K5$)«, l3=0x18}
0x34e1…34ff Line {l1=0x1c, l2=»4800 CHAIN "P641210:OPSTART"«, l3=0x1c}
0x34ff…3500 00 ┆ ┆
0x3500…3520 00 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 ┆ ccccccccccccccccccccccccccccccc┆
0x3520…3540 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┆
[…0x30…]