Home Base ~1~XHome Base by David Naylor from ZX Computing Feb/Mar.1984  5050  7: hi=0  scs=0 -instructions 1321,6;1;"DAVID NAYLOR 1983" 29 ,0;1;1;"H * O * M * E B * A * S * E" 4Qr=120:.05|L,r:.01z# =,r+10 :.001wn,r-20:r A\502::0,0;"SCORING : 2,4,6,8,10,12,14pts depending on level for moving forwards left right 50pts for a shooting star(*) for a star(.) 100pts for a power pack(#) 150pts for a flying saucer(^) 200pts on completing return" B&11 ,3;"SKILL LEVELS: 1...50*(X) ,350 secs 2..100*(X) ,175 secs 3..150*(X) ,113 secs 4..200*(X) , 85 secs 5..250*(X) , 70 secs 6..300*(X) , 58 secs 7..350*(X) , 50 secs" H21,9 ;"PRESS A KEY":0::5,0;"USE '9' FOR LEFT '0' FOR RIGHT '1' FOR DOWN YOU MOVE FORWARDS AUTOMATICALLY" K521,5;"PRESS A KEY TO START":0: MV"IF YOU WISH SKILL LEVELS TO BUILD UP AUTOMATICALLY(1 TO 7), THEN PRESS 'a'.";l$ Nl$="a"di=1:88X P"LEVEL OF DIFFICULTY(1-7)";di U!di<1di>780P X sc=0 Zl=di*2 _l>9 l=9 f1:4: sinitial plotting x!0,9 ;"PLEASE WAIT" q=0502*di *s=(*31):k=(*21)+3 k>21k=21 k,s;"X" .05|L,*502 q=502*di160 21,0;" " q r=21:c=0 $*17+3,*31;"#" $*17+3,*31;"." $*17+3,*31;"^" $*17+3,*31;"*" *0,5;"PRESS ANY KEY TO MOVE" 62,0;" H * O * M * E B * A * S * E " r,c;"" 0 ^0,0;1;" " " r,c;" " ' set up loop ,w=1̺350^/di .w=350^/di1100L / r,c;"" 0l>9 l=9 2scoring/timing/lives 3'0,25;1;"LIVES:";l 50,12 ;"LEVEL:";di 8'0,0;1;"SCORE:";sc 9hi20*x2,0;2;"<<<<";2,28;2;">>>>" OYsc>30*x2,4;2;"<<<";2,25;2;">>>" TWsc>90Z*x2,7;2;"<<";2,23;2;">>" VVsc>120x*x2,9 ;2;"<";2,22;2;">" W[sc>180*x2,10 ;2;"<<<";2,19;2;">>>" XZsc>220*x2,13 ;2;"<<";2,16;2;">>>" Y`sc>280*x2,0;" T O O L A T E ":200:3000 \ r,c;" " ]moving ^(="9"c=c-1:sc=sc+(di*2) c="1"r=r+1 h(="0"c=c+1:sc=sc+(di*2) j'=""r=r-1:sc=sc+(di*2) mr>20r=21 nc<0c=0 oc>30c=31 qposition scan r(r,c)="#"7000X s(r,c)="."7100 t(r,c)="^"7200  u(r,c)="*"7300 v(r,c)="X"7400 w(r,c)="<"1000 x(r,c)=">"1000 y+1,18;1;"TIME GONE:";w {r=22000 |rnd. plotter }x=(*31) z=(*21) z<3380|  z,x;"X" r<2r=2 w $lives gone/hit something/time gone -10 ,9 ;1;"YOU'RE DEAD!!!" .a=0-20-1:.05|L,a:a &:10 ,9 ;"AGAIN?(Y OR N)" a$ hi