Cleaner 4v CLEANER was written Robert Osborn of Morray in Scotland Sinclair User oct 1984-86   a$(22,32 )  hs=0 $l=10 :ld=1:lr=0 .s=1:t=0:sc=0:li=4 ( 200 2Eo=21:p=2:lr=0:x=2:y=20:d=0 Fs5600 K 1600@ P 1600@ Z#700:1100L:1000 d 600X n 1050 x/d=11300:r1x=x+1 /d=21300:r2x=x-1 1000 11500:s=t*660+6603000 1400x:r2000 31200:rlr900:rlr2000 1100L:700 100d adatok  n=122 *a$(n)=" " n 0a$(6)=" " 2 a$(11 )=" " 1a$(16)=" " 1a$(19)=" " 2a$(22)="" n=15 "x,y ,"a$(y,x)="":a$(y,x+1)="" 6n @X4,5,5,21,15,21,14,15,20,10 Jn= 111 Tx,y ^ a$(y,x)="" ha$(y,x+1)="" ra$(y,x+2)="" |a$(y+1,x)="" a$(y+1,x+1)="" a$(y+1,x+2)="" n 7,3,12 ,3,26,3,4,8,15,8,25,8,6,13 ,17,13 ,22,13 ,27,13 ,20,19 n= 19 x,y  a$(y,x)="" n ֞17,5,18,5,21,5,24,5,10 ,21,11 ,21,12 ,21,10 ,7,24,10 n= 12 x,y,h  m=yy+h  a$(m,x)="" m n 22,6,4,23,8,2 & 0print screen : Dn=122:a$(n):n N Xkeys b16384@,64510 l16640A,32766 v d=0 "é(7,175)d=2 "é(6,175)d=1 "é(7,174)800   110n brick :o=21o,p;"":o=1:p=(*29+1) z$=a$(o+1,p+1) 3z$<" "o,p;1;(z$+156):750  o,p;z$  o=o+1  o,p;""   jump * 1050 4y=yy-1-1 >=1300:x=x+(r1d=1)-(r2d=2) H/700:1000:1500:1100L M1400x:r2000 R1050:y \y=yy+1 f=1300:x=x+(r1d=1)-(r2d=2) pN700:1000:1500:1100L:1200:r lr2000 z1400x:r2000 .1050:y:900:rlr2000  100d fall 3 steps z=568:1050 y=yy+2  1000 1400x:r2000 1200:r lr 2.01z# =,z:z=z-2:1500:1100L 1050:y   print man d=1x$="":y$="" d=2x$="":y$="" d x$="":y$="" y-1,x;x$;y,x;y$: undraw z$=a$(y,x+1) $<z$<" "y-1,x;1;(z$+156):1070. )y-1,x;z$ .z$=a$(y+1,x+1) 3*z$<" "y,x;1;(z$+156): 8 y,x;z$ B Llift Vl>17ld=2 `l<9 ld=1 jl,10 ;" " tBld=1l=l+1:lr1050:y=y+1:1000 ~Bld=2l=l-1:lr1050:y=y-1:1000 l,10 ;""   check below z$=a$(y+2,x+1) lr=0:r=0 0y+1=lx=10 x=11 lr=1 z$=""r=1 z$=""r=1 z$=""r=1   check right & left  r=0 (- a$(y,x)=""a$(y+1,x)=""r=2 2E a$(y+1,x+2)=""a$(y+1,x+2)=""r=1 n xcheck obstacles z$=a$(y,x+1) v$=a$(y+1,x+1)  r=0 9y-1=ly=1x=10 x=11 r=1 (z$=""v$=""z$=""v$=""r=1 z$=""r=1 !x=py=oy-1=or=1   check windows z$=a$(y,x+1) Mz$""z$""a$(y,x+1)=(z$-156):sc=cs+10 :1600@ 6 @pontok Jz=3438n TQ#0;1;4;" score :";6;sc;4;16;"lives "; ^n= 1li h#0;n+1;""; rn  dead o,p;a$(o+1,p+1)  z=502: 1050 y=y20  1000  .01z# =,z  z=z-2  1050 y  li=li-1 *!li>0s=0:502 4Dn=5020-1:.005y# =,*60<:.01z# =,n:n 9z=3438n >;sc>hshs=sc:#0;"Well done you have the new high!" Hj#0;8;"Your score:";sc;4;"Having completed ";t;" Screens ";8;"High score: ";hs R$#0;'8;"Press any key" 0:25 finised n=1502 .01z# =,*60< .01z# =,n n 8.1}L,10 :.1}L,10 :.8L,0 2li=li+1:t=t+1:2000:502 $ "cleaner":"cludg""a",168 '8don't forget to save this:"Cleaner"1:"udg""a",168 ')"Cleaner"1:"udg""a",168  lst^xh opdz!rXYV Z q