|
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: »INFOSØG.K«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─⟦this⟧ »INFOSØG.K«
PROGRAM INFOSØG;
(*BR-13.05.85*)
CONST MAXANTAL = 10;
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;
LOGRECORD = RECORD
NR : INTEGER;
LÆRER : STRING(10);
PROJEKT : STRING(10);
DATO : STRING(10);
TID : STRING(5);
VÆRT : STRING(3);
END;
VAR PARAM : ^PARAMARRAY;
CLOCK : ^CLOCKRECORD;
FUNC : ^CHAR;
LOGFIL : FILE OF LOGRECORD;
LÆRER : STRING(10);
PROJEKT : STRING(10);
DATO : STRING(10);
TID : STRING(5);
VÆRT : STRING(3);
TTYFIL : TEXT;
HOSTFIL : TEXT;
HOSTLON : TEXT;
LINIE : STRING;
FILNAVN : STRING(15);
PCB : ^INTEGER;
IOVAL : INTEGER;
TEXT : STRING;
SVAR : STRING(1);
VÆRTSNAVN: ARRAY(1..MAXANTAL) OF STRING;
NR, ANTAL: 1..MAXANTAL;
(*********************************************************************)
PROCEDURE DATOTID;
VAR I : INTEGER;
BEGIN
DATO:='DD.MM.ÅÅÅÅ';
TID :='TT.MM';
FOR I:=1 TO 10 DO DATO(I):=CLOCK^.DATO(I);
FOR I:=1 TO 5 DO TID(I) :=CLOCK^.TID(I);
WRITELN;
WRITE('':10,'Rediger datoen .... : '); EDIT(DATO);
WRITE('':10,'Rediger tiden ..... : '); EDIT(TID);
FOR I:=1 TO 10 DO CLOCK^.DATO(I):=DATO(I);
FOR I:=1 TO 5 DO CLOCK^.TID(I) :=TID(I);
END; (*DATOTID*)
(*********************************************************************)
PROCEDURE LOGBOG;
VAR NR : INTEGER;
BEGIN
REWRITE(LOGFIL,'LOGFIL:P3::L');
IOVAL:=IORESULT;
IF IOVAL=1 THEN BEGIN
REWRITE(LOGFIL,'LOGFIL:P3:10:L');
WITH LOGFIL^ DO BEGIN
NR:=0;
LÆRER:='';
PROJEKT:='';
DATO:='';
TID:='';
VÆRT:='';
END;
PUT(LOGFIL);
SEEK(LOGFIL,1);
END;
GET(LOGFIL);
IF LOGFIL^.NR=0 THEN LOGFIL^.NR:=2 ELSE LOGFIL^.NR:=LOGFIL^.NR+1;
SEEK(LOGFIL,1);
PUT(LOGFIL);
SEEK(LOGFIL,LOGFIL^.NR);
LOGFIL^.LÆRER := LÆRER;
LOGFIL^.PROJEKT:= PROJEKT;
LOGFIL^.DATO := DATO;
LOGFIL^.TID := TID;
LOGFIL^.VÆRT := VÆRT;
PUT(LOGFIL);
CLOSE(LOGFIL);
END; (*LOGBOG*)
(*********************************************************************)
PROCEDURE SLUT;
BEGIN
CLEARSCREEN;
WRITELN('MIKADOS SYSTEM Version 01.11.84');
EXIT(PROGRAM);
END; (*SLUT*)
(*********************************************************************)
PROCEDURE CHANGE;
BEGIN
WRITELN;
WRITELN('Start TTY-emulatoren på en anden arbejdsplads');
WRITELN('rediger kommunikations parametrene');
WRITELN('og afslut TTY-emulatoren');
WRITELN;
WRITE('Når du er færdig - tryk på <RETURN> ');
READLN;
WRITELN;
WRITELN('De nye parametre vil nu blive kopieret over i værts-filen');
WRITELN;
FILNAVN:=CONCAT(VÆRT,'-TTY:P3:1:C');
REWRITE(HOSTFIL,FILNAVN);
IOVAL:=IORESULT;
IF IOVAL<>0 THEN
BEGIN
WRITELN('Fejl ',IOVAL,' ved åbning af ',FILNAVN);
EXIT(CHANGE);
END;
RESET(TTYFIL,'CONFILEC:P1:1:C');
READLN(TTYFIL);
WHILE NOT EOF(TTYFIL) DO BEGIN
READ(TTYFIL,LINIE);
WRITELN(HOSTFIL,LINIE);
WRITELN(LINIE);
READLN(TTYFIL);
END;
CLOSE(TTYFIL);
CLOSE(HOSTFIL);
END; (*CHANGE*)
(*********************************************************************)
PROCEDURE LOGON;
BEGIN
FILNAVN:=CONCAT(VÆRT,'-LON:P3:1:K');
RESET(HOSTLON,FILNAVN);
IOVAL:=IORESULT;
CASE IOVAL OF
0 : BEGIN
CLEARSCREEN;
READLN(HOSTLON);
WHILE NOT EOF(HOSTLON) DO BEGIN
READ(HOSTLON,LINIE);
WRITELN(LINIE);
READLN(HOSTLON);
END;
CLOSE(HOSTLON);
END;
1 : BEGIN
WRITELN;
WRITELN('Der findes ingen fil med oplysning om LOG-ON proceduren');
END;
OTHERWISE
BEGIN
WRITELN;
WRITELN('Fejl nr. ',IOVAL,' ved åbning af ',FILNAVN);
END;
WRITELN;
WRITE('Fortsæt, tryk på <RETURN> ');
READLN;
END; (*LOGON*)
(*********************************************************************)
BEGIN (*INFOSØG*)
CLEARSCREEN;
GOTOXY(1,4);
WRITELN('':15,'ON-LINE INFORMATIONSSØGNING');
WRITELN('':15,'***************************');
GOTOXY(1,8);
WRITELN('':10,'Vælg databasevært :');
GOTOXY(1,10);
VÆRTSNAVN(1):='Danmarks tekniske bibliotek (ALIS m.v.)';
VÆRTSNAVN(2):='RECKU (ALBA m.v.)';
VÆRTSNAVN(3):='Politiken (POLTEXT)';
VÆRTSNAVN(4):='Kommunedata (BASIS)';
VÆRTSNAVN(5):='Datacentralen(ECDIN)';
ANTAL:=5;
FOR NR:=1 TO ANTAL DO WRITELN('':10,NR,'. ',VÆRTSNAVN(NR));
WRITELN;
REPEAT
WRITE('Vært nr : ');
READLN;
READ(NR);
UNTIL NR IN (.1..ANTAL.);
WRITELN;
LÆRER:=' ';
WRITE('Indlæs lærerkode (max. 10 tegn) .............. : '); EDIT(LÆRER);
PROJEKT:=' ';
WRITE('Indlæs projektkode eller klasse (max. 10 tegn) : '); EDIT(PROJEKT);
CASE NR OF
1 : VÆRT:='DTB';
2 : VÆRT:='REC';
3 : VÆRT:='POL';
4 : VÆRT:='KOM';
5 : VÆRT:='DAT';
END;
FILNAVN:=CONCAT(VÆRT,'-TTY:P3:1:C');
(* HVIS DER FINDES EN VÆRTSFIL VIL DEN BLIVE KOPIERET OVER I TTY-FILEN *)
RESET(HOSTFIL,FILNAVN);
IOVAL:=IORESULT;
CASE IOVAL OF
0 : BEGIN
CLOSE(HOSTFIL);
REPEAT
RESET(HOSTFIL,FILNAVN);
REWRITE(TTYFIL,'CONFILEC:P1:1:C');
READLN(HOSTFIL);
WHILE NOT EOF(HOSTFIL) DO BEGIN
READ(HOSTFIL,LINIE);
WRITELN(TTYFIL,LINIE);
(* WRITELN(LINIE);*)
READLN(HOSTFIL);
END;
CLOSE(TTYFIL);
CLOSE(HOSTFIL);
WRITELN;
WRITELN('TTY-emulatoren er nu forberedt til at kommunikere med :');
WRITELN;
WRITELN('':13,VÆRTSNAVN(NR));
WRITELN;
WRITE('Skal kommunikations parametrene ændres ? (J/N) ');
SVAR:='N';
EDIT(SVAR);
IF SVAR(1) IN (.'J','j'.) THEN CHANGE;
UNTIL NOT (SVAR(1) IN (.'J','j'.));
END;
1 : BEGIN
WRITE('Værts-filen findes ikke - skal den oprettes ? (J/N) ');
SVAR:='J';
EDIT(SVAR);
IF SVAR(1) IN (.'J','j'.) THEN CHANGE;
END;
OTHERWISE
BEGIN
SLUT;
END;
WRITELN;
WRITE('Ønsker du vejledning i LOG-ON proceduren ? (J/N) ');
SVAR:='J';
EDIT(SVAR);
IF SVAR(1) IN (.'J','j'.) THEN LOGON;
CLEARSCREEN;
DATOTID;
LOGBOG;
CHAIN('TTY1 *1','C',PCB);
END. (*INFOSØG*)
0x0000…0012 Line {l1=0x10, l2=»PROGRAM INFOSØG;«, l3=0x10}
0x0012…0015 Line {l1=0x01, l2=» «, l3=0x01}
0x0015…0026 Line {l1=0x0f, l2=»(*BR-13.05.85*)«, l3=0x0f}
0x0026…0029 Line {l1=0x01, l2=» «, l3=0x01}
0x0029…0042 Line {l1=0x17, l2=»CONST MAXANTAL = 10;«, l3=0x17}
0x0042…0045 Line {l1=0x01, l2=» «, l3=0x01}
0x0045…0077 Line {l1=0x30, l2=»TYPE PARAMARRAY = PACKED ARRAY(1..39) OF CHAR;«, l3=0x30}
0x0077…007a Line {l1=0x01, l2=» «, l3=0x01}
0x007a…0096 Line {l1=0x1a, l2=» CLOCKRECORD = RECORD«, l3=0x1a}
0x0096…00d1 Line {l1=0x39, l2=» DATO : PACKED ARRAY(1..10) OF CHAR;«, l3=0x39}
0x00d1…010c Line {l1=0x39, l2=» TID : PACKED ARRAY(1..8) OF CHAR;«, l3=0x39}
0x010c…0126 Line {l1=0x18, l2=» END;«, l3=0x18}
0x0126…0129 Line {l1=0x01, l2=» «, l3=0x01}
0x0129…0145 Line {l1=0x1a, l2=» LOGRECORD = RECORD«, l3=0x1a}
0x0145…016f Line {l1=0x28, l2=» NR : INTEGER;«, l3=0x28}
0x016f…019c Line {l1=0x2b, l2=» LÆRER : STRING(10);«, l3=0x2b}
0x019c…01c9 Line {l1=0x2b, l2=» PROJEKT : STRING(10);«, l3=0x2b}
0x01c9…01f6 Line {l1=0x2b, l2=» DATO : STRING(10);«, l3=0x2b}
0x01f6…0222 Line {l1=0x2a, l2=» TID : STRING(5);«, l3=0x2a}
0x0222…024e Line {l1=0x2a, l2=» VÆRT : STRING(3);«, l3=0x2a}
0x024e…0268 Line {l1=0x18, l2=» END;«, l3=0x18}
0x0268…026b Line {l1=0x01, l2=» «, l3=0x01}
0x026b…0289 Line {l1=0x1c, l2=»VAR PARAM : ^PARAMARRAY;«, l3=0x1c}
0x0289…02a8 Line {l1=0x1d, l2=» CLOCK : ^CLOCKRECORD;«, l3=0x1d}
0x02a8…02c0 Line {l1=0x16, l2=» FUNC : ^CHAR;«, l3=0x16}
0x02c0…02e4 Line {l1=0x22, l2=» LOGFIL : FILE OF LOGRECORD;«, l3=0x22}
0x02e4…0301 Line {l1=0x1b, l2=» LÆRER : STRING(10);«, l3=0x1b}
0x0301…031e Line {l1=0x1b, l2=» PROJEKT : STRING(10);«, l3=0x1b}
0x031e…033b Line {l1=0x1b, l2=» DATO : STRING(10);«, l3=0x1b}
0x033b…0357 Line {l1=0x1a, l2=» TID : STRING(5);«, l3=0x1a}
0x0357…0373 Line {l1=0x1a, l2=» VÆRT : STRING(3);«, l3=0x1a}
0x0373…038a Line {l1=0x15, l2=» TTYFIL : TEXT;«, l3=0x15}
0x038a…03a1 Line {l1=0x15, l2=» HOSTFIL : TEXT;«, l3=0x15}
0x03a1…03b8 Line {l1=0x15, l2=» HOSTLON : TEXT;«, l3=0x15}
0x03b8…03d1 Line {l1=0x17, l2=» LINIE : STRING;«, l3=0x17}
0x03d1…03ee Line {l1=0x1b, l2=» FILNAVN : STRING(15);«, l3=0x1b}
0x03ee…0409 Line {l1=0x19, l2=» PCB : ^INTEGER;«, l3=0x19}
0x0409…0423 Line {l1=0x18, l2=» IOVAL : INTEGER;«, l3=0x18}
0x0423…043c Line {l1=0x17, l2=» TEXT : STRING;«, l3=0x17}
0x043c…0458 Line {l1=0x1a, l2=» SVAR : STRING(1);«, l3=0x1a}
0x0458…0487 Line {l1=0x2d, l2=» VÆRTSNAVN: ARRAY(1..MAXANTAL) OF STRING;«, l3=0x2d}
0x0487…04a5 Line {l1=0x1c, l2=» NR, ANTAL: 1..MAXANTAL;«, l3=0x1c}
0x04a5…04a8 Line {l1=0x01, l2=» «, l3=0x01}
0x04a8…04f1 Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x04f1…04f4 Line {l1=0x01, l2=» «, l3=0x01}
0x04f4…0508 Line {l1=0x12, l2=»PROCEDURE DATOTID;«, l3=0x12}
0x0508…050b Line {l1=0x01, l2=» «, l3=0x01}
0x050b…051d Line {l1=0x10, l2=»VAR I : INTEGER;«, l3=0x10}
0x051d…0520 Line {l1=0x01, l2=» «, l3=0x01}
0x0520…0527 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0527…053e Line {l1=0x15, l2=» DATO:='DD.MM.ÅÅÅÅ';«, l3=0x15}
0x053e…0550 Line {l1=0x10, l2=» TID :='TT.MM';«, l3=0x10}
0x0550…057e Line {l1=0x2c, l2=» FOR I:=1 TO 10 DO DATO(I):=CLOCK^.DATO(I);«, l3=0x2c}
0x057e…05ab Line {l1=0x2b, l2=» FOR I:=1 TO 5 DO TID(I) :=CLOCK^.TID(I);«, l3=0x2b}
0x05ab…05b7 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x05b7…05ed Line {l1=0x34, l2=» WRITE('':10,'Rediger datoen .... : '); EDIT(DATO);«, l3=0x34}
0x05ed…0622 Line {l1=0x33, l2=» WRITE('':10,'Rediger tiden ..... : '); EDIT(TID);«, l3=0x33}
0x0622…0650 Line {l1=0x2c, l2=» FOR I:=1 TO 10 DO CLOCK^.DATO(I):=DATO(I);«, l3=0x2c}
0x0650…067d Line {l1=0x2b, l2=» FOR I:=1 TO 5 DO CLOCK^.TID(I) :=TID(I);«, l3=0x2b}
0x067d…068f Line {l1=0x10, l2=»END; (*DATOTID*)«, l3=0x10}
0x068f…0692 Line {l1=0x01, l2=» «, l3=0x01}
0x0692…06db Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x06db…06de Line {l1=0x01, l2=» «, l3=0x01}
0x06de…06f1 Line {l1=0x11, l2=»PROCEDURE LOGBOG;«, l3=0x11}
0x06f1…06f4 Line {l1=0x01, l2=» «, l3=0x01}
0x06f4…0707 Line {l1=0x11, l2=»VAR NR : INTEGER;«, l3=0x11}
0x0707…070a Line {l1=0x01, l2=» «, l3=0x01}
0x070a…0711 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0711…0734 Line {l1=0x21, l2=» REWRITE(LOGFIL,'LOGFIL:P3::L');«, l3=0x21}
0x0734…0748 Line {l1=0x12, l2=» IOVAL:=IORESULT;«, l3=0x12}
0x0748…0761 Line {l1=0x17, l2=» IF IOVAL=1 THEN BEGIN«, l3=0x17}
0x0761…0788 Line {l1=0x25, l2=» REWRITE(LOGFIL,'LOGFIL:P3:10:L');«, l3=0x25}
0x0788…07a3 Line {l1=0x19, l2=» WITH LOGFIL^ DO BEGIN«, l3=0x19}
0x07a3…07b1 Line {l1=0x0c, l2=» NR:=0;«, l3=0x0c}
0x07b1…07c3 Line {l1=0x10, l2=» LÆRER:='';«, l3=0x10}
0x07c3…07d7 Line {l1=0x12, l2=» PROJEKT:='';«, l3=0x12}
0x07d7…07e8 Line {l1=0x0f, l2=» DATO:='';«, l3=0x0f}
0x07e8…07f8 Line {l1=0x0e, l2=» TID:='';«, l3=0x0e}
0x07f8…0809 Line {l1=0x0f, l2=» VÆRT:='';«, l3=0x0f}
0x0809…0813 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0813…0825 Line {l1=0x10, l2=» PUT(LOGFIL);«, l3=0x10}
0x0825…083a Line {l1=0x13, l2=» SEEK(LOGFIL,1);«, l3=0x13}
0x083a…0842 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0842…0852 Line {l1=0x0e, l2=» GET(LOGFIL);«, l3=0x0e}
0x0852…0897 Line {l1=0x43, l2=» IF LOGFIL^.NR=0 THEN LOGFIL^.NR:=2 ELSE LOGFIL^.NR:=LOGFIL^.NR+1;«, l3=0x43}
0x0897…08aa Line {l1=0x11, l2=» SEEK(LOGFIL,1);«, l3=0x11}
0x08aa…08ba Line {l1=0x0e, l2=» PUT(LOGFIL);«, l3=0x0e}
0x08ba…08d6 Line {l1=0x1a, l2=» SEEK(LOGFIL,LOGFIL^.NR);«, l3=0x1a}
0x08d6…08f2 Line {l1=0x1a, l2=» LOGFIL^.LÆRER := LÆRER;«, l3=0x1a}
0x08f2…0910 Line {l1=0x1c, l2=» LOGFIL^.PROJEKT:= PROJEKT;«, l3=0x1c}
0x0910…092b Line {l1=0x19, l2=» LOGFIL^.DATO := DATO;«, l3=0x19}
0x092b…0945 Line {l1=0x18, l2=» LOGFIL^.TID := TID;«, l3=0x18}
0x0945…0960 Line {l1=0x19, l2=» LOGFIL^.VÆRT := VÆRT;«, l3=0x19}
0x0960…0970 Line {l1=0x0e, l2=» PUT(LOGFIL);«, l3=0x0e}
0x0970…0982 Line {l1=0x10, l2=» CLOSE(LOGFIL);«, l3=0x10}
0x0982…0993 Line {l1=0x0f, l2=»END; (*LOGBOG*)«, l3=0x0f}
0x0993…0996 Line {l1=0x01, l2=» «, l3=0x01}
0x0996…09df Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x09df…09e2 Line {l1=0x01, l2=» «, l3=0x01}
0x09e2…09f3 Line {l1=0x0f, l2=»PROCEDURE SLUT;«, l3=0x0f}
0x09f3…09fa Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x09fa…0a0a Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x0a0a…0a39 Line {l1=0x2d, l2=» WRITELN('MIKADOS SYSTEM Version 01.11.84');«, l3=0x2d}
0x0a39…0a4b Line {l1=0x10, l2=» EXIT(PROGRAM);«, l3=0x10}
0x0a4b…0a5a Line {l1=0x0d, l2=»END; (*SLUT*)«, l3=0x0d}
0x0a5a…0a5d Line {l1=0x01, l2=» «, l3=0x01}
0x0a5d…0aa6 Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x0aa6…0aa9 Line {l1=0x01, l2=» «, l3=0x01}
0x0aa9…0abc Line {l1=0x11, l2=»PROCEDURE CHANGE;«, l3=0x11}
0x0abc…0abf Line {l1=0x01, l2=» «, l3=0x01}
0x0abf…0ac6 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0ac6…0ad2 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x0ad2…0b0f Line {l1=0x3b, l2=» WRITELN('Start TTY-emulatoren på en anden arbejdsplads');«, l3=0x3b}
0x0b0f…0b41 Line {l1=0x30, l2=» WRITELN('rediger kommunikations parametrene');«, l3=0x30}
0x0b41…0b69 Line {l1=0x26, l2=» WRITELN('og afslut TTY-emulatoren');«, l3=0x26}
0x0b69…0b75 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x0b75…0ba7 Line {l1=0x30, l2=» WRITE('Når du er færdig - tryk på <RETURN> ');«, l3=0x30}
0x0ba7…0bb2 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x0bb2…0bbe Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x0bbe…0c07 Line {l1=0x47, l2=» WRITELN('De nye parametre vil nu blive kopieret over i værts-filen');«, l3=0x47}
0x0c07…0c13 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x0c13…0c16 Line {l1=0x01, l2=» «, l3=0x01}
0x0c16…0c3e Line {l1=0x26, l2=» FILNAVN:=CONCAT(VÆRT,'-TTY:P3:1:C');«, l3=0x26}
0x0c3e…0c5b Line {l1=0x1b, l2=» REWRITE(HOSTFIL,FILNAVN);«, l3=0x1b}
0x0c5b…0c6f Line {l1=0x12, l2=» IOVAL:=IORESULT;«, l3=0x12}
0x0c6f…0c84 Line {l1=0x13, l2=» IF IOVAL<>0 THEN «, l3=0x13}
0x0c84…0c8f Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0c8f…0cc8 Line {l1=0x37, l2=» WRITELN('Fejl ',IOVAL,' ved åbning af ',FILNAVN);«, l3=0x37}
0x0cc8…0cdd Line {l1=0x13, l2=» EXIT(CHANGE);«, l3=0x13}
0x0cdd…0ce7 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0ce7…0d0b Line {l1=0x22, l2=» RESET(TTYFIL,'CONFILEC:P1:1:C');«, l3=0x22}
0x0d0b…0d1e Line {l1=0x11, l2=» READLN(TTYFIL);«, l3=0x11}
0x0d1e…0d40 Line {l1=0x20, l2=» WHILE NOT EOF(TTYFIL) DO BEGIN«, l3=0x20}
0x0d40…0d59 Line {l1=0x17, l2=» READ(TTYFIL,LINIE);«, l3=0x17}
0x0d59…0d76 Line {l1=0x1b, l2=» WRITELN(HOSTFIL,LINIE);«, l3=0x1b}
0x0d76…0d8b Line {l1=0x13, l2=» WRITELN(LINIE);«, l3=0x13}
0x0d8b…0da0 Line {l1=0x13, l2=» READLN(TTYFIL);«, l3=0x13}
0x0da0…0da8 Line {l1=0x06, l2=» END;«, l3=0x06}
0x0da8…0dba Line {l1=0x10, l2=» CLOSE(TTYFIL);«, l3=0x10}
0x0dba…0dcd Line {l1=0x11, l2=» CLOSE(HOSTFIL);«, l3=0x11}
0x0dcd…0dde Line {l1=0x0f, l2=»END; (*CHANGE*)«, l3=0x0f}
0x0dde…0de1 Line {l1=0x01, l2=» «, l3=0x01}
0x0de1…0e2a Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x0e2a…0e2d Line {l1=0x01, l2=» «, l3=0x01}
0x0e2d…0e3f Line {l1=0x10, l2=»PROCEDURE LOGON;«, l3=0x10}
0x0e3f…0e42 Line {l1=0x01, l2=» «, l3=0x01}
0x0e42…0e49 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x0e49…0e71 Line {l1=0x26, l2=» FILNAVN:=CONCAT(VÆRT,'-LON:P3:1:K');«, l3=0x26}
0x0e71…0e8c Line {l1=0x19, l2=» RESET(HOSTLON,FILNAVN);«, l3=0x19}
0x0e8c…0ea0 Line {l1=0x12, l2=» IOVAL:=IORESULT;«, l3=0x12}
0x0ea0…0eb2 Line {l1=0x10, l2=» CASE IOVAL OF «, l3=0x10}
0x0eb2…0ebf Line {l1=0x0b, l2=» 0 : BEGIN«, l3=0x0b}
0x0ebf…0ed5 Line {l1=0x14, l2=» CLEARSCREEN;«, l3=0x14}
0x0ed5…0eef Line {l1=0x18, l2=» READLN(HOSTLON);«, l3=0x18}
0x0eef…0f18 Line {l1=0x27, l2=» WHILE NOT EOF(HOSTLON) DO BEGIN«, l3=0x27}
0x0f18…0f38 Line {l1=0x1e, l2=» READ(HOSTLON,LINIE);«, l3=0x1e}
0x0f38…0f53 Line {l1=0x19, l2=» WRITELN(LINIE);«, l3=0x19}
0x0f53…0f6f Line {l1=0x1a, l2=» READLN(HOSTLON);«, l3=0x1a}
0x0f6f…0f7d Line {l1=0x0c, l2=» END;«, l3=0x0c}
0x0f7d…0f96 Line {l1=0x17, l2=» CLOSE(HOSTLON);«, l3=0x17}
0x0f96…0fa2 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0fa2…0faf Line {l1=0x0b, l2=» 1 : BEGIN«, l3=0x0b}
0x0faf…0fc1 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x0fc1…100e Line {l1=0x4b, l2=» WRITELN('Der findes ingen fil med oplysning om LOG-ON proceduren');«, l3=0x4b}
0x100e…101a Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x101a…1027 Line {l1=0x0b, l2=» OTHERWISE«, l3=0x0b}
0x1027…1034 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x1034…1046 Line {l1=0x10, l2=» WRITELN;«, l3=0x10}
0x1046…1085 Line {l1=0x3d, l2=» WRITELN('Fejl nr. ',IOVAL,' ved åbning af ',FILNAVN);«, l3=0x3d}
0x1085…1091 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1091…109d Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x109d…10c5 Line {l1=0x26, l2=» WRITE('Fortsæt, tryk på <RETURN> ');«, l3=0x26}
0x10c5…10d0 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x10d0…10e0 Line {l1=0x0e, l2=»END; (*LOGON*)«, l3=0x0e}
0x10e0…10e3 Line {l1=0x01, l2=» «, l3=0x01}
0x10e3…112c Line {l1=0x47, l2=»(*********************************************************************)«, l3=0x47}
0x112c…112f Line {l1=0x01, l2=» «, l3=0x01}
0x112f…1142 Line {l1=0x11, l2=»BEGIN (*INFOSØG*)«, l3=0x11}
0x1142…1152 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1152…1162 Line {l1=0x0e, l2=» GOTOXY(1,4);«, l3=0x0e}
0x1162…1193 Line {l1=0x2f, l2=» WRITELN('':15,'ON-LINE INFORMATIONSSØGNING');«, l3=0x2f}
0x1193…11c4 Line {l1=0x2f, l2=» WRITELN('':15,'***************************');«, l3=0x2f}
0x11c4…11d4 Line {l1=0x0e, l2=» GOTOXY(1,8);«, l3=0x0e}
0x11d4…11fd Line {l1=0x27, l2=» WRITELN('':10,'Vælg databasevært :');«, l3=0x27}
0x11fd…120e Line {l1=0x0f, l2=» GOTOXY(1,10);«, l3=0x0f}
0x120e…124a Line {l1=0x3a, l2=» VÆRTSNAVN(1):='Danmarks tekniske bibliotek (ALIS m.v.)';«, l3=0x3a}
0x124a…1270 Line {l1=0x24, l2=» VÆRTSNAVN(2):='RECKU (ALBA m.v.)';«, l3=0x24}
0x1270…1298 Line {l1=0x26, l2=» VÆRTSNAVN(3):='Politiken (POLTEXT)';«, l3=0x26}
0x1298…12c0 Line {l1=0x26, l2=» VÆRTSNAVN(4):='Kommunedata (BASIS)';«, l3=0x26}
0x12c0…12e9 Line {l1=0x27, l2=» VÆRTSNAVN(5):='Datacentralen(ECDIN)';«, l3=0x27}
0x12e9…12f6 Line {l1=0x0b, l2=» ANTAL:=5;«, l3=0x0b}
0x12f6…1335 Line {l1=0x3d, l2=» FOR NR:=1 TO ANTAL DO WRITELN('':10,NR,'. ',VÆRTSNAVN(NR));«, l3=0x3d}
0x1335…1341 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x1341…1344 Line {l1=0x01, l2=» «, l3=0x01}
0x1344…134e Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x134e…1368 Line {l1=0x18, l2=» WRITE('Vært nr : ');«, l3=0x18}
0x1368…1375 Line {l1=0x0b, l2=» READLN;«, l3=0x0b}
0x1375…1384 Line {l1=0x0d, l2=» READ(NR);«, l3=0x0d}
0x1384…13a1 Line {l1=0x1b, l2=» UNTIL NR IN (.1..ANTAL.);«, l3=0x1b}
0x13a1…13a4 Line {l1=0x01, l2=» «, l3=0x01}
0x13a4…13b0 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x13b0…13c8 Line {l1=0x16, l2=» LÆRER:=' ';«, l3=0x16}
0x13c8…1414 Line {l1=0x4a, l2=» WRITE('Indlæs lærerkode (max. 10 tegn) .............. : '); EDIT(LÆRER);«, l3=0x4a}
0x1414…142e Line {l1=0x18, l2=» PROJEKT:=' ';«, l3=0x18}
0x142e…147c Line {l1=0x4c, l2=» WRITE('Indlæs projektkode eller klasse (max. 10 tegn) : '); EDIT(PROJEKT);«, l3=0x4c}
0x147c…147f Line {l1=0x01, l2=» «, l3=0x01}
0x147f…148d Line {l1=0x0c, l2=» CASE NR OF«, l3=0x0c}
0x148d…14a1 Line {l1=0x12, l2=» 1 : VÆRT:='DTB';«, l3=0x12}
0x14a1…14b5 Line {l1=0x12, l2=» 2 : VÆRT:='REC';«, l3=0x12}
0x14b5…14c9 Line {l1=0x12, l2=» 3 : VÆRT:='POL';«, l3=0x12}
0x14c9…14dd Line {l1=0x12, l2=» 4 : VÆRT:='KOM';«, l3=0x12}
0x14dd…14f1 Line {l1=0x12, l2=» 5 : VÆRT:='DAT';«, l3=0x12}
0x14f1…14f9 Line {l1=0x06, l2=» END;«, l3=0x06}
0x14f9…1521 Line {l1=0x26, l2=» FILNAVN:=CONCAT(VÆRT,'-TTY:P3:1:C');«, l3=0x26}
0x1521…1524 Line {l1=0x01, l2=» «, l3=0x01}
0x1524…156f Line {l1=0x49, l2=»(* HVIS DER FINDES EN VÆRTSFIL VIL DEN BLIVE KOPIERET OVER I TTY-FILEN *)«, l3=0x49}
0x156f…1572 Line {l1=0x01, l2=» «, l3=0x01}
0x1572…158d Line {l1=0x19, l2=» RESET(HOSTFIL,FILNAVN);«, l3=0x19}
0x158d…15a1 Line {l1=0x12, l2=» IOVAL:=IORESULT;«, l3=0x12}
0x15a1…15b2 Line {l1=0x0f, l2=» CASE IOVAL OF«, l3=0x0f}
0x15b2…15bf Line {l1=0x0b, l2=» 0 : BEGIN«, l3=0x0b}
0x15bf…15d8 Line {l1=0x17, l2=» CLOSE(HOSTFIL);«, l3=0x17}
0x15d8…15e8 Line {l1=0x0e, l2=» REPEAT«, l3=0x0e}
0x15e8…160b Line {l1=0x21, l2=» RESET(HOSTFIL,FILNAVN);«, l3=0x21}
0x160b…1639 Line {l1=0x2c, l2=» REWRITE(TTYFIL,'CONFILEC:P1:1:C');«, l3=0x2c}
0x1639…1655 Line {l1=0x1a, l2=» READLN(HOSTFIL);«, l3=0x1a}
0x1655…1680 Line {l1=0x29, l2=» WHILE NOT EOF(HOSTFIL) DO BEGIN«, l3=0x29}
0x1680…16a2 Line {l1=0x20, l2=» READ(HOSTFIL,LINIE);«, l3=0x20}
0x16a2…16c6 Line {l1=0x22, l2=» WRITELN(TTYFIL,LINIE);«, l3=0x22}
0x16c6…16e5 Line {l1=0x1d, l2=»(* WRITELN(LINIE);*)«, l3=0x1d}
0x16e5…1703 Line {l1=0x1c, l2=» READLN(HOSTFIL);«, l3=0x1c}
0x1703…1713 Line {l1=0x0e, l2=» END;«, l3=0x0e}
0x1713…172d Line {l1=0x18, l2=» CLOSE(TTYFIL);«, l3=0x18}
0x172d…1748 Line {l1=0x19, l2=» CLOSE(HOSTFIL);«, l3=0x19}
0x1748…175c Line {l1=0x12, l2=» WRITELN;«, l3=0x12}
0x175c…17ab Line {l1=0x4d, l2=» WRITELN('TTY-emulatoren er nu forberedt til at kommunikere med :');«, l3=0x4d}
0x17ab…17bf Line {l1=0x12, l2=» WRITELN;«, l3=0x12}
0x17bf…17e8 Line {l1=0x27, l2=» WRITELN('':13,VÆRTSNAVN(NR));«, l3=0x27}
0x17e8…17fc Line {l1=0x12, l2=» WRITELN;«, l3=0x12}
0x17fc…1841 Line {l1=0x43, l2=» WRITE('Skal kommunikations parametrene ændres ? (J/N) ');«, l3=0x43}
0x1841…1857 Line {l1=0x14, l2=» SVAR:='N';«, l3=0x14}
0x1857…186e Line {l1=0x15, l2=» EDIT(SVAR);«, l3=0x15}
0x186e…18a0 Line {l1=0x30, l2=» IF SVAR(1) IN (.'J','j'.) THEN CHANGE;«, l3=0x30}
0x18a0…18cd Line {l1=0x2b, l2=» UNTIL NOT (SVAR(1) IN (.'J','j'.));«, l3=0x2b}
0x18cd…18d9 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x18d9…18e6 Line {l1=0x0b, l2=» 1 : BEGIN«, l3=0x0b}
0x18e6…192e Line {l1=0x46, l2=» WRITE('Værts-filen findes ikke - skal den oprettes ? (J/N) ');«, l3=0x46}
0x192e…1942 Line {l1=0x12, l2=» SVAR:='J';«, l3=0x12}
0x1942…1957 Line {l1=0x13, l2=» EDIT(SVAR);«, l3=0x13}
0x1957…1987 Line {l1=0x2e, l2=» IF SVAR(1) IN (.'J','j'.) THEN CHANGE;«, l3=0x2e}
0x1987…1993 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1993…19a0 Line {l1=0x0b, l2=» OTHERWISE«, l3=0x0b}
0x19a0…19ad Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x19ad…19bc Line {l1=0x0d, l2=» SLUT;«, l3=0x0d}
0x19bc…19c8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x19c8…19cb Line {l1=0x01, l2=» «, l3=0x01}
0x19cb…19d7 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x19d7…1a16 Line {l1=0x3d, l2=» WRITE('Ønsker du vejledning i LOG-ON proceduren ? (J/N) ');«, l3=0x3d}
0x1a16…1a24 Line {l1=0x0c, l2=» SVAR:='J';«, l3=0x0c}
0x1a24…1a33 Line {l1=0x0d, l2=» EDIT(SVAR);«, l3=0x0d}
0x1a33…1a5c Line {l1=0x27, l2=» IF SVAR(1) IN (.'J','j'.) THEN LOGON;«, l3=0x27}
0x1a5c…1a5f Line {l1=0x01, l2=» «, l3=0x01}
0x1a5f…1a6f Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x1a6f…1a7b Line {l1=0x0a, l2=» DATOTID;«, l3=0x0a}
0x1a7b…1a86 Line {l1=0x09, l2=» LOGBOG;«, l3=0x09}
0x1a86…1aa8 Line {l1=0x20, l2=» CHAIN('TTY1 *1','C',PCB); «, l3=0x20}
0x1aa8…1aab Line {l1=0x01, l2=» «, l3=0x01}
0x1aab…1abd Line {l1=0x10, l2=»END. (*INFOSØG*)«, l3=0x10}
0x1abd…1ac0 00 00 63 ┆ c┆
0x1ac0…1ae0 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┆
[…0x16…]