|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »DISKCATA.K«
└─⟦f1b095e24⟧ Bits:30005320 Katalogisering af disketter
└─⟦this⟧ »DISKCATA.K«
PROGRAM DISKCATA;
(* BR-09.05.85 - UNDER REVISION - IKKE KØREKLAR *)
TYPE PARAMARRAY = PACKED ARRAY(1..39) OF CHAR;
CLOCKRECORD = RECORD
DATO : PACKED ARRAY(1..10) OF CHAR;
TID : PACKED ARRAY(1..8) OF CHAR;
END;
BLOCK = PACKED ARRAY (0..255) OF CHAR;
BINÆRTRÆ = ^KNUDE;
NAVNTYPE = STRING(8);
KNUDE = RECORD
NAVN : NAVNTYPE;
VENSTRE, HØJRE : BINÆRTRÆ;
END;
FILPOST = RECORD
FNAVN : NAVNTYPE;
FTYPE : CHAR;
END;
STR3 = STRING(3);
VAR PARAM : ^PARAMARRAY;
CLOCK : ^CLOCKRECORD;
FUNC : ^CHAR;
DISCBUFFER : BLOCK;
DISC, ERRORCODE : INTEGER;
ROD, FIL : BINÆRTRÆ;
TRÆ : ARRAY('0'..'Å') OF BINÆRTRÆ;
FILTYPE : CHAR;
FUNDET : BOOLEAN;
DISKFIL : FILE OF FILPOST;
NUMMER : STR3;
DISKID : STRING(15);
DATO : STRING(10);
FILNAVN : NAVNTYPE;
FTYPE : STRING(1);
DISKLABEL, BUDATO : STRING(10);
DISKKODE : STRING(10);
PROCEDURE PSCIU(VAR DISCBUFFER: BLOCK; DISC, TRACK, SECTOR,
IOCODE: INTEGER; VAR ERRORCODE: INTEGER); EXTERNAL;
(********************************************************************)
PROCEDURE DATE;
VAR I : INTEGER;
BEGIN
DATO:='DD.MM.ÅÅÅÅ';
FOR I:=1 TO 10 DO DATO(I):=CLOCK^.DATO(I);
WRITELN;
WRITE('':10,'Rediger datoen .... : '); EDIT(DATO);
FOR I:=1 TO 10 DO CLOCK^.DATO(I):=DATO(I);
END; (*DATE*)
(********************************************************************)
PROCEDURE AFSLUT;
BEGIN
CLEARSCREEN;
WRITELN('MIKADOS VERSION 01.11.1984');
EXIT(PROGRAM);
END; (*AFSLUT*)
(********************************************************************)
PROCEDURE INITIALISER;
BEGIN
ERRORCODE:=1;
CLEARSCREEN;
WRITELN('KATALOGISERING AF DISKETTER':45);
WRITELN('***************************':45);
WRITELN;
WRITELN('Indsæt den diskette, du vil katalogisere, i diskdrevet.');
WRITELN;
DATE;
WRITELN;
WRITELN('Katalog oplysninger om disketten læses.');
WRITELN;
END; (*INITIALISER*)
(********************************************************************)
PROCEDURE LÆSFILCATALOG(NUMMER:STR3);
VAR DISKID: STRING(15);
BEGIN
DISKID:=CONCAT('DISK',NUMMER,':P3:5:F');
RESET(DISKFIL,DISKID);
WRITELN(LIST,'Filer på disk nr. ',NUMMER,' : ');
WRITELN(LIST);
WITH DISKFIL^ DO BEGIN
GET(DISKFIL);
WHILE FNAVN<>'########' DO BEGIN
WRITELN(LIST,FNAVN,' ',FTYPE);
GET(DISKFIL);
END;
END;
CLOSE(DISKFIL);
PAGE(LIST);
END;
(********************************************************************)
PROCEDURE LÆSDISKINF;
VAR I, DISC, TRACK, SECTOR, IOCODE : INTEGER;
BEGIN
DISC := 3;
TRACK := 0;
SECTOR:= 0;
ERRORCODE:=0;
IOCODE := 1;
PSCIU(DISCBUFFER,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);
IF ERRORCODE <> 0 THEN EXIT(LÆSDISKINF);
BUDATO:=' ';
FOR I:=1 TO 10 DO BEGIN
BUDATO(I):=DISCBUFFER(17+I);
IF (BUDATO(I)<CHR(32)) OR (BUDATO(I)>CHR(126)) THEN BUDATO(I):=' ';
END;
WRITE('Dato for sidste backup ... : ',BUDATO,'':5); EDIT(DATO);
IF EOF THEN AFSLUT;
FOR I:=1 TO 10 DO DISCBUFFER(17+I):=DATO(I);
DISKLABEL:=' ';
FOR I:=1 TO 10 DO BEGIN
DISKLABEL(I):=DISCBUFFER(27+I);
IF (DISKLABEL(I)<CHR(32)) OR (DISKLABEL(I)>CHR(126)) THEN
DISKLABEL(I):=' ';
END;
WRITE('Etikette ................. : ',DISKLABEL,'':5); EDIT(DISKLABEL);
IF EOF THEN AFSLUT;
FOR I:=1 TO 10 DO DISCBUFFER(27+I):=DISKLABEL(I);
DISKKODE:=' ';
FOR I:=1 TO 10 DO BEGIN
DISKKODE(I):=DISCBUFFER(63+I);
IF (DISKKODE(I)<CHR(32)) OR (DISKKODE(I)>CHR(126)) THEN
DISKKODE(I):=' ';
END;
WRITE('Disk kode ................ : ',DISKKODE,'':5); EDIT(DISKKODE);
IF EOF THEN AFSLUT;
FOR I:=1 TO 10 DO DISCBUFFER(63+I):=DISKKODE(I);
WRITELN;
WRITE('Fortryder du - tryk på <ESC> '); READLN;
IF EOF THEN AFSLUT;
IOCODE := 2;
PSCIU(DISCBUFFER,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);
IF ERRORCODE <> 0 THEN EXIT(LÆSDISKINF);
END; (*LÆSDISKINF*)
(**********************************************************************)
PROCEDURE MENU;
BEGIN
WRITELN('MENU');
END; (*MENU*)
(**********************************************************************)
BEGIN (*DISKCATA*)
REPEAT
INITIALISER;
LÆSDISKINF;
WRITELN;
MENU;
WRITELN;
WRITE('Afslut, tryk på <ESC>. Fortsæt katalogisering, tryk på <RETURN>'
);
READLN;
UNTIL EOF;
IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);
AFSLUT;
(*LÆSFILCATALOG(NUMMER);*)
END. (*DISKCATA*)
0x0000…0013 Line {l1=0x11, l2=»PROGRAM DISKCATA;«, l3=0x11}
0x0013…0016 Line {l1=0x01, l2=» «, l3=0x01}
0x0016…0050 Line {l1=0x38, l2=»(* BR-09.05.85 - UNDER REVISION - IKKE KØREKLAR *)«, l3=0x38}
0x0050…0053 Line {l1=0x01, l2=» «, l3=0x01}
0x0053…0084 Line {l1=0x2f, l2=»TYPE PARAMARRAY = PACKED ARRAY(1..39) OF CHAR;«, l3=0x2f}
0x0084…0087 Line {l1=0x01, l2=» «, l3=0x01}
0x0087…00a2 Line {l1=0x19, l2=» CLOCKRECORD = RECORD«, l3=0x19}
0x00a2…00dc Line {l1=0x38, l2=» DATO : PACKED ARRAY(1..10) OF CHAR;«, l3=0x38}
0x00dc…0116 Line {l1=0x38, l2=» TID : PACKED ARRAY(1..8) OF CHAR;«, l3=0x38}
0x0116…012f Line {l1=0x17, l2=» END;«, l3=0x17}
0x012f…0132 Line {l1=0x01, l2=» «, l3=0x01}
0x0132…0165 Line {l1=0x31, l2=» BLOCK = PACKED ARRAY (0..255) OF CHAR;«, l3=0x31}
0x0165…0168 Line {l1=0x01, l2=» «, l3=0x01}
0x0168…0184 Line {l1=0x1a, l2=» BINÆRTRÆ = ^KNUDE;«, l3=0x1a}
0x0184…01a3 Line {l1=0x1d, l2=» NAVNTYPE = STRING(8);«, l3=0x1d}
0x01a3…01a6 Line {l1=0x01, l2=» «, l3=0x01}
0x01a6…01c1 Line {l1=0x19, l2=» KNUDE = RECORD«, l3=0x19}
0x01c1…01e9 Line {l1=0x26, l2=» NAVN : NAVNTYPE; «, l3=0x26}
0x01e9…021a Line {l1=0x2f, l2=» VENSTRE, HØJRE : BINÆRTRÆ;«, l3=0x2f}
0x021a…0233 Line {l1=0x17, l2=» END;«, l3=0x17}
0x0233…0236 Line {l1=0x01, l2=» «, l3=0x01}
0x0236…0251 Line {l1=0x19, l2=» FILPOST = RECORD«, l3=0x19}
0x0251…0279 Line {l1=0x26, l2=» FNAVN : NAVNTYPE;«, l3=0x26}
0x0279…029d Line {l1=0x22, l2=» FTYPE : CHAR;«, l3=0x22}
0x029d…02b6 Line {l1=0x17, l2=» END;«, l3=0x17}
0x02b6…02b9 Line {l1=0x01, l2=» «, l3=0x01}
0x02b9…02d8 Line {l1=0x1d, l2=» STR3 = STRING(3);«, l3=0x1d}
0x02d8…02db Line {l1=0x01, l2=» «, l3=0x01}
0x02db…0303 Line {l1=0x26, l2=»VAR PARAM : ^PARAMARRAY;«, l3=0x26}
0x0303…032c Line {l1=0x27, l2=» CLOCK : ^CLOCKRECORD;«, l3=0x27}
0x032c…034e Line {l1=0x20, l2=» FUNC : ^CHAR;«, l3=0x20}
0x034e…0370 Line {l1=0x20, l2=» DISCBUFFER : BLOCK;«, l3=0x20}
0x0370…0394 Line {l1=0x22, l2=» DISC, ERRORCODE : INTEGER;«, l3=0x22}
0x0394…03b9 Line {l1=0x23, l2=» ROD, FIL : BINÆRTRÆ;«, l3=0x23}
0x03b9…03f1 Line {l1=0x36, l2=» TRÆ : ARRAY('0'..'Å') OF BINÆRTRÆ;«, l3=0x36}
0x03f1…0412 Line {l1=0x1f, l2=» FILTYPE : CHAR;«, l3=0x1f}
0x0412…0436 Line {l1=0x22, l2=» FUNDET : BOOLEAN;«, l3=0x22}
0x0436…0462 Line {l1=0x2a, l2=» DISKFIL : FILE OF FILPOST;«, l3=0x2a}
0x0462…0483 Line {l1=0x1f, l2=» NUMMER : STR3;«, l3=0x1f}
0x0483…04aa Line {l1=0x25, l2=» DISKID : STRING(15);«, l3=0x25}
0x04aa…04d1 Line {l1=0x25, l2=» DATO : STRING(10);«, l3=0x25}
0x04d1…04f6 Line {l1=0x23, l2=» FILNAVN : NAVNTYPE;«, l3=0x23}
0x04f6…051c Line {l1=0x24, l2=» FTYPE : STRING(1);«, l3=0x24}
0x051c…0547 Line {l1=0x29, l2=» DISKLABEL, BUDATO : STRING(10);«, l3=0x29}
0x0547…056e Line {l1=0x25, l2=» DISKKODE : STRING(10);«, l3=0x25}
0x056e…0574 Line {l1=0x04, l2=» «, l3=0x04}
0x0574…05b1 Line {l1=0x3b, l2=»PROCEDURE PSCIU(VAR DISCBUFFER: BLOCK; DISC, TRACK, SECTOR,«, l3=0x3b}
0x05b1…05f6 Line {l1=0x43, l2=» IOCODE: INTEGER; VAR ERRORCODE: INTEGER); EXTERNAL;«, l3=0x43}
0x05f6…05f9 Line {l1=0x01, l2=» «, l3=0x01}
0x05f9…0641 Line {l1=0x46, l2=»(********************************************************************)«, l3=0x46}
0x0641…0644 Line {l1=0x01, l2=» «, l3=0x01}
0x0644…0655 Line {l1=0x0f, l2=»PROCEDURE DATE;«, l3=0x0f}
0x0655…0658 Line {l1=0x01, l2=» «, l3=0x01}
0x0658…066a Line {l1=0x10, l2=»VAR I : INTEGER;«, l3=0x10}
0x066a…066d Line {l1=0x01, l2=» «, l3=0x01}
0x066d…0674 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0674…068b Line {l1=0x15, l2=» DATO:='DD.MM.ÅÅÅÅ';«, l3=0x15}
0x068b…06b9 Line {l1=0x2c, l2=» FOR I:=1 TO 10 DO DATO(I):=CLOCK^.DATO(I);«, l3=0x2c}
0x06b9…06c5 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x06c5…06fb Line {l1=0x34, l2=» WRITE('':10,'Rediger datoen .... : '); EDIT(DATO);«, l3=0x34}
0x06fb…0729 Line {l1=0x2c, l2=» FOR I:=1 TO 10 DO CLOCK^.DATO(I):=DATO(I);«, l3=0x2c}
0x0729…0738 Line {l1=0x0d, l2=»END; (*DATE*)«, l3=0x0d}
0x0738…073b Line {l1=0x01, l2=» «, l3=0x01}
0x073b…0783 Line {l1=0x46, l2=»(********************************************************************)«, l3=0x46}
0x0783…0786 Line {l1=0x01, l2=» «, l3=0x01}
0x0786…0799 Line {l1=0x11, l2=»PROCEDURE AFSLUT;«, l3=0x11}
0x0799…079c Line {l1=0x01, l2=» «, l3=0x01}
0x079c…07a3 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x07a3…07b3 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x07b3…07dd Line {l1=0x28, l2=» WRITELN('MIKADOS VERSION 01.11.1984');«, l3=0x28}
0x07dd…07ef Line {l1=0x10, l2=» EXIT(PROGRAM);«, l3=0x10}
0x07ef…0800 Line {l1=0x0f, l2=»END; (*AFSLUT*)«, l3=0x0f}
0x0800…0803 Line {l1=0x01, l2=» «, l3=0x01}
0x0803…084b Line {l1=0x46, l2=»(********************************************************************)«, l3=0x46}
0x084b…084e Line {l1=0x01, l2=» «, l3=0x01}
0x084e…0866 Line {l1=0x16, l2=»PROCEDURE INITIALISER;«, l3=0x16}
0x0866…0869 Line {l1=0x01, l2=» «, l3=0x01}
0x0869…0870 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0870…0881 Line {l1=0x0f, l2=» ERRORCODE:=1;«, l3=0x0f}
0x0881…0891 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0891…08bf Line {l1=0x2c, l2=» WRITELN('KATALOGISERING AF DISKETTER':45);«, l3=0x2c}
0x08bf…08ed Line {l1=0x2c, l2=» WRITELN('***************************':45);«, l3=0x2c}
0x08ed…08f9 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x08f9…0940 Line {l1=0x45, l2=» WRITELN('Indsæt den diskette, du vil katalogisere, i diskdrevet.');«, l3=0x45}
0x0940…094c Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x094c…0955 Line {l1=0x07, l2=» DATE;«, l3=0x07}
0x0955…0961 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x0961…0998 Line {l1=0x35, l2=» WRITELN('Katalog oplysninger om disketten læses.');«, l3=0x35}
0x0998…09a4 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x09a4…09ba Line {l1=0x14, l2=»END; (*INITIALISER*)«, l3=0x14}
0x09ba…09bd Line {l1=0x01, l2=» «, l3=0x01}
0x09bd…0a05 Line {l1=0x46, l2=»(********************************************************************)«, l3=0x46}
0x0a05…0a08 Line {l1=0x01, l2=» «, l3=0x01}
0x0a08…0a2f Line {l1=0x25, l2=»PROCEDURE LÆSFILCATALOG(NUMMER:STR3);«, l3=0x25}
0x0a2f…0a32 Line {l1=0x01, l2=» «, l3=0x01}
0x0a32…0a4b Line {l1=0x17, l2=»VAR DISKID: STRING(15);«, l3=0x17}
0x0a4b…0a4e Line {l1=0x01, l2=» «, l3=0x01}
0x0a4e…0a55 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0a55…0a81 Line {l1=0x2a, l2=» DISKID:=CONCAT('DISK',NUMMER,':P3:5:F');«, l3=0x2a}
0x0a81…0a9b Line {l1=0x18, l2=» RESET(DISKFIL,DISKID);«, l3=0x18}
0x0a9b…0acf Line {l1=0x32, l2=» WRITELN(LIST,'Filer på disk nr. ',NUMMER,' : ');«, l3=0x32}
0x0acf…0ae1 Line {l1=0x10, l2=» WRITELN(LIST);«, l3=0x10}
0x0ae1…0afb Line {l1=0x18, l2=» WITH DISKFIL^ DO BEGIN«, l3=0x18}
0x0afb…0b0e Line {l1=0x11, l2=» GET(DISKFIL);«, l3=0x11}
0x0b0e…0b34 Line {l1=0x24, l2=» WHILE FNAVN<>'########' DO BEGIN«, l3=0x24}
0x0b34…0b5a Line {l1=0x24, l2=» WRITELN(LIST,FNAVN,' ',FTYPE);«, l3=0x24}
0x0b5a…0b6f Line {l1=0x13, l2=» GET(DISKFIL);«, l3=0x13}
0x0b6f…0b79 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0b79…0b81 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0b81…0b94 Line {l1=0x11, l2=» CLOSE(DISKFIL);«, l3=0x11}
0x0b94…0ba3 Line {l1=0x0d, l2=» PAGE(LIST);«, l3=0x0d}
0x0ba3…0ba9 Line {l1=0x04, l2=»END;«, l3=0x04}
0x0ba9…0bac Line {l1=0x01, l2=» «, l3=0x01}
0x0bac…0bf4 Line {l1=0x46, l2=»(********************************************************************)«, l3=0x46}
0x0bf4…0bf7 Line {l1=0x01, l2=» «, l3=0x01}
0x0bf7…0c0e Line {l1=0x15, l2=»PROCEDURE LÆSDISKINF;«, l3=0x15}
0x0c0e…0c11 Line {l1=0x01, l2=» «, l3=0x01}
0x0c11…0c40 Line {l1=0x2d, l2=»VAR I, DISC, TRACK, SECTOR, IOCODE : INTEGER;«, l3=0x2d}
0x0c40…0c43 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0c46…0c4d Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0c4d…0c5c Line {l1=0x0d, l2=» DISC := 3;«, l3=0x0d}
0x0c5c…0c6b Line {l1=0x0d, l2=» TRACK := 0;«, l3=0x0d}
0x0c6b…0c7a Line {l1=0x0d, l2=» SECTOR:= 0;«, l3=0x0d}
0x0c7a…0c8b Line {l1=0x0f, l2=» ERRORCODE:=0;«, l3=0x0f}
0x0c8b…0c9b Line {l1=0x0e, l2=» IOCODE := 1;«, l3=0x0e}
0x0c9b…0cd4 Line {l1=0x37, l2=» PSCIU(DISCBUFFER,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);«, l3=0x37}
0x0cd4…0d00 Line {l1=0x2a, l2=» IF ERRORCODE <> 0 THEN EXIT(LÆSDISKINF);«, l3=0x2a}
0x0d00…0d03 Line {l1=0x01, l2=» «, l3=0x01}
0x0d03…0d1c Line {l1=0x17, l2=» BUDATO:=' ';«, l3=0x17}
0x0d1c…0d37 Line {l1=0x19, l2=» FOR I:=1 TO 10 DO BEGIN«, l3=0x19}
0x0d37…0d5b Line {l1=0x22, l2=» BUDATO(I):=DISCBUFFER(17+I); «, l3=0x22}
0x0d5b…0da4 Line {l1=0x47, l2=» IF (BUDATO(I)<CHR(32)) OR (BUDATO(I)>CHR(126)) THEN BUDATO(I):=' ';«, l3=0x47}
0x0da4…0dac Line {l1=0x06, l2=» END;«, l3=0x06}
0x0dac…0def Line {l1=0x41, l2=» WRITE('Dato for sidste backup ... : ',BUDATO,'':5); EDIT(DATO);«, l3=0x41}
0x0def…0e06 Line {l1=0x15, l2=» IF EOF THEN AFSLUT;«, l3=0x15}
0x0e06…0e36 Line {l1=0x2e, l2=» FOR I:=1 TO 10 DO DISCBUFFER(17+I):=DATO(I);«, l3=0x2e}
0x0e36…0e39 Line {l1=0x01, l2=» «, l3=0x01}
0x0e39…0e55 Line {l1=0x1a, l2=» DISKLABEL:=' ';«, l3=0x1a}
0x0e55…0e70 Line {l1=0x19, l2=» FOR I:=1 TO 10 DO BEGIN«, l3=0x19}
0x0e70…0e97 Line {l1=0x25, l2=» DISKLABEL(I):=DISCBUFFER(27+I); «, l3=0x25}
0x0e97…0ed6 Line {l1=0x3d, l2=» IF (DISKLABEL(I)<CHR(32)) OR (DISKLABEL(I)>CHR(126)) THEN«, l3=0x3d}
0x0ed6…0ef0 Line {l1=0x18, l2=» DISKLABEL(I):=' ';«, l3=0x18}
0x0ef0…0efb Line {l1=0x09, l2=» END; «, l3=0x09}
0x0efb…0f46 Line {l1=0x49, l2=» WRITE('Etikette ................. : ',DISKLABEL,'':5); EDIT(DISKLABEL);«, l3=0x49}
0x0f46…0f5d Line {l1=0x15, l2=» IF EOF THEN AFSLUT;«, l3=0x15}
0x0f5d…0f92 Line {l1=0x33, l2=» FOR I:=1 TO 10 DO DISCBUFFER(27+I):=DISKLABEL(I);«, l3=0x33}
0x0f92…0f95 Line {l1=0x01, l2=» «, l3=0x01}
0x0f95…0fb0 Line {l1=0x19, l2=» DISKKODE:=' ';«, l3=0x19}
0x0fb0…0fcb Line {l1=0x19, l2=» FOR I:=1 TO 10 DO BEGIN«, l3=0x19}
0x0fcb…0ff1 Line {l1=0x24, l2=» DISKKODE(I):=DISCBUFFER(63+I); «, l3=0x24}
0x0ff1…102e Line {l1=0x3b, l2=» IF (DISKKODE(I)<CHR(32)) OR (DISKKODE(I)>CHR(126)) THEN«, l3=0x3b}
0x102e…1047 Line {l1=0x17, l2=» DISKKODE(I):=' ';«, l3=0x17}
0x1047…104f Line {l1=0x06, l2=» END;«, l3=0x06}
0x104f…1098 Line {l1=0x47, l2=» WRITE('Disk kode ................ : ',DISKKODE,'':5); EDIT(DISKKODE);«, l3=0x47}
0x1098…10af Line {l1=0x15, l2=» IF EOF THEN AFSLUT;«, l3=0x15}
0x10af…10e3 Line {l1=0x32, l2=» FOR I:=1 TO 10 DO DISCBUFFER(63+I):=DISKKODE(I);«, l3=0x32}
0x10e3…10e6 Line {l1=0x01, l2=» «, l3=0x01}
0x10e6…10f2 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x10f2…1125 Line {l1=0x31, l2=» WRITE('Fortryder du - tryk på <ESC> '); READLN;«, l3=0x31}
0x1125…113c Line {l1=0x15, l2=» IF EOF THEN AFSLUT;«, l3=0x15}
0x113c…114c Line {l1=0x0e, l2=» IOCODE := 2;«, l3=0x0e}
0x114c…1185 Line {l1=0x37, l2=» PSCIU(DISCBUFFER,DISC,TRACK,SECTOR,IOCODE,ERRORCODE);«, l3=0x37}
0x1185…11b1 Line {l1=0x2a, l2=» IF ERRORCODE <> 0 THEN EXIT(LÆSDISKINF);«, l3=0x2a}
0x11b1…11c6 Line {l1=0x13, l2=»END; (*LÆSDISKINF*)«, l3=0x13}
0x11c6…11c9 Line {l1=0x01, l2=» «, l3=0x01}
0x11c9…1213 Line {l1=0x48, l2=»(**********************************************************************)«, l3=0x48}
0x1213…1216 Line {l1=0x01, l2=» «, l3=0x01}
0x1216…1227 Line {l1=0x0f, l2=»PROCEDURE MENU;«, l3=0x0f}
0x1227…122a Line {l1=0x01, l2=» «, l3=0x01}
0x122a…1231 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1231…1245 Line {l1=0x12, l2=» WRITELN('MENU');«, l3=0x12}
0x1245…1254 Line {l1=0x0d, l2=»END; (*MENU*)«, l3=0x0d}
0x1254…1257 Line {l1=0x01, l2=» «, l3=0x01}
0x1257…12a1 Line {l1=0x48, l2=»(**********************************************************************)«, l3=0x48}
0x12a1…12a4 Line {l1=0x01, l2=» «, l3=0x01}
0x12a4…12b8 Line {l1=0x12, l2=»BEGIN (*DISKCATA*)«, l3=0x12}
0x12b8…12c2 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x12c2…12d4 Line {l1=0x10, l2=» INITIALISER;«, l3=0x10}
0x12d4…12e5 Line {l1=0x0f, l2=» LÆSDISKINF;«, l3=0x0f}
0x12e5…12f3 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x12f3…12f6 Line {l1=0x01, l2=» «, l3=0x01}
0x12f6…1301 Line {l1=0x09, l2=» MENU;«, l3=0x09}
0x1301…1304 Line {l1=0x01, l2=» «, l3=0x01}
0x1304…1312 Line {l1=0x0c, l2=» WRITELN;«, l3=0x0c}
0x1312…135f Line {l1=0x4b, l2=» WRITE('Afslut, tryk på <ESC>. Fortsæt katalogisering, tryk på <RETURN>'«, l3=0x4b}
0x135f…1367 Line {l1=0x06, l2=» );«, l3=0x06}
0x1367…1374 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x1374…1382 Line {l1=0x0c, l2=» UNTIL EOF;«, l3=0x0c}
0x1382…13c1 Line {l1=0x3d, l2=» IF ERRORCODE <> 0 THEN WRITELN ('ERRORCODE:', ERRORCODE:4);«, l3=0x3d}
0x13c1…13cc Line {l1=0x09, l2=» AFSLUT;«, l3=0x09}
0x13cc…13e8 Line {l1=0x1a, l2=»(*LÆSFILCATALOG(NUMMER);*)«, l3=0x1a}
0x13e8…13eb Line {l1=0x01, l2=» «, l3=0x01}
0x13eb…13fe Line {l1=0x11, l2=»END. (*DISKCATA*)«, l3=0x11}
0x13fe…1400 00 00 ┆ ┆
0x1400…1420 3c 52 45 54 55 52 4e 3e 27 4b 06 20 20 20 20 29 3b 06 0b 20 20 20 20 52 45 41 44 4c 4e 3b 0b 0c ┆<RETURN>'K ); READLN; ┆
0x1420…1440 20 20 55 4e 54 49 4c 20 45 4f 46 3b 0c 0d 45 4e 44 3b 20 28 2a 4d 41 49 4e 2a 29 0d 01 20 01 48 ┆ UNTIL EOF; END; (*MAIN*) H┆
0x1440…1460 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆(*******************************┆
0x1460…1480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x1480…14a0 2a 2a 2a 2a 2a 2a 2a 29 48 01 20 01 05 42 45 47 49 4e 05 07 20 20 4d 41 49 4e 3b 07 3d 20 20 49 ┆*******)H BEGIN MAIN; = I┆
0x14a0…14c0 46 20 45 52 52 4f 52 43 4f 44 45 20 3c 3e 20 30 20 54 48 45 4e 20 57 52 49 54 45 4c 4e 20 28 27 ┆F ERRORCODE <> 0 THEN WRITELN ('┆
0x14c0…14e0 45 52 52 4f 52 43 4f 44 45 3a 27 2c 20 45 52 52 4f 52 43 4f 44 45 3a 34 29 3b 3d 09 20 20 41 46 ┆ERRORCODE:', ERRORCODE:4);= AF┆
0x14e0…1500 53 4c 55 54 3b 09 1a 28 2a 4c 5b 53 46 49 4c 43 41 54 41 4c 4f 47 28 4e 55 4d 4d 45 52 29 3b 2a ┆SLUT; (*LÆSFILCATALOG(NUMMER);*┆
0x1500…1520 29 1a 04 45 4e 44 2e 04 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆) END. cccccccccccccccccccccc┆
0x1520…1540 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┆
[…0x43…]