I  I "THIS TEST IS TO CHECK HEAD WEAR AND DOUBLE SIDE READ WRITE OPERATION"0J"INSERT A WRITE ENABLED DISK IN B AND TYPE RETURN";Q$:  TJ " ":" ": A$"": V: ZJ( V)"HAS THE DISK BEEN INILITIZED FOR THIS TEST"J2 V)"ENTER 'Y' FOR YES OR 'N' FOR NO"J< V) "OR A RETURN TO ABORT TEST":  JF A$JP  KZ A$"N" Kd A$"Y" 0Kn A$"" & CKx A$"R"  XK A$"I" K A$;" IS AN INCORRECT RESPONSE TO THE QUESTION PLEASE TRY AGAIN":  : K **************************************************************5L THIS SECTION READS DATA FROM FILE ,CHECKS IT WITH RECORD NUMBER\L AND REPEATS UNTILL ERROR OR DONEL*************************************************************L  L V)"WHAT SECTOR DO YOU WANT TO READ"L$ V)"SECTORS ARE CPM 128 BYTE TYPE"1M. V)"ADJUST YOUR ENTRY FOR OTHER SECTOR SIZES"lM3 V)"REMEMBER ";Z;" IS THE LARGEST SECTOR INILITIZED"vM5  M8 CODE%:  MB  ) "GOOD, NOW HOW MANY TIMES DO YOU WANT TO READ IT"ML  MV AM`  Nj "R",,"B:TESTHEAD.BAS": , AS N$&Nt #,CODE%: T (N$)VN~ T;"IS THE 128 BYTE SECTOR THAT WAS FOUND"N CODE%;"IS THE SECTOR THAT WAS SEARCHED FOR"N" ": " ": " SECTOR";CODE%;"IS NOW BEING READ";A;"TIMES"N TCODE%  :  O: X A : "R",,"B:TESTHEAD.BAS": ,  AS N$-O ,CODE%OO N(N$): TN  :  aO:: X:  O V)"DO YOU WISH TO TEST ANOTHER SECTOR"O V)"ENTER 'Y' FOR YES OR 'N' FOR NO":  O B$: A$"R"O B$"Y"  P B$"N" :  XP B$;" IS AN INCORRECT RESPONSE TO THE QUESTION PLEASE TRY AGAIN": " ":" ": P****************************************************************P THIS SECTION WRITES A FILE TO THE FLOPPY WITH THE DATA IN THE $Q RECORD = TO THE RECORD NUMBER. ONE RECORD IS 128 BYTESjQ ***************************************************************Q "R",,"B:TESTHEAD.BAS": , AS N$:  Q V)"HOW MANY SECTORS ARE TO BE INILITIZED"Q  V)"SECTORS ARE CPM 128 BYTE TYPE".R V)"ADJUST YOUR INPUT FOR OTHER SIZE SECTORS":  UR  Z:  : )"INITLIZING":  R* X Z : CODE%X: N$(X): ,CODE%R4 X:: A$"I": R ***********************************************************R CLEAR THE SCREEN:S ***********************************************************YS X  : " ": X :xS X  : " ": X :S ***********************************************************S EXIT TO SYSTEM AND ERROR MESAGE-T ************************************************************aT V)"DATA HAS BEEN DESTROYED IN SECTOR ";CODE%T " ": V)"AFTER ";X;" READ CYCLES"T " ":" ": )"THIS TEST DID NOT PASS":T&  :"GOOD-BY ":  :CODE%T " ": V)"AFTER ";X;" READ CYCLES"T " ":" " ( Ϳ ~ Ϳ Ͱ ʵ .͍ =¥ ` |¥ }w#~ ÿ >2F͊ ! =¥ ` }ʥ +"G> Å >  !  #