|
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: 22944 (0x59a0)
Types: TextFile
Notes: Mikados_K
Names: »KUNDVEDL.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KUNDVEDL.K«
PROGRAM KUNDVEDL;
(*$IISFHEAD*)
KPOST=RECORD
A:AR;
NR:ARRAY (1..23) OF INTEGER;
(*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,
RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,
EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)
(* NAVN,UDVNAVN,LEVADR*)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;
(*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)
END;
KUNDZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
SYSPOST=RECORD
HELTAL:ARRAY(1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VAR F:ISF;
CHAR1:CHAR;
KZ:KUNDZONE;
KNAVN:STRING(4);
FILNAVN1,FILNAVN2:STRING(20);
ÆNDRE,N1,N2,IER,I:INTEGER;
KODE1,KODE2:STRING(10);
R:REAL;
KUNDE:KPOST;
SYSFIL:SYSFILE;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$IDELETE*)
(*$R+*)
(*$L+*)
PROCEDURE STOP;
VAR I:INTEGER;
BEGIN I:=I DIV 0 END;
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I KUNDEREG ',IER);
ICLOSE(KZ.H,F);
WRITELN('ICLOSE ',IER);
STOP
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 NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);
VAR I:INTEGER;
R:REAL;
BEGIN
R:=0.0;
FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));
I:=TRUNC(R/89998.0);
R:=R-I*89998.0+10001;
NU1:=TRUNC(R/10000);
NU2:=TRUNC(R-NU1*10000.0)
END;
PROCEDURE FINDKUND;
VAR N1,N2,FIN:INTEGER;
SVAR1:CHAR;
R1,R2:REAL;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('KUNDEVEDLIGEHOLDELSE');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');
REPEAT
R:=-1.0;
GOTOXY(1,3);
WRITELN('INDTAST KUNDENUMMER');
GOTOXY(25,3);READLN;READ(R)
UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);
IF R=0.0 THEN EXIT(FINDKUND);
REPEAT
IF R=1.0 THEN
IF I=1 THEN
BEGIN
GOTOXY(1,4);
WRITELN('INDTAST KUNDENAVN',' ':60);
REPEAT
GOTOXY(20,4);
READLN;READ(KNAVN)
UNTIL LENGTH(KNAVN)=4;
NANU(KNAVN,N1,N2);
KUNDE.NR(1):=N1;
KUNDE.NR(2):=N2;
R1:=N1*10000.0+N2;
GETREC(KZ.H,F,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,F,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,F,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);
IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;
END
ELSE
BEGIN
KUNDE.NR(1):=TRUNC(R/10000.0);
KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);
GETREC(KZ.H,F,KUNDE.A)
END;
GOTOXY(1,5);
FIN:=1;
IF IER=0 THEN
BEGIN
WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);
WRITELN;
WRITELN(KUNDE.NAVN(1));
WRITELN(KUNDE.NAVN(3));
WRITELN(KUNDE.POSTNR);
WRITELN;
WRITELN('TLF: ',KUNDE.TLF);
GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');
REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND
((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));
IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0
END
ELSE
IF IER=-6 THEN
BEGIN
IER:=0;
WRITELN(' ':80);
WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');
READLN
END
ELSE ERROR
UNTIL FIN=1
UNTIL (SVAR1='J') OR (R=0.0) OR (SVAR1='j')
END;
(*$L+*)
PROCEDURE PRKUNOPL(O,KODE:INTEGER);
PROCEDURE PR1;
BEGIN
WITH KUNDE DO
CASE O OF
1:BEGIN
GOTOXY(1,1);WRITE('1 KUNDENR');GOTOXY(25,1);
WRITELN(NR(1)*10000.0+NR(2):10:-2);
END;
2:BEGIN
GOTOXY(1,2);WRITE('2 KUNDENAVN');GOTOXY(30,2);WRITELN(NAVN(1));
END;
3:BEGIN
GOTOXY(1,3);WRITE('3 NAVNEUDVIDELSE');GOTOXY(30,3);WRITELN(NAVN(2));
END;
4:BEGIN
GOTOXY(1,4);WRITE('4 ADRESSE');GOTOXY(30,4);WRITELN(NAVN(3));
END;
5:BEGIN
GOTOXY(1,5);WRITE('5 LANDSBY');GOTOXY(30,5);WRITELN(LANDSBY);
END;
6:BEGIN
GOTOXY(1,6);WRITE('6 POSTNR');GOTOXY(30,6);WRITELN(POSTNR);
END;
8:BEGIN
GOTOXY(1,8);WRITE('8 TLF');GOTOXY(30,8);WRITELN(TLF);
END;
7:BEGIN
GOTOXY(1,7);WRITE('7 LAND, 8 FOR DANMARK');GOTOXY(30,7);
WRITELN(NR(7));
END;
9:BEGIN
GOTOXY(1,9);WRITE('9 BETALINGSADRESSE J/N');GOTOXY(36,9);
IF NR(3)=1 THEN WRITELN('J') ELSE WRITELN('N');
END;
10:BEGIN
GOTOXY(40,9);WRITE('10 KÆDENR');GOTOXY(65,9);
WRITELN(NR(4)*10000.0+NR(5):7:-2)
END;
11:BEGIN
GOTOXY(1,10);WRITE('11 RESTORDREKODE');GOTOXY(27,10);WRITELN(NR(6):10);
END;
END;
END;
PROCEDURE PR2;
BEGIN
WITH KUNDE DO
CASE O OF
12:BEGIN
GOTOXY(40,10);WRITE('12 BETALINGSKODE');GOTOXY(65,10);
WRITELN(NR(8):7);
END;
13:BEGIN
GOTOXY(1,11);WRITE('13 LEVERINGSKODE');GOTOXY(27,11);WRITELN(NR(9):10);
END;
14:BEGIN
GOTOXY(40,11);WRITE('14 RENTEKODE');GOTOXY(65,11);WRITELN(NR(10):7);
END;
15:IF KODE>0 THEN BEGIN
GOTOXY(1,12);WRITE('15 RABAT %');GOTOXY(27,12);WRITELN(NR(17):10);
END;
16:BEGIN
GOTOXY(40,12);WRITE('16 EXPORTKODE');GOTOXY(65,12);WRITELN(NR(18):7);
END;
17:BEGIN
GOTOXY(1,13);WRITE('17 EMBALLAGE J/N');GOTOXY(36,13);
IF NR(15)=1 THEN WRITELN('J') ELSE WRITELN('N');
END;
18:BEGIN
GOTOXY(40,13);WRITE('18 BRÆKAGEFORSIKRING J/N');GOTOXY(71,13);
IF NR(16)=1 THEN WRITELN('J') ELSE WRITELN('N');
END;
19:IF KODE>0 THEN BEGIN
GOTOXY(1,14);WRITE('19 SALDO 0-15 DAGE');GOTOXY(25,14);
WRITELN(SALDOKØB(1)/100:12:2);
END;
20:IF KODE>0 THEN BEGIN
GOTOXY(40,14);WRITE('20 SALDO 16-30 DAGE');GOTOXY(60,14);
WRITELN(SALDOKØB(2)/100:12:2);
END;
21:IF KODE>0 THEN BEGIN
GOTOXY(1,15);WRITE('21 SALDO 30-45 DAGE');GOTOXY(25,15);
WRITELN(SALDOKØB(3)/100:12:2);
END;
22:IF KODE>0 THEN BEGIN
GOTOXY(40,15);WRITE('22 SALDO 45-60 DAGE');GOTOXY(60,15);
WRITELN(SALDOKØB(4)/100:12:2);
END;
23:IF KODE>0 THEN BEGIN
GOTOXY(1,16);WRITE('23 ÆLDRE SALDO1');GOTOXY(25,16);
WRITELN(SALDOKØB(5)/100:12:2);
END;
24:IF KODE>0 THEN BEGIN
GOTOXY(40,16);WRITE('24 ÆLDRE SALDO2');GOTOXY(60,16);
WRITELN(SALDOKØB(6)/100:12:2);
END;
25:IF KODE>0 THEN BEGIN
GOTOXY(1,17);WRITE('25 MÅNEDENS KØB');GOTOXY(25,17);
WRITELN(SALDOKØB(8)/100:12:2);
END;
26:IF KODE>0 THEN BEGIN
GOTOXY(40,17);WRITE('26 ÅRETS KØB');GOTOXY(60,17);
WRITELN(SALDOKØB(7)/100:12:2);
END;
END
END;
PROCEDURE PR3;
BEGIN
WITH KUNDE DO
CASE O OF
27:BEGIN
GOTOXY(1,18);WRITE('27 SIDSTE ÅRS KØB');GOTOXY(25,18);
WRITELN(SALDOKØB(9)/100:12:2);
END;
28:BEGIN
GOTOXY(40,18);WRITELN('28 KREDITDAGE',NR(11):19);
END;
29:BEGIN
GOTOXY(1,19);WRITELN('29 FAKTURAER',NR(12):24);
END;
30:BEGIN
GOTOXY(40,19);WRITELN('30 S. FAKTURA DATO',NR(13)*10000.0+NR(14):14:-2);
END;
31:BEGIN
GOTOXY(1,20);WRITELN('31 RENTEFRI SALDO',NR(19):19);
END;
32:BEGIN
GOTOXY(40,20);WRITELN('32 PERIODER TIL RENTE',NR(20):11);
END;
33:BEGIN
GOTOXY(1,21);WRITE('33 LUKKET FOR KREDIT');
GOTOXY(36,21);
IF NR(23)=1 THEN WRITELN('J') ELSE WRITELN('N');
END;
END
END;
BEGIN
IF O<>0 THEN
BEGIN
IF (1<=O) AND (O<=11) THEN PR1
ELSE
IF (12<=O) AND (O<=26) THEN PR2
ELSE
IF (27<=O) AND (O<=34) THEN BEGIN IF KODE>0 THEN PR3 END
ELSE
BEGIN
CLEARSCREEN;
FOR O:=1 TO 11 DO PR1;
FOR O:=12 TO 26 DO PR2;
FOR O:=27 TO 34 DO IF KODE>0 THEN PR3
END
END
END;
PROCEDURE KUNDOPL(O:INTEGER);
VAR STRENG:STRING;
I:INTEGER;
FUNCTION LÆS(X,Y:INTEGER):REAL;
VAR RES:REAL;
BEGIN
REPEAT
GOTOXY(X,Y);
READLN;
READ(RES)
UNTIL IORESULT=0;
LÆS:=RES
END;
PROCEDURE INCH(X,Y:INTEGER);
BEGIN
REPEAT
GOTOXY(X,Y);
READLN;
READ(CHAR1)
UNTIL (CHAR1='N') OR (CHAR1='J') OR (CHAR1='n') OR (CHAR1='j')
END;
PROCEDURE OPL1;
BEGIN
WITH KUNDE DO
CASE O OF
2: BEGIN REPEAT
GOTOXY(30,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<5;
FILLCHAR(NAVN(1),30,' ');
FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I);
REPEAT
GOTOXY(34,2);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<27;
FOR I:=5 TO LENGTH(STRENG)+4 DO NAVN(1,I):=STRENG(I-4) END;
3: BEGIN REPEAT
GOTOXY(30,3);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(NAVN(2),30,' ');
FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;
4: BEGIN REPEAT
GOTOXY(30,4);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<31;
FILLCHAR(NAVN(3),30,' ');
FOR I:=1 TO LENGTH(STRENG) DO NAVN(3,I):=STRENG(I) END;
5: BEGIN REPEAT
GOTOXY(30,5);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<21;
FILLCHAR(LANDSBY,20,' ');
FOR I:=1 TO LENGTH(STRENG) DO LANDSBY(I):=STRENG(I) END;
6: BEGIN REPEAT
GOTOXY(30,6);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<26;
FILLCHAR(POSTNR,25,' ');
FOR I:=1 TO LENGTH(STRENG) DO POSTNR(I):=STRENG(I) END;
8: BEGIN REPEAT
GOTOXY(30,8);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<11;
FILLCHAR(TLF,10,' ');
FOR I:=1 TO LENGTH(STRENG) DO TLF(I):=STRENG(I) END;
7: REPEAT
GOTOXY(30,7);READLN;READ(NR(7))
UNTIL (IORESULT=0) AND (NR(7)>0) AND (NR(7)<1000);
9: BEGIN
INCH(36,9);
IF (CHAR1='N') OR (CHAR1='n') THEN NR(3):=0 ELSE NR(3):=1 END;
10: BEGIN REPEAT
R:=LÆS(67,9)
UNTIL (R>9999) AND (R<100000.0) OR (R=0);
NR(4):=TRUNC(R/10000);
NR(5):=TRUNC(R-NR(4)*10000.0)
END;
11: REPEAT
GOTOXY(36,10);READLN;READ(NR(6))
UNTIL (IORESULT=0) AND (NR(6)>=0) AND (NR(6)<100);
12: REPEAT
GOTOXY(71,10);READLN;READ(NR(8))
UNTIL (IORESULT=0) AND (NR(8)>=0) AND (NR(8)<100);
13: REPEAT
GOTOXY(36,11);READLN;READ(NR(9))
UNTIL (IORESULT=0) AND (NR(9)>=0) AND (NR(9)<100);
14: REPEAT
GOTOXY(71,11);READLN;READ(NR(10))
UNTIL (IORESULT=0) AND (NR(10)>=0) AND (NR(10)<100);
15: REPEAT
GOTOXY(35,12);READLN;READ(NR(17))
UNTIL (IORESULT=0) AND (NR(17)>=0) AND (NR(17)<100);
END
END;
PROCEDURE OPL2;
BEGIN
WITH KUNDE DO
CASE O OF
16: REPEAT
GOTOXY(71,12);READLN;READ(NR(18))
UNTIL (IORESULT=0) AND (NR(18)>=0) AND (NR(18)<100);
17: BEGIN
INCH(36,13);
IF (CHAR1='N') OR (CHAR1='n') THEN NR(15):=0 ELSE NR(15):=1 END;
18: BEGIN
INCH(71,13);
IF (CHAR1='N') OR (CHAR1='n') THEN NR(16):=0 ELSE NR(16):=1 END;
19:
SALDOKØB(1):=LÆS(25,14)*100;
20:
SALDOKØB(2):=LÆS(65,14)*100;
21:
SALDOKØB(3):=LÆS(25,15)*100;
22:
SALDOKØB(4):=LÆS(65,15)*100;
23:
SALDOKØB(5):=LÆS(25,16)*100;
24: SALDOKØB(6):=LÆS(65,16)*100;
25: SALDOKØB(8):=LÆS(25,17)*100;
26: SALDOKØB(7):=LÆS(65,17)*100;
27: SALDOKØB(9):=LÆS(25,18)*100;
28: REPEAT
GOTOXY(69,18);READLN;READ(NR(11))
UNTIL IORESULT=0;
29: REPEAT
GOTOXY(31,19);READLN;READ(NR(12))
UNTIL IORESULT=0;
30: BEGIN REPEAT
R:=LÆS(64,19)
UNTIL (R>800000.0) AND (R<850000.0);
NR(13):=TRUNC(R/10000);
NR(14):=TRUNC(R-NR(13)*10000.0)
END;
31: REPEAT
GOTOXY(31,20);READLN;READ(NR(19))
UNTIL IORESULT=0;
32: REPEAT
GOTOXY(71,20);READLN;READ(NR(20))
UNTIL IORESULT=0;
33: BEGIN
INCH(36,21);
IF (CHAR1='N') OR (CHAR1='n') THEN NR(23):=0 ELSE NR(23):=1
END;
34: BEGIN REPEAT
R:=LÆS(65,21)
UNTIL (R>9999) AND (R<100000.0);
NR(21):=TRUNC(R/10000);
NR(22):=TRUNC(R-NR(21)*10000.0)
END;
END
END;
BEGIN
IF O<=15 THEN OPL1 ELSE OPL2
END;
PROCEDURE ZERREC;
BEGIN
WITH KUNDE DO
BEGIN
FOR I:=1 TO 23 DO NR(I):=0;
FOR I:=1 TO 9 DO SALDOKØB(I):=0.0;
FILLCHAR(NAVN(1),30,' ');
FILLCHAR(NAVN(2),30,' ');
FILLCHAR(NAVN(3),30,' ');
FILLCHAR(LANDSBY,20,' ');
FILLCHAR(POSTNR,25,' ');
FILLCHAR(TLF,10,' ');
END
END;
PROCEDURE MAINTAIN;
VAR EXC,I,O,P,KODE:INTEGER;
CHANGED:BOOLEAN;
STRENG:STRING;
STRENG1:STRING(10);
BEGIN
(*INDLÆS KODE1 OG KODE2 FRA SYSREG*)
CLEARSCREEN;
GOTOXY(1,1);WRITELN('ADGANGSKODE');
GOTOXY(20,1);READLN;READ(STRENG1);
KODE:=0;
IF STRENG1=KODE1 THEN KODE:=1;
IF STRENG1=KODE2 THEN KODE:=2;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');
GOTOXY(50,22);READLN;READ(P)
UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));
CASE P OF
1: IF ÆNDRE=1 THEN BEGIN
ZERREC;
PRKUNOPL(-1,KODE);
FOR I:=2 TO 18 DO KUNDOPL(I);
PRKUNOPL(-1,KODE);
REPEAT
GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');
GOTOXY(40,22);READLN;READ(O);
IF ((O>1) AND (O<=18)) THEN KUNDOPL(O);
PRKUNOPL(O,KODE)
UNTIL O=0;
KNAVN:=' ';
FOR I:=1 TO 4 DO KNAVN(I):=KUNDE.NAVN(1,4+I);
NANU(KNAVN,N1,N2);
KUNDE.NR(1):=N1;
KUNDE.NR(2):=N2;
EXC:=0;
REPEAT
INSERT(KZ.H,F,KUNDE.A);
IF IER=-7 THEN
BEGIN
KUNDE.NR(2):=KUNDE.NR(2)+1;
EXC:=EXC+1;
IF KUNDE.NR(2)=10000 THEN
BEGIN
KUNDE.NR(1):=KUNDE.NR(1)+1;
KUNDE.NR(2):=0
END
END
ELSE
IF IER<>0 THEN ERROR
UNTIL IER=0;
PRKUNOPL(1,KODE);
IF EXC>SYSFIL^.HELTAL(4) THEN SYSFIL^.HELTAL(4):=EXC;
END;
2: BEGIN
FINDKUND;
IF R<>0.0 THEN
BEGIN
PRKUNOPL(-1,KODE);
CHANGED:=FALSE;
REPEAT
REPEAT
GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');
GOTOXY(40,22);READLN;READ(O)
UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));
CASE O OF
19,20,21,22,23,24,25,26,27,28,29,30: BEGIN
GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT');
GOTOXY(25,23);
WRITELN('TRYK RETURN NÅR FORSTÅET');
GOTOXY(60,23);READLN;READ(STRENG);
IF STRENG='A' THEN
BEGIN
KUNDOPL(O);CHANGED:=TRUE
END
END;
10,11,12,13,14,15,16,17,18,31,32,33: IF KODE=2 THEN
BEGIN
KUNDOPL(O);CHANGED:=TRUE
END ELSE
BEGIN GOTOXY(1,23);
WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');
END;
3,4,5,6,7,8,9 :BEGIN KUNDOPL(O);CHANGED:=TRUE END
END;
PRKUNOPL(O,KODE)
UNTIL O=0;
IF CHANGED THEN PUTREC(KZ.H,F,KUNDE.A);
END
END;
3: IF ÆNDRE=1 THEN BEGIN
FINDKUND;
IF R<>0.0 THEN
BEGIN
PRKUNOPL(-1,KODE);
IF KODE=2 THEN
WITH KUNDE DO
BEGIN
REPEAT
GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');
GOTOXY(40,23);READLN;READ(O)
UNTIL IORESULT=0;
IF O=4711 THEN
BEGIN
DELETE(KZ.H,F,KUNDE.A);
PRKUNOPL(-1,KODE);
IF IER<>0 THEN ERROR
END
END
ELSE
BEGIN
GOTOXY(1,23);
WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')
END
END
END
END
UNTIL P=0
END;
BEGIN
CLEARSCREEN;
WRITELN('0 Kikke, 1 Ændre');
REPEAT
GOTOXY(18,1);
READLN;READ(ÆNDRE)
UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);
FILNAVN2:='KUNDERG:P2:0000:I';
IF ÆNDRE=1 THEN
REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);
IF ÆNDRE=1 THEN
IOPEN(KZ.H,F,SKRIV) ELSE IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;
FILNAVN1:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FILNAVN1);
SEEK(SYSFIL,1);
GET(SYSFIL);
KODE1:=' ';
KODE2:=KODE1;
FOR I:=1 TO 10 DO
BEGIN
KODE1(I):=SYSFIL^.KODE(1,I);
KODE2(I):=SYSFIL^.KODE(2,I)
END;
IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE
BEGIN
MAINTAIN;
END;
ICLOSE(KZ.H,F);
CLEARSCREEN;
WRITELN('ICLOSE ',IER);
SEEK(SYSFIL,1);
PUT(SYSFIL);
CLOSE(SYSFIL);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM KUNDVEDL;«, l3=0x11}
0x0013…0022 Line {l1=0x0d, l2=»(*$IISFHEAD*)«, l3=0x0d}
0x0022…0031 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0031…0040 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0040…0066 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x0066…00af Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x00af…00f8 Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x00f8…0128 Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x0128…0178 Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x0178…01a7 Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x01a7…01d5 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x01d5…0200 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x0200…0229 Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x0229…024e Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x024e…0256 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0256…0268 Line {l1=0x10, l2=» KUNDZONE=RECORD«, l3=0x10}
0x0268…027c Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x027c…02a0 Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x02a0…02a8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x02a8…02b9 Line {l1=0x0f, l2=» SYSPOST=RECORD«, l3=0x0f}
0x02b9…02e1 Line {l1=0x26, l2=» HELTAL:ARRAY(1..24) OF INTEGER;«, l3=0x26}
0x02e1…0303 Line {l1=0x20, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x20}
0x0303…0331 Line {l1=0x2c, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x2c}
0x0331…036a Line {l1=0x37, l2=» KODE:ARRAY(1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x37}
0x036a…0371 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0371…038c Line {l1=0x19, l2=» SYSFILE=FILE OF SYSPOST;«, l3=0x19}
0x038c…039b Line {l1=0x0d, l2=»VAR F:ISF;«, l3=0x0d}
0x039b…03af Line {l1=0x12, l2=» CHAR1:CHAR;«, l3=0x12}
0x03af…03c4 Line {l1=0x13, l2=» KZ:KUNDZONE;«, l3=0x13}
0x03c4…03dd Line {l1=0x17, l2=» KNAVN:STRING(4);«, l3=0x17}
0x03dd…03fc Line {l1=0x1d, l2=»FILNAVN1,FILNAVN2:STRING(20);«, l3=0x1d}
0x03fc…0418 Line {l1=0x1a, l2=»ÆNDRE,N1,N2,IER,I:INTEGER;«, l3=0x1a}
0x0418…0437 Line {l1=0x1d, l2=» KODE1,KODE2:STRING(10);«, l3=0x1d}
0x0437…0447 Line {l1=0x0e, l2=» R:REAL;«, l3=0x0e}
0x0447…045c Line {l1=0x13, l2=» KUNDE:KPOST;«, l3=0x13}
0x045c…0474 Line {l1=0x16, l2=» SYSFIL:SYSFILE;«, l3=0x16}
0x0474…048a Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x048a…0493 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0493…04a6 Line {l1=0x11, l2=»(*$R-,IEXCOMCOP*)«, l3=0x11}
0x04a6…04b3 Line {l1=0x0b, l2=»(*$IIOPEN*)«, l3=0x0b}
0x04b3…04c0 Line {l1=0x0b, l2=»(*$ISÆTØG*)«, l3=0x0b}
0x04c0…04d0 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x04d0…04e0 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x04e0…04ef Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x04ef…04fd Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x04fd…050b Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x050b…0519 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0519…0528 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0528…0536 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0536…053f Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x053f…0548 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0548…0559 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0559…0569 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0569…0580 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0580…0592 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x0592…0599 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0599…05bd Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x05bd…05d0 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x05d0…05eb Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x05eb…05f3 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x05f3…05f9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x05f9…060b Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x060b…0612 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0612…0623 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0623…0668 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0668…0698 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0698…06d1 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x06d1…06e8 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x06e8…06f7 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x06f7…06fd Line {l1=0x04, l2=»END;«, l3=0x04}
0x06fd…0731 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0731…0741 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0741…074e Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x074e…0755 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0755…0760 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0760…0787 Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0787…079f Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x079f…07b8 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x07b8…07d0 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x07d0…07ed Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x07ed…07f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x07f3…0808 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0808…0823 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x0823…0837 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0837…084b Line {l1=0x12, l2=» R1,R2:REAL;«, l3=0x12}
0x084b…0852 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0852…085c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x085c…0867 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0867…0878 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0878…088a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x088a…08b0 Line {l1=0x24, l2=» WRITELN('KUNDEVEDLIGEHOLDELSE');«, l3=0x24}
0x08b0…08c2 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x08c2…08fc Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x08fc…0908 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0908…0918 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0918…092c Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x092c…0953 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0953…0976 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0976…09ad Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x09ad…09d0 Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x09d0…09dc Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x09dc…09f1 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x09f1…0a06 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0a06…0a15 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0a15…0a2d Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x0a2d…0a5d Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x0a5d…0a6f Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x0a6f…0a88 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0a88…0aa6 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x0aa6…0ac8 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x0ac8…0ae6 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x0ae6…0b02 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x0b02…0b1e Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x0b1e…0b3c Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x0b3c…0b5f Line {l1=0x21, l2=» GETREC(KZ.H,F,KUNDE.A);«, l3=0x21}
0x0b5f…0b92 Line {l1=0x31, l2=» IF IER=-6 THEN NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x31}
0x0b92…0bce Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0bce…0bde Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0bde…0beb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0beb…0bf9 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0bf9…0c08 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c08…0c2c Line {l1=0x22, l2=» NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x22}
0x0c2c…0c68 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0c68…0c98 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x0c98…0cd9 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x0cd9…0ce6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0ce6…0cf2 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0cf2…0cff Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0cff…0d27 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x0d27…0d5b Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x0d5b…0d7b Line {l1=0x1e, l2=» GETREC(KZ.H,F,KUNDE.A)«, l3=0x1e}
0x0d7b…0d87 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0d87…0d9b Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x0d9b…0daa Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x0daa…0dbf Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x0dbf…0dcc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0dcc…0e13 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x0e13…0e25 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0e25…0e46 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x0e46…0e67 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x0e67…0e87 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x0e87…0e99 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0e99…0ebe Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x0ebe…0ef3 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x0ef3…0f3b Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x0f3b…0f88 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x0f88…0fc9 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x0fc9…0fd4 Line {l1=0x09, l2=» END«, l3=0x09}
0x0fd4…0fe0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0fe0…0ff6 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x0ff6…1003 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1003…1014 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1014…102e Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x102e…1067 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x1067…1077 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x1077…1082 Line {l1=0x09, l2=» END«, l3=0x09}
0x1082…1094 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x1094…10a5 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x10a5…10d4 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (R=0.0) OR (SVAR1='j')«, l3=0x2d}
0x10d4…10da Line {l1=0x04, l2=»END;«, l3=0x04}
0x10da…10e3 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x10e3…1108 Line {l1=0x23, l2=»PROCEDURE PRKUNOPL(O,KODE:INTEGER);«, l3=0x23}
0x1108…1118 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x1118…111f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x111f…112e Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x112e…1139 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x1139…1142 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x1142…1170 Line {l1=0x2c, l2=»GOTOXY(1,1);WRITE('1 KUNDENR');GOTOXY(25,1);«, l3=0x2c}
0x1170…1195 Line {l1=0x23, l2=»WRITELN(NR(1)*10000.0+NR(2):10:-2);«, l3=0x23}
0x1195…119b Line {l1=0x04, l2=»END;«, l3=0x04}
0x119b…11a4 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x11a4…11e5 Line {l1=0x3f, l2=»GOTOXY(1,2);WRITE('2 KUNDENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3f}
0x11e5…11eb Line {l1=0x04, l2=»END;«, l3=0x04}
0x11eb…11f4 Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x11f4…123a Line {l1=0x44, l2=»GOTOXY(1,3);WRITE('3 NAVNEUDVIDELSE');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x44}
0x123a…1240 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1240…1249 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x1249…1288 Line {l1=0x3d, l2=»GOTOXY(1,4);WRITE('4 ADRESSE');GOTOXY(30,4);WRITELN(NAVN(3));«, l3=0x3d}
0x1288…128e Line {l1=0x04, l2=»END;«, l3=0x04}
0x128e…1297 Line {l1=0x07, l2=»5:BEGIN«, l3=0x07}
0x1297…12d6 Line {l1=0x3d, l2=»GOTOXY(1,5);WRITE('5 LANDSBY');GOTOXY(30,5);WRITELN(LANDSBY);«, l3=0x3d}
0x12d6…12dc Line {l1=0x04, l2=»END;«, l3=0x04}
0x12dc…12e5 Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x12e5…1322 Line {l1=0x3b, l2=»GOTOXY(1,6);WRITE('6 POSTNR');GOTOXY(30,6);WRITELN(POSTNR);«, l3=0x3b}
0x1322…1328 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1328…1331 Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x1331…1368 Line {l1=0x35, l2=»GOTOXY(1,8);WRITE('8 TLF');GOTOXY(30,8);WRITELN(TLF);«, l3=0x35}
0x1368…136e Line {l1=0x04, l2=»END;«, l3=0x04}
0x136e…1377 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x1377…13b1 Line {l1=0x38, l2=»GOTOXY(1,7);WRITE('7 LAND, 8 FOR DANMARK');GOTOXY(30,7);«, l3=0x38}
0x13b1…13c2 Line {l1=0x0f, l2=»WRITELN(NR(7));«, l3=0x0f}
0x13c2…13c8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x13c8…13d1 Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x13d1…140c Line {l1=0x39, l2=»GOTOXY(1,9);WRITE('9 BETALINGSADRESSE J/N');GOTOXY(36,9);«, l3=0x39}
0x140c…143d Line {l1=0x2f, l2=»IF NR(3)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x2f}
0x143d…1443 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1443…144d Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x144d…147c Line {l1=0x2d, l2=»GOTOXY(40,9);WRITE('10 KÆDENR');GOTOXY(65,9);«, l3=0x2d}
0x147c…149f Line {l1=0x21, l2=»WRITELN(NR(4)*10000.0+NR(5):7:-2)«, l3=0x21}
0x149f…14a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14a5…14af Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x14af…14f8 Line {l1=0x47, l2=»GOTOXY(1,10);WRITE('11 RESTORDREKODE');GOTOXY(27,10);WRITELN(NR(6):10);«, l3=0x47}
0x14f8…14fe Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x150a…151a Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x151a…1521 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1521…1530 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1530…153b Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x153b…1545 Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x1545…157d Line {l1=0x36, l2=»GOTOXY(40,10);WRITE('12 BETALINGSKODE');GOTOXY(65,10);«, l3=0x36}
0x157d…1590 Line {l1=0x11, l2=»WRITELN(NR(8):7);«, l3=0x11}
0x1590…1596 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1596…15a0 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x15a0…15e9 Line {l1=0x47, l2=»GOTOXY(1,11);WRITE('13 LEVERINGSKODE');GOTOXY(27,11);WRITELN(NR(9):10);«, l3=0x47}
0x15e9…15ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x15ef…15f9 Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x15f9…163f Line {l1=0x44, l2=»GOTOXY(40,11);WRITE('14 RENTEKODE');GOTOXY(65,11);WRITELN(NR(10):7);«, l3=0x44}
0x163f…1645 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1645…165e Line {l1=0x17, l2=»15:IF KODE>0 THEN BEGIN«, l3=0x17}
0x165e…16a2 Line {l1=0x42, l2=»GOTOXY(1,12);WRITE('15 RABAT %');GOTOXY(27,12);WRITELN(NR(17):10);«, l3=0x42}
0x16a2…16a8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x16a8…16b2 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x16b2…16f9 Line {l1=0x45, l2=»GOTOXY(40,12);WRITE('16 EXPORTKODE');GOTOXY(65,12);WRITELN(NR(18):7);«, l3=0x45}
0x16f9…16ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x16ff…1709 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x1709…1740 Line {l1=0x35, l2=»GOTOXY(1,13);WRITE('17 EMBALLAGE J/N');GOTOXY(36,13);«, l3=0x35}
0x1740…1772 Line {l1=0x30, l2=»IF NR(15)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x1772…1778 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1778…1782 Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x1782…17c2 Line {l1=0x3e, l2=»GOTOXY(40,13);WRITE('18 BRÆKAGEFORSIKRING J/N');GOTOXY(71,13);«, l3=0x3e}
0x17c2…17f4 Line {l1=0x30, l2=»IF NR(16)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x17f4…17fa Line {l1=0x04, l2=»END;«, l3=0x04}
0x17fa…1813 Line {l1=0x17, l2=»19:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1813…184c Line {l1=0x37, l2=»GOTOXY(1,14);WRITE('19 SALDO 0-15 DAGE');GOTOXY(25,14);«, l3=0x37}
0x184c…186c Line {l1=0x1e, l2=»WRITELN(SALDOKØB(1)/100:12:2);«, l3=0x1e}
0x186c…1872 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1872…188b Line {l1=0x17, l2=»20:IF KODE>0 THEN BEGIN«, l3=0x17}
0x188b…18c6 Line {l1=0x39, l2=»GOTOXY(40,14);WRITE('20 SALDO 16-30 DAGE');GOTOXY(60,14);«, l3=0x39}
0x18c6…18e6 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(2)/100:12:2);«, l3=0x1e}
0x18e6…18ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x18ec…1905 Line {l1=0x17, l2=»21:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1905…193f Line {l1=0x38, l2=»GOTOXY(1,15);WRITE('21 SALDO 30-45 DAGE');GOTOXY(25,15);«, l3=0x38}
0x193f…195f Line {l1=0x1e, l2=»WRITELN(SALDOKØB(3)/100:12:2);«, l3=0x1e}
0x195f…1965 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1965…197e Line {l1=0x17, l2=»22:IF KODE>0 THEN BEGIN«, l3=0x17}
0x197e…19b9 Line {l1=0x39, l2=»GOTOXY(40,15);WRITE('22 SALDO 45-60 DAGE');GOTOXY(60,15);«, l3=0x39}
0x19b9…19d9 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(4)/100:12:2);«, l3=0x1e}
0x19d9…19df Line {l1=0x04, l2=»END;«, l3=0x04}
0x19df…19f8 Line {l1=0x17, l2=»23:IF KODE>0 THEN BEGIN«, l3=0x17}
0x19f8…1a2e Line {l1=0x34, l2=»GOTOXY(1,16);WRITE('23 ÆLDRE SALDO1');GOTOXY(25,16);«, l3=0x34}
0x1a2e…1a4e Line {l1=0x1e, l2=»WRITELN(SALDOKØB(5)/100:12:2);«, l3=0x1e}
0x1a4e…1a54 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a54…1a6d Line {l1=0x17, l2=»24:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1a6d…1aa4 Line {l1=0x35, l2=»GOTOXY(40,16);WRITE('24 ÆLDRE SALDO2');GOTOXY(60,16);«, l3=0x35}
0x1aa4…1ac4 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(6)/100:12:2);«, l3=0x1e}
0x1ac4…1aca Line {l1=0x04, l2=»END;«, l3=0x04}
0x1aca…1ae3 Line {l1=0x17, l2=»25:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1ae3…1b19 Line {l1=0x34, l2=»GOTOXY(1,17);WRITE('25 MÅNEDENS KØB');GOTOXY(25,17);«, l3=0x34}
0x1b19…1b39 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(8)/100:12:2);«, l3=0x1e}
0x1b39…1b3f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b3f…1b58 Line {l1=0x17, l2=»26:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1b58…1b8c Line {l1=0x32, l2=»GOTOXY(40,17);WRITE('26 ÅRETS KØB');GOTOXY(60,17);«, l3=0x32}
0x1b8c…1bac Line {l1=0x1e, l2=»WRITELN(SALDOKØB(7)/100:12:2);«, l3=0x1e}
0x1bac…1bb2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bb2…1bb7 Line {l1=0x03, l2=»END«, l3=0x03}
0x1bb7…1bbd Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bbd…1bcd Line {l1=0x0e, l2=»PROCEDURE PR3;«, l3=0x0e}
0x1bcd…1bd4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1bd4…1be3 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1be3…1bee Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x1bee…1bf8 Line {l1=0x08, l2=»27:BEGIN«, l3=0x08}
0x1bf8…1c30 Line {l1=0x36, l2=»GOTOXY(1,18);WRITE('27 SIDSTE ÅRS KØB');GOTOXY(25,18);«, l3=0x36}
0x1c30…1c50 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(9)/100:12:2);«, l3=0x1e}
0x1c50…1c56 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c56…1c60 Line {l1=0x08, l2=»28:BEGIN«, l3=0x08}
0x1c60…1c93 Line {l1=0x31, l2=»GOTOXY(40,18);WRITELN('28 KREDITDAGE',NR(11):19);«, l3=0x31}
0x1c93…1c99 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c99…1ca3 Line {l1=0x08, l2=»29:BEGIN«, l3=0x08}
0x1ca3…1cd4 Line {l1=0x2f, l2=»GOTOXY(1,19);WRITELN('29 FAKTURAER',NR(12):24);«, l3=0x2f}
0x1cd4…1cda Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cda…1ce4 Line {l1=0x08, l2=»30:BEGIN«, l3=0x08}
0x1ce4…1d2e Line {l1=0x48, l2=»GOTOXY(40,19);WRITELN('30 S. FAKTURA DATO',NR(13)*10000.0+NR(14):14:-2);«, l3=0x48}
0x1d2e…1d34 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d34…1d3e Line {l1=0x08, l2=»31:BEGIN«, l3=0x08}
0x1d3e…1d74 Line {l1=0x34, l2=»GOTOXY(1,20);WRITELN('31 RENTEFRI SALDO',NR(19):19);«, l3=0x34}
0x1d74…1d7a Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d7a…1d84 Line {l1=0x08, l2=»32:BEGIN«, l3=0x08}
0x1d84…1dbf Line {l1=0x39, l2=»GOTOXY(40,20);WRITELN('32 PERIODER TIL RENTE',NR(20):11);«, l3=0x39}
0x1dbf…1dc5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1dc5…1dcf Line {l1=0x08, l2=»33:BEGIN«, l3=0x08}
0x1dcf…1dfc Line {l1=0x2b, l2=»GOTOXY(1,21);WRITE('33 LUKKET FOR KREDIT');«, l3=0x2b}
0x1dfc…1e0c Line {l1=0x0e, l2=»GOTOXY(36,21);«, l3=0x0e}
0x1e0c…1e3e Line {l1=0x30, l2=»IF NR(23)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x1e3e…1e44 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e44…1e49 Line {l1=0x03, l2=»END«, l3=0x03}
0x1e49…1e4f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e4f…1e56 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e56…1e66 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x1e66…1e6f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1e6f…1e93 Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x1e93…1e9d Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1e9d…1ec2 Line {l1=0x23, l2=» IF (12<=O) AND (O<=26) THEN PR2«, l3=0x23}
0x1ec2…1ecc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1ecc…1f0a Line {l1=0x3c, l2=» IF (27<=O) AND (O<=34) THEN BEGIN IF KODE>0 THEN PR3 END«, l3=0x3c}
0x1f0a…1f14 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1f14…1f1f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1f1f…1f34 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x1f34…1f53 Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x1f53…1f73 Line {l1=0x1e, l2=» FOR O:=12 TO 26 DO PR2;«, l3=0x1e}
0x1f73…1fa1 Line {l1=0x2c, l2=» FOR O:=27 TO 34 DO IF KODE>0 THEN PR3«, l3=0x2c}
0x1fa1…1faa Line {l1=0x07, l2=» END«, l3=0x07}
0x1faa…1fb1 Line {l1=0x05, l2=» END«, l3=0x05}
0x1fb1…1fb7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fb7…1fd6 Line {l1=0x1d, l2=»PROCEDURE KUNDOPL(O:INTEGER);«, l3=0x1d}
0x1fd6…1fea Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x1fea…1ffa Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x1ffa…201b Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x201b…202a Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x202a…2031 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2031…203b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x203b…2050 Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x2050…2060 Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x2060…2072 Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x2072…2087 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2087…2093 Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x2093…2099 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2099…20b7 Line {l1=0x1c, l2=»PROCEDURE INCH(X,Y:INTEGER);«, l3=0x1c}
0x20b7…20be Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20be…20c8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x20c8…20dd Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x20dd…20ed Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x20ed…2101 Line {l1=0x12, l2=» READ(CHAR1)«, l3=0x12}
0x2101…2143 Line {l1=0x40, l2=» UNTIL (CHAR1='N') OR (CHAR1='J') OR (CHAR1='n') OR (CHAR1='j')«, l3=0x40}
0x2143…2149 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2149…215a Line {l1=0x0f, l2=»PROCEDURE OPL1;«, l3=0x0f}
0x215a…2161 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2161…2172 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x2172…217f Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x217f…2194 Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x2194…21bd Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x21bd…21dd Line {l1=0x1e, l2=» UNTIL LENGTH(STRENG)<5;«, l3=0x1e}
0x21dd…21ff Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x21ff…223c Line {l1=0x3b, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I);«, l3=0x3b}
0x223c…224b Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x224b…2276 Line {l1=0x29, l2=» GOTOXY(34,2);READLN;READ(STRENG)«, l3=0x29}
0x2276…2297 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<27;«, l3=0x1f}
0x2297…22db Line {l1=0x42, l2=» FOR I:=5 TO LENGTH(STRENG)+4 DO NAVN(1,I):=STRENG(I-4) END;«, l3=0x42}
0x22db…22f0 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x22f0…2319 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x2319…233a Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x233a…235c Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x235c…239c Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x239c…23b1 Line {l1=0x13, l2=» 4: BEGIN REPEAT«, l3=0x13}
0x23b1…23da Line {l1=0x27, l2=» GOTOXY(30,4);READLN;READ(STRENG)«, l3=0x27}
0x23da…23fb Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x23fb…241d Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x241d…245d Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(3,I):=STRENG(I) END;«, l3=0x3e}
0x245d…2472 Line {l1=0x13, l2=» 5: BEGIN REPEAT«, l3=0x13}
0x2472…249b Line {l1=0x27, l2=» GOTOXY(30,5);READLN;READ(STRENG)«, l3=0x27}
0x249b…24bc Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x24bc…24de Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x24de…251f Line {l1=0x3f, l2=» FOR I:=1 TO LENGTH(STRENG) DO LANDSBY(I):=STRENG(I) END;«, l3=0x3f}
0x251f…2534 Line {l1=0x13, l2=» 6: BEGIN REPEAT«, l3=0x13}
0x2534…255d Line {l1=0x27, l2=» GOTOXY(30,6);READLN;READ(STRENG)«, l3=0x27}
0x255d…257e Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<26;«, l3=0x1f}
0x257e…259f Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x259f…25df Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO POSTNR(I):=STRENG(I) END;«, l3=0x3e}
0x25df…25f4 Line {l1=0x13, l2=» 8: BEGIN REPEAT«, l3=0x13}
0x25f4…261d Line {l1=0x27, l2=» GOTOXY(30,8);READLN;READ(STRENG)«, l3=0x27}
0x261d…263e Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<11;«, l3=0x1f}
0x263e…265c Line {l1=0x1c, l2=» FILLCHAR(TLF,10,' ');«, l3=0x1c}
0x265c…2699 Line {l1=0x3b, l2=» FOR I:=1 TO LENGTH(STRENG) DO TLF(I):=STRENG(I) END;«, l3=0x3b}
0x2699…26a8 Line {l1=0x0d, l2=» 7: REPEAT«, l3=0x0d}
0x26a8…26d0 Line {l1=0x26, l2=» GOTOXY(30,7);READLN;READ(NR(7))«, l3=0x26}
0x26d0…270b Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(7)>0) AND (NR(7)<1000);«, l3=0x39}
0x270b…2719 Line {l1=0x0c, l2=» 9: BEGIN«, l3=0x0c}
0x2719…272d Line {l1=0x12, l2=» INCH(36,9);«, l3=0x12}
0x272d…2774 Line {l1=0x45, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(3):=0 ELSE NR(3):=1 END;«, l3=0x45}
0x2774…2789 Line {l1=0x13, l2=» 10: BEGIN REPEAT«, l3=0x13}
0x2789…279e Line {l1=0x13, l2=» R:=LÆS(67,9)«, l3=0x13}
0x279e…27d0 Line {l1=0x30, l2=» UNTIL (R>9999) AND (R<100000.0) OR (R=0);«, l3=0x30}
0x27d0…27ef Line {l1=0x1d, l2=» NR(4):=TRUNC(R/10000);«, l3=0x1d}
0x27ef…2815 Line {l1=0x24, l2=» NR(5):=TRUNC(R-NR(4)*10000.0)«, l3=0x24}
0x2815…2822 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2822…2831 Line {l1=0x0d, l2=» 11: REPEAT«, l3=0x0d}
0x2831…285a Line {l1=0x27, l2=» GOTOXY(36,10);READLN;READ(NR(6))«, l3=0x27}
0x285a…2895 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(6)>=0) AND (NR(6)<100);«, l3=0x39}
0x2895…28a4 Line {l1=0x0d, l2=» 12: REPEAT«, l3=0x0d}
0x28a4…28cd Line {l1=0x27, l2=» GOTOXY(71,10);READLN;READ(NR(8))«, l3=0x27}
0x28cd…2908 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(8)>=0) AND (NR(8)<100);«, l3=0x39}
0x2908…2917 Line {l1=0x0d, l2=» 13: REPEAT«, l3=0x0d}
0x2917…2940 Line {l1=0x27, l2=» GOTOXY(36,11);READLN;READ(NR(9))«, l3=0x27}
0x2940…297b Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(9)>=0) AND (NR(9)<100);«, l3=0x39}
0x297b…298a Line {l1=0x0d, l2=» 14: REPEAT«, l3=0x0d}
0x298a…29b4 Line {l1=0x28, l2=» GOTOXY(71,11);READLN;READ(NR(10))«, l3=0x28}
0x29b4…29f1 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(10)>=0) AND (NR(10)<100);«, l3=0x3b}
0x29f1…2a00 Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x2a00…2a2a Line {l1=0x28, l2=» GOTOXY(35,12);READLN;READ(NR(17))«, l3=0x28}
0x2a2a…2a67 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(17)>=0) AND (NR(17)<100);«, l3=0x3b}
0x2a67…2a6e Line {l1=0x05, l2=» END«, l3=0x05}
0x2a6e…2a74 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2a74…2a85 Line {l1=0x0f, l2=»PROCEDURE OPL2;«, l3=0x0f}
0x2a85…2a8c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a8c…2a9d Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x2a9d…2aaa Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x2aaa…2ab9 Line {l1=0x0d, l2=» 16: REPEAT«, l3=0x0d}
0x2ab9…2ae3 Line {l1=0x28, l2=» GOTOXY(71,12);READLN;READ(NR(18))«, l3=0x28}
0x2ae3…2b20 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(18)>=0) AND (NR(18)<100);«, l3=0x3b}
0x2b20…2b2e Line {l1=0x0c, l2=» 17: BEGIN«, l3=0x0c}
0x2b2e…2b43 Line {l1=0x13, l2=» INCH(36,13);«, l3=0x13}
0x2b43…2b8c Line {l1=0x47, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(15):=0 ELSE NR(15):=1 END;«, l3=0x47}
0x2b8c…2b9a Line {l1=0x0c, l2=» 18: BEGIN«, l3=0x0c}
0x2b9a…2baf Line {l1=0x13, l2=» INCH(71,13);«, l3=0x13}
0x2baf…2bf8 Line {l1=0x47, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(16):=0 ELSE NR(16):=1 END;«, l3=0x47}
0x2bf8…2c01 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x2c01…2c1f Line {l1=0x1c, l2=»SALDOKØB(1):=LÆS(25,14)*100;«, l3=0x1c}
0x2c1f…2c27 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x2c27…2c45 Line {l1=0x1c, l2=»SALDOKØB(2):=LÆS(65,14)*100;«, l3=0x1c}
0x2c45…2c4e Line {l1=0x07, l2=» 21: «, l3=0x07}
0x2c4e…2c6c Line {l1=0x1c, l2=»SALDOKØB(3):=LÆS(25,15)*100;«, l3=0x1c}
0x2c6c…2c75 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x2c75…2c93 Line {l1=0x1c, l2=»SALDOKØB(4):=LÆS(65,15)*100;«, l3=0x1c}
0x2c93…2c9c Line {l1=0x07, l2=» 23: «, l3=0x07}
0x2c9c…2cba Line {l1=0x1c, l2=»SALDOKØB(5):=LÆS(25,16)*100;«, l3=0x1c}
0x2cba…2cde Line {l1=0x22, l2=» 24: SALDOKØB(6):=LÆS(65,16)*100;«, l3=0x22}
0x2cde…2d02 Line {l1=0x22, l2=» 25: SALDOKØB(8):=LÆS(25,17)*100;«, l3=0x22}
0x2d02…2d26 Line {l1=0x22, l2=» 26: SALDOKØB(7):=LÆS(65,17)*100;«, l3=0x22}
0x2d26…2d4a Line {l1=0x22, l2=» 27: SALDOKØB(9):=LÆS(25,18)*100;«, l3=0x22}
0x2d4a…2d59 Line {l1=0x0d, l2=» 28: REPEAT«, l3=0x0d}
0x2d59…2d83 Line {l1=0x28, l2=» GOTOXY(69,18);READLN;READ(NR(11))«, l3=0x28}
0x2d83…2d9d Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2d9d…2dac Line {l1=0x0d, l2=» 29: REPEAT«, l3=0x0d}
0x2dac…2dd6 Line {l1=0x28, l2=» GOTOXY(31,19);READLN;READ(NR(12))«, l3=0x28}
0x2dd6…2df0 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2df0…2e05 Line {l1=0x13, l2=» 30: BEGIN REPEAT«, l3=0x13}
0x2e05…2e1b Line {l1=0x14, l2=» R:=LÆS(64,19)«, l3=0x14}
0x2e1b…2e48 Line {l1=0x2b, l2=» UNTIL (R>800000.0) AND (R<850000.0);«, l3=0x2b}
0x2e48…2e68 Line {l1=0x1e, l2=» NR(13):=TRUNC(R/10000);«, l3=0x1e}
0x2e68…2e90 Line {l1=0x26, l2=» NR(14):=TRUNC(R-NR(13)*10000.0)«, l3=0x26}
0x2e90…2e9d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2e9d…2eac Line {l1=0x0d, l2=» 31: REPEAT«, l3=0x0d}
0x2eac…2ed6 Line {l1=0x28, l2=» GOTOXY(31,20);READLN;READ(NR(19))«, l3=0x28}
0x2ed6…2ef0 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2ef0…2eff Line {l1=0x0d, l2=» 32: REPEAT«, l3=0x0d}
0x2eff…2f29 Line {l1=0x28, l2=» GOTOXY(71,20);READLN;READ(NR(20))«, l3=0x28}
0x2f29…2f43 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2f43…2f51 Line {l1=0x0c, l2=» 33: BEGIN«, l3=0x0c}
0x2f51…2f66 Line {l1=0x13, l2=» INCH(36,21);«, l3=0x13}
0x2f66…2faa Line {l1=0x42, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(23):=0 ELSE NR(23):=1«, l3=0x42}
0x2faa…2fb7 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2fb7…2fcc Line {l1=0x13, l2=» 34: BEGIN REPEAT«, l3=0x13}
0x2fcc…2fe2 Line {l1=0x14, l2=» R:=LÆS(65,21)«, l3=0x14}
0x2fe2…300b Line {l1=0x27, l2=» UNTIL (R>9999) AND (R<100000.0);«, l3=0x27}
0x300b…302b Line {l1=0x1e, l2=» NR(21):=TRUNC(R/10000);«, l3=0x1e}
0x302b…3053 Line {l1=0x26, l2=» NR(22):=TRUNC(R-NR(21)*10000.0)«, l3=0x26}
0x3053…3060 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3060…3069 Line {l1=0x07, l2=» END«, l3=0x07}
0x3069…306f Line {l1=0x04, l2=»END;«, l3=0x04}
0x306f…3076 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3076…3096 Line {l1=0x1e, l2=» IF O<=15 THEN OPL1 ELSE OPL2«, l3=0x1e}
0x3096…309c Line {l1=0x04, l2=»END;«, l3=0x04}
0x309c…30af Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x30af…30b6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x30b6…30c7 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x30c7…30d0 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x30d0…30f4 Line {l1=0x22, l2=» FOR I:=1 TO 23 DO NR(I):=0;«, l3=0x22}
0x30f4…311f Line {l1=0x29, l2=» FOR I:=1 TO 9 DO SALDOKØB(I):=0.0;«, l3=0x29}
0x311f…3141 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x3141…3163 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x3163…3185 Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x3185…31a7 Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x31a7…31c8 Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x31c8…31e6 Line {l1=0x1c, l2=» FILLCHAR(TLF,10,' ');«, l3=0x1c}
0x31e6…31ed Line {l1=0x05, l2=» END«, l3=0x05}
0x31ed…31f3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x31f3…3208 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x3208…3225 Line {l1=0x1b, l2=»VAR EXC,I,O,P,KODE:INTEGER;«, l3=0x1b}
0x3225…323b Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x323b…324f Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x324f…3268 Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x3268…326f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x326f…3297 Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x3297…32a7 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x32a7…32ce Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x32ce…32f4 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x32f4…3300 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x3300…3322 Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x3322…3344 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x3344…334e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x3358…33a6 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x33a6…33cb Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x33cb…3408 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x3408…3415 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x3415…3433 Line {l1=0x1c, l2=» 1: IF ÆNDRE=1 THEN BEGIN«, l3=0x1c}
0x3433…3444 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x3444…3460 Line {l1=0x1a, l2=» PRKUNOPL(-1,KODE);«, l3=0x1a}
0x3460…3487 Line {l1=0x25, l2=» FOR I:=2 TO 18 DO KUNDOPL(I);«, l3=0x25}
0x3487…34a3 Line {l1=0x1a, l2=» PRKUNOPL(-1,KODE);«, l3=0x1a}
0x34a3…34b3 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x34b3…3502 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x3502…352a Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x352a…355d Line {l1=0x31, l2=» IF ((O>1) AND (O<=18)) THEN KUNDOPL(O);«, l3=0x31}
0x355d…3578 Line {l1=0x19, l2=» PRKUNOPL(O,KODE)«, l3=0x19}
0x3578…358c Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x358c…35a4 Line {l1=0x16, l2=» KNAVN:=' ';«, l3=0x16}
0x35a4…35db Line {l1=0x35, l2=» FOR I:=1 TO 4 DO KNAVN(I):=KUNDE.NAVN(1,4+I);«, l3=0x35}
0x35db…35f7 Line {l1=0x1a, l2=» NANU(KNAVN,N1,N2);«, l3=0x1a}
0x35f7…3611 Line {l1=0x18, l2=» KUNDE.NR(1):=N1;«, l3=0x18}
0x3611…362b Line {l1=0x18, l2=» KUNDE.NR(2):=N2;«, l3=0x18}
0x362b…363c Line {l1=0x0f, l2=» EXC:=0;«, l3=0x0f}
0x363c…364c Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x364c…366d Line {l1=0x1f, l2=» INSERT(KZ.H,F,KUNDE.A);«, l3=0x1f}
0x366d…3685 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x3685…3694 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3694…36bb Line {l1=0x25, l2=» KUNDE.NR(2):=KUNDE.NR(2)+1;«, l3=0x25}
0x36bb…36d2 Line {l1=0x15, l2=» EXC:=EXC+1;«, l3=0x15}
0x36d2…36f7 Line {l1=0x23, l2=» IF KUNDE.NR(2)=10000 THEN«, l3=0x23}
0x36f7…3708 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3708…3731 Line {l1=0x27, l2=» KUNDE.NR(1):=KUNDE.NR(1)+1;«, l3=0x27}
0x3731…374d Line {l1=0x1a, l2=» KUNDE.NR(2):=0«, l3=0x1a}
0x374d…375c Line {l1=0x0d, l2=» END«, l3=0x0d}
0x375c…3769 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3769…3777 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3777…3795 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x3795…37ab Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x37ab…37c6 Line {l1=0x19, l2=» PRKUNOPL(1,KODE);«, l3=0x19}
0x37c6…3805 Line {l1=0x3d, l2=» IF EXC>SYSFIL^.HELTAL(4) THEN SYSFIL^.HELTAL(4):=EXC;«, l3=0x3d}
0x3805…3812 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3812…3820 Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x3820…3835 Line {l1=0x13, l2=» FINDKUND;«, l3=0x13}
0x3835…384e Line {l1=0x17, l2=» IF R<>0.0 THEN«, l3=0x17}
0x384e…385e Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x385e…387b Line {l1=0x1b, l2=» PRKUNOPL(-1,KODE);«, l3=0x1b}
0x387b…3895 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x3895…38a6 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x38b7…3906 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x3906…392e Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x392e…3965 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));«, l3=0x35}
0x3965…3979 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x3979…39a5 Line {l1=0x2a, l2=»19,20,21,22,23,24,25,26,27,28,29,30: BEGIN«, l3=0x2a}
0x39a5…39d3 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x39d3…3a14 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x3a14…3a43 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x3a43…3a88 Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x3a88…3acb Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x3acb…3afe Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x3afe…3b24 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x3b24…3b5f Line {l1=0x39, l2=» KUNDOPL(O);CHANGED:=TRUE«, l3=0x39}
0x3b5f…3b83 Line {l1=0x22, l2=» END«, l3=0x22}
0x3b83…3ba2 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x3ba2…3bd7 Line {l1=0x33, l2=»10,11,12,13,14,15,16,17,18,31,32,33: IF KODE=2 THEN«, l3=0x33}
0x3bd7…3bf9 Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x3bf9…3c30 Line {l1=0x35, l2=» KUNDOPL(O);CHANGED:=TRUE«, l3=0x35}
0x3c30…3c55 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x3c55…3c7f Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x3c7f…3cce Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x3cce…3ce9 Line {l1=0x19, l2=» END;«, l3=0x19}
0x3ce9…3d1c Line {l1=0x31, l2=»3,4,5,6,7,8,9 :BEGIN KUNDOPL(O);CHANGED:=TRUE END«, l3=0x31}
0x3d1c…3d31 Line {l1=0x13, l2=» END;«, l3=0x13}
0x3d31…3d4c Line {l1=0x19, l2=» PRKUNOPL(O,KODE)«, l3=0x19}
0x3d4c…3d61 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x3d61…3d93 Line {l1=0x30, l2=» IF CHANGED THEN PUTREC(KZ.H,F,KUNDE.A);«, l3=0x30}
0x3d93…3da1 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x3da1…3dad Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3dad…3dca Line {l1=0x1b, l2=» 3: IF ÆNDRE=1 THEN BEGIN«, l3=0x1b}
0x3dca…3ddd Line {l1=0x11, l2=» FINDKUND;«, l3=0x11}
0x3ddd…3df5 Line {l1=0x16, l2=» IF R<>0.0 THEN«, l3=0x16}
0x3df5…3e04 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3e04…3e22 Line {l1=0x1c, l2=» PRKUNOPL(-1,KODE);«, l3=0x1c}
0x3e22…3e3c Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x3e3c…3e55 Line {l1=0x17, l2=» WITH KUNDE DO«, l3=0x17}
0x3e55…3e66 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3e66…3e7d Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x3e7d…3ecc Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x3ecc…3ef9 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x3ef9…3f1b Line {l1=0x20, l2=» UNTIL IORESULT=0;«, l3=0x20}
0x3f1b…3f3a Line {l1=0x1d, l2=» IF O=4711 THEN«, l3=0x1d}
0x3f3a…3f50 Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x3f50…3f7a Line {l1=0x28, l2=» DELETE(KZ.H,F,KUNDE.A);«, l3=0x28}
0x3f7a…3f9f Line {l1=0x23, l2=» PRKUNOPL(-1,KODE);«, l3=0x23}
0x3f9f…3fc6 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x3fc6…3fda Line {l1=0x12, l2=» END«, l3=0x12}
0x3fda…3feb Line {l1=0x0f, l2=» END«, l3=0x0f}
0x3feb…3ffd Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3ffd…4010 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x4010…402e Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x402e…4074 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x4074…4085 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4085…4093 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x4093…409e Line {l1=0x09, l2=» END«, l3=0x09}
0x409e…40a6 Line {l1=0x06, l2=» END«, l3=0x06}
0x40a6…40b4 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x40b4…40ba Line {l1=0x04, l2=»END;«, l3=0x04}
0x40ba…40c1 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x40c1…40d1 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x40d1…40f1 Line {l1=0x1e, l2=» WRITELN('0 Kikke, 1 Ændre');«, l3=0x1e}
0x40f1…40fb Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x40fb…410e Line {l1=0x11, l2=» GOTOXY(18,1);«, l3=0x11}
0x410e…4126 Line {l1=0x16, l2=» READLN;READ(ÆNDRE)«, l3=0x16}
0x4126…415b Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);«, l3=0x33}
0x415b…415e Line {l1=0x01, l2=» «, l3=0x01}
0x415e…4180 Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:0000:I';«, l3=0x20}
0x4180…4193 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x4193…41c4 Line {l1=0x2f, l2=» REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);«, l3=0x2f}
0x41c4…41d7 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x41d7…421d Line {l1=0x44, l2=» IOPEN(KZ.H,F,SKRIV) ELSE IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x44}
0x421d…423b Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x423b…4258 Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x4258…426b Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x426b…427b Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x427b…4293 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x4293…42a4 Line {l1=0x0f, l2=» KODE2:=KODE1;«, l3=0x0f}
0x42a4…42b9 Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x42b9…42c2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x42c2…42e4 Line {l1=0x20, l2=» KODE1(I):=SYSFIL^.KODE(1,I);«, l3=0x20}
0x42e4…4305 Line {l1=0x1f, l2=» KODE2(I):=SYSFIL^.KODE(2,I)«, l3=0x1f}
0x4305…430d Line {l1=0x06, l2=» END;«, l3=0x06}
0x430d…4336 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x4336…433d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x433d…434a Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x434a…4350 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4350…4363 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x4363…4373 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4373…438e Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x438e…43a1 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x43a1…43b1 Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x43b1…43c3 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x43c3…43e9 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x43e9…43ef Line {l1=0x04, l2=»END.«, l3=0x04}
0x43ef…4400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x4400…4420 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 ┆ ┆
[…0xac…]