Fire Trap    Fire Trap by Howard Dowthwaite >Modificatins - Control key changes, level counter - by Jimmy  2000 hs=200:i$="4LET" K7:0:0::1000:e=502:r=0:s=0 a$(21,31)::c=0:r=r+1:x=10 :y=15:e=e+25:m=(*28)+2:n=(*18)+2 x,y;5;"";0,0;7;"SCORE=";s;" ";(e<20)*2;(e<20);"OXYGEN=";e;0;0;" level=";r;" " (]b=14:a$(n,m)=b$:n,m;5;1;b$:a=13:a:b:x,y;" " 2f$= <3a$(x,y-1)""f$="v"y>2y=y-1 F4a$(x,y+1)""f$="b"y<29y=y+1 P4a$(x+1,y)""f$="a"x<20x=x+1 Z3a$(x-1,y)""f$="q"x>2x=x-1 din=xm=ys=s+100d:21,0;"WELL DONE !!":m=10 40(:.01z# =,m:m:20 nFe021,0;"OUT OF OXYGEN : GAME OVER":3000 x e=e-1 a$(x-1,y)=""a$(x+1,y)=""a$(x,y-1)=""a$(x,y+1)=""21,0;"YOU ARE TRAPPED : GAME OVER":3000 f$=""30 s=s+1 rl=(*4)+1 (rl*10 )+180 30 Fa$(x-1,y)="":.01z# =,40(:x-1,y;6;"": Fa$(x+1,y)="":.01z# =,41):x+1,y;3;"": Fa$(x,y-1)="":.01z# =,42*:x,y-1;4;"": Fa$(x,y+1)="":.01z# =,43+:x,y+1;5;"": b$="X" 2;"" ,,,," You are in a burning space craft. You are the '' and you move by using the Q,A,V, and B keys.Your aim is to get to higher levels before you get trapped by the fireballs. After every level you get 100 points and more oxygen." n=0200:n #,," Press any key to continue."  0 $ #n=07:a:"m"+n,a:n I0,60<,24,126~,24,36$,102f,0 #n=07:a:"f"+n,a:n M0,24,165,90Z,165,219,165,126~  s>hshs=s:4000 G11 ,3;0;7;"TODAY'S HI-SCORE= ";hs;" BY ";i$ "ANOTHER GAME ?";g$ g$="n" ,s=0:e=502:r=0:20 a11 ,5;1;6;"YOU HAVE THE HIGH SCORE!":"ENTER YOU INITIALS (max=4)";i$ i$>44000  (I4LETBXe=rs X cx ym(F