|
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: 15168 (0x3b40)
Types: TextFile
Notes: Mikados_K
Names: »LIMLØNLI.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »LIMLØNLI.K«
PROGRAM LIMLØNLI;
(*UDSKRIVNING AF LØNLISTE, SLETNING AF OMVENDT REGISTRERINGSLINIE*)
(*$L-*)
CONST MAXRECSIZE=1000;
(*@@*)
PROGRAMNR=6;
TYPE
PARMARRAY=PACKED ARRAY (1..39) OF CHAR;
NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);
POSTADR=0..MAXRECSIZE;
COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)
POINTREC=^COMMBUF;
NAME =STRING(10);
PCB =^INTEGER;
MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,
INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS,
RETURNHEAD,RETURNSTAT);
MESSAGE =RECORD
KOMMANDO:MESSAGETYPE;
INFO,IREC:INTEGER
END;
AR=ARRAY (-4..-4) OF INTEGER;
VAR PARM:^PARMARRAY;
USERNIVEAU:NIVEAU;
F:STRING(18);
QUQ:^INTEGER;
IER,IREC,STATUSER,MODE,REMUSERS,
FILNR,I:INTEGER;
FNAVN:STRING(18);
SEMAFOR:NAME;
FILEINIT:BOOLEAN;
SNYD:AR;
CPPCB:PCB;
COMREC:POINTREC;
BESKED:MESSAGE;
(*$P*)
(*$L-*)
PROCEDURE D(FRA,NR:INTEGER);
VAR I:INTEGER;
BEGIN
GOTOXY(1,FRA);
FOR I:=1 TO NR DO WRITELN(' ':79);
GOTOXY(1,FRA)
END;
PROCEDURE BAD(IDENT,STATUS:INTEGER);
BEGIN
D(23,1);
WRITE('BAD',IDENT:5,STATUS:5);
READLN
END;
(*$P*)
PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;
LENGTH:INTEGER;VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;
VAR LENGTH:INTEGER);
EXTERNAL;
PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;
VAR STATUS:INTEGER);
EXTERNAL;
PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);
EXTERNAL;
(*$IRESPRINT*)
(*$P*)
(*$IUDFØR*)
(*$IFISFPROC*)
(*$P*)
PROCEDURE REGVEDL;
(*@@*)
TYPE
ARAR=PACKED ARRAY (-11..-10) OF CHAR;
RAR=ARRAY (0..0) OF REAL;
LONGINT = ARRAY (1..2) OF INTEGER;
(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)
(*$P*)
(*$L+*)
MEDAPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TIMESATS,
PERSTIME,
TOTTIMLØ,
PRODTIME,
AKKORDLØ,
AKKORDAR :REAL;
NR,
AFDELING :INTEGER;
NAVN :PACKED ARRAY (1..30) OF CHAR
END;
REGLPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
TID,
MÆNGDE,
LØN :REAL;
ORDRENR,
EMNENR,
OPERANR,
MEDARBNR :INTEGER;
DATO :LONGINT;
RTYPE :INTEGER
END;
OMVRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
MEDARBNR,
ORDRENR,
EMNENR,
OPERANR :INTEGER;
DATO :LONGINT
END;
SYSRPOST=RECORD
AA:ARAR;
A:AR;
AAA:RAR;
AKKTIME :ARRAY (1..9) OF REAL;
NR :INTEGER;
DAGSDATO,
PERSTDAT :LONGINT;
ARBTIMDA,
ORDRENR :INTEGER
END;
(*$P*)
VAR HUSKNIV:NIVEAU;
OPTION,LINES,
I,J:INTEGER;
LINE:STRING;
MEDARB:MEDAPOST;
POST:REGLPOST;
OMVRREGL:OMVRPOST;
SYSTEM:SYSRPOST;
LONGNUL:LONGINT;
CH:STRING(1);
NEJ,JA,JAOGNEJ:SET OF CHAR;
(*$P*)
FUNCTION QJN(S:STRING):CHAR;
VAR CH:STRING(1);
BEGIN
REPEAT
D(23,1);
WRITE(S,' J/N ');
CH:='J';
EDIT(CH)
UNTIL CH(1) IN JAOGNEJ;
QJN:=CH(1);
D(23,1)
END;
PROCEDURE FORMULAR(I:INTEGER);
VAR LINES:INTEGER;
BEGIN
CASE I OF
1:BEGIN
D(23,1);
WRITE('Monter bredt 8.5" papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');
FOR LINES:=2 TO 50 DO WRITELN(LIST);
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')
END
END;
2:BEGIN
D(23,1);
WRITE('Monter generel formular, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
FOR LINES:=1 TO 4 DO WRITELN(LIST);
WRITELN(LIST,' ':35,'XXXXXX');
FOR LINES:=6 TO 72 DO WRITELN(LIST)
END
END;
3:BEGIN
D(23,1);
WRITE('Monter blankt A4 papir, RETURN ');
READLN;
WHILE QJN('Ønskes testprint') IN JA DO
BEGIN
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXX');
FOR LINES:=2 TO 71 DO WRITELN(LIST);
WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XXXXXXXXXXXXXXXXXXXXXXXX')
END
END
END
END;
PROCEDURE ERROR(VAR REC:AR);
VAR CH:STRING(1);
I:INTEGER;
BEGIN
D(23,1);
(*$R-*)
WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)
CH:=' ';EDIT(CH);
IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;
ICLOSE(MEDARB.A);
ICLOSE(POST.A);
ICLOSE(SYSTEM.A);
ICLOSE(OMVRREGL.A);
EXIT(REGVEDL)
END;
PROCEDURE CHECK0(VAR REC:AR);
BEGIN
IF IER<>0 THEN ERROR(REC)
END;
(*$P*)
PROCEDURE MAINTAIN;
VAR LINES:INTEGER;
TIDSUM,LØNSUM:REAL;
AFREGN:BOOLEAN;
BEGIN
CLEARSCREEN;
AFREGN:=QJN('Ønskes afregning') IN JA;
FORMULAR(3);
WITH OMVRREGL DO
BEGIN
LINES:=72;
MEDARB.NR:=0;
MEDARBNR:=1;
ORDRENR:=0;
EMNENR:=0;
OPERANR:=0;
DATO:=LONGNUL;
NEXTRECX(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);
IER:=0;
WHILE (IER=0) AND (OMVRREGL.MEDARBNR>0) DO
WITH POST DO
BEGIN
ORDRENR:=OMVRREGL.ORDRENR;
EMNENR:=OMVRREGL.EMNENR;
OPERANR:=OMVRREGL.OPERANR;
MEDARBNR:=OMVRREGL.MEDARBNR;
DATO:=OMVRREGL.DATO;
IF DATO(1)<100 THEN
BEGIN
GETREC(A);CHECK0(A);
IF (LINES>68) OR (MEDARB.NR<>MEDARBNR) THEN
BEGIN
IF MEDARB.NR<>MEDARBNR THEN
BEGIN
IF MEDARB.NR<>0 THEN
BEGIN
WRITELN(LIST,'TOTAL',' ':38,LØNSUM:11:2,TIDSUM:11:2);
IF NOT AFREGN THEN
BEGIN
WRITELN(LIST,'****** I K K E A F R E G N E T ******');
LINES:=LINES+1
END;
WRITELN(LIST);
LINES:=LINES+2
END;
TIDSUM:=0.0;
LØNSUM:=0.0;
MEDARB.NR:=MEDARBNR;
GETREC(MEDARB.A);CHECK0(MEDARB.A)
END;
WHILE LINES<72 DO
BEGIN
WRITELN(LIST);
LINES:=LINES+1
END;
WRITELN(LIST);
WRITELN(LIST,'LØNLISTE',' ':37,'UDSKRIFTSDATO',
SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2);
WRITELN(LIST);
LINES:=3;
WRITELN(LIST,'MEDARBEJDER');
WRITELN(LIST,MEDARBNR:5,' ':10,MEDARB.NAVN);
WRITELN(LIST,'ORDRE EMNE OPNR DATO MÆNGDE PRSTK ',
'LØN TID');
LINES:=LINES+3
END;
WRITE(LIST,ORDRENR:5,EMNENR:6,OPERANR:6,
(DATO(1) MOD 100)*10000.0+DATO(2):9:-2,MÆNGDE:9:-2);
IF (ABS(RTYPE)=3) AND (MÆNGDE>0.0) THEN
WRITE(LIST,(LØN-TID*MEDARB.PERSTIME)/MÆNGDE:8:2)
ELSE
WRITE(LIST,' ':8);
WRITELN(LIST,LØN:11:2,TID:11:2);
TIDSUM:=TIDSUM+TID;
LØNSUM:=LØNSUM+LØN;
LINES:=LINES+1
END;
IF AFREGN THEN
DELETEX(OMVRREGL.A)
ELSE
NEXTRECX(OMVRREGL.A)
END;
IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);
IF LINES<72 THEN
BEGIN
WRITELN(LIST,'TOTAL',' ':38,LØNSUM:11:2,TIDSUM:11:2);
IF NOT AFREGN THEN
BEGIN
WRITELN(LIST,'****** I K K E A F R E G N E T ******');
LINES:=LINES+1
END;
LINES:=LINES+1
END;
WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END
END
END;
(*$P*)
BEGIN (*REGVEDL*)
LONGNUL(1):=0;
LONGNUL(2):=0;
JA:=(.'J','j'.);
NEJ:=(.'N','n'.);
JAOGNEJ:=JA+NEJ;
CLEARSCREEN;
MODE:=3;(*SKRIV*)
(*$R-*)
MEDARB.A(-4):=0;
POST.A(-4):=0;
SYSTEM.A(-4):=0;
OMVRREGL.A(-4):=0;
MEDARB.A(-3):=7;
POST.A(-3):=16;(*REGL*)
SYSTEM.A(-3):=9;
OMVRREGL.A(-3):=23;
(*$R+*)
(*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)
IOPEN(SYSTEM.A); CHECK0(SYSTEM.A);
SYSTEM.NR:=0;
GETREC(SYSTEM.A);CHECK0(SYSTEM.A);
ICLOSE(SYSTEM.A);
IOPEN(MEDARB.A); CHECK0(MEDARB.A);
IOPEN(POST.A); CHECK0(POST.A);
IOPEN(OMVRREGL.A); CHECK0(OMVRREGL.A);
MAINTAIN;
ICLOSE(MEDARB.A);
ICLOSE(POST.A);
ICLOSE(OMVRREGL.A);
(*@@EVT. LUKNING AF ANDRE DATAFILER*)
CLEARSCREEN
END;
(*$P*)
BEGIN
SEMAFOR:='ALLOCOMBUF';
I:=ORD(PARM^(1))-48;
USERNIVEAU:=MENIG;
WHILE I>0 DO
BEGIN
USERNIVEAU:=SUCC(USERNIVEAU);
I:=I-1
END; (*$R-*)
SNYD(-3):=0;
FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;
IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)
UDFØR(PTILMELD,SNYD);
UDFØRT(PTILMELD,SNYD);
IF IER<>0 THEN BAD(1,IER);
(*@@TILPASSES*)
IF RESPRINT THEN
BEGIN
REGVEDL;
FREEPR
END;
UDFØR(PAFMELD,SNYD);
UDFØRT(PAFMELD,SNYD);
IF IER<>0 THEN BAD(2,IER);
FNAVN:=' ';
FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);
CHAIN('HOVED *1',FNAVN,QUQ);
IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)
END.
0x0000…0013 Line {l1=0x11, l2=»PROGRAM LIMLØNLI;«, l3=0x11}
0x0013…0058 Line {l1=0x43, l2=»(*UDSKRIVNING AF LØNLISTE, SLETNING AF OMVENDT REGISTRERINGSLINIE*)«, l3=0x43}
0x0058…0061 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0061…0079 Line {l1=0x16, l2=»CONST MAXRECSIZE=1000;«, l3=0x16}
0x0079…0081 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x0081…0095 Line {l1=0x12, l2=» PROGRAMNR=6;«, l3=0x12}
0x0095…009b Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x009b…00c4 Line {l1=0x27, l2=»PARMARRAY=PACKED ARRAY (1..39) OF CHAR;«, l3=0x27}
0x00c4…010f Line {l1=0x49, l2=»NIVEAU=(MENIG,SERGENT,LØJTNANT,KAPTAJN,MAJOR,OBERST,GENERAL,HSM,UMULIUS);«, l3=0x49}
0x010f…0127 Line {l1=0x16, l2=»POSTADR=0..MAXRECSIZE;«, l3=0x16}
0x0127…0172 Line {l1=0x49, l2=»COMMBUF =ARRAY (POSTADR) OF INTEGER;(*commbuf(0)=filnr,resten er posten*)«, l3=0x49}
0x0172…0186 Line {l1=0x12, l2=»POINTREC=^COMMBUF;«, l3=0x12}
0x0186…019c Line {l1=0x14, l2=»NAME =STRING(10);«, l3=0x14}
0x019c…01b0 Line {l1=0x12, l2=»PCB =^INTEGER;«, l3=0x12}
0x01b0…01f9 Line {l1=0x47, l2=»MESSAGETYPE=(ÅBEN,LUK,LÆSPOST,LÆSPOSTX,NÆSTE,NÆSTEX,SLET,SLETX,GEMPOST,«, l3=0x47}
0x01f9…0249 Line {l1=0x4e, l2=» INDSÆT,INITIER,UTILMELD,UAFMELD,PTILMELD,PAFMELD,STOPSYS, «, l3=0x4e}
0x0249…0293 Line {l1=0x48, l2=» RETURNHEAD,RETURNSTAT); «, l3=0x48}
0x0293…02a4 Line {l1=0x0f, l2=»MESSAGE =RECORD«, l3=0x0f}
0x02a4…02c6 Line {l1=0x20, l2=» KOMMANDO:MESSAGETYPE;«, l3=0x20}
0x02c6…02e5 Line {l1=0x1d, l2=» INFO,IREC:INTEGER «, l3=0x1d}
0x02e5…02f4 Line {l1=0x0d, l2=» END;«, l3=0x0d}
0x02f4…0313 Line {l1=0x1d, l2=»AR=ARRAY (-4..-4) OF INTEGER;«, l3=0x1d}
0x0313…032c Line {l1=0x17, l2=»VAR PARM:^PARMARRAY;«, l3=0x17}
0x032c…0347 Line {l1=0x19, l2=» USERNIVEAU:NIVEAU;«, l3=0x19}
0x0347…035d Line {l1=0x14, l2=» F:STRING(18);«, l3=0x14}
0x035d…0373 Line {l1=0x14, l2=» QUQ:^INTEGER;«, l3=0x14}
0x0373…039c Line {l1=0x27, l2=» IER,IREC,STATUSER,MODE,REMUSERS,«, l3=0x27}
0x039c…03b5 Line {l1=0x17, l2=» FILNR,I:INTEGER;«, l3=0x17}
0x03b5…03cf Line {l1=0x18, l2=» FNAVN:STRING(18);«, l3=0x18}
0x03cf…03e5 Line {l1=0x14, l2=» SEMAFOR:NAME;«, l3=0x14}
0x03e5…03ff Line {l1=0x18, l2=» FILEINIT:BOOLEAN;«, l3=0x18}
0x03ff…0410 Line {l1=0x0f, l2=» SNYD:AR;«, l3=0x0f}
0x0410…0423 Line {l1=0x11, l2=» CPPCB:PCB;«, l3=0x11}
0x0423…043c Line {l1=0x17, l2=» COMREC:POINTREC;«, l3=0x17}
0x043c…0454 Line {l1=0x16, l2=» BESKED:MESSAGE;«, l3=0x16}
0x0454…045c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x045c…0465 Line {l1=0x07, l2=»(*$L-*)«, l3=0x07}
0x0465…0483 Line {l1=0x1c, l2=»PROCEDURE D(FRA,NR:INTEGER);«, l3=0x1c}
0x0483…0493 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x0493…049a Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x049a…04ac Line {l1=0x10, l2=» GOTOXY(1,FRA);«, l3=0x10}
0x04ac…04d2 Line {l1=0x24, l2=» FOR I:=1 TO NR DO WRITELN(' ':79);«, l3=0x24}
0x04d2…04e3 Line {l1=0x0f, l2=» GOTOXY(1,FRA)«, l3=0x0f}
0x04e3…04e9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x04e9…050f Line {l1=0x24, l2=»PROCEDURE BAD(IDENT,STATUS:INTEGER);«, l3=0x24}
0x050f…0516 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0516…0522 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x0522…0544 Line {l1=0x20, l2=» WRITE('BAD',IDENT:5,STATUS:5);«, l3=0x20}
0x0544…054e Line {l1=0x08, l2=» READLN«, l3=0x08}
0x054e…0554 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0554…055c Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x055c…0593 Line {l1=0x35, l2=»PROCEDURE ALLOCA(VAR ADDRESS:POINTREC;LENGTH:INTEGER;«, l3=0x35}
0x0593…05ba Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x05ba…05c5 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x05c5…05fd Line {l1=0x36, l2=»PROCEDURE DEALLO(ADDRESS:POINTREC;VAR STATUS:INTEGER);«, l3=0x36}
0x05fd…0608 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x0608…063c Line {l1=0x32, l2=»PROCEDURE SENDM(RECEIVER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x32}
0x063c…0671 Line {l1=0x33, l2=» LENGTH:INTEGER;VAR STATUS:INTEGER);«, l3=0x33}
0x0671…067c Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x067c…06b3 Line {l1=0x35, l2=»PROCEDURE RECEIV(VAR SENDER:PCB;VAR CONTENTS:MESSAGE;«, l3=0x35}
0x06b3…06da Line {l1=0x25, l2=» VAR LENGTH:INTEGER);«, l3=0x25}
0x06da…06e5 Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x06e5…071d Line {l1=0x36, l2=»PROCEDURE RESERV(RESOURCE:NAME;EXCLUSIVE,WAIT:BOOLEAN;«, l3=0x36}
0x071d…0744 Line {l1=0x25, l2=» VAR STATUS:INTEGER);«, l3=0x25}
0x0744…074f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x074f…0784 Line {l1=0x33, l2=»PROCEDURE RELEAS(RESOURCE:NAME;VAR STATUS:INTEGER);«, l3=0x33}
0x0784…078f Line {l1=0x09, l2=»EXTERNAL;«, l3=0x09}
0x078f…079f Line {l1=0x0e, l2=»(*$IRESPRINT*)«, l3=0x0e}
0x079f…07a7 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07a7…07b4 Line {l1=0x0b, l2=»(*$IUDFØR*)«, l3=0x0b}
0x07b4…07c4 Line {l1=0x0e, l2=»(*$IFISFPROC*)«, l3=0x0e}
0x07c4…07cc Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x07cc…07e0 Line {l1=0x12, l2=»PROCEDURE REGVEDL;«, l3=0x12}
0x07e0…07e8 Line {l1=0x06, l2=»(*@@*)«, l3=0x06}
0x07e8…07ee Line {l1=0x04, l2=»TYPE«, l3=0x04}
0x07ee…0815 Line {l1=0x25, l2=»ARAR=PACKED ARRAY (-11..-10) OF CHAR;«, l3=0x25}
0x0815…0830 Line {l1=0x19, l2=»RAR=ARRAY (0..0) OF REAL;«, l3=0x19}
0x0830…0854 Line {l1=0x22, l2=»LONGINT = ARRAY (1..2) OF INTEGER;«, l3=0x22}
0x0854…0881 Line {l1=0x2b, l2=»(*@@EVT. TOTAL POSTERKLÆRING,FLERE POSTER*)«, l3=0x2b}
0x0881…0889 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0889…0892 Line {l1=0x07, l2=»(*$L+*)«, l3=0x07}
0x0892…08a3 Line {l1=0x0f, l2=»MEDAPOST=RECORD«, l3=0x0f}
0x08a3…08af Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x08af…08b8 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x08b8…08c4 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x08c4…08d1 Line {l1=0x0b, l2=» TIMESATS,«, l3=0x0b}
0x08d1…08de Line {l1=0x0b, l2=» PERSTIME,«, l3=0x0b}
0x08de…08eb Line {l1=0x0b, l2=» TOTTIMLØ,«, l3=0x0b}
0x08eb…08f8 Line {l1=0x0b, l2=» PRODTIME,«, l3=0x0b}
0x08f8…0905 Line {l1=0x0b, l2=» AKKORDLØ,«, l3=0x0b}
0x0905…0921 Line {l1=0x1a, l2=» AKKORDAR :REAL;«, l3=0x1a}
0x0921…0928 Line {l1=0x05, l2=» NR,«, l3=0x05}
0x0928…0947 Line {l1=0x1d, l2=» AFDELING :INTEGER;«, l3=0x1d}
0x0947…097a Line {l1=0x31, l2=» NAVN :PACKED ARRAY (1..30) OF CHAR«, l3=0x31}
0x097a…0980 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0980…0991 Line {l1=0x0f, l2=»REGLPOST=RECORD«, l3=0x0f}
0x0991…099d Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x099d…09a6 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x09a6…09b2 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x09b2…09ba Line {l1=0x06, l2=» TID,«, l3=0x06}
0x09ba…09c5 Line {l1=0x09, l2=» MÆNGDE,«, l3=0x09}
0x09c5…09e0 Line {l1=0x19, l2=» LØN :REAL;«, l3=0x19}
0x09e0…09ec Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x09ec…09f7 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x09f7…0a03 Line {l1=0x0a, l2=» OPERANR,«, l3=0x0a}
0x0a03…0a21 Line {l1=0x1c, l2=» MEDARBNR :INTEGER;«, l3=0x1c}
0x0a21…0a3f Line {l1=0x1c, l2=» DATO :LONGINT;«, l3=0x1c}
0x0a3f…0a5c Line {l1=0x1b, l2=» RTYPE :INTEGER«, l3=0x1b}
0x0a5c…0a62 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0a62…0a73 Line {l1=0x0f, l2=»OMVRPOST=RECORD«, l3=0x0f}
0x0a73…0a7f Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0a7f…0a88 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0a88…0a94 Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0a94…0aa1 Line {l1=0x0b, l2=» MEDARBNR,«, l3=0x0b}
0x0aa1…0aad Line {l1=0x0a, l2=» ORDRENR,«, l3=0x0a}
0x0aad…0ab8 Line {l1=0x09, l2=» EMNENR,«, l3=0x09}
0x0ab8…0ad6 Line {l1=0x1c, l2=» OPERANR :INTEGER;«, l3=0x1c}
0x0ad6…0af4 Line {l1=0x1c, l2=» DATO :LONGINT «, l3=0x1c}
0x0af4…0afa Line {l1=0x04, l2=»END;«, l3=0x04}
0x0afa…0b0b Line {l1=0x0f, l2=»SYSRPOST=RECORD«, l3=0x0f}
0x0b0b…0b17 Line {l1=0x0a, l2=» AA:ARAR;«, l3=0x0a}
0x0b17…0b20 Line {l1=0x07, l2=» A:AR;«, l3=0x07}
0x0b20…0b2c Line {l1=0x0a, l2=» AAA:RAR;«, l3=0x0a}
0x0b2c…0b57 Line {l1=0x29, l2=» AKKTIME :ARRAY (1..9) OF REAL;«, l3=0x29}
0x0b57…0b75 Line {l1=0x1c, l2=» NR :INTEGER;«, l3=0x1c}
0x0b75…0b93 Line {l1=0x1c, l2=» DAGSDATO, «, l3=0x1c}
0x0b93…0bb1 Line {l1=0x1c, l2=» PERSTDAT :LONGINT;«, l3=0x1c}
0x0bb1…0bc7 Line {l1=0x14, l2=» ARBTIMDA, «, l3=0x14}
0x0bc7…0be5 Line {l1=0x1c, l2=» ORDRENR :INTEGER «, l3=0x1c}
0x0be5…0beb Line {l1=0x04, l2=»END;«, l3=0x04}
0x0beb…0bf3 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0bf3…0c08 Line {l1=0x13, l2=»VAR HUSKNIV:NIVEAU;«, l3=0x13}
0x0c08…0c1b Line {l1=0x11, l2=» OPTION,LINES,«, l3=0x11}
0x0c1b…0c2d Line {l1=0x10, l2=» I,J:INTEGER;«, l3=0x10}
0x0c2d…0c3f Line {l1=0x10, l2=» LINE:STRING;«, l3=0x10}
0x0c3f…0c55 Line {l1=0x14, l2=» MEDARB:MEDAPOST;«, l3=0x14}
0x0c55…0c69 Line {l1=0x12, l2=» POST:REGLPOST;«, l3=0x12}
0x0c69…0c81 Line {l1=0x16, l2=» OMVRREGL:OMVRPOST;«, l3=0x16}
0x0c81…0c97 Line {l1=0x14, l2=» SYSTEM:SYSRPOST;«, l3=0x14}
0x0c97…0cad Line {l1=0x14, l2=» LONGNUL:LONGINT;«, l3=0x14}
0x0cad…0cc0 Line {l1=0x11, l2=» CH:STRING(1);«, l3=0x11}
0x0cc0…0ce1 Line {l1=0x1f, l2=» NEJ,JA,JAOGNEJ:SET OF CHAR;«, l3=0x1f}
0x0ce1…0ce9 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x0ce9…0d07 Line {l1=0x1c, l2=»FUNCTION QJN(S:STRING):CHAR;«, l3=0x1c}
0x0d07…0d1a Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x0d1a…0d21 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0d21…0d2b Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x0d2b…0d39 Line {l1=0x0c, l2=» D(23,1);«, l3=0x0c}
0x0d39…0d50 Line {l1=0x15, l2=» WRITE(S,' J/N ');«, l3=0x15}
0x0d50…0d5e Line {l1=0x0c, l2=» CH:='J';«, l3=0x0c}
0x0d5e…0d6c Line {l1=0x0c, l2=» EDIT(CH)«, l3=0x0c}
0x0d6c…0d87 Line {l1=0x19, l2=» UNTIL CH(1) IN JAOGNEJ;«, l3=0x19}
0x0d87…0d96 Line {l1=0x0d, l2=» QJN:=CH(1);«, l3=0x0d}
0x0d96…0da2 Line {l1=0x0a, l2=» D(23,1) «, l3=0x0a}
0x0da2…0da8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0da8…0dc8 Line {l1=0x1e, l2=»PROCEDURE FORMULAR(I:INTEGER);«, l3=0x1e}
0x0dc8…0ddc Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x0ddc…0de3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0de3…0df0 Line {l1=0x0b, l2=» CASE I OF«, l3=0x0b}
0x0df0…0dfb Line {l1=0x09, l2=» 1:BEGIN«, l3=0x09}
0x0dfb…0e0b Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x0e0b…0e3d Line {l1=0x30, l2=» WRITE('Monter bredt 8.5" papir, RETURN ');«, l3=0x30}
0x0e3d…0e4c Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x0e4c…0e7a Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x0e7a…0e87 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0e87…0ed5 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x0ed5…0f24 Line {l1=0x4d, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');«, l3=0x4d}
0x0f24…0f52 Line {l1=0x2c, l2=» FOR LINES:=2 TO 50 DO WRITELN(LIST);«, l3=0x2c}
0x0f52…0fa0 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x0fa0…0fee Line {l1=0x4c, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX')«, l3=0x4c}
0x0fee…0ffa Line {l1=0x0a, l2=» END «, l3=0x0a}
0x0ffa…1004 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1004…100f Line {l1=0x09, l2=» 2:BEGIN«, l3=0x09}
0x100f…101f Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x101f…1051 Line {l1=0x30, l2=» WRITE('Monter generel formular, RETURN ');«, l3=0x30}
0x1051…1060 Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x1060…108e Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x108e…109b Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x109b…10c8 Line {l1=0x2b, l2=» FOR LINES:=1 TO 4 DO WRITELN(LIST);«, l3=0x2b}
0x10c8…10f0 Line {l1=0x26, l2=» WRITELN(LIST,' ':35,'XXXXXX');«, l3=0x26}
0x10f0…111d Line {l1=0x2b, l2=» FOR LINES:=6 TO 72 DO WRITELN(LIST)«, l3=0x2b}
0x111d…1129 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x1129…1133 Line {l1=0x08, l2=» END;«, l3=0x08}
0x1133…113e Line {l1=0x09, l2=» 3:BEGIN«, l3=0x09}
0x113e…114e Line {l1=0x0e, l2=» D(23,1);«, l3=0x0e}
0x114e…117f Line {l1=0x2f, l2=» WRITE('Monter blankt A4 papir, RETURN ');«, l3=0x2f}
0x117f…118e Line {l1=0x0d, l2=» READLN;«, l3=0x0d}
0x118e…11bc Line {l1=0x2c, l2=» WHILE QJN('Ønskes testprint') IN JA DO«, l3=0x2c}
0x11bc…11c9 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x11c9…1217 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x1217…1244 Line {l1=0x2b, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXX');«, l3=0x2b}
0x1244…1272 Line {l1=0x2c, l2=» FOR LINES:=2 TO 71 DO WRITELN(LIST);«, l3=0x2c}
0x1272…12c0 Line {l1=0x4c, l2=» WRITELN(LIST,'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',«, l3=0x4c}
0x12c0…12ec Line {l1=0x2a, l2=» 'XXXXXXXXXXXXXXXXXXXXXXXX')«, l3=0x2a}
0x12ec…12f8 Line {l1=0x0a, l2=» END «, l3=0x0a}
0x12f8…1301 Line {l1=0x07, l2=» END«, l3=0x07}
0x1301…1308 Line {l1=0x05, l2=» END«, l3=0x05}
0x1308…130e Line {l1=0x04, l2=»END;«, l3=0x04}
0x130e…132c Line {l1=0x1c, l2=»PROCEDURE ERROR(VAR REC:AR);«, l3=0x1c}
0x132c…133f Line {l1=0x11, l2=»VAR CH:STRING(1);«, l3=0x11}
0x133f…134f Line {l1=0x0e, l2=» I:INTEGER;«, l3=0x0e}
0x134f…1356 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1356…1362 Line {l1=0x0a, l2=» D(23,1);«, l3=0x0a}
0x1362…13b0 Line {l1=0x4c, l2=» (*$R-*)«, l3=0x4c}
0x13b0…13fe Line {l1=0x4c, l2=» WRITE('FEJL I REGISTER ',REC(-3),' FEJLKODE ',IER,' RETURN'); (*$R+*)«, l3=0x4c}
0x13fe…1413 Line {l1=0x13, l2=» CH:=' ';EDIT(CH);«, l3=0x13}
0x1413…1443 Line {l1=0x2e, l2=» IF CH='Æ' THEN BEGIN IER:=0;EXIT(ERROR) END;«, l3=0x2e}
0x1443…145a Line {l1=0x15, l2=» ICLOSE(MEDARB.A); «, l3=0x15}
0x145a…146e Line {l1=0x12, l2=» ICLOSE(POST.A); «, l3=0x12}
0x146e…1483 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x1483…149a Line {l1=0x15, l2=» ICLOSE(OMVRREGL.A);«, l3=0x15}
0x149a…14ab Line {l1=0x0f, l2=» EXIT(REGVEDL)«, l3=0x0f}
0x14ab…14b1 Line {l1=0x04, l2=»END;«, l3=0x04}
0x14b1…14d0 Line {l1=0x1d, l2=»PROCEDURE CHECK0(VAR REC:AR);«, l3=0x1d}
0x14d0…14d7 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x14d7…14f4 Line {l1=0x1b, l2=» IF IER<>0 THEN ERROR(REC)«, l3=0x1b}
0x14f4…14fa Line {l1=0x04, l2=»END;«, l3=0x04}
0x14fa…1502 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x1502…1517 Line {l1=0x13, l2=»PROCEDURE MAINTAIN;«, l3=0x13}
0x1517…152b Line {l1=0x12, l2=»VAR LINES:INTEGER;«, l3=0x12}
0x152b…1544 Line {l1=0x17, l2=» TIDSUM,LØNSUM:REAL;«, l3=0x17}
0x1544…1559 Line {l1=0x13, l2=» AFREGN:BOOLEAN;«, l3=0x13}
0x1559…1560 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1560…1570 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1570…159a Line {l1=0x28, l2=» AFREGN:=QJN('Ønskes afregning') IN JA;«, l3=0x28}
0x159a…15aa Line {l1=0x0e, l2=» FORMULAR(3);«, l3=0x0e}
0x15aa…15be Line {l1=0x12, l2=» WITH OMVRREGL DO«, l3=0x12}
0x15be…15c7 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x15c7…15d7 Line {l1=0x0e, l2=» LINES:=72;«, l3=0x0e}
0x15d7…15ea Line {l1=0x11, l2=» MEDARB.NR:=0;«, l3=0x11}
0x15ea…15fc Line {l1=0x10, l2=» MEDARBNR:=1;«, l3=0x10}
0x15fc…160d Line {l1=0x0f, l2=» ORDRENR:=0;«, l3=0x0f}
0x160d…161d Line {l1=0x0e, l2=» EMNENR:=0;«, l3=0x0e}
0x161d…162e Line {l1=0x0f, l2=» OPERANR:=0;«, l3=0x0f}
0x162e…1642 Line {l1=0x12, l2=» DATO:=LONGNUL;«, l3=0x12}
0x1642…167d Line {l1=0x39, l2=» NEXTRECX(A);IF NOT (-IER IN (.1,2,9.)) THEN ERROR(A);«, l3=0x39}
0x167d…168a Line {l1=0x0b, l2=» IER:=0;«, l3=0x0b}
0x168a…16ba Line {l1=0x2e, l2=» WHILE (IER=0) AND (OMVRREGL.MEDARBNR>0) DO«, l3=0x2e}
0x16ba…16cc Line {l1=0x10, l2=» WITH POST DO«, l3=0x10}
0x16cc…16d7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x16d7…16f9 Line {l1=0x20, l2=» ORDRENR:=OMVRREGL.ORDRENR;«, l3=0x20}
0x16f9…1719 Line {l1=0x1e, l2=» EMNENR:=OMVRREGL.EMNENR;«, l3=0x1e}
0x1719…173b Line {l1=0x20, l2=» OPERANR:=OMVRREGL.OPERANR;«, l3=0x20}
0x173b…175f Line {l1=0x22, l2=» MEDARBNR:=OMVRREGL.MEDARBNR;«, l3=0x22}
0x175f…177b Line {l1=0x1a, l2=» DATO:=OMVRREGL.DATO;«, l3=0x1a}
0x177b…1796 Line {l1=0x19, l2=» IF DATO(1)<100 THEN«, l3=0x19}
0x1796…17a3 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x17a3…17c1 Line {l1=0x1c, l2=» GETREC(A);CHECK0(A);«, l3=0x1c}
0x17c1…17f6 Line {l1=0x33, l2=» IF (LINES>68) OR (MEDARB.NR<>MEDARBNR) THEN«, l3=0x33}
0x17f6…1805 Line {l1=0x0d, l2=» BEGIN«, l3=0x0d}
0x1805…182c Line {l1=0x25, l2=» IF MEDARB.NR<>MEDARBNR THEN«, l3=0x25}
0x182c…183d Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x183d…185f Line {l1=0x20, l2=» IF MEDARB.NR<>0 THEN«, l3=0x20}
0x185f…1872 Line {l1=0x11, l2=» BEGIN«, l3=0x11}
0x1872…18b7 Line {l1=0x43, l2=» WRITELN(LIST,'TOTAL',' ':38,LØNSUM:11:2,TIDSUM:11:2);«, l3=0x43}
0x18b7…18d9 Line {l1=0x20, l2=» IF NOT AFREGN THEN«, l3=0x20}
0x18d9…18ee Line {l1=0x13, l2=» BEGIN«, l3=0x13}
0x18ee…1939 Line {l1=0x49, l2=» WRITELN(LIST,'****** I K K E A F R E G N E T ******');«, l3=0x49}
0x1939…1959 Line {l1=0x1e, l2=» LINES:=LINES+1«, l3=0x1e}
0x1959…196d Line {l1=0x12, l2=» END;«, l3=0x12}
0x196d…198b Line {l1=0x1c, l2=» WRITELN(LIST);«, l3=0x1c}
0x198b…19aa Line {l1=0x1d, l2=» LINES:=LINES+2 «, l3=0x1d}
0x19aa…19bc Line {l1=0x10, l2=» END;«, l3=0x10}
0x19bc…19d6 Line {l1=0x18, l2=» TIDSUM:=0.0;«, l3=0x18}
0x19d6…19f0 Line {l1=0x18, l2=» LØNSUM:=0.0;«, l3=0x18}
0x19f0…1a12 Line {l1=0x20, l2=» MEDARB.NR:=MEDARBNR;«, l3=0x20}
0x1a12…1a42 Line {l1=0x2e, l2=» GETREC(MEDARB.A);CHECK0(MEDARB.A) «, l3=0x2e}
0x1a42…1a52 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1a52…1a6f Line {l1=0x1b, l2=» WHILE LINES<72 DO«, l3=0x1b}
0x1a6f…1a80 Line {l1=0x0f, l2=» BEGIN«, l3=0x0f}
0x1a80…1a9c Line {l1=0x1a, l2=» WRITELN(LIST);«, l3=0x1a}
0x1a9c…1ab8 Line {l1=0x1a, l2=» LINES:=LINES+1«, l3=0x1a}
0x1ab8…1ac8 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1ac8…1ae2 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x1ae2…1b1d Line {l1=0x39, l2=» WRITELN(LIST,'LØNLISTE',' ':37,'UDSKRIFTSDATO',«, l3=0x39}
0x1b1d…1b6a Line {l1=0x4b, l2=» SYSTEM.DAGSDATO(1)*10000.0+SYSTEM.DAGSDATO(2):7:-2);«, l3=0x4b}
0x1b6a…1b84 Line {l1=0x18, l2=» WRITELN(LIST);«, l3=0x18}
0x1b84…1b99 Line {l1=0x13, l2=» LINES:=3;«, l3=0x13}
0x1b99…1bc1 Line {l1=0x26, l2=» WRITELN(LIST,'MEDARBEJDER');«, l3=0x26}
0x1bc1…1bf9 Line {l1=0x36, l2=» WRITELN(LIST,MEDARBNR:5,' ':10,MEDARB.NAVN);«, l3=0x36}
0x1bf9…1c48 Line {l1=0x4d, l2=» WRITELN(LIST,'ORDRE EMNE OPNR DATO MÆNGDE PRSTK ',«, l3=0x4d}
0x1c48…1c73 Line {l1=0x29, l2=» 'LØN TID');«, l3=0x29}
0x1c73…1c8d Line {l1=0x18, l2=» LINES:=LINES+3«, l3=0x18}
0x1c8d…1c9b Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x1c9b…1ccd Line {l1=0x30, l2=» WRITE(LIST,ORDRENR:5,EMNENR:6,OPERANR:6,«, l3=0x30}
0x1ccd…1d16 Line {l1=0x47, l2=» (DATO(1) MOD 100)*10000.0+DATO(2):9:-2,MÆNGDE:9:-2);«, l3=0x47}
0x1d16…1d47 Line {l1=0x2f, l2=» IF (ABS(RTYPE)=3) AND (MÆNGDE>0.0) THEN«, l3=0x2f}
0x1d47…1d83 Line {l1=0x3a, l2=» WRITE(LIST,(LØN-TID*MEDARB.PERSTIME)/MÆNGDE:8:2)«, l3=0x3a}
0x1d83…1d91 Line {l1=0x0c, l2=» ELSE«, l3=0x0c}
0x1d91…1daf Line {l1=0x1c, l2=» WRITE(LIST,' ':8);«, l3=0x1c}
0x1daf…1dd9 Line {l1=0x28, l2=» WRITELN(LIST,LØN:11:2,TID:11:2);«, l3=0x28}
0x1dd9…1df6 Line {l1=0x1b, l2=» TIDSUM:=TIDSUM+TID;«, l3=0x1b}
0x1df6…1e13 Line {l1=0x1b, l2=» LØNSUM:=LØNSUM+LØN;«, l3=0x1b}
0x1e13…1e2b Line {l1=0x16, l2=» LINES:=LINES+1«, l3=0x16}
0x1e2b…1e37 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1e37…1e4d Line {l1=0x14, l2=» IF AFREGN THEN«, l3=0x14}
0x1e4d…1e6a Line {l1=0x1b, l2=» DELETEX(OMVRREGL.A)«, l3=0x1b}
0x1e6a…1e76 Line {l1=0x0a, l2=» ELSE«, l3=0x0a}
0x1e76…1e94 Line {l1=0x1c, l2=» NEXTRECX(OMVRREGL.A)«, l3=0x1c}
0x1e94…1e9e Line {l1=0x08, l2=» END;«, l3=0x08}
0x1e9e…1ecd Line {l1=0x2d, l2=» IF NOT (-IER IN (.0,2,9.)) THEN ERROR(A);«, l3=0x2d}
0x1ecd…1ee5 Line {l1=0x16, l2=» IF LINES<72 THEN «, l3=0x16}
0x1ee5…1ef0 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x1ef0…1f2d Line {l1=0x3b, l2=» WRITELN(LIST,'TOTAL',' ':38,LØNSUM:11:2,TIDSUM:11:2);«, l3=0x3b}
0x1f2d…1f47 Line {l1=0x18, l2=» IF NOT AFREGN THEN«, l3=0x18}
0x1f47…1f54 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1f54…1f97 Line {l1=0x41, l2=» WRITELN(LIST,'****** I K K E A F R E G N E T ******');«, l3=0x41}
0x1f97…1faf Line {l1=0x16, l2=» LINES:=LINES+1«, l3=0x16}
0x1faf…1fbb Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1fbb…1fd1 Line {l1=0x14, l2=» LINES:=LINES+1«, l3=0x14}
0x1fd1…1fdb Line {l1=0x08, l2=» END;«, l3=0x08}
0x1fdb…201a Line {l1=0x3d, l2=» WHILE LINES<72 DO BEGIN WRITELN(LIST);LINES:=LINES+1 END «, l3=0x3d}
0x201a…2021 Line {l1=0x05, l2=» END«, l3=0x05}
0x2021…2027 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2027…202f Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x202f…2042 Line {l1=0x11, l2=»BEGIN (*REGVEDL*)«, l3=0x11}
0x2042…2054 Line {l1=0x10, l2=» LONGNUL(1):=0;«, l3=0x10}
0x2054…2066 Line {l1=0x10, l2=» LONGNUL(2):=0;«, l3=0x10}
0x2066…207a Line {l1=0x12, l2=» JA:=(.'J','j'.);«, l3=0x12}
0x207a…208f Line {l1=0x13, l2=» NEJ:=(.'N','n'.);«, l3=0x13}
0x208f…20a3 Line {l1=0x12, l2=» JAOGNEJ:=JA+NEJ;«, l3=0x12}
0x20a3…20b3 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x20b3…20c8 Line {l1=0x13, l2=» MODE:=3;(*SKRIV*)«, l3=0x13}
0x20c8…20d3 Line {l1=0x09, l2=» (*$R-*)«, l3=0x09}
0x20d3…20e9 Line {l1=0x14, l2=» MEDARB.A(-4):=0; «, l3=0x14}
0x20e9…20fc Line {l1=0x11, l2=» POST.A(-4):=0; «, l3=0x11}
0x20fc…2110 Line {l1=0x12, l2=» SYSTEM.A(-4):=0;«, l3=0x12}
0x2110…212f Line {l1=0x1d, l2=» OMVRREGL.A(-4):=0; «, l3=0x1d}
0x212f…2145 Line {l1=0x14, l2=» MEDARB.A(-3):=7; «, l3=0x14}
0x2145…2160 Line {l1=0x19, l2=» POST.A(-3):=16;(*REGL*)«, l3=0x19}
0x2160…2174 Line {l1=0x12, l2=» SYSTEM.A(-3):=9;«, l3=0x12}
0x2174…218d Line {l1=0x17, l2=» OMVRREGL.A(-3):=23; «, l3=0x17}
0x218d…2198 Line {l1=0x09, l2=» (*$R+*)«, l3=0x09}
0x2198…21c6 Line {l1=0x2c, l2=» (*@@EVT. ÅBNING AF ANDRE ANDRE DATAFILER*)«, l3=0x2c}
0x21c6…21ed Line {l1=0x25, l2=» IOPEN(SYSTEM.A); CHECK0(SYSTEM.A); «, l3=0x25}
0x21ed…21fe Line {l1=0x0f, l2=» SYSTEM.NR:=0;«, l3=0x0f}
0x21fe…2224 Line {l1=0x24, l2=» GETREC(SYSTEM.A);CHECK0(SYSTEM.A);«, l3=0x24}
0x2224…2239 Line {l1=0x13, l2=» ICLOSE(SYSTEM.A);«, l3=0x13}
0x2239…2260 Line {l1=0x25, l2=» IOPEN(MEDARB.A); CHECK0(MEDARB.A); «, l3=0x25}
0x2260…2283 Line {l1=0x21, l2=» IOPEN(POST.A); CHECK0(POST.A); «, l3=0x21}
0x2283…22ae Line {l1=0x29, l2=» IOPEN(OMVRREGL.A); CHECK0(OMVRREGL.A); «, l3=0x29}
0x22ae…22bb Line {l1=0x0b, l2=» MAINTAIN;«, l3=0x0b}
0x22bb…22d0 Line {l1=0x13, l2=» ICLOSE(MEDARB.A);«, l3=0x13}
0x22d0…22e3 Line {l1=0x11, l2=» ICLOSE(POST.A);«, l3=0x11}
0x22e3…22fa Line {l1=0x15, l2=» ICLOSE(OMVRREGL.A);«, l3=0x15}
0x22fa…2323 Line {l1=0x27, l2=» (*@@EVT. LUKNING AF ANDRE DATAFILER*)«, l3=0x27}
0x2323…2333 Line {l1=0x0e, l2=» CLEARSCREEN «, l3=0x0e}
0x2333…2339 Line {l1=0x04, l2=»END;«, l3=0x04}
0x2339…2341 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x2341…2348 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x2348…2362 Line {l1=0x18, l2=» SEMAFOR:='ALLOCOMBUF';«, l3=0x18}
0x2362…237a Line {l1=0x16, l2=» I:=ORD(PARM^(1))-48;«, l3=0x16}
0x237a…2390 Line {l1=0x14, l2=» USERNIVEAU:=MENIG;«, l3=0x14}
0x2390…23a0 Line {l1=0x0e, l2=» WHILE I>0 DO«, l3=0x0e}
0x23a0…23a9 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x23a9…23cc Line {l1=0x21, l2=» USERNIVEAU:=SUCC(USERNIVEAU);«, l3=0x21}
0x23cc…23d8 Line {l1=0x0a, l2=» I:=I-1«, l3=0x0a}
0x23d8…2428 Line {l1=0x4e, l2=» END; (*$R-*)«, l3=0x4e}
0x2428…2438 Line {l1=0x0e, l2=» SNYD(-3):=0;«, l3=0x0e}
0x2438…2478 Line {l1=0x3e, l2=» FOR I:=6 DOWNTO 2 DO SNYD(-3):=10*SNYD(-3)+ORD(PARM^(I))-48;«, l3=0x3e}
0x2478…24c8 Line {l1=0x4e, l2=» IF PARM^(7)='-' THEN SNYD(-3):=-SNYD(-3); (*$R+*)«, l3=0x4e}
0x24c8…24e1 Line {l1=0x17, l2=» UDFØR(PTILMELD,SNYD);«, l3=0x17}
0x24e1…24fb Line {l1=0x18, l2=» UDFØRT(PTILMELD,SNYD);«, l3=0x18}
0x24fb…2519 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(1,IER);«, l3=0x1c}
0x2519…252a Line {l1=0x0f, l2=»(*@@TILPASSES*)«, l3=0x0f}
0x252a…253e Line {l1=0x12, l2=» IF RESPRINT THEN«, l3=0x12}
0x253e…2547 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x2547…2555 Line {l1=0x0c, l2=» REGVEDL;«, l3=0x0c}
0x2555…2561 Line {l1=0x0a, l2=» FREEPR«, l3=0x0a}
0x2561…2569 Line {l1=0x06, l2=» END;«, l3=0x06}
0x2569…2581 Line {l1=0x16, l2=» UDFØR(PAFMELD,SNYD);«, l3=0x16}
0x2581…259a Line {l1=0x17, l2=» UDFØRT(PAFMELD,SNYD);«, l3=0x17}
0x259a…25b8 Line {l1=0x1c, l2=» IF IER<>0 THEN BAD(2,IER);«, l3=0x1c}
0x25b8…25cd Line {l1=0x13, l2=» FNAVN:=' ';«, l3=0x13}
0x25cd…25f5 Line {l1=0x26, l2=» FOR I:=1 TO 7 DO FNAVN(I):=PARM^(I);«, l3=0x26}
0x25f5…2617 Line {l1=0x20, l2=» CHAIN('HOVED *1',FNAVN,QUQ);«, l3=0x20}
0x2617…264c Line {l1=0x33, l2=» IF IORESULT<>0 THEN WRITELN('IORESULT ',IORESULT)«, l3=0x33}
0x264c…2652 Line {l1=0x04, l2=»END.«, l3=0x04}
0x2652…2660 00 00 3a 42 45 47 49 4e 0d 1f 20 20 20 20 ┆ :BEGIN ┆
0x2660…2680 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 30 29 29 3b 1f 21 20 20 20 ┆ LÆSFELT(PICTURE(10)); ! ┆
0x2680…26a0 20 20 20 20 20 20 20 53 4b 52 49 56 46 45 4c 54 28 50 49 43 54 55 52 45 28 31 30 29 29 3b 21 23 ┆ SKRIVFELT(PICTURE(10));!#┆
0x26a0…26c0 20 20 20 20 20 20 20 20 20 20 4c 5c 4e 3a 3d 54 49 44 2a 4d 45 44 41 52 42 2e 50 45 52 53 54 49 ┆ LØN:=TID*MEDARB.PERSTI┆
0x26c0…26e0 4d 45 2b 23 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 5b 4e 47 44 45 2f 50 52 4f 44 2e ┆ME+#8 MÆNGDE/PROD.┆
0x26e0…2700 53 54 4b 48 2a 53 59 53 54 45 4d 2e 41 4b 4b 54 49 4d 45 28 44 41 54 4f 28 31 29 29 3b 38 2f 20 ┆STKH*SYSTEM.AKKTIME(DATO(1));8/ ┆
0x2700…2720 20 20 20 20 20 20 20 20 20 4d 45 44 41 52 42 2e 41 4b 4b 4f 52 44 41 52 3a 3d 4d 45 44 41 52 42 ┆ MEDARB.AKKORDAR:=MEDARB┆
0x2720…2740 2e 41 4b 4b 4f 52 44 41 52 2b 54 49 44 3b 2f 3b 20 20 20 20 20 20 20 20 20 20 4d 45 44 41 52 42 ┆.AKKORDAR+TID;/; MEDARB┆
0x2740…2760 2e 41 4b 4b 4f 52 44 4c 5c 3a 3d 4d 45 44 41 52 42 2e 41 4b 4b 4f 52 44 4c 5c 2b 4d 5b 4e 47 44 ┆.AKKORDLØ:=MEDARB.AKKORDLØ+MÆNGD┆
0x2760…2780 45 2f 50 52 4f 44 2e 53 54 4b 48 3b 0b 20 20 20 20 20 20 20 20 45 4e 44 0b 0b 20 20 20 20 20 20 ┆E/PROD.STKH; END ┆
0x2780…27a0 45 4e 44 3b 20 0b 10 20 20 20 20 20 20 48 4c 5c 4e 3a 3d 4c 5c 4e 3b 10 10 20 20 20 20 20 20 48 ┆END; HLØN:=LØN; H┆
0x27a0…27c0 54 49 44 3a 3d 54 49 44 3b 10 16 20 20 20 20 20 20 48 4d 5b 4e 47 44 45 3a 3d 4d 5b 4e 47 44 45 ┆TID:=TID; HMÆNGDE:=MÆNGDE┆
0x27c0…27e0 3b 16 1c 20 20 20 20 20 20 44 41 54 4f 3a 3d 53 59 53 54 45 4d 2e 44 41 47 53 44 41 54 4f 3b 1c ┆; DATO:=SYSTEM.DAGSDATO; ┆
0x27e0…2800 1b 20 20 20 20 20 20 47 45 54 52 45 43 58 28 41 29 3b 43 48 45 43 4b 30 28 41 29 3b 1b 14 20 20 ┆ GETRECX(A);CHECK0(A); ┆
0x2800…2820 20 20 20 20 4c 5c 4e 3a 3d 4c 5c 4e 2b 48 4c 5c 4e 3b 14 14 20 20 20 20 20 20 54 49 44 3a 3d 54 ┆ LØN:=LØN+HLØN; TID:=T┆
0x2820…2840 49 44 2b 48 54 49 44 3b 14 1d 20 20 20 20 20 20 4d 5b 4e 47 44 45 3a 3d 4d 5b 4e 47 44 45 2b 48 ┆ID+HTID; MÆNGDE:=MÆNGDE+H┆
0x2840…2860 4d 5b 4e 47 44 45 3b 1d 1a 20 20 20 20 20 20 50 55 54 52 45 43 28 41 29 3b 43 48 45 43 4b 30 28 ┆MÆNGDE; PUTREC(A);CHECK0(┆
0x2860…2880 41 29 20 1a 07 20 20 20 20 45 4e 44 07 08 20 20 20 20 45 4c 53 45 08 12 20 20 20 20 20 20 41 46 ┆A) END ELSE AF┆
0x2880…28a0 53 4c 55 54 4e 49 4e 47 3b 20 12 20 20 20 20 20 4f 4d 56 52 52 45 47 4c 2e 4d 45 44 41 52 42 4e ┆SLUTNING; OMVRREGL.MEDARBN┆
0x28a0…28c0 52 3a 3d 4d 45 44 41 52 42 4e 52 3b 20 1e 20 20 20 20 4f 4d 56 52 52 45 47 4c 2e 4f 52 44 52 45 ┆R:=MEDARBNR; OMVRREGL.ORDRE┆
0x28c0…28e0 4e 52 3a 3d 4f 52 44 52 45 4e 52 3b 1e 1c 20 20 20 20 4f 4d 56 52 52 45 47 4c 2e 45 4d 4e 45 4e ┆NR:=ORDRENR; OMVRREGL.EMNEN┆
0x28e0…2900 52 3a 3d 45 4d 4e 45 4e 52 3b 1c 1e 20 20 20 20 4f 4d 56 52 52 45 47 4c 2e 4f 50 45 52 41 4e 52 ┆R:=EMNENR; OMVRREGL.OPERANR┆
0x2900…2920 3a 3d 4f 50 45 52 41 4e 52 3b 1e 18 20 20 20 20 4f 4d 56 52 52 45 47 4c 2e 44 41 54 4f 3a 3d 44 ┆:=OPERANR; OMVRREGL.DATO:=D┆
0x2920…2940 41 54 4f 3b 18 47 20 20 20 20 49 4e 53 45 52 54 28 4f 4d 56 52 52 45 47 4c 2e 41 29 3b 49 46 20 ┆ATO; G INSERT(OMVRREGL.A);IF ┆
0x2940…2960 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 37 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 ┆NOT (-IER IN (.0,7.)) THEN ERROR┆
0x2960…2980 28 4f 4d 56 52 52 45 47 4c 2e 41 29 3b 47 3e 20 20 20 20 50 55 54 52 45 43 28 50 52 4f 44 2e 41 ┆(OMVRREGL.A);G> PUTREC(PROD.A┆
0x2980…29a0 29 3b 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c 36 2e 29 29 20 54 48 45 4e 20 ┆);IF NOT (-IER IN (.0,6.)) THEN ┆
0x29a0…29c0 45 52 52 4f 52 28 50 52 4f 44 2e 41 29 3e 05 20 20 45 4e 44 05 04 45 4e 44 3b 04 06 28 2a 24 50 ┆ERROR(PROD.A)> END END; (*$P┆
0x29c0…29e0 2a 29 06 12 42 45 47 49 4e 20 28 2a 4d 41 49 4e 54 41 49 4e 2a 29 12 0e 20 20 57 49 54 48 20 50 ┆*) BEGIN (*MAINTAIN*) WITH P┆
0x29e0…2a00 4f 53 54 20 44 4f 0e 08 20 20 52 45 50 45 41 54 08 0c 20 20 20 20 4e 55 4c 50 4f 53 54 3b 0c 10 ┆OST DO REPEAT NULPOST; ┆
0x2a00…2a20 20 20 20 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 10 43 20 20 20 20 57 52 49 54 45 4c 4e 28 27 52 ┆ CLEARSCREEN; C WRITELN('R┆
0x2a20…2a40 20 45 20 47 20 49 20 53 20 54 20 52 20 45 20 52 20 49 20 4e 20 47 20 20 20 41 20 46 20 20 20 54 ┆ E G I S T R E R I N G A F T┆
0x2a40…2a60 20 49 20 4d 20 45 20 53 20 45 20 44 20 4c 20 45 20 52 27 29 3b 43 18 20 20 20 20 4c 5b 53 46 45 ┆ I M E S E D L E R');C LÆSFE┆
0x2a60…2a80 4c 54 28 50 49 43 54 55 52 45 28 31 29 29 3b 18 16 20 20 20 20 49 46 20 4d 45 44 41 52 42 4e 52 ┆LT(PICTURE(1)); IF MEDARBNR┆
0x2a80…2aa0 3e 30 20 54 48 45 4e 16 09 20 20 20 20 42 45 47 49 4e 09 1c 20 20 20 20 20 20 53 4b 52 49 56 46 ┆>0 THEN BEGIN SKRIVF┆
0x2aa0…2ac0 45 4c 54 28 50 49 43 54 55 52 45 28 31 29 29 3b 1c 1a 20 20 20 20 20 20 4d 45 44 41 52 42 2e 4e ┆ELT(PICTURE(1)); MEDARB.N┆
0x2ac0…2ae0 52 3a 3d 4d 45 44 41 52 42 4e 52 3b 1a 18 20 20 20 20 20 20 47 45 54 52 45 43 58 28 4d 45 44 41 ┆R:=MEDARBNR; GETRECX(MEDA┆
0x2ae0…2b00 52 42 2e 41 29 3b 18 14 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 14 1f 20 20 ┆RB.A); IF IER=-6 THEN ┆
0x2b00…2b20 20 20 20 20 20 20 4e 4f 4e 45 58 49 53 54 28 27 4d 65 64 61 72 62 65 6a 64 65 72 27 29 1f 0a 20 ┆ NONEXIST('Medarbejder') ┆
0x2b20…2b40 20 20 20 20 20 45 4c 53 45 0a 0b 20 20 20 20 20 20 42 45 47 49 4e 0b 19 20 20 20 20 20 20 20 20 ┆ ELSE BEGIN ┆
0x2b40…2b60 43 48 45 43 4b 30 28 4d 45 44 41 52 42 2e 41 29 3b 19 32 20 20 20 20 20 20 20 20 4c 5b 53 46 45 ┆CHECK0(MEDARB.A); 2 LÆSFE┆
0x2b60…2b80 4c 54 28 50 49 43 54 55 52 45 28 32 29 29 3b 53 4b 52 49 56 46 45 4c 54 28 50 49 43 54 55 52 45 ┆LT(PICTURE(2));SKRIVFELT(PICTURE┆
0x2b80…2ba0 28 32 29 29 3b 32 2d 20 20 20 20 20 20 20 20 4d 45 44 41 52 42 2e 54 4f 54 54 49 4d 4c 5c 3a 3d ┆(2));2- MEDARB.TOTTIMLØ:=┆
0x2ba0…2bc0 4d 45 44 41 52 42 2e 54 4f 54 54 49 4d 4c 5c 2b 54 49 44 3b 2d 0e 20 20 20 20 20 20 20 20 52 45 ┆MEDARB.TOTTIMLØ+TID;- RE┆
0x2bc0…2be0 50 45 41 54 0e 1e 20 20 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 ┆PEAT LÆSFELT(PICTURE(┆
0x2be0…2c00 33 29 29 3b 1e 1c 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 52 44 52 45 4e 52 3e 30 20 54 48 45 ┆3)); IF ORDRENR>0 THE┆
0x2c00…2c20 4e 20 1c 0f 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0f 22 20 20 20 20 20 20 20 20 20 20 20 ┆N BEGIN " ┆
0x2c20…2c40 20 53 4b 52 49 56 46 45 4c 54 28 50 49 43 54 55 52 45 28 33 29 29 3b 22 20 20 20 20 20 20 20 20 ┆ SKRIVFELT(PICTURE(3));" ┆
0x2c40…2c60 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 34 29 29 3b 20 22 20 20 20 20 20 ┆ LÆSFELT(PICTURE(4)); " ┆
0x2c60…2c80 20 20 20 20 20 20 20 53 4b 52 49 56 46 45 4c 54 28 50 49 43 54 55 52 45 28 34 29 29 3b 22 1e 20 ┆ SKRIVFELT(PICTURE(4));" ┆
0x2c80…2ca0 20 20 20 20 20 20 20 20 20 20 20 4f 52 44 52 45 2e 4e 52 3a 3d 4f 52 44 52 45 4e 52 3b 1e 21 20 ┆ ORDRE.NR:=ORDRENR; ! ┆
0x2ca0…2cc0 20 20 20 20 20 20 20 20 20 20 20 4f 52 44 52 45 2e 45 4d 4e 45 4e 52 3a 3d 45 4d 4e 45 4e 52 3b ┆ ORDRE.EMNENR:=EMNENR;┆
0x2cc0…2ce0 21 1c 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 52 45 43 28 4f 52 44 52 45 2e 41 29 3b 1c 39 ┆! GETREC(ORDRE.A); 9┆
0x2ce0…2d00 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 28 2d 49 45 52 20 49 4e 20 28 2e 30 2c ┆ IF NOT (-IER IN (.0,┆
0x2d00…2d20 36 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 4f 52 44 52 45 2e 41 29 3b 39 1a 20 20 20 20 20 ┆6.)) THEN ERROR(ORDRE.A);9 ┆
0x2d20…2d40 20 20 20 20 20 20 20 49 46 20 49 45 52 3d 2d 36 20 54 48 45 4e 1a 20 20 20 20 20 20 20 20 20 20 ┆ IF IER=-6 THEN ┆
0x2d40…2d60 20 20 20 20 20 4e 4f 4e 45 58 49 53 54 28 27 4f 72 64 72 65 6e 27 29 20 10 20 20 20 20 20 20 20 ┆ NONEXIST('Ordren') ┆
0x2d60…2d80 20 20 20 20 20 45 4c 53 45 10 11 20 20 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 11 22 20 20 ┆ ELSE BEGIN " ┆
0x2d80…2da0 20 20 20 20 20 20 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 35 29 29 3b ┆ LÆSFELT(PICTURE(5));┆
0x2da0…2dc0 22 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 4b 52 49 56 46 45 4c 54 28 50 49 43 54 55 52 ┆"$ SKRIVFELT(PICTUR┆
0x2dc0…2de0 45 28 35 29 29 3b 24 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4d 56 50 52 4f 44 2e 4f 52 ┆E(5));$' OMVPROD.OR┆
0x2de0…2e00 44 52 45 4e 52 3a 3d 4f 52 44 52 45 4e 52 3b 27 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f ┆DRENR:=ORDRENR;'% O┆
0x2e00…2e20 4d 56 50 52 4f 44 2e 45 4d 4e 45 4e 52 3a 3d 45 4d 4e 45 4e 52 3b 25 27 20 20 20 20 20 20 20 20 ┆MVPROD.EMNENR:=EMNENR;%' ┆
0x2e20…2e40 20 20 20 20 20 20 4f 4d 56 50 52 4f 44 2e 4f 50 45 52 41 4e 52 3a 3d 4f 50 45 52 41 4e 52 3b 27 ┆ OMVPROD.OPERANR:=OPERANR;'┆
0x2e40…2e60 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 4d 56 50 52 4f 44 2e 53 45 4b 56 45 4e 53 4e 3a ┆" OMVPROD.SEKVENSN:┆
0x2e60…2e80 3d 30 3b 22 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 52 45 43 28 4f 4d 56 50 52 ┆=0;"! NEXTREC(OMVPR┆
0x2e80…2ea0 4f 44 2e 41 29 3b 21 3f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 28 2d 49 ┆OD.A);!? IF NOT (-I┆
0x2ea0…2ec0 45 52 20 49 4e 20 28 2e 31 2c 32 2c 39 2e 29 29 20 54 48 45 4e 20 45 52 52 4f 52 28 4f 4d 56 50 ┆ER IN (.1,2,9.)) THEN ERROR(OMVP┆
0x2ec0…2ee0 52 4f 44 2e 41 29 3b 3f 16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 3a 3d 27 4a 27 3b 16 ┆ROD.A);? CH:='J'; ┆
0x2ee0…2f00 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4f 4d 56 50 52 4f 44 2e 4f 50 45 52 41 4e ┆. IF OMVPROD.OPERAN┆
0x2f00…2f20 52 3c 3e 4f 50 45 52 41 4e 52 20 54 48 45 4e 2e 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆R<>OPERANR THEN. B┆
0x2f20…2f40 45 47 49 4e 13 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 28 32 32 2c 31 29 3b 18 47 ┆EGIN D(22,1); G┆
0x2f40…2f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4f 70 65 72 61 74 69 ┆ WRITELN('Operati┆
0x2f60…2f80 6f 6e 65 6e 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d 20 66 6f 72 6b 61 6c 6b 75 6c 61 74 69 ┆onen findes ikke på forkalkulati┆
0x2f80…2fa0 6f 6e 65 6e 27 29 3b 47 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 3a 3d 51 4a 4e ┆onen');G9 CH:=QJN┆
0x2fa0…2fc0 28 27 5c 6e 73 6b 65 73 20 72 65 67 69 73 74 72 65 72 69 6e 67 65 6e 20 66 6f 72 74 73 61 74 27 ┆('Ønskes registreringen fortsat'┆
0x2fc0…2fe0 29 3b 39 17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 28 32 32 2c 31 29 17 12 20 20 20 ┆);9 D(22,1) ┆
0x2fe0…3000 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 12 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 ┆ END; ' I┆
0x3000…3020 46 20 43 48 20 49 4e 20 4a 41 20 54 48 45 4e 20 52 45 47 4c 49 4e 49 45 27 10 20 20 20 20 20 20 ┆F CH IN JA THEN REGLINIE' ┆
0x3020…3040 20 20 20 20 20 20 45 4e 44 3b 10 13 20 20 20 20 20 20 20 20 20 20 20 20 44 28 33 2c 38 29 20 13 ┆ END; D(3,8) ┆
0x3040…3060 0d 20 20 20 20 20 20 20 20 20 20 45 4e 44 0d 18 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 4f 52 ┆ END UNTIL OR┆
0x3060…3080 44 52 45 4e 52 3d 30 3b 18 29 20 20 20 20 20 20 20 20 50 55 54 52 45 43 28 4d 45 44 41 52 42 2e ┆DRENR=0; ) PUTREC(MEDARB.┆
0x3080…30a0 41 29 3b 43 48 45 43 4b 30 28 4d 45 44 41 52 42 2e 41 29 29 09 20 20 20 20 20 20 45 4e 44 09 07 ┆A);CHECK0(MEDARB.A)) END ┆
0x30a0…30c0 20 20 20 20 45 4e 44 07 12 20 20 55 4e 54 49 4c 20 4d 45 44 41 52 42 4e 52 3d 30 12 04 45 4e 44 ┆ END UNTIL MEDARBNR=0 END┆
0x30c0…30e0 3b 04 06 28 2a 24 50 2a 29 06 11 42 45 47 49 4e 20 28 2a 52 45 47 56 45 44 4c 2a 29 11 10 20 20 ┆; (*$P*) BEGIN (*REGVEDL*) ┆
0x30e0…3100 4c 4f 4e 47 4e 55 4c 28 31 29 3a 3d 30 3b 10 10 20 20 4c 4f 4e 47 4e 55 4c 28 32 29 3a 3d 30 3b ┆LONGNUL(1):=0; LONGNUL(2):=0;┆
0x3100…3120 10 12 20 20 4a 41 3a 3d 28 2e 27 4a 27 2c 27 6a 27 2e 29 3b 12 13 20 20 4e 45 4a 3a 3d 28 2e 27 ┆ JA:=(.'J','j'.); NEJ:=(.'┆
0x3120…3140 4e 27 2c 27 6e 27 2e 29 3b 13 12 20 20 4a 41 4f 47 4e 45 4a 3a 3d 4a 41 2b 4e 45 4a 3b 12 0e 20 ┆N','n'.); JAOGNEJ:=JA+NEJ; ┆
0x3140…3160 20 43 4c 45 41 52 53 43 52 45 45 4e 3b 0e 0a 20 20 4c 5b 53 44 45 53 43 3b 0a 13 20 20 4d 4f 44 ┆ CLEARSCREEN; LÆSDESC; MOD┆
0x3160…3180 45 3a 3d 33 3b 28 2a 53 4b 52 49 56 2a 29 13 09 20 20 28 2a 24 52 2d 2a 29 09 14 20 20 4d 45 44 ┆E:=3;(*SKRIV*) (*$R-*) MED┆
0x3180…31a0 41 52 42 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 14 11 20 20 50 4f 53 54 2e 41 28 2d 34 29 3a 3d 30 ┆ARB.A(-4):=0; POST.A(-4):=0┆
0x31a0…31c0 3b 20 11 12 20 20 53 59 53 54 45 4d 2e 41 28 2d 34 29 3a 3d 30 3b 12 1d 20 20 50 52 4f 44 2e 41 ┆; SYSTEM.A(-4):=0; PROD.A┆
0x31c0…31e0 28 2d 34 29 3a 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 1d 1d 20 20 4f 4d 56 50 52 4f 44 ┆(-4):=0; OMVPROD┆
0x31e0…3200 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 20 20 20 20 20 20 20 20 1d 1d 20 20 4f 4d 56 52 52 45 47 4c ┆.A(-4):=0; OMVRREGL┆
0x3200…3220 2e 41 28 2d 34 29 3a 3d 30 3b 20 20 20 20 20 20 20 20 20 1d 11 20 20 4f 52 44 52 45 2e 41 28 2d ┆.A(-4):=0; ORDRE.A(-┆
0x3220…3240 34 29 3a 3d 30 3b 11 14 20 20 4d 45 44 41 52 42 2e 41 28 2d 33 29 3a 3d 37 3b 20 20 14 19 20 20 ┆4):=0; MEDARB.A(-3):=7; ┆
0x3240…3260 50 4f 53 54 2e 41 28 2d 33 29 3a 3d 31 36 3b 28 2a 52 45 47 4c 2a 29 19 12 20 20 53 59 53 54 45 ┆POST.A(-3):=16;(*REGL*) SYSTE┆
0x3260…3280 4d 2e 41 28 2d 33 29 3a 3d 39 3b 12 16 20 20 50 52 4f 44 2e 41 28 2d 33 29 3a 3d 31 34 3b 20 20 ┆M.A(-3):=9; PROD.A(-3):=14; ┆
0x3280…32a0 20 20 20 16 12 20 20 4f 52 44 52 45 2e 41 28 2d 33 29 3a 3d 31 30 3b 12 16 20 20 4f 4d 56 50 52 ┆ ORDRE.A(-3):=10; OMVPR┆
0x32a0…32c0 4f 44 2e 41 28 2d 33 29 3a 3d 31 33 3b 20 20 16 17 20 20 4f 4d 56 52 52 45 47 4c 2e 41 28 2d 33 ┆OD.A(-3):=13; OMVRREGL.A(-3┆
0x32c0…32e0 29 3a 3d 32 33 3b 20 20 17 09 20 20 28 2a 24 52 2b 2a 29 09 2c 20 20 28 2a 40 40 45 56 54 2e 20 ┆):=23; (*$R+*) , (*@@EVT. ┆
0x32e0…3300 5d 42 4e 49 4e 47 20 41 46 20 41 4e 44 52 45 20 41 4e 44 52 45 20 44 41 54 41 46 49 4c 45 52 2a ┆ÅBNING AF ANDRE ANDRE DATAFILER*┆
0x3300…3320 29 2c 25 20 20 49 4f 50 45 4e 28 53 59 53 54 45 4d 2e 41 29 3b 20 43 48 45 43 4b 30 28 53 59 53 ┆),% IOPEN(SYSTEM.A); CHECK0(SYS┆
0x3320…3340 54 45 4d 2e 41 29 3b 20 25 0f 20 20 53 59 53 54 45 4d 2e 4e 52 3a 3d 30 3b 0f 24 20 20 47 45 54 ┆TEM.A); % SYSTEM.NR:=0; $ GET┆
0x3340…3360 52 45 43 28 53 59 53 54 45 4d 2e 41 29 3b 43 48 45 43 4b 30 28 53 59 53 54 45 4d 2e 41 29 3b 24 ┆REC(SYSTEM.A);CHECK0(SYSTEM.A);$┆
0x3360…3380 13 20 20 49 43 4c 4f 53 45 28 53 59 53 54 45 4d 2e 41 29 3b 13 25 20 20 49 4f 50 45 4e 28 4d 45 ┆ ICLOSE(SYSTEM.A); % IOPEN(ME┆
0x3380…33a0 44 41 52 42 2e 41 29 3b 20 43 48 45 43 4b 30 28 4d 45 44 41 52 42 2e 41 29 3b 20 25 21 20 20 49 ┆DARB.A); CHECK0(MEDARB.A); %! I┆
0x33a0…33c0 4f 50 45 4e 28 50 4f 53 54 2e 41 29 3b 20 43 48 45 43 4b 30 28 50 4f 53 54 2e 41 29 3b 20 21 21 ┆OPEN(POST.A); CHECK0(POST.A); !!┆
0x33c0…33e0 20 20 49 4f 50 45 4e 28 50 52 4f 44 2e 41 29 3b 20 43 48 45 43 4b 30 28 50 52 4f 44 2e 41 29 3b ┆ IOPEN(PROD.A); CHECK0(PROD.A);┆
0x33e0…3400 20 21 27 20 20 49 4f 50 45 4e 28 4f 4d 56 50 52 4f 44 2e 41 29 3b 20 43 48 45 43 4b 30 28 4f 4d ┆ !' IOPEN(OMVPROD.A); CHECK0(OM┆
0x3400…3420 56 50 52 4f 44 2e 41 29 3b 20 27 22 20 20 49 4f 50 45 4e 28 4f 52 44 52 45 2e 41 29 3b 20 43 48 ┆VPROD.A); '" IOPEN(ORDRE.A); CH┆
0x3420…3440 45 43 4b 30 28 4f 52 44 52 45 2e 41 29 3b 22 29 20 20 49 4f 50 45 4e 28 4f 4d 56 52 52 45 47 4c ┆ECK0(ORDRE.A);") IOPEN(OMVRREGL┆
0x3440…3460 2e 41 29 3b 20 43 48 45 43 4b 30 28 4f 4d 56 52 52 45 47 4c 2e 41 29 3b 20 29 0b 20 20 4d 41 49 ┆.A); CHECK0(OMVRREGL.A); ) MAI┆
0x3460…3480 4e 54 41 49 4e 3b 0b 13 20 20 49 43 4c 4f 53 45 28 4d 45 44 41 52 42 2e 41 29 3b 13 11 20 20 49 ┆NTAIN; ICLOSE(MEDARB.A); I┆
0x3480…34a0 43 4c 4f 53 45 28 50 4f 53 54 2e 41 29 3b 11 12 20 20 49 43 4c 4f 53 45 28 4f 52 44 52 45 2e 41 ┆CLOSE(POST.A); ICLOSE(ORDRE.A┆
0x34a0…34c0 29 3b 12 11 20 20 49 43 4c 4f 53 45 28 50 52 4f 44 2e 41 29 3b 11 14 20 20 49 43 4c 4f 53 45 28 ┆); ICLOSE(PROD.A); ICLOSE(┆
0x34c0…34e0 4f 4d 56 50 52 4f 44 2e 41 29 3b 14 15 20 20 49 43 4c 4f 53 45 28 4f 4d 56 52 52 45 47 4c 2e 41 ┆OMVPROD.A); ICLOSE(OMVRREGL.A┆
0x34e0…3500 29 3b 15 27 20 20 28 2a 40 40 45 56 54 2e 20 4c 55 4b 4e 49 4e 47 20 41 46 20 41 4e 44 52 45 20 ┆); ' (*@@EVT. LUKNING AF ANDRE ┆
0x3500…3520 44 41 54 41 46 49 4c 45 52 2a 29 27 0e 20 20 43 4c 45 41 52 53 43 52 45 45 4e 20 0e 04 45 4e 44 ┆DATAFILER*)' CLEARSCREEN END┆
0x3520…3540 3b 04 06 28 2a 24 50 2a 29 06 05 42 45 47 49 4e 05 18 20 20 53 45 4d 41 46 4f 52 3a 3d 27 41 4c ┆; (*$P*) BEGIN SEMAFOR:='AL┆
0x3540…3560 4c 4f 43 4f 4d 42 55 46 27 3b 18 16 20 20 49 3a 3d 4f 52 44 28 50 41 52 4d 5e 28 31 29 29 2d 34 ┆LOCOMBUF'; I:=ORD(PARM^(1))-4┆
0x3560…3580 38 3b 16 14 20 20 55 53 45 52 4e 49 56 45 41 55 3a 3d 4d 45 4e 49 47 3b 14 0e 20 20 57 48 49 4c ┆8; USERNIVEAU:=MENIG; WHIL┆
0x3580…35a0 45 20 49 3e 30 20 44 4f 0e 07 20 20 42 45 47 49 4e 07 21 20 20 20 20 55 53 45 52 4e 49 56 45 41 ┆E I>0 DO BEGIN ! USERNIVEA┆
0x35a0…35c0 55 3a 3d 53 55 43 43 28 55 53 45 52 4e 49 56 45 41 55 29 3b 21 0a 20 20 20 20 49 3a 3d 49 2d 31 ┆U:=SUCC(USERNIVEAU);! I:=I-1┆
0x35c0…35e0 0a 4e 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ N END; ┆
0x35e0…3600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3600…3620 20 20 20 20 20 20 20 20 20 28 2a 24 52 2d 2a 29 4e 0e 20 20 53 4e 59 44 28 2d 33 29 3a 3d 30 3b ┆ (*$R-*)N SNYD(-3):=0;┆
0x3620…3640 0e 3e 20 20 46 4f 52 20 49 3a 3d 36 20 44 4f 57 4e 54 4f 20 32 20 44 4f 20 53 4e 59 44 28 2d 33 ┆ > FOR I:=6 DOWNTO 2 DO SNYD(-3┆
0x3640…3660 29 3a 3d 31 30 2a 53 4e 59 44 28 2d 33 29 2b 4f 52 44 28 50 41 52 4d 5e 28 49 29 29 2d 34 38 3b ┆):=10*SNYD(-3)+ORD(PARM^(I))-48;┆
0x3660…3680 3e 4e 20 20 49 46 20 50 41 52 4d 5e 28 37 29 3d 27 2d 27 20 54 48 45 4e 20 53 4e 59 44 28 2d 33 ┆>N IF PARM^(7)='-' THEN SNYD(-3┆
0x3680…36a0 29 3a 3d 2d 53 4e 59 44 28 2d 33 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆):=-SNYD(-3); ┆
0x36a0…36c0 20 20 20 20 20 20 20 20 20 28 2a 24 52 2b 2a 29 4e 17 20 20 55 44 46 5c 52 28 50 54 49 4c 4d 45 ┆ (*$R+*)N UDFØR(PTILME┆
0x36c0…36e0 4c 44 2c 53 4e 59 44 29 3b 17 18 20 20 55 44 46 5c 52 54 28 50 54 49 4c 4d 45 4c 44 2c 53 4e 59 ┆LD,SNYD); UDFØRT(PTILMELD,SNY┆
0x36e0…3700 44 29 3b 18 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 45 4e 20 42 41 44 28 31 2c 49 45 52 29 ┆D); IF IER<>0 THEN BAD(1,IER)┆
0x3700…3720 3b 1c 0f 28 2a 40 40 54 49 4c 50 41 53 53 45 53 2a 29 0f 1f 20 20 44 45 53 43 4e 41 56 4e 3a 3d ┆; (*@@TILPASSES*) DESCNAVN:=┆
0x3720…3740 27 54 49 44 53 50 45 53 43 3a 50 32 3a 30 35 3a 4a 27 3b 1f 0a 20 20 52 45 47 56 45 44 4c 3b 0a ┆'TIDSPESC:P2:05:J'; REGVEDL; ┆
0x3740…3760 16 20 20 55 44 46 5c 52 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 16 17 20 20 55 44 46 5c 52 ┆ UDFØR(PAFMELD,SNYD); UDFØR┆
0x3760…3780 54 28 50 41 46 4d 45 4c 44 2c 53 4e 59 44 29 3b 17 1c 20 20 49 46 20 49 45 52 3c 3e 30 20 54 48 ┆T(PAFMELD,SNYD); IF IER<>0 TH┆
0x3780…37a0 45 4e 20 42 41 44 28 32 2c 49 45 52 29 3b 1c 13 20 20 46 4e 41 56 4e 3a 3d 27 20 20 20 20 20 20 ┆EN BAD(2,IER); FNAVN:=' ┆
0x37a0…37c0 20 27 3b 13 26 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 20 44 4f 20 46 4e 41 56 4e 28 49 29 ┆ '; & FOR I:=1 TO 7 DO FNAVN(I)┆
0x37c0…37e0 3a 3d 50 41 52 4d 5e 28 49 29 3b 26 20 20 20 43 48 41 49 4e 28 27 48 4f 56 45 44 20 20 20 2a 31 ┆:=PARM^(I);& CHAIN('HOVED *1┆
0x37e0…3800 27 2c 46 4e 41 56 4e 2c 51 55 51 29 3b 20 33 20 20 49 46 20 49 4f 52 45 53 55 4c 54 3c 3e 30 20 ┆',FNAVN,QUQ); 3 IF IORESULT<>0 ┆
0x3800…3820 54 48 45 4e 20 57 52 49 54 45 4c 4e 28 27 49 4f 52 45 53 55 4c 54 20 27 2c 49 4f 52 45 53 55 4c ┆THEN WRITELN('IORESULT ',IORESUL┆
0x3820…3840 54 29 33 04 45 4e 44 2e 04 00 00 45 50 45 41 54 13 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T)3 END. EPEAT ┆
0x3840…3860 20 52 45 50 45 41 54 15 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆ REPEAT GOTOXY┆
0x3860…3880 28 31 2c 32 33 29 3b 1e 16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 3a 3d 30 3b 16 ┆(1,23); J:=0; ┆
0x3880…38a0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 65 6c 74 6e ┆; WRITELN('Feltn┆
0x38a0…38c0 72 2c 20 30 20 66 6f 72 20 66 7b 72 64 69 67 20 27 2c 4a 2c 27 20 27 3a 35 37 29 3b 3b 26 20 20 ┆r, 0 for færdig ',J,' ':57);;& ┆
0x38c0…38e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 32 2c 32 33 29 3b 52 45 41 ┆ GOTOXY(22,23);REA┆
0x38e0…3900 44 4c 4e 3b 26 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 28 45 ┆DLN;&; IF NOT (E┆
0x3900…3920 4f 4c 4e 20 4f 52 20 28 49 4e 50 55 54 5e 3d 27 20 27 29 29 20 54 48 45 4e 20 52 45 41 44 28 4a ┆OLN OR (INPUT^=' ')) THEN READ(J┆
0x3920…3940 29 3b 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e 54 49 4c 20 28 49 4f 52 45 53 55 4c ┆);B UNTIL (IORESUL┆
0x3940…3960 54 3d 30 29 20 41 4e 44 20 28 4a 3e 3d 30 29 20 41 4e 44 20 28 4a 3c 3d 41 4e 54 41 4c 46 45 4c ┆T=0) AND (J>=0) AND (J<=ANTALFEL┆
0x3960…3980 54 45 52 29 3b 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4a 3e 30 20 54 48 45 ┆TER);B IF J>0 THE┆
0x3980…39a0 4e 20 42 45 47 49 4e 20 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆N BEGIN F ┆
0x39a0…39c0 20 20 20 20 20 20 4c 5b 53 46 45 4c 54 28 50 49 43 54 55 52 45 28 4a 29 29 3b 53 4b 52 49 56 46 ┆ LÆSFELT(PICTURE(J));SKRIVF┆
0x39c0…39e0 45 4c 54 28 50 49 43 54 55 52 45 28 4a 29 29 46 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ELT(PICTURE(J))F ┆
0x39e0…3a00 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 1e 17 20 20 20 20 20 20 20 20 20 20 20 20 20 55 4e ┆ END UN┆
0x3a00…3a20 54 49 4c 20 4a 3d 30 3b 17 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 52 45 43 28 50 4f ┆TIL J=0; PUTREC(PO┆
0x3a20…3a40 53 54 2e 41 29 3b 1c 29 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 49 45 52 3c 3e 30 20 54 ┆ST.A); ) IF IER<>0 T┆
0x3a40…3a60 48 45 4e 20 45 52 52 4f 52 28 50 4f 53 54 2e 41 29 29 0f 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆HEN ERROR(POST.A)) EN┆
0x3a60…3a80 44 3b 0f 3e 20 20 20 20 20 20 20 20 32 3a 20 42 45 47 49 4e 20 47 4f 54 4f 58 59 28 31 2c 32 34 ┆D; > 2: BEGIN GOTOXY(1,24┆
0x3a80…3aa0 29 3b 57 52 49 54 45 28 27 54 72 79 6b 20 52 45 54 55 52 4e 27 29 3b 52 45 41 44 4c 4e 20 45 4e ┆);WRITE('Tryk RETURN');READLN EN┆
0x3aa0…3ac0 44 3b 3e 10 20 20 20 20 20 20 20 20 33 3a 20 42 45 47 49 4e 10 13 20 20 20 20 20 20 20 20 20 20 ┆D;> 3: BEGIN ┆
0x3ac0…3ae0 20 20 20 52 45 50 45 41 54 13 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 ┆ REPEAT GOTOXY┆
0x3ae0…3b00 28 31 2c 32 33 29 3b 1c 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆(1,23); 5 WRITELN(┆
0x3b00…3b20 27 41 6e 74 61 6c 20 70 6f 73 74 65 72 2c 20 30 20 66 6f 72 20 72 65 73 74 65 6e 27 29 3b 35 1d ┆'Antal poster, 0 for resten');5 ┆
0x3b20…3b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 32 38 2c 32 33 29 3b 1d 1d 63 ┆ GOTOXY(28,23); c┆