home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / kopieren.amos / kopieren.amosSourceCode
AMOS Source Code  |  1991-09-28  |  403b  |  17 lines
  1. '       Procedure for loading and saving files.  
  2. '       DAUG #002  
  3. '       Rubric   Tips&Tricks 
  4. '       Article  Copies
  5. '
  6. '
  7. Procedure FILE_READ[SOURCE$,BANK]
  8.    Open In 1,"SYS:"+SOURCE$
  9.    L=Lof(1)
  10.    Close 
  11.    Reserve As Work BANK,L
  12.    Bload DISC$+SOURCE$,Start(BANK)
  13. End Proc
  14. Procedure FILE_WRITE[SOURCE$,BANK]
  15.    Bsave "DF0:"+SOURCE$,Start(BANK) To Start(BANK)+Length(BANK)
  16.    Erase BANK
  17. End Proc