Galastica __aWBattleship Galastica by Anthony Silas from Sinclair User, Apr'84 =The UDG definitions were not printed in the magazine  hi=0 s=0:p=500 dim=1+(*4) di=1+(*4) xb=1+(*4) (yb=1+(*4) 2xf=1+(*4) <yf=1+(*4) F+xf=xbyf=ybdim=di1+(*502) Z0:1: da=14211 f8a,0;1;"" ha i 110n j-1,4;"HYPERSPACE JUMP COMPLETE" k 0 l>1,0;0;" " nI15,3;1;7;"POSITION OF FIGHTER X1 ";xf;",";yf x616,10 ;1;7;"DIMENSION ";di I18,3;1;7;"POSITION OF BATTLESHIP ";xb;",";yb 919,7;7;1;"DIMENSION UNKNOWN" F21,1;7;1;"SCORE=";s;" HI=";hi;" POWER=";p b=(*5) b1250 c=b2-1 f=7:g=16 ,xa=(*31):ya=2+(*11 ) c-1=1k$="ALIEN " !c-1>1k$="ALIENS " :1,11 ;1;6;" ";c-1;" ";k$ 0 A21,1;1;"SCORE=";s;" HI=";hi;" POWER=";p;" " ya,xa;6;"" f,g;0;" " *g=g+(="p"g<31)-(="o"g>0) *f=f+(="a"f<13 )-(="q"f>2) f,g;7;"" ="m"241 "(*10 )2196 l=(10 +40(*) l.1}L,2:.1}L,1:.1}L,2:.1}L,1:.1}L,2:.1}L,1 p=p-l:p0500 >1,0;0;" " 196 7:0,64@:g*8,(13 -f)*8:255,64@:(g*8)-255,(13 -f)*8:10 1;0,64@:1;g*8,(13 -f)*8:1;255,64@:1;(g*8)-255,(13 -f)*8 ;.05|L,3:.1}L,2:f=yag=xa245 196 s=s+(20+30*) f,g;0;" " F21,1;7;1;"SCORE=";s;" HI=";hi;" POWER=";p c xf=xbyf=ybdim=di400 =1,0;7;"YOU ARE FREE TO MAKE A MOVE NOW" ="5"300, ="6"3106 ="7"320@ "="8"330J $="d"340T ' 260 ,yf1260 1yf=yf-1:350^ 6xf1260 ;xf=xf-1:350^ @xf4260 Exf=xf+1:350^ Jyf4260 Oyf=yf+1:350^ T2xf=1+(*4):yf=1+(*4) U="1"di=1:350^ V="2"di=2:350^ X="3"di=3:350^ Z="4"di=4:350^ \ 341U ^>1,0;0;" " hn=016 m17,n;7;".";7,31-n;"." r .1}L,n |17,n;0;" ";7,31-n;" " n  106j 0:1: ^1,0;7;"PRESS 's' TO SWITCH TO EXTERNAL";3,10 ;"VIDEO CAMERA" ="s"440  420  p19,0;4;" "  600X  0  &3,12 ;7;"UNLUCKY" Hp05,5;7;"YOU RAN OUT OF POWER":524   05,6;7;"YOU FAILED TO DOCK"  17,6;7;"WITH THE BATTLESHIP"  s>hihi=s  F21,1;7;1;"SCORE=";s;" HI=";hi;" POWER=";p  580D & 0 + 0)3,11 ;7;"WELL DONE!" 565,4;7;"YOU HAVE MANAGED TO DOCK" :;7,1;7;"WITH THE BATTLESHIP GALASTICA" <s=s+(502+502*) = s>hihi=s ?F21,1;7;1;"SCORE=";s;" HI=";hi;" POWER=";p D"ANOTHER GO (y/n)?";j$ Ij$="Y"j$="y"5 Nj$="N"j$="n" S 580D X9y=(*26):h=(*32 ):x=18:g=1 bx,y;4;"" lhyg=x500 ng,h;6;"" qh=yg=x-1550& v="p"Ŧ="o"Ŧ="q"700 { g,h;" "  g=g+1  620l g,h;0;" " g=g-2*(="q"g>0) *h=h+(="p"h<31)-(="o"h>0) h=yg=x-1550&