CP/M/CPM_CDROM.iso/cpm/parasol/videosto.ark/TRUNCSTR.LIB

Text File | 1986-07-20 | 128b | 7 lines

procedure    trunc.wk.str:
begin
    scan wk.str for trailing ' ' giving address wk.bp;
    move 0 to @wk.bp;
end;