Fireman 1˲wFireman aka.The Big Heat by Martin Kirkwood from Sinclair User, Apr'85 hi=0 $sc=0:li=3:le=1 500: Intro 1000:Initialise (2000:Screen 2y2,x2;" ";y2-1,x2;" " 7="s"30 3s1<1d=-d Px1=x1+(="x")-(="z") V"=" "j=1150:Jump Z$x1>x2b$="":a$="":dir=1 d%x131x1=31 tx1>31x1=31: The check for x1>31 on line 115 will never be executed, so I've added it here. [JimG] x j=1 }21,6;"Score:";sc &b03500 :Move ball () *2513000 (x1=ay1=b4000:Hit by ball () >x1=5y1=45000:Stepped on conveyor belt 3y2>17x2>274000:Fell in fire 502 Jump up through hole !(y1-2,x1)" "210 x2=x1:y2=y1 f=13 y2,x2;" " /y1,x1;3;a$;y1-1,x1;4;b$ y2=y1:y1=y1-1 .01z# =,f*10 f sc=sc+1 x1=x1+dir 2x1<0x1=0:x1>31x1=31 ?x1>31x1=31: Same mistake as line 115.   Intro 0:0:7: " " %'"" 3''" By M.KIRKWOOD" &'" CONTROLS ARE- Z.........LEFT X........RIGHT 'SPACE'....JUMP" 0$''''" PRESS ANY KEY TO CONTINUE" 5 e=0 :F6000p:f=133!:p,d:d/80P,(p-535)/4 D""f=33!:e=1 Nf S 10 Xe=1620l b 570: l v12 ;"FIREMAN" a'" You are Freddie the fireman.Itis your job to put out the fire at the bottom of the screen." w'" You must get to the top of thescreen to collect the hosepipe. Watch out for the spider above the conveyor belt." '" Move Freddie using... Z.........Left X........Right 'Space'....Jump" ,21,6;"Press Any Key To Start"  0   Initialise :f="a""u"+7 a:f,a f 60<,126~,126~,255,66B,226,20,116t,28,42*,107k,235,106j,60<,200,252 60<,126~,126~,255,66B,71G,40(,46.,568,84T,214,215,86V,60<,19,63? 0,64@,127,70F,71G,71G,79O,60<,0,0,0,127,127,255,255,255,0,28,8,156,159,252,220,192 $127,127,97a,76L,158,158,12 ,0,255,255,254,252,253,253,0,0,255,253,28,206,236,232,192,0 .M0,249,249,249,0,159,159,159 3L228,186,121y,229,20,18,10 ,8 40,0,0,0,11000000,32 ,16,16,16,16,16,16,16,16,16,16 516,16,8,7,0,0,0,0,0,0,0,255,0,0,0,0,568,568,568,568,568,568,568,16 663?,66B,153,165,165,153,66B,63?,252,66B,153,165,165,153,66B,252,255,0,0,0,0,0,0,255 7K39',93],150,167,40(,72H,80P,16 82z=0:x1=1:y1=19:x2=x1:y2=y1 BAb=0:j=1:fuel=0:a$="":b$="":dir=1 L723562 \,1:s1=1:s2=s1:d=le/10 V 2:0:0: v5,0;6;"";5;0;5,5;"";6;2;"" 0f=8173:g=028 f,g;6;"" g f  2,0;6;"" /0,0;"";1,0;""  z=0  f=8173 z1=z z=2+(*25) -z1=zz1-z=1z1-z=-12065  f,z;" "  f %5,0;" " * f=255237-1 4 f,0 H2;0,*24 Rf WQf=237255:6;1;f,*24:1;f,*24:f \n6;20,0;"";21,0;"" a?f=1li:21,f;"":f:21,20;"Hi:";hi  :a=0:a2=a:b=16-((*4)*3):b2=b b,a2;" ";b,a;""  .b2,a2;" ";b,a;"":a2=a:b2=b:a=a+1 !(b+1,a)=" "b=b+1 .a=28b2,a2;" ":b=0:137 !(b+1,a)=" "b=b+1 137 #1,4:1,-4 'li=li-1:li=04030  30 ;10 ,10 ;1;5;2;"Game Over"  4070 f=111 &p,d:d/40(,(p-535)/4 f 41),30,41),20,41),10 ,41),30,535,20,491,10 ,491,20,41),10 ,41),20,37%,20,41),40( jsc>hihi=sc:15,9 ;"N E W H I":f=110 :g=110 :.01z# =,g:g:f f=1200:f  15 hose j0,3;"";1,3;"";2,3;"";3,3;"";4,3;"" ;4,x2;"";2,5;" ";3,4;" " x2=x1:x1=x1+1 f=123 $x2=20s2>24000 ?4,x2;"";3,x2;" ";4,x1;a$;3,x1;b$ Rs2,20;" ";s1,20;"":s2=s1:s1=s1+d:s1>3s1<1d=-d x2=x1:x1=x1+1 g=05:g f (y1,x1;"";y1+1,x1+1;""  5 (f=620:f,30;"":f f=0502:f  (f=620:f,30;" ":f  0 f=2372552 f,0:0,24 (g=010 :g 2f <_le=le+1:sc=sc+(le*100d):f=13:g=010 :.02{# =,g:g:f P 30 p33!,10 ,33!,15,41),5,33!,10 ,535,10 ,491,10 ,41),10 ,33!,30 z25,20,25,10 ,21,20,21,10 ,13 ,10 ,5,10 ,13 ,10 ,21,30,21,20 33!,10 ,33!,15,41),5,33!,10 ,535,10 ,491,10 ,41),10 ,33!,30 25,20,25,10 ,21,20,21,10 ,13 ,10 ,5,10 ,13 ,10 ,5,40(