home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO.ZIP / CHECKPSP.INC < prev    next >
Encoding:
Text File  |  1984-07-10  |  717 b   |  35 lines
  1.  
  2. procedure checkpsp( var was_psp:boolean; var pspq);
  3. {
  4.            JUNE 28, 1984
  5.  
  6.            Author:       Todd Little
  7.                          1318 Bullock
  8.                          Houston, TX  77055
  9.                          713-984-2055 h
  10.                              578-3210 w
  11.  
  12. }
  13.  
  14. var
  15.    i,n : integer;
  16.    psp : string[128] absolute pspq;
  17.  
  18. begin
  19.    psp := '';
  20.    was_psp := false;
  21.    n := mem[cseg:$0080];
  22.    if n <> 0 then
  23.    begin
  24.       for i := 1 to n do
  25.         psp := concat(psp,chr(mem[cseg:i+$80]) );
  26.       i := 1;
  27.       while (i<n-1) and (not was_psp) do
  28.       begin
  29.         if chr(mem[cseg:i+$80]) <> ' ' then was_psp := true;
  30.         i := i+1;
  31.       end;
  32.    end;
  33.  
  34.  
  35. end;