L SL(C) HIKILGh`HIh`*!BOOT,,,0C $,H $,. $," $,R $," $, $,` `FH*R#O  7  23,1,0,0;0;0;0; :X=6:Y=3:Y=Y+2:N=0:X,Y);148;:N=N+1:124;124;52;:N=8::N=0:X,Y+1);148;:N=N+1:255;255;53;:N=8::Y=9:6,12);132;"Cambridge Computer Store"  P=14 15:8,P)130;141;"Disc Alingement Rom":P: P=17 *R#O18:11,P)131;141;"By K.V.Gill.":P:4,21);148;157;136;131;"Press Space To Continue ";156  =32 # 21 ( *ROM 2 "R1" a[*PAR1@@jWPW*D@c *_*i*K"(P (          S*R1,R5  6  *KEY 10 O.|MRUN|M  Tr@  *ROM ( *L. PAR1 2 *DISC < 7 F setup P vdu Z go d n setup  23,1,0;0;0;0; Q LOC=&4000:D%=LOC+&18:T%=LOC+&1F:E%=LOC+&22:A%=&7F:X%=&18:Y%=&40:OSWORD=&FFF1 *FX11,0  vd;)#u  & 12,2);130;141;" DISC TESTER " ( 12,3);130;141;" DISC TESTER " 2 ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," " 1 Format a disc." " 2 Verify a disc."  " 3 Alignment aid."  " 4 Exit from pr/#og." : /",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," 13,21);134;"(C) KEVIN VAHN GILL 1984 V2.40" "50,20)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," ,50,22)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,," 6 @go J5,14);"ENTER TEST ";Z v#T Z=1 format ^ Z=2 verify h Z=3 align r Z=4 end | DJA   end  :   clear1 A C=5 10:0,C);" ";:   clear2 C C=0 5:0,C+13);" (# ";:   align  clear1  clear2 '12,2);130;141;"ALIGNMENT " '12,3);130;141;"ALIGNMENT "  0,5) &," 1 Track 0 6 Step in one track" 0," 2 Track 16 7 Step out one track" :/" 3 Track 32 # 8 Track 0 Switch Test" D$" 4 Track 39 9 Enter Track" N%" 5 Track 79 0 Exit to Menu" X)5,14);"Enter Drive No";D:?D%=D b clear2 l 5,14);"Enter Test " v clear2 ?T%=0: OSWORD  A$=(0) A$>"" key - 5,16);130v#;141;"TRACK NO ";?T%;" " . 5,17);130;141;"TRACK NO ";?T%;" "  OSWORD  A$="0" vdu   key  A$="1" ?T%=0:  A$="2" ?T%=16:  A$="3" ?T%=32:  A$="4" ?T%=39:   A$="5" ?T%=79:  A$="6" ?T%=?T%#+1:   A$="7" ?T%=?T%-1: * A$="8" sw 4 A$="9" enter > H sw R clear2 \1 A$=(0):?T%=0:OSWORD:?T%=1:OSWORD:A$>"" f t@B p z enter  clear2  5,15);"Enter Track ";T  clear2  ?T%=T  tJB  f9#ormat  clear2 &12,2);130;141;" FORMATER " (12,3);130;141;" FORMATER " 0,5):OSWORD=&FFF1   $5,14);"FORMAT WHICH DRIVE";  DRNUM$:DRNUM$>"" D%=(DRNUM$)  D%<4 $ . 5,16);" 40 OR 80 TRACKS"; 8$TN$P#:TN%=(TN$):TN%=40 TN%=80 B clear2 L25,14);" FORMAT ";DRNUM$;", ";TN%;" Y/N"; V A$:A$,1)="Y"A$,1)="y" ` clear2 jB%20,S%300,V%20,Z%600 tE%=0 ~*B%?0=D%:B%!1=Z%:B%?5=1:B%?6=&69:B%?7=0 !X%=B%:Y%=X%256:A%=&7F:&FFF1 + U%=09:S%?#(U%*4+1)=0:S%?(U%*4+3)=1 U% oB%!1=S%:B%?5=5:B%?6=&63:B%?8=&10:B%?9=&2A:B%?10=0:B%?11=&10:V%?0=D%:V%!1=Z%:V%?5=3:V%?6=&5F:V%?8=0:V%?9=&2A T%=0 TN%-1:O%=7+7*T%  U%=09 + S%?(U%*4+0)=T%:S%?(U%*4+2)=(O%+U%)10 U% XB%?7=T%:V%?7=T%:@%=&U#00000004:2,15);130;141;"FORMATING / VERIFYING: TRACK ";T% :2,16);130;141;"FORMATING / VERIFYING: TRACK ";T% #X%=B%:Y%=X%256:A%=&7F: OSWORD 7 X%?12<>0 clear2:5,16);"DISK ERROR ":error  E%=0:  #X%=V%:Y%=X%256:A%=&7F: OSWOR#D  E%=E%+1 E%>10 X%?10=0 ( T% 23 E%>10 clear2:5,16)"DISC ERROR":error <U%=0511:Z%?U%=0:U% FZ%?262=(TN%*10 256) PZ%?263=(TN%*10 256) Z2B%!1=Z%:B%?5=3:B%?6=&4B:B%?7=0:B%?8=0:B%?9=&22 d#X%=B%:Y%=X%256:A%=&7F: OSWORD n6 a'#B%?10<>0 clear2:5,16);"DISC ERROR":error x clear2 '5,14);"FORMAT ANOTHER DISC Y/N";  A$ ' A$,1)="Y" A$,1)="y" format  DF@  error 4 5,18);"BAD ERROR PRESS SPACE":=" ":DxE  verify '12,2);130;14#1;" VERIFIER " (12,3);130;141;" VERIFIER "  clear2 #5,14);"ENTER NO OF TRACKS";T %5,16);"ENTER DRIVE NO";D:?D%=D  clear2  P=0T-1:?T%=P %10,14)130;"VERIFYING DRIVE ";D 37,16)132;"ERROR ";?E%;19,16);" AT TRACK'*R1f,. ";P " OSWORD ,:?T%=0: OSWORD 6@5,18);136;130;" PRESS SPACE TO CONTINUE!":=" ":DF@ 9+