home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / tricks / readtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-14  |  563 b   |  20 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    READTEST.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM ReadTest;
  5.  
  6. USES ReadUnit;
  7.  
  8. VAR
  9.   Wort : STRING;
  10.   Last : AllChar;
  11.  
  12. BEGIN
  13.   WriteLn('Geben Sie ein Wort ein: ');
  14.   ExtraRead(Wort,10,Last);
  15.   WriteLn;
  16.   WriteLn('Geschriebenes Wort: ',Wort,
  17.           '. Letzte Taste:  ',Last);
  18. END.
  19. (* ------------------------------------------------------ *)
  20. (*                 Ende von READTEST.PAS                  *)