Pear Picker on Ice

 

 

 

0 print"{clear}{white}{reverse on}";:fori=0to22:print"{down}";:next:fori=0to30:print"E{down}{left} {up}";:next:print"{home}";:poke2041,132:poke2040,130:m=2:v=53248:x=140:f=128:y=34:pokev+32,14


1 u=0:pokev+33,14:pokev+21,3:pokev+28,3:pokev+37,0:pokev+38,7:pokev+39,6:pokev+40,5:pokev+1,220:pokev+2,100


2 fori=0to319:poke8192+i,0:next:forj=0to4:fori=0to15:reada,b:poke8192+i*3+j*64,a:poke8193+i*3+j*64,b:next:next:pokev+30,0


3 f=f+1/3:ifpeek(56320)=123thenu=u-.25:poke2040,128+(fand1):data2,160,10,168,42,170,13,252,15,252,3,240,,192,2,160,10,168


4 ifpeek(56320)=119thenu=u+.25:poke2040,130+(fand1):data50,163,2,160,2,160,10,40,5,20,21,20,,84,2,160,10,168,42


5 x=(x+u)and255:y=y+m:pokev+3,y:pokev,x:if(peek(v+30)and1)=0andy<=250then3:data170,13,252,15,252,3,240,,192,2,160,2,160


6 ify<=250thenpoke54296,15:poke54296,0:s=s+1:m=m+.2:print"{home}{red}{reverse off}score:{yellow}"s:y=34:pokev+3,y:pokev+2,rnd(1)*200+50:pokev+30,0:goto3


7 print"{home}{down*2}{blue}game over!":data2,160,2,224,2,160,2,160,1,80,1,80,5,80,2,160,10,168,42,170,15,220,15,252,3,240,,192,2,160,10,168


8 data50,163,2,160,2,160,10,40,5,20,5,21,5,64,2,160,10,168,42,170,15,220,15,252,3,240,,192,2,160,2,160,2,160,2,224,2,160


9 data2,160,1,80,1,80,1,84,1,0,0,64,2,128,10,160,11,160,46,168,46,168,42,168,42,168,10,160,,,,,,,,,,,,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Help a farmer to collect all the pears falling from trees.
The game get harder and harder with progress. You can't miss any fruit.
If you go out of the screen you get to the other side (use this feature at your advantage).
Use Joystick in Port II to control. Type "RUN" from c64 prompt to play again.

Have fun!

 

This site was designed with the
.com
website builder. Create your website today.
Start Now