*INTRO
CPM:AUTO DIR
CLRS:
T:{
T:This program automatically runs FORMAT, SYSGEN, and copies AUTO.COM.
T:
T:Diskettes prepared by this program AUTOmatically display their directory.
T:
T:
T:Using this program is an easy way to prepare new diskettes for the Morrow.
T:
T:It will also completely erase and "reclaim" used diskettes.
T:
T: 
T:    To prepare a diskette, type P and press RETURN.
T:
T:    To return to CP/M, type C and press RETURN.
T:
*RESPOND
T:
TNR:Type either P or C and press RETURN.  
A:
M: P , C ,
JY:*STEP
JN:*RESPOND
*STEP
M: P ,
JY:*MAINPGM
M: C ,
CPMY:AUTO PILOT NEWDISK
END:
*MAINPGM
CLRS:
T:
T:
T:    Since FORMAT erases everything on a diskette, be sure
T:    you don't put a diskette with anything valuable on it
T:    in the upper (B:) drive.  This can cause great anguish!
T:
T:
TNR:Insert a BLANK diskette in the UPPER (B:) drive and press RETURN.  
A:
R:For a single sided system take the letter D out of the FORMAT instruction
R:in the next line.  i.e. FORMAT B;;SYS...
CPM:FORMAT B D;;SYSGEN;A;B;;PIP B:=A:AUTO.COM[V]
CLRS:
T:
T:The blank diskette is now ready for use.
T:
T:Remove it from the UPPER (B:) drive.
T:
T:You may now prepare another diskette (P),
T:    or you may return to CP/M (C).
T:
J:*RESPOND
R:End of program