home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PARASOL / VIDEOSTO.ARK / TRUNCSTR.LIB < prev    next >
Text File  |  1986-07-20  |  128b  |  7 lines
  1. procedure    trunc.wk.str:
  2. begin
  3.     scan wk.str for trailing ' ' giving address wk.bp;
  4.     move 0 to @wk.bp;
  5. end;
  6.  
  7.