|
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: 6240 (0x1860)
Types: TextFile
Notes: Mikados_K
Names: »DUMPKUND.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »DUMPKUND.K«
PROGRAM DUMPKUND;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY(1..23) OF INTEGER;
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR;
SALDOKØB:ARRAY (1..9) OF REAL
END;
ZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
PROCSTAT=RECORD
NP,NROSTART:INTEGER
END;
NPFILE=FILE OF PROCSTAT;
VAR F:ISF;
NRPF,CF:NPFILE;
QUQ:^INTEGER;
KZ:ZONE;
FILNAVN2:STRING(20);
J,IER,I:INTEGER;
KUNDE:KPOST;
NAME:PACKED ARRAY (1..26) OF CHAR;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IICLOSE*)
(*$INEXTREC*)
(*$R+*)
(*$L+*)
PROCEDURE FF;
VAR I:INTEGER;
BEGIN
FOR I:=16 TO 48 DO WRITELN(LIST)
END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
PROCEDURE PRKUNOPL(O:INTEGER);
BEGIN
WITH KUNDE DO
BEGIN
WRITELN(LIST,NR(1)*10000.0+NR(2):5:-2);
J:=0;
REPEAT J:=J+1
UNTIL (J=4) OR (NAVN(1,J)<>' ');
IF NAVN(1,J)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(LIST,' ':6,NAME)
END
ELSE
WRITELN(LIST,' ':6,NAVN(1));
WRITELN(LIST,' ':6,NAVN(2));
WRITELN(LIST,' ':6,NAVN(3));
WRITELN(LIST,' ':6,LANDSBY);
WRITELN(LIST,' ':6,POSTNR);
WRITELN(LIST,' ':6,TLF);
WRITE(LIST,' ':6,NR(7):10,' ':10);
IF NR(3)=1 THEN WRITE(LIST,'J':10) ELSE WRITE(LIST,'N':10);
WRITELN(LIST,' ':10,NR(4)*10000.0+NR(5):10:-2);
WRITE(LIST,' ':6,NR(6):10);
WRITE(LIST,' ':10,NR(8):10,' ':10);
WRITE(LIST,NR(9):10,' ':10);
WRITELN(LIST,NR(10):10);
WRITE(LIST,' ':6,NR(17):10);
WRITE(LIST,' ':10,NR(18):10,' ':10);
IF NR(15)=1 THEN WRITE(LIST,'J':10) ELSE WRITE(LIST,'N':10);
IF NR(16)=1 THEN WRITELN(LIST,' ':10,'J':10)
ELSE WRITELN(LIST,' ':10,'N':10);
WRITE(LIST,' ':6,SALDOKØB(1)/100:10:2);
WRITE(LIST,' ':10,SALDOKØB(2)/100:10:2,' ':10);
WRITELN(LIST,SALDOKØB(3)/100:10:2);
WRITE(LIST,' ':6,SALDOKØB(4)/100:10:2);
WRITE(LIST,' ':10,SALDOKØB(5)/100:10:2,' ':10);
WRITELN(LIST,SALDOKØB(6)/100:10:2);
WRITE(LIST,' ':6,SALDOKØB(8)/100:10:2);
WRITE(LIST,' ':10,SALDOKØB(7)/100:10:2,' ':10);
WRITELN(LIST,SALDOKØB(9)/100:10:2);
WRITE(LIST,' ':6,NR(11):10,' ':10);
WRITE(LIST,NR(12):10,' ':10);
WRITELN(LIST,NR(13)*10000.0+NR(14):10:-2);
WRITE(LIST,' ':6,NR(19):10,' ':10);
WRITE(LIST,NR(20):10,' ':10);
IF NR(23)=1 THEN WRITELN(LIST,'J':10) ELSE WRITELN(LIST,'N':10);
END
END;
BEGIN
WRITELN('KUNDEDUMP');
FILNAVN2:='KUNDERG:P2:1338:I';
RESET(F,FILNAVN2);
IOPEN(KZ.H,F,LÆS);
IF IER<>0 THEN OFEJL;
FF;
WRITELN(LIST,'NUMMER');
WRITELN(LIST,'NAVN');
WRITELN(LIST,'NAVNE-UDV');
WRITELN(LIST,'ADRESSE');
WRITELN(LIST,'LANDSBY');
WRITELN(LIST,'POSTNR');
WRITELN(LIST,'TLF');
WRITELN(LIST,'LAND',' ':16,'BETADR',' ':14,'KÆDENR');
WRITELN(LIST,'RESTORDRE',' ':11,'BETALING',' ':12,'LEVERING',' ':12,'RENTE');
WRITELN(LIST,'RABAT',' ':15,'EXPORT',' ':14,
'EMBALLAGE',' ':11,'BRÆKAGE');
WRITELN(LIST,'SALDO 0-15',' ':10,'SALDO 16-30',' ':9,'SALDO 30-45');
WRITELN(LIST,'SALDO 45-60',' ':9,'ÆLDRE SALDO1',' ':8,'ÆLDRE SALDO2');
WRITELN(LIST,'MÅN. KØB',' ':12,'ÅRETS KØB ',' ':10,'S. ÅRS KØB');
WRITELN(LIST,'KREDITDAGE',' ':10,'FAKTURAER ',' ':10,'SID. FAK. D');
WRITELN(LIST,'RENTFR. SA',' ':10,'PER. T. RT',' ':10,'LUKKET');
FF;
WITH KUNDE DO
BEGIN
NR(1):=0;NR(2):=0;
I:=0;
NEXTREC(KZ.H,F,A);
IF IER<>-1 THEN ERROR;
REPEAT
PRKUNOPL(-1);
FF;
I:=I+1;
NEXTREC(KZ.H,F,A)
UNTIL IER<>0;
END;
IF IER<>-2 THEN ERROR;
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER,I:7);
FILNAVN2:='PROCSTAT:P2:0:I';
(*$C-*)
REPEAT
REWRITE(NRPF,FILNAVN2);
SEEK(NRPF,1)
UNTIL IORESULT=0;
(*$C+*)
GET(NRPF);
NRPF^.NP:=1;
SEEK(NRPF,1);
PUT(NRPF);
REPEAT
GOTOXY(1,20);
WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');
READLN;
(*$C-*)
REWRITE(CF,'C1:P1:0:J');
SEEK(CF,1)
(*$C+*)
UNTIL IORESULT=0;
CLOSE(CF);
CLOSE(NRPF);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM DUMPKUND;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0030 Line {l1=0x0c, l2=»KPOST=RECORD«, l3=0x0c}
0x0030…003e Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x003e…0062 Line {l1=0x22, l2=» NR:ARRAY(1..23) OF INTEGER;«, l3=0x22}
0x0062…009d Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x009d…00cb Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x00cb…00f8 Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x00f8…0122 Line {l1=0x28, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x28}
0x0122…0148 Line {l1=0x24, l2=» SALDOKØB:ARRAY (1..9) OF REAL«, l3=0x24}
0x0148…014e Line {l1=0x04, l2=»END;«, l3=0x04}
0x014e…015c Line {l1=0x0c, l2=»ZONE= RECORD«, l3=0x0c}
0x015c…016f Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x016f…0192 Line {l1=0x21, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x21}
0x0192…0198 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0198…01a9 Line {l1=0x0f, l2=»PROCSTAT=RECORD«, l3=0x0f}
0x01a9…01c5 Line {l1=0x1a, l2=» NP,NROSTART:INTEGER«, l3=0x1a}
0x01c5…01cb Line {l1=0x04, l2=»END;«, l3=0x04}
0x01cb…01e5 Line {l1=0x18, l2=»NPFILE=FILE OF PROCSTAT;«, l3=0x18}
0x01e5…01f4 Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x01f4…020c Line {l1=0x16, l2=» NRPF,CF:NPFILE;«, l3=0x16}
0x020c…0222 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0222…0233 Line {l1=0x0f, l2=» KZ:ZONE;«, l3=0x0f}
0x0233…0250 Line {l1=0x1b, l2=» FILNAVN2:STRING(20);«, l3=0x1b}
0x0250…0266 Line {l1=0x14, l2=» J,IER,I:INTEGER;«, l3=0x14}
0x0266…027a Line {l1=0x12, l2=» KUNDE:KPOST;«, l3=0x12}
0x027a…02a5 Line {l1=0x29, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x29}
0x02a5…02a8 Line {l1=0x01, l2=» «, l3=0x01}
0x02a8…02b1 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x02b1…02c4 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x02c4…02d1 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x02d1…02e1 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x02e1…02f1 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x02f1…02ff Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x02ff…030e Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x030e…0317 Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x0317…0320 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0320…032f Line {l1=0x0d, l2=»PROCEDURE FF;«, l3=0x0d}
0x032f…033f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x033f…0346 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0346…036a Line {l1=0x22, l2=» FOR I:=16 TO 48 DO WRITELN(LIST)«, l3=0x22}
0x036a…0370 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0370…0382 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0382…0389 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0389…03ad Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x03ad…03c0 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x03c0…03db Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x03db…03e9 Line {l1=0x0c, l2=» I:=I DIV 0«, l3=0x0c}
0x03e9…03ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x03ef…0401 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0401…0408 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0408…0419 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0419…045e Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x045e…048e Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x048e…04c7 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x04c7…04de Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x04de…04ed Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x04ed…04f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04f3…0513 Line {l1=0x1e, l2=»PROCEDURE PRKUNOPL(O:INTEGER);«, l3=0x1e}
0x0513…051a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x051a…052b Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x052b…0534 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0534…0561 Line {l1=0x2b, l2=» WRITELN(LIST,NR(1)*10000.0+NR(2):5:-2);«, l3=0x2b}
0x0561…056f Line {l1=0x0c, l2=» J:=0;«, l3=0x0c}
0x056f…0585 Line {l1=0x14, l2=» REPEAT J:=J+1«, l3=0x14}
0x0585…05ae Line {l1=0x27, l2=» UNTIL (J=4) OR (NAVN(1,J)<>' ');«, l3=0x27}
0x05ae…05cc Line {l1=0x1c, l2=» IF NAVN(1,J)=' ' THEN«, l3=0x1c}
0x05cc…05da Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x05da…0601 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x0601…0624 Line {l1=0x21, l2=» WRITELN(LIST,' ':6,NAME)«, l3=0x21}
0x0624…0630 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x0630…063d Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x063d…065f Line {l1=0x20, l2=» WRITELN(LIST,' ':6,NAVN(1));«, l3=0x20}
0x065f…0681 Line {l1=0x20, l2=» WRITELN(LIST,' ':6,NAVN(2));«, l3=0x20}
0x0681…06a3 Line {l1=0x20, l2=» WRITELN(LIST,' ':6,NAVN(3));«, l3=0x20}
0x06a3…06c5 Line {l1=0x20, l2=» WRITELN(LIST,' ':6,LANDSBY);«, l3=0x20}
0x06c5…06e6 Line {l1=0x1f, l2=» WRITELN(LIST,' ':6,POSTNR);«, l3=0x1f}
0x06e6…0704 Line {l1=0x1c, l2=» WRITELN(LIST,' ':6,TLF);«, l3=0x1c}
0x0704…072c Line {l1=0x26, l2=» WRITE(LIST,' ':6,NR(7):10,' ':10);«, l3=0x26}
0x072c…076d Line {l1=0x3f, l2=» IF NR(3)=1 THEN WRITE(LIST,'J':10) ELSE WRITE(LIST,'N':10);«, l3=0x3f}
0x076d…07a2 Line {l1=0x33, l2=» WRITELN(LIST,' ':10,NR(4)*10000.0+NR(5):10:-2);«, l3=0x33}
0x07a2…07c3 Line {l1=0x1f, l2=» WRITE(LIST,' ':6,NR(6):10);«, l3=0x1f}
0x07c3…07ec Line {l1=0x27, l2=» WRITE(LIST,' ':10,NR(8):10,' ':10);«, l3=0x27}
0x07ec…080e Line {l1=0x20, l2=» WRITE(LIST,NR(9):10,' ':10);«, l3=0x20}
0x080e…082c Line {l1=0x1c, l2=» WRITELN(LIST,NR(10):10);«, l3=0x1c}
0x082c…084e Line {l1=0x20, l2=» WRITE(LIST,' ':6,NR(17):10);«, l3=0x20}
0x084e…0878 Line {l1=0x28, l2=» WRITE(LIST,' ':10,NR(18):10,' ':10);«, l3=0x28}
0x0878…08ba Line {l1=0x40, l2=» IF NR(15)=1 THEN WRITE(LIST,'J':10) ELSE WRITE(LIST,'N':10);«, l3=0x40}
0x08ba…08ec Line {l1=0x30, l2=» IF NR(16)=1 THEN WRITELN(LIST,' ':10,'J':10)«, l3=0x30}
0x08ec…0916 Line {l1=0x28, l2=» ELSE WRITELN(LIST,' ':10,'N':10);«, l3=0x28}
0x0916…0943 Line {l1=0x2b, l2=» WRITE(LIST,' ':6,SALDOKØB(1)/100:10:2);«, l3=0x2b}
0x0943…0978 Line {l1=0x33, l2=» WRITE(LIST,' ':10,SALDOKØB(2)/100:10:2,' ':10);«, l3=0x33}
0x0978…09a1 Line {l1=0x27, l2=» WRITELN(LIST,SALDOKØB(3)/100:10:2);«, l3=0x27}
0x09a1…09ce Line {l1=0x2b, l2=» WRITE(LIST,' ':6,SALDOKØB(4)/100:10:2);«, l3=0x2b}
0x09ce…0a03 Line {l1=0x33, l2=» WRITE(LIST,' ':10,SALDOKØB(5)/100:10:2,' ':10);«, l3=0x33}
0x0a03…0a2c Line {l1=0x27, l2=» WRITELN(LIST,SALDOKØB(6)/100:10:2);«, l3=0x27}
0x0a2c…0a59 Line {l1=0x2b, l2=» WRITE(LIST,' ':6,SALDOKØB(8)/100:10:2);«, l3=0x2b}
0x0a59…0a8e Line {l1=0x33, l2=» WRITE(LIST,' ':10,SALDOKØB(7)/100:10:2,' ':10);«, l3=0x33}
0x0a8e…0ab7 Line {l1=0x27, l2=» WRITELN(LIST,SALDOKØB(9)/100:10:2);«, l3=0x27}
0x0ab7…0ae0 Line {l1=0x27, l2=» WRITE(LIST,' ':6,NR(11):10,' ':10);«, l3=0x27}
0x0ae0…0b03 Line {l1=0x21, l2=» WRITE(LIST,NR(12):10,' ':10);«, l3=0x21}
0x0b03…0b33 Line {l1=0x2e, l2=» WRITELN(LIST,NR(13)*10000.0+NR(14):10:-2);«, l3=0x2e}
0x0b33…0b5c Line {l1=0x27, l2=» WRITE(LIST,' ':6,NR(19):10,' ':10);«, l3=0x27}
0x0b5c…0b7f Line {l1=0x21, l2=» WRITE(LIST,NR(20):10,' ':10);«, l3=0x21}
0x0b7f…0bc5 Line {l1=0x44, l2=» IF NR(23)=1 THEN WRITELN(LIST,'J':10) ELSE WRITELN(LIST,'N':10);«, l3=0x44}
0x0bc5…0bcc Line {l1=0x05, l2=» END«, l3=0x05}
0x0bcc…0bd2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0bd2…0bd9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0bd9…0bf2 Line {l1=0x17, l2=» WRITELN('KUNDEDUMP');«, l3=0x17}
0x0bf2…0c14 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:1338:I';«, l3=0x20}
0x0c14…0c2a Line {l1=0x14, l2=» RESET(F,FILNAVN2);«, l3=0x14}
0x0c2a…0c40 Line {l1=0x14, l2=» IOPEN(KZ.H,F,LÆS);«, l3=0x14}
0x0c40…0c59 Line {l1=0x17, l2=» IF IER<>0 THEN OFEJL;«, l3=0x17}
0x0c59…0c60 Line {l1=0x05, l2=» FF;«, l3=0x05}
0x0c60…0c7b Line {l1=0x19, l2=» WRITELN(LIST,'NUMMER');«, l3=0x19}
0x0c7b…0c94 Line {l1=0x17, l2=» WRITELN(LIST,'NAVN');«, l3=0x17}
0x0c94…0cb0 Line {l1=0x1a, l2=»WRITELN(LIST,'NAVNE-UDV');«, l3=0x1a}
0x0cb0…0cca Line {l1=0x18, l2=»WRITELN(LIST,'ADRESSE');«, l3=0x18}
0x0cca…0ce4 Line {l1=0x18, l2=»WRITELN(LIST,'LANDSBY');«, l3=0x18}
0x0ce4…0cfd Line {l1=0x17, l2=»WRITELN(LIST,'POSTNR');«, l3=0x17}
0x0cfd…0d13 Line {l1=0x14, l2=»WRITELN(LIST,'TLF');«, l3=0x14}
0x0d13…0d4a Line {l1=0x35, l2=»WRITELN(LIST,'LAND',' ':16,'BETADR',' ':14,'KÆDENR');«, l3=0x35}
0x0d4a…0d99 Line {l1=0x4d, l2=»WRITELN(LIST,'RESTORDRE',' ':11,'BETALING',' ':12,'LEVERING',' ':12,'RENTE');«, l3=0x4d}
0x0d99…0dc7 Line {l1=0x2c, l2=»WRITELN(LIST,'RABAT',' ':15,'EXPORT',' ':14,«, l3=0x2c}
0x0dc7…0de7 Line {l1=0x1e, l2=»'EMBALLAGE',' ':11,'BRÆKAGE');«, l3=0x1e}
0x0de7…0e2d Line {l1=0x44, l2=»WRITELN(LIST,'SALDO 0-15',' ':10,'SALDO 16-30',' ':9,'SALDO 30-45');«, l3=0x44}
0x0e2d…0e75 Line {l1=0x46, l2=»WRITELN(LIST,'SALDO 45-60',' ':9,'ÆLDRE SALDO1',' ':8,'ÆLDRE SALDO2');«, l3=0x46}
0x0e75…0eb8 Line {l1=0x41, l2=»WRITELN(LIST,'MÅN. KØB',' ':12,'ÅRETS KØB ',' ':10,'S. ÅRS KØB');«, l3=0x41}
0x0eb8…0efe Line {l1=0x44, l2=»WRITELN(LIST,'KREDITDAGE',' ':10,'FAKTURAER ',' ':10,'SID. FAK. D');«, l3=0x44}
0x0efe…0f3f Line {l1=0x3f, l2=»WRITELN(LIST,'RENTFR. SA',' ':10,'PER. T. RT',' ':10,'LUKKET');«, l3=0x3f}
0x0f3f…0f44 Line {l1=0x03, l2=»FF;«, l3=0x03}
0x0f44…0f55 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x0f55…0f5e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0f5e…0f76 Line {l1=0x16, l2=» NR(1):=0;NR(2):=0;«, l3=0x16}
0x0f76…0f81 Line {l1=0x09, l2=» I:=0;«, l3=0x09}
0x0f81…0f99 Line {l1=0x16, l2=» NEXTREC(KZ.H,F,A);«, l3=0x16}
0x0f99…0fb5 Line {l1=0x1a, l2=» IF IER<>-1 THEN ERROR;«, l3=0x1a}
0x0fb5…0fc1 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0fc1…0fd7 Line {l1=0x14, l2=» PRKUNOPL(-1);«, l3=0x14}
0x0fd7…0fe3 Line {l1=0x0a, l2=» FF;«, l3=0x0a}
0x0fe3…0ff3 Line {l1=0x0e, l2=» I:=I+1;«, l3=0x0e}
0x0ff3…100d Line {l1=0x18, l2=» NEXTREC(KZ.H,F,A)«, l3=0x18}
0x100d…1020 Line {l1=0x11, l2=» UNTIL IER<>0;«, l3=0x11}
0x1020…1028 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1028…1042 Line {l1=0x18, l2=» IF IER<>-2 THEN ERROR;«, l3=0x18}
0x1042…1055 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x1055…1065 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1065…1084 Line {l1=0x1d, l2=» WRITELN('ICLOSE ',IER,I:7);«, l3=0x1d}
0x1084…10a4 Line {l1=0x1e, l2=» FILNAVN2:='PROCSTAT:P2:0:I';«, l3=0x1e}
0x10a4…10ad Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x10ad…10b7 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x10b7…10d4 Line {l1=0x1b, l2=» REWRITE(NRPF,FILNAVN2);«, l3=0x1b}
0x10d4…10e6 Line {l1=0x10, l2=» SEEK(NRPF,1)«, l3=0x10}
0x10e6…10fb Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x10fb…1104 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x1104…1112 Line {l1=0x0c, l2=» GET(NRPF);«, l3=0x0c}
0x1112…1122 Line {l1=0x0e, l2=» NRPF^.NP:=1;«, l3=0x0e}
0x1122…1133 Line {l1=0x0f, l2=» SEEK(NRPF,1);«, l3=0x0f}
0x1133…1141 Line {l1=0x0c, l2=» PUT(NRPF);«, l3=0x0c}
0x1141…114b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x114b…115e Line {l1=0x11, l2=» GOTOXY(1,20);«, l3=0x11}
0x115e…1193 Line {l1=0x33, l2=» WRITELN('Sæt plade 1 i drev 1 og tryk RETURN');«, l3=0x33}
0x1193…11a0 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x11a0…11a9 Line {l1=0x07, l2=»(*$C-*)«, l3=0x07}
0x11a9…11c7 Line {l1=0x1c, l2=» REWRITE(CF,'C1:P1:0:J');«, l3=0x1c}
0x11c7…11d7 Line {l1=0x0e, l2=» SEEK(CF,1)«, l3=0x0e}
0x11d7…11e0 Line {l1=0x07, l2=»(*$C+*)«, l3=0x07}
0x11e0…11f5 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x11f5…1203 Line {l1=0x0c, l2=» CLOSE(CF);«, l3=0x0c}
0x1203…1213 Line {l1=0x0e, l2=» CLOSE(NRPF);«, l3=0x0e}
0x1213…1239 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x1239…123f Line {l1=0x04, l2=»END.«, l3=0x04}
0x123f…1240 00 ┆ ┆
0x1240…1260 00 57 52 49 54 45 28 4e 52 50 46 2c 46 49 4c 4e 41 56 4e 32 29 3b 1b 10 20 20 20 20 53 45 45 4b ┆ WRITE(NRPF,FILNAVN2); SEEK┆
0x1260…1280 28 4e 52 50 46 2c 31 29 10 13 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 13 07 28 ┆(NRPF,1) UNTIL IORESULT=0; (┆
0x1280…12a0 2a 24 43 2b 2a 29 07 0c 20 20 47 45 54 28 4e 52 50 46 29 3b 0c 0e 20 20 4e 52 50 46 5e 2e 4e 50 ┆*$C+*) GET(NRPF); NRPF^.NP┆
0x12a0…12c0 3a 3d 31 3b 0e 0f 20 20 53 45 45 4b 28 4e 52 50 46 2c 31 29 3b 0f 0c 20 20 50 55 54 28 4e 52 50 ┆:=1; SEEK(NRPF,1); PUT(NRP┆
0x12c0…12e0 46 29 3b 0c 08 20 20 52 45 50 45 41 54 08 11 20 20 20 20 47 4f 54 4f 58 59 28 31 2c 32 30 29 3b ┆F); REPEAT GOTOXY(1,20);┆
0x12e0…1300 11 33 20 20 20 20 57 52 49 54 45 4c 4e 28 27 53 7b 74 20 70 6c 61 64 65 20 31 20 69 20 64 72 65 ┆ 3 WRITELN('Sæt plade 1 i dre┆
0x1300…1320 76 20 31 20 6f 67 20 74 72 79 6b 20 52 45 54 55 52 4e 27 29 3b 33 0b 20 20 20 20 52 45 41 44 4c ┆v 1 og tryk RETURN');3 READL┆
0x1320…1340 4e 3b 0b 07 28 2a 24 43 2d 2a 29 07 1c 20 20 20 20 52 45 57 52 49 54 45 28 43 46 2c 27 43 31 3a ┆N; (*$C-*) REWRITE(CF,'C1:┆
0x1340…1360 50 31 3a 30 3a 4a 27 29 3b 1c 0e 20 20 20 20 53 45 45 4b 28 43 46 2c 31 29 0e 07 28 2a 24 43 2b ┆P1:0:J'); SEEK(CF,1) (*$C+┆
0x1360…1380 2a 29 07 13 20 20 55 4e 54 49 4c 20 49 4f 52 45 53 55 4c 54 3d 30 3b 13 0c 20 20 43 4c 4f 53 45 ┆*) UNTIL IORESULT=0; CLOSE┆
0x1380…13a0 28 43 46 29 3b 0c 0e 20 20 43 4c 4f 53 45 28 4e 52 50 46 29 3b 0e 24 20 20 43 48 41 49 4e 28 27 ┆(CF); CLOSE(NRPF); $ CHAIN('┆
0x13a0…13c0 49 4e 54 52 45 20 20 20 2a 31 27 2c 27 48 4f 56 53 41 3a 50 31 27 2c 51 55 51 29 24 04 45 4e 44 ┆INTRE *1','HOVSA:P1',QUQ)$ END┆
0x13c0…13e0 2e 04 00 00 20 20 4e 52 3a 41 52 52 41 59 28 31 2e 2e 32 33 29 20 4f 46 20 49 4e 54 45 47 45 52 ┆. NR:ARRAY(1..23) OF INTEGER┆
0x13e0…1400 3b 22 39 20 20 20 20 20 20 20 4e 41 56 4e 3a 41 52 52 41 59 20 28 31 2e 2e 33 29 20 4f 46 20 50 ┆;"9 NAVN:ARRAY (1..3) OF P┆
0x1400…1420 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 33 30 29 20 4f 46 20 43 48 41 52 3b 39 2c 20 20 ┆ACKED ARRAY (1..30) OF CHAR;9, ┆
0x1420…1440 20 20 20 20 20 4c 41 4e 44 53 42 59 3a 50 41 43 4b 45 44 20 41 52 52 41 59 20 28 31 2e 2e 32 30 ┆ LANDSBY:PACKED ARRAY (1..20┆
0x1440…1460 29 20 4f 46 20 43 48 41 52 3b 2c 2b 20 20 20 20 20 20 20 50 4f 53 54 4e 52 3a 50 41 43 4b 45 44 ┆) OF CHAR;,+ POSTNR:PACKED┆
0x1460…1480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1f…]