|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »NBTFEJL.K«
└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
└─⟦this⟧ »NBTFEJL.K«
PROCEDURE IOF(VAR FIL:FILNAVN);
BEGIN
CLEARSCREEN;
WRITELN('FEJL,IER=',IER,',FIL=',FIL,' NOTER FEJLEN!');
WRITELN('TRYK RETURN, DER RETURNERES TIL PROGRAMVALG');
LUK;
READLN;
READ (CH);
EXIT(MAINTAIN);
END;
PROCEDURE OFEJL(VAR FIL:FILNAVN);
VAR I:INTEGER;
BEGIN
GOTOXY(1,20);
WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . 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 IOF(FIL);
CLEARSCREEN
END;
PROCEDURE FEJL(TYP:INTEGER);
BEGIN
CLEARSCREEN;
WRITELN('FEJL I OPBYGNING, FEJLKODE:',TYP,'NOTER FEJLEN!');
WRITELN('FEJLEN FUNDET UNDER BEHANDLING AF ORDRENR:',OLINIE.ORDRENR);
WRITELN(' POSITION:',OLINIE.POSITION);
WRITELN(' VINDUESNR:',OLINIE.VINDUENR);
WRITELN(' RAMMENR:', I1);
LUK;
READLN;
READ (CH);
EXIT(MAINTAIN);
END;
0x000…021 Line {l1=0x1f, l2=»PROCEDURE IOF(VAR FIL:FILNAVN);«, l3=0x1f}
0x021…028 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x028…038 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x038…072 Line {l1=0x38, l2=» WRITELN('FEJL,IER=',IER,',FIL=',FIL,' NOTER FEJLEN!');«, l3=0x38}
0x072…0ad Line {l1=0x39, l2=» WRITELN('TRYK RETURN, DER RETURNERES TIL PROGRAMVALG');«, l3=0x39}
0x0ad…0b5 Line {l1=0x06, l2=» LUK;«, l3=0x06}
0x0b5…0c0 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x0c0…0ce Line {l1=0x0c, l2=» READ (CH);«, l3=0x0c}
0x0ce…0e1 Line {l1=0x11, l2=» EXIT(MAINTAIN);«, l3=0x11}
0x0e1…0e7 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0e7…0ea Line {l1=0x01, l2=» «, l3=0x01}
0x0ea…10d Line {l1=0x21, l2=»PROCEDURE OFEJL(VAR FIL:FILNAVN);«, l3=0x21}
0x10d…11d Line {l1=0x0e, l2=»VAR I:INTEGER;«, l3=0x0e}
0x11d…124 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x124…135 Line {l1=0x0f, l2=» GOTOXY(1,20);«, l3=0x0f}
0x135…184 Line {l1=0x4d, l2=» WRITELN('REGISTERFEJL ',IER,' I ',FIL,' . SITUATIONEN ER FORSØGT REDDET.');«, l3=0x4d}
0x184…1b4 Line {l1=0x2e, l2=» WRITELN('TAST 0, HVIS DER SKAL FORTSÆTTES');«, l3=0x2e}
0x1b4…1ed Line {l1=0x37, l2=» REPEAT GOTOXY(40,21);READLN;READ(I) UNTIL IORESULT=0;«, l3=0x37}
0x1ed…207 Line {l1=0x18, l2=» IF I<>0 THEN IOF(FIL);«, l3=0x18}
0x207…216 Line {l1=0x0d, l2=» CLEARSCREEN«, l3=0x0d}
0x216…21c Line {l1=0x04, l2=»END;«, l3=0x04}
0x21c…21f Line {l1=0x01, l2=» «, l3=0x01}
0x21f…23d Line {l1=0x1c, l2=»PROCEDURE FEJL(TYP:INTEGER);«, l3=0x1c}
0x23d…244 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x244…254 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x254…293 Line {l1=0x3d, l2=» WRITELN('FEJL I OPBYGNING, FEJLKODE:',TYP,'NOTER FEJLEN!');«, l3=0x3d}
0x293…2dc Line {l1=0x47, l2=» WRITELN('FEJLEN FUNDET UNDER BEHANDLING AF ORDRENR:',OLINIE.ORDRENR);«, l3=0x47}
0x2dc…326 Line {l1=0x48, l2=» WRITELN(' POSITION:',OLINIE.POSITION);«, l3=0x48}
0x326…370 Line {l1=0x48, l2=» WRITELN(' VINDUESNR:',OLINIE.VINDUENR);«, l3=0x48}
0x370…3ae Line {l1=0x3c, l2=» WRITELN(' RAMMENR:', I1);«, l3=0x3c}
0x3ae…3b6 Line {l1=0x06, l2=» LUK;«, l3=0x06}
0x3b6…3c1 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x3c1…3cf Line {l1=0x0c, l2=» READ (CH);«, l3=0x0c}
0x3cf…3e2 Line {l1=0x11, l2=» EXIT(MAINTAIN);«, l3=0x11}
0x3e2…3e8 Line {l1=0x04, l2=»END;«, l3=0x04}
0x3e8…3eb Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x3ee…400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x400…420 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 ┆ ┆
[…0x6…]