'
' First parameter is whether to use tape (instead of floppies) as the
' archive medium. (typing anything means use tape)
'
Type
[KBD]PF
Due to space problems on the first diskette, a small custom message file,
[Sys]<Sys>CBF>ExecMsg.bin must be present.

Create a file called [Sys]<Sys>CBF>ExecMsg.txt by copying messages
32907 through 32957 (inclusive) from [Sys]<Sys>ExecMsg.txt.

Create the binary file by executing the command Create Message File.
The file will be approximately 5 sectors long.

If you have not done this yet, press ACTIONFINISH, create the file, then
restart this submit file.

If this file is present, press GO.


1Type
[KBD]PF
This submit file creates three floppy disks from which you can boot,
initialize a disk, backup, and restore.

Boot from the first diskette.

Backup andor restore using the second diskette.

Ivolume andor change a disk's name using the third diskette

Note:  After creating these diskettes, do not put write protect tabs on them.


Insert the first blank floppy in drive f0.

Press GO when ready

1
IVolume
f0

Backup13

550
0
0
1
20
yCopy
[KBD]
[f0]<Sys>SignOn.txt
yes

Boot from the first diskette.

Backup andor restore using the second diskette.

Ivolume andor change a disk's name using the third diskette

LCopy
SignOn.run t1Sys.font
[Sys]<Sys>
[f0]<Sys>

y
n
n
yLCopy
InstallVDM.run VDM_Ch.run 720X348_80Sys.font
[Sys]<Sys>
[f0]<Sys>

y
n
n
yLCopy
VDM_Bm.run 1024X768_80Sys.font
[Sys]<Sys>
[f0]<Sys>

y
n
n
yLCopy

[Sys]<Sys>Request.sysInitial
[f0]<Sys>Request.sys

y
n
n
yLCopy
ExecMsg.bin
[Sys]<Sys>CBF>
[f0]<Sys>

y
n
n
yCreate Directory
[f0]<$>
?0LCopy
XBif.run NGenQicServer.run SysInit.run Batch.run
[Sys]<Sys>
[f0]<Sys>

y
n
n
yCopy
[KBD]
[f0]<Sys>SysInit.jcl
yes
$Job SysInit
$Run [Sys]<Sys>XBif.run
$Run [Sys]<Sys>NGenQicServer.run
$End
Copy
[Sys]<Sys>SysImage.sys
[f0]<Sys>SysImage.sys
yType
[KBD]PF
Remove the first diskette and insert the second blank floppy in drive f0.

Press GO when ready

1
IVolume
f0

Backup23



0
1
15
y
15Copy
[KBD]
[f0]<Sys>.User
yes:SignOnVolume:Sys
:SignOnDirectory:Sys
:SignOnFilePrefix:
:SignOnPassword:
:SignOnExitFile:[Sys]<Sys>Exec.Run
:SignOnChainFile:[Sys]<sys>Exec.Run
Copy
[Sys]<Sys>Sys.cmdsInitial
[Scr]<$>Sys.cmds
yCopy
[kbd]
[Scr]<$>args.Tmp
y'Device name'  '[Device password]^'  '[Old volume password]^'  'New volume name'  '[New volume password]'Copy
[kbd]
[Scr]<$>desc.Tmp
y'Change the name and password of a disk volume.'New Command
'Change Volume Name'
[Sys]<Sys>ChgVolName.Run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
y
00
[Scr]<$>sys.cmdsCopy
[KBD]
[Scr]<$>args.Tmp
y'Device name'  '[Device password]^'  'Volume name'  '[Volume password]'  '[System Image (0)]'  '[Log file (0)]'  '[Crash file (0)]'  '[Max. dirs]'  '[Max. files on vol]'  '[Primary file headers only?]'  '[Max. files in Sys Dir]'  '[Sys Directory password]'  '[Write protect Sys Dir?]'  '[Suppress format of medium?]'  '[Surface tests]'  '[Debug=d, Password Encrpt=p]'  '[Log file]'  '[Extended floppy tracks?]'  '[NGen hard disk type code]'  '[Bad spots]'  '[Bad spots]'  '[Bad spots]'New Command
'IVolume'
[Sys]<Sys>IVolume.Run
@[Scr]<$>args.Tmp

y
00
[Scr]<$>Sys.cmds
?0Copy
[KBD]
[Scr]<$>args.Tmp
y'Volume or device name'  '[Volume or device password]^'  '[Incremental from (e.g., Thu Apr 16, 1987 8:00 am)]'  '[Suppress backup?]'  '[Suppress verification?]'  'Tape name'  '[Delete existing archive file?]'  '[Log file]'  '[Display structures?]'Copy
[KBD]
[Scr]<$>desc.Tmp
y'Archive volume files on (QIC) Tape and verify the integrity of the volume.'New Command
'Tape Backup Volume'
[Sys]<Sys>TapeBackupVolume.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
y
00
[Scr]<$>Sys.cmdsCopy
[kbd]
[Scr]<$>args.Tmp
y'Tape name'  '[File list from]*'  '[File list to]*'  '[Overwrite ok?]'  '[Confirm each?]'  '[Sequence number]'  '[Merge with existing file?]'  '[List files only?]'  '[Log file]'Copy
[KBD]
[Scr]<$>desc.Tmp
y'Restore a volume previously backed up on (QIC) Tape.'New Command
'Tape Restore'
[Sys]<Sys>TapeRestore.run
@[Scr]<$>args.Tmp
@[Scr]<$>desc.Tmp
y
00
[Scr]<$>Sys.cmdsLCopy
[Scr]<$>Sys.cmds

[f0]<Sys>

yCopy
[KBD]
[Scr]<$>Temp.Fls
y
	[sys]<sys>?0TapeBackupVolume.run
	[sys]<sys>?0TapeRestore.run
	[sys]<sys>Exec.run
	[sys]<sys>ExecMsg.bin
	LCopy
@[Scr]<$>Temp.Fls
[Sys]<Sys>
[f0]<Sys>

y
n
n
yType
[KBD]PF
Remove the second diskette and insert the third blank floppy in drive f0.

Press GO when ready

1
IVolume
f0

Backup33



0
1
15
y
15Copy
[KBD]
[f0]<Sys>.User
yes:SignOnVolume:Sys
:SignOnDirectory:Sys
:SignOnFilePrefix:
:SignOnPassword:
:SignOnExitFile:[Sys]<Sys>Exec.Run
:SignOnChainFile:[Sys]<sys>Exec.Run
LCopy
[Scr]<$>Sys.cmds

[f0]<Sys>

y
n
n
yDelete
[Scr]<$>Sys.cmdsCopy
[KBD]
[Scr]<$>Temp.Fls
y
	[Sys]<Sys>Ivolume.run
	[Sys]<Sys>ChgVolName.run
	[Sys]<Sys>Exec.run
	[Sys]<Sys>ExecMsg.bin
	LCopy
@[Scr]<$>Temp.Fls
[Sys]<Sys>
[f0]<Sys>

y
n
n
y_?	0
_	p_(*0?@28p<
@?	 JoS_P[opqqOPr