home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / bcpl.ark / PATCH.B < prev    next >
Encoding:
Text File  |  1988-11-27  |  896 b   |  37 lines
  1. GET "LIBHDR"
  2. GET "RANDHDR"
  3.  
  4. LET START() BE
  5. $( LET BUFF = VEC BLOCKSIZE
  6.    LET FCB = ?
  7.    WRITES("BCPL Loader patch program.*n*n")
  8.  
  9.    FCB :=  UPDATEBLOCKFILE("LOADB.COM")
  10.    IF ~FCB  DO
  11.       $( WRITES("Couldn't open LOADB.COM*n*n")
  12.          FINISH
  13.       $)
  14.  
  15.    READBLOCK(FCB, BUFF, 0)
  16.  
  17.    WRITEF("Current size of global vector is %n words.*n*
  18.           *Input new size (or <cr> to leave):", BUFF!2)
  19.    IF RDCH() NE '*N' THEN
  20.      $( UNRDCH()
  21.         BUFF!2 := READN()
  22.      $)
  23.  
  24.    WRITEF("Current stack size is %n words.*n*
  25.           *Input new size (or <cr>): ", BUFF!3)
  26.    IF RDCH() NE '*N' THEN
  27.      $( UNRDCH()
  28.         BUFF!3 := READN()
  29.      $)
  30.    
  31.    WRITEBLOCK(FCB, BUFF, 0)
  32.  
  33.    TEST CLOSEBLOCKFILE(FCB) THEN  WRITES("*nDone.*n*n")
  34.                             ELSE  WRITES("*nError closing file.*n*n")
  35.  
  36. $)
  37.