|
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 - metrics - download
Length: 1268 (0x4f4)
Notes: Mikados TextFile, Mikados_K
Names: »TTYPRØVE«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─⟦this⟧ »TTYPRØVE«
PROGRAM TTYPRØVE;
(*BR-05.02.85*)
TYPE BAUDRATE = (NORMAL,LOW);
CHRLENGTH = (SEVEN,EIGHT);
PARITY = (EVEN,OFF,ODD);
STOPBITS = (ONE,TWO);
VAR TEGN : CHAR;
RESERVATION: INTEGER;
FUNCTION INITLI(BPS:BAUDRATE; CHRLNG:CHRLENGTH; PAR:PARITY;
STOPB:STOPBITS): INTEGER; EXTERNAL;
FUNCTION NEXTTY(VAR CHARACTER:CHAR): BOOLEAN; EXTERNAL;
PROCEDURE RCVTTY(VAR BUFFER: STRING; LNGTH: INTEGER; EOTCHR:CHAR;
TIMEOUT:INTEGER); EXTERNAL;
PROCEDURE WRITTY(BUFFER:STRING); EXTERNAL;
PROCEDURE FINTTY; EXTERNAL;
BEGIN
CLEARSCREEN;
GOTOXY(20,5);
WRITELN('AFPRØVNING AF PASCAL-TTY INTERFACE');
WRITELN;
IF NEXTTY(TEGN) THEN
WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN))
ELSE
WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');
RESERVATION:=INITLI(NORMAL,SEVEN,EVEN,ONE);
WRITELN('FEJL=',RESERVATION);
IF RESERVATION=0 THEN
WRITELN('RESERVATION AF TTY-LINIEN ER OK')
ELSE
WRITELN('FEJL VED RESERVATION AF TTY-LINIEN. FEJLKODE = ',RESERVATION);
IF NEXTTY(TEGN) THEN
WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN))
ELSE
WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');
IF RESERVATION=0 THEN BEGIN
FINTTY;
WRITELN('TTY-LINIEN ER AFRESERVERET');
END;
END.