home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / readstr.pas < prev    next >
Pascal/Delphi Source File  |  1987-02-03  |  377b  |  19 lines
  1. (*------------------------------------------------------------------------*)
  2. (*                 Beispiel fuer READSTR.INC:                             *)
  3.  
  4. PROGRAM demo (INPUT, OUTPUT);
  5.  
  6. TYPE strg = STRING[80];
  7.  
  8. VAR  s: strg;
  9.  
  10. (*$I readstr.inc *)
  11.  
  12. BEGIN
  13.   ClrScr;
  14.   ReadStr(s, 5, 10, 40, 'Eingabe: ');
  15.   WriteLn;
  16.   WriteLn(s);
  17.   REPEAT UNTIL KeyPressed;
  18. END.
  19.