RifleRangek,k,m,WRifle Range by Michael Housley from Sinclair User, Jul'85 )59989U:17,64@,156,33!,0,64@,1,0,27,237,176,201,17,0,64@,33!,64@,156,1,0,27,237,176,201,33!,0,88X,1,0,3,197,62>,0,1,100d,0,11 ,60<,211,254,120x,177,32 ,248,546,7,35#,546,546,193,11 ,120x,177,32 ,231,201,32 ,228,201 &f=60000`60011k:a:f,a:f &f=6005060061:a:f,a:f &f=6010060134:a:f,a:f "h(5):h$(5,10 ) 4f=15:h(f)=6000p-f*1000:f (f=15:h$(f)="SPECTRUM":f Lf=60200(60241Q:a:f,a:f:f=60250Z60266j:a:f,a:f 1,2,0,197,33!,0,64@,1,0,4,126~,15,119w,35#,126~,7,119w,35#,11 ,120x,177,32 ,243,193,11 ,120x,177,32 ,1,201,33!,0,80P,120x,177,197,1,0,4,32 ,225,201,33!,0,88X,1,0,3,58:,86V,234,119w,35#,11 ,120x,177,32 ,246,201 }108l,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,0,0,28,30,46.,126~,30,28,60<,62>,31,31,15,15,7,3,31,124|,252,252,248,248,240,224 '3,12 ,16,35#,68D,72H,145,146,146,145,72H,68D,35#,16,12 ,3,192,480,8,196,34",18,137,73I,73I,137,18,34",196,8,480,192 '1,1,1,3,3,3,31,255,255,31,3,3,3,1,1,1,128,128,128,192,192,192,248,255,255,248,192,192,192,128,128,128 (#15,16,36$,42*,68D,64@,127,64@,224,16,72H,168,68D,4,252,4,32 ,24,5,7,535,73I,129,255,8,480,64@,192,568,36$,2,254 2'1,1,1,3,3,255,63?,7,128,128,128,192,192,255,252,224,7,15,14,28,568,112p,224,192,224,240,112p,568,28,14,7,3 d%f=0167:a:"a"+f,a:f &2:0:1:2: Nf=03:5;f,0;" ":f f=0̧^2.1}L:6;235+(f/)*14,160+(f/)*14:6;-(((235+(f/)*14)-235)*2),0:f 1;0;6;225,156:1;0;6;20,0,1.5@:1;0;6;-20,0,-.75@ h1;0;6;232,162,3:1;0;6;233,162 h1;0;6;238,162,3:1;0;6;237,162 81;0;6;235,157,2 e0,0:f=015:f,f:15-f,0:255-f,-f:f-15,0:f Ȇ0,0:480,480:159,0:480,-480:0,140:-255,0:0,-140 q480,480:0,92\:207,480:0,92\:16,16:233,0 ܘ10 ,10 :0,130:20,20:0,120x:30,30:0,110n:40(,40(:0,100d 245,10 :0,130:235,20:0,120x:225,30:0,110n:215,40(:0,100d 58:,480:-24,-32 :68D,480:-14,-32 :78N,480:-9 ,-32 :88X,480:-5,-32 98b,480:-4,-32 :106j,480:-3,-32 :118v,480:-2,-32 :128,480:0,-32 138,480:2,-32 :148,480:3,-32 :158,480:4,-32 :168,480:5,-32 w178,480:9 ,-32 :188,480:14,-32 :198,480:24,-32 480,95_:159,0:10 ,-3:-179,0:8,3:38&,92\:0,-2:179,0:0,2 "I0,140:0,2:255,0:0,-2 ,_f=67C18720:7;f,106j,10 :7;f,106j,7:f 6;0;7;2,6;"YE OLDE RIFLE RANGE." @`45-,149:165,0:0,13 :-165,0:0,-13 J80P,149:0,-6:82R,149:0,-6:175,149:0,-6:173,149:0,-6 TR80P,142:82R,142:175,142:173,142 Yk2;6;5,8;"";6,8;"";5,22;"";6,22;"" ^7;5,11 ;"YE PRIZES.";11 ,12 ;"YE SCORE";0;12 ,13 ;" ";14,6;" ";15,6;" " h7;0,11 ;"YE AMMO ";0;" ":0;20,2;" ";21,1;" " k60000` m 2000 o 0 p*sc=0:bon=1000:tam=513 q60050 rEco=0:a=15:f=0:x=1:am=tam:go=1000 w(0;6;0,19;am |go f=0:am=am-1 ,0;6;0,19;am;" " 80;in;14,6;a$;15,6;b$ &""f=1:.01z# =,-10 :a$=a$(2)+a$(1):b$=b$(2)+b$(1) 75;0;20,a;" ";21,a;" " a=a+x &a<7x=1 0a>23x=-1 :.f=1Ưb$(a-5)>32 600X D%f=1f=0:am=am-1 Iam=03000 N 400 X.01z# =,20 bco=co+1 lb$(a-5)=" " v,b$(a-6)>32 b$(a-6)=" " ,b$(a-4)>32 b$(a-4)=" " a$(a-6a-4)=" " Asc=sc+va:٥*6+1;0;12 ,13 ;sc;" " 'co=5go=go+10 :380| am=03000  580D Rva=100d:in=6:a$=" ":b$=" ": ^co=0:va=200:in=7:a$=" ":b$=" ": ^co=0:va=300,:in=4:a$=" ":b$=" ": ^co=0:va=400:in=5:a$=" ":b$=" ": ^co=0:va=500:in=3:a$=" ":b$=" ": ^co=0:va=600X:in=7:a$=" ":b$=" ": $rf=010 :g=70-1:59990V,g:60250Z:.001wn,f*2+20:g:f )"60050:.01z# =,20 .?20,a;" ";21,a;" ":sc=sc+bon:tam=tam-5 8-tam<30sc=sc+10000':3000 B 370r 0:0:7: ink=*5+1 Ձf=45:ink;f,0;"";f+13 ,0;"":f oink;8,6;" " m12 ,0;"PRESS EITHER 1. FOR INSTRUCTIONS OR 2. TO PLAY" f=0500 60200( '="1".01z# =,10 :2060  &="2".01z# =,10 :367o f :3190v  :0 +"USE ANY KEY TO SHOOT AT THE"''"TARGETS."  ;'"THE GAME WILL END WHEN YOU HAVE"''"NO AMMUNITION LEFT." *t'"IF YOU SHOOT ALL THE TARGETS"''"THEN YOU WILL GET SOME BONUS"''"POINTS AND START AGAIN WITH LESS"''"AMMUNITION." /+''"PRESS ANY KEY.":60100:0 0 0: 4"WHILST YOU ARE PLAYING THE GAME"''"YOUR GUN WILL MOVE BACKWARDS"''"AND FORWARDS ACROSS THE"''"BOTTOM OF THE SCREEN JUST TO"''"MAKE THINGS HARDER." >P'"REMEMBER TO ALLOW FOR THE DELAY"''"BEFORE THE BULLET REACHES THE"''"TARGET." H''"PRESS ANY KEY." M60100:0 R 0: \E" 100 POINTS"'" EACH" fF'" 200 POINTS"'" EACH" pF'" 300 POINTS"'" EACH" zF'" 400 POINTS"'" EACH" F'" 500 POINTS"'" EACH" F'" 600 POINTS"'" EACH" ''"PRESS ANY KEY." 60100:0  0:7::2001 zf=70-1:59990V,f:60250Z:.01z# =,f*2:10 :f:0:.2~L,-20: sc>h(5)3050 ,1;8,8;"YOU SCORED ";sc -7;16,9 ;"PRESS ANY KEY." 0:2000 /h$(5)="":" PLEASE ENTER YOUR NAME" G10 ,10 ;"(----------)":15,8;"YOU SCORED ";sc g=1 0 l$=:.005y# =,10 l$=13 3080 [g>1l$=12 h$(5,g)="":8;"-";8;:g=g-1:3054 h$(5,g)=l$ 10 ,g+10 ;l$; g=g+1 g<11 3054  h(5)=sc & zx=4 0f=1zx :h(f)h(f+1)3160X D+v=h(f):h(f)=h(f+1):h(f+1)=v N1v$=h$(f):h$(f)=h$(f+1):h$(f+1)=v$ Xf bzx=zx-1 lzx>031200 v0,2;٥*6+1;" " |f=15:f+2;f*2+3,0;f;" -------- ";h$(f);f*2+3,21;" ---- ";h(f):f H,18,5;" PRESS ANY KEY. " Mf=01000 R""365m \f:2000