|
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: 13728 (0x35a0)
Types: TextFile
Notes: Mikados_K
Names: »KREDNOTA.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »KREDNOTA.K«
PROGRAM KREDNOTAER;
CONST TOPMARG=6; LMARG=9; DK=8;
(*$IISFHEAD*)
VPOST=RECORD
A :AR;
HELTAL:ARRAY (1..11) OF INTEGER;
(*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,
DATSORD2,DÆKGRASÅ,ANAFTILG*)
NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;
(*VARENAVN,NAVNHOSLEVERANDØR*)
REELTAL :ARRAY (1..15) OF REAL
(*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,
RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)
END;
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;
BETAPOST=RECORD
A:AR;
NR:ARRAY (1..3) OF INTEGER;
(*KNR1,KNR2,LAND*)
NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;
(*NAVN,UDVNAVN,ADR*)
LANDSBY:PACKED ARRAY (1..20) OF CHAR;
POSTNR:PACKED ARRAY (1..25) OF CHAR;
TLF:PACKED ARRAY (1..10) OF CHAR
END;
JOURPOST=RECORD
(*KNR1,KNR2,
FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;
(*NETTO,
MOMS,
RABAT,
BRÆKAGEFORS,
FRAGT,
EMBALLAGE,
VARESALG *) REEL:ARRAY(1..7) OF REAL
END;
JOURFILE=FILE OF JOURPOST;
SYSPOST=RECORD
(*DATO1,DATO2,
UGENR,
MAXEXC,
ORDRENR1-2,
FAKTNR1-2,
KREDNTNR1-2,
BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;
KGB:ARRAY (1..5) OF REAL;
BETADAT:PACKED ARRAY (1..13) OF CHAR;
(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR
END;
SYSFILE=FILE OF SYSPOST;
VZONE= RECORD
H:ISFHEAD;
T:ARRAY(1..451) OF INTEGER
END;
KZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..918) OF INTEGER
END;
BETAZONE=RECORD
H:ISFHEAD;
T:ARRAY(1..374) OF INTEGER
END;
LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;
VAR FBETA,FVAR,FKUN : ISF;
SYSFIL:SYSFILE;
LANDFIL:LANDFILE;
JOURFIL:JOURFILE;
T:TEXT;
NAME:PACKED ARRAY (1..26) OF CHAR;
VZ:VZONE;
BZ:BETAZONE;
KZ:KZONE;
VARE:VPOST;
KUNDE:KPOST;
BETA:BETAPOST;
FNAVN:STRING(20);
IER,I,J,K,L,SIDE :INTEGER;
CH:CHAR;
STRENG:STRING;
KNAVN:STRING(4);
R,R1,R2 :REAL;
QUQ:^INTEGER;
(*$L-*)
(*$R-,IEXCOMCOP*)
(*$IIOPEN*)
(*$ISÆTØG*)
(*$IREADPROC*)
(*$IFINDPOST*)
(*$IFORSKYD*)
(*$IICLOSE*)
(*$IPUTGET*)
(*$IINSERT*)
(*$INEXTREC*)
(*$R+,L+*)
PROCEDURE ERROR;
BEGIN
WRITELN('FEJL I REGISTER ',IER);
ICLOSE(VZ.H,FVAR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
WRITELN('ICLOSE ',IER);
I:=I DIV 0
END;
PROCEDURE OFEJL;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');
WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');
REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;
IF I<>0 THEN ERROR;
CLEARSCREEN
END;
PROCEDURE 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;
BEGIN
REPEAT
I:=1;
SVAR1:='N';
CLEARSCREEN;
WRITELN('KREDIT-NOTAER');
GOTOXY(1,4);
WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');
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) OR (R=2.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,FKUN,KUNDE.A);
IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);
IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;
I:=0
END
ELSE
BEGIN
NEXTREC(KZ.H,FKUN,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,FKUN,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 (SVAR1='j') OR (R=0.0)
END;
PROCEDURE HEAD;
VAR I:INTEGER;
BEGIN
WITH KUNDE DO
BEGIN
WRITELN(T,'%P');
FOR I:=1 TO TOPMARG DO WRITELN(T);
IF NR(3)=1 THEN
BEGIN
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');
IF BETA.NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(BETA.NAVN(1,5),NAME,26);
WRITE(T,' ':6,NAME,' ':14)
END
ELSE
WRITE(T,' ':6,BETA.NAVN(1),' ':10);
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (NAVN(1,I)<>' ');
IF NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(T,NAME)
END
ELSE
WRITELN(T,NAVN(1));
WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));
WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));
WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);
WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);
IF BETA.NR(3)=DK THEN
WRITE(T,' ':46)
ELSE
BEGIN
SEEK(LANDFIL,BETA.NR(3));
GET(LANDFIL);
WRITE(T,' ':6,LANDFIL^,' ':10)
END;
IF NR(7)=DK THEN
WRITELN(T)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(T,LANDFIL^)
END
END
ELSE
BEGIN
I:=0;
REPEAT I:=I+1
UNTIL (I=4) OR (NAVN(1,I)<>' ');
IF NAVN(1,I)=' ' THEN
BEGIN
MOVELEFT(NAVN(1,5),NAME,26);
WRITELN(T,' ':6,NAME)
END
ELSE
WRITELN(T,' ':6,NAVN(1));
WRITELN(T,' ':6,NAVN(2));
WRITELN(T,' ':6,NAVN(3));
WRITELN(T,' ':6,LANDSBY);
WRITELN(T,' ':6,POSTNR);
IF NR(7)=DK THEN
WRITELN(T)
ELSE
BEGIN
SEEK(LANDFIL,NR(7));
GET(LANDFIL);
WRITELN(T,' ':6,LANDFIL^)
END
END;
WRITELN(T);WRITELN(T);
WRITELN(T,' ':50,'Kreditnotanummer ',
SYSFIL^.HELTAL(9)*10000.0+SYSFIL^.HELTAL(10):6:-2);
WRITELN(T);
WRITELN(T,' ':74,SIDE:2);
SIDE:=SIDE+1;
WRITE(T,NR(1)*10000.0+NR(2):9:-2);
WRITELN(T,' ':54,SYSFIL^.HELTAL(1)*10000.0+
SYSFIL^.HELTAL(2):6:-2);
J:=1;
WRITELN(T)
END
END;
PROCEDURE LINES;
BEGIN
CLEARSCREEN;
WRITELN('Returnering af vare (1)');
WRITELN('Dekort på vare (2)');
WRITELN('Generel dekort (3)');
WRITELN('Indtast (1,2,3), 0 for færdig');
REPEAT
GOTOXY(32,4);READLN;READ(K)
UNTIL (IORESULT=0) AND (K>-1) AND (K<4);
CASE K OF
0: I:=15;
1,2:
BEGIN
REPEAT
GOTOXY(1,6);WRITELN('Varenr');
REPEAT
GOTOXY(10,6);READLN;READ(VARE.HELTAL(1))
UNTIL IORESULT=0;
IF VARE.HELTAL(1)>0 THEN
BEGIN
GETREC(VZ.H,FVAR,VARE.A);
IF IER=0 THEN
BEGIN
GOTOXY(20,6);WRITELN(VARE.NAVN(1),' Rigtig vare ?');
REPEAT
GOTOXY(67,6);READLN;READ(CH)
UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR
(CH='j') OR (CH='n'));
IF (CH='N') OR (CH='n') THEN IER:=-6
END
ELSE IF IER<>-6 THEN ERROR
END
ELSE IER:=0
UNTIL IER=0;
IF VARE.HELTAL(1)<=0 THEN I:=I-1 ELSE
BEGIN
GOTOXY(1,7);WRITELN('Antal');
REPEAT
GOTOXY(10,7);READLN;READ(L)
UNTIL (IORESULT=0) AND (L>0);
GOTOXY(20,7);WRITELN('Pris');
REPEAT
GOTOXY(30,7);READLN;READ(R1)
UNTIL (IORESULT=0) AND (R1>0.0);
GOTOXY(1,8);WRITELN('Tekst');
REPEAT
GOTOXY(10,8);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<=60;
WRITELN(T);
WRITELN(T,' ':11,STRENG);
WRITELN(T,VARE.HELTAL(1):9,' ':2,VARE.NAVN(1),L:5,' ':5,
R1:10:2,L*R1:12:2);
J:=J+3;
IF K=1 THEN
BEGIN
VARE.REELTAL(4):=VARE.REELTAL(4)+L;
VARE.REELTAL(11):=VARE.REELTAL(11)-L
END;
VARE.REELTAL(13):=VARE.REELTAL(13)-L*R1*100;
VARE.REELTAL(15):=VARE.REELTAL(15)-L*(R1*100-VARE.REELTAL(2));
PUTREC(VZ.H,FVAR,VARE.A);
R:=R+R1*L*100
END
END;
3: BEGIN
GOTOXY(1,6);WRITELN('Tekst');
REPEAT
GOTOXY(10,6);READLN;READ(STRENG)
UNTIL LENGTH(STRENG)<=45;
GOTOXY(1,7);WRITELN('Pris');
REPEAT
GOTOXY(10,7);READLN;READ(R1)
UNTIL (IORESULT=0) AND (R1>0);
WRITELN(T);
WRITELN(T,' ':11,STRENG:45,' ':5,R1:12:2);
J:=J+2;
R:=R+R1*100
END
END
END;
FUNCTION RUND(R:REAL):REAL;
VAR R1:REAL;
BEGIN
R1:=TRUNC(R/10000.0);
R1:=R1*10000.0;
RUND:=ROUND(R-R1)+R1
END;
PROCEDURE BODY;
BEGIN
WITH KUNDE DO
BEGIN
IF NR(3)=1 THEN
BEGIN
BETA.NR(1):=NR(1);
BETA.NR(2):=NR(2);
GETREC(BZ.H,FBETA,BETA.A)
END;
R:=0;
SIDE:=1;
HEAD;
FOR I:=1 TO 6 DO LINES;
J:=J+2;
WRITELN(T);
WRITELN(T,' ':52,'Subtotal',R/100:13:2);
JOURFIL^.REEL(7):=-R;
JOURFIL^.REEL(3):=0;
JOURFIL^.REEL(6):=0;
FOR I:=J TO 23 DO WRITELN(T);
WRITE(T,' ':10);JOURFIL^.REEL(4):=0;
WRITE(T,' ':20);
JOURFIL^.REEL(5):=0;
WRITE(T,R/100:21:2);
IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN
BEGIN
R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);
WRITE(T,R1/100:10:2);
R:=R+R1
END
ELSE
BEGIN
R1:=0;
WRITE(T,' ':10)
END;
JOURFIL^.REEL(1):=-R;
JOURFIL^.REEL(2):=-R1;
WRITELN(T,R/100:12:2);
WRITELN(T);
WRITELN(T);
WITH JOURFIL^ DO
BEGIN
NR(1):=KUNDE.NR(1);
NR(2):=KUNDE.NR(2);
NR(3):=SYSFIL^.HELTAL(9);
NR(4):=SYSFIL^.HELTAL(10);
NR(5):=SYSFIL^.HELTAL(1);
NR(6):=SYSFIL^.HELTAL(2)
END;
PUT(JOURFIL);
SYSFIL^.HELTAL(10):=SYSFIL^.HELTAL(10)+1;
IF SYSFIL^.HELTAL(10)=10000 THEN
BEGIN
SYSFIL^.HELTAL(9):=SYSFIL^.HELTAL(9)+1;
SYSFIL^.HELTAL(10):=0
END;
SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;
END;
END;
BEGIN
FNAVN:='REGVARE:P1:0000:I';
REWRITE(FVAR,FNAVN);
IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;
FNAVN:='KUNDERG:P2:0000:I';
RESET(FKUN,FNAVN);
IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;
FNAVN:='SYSREG:P2:1:I';
REWRITE(SYSFIL,FNAVN);
SEEK(SYSFIL,1);
GET(SYSFIL);
FNAVN:='JOURNAL:P2:30:I';
REWRITE(JOURFIL,FNAVN);
SEEK(JOURFIL,SYSFIL^.HELTAL(13));
FNAVN:='LANDEREG:P2:0:I';
RESET(LANDFIL,FNAVN);
FNAVN:='BETAREG:P2:0000:I';
REWRITE(FBETA,FNAVN);
IOPEN(BZ.H,FBETA,LÆS);
FNAVN:='KRETEXT:P1:10:K';
REWRITE(T,FNAVN);
REPEAT
FINDKUND;
IF R<>0.0 THEN BODY
UNTIL R=0.0;
SEEK(SYSFIL,1);
PUT(SYSFIL);
ICLOSE(VZ.H,FVAR);
ICLOSE(KZ.H,FKUN);
ICLOSE(BZ.H,FBETA);
CLOSE(T);
CHAIN('INTRE *1','HOVSA:P1',QUQ)
END.
0x0000…0015 Line {l1=0x13, l2=»PROGRAM KREDNOTAER;«, l3=0x13}
0x0015…0036 Line {l1=0x1f, l2=»CONST TOPMARG=6; LMARG=9; DK=8;«, l3=0x1f}
0x0036…0046 Line {l1=0x0e, l2=» (*$IISFHEAD*)«, l3=0x0e}
0x0046…0055 Line {l1=0x0d, l2=» VPOST=RECORD«, l3=0x0d}
0x0055…006b Line {l1=0x14, l2=» A :AR;«, l3=0x14}
0x006b…0095 Line {l1=0x28, l2=» HELTAL:ARRAY (1..11) OF INTEGER;«, l3=0x28}
0x0095…00de Line {l1=0x47, l2=» (*VARENR,LVRNDØR,OPRLAND,PAKENHED,FORVLEVU,DATSBES1,DATSBES2,DATSORD1,«, l3=0x47}
0x00de…00ff Line {l1=0x1f, l2=» DATSORD2,DÆKGRASÅ,ANAFTILG*)«, l3=0x1f}
0x00ff…013a Line {l1=0x39, l2=» NAVN:ARRAY (1..2) OF PACKED ARRAY(1..30) OF CHAR;«, l3=0x39}
0x013a…015b Line {l1=0x1f, l2=» (*VARENAVN,NAVNHOSLEVERANDØR*)«, l3=0x1f}
0x015b…0183 Line {l1=0x26, l2=» REELTAL :ARRAY (1..15) OF REAL«, l3=0x26}
0x0183…01c9 Line {l1=0x44, l2=» (*PRIS,KOSTPRIS,TOLDPNR,FYSLAGER,PRIMOLAG,MINLAGER,RESAFLAG,IORDRE,«, l3=0x44}
0x01c9…020d Line {l1=0x42, l2=» RESAFIORDRE,STASBEST,ASOLGTIÅ,ASOLGTSÅ,OMSIÅR,OMSSÅR,DÆKBIDTD*)«, l3=0x42}
0x020d…0215 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0215…0224 Line {l1=0x0d, l2=» KPOST=RECORD«, l3=0x0d}
0x0224…0233 Line {l1=0x0d, l2=» A:AR;«, l3=0x0d}
0x0233…0259 Line {l1=0x24, l2=» NR:ARRAY (1..23) OF INTEGER;«, l3=0x24}
0x0259…02a2 Line {l1=0x47, l2=» (*KNR1,KNR2,ANDBETADR,KÆDENR1,KÆDENR2,RESTORDRE,LAND,BETAKODE,LEVKODE,«, l3=0x47}
0x02a2…02eb Line {l1=0x47, l2=» RENTKODE,KREDDAGE,ANTFAKT,SIDFAKD1,SIDFAKD2,EMBALLAGE,BRÆKAGE,RABAT,«, l3=0x47}
0x02eb…031b Line {l1=0x2e, l2=» EXPORT,RFSALDO,PERTRENT,NPOSTNR1,NPOSTNR2*)«, l3=0x2e}
0x031b…036b Line {l1=0x4e, l2=» (* NAVN,UDVNAVN,LEVADR*)NAVN:ARRAY(1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x4e}
0x036b…039a Line {l1=0x2d, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2d}
0x039a…03c8 Line {l1=0x2c, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2c}
0x03c8…03f3 Line {l1=0x29, l2=» TLF:PACKED ARRAY (1..10) OF CHAR;«, l3=0x29}
0x03f3…041c Line {l1=0x27, l2=» SALDOKØB :ARRAY (1..9) OF REAL;«, l3=0x27}
0x041c…0441 Line {l1=0x23, l2=» (*SALDO1-6,ÅRKØB,MÅNKØB,SIDÅRKØB*)«, l3=0x23}
0x0441…0449 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0449…045a Line {l1=0x0f, l2=»BETAPOST=RECORD«, l3=0x0f}
0x045a…0468 Line {l1=0x0c, l2=» A:AR;«, l3=0x0c}
0x0468…048c Line {l1=0x22, l2=» NR:ARRAY (1..3) OF INTEGER;«, l3=0x22}
0x048c…04a7 Line {l1=0x19, l2=» (*KNR1,KNR2,LAND*)«, l3=0x19}
0x04a7…04e2 Line {l1=0x39, l2=» NAVN:ARRAY (1..3) OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x39}
0x04e2…04ff Line {l1=0x1b, l2=» (*NAVN,UDVNAVN,ADR*)«, l3=0x1b}
0x04ff…052d Line {l1=0x2c, l2=» LANDSBY:PACKED ARRAY (1..20) OF CHAR;«, l3=0x2c}
0x052d…055a Line {l1=0x2b, l2=» POSTNR:PACKED ARRAY (1..25) OF CHAR;«, l3=0x2b}
0x055a…0583 Line {l1=0x27, l2=» TLF:PACKED ARRAY (1..10) OF CHAR«, l3=0x27}
0x0583…0589 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0589…059a Line {l1=0x0f, l2=»JOURPOST=RECORD«, l3=0x0f}
0x059a…05af Line {l1=0x13, l2=» (*KNR1,KNR2,«, l3=0x13}
0x05af…05e7 Line {l1=0x36, l2=» FAKTNR1-2,DAT1-2*) NR:ARRAY(1..6) OF INTEGER;«, l3=0x36}
0x05e7…05f8 Line {l1=0x0f, l2=» (*NETTO,«, l3=0x0f}
0x05f8…0608 Line {l1=0x0e, l2=» MOMS,«, l3=0x0e}
0x0608…0619 Line {l1=0x0f, l2=» RABAT,«, l3=0x0f}
0x0619…0630 Line {l1=0x15, l2=» BRÆKAGEFORS,«, l3=0x15}
0x0630…0641 Line {l1=0x0f, l2=» FRAGT,«, l3=0x0f}
0x0641…0656 Line {l1=0x13, l2=» EMBALLAGE,«, l3=0x13}
0x0656…0687 Line {l1=0x2f, l2=» VARESALG *) REEL:ARRAY(1..7) OF REAL«, l3=0x2f}
0x0687…068d Line {l1=0x04, l2=»END;«, l3=0x04}
0x068d…06a9 Line {l1=0x1a, l2=»JOURFILE=FILE OF JOURPOST;«, l3=0x1a}
0x06a9…06b9 Line {l1=0x0e, l2=»SYSPOST=RECORD«, l3=0x0e}
0x06b9…06c9 Line {l1=0x0e, l2=»(*DATO1,DATO2,«, l3=0x0e}
0x06c9…06d3 Line {l1=0x08, l2=» UGENR,«, l3=0x08}
0x06d3…06de Line {l1=0x09, l2=» MAXEXC,«, l3=0x09}
0x06de…06ed Line {l1=0x0d, l2=» ORDRENR1-2,«, l3=0x0d}
0x06ed…06fb Line {l1=0x0c, l2=» FAKTNR1-2,«, l3=0x0c}
0x06fb…070b Line {l1=0x0e, l2=» KREDNTNR1-2,«, l3=0x0e}
0x070b…0748 Line {l1=0x3b, l2=» BILAGSNR1-2,JOURFILNR*) HELTAL: ARRAY (1..24) OF INTEGER;«, l3=0x3b}
0x0748…0765 Line {l1=0x1b, l2=» KGB:ARRAY (1..5) OF REAL;«, l3=0x1b}
0x0765…078e Line {l1=0x27, l2=» BETADAT:PACKED ARRAY (1..13) OF CHAR;«, l3=0x27}
0x078e…07d5 Line {l1=0x45, l2=»(*KIKKODE,ÆNDKODE*) KODE:ARRAY (1..2) OF PACKED ARRAY (1..10) OF CHAR«, l3=0x45}
0x07d5…07db Line {l1=0x04, l2=»END;«, l3=0x04}
0x07db…07f5 Line {l1=0x18, l2=»SYSFILE=FILE OF SYSPOST;«, l3=0x18}
0x07f5…0805 Line {l1=0x0e, l2=» VZONE= RECORD«, l3=0x0e}
0x0805…0819 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0819…083d Line {l1=0x22, l2=» T:ARRAY(1..451) OF INTEGER«, l3=0x22}
0x083d…0845 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0845…0854 Line {l1=0x0d, l2=» KZONE=RECORD«, l3=0x0d}
0x0854…0868 Line {l1=0x12, l2=» H:ISFHEAD;«, l3=0x12}
0x0868…088c Line {l1=0x22, l2=» T:ARRAY(1..918) OF INTEGER«, l3=0x22}
0x088c…0894 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0894…08a5 Line {l1=0x0f, l2=»BETAZONE=RECORD«, l3=0x0f}
0x08a5…08b8 Line {l1=0x11, l2=» H:ISFHEAD;«, l3=0x11}
0x08b8…08db Line {l1=0x21, l2=» T:ARRAY(1..374) OF INTEGER«, l3=0x21}
0x08db…08e1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x08e1…0911 Line {l1=0x2e, l2=»LANDFILE=FILE OF PACKED ARRAY (1..30) OF CHAR;«, l3=0x2e}
0x0911…0931 Line {l1=0x1e, l2=» VAR FBETA,FVAR,FKUN : ISF;«, l3=0x1e}
0x0931…094a Line {l1=0x17, l2=» SYSFIL:SYSFILE;«, l3=0x17}
0x094a…0965 Line {l1=0x19, l2=» LANDFIL:LANDFILE;«, l3=0x19}
0x0965…0980 Line {l1=0x19, l2=» JOURFIL:JOURFILE;«, l3=0x19}
0x0980…0991 Line {l1=0x0f, l2=» T:TEXT;«, l3=0x0f}
0x0991…09bd Line {l1=0x2a, l2=» NAME:PACKED ARRAY (1..26) OF CHAR;«, l3=0x2a}
0x09bd…09d0 Line {l1=0x11, l2=» VZ:VZONE;«, l3=0x11}
0x09d0…09e6 Line {l1=0x14, l2=» BZ:BETAZONE;«, l3=0x14}
0x09e6…09f9 Line {l1=0x11, l2=» KZ:KZONE;«, l3=0x11}
0x09f9…0a0e Line {l1=0x13, l2=» VARE:VPOST;«, l3=0x13}
0x0a0e…0a24 Line {l1=0x14, l2=» KUNDE:KPOST;«, l3=0x14}
0x0a24…0a3c Line {l1=0x16, l2=» BETA:BETAPOST;«, l3=0x16}
0x0a3c…0a57 Line {l1=0x19, l2=» FNAVN:STRING(20);«, l3=0x19}
0x0a57…0a7b Line {l1=0x22, l2=» IER,I,J,K,L,SIDE :INTEGER;«, l3=0x22}
0x0a7b…0a8d Line {l1=0x10, l2=» CH:CHAR;«, l3=0x10}
0x0a8d…0aa5 Line {l1=0x16, l2=» STRENG:STRING;«, l3=0x16}
0x0aa5…0abf Line {l1=0x18, l2=» KNAVN:STRING(4);«, l3=0x18}
0x0abf…0adf Line {l1=0x1e, l2=» R,R1,R2 :REAL;«, l3=0x1e}
0x0adf…0af6 Line {l1=0x15, l2=» QUQ:^INTEGER;«, l3=0x15}
0x0af6…0aff Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0aff…0b13 Line {l1=0x12, l2=» (*$R-,IEXCOMCOP*)«, l3=0x12}
0x0b13…0b21 Line {l1=0x0c, l2=» (*$IIOPEN*)«, l3=0x0c}
0x0b21…0b2f Line {l1=0x0c, l2=» (*$ISÆTØG*)«, l3=0x0c}
0x0b2f…0b40 Line {l1=0x0f, l2=» (*$IREADPROC*)«, l3=0x0f}
0x0b40…0b51 Line {l1=0x0f, l2=» (*$IFINDPOST*)«, l3=0x0f}
0x0b51…0b61 Line {l1=0x0e, l2=» (*$IFORSKYD*)«, l3=0x0e}
0x0b61…0b70 Line {l1=0x0d, l2=» (*$IICLOSE*)«, l3=0x0d}
0x0b70…0b7f Line {l1=0x0d, l2=» (*$IPUTGET*)«, l3=0x0d}
0x0b7f…0b8e Line {l1=0x0d, l2=» (*$IINSERT*)«, l3=0x0d}
0x0b8e…0b9e Line {l1=0x0e, l2=» (*$INEXTREC*)«, l3=0x0e}
0x0b9e…0bab Line {l1=0x0b, l2=» (*$R+,L+*)«, l3=0x0b}
0x0bab…0bbe Line {l1=0x11, l2=» PROCEDURE ERROR;«, l3=0x11}
0x0bbe…0bc6 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x0bc6…0beb Line {l1=0x23, l2=» WRITELN('FEJL I REGISTER ',IER);«, l3=0x23}
0x0beb…0c02 Line {l1=0x15, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x15}
0x0c02…0c19 Line {l1=0x15, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x15}
0x0c19…0c31 Line {l1=0x16, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x16}
0x0c31…0c4d Line {l1=0x1a, l2=» WRITELN('ICLOSE ',IER);«, l3=0x1a}
0x0c4d…0c5c Line {l1=0x0d, l2=» I:=I DIV 0«, l3=0x0d}
0x0c5c…0c63 Line {l1=0x05, l2=» END;«, l3=0x05}
0x0c63…0c75 Line {l1=0x10, l2=»PROCEDURE OFEJL;«, l3=0x10}
0x0c75…0c7c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c7c…0c8d Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x0c8d…0cd2 Line {l1=0x43, l2=» WRITELN('REGISTERFEJL ',IER,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x43}
0x0cd2…0d02 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x0d02…0d3b Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x0d3b…0d52 Line {l1=0x15, l2=» IF I<>0 THEN ERROR;«, l3=0x15}
0x0d52…0d61 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x0d61…0d67 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0d67…0d9b Line {l1=0x32, l2=»PROCEDURE NANU(VAR T:STRING;VAR NU1,NU2 :INTEGER);«, l3=0x32}
0x0d9b…0dab Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0dab…0db8 Line {l1=0x0b, l2=» R:REAL;«, l3=0x0b}
0x0db8…0dbf Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0dbf…0dca Line {l1=0x09, l2=» R:=0.0;«, l3=0x09}
0x0dca…0df1 Line {l1=0x25, l2=» FOR I:=1 TO 4 DO R:=R*29+ORD(T(I));«, l3=0x25}
0x0df1…0e09 Line {l1=0x16, l2=» I:=TRUNC(R/89998.0);«, l3=0x16}
0x0e09…0e22 Line {l1=0x17, l2=» R:=R-I*89998.0+10001;«, l3=0x17}
0x0e22…0e3a Line {l1=0x16, l2=» NU1:=TRUNC(R/10000);«, l3=0x16}
0x0e3a…0e57 Line {l1=0x1b, l2=» NU2:=TRUNC(R-NU1*10000.0)«, l3=0x1b}
0x0e57…0e5d Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e5d…0e72 Line {l1=0x13, l2=»PROCEDURE FINDKUND;«, l3=0x13}
0x0e72…0e8d Line {l1=0x19, l2=»VAR N1,N2,FIN:INTEGER;«, l3=0x19}
0x0e8d…0ea1 Line {l1=0x12, l2=» SVAR1:CHAR;«, l3=0x12}
0x0ea1…0ea8 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ea8…0eb2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0eb2…0ebd Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x0ebd…0ece Line {l1=0x0f, l2=» SVAR1:='N';«, l3=0x0f}
0x0ece…0ee0 Line {l1=0x10, l2=» CLEARSCREEN;«, l3=0x10}
0x0ee0…0eff Line {l1=0x1d, l2=» WRITELN('KREDIT-NOTAER');«, l3=0x1d}
0x0eff…0f11 Line {l1=0x10, l2=» GOTOXY(1,4);«, l3=0x10}
0x0f11…0f57 Line {l1=0x44, l2=» WRITELN('0 FOR AFSLUTNING, 1 FOR SØGNING MED NAVN, 2 FOR ALLE');«, l3=0x44}
0x0f57…0f63 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x0f63…0f73 Line {l1=0x0e, l2=» R:=-1.0;«, l3=0x0e}
0x0f73…0f87 Line {l1=0x12, l2=» GOTOXY(1,3);«, l3=0x12}
0x0f87…0fae Line {l1=0x25, l2=» WRITELN('INDTAST KUNDENUMMER');«, l3=0x25}
0x0fae…0fd1 Line {l1=0x21, l2=» GOTOXY(25,3);READLN;READ(R)«, l3=0x21}
0x0fd1…1008 Line {l1=0x35, l2=» UNTIL (IORESULT=0) AND (R>=0.0) AND (R<100000.0);«, l3=0x35}
0x1008…1038 Line {l1=0x2e, l2=» IF (R=0.0) OR (R=2.0) THEN EXIT(FINDKUND);«, l3=0x2e}
0x1038…1044 Line {l1=0x0a, l2=» REPEAT«, l3=0x0a}
0x1044…1059 Line {l1=0x13, l2=» IF R=1.0 THEN«, l3=0x13}
0x1059…106e Line {l1=0x13, l2=» IF I=1 THEN«, l3=0x13}
0x106e…107d Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x107d…1095 Line {l1=0x16, l2=» GOTOXY(1,4);«, l3=0x16}
0x1095…10c5 Line {l1=0x2e, l2=» WRITELN('INDTAST KUNDENAVN',' ':60);«, l3=0x2e}
0x10c5…10d7 Line {l1=0x10, l2=» REPEAT«, l3=0x10}
0x10d7…10f0 Line {l1=0x17, l2=» GOTOXY(20,4);«, l3=0x17}
0x10f0…110e Line {l1=0x1c, l2=» READLN;READ(KNAVN)«, l3=0x1c}
0x110e…1130 Line {l1=0x20, l2=» UNTIL LENGTH(KNAVN)=4;«, l3=0x20}
0x1130…114e Line {l1=0x1c, l2=» NANU(KNAVN,N1,N2);«, l3=0x1c}
0x114e…116a Line {l1=0x1a, l2=» KUNDE.NR(1):=N1;«, l3=0x1a}
0x116a…1186 Line {l1=0x1a, l2=» KUNDE.NR(2):=N2;«, l3=0x1a}
0x1186…11a4 Line {l1=0x1c, l2=» R1:=N1*10000.0+N2;«, l3=0x1c}
0x11a4…11ca Line {l1=0x24, l2=» GETREC(KZ.H,FKUN,KUNDE.A);«, l3=0x24}
0x11ca…1200 Line {l1=0x34, l2=» IF IER=-6 THEN NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x34}
0x1200…123c Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x123c…124c Line {l1=0x0e, l2=» I:=0«, l3=0x0e}
0x124c…1259 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1259…1267 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1267…1276 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1276…129d Line {l1=0x25, l2=» NEXTREC(KZ.H,FKUN,KUNDE.A);«, l3=0x25}
0x129d…12d9 Line {l1=0x3a, l2=» IF (IER=-9) OR (IER=-2) OR (IER=-1) THEN IER:=0;«, l3=0x3a}
0x12d9…1309 Line {l1=0x2e, l2=» R2:=KUNDE.NR(1)*10000.0+KUNDE.NR(2);«, l3=0x2e}
0x1309…134a Line {l1=0x3f, l2=» IF (R2-R1>SYSFIL^.HELTAL(4)) OR (R2<R1) THEN IER:=-6;«, l3=0x3f}
0x134a…1357 Line {l1=0x0b, l2=» END«, l3=0x0b}
0x1357…1363 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1363…1370 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1370…1398 Line {l1=0x26, l2=» KUNDE.NR(1):=TRUNC(R/10000.0);«, l3=0x26}
0x1398…13cc Line {l1=0x32, l2=» KUNDE.NR(2):=TRUNC(R-KUNDE.NR(1)*10000.0);«, l3=0x32}
0x13cc…13ef Line {l1=0x21, l2=» GETREC(KZ.H,FKUN,KUNDE.A)«, l3=0x21}
0x13ef…13fb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x13fb…140f Line {l1=0x12, l2=» GOTOXY(1,5);«, l3=0x12}
0x140f…141e Line {l1=0x0d, l2=» FIN:=1;«, l3=0x0d}
0x141e…1433 Line {l1=0x13, l2=» IF IER=0 THEN«, l3=0x13}
0x1433…1440 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1440…1487 Line {l1=0x45, l2=» WRITELN('KUNDENUMMER ',KUNDE.NR(1)*10000.0+KUNDE.NR(2):8:-2);«, l3=0x45}
0x1487…1499 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1499…14ba Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(1));«, l3=0x1f}
0x14ba…14db Line {l1=0x1f, l2=» WRITELN(KUNDE.NAVN(3));«, l3=0x1f}
0x14db…14fb Line {l1=0x1e, l2=» WRITELN(KUNDE.POSTNR);«, l3=0x1e}
0x14fb…150d Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x150d…1532 Line {l1=0x23, l2=» WRITELN('TLF: ',KUNDE.TLF);«, l3=0x23}
0x1532…1567 Line {l1=0x33, l2=» GOTOXY(40,6);WRITELN('RIGTIG KUNDE (J/N)');«, l3=0x33}
0x1567…15af Line {l1=0x46, l2=» REPEAT GOTOXY(60,6);READLN;READ(SVAR1) UNTIL (IORESULT=0) AND«, l3=0x46}
0x15af…15fc Line {l1=0x4b, l2=» ((SVAR1='J') OR (SVAR1='N') OR (SVAR1='n') OR (SVAR1='j'));«, l3=0x4b}
0x15fc…163d Line {l1=0x3f, l2=» IF ((SVAR1='N') OR (SVAR1='n')) AND (R=1.0) THEN FIN:=0«, l3=0x3f}
0x163d…1648 Line {l1=0x09, l2=» END«, l3=0x09}
0x1648…1654 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1654…166a Line {l1=0x14, l2=» IF IER=-6 THEN«, l3=0x14}
0x166a…1677 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1677…1688 Line {l1=0x0f, l2=» IER:=0;«, l3=0x0f}
0x1688…16a2 Line {l1=0x18, l2=» WRITELN(' ':80);«, l3=0x18}
0x16a2…16db Line {l1=0x37, l2=» WRITELN('KUNDEN EKSISTERER IKKE, TRYK RETURN');«, l3=0x37}
0x16db…16eb Line {l1=0x0e, l2=» READLN«, l3=0x0e}
0x16eb…16f6 Line {l1=0x09, l2=» END«, l3=0x09}
0x16f6…1708 Line {l1=0x10, l2=» ELSE ERROR«, l3=0x10}
0x1708…1719 Line {l1=0x0f, l2=» UNTIL FIN=1«, l3=0x0f}
0x1719…1748 Line {l1=0x2d, l2=» UNTIL (SVAR1='J') OR (SVAR1='j') OR (R=0.0)«, l3=0x2d}
0x1748…174e Line {l1=0x04, l2=»END;«, l3=0x04}
0x174e…175f Line {l1=0x0f, l2=»PROCEDURE HEAD;«, l3=0x0f}
0x175f…176f Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x176f…1776 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1776…1785 Line {l1=0x0d, l2=»WITH KUNDE DO«, l3=0x0d}
0x1785…178c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x178c…17a0 Line {l1=0x12, l2=» WRITELN(T,'%P');«, l3=0x12}
0x17a0…17c6 Line {l1=0x24, l2=» FOR I:=1 TO TOPMARG DO WRITELN(T);«, l3=0x24}
0x17c6…17d9 Line {l1=0x11, l2=» IF NR(3)=1 THEN«, l3=0x11}
0x17d9…17e2 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x17e2…1800 Line {l1=0x1c, l2=» I:=0;«, l3=0x1c}
0x1800…1817 Line {l1=0x15, l2=» REPEAT I:=I+1«, l3=0x15}
0x1817…1846 Line {l1=0x2d, l2=» UNTIL (I=4) OR (BETA.NAVN(1,I)<>' ');«, l3=0x2d}
0x1846…186a Line {l1=0x22, l2=» IF BETA.NAVN(1,I)=' ' THEN«, l3=0x22}
0x186a…1878 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1878…18a4 Line {l1=0x2a, l2=» MOVELEFT(BETA.NAVN(1,5),NAME,26);«, l3=0x2a}
0x18a4…18c9 Line {l1=0x23, l2=» WRITE(T,' ':6,NAME,' ':14)«, l3=0x23}
0x18c9…18d5 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x18d5…18e2 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x18e2…1910 Line {l1=0x2c, l2=» WRITE(T,' ':6,BETA.NAVN(1),' ':10);«, l3=0x2c}
0x1910…191e Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x191e…1934 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x1934…195d Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x195d…197b Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x197b…1989 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1989…19b0 Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x19b0…19ca Line {l1=0x18, l2=» WRITELN(T,NAME)«, l3=0x18}
0x19ca…19d6 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x19d6…19e3 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x19e3…1a01 Line {l1=0x1c, l2=» WRITELN(T,NAVN(1));«, l3=0x1c}
0x1a01…1a37 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(2),' ':10,NAVN(2));«, l3=0x34}
0x1a37…1a6d Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.NAVN(3),' ':10,NAVN(3));«, l3=0x34}
0x1a6d…1aa3 Line {l1=0x34, l2=» WRITELN(T,' ':6,BETA.LANDSBY,' ':20,LANDSBY);«, l3=0x34}
0x1aa3…1ad7 Line {l1=0x32, l2=» WRITELN(T,' ':6,BETA.POSTNR,' ':15,POSTNR);«, l3=0x32}
0x1ad7…1af5 Line {l1=0x1c, l2=» IF BETA.NR(3)=DK THEN«, l3=0x1c}
0x1af5…1b0f Line {l1=0x18, l2=» WRITE(T,' ':46)«, l3=0x18}
0x1b0f…1b1c Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1b1c…1b2a Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1b2a…1b4e Line {l1=0x22, l2=» SEEK(LANDFIL,BETA.NR(3));«, l3=0x22}
0x1b4e…1b66 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1b66…1b8f Line {l1=0x27, l2=» WRITE(T,' ':6,LANDFIL^,' ':10)«, l3=0x27}
0x1b8f…1b9c Line {l1=0x0b, l2=» END;«, l3=0x0b}
0x1b9c…1bb5 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1bb5…1bca Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1bca…1bd7 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1bd7…1be5 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1be5…1c04 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x1c04…1c1c Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1c1c…1c3a Line {l1=0x1c, l2=» WRITELN(T,LANDFIL^)«, l3=0x1c}
0x1c3a…1c46 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1c46…1c4d Line {l1=0x05, l2=» END«, l3=0x05}
0x1c4d…1c55 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x1c55…1c5e Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x1c5e…1c6c Line {l1=0x0c, l2=» I:=0;«, l3=0x0c}
0x1c6c…1c82 Line {l1=0x14, l2=» REPEAT I:=I+1«, l3=0x14}
0x1c82…1cab Line {l1=0x27, l2=» UNTIL (I=4) OR (NAVN(1,I)<>' ');«, l3=0x27}
0x1cab…1cc9 Line {l1=0x1c, l2=» IF NAVN(1,I)=' ' THEN«, l3=0x1c}
0x1cc9…1cd7 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1cd7…1cfe Line {l1=0x25, l2=» MOVELEFT(NAVN(1,5),NAME,26);«, l3=0x25}
0x1cfe…1d1e Line {l1=0x1e, l2=» WRITELN(T,' ':6,NAME)«, l3=0x1e}
0x1d1e…1d2a Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1d2a…1d37 Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1d37…1d59 Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(1));«, l3=0x20}
0x1d59…1d7b Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(2));«, l3=0x20}
0x1d7b…1d9d Line {l1=0x20, l2=» WRITELN(T,' ':6,NAVN(3));«, l3=0x20}
0x1d9d…1dbf Line {l1=0x20, l2=» WRITELN(T,' ':6,LANDSBY);«, l3=0x20}
0x1dbf…1de0 Line {l1=0x1f, l2=» WRITELN(T,' ':6,POSTNR);«, l3=0x1f}
0x1de0…1df9 Line {l1=0x17, l2=» IF NR(7)=DK THEN«, l3=0x17}
0x1df9…1e0e Line {l1=0x13, l2=» WRITELN(T)«, l3=0x13}
0x1e0e…1e1b Line {l1=0x0b, l2=» ELSE«, l3=0x0b}
0x1e1b…1e29 Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x1e29…1e48 Line {l1=0x1d, l2=» SEEK(LANDFIL,NR(7));«, l3=0x1d}
0x1e48…1e60 Line {l1=0x16, l2=» GET(LANDFIL);«, l3=0x16}
0x1e60…1e84 Line {l1=0x22, l2=» WRITELN(T,' ':6,LANDFIL^)«, l3=0x22}
0x1e84…1e90 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x1e90…1e98 Line {l1=0x06, l2=» END;«, l3=0x06}
0x1e98…1eb2 Line {l1=0x18, l2=» WRITELN(T);WRITELN(T);«, l3=0x18}
0x1eb2…1edb Line {l1=0x27, l2=» WRITELN(T,' ':50,'Kreditnotanummer ',«, l3=0x27}
0x1edb…1f1c Line {l1=0x3f, l2=» SYSFIL^.HELTAL(9)*10000.0+SYSFIL^.HELTAL(10):6:-2);«, l3=0x3f}
0x1f1c…1f2b Line {l1=0x0d, l2=» WRITELN(T);«, l3=0x0d}
0x1f2b…1f48 Line {l1=0x1b, l2=» WRITELN(T,' ':74,SIDE:2);«, l3=0x1b}
0x1f48…1f59 Line {l1=0x0f, l2=» SIDE:=SIDE+1;«, l3=0x0f}
0x1f59…1f7f Line {l1=0x24, l2=» WRITE(T,NR(1)*10000.0+NR(2):9:-2);«, l3=0x24}
0x1f7f…1fae Line {l1=0x2d, l2=» WRITELN(T,' ':54,SYSFIL^.HELTAL(1)*10000.0+«, l3=0x2d}
0x1fae…1fda Line {l1=0x2a, l2=» SYSFIL^.HELTAL(2):6:-2);«, l3=0x2a}
0x1fda…1fe3 Line {l1=0x07, l2=» J:=1;«, l3=0x07}
0x1fe3…1ff1 Line {l1=0x0c, l2=» WRITELN(T)«, l3=0x0c}
0x1ff1…1ff6 Line {l1=0x03, l2=»END«, l3=0x03}
0x1ff6…1ffc Line {l1=0x04, l2=»END;«, l3=0x04}
0x1ffc…200e Line {l1=0x10, l2=»PROCEDURE LINES;«, l3=0x10}
0x200e…2015 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2015…2025 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x2025…204c Line {l1=0x25, l2=» WRITELN('Returnering af vare (1)');«, l3=0x25}
0x204c…2073 Line {l1=0x25, l2=» WRITELN('Dekort på vare (2)');«, l3=0x25}
0x2073…209a Line {l1=0x25, l2=» WRITELN('Generel dekort (3)');«, l3=0x25}
0x209a…20c7 Line {l1=0x2b, l2=» WRITELN('Indtast (1,2,3), 0 for færdig');«, l3=0x2b}
0x20c7…20d1 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x20d1…20f2 Line {l1=0x1f, l2=» GOTOXY(32,4);READLN;READ(K)«, l3=0x1f}
0x20f2…211e Line {l1=0x2a, l2=» UNTIL (IORESULT=0) AND (K>-1) AND (K<4);«, l3=0x2a}
0x211e…212b Line {l1=0x0b, l2=» CASE K OF«, l3=0x0b}
0x212b…2138 Line {l1=0x0b, l2=» 0: I:=15;«, l3=0x0b}
0x2138…2140 Line {l1=0x06, l2=» 1,2:«, l3=0x06}
0x2140…214c Line {l1=0x0a, l2=» BEGIN«, l3=0x0a}
0x214c…215b Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x215b…2184 Line {l1=0x27, l2=» GOTOXY(1,6);WRITELN('Varenr');«, l3=0x27}
0x2184…2195 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x2195…21ca Line {l1=0x33, l2=» GOTOXY(10,6);READLN;READ(VARE.HELTAL(1))«, l3=0x33}
0x21ca…21e6 Line {l1=0x1a, l2=» UNTIL IORESULT=0;«, l3=0x1a}
0x21e6…2209 Line {l1=0x21, l2=» IF VARE.HELTAL(1)>0 THEN«, l3=0x21}
0x2209…2219 Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x2219…223f Line {l1=0x24, l2=» GETREC(VZ.H,FVAR,VARE.A);«, l3=0x24}
0x223f…2259 Line {l1=0x18, l2=» IF IER=0 THEN«, l3=0x18}
0x2259…226b Line {l1=0x10, l2=» BEGIN«, l3=0x10}
0x226b…22af Line {l1=0x42, l2=» GOTOXY(20,6);WRITELN(VARE.NAVN(1),' Rigtig vare ?');«, l3=0x42}
0x22af…22c4 Line {l1=0x13, l2=» REPEAT«, l3=0x13}
0x22c4…22f1 Line {l1=0x2b, l2=» GOTOXY(67,6);READLN;READ(CH)«, l3=0x2b}
0x22f1…232f Line {l1=0x3c, l2=» UNTIL (IORESULT=0) AND ((CH='J') OR (CH='N') OR«, l3=0x3c}
0x232f…236c Line {l1=0x3b, l2=» (CH='j') OR (CH='n'));«, l3=0x3b}
0x236c…239f Line {l1=0x31, l2=» IF (CH='N') OR (CH='n') THEN IER:=-6«, l3=0x31}
0x239f…23af Line {l1=0x0e, l2=» END«, l3=0x0e}
0x23af…23d6 Line {l1=0x25, l2=» ELSE IF IER<>-6 THEN ERROR«, l3=0x25}
0x23d6…23e4 Line {l1=0x0c, l2=» END«, l3=0x0c}
0x23e4…23fa Line {l1=0x14, l2=» ELSE IER:=0«, l3=0x14}
0x23fa…240f Line {l1=0x13, l2=» UNTIL IER=0;«, l3=0x13}
0x240f…243d Line {l1=0x2c, l2=» IF VARE.HELTAL(1)<=0 THEN I:=I-1 ELSE«, l3=0x2c}
0x243d…244b Line {l1=0x0c, l2=» BEGIN«, l3=0x0c}
0x244b…2473 Line {l1=0x26, l2=» GOTOXY(1,7);WRITELN('Antal');«, l3=0x26}
0x2473…2484 Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x2484…24ac Line {l1=0x26, l2=» GOTOXY(10,7);READLN;READ(L)«, l3=0x26}
0x24ac…24d4 Line {l1=0x26, l2=» UNTIL (IORESULT=0) AND (L>0);«, l3=0x26}
0x24d4…24fc Line {l1=0x26, l2=» GOTOXY(20,7);WRITELN('Pris');«, l3=0x26}
0x24fc…250d Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x250d…2536 Line {l1=0x27, l2=» GOTOXY(30,7);READLN;READ(R1)«, l3=0x27}
0x2536…2561 Line {l1=0x29, l2=» UNTIL (IORESULT=0) AND (R1>0.0);«, l3=0x29}
0x2561…2589 Line {l1=0x26, l2=» GOTOXY(1,8);WRITELN('Tekst');«, l3=0x26}
0x2589…259a Line {l1=0x0f, l2=» REPEAT«, l3=0x0f}
0x259a…25c7 Line {l1=0x2b, l2=» GOTOXY(10,8);READLN;READ(STRENG)«, l3=0x2b}
0x25c7…25eb Line {l1=0x22, l2=» UNTIL LENGTH(STRENG)<=60;«, l3=0x22}
0x25eb…2601 Line {l1=0x14, l2=» WRITELN(T);«, l3=0x14}
0x2601…2625 Line {l1=0x22, l2=» WRITELN(T,' ':11,STRENG);«, l3=0x22}
0x2625…2668 Line {l1=0x41, l2=» WRITELN(T,VARE.HELTAL(1):9,' ':2,VARE.NAVN(1),L:5,' ':5,«, l3=0x41}
0x2668…26a7 Line {l1=0x3d, l2=» R1:10:2,L*R1:12:2);«, l3=0x3d}
0x26a7…26b9 Line {l1=0x10, l2=» J:=J+3;«, l3=0x10}
0x26b9…26cf Line {l1=0x14, l2=» IF K=1 THEN«, l3=0x14}
0x26cf…26df Line {l1=0x0e, l2=» BEGIN«, l3=0x0e}
0x26df…270f Line {l1=0x2e, l2=» VARE.REELTAL(4):=VARE.REELTAL(4)+L;«, l3=0x2e}
0x270f…2740 Line {l1=0x2f, l2=» VARE.REELTAL(11):=VARE.REELTAL(11)-L«, l3=0x2f}
0x2740…274f Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x274f…2786 Line {l1=0x35, l2=» VARE.REELTAL(13):=VARE.REELTAL(13)-L*R1*100;«, l3=0x35}
0x2786…27cf Line {l1=0x47, l2=» VARE.REELTAL(15):=VARE.REELTAL(15)-L*(R1*100-VARE.REELTAL(2));«, l3=0x47}
0x27cf…27f3 Line {l1=0x22, l2=» PUTREC(VZ.H,FVAR,VARE.A);«, l3=0x22}
0x27f3…280b Line {l1=0x16, l2=» R:=R+R1*L*100«, l3=0x16}
0x280b…2817 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x2817…2822 Line {l1=0x09, l2=» END;«, l3=0x09}
0x2822…282e Line {l1=0x0a, l2=» 3: BEGIN«, l3=0x0a}
0x282e…2854 Line {l1=0x24, l2=» GOTOXY(1,6);WRITELN('Tekst');«, l3=0x24}
0x2854…2863 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x2863…288e Line {l1=0x29, l2=» GOTOXY(10,6);READLN;READ(STRENG)«, l3=0x29}
0x288e…28b0 Line {l1=0x20, l2=» UNTIL LENGTH(STRENG)<=45;«, l3=0x20}
0x28b0…28d5 Line {l1=0x23, l2=» GOTOXY(1,7);WRITELN('Pris');«, l3=0x23}
0x28d5…28e4 Line {l1=0x0d, l2=» REPEAT«, l3=0x0d}
0x28e4…290b Line {l1=0x25, l2=» GOTOXY(10,7);READLN;READ(R1)«, l3=0x25}
0x290b…2932 Line {l1=0x25, l2=» UNTIL (IORESULT=0) AND (R1>0);«, l3=0x25}
0x2932…2946 Line {l1=0x12, l2=» WRITELN(T);«, l3=0x12}
0x2946…2979 Line {l1=0x31, l2=» WRITELN(T,' ':11,STRENG:45,' ':5,R1:12:2);«, l3=0x31}
0x2979…2989 Line {l1=0x0e, l2=» J:=J+2;«, l3=0x0e}
0x2989…299d Line {l1=0x12, l2=» R:=R+R1*100«, l3=0x12}
0x299d…29a7 Line {l1=0x08, l2=» END«, l3=0x08}
0x29a7…29ae Line {l1=0x05, l2=» END«, l3=0x05}
0x29ae…29b4 Line {l1=0x04, l2=»END;«, l3=0x04}
0x29b4…29d1 Line {l1=0x1b, l2=»FUNCTION RUND(R:REAL):REAL;«, l3=0x1b}
0x29d1…29df Line {l1=0x0c, l2=»VAR R1:REAL;«, l3=0x0c}
0x29df…29e6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x29e6…29ff Line {l1=0x17, l2=» R1:=TRUNC(R/10000.0);«, l3=0x17}
0x29ff…2a12 Line {l1=0x11, l2=» R1:=R1*10000.0;«, l3=0x11}
0x2a12…2a2a Line {l1=0x16, l2=» RUND:=ROUND(R-R1)+R1«, l3=0x16}
0x2a2a…2a30 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2a30…2a41 Line {l1=0x0f, l2=»PROCEDURE BODY;«, l3=0x0f}
0x2a41…2a48 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2a48…2a5b Line {l1=0x11, l2=» WITH KUNDE DO«, l3=0x11}
0x2a5b…2a66 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x2a66…2a7d Line {l1=0x15, l2=» IF NR(3)=1 THEN«, l3=0x15}
0x2a7d…2a8a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2a8a…2aa6 Line {l1=0x1a, l2=» BETA.NR(1):=NR(1);«, l3=0x1a}
0x2aa6…2ac2 Line {l1=0x1a, l2=» BETA.NR(2):=NR(2);«, l3=0x1a}
0x2ac2…2ae5 Line {l1=0x21, l2=» GETREC(BZ.H,FBETA,BETA.A)«, l3=0x21}
0x2ae5…2af1 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2af1…2afe Line {l1=0x0b, l2=» R:=0;«, l3=0x0b}
0x2afe…2b0e Line {l1=0x0e, l2=» SIDE:=1;«, l3=0x0e}
0x2b0e…2b1b Line {l1=0x0b, l2=» HEAD;«, l3=0x0b}
0x2b1b…2b3c Line {l1=0x1f, l2=» FOR I:=1 TO 6 DO LINES;«, l3=0x1f}
0x2b3c…2b4b Line {l1=0x0d, l2=» J:=J+2;«, l3=0x0d}
0x2b4b…2b5e Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
0x2b5e…2b8e Line {l1=0x2e, l2=» WRITELN(T,' ':52,'Subtotal',R/100:13:2);«, l3=0x2e}
0x2b8e…2bab Line {l1=0x1b, l2=» JOURFIL^.REEL(7):=-R;«, l3=0x1b}
0x2bab…2bc7 Line {l1=0x1a, l2=» JOURFIL^.REEL(3):=0;«, l3=0x1a}
0x2bc7…2be3 Line {l1=0x1a, l2=» JOURFIL^.REEL(6):=0;«, l3=0x1a}
0x2be3…2c08 Line {l1=0x23, l2=» FOR I:=J TO 23 DO WRITELN(T);«, l3=0x23}
0x2c08…2c34 Line {l1=0x2a, l2=» WRITE(T,' ':10);JOURFIL^.REEL(4):=0;«, l3=0x2a}
0x2c34…2c4c Line {l1=0x16, l2=» WRITE(T,' ':20);«, l3=0x16}
0x2c4c…2c68 Line {l1=0x1a, l2=» JOURFIL^.REEL(5):=0;«, l3=0x1a}
0x2c68…2c84 Line {l1=0x1a, l2=» WRITE(T,R/100:21:2);«, l3=0x1a}
0x2c84…2cb9 Line {l1=0x33, l2=» IF (KUNDE.NR(18)=0) OR (KUNDE.NR(18)=99) THEN«, l3=0x33}
0x2cb9…2cc6 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2cc6…2cf5 Line {l1=0x2d, l2=» R1:=RUND(R*SYSFIL^.HELTAL(14)/10000);«, l3=0x2d}
0x2cf5…2d14 Line {l1=0x1d, l2=» WRITE(T,R1/100:10:2);«, l3=0x1d}
0x2d14…2d25 Line {l1=0x0f, l2=» R:=R+R1«, l3=0x0f}
0x2d25…2d30 Line {l1=0x09, l2=» END«, l3=0x09}
0x2d30…2d3c Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x2d3c…2d49 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2d49…2d59 Line {l1=0x0e, l2=» R1:=0;«, l3=0x0e}
0x2d59…2d72 Line {l1=0x17, l2=» WRITE(T,' ':10)«, l3=0x17}
0x2d72…2d7e Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2d7e…2d9b Line {l1=0x1b, l2=» JOURFIL^.REEL(1):=-R;«, l3=0x1b}
0x2d9b…2db9 Line {l1=0x1c, l2=» JOURFIL^.REEL(2):=-R1;«, l3=0x1c}
0x2db9…2dd7 Line {l1=0x1c, l2=» WRITELN(T,R/100:12:2);«, l3=0x1c}
0x2dd7…2dea Line {l1=0x11, l2=» WRITELN(T);«, l3=0x11}
[…0x1…]
0x2dfd…2e15 Line {l1=0x16, l2=» WITH JOURFIL^ DO«, l3=0x16}
0x2e15…2e22 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2e22…2e3f Line {l1=0x1b, l2=» NR(1):=KUNDE.NR(1);«, l3=0x1b}
0x2e3f…2e5c Line {l1=0x1b, l2=» NR(2):=KUNDE.NR(2);«, l3=0x1b}
0x2e5c…2e7f Line {l1=0x21, l2=» NR(3):=SYSFIL^.HELTAL(9);«, l3=0x21}
0x2e7f…2ea3 Line {l1=0x22, l2=» NR(4):=SYSFIL^.HELTAL(10);«, l3=0x22}
0x2ea3…2ec6 Line {l1=0x21, l2=» NR(5):=SYSFIL^.HELTAL(1);«, l3=0x21}
0x2ec6…2ee8 Line {l1=0x20, l2=» NR(6):=SYSFIL^.HELTAL(2)«, l3=0x20}
0x2ee8…2ef4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2ef4…2f09 Line {l1=0x13, l2=» PUT(JOURFIL);«, l3=0x13}
0x2f09…2f3a Line {l1=0x2f, l2=» SYSFIL^.HELTAL(10):=SYSFIL^.HELTAL(10)+1;«, l3=0x2f}
0x2f3a…2f62 Line {l1=0x26, l2=» IF SYSFIL^.HELTAL(10)=10000 THEN«, l3=0x26}
0x2f62…2f6f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x2f6f…2fa0 Line {l1=0x2f, l2=» SYSFIL^.HELTAL(9):=SYSFIL^.HELTAL(9)+1;«, l3=0x2f}
0x2fa0…2fbf Line {l1=0x1d, l2=» SYSFIL^.HELTAL(10):=0«, l3=0x1d}
0x2fbf…2fcb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x2fcb…2ffc Line {l1=0x2f, l2=» SYSFIL^.HELTAL(13):=SYSFIL^.HELTAL(13)+1;«, l3=0x2f}
0x2ffc…3006 Line {l1=0x08, l2=» END;«, l3=0x08}
0x3006…300c Line {l1=0x04, l2=»END;«, l3=0x04}
0x300c…3013 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3013…3032 Line {l1=0x1d, l2=» FNAVN:='REGVARE:P1:0000:I';«, l3=0x1d}
0x3032…304a Line {l1=0x16, l2=» REWRITE(FVAR,FNAVN);«, l3=0x16}
0x304a…307a Line {l1=0x2e, l2=» IOPEN(VZ.H,FVAR,SKRIV);IF IER<>0 THEN OFEJL;«, l3=0x2e}
0x307a…307d Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3080…309f Line {l1=0x1d, l2=» FNAVN:='KUNDERG:P2:0000:I';«, l3=0x1d}
0x309f…30b5 Line {l1=0x14, l2=» RESET(FKUN,FNAVN);«, l3=0x14}
0x30b5…30e3 Line {l1=0x2c, l2=» IOPEN(KZ.H,FKUN,LÆS);IF IER<>0 THEN OFEJL;«, l3=0x2c}
0x30e3…30e6 Line {l1=0x01, l2=» «, l3=0x01}
0x30e6…3101 Line {l1=0x19, l2=» FNAVN:='SYSREG:P2:1:I';«, l3=0x19}
0x3101…311b Line {l1=0x18, l2=» REWRITE(SYSFIL,FNAVN);«, l3=0x18}
0x311b…312e Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x312e…313e Line {l1=0x0e, l2=» GET(SYSFIL);«, l3=0x0e}
0x313e…3141 Line {l1=0x01, l2=» «, l3=0x01}
0x3141…315e Line {l1=0x1b, l2=» FNAVN:='JOURNAL:P2:30:I';«, l3=0x1b}
0x315e…3179 Line {l1=0x19, l2=» REWRITE(JOURFIL,FNAVN);«, l3=0x19}
0x3179…319e Line {l1=0x23, l2=» SEEK(JOURFIL,SYSFIL^.HELTAL(13));«, l3=0x23}
0x319e…31a1 Line {l1=0x01, l2=» «, l3=0x01}
0x31a1…31be Line {l1=0x1b, l2=» FNAVN:='LANDEREG:P2:0:I';«, l3=0x1b}
0x31be…31d7 Line {l1=0x17, l2=» RESET(LANDFIL,FNAVN);«, l3=0x17}
0x31d7…31da Line {l1=0x01, l2=» «, l3=0x01}
0x31da…31f9 Line {l1=0x1d, l2=» FNAVN:='BETAREG:P2:0000:I';«, l3=0x1d}
0x31f9…3212 Line {l1=0x17, l2=» REWRITE(FBETA,FNAVN);«, l3=0x17}
0x3212…322c Line {l1=0x18, l2=» IOPEN(BZ.H,FBETA,LÆS);«, l3=0x18}
0x322c…322f Line {l1=0x01, l2=» «, l3=0x01}
0x322f…324c Line {l1=0x1b, l2=» FNAVN:='KRETEXT:P1:10:K';«, l3=0x1b}
0x324c…3261 Line {l1=0x13, l2=» REWRITE(T,FNAVN);«, l3=0x13}
0x3261…326b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x326b…327a Line {l1=0x0d, l2=» FINDKUND;«, l3=0x0d}
0x327a…3293 Line {l1=0x17, l2=» IF R<>0.0 THEN BODY«, l3=0x17}
0x3293…32a3 Line {l1=0x0e, l2=» UNTIL R=0.0;«, l3=0x0e}
0x32a3…32b6 Line {l1=0x11, l2=» SEEK(SYSFIL,1);«, l3=0x11}
0x32b6…32c6 Line {l1=0x0e, l2=» PUT(SYSFIL);«, l3=0x0e}
0x32c6…32dc Line {l1=0x14, l2=» ICLOSE(VZ.H,FVAR);«, l3=0x14}
0x32dc…32f2 Line {l1=0x14, l2=» ICLOSE(KZ.H,FKUN);«, l3=0x14}
0x32f2…3309 Line {l1=0x15, l2=» ICLOSE(BZ.H,FBETA);«, l3=0x15}
0x3309…3316 Line {l1=0x0b, l2=» CLOSE(T);«, l3=0x0b}
0x3316…333e Line {l1=0x26, l2=» CHAIN('INTRE *1','HOVSA:P1',QUQ)«, l3=0x26}
0x333e…3344 Line {l1=0x04, l2=»END.«, l3=0x04}
0x3344…3360 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccc┆
0x3360…3380 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x10…]
0x3580…35a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00 ┆ccccccccccccccccccccccccccccccc ┆