S53280:S,6:S1,6:TL$""^BL$""yT18:TKT:15,8,15,"I"" "TL$""#" 1541 ALIGNMENT CHECK "(" "TL$""-" BY GREG GRANVILLE"+ 2" ACTUAL HEAD POSITION"W 7" TRACK = "m <" "BL$"" A" POSITION READ FROM DISK" F" TRACK = " K" "BL$"" P" ERROR STATUS"K U" " " "a Z" "BL$"" _" ALIGNMENT STATUS" d" " " " i" "BL$"" n"PUSH JOYSTICK LEFT & RIGHT TO MOVE HEAD"G s" HOLD FIRE BUTTON TO READ DRIVE STATUS"M x:n } ************************** *** CALCULATE T/S READ *** ************************** : 15,"M-R"(0)(28) #15,F$:F$""F$(0) A(F$) BT3A, A(159A)(9632((T17)(T24)(T30)))M 15,"M-W"(0)(28)(1)(A4)S :x ****************************** *** PRINT STATUS TO SCREEN *** ****************************** : ""21)T" " E2""12)"NO ERROR DETECTED"L E1""12)"READ ERROR SENSED"f R$(TK):E1R$" " TR$(R$,2):""22);TR$ E0 (TR$)(T.5)(TR$)(T.5)245 E1T(T)""14)"ALIGNMENT OK ":E0:275(E1T(T)""14)"ALIGNMENT BAD":E0:2751250\""14)"ALIGNMENT BAD":E0:275~""14)" NOT CERTAIN " *************************** ****** READ JOYSTICK ******  ***************************:J(56320)15 (653)410%((56320)16)410<"J4T1C1:340S'J8T35C1:340~,(197)3315,"I":T18:E0:A214:1601(197)235206145;:@ ****************************E *** CHANGE HEAD POSITION *** J ****************************O:TBT(BTC)35YTTC.5:T1T1A^TK(T)PcT35T35]hBA 252hmCBBTr15,"M-W"(0)(28)(1)(C)wE0|145: *********************** *** READ THE HEADER *** ***********************: M$"":&Y111:X:M$M$(X):C15,"M-W"(0)(3)(11)M$c15,"M-W"(0)(0)(1)(208)y15,"M-R"(0)(0)#15,ER$:E(ER$(0))E127340E1145: **************************** *** NO ERROR/GET TRACK # ***  ****************************&:A15,"M-R"(22)(0)(4)VZ12:#15,B$:p#15,B$:TK(B$(0))y145: **************************** *** EXIT/DRIVE MOTOR OFF *** ****************************: 15,"M-W"(0)(28)(1)(0) X110:X$:P15:"MOTOR OFF"(13)"PROGRAM TERMINATED":{169,48,133,69,169,0,133,63,76,177,243