firetrap  s FIRE TRAP was written Howard Dowthwaite of Seaford,Sussex Sinclair User feb-83-66  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);" OXIGEN=";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$="5"y>2y=y-1 F4a$(x,y+1)""f$="8"y<39'y=y+1 P4a$(x+1,y)""f$="6"x<20x=x+1 Z3a$(x-1,y)""f$="7"x>2x=x-1 dhn=xm=ys=s+100d:21,0;"WELL DONE !":m=10 40(:.01z# =,m:m:20 n;e021,0;"OUT OF OXIGEN : GAMEOVER": x e=e-1 a$(x-1,y)""a$(x+1,y)=""a$(x,y-1)=""a$(x,y+1)=""21,0;"TOU ARE TRAPPED : GAMEOVER": 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$="E" "2;" F I R E T R A P" ''''"YOU ARE IN A BURNING SPECE- CRAFT.YOU ARE THE '+' AND YOU MOVE BY USING THE CURSOR CONTROLS.YOUR AIM OS TO GET TO HIGHER LEVELS BEFORE YOU RUN OUT OF OXYGEN OR GET TRAPPED BY THE BLOCKS.AFTER EVERY LEVEL YOU GET 100 POINTS AND MORE OXYGEN." n=0200:n  0 $ x ''"Press any key to continue." BEers3 E cxym((F