home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / grdlagen / nulltest.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-11-22  |  1.7 KB  |  70 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    NULLTEST.PAS                        *)
  3. (*      Testprogramm zur Erprobung des Netzinterfaces     *)
  4. (*      hier fuer IBM (kompatible), APPLE, SHARP MZ 800   *)
  5. (*       (c) 1988 TOOLBOX & ERVEN - DIETZ - BERGHAUS      *)
  6. (* ------------------------------------------------------ *)
  7.  
  8. (*$U-*)
  9.      (* Aus Zeitgruenden keine Unterbrechung zugelassen!  *)
  10.  
  11. CONST
  12.   EINGANG       : BYTE    =     1;
  13.   UNTERBRECHUNG : BOOLEAN = FALSE;
  14.  
  15. VAR
  16.   TASTE         : CHAR;
  17.  
  18. (*$I IBM.INC*)
  19.  
  20. PROCEDURE TEST;
  21. VAR
  22.   LETZTER_EINGANG: BYTE;
  23. BEGIN
  24.   START;
  25.   TASTE           := ' ';
  26.   LETZTER_EINGANG := EINGANG;
  27.   WRITELN ('Netztinterfacestest!': 49);
  28.   WRITELN;
  29.   WRITELN ('Taste "1" = Ausgang wird High':53);
  30.   WRITELN ('Taste "0" = Ausgang wird  Low':53);
  31.   WRITELN ('Taste "." = Programm  beenden':53);
  32.   WRITELN;
  33.   WRITELN;
  34.   WRITE   ('Ausgang ist: 1         Eingang ist:  ': 67);
  35.   WRITE   (EINGANG, #8);
  36.  
  37.   REPEAT
  38.     REPEAT
  39.       TESTE_LEITUNG;
  40.     UNTIL KEYPRESSED OR (EINGANG <> LETZTER_EINGANG);
  41.     IF KEYPRESSED THEN BEGIN
  42.        READ (KBD, TASTE);
  43.        CASE TASTE OF
  44.         '1': BEGIN
  45.                EINSRAUS;
  46.                GOTOXY (26, 8);
  47.                WRITE (TASTE, #8);
  48.              END;
  49.         '0': BEGIN
  50.                NULLRAUS;
  51.                GOTOXY (26, 8);
  52.                WRITE (TASTE, #8);
  53.              END;
  54.         END;
  55.     END
  56.     ELSE BEGIN
  57.       GOTOXY (68, 8);
  58.       WRITE  (EINGANG, #8);
  59.       LETZTER_EINGANG := EINGANG;
  60.     END;
  61.   UNTIL TASTE = '.';
  62. END;
  63.  
  64. BEGIN
  65.   TEST;
  66. END.
  67.  
  68. (* ------------------------------------------------------ *)
  69. (*                Ende von NULLTEST.PAS                   *)
  70.