DEAD EYED BBB DEAD EYED  64499 ""64500 h$="D.FRYETT":hi=550&:sc=0:pp=0:m$(5):m$(1)="o":m$(2)="p":m$(3)="w":m$(4)="q":m$(5)="e" 12:0:6:1:#1;: m=0:d=0 sh=1:qe=5: co=0:jj=0 me=3:9500% o(x=x/8x)=x/8-.4L !p(y=y/8y)=y/8-21.4+333 H:9 ;7;"DEAD EYED DICK":9 ,0;7;"KEYS" xa$="":3650B:f=15:٥*6+1:a$:f+10 ,0;a$;"- ";m$(f):f:0,0;"" *fi=0:270:2,0; ;"D TO DEFINE KEYS"'"S TO START"'"I TO PRINT INSTRUCTIONS" ="s"20 ="d"3500 ="i"550&  16 Ypp=0:11 ,10 ;2;1;"PLEASE WAIT":500:7800x -***SETUP SCREEN******* 2Y:4999+sh:f=128:a,b:a,b;٥*6+1;145;146 3lf:f=154159:g,h:g,h;٥*6+1;1;f:f:b,n,z:x=b:y=n:am=z-(*10 ) 4 x1=x:y1=y 5799+sh 6B#1;7;2;"AMOUNT OF MOVES ALLOWED ARE ";am;" " 7*0,21;4;"SCREEN:- 00" 8,sh<10 0,31;4;sh 9+sh>9 0,30;4;sh ;*****PRINT CODES******* c 350^ d h sc122z114r wh$32 k$;:h$=h$+k$ xh$>15141 y 113q n21,0;" ":18,0;" ": n$=h$ 150 h$=""114r h$=h$(̱h$-1) h$31" ";8; 8;" ";8; 113q  210 f=18:t,n t,n:f  қ0.1}L,11 ,0.1}L,11 ,0.8L,16,0.05|L,11 ,0.05|L,16,0.05|L,11 ,0.05|L,16,1,20 ,5:6,0;"HI SCORE:- ";hi %7,0;"BY: ";h$:6  ] L0,13 ;5;"MEN: ";me;0,0;3;"MOVES:- " *****START OF GAME**** 0,8;3;m K(x+5,y-8)1Ʃ(x+1,y-8)17000X  d=0 3=m$(1)x>1x=x-1:m=m+1 5=m$(2)x<249x=x+1:m=m+1 =m$(4)1000 =m$(3)1500 =m$(5)2000 xy=shape+64500 .04|# =,0 xy=shape+64500 0(p(y),o(x))>192fi=0900  400 *******GRAPHICS*******  600X:i="a""p"+7 d i,d i shape=144  **ALL SCREENS FINSHED** H:10 ;1;6;2;1;"WELL DONE"'':5 "FANTASTIC.......................BRILLIANT.......................UNBELIEVABLE...................."''"THE IMPOSSIBLE HAS BEEN DONE YOU HAVE COMPLETED ALL THE SCREENS I SUPPOSE THE BEST THING I CAN DO NOW IS GIVE YOU 2000 POINTS AND PUT YOU BACK ON SCREEN 1" h200:502:f=0502:.01z# =,*60<:f:'''"PRESS ANY KEY TO START SCREEN 1" r6:sc=sc+2000:sh=1:shape=144:fi=0:d=0:pp=0:f=010 :f ""45-  514 *********************** ********************** *****INSTRUCTIONS***** & '>10 ;5;1;1;1;"INSTRUCTIONS" (i$="HI MY NAME IS DICK I FEEL THAT I SHOULD WARN YOU THAT THIS GAME IS ACCURATE TO 1 PIXEL SO YOU WILL NEED TO BE DEAD EYED DICK TO COMPLETE JUST ONE OF THE MANY SCREENS. I'M NOT GOING TO TELL YOU TOO MUCH BUT I WILL TELL YOU THAT YOU HAVE TO COLLECT SIX PARTS OF A SECRET CODE TO COMPLETE A SCREEN THE REST IS FOR YOU TO FIND OUT.THIS GAME COULD KEEP YOU AMUSED FOR WEEKS MONTHS WHO KNOWS MAYBE EVEN YEARS. GOOD LUCK....." )4c=1:t=3:h=0:w=i$:k=32 ******************* +f=h+1w -f=k5611 .".01z# =,40(:t,f-c;i$(f) /f:********** 0 5699 1+k=k+32 :t=t+1:c=c+32 : 9H'"EXTRA MAN AWARDED AT 1000 POINTS"''"PRESS ANY KEY TO RETURN TO MENU" :f=060<:f ;=""571; < 12 XJ568,568,568,254,568,68D,68D,68D YO63?,104h,208,168,192,224,124|,63? ZL252,22,47/,21,11 ,557,254,252 [24,24,10 ,60<,8,21,34",192,24,24,80P,60<,16,168,68D,3,24,24,8,28,8,535,194,0 \24,24,16,568,16,188,67C,0,24,24,16,568,82R,28,32 ,192,24,24,8,28,74J,568,4,3 ]'16,568,124|,16,16,16,16,16,0,0,238,136,238,40(,238,0,0,0,238,138,142,140,234,0,0,0,238,132,196,132,228,0 ^0,0,224,128,238,128,224,0,0,0,238,138,138,138,238,0,0,0,206,168,174,168,206,0 ***FINISHED SCREEN**** f=031:64300,:64350^:f:01,60<:sec=0::5,11 ;4;1;1;" ":f=07 Fsec=(*90Z):sec<480sec>27sec<65A702 >.01z# =,10 :7,11 +f;5;sec:f:: m>am750 ,shape=144:"SCREEN ";sh;" COMPLETED" žsc=sc+100d*sh:sc=sc-(m/15):100d*sh;" POINTS AWARDED":"YOU HAVE SCORED ";sc;" POINTS":sh=sh+1:sc>1000jj=0720 2f=0400:f:sh-1=qe510 r"PRESS ANY KEY TO TRANSPORT TO SCREEN ";sh;" PLEASE":m=0:fi=0:co=0:f=0502:f =""709  45-  200:jj=1 ;"EXTRA MAN AWARDED YOU HAVE SCORED OVER 1000 P0INTS" me=me+1   #m=0:fi=0:co=0 x=245:y=15 |"YOU HAVE TAKEN MORE MOVES THAN ALLOWED YOU WILL HAVE TO ATTEMPTSCREEN ";sh;" AGAIN."':m=0:pp=0:fi=0 5shape=144:f=0400:f::45- ********************** ********************** **********************  245,16:40(,120x:40(,3:21,30;"";9 ,13 ;1;0;"":12 ,7;"__";13 ,6;"-":165,110n:-502,17:155,2:-80P,20:-10 ,13 : !f20,30;"":80P,23:79O,39':0,23:205,0:502,30:5,20:0,88X:150,100d:18,0:190,100d:200,100d:47/,-8:12 ,31;"":16,31;0;"";14,30;"":253,100d: "B126~,502:-30,10 :130,502:30,10 :19,30;0;1;"":7,15;0;1;"";5,15;1;0;"":126~,25:0,80P:-85U,20:130,25:0,80P:85U,20: #f=39 :f,20+f;"+":f:b=15:f=13 13025:245+*9 ,f:f:502,140:10 ,-5:60<,40(:10 ,5:f=80P45--5:b,f:b=b-1:f: $230,502:2,0:225,5:13 ,0:78N,480:5,0:524+*7,83S:4,0:1+*8,30:0,40(:1+*10 ,100d:0,40(:  co=co+1 0.1}L/2,-10 3f=040(:*6+1:0:f  2  200 $p(y),o(x);0;6;" " co=69900&  ******JUMP LEFT******* 7f=029:fi=1y>170700 7f<15x=x-1:y=y+1:shape=152 5f>14f<20x=x-1:shape=149 Bf>19f<27x=x-1:y=y-1:shape=147 x<1x=x+1 xy=shape+64500 .01z# =,60< xy=shape+64500 f shape=144 $ m=m+1 L 480 ******JUMP UP********* y=yy+15 #fi=1y>170700 xy=shape+64500 .01z# =,10 xy=shape+64500 y  m=m+1  480 ******JUMP RI6HT******* f=029 #fi=1y>170700 7f<15x=x+1:y=y+1:shape=151 5f>14f<20x=x+1:shape=150 Bf>19f<27x=x+1:y=y-1:shape=148 x>248x=x-1 xy=shape+64500 .01z# =,60< xy=shape+64500 f shape=144  m=m+1  480 **DEFINE KEYS******** :3600:nk +"USER DEFINED KEYS";''"SELECT NOW":m$="" f=4:i=1nk m$=m$+0 d$ f,0;d$ 'f,d$+1;1;"?";6; f=f+2 1:0 k$= sel=0 j=1̱m$ m$(j)=k$sel=1 j sel3700t m$(i)=k$ k$ i ,#1;"PRESS ANY KEY TO RETURN TO MENU" 0 12 ;5,"LEFT","RIGHT","JUMP UP","JUMP LEFT","JUMP RIGHT" B3"LEFT","RIGHT","JUMP UP","JUMP LEFT","JUMP RIGHT" s t)21,0;"KEY ALREADY DEFINED" u&f=0100d:f::3500 *****SCREEN DATA****** j17,5,15,22,6,24,7,28,8,23,10 ,2,9 ,4,18,30,16,30,3,5,3,2,21,0,21,4,20,6,10 ,10 ,10 ,20,11 ,22,12 ,24,14,25,9 ,17,8,15,14,30,3,10 ,4,13 ,15,5,10 ,2,17,20,15,17,13 ,25,20,0,20,18,14,18,6,29,2,2,245,16,405 h17,10 ,13 ,3,15,4,17,4,19,5,8,3,6,0,6,3,6,6,6,9 ,5,14,7,12 ,21,0,3,30,5,30,7,30,10 ,5,11 ,7,12 ,9 ,13 ,11 ,14,13 ,15,16,19,16,17,21,15,25,17,24,13 ,25,8,16,20,1,20,26,13 ,17,15,11 ,5,7,16,21,120x,146,485 e11 ,2,11 ,28,13 ,30,13 ,26,13 ,22,13 ,0,13 ,4,13 ,8,21,0,21,3,21,6,21,9 ,21,12 ,20,15,21,18,21,21,21,24,21,27,21,30,4,0,4,4,4,8,4,30,4,26,4,22,6,2,6,28,3,15,17,30,2,15,4,15,2,22,9 ,2,9 ,29,8,15,350^ d10 ,0,10 ,4,8,7,3,0,3,4,5,9 ,7,12 ,9 ,15,11 ,15,13 ,12 ,15,9 ,17,4,17,0,19,0,21,0,21,4,21,8,21,12 ,21,16,21,20,21,24,21,27,21,30,18,30,15,30,12 ,30,9 ,30,6,30,9 ,0,9 ,5,7,8,7,29,14,10 ,1,22,5,160,365m l3,0,4,4,5,8,6,12 ,7,16,8,20,9 ,24,10 ,28,11 ,30,19,28,13 ,24,14,20,15,16,16,12 ,17,8,18,4,19,0,21,0,21,5,21,10 ,21,15,21,20,21,25,21,30,10 ,10 ,12 ,10 ,11 ,0,11 ,4,10 ,0,14,9 ,8,11 ,8,29,17,28,14,28,8,165,290" V********************** W*******DROPPING******* X<y=y-1:d=d+1:d>15y<78000@ Yxy=shape+64500 Z.01z# =,45- [xy=shape+64500 \<(p(y),o(x))>192fi=0d=-4:900 ] 400 wy**************************MACHINE CODE FOR SCROLLING******SCREEN LEFT************************************************** x'7900:f=64300,64320@ za:f,a f '7901:f=64350^64372t a:f,a f: 33!,0,64@,85U,62>,192,6,31,35#,94^,43+,115s,35#,16,249,114r,35#,61=,32 ,242,201 33!,0,88X,58:,0,91[,14,24,6,31,35#,94^,43+,115s,35#,16,249,119w,35#,13 ,32 ,242,201 ?****HIGH DROP********* @"f=0100d:y=y-1 AU(x+5,y-8)=1ũ(x+1,y-8)=1y<78100 Cxy=shape+64500 D.01z# =,10 Exy=shape+64500 J%(p(y),o(x))>192900 rf ****LOSE A MAN******** &me=me-1:y=y1:x=x1:d=0 M.525fff/3,3:.525fff/3,3:.1125}ffff/3,3:.373>"/3,3:.1125}ffff/3,3:.375?/3,3:.3/3,6:.3/3,5:.3/3,3:.375?/3,3:.1125}ffff/3,3:.375?/3,3 ame<11,1:f=023:0:3582 :f:6::8450!  350^ ******GAME-OYER****** !1sc=sh*250+co*100d-m/11 :sc=sc !2)01,10 :d$="NOT A BAD SCORE" !3*sc>499sc<1000d$="AVERAGE" !4$sc>0sc<499d$="POOR" !5 sc>999d$="OUTSTANDING" !6#f$="PARTS":co=1f$="PART" !7u6;"GAME OVER";4;''"YOU HAVE MANAGED TO COLLECT ";co;" ";f$;" OF THE SECRET CODE IN SCREEN ";sh !8G"YOU HAVE A SCORE OF ";sc:"OVERALL RATING ";7;d$::104h !:pp=1:m=0 !;f=0502:f !<:21,0;5;"PRESS ANY KEY TO PLAY AGAIN" !=f=020:f !>=""8510>! ! 5 ! %6"DO YOU WISH TO CARRY ON FROM A PREVIOUS GAME Y/N." %="y"9600% % ="n": % 9501% % :u=0 %020,0;"PLEASE ENTER SCREEN NUMBER" %"SCREEN NUMBER : ";s$ %u=s$ %6u<491u>579űs$>2Űs$>qe9601% % s=s$:sh=s % %(20,0;"PLEASE ENTER SCORE" %"SCORE :";r$ %ma=r$ %1ma<491ma>579űr$>59607% % r=r$:sc=r % %020,0;"PLEASE ENTER AMOUNT OF MEN" %B"ENTER AMOUNT OF MEN:";v$:v$=4sc<10009616% %*j=v$:j<491j>5249616% %me=v$ %: % '*ALL CODES COLLECTED** '<0,21;6;2;1;" OUT " ' .5,-10 ' fi=1 ' 400 hdcode xz*e\*c\ R(͢-8 G֐8[{\[6\&o)))8 !\͢-g͢-o%$DMͪ"G~(&o>G)~w#{w# "e\ɒ