@O@ "THIS PROGRAM ADDS 18 BLOCKS OF STORAGE ON A 1571 BY MAKING 18 OTHERWISE@"UNUSED SECTORS ON TRACK 53 AVAILABLE. THIS PROGRAM WILL FORMAT THE DISK@"THEN MAKE THE NECESSARY WRITES TO THE BAMNA("INSERT THE DISK TO BE FORMATTED - PRESS A KEY":A$:"DISK WILL NOW BE FORMATTED, PRESS ESC TO ABORT":A$:A$(27)A2"ENTER DISK NAME - 16 CHARS MAX.":NA$:"ENTER 2 CHAR ID":ID$A4NA$""ID$""A71,8,15,"N0:"(NA$,16)","(ID$,2)B<"FORMATTING IN PROGRESS - WAIT":DS:"DISK ERROR: ";DS$:[BA" FORMATTING COMPLETE - WRITING ADDITIONAL SECTORS TO BAM - WAIT"BF2,8,2,"#":E8$(20):F3$(254)(255)(31)BP1,"U1:2,0,18,0":1,"B-P:"2,238:2,E8$;:1,"U2:2,0,18,0":DS$CZ1,"U1:2,0,53,0":1,"B-P:"2,51:2,F3$;:1,"U2:2,0,53,0":DS$::CdJCn"ANOTHER DISK (Y/N)?":A$:A$"Y":50