#B
#F
|SILIBRARY~E#B
.J
REM
PAGE=12544
NEW
   10 *NAME ARCHIVE
   20 REM Program to backup changed files to EPROM 20/09/90
   30 REM Does not interfere with PATCH
   40 REM (C) K.S.BEDDOE 1990  
   50 DIM fname 255
   55 X=OPENOUT "ZCHECK.LOG":CLOSE#X:REM create log file
   60 PROCload("Z137C",11264):CALL 11264:REM ZCHECK
   70 PROCload("Z137D",11264):CALL 11264:REM ZBACK
   80 *CLI .*BACKUP.CLI
   90 PAGE=11264
  100 CLS:NEW
  110 REM Code loader by R. Russell
  120 DEF PROCload($fname,E%):LOCAL H%,L%,D%,B%,C%:L%=fname
  130 H%=L% DIV 256:D%=E% DIV 256:B%=255:C%=255:CALL &FEA3:ENDPROC
RUN
