home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / bob / !ArmBob / progs / h / save < prev    next >
Encoding:
Text File  |  1994-12-31  |  211 b   |  15 lines
  1. /* save string s to file name and filetype type */
  2.  
  3. save(s,name,type)
  4. {
  5.  local start;
  6.  swi("OS_File", vector {
  7.      10;
  8.      @(name);
  9.      type;
  10.      0;
  11.      start = @(s);
  12.      start+sizeof(s);
  13.      0; 0; });
  14. }
  15.