@%@" *** AUTO BOOT CREATOR ***" +@ O@   BY  FRED BOWEN & TERRY RYAN U@ q@15,8,15,"IJ": NU$(0) @:   DS  "*** DISK ERROR: ";DS$: E1: 1720 @$8,8,8,"#" @.15,"U1:8 0 18 0":15,"B-P";8;5 @8:  #8,BA$ @B15,"U1:8 0 1 0" 'AL:  I024: #8,A$: BL$BL$((A$)):  ?AV ((BA$)1)0   \A`:   (BL$,3)"CBM"   Aj:     "*** ALREADY A BOOT DISK: "; At:     I8 A~:      A:        A$(BL$,I,1) A:        A$; A:        II1 A:          A$NU$ B:     B:    :   LB:     "*** BOOT SECTOR USED BY ANOTHER PROGRAM ***" XB:     B: " CONTINUE (Y/N)       N";A$ B:  A$"Y"  E1: 1720 B: BA  1 B B " ENTER YOUR PROGRAM'S NAME " B
" (UP TO 16 CHARACTERS)     " C"  STARTUP";F$ #C: 6C((F$)16   WC2:  "     THAT'S TOO BIG!"; bC<:  2 oCF:  1300 yCP:   CZF$"" Cd: Cn" ENTER YOUR PROGRAM'S TYPE " Cx" ('BASIC' OR 'BINARY')     " C"  BASIC";T$ C: D T$"BASIC"  T$  "BINARY"   HD:  "     ENTER 'BASIC' OR 'BINARY'"; SD:  2 jD:  ""(27)"@" wD:  1410 D:   D T$"BASIC"  RM$"RUN" :  RM$"BOOT" D: D" REMOVE THE  WRITE PROTECT " D" TAB FROM THE DISK AND PUT "  E" YOUR DISK INTO DRIVE 0 OF " DE" UNIT 8.  BE VERY CAREFUL! " hE" THIS PROGRAM WILL DESTROY " E" DATA IN TRACK 1 SECTOR 0. " E"" PRESS  RETURN TO CONTINUE " E,A$:  (A$)13  E1: 1720 E6: E@AA (F$)("B00")15 FJAL AA  255:   AH AA  256 FT: -F^15,"B-P 8 0" WFh8, "CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$; zFr8, (162);(AL);(160);(AH); F|8, (76);(("A5"));(("AF")); F8, RM$;(34);F$;NU$ F15, "U2:8 0 1 0" F BA0  15, "B-A 0 1 0" FA$DS$ F: 	G8: 15 *G E  "*** ABORTED ***":  @G "*** DONE ***" FG                                                          