ElectroMan  z wElectro-Man in Revenge of the Bugs by Paul Bailey from Sinclair User, Jul'85 keys=0  bug=1  c=1 0:0:5: *************** *ELECTRO - MAN* *************** ( I N )REVENGE OF THE BUGS * 2 1985 By Paul Bailey < As$="PL(EE)S'W(AY)T" F 0: b23658j\,255 c410 ,10 ;7;1;"PLEASE WAIT" Bug 1 g="c""f"+7:d:g,d:g .129,247,236,89Y,60<,63?,120x,112p,129,239,557,154,60<,252,30,14,96`,40(,31,15,30,12 ,116t,240,6,12 ,248,240,123{,546,46.,28 Bug 2 g="g""j"+7:d:g,d:g 7121y,247,236,153,188,63?,127,113q,158,239,557,153,61=,252,254,142,102f,63?,31,15,222,108l,116t,568,102f,252,248,240,120x,480,46.,15 Barrier g="n""n"+7:d:g,d:g K0,0,129,195,195,195,129,0 Mr.'CRASH'!  g="o""t"+7:d:g,d:g 199,255,91[,61=,35#,117u,121y,255,129,231,255,255,255,219,255,255,227,255,218,188,196,174,158,255,203,234,96`,106j,106j,254,63?,7,170,170,0,0,170,170,255,255,163,167,6,166,166,190,252,224  g="u""u"+7:d:g,d:g 01111110~,11111111,11111111,11111111,11111111,11111111,11111111,01111110~ 0:0:5: &d=1:0:0:5 ":1:6:a$="ELECTRO - MAN":400:0 ,a$="I N":400 6@1:a$="REVENGE OF THE BUGS":400:0:5 ;'S$="D(OUU)'Y(OUU)'WONT'INSTRC(SH)uNS" @]a$="DO YOU WANT INSTRUCTIONS? Y/N":400:0:d$=¾23560\:d$="N"500 J8:d=1::a$="I N S T R U C T I O N S":400 T2a$="You take the part of ELECTRO-MAN":400 U2a$="who has the power to change into":400 V2a$="anything he likes.His mission is":400 W,a$="to destroy the bugs in the":400 X+a$="national defence computer":400 d1a$="For this mission he has changed":400 e0a$="into a laser which you control":400 g\1:7:1:a$="ANY KEY TO GO ON":400:0:0::d=1 h!a$="C O N T R O L S":400 i&6:a$="Q------LEFT":400 ja$="W------RIGHT":400 ka$="L------DOWN":400 la$="P------UP":400 md=d-1:a$="DON'T TOUCH ANYTHING AT ALL ON":400:a$="THE SCREEN OR YOU WILL DIE!":d=d-1:400:5:a$="There is a time bomb in the":400 n/a$="centre of the screen. When it":400 o0a$="explodes it will kill the bugs":400 r_1:7:1:a$="PRESS ANY KEY TO PLAY":400:0:0:500  x=a$:x=(32 -x)/2 #g=1̱a$:.004yn,6 (d,x+g-1;a$(g):g:d=d+2: ***************  (5:0:0::VARIABLES -sc=0:men=3:tm=20:bo=tm *h$(2,2):l$(2,2) $h$(1)="":h$(2)="" $l$(1)="":l$(2)="" &x=240:y=88X 0Nh=-3:v=-3:m(2):m(1)=16:m(2)=16 D bug=1 XSCREEN bC252,8:0,167:254,8:0,166:2,8:95_,0:26,30:20,0:26,-30:84T,0:0,166:-84T,0:-26,-30:-20,0:-26,30:-95_,0:0,-166 g621,0;"" i621,0;"" l>g=-10 7:k=15:.003xD,g+h:k:g v,9 ,15;7;1;"" C10 ,15;7;1;"";1;tm;0;"" -11 ,15;7;1;"" o=-2:p=2  MAIN LOOP Ja=12:4;x,y:.002xn,0:.002xn,-4 Jz=16:4;x,y:.002xn,0:.002xn,-4 )hit=(x+h,y+v):hit=12000 +hit=(x+h,y+v-v):hit=12000 5hit=(x+h,y+v-(v-1)):hit=12000 KEYBOARD INPUT n=23560\ ?j=h:h=0:h=h-(n=81Q)+(n=87W):h=0h=j ?j=v:v=0:v=v-(n=76L)+(n=80P):v=0v=j h=h+(h=1)-(h=-1) v=v+(v=1)-(v=-1) x=x+h:y=y+v ,t=(*10 )+1: BIG BUG t>79 ,25;" ";10 ,25;" ":9 ,2;6;1;"";10 ,2;"":.002xn,40(:.002xn,502:.002xn,60< t<39 ,2;" ";10 ,2;" ":9 ,25;6;1;"";10 ,25;"":.002xn,40(:.002xn,502:.002xn,60< z  MOVE BUGS .001wn,10 :.001wn,20:14,m(1);" ";3;h$(bug);" ":15,m(1);" ";3;l$(bug);" "  .001wn,-10 :.001wn,-20:5,m(2);" ";6;h$(bug);" ":6,m(2);" ";6;l$(bug);" " *%bug=1bug=2:830> 4 bug=1 >2m(1)=m(1)+o:m(2)=m(2)+p H m(1)<10 o=2 R!m(1)>17o=-2 \ m(2)<10 p=2 f!m(2)>17p=-2 p410 ,16;7;1;1;" " u210 ,16;7;1;1;tm zD21,1;2;6;"SCORE=";sc;" ";"LIVES=";men G.002xn,40(:l=(*12 )+5:q=(*29)+2 (l,q)=71G895 l,q;4;1;"" La:sc=sc+5:tm=tm-1:.01z# =,-2:tm>0700  EXPLODE! Qb$(3,4):b$(1)="":b$(2)="":b$(3)="" 17,15;5;"BONUS ";bo*10 sc=sc+bo*10 'g=120:j=13 2f=(*3)+1:k=(*5)+-10 2.003xD,k+10 :8+j,15;b$(f) j:g  150: $C2,15;4;"";3,15;4;"" .7s$="(II)(LL)'GET'Y(OUU)'(DTH)IS'T(II)M'ILECTR(OO)MAN" 3 d=16 8-::a$="I'LL GET YOU THIS TIME!":400 B: V=6:a$="GET READY FOR NEXT LEVEL!":400:5 `U0::x=240:y=88X:h=-2:v=2:tm=bo+5:580D .x=240:y=88X: LIFE LOST j=40(-5-1 &.04|# =,j:(*7)+1:j men=men-1  0: 1:g=021 'x$="" "2;6;1;x$:g  20:9 ,7;"OH NO!, YOU CRASHED!" 3men>011 ,10 ;"LIVES LEFT ";men  9men=011 ,11 ;"GAME OVER":21004 *.0:h=-2:v=-2::580D 4 R . I . P 9 0 >:: H12 ;" " R12 ;" R.I.P " \(g=16:12 ;" ":g f: pR6;" YOUR SCORE WAS :";sc::" ":" " z&s$="PRES'EN(EE)'K(EE)'T(OUU)'PL(AY)" 7:" PRESS ANY KEY TO PLAY":0:280 END OF PROG. ro\inR