|
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: 17696 (0x4520)
Types: TextFile
Notes: Mikados_K
Names: »KUNDVEDL.K«
└─⟦206949bb3⟧ Bits:30004653 Kunderegister P1 til messe (MIKADOS)
└─⟦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*)
(*$IINITIATE*)
(*$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: NR(7):=8;
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 8 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
IF KZ.H.RECINUSE<1 THEN INITIATE(KZ.H,F,1);
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=»(*$IINITIATE*)«, l3=0x0e}
0x04d0…04e0 Line {l1=0x0e, l2=»(*$IREADPROC*)«, l3=0x0e}
0x04e0…04f0 Line {l1=0x0e, l2=»(*$IFINDPOST*)«, l3=0x0e}
0x04f0…04ff Line {l1=0x0d, l2=»(*$IFORSKYD*)«, l3=0x0d}
0x04ff…050d Line {l1=0x0c, l2=»(*$IICLOSE*)«, l3=0x0c}
0x050d…051b Line {l1=0x0c, l2=»(*$IPUTGET*)«, l3=0x0c}
0x051b…0529 Line {l1=0x0c, l2=»(*$IINSERT*)«, l3=0x0c}
0x0529…0538 Line {l1=0x0d, l2=»(*$INEXTREC*)«, l3=0x0d}
0x0538…0546 Line {l1=0x0c, l2=»(*$IDELETE*)«, l3=0x0c}
0x0546…054f Line {l1=0x07, l2=»(*$R+*)«, l3=0x07}
0x054f…0558 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0558…0569 Line {l1=0x0f, l2=»PROCEDURE STOP;«, l3=0x0f}
0x0569…0579 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0579…0590 Line {l1=0x15, l2=»BEGIN I:=I DIV 0 END;«, l3=0x15}
0x0590…05a2 Line {l1=0x10, l2=»PROCEDURE ERROR;«, l3=0x10}
0x05a2…05a9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x05a9…05cd Line {l1=0x22, l2=» WRITELN('FEJL I KUNDEREG ',IER);«, l3=0x22}
0x05cd…05e0 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x05e0…05fb Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x05fb…0603 Line {l1=0x06, l2=» STOP«, l3=0x06}
0x0603…0609 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0609…061b Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x061b…0622 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0622…0633 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0633…0678 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0678…06a8 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x06a8…06e1 Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x06e1…06f8 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x06f8…0707 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0707…070d Line {l1=0x04, l2=»END;«, l3=0x04}
0x070d…0741 Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0741…0751 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0751…075e Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x075e…0765 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0765…0770 Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0770…0797 Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0797…07af Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x07af…07c8 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x07c8…07e0 Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x07e0…07fd Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x07fd…0803 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0803…0818 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0818…0833 Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x0833…0847 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0847…085b Line {l1=0x12, l2=» R1,R2:REAL;«, l3=0x12}
0x085b…0862 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0862…086c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x086c…0877 Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0877…0888 Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0888…089a Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x089a…08c0 Line {l1=0x24, l2=» WRITELN('KUNDEVEDLIGEHOLDELSE');«, l3=0x24}
0x08c0…08d2 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x08d2…090c Line {l1=0x38, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN');«, l3=0x38}
0x090c…0918 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0918…0928 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0928…093c Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x093c…0963 Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0963…0986 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0986…09bd Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x09bd…09e0 Line {l1=0x21, l2=» IF R=0.0 THEN EXIT(FINDKUND);«, l3=0x21}
0x09e0…09ec Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x09ec…0a01 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x0a01…0a16 Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x0a16…0a25 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0a25…0a3d Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x0a3d…0a6d Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x0a6d…0a7f Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x0a7f…0a98 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x0a98…0ab6 Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x0ab6…0ad8 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x0ad8…0af6 Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x0af6…0b12 Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x0b12…0b2e Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x0b2e…0b4c Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x0b4c…0b6f Line {l1=0x21, l2=» GETREC(KZ.H,F,KUNDE.A);«, l3=0x21}
0x0b6f…0ba2 Line {l1=0x31, l2=» IF IER=-6 THEN NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x31}
0x0ba2…0bde Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0bde…0bee Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x0bee…0bfb Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0bfb…0c09 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x0c09…0c18 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x0c18…0c3c Line {l1=0x22, l2=» NEXTREC(KZ.H,F,KUNDE.A);«, l3=0x22}
0x0c3c…0c78 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x0c78…0ca8 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x0ca8…0ce9 Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x0ce9…0cf6 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x0cf6…0d02 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0d02…0d0f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d0f…0d37 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x0d37…0d6b Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x0d6b…0d8b Line {l1=0x1e, l2=» GETREC(KZ.H,F,KUNDE.A)«, l3=0x1e}
0x0d8b…0d97 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0d97…0dab Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x0dab…0dba Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x0dba…0dcf Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x0dcf…0ddc Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0ddc…0e23 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x0e23…0e35 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0e35…0e56 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x0e56…0e77 Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x0e77…0e97 Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x0e97…0ea9 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0ea9…0ece Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x0ece…0f03 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x0f03…0f4b Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x0f4b…0f98 Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x0f98…0fd9 Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x0fd9…0fe4 Line {l1=0x09, l2=» END«, l3=0x09}
0x0fe4…0ff0 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x0ff0…1006 Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x1006…1013 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1013…1024 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1024…103e Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x103e…1077 Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x1077…1087 Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x1087…1092 Line {l1=0x09, l2=» END«, l3=0x09}
0x1092…10a4 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x10a4…10b5 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x10b5…10e4 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (R=0.0) OR (SVAR1='j')«, l3=0x2d}
0x10e4…10ea Line {l1=0x04, l2=»END;«, l3=0x04}
0x10ea…10f3 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x10f3…1118 Line {l1=0x23, l2=»PROCEDURE PRKUNOPL(O,KODE:INTEGER);«, l3=0x23}
0x1118…1128 Line {l1=0x0e, l2=»PROCEDURE PR1;«, l3=0x0e}
0x1128…112f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x112f…113e Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x113e…1149 Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x1149…1152 Line {l1=0x07, l2=»1:BEGIN«, l3=0x07}
0x1152…1180 Line {l1=0x2c, l2=»GOTOXY(1,1);WRITE('1 KUNDENR');GOTOXY(25,1);«, l3=0x2c}
0x1180…11a5 Line {l1=0x23, l2=»WRITELN(NR(1)*10000.0+NR(2):10:-2);«, l3=0x23}
0x11a5…11ab Line {l1=0x04, l2=»END;«, l3=0x04}
0x11ab…11b4 Line {l1=0x07, l2=»2:BEGIN«, l3=0x07}
0x11b4…11f5 Line {l1=0x3f, l2=»GOTOXY(1,2);WRITE('2 KUNDENAVN');GOTOXY(30,2);WRITELN(NAVN(1));«, l3=0x3f}
0x11f5…11fb Line {l1=0x04, l2=»END;«, l3=0x04}
0x11fb…1204 Line {l1=0x07, l2=»3:BEGIN«, l3=0x07}
0x1204…124a Line {l1=0x44, l2=»GOTOXY(1,3);WRITE('3 NAVNEUDVIDELSE');GOTOXY(30,3);WRITELN(NAVN(2));«, l3=0x44}
0x124a…1250 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1250…1259 Line {l1=0x07, l2=»4:BEGIN«, l3=0x07}
0x1259…1298 Line {l1=0x3d, l2=»GOTOXY(1,4);WRITE('4 ADRESSE');GOTOXY(30,4);WRITELN(NAVN(3));«, l3=0x3d}
0x1298…129e Line {l1=0x04, l2=»END;«, l3=0x04}
0x129e…12a7 Line {l1=0x07, l2=»5:BEGIN«, l3=0x07}
0x12a7…12e6 Line {l1=0x3d, l2=»GOTOXY(1,5);WRITE('5 LANDSBY');GOTOXY(30,5);WRITELN(LANDSBY);«, l3=0x3d}
0x12e6…12ec Line {l1=0x04, l2=»END;«, l3=0x04}
0x12ec…12f5 Line {l1=0x07, l2=»6:BEGIN«, l3=0x07}
0x12f5…1332 Line {l1=0x3b, l2=»GOTOXY(1,6);WRITE('6 POSTNR');GOTOXY(30,6);WRITELN(POSTNR);«, l3=0x3b}
0x1332…1338 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1338…1341 Line {l1=0x07, l2=»8:BEGIN«, l3=0x07}
0x1341…1378 Line {l1=0x35, l2=»GOTOXY(1,8);WRITE('8 TLF');GOTOXY(30,8);WRITELN(TLF);«, l3=0x35}
0x1378…137e Line {l1=0x04, l2=»END;«, l3=0x04}
0x137e…1387 Line {l1=0x07, l2=»7:BEGIN«, l3=0x07}
0x1387…13c1 Line {l1=0x38, l2=»GOTOXY(1,7);WRITE('7 LAND, 8 FOR DANMARK');GOTOXY(30,7);«, l3=0x38}
0x13c1…13d2 Line {l1=0x0f, l2=»WRITELN(NR(7));«, l3=0x0f}
0x13d2…13d8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x13d8…13e1 Line {l1=0x07, l2=»9:BEGIN«, l3=0x07}
0x13e1…141c Line {l1=0x39, l2=»GOTOXY(1,9);WRITE('9 BETALINGSADRESSE J/N');GOTOXY(36,9);«, l3=0x39}
0x141c…144d Line {l1=0x2f, l2=»IF NR(3)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x2f}
0x144d…1453 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1453…145d Line {l1=0x08, l2=»10:BEGIN«, l3=0x08}
0x145d…148c Line {l1=0x2d, l2=»GOTOXY(40,9);WRITE('10 KÆDENR');GOTOXY(65,9);«, l3=0x2d}
0x148c…14af Line {l1=0x21, l2=»WRITELN(NR(4)*10000.0+NR(5):7:-2)«, l3=0x21}
0x14af…14b5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14b5…14bf Line {l1=0x08, l2=»11:BEGIN«, l3=0x08}
0x14bf…1508 Line {l1=0x47, l2=»GOTOXY(1,10);WRITE('11 RESTORDREKODE');GOTOXY(27,10);WRITELN(NR(6):10);«, l3=0x47}
0x1508…150e Line {l1=0x04, l2=»END;«, l3=0x04}
[…0x2…]
0x151a…152a Line {l1=0x0e, l2=»PROCEDURE PR2;«, l3=0x0e}
0x152a…1531 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1531…1540 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1540…154b Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x154b…1555 Line {l1=0x08, l2=»12:BEGIN«, l3=0x08}
0x1555…158d Line {l1=0x36, l2=»GOTOXY(40,10);WRITE('12 BETALINGSKODE');GOTOXY(65,10);«, l3=0x36}
0x158d…15a0 Line {l1=0x11, l2=»WRITELN(NR(8):7);«, l3=0x11}
0x15a0…15a6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x15a6…15b0 Line {l1=0x08, l2=»13:BEGIN«, l3=0x08}
0x15b0…15f9 Line {l1=0x47, l2=»GOTOXY(1,11);WRITE('13 LEVERINGSKODE');GOTOXY(27,11);WRITELN(NR(9):10);«, l3=0x47}
0x15f9…15ff Line {l1=0x04, l2=»END;«, l3=0x04}
0x15ff…1609 Line {l1=0x08, l2=»14:BEGIN«, l3=0x08}
0x1609…164f Line {l1=0x44, l2=»GOTOXY(40,11);WRITE('14 RENTEKODE');GOTOXY(65,11);WRITELN(NR(10):7);«, l3=0x44}
0x164f…1655 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1655…166e Line {l1=0x17, l2=»15:IF KODE>0 THEN BEGIN«, l3=0x17}
0x166e…16b2 Line {l1=0x42, l2=»GOTOXY(1,12);WRITE('15 RABAT %');GOTOXY(27,12);WRITELN(NR(17):10);«, l3=0x42}
0x16b2…16b8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x16b8…16c2 Line {l1=0x08, l2=»16:BEGIN«, l3=0x08}
0x16c2…1709 Line {l1=0x45, l2=»GOTOXY(40,12);WRITE('16 EXPORTKODE');GOTOXY(65,12);WRITELN(NR(18):7);«, l3=0x45}
0x1709…170f Line {l1=0x04, l2=»END;«, l3=0x04}
0x170f…1719 Line {l1=0x08, l2=»17:BEGIN«, l3=0x08}
0x1719…1750 Line {l1=0x35, l2=»GOTOXY(1,13);WRITE('17 EMBALLAGE J/N');GOTOXY(36,13);«, l3=0x35}
0x1750…1782 Line {l1=0x30, l2=»IF NR(15)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x1782…1788 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1788…1792 Line {l1=0x08, l2=»18:BEGIN«, l3=0x08}
0x1792…17d2 Line {l1=0x3e, l2=»GOTOXY(40,13);WRITE('18 BRÆKAGEFORSIKRING J/N');GOTOXY(71,13);«, l3=0x3e}
0x17d2…1804 Line {l1=0x30, l2=»IF NR(16)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x1804…180a Line {l1=0x04, l2=»END;«, l3=0x04}
0x180a…1823 Line {l1=0x17, l2=»19:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1823…185c Line {l1=0x37, l2=»GOTOXY(1,14);WRITE('19 SALDO 0-15 DAGE');GOTOXY(25,14);«, l3=0x37}
0x185c…187c Line {l1=0x1e, l2=»WRITELN(SALDOKØB(1)/100:12:2);«, l3=0x1e}
0x187c…1882 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1882…189b Line {l1=0x17, l2=»20:IF KODE>0 THEN BEGIN«, l3=0x17}
0x189b…18d6 Line {l1=0x39, l2=»GOTOXY(40,14);WRITE('20 SALDO 16-30 DAGE');GOTOXY(60,14);«, l3=0x39}
0x18d6…18f6 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(2)/100:12:2);«, l3=0x1e}
0x18f6…18fc Line {l1=0x04, l2=»END;«, l3=0x04}
0x18fc…1915 Line {l1=0x17, l2=»21:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1915…194f Line {l1=0x38, l2=»GOTOXY(1,15);WRITE('21 SALDO 30-45 DAGE');GOTOXY(25,15);«, l3=0x38}
0x194f…196f Line {l1=0x1e, l2=»WRITELN(SALDOKØB(3)/100:12:2);«, l3=0x1e}
0x196f…1975 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1975…198e Line {l1=0x17, l2=»22:IF KODE>0 THEN BEGIN«, l3=0x17}
0x198e…19c9 Line {l1=0x39, l2=»GOTOXY(40,15);WRITE('22 SALDO 45-60 DAGE');GOTOXY(60,15);«, l3=0x39}
0x19c9…19e9 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(4)/100:12:2);«, l3=0x1e}
0x19e9…19ef Line {l1=0x04, l2=»END;«, l3=0x04}
0x19ef…1a08 Line {l1=0x17, l2=»23:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1a08…1a3e Line {l1=0x34, l2=»GOTOXY(1,16);WRITE('23 ÆLDRE SALDO1');GOTOXY(25,16);«, l3=0x34}
0x1a3e…1a5e Line {l1=0x1e, l2=»WRITELN(SALDOKØB(5)/100:12:2);«, l3=0x1e}
0x1a5e…1a64 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1a64…1a7d Line {l1=0x17, l2=»24:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1a7d…1ab4 Line {l1=0x35, l2=»GOTOXY(40,16);WRITE('24 ÆLDRE SALDO2');GOTOXY(60,16);«, l3=0x35}
0x1ab4…1ad4 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(6)/100:12:2);«, l3=0x1e}
0x1ad4…1ada Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ada…1af3 Line {l1=0x17, l2=»25:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1af3…1b29 Line {l1=0x34, l2=»GOTOXY(1,17);WRITE('25 MÅNEDENS KØB');GOTOXY(25,17);«, l3=0x34}
0x1b29…1b49 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(8)/100:12:2);«, l3=0x1e}
0x1b49…1b4f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1b4f…1b68 Line {l1=0x17, l2=»26:IF KODE>0 THEN BEGIN«, l3=0x17}
0x1b68…1b9c Line {l1=0x32, l2=»GOTOXY(40,17);WRITE('26 ÅRETS KØB');GOTOXY(60,17);«, l3=0x32}
0x1b9c…1bbc Line {l1=0x1e, l2=»WRITELN(SALDOKØB(7)/100:12:2);«, l3=0x1e}
0x1bbc…1bc2 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bc2…1bc7 Line {l1=0x03, l2=»END«, l3=0x03}
0x1bc7…1bcd Line {l1=0x04, l2=»END;«, l3=0x04}
0x1bcd…1bdd Line {l1=0x0e, l2=»PROCEDURE PR3;«, l3=0x0e}
0x1bdd…1be4 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1be4…1bf3 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1bf3…1bfe Line {l1=0x09, l2=»CASE O OF«, l3=0x09}
0x1bfe…1c08 Line {l1=0x08, l2=»27:BEGIN«, l3=0x08}
0x1c08…1c40 Line {l1=0x36, l2=»GOTOXY(1,18);WRITE('27 SIDSTE ÅRS KØB');GOTOXY(25,18);«, l3=0x36}
0x1c40…1c60 Line {l1=0x1e, l2=»WRITELN(SALDOKØB(9)/100:12:2);«, l3=0x1e}
0x1c60…1c66 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1c66…1c70 Line {l1=0x08, l2=»28:BEGIN«, l3=0x08}
0x1c70…1ca3 Line {l1=0x31, l2=»GOTOXY(40,18);WRITELN('28 KREDITDAGE',NR(11):19);«, l3=0x31}
0x1ca3…1ca9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ca9…1cb3 Line {l1=0x08, l2=»29:BEGIN«, l3=0x08}
0x1cb3…1ce4 Line {l1=0x2f, l2=»GOTOXY(1,19);WRITELN('29 FAKTURAER',NR(12):24);«, l3=0x2f}
0x1ce4…1cea Line {l1=0x04, l2=»END;«, l3=0x04}
0x1cea…1cf4 Line {l1=0x08, l2=»30:BEGIN«, l3=0x08}
0x1cf4…1d3e Line {l1=0x48, l2=»GOTOXY(40,19);WRITELN('30 S. FAKTURA DATO',NR(13)*10000.0+NR(14):14:-2);«, l3=0x48}
0x1d3e…1d44 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d44…1d4e Line {l1=0x08, l2=»31:BEGIN«, l3=0x08}
0x1d4e…1d84 Line {l1=0x34, l2=»GOTOXY(1,20);WRITELN('31 RENTEFRI SALDO',NR(19):19);«, l3=0x34}
0x1d84…1d8a Line {l1=0x04, l2=»END;«, l3=0x04}
0x1d8a…1d94 Line {l1=0x08, l2=»32:BEGIN«, l3=0x08}
0x1d94…1dcf Line {l1=0x39, l2=»GOTOXY(40,20);WRITELN('32 PERIODER TIL RENTE',NR(20):11);«, l3=0x39}
0x1dcf…1dd5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1dd5…1ddf Line {l1=0x08, l2=»33:BEGIN«, l3=0x08}
0x1ddf…1e0c Line {l1=0x2b, l2=»GOTOXY(1,21);WRITE('33 LUKKET FOR KREDIT');«, l3=0x2b}
0x1e0c…1e1c Line {l1=0x0e, l2=»GOTOXY(36,21);«, l3=0x0e}
0x1e1c…1e4e Line {l1=0x30, l2=»IF NR(23)=1 THEN WRITELN('J') ELSE WRITELN('N');«, l3=0x30}
0x1e4e…1e54 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e54…1e59 Line {l1=0x03, l2=»END«, l3=0x03}
0x1e59…1e5f Line {l1=0x04, l2=»END;«, l3=0x04}
0x1e5f…1e66 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1e66…1e76 Line {l1=0x0e, l2=» IF O<>0 THEN«, l3=0x0e}
0x1e76…1e7f Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1e7f…1ea3 Line {l1=0x22, l2=» IF (1<=O) AND (O<=11) THEN PR1«, l3=0x22}
0x1ea3…1ead Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1ead…1ed2 Line {l1=0x23, l2=» IF (12<=O) AND (O<=26) THEN PR2«, l3=0x23}
0x1ed2…1edc Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1edc…1f1a Line {l1=0x3c, l2=» IF (27<=O) AND (O<=34) THEN BEGIN IF KODE>0 THEN PR3 END«, l3=0x3c}
0x1f1a…1f24 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x1f24…1f2f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1f2f…1f44 Line {l1=0x13, l2=» CLEARSCREEN;«, l3=0x13}
0x1f44…1f63 Line {l1=0x1d, l2=» FOR O:=1 TO 11 DO PR1;«, l3=0x1d}
0x1f63…1f83 Line {l1=0x1e, l2=» FOR O:=12 TO 26 DO PR2;«, l3=0x1e}
0x1f83…1fb1 Line {l1=0x2c, l2=» FOR O:=27 TO 34 DO IF KODE>0 THEN PR3«, l3=0x2c}
0x1fb1…1fba Line {l1=0x07, l2=» END«, l3=0x07}
0x1fba…1fc1 Line {l1=0x05, l2=» END«, l3=0x05}
0x1fc1…1fc7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x1fc7…1fe6 Line {l1=0x1d, l2=»PROCEDURE KUNDOPL(O:INTEGER);«, l3=0x1d}
0x1fe6…1ffa Line {l1=0x12, l2=»VAR STRENG:STRING;«, l3=0x12}
0x1ffa…200a Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x200a…202b Line {l1=0x1f, l2=»FUNCTION LÆS(X,Y:INTEGER):REAL;«, l3=0x1f}
0x202b…203a Line {l1=0x0d, l2=»VAR RES:REAL;«, l3=0x0d}
0x203a…2041 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2041…204b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x204b…2060 Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x2060…2070 Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x2070…2082 Line {l1=0x10, l2=» READ(RES)«, l3=0x10}
0x2082…2097 Line {l1=0x13, l2=» UNTIL IORESULT=0;«, l3=0x13}
0x2097…20a3 Line {l1=0x0a, l2=» LÆS:=RES«, l3=0x0a}
0x20a3…20a9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x20a9…20c7 Line {l1=0x1c, l2=»PROCEDURE INCH(X,Y:INTEGER);«, l3=0x1c}
0x20c7…20ce Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x20ce…20d8 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x20d8…20ed Line {l1=0x13, l2=» GOTOXY(X,Y);«, l3=0x13}
0x20ed…20fd Line {l1=0x0e, l2=» READLN;«, l3=0x0e}
0x20fd…2111 Line {l1=0x12, l2=» READ(CHAR1)«, l3=0x12}
0x2111…2153 Line {l1=0x40, l2=» UNTIL (CHAR1='N') OR (CHAR1='J') OR (CHAR1='n') OR (CHAR1='j')«, l3=0x40}
0x2153…2159 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2159…216a Line {l1=0x0f, l2=»PROCEDURE OPL1;«, l3=0x0f}
0x216a…2171 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2171…2182 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x2182…218f Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x218f…21a4 Line {l1=0x13, l2=» 2: BEGIN REPEAT«, l3=0x13}
0x21a4…21cd Line {l1=0x27, l2=» GOTOXY(30,2);READLN;READ(STRENG)«, l3=0x27}
0x21cd…21ed Line {l1=0x1e, l2=» UNTIL LENGTH(STRENG)<5;«, l3=0x1e}
0x21ed…220f Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x220f…224c Line {l1=0x3b, l2=» FOR I:= 1 TO LENGTH(STRENG) DO NAVN(1,I):=STRENG(I);«, l3=0x3b}
0x224c…225b Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x225b…2286 Line {l1=0x29, l2=» GOTOXY(34,2);READLN;READ(STRENG)«, l3=0x29}
0x2286…22a7 Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<27;«, l3=0x1f}
0x22a7…22eb Line {l1=0x42, l2=» FOR I:=5 TO LENGTH(STRENG)+4 DO NAVN(1,I):=STRENG(I-4) END;«, l3=0x42}
0x22eb…2300 Line {l1=0x13, l2=» 3: BEGIN REPEAT«, l3=0x13}
0x2300…2329 Line {l1=0x27, l2=» GOTOXY(30,3);READLN;READ(STRENG)«, l3=0x27}
0x2329…234a Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x234a…236c Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x236c…23ac Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(2,I):=STRENG(I) END;«, l3=0x3e}
0x23ac…23c1 Line {l1=0x13, l2=» 4: BEGIN REPEAT«, l3=0x13}
0x23c1…23ea Line {l1=0x27, l2=» GOTOXY(30,4);READLN;READ(STRENG)«, l3=0x27}
0x23ea…240b Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<31;«, l3=0x1f}
0x240b…242d Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x242d…246d Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO NAVN(3,I):=STRENG(I) END;«, l3=0x3e}
0x246d…2482 Line {l1=0x13, l2=» 5: BEGIN REPEAT«, l3=0x13}
0x2482…24ab Line {l1=0x27, l2=» GOTOXY(30,5);READLN;READ(STRENG)«, l3=0x27}
0x24ab…24cc Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<21;«, l3=0x1f}
0x24cc…24ee Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x24ee…252f Line {l1=0x3f, l2=» FOR I:=1 TO LENGTH(STRENG) DO LANDSBY(I):=STRENG(I) END;«, l3=0x3f}
0x252f…2544 Line {l1=0x13, l2=» 6: BEGIN REPEAT«, l3=0x13}
0x2544…256d Line {l1=0x27, l2=» GOTOXY(30,6);READLN;READ(STRENG)«, l3=0x27}
0x256d…258e Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<26;«, l3=0x1f}
0x258e…25af Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x25af…25ef Line {l1=0x3e, l2=» FOR I:=1 TO LENGTH(STRENG) DO POSTNR(I):=STRENG(I) END;«, l3=0x3e}
0x25ef…2604 Line {l1=0x13, l2=» 8: BEGIN REPEAT«, l3=0x13}
0x2604…262d Line {l1=0x27, l2=» GOTOXY(30,8);READLN;READ(STRENG)«, l3=0x27}
0x262d…264e Line {l1=0x1f, l2=» UNTIL LENGTH(STRENG)<11;«, l3=0x1f}
0x264e…266c Line {l1=0x1c, l2=» FILLCHAR(TLF,10,' ');«, l3=0x1c}
0x266c…26a9 Line {l1=0x3b, l2=» FOR I:=1 TO LENGTH(STRENG) DO TLF(I):=STRENG(I) END;«, l3=0x3b}
0x26a9…26bb Line {l1=0x10, l2=» 7: NR(7):=8;«, l3=0x10}
0x26bb…26c9 Line {l1=0x0c, l2=» 9: BEGIN«, l3=0x0c}
0x26c9…26dd Line {l1=0x12, l2=» INCH(36,9);«, l3=0x12}
0x26dd…2724 Line {l1=0x45, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(3):=0 ELSE NR(3):=1 END;«, l3=0x45}
0x2724…2739 Line {l1=0x13, l2=» 10: BEGIN REPEAT«, l3=0x13}
0x2739…274e Line {l1=0x13, l2=» R:=LÆS(67,9)«, l3=0x13}
0x274e…2780 Line {l1=0x30, l2=» UNTIL (R>9999) AND (R<100000.0) OR (R=0);«, l3=0x30}
0x2780…279f Line {l1=0x1d, l2=» NR(4):=TRUNC(R/10000);«, l3=0x1d}
0x279f…27c5 Line {l1=0x24, l2=» NR(5):=TRUNC(R-NR(4)*10000.0)«, l3=0x24}
0x27c5…27d2 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x27d2…27e1 Line {l1=0x0d, l2=» 11: REPEAT«, l3=0x0d}
0x27e1…280a Line {l1=0x27, l2=» GOTOXY(36,10);READLN;READ(NR(6))«, l3=0x27}
0x280a…2845 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(6)>=0) AND (NR(6)<100);«, l3=0x39}
0x2845…2854 Line {l1=0x0d, l2=» 12: REPEAT«, l3=0x0d}
0x2854…287d Line {l1=0x27, l2=» GOTOXY(71,10);READLN;READ(NR(8))«, l3=0x27}
0x287d…28b8 Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(8)>=0) AND (NR(8)<100);«, l3=0x39}
0x28b8…28c7 Line {l1=0x0d, l2=» 13: REPEAT«, l3=0x0d}
0x28c7…28f0 Line {l1=0x27, l2=» GOTOXY(36,11);READLN;READ(NR(9))«, l3=0x27}
0x28f0…292b Line {l1=0x39, l2=» UNTIL (IORESULT=0) AND (NR(9)>=0) AND (NR(9)<100);«, l3=0x39}
0x292b…293a Line {l1=0x0d, l2=» 14: REPEAT«, l3=0x0d}
0x293a…2964 Line {l1=0x28, l2=» GOTOXY(71,11);READLN;READ(NR(10))«, l3=0x28}
0x2964…29a1 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(10)>=0) AND (NR(10)<100);«, l3=0x3b}
0x29a1…29b0 Line {l1=0x0d, l2=» 15: REPEAT«, l3=0x0d}
0x29b0…29da Line {l1=0x28, l2=» GOTOXY(35,12);READLN;READ(NR(17))«, l3=0x28}
0x29da…2a17 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(17)>=0) AND (NR(17)<100);«, l3=0x3b}
0x2a17…2a1e Line {l1=0x05, l2=» END«, l3=0x05}
0x2a1e…2a24 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2a24…2a35 Line {l1=0x0f, l2=»PROCEDURE OPL2;«, l3=0x0f}
0x2a35…2a3c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a3c…2a4d Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x2a4d…2a5a Line {l1=0x0b, l2=» CASE O OF«, l3=0x0b}
0x2a5a…2a69 Line {l1=0x0d, l2=» 16: REPEAT«, l3=0x0d}
0x2a69…2a93 Line {l1=0x28, l2=» GOTOXY(71,12);READLN;READ(NR(18))«, l3=0x28}
0x2a93…2ad0 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND (NR(18)>=0) AND (NR(18)<100);«, l3=0x3b}
0x2ad0…2ade Line {l1=0x0c, l2=» 17: BEGIN«, l3=0x0c}
0x2ade…2af3 Line {l1=0x13, l2=» INCH(36,13);«, l3=0x13}
0x2af3…2b3c Line {l1=0x47, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(15):=0 ELSE NR(15):=1 END;«, l3=0x47}
0x2b3c…2b4a Line {l1=0x0c, l2=» 18: BEGIN«, l3=0x0c}
0x2b4a…2b5f Line {l1=0x13, l2=» INCH(71,13);«, l3=0x13}
0x2b5f…2ba8 Line {l1=0x47, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(16):=0 ELSE NR(16):=1 END;«, l3=0x47}
0x2ba8…2bb1 Line {l1=0x07, l2=» 19: «, l3=0x07}
0x2bb1…2bcf Line {l1=0x1c, l2=»SALDOKØB(1):=LÆS(25,14)*100;«, l3=0x1c}
0x2bcf…2bd7 Line {l1=0x06, l2=» 20:«, l3=0x06}
0x2bd7…2bf5 Line {l1=0x1c, l2=»SALDOKØB(2):=LÆS(65,14)*100;«, l3=0x1c}
0x2bf5…2bfe Line {l1=0x07, l2=» 21: «, l3=0x07}
0x2bfe…2c1c Line {l1=0x1c, l2=»SALDOKØB(3):=LÆS(25,15)*100;«, l3=0x1c}
0x2c1c…2c25 Line {l1=0x07, l2=» 22: «, l3=0x07}
0x2c25…2c43 Line {l1=0x1c, l2=»SALDOKØB(4):=LÆS(65,15)*100;«, l3=0x1c}
0x2c43…2c4c Line {l1=0x07, l2=» 23: «, l3=0x07}
0x2c4c…2c6a Line {l1=0x1c, l2=»SALDOKØB(5):=LÆS(25,16)*100;«, l3=0x1c}
0x2c6a…2c8e Line {l1=0x22, l2=» 24: SALDOKØB(6):=LÆS(65,16)*100;«, l3=0x22}
0x2c8e…2cb2 Line {l1=0x22, l2=» 25: SALDOKØB(8):=LÆS(25,17)*100;«, l3=0x22}
0x2cb2…2cd6 Line {l1=0x22, l2=» 26: SALDOKØB(7):=LÆS(65,17)*100;«, l3=0x22}
0x2cd6…2cfa Line {l1=0x22, l2=» 27: SALDOKØB(9):=LÆS(25,18)*100;«, l3=0x22}
0x2cfa…2d09 Line {l1=0x0d, l2=» 28: REPEAT«, l3=0x0d}
0x2d09…2d33 Line {l1=0x28, l2=» GOTOXY(69,18);READLN;READ(NR(11))«, l3=0x28}
0x2d33…2d4d Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2d4d…2d5c Line {l1=0x0d, l2=» 29: REPEAT«, l3=0x0d}
0x2d5c…2d86 Line {l1=0x28, l2=» GOTOXY(31,19);READLN;READ(NR(12))«, l3=0x28}
0x2d86…2da0 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2da0…2db5 Line {l1=0x13, l2=» 30: BEGIN REPEAT«, l3=0x13}
0x2db5…2dcb Line {l1=0x14, l2=» R:=LÆS(64,19)«, l3=0x14}
0x2dcb…2df8 Line {l1=0x2b, l2=» UNTIL (R>800000.0) AND (R<850000.0);«, l3=0x2b}
0x2df8…2e18 Line {l1=0x1e, l2=» NR(13):=TRUNC(R/10000);«, l3=0x1e}
0x2e18…2e40 Line {l1=0x26, l2=» NR(14):=TRUNC(R-NR(13)*10000.0)«, l3=0x26}
0x2e40…2e4d Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2e4d…2e5c Line {l1=0x0d, l2=» 31: REPEAT«, l3=0x0d}
0x2e5c…2e86 Line {l1=0x28, l2=» GOTOXY(31,20);READLN;READ(NR(19))«, l3=0x28}
0x2e86…2ea0 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2ea0…2eaf Line {l1=0x0d, l2=» 32: REPEAT«, l3=0x0d}
0x2eaf…2ed9 Line {l1=0x28, l2=» GOTOXY(71,20);READLN;READ(NR(20))«, l3=0x28}
0x2ed9…2ef3 Line {l1=0x18, l2=» UNTIL IORESULT=0;«, l3=0x18}
0x2ef3…2f01 Line {l1=0x0c, l2=» 33: BEGIN«, l3=0x0c}
0x2f01…2f16 Line {l1=0x13, l2=» INCH(36,21);«, l3=0x13}
0x2f16…2f5a Line {l1=0x42, l2=» IF (CHAR1='N') OR (CHAR1='n') THEN NR(23):=0 ELSE NR(23):=1«, l3=0x42}
0x2f5a…2f67 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x2f67…2f7c Line {l1=0x13, l2=» 34: BEGIN REPEAT«, l3=0x13}
0x2f7c…2f92 Line {l1=0x14, l2=» R:=LÆS(65,21)«, l3=0x14}
0x2f92…2fbb Line {l1=0x27, l2=» UNTIL (R>9999) AND (R<100000.0);«, l3=0x27}
0x2fbb…2fdb Line {l1=0x1e, l2=» NR(21):=TRUNC(R/10000);«, l3=0x1e}
0x2fdb…3003 Line {l1=0x26, l2=» NR(22):=TRUNC(R-NR(21)*10000.0)«, l3=0x26}
0x3003…3010 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x3010…3019 Line {l1=0x07, l2=» END«, l3=0x07}
0x3019…301f Line {l1=0x04, l2=»END;«, l3=0x04}
0x301f…3026 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3026…3046 Line {l1=0x1e, l2=» IF O<=15 THEN OPL1 ELSE OPL2«, l3=0x1e}
0x3046…304c Line {l1=0x04, l2=»END;«, l3=0x04}
0x304c…305f Line {l1=0x11, l2=»PROCEDURE ZERREC;«, l3=0x11}
0x305f…3066 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3066…3077 Line {l1=0x0f, l2=» WITH KUNDE DO«, l3=0x0f}
0x3077…3080 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x3080…30a4 Line {l1=0x22, l2=» FOR I:=1 TO 23 DO NR(I):=0;«, l3=0x22}
0x30a4…30cf Line {l1=0x29, l2=» FOR I:=1 TO 9 DO SALDOKØB(I):=0.0;«, l3=0x29}
0x30cf…30f1 Line {l1=0x20, l2=» FILLCHAR(NAVN(1),30,' ');«, l3=0x20}
0x30f1…3113 Line {l1=0x20, l2=» FILLCHAR(NAVN(2),30,' ');«, l3=0x20}
0x3113…3135 Line {l1=0x20, l2=» FILLCHAR(NAVN(3),30,' ');«, l3=0x20}
0x3135…3157 Line {l1=0x20, l2=» FILLCHAR(LANDSBY,20,' ');«, l3=0x20}
0x3157…3178 Line {l1=0x1f, l2=» FILLCHAR(POSTNR,25,' ');«, l3=0x1f}
0x3178…3196 Line {l1=0x1c, l2=» FILLCHAR(TLF,10,' ');«, l3=0x1c}
0x3196…319d Line {l1=0x05, l2=» END«, l3=0x05}
0x319d…31a3 Line {l1=0x04, l2=»END;«, l3=0x04}
0x31a3…31b8 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x31b8…31d5 Line {l1=0x1b, l2=»VAR EXC,I,O,P,KODE:INTEGER;«, l3=0x1b}
0x31d5…31eb Line {l1=0x14, l2=» CHANGED:BOOLEAN;«, l3=0x14}
0x31eb…31ff Line {l1=0x12, l2=» STRENG:STRING;«, l3=0x12}
0x31ff…3218 Line {l1=0x17, l2=» STRENG1:STRING(10);«, l3=0x17}
0x3218…321f Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x321f…3247 Line {l1=0x26, l2=» (*INDLÆS KODE1 OG KODE2 FRA SYSREG*)«, l3=0x26}
0x3247…3257 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x3257…327e Line {l1=0x25, l2=» GOTOXY(1,1);WRITELN('ADGANGSKODE');«, l3=0x25}
0x327e…32a4 Line {l1=0x24, l2=» GOTOXY(20,1);READLN;READ(STRENG1);«, l3=0x24}
0x32a4…32b0 Line {l1=0x0a, l2=» KODE:=0;«, l3=0x0a}
0x32b0…32d2 Line {l1=0x20, l2=» IF STRENG1=KODE1 THEN KODE:=1;«, l3=0x20}
0x32d2…32f4 Line {l1=0x20, l2=» IF STRENG1=KODE2 THEN KODE:=2;«, l3=0x20}
0x32f4…32fe Line {l1=0x08, l2=» REPEAT«, l3=0x08}
[…0x1…]
0x3308…3356 Line {l1=0x4c, l2=» GOTOXY(1,22);WRITELN('OPRETTE, KIKKE ELLER SLETTE (1/2/3), 0 FOR STOP ');«, l3=0x4c}
0x3356…337b Line {l1=0x23, l2=» GOTOXY(50,22);READLN;READ(P)«, l3=0x23}
0x337b…33b8 Line {l1=0x3b, l2=» UNTIL (IORESULT=0) AND((P=1) OR (P=2) OR (P=0) OR (P=3));«, l3=0x3b}
0x33b8…33c5 Line {l1=0x0b, l2=» CASE P OF«, l3=0x0b}
0x33c5…33e3 Line {l1=0x1c, l2=» 1: IF ÆNDRE=1 THEN BEGIN«, l3=0x1c}
0x33e3…33f4 Line {l1=0x0f, l2=» ZERREC;«, l3=0x0f}
0x33f4…3410 Line {l1=0x1a, l2=» PRKUNOPL(-1,KODE);«, l3=0x1a}
0x3410…3436 Line {l1=0x24, l2=» FOR I:=2 TO 8 DO KUNDOPL(I);«, l3=0x24}
0x3436…3452 Line {l1=0x1a, l2=» PRKUNOPL(-1,KODE);«, l3=0x1a}
0x3452…3462 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x3462…34b1 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('ÆNDRINGER, 0 FOR NEJ ELLERS FELTNR ');«, l3=0x4d}
0x34b1…34d9 Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O);«, l3=0x26}
0x34d9…350c Line {l1=0x31, l2=» IF ((O>1) AND (O<=18)) THEN KUNDOPL(O);«, l3=0x31}
0x350c…3527 Line {l1=0x19, l2=» PRKUNOPL(O,KODE)«, l3=0x19}
0x3527…353b Line {l1=0x12, l2=» UNTIL O=0;«, l3=0x12}
0x353b…3553 Line {l1=0x16, l2=» KNAVN:=' ';«, l3=0x16}
0x3553…358a Line {l1=0x35, l2=» FOR I:=1 TO 4 DO KNAVN(I):=KUNDE.NAVN(1,4+I);«, l3=0x35}
0x358a…35a6 Line {l1=0x1a, l2=» NANU(KNAVN,N1,N2);«, l3=0x1a}
0x35a6…35c0 Line {l1=0x18, l2=» KUNDE.NR(1):=N1;«, l3=0x18}
0x35c0…35da Line {l1=0x18, l2=» KUNDE.NR(2):=N2;«, l3=0x18}
0x35da…35eb Line {l1=0x0f, l2=» EXC:=0;«, l3=0x0f}
0x35eb…35fb Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x35fb…361c Line {l1=0x1f, l2=» INSERT(KZ.H,F,KUNDE.A);«, l3=0x1f}
0x361c…3634 Line {l1=0x16, l2=» IF IER=-7 THEN«, l3=0x16}
0x3634…3643 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3643…366a Line {l1=0x25, l2=» KUNDE.NR(2):=KUNDE.NR(2)+1;«, l3=0x25}
0x366a…3681 Line {l1=0x15, l2=» EXC:=EXC+1;«, l3=0x15}
0x3681…36a6 Line {l1=0x23, l2=» IF KUNDE.NR(2)=10000 THEN«, l3=0x23}
0x36a6…36b7 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x36b7…36e0 Line {l1=0x27, l2=» KUNDE.NR(1):=KUNDE.NR(1)+1;«, l3=0x27}
0x36e0…36fc Line {l1=0x1a, l2=» KUNDE.NR(2):=0«, l3=0x1a}
0x36fc…370b Line {l1=0x0d, l2=» END«, l3=0x0d}
0x370b…3718 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x3718…3726 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x3726…3744 Line {l1=0x1c, l2=» IF IER<>0 THEN ERROR«, l3=0x1c}
0x3744…375a Line {l1=0x14, l2=» UNTIL IER=0;«, l3=0x14}
0x375a…3775 Line {l1=0x19, l2=» PRKUNOPL(1,KODE);«, l3=0x19}
0x3775…37b4 Line {l1=0x3d, l2=» IF EXC>SYSFIL^.HELTAL(4) THEN SYSFIL^.HELTAL(4):=EXC;«, l3=0x3d}
0x37b4…37c1 Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x37c1…37cf Line {l1=0x0c, l2=» 2: BEGIN«, l3=0x0c}
0x37cf…37e4 Line {l1=0x13, l2=» FINDKUND;«, l3=0x13}
0x37e4…37fd Line {l1=0x17, l2=» IF R<>0.0 THEN«, l3=0x17}
0x37fd…380d Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x380d…382a Line {l1=0x1b, l2=» PRKUNOPL(-1,KODE);«, l3=0x1b}
0x382a…3844 Line {l1=0x18, l2=» CHANGED:=FALSE;«, l3=0x18}
0x3844…3855 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
[…0x1…]
0x3866…38b5 Line {l1=0x4d, l2=» GOTOXY(1,22);WRITELN('HVILKET FELT SKAL ÆNDRES, 0 FOR SLUT ');«, l3=0x4d}
0x38b5…38dd Line {l1=0x26, l2=» GOTOXY(40,22);READLN;READ(O)«, l3=0x26}
0x38dd…3914 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND ((O=0) OR (ÆNDRE=1));«, l3=0x35}
0x3914…3928 Line {l1=0x12, l2=» CASE O OF«, l3=0x12}
0x3928…3954 Line {l1=0x2a, l2=»19,20,21,22,23,24,25,26,27,28,29,30: BEGIN«, l3=0x2a}
0x3954…3982 Line {l1=0x2c, l2=» GOTOXY(1,23);«, l3=0x2c}
0x3982…39c3 Line {l1=0x3f, l2=» WRITELN('ÆNDRING IKKE TILLADT');«, l3=0x3f}
0x39c3…39f2 Line {l1=0x2d, l2=» GOTOXY(25,23);«, l3=0x2d}
0x39f2…3a37 Line {l1=0x43, l2=» WRITELN('TRYK RETURN NÅR FORSTÅET');«, l3=0x43}
0x3a37…3a7a Line {l1=0x41, l2=» GOTOXY(60,23);READLN;READ(STRENG);«, l3=0x41}
0x3a7a…3aad Line {l1=0x31, l2=» IF STRENG='A' THEN«, l3=0x31}
0x3aad…3ad3 Line {l1=0x24, l2=» BEGIN«, l3=0x24}
0x3ad3…3b0e Line {l1=0x39, l2=» KUNDOPL(O);CHANGED:=TRUE«, l3=0x39}
0x3b0e…3b32 Line {l1=0x22, l2=» END«, l3=0x22}
0x3b32…3b51 Line {l1=0x1d, l2=» END;«, l3=0x1d}
0x3b51…3b86 Line {l1=0x33, l2=»10,11,12,13,14,15,16,17,18,31,32,33: IF KODE=2 THEN«, l3=0x33}
0x3b86…3ba8 Line {l1=0x20, l2=» BEGIN«, l3=0x20}
0x3ba8…3bdf Line {l1=0x35, l2=» KUNDOPL(O);CHANGED:=TRUE«, l3=0x35}
0x3bdf…3c04 Line {l1=0x23, l2=» END ELSE«, l3=0x23}
0x3c04…3c2e Line {l1=0x28, l2=» BEGIN GOTOXY(1,23);«, l3=0x28}
0x3c2e…3c7d Line {l1=0x4d, l2=» WRITELN('ÆNDRING IKKE TILLADT MED OPGIVEN ADGANGSKODE');«, l3=0x4d}
0x3c7d…3c98 Line {l1=0x19, l2=» END;«, l3=0x19}
0x3c98…3ccb Line {l1=0x31, l2=»3,4,5,6,7,8,9 :BEGIN KUNDOPL(O);CHANGED:=TRUE END«, l3=0x31}
0x3ccb…3ce0 Line {l1=0x13, l2=» END;«, l3=0x13}
0x3ce0…3cfb Line {l1=0x19, l2=» PRKUNOPL(O,KODE)«, l3=0x19}
0x3cfb…3d10 Line {l1=0x13, l2=» UNTIL O=0;«, l3=0x13}
0x3d10…3d42 Line {l1=0x30, l2=» IF CHANGED THEN PUTREC(KZ.H,F,KUNDE.A);«, l3=0x30}
0x3d42…3d50 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x3d50…3d5c Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x3d5c…3d79 Line {l1=0x1b, l2=» 3: IF ÆNDRE=1 THEN BEGIN«, l3=0x1b}
0x3d79…3d8c Line {l1=0x11, l2=» FINDKUND;«, l3=0x11}
0x3d8c…3da4 Line {l1=0x16, l2=» IF R<>0.0 THEN«, l3=0x16}
0x3da4…3db3 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x3db3…3dd1 Line {l1=0x1c, l2=» PRKUNOPL(-1,KODE);«, l3=0x1c}
0x3dd1…3deb Line {l1=0x18, l2=» IF KODE=2 THEN«, l3=0x18}
0x3deb…3e04 Line {l1=0x17, l2=» WITH KUNDE DO«, l3=0x17}
0x3e04…3e15 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x3e15…3e2c Line {l1=0x15, l2=» REPEAT«, l3=0x15}
0x3e2c…3e7b Line {l1=0x4d, l2=» GOTOXY(1,23);WRITELN('SKAL SLETNING UDFØRES (1), 0 FOR NEJ ');«, l3=0x4d}
0x3e7b…3ea8 Line {l1=0x2b, l2=» GOTOXY(40,23);READLN;READ(O)«, l3=0x2b}
0x3ea8…3eca Line {l1=0x20, l2=» UNTIL IORESULT=0;«, l3=0x20}
0x3eca…3ee9 Line {l1=0x1d, l2=» IF O=4711 THEN«, l3=0x1d}
0x3ee9…3eff Line {l1=0x14, l2=» BEGIN«, l3=0x14}
0x3eff…3f29 Line {l1=0x28, l2=» DELETE(KZ.H,F,KUNDE.A);«, l3=0x28}
0x3f29…3f4e Line {l1=0x23, l2=» PRKUNOPL(-1,KODE);«, l3=0x23}
0x3f4e…3f75 Line {l1=0x25, l2=» IF IER<>0 THEN ERROR«, l3=0x25}
0x3f75…3f89 Line {l1=0x12, l2=» END«, l3=0x12}
0x3f89…3f9a Line {l1=0x0f, l2=» END«, l3=0x0f}
0x3f9a…3fac Line {l1=0x10, l2=» ELSE«, l3=0x10}
0x3fac…3fbf Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x3fbf…3fdd Line {l1=0x1c, l2=» GOTOXY(1,23);«, l3=0x1c}
0x3fdd…4023 Line {l1=0x44, l2=» WRITELN('SLETNING MÅ IKKE UDFØRES MED OPGIVEN NØGLE')«, l3=0x44}
0x4023…4034 Line {l1=0x0f, l2=» END«, l3=0x0f}
0x4034…4042 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x4042…404d Line {l1=0x09, l2=» END«, l3=0x09}
0x404d…4055 Line {l1=0x06, l2=» END«, l3=0x06}
0x4055…4063 Line {l1=0x0c, l2=» UNTIL P=0«, l3=0x0c}
0x4063…4069 Line {l1=0x04, l2=»END;«, l3=0x04}
0x4069…4070 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x4070…4080 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4080…40a0 Line {l1=0x1e, l2=» WRITELN('0 Kikke, 1 Ændre');«, l3=0x1e}
0x40a0…40aa Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x40aa…40bd Line {l1=0x11, l2=» GOTOXY(18,1);«, l3=0x11}
0x40bd…40d5 Line {l1=0x16, l2=» READLN;READ(ÆNDRE)«, l3=0x16}
0x40d5…410a Line {l1=0x33, l2=» UNTIL (IORESULT=0) AND (ÆNDRE>=0) AND (ÆNDRE<=1);«, l3=0x33}
0x410a…410d Line {l1=0x01, l2=» «, l3=0x01}
0x410d…412f Line {l1=0x20, l2=» FILNAVN2:='KUNDERG:P2:0000:I';«, l3=0x20}
0x412f…4142 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x4142…4173 Line {l1=0x2f, l2=» REWRITE(F,FILNAVN2) ELSE RESET(F,FILNAVN2);«, l3=0x2f}
0x4173…4186 Line {l1=0x11, l2=» IF ÆNDRE=1 THEN«, l3=0x11}
0x4186…41cc Line {l1=0x44, l2=» IOPEN(KZ.H,F,SKRIV) ELSE IOPEN(KZ.H,F,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x44}
0x41cc…41ea Line {l1=0x1c, l2=» FILNAVN1:='SYSREG:P2:1:I';«, l3=0x1c}
0x41ea…4207 Line {l1=0x1b, l2=» REWRITE(SYSFIL,FILNAVN1);«, l3=0x1b}
0x4207…421a Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x421a…422a Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x422a…4242 Line {l1=0x16, l2=» KODE1:=' ';«, l3=0x16}
0x4242…4253 Line {l1=0x0f, l2=» KODE2:=KODE1;«, l3=0x0f}
0x4253…4268 Line {l1=0x13, l2=» FOR I:=1 TO 10 DO«, l3=0x13}
0x4268…4271 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x4271…4293 Line {l1=0x20, l2=» KODE1(I):=SYSFIL^.KODE(1,I);«, l3=0x20}
0x4293…42b4 Line {l1=0x1f, l2=» KODE2(I):=SYSFIL^.KODE(2,I)«, l3=0x1f}
0x42b4…42bc Line {l1=0x06, l2=» END;«, l3=0x06}
0x42bc…42e5 Line {l1=0x27, l2=»IF IER<>0 THEN WRITE('IOPEN ',IER) ELSE«, l3=0x27}
0x42e5…42ec Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x42ec…431b Line {l1=0x2d, l2=» IF KZ.H.RECINUSE<1 THEN INITIATE(KZ.H,F,1);«, l3=0x2d}
0x431b…4328 Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x4328…432e Line {l1=0x04, l2=»END;«, l3=0x04}
0x432e…4341 Line {l1=0x11, l2=» ICLOSE(KZ.H,F);«, l3=0x11}
0x4341…4351 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x4351…436c Line {l1=0x19, l2=» WRITELN('ICLOSE ',IER);«, l3=0x19}
0x436c…437f Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x437f…438f Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x438f…43a1 Line {l1=0x10, l2=» CLOSE(SYSFIL);«, l3=0x10}
0x43a1…43c7 Line {l1=0x24, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x24}
0x43c7…43cd Line {l1=0x04, l2=»END.«, l3=0x04}
0x43cd…43e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x43e0…4400 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 ┆ ┆
[…0x8…]
0x4500…4520 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 63 ┆ c┆