|
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: 2976 (0xba0)
Types: TextFile
Notes: Mikados_K
Names: »FISFPROC.K«
└─⟦5630b2e42⟧ Bits:30009005 START APRIL 1985 aft april 1985 (PASCAL kildetekster)
└─⟦this⟧ »FISFPROC.K«
└─⟦6c21327e0⟧ Bits:30008986 LINIMATIC K-FILER (IKKE HELT UPTODTATE)
└─⟦this⟧ »FISFPROC.K«
(*$P*)
PROCEDURE IOPEN(VAR REC:AR);
VAR I:INTEGER;
BEGIN
REPEAT
UDFØR(ÅBEN,REC);
UDFØRT(ÅBEN,REC);
I:=1;
IF (-IER IN (.18,19.)) THEN
BEGIN
REPEAT
GOTOXY(1,20); (*$R-*)
WRITELN('REGISTERFEJL ',IER,' I ',REC(-3),
' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)
WRITE('TAST 0, HVIS DER SKAL FORTSÆTTES ');
READLN;READ(I)
UNTIL IORESULT=0;
IF I=0 THEN IER:=0
END
ELSE
IF (-IER IN (.16,20,29.)) THEN
BEGIN
REPEAT
GOTOXY(1,20); (*$R-*)
WRITE('REGISTERFEJL ',IER,' I ',REC(-3),' TAST 0 FOR PRØV IGEN ');
(*$R+*)
READLN;READ(I)
UNTIL IORESULT=0;
IF I=0 THEN I:=-1
END
UNTIL I<>-1
END;
PROCEDURE ICLOSE(VAR REC:AR);
BEGIN
IF REC(-4)>0 THEN
BEGIN
UDFØR(LUK,REC);
UDFØRT(LUK,REC);
REC(-4):=0;
IF IER<>0 THEN (*$R-*)
BEGIN
WRITELN('FEJL ',IER,' UNDER LUKNING AF FIL ',REC(-3),' RETURN');(*$R+*)
READLN
END
END
END;
PROCEDURE GETREC(VAR REC:AR);
BEGIN
UDFØR(LÆSPOST,REC);
UDFØRT(LÆSPOST,REC)
END;
PROCEDURE GETRECX(VAR REC:AR);
BEGIN
REPEAT
UDFØR(LÆSPOSTX,REC);
UDFØRT(LÆSPOSTX,REC)
UNTIL IER<>-31
END;
PROCEDURE NEXTREC(VAR REC:AR);
BEGIN
UDFØR(NÆSTE,REC);
UDFØRT(NÆSTE,REC)
END;
PROCEDURE NEXTRECX(VAR REC:AR);
BEGIN
REPEAT
UDFØR(NÆSTEX,REC);
UDFØRT(NÆSTEX,REC)
UNTIL IER<>-31
END;
PROCEDURE DELETE(VAR REC:AR);
BEGIN
UDFØR(SLET,REC);
UDFØRT(SLET,REC)
END;
PROCEDURE DELETEX(VAR REC:AR);
BEGIN
REPEAT
UDFØR(SLETX,REC);
UDFØRT(SLETX,REC)
UNTIL IER<>-31
END;
PROCEDURE PUTREC(VAR REC:AR);
BEGIN
UDFØR(GEMPOST,REC);
UDFØRT(GEMPOST,REC)
END;
PROCEDURE INSERT(VAR REC:AR);
BEGIN
UDFØR(INDSÆT,REC);
UDFØRT(INDSÆT,REC)
END;
PROCEDURE INITIATE(VAR REC:AR);
BEGIN
UDFØR(INITIER,REC);
UDFØRT(INITIER,REC)
END;
0x000…008 Line {l1=0x06, l2=»(*$P*)«, l3=0x06}
0x008…026 Line {l1=0x1c, l2=»PROCEDURE IOPEN(VAR REC:AR);«, l3=0x1c}
0x026…036 Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x036…03d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03d…047 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x047…05d Line {l1=0x14, l2=» UDFØR(ÅBEN,REC);«, l3=0x14}
0x05d…074 Line {l1=0x15, l2=» UDFØRT(ÅBEN,REC);«, l3=0x15}
0x074…07f Line {l1=0x09, l2=» I:=1;«, l3=0x09}
0x07f…0a0 Line {l1=0x1f, l2=» IF (-IER IN (.18,19.)) THEN«, l3=0x1f}
0x0a0…0ab Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0ab…0b9 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x0b9…107 Line {l1=0x4c, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x4c}
0x107…156 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',REC(-3), «, l3=0x4d}
0x156…1a4 Line {l1=0x4c, l2=» ' . SITUATIONEN ER FORSØGT REDDET.'); (*$R+*)«, l3=0x4c}
0x1a4…1d9 Line {l1=0x33, l2=» WRITE('TAST 0, HVIS DER SKAL FORTSÆTTES ');«, l3=0x33}
0x1d9…1f1 Line {l1=0x16, l2=» READLN;READ(I)«, l3=0x16}
0x1f1…20a Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x20a…225 Line {l1=0x19, l2=» IF I=0 THEN IER:=0 «, l3=0x19}
0x225…22e Line {l1=0x07, l2=» END«, l3=0x07}
0x22e…238 Line {l1=0x08, l2=» ELSE«, l3=0x08}
0x238…25d Line {l1=0x23, l2=» IF (-IER IN (.16,20,29.)) THEN «, l3=0x23}
0x25d…268 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x268…276 Line {l1=0x0c, l2=» REPEAT«, l3=0x0c}
0x276…2b3 Line {l1=0x3b, l2=» GOTOXY(1,20); (*$R-*)«, l3=0x3b}
0x2b3…300 Line {l1=0x4b, l2=» WRITE('REGISTERFEJL ',IER,' I ',REC(-3),' TAST 0 FOR PRØV IGEN '); «, l3=0x4b}
0x300…33d Line {l1=0x3b, l2=» (*$R+*)«, l3=0x3b}
0x33d…355 Line {l1=0x16, l2=» READLN;READ(I)«, l3=0x16}
0x355…36e Line {l1=0x17, l2=» UNTIL IORESULT=0;«, l3=0x17}
0x36e…387 Line {l1=0x17, l2=» IF I=0 THEN I:=-1«, l3=0x17}
0x387…390 Line {l1=0x07, l2=» END«, l3=0x07}
0x390…39f Line {l1=0x0d, l2=» UNTIL I<>-1«, l3=0x0d}
0x39f…3a5 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3a5…3c4 Line {l1=0x1d, l2=»PROCEDURE ICLOSE(VAR REC:AR);«, l3=0x1d}
0x3c4…3cb Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x3cb…3df Line {l1=0x12, l2=» IF REC(-4)>0 THEN«, l3=0x12}
0x3df…3e7 Line {l1=0x06, l2=» BEGIN«, l3=0x06}
0x3e7…3fa Line {l1=0x11, l2=» UDFØR(LUK,REC);«, l3=0x11}
0x3fa…40e Line {l1=0x12, l2=» UDFØRT(LUK,REC);«, l3=0x12}
0x40e…41d Line {l1=0x0d, l2=» REC(-4):=0;«, l3=0x0d}
0x41d…46a Line {l1=0x4b, l2=» IF IER<>0 THEN (*$R-*)«, l3=0x4b}
0x46a…473 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x473…4c0 Line {l1=0x4b, l2=» WRITELN('FEJL ',IER,' UNDER LUKNING AF FIL ',REC(-3),' RETURN');(*$R+*)«, l3=0x4b}
0x4c0…4cc Line {l1=0x0a, l2=» READLN«, l3=0x0a}
0x4cc…4d3 Line {l1=0x05, l2=» END«, l3=0x05}
0x4d3…4d9 Line {l1=0x04, l2=» END«, l3=0x04}
0x4d9…4df Line {l1=0x04, l2=»END;«, l3=0x04}
0x4df…4fe Line {l1=0x1d, l2=»PROCEDURE GETREC(VAR REC:AR);«, l3=0x1d}
0x4fe…505 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x505…51c Line {l1=0x15, l2=» UDFØR(LÆSPOST,REC);«, l3=0x15}
0x51c…533 Line {l1=0x15, l2=» UDFØRT(LÆSPOST,REC)«, l3=0x15}
0x533…539 Line {l1=0x04, l2=»END;«, l3=0x04}
0x539…559 Line {l1=0x1e, l2=»PROCEDURE GETRECX(VAR REC:AR);«, l3=0x1e}
0x559…560 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x560…56a Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x56a…584 Line {l1=0x18, l2=» UDFØR(LÆSPOSTX,REC);«, l3=0x18}
0x584…59e Line {l1=0x18, l2=» UDFØRT(LÆSPOSTX,REC)«, l3=0x18}
0x59e…5b0 Line {l1=0x10, l2=» UNTIL IER<>-31«, l3=0x10}
0x5b0…5b6 Line {l1=0x04, l2=»END;«, l3=0x04}
0x5b6…5d6 Line {l1=0x1e, l2=»PROCEDURE NEXTREC(VAR REC:AR);«, l3=0x1e}
0x5d6…5dd Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x5dd…5f2 Line {l1=0x13, l2=» UDFØR(NÆSTE,REC);«, l3=0x13}
0x5f2…607 Line {l1=0x13, l2=» UDFØRT(NÆSTE,REC)«, l3=0x13}
0x607…60d Line {l1=0x04, l2=»END;«, l3=0x04}
0x60d…62e Line {l1=0x1f, l2=»PROCEDURE NEXTRECX(VAR REC:AR);«, l3=0x1f}
0x62e…635 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x635…63f Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x63f…657 Line {l1=0x16, l2=» UDFØR(NÆSTEX,REC);«, l3=0x16}
0x657…66f Line {l1=0x16, l2=» UDFØRT(NÆSTEX,REC)«, l3=0x16}
0x66f…681 Line {l1=0x10, l2=» UNTIL IER<>-31«, l3=0x10}
0x681…687 Line {l1=0x04, l2=»END;«, l3=0x04}
0x687…6a6 Line {l1=0x1d, l2=»PROCEDURE DELETE(VAR REC:AR);«, l3=0x1d}
0x6a6…6ad Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x6ad…6c1 Line {l1=0x12, l2=» UDFØR(SLET,REC);«, l3=0x12}
0x6c1…6d5 Line {l1=0x12, l2=» UDFØRT(SLET,REC)«, l3=0x12}
0x6d5…6db Line {l1=0x04, l2=»END;«, l3=0x04}
0x6db…6fb Line {l1=0x1e, l2=»PROCEDURE DELETEX(VAR REC:AR);«, l3=0x1e}
0x6fb…702 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x702…70c Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x70c…723 Line {l1=0x15, l2=» UDFØR(SLETX,REC);«, l3=0x15}
0x723…73a Line {l1=0x15, l2=» UDFØRT(SLETX,REC)«, l3=0x15}
0x73a…74c Line {l1=0x10, l2=» UNTIL IER<>-31«, l3=0x10}
0x74c…752 Line {l1=0x04, l2=»END;«, l3=0x04}
0x752…771 Line {l1=0x1d, l2=»PROCEDURE PUTREC(VAR REC:AR);«, l3=0x1d}
0x771…778 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x778…78f Line {l1=0x15, l2=» UDFØR(GEMPOST,REC);«, l3=0x15}
0x78f…7a6 Line {l1=0x15, l2=» UDFØRT(GEMPOST,REC)«, l3=0x15}
0x7a6…7ac Line {l1=0x04, l2=»END;«, l3=0x04}
0x7ac…7cb Line {l1=0x1d, l2=»PROCEDURE INSERT(VAR REC:AR);«, l3=0x1d}
0x7cb…7d2 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x7d2…7e8 Line {l1=0x14, l2=» UDFØR(INDSÆT,REC);«, l3=0x14}
0x7e8…7fe Line {l1=0x14, l2=» UDFØRT(INDSÆT,REC)«, l3=0x14}
0x7fe…804 Line {l1=0x04, l2=»END;«, l3=0x04}
0x804…825 Line {l1=0x1f, l2=»PROCEDURE INITIATE(VAR REC:AR);«, l3=0x1f}
0x825…82c Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x82c…843 Line {l1=0x15, l2=» UDFØR(INITIER,REC);«, l3=0x15}
0x843…85a Line {l1=0x15, l2=» UDFØRT(INITIER,REC)«, l3=0x15}
0x85a…860 Line {l1=0x04, l2=»END;«, l3=0x04}
0x860…880 00 00 20 20 20 42 45 47 49 4e 09 0c 20 20 20 20 20 20 52 45 50 45 41 54 0c 4c 20 20 20 20 20 20 ┆ BEGIN REPEAT L ┆
0x880…8a0 20 20 47 4f 54 4f 58 59 28 31 2c 32 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTOXY(1,20); ┆
0x8a0…8c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x16…]
0xb80…ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 63 ┆ c┆