Black.H.S. WBlack Hole Search by G.H. Allen from Sinclair User, Dec'83 j=07  a:"u"+j,a j (M24,60<,126~,219,219,36$,66B,102f 2h=07 < b:"t"+h,b Fh PM102f,66B,36$,219,219,126~,60<,24 Zg=07 d c:"s"+g,c ng xM24,220,166,31,31,166,220,24 e=07 d:"r"+e,d e M24,59;,101e,248,248,101e,59;,24 6 1 0  &2,7;"BLACK HOLE SEARCH" )4,2;"STATUS:Lost in space" ,5,1;"MISSION:Return to Earth" (6,9 ;"through a series of"  7,9 ;"Black Holes" "28,2;"ADVICE:Black Holes only Pulse" ,*9 ,9 ;"for a short time; you" 6,10 ,9 ;"must remember where it" @'11 ,9 ;"is. Avoid heat of" J)12 ,9 ;"stars, as this will" T*13 ,9 ;"throw you off course" ^114,1;"PROBLEM:Only 100 seconds of" h!15,9 ;"oxygen left" i519,8;1;"Press any key":0 k m 6 o 1 r 0 t-2,0;"CONTROLS:z rotates craft" v%3,9 ;"x forward thrust" x'4,9 ;"e causes the Black" z"5,9 ;"Hole to Pulse" |%6,3;"SCORE:2 for each" ~7,9 ;"Black Hole" '8,9 ;"-1 each press of e" E15,2;1;"Ready to start? Press any key":0  ?23674z\,0:23673y\,0:23672x\,0 0:0: sc=0:sd=0 Qs=1̺(*3)+1:*20,*29;3;1;"*":s Wa=2+(*10 ):b=2+(*10 ):a,b;6;164:t=1 d=2+(*18):o=2+(*28):d,o;7;"":.45ffff,10 :.353333,20:h=140(:h:d,o;" " Jm=(23672x\+256*23673y\+65536*23674z\)/5 '0,0;7;m/10 m>1000700 a="z"t=1a,b;6;162:t=2:.1}L,-20:h=120:h a="z"t=2a,b;6;163:t=3:.1}L,-20:h=120:h a="z"t=3a,b;6;161:t=4:.1}L,-20:h=120:h a="z"t=4a,b;6;164:t=1:.1}L,-20:h=120:h `="x"t=1a>2a,b;" ":.01z# =,20:a=a-1:a,b;6;164 a="x"t=2b<29a,b;" ":.01z# =,20:b=b+1:a,b;6;162 a="x"t=3a<19a,b;" ":.01z# =,20:a=a+1:a,b;6;163 &`="x"t=4b>2a,b;" ":.01z# =,20:b=b-1:a,b;6;161 0(a-1,b)=67Cū(a,b+1)=67Cū(a+1,b)=67Cū(a,b-1)=67Ca,b;" ":.1}L,-10 :a=a-(*2):b=b-(*2):a,b;6;161:.1}L,-10 :t=4 :a=db=oa,b;1;4;1;"#":h=140(:h:i=120:.05|L,25-i:i:a,b;" ":sc=sc+2:420 ?^="e"d,o;2;"":.40L,15:h=140(:h:d,o;" ":sd=sd+1 D 450 &e=12:g=16 g  g+1  ;.05|L,20:.05|L,20:.05|L,0 "3,7;"OUT OF OXYGEN" g:e %1,-10 :2,-5  *10 ,2;"Black Hole score ";sc '11 ,5;"- e key press ";sd (12 ,7;"Total score ";sc-sd "Another game(y/n)?";b$  b$="y" *-b$="n":"I enjoyed our game, thank you":