home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / buftest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-12  |  1.1 KB  |  43 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     BUFTEST.PAS                        *)
  3. (*   (c) 1990       & TOOLBOX                             *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM BufTest;
  6.  
  7. USES Crt, Dos, Strings;
  8.  
  9. VAR
  10.   xyz : STRING;
  11.  
  12.           (* Emulation der BufLen-Variablen aus Turbo 3.0 *)
  13.  
  14.   FUNCTION BufReadStr(Laenge : BYTE) : STRING;
  15.   VAR
  16.     Regs     : Registers;
  17.     BufStr   : ^STRING;
  18.     temp     : STRING;
  19.     tempbyte : BYTE ABSOLUTE temp;
  20.   BEGIN
  21.     New(BufStr);
  22.     BufStr^[0]:= Chr(laenge+1);
  23.     Regs.AH:= $0A;
  24.     Regs.DS:= Seg(BufStr^);
  25.     Regs.DX:= Ofs(BufStr^);
  26.     MsDos (Regs);
  27.     temp:= Copy (BufStr^, 2, laenge+1);
  28.     IF Pos(#13, temp) <> 0 THEN
  29.       tempbyte := Pos(#13, temp) - 1;
  30.     BufReadStr := temp;
  31.     Dispose (BufStr);
  32.   END;
  33.  
  34. BEGIN
  35.   ClrScr;
  36.   Write ('Name: ');
  37.   xyz := BufReadStr(20);
  38.   WriteLn;
  39.   WriteLn(xyz, '  ', Length(xyz));
  40. END.
  41. (* ------------------------------------------------------ *)
  42. (*                Ende von BUFTEST.PAS                    *)
  43.