DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦dad3e75af⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »TTYPRØVE«

Derivation

└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
    └─ ⟦this⟧ »TTYPRØVE«

Text

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.

TextFile

▶11◀PROGRAM TTYPRØVE;▶11◀▶01◀ ▶01◀▶0f◀(*BR-05.02.85*)▶0f◀▶01◀ ▶01◀$TYPE      BAUDRATE   = (NORMAL,LOW);$%          CHRLENGTH  = (SEVEN,EIGHT);%&          PARITY     = (EVEN,OFF,ODD);&!          STOPBITS   = (ONE,TWO);!▶01◀ ▶01◀▶1c◀VAR       TEGN       : CHAR;▶1c◀▶1f◀          RESERVATION: INTEGER;▶1f◀▶01◀ ▶01◀;FUNCTION INITLI(BPS:BAUDRATE; CHRLNG:CHRLENGTH; PAR:PARITY;;3                STOPB:STOPBITS): INTEGER; EXTERNAL;37FUNCTION NEXTTY(VAR CHARACTER:CHAR): BOOLEAN; EXTERNAL;7APROCEDURE RCVTTY(VAR BUFFER: STRING; LNGTH: INTEGER; EOTCHR:CHAR;A,                 TIMEOUT:INTEGER); EXTERNAL;,*PROCEDURE WRITTY(BUFFER:STRING); EXTERNAL;*▶1b◀PROCEDURE FINTTY; EXTERNAL;▶1b◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶0e◀  CLEARSCREEN;▶0e◀▶0f◀  GOTOXY(20,5);▶0f◀0  WRITELN('AFPRØVNING AF PASCAL-TTY INTERFACE');0
  WRITELN;
▶01◀ ▶01◀▶16◀  IF NEXTTY(TEGN) THEN▶16◀1    WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) 1▶06◀  ELSE▶06◀:    WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');:▶01◀ ▶01◀-  RESERVATION:=INITLI(NORMAL,SEVEN,EVEN,ONE);-▶1f◀  WRITELN('FEJL=',RESERVATION);▶1f◀▶17◀  IF RESERVATION=0 THEN▶17◀.    WRITELN('RESERVATION AF TTY-LINIEN ER OK').▶06◀  ELSE▶06◀K    WRITELN('FEJL VED RESERVATION AF TTY-LINIEN. FEJLKODE = ',RESERVATION);K▶01◀ ▶01◀▶16◀  IF NEXTTY(TEGN) THEN▶16◀1    WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) 1▶06◀  ELSE▶06◀:    WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');:▶01◀ ▶01◀▶1e◀  IF RESERVATION=0 THEN BEGIN ▶1e◀▶0b◀    FINTTY;▶0b◀*    WRITELN('TTY-LINIEN ER AFRESERVERET');*▶06◀  END;▶06◀▶04◀END.▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc