|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »REGVEDL.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »REGVEDL.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »REGVEDL.K«
0100 REM REGVEDL 0110Z=9;LIN=51;O=0;W=1;Æ=2;Ø=3;Å=9 0120DIM K1$(F),K2$(F),A$(W),STREG$(71),KNR$(D),DEBNV$(25),ANV$(25) 0130DIM N$(D),MOMS$(12),BET$(W),FORS$(W),PORTO$(W),TFELT$(20),EANV$(25) 0140DIM BK$(77),TAH$(12),VTAB2(C),K10$(F),K11$(F),TITEL$(25),PRIS$(12) 0150DIM RES$(15),LK$(Ø),KG$(Ø),KTN$(D),BLB2$(12),K8$(F),DSALDO1$(12) 0160DIM PNR$(D),TY$(W),OP1$(12),OP2$(12),TA$(12),TB$(14),DAT$(E),ATLF$(Z) 0170DIM UD3$(14),UD4$(14),K3$(F),K4$(F),K5$(F),K6$(F),T1(Z),DEBKGR$(W) 0180DIM VAR2$(25),VAR3$(13),DBK$(W),K7$(F),UBLB2$(14),K12$(F),STJERNE$(78) 0190DIM DSL2$(12),DSL3$(12),DSL4$(12),SELEKT$(12),GADE$(25),BY$(20) 0200DIM TLF$(Z),KØB$(12),MDNK$(12),TN(E),TITEL1$(E,F),T2(10),TAL4$(14) 0210DIM BELØB$(12),ISBN$(12),BNV$(15,25),FRANR(15),TILNR(15) 0220PROC CA(ART,B1,B2,ES) 0230OP1$=B1$;OP2$=B2$;RES$=ES$;SI=O;FLAG=O 0240CALL "P641210:REGN" 0250ES$=RES$ 0260IF FLAG THEN STOP 0270ENDPROC 0280PROC FE(NR1,NR2,NR3) 0290IF STATUS(NR3$)<>O THEN 0300PRINT STATUS(NR3$),NR1,NR2,NR3$ 0310STOP 0320ENDIF 0330ENDPROC 0340PROC INDTAB1(T,MANTAL,K15) 0350J=MANTAL DIV 32 0360OPEN K15$,R 0370EXEC FE(999,W,K15$) 0380FOR I=W TO J 0390H=(I-W)*E+W 0400GET K15$,I:T(H),T(H+W),T(H+Æ),T(H+Ø),T(H+B),T(H+C),T(H+D),T(H+7) 0410EXEC FE(W,W,K15$) 0420NEXT I 0430CLOSE K15$ 0440EXEC FE(W,Æ,K15$) 0450ENDPROC 0460PROC INDTAB(U,MANTAL,K15) 0470J=MANTAL DIV 32+W 0480OPEN K15$,R 0490EXEC FE(999,W,K15$) 0500FOR I=J TO MANTAL DIV B+J-W 0510H=(I-J)*B+W;J1=H+W;J2=H+Æ;J3=H+Ø 0520GET K15$,I:U(H,W),U(H,Æ),U(J1,W),U(J1,Æ),U(J2,W),U(J2,Æ),U(J3,W),U(J3,Æ) 0530EXEC FE(Æ,W,K15$) 0540NEXT I 0550CLOSE K15$ 0560EXEC FE(Æ,Æ,K15$) 0570ENDPROC 0580PROC FIND1(J5,Q,J6,J7,J8,J9) 0590E3=J6 DIV E;J8=E3;I8=W;D9=J6 DIV B;D5=J6 DIV 32 0600REPEAT 0610IF J7=J5(J8) OR E3=W THEN EXIT 0620E3=(E3+W) DIV Æ;J8=J8+E3*(W-Æ*(J7<J5(J8))) 0630IF J8<W THEN J8=W 0640IF J8>D9 THEN J8=D9 0650UNTIL E3=O 0660IF J5(J8)>J7 THEN J8=J8-W*(J8>W) 0670J8=D5+J8 0680OPEN J9$,R 0690EXEC FE(999,W,J9$) 0700GET J9$,J8:Q(W,W),Q(W,Æ),Q(Æ,W),Q(Æ,Æ),Q(Ø,W),Q(Ø,Æ),Q(B,W),Q(B,Æ) 0710EXEC FE(W,W,J9$) 0720CLOSE J9$ 0730EXEC FE(W,Æ,J9$) 0740FOR J8=W TO B 0750IF J7=Q(J8,W) THEN EXIT 0760NEXT J8 0770IF J8<>C THEN I8=O 0780ENDPROC 0790PROC FIND(TAB1,MANT1,NØGL1,PIL3) 0800PIL1=MANT1 DIV Æ;PIL3=PIL1;CEKS=W 0810REPEAT 0820IF NØGL1=TAB1(PIL3,W) OR PIL1=W THEN EXIT 0830PIL1=(PIL1+W) DIV Æ;PIL3=PIL3+PIL1*(W-Æ*(NØGL1<TAB1(PIL3,W))) 0840IF PIL3<W THEN PIL3=W 0850IF PIL3>MANT1 THEN PIL3=MANT1 0860UNTIL PIL1=O 0870IF NØGL1=TAB1(PIL3,W) THEN CEKS=O 0880ENDPROC 0890PROC HENTMPOST 0900S=MTAB(MPIL3,Æ) 0910OPEN K3$,R 0920EXEC FE(999,W,K3$) 0930GET K3$,S:MNR,AFHNR,BET$,FORS$,PORTO$,TFELT$ 0940EXEC FE(E,Æ,K3$) 0950CLOSE K3$ 0960EXEC FE(E,Ø,K3$) 0970ENDPROC 0980PROC HENTA 0990S=ATAB1(APIL3,Æ) 1000OPEN K5$,R 1010EXEC FE(999,W,K5$) 1020GET K5$,S:DEBNR,DEBNV$,EANV$,TLF$ 1030EXEC FE(Z,31,K5$) 1040IF DEBNR<>ATAB1(APIL3,W) THEN STOP 1050GET K5$,S+W:GADE$,DPOSTNR,BY$,LK$,SELEKT$ 1060EXEC FE(88,D,K5$) 1070CLOSE K5$ 1080EXEC FE(88,7,K5$) 1090ENDPROC 1100PROC HENTD 1110S=DTAB1(DPIL3,Æ) 1120OPEN K12$,R 1130EXEC FE(999,W,K12$) 1140GET K12$,S:DEBNR,DEBNV$,DSALDO1$,DEBKGR$ 1150EXEC FE(Z,32,K12$) 1160IF DEBNR<>DTAB1(DPIL3,W) THEN STOP 1170GET K12$,S+W:DSL2$,DSL3$,DSL4$,DPOSTNR,LK$ 1180EXEC FE(88,Æ,K12$) 1190GET K12$,S+Æ:GADE$,TLF$,KPOST,HKUNDE 1200EXEC FE(88,Ø,K12$) 1210GET K12$,S+Ø:BY$,KØB$,MDNK$ 1220EXEC FE(88,B,K12$) 1230CLOSE K12$ 1240EXEC FE(88,C,K12$) 1250ENDPROC 1260PROC HENTRPOST(POST) 1270GET K10$,POST:MNR,TNR,AFHNR,STATUS 1280EXEC FE(40,Z,K10$) 1290ENDPROC 1300PROC GETPOST 1310WHILE MNR=O AND ( NOT SLUTFILE) DO 1320POST1=POST1+W 1330IF POST1>SPOST THEN 1340SLUTFILE=W 1350ELSE 1360GET K10$,POST1:MNR,TNR,AFHNR,STATUS 1370EXEC FE(88,7,K10$) 1380ENDIF 1390ENDWHILE 1400ENDPROC 1410PROC GEMRPOST(GPOST) 1420GPOST=GPOST+W 1430PUT K10$,GPOST:MNR,TNR,AFHNR,STATUS 1440EXEC FE(Z,33,K10$) 1450ENDPROC 1460PROC SLETR(P8) 1470PUT K10$,P8:O,O,O,O 1480EXEC FE(Z,56,K10$) 1490ENDPROC 1500PROC HENTT(TNR1) 1510S=TNR1 1520OPEN K11$,R 1530EXEC FE(999,W,K11$) 1540GET K11$,S:TNUM,TITEL$,PRIS$,VKONT,ISBN$,VÆGT 1550EXEC FE(Æ,44,K11$) 1560CLOSE K11$ 1570EXEC FE(Æ,45,K11$) 1580IF TNUM=O THEN 1590REPEAT 1600CURSOR Ø,23 1610INPUT "Titelnummer eksisterer ikke, tast RETURN ",A$ 1620EXEC NRT(A$) 1630UNTIL P=-W 1640ENDIF 1650ENDPROC 1660PROC SØG(NØGLE,ANPOST1,I1) 1670FOR I1=W TO ANPOST1 1680EXEC HENTRPOST(I1) 1690IF MNR=>NØGLE THEN EXIT 1700NEXT I1 1710ENDPROC 1720PROC SØG2(NØGL5,ANPOST5,POST5,X1) 1730FOR X1=ANPOST5+W TO POST5 1740EXEC HENTRPOST(X1) 1750IF NØGL5=MNR THEN EXIT 1760NEXT X1 1770IF X1=POST5+W THEN 1780REPEAT 1790CURSOR Ø,23 1800INPUT "Medlem ikke registreret, tast RETURN",A$ 1810EXEC NRT(A$) 1820UNTIL P=-W 1830ENDIF 1840ENDPROC 1850PROC DSIDST(XX,TKONT) 1860FOR II=XX+W TO SPOST 1870EXEC HENTRPOST(II) 1880IF TKONT<>MNR THEN EXIT 1890NEXT II 1900IF SPOST<II THEN TEK1=W 1910ENDPROC 1920PROC TUD(BLB1,UBLB1,TEGN,STØR) 1930BLB2$=BLB1$;UBLB2$=UBLB1$ 1940EXEC CA(C,BLB2$,TAH$,UBLB2$) 1950UBLB1$=UBLB2$ 1960IF TEGN=O THEN UBLB1$=UBLB1$(W:13) 1970IF TEGN=W AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " 1980IF STØR=W THEN UBLB1$=UBLB1$(B:LEN(UBLB1$)-Ø) 1990ENDPROC 2000PROC NRT(NUM1) 2010P=O;TEST2=O;KTAL=O;L=LEN(NUM1$) 2020CASE L OF 2030FOR I=W TO L 2040P1=INT(ORD(NUM1$(I))-48) 2050IF P1=>O AND P1<=Z THEN 2060P=P*10+P1 2070ELSE 2080TEST2=W 2090ENDIF 2100NEXT I 2110KTAL=P DIV 10000 2120WHEN O 2130P=-W 2140WHEN W 2150CASE NUM1$ OF 2160P=INT(ORD(NUM1$)-48) 2170WHEN "J","j" 2180P=-7 2190WHEN "N","n" 2200P=-E 2210ENDCASE 2220ENDCASE 2230ENDPROC 2240PROC ARBEJDE(I1) 2250EXEC HPOST 2260FOR J=W TO I1 2270EXEC HENTT(TN(J)) 2280TITEL1$(J)=TITEL$(W:18) 2290NEXT J 2300EXEC SKRIV 2310ENDPROC 2320PROC HPOST 2330KTAL=KONTO DIV 10000 2340IF KTAL=DEBGR THEN 2350EXEC FIND1(DTAB,DTAB1,MDANTAL,KONTO,DPIL3,K7$) 2360IF I8=O THEN 2370EXEC HENTD 2380ELSE 2390MNR=KONTO;DEBNV$="Deb. eksisterer ikke." 2400ENDIF 2410ELSE 2420EXEC FIND1(ATAB,ATAB1,MAANTAL,KONTO,APIL3,K8$) 2430IF I8=O THEN 2440EXEC HENTA 2450ELSE 2460MNR=KONTO;DEBNV$="Afh. eksisterer ikke." 2470ENDIF 2480ENDIF 2490ENDPROC 2500PROC UDSKRIV 2510CLEAR 2520CURSOR 21,W 2530PRINT "Registrering" 2540EXEC OVERSKRIFT 2550CURSOR Æ,Ø 2560PRINT "Medlemsnummer :";MNR 2570ENDPROC 2580PROC INDTAST 2590CURSOR Æ,C 2600PRINT USING "Kundenr/Afhenternr :#######":AFHNR 2610IF TEKST=-7 THEN 2620EXEC HPOST 2630CURSOR 33,C 2640PRINT DEBNV$ 2650ENDIF 2660IF TYPE<>Æ THEN 2670REPEAT 2680EXEC TTAST 2690IF TNR<>O AND TYPE=Ø THEN EXEC GEMRPOST(SPOST) 2700IF TNR<>O AND TYPE=W THEN EXEC GEMRPOST(ANPOST) 2710POS=POS+W 2720UNTIL TNR=O 2730ELSE 2740EXEC TTAST 2750ENDIF 2760ENDPROC 2770PROC TTAST 2780IF TYPE=W OR TYPE=Ø THEN 2790REPEAT 2800CURSOR Æ,7+POS 2810PRINT BK$(W:70) 2820CURSOR Æ,7 2830PRINT "Titelnummer :" 2840REPEAT 2850CURSOR Ø,23 2860PRINT BK$(W:70) 2870REPEAT 2880CURSOR Ø,23 2890PRINT "Titelnummer : (0:Færdig)" 2900CURSOR 20,23 2910INPUT TNR 2920UNTIL TNR=>O AND TNR<=MTANTAL 2930IF TNR=O THEN EXIT 2940EXEC HENTT(TNR) 2950UNTIL TNR=O OR (TNUM=TNR) 2960IF TNR=O THEN EXIT 2970CURSOR Æ,7+POS 2980PRINT USING "Titelnummer :####":TNR 2990CURSOR 33,7+POS 3000PRINT TITEL$ 3010REPEAT 3020CURSOR Ø,23 3030A$="J" 3040EDIT "Er titelnummer rigtig, (J/N) ",A$ 3050EXEC NRT(A$) 3060UNTIL P=-7 OR P=-E 3070UNTIL P=-7 OR TNR=O 3080ELSE 3090CURSOR Æ,7+POS 3100PRINT USING "Titelnummer :####":TNR 3110EXEC HENTT(TNR) 3120CURSOR 33,7+POS 3130PRINT TITEL$ 3140ENDIF 3150ENDPROC 3160PROC HOVED 3170SIDE=SIDE+W 3180IF LIE=47 AND SIDE>W THEN 3190FOR XI=W TO B 3200PRINT " " 3210NEXT XI 3220ENDIF 3230PRINT " " 3240PRINT CHR(14);"KONTROLLISTE";CHR(15);TAB(43);"SIDE";SIDE 3250PRINT " " 3260PRINT "Med.nr Navn" 3270PRINT "Kundenr Adresse" 3280PRINT "Saldo Postnr By" 3290PRINT " " 3300LIE=7 3310ENDPROC 3320PROC AHOVED 3330SIDE=SIDE+W 3340IF LIE=49 THEN 3350PRINT " " 3360PRINT " " 3370ENDIF 3380PRINT " " 3390PRINT CHR(14);"AFKRYDSNINGSLISTE";CHR(15); 3400IF BKLUB>0 THEN PRINT BNV$(BKLUB); 3410PRINT TAB(55);"SIDE ";SIDE 3420PRINT " " 3430PRINT " Med.nr Navn" 3440PRINT " Kundenr Adresse" 3450PRINT " Saldo Postnr By" 3460PRINT STJERNE$ 3470LIE=7 3480ENDPROC 3490PROC SKRIV 3500IF LIE=O OR LIE=47 THEN EXEC HOVED 3510TAL=W 3520PRINT USING "#######":KONT; 3530PRINT TAB(11);DEBNV$;TAB(35); 3540PRINT USING "####:":TN(TAL); 3550PRINT TITEL1$(TAL);TAB(57); 3560PRINT USING "####:":TN(W+TAL); 3570PRINT TITEL1$(W+TAL) 3580TAL=TAL+Æ 3590PRINT USING "#######":DEBNR; 3600PRINT TAB(11);GADE$;TAB(35); 3610PRINT USING "####:":TN(TAL); 3620PRINT TITEL1$(TAL);TAB(57); 3630PRINT USING "####:":TN(W+TAL); 3640PRINT TITEL1$(W+TAL) 3650TAL=TAL+Æ 3660IF KTAL=DEBGR THEN 3670EXEC CA(O,DSL3$,DSL4$,BELØB$) 3680EXEC CA(B,BELØB$,TAH$,TAH$) 3690IF SI=Æ THEN 3700EXEC TUD(BELØB$,TAL4$,W,W) 3710PRINT TAB(W);TAL4$; 3720ENDIF 3730ENDIF 3740PRINT TAB(10); 3750PRINT USING "###### ":DPOSTNR;TAB(F); 3760PRINT BY$;TAB(35); 3770PRINT USING "####:":TN(TAL); 3780PRINT TITEL1$(TAL);TAB(57); 3790PRINT USING "####:":TN(W+TAL); 3800PRINT TITEL1$(W+TAL) 3810IF I3>D THEN 3820TAL=TAL+Æ 3830PRINT TAB(35); 3840PRINT USING "####":TN(TAL); 3850PRINT TITEL1$(TAL);TAB(57); 3860PRINT USING "####":TN(W+TAL); 3870PRINT TITEL1$(W+TAL) 3880ELSE 3890PRINT " " 3900ENDIF 3910PRINT " " 3920LIE=LIE+C 3930ENDPROC 3940PROC ASKRIV 3950PRINT "*";TAB(78);"*" 3960PRINT USING "* #######":MNR; 3970PRINT TAB(13);DEBNV$;TAB(35);" * * * * *"; 3980PRINT " * *" 3990IF I8=O THEN 4000PRINT USING "* #######":DEBNR; 4010PRINT TAB(13);GADE$;TAB(35);" * * * * *"; 4020PRINT " * *" 4030PRINT "*"; 4040IF KTAL=DEBGR THEN 4050EXEC CA(O,DSL3$,DSL4$,BELØB$) 4060EXEC CA(B,BELØB$,TAH$,TAH$) 4070IF SI=Æ THEN 4080EXEC TUD(BELØB$,TAL4$,W,W) 4090PRINT TAB(Ø);TAL4$; 4100ENDIF 4110ENDIF 4120PRINT TAB(13); 4130PRINT USING "######":DPOSTNR; 4140PRINT TAB(20);BY$;TAB(35);" * * * * * * *" 4150PRINT "*";TAB(78);"*" 4160ELSE 4170PRINT "*";TAB(78);"*" 4180PRINT "*";TAB(78);"*" 4190PRINT "*";TAB(78);"*" 4200ENDIF 4210PRINT STJERNE$ 4220LIE=LIE+D 4230ENDPROC 4240PROC OVERSKRIFT 4250CURSOR 45,W 4260CASE TYPE OF 4270WHEN W 4280PRINT "Registrering" 4290WHEN Ø 4300PRINT "Tilføjelse" 4310WHEN Æ 4320PRINT "Sletning" 4330ENDCASE 4340ENDPROC 4350PROC NULSTIL 4360FOR I=W TO E 4370TN(I)=O;TITEL1$(I)=BK$(W:18) 4380NEXT I 4390ENDPROC 4400K6$="P641220:SYSTEM1" 4410OPEN K6$,R 4420EXEC FE(87,W,K6$) 4430GET K6$,W:FANTAL,MDANTAL 4440EXEC FE(Z,50,K6$) 4450GET K6$,E:VSNR,DIVNR,DEFNR,DEBGR 4460EXEC FE(Z,53,K6$) 4470GET K6$,12:K7$ 4480EXEC FE(Z,75,K6$) 4490GET K6$,16:K12$ 4500EXEC FE(Z,76,K6$) 4510CLOSE K6$ 4520EXEC FE(Z,51,K6$) 4530K1$="P641220:SYSTEM3" 4540OPEN K1$,R 4550EXEC FE(Z,W,K1$) 4560GET K1$,W:MLANTAL,MAANTAL,MTANTAL 4570EXEC FE(Z,Æ,K1$) 4580GET K1$,D:N$ 4590EXEC FE(Z,Ø,K1$) 4600GET K1$,7:K2$ 4610EXEC FE(Z,B,K1$) 4620GET K1$,E:K8$ 4630EXEC FE(Z,77,K1$) 4640GET K1$,Z:K3$ 4650EXEC FE(Z,C,K1$) 4660GET K1$,10:K5$ 4670EXEC FE(Z,78,K1$) 4680GET K1$,11:K11$ 4690EXEC FE(79,Z,K1$) 4700GET K1$,18:K10$ 4710EXEC FE(Z,80,K1$) 4720GET K1$,19:K4$ 4730EXEC FE(Z,D,K1$) 4740CLOSE K1$ 4750EXEC FE(Z,7,K1$) 4760K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K7$=N$+K7$;K8$=N$+K8$ 4770K12$=N$+K12$;K10$=N$+K10$;K11$=N$+K11$ 4780DIM MTAB(MLANTAL,Æ),DTAB(MDANTAL DIV B),ATAB(MAANTAL DIV B) 4790DIM DTAB1(B,Æ),ATAB1(B,Æ) 4800OPEN K4$,R 4810EXEC FE(Z,E,K4$) 4820GET K4$,C:MOMS$,T1(W),T1(Æ),T1(Ø),T1(B),T1(C),T1(D),T1(7),T1(E),T1(Z) 4830EXEC FE(Z,Z,K4$) 4840GET K4$,D:T2(W),T2(Æ),T2(Ø),T2(B),T2(C),T2(D),T2(7),T2(E),T2(Å),T2(10) 4850EXEC FE(77,7,K4$) 4860FOR II=1 TO 15 4870GET K4$,18+II:BNV$(II),FRANR(II),TILNR(II) 4880EXEC FE(88,II,K4$) 4890NEXT II 4900CLOSE K4$ 4910EXEC FE(Z,10,K4$) 4920OPEN K10$,W 4930EXEC FE(Z,83,K10$) 4940EXEC INDTAB1(DTAB,MDANTAL,K7$) 4950EXEC INDTAB1(ATAB,MAANTAL,K8$) 4960EXEC INDTAB(MTAB,MLANTAL,K2$) 4970BK$=" ";BK$=BK$+BK$+" " 4980TAH$="0+";MEDL=T1(7);ANPOST=T1(E);STATUS=O;TNR=W;SPOST=T1(Z);YX=O;TEK1=O 4990STJERNE$="****************************************" 5000STJERNE$=STJERNE$+STJERNE$ 5010STREG$="-----------------------------------";STREG$=STREG$+STREG$ 5020REG=T2(W) 5030REPEAT 5040OUTPUT T 5050CLEAR 5060CURSOR 21,W 5070PRINT "Registrering" 5080CURSOR 22,Ø 5090PRINT "0:Færdig" 5100CURSOR 22,C 5110PRINT "1:Registrering" 5120CURSOR 22,7 5130PRINT "2:Sletning" 5140CURSOR 22,Z 5150PRINT "3:Tilføjelse" 5160CURSOR 22,11 5170PRINT "4:Kontrolliste" 5180CURSOR 22,13 5190PRINT "5:Afkrydsningsliste" 5200REPEAT 5210CURSOR 24,15 5220PRINT "Vælg type (0-5)" 5230CURSOR 34,15 5240INPUT TY$ 5250EXEC NRT(TY$) 5260UNTIL P>-W AND P<D 5270TYPE=P;LIE=O;SIDE=O;TEST5=O 5280IF TYPE=O THEN EXIT 5290REPEAT 5300CURSOR 24,F 5310PRINT "Indtast bogklubnr. (0:15)" 5320CURSOR 43,F 5330INPUT TY$ 5340EXEC NRT(TY$) 5350UNTIL P>-1 AND P<16 5360IF BKLUB>0 THEN 5370EXEC FIND(MTAB,MLANTAL,FRANR(BKLUB),MPIL3) 5380IF MTAB(MPIL3,W)<BKLUB THEN MPIL3=MPIL3+W 5390FRA=MPIL3 5400EXEC FIND(MTAB,MLANTAL,TILNR(BKLUB),MPIL3) 5410IF MTAB(MPIL3,W)>BKLUB THEN MPIL3=MPIL3-W 5420TIL=MPIL3 5430ELSE 5440IF TYPE<>B THEN 5450REPEAT 5460IF TYPE=W AND REG=W THEN EXIT 5470REPEAT 5480CURSOR 22,19 5490PRINT "Fra medlemsnummer: (0:Alle)" 5500CURSOR 41,19 5510INPUT " ",KNR$ 5520EXEC NRT(KNR$) 5530UNTIL P=O OR (KTAL<>DEBGR AND TEST2=O) 5540KONT=P 5550IF P=O AND (TYPE=W OR TYPE=C) THEN 5560FRA=W;TIL=MEDL 5570ELSE 5580KONT=P 5590EXEC FIND(MTAB,MLANTAL,P,MPIL3) 5600IF MTAB(MPIL3,W)<KONT THEN MPIL3=MPIL3+W 5610FRA=MPIL3 5620ENDIF 5630UNTIL FRA<=MEDL 5640IF NOT (TYPE=W AND REG=W) THEN 5650IF TYPE=W OR TYPE=C THEN 5660IF P>O THEN 5670REPEAT 5680CURSOR 22,21 5690INPUT "Til medlemsnummer: ",KNR$ 5700EXEC NRT(KNR$) 5710UNTIL (P=>KONT AND TEST2=O AND KTAL<>DEBGR) 5720EXEC FIND(MTAB,MLANTAL,P,MPIL3) 5730IF MTAB(MPIL3,W)>P THEN MPIL3=MPIL3-W 5740TIL=MPIL3 5750ENDIF 5760ELSE 5770TIL=FRA;TEKST=-7 5780ENDIF 5790ENDIF 5800ENDIF 5810ENDIF 5820IF TYPE<>C THEN 5830REPEAT 5840CURSOR 22,23 5850INPUT "Ønskes der udskrevet tekst, (J/N) ",A$ 5860EXEC NRT(A$) 5870UNTIL P=-7 OR P=-E 5880TEKST=P 5890ENDIF 5900IF NOT (TYPE=W AND REG=W) THEN 5910CASE TYPE OF 5920WHEN W,B 5930TEST5=O 5940IF TYPE=W THEN 5950FOR MPIL3=FRA TO TIL 5960IF MTAB(MPIL3,W)<1000000 THEN 5970CLEAR 5980EXEC HENTMPOST 5990EXEC UDSKRIV 6000KONTO=AFHNR;POS=O 6010EXEC INDTAST 6020ENDIF 6030NEXT MPIL3 6040SPOST=ANPOST;REG=W 6050REPEAT 6060CLEAR 6070CURSOR 20,15 6080INPUT "Ønskes udskrevet kontrolliste, (J/N) ",A$ 6090EXEC NRT(A$) 6100UNTIL P=-7 OR P=-E 6110IF P=-7 THEN TEST5=W 6120ENDIF 6130IF TYPE=B OR TEST5=W THEN 6140CLEAR 6150REPEAT 6160CURSOR 21,15 6170INPUT "Monter papir og tast RETURN",A$ 6180EXEC NRT(A$) 6190UNTIL P=-W 6200OUTPUT P 6210MNR=O;SLUTFILE=O;KONT=O;POST1=O 6220EXEC GETPOST 6230WHILE NOT SLUTFILE DO 6240EXEC NULSTIL 6250KONT=MNR;I3=O;KONTO=AFHNR 6260WHILE KONT=MNR DO 6270I3=I3+W;TN(I3)=TNR;MNR=O 6280EXEC GETPOST 6290ENDWHILE 6300EXEC ARBEJDE(I3) 6310ENDWHILE 6320ENDIF 6330WHEN Æ 6340EXEC SØG(KONT,ANPOST,YX) 6350IF KONT<MNR OR YX=ANPOST+W THEN EXEC SØG2(KONT,ANPOST,SPOST,YX) 6360IF YX=SPOST+W THEN EXIT 6370REPEAT 6380EXEC HENTRPOST(YX) 6390IF KONT<>MNR THEN EXIT 6400KONTO=AFHNR;POS=O 6410EXEC UDSKRIV 6420EXEC INDTAST 6430REPEAT 6440CURSOR Ø,23 6450INPUT "Ønskes denne post slettet, (J/N) ",A$ 6460EXEC NRT(A$) 6470UNTIL P=-7 OR P=-E 6480IF P=-7 THEN EXEC SLETR(YX) 6490YX=YX+W 6500UNTIL KONT<>MNR 6510WHEN Ø 6520REPEAT 6530CURSOR 22,21 6540INPUT "Rigtig medlemsnummer, (J/N) ",A$ 6550EXEC NRT(A$) 6560UNTIL P=-7 OR P=-E 6570IF P=-7 THEN 6580EXEC SØG(KONT,ANPOST,YX) 6590IF KONT<MNR OR YX=ANPOST+W THEN EXEC SØG2(KONT,ANPOST,SPOST,YX) 6600EXEC DSIDST(YX,KONT) 6610IF TEK1<>W THEN 6620REPEAT 6630EXEC HENTRPOST(YX) 6640IF KONT<>MNR THEN EXIT 6650EXEC GEMRPOST(SPOST) 6660EXEC SLETR(YX) 6670YX=YX+W 6680UNTIL KONT<>MNR 6690EXEC HENTRPOST(SPOST) 6700ELSE 6710EXEC HENTMPOST 6720ENDIF 6730KONTO=AFHNR;POS=O 6740EXEC UDSKRIV 6750EXEC INDTAST 6760ENDIF 6770WHEN C 6780CLEAR 6790REPEAT 6800CURSOR 21,15 6810INPUT "Monter papir og tast RETURN",A$ 6820EXEC NRT(A$) 6830UNTIL P=-W 6840OUTPUT P 6850FOR MPIL3=FRA TO TIL 6860IF MTAB(MPIL3,W)<1000000 THEN 6870EXEC HENTMPOST 6880KONTO=AFHNR 6890EXEC HPOST 6900IF LIE=O OR LIE=49 THEN EXEC AHOVED 6910EXEC ASKRIV 6920ENDIF 6930NEXT MPIL3 6940ENDCASE 6950IF TYPE=B OR TYPE=C OR TEST5=W THEN 6960FOR KL=LIE TO LIN-W 6970PRINT " " 6980NEXT KL 6990ENDIF 7000ENDIF 7010UNTIL TYPE=O 7020CLOSE K10$ 7030EXEC FE(Z,21,K10$) 7040OPEN K4$,W 7050EXEC FE(Z,22,K4$) 7060T1(7)=MEDL;T1(E)=ANPOST;T1(Z)=SPOST;T2(W)=REG 7070PUT K4$,C:MOMS$,T1(W),T1(Æ),T1(Ø),T1(B),T1(C),T1(D),T1(7),T1(E),T1(Z) 7080EXEC FE(Z,24,K4$) 7090PUT K4$,D:T2(W),T2(Æ),T2(Ø),T2(B),T2(C),T2(D),T2(7),T2(E),T2(Å),T2(10) 7100EXEC FE(67,W,K4$) 7110CLOSE K4$ 7120EXEC FE(Z,25,K4$) 7130CHAIN "P641210:STARTS"
0x0000…0013 Line {l1=0x11, l2=»0100 REM REGVEDL «, l3=0x11}
0x0013…0038 Line {l1=0x23, l2=»0110Z=9;LIN=51;O=0;W=1;Æ=2;Ø=3;Å=9 «, l3=0x23}
0x0038…007d Line {l1=0x43, l2=»0120DIM K1$(F),K2$(F),A$(W),STREG$(71),KNR$(D),DEBNV$(25),ANV$(25) «, l3=0x43}
0x007d…00c7 Line {l1=0x48, l2=»0130DIM N$(D),MOMS$(12),BET$(W),FORS$(W),PORTO$(W),TFELT$(20),EANV$(25) «, l3=0x48}
0x00c7…0110 Line {l1=0x47, l2=»0140DIM BK$(77),TAH$(12),VTAB2(C),K10$(F),K11$(F),TITEL$(25),PRIS$(12) «, l3=0x47}
0x0110…0157 Line {l1=0x45, l2=»0150DIM RES$(15),LK$(Ø),KG$(Ø),KTN$(D),BLB2$(12),K8$(F),DSALDO1$(12) «, l3=0x45}
0x0157…01a3 Line {l1=0x4a, l2=»0160DIM PNR$(D),TY$(W),OP1$(12),OP2$(12),TA$(12),TB$(14),DAT$(E),ATLF$(Z) «, l3=0x4a}
0x01a3…01ec Line {l1=0x47, l2=»0170DIM UD3$(14),UD4$(14),K3$(F),K4$(F),K5$(F),K6$(F),T1(Z),DEBKGR$(W) «, l3=0x47}
0x01ec…0239 Line {l1=0x4b, l2=»0180DIM VAR2$(25),VAR3$(13),DBK$(W),K7$(F),UBLB2$(14),K12$(F),STJERNE$(78) «, l3=0x4b}
0x0239…027f Line {l1=0x44, l2=»0190DIM DSL2$(12),DSL3$(12),DSL4$(12),SELEKT$(12),GADE$(25),BY$(20) «, l3=0x44}
0x027f…02c8 Line {l1=0x47, l2=»0200DIM TLF$(Z),KØB$(12),MDNK$(12),TN(E),TITEL1$(E,F),T2(10),TAL4$(14) «, l3=0x47}
0x02c8…0307 Line {l1=0x3d, l2=»0210DIM BELØB$(12),ISBN$(12),BNV$(15,25),FRANR(15),TILNR(15) «, l3=0x3d}
0x0307…0323 Line {l1=0x1a, l2=»0220PROC CA(ART,B1,B2,ES) «, l3=0x1a}
0x0323…0350 Line {l1=0x2b, l2=»0230OP1$=B1$;OP2$=B2$;RES$=ES$;SI=O;FLAG=O «, l3=0x2b}
0x0350…036a Line {l1=0x18, l2=»0240CALL "P641210:REGN" «, l3=0x18}
0x036a…0379 Line {l1=0x0d, l2=»0250ES$=RES$ «, l3=0x0d}
0x0379…0392 Line {l1=0x17, l2=»0260IF FLAG THEN STOP «, l3=0x17}
0x0392…03a1 Line {l1=0x0d, l2=»0270ENDPROC «, l3=0x0d}
0x03a1…03bc Line {l1=0x19, l2=»0280PROC FE(NR1,NR2,NR3) «, l3=0x19}
0x03bc…03db Line {l1=0x1d, l2=»0290IF STATUS(NR3$)<>O THEN «, l3=0x1d}
0x03db…0401 Line {l1=0x24, l2=»0300PRINT STATUS(NR3$),NR1,NR2,NR3$ «, l3=0x24}
0x0401…040d Line {l1=0x0a, l2=»0310STOP «, l3=0x0a}
0x040d…041a Line {l1=0x0b, l2=»0320ENDIF «, l3=0x0b}
0x041a…0429 Line {l1=0x0d, l2=»0330ENDPROC «, l3=0x0d}
0x0429…044a Line {l1=0x1f, l2=»0340PROC INDTAB1(T,MANTAL,K15) «, l3=0x1f}
0x044a…0460 Line {l1=0x14, l2=»0350J=MANTAL DIV 32 «, l3=0x14}
0x0460…0472 Line {l1=0x10, l2=»0360OPEN K15$,R «, l3=0x10}
0x0472…048c Line {l1=0x18, l2=»0370EXEC FE(999,W,K15$) «, l3=0x18}
0x048c…049f Line {l1=0x11, l2=»0380FOR I=W TO J «, l3=0x11}
0x049f…04b1 Line {l1=0x10, l2=»0390H=(I-W)*E+W «, l3=0x10}
0x04b1…04f8 Line {l1=0x45, l2=»0400GET K15$,I:T(H),T(H+W),T(H+Æ),T(H+Ø),T(H+B),T(H+C),T(H+D),T(H+7) «, l3=0x45}
0x04f8…0510 Line {l1=0x16, l2=»0410EXEC FE(W,W,K15$) «, l3=0x16}
0x0510…051d Line {l1=0x0b, l2=»0420NEXT I «, l3=0x0b}
0x051d…052e Line {l1=0x0f, l2=»0430CLOSE K15$ «, l3=0x0f}
0x052e…0546 Line {l1=0x16, l2=»0440EXEC FE(W,Æ,K15$) «, l3=0x16}
0x0546…0555 Line {l1=0x0d, l2=»0450ENDPROC «, l3=0x0d}
0x0555…0575 Line {l1=0x1e, l2=»0460PROC INDTAB(U,MANTAL,K15) «, l3=0x1e}
0x0575…058d Line {l1=0x16, l2=»0470J=MANTAL DIV 32+W «, l3=0x16}
0x058d…059f Line {l1=0x10, l2=»0480OPEN K15$,R «, l3=0x10}
0x059f…05b9 Line {l1=0x18, l2=»0490EXEC FE(999,W,K15$) «, l3=0x18}
0x05b9…05db Line {l1=0x20, l2=»0500FOR I=J TO MANTAL DIV B+J-W «, l3=0x20}
0x05db…0602 Line {l1=0x25, l2=»0510H=(I-J)*B+W;J1=H+W;J2=H+Æ;J3=H+Ø «, l3=0x25}
0x0602…0651 Line {l1=0x4d, l2=»0520GET K15$,I:U(H,W),U(H,Æ),U(J1,W),U(J1,Æ),U(J2,W),U(J2,Æ),U(J3,W),U(J3,Æ) «, l3=0x4d}
0x0651…0669 Line {l1=0x16, l2=»0530EXEC FE(Æ,W,K15$) «, l3=0x16}
0x0669…0676 Line {l1=0x0b, l2=»0540NEXT I «, l3=0x0b}
0x0676…0687 Line {l1=0x0f, l2=»0550CLOSE K15$ «, l3=0x0f}
0x0687…069f Line {l1=0x16, l2=»0560EXEC FE(Æ,Æ,K15$) «, l3=0x16}
0x069f…06ae Line {l1=0x0d, l2=»0570ENDPROC «, l3=0x0d}
0x06ae…06d1 Line {l1=0x21, l2=»0580PROC FIND1(J5,Q,J6,J7,J8,J9) «, l3=0x21}
0x06d1…0707 Line {l1=0x34, l2=»0590E3=J6 DIV E;J8=E3;I8=W;D9=J6 DIV B;D5=J6 DIV 32 «, l3=0x34}
0x0707…0715 Line {l1=0x0c, l2=»0600REPEAT «, l3=0x0c}
0x0715…073b Line {l1=0x24, l2=»0610IF J7=J5(J8) OR E3=W THEN EXIT «, l3=0x24}
0x073b…076c Line {l1=0x2f, l2=»0620E3=(E3+W) DIV Æ;J8=J8+E3*(W-Æ*(J7<J5(J8))) «, l3=0x2f}
0x076c…0784 Line {l1=0x16, l2=»0630IF J8<W THEN J8=W «, l3=0x16}
0x0784…079e Line {l1=0x18, l2=»0640IF J8>D9 THEN J8=D9 «, l3=0x18}
0x079e…07af Line {l1=0x0f, l2=»0650UNTIL E3=O «, l3=0x0f}
0x07af…07d6 Line {l1=0x25, l2=»0660IF J5(J8)>J7 THEN J8=J8-W*(J8>W) «, l3=0x25}
0x07d6…07e5 Line {l1=0x0d, l2=»0670J8=D5+J8 «, l3=0x0d}
0x07e5…07f6 Line {l1=0x0f, l2=»0680OPEN J9$,R «, l3=0x0f}
0x07f6…080f Line {l1=0x17, l2=»0690EXEC FE(999,W,J9$) «, l3=0x17}
0x080f…0858 Line {l1=0x47, l2=»0700GET J9$,J8:Q(W,W),Q(W,Æ),Q(Æ,W),Q(Æ,Æ),Q(Ø,W),Q(Ø,Æ),Q(B,W),Q(B,Æ) «, l3=0x47}
0x0858…086f Line {l1=0x15, l2=»0710EXEC FE(W,W,J9$) «, l3=0x15}
0x086f…087f Line {l1=0x0e, l2=»0720CLOSE J9$ «, l3=0x0e}
0x087f…0896 Line {l1=0x15, l2=»0730EXEC FE(W,Æ,J9$) «, l3=0x15}
0x0896…08aa Line {l1=0x12, l2=»0740FOR J8=W TO B «, l3=0x12}
0x08aa…08c9 Line {l1=0x1d, l2=»0750IF J7=Q(J8,W) THEN EXIT «, l3=0x1d}
0x08c9…08d7 Line {l1=0x0c, l2=»0760NEXT J8 «, l3=0x0c}
0x08d7…08f0 Line {l1=0x17, l2=»0770IF J8<>C THEN I8=O «, l3=0x17}
0x08f0…08ff Line {l1=0x0d, l2=»0780ENDPROC «, l3=0x0d}
0x08ff…0926 Line {l1=0x25, l2=»0790PROC FIND(TAB1,MANT1,NØGL1,PIL3) «, l3=0x25}
0x0926…094e Line {l1=0x26, l2=»0800PIL1=MANT1 DIV Æ;PIL3=PIL1;CEKS=W «, l3=0x26}
0x094e…095c Line {l1=0x0c, l2=»0810REPEAT «, l3=0x0c}
0x095c…098d Line {l1=0x2f, l2=»0820IF NØGL1=TAB1(PIL3,W) OR PIL1=W THEN EXIT «, l3=0x2f}
0x098d…09d1 Line {l1=0x42, l2=»0830PIL1=(PIL1+W) DIV Æ;PIL3=PIL3+PIL1*(W-Æ*(NØGL1<TAB1(PIL3,W))) «, l3=0x42}
0x09d1…09ed Line {l1=0x1a, l2=»0840IF PIL3<W THEN PIL3=W «, l3=0x1a}
0x09ed…0a11 Line {l1=0x22, l2=»0850IF PIL3>MANT1 THEN PIL3=MANT1 «, l3=0x22}
0x0a11…0a24 Line {l1=0x11, l2=»0860UNTIL PIL1=O «, l3=0x11}
0x0a24…0a4c Line {l1=0x26, l2=»0870IF NØGL1=TAB1(PIL3,W) THEN CEKS=O «, l3=0x26}
0x0a4c…0a5b Line {l1=0x0d, l2=»0880ENDPROC «, l3=0x0d}
0x0a5b…0a70 Line {l1=0x13, l2=»0890PROC HENTMPOST «, l3=0x13}
0x0a70…0a86 Line {l1=0x14, l2=»0900S=MTAB(MPIL3,Æ) «, l3=0x14}
0x0a86…0a97 Line {l1=0x0f, l2=»0910OPEN K3$,R «, l3=0x0f}
0x0a97…0ab0 Line {l1=0x17, l2=»0920EXEC FE(999,W,K3$) «, l3=0x17}
0x0ab0…0ae3 Line {l1=0x31, l2=»0930GET K3$,S:MNR,AFHNR,BET$,FORS$,PORTO$,TFELT$ «, l3=0x31}
0x0ae3…0afa Line {l1=0x15, l2=»0940EXEC FE(E,Æ,K3$) «, l3=0x15}
0x0afa…0b0a Line {l1=0x0e, l2=»0950CLOSE K3$ «, l3=0x0e}
0x0b0a…0b21 Line {l1=0x15, l2=»0960EXEC FE(E,Ø,K3$) «, l3=0x15}
0x0b21…0b30 Line {l1=0x0d, l2=»0970ENDPROC «, l3=0x0d}
0x0b30…0b41 Line {l1=0x0f, l2=»0980PROC HENTA «, l3=0x0f}
0x0b41…0b58 Line {l1=0x15, l2=»0990S=ATAB1(APIL3,Æ) «, l3=0x15}
0x0b58…0b69 Line {l1=0x0f, l2=»1000OPEN K5$,R «, l3=0x0f}
0x0b69…0b82 Line {l1=0x17, l2=»1010EXEC FE(999,W,K5$) «, l3=0x17}
0x0b82…0baa Line {l1=0x26, l2=»1020GET K5$,S:DEBNR,DEBNV$,EANV$,TLF$ «, l3=0x26}
0x0baa…0bc2 Line {l1=0x16, l2=»1030EXEC FE(Z,31,K5$) «, l3=0x16}
0x0bc2…0bec Line {l1=0x28, l2=»1040IF DEBNR<>ATAB1(APIL3,W) THEN STOP «, l3=0x28}
0x0bec…0c1c Line {l1=0x2e, l2=»1050GET K5$,S+W:GADE$,DPOSTNR,BY$,LK$,SELEKT$ «, l3=0x2e}
0x0c1c…0c34 Line {l1=0x16, l2=»1060EXEC FE(88,D,K5$) «, l3=0x16}
0x0c34…0c44 Line {l1=0x0e, l2=»1070CLOSE K5$ «, l3=0x0e}
0x0c44…0c5c Line {l1=0x16, l2=»1080EXEC FE(88,7,K5$) «, l3=0x16}
0x0c5c…0c6b Line {l1=0x0d, l2=»1090ENDPROC «, l3=0x0d}
0x0c6b…0c7c Line {l1=0x0f, l2=»1100PROC HENTD «, l3=0x0f}
0x0c7c…0c93 Line {l1=0x15, l2=»1110S=DTAB1(DPIL3,Æ) «, l3=0x15}
0x0c93…0ca5 Line {l1=0x10, l2=»1120OPEN K12$,R «, l3=0x10}
0x0ca5…0cbf Line {l1=0x18, l2=»1130EXEC FE(999,W,K12$) «, l3=0x18}
0x0cbf…0cee Line {l1=0x2d, l2=»1140GET K12$,S:DEBNR,DEBNV$,DSALDO1$,DEBKGR$ «, l3=0x2d}
0x0cee…0d07 Line {l1=0x17, l2=»1150EXEC FE(Z,32,K12$) «, l3=0x17}
0x0d07…0d31 Line {l1=0x28, l2=»1160IF DEBNR<>DTAB1(DPIL3,W) THEN STOP «, l3=0x28}
0x0d31…0d62 Line {l1=0x2f, l2=»1170GET K12$,S+W:DSL2$,DSL3$,DSL4$,DPOSTNR,LK$ «, l3=0x2f}
0x0d62…0d7b Line {l1=0x17, l2=»1180EXEC FE(88,Æ,K12$) «, l3=0x17}
0x0d7b…0da6 Line {l1=0x29, l2=»1190GET K12$,S+Æ:GADE$,TLF$,KPOST,HKUNDE «, l3=0x29}
0x0da6…0dbf Line {l1=0x17, l2=»1200EXEC FE(88,Ø,K12$) «, l3=0x17}
0x0dbf…0de1 Line {l1=0x20, l2=»1210GET K12$,S+Ø:BY$,KØB$,MDNK$ «, l3=0x20}
0x0de1…0dfa Line {l1=0x17, l2=»1220EXEC FE(88,B,K12$) «, l3=0x17}
0x0dfa…0e0b Line {l1=0x0f, l2=»1230CLOSE K12$ «, l3=0x0f}
0x0e0b…0e24 Line {l1=0x17, l2=»1240EXEC FE(88,C,K12$) «, l3=0x17}
0x0e24…0e33 Line {l1=0x0d, l2=»1250ENDPROC «, l3=0x0d}
0x0e33…0e4e Line {l1=0x19, l2=»1260PROC HENTRPOST(POST) «, l3=0x19}
0x0e4e…0e77 Line {l1=0x27, l2=»1270GET K10$,POST:MNR,TNR,AFHNR,STATUS «, l3=0x27}
0x0e77…0e90 Line {l1=0x17, l2=»1280EXEC FE(40,Z,K10$) «, l3=0x17}
0x0e90…0e9f Line {l1=0x0d, l2=»1290ENDPROC «, l3=0x0d}
0x0e9f…0eb2 Line {l1=0x11, l2=»1300PROC GETPOST «, l3=0x11}
0x0eb2…0edc Line {l1=0x28, l2=»1310WHILE MNR=O AND ( NOT SLUTFILE) DO «, l3=0x28}
0x0edc…0ef0 Line {l1=0x12, l2=»1320POST1=POST1+W «, l3=0x12}
0x0ef0…0f0b Line {l1=0x19, l2=»1330IF POST1>SPOST THEN «, l3=0x19}
0x0f0b…0f1c Line {l1=0x0f, l2=»1340SLUTFILE=W «, l3=0x0f}
0x0f1c…0f28 Line {l1=0x0a, l2=»1350ELSE «, l3=0x0a}
0x0f28…0f52 Line {l1=0x28, l2=»1360GET K10$,POST1:MNR,TNR,AFHNR,STATUS «, l3=0x28}
0x0f52…0f6b Line {l1=0x17, l2=»1370EXEC FE(88,7,K10$) «, l3=0x17}
0x0f6b…0f78 Line {l1=0x0b, l2=»1380ENDIF «, l3=0x0b}
0x0f78…0f88 Line {l1=0x0e, l2=»1390ENDWHILE «, l3=0x0e}
0x0f88…0f97 Line {l1=0x0d, l2=»1400ENDPROC «, l3=0x0d}
0x0f97…0fb2 Line {l1=0x19, l2=»1410PROC GEMRPOST(GPOST) «, l3=0x19}
0x0fb2…0fc6 Line {l1=0x12, l2=»1420GPOST=GPOST+W «, l3=0x12}
0x0fc6…0ff0 Line {l1=0x28, l2=»1430PUT K10$,GPOST:MNR,TNR,AFHNR,STATUS «, l3=0x28}
0x0ff0…1009 Line {l1=0x17, l2=»1440EXEC FE(Z,33,K10$) «, l3=0x17}
0x1009…1018 Line {l1=0x0d, l2=»1450ENDPROC «, l3=0x0d}
0x1018…102d Line {l1=0x13, l2=»1460PROC SLETR(P8) «, l3=0x13}
0x102d…1047 Line {l1=0x18, l2=»1470PUT K10$,P8:O,O,O,O «, l3=0x18}
0x1047…1060 Line {l1=0x17, l2=»1480EXEC FE(Z,56,K10$) «, l3=0x17}
0x1060…106f Line {l1=0x0d, l2=»1490ENDPROC «, l3=0x0d}
0x106f…1086 Line {l1=0x15, l2=»1500PROC HENTT(TNR1) «, l3=0x15}
0x1086…1093 Line {l1=0x0b, l2=»1510S=TNR1 «, l3=0x0b}
0x1093…10a5 Line {l1=0x10, l2=»1520OPEN K11$,R «, l3=0x10}
0x10a5…10bf Line {l1=0x18, l2=»1530EXEC FE(999,W,K11$) «, l3=0x18}
0x10bf…10f3 Line {l1=0x32, l2=»1540GET K11$,S:TNUM,TITEL$,PRIS$,VKONT,ISBN$,VÆGT «, l3=0x32}
0x10f3…110c Line {l1=0x17, l2=»1550EXEC FE(Æ,44,K11$) «, l3=0x17}
0x110c…111d Line {l1=0x0f, l2=»1560CLOSE K11$ «, l3=0x0f}
0x111d…1136 Line {l1=0x17, l2=»1570EXEC FE(Æ,45,K11$) «, l3=0x17}
0x1136…114c Line {l1=0x14, l2=»1580IF TNUM=O THEN «, l3=0x14}
0x114c…115a Line {l1=0x0c, l2=»1590REPEAT «, l3=0x0c}
0x115a…116c Line {l1=0x10, l2=»1600CURSOR Ø,23 «, l3=0x10}
0x116c…11a7 Line {l1=0x39, l2=»1610INPUT "Titelnummer eksisterer ikke, tast RETURN ",A$ «, l3=0x39}
0x11a7…11ba Line {l1=0x11, l2=»1620EXEC NRT(A$) «, l3=0x11}
0x11ba…11cb Line {l1=0x0f, l2=»1630UNTIL P=-W «, l3=0x0f}
0x11cb…11d8 Line {l1=0x0b, l2=»1640ENDIF «, l3=0x0b}
0x11d8…11e7 Line {l1=0x0d, l2=»1650ENDPROC «, l3=0x0d}
0x11e7…1208 Line {l1=0x1f, l2=»1660PROC SØG(NØGLE,ANPOST1,I1) «, l3=0x1f}
0x1208…1222 Line {l1=0x18, l2=»1670FOR I1=W TO ANPOST1 «, l3=0x18}
0x1222…123b Line {l1=0x17, l2=»1680EXEC HENTRPOST(I1) «, l3=0x17}
0x123b…125a Line {l1=0x1d, l2=»1690IF MNR=>NØGLE THEN EXIT «, l3=0x1d}
0x125a…1268 Line {l1=0x0c, l2=»1700NEXT I1 «, l3=0x0c}
0x1268…1277 Line {l1=0x0d, l2=»1710ENDPROC «, l3=0x0d}
0x1277…129f Line {l1=0x26, l2=»1720PROC SØG2(NØGL5,ANPOST5,POST5,X1) «, l3=0x26}
0x129f…12bf Line {l1=0x1e, l2=»1730FOR X1=ANPOST5+W TO POST5 «, l3=0x1e}
0x12bf…12d8 Line {l1=0x17, l2=»1740EXEC HENTRPOST(X1) «, l3=0x17}
0x12d8…12f6 Line {l1=0x1c, l2=»1750IF NØGL5=MNR THEN EXIT «, l3=0x1c}
0x12f6…1304 Line {l1=0x0c, l2=»1760NEXT X1 «, l3=0x0c}
0x1304…131e Line {l1=0x18, l2=»1770IF X1=POST5+W THEN «, l3=0x18}
0x131e…132c Line {l1=0x0c, l2=»1780REPEAT «, l3=0x0c}
0x132c…133e Line {l1=0x10, l2=»1790CURSOR Ø,23 «, l3=0x10}
0x133e…1374 Line {l1=0x34, l2=»1800INPUT "Medlem ikke registreret, tast RETURN",A$ «, l3=0x34}
0x1374…1387 Line {l1=0x11, l2=»1810EXEC NRT(A$) «, l3=0x11}
0x1387…1398 Line {l1=0x0f, l2=»1820UNTIL P=-W «, l3=0x0f}
0x1398…13a5 Line {l1=0x0b, l2=»1830ENDIF «, l3=0x0b}
0x13a5…13b4 Line {l1=0x0d, l2=»1840ENDPROC «, l3=0x0d}
0x13b4…13d0 Line {l1=0x1a, l2=»1850PROC DSIDST(XX,TKONT) «, l3=0x1a}
0x13d0…13eb Line {l1=0x19, l2=»1860FOR II=XX+W TO SPOST «, l3=0x19}
0x13eb…1404 Line {l1=0x17, l2=»1870EXEC HENTRPOST(II) «, l3=0x17}
0x1404…1423 Line {l1=0x1d, l2=»1880IF TKONT<>MNR THEN EXIT «, l3=0x1d}
0x1423…1431 Line {l1=0x0c, l2=»1890NEXT II «, l3=0x0c}
0x1431…144f Line {l1=0x1c, l2=»1900IF SPOST<II THEN TEK1=W «, l3=0x1c}
0x144f…145e Line {l1=0x0d, l2=»1910ENDPROC «, l3=0x0d}
0x145e…1483 Line {l1=0x23, l2=»1920PROC TUD(BLB1,UBLB1,TEGN,STØR) «, l3=0x23}
0x1483…14a3 Line {l1=0x1e, l2=»1930BLB2$=BLB1$;UBLB2$=UBLB1$ «, l3=0x1e}
0x14a3…14c6 Line {l1=0x21, l2=»1940EXEC CA(C,BLB2$,TAH$,UBLB2$) «, l3=0x21}
0x14c6…14da Line {l1=0x12, l2=»1950UBLB1$=UBLB2$ «, l3=0x12}
0x14da…1503 Line {l1=0x27, l2=»1960IF TEGN=O THEN UBLB1$=UBLB1$(W:13) «, l3=0x27}
0x1503…154c Line {l1=0x47, l2=»1970IF TEGN=W AND UBLB1$(LEN(UBLB1$))="+" THEN UBLB1$(LEN(UBLB1$))=" " «, l3=0x47}
0x154c…1580 Line {l1=0x32, l2=»1980IF STØR=W THEN UBLB1$=UBLB1$(B:LEN(UBLB1$)-Ø) «, l3=0x32}
0x1580…158f Line {l1=0x0d, l2=»1990ENDPROC «, l3=0x0d}
0x158f…15a4 Line {l1=0x13, l2=»2000PROC NRT(NUM1) «, l3=0x13}
0x15a4…15ca Line {l1=0x24, l2=»2010P=O;TEST2=O;KTAL=O;L=LEN(NUM1$) «, l3=0x24}
0x15ca…15db Line {l1=0x0f, l2=»2020CASE L OF «, l3=0x0f}
0x15db…15ee Line {l1=0x11, l2=»2030FOR I=W TO L «, l3=0x11}
0x15ee…160d Line {l1=0x1d, l2=»2040P1=INT(ORD(NUM1$(I))-48) «, l3=0x1d}
0x160d…162c Line {l1=0x1d, l2=»2050IF P1=>O AND P1<=Z THEN «, l3=0x1d}
0x162c…163c Line {l1=0x0e, l2=»2060P=P*10+P1 «, l3=0x0e}
0x163c…1648 Line {l1=0x0a, l2=»2070ELSE «, l3=0x0a}
0x1648…1656 Line {l1=0x0c, l2=»2080TEST2=W «, l3=0x0c}
0x1656…1663 Line {l1=0x0b, l2=»2090ENDIF «, l3=0x0b}
0x1663…1670 Line {l1=0x0b, l2=»2100NEXT I «, l3=0x0b}
0x1670…1687 Line {l1=0x15, l2=»2110KTAL=P DIV 10000 «, l3=0x15}
0x1687…1694 Line {l1=0x0b, l2=»2120WHEN O «, l3=0x0b}
0x1694…169f Line {l1=0x09, l2=»2130P=-W «, l3=0x09}
0x169f…16ac Line {l1=0x0b, l2=»2140WHEN W «, l3=0x0b}
0x16ac…16c1 Line {l1=0x13, l2=»2150CASE NUM1$ OF «, l3=0x13}
0x16c1…16dc Line {l1=0x19, l2=»2160P=INT(ORD(NUM1$)-48) «, l3=0x19}
0x16dc…16ef Line {l1=0x11, l2=»2170WHEN "J","j" «, l3=0x11}
0x16ef…16fa Line {l1=0x09, l2=»2180P=-7 «, l3=0x09}
0x16fa…170d Line {l1=0x11, l2=»2190WHEN "N","n" «, l3=0x11}
0x170d…1718 Line {l1=0x09, l2=»2200P=-E «, l3=0x09}
0x1718…1727 Line {l1=0x0d, l2=»2210ENDCASE «, l3=0x0d}
0x1727…1736 Line {l1=0x0d, l2=»2220ENDCASE «, l3=0x0d}
0x1736…1745 Line {l1=0x0d, l2=»2230ENDPROC «, l3=0x0d}
0x1745…175c Line {l1=0x15, l2=»2240PROC ARBEJDE(I1) «, l3=0x15}
0x175c…176d Line {l1=0x0f, l2=»2250EXEC HPOST «, l3=0x0f}
0x176d…1781 Line {l1=0x12, l2=»2260FOR J=W TO I1 «, l3=0x12}
0x1781…1799 Line {l1=0x16, l2=»2270EXEC HENTT(TN(J)) «, l3=0x16}
0x1799…17b7 Line {l1=0x1c, l2=»2280TITEL1$(J)=TITEL$(W:18) «, l3=0x1c}
0x17b7…17c4 Line {l1=0x0b, l2=»2290NEXT J «, l3=0x0b}
0x17c4…17d5 Line {l1=0x0f, l2=»2300EXEC SKRIV «, l3=0x0f}
0x17d5…17e4 Line {l1=0x0d, l2=»2310ENDPROC «, l3=0x0d}
0x17e4…17f5 Line {l1=0x0f, l2=»2320PROC HPOST «, l3=0x0f}
0x17f5…1810 Line {l1=0x19, l2=»2330KTAL=KONTO DIV 10000 «, l3=0x19}
0x1810…182a Line {l1=0x18, l2=»2340IF KTAL=DEBGR THEN «, l3=0x18}
0x182a…185f Line {l1=0x33, l2=»2350EXEC FIND1(DTAB,DTAB1,MDANTAL,KONTO,DPIL3,K7$) «, l3=0x33}
0x185f…1873 Line {l1=0x12, l2=»2360IF I8=O THEN «, l3=0x12}
0x1873…1884 Line {l1=0x0f, l2=»2370EXEC HENTD «, l3=0x0f}
0x1884…1890 Line {l1=0x0a, l2=»2380ELSE «, l3=0x0a}
0x1890…18bf Line {l1=0x2d, l2=»2390MNR=KONTO;DEBNV$="Deb. eksisterer ikke." «, l3=0x2d}
0x18bf…18cc Line {l1=0x0b, l2=»2400ENDIF «, l3=0x0b}
0x18cc…18d8 Line {l1=0x0a, l2=»2410ELSE «, l3=0x0a}
0x18d8…190d Line {l1=0x33, l2=»2420EXEC FIND1(ATAB,ATAB1,MAANTAL,KONTO,APIL3,K8$) «, l3=0x33}
0x190d…1921 Line {l1=0x12, l2=»2430IF I8=O THEN «, l3=0x12}
0x1921…1932 Line {l1=0x0f, l2=»2440EXEC HENTA «, l3=0x0f}
0x1932…193e Line {l1=0x0a, l2=»2450ELSE «, l3=0x0a}
0x193e…196d Line {l1=0x2d, l2=»2460MNR=KONTO;DEBNV$="Afh. eksisterer ikke." «, l3=0x2d}
0x196d…197a Line {l1=0x0b, l2=»2470ENDIF «, l3=0x0b}
0x197a…1987 Line {l1=0x0b, l2=»2480ENDIF «, l3=0x0b}
0x1987…1996 Line {l1=0x0d, l2=»2490ENDPROC «, l3=0x0d}
0x1996…19a9 Line {l1=0x11, l2=»2500PROC UDSKRIV «, l3=0x11}
0x19a9…19b6 Line {l1=0x0b, l2=»2510CLEAR «, l3=0x0b}
0x19b6…19c8 Line {l1=0x10, l2=»2520CURSOR 21,W «, l3=0x10}
0x19c8…19e3 Line {l1=0x19, l2=»2530PRINT "Registrering" «, l3=0x19}
0x19e3…19f9 Line {l1=0x14, l2=»2540EXEC OVERSKRIFT «, l3=0x14}
0x19f9…1a0a Line {l1=0x0f, l2=»2550CURSOR Æ,Ø «, l3=0x0f}
0x1a0a…1a32 Line {l1=0x26, l2=»2560PRINT "Medlemsnummer :";MNR «, l3=0x26}
0x1a32…1a41 Line {l1=0x0d, l2=»2570ENDPROC «, l3=0x0d}
0x1a41…1a54 Line {l1=0x11, l2=»2580PROC INDTAST «, l3=0x11}
0x1a54…1a65 Line {l1=0x0f, l2=»2590CURSOR Æ,C «, l3=0x0f}
0x1a65…1a9b Line {l1=0x34, l2=»2600PRINT USING "Kundenr/Afhenternr :#######":AFHNR «, l3=0x34}
0x1a9b…1ab3 Line {l1=0x16, l2=»2610IF TEKST=-7 THEN «, l3=0x16}
0x1ab3…1ac4 Line {l1=0x0f, l2=»2620EXEC HPOST «, l3=0x0f}
0x1ac4…1ad6 Line {l1=0x10, l2=»2630CURSOR 33,C «, l3=0x10}
0x1ad6…1ae9 Line {l1=0x11, l2=»2640PRINT DEBNV$ «, l3=0x11}
0x1ae9…1af6 Line {l1=0x0b, l2=»2650ENDIF «, l3=0x0b}
0x1af6…1b0d Line {l1=0x15, l2=»2660IF TYPE<>Æ THEN «, l3=0x15}
0x1b0d…1b1b Line {l1=0x0c, l2=»2670REPEAT «, l3=0x0c}
0x1b1b…1b2c Line {l1=0x0f, l2=»2680EXEC TTAST «, l3=0x0f}
0x1b2c…1b61 Line {l1=0x33, l2=»2690IF TNR<>O AND TYPE=Ø THEN EXEC GEMRPOST(SPOST) «, l3=0x33}
0x1b61…1b97 Line {l1=0x34, l2=»2700IF TNR<>O AND TYPE=W THEN EXEC GEMRPOST(ANPOST) «, l3=0x34}
0x1b97…1ba7 Line {l1=0x0e, l2=»2710POS=POS+W «, l3=0x0e}
0x1ba7…1bb9 Line {l1=0x10, l2=»2720UNTIL TNR=O «, l3=0x10}
0x1bb9…1bc5 Line {l1=0x0a, l2=»2730ELSE «, l3=0x0a}
0x1bc5…1bd6 Line {l1=0x0f, l2=»2740EXEC TTAST «, l3=0x0f}
0x1bd6…1be3 Line {l1=0x0b, l2=»2750ENDIF «, l3=0x0b}
0x1be3…1bf2 Line {l1=0x0d, l2=»2760ENDPROC «, l3=0x0d}
0x1bf2…1c03 Line {l1=0x0f, l2=»2770PROC TTAST «, l3=0x0f}
0x1c03…1c23 Line {l1=0x1e, l2=»2780IF TYPE=W OR TYPE=Ø THEN «, l3=0x1e}
0x1c23…1c31 Line {l1=0x0c, l2=»2790REPEAT «, l3=0x0c}
0x1c31…1c46 Line {l1=0x13, l2=»2800CURSOR Æ,7+POS «, l3=0x13}
0x1c46…1c5c Line {l1=0x14, l2=»2810PRINT BK$(W:70) «, l3=0x14}
0x1c5c…1c6d Line {l1=0x0f, l2=»2820CURSOR Æ,7 «, l3=0x0f}
0x1c6d…1c8c Line {l1=0x1d, l2=»2830PRINT "Titelnummer :" «, l3=0x1d}
0x1c8c…1c9a Line {l1=0x0c, l2=»2840REPEAT «, l3=0x0c}
0x1c9a…1cac Line {l1=0x10, l2=»2850CURSOR Ø,23 «, l3=0x10}
0x1cac…1cc2 Line {l1=0x14, l2=»2860PRINT BK$(W:70) «, l3=0x14}
0x1cc2…1cd0 Line {l1=0x0c, l2=»2870REPEAT «, l3=0x0c}
0x1cd0…1ce2 Line {l1=0x10, l2=»2880CURSOR Ø,23 «, l3=0x10}
0x1ce2…1d11 Line {l1=0x2d, l2=»2890PRINT "Titelnummer : (0:Færdig)" «, l3=0x2d}
0x1d11…1d24 Line {l1=0x11, l2=»2900CURSOR 20,23 «, l3=0x11}
0x1d24…1d34 Line {l1=0x0e, l2=»2910INPUT TNR «, l3=0x0e}
0x1d34…1d58 Line {l1=0x22, l2=»2920UNTIL TNR=>O AND TNR<=MTANTAL «, l3=0x22}
0x1d58…1d72 Line {l1=0x18, l2=»2930IF TNR=O THEN EXIT «, l3=0x18}
0x1d72…1d88 Line {l1=0x14, l2=»2940EXEC HENTT(TNR) «, l3=0x14}
0x1d88…1da8 Line {l1=0x1e, l2=»2950UNTIL TNR=O OR (TNUM=TNR) «, l3=0x1e}
0x1da8…1dc2 Line {l1=0x18, l2=»2960IF TNR=O THEN EXIT «, l3=0x18}
0x1dc2…1dd7 Line {l1=0x13, l2=»2970CURSOR Æ,7+POS «, l3=0x13}
0x1dd7…1e04 Line {l1=0x2b, l2=»2980PRINT USING "Titelnummer :####":TNR «, l3=0x2b}
0x1e04…1e1a Line {l1=0x14, l2=»2990CURSOR 33,7+POS «, l3=0x14}
0x1e1a…1e2d Line {l1=0x11, l2=»3000PRINT TITEL$ «, l3=0x11}
0x1e2d…1e3b Line {l1=0x0c, l2=»3010REPEAT «, l3=0x0c}
0x1e3b…1e4d Line {l1=0x10, l2=»3020CURSOR Ø,23 «, l3=0x10}
0x1e4d…1e5a Line {l1=0x0b, l2=»3030A$="J" «, l3=0x0b}
0x1e5a…1e88 Line {l1=0x2c, l2=»3040EDIT "Er titelnummer rigtig, (J/N) ",A$ «, l3=0x2c}
0x1e88…1e9b Line {l1=0x11, l2=»3050EXEC NRT(A$) «, l3=0x11}
0x1e9b…1eb4 Line {l1=0x17, l2=»3060UNTIL P=-7 OR P=-E «, l3=0x17}
0x1eb4…1ece Line {l1=0x18, l2=»3070UNTIL P=-7 OR TNR=O «, l3=0x18}
0x1ece…1eda Line {l1=0x0a, l2=»3080ELSE «, l3=0x0a}
0x1eda…1eef Line {l1=0x13, l2=»3090CURSOR Æ,7+POS «, l3=0x13}
0x1eef…1f1c Line {l1=0x2b, l2=»3100PRINT USING "Titelnummer :####":TNR «, l3=0x2b}
0x1f1c…1f32 Line {l1=0x14, l2=»3110EXEC HENTT(TNR) «, l3=0x14}
0x1f32…1f48 Line {l1=0x14, l2=»3120CURSOR 33,7+POS «, l3=0x14}
0x1f48…1f5b Line {l1=0x11, l2=»3130PRINT TITEL$ «, l3=0x11}
0x1f5b…1f68 Line {l1=0x0b, l2=»3140ENDIF «, l3=0x0b}
0x1f68…1f77 Line {l1=0x0d, l2=»3150ENDPROC «, l3=0x0d}
0x1f77…1f88 Line {l1=0x0f, l2=»3160PROC HOVED «, l3=0x0f}
0x1f88…1f9a Line {l1=0x10, l2=»3170SIDE=SIDE+W «, l3=0x10}
0x1f9a…1fbb Line {l1=0x1f, l2=»3180IF LIE=47 AND SIDE>W THEN «, l3=0x1f}
0x1fbb…1fcf Line {l1=0x12, l2=»3190FOR XI=W TO B «, l3=0x12}
0x1fcf…1fdf Line {l1=0x0e, l2=»3200PRINT " " «, l3=0x0e}
0x1fdf…1fed Line {l1=0x0c, l2=»3210NEXT XI «, l3=0x0c}
0x1fed…1ffa Line {l1=0x0b, l2=»3220ENDIF «, l3=0x0b}
0x1ffa…200a Line {l1=0x0e, l2=»3230PRINT " " «, l3=0x0e}
0x200a…2049 Line {l1=0x3d, l2=»3240PRINT CHR(14);"KONTROLLISTE";CHR(15);TAB(43);"SIDE";SIDE «, l3=0x3d}
0x2049…2059 Line {l1=0x0e, l2=»3250PRINT " " «, l3=0x0e}
0x2059…2076 Line {l1=0x1b, l2=»3260PRINT "Med.nr Navn" «, l3=0x1b}
0x2076…2096 Line {l1=0x1e, l2=»3270PRINT "Kundenr Adresse" «, l3=0x1e}
0x2096…20b8 Line {l1=0x20, l2=»3280PRINT "Saldo Postnr By" «, l3=0x20}
0x20b8…20c8 Line {l1=0x0e, l2=»3290PRINT " " «, l3=0x0e}
0x20c8…20d4 Line {l1=0x0a, l2=»3300LIE=7 «, l3=0x0a}
0x20d4…20e3 Line {l1=0x0d, l2=»3310ENDPROC «, l3=0x0d}
0x20e3…20f5 Line {l1=0x10, l2=»3320PROC AHOVED «, l3=0x10}
0x20f5…2107 Line {l1=0x10, l2=»3330SIDE=SIDE+W «, l3=0x10}
0x2107…211d Line {l1=0x14, l2=»3340IF LIE=49 THEN «, l3=0x14}
0x211d…212d Line {l1=0x0e, l2=»3350PRINT " " «, l3=0x0e}
0x212d…213d Line {l1=0x0e, l2=»3360PRINT " " «, l3=0x0e}
0x213d…214a Line {l1=0x0b, l2=»3370ENDIF «, l3=0x0b}
0x214a…215a Line {l1=0x0e, l2=»3380PRINT " " «, l3=0x0e}
0x215a…218b Line {l1=0x2f, l2=»3390PRINT CHR(14);"AFKRYDSNINGSLISTE";CHR(15); «, l3=0x2f}
0x218b…21b4 Line {l1=0x27, l2=»3400IF BKLUB>0 THEN PRINT BNV$(BKLUB); «, l3=0x27}
0x21b4…21d5 Line {l1=0x1f, l2=»3410PRINT TAB(55);"SIDE ";SIDE «, l3=0x1f}
0x21d5…21e5 Line {l1=0x0e, l2=»3420PRINT " " «, l3=0x0e}
0x21e5…2204 Line {l1=0x1d, l2=»3430PRINT " Med.nr Navn" «, l3=0x1d}
0x2204…2226 Line {l1=0x20, l2=»3440PRINT " Kundenr Adresse" «, l3=0x20}
0x2226…224a Line {l1=0x22, l2=»3450PRINT " Saldo Postnr By" «, l3=0x22}
0x224a…225f Line {l1=0x13, l2=»3460PRINT STJERNE$ «, l3=0x13}
0x225f…226b Line {l1=0x0a, l2=»3470LIE=7 «, l3=0x0a}
0x226b…227a Line {l1=0x0d, l2=»3480ENDPROC «, l3=0x0d}
0x227a…228b Line {l1=0x0f, l2=»3490PROC SKRIV «, l3=0x0f}
0x228b…22b4 Line {l1=0x27, l2=»3500IF LIE=O OR LIE=47 THEN EXEC HOVED «, l3=0x27}
0x22b4…22c0 Line {l1=0x0a, l2=»3510TAL=W «, l3=0x0a}
0x22c0…22e2 Line {l1=0x20, l2=»3520PRINT USING "#######":KONT; «, l3=0x20}
0x22e2…2306 Line {l1=0x22, l2=»3530PRINT TAB(11);DEBNV$;TAB(35); «, l3=0x22}
0x2306…2329 Line {l1=0x21, l2=»3540PRINT USING "####:":TN(TAL); «, l3=0x21}
0x2329…234b Line {l1=0x20, l2=»3550PRINT TITEL1$(TAL);TAB(57); «, l3=0x20}
0x234b…2370 Line {l1=0x23, l2=»3560PRINT USING "####:":TN(W+TAL); «, l3=0x23}
0x2370…238b Line {l1=0x19, l2=»3570PRINT TITEL1$(W+TAL) «, l3=0x19}
0x238b…239b Line {l1=0x0e, l2=»3580TAL=TAL+Æ «, l3=0x0e}
0x239b…23be Line {l1=0x21, l2=»3590PRINT USING "#######":DEBNR; «, l3=0x21}
0x23be…23e1 Line {l1=0x21, l2=»3600PRINT TAB(11);GADE$;TAB(35); «, l3=0x21}
0x23e1…2404 Line {l1=0x21, l2=»3610PRINT USING "####:":TN(TAL); «, l3=0x21}
0x2404…2426 Line {l1=0x20, l2=»3620PRINT TITEL1$(TAL);TAB(57); «, l3=0x20}
0x2426…244b Line {l1=0x23, l2=»3630PRINT USING "####:":TN(W+TAL); «, l3=0x23}
0x244b…2466 Line {l1=0x19, l2=»3640PRINT TITEL1$(W+TAL) «, l3=0x19}
0x2466…2476 Line {l1=0x0e, l2=»3650TAL=TAL+Æ «, l3=0x0e}
0x2476…2490 Line {l1=0x18, l2=»3660IF KTAL=DEBGR THEN «, l3=0x18}
0x2490…24b4 Line {l1=0x22, l2=»3670EXEC CA(O,DSL3$,DSL4$,BELØB$) «, l3=0x22}
0x24b4…24d6 Line {l1=0x20, l2=»3680EXEC CA(B,BELØB$,TAH$,TAH$) «, l3=0x20}
0x24d6…24ea Line {l1=0x12, l2=»3690IF SI=Æ THEN «, l3=0x12}
0x24ea…250b Line {l1=0x1f, l2=»3700EXEC TUD(BELØB$,TAL4$,W,W) «, l3=0x1f}
0x250b…2525 Line {l1=0x18, l2=»3710PRINT TAB(W);TAL4$; «, l3=0x18}
0x2525…2532 Line {l1=0x0b, l2=»3720ENDIF «, l3=0x0b}
0x2532…253f Line {l1=0x0b, l2=»3730ENDIF «, l3=0x0b}
0x253f…2554 Line {l1=0x13, l2=»3740PRINT TAB(10); «, l3=0x13}
0x2554…2580 Line {l1=0x2a, l2=»3750PRINT USING "###### ":DPOSTNR;TAB(F); «, l3=0x2a}
0x2580…2599 Line {l1=0x17, l2=»3760PRINT BY$;TAB(35); «, l3=0x17}
0x2599…25bc Line {l1=0x21, l2=»3770PRINT USING "####:":TN(TAL); «, l3=0x21}
0x25bc…25de Line {l1=0x20, l2=»3780PRINT TITEL1$(TAL);TAB(57); «, l3=0x20}
0x25de…2603 Line {l1=0x23, l2=»3790PRINT USING "####:":TN(W+TAL); «, l3=0x23}
0x2603…261e Line {l1=0x19, l2=»3800PRINT TITEL1$(W+TAL) «, l3=0x19}
0x261e…2632 Line {l1=0x12, l2=»3810IF I3>D THEN «, l3=0x12}
0x2632…2642 Line {l1=0x0e, l2=»3820TAL=TAL+Æ «, l3=0x0e}
0x2642…2657 Line {l1=0x13, l2=»3830PRINT TAB(35); «, l3=0x13}
0x2657…2679 Line {l1=0x20, l2=»3840PRINT USING "####":TN(TAL); «, l3=0x20}
0x2679…269b Line {l1=0x20, l2=»3850PRINT TITEL1$(TAL);TAB(57); «, l3=0x20}
0x269b…26bf Line {l1=0x22, l2=»3860PRINT USING "####":TN(W+TAL); «, l3=0x22}
0x26bf…26da Line {l1=0x19, l2=»3870PRINT TITEL1$(W+TAL) «, l3=0x19}
0x26da…26e6 Line {l1=0x0a, l2=»3880ELSE «, l3=0x0a}
0x26e6…26f6 Line {l1=0x0e, l2=»3890PRINT " " «, l3=0x0e}
0x26f6…2703 Line {l1=0x0b, l2=»3900ENDIF «, l3=0x0b}
0x2703…2713 Line {l1=0x0e, l2=»3910PRINT " " «, l3=0x0e}
0x2713…2723 Line {l1=0x0e, l2=»3920LIE=LIE+C «, l3=0x0e}
0x2723…2732 Line {l1=0x0d, l2=»3930ENDPROC «, l3=0x0d}
0x2732…2744 Line {l1=0x10, l2=»3940PROC ASKRIV «, l3=0x10}
0x2744…2760 Line {l1=0x1a, l2=»3950PRINT "*";TAB(78);"*" «, l3=0x1a}
0x2760…2783 Line {l1=0x21, l2=»3960PRINT USING "* #######":MNR; «, l3=0x21}
0x2783…27c8 Line {l1=0x43, l2=»3970PRINT TAB(13);DEBNV$;TAB(35);" * * * * *"; «, l3=0x43}
0x27c8…27e5 Line {l1=0x1b, l2=»3980PRINT " * *" «, l3=0x1b}
0x27e5…27f9 Line {l1=0x12, l2=»3990IF I8=O THEN «, l3=0x12}
0x27f9…281e Line {l1=0x23, l2=»4000PRINT USING "* #######":DEBNR; «, l3=0x23}
0x281e…2862 Line {l1=0x42, l2=»4010PRINT TAB(13);GADE$;TAB(35);" * * * * *"; «, l3=0x42}
0x2862…287f Line {l1=0x1b, l2=»4020PRINT " * *" «, l3=0x1b}
0x287f…2890 Line {l1=0x0f, l2=»4030PRINT "*"; «, l3=0x0f}
0x2890…28aa Line {l1=0x18, l2=»4040IF KTAL=DEBGR THEN «, l3=0x18}
0x28aa…28ce Line {l1=0x22, l2=»4050EXEC CA(O,DSL3$,DSL4$,BELØB$) «, l3=0x22}
0x28ce…28f0 Line {l1=0x20, l2=»4060EXEC CA(B,BELØB$,TAH$,TAH$) «, l3=0x20}
0x28f0…2904 Line {l1=0x12, l2=»4070IF SI=Æ THEN «, l3=0x12}
0x2904…2925 Line {l1=0x1f, l2=»4080EXEC TUD(BELØB$,TAL4$,W,W) «, l3=0x1f}
0x2925…293f Line {l1=0x18, l2=»4090PRINT TAB(Ø);TAL4$; «, l3=0x18}
0x293f…294c Line {l1=0x0b, l2=»4100ENDIF «, l3=0x0b}
0x294c…2959 Line {l1=0x0b, l2=»4110ENDIF «, l3=0x0b}
0x2959…296e Line {l1=0x13, l2=»4120PRINT TAB(13); «, l3=0x13}
0x296e…2992 Line {l1=0x22, l2=»4130PRINT USING "######":DPOSTNR; «, l3=0x22}
0x2992…29e1 Line {l1=0x4d, l2=»4140PRINT TAB(20);BY$;TAB(35);" * * * * * * *" «, l3=0x4d}
0x29e1…29fd Line {l1=0x1a, l2=»4150PRINT "*";TAB(78);"*" «, l3=0x1a}
0x29fd…2a09 Line {l1=0x0a, l2=»4160ELSE «, l3=0x0a}
0x2a09…2a25 Line {l1=0x1a, l2=»4170PRINT "*";TAB(78);"*" «, l3=0x1a}
0x2a25…2a41 Line {l1=0x1a, l2=»4180PRINT "*";TAB(78);"*" «, l3=0x1a}
0x2a41…2a5d Line {l1=0x1a, l2=»4190PRINT "*";TAB(78);"*" «, l3=0x1a}
0x2a5d…2a6a Line {l1=0x0b, l2=»4200ENDIF «, l3=0x0b}
0x2a6a…2a7f Line {l1=0x13, l2=»4210PRINT STJERNE$ «, l3=0x13}
0x2a7f…2a8f Line {l1=0x0e, l2=»4220LIE=LIE+D «, l3=0x0e}
0x2a8f…2a9e Line {l1=0x0d, l2=»4230ENDPROC «, l3=0x0d}
0x2a9e…2ab4 Line {l1=0x14, l2=»4240PROC OVERSKRIFT «, l3=0x14}
0x2ab4…2ac6 Line {l1=0x10, l2=»4250CURSOR 45,W «, l3=0x10}
0x2ac6…2ada Line {l1=0x12, l2=»4260CASE TYPE OF «, l3=0x12}
0x2ada…2ae7 Line {l1=0x0b, l2=»4270WHEN W «, l3=0x0b}
0x2ae7…2b02 Line {l1=0x19, l2=»4280PRINT "Registrering" «, l3=0x19}
0x2b02…2b0f Line {l1=0x0b, l2=»4290WHEN Ø «, l3=0x0b}
0x2b0f…2b28 Line {l1=0x17, l2=»4300PRINT "Tilføjelse" «, l3=0x17}
0x2b28…2b35 Line {l1=0x0b, l2=»4310WHEN Æ «, l3=0x0b}
0x2b35…2b4c Line {l1=0x15, l2=»4320PRINT "Sletning" «, l3=0x15}
0x2b4c…2b5b Line {l1=0x0d, l2=»4330ENDCASE «, l3=0x0d}
0x2b5b…2b6a Line {l1=0x0d, l2=»4340ENDPROC «, l3=0x0d}
0x2b6a…2b7d Line {l1=0x11, l2=»4350PROC NULSTIL «, l3=0x11}
0x2b7d…2b90 Line {l1=0x11, l2=»4360FOR I=W TO E «, l3=0x11}
0x2b90…2bb3 Line {l1=0x21, l2=»4370TN(I)=O;TITEL1$(I)=BK$(W:18) «, l3=0x21}
0x2bb3…2bc0 Line {l1=0x0b, l2=»4380NEXT I «, l3=0x0b}
0x2bc0…2bcf Line {l1=0x0d, l2=»4390ENDPROC «, l3=0x0d}
0x2bcf…2beb Line {l1=0x1a, l2=»4400K6$="P641220:SYSTEM1" «, l3=0x1a}
0x2beb…2bfc Line {l1=0x0f, l2=»4410OPEN K6$,R «, l3=0x0f}
0x2bfc…2c14 Line {l1=0x16, l2=»4420EXEC FE(87,W,K6$) «, l3=0x16}
0x2c14…2c33 Line {l1=0x1d, l2=»4430GET K6$,W:FANTAL,MDANTAL «, l3=0x1d}
0x2c33…2c4b Line {l1=0x16, l2=»4440EXEC FE(Z,50,K6$) «, l3=0x16}
0x2c4b…2c72 Line {l1=0x25, l2=»4450GET K6$,E:VSNR,DIVNR,DEFNR,DEBGR «, l3=0x25}
0x2c72…2c8a Line {l1=0x16, l2=»4460EXEC FE(Z,53,K6$) «, l3=0x16}
0x2c8a…2c9f Line {l1=0x13, l2=»4470GET K6$,12:K7$ «, l3=0x13}
0x2c9f…2cb7 Line {l1=0x16, l2=»4480EXEC FE(Z,75,K6$) «, l3=0x16}
0x2cb7…2ccd Line {l1=0x14, l2=»4490GET K6$,16:K12$ «, l3=0x14}
0x2ccd…2ce5 Line {l1=0x16, l2=»4500EXEC FE(Z,76,K6$) «, l3=0x16}
0x2ce5…2cf5 Line {l1=0x0e, l2=»4510CLOSE K6$ «, l3=0x0e}
0x2cf5…2d0d Line {l1=0x16, l2=»4520EXEC FE(Z,51,K6$) «, l3=0x16}
0x2d0d…2d29 Line {l1=0x1a, l2=»4530K1$="P641220:SYSTEM3" «, l3=0x1a}
0x2d29…2d3a Line {l1=0x0f, l2=»4540OPEN K1$,R «, l3=0x0f}
0x2d3a…2d51 Line {l1=0x15, l2=»4550EXEC FE(Z,W,K1$) «, l3=0x15}
0x2d51…2d79 Line {l1=0x26, l2=»4560GET K1$,W:MLANTAL,MAANTAL,MTANTAL «, l3=0x26}
0x2d79…2d90 Line {l1=0x15, l2=»4570EXEC FE(Z,Æ,K1$) «, l3=0x15}
0x2d90…2da3 Line {l1=0x11, l2=»4580GET K1$,D:N$ «, l3=0x11}
0x2da3…2dba Line {l1=0x15, l2=»4590EXEC FE(Z,Ø,K1$) «, l3=0x15}
0x2dba…2dce Line {l1=0x12, l2=»4600GET K1$,7:K2$ «, l3=0x12}
0x2dce…2de5 Line {l1=0x15, l2=»4610EXEC FE(Z,B,K1$) «, l3=0x15}
0x2de5…2df9 Line {l1=0x12, l2=»4620GET K1$,E:K8$ «, l3=0x12}
0x2df9…2e11 Line {l1=0x16, l2=»4630EXEC FE(Z,77,K1$) «, l3=0x16}
0x2e11…2e25 Line {l1=0x12, l2=»4640GET K1$,Z:K3$ «, l3=0x12}
0x2e25…2e3c Line {l1=0x15, l2=»4650EXEC FE(Z,C,K1$) «, l3=0x15}
0x2e3c…2e51 Line {l1=0x13, l2=»4660GET K1$,10:K5$ «, l3=0x13}
0x2e51…2e69 Line {l1=0x16, l2=»4670EXEC FE(Z,78,K1$) «, l3=0x16}
0x2e69…2e7f Line {l1=0x14, l2=»4680GET K1$,11:K11$ «, l3=0x14}
0x2e7f…2e97 Line {l1=0x16, l2=»4690EXEC FE(79,Z,K1$) «, l3=0x16}
0x2e97…2ead Line {l1=0x14, l2=»4700GET K1$,18:K10$ «, l3=0x14}
0x2ead…2ec5 Line {l1=0x16, l2=»4710EXEC FE(Z,80,K1$) «, l3=0x16}
0x2ec5…2eda Line {l1=0x13, l2=»4720GET K1$,19:K4$ «, l3=0x13}
0x2eda…2ef1 Line {l1=0x15, l2=»4730EXEC FE(Z,D,K1$) «, l3=0x15}
0x2ef1…2f01 Line {l1=0x0e, l2=»4740CLOSE K1$ «, l3=0x0e}
0x2f01…2f18 Line {l1=0x15, l2=»4750EXEC FE(Z,7,K1$) «, l3=0x15}
0x2f18…2f60 Line {l1=0x46, l2=»4760K2$=N$+K2$;K3$=N$+K3$;K4$=N$+K4$;K5$=N$+K5$;K7$=N$+K7$;K8$=N$+K8$ «, l3=0x46}
0x2f60…2f8d Line {l1=0x2b, l2=»4770K12$=N$+K12$;K10$=N$+K10$;K11$=N$+K11$ «, l3=0x2b}
0x2f8d…2fcf Line {l1=0x40, l2=»4780DIM MTAB(MLANTAL,Æ),DTAB(MDANTAL DIV B),ATAB(MAANTAL DIV B) «, l3=0x40}
0x2fcf…2fef Line {l1=0x1e, l2=»4790DIM DTAB1(B,Æ),ATAB1(B,Æ) «, l3=0x1e}
0x2fef…3000 Line {l1=0x0f, l2=»4800OPEN K4$,R «, l3=0x0f}
0x3000…3017 Line {l1=0x15, l2=»4810EXEC FE(Z,E,K4$) «, l3=0x15}
0x3017…3063 Line {l1=0x4a, l2=»4820GET K4$,C:MOMS$,T1(W),T1(Æ),T1(Ø),T1(B),T1(C),T1(D),T1(7),T1(E),T1(Z) «, l3=0x4a}
0x3063…307a Line {l1=0x15, l2=»4830EXEC FE(Z,Z,K4$) «, l3=0x15}
0x307a…30c7 Line {l1=0x4b, l2=»4840GET K4$,D:T2(W),T2(Æ),T2(Ø),T2(B),T2(C),T2(D),T2(7),T2(E),T2(Å),T2(10) «, l3=0x4b}
0x30c7…30df Line {l1=0x16, l2=»4850EXEC FE(77,7,K4$) «, l3=0x16}
0x30df…30f4 Line {l1=0x13, l2=»4860FOR II=1 TO 15 «, l3=0x13}
0x30f4…3125 Line {l1=0x2f, l2=»4870GET K4$,18+II:BNV$(II),FRANR(II),TILNR(II) «, l3=0x2f}
0x3125…313e Line {l1=0x17, l2=»4880EXEC FE(88,II,K4$) «, l3=0x17}
0x313e…314c Line {l1=0x0c, l2=»4890NEXT II «, l3=0x0c}
0x314c…315c Line {l1=0x0e, l2=»4900CLOSE K4$ «, l3=0x0e}
0x315c…3174 Line {l1=0x16, l2=»4910EXEC FE(Z,10,K4$) «, l3=0x16}
0x3174…3186 Line {l1=0x10, l2=»4920OPEN K10$,W «, l3=0x10}
0x3186…319f Line {l1=0x17, l2=»4930EXEC FE(Z,83,K10$) «, l3=0x17}
0x319f…31c4 Line {l1=0x23, l2=»4940EXEC INDTAB1(DTAB,MDANTAL,K7$) «, l3=0x23}
0x31c4…31e9 Line {l1=0x23, l2=»4950EXEC INDTAB1(ATAB,MAANTAL,K8$) «, l3=0x23}
0x31e9…320d Line {l1=0x22, l2=»4960EXEC INDTAB(MTAB,MLANTAL,K2$) «, l3=0x22}
0x320d…3250 Line {l1=0x41, l2=»4970BK$=" ";BK$=BK$+BK$+" " «, l3=0x41}
0x3250…329f Line {l1=0x4d, l2=»4980TAH$="0+";MEDL=T1(7);ANPOST=T1(E);STATUS=O;TNR=W;SPOST=T1(Z);YX=O;TEK1=O «, l3=0x4d}
0x329f…32d9 Line {l1=0x38, l2=»4990STJERNE$="****************************************" «, l3=0x38}
0x32d9…32fa Line {l1=0x1f, l2=»5000STJERNE$=STJERNE$+STJERNE$ «, l3=0x1f}
0x32fa…3342 Line {l1=0x46, l2=»5010STREG$="-----------------------------------";STREG$=STREG$+STREG$ «, l3=0x46}
0x3342…3352 Line {l1=0x0e, l2=»5020REG=T2(W) «, l3=0x0e}
0x3352…3360 Line {l1=0x0c, l2=»5030REPEAT «, l3=0x0c}
0x3360…336f Line {l1=0x0d, l2=»5040OUTPUT T «, l3=0x0d}
0x336f…337c Line {l1=0x0b, l2=»5050CLEAR «, l3=0x0b}
0x337c…338e Line {l1=0x10, l2=»5060CURSOR 21,W «, l3=0x10}
0x338e…33a9 Line {l1=0x19, l2=»5070PRINT "Registrering" «, l3=0x19}
0x33a9…33bb Line {l1=0x10, l2=»5080CURSOR 22,Ø «, l3=0x10}
0x33bb…33d2 Line {l1=0x15, l2=»5090PRINT "0:Færdig" «, l3=0x15}
0x33d2…33e4 Line {l1=0x10, l2=»5100CURSOR 22,C «, l3=0x10}
0x33e4…3401 Line {l1=0x1b, l2=»5110PRINT "1:Registrering" «, l3=0x1b}
0x3401…3413 Line {l1=0x10, l2=»5120CURSOR 22,7 «, l3=0x10}
0x3413…342c Line {l1=0x17, l2=»5130PRINT "2:Sletning" «, l3=0x17}
0x342c…343e Line {l1=0x10, l2=»5140CURSOR 22,Z «, l3=0x10}
0x343e…3459 Line {l1=0x19, l2=»5150PRINT "3:Tilføjelse" «, l3=0x19}
0x3459…346c Line {l1=0x11, l2=»5160CURSOR 22,11 «, l3=0x11}
0x346c…3489 Line {l1=0x1b, l2=»5170PRINT "4:Kontrolliste" «, l3=0x1b}
0x3489…349c Line {l1=0x11, l2=»5180CURSOR 22,13 «, l3=0x11}
0x349c…34be Line {l1=0x20, l2=»5190PRINT "5:Afkrydsningsliste" «, l3=0x20}
0x34be…34cc Line {l1=0x0c, l2=»5200REPEAT «, l3=0x0c}
0x34cc…34df Line {l1=0x11, l2=»5210CURSOR 24,15 «, l3=0x11}
0x34df…3501 Line {l1=0x20, l2=»5220PRINT "Vælg type (0-5)" «, l3=0x20}
0x3501…3514 Line {l1=0x11, l2=»5230CURSOR 34,15 «, l3=0x11}
0x3514…3524 Line {l1=0x0e, l2=»5240INPUT TY$ «, l3=0x0e}
0x3524…3538 Line {l1=0x12, l2=»5250EXEC NRT(TY$) «, l3=0x12}
0x3538…3551 Line {l1=0x17, l2=»5260UNTIL P>-W AND P<D «, l3=0x17}
0x3551…3573 Line {l1=0x20, l2=»5270TYPE=P;LIE=O;SIDE=O;TEST5=O «, l3=0x20}
0x3573…358e Line {l1=0x19, l2=»5280IF TYPE=O THEN EXIT «, l3=0x19}
0x358e…359c Line {l1=0x0c, l2=»5290REPEAT «, l3=0x0c}
0x359c…35ae Line {l1=0x10, l2=»5300CURSOR 24,F «, l3=0x10}
0x35ae…35db Line {l1=0x2b, l2=»5310PRINT "Indtast bogklubnr. (0:15)" «, l3=0x2b}
0x35db…35ed Line {l1=0x10, l2=»5320CURSOR 43,F «, l3=0x10}
0x35ed…35fd Line {l1=0x0e, l2=»5330INPUT TY$ «, l3=0x0e}
0x35fd…3611 Line {l1=0x12, l2=»5340EXEC NRT(TY$) «, l3=0x12}
0x3611…362b Line {l1=0x18, l2=»5350UNTIL P>-1 AND P<16 «, l3=0x18}
0x362b…3642 Line {l1=0x15, l2=»5360IF BKLUB>0 THEN «, l3=0x15}
0x3642…3673 Line {l1=0x2f, l2=»5370EXEC FIND(MTAB,MLANTAL,FRANR(BKLUB),MPIL3) «, l3=0x2f}
0x3673…36a3 Line {l1=0x2e, l2=»5380IF MTAB(MPIL3,W)<BKLUB THEN MPIL3=MPIL3+W «, l3=0x2e}
0x36a3…36b3 Line {l1=0x0e, l2=»5390FRA=MPIL3 «, l3=0x0e}
0x36b3…36e4 Line {l1=0x2f, l2=»5400EXEC FIND(MTAB,MLANTAL,TILNR(BKLUB),MPIL3) «, l3=0x2f}
0x36e4…3714 Line {l1=0x2e, l2=»5410IF MTAB(MPIL3,W)>BKLUB THEN MPIL3=MPIL3-W «, l3=0x2e}
0x3714…3724 Line {l1=0x0e, l2=»5420TIL=MPIL3 «, l3=0x0e}
0x3724…3730 Line {l1=0x0a, l2=»5430ELSE «, l3=0x0a}
0x3730…3747 Line {l1=0x15, l2=»5440IF TYPE<>B THEN «, l3=0x15}
0x3747…3755 Line {l1=0x0c, l2=»5450REPEAT «, l3=0x0c}
0x3755…377a Line {l1=0x23, l2=»5460IF TYPE=W AND REG=W THEN EXIT «, l3=0x23}
0x377a…3788 Line {l1=0x0c, l2=»5470REPEAT «, l3=0x0c}
0x3788…379b Line {l1=0x11, l2=»5480CURSOR 22,19 «, l3=0x11}
0x379b…37cb Line {l1=0x2e, l2=»5490PRINT "Fra medlemsnummer: (0:Alle)" «, l3=0x2e}
0x37cb…37de Line {l1=0x11, l2=»5500CURSOR 41,19 «, l3=0x11}
0x37de…37f3 Line {l1=0x13, l2=»5510INPUT " ",KNR$ «, l3=0x13}
0x37f3…3808 Line {l1=0x13, l2=»5520EXEC NRT(KNR$) «, l3=0x13}
0x3808…3835 Line {l1=0x2b, l2=»5530UNTIL P=O OR (KTAL<>DEBGR AND TEST2=O) «, l3=0x2b}
0x3835…3842 Line {l1=0x0b, l2=»5540KONT=P «, l3=0x0b}
0x3842…386c Line {l1=0x28, l2=»5550IF P=O AND (TYPE=W OR TYPE=C) THEN «, l3=0x28}
0x386c…3881 Line {l1=0x13, l2=»5560FRA=W;TIL=MEDL «, l3=0x13}
0x3881…388d Line {l1=0x0a, l2=»5570ELSE «, l3=0x0a}
0x388d…389a Line {l1=0x0b, l2=»5580KONT=P «, l3=0x0b}
0x389a…38c0 Line {l1=0x24, l2=»5590EXEC FIND(MTAB,MLANTAL,P,MPIL3) «, l3=0x24}
0x38c0…38ef Line {l1=0x2d, l2=»5600IF MTAB(MPIL3,W)<KONT THEN MPIL3=MPIL3+W «, l3=0x2d}
0x38ef…38ff Line {l1=0x0e, l2=»5610FRA=MPIL3 «, l3=0x0e}
0x38ff…390c Line {l1=0x0b, l2=»5620ENDIF «, l3=0x0b}
0x390c…3922 Line {l1=0x14, l2=»5630UNTIL FRA<=MEDL «, l3=0x14}
0x3922…3948 Line {l1=0x24, l2=»5640IF NOT (TYPE=W AND REG=W) THEN «, l3=0x24}
0x3948…3968 Line {l1=0x1e, l2=»5650IF TYPE=W OR TYPE=C THEN «, l3=0x1e}
0x3968…397b Line {l1=0x11, l2=»5660IF P>O THEN «, l3=0x11}
0x397b…3989 Line {l1=0x0c, l2=»5670REPEAT «, l3=0x0c}
0x3989…399c Line {l1=0x11, l2=»5680CURSOR 22,21 «, l3=0x11}
0x399c…39c3 Line {l1=0x25, l2=»5690INPUT "Til medlemsnummer: ",KNR$ «, l3=0x25}
0x39c3…39d8 Line {l1=0x13, l2=»5700EXEC NRT(KNR$) «, l3=0x13}
0x39d8…3a0a Line {l1=0x30, l2=»5710UNTIL (P=>KONT AND TEST2=O AND KTAL<>DEBGR) «, l3=0x30}
0x3a0a…3a30 Line {l1=0x24, l2=»5720EXEC FIND(MTAB,MLANTAL,P,MPIL3) «, l3=0x24}
0x3a30…3a5c Line {l1=0x2a, l2=»5730IF MTAB(MPIL3,W)>P THEN MPIL3=MPIL3-W «, l3=0x2a}
0x3a5c…3a6c Line {l1=0x0e, l2=»5740TIL=MPIL3 «, l3=0x0e}
0x3a6c…3a79 Line {l1=0x0b, l2=»5750ENDIF «, l3=0x0b}
0x3a79…3a85 Line {l1=0x0a, l2=»5760ELSE «, l3=0x0a}
0x3a85…3a9c Line {l1=0x15, l2=»5770TIL=FRA;TEKST=-7 «, l3=0x15}
0x3a9c…3aa9 Line {l1=0x0b, l2=»5780ENDIF «, l3=0x0b}
0x3aa9…3ab6 Line {l1=0x0b, l2=»5790ENDIF «, l3=0x0b}
0x3ab6…3ac3 Line {l1=0x0b, l2=»5800ENDIF «, l3=0x0b}
0x3ac3…3ad0 Line {l1=0x0b, l2=»5810ENDIF «, l3=0x0b}
0x3ad0…3ae7 Line {l1=0x15, l2=»5820IF TYPE<>C THEN «, l3=0x15}
0x3ae7…3af5 Line {l1=0x0c, l2=»5830REPEAT «, l3=0x0c}
0x3af5…3b08 Line {l1=0x11, l2=»5840CURSOR 22,23 «, l3=0x11}
0x3b08…3b3c Line {l1=0x32, l2=»5850INPUT "Ønskes der udskrevet tekst, (J/N) ",A$ «, l3=0x32}
0x3b3c…3b4f Line {l1=0x11, l2=»5860EXEC NRT(A$) «, l3=0x11}
0x3b4f…3b68 Line {l1=0x17, l2=»5870UNTIL P=-7 OR P=-E «, l3=0x17}
0x3b68…3b76 Line {l1=0x0c, l2=»5880TEKST=P «, l3=0x0c}
0x3b76…3b83 Line {l1=0x0b, l2=»5890ENDIF «, l3=0x0b}
0x3b83…3ba9 Line {l1=0x24, l2=»5900IF NOT (TYPE=W AND REG=W) THEN «, l3=0x24}
0x3ba9…3bbd Line {l1=0x12, l2=»5910CASE TYPE OF «, l3=0x12}
0x3bbd…3bcc Line {l1=0x0d, l2=»5920WHEN W,B «, l3=0x0d}
0x3bcc…3bda Line {l1=0x0c, l2=»5930TEST5=O «, l3=0x0c}
0x3bda…3bf0 Line {l1=0x14, l2=»5940IF TYPE=W THEN «, l3=0x14}
0x3bf0…3c0b Line {l1=0x19, l2=»5950FOR MPIL3=FRA TO TIL «, l3=0x19}
0x3c0b…3c30 Line {l1=0x23, l2=»5960IF MTAB(MPIL3,W)<1000000 THEN «, l3=0x23}
0x3c30…3c3d Line {l1=0x0b, l2=»5970CLEAR «, l3=0x0b}
0x3c3d…3c52 Line {l1=0x13, l2=»5980EXEC HENTMPOST «, l3=0x13}
0x3c52…3c65 Line {l1=0x11, l2=»5990EXEC UDSKRIV «, l3=0x11}
0x3c65…3c7d Line {l1=0x16, l2=»6000KONTO=AFHNR;POS=O «, l3=0x16}
0x3c7d…3c90 Line {l1=0x11, l2=»6010EXEC INDTAST «, l3=0x11}
0x3c90…3c9d Line {l1=0x0b, l2=»6020ENDIF «, l3=0x0b}
0x3c9d…3cae Line {l1=0x0f, l2=»6030NEXT MPIL3 «, l3=0x0f}
0x3cae…3cc7 Line {l1=0x17, l2=»6040SPOST=ANPOST;REG=W «, l3=0x17}
0x3cc7…3cd5 Line {l1=0x0c, l2=»6050REPEAT «, l3=0x0c}
0x3cd5…3ce2 Line {l1=0x0b, l2=»6060CLEAR «, l3=0x0b}
0x3ce2…3cf5 Line {l1=0x11, l2=»6070CURSOR 20,15 «, l3=0x11}
0x3cf5…3d2c Line {l1=0x35, l2=»6080INPUT "Ønskes udskrevet kontrolliste, (J/N) ",A$ «, l3=0x35}
0x3d2c…3d3f Line {l1=0x11, l2=»6090EXEC NRT(A$) «, l3=0x11}
0x3d3f…3d58 Line {l1=0x17, l2=»6100UNTIL P=-7 OR P=-E «, l3=0x17}
0x3d58…3d73 Line {l1=0x19, l2=»6110IF P=-7 THEN TEST5=W «, l3=0x19}
0x3d73…3d80 Line {l1=0x0b, l2=»6120ENDIF «, l3=0x0b}
0x3d80…3da1 Line {l1=0x1f, l2=»6130IF TYPE=B OR TEST5=W THEN «, l3=0x1f}
0x3da1…3dae Line {l1=0x0b, l2=»6140CLEAR «, l3=0x0b}
0x3dae…3dbc Line {l1=0x0c, l2=»6150REPEAT «, l3=0x0c}
0x3dbc…3dcf Line {l1=0x11, l2=»6160CURSOR 21,15 «, l3=0x11}
0x3dcf…3dfc Line {l1=0x2b, l2=»6170INPUT "Monter papir og tast RETURN",A$ «, l3=0x2b}
0x3dfc…3e0f Line {l1=0x11, l2=»6180EXEC NRT(A$) «, l3=0x11}
0x3e0f…3e20 Line {l1=0x0f, l2=»6190UNTIL P=-W «, l3=0x0f}
0x3e20…3e2f Line {l1=0x0d, l2=»6200OUTPUT P «, l3=0x0d}
0x3e2f…3e55 Line {l1=0x24, l2=»6210MNR=O;SLUTFILE=O;KONT=O;POST1=O «, l3=0x24}
0x3e55…3e68 Line {l1=0x11, l2=»6220EXEC GETPOST «, l3=0x11}
0x3e68…3e85 Line {l1=0x1b, l2=»6230WHILE NOT SLUTFILE DO «, l3=0x1b}
0x3e85…3e98 Line {l1=0x11, l2=»6240EXEC NULSTIL «, l3=0x11}
0x3e98…3eb8 Line {l1=0x1e, l2=»6250KONT=MNR;I3=O;KONTO=AFHNR «, l3=0x1e}
0x3eb8…3ed1 Line {l1=0x17, l2=»6260WHILE KONT=MNR DO «, l3=0x17}
0x3ed1…3ef0 Line {l1=0x1d, l2=»6270I3=I3+W;TN(I3)=TNR;MNR=O «, l3=0x1d}
0x3ef0…3f03 Line {l1=0x11, l2=»6280EXEC GETPOST «, l3=0x11}
0x3f03…3f13 Line {l1=0x0e, l2=»6290ENDWHILE «, l3=0x0e}
0x3f13…3f2a Line {l1=0x15, l2=»6300EXEC ARBEJDE(I3) «, l3=0x15}
0x3f2a…3f3a Line {l1=0x0e, l2=»6310ENDWHILE «, l3=0x0e}
0x3f3a…3f47 Line {l1=0x0b, l2=»6320ENDIF «, l3=0x0b}
0x3f47…3f54 Line {l1=0x0b, l2=»6330WHEN Æ «, l3=0x0b}
0x3f54…3f73 Line {l1=0x1d, l2=»6340EXEC SØG(KONT,ANPOST,YX) «, l3=0x1d}
0x3f73…3fb9 Line {l1=0x44, l2=»6350IF KONT<MNR OR YX=ANPOST+W THEN EXEC SØG2(KONT,ANPOST,SPOST,YX) «, l3=0x44}
0x3fb9…3fd8 Line {l1=0x1d, l2=»6360IF YX=SPOST+W THEN EXIT «, l3=0x1d}
0x3fd8…3fe6 Line {l1=0x0c, l2=»6370REPEAT «, l3=0x0c}
0x3fe6…3fff Line {l1=0x17, l2=»6380EXEC HENTRPOST(YX) «, l3=0x17}
0x3fff…401d Line {l1=0x1c, l2=»6390IF KONT<>MNR THEN EXIT «, l3=0x1c}
0x401d…4035 Line {l1=0x16, l2=»6400KONTO=AFHNR;POS=O «, l3=0x16}
0x4035…4048 Line {l1=0x11, l2=»6410EXEC UDSKRIV «, l3=0x11}
0x4048…405b Line {l1=0x11, l2=»6420EXEC INDTAST «, l3=0x11}
0x405b…4069 Line {l1=0x0c, l2=»6430REPEAT «, l3=0x0c}
0x4069…407b Line {l1=0x10, l2=»6440CURSOR Ø,23 «, l3=0x10}
0x407b…40ae Line {l1=0x31, l2=»6450INPUT "Ønskes denne post slettet, (J/N) ",A$ «, l3=0x31}
0x40ae…40c1 Line {l1=0x11, l2=»6460EXEC NRT(A$) «, l3=0x11}
0x40c1…40da Line {l1=0x17, l2=»6470UNTIL P=-7 OR P=-E «, l3=0x17}
0x40da…40fc Line {l1=0x20, l2=»6480IF P=-7 THEN EXEC SLETR(YX) «, l3=0x20}
0x40fc…410a Line {l1=0x0c, l2=»6490YX=YX+W «, l3=0x0c}
0x410a…4120 Line {l1=0x14, l2=»6500UNTIL KONT<>MNR «, l3=0x14}
0x4120…412d Line {l1=0x0b, l2=»6510WHEN Ø «, l3=0x0b}
0x412d…413b Line {l1=0x0c, l2=»6520REPEAT «, l3=0x0c}
0x413b…414e Line {l1=0x11, l2=»6530CURSOR 22,21 «, l3=0x11}
0x414e…417e Line {l1=0x2e, l2=»6540INPUT "Rigtig medlemsnummer, (J/N) ",A$ «, l3=0x2e}
0x417e…4191 Line {l1=0x11, l2=»6550EXEC NRT(A$) «, l3=0x11}
0x4191…41aa Line {l1=0x17, l2=»6560UNTIL P=-7 OR P=-E «, l3=0x17}
0x41aa…41be Line {l1=0x12, l2=»6570IF P=-7 THEN «, l3=0x12}
0x41be…41dd Line {l1=0x1d, l2=»6580EXEC SØG(KONT,ANPOST,YX) «, l3=0x1d}
0x41dd…4223 Line {l1=0x44, l2=»6590IF KONT<MNR OR YX=ANPOST+W THEN EXEC SØG2(KONT,ANPOST,SPOST,YX) «, l3=0x44}
0x4223…423e Line {l1=0x19, l2=»6600EXEC DSIDST(YX,KONT) «, l3=0x19}
0x423e…4255 Line {l1=0x15, l2=»6610IF TEK1<>W THEN «, l3=0x15}
0x4255…4263 Line {l1=0x0c, l2=»6620REPEAT «, l3=0x0c}
0x4263…427c Line {l1=0x17, l2=»6630EXEC HENTRPOST(YX) «, l3=0x17}
0x427c…429a Line {l1=0x1c, l2=»6640IF KONT<>MNR THEN EXIT «, l3=0x1c}
0x429a…42b5 Line {l1=0x19, l2=»6650EXEC GEMRPOST(SPOST) «, l3=0x19}
0x42b5…42ca Line {l1=0x13, l2=»6660EXEC SLETR(YX) «, l3=0x13}
0x42ca…42d8 Line {l1=0x0c, l2=»6670YX=YX+W «, l3=0x0c}
0x42d8…42ee Line {l1=0x14, l2=»6680UNTIL KONT<>MNR «, l3=0x14}
0x42ee…430a Line {l1=0x1a, l2=»6690EXEC HENTRPOST(SPOST) «, l3=0x1a}
0x430a…4316 Line {l1=0x0a, l2=»6700ELSE «, l3=0x0a}
0x4316…432b Line {l1=0x13, l2=»6710EXEC HENTMPOST «, l3=0x13}
0x432b…4338 Line {l1=0x0b, l2=»6720ENDIF «, l3=0x0b}
0x4338…4350 Line {l1=0x16, l2=»6730KONTO=AFHNR;POS=O «, l3=0x16}
0x4350…4363 Line {l1=0x11, l2=»6740EXEC UDSKRIV «, l3=0x11}
0x4363…4376 Line {l1=0x11, l2=»6750EXEC INDTAST «, l3=0x11}
0x4376…4383 Line {l1=0x0b, l2=»6760ENDIF «, l3=0x0b}
0x4383…4390 Line {l1=0x0b, l2=»6770WHEN C «, l3=0x0b}
0x4390…439d Line {l1=0x0b, l2=»6780CLEAR «, l3=0x0b}
0x439d…43ab Line {l1=0x0c, l2=»6790REPEAT «, l3=0x0c}
0x43ab…43be Line {l1=0x11, l2=»6800CURSOR 21,15 «, l3=0x11}
0x43be…43eb Line {l1=0x2b, l2=»6810INPUT "Monter papir og tast RETURN",A$ «, l3=0x2b}
0x43eb…43fe Line {l1=0x11, l2=»6820EXEC NRT(A$) «, l3=0x11}
0x43fe…440f Line {l1=0x0f, l2=»6830UNTIL P=-W «, l3=0x0f}
0x440f…441e Line {l1=0x0d, l2=»6840OUTPUT P «, l3=0x0d}
0x441e…4439 Line {l1=0x19, l2=»6850FOR MPIL3=FRA TO TIL «, l3=0x19}
0x4439…445e Line {l1=0x23, l2=»6860IF MTAB(MPIL3,W)<1000000 THEN «, l3=0x23}
0x445e…4473 Line {l1=0x13, l2=»6870EXEC HENTMPOST «, l3=0x13}
0x4473…4485 Line {l1=0x10, l2=»6880KONTO=AFHNR «, l3=0x10}
0x4485…4496 Line {l1=0x0f, l2=»6890EXEC HPOST «, l3=0x0f}
0x4496…44c0 Line {l1=0x28, l2=»6900IF LIE=O OR LIE=49 THEN EXEC AHOVED «, l3=0x28}
0x44c0…44d2 Line {l1=0x10, l2=»6910EXEC ASKRIV «, l3=0x10}
0x44d2…44df Line {l1=0x0b, l2=»6920ENDIF «, l3=0x0b}
0x44df…44f0 Line {l1=0x0f, l2=»6930NEXT MPIL3 «, l3=0x0f}
0x44f0…44ff Line {l1=0x0d, l2=»6940ENDCASE «, l3=0x0d}
0x44ff…452a Line {l1=0x29, l2=»6950IF TYPE=B OR TYPE=C OR TEST5=W THEN «, l3=0x29}
0x452a…4544 Line {l1=0x18, l2=»6960FOR KL=LIE TO LIN-W «, l3=0x18}
0x4544…4554 Line {l1=0x0e, l2=»6970PRINT " " «, l3=0x0e}
0x4554…4562 Line {l1=0x0c, l2=»6980NEXT KL «, l3=0x0c}
0x4562…456f Line {l1=0x0b, l2=»6990ENDIF «, l3=0x0b}
0x456f…457c Line {l1=0x0b, l2=»7000ENDIF «, l3=0x0b}
0x457c…458f Line {l1=0x11, l2=»7010UNTIL TYPE=O «, l3=0x11}
0x458f…45a0 Line {l1=0x0f, l2=»7020CLOSE K10$ «, l3=0x0f}
0x45a0…45b9 Line {l1=0x17, l2=»7030EXEC FE(Z,21,K10$) «, l3=0x17}
0x45b9…45ca Line {l1=0x0f, l2=»7040OPEN K4$,W «, l3=0x0f}
0x45ca…45e2 Line {l1=0x16, l2=»7050EXEC FE(Z,22,K4$) «, l3=0x16}
0x45e2…4616 Line {l1=0x32, l2=»7060T1(7)=MEDL;T1(E)=ANPOST;T1(Z)=SPOST;T2(W)=REG «, l3=0x32}
0x4616…4662 Line {l1=0x4a, l2=»7070PUT K4$,C:MOMS$,T1(W),T1(Æ),T1(Ø),T1(B),T1(C),T1(D),T1(7),T1(E),T1(Z) «, l3=0x4a}
0x4662…467a Line {l1=0x16, l2=»7080EXEC FE(Z,24,K4$) «, l3=0x16}
0x467a…46c7 Line {l1=0x4b, l2=»7090PUT K4$,D:T2(W),T2(Æ),T2(Ø),T2(B),T2(C),T2(D),T2(7),T2(E),T2(Å),T2(10) «, l3=0x4b}
0x46c7…46df Line {l1=0x16, l2=»7100EXEC FE(67,W,K4$) «, l3=0x16}
0x46df…46ef Line {l1=0x0e, l2=»7110CLOSE K4$ «, l3=0x0e}
0x46ef…4707 Line {l1=0x16, l2=»7120EXEC FE(Z,25,K4$) «, l3=0x16}
0x4707…4724 Line {l1=0x1b, l2=»7130CHAIN "P641210:STARTS" «, l3=0x1b}
0x4724…4740 00 00 32 31 30 3a 53 54 41 52 54 53 22 1b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ 210:STARTS" cccccccccccc┆
0x4740…4760 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┆
[…0x22…]
0x4ba0…4bc0 09 00 48 00 08 07 08 00 c8 00 19 00 06 00 12 00 48 00 40 00 e1 00 09 00 06 00 01 00 01 00 09 00 ┆ H H @ ┆
0x4bc0…4be0 01 00 01 00 01 00 01 00 04 00 29 00 00 00 00 00 00 00 ff 00 ff 00 2d 01 75 01 b5 01 9f 02 96 02 ┆ ) - u ┆
0x4be0…4c00 08 00 01 00 01 00 00 00 00 00 00 00 01 00 02 00 09 00 03 00 04 00 05 00 81 c4 a1 47 a2 82 01 00 ┆ G ┆
0x4c00…4c20 01 00 01 00 01 00 01 00 01 00 ca 81 d5 63 30 ca 01 00 01 00 01 00 01 00 01 00 01 00 c6 c8 c6 01 ┆ c0 ┆
0x4c20…4c40 81 c4 11 52 45 42 45 52 45 47 3a 50 32 3a 30 31 35 32 3a 49 49 00 ff 00 ff 00 ff 00 ff 00 ff 00 ┆ REBEREG:P2:0152:II ┆
0x4c40…4c60 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ┆ ┆
0x4c60…4c80 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 04 00 08 00 18 00 02 00 06 00 03 00 01 00 ff 00 0c 00 06 00 ┆ ┆
0x4c80…4ca0 e4 00 4c 00 01 00 01 00 01 00 03 00 01 00 01 00 01 00 01 00 01 00 01 00 00 00 00 00 00 00 ff 00 ┆ L ┆
0x4ca0…4cc0 ff 00 2d 01 39 01 3f 01 6f 02 23 02 03 00 01 00 00 00 00 00 00 00 00 00 01 00 d2 16 0e 01 c6 81 ┆ - 9 ? o # ┆
0x4cc0…4ce0 1c d5 c4 14 81 c4 a1 47 a2 82 01 00 9e 00 d2 1d 9c 09 62 01 cc 81 ca 81 d5 63 30 ca 01 00 d5 61 ┆ G b c0 a┆
0x4ce0…4d00 d5 61 09 d2 cc 81 c6 ca c6 c8 c6 01 81 c4 12 4c 45 56 45 52 41 4e 44 3a 50 32 3a 30 30 32 37 3a ┆ a LEVERAND:P2:0027:┆
0x4d00…4d20 49 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ┆I ┆
0x4d20…4d40 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ┆ ┆
[…0x1…]
0x4d60…4d80 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 ff 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccc┆
0x4d80…4da0 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┆
[…0xb…]