Frogger n" " p" FROGGER  by Andrew Pennell C MODIFICATIONS - ERROR CORRECTIONS, KEY DEFINE ROUTINE - BY JIMMY !23658j\,8:2000 23658j\,8 900 i=16 $x(i)=5*(*31)+1 (i 2q$ < a=20 dx=16:y=19 ny,x;4;"" x 20 q$ Hi=16:x(i)=x(i)-10 *(i/2=(i/2))+5 Bx(i)=x(i)-160*(x(i)>160)+160*(x(i)<5):i q$:y>9 200 @x=x+(a=40()-(a=43+):x<0x>31400 y,x;5;4;"" *b=(y,x):b=5b=6400 +t=t-1:1;32 +t,12 !t=0f=1:400 xx=x:yy=y:k$= .k$=""y,x;8;4;"":140 .02{# =,-10 ?x=x+(k$=c$(4))-(k$=c$(3)):y=21y=19 !x<0x>31400 Oy=y+2*(k$=c$(2))-2*(k$=c$(1)):y=21y=19 )k$="D"s=s+5:0,6;s 8a=(y,x):yy=11 yy=19yy,xx;1;" " Aa=160a=47/a=5a=6a=8400 "y,x;8;4;"" ,a568140 1q$ 6Ji=8*(x/8)+3:2,i;4;"";3,i;"" ;"s=s+502:0,6;s >+320@:i=18:g,h:g,h:i @.1}L,11 ,.1}L,11 ,.8L,16,.05|L,11 ,.05|L,11 ,.05|L,11 ,.05|L,16,1,20 J&ff=ff+1:ff=4500 T 20 q$ Gy,x+(x<0)-(x>31);8;8;1;1;"" 0,10 +2*f;" ":w$=" ....AAAAAAAAARGH.... ":h=132 :11 ,h-1;2;7;1;1;w$(h):h |h=12 -12 -1:.01z# =,h*3:h:11 ,0;1;0;7;0;31;" "  f=f-1 f=0600X >y,x+(x<0)-(x>31);8;8;1;""  20 i=3308 $2,i;" ";3,i;" ":i "ff=0:f=4525   7f=f+1:0,10 +2*f;4;""  =t=t120x:32 +t,12 :.01z# =,t/10 :t .s0s=s+100d:0,6;s  X0,12 ;" " b(11 ,8;" YOU SCORED ";s;" " ls"Q",s-256*(s/256):"Q"+1,(s/256) i=16 "Q"+1+i,n$(i) i ?19,0;1;" Press ENTER for another game. " j$= j$=""705 j$=13 5 j$13 16000> /0:7:7:0:0: )1,0;1;31;" " Bi=23:i,0;1;" ";i,5;" " Ii,13 ;1;" ";i,21;" ";i,29;" ":i 0,0;"SCORE:0" &0,12 ;4;" " :i=410 :i,0;5;31;" ":i Di=12 18:i,0;0;7;31;" ":i J11 ,0;1;31;" ";19,0;31;" " i=76L28-16 j=02498 j,i:7;5,0 j:i !t=0:s=0:f=4 $hs="Q"+256*("Q"+1) =n$(6):i=16:n$(i)=¾("Q"+1+i):i G20,0;"TIME";21,0;"HIGH SCORE:";hs;" by ";n$ Ea$(13 ,3):x(6):y(6):p$(6,160)  1500 i=113 j,k:a$(i)=16+j+k i i=16 !p=5:i>3p=0 $j=132 .9a:p$(i,j*5-4j*5)=17+p+a$(a) 3#.01z# =,(j+32 *i)/10 8/j:y(i)=2*i+3+2*(i>3) Bi `q$="" ji=16 o.3,i*3 tIq$=q$+"22+"+y(i)+"+0+p$("+i+",x("+i+"))+p$("+i+",x("+i+")-1)" ~i6q$=q$+"+" i  500  20 [5,144,6,146,0,147,0,144,0,148 I6,149,6,150,3,159,3,158 H6,153,6,157,6,156,7,32 13 ,13 ,8,9 ,13 ,13 ,8,9 ,13 ,13 ,13 ,13 ,8,9 ,13 ,13 ,8,9 ,13 ,13 ,13 ,8,9 ,13 ,13 ,13 ,8,9 ,13 ,13 ,13 ,13 13 ,13 ,3,4,5,13 ,13 ,13 ,3,4,4,4,5,13 ,13 ,13 ,13 ,3,5,13 ,13 ,13 ,3,4,5,13 ,13 ,3,4,5,13 ,13 13 ,8,9 ,13 ,13 ,13 ,8,9 ,13 ,8,9 ,13 ,13 ,8,9 ,13 ,13 ,13 ,8,9 ,13 ,13 ,13 ,8,9 ,13 ,8,9 ,13 ,13 ,8,9 13 ,6,7,13 ,13 ,6,7,13 ,13 ,13 ,6,7,13 ,13 ,13 ,6,7,13 ,13 ,13 ,13 ,13 ,6,7,13 ,13 ,6,7,13 ,13 ,6,7 "13 ,13 ,13 ,11 ,12 ,13 ,13 ,13 ,13 ,10 ,1,13 ,13 ,13 ,11 ,12 ,13 ,13 ,13 ,11 ,12 ,13 ,13 ,13 ,13 ,10 ,1,1,13 ,13 ,13 ,13 ,13 ,1,1,2,13 ,13 ,13 ,6,7,13 ,13 ,13 ,13 ,13 ,13 ,1,1,1,2,13 ,13 ,13 ,13 ,13 ,13 ,13 ,6,7,13 ,13 ,13 ,13  2500 i="A""Q"+7 a:i,a i Q255,255,255,255,255,255,255,255 P153,189,126~,126~,126~,60<,165,195 M0,124|,247,247,247,247,124|,0 O63?,127,127,255,255,127,127,63? Q252,254,254,255,255,254,254,252 O568,255,255,255,255,255,255,568 O568,255,159,159,159,159,255,568 B0,0,0,0,9 ,11 ,7,7 I0,0,0,0,144,208,224,224 K0,62>,239,239,239,239,62>,0 (C7,3,10 ,12 ,0,0,0,0 2G224,192,80P,480,0,0,0,0 .05|L,10 :.05|L,0:h=1502:h $c$(4):x$(4,5) Ox$(1)="UP":x$(2)="DOWN":x$(3)="LEFT":x$(4)="RIGHT" i=14 M(i*2)+7,4;"PRESS KEY FOR ";x$(i);":":.05|L,-8 d$= d$=""3080 c(i*2)+7,25;1;1;6;1;d$:c$(i)=d$:.5,20 &i 0,n=010 :.02{# =,n*5:n :  aE  32  UP DOWN LEFT RIGHT