1000 EXTEND & ! & ! Run SAVER* automatically twice each day, Monday - Friday. & ! & ! *SAVER is a backup software product from Data Processing Design, Inc., & ! 1400 N. Brasher St., Anaheim, CA 92807 & ! & ! Author: W. Franklin Mitchell, Jr. & ! Director of Computer Services & ! Erskine College, Due West, South Carolina & ! & ! Copyright (c) 1986 & ! Erskine College, Due West, South Carolina & ! & ! *********************************************************************** & ! * This software is furnished without charge by Erskine College and * & ! * may be copied only with the inclusion of the author's name and * & ! * copyright notice. No title to or ownership of this software is * & ! * hereby transmitted. Neither Erskine College nor the author assumes * & ! * any responsibility for the use or reliability of this software. The * & ! * author welcomes comments and/or bug reports mailed to Franklin * & ! * Mitchell, Erskine College, Box 86S, Due West, South Carolina 29639. * & ! *********************************************************************** & ! & ! 18-Jul-86 F. Mitchell Erskine College & ! & ! 11-Sep-86 last edit *M & 1020 DIM DATE%(30%) & \ CHANGE SYS(CHR$(6%) + CHR$(-3%)) TO DATE% & \ DATE% = DATE%(27%) + SWAP%(DATE%(28%)) & \ FRI% = 6% & 1030 PRINT & \ PRINT "SAVBCK V1.0" & \ PRINT & \ PRINT "AM or PM"; & \ INPUT LINE AM.PM$ & \ AM.PM$ = CVT$$(AM.PM$, -1%) & \ IF INSTR(1%, "AM" + CHR$(1%) + "PM", AM.PM$) = 0% & THEN & PRINT & \ PRINT '?Expecting "AM" or "PM", got '; AM.PM$ & \ GOTO 32767 & 1040 WEEK.DAY%, YEAR% = DATE%/1000% & \ JULIAN% = DATE% - YEAR%*1000% & \ WEEK% = (JULIAN%-1%)/7% + 1% & \ WEEK% = 52% IF WEEK% > 52% & \ YR% = 1970% + YEAR% - 1% & \ Y% = YR% + YR%/4% - YR%/100% + YR%/400% + 1% & \ FIRST.DAY% = Y% - 7%*(Y%/7%) & \ WEEK.DAY% = JULIAN% - 7%*((JULIAN%-1%)/7%) & \ WEEK.DAY% = WEEK.DAY% + FIRST.DAY% & \ WEEK.DAY% = WEEK.DAY% - 7% IF WEEK.DAY% > 7% & \ READ DAY$ FOR I% = 1% TO WEEK.DAY% & \ DAY$ = CVT$$(LEFT(DAY$, 3%), 32%) & \ K% = 1% & \ K% = 3% IF WEEK.DAY% = FRI% & \ IF AM.PM$ = "AM" & THEN & QUE.TIME$ = "12:30" & ELSE & QUE.TIME$ = "16:59" & 1060 QUE.TIME$ = QUE.TIME$ + "+" + NUM1$(K%) + "Day" & \ QUE.TIME$ = QUE.TIME$ + "s" IF K% <> 1% & 1080 DATA "FRI", "MON", "TUE", "WED", "THU", "FRI", "FRI" & 2000 OPEN "SAVBCK.WRK" AS FILE 1% & \ FIELD #1%, 512% AS BUF$ & \ CR.LF$=CHR$(13%)+CHR$(10%) & \ LOG.FILE$ = "[0,215]" + DAY$ + AM.PM$ + ".LOG" & 2020 WORK$ = & "$ ! Daily SAVER " + AM.PM$ + " Backup " + DATE$(0%) + CR.LF$ & + "$_Submit/Que=ADMIN/Af:" + QUE.TIME$ + " " + AM.PM$ + CR.LF$ & + "$_Delete/Erase/Nowarn/Nolog " + LOG.FILE$ + CR.LF$ & + "$_Allocate/Seize MT0:" + CR.LF$ & + "$_CCL SAVER @" + AM.PM$ +".CMD/More" + CR.LF$ & + "Write " + DAY$ + CR.LF$ & + "Fullog " + LOG.FILE$ + CR.LF$ & + "Go" + CR.LF$ & \ LSET BUF$ = WORK$ + STRING$(512%-LEN(WORK$),0%) & \ PUT #1%, RECORD 1% & \ CLOSE 1% & \ WORK$ = SYS(CHR$(14%) + "$_@SAVBCK.WRK") & 32767 END