%%HP: T(3)A(D)F(.);
\<< HOME RCLF
'Flagsave' STO CLLCD
DATE DUP IP R\->I \->STR
"00" SWAP + DUP SIZE
DUP 1 - SWAP SUB
":1:A" SWAP + SWAP FP
100 * IP R\->I \->STR
"00" SWAP + DUP SIZE
DUP 1 - SWAP SUB +
TIME 100 * IP R\->I
\->STR "0000" SWAP +
DUP SIZE DUP 3 - SWAP
SUB + OBJ\-> DUP PURGE
DUP ARCHIVE 3600 .05
BEEP
"Backup fertig! 

 Port :1:
 Name:
 "
SWAP + MSGBOX
'Flagsave' PURGE
\>>