Munchers &&&WManiac Munchers by Michael Parrish, from ZX Computing Apr/May 1984  970  1250 I** LETTERS IN QUOTES THAT ARE NOT WORDS ARE ENTERED IN GRAPHIC MODE. ** /j=29:v=28:a=18:b=3  45-  ** SCORE ** g0,0;0;7;" SCORE ";i;0,13 ;0;7;a$;"'s SCORE ";r ! #** STAGE (1) ** (<10 ,20;2;1;"STAGE 1":2500 *J10 ,20;" ";16,0;" ";17,0;" " + - 31 0 40( 1** MAIN ROUTINE ** 2g=(*20) 7g=0g=15 8g=1g=2 <h=j0-1 ?)g=ph=6i=i+502:2090* A)g=eh=8i=i+502:21004 F*g=zh=12 i=i+502:1980 G*g=sh=10 i=i+502:2050 PTg,h;0;" ":.009ztj,40(:.009ztj,20:g,h;0;" " $h=2i=i+502:902 /rmr19a=19 @a<1a=1 ^Fa,b;1;"";a+1,b;"";a-1,b;" ";a+2,b;" " ph q 502 r** MUNCHER HITS TO YOU ** s?a,b;2;1;"";a+1,b;2;1;"" tl=30-20-3 u.009ztj,l:l x 30 y8t=312 ,0;" ";13 ,0;" " {6t=28,0;" ";9 ,0;" " }6t=14,0;" ";4,0;" " t=04200h  g,h;" "  502 ** MUNCHER GETS FRUIT ** l=45-0-3 .009ztj,l:l  g,h;" "  30  502 ** DATA FOR GRAPHICS ** u=0143  a:"A"+u,a u P126~,126~,126~,60<,126~,102f,198,231 LG0,0,0,0,16,28,255,224 PK40(,127,255,15,31,63?,100d,8 VM1,226,244,248,240,240,32 ,64@ `M0,224,240,255,240,240,32 ,16 jR0,0,40(,127,255,10101111,255,127 uL40(,127,255,255,255,127,4,2 ~J4,107k,107k,28,62>,62>,62>,28 L12 ,8,110n,255,255,126~,60<,24 K0,0,0,224,240,248,244,226 G0,12 ,4,15,15,31,47/,71G S0,96`,32 ,254,255,11110101,255,254 M60<,255,90Z,60<,36$,255,189,189 M1,30,58:,118v,238,220,248,112p K8,8,24,36$,102f,255,255,102f C0,0,0,0,0,0,204,0 O189,189,60<,102f,102f,102f,36$,231 L60<,255,58:,63?,60<,62>,127,127   ** INTRODUCTION **  7:7:  P(23658j\/8)=2*((23658j\/8)/2)1294  1295 "23658j\,23658j\+8 H10 ,0;"DO YOU WISH TO HAVE INSTRUCTIONS Y / N" ="N":1390n ="Y":1299  1296 0,0;2;"********************************";9 ,0;2;"********************************";18,0;2;"********************************" 2,0;1;"Stop the MUNCHERS eating your fruit You have four lives you will lose one of these for every1000 the MUNCHER scores. You will also lose one life if you collide with the MUNCHER:" 11 ,0;1;"There are four stages each more difficult than the last The stages will repeat with every 1000 points you score:" E=20,5;0;1;"PRESS 'C' TO CONTINUE" F 502 G20,0;1;"";21,0;1;"":502:20,0;1;"";20,1;1;"";21,0;1;"";20,2;"":.09}8Q,0:.09}8Q,10 I{20,1;" ";20,0;1;"";21,0;1;"":20 P@="C"20,0;" ";21,0;" ":1370Z R 1349E Z2,0;0;"You will score '10' points for each MUNCHER you destroy '10' points if you shoot one of the four fruits that will appear at random and a bonus of '60' for each stage you complete: " _11 ,0;0;"As in the early stages the MUNCHER'S task is considerably more difficult than yours he scores '50' for each fruit '50' if he gets past you and '100' if he hits you" `;21,5;2;1;" PRESS 'P' TO PLAY" aa=290-1 bN21,a;" ":.09}8Q,26:21,a;" ":.09}8Q,30 h="P"1390n ia j21,0;" " l 1376` n4:6:1: oa=0211 pEa,0;0;"GOOD LUCK GOOD LUCK":.03{u\,a qa ra=210-1 s<a,0;" ":.03{u\,a ta u0,0;7;0;" ";10 ,0;0;6;" PLEASE ENTER YOUR NAME";3,0;" UP...7 DOWN...6 FIRE...0" va$ wj10 ,0;" ";3,0;" " x}d=1000:m=260:x=3117:k=500:u=551':q=800 :n=851S:i=0:r=0:t=4 y4,0;"";5,0;"";8,0;"";9 ,0;"";12 ,0;"";13 ,0;"";16,0;"";17,0;"" za=1212 {a,1;2;"" }a a=2202 a,1;4;"" a  2090*  2000  2050  21004 a=0211  10 ** RE-SET STAGES ** @m=m+1000:x=x+1000:k=k+1000:u=u+1000 0d=d+1000:q=q+1000:n=n+1000 w=211-1 8w,14;6;" ":.03{u\,w w %g,h;" ";a,b;" ";a+1,b;" "  10 ** RND FRUIT **  30 z=(*19) .01z# =,30 z=0z=6 z=1z=15 z,12 ;1;""   30  s=(*19) .01z# =,30 s=0s=6 s=1s=18  s,10 ;4;"" % + 30 ,p=(*19) -.01z# =,30 .p=0p=7 /p=1p=13 0p,6;0;"" 1 6 30 8e=(*19) :.01z# =,30 <e=0e=6 >e=1e=18 @e,8;2;"" B ** BEEP STAGE CHANGE ** o=-305022 .05|L,o o  S** STAGE (2) ** T021,10 ;2;1;"STAGE 2" V 30 r 2500 |21,10 ;" " g,h;" " v=20 w=255200-1 =w,0:4:0,167:.009ztj,-20 w 502 ** STAGE (3) ** 30 021,10 ;2;1;"STAGE 3" 2500 21,10 ;" " g,h;" " v=14  w=200152-1 =w,0:4:0,167:.009ztj,-20 w  502 ** STAGE (4) ** 30 021,10 ;2;1;"STAGE 4" 2500 21,10 ;" " g,h;" " v=10 w=155120x-1 =w,0:4:0,167:.009ztj,-20 w  502 g** YOU LOSE ** h4:6:0: mf=0-30-1 n .01z# =,f of pH1,0:1,-30:1,0:2,-30 r.9 ,0;" HARD LUCK ";a$;" DO YOU " uU12 ,0;" WISH TO HAVE ANOTHER GO...'G' OR NOT......................'N'" w>0,0;0;" " z 30 |="G"6  ="N"  4220| ** YOU SHOOT MUNCHER ** .009ztj,20 l=04806 "g,h;2;"":.009ztj,l l  g,h;" " 502:30 a,b+1;" "  502 "** YOU FIRE ** #%g,h;0;"" #&.a,b;1;"";a+1,b;1;"" #( c=b+2 #*c=b+2v5 #.a=pr=r+10 :2090* #/a=er=r+10 :21004 #0a=sr=r+10 :2050 #1a=zr=r+10 :1990 #2,a,c;0;"":.009ztj,60< #=a,c;" " #>c #?a,b+1;" " #A:a=ga,b+1;1;"":r=r+10 :4500 #F