|
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)
Notes: Mikados TextFile, Mikados_K
Names: »INFOSØG«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─ ⟦this⟧ »INFOSØG«
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*)