I  I "THIS TEST IS TO CHECK HEAD WEAR AND DOUBLE SIDE READ WRITE OPERATION"J " ":" ": A$"": V: ZIJ( V)"HAS THE DISK BEEN INILITIZED FOR THIS TEST"tJ2 V)"ENTER 'Y' FOR YES OR 'N' FOR NO"J< V) "OR A RETURN TO ABORT TEST":  JF A$JP  JZ A$"N" Jd A$"Y" Jn A$"" & Kx A$"R"  K A$"I" iK A$;" IS AN INCORRECT RESPONSE TO THE QUESTION PLEASE TRY AGAIN":  : K **************************************************************K THIS SECTION READS DATA FROM FILE ,CHECKS IT WITH RECORD NUMBERL AND REPEATS UNTILL ERROR OR DONE^L*************************************************************hL  L V)"WHAT SECTOR DO YOU WANT TO READ"L$ V)"SECTORS ARE CPM 128 BYTE TYPE"L. V)"ADJUST YOUR ENTRY FOR OTHER SECTOR SIZES"+M3 V)"REMEMBER ";Z;" IS THE LARGEST SECTOR INILITIZED"5M5  GM8 CODE%:  MB  ) "GOOD, NOW HOW MANY TIMES DO YOU WANT TO READ IT"ML  MV AM`  Mj "R",,"TESTHEAD.BAS": , AS N$Mt #,CODE%: T (N$)N~ T;"IS THE 128 BYTE SECTOR THAT WAS FOUND"EN CODE%;"IS THE SECTOR THAT WAS SEARCHED FOR"N" ": " ": " SECTOR";CODE%;"IS NOW BEING READ";A;"TIMES"N TCODE%  :  N: X A : "R",,"TESTHEAD.BAS": ,  AS N$N ,CODE% O N(N$): TN  :  O:: X:  JO 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"  O B$"N" :  P B$;" IS AN INCORRECT RESPONSE TO THE QUESTION PLEASE TRY AGAIN": " ":" ": YP****************************************************************P THIS SECTION WRITES A FILE TO THE FLOPPY WITH THE DATA IN THE P RECORD = TO THE RECORD NUMBER. ONE RECORD IS 128 BYTES%Q ***************************************************************SQ "R",,"TESTHEAD.BAS": , AS N$:  Q V)"HOW MANY SECTORS ARE TO BE INILITIZED"Q  V)"SECTORS ARE CPM 128 BYTE TYPE"Q V)"ADJUST YOUR INPUT FOR OTHER SIZE SECTORS":  R  Z:  : )"INITLIZING":  ?R* X Z : CODE%X: N$(X): ,CODE%UR4 X:: A$"I": R ***********************************************************R CLEAR THE SCREENR ***********************************************************S X  : " ": X :1S X  : " ": X :rS ***********************************************************S EXIT TO SYSTEM AND ERROR MESAGES ************************************************************T V)"DATA HAS BEEN DESTROYED IN SECTOR ";CODE%BT " ": V)"AFTER ";X;" READ CYCLES"rT " ":" ": )"THIS TEST DID NOT PASS":T&  :"GOOD-BY ":  :COD