*| >PB
*| Program Backup
VDU21
Z
P%=PAGE
REPEAT P%+=1:C%=?P%:UNTIL C%=ASC(">") OR P%>PAGE+40
IF C%<>ASC(">") VDU6:P.TAB(10)"*** File name not found ***":VDU7,21:OS.("FX125"):VDU6
*FX15,1
IF $(P%+1)="!RunImage" THEN Q%=P%:REPEAT P%+=1:C%=?P%:UNTIL C%=ASC(">") OR P%>PAGE+80:IF C%<>ASC(">") THEN P%=Q%:VDU6:P."Saving as !RunImage":VDU21:SOUND 1,-10,200,3
S$="adfs::Backup.Backup."+$(P%+1)
VDU6:P.TAB(10)"SAVING ";S$:VDU21
SAVE S$
IF ERR=67798 VDU6:P."Creating new directory":VDU21:OS.("CDIR :Backup.Backup"):OS.("PB")
VDU6:IF ERR<>4 THEN REPORT:VDU7,13,10
