U15000,20480# 50007 "FORMAT1.BIN"J:FORMAT1 INFOm:DATA TO SETUP FOR FORMATTING:1 TRACK OF A DISC:$EC=TRACK NUMBER TO FORMAT:$F3=SIDE (0=SIDE 1,: 1=SIDE 2)։ "DRIVE NUMBER";DV ۉ "TRACK TO FORMAT";TF$ "NO. OF TRKS";TRC "SIDE TO FORMAT(0/1)";SDl "PRESERVE EXISTING TRACK DATA";PR$ PR$"Y" 1000&HEE,8:&HEF,0&HEB,DV:242,TR&HF4,SD:&HF5,1&HF3,SD:&HED,1SD18&HEC,TF"EXECUTING FORMAT"!:READ TO VERIFY4&DV,TF,1SD18,A$,B$ I0 PR$"Y" 1500O:i:PRESERVE TRACK INFOwS118SD 1800 "READING SECTOR:";S DV,TF,S,T1$(S),T2$(S)SS1: S1818SD 1020$ "PROCEED TO FORMAT";A$. A$"Y" 490 : (:RESTORE TRACK DATAC "RESTORING TRACK..."QS118SD_ 1800y "WRITING SECTOR:";S DV,TF,S,T1$(S),T2$(S)SS1: S1818SD 1520 "ERROR ON DISK READ/WRITE" 1040 1050 : 1550