R: Backfield Menus for MD-11 BKFIELD.PIL version 3.11 R: By John VanderWood Copyright 1984 Morrow Designs Inc R: Rev. 3.1 updated 6/2/84 *BEGIN ESC: *MAIN CLRS: T: { ======= B A C K F I E L D O P T I O N S ======} T: T: {1} Format one or more diskettes T: {2} Duplicate a diskette T: T: {3} Backup entire hard disk (weekly/monthly) T: {4} Backup only files that have changed (daily) T: {5} Backup an especially large file T: T: {6} Restore files made by{4}above T: {7} Restore a file made by{5}above T: {8} Display directory of full-backup diskette T: T: {ESC} Return to Main Menu T: T: {==================================================} T: T: T: T: {NOTE:}To{RESTORE}the entire hard disk from diskettes made by{3}above, T: please boot from the Backfield Working Diskette. You may still T: need to copy specific files using options 6 & 7, for a complete T: restoration. *BFCHECK CUR:0,17 TNR: CUR:0,17 TNR: {Select from 1 to 8, or ESC to exit: } INMAX:1 A: M:1, 2, 3, 4, 5, 6, 7, 8 , BELLN: JN:*BFCHECK M:1 UY:*BK1 M:2 JY:*BK2 M:3 JY:*BK3 M:4 JY:*BK4 M:5 JY:*BK5 M:6 JY:*BK6 M:7 JY:*BK7 J: *BK8 *BK1 CLRS: ESC: *BEGIN LF: 12 TNR:{Insert the diskette to be formatted and press any key to continue:} INMAX: 1 A: CPM:FORMAT B D CLRS: LF: 12 T:}Would you like to format another diskette? T: TNR: Type{Y}for Yes or anything else to quit: INMAX: 1 A: M: Y UY: *BK1 J:*BEGIN *BK2 ESC: *BEGIN CLRS: LF: 5 T: This operation makes an exact copy of any Micro Decision diskette, but T: you would usually use it to duplicate valuable backup diskettes created T: by Backfield. In the messages that follow,{"SOURCE"} refers to the disk T: you want to copy, and{"DESTINATION"}means the blank,{formatted} diskette T: that will receive the copy. T: T: This is done by copying the whole source diskette into a temporary hard T: disk file (BACKUP.DSK), so you need at least 400K free space on the hard T: disk. You'll be given the option of creating several duplicates before T: the temporary file is erased. LF: 2 TNR: Press ESC to quit or anything else to proceed: INMAX: 1 A: CPM:BACKUP| T:} TNR:Press any key to continue: { INMAX: 1 A: J:*BEGIN *BK3 ESC: *BEGIN CLRS: T:{ T: F U L L B A C K U P LF:2 T:} This option backs up{everything}on the hard disk; you should use it at T: least once a month. You must have enough formatted diskettes ready to T: hold the entire contents of the hard disk. These diskettes don't need T: to be empty, but anything on them will be erased. If you've used this T: option before, you should recycle those diskettes. T: T: I'll help you figure out how many diskettes you need:{ CPM:show A: T: T: }The number above (n,nnnk) is how much space remains on the hard disk. T: To figure out how much is used, {subtract that number from 5,000K.} T: Then{divide the result by 400K.} This is how many diskettes you need. T: TNR: Press ESC to quit now or anything else to proceed: INMAX: 1 A: *CHECK0 CLRS: LF: 3 T:{ TNR:Enter today's date in the format MM/DD/YY and press RETURN: INMAX: 9 A: $DATE T:} *CHECK1 CUR:0,4 T: CUR:0,4 TNR:You have entered the date as{$DATE}. Is that correct? Type{Y}or{N}: INMAX:1 A: M:y,n BELLN: JN:*CHECK1 M:n JY:*CHECK0 LF: 3 T:Label your backup diskettes with the DATE and volume number 001 through T:whatever the highest numbered diskette happens to be. Then insert the T:first diskette (volume 001) into the floppy drive and close the latch. T: T:Depending on the fullness of your hard disk, this can take anywhere from T:15 to 40 minutes. Unfortunately, this is rather boring and you have to T:stick around to switch diskettes; be aware, though, that the MD-11 waits T:indefinitely for the next diskette, so you don't have to stay glued to T:the keyboard. T: TNR:Press any key when you're ready to proceed: { INMAX:1 A: CLRS: LF:12 CPM:FB B: +A $DATE| T:} TNR:Press any key to continue: { INMAX:1 A: CLRS: LF: 4 T: {It is a good idea to reformat any DAILY BACKUP diskettes you were using T: before this full backup. This will keep you from mixing new daily back- T: ups with older backup files that aren't needed any more. LF:2 TNR: }Press any key to continue: { INMAX: 1 A: J:*BEGIN *BK4 ESC: *BEGIN CLRS: LF: 3 T: {I N C R E M E N T A L B A C K U P} LF: 2 T: This operation backs up only those files that have changed since the T: last full or incremental backup. {DON'T use your FULL BACKUP diskettes T: for incremental backups!} T: T: The number of diskettes required depends on how much work you've done T: since the last backup. The diskettes must be formatted, but need not be T: empty. Nothing on them will be erased; however, if there's a file on the T: diskette with the same name as one being backed up, the former will be T: replaced by the latter. T: T: {Insert the first backup diskette into the drive and close the latch.} T: TNR: Press ESC to quit or anything else to proceed: INMAX: 1 A: CLRS: LF: 11 CPM:QB B: +A| T:} TNR:Press any key to continue: { INMAX: 1 A: J:*BEGIN *BK5 ESC: *BEGIN CLRS: LF: 2 T: {Use this option to backup a file that's too big to fit on a single T: diskette, in other words, one larger than 384K. Typically this T: means a large data base. These files are automatically included T: in full backups, so unless they've changed, there's no need to use T: this option. T: CUR: 0, 11 T: }Type the name of the file, including last *HBLOOP0 CUR: 0, 12 T: CUR: 0, 12 TNR: name and period (if used), and press RETURN:{ INMAX: 13 A: $HBFILE *HBLOOP1 CUR: 0, 14 T: CUR: 0, 14 TNR: }Enter the user number of the file (0-15):{ INMAX: 2 A: $HBUN M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15 BELLN: JN: *HBLOOP1 CUR: 0, 16 T: CUR: 0, 16 TNR: } You want to back up{$HBFILE}in user{$HBUN}. Correct? Type{Y}or{N}: INMAX: 1 A: M: y,n BELLN: JN: *HBLOOP1 M: n JY:*HBLOOP0 CLRS: LF: 7 T: Insert the first backup diskette in the drive and close the latch. T: T: The diskette must be formatted, but need not be empty. However, anything T: currently on it will be erased. T: TNR: Press ESC to quit or anything else to proceed: INMAX: 1 A: CLRS: LF: 11 CPM: HB B: $HBFILE /$HBUN| T:} TNR:Press any key to continue: { INMAX: 1 A: J:*BEGIN *BK6 ESC:*BEGIN CLRS: LF: 4 T:}If you are restoring from several incremental backup diskettes, select this T: option from the Backfield Menu once per diskette, until all of the desired T: files have been restored. T: T: It is possible that your incremental backup diskette contains some very T: recent files mixed with older, outdated files. Therefore you should first T: decide whether you want to copy{all}the files from the diskette to the hard T: disk, or name{specific}files to extract. T: T:{Insert the diskette you want to copy from now.} *QBCHECK CUR:0,15 TNR: CUR:0,15 TNR:}Type{A}for ALL files or{S}to name SPECIFIC files: { INMAX: 1 A: M:A,S JN: *QBCHECK M: A JY:*PIPALL *MORE CLRS: LF: 7 TNR:}Type the file's name and press RETURN (example - BACKUPF.ILE): { INMAX: 13 A: SAVE: $RESTFILE T: TNR:}Type its user number (0-15):{ *QBCHECK1 INMAX: 2 A: SAVE: $RESTUN M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15, T:} TNRN: Sorry, $RESTUN is not a valid user number. Please retype: JN: *QBCHECK1 CPM: user $RESTUN EXIST: B:$RESTFILE CPM: user 0 JN: *TRYAGAIN T: CPM: pip a:[g$RESTUN]=b:$RESTFILE[g$RESTUN R]| LF: 3 T: Copy complete. Type R to extract another file TNR: or anything else to return to the Backfield Menu: INMAX: 1 HOLD: *MORE J: *BEGIN *TRYAGAIN LF: 2 T:}I could not find a file named{$RESTFILE}in user number{$RESTUN}on this T: diskette. You may have mistyped the name, or entered the wrong T: user number, or you may have the wrong diskette. T: TNR: Type ESC to quit now or anything else to give it another try: INMAX: 1 A: J:*MORE *PIPALL CLRS: LF:2 T:}This operation will go through each user number (0-15) in sequence, looking T: for every file on the diskette. If a user number happens to be empty, you'll T: see ERROR: FILE NOT FOUND - ????????.??? Well, don't let this bother you. T: Nothing is wrong. T:{ C: UNALL = 0 *Z CPM: pip a:[g#UNALL]=b:*.*[g#UNALL R] C: UNALL = (UNALL + 1) CASE (#UNALL): *Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*Z,*PIPSTOP *PIPSTOP TNR:}Copy complete. Type any key to continue: INMAX: 1 A: J: *BEGIN *BK8 ESC: *BEGIN CLRS: LF: 8 T:{This option displays a list of the files in the set of diskettes made by T: item 3 from the Backfield Options Menu (weekly/monthly whole disk backup). T: Such diskettes cannot be read with the normal DIR command. T: T:}Locate volume 001 of the backup set and insert it in the drive. TNR: Press any key when ready: { INMAX: 1 A: CLRS: LF:12 CPM:BFDIR B:| TNR: Type any key to continue: INMAX:1 A: J:*BEGIN *BK7 ESC: *BEGIN CLRS: LF: 5 T: {This operation copies a file onto the hard disk from diskettes that were Tº madå witè Backfield optioî ##5. This would be an especially large file, T: that is, one too large to fit on a single diskette. CUR: 0, 11 T: }Type the name of the file, including last *SELECT0 CUR: 0, 12 T: CUR: 0, 12 TNR: name and period (if used), and press RETURN:{ INMAX: 13 A: $SELFILE *SELECT1 CUR: 0, 14 T: CUR: 0, 14 TNR: }Enter the user number of the file (0-15):{ INMAX: 2 A: $SELUN M: 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10, 11, 12, 13, 14, 15 BELLN: JN: *SELECT1 CUR: 0, 16 T: CUR: 0, 16 TNR: } You want to restore{$SELFILE}in user{$SELUN}. Correct? Type{Y}or{N}: INMAX: 1 A: M: y,n BELLN: JN: *SELECT1 M: n JY:*SELECT0 CLRS: LF: 7 T: Insert the first backup diskette in the drive and close the latch. T: TNR: Press ESC to quit or anything else to proceed: INMAX: 1 A: CLRS: LF: 11 CPM: SELECT B: $SELFILE /$SELUN| T:} TNR:Press any key to continue: { INMAX: 1 A: J:*BEGIN *MAIN CLRS: LF:11 TNR:{Returning to the Main Menu; please stand by . . . CH: micro.pil