*| >PB
*| Program Backup
VDU21
Z
P%=PAGE
REPEAT P%+=1:C%=?P%:UNTIL C%=ASC(">") OR P%>PAGE+20
IF C%<>ASC(">") VDU6:P.TAB(10)"*** File name not found ***":VDU7,21:OS.("FX125"):VDU6
*FX15,1
S$=":1.Backup."+$(P%+1)
VDU6:P.TAB(10)"SAVING ";S$:VDU21
SAVE S$
IF ERR=67798 VDU6:P."Creating new directory":VDU21:OS.("CDIR :1.$.BACKUP"):OS.("PB")
VDU6:IF ERR<>4 THEN REPORT:VDU7,13,10
