home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol292 / t3tool.pat < prev    next >
Encoding:
Text File  |  1986-12-17  |  1.4 KB  |  38 lines
  1.  These are the changes that I made in toolu.pas so that the shell in
  2.  tptool.lbr works when compiled with TP vers 3.01. Otherwise the shell
  3.  command line would always have some junk in it from the last command.
  4.  These changes were tested under TP vers. 3 on a Morrow MD-3 running
  5.  CP/M 2.2. I used proclist.shl as the test. Simply replace the lines
  6.  given with their new versions. Except for line three, all of the other
  7.  lines are in the function getkbd.
  8.  
  9.  IN FILE TOOLU.PAS  change the given lines
  10.  3:
  11.    old:   Version ='1.9.e';
  12.    new:   Version ='1.9.f';
  13.  274:
  14.    old:   if (eof(TRM)) then kbdn:=-1
  15.    new:   if (eof(kbd)) then kbdn:=-1
  16.  275:
  17.    old:   else if eoln(TRM) then begin
  18.    new:   else if eoln(kbd) then begin
  19.  276:
  20.    old:     kbdn:=kbdn-1;kbdline[kbdn]:=NEWLINE
  21.    new:     kbdline[kbdn]:=NEWLINE
  22.  287:
  23.    old:     read(TRM,ch);kbdline[kbdn]:=ord(ch);
  24.    new:     read(KBD,ch); kbdline[kbdn]:=ord(ch);
  25.  290:
  26.    old:     if (kbdline[kbdn]<>DELETE1) and (kbdline[kbdn]<>DELETE2) then
  27.    new:     if (kbdline[kbdn]<>DELETE1) and (kbdline[kbdn]<>DELETE2) then
  28.               write(ch)
  29.  304:
  30.    old:     reset(TRM);
  31.    new:     reset(kbd);
  32.  
  33.  All that I did was to replace the TRM device with the KBD device. I don't
  34.  have access to an MS-DOS machine right now so if someone else could check
  35.  that it would be appreciated.
  36.  
  37. device. I don't
  38.  have access to an