type bat.com
bat    **  Starting utility to backup BAT diskette  **

BAT * READ SERIAL NUMBER FROM PROGRAM HEADER
bat -serial
bat	readscrn %a %b %c		|* get the serial # from the screen
bat	if %c <> (C)opyright goto -serial |* loop until it's the proper line.

BAT * GIVE INTRO TO THIS BACKUP PROGRAM.

bat cls type YOUR PROGRAM SERIAL NUMBER IS %a
bat begtype

Remember this serial number if you have
specific questions or problems.

This program is user supported.  Private
users may contribute ($30 suggested) if
you feal this program is of value to
you.  The $30 license fee (per system)
is required for COMMERCIAL USERS if used
in a place of business or incorporated
into another product.

You may contact Seaware by writing
	SEAWARE CORP.
	P.O. BOX 1656
	DELRAY BEACH, FL  33444

end
bat inkey Press any key to continue . . .

bat * INTRODUCE FIRST SECTION OF BACKUP

bat cls begtype
ออออ Backup proceedure will follow อออ

To backup the program diskette supplied
by Seaware, you must have a spare
diskette with about 60,000 bytes of
space remaining on it.	The program and
all utilities will be copied to your
diskette.

ON A DUAL DISKETTE SYSTEM:

Make sure the master supplied by Seaware
is in drive A and your spare is in drive
B.

ON A SINGLE DISKETTE SYSTEM:

Use the Seaware master as diskette A and
your spare as diskette B. Follow the
prompts suplied by DOS to switch
diskettes.

end
bat	read Continue? (Y/N) %a     |* get answer
bat	%a = %a $ 1 1		    |* isolate 1st char in case replied "yes"
bat	if %a <> y exit

bat * STACK NECESSARY COPIES FOR DOS TO PICK UP.

bat	begstack
rem	BACKUP PROCESS STARTING . . . .

copy	A:BAT.COM	B:
copy	A:BATDOC.COM	B:
copy	A:BATDEMO.BAT	B:
copy	A:BACKUP.BAT	B:
copy	A:VCOPY.BAT	B:
copy	A:EDIT.BAT	B:
copy	A:TELE.BAT	B:

rem	BACKUP PROCESS HAS COMPLETED . .
end
