@%@" *** AUTO BOOT CREATOR ***"+@O@ BY FRED BOWEN & TERRY RYANU@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$@B15,"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: I8A~: A: A$(BL$,I,1)A: A$;A: II1A: A$NU$B: B: : LB: "*** BOOT SECTOR USED BY ANOTHER PROGRAM ***"XB: B: " CONTINUE (Y/N) N";A$B: A$"Y" E1: 1720B: BA 1BB" ENTER YOUR PROGRAM'S NAME "B " (UP TO 16 CHARACTERS) "C" STARTUP";F$#C:6C((F$)16 WC2: " THAT'S TOO BIG!";bC<: 2oCF: 1300yCP: CZF$""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: 2jD: ""(27)"@"wD: 1410D: 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: 1720E6:E@AA (F$)("B00")15FJAL AA 255: AH AA 256FT:-F^15,"B-P 8 0"WFh8, "CBM";NU$;NU$;NU$;NU$;F$;NU$;NU$;zFr8, (162);(AL);(160);(AH);F|8, (76);(("A5"));(("AF"));F8, RM$;(34);F$;NU$F15, "U2:8 0 1 0"F BA0 15, "B-A 0 1 0"FA$DS$F: G8: 15*G E "*** ABORTED ***": @G "*** DONE ***"FG