.ENABLE SUBSTITUTION
.ENABLE GLOBAL
.SETT $SPECL
; ENTER THE FILES TO BE BACKED UP.  THIS CAN BE [*,*] FOR AN ENTIRE
; VOLUME, <CR> FOR ALL FILES IN YOUR UIC, [123,456]*.FTN,*.MAC FOR ALL
; FORTRAN AND MACRO SOURCE FILES IN UIC [123,456], ETC.  NOTE THAT
; NO OBJECT FILES WILL BE BACKED UP.
.ASKS $UIC ENTER UIC TO BE BACKED UP
.ASKS BK ENTER THE BACKUP DEVICE [DDU:]
ASN 'BK'=BK:
ALLOCATE BK:
PIP TI:=BAKDATE.DAT,LB:[1,2]BAKDATE.DAT
.ASK DATEF DO YOU HAVE A VALID BACKUP DATE FILE
.IFT DATEF .GOTO 200
.ASKS DATE ENTER DATE BACKUP SHOULD START [MM/DD/YY]
.ASKS TIME ENTER TIME BACKUP SHOULD START [HH:MM]
.OPEN BAKDATE.DAT
.DATA LATEST SPECIAL BACKUP = 'DATE'	'TIME'
.CLOSE
.200:@LB:[1,2]BACKUP.CMD
DEALLOCATE BK:
TEC @LB:[1,2]NEWDATE.TEC	!GENERATE NEW BACKUP DATE FILE
PIP BAKDATE.*;*/DE
PIP BAKDATE.DAT=NEWDATE.DAT
PIP NEWDATE.DAT;*/DE