FROGGER ! !f!QHopalong (aka. Frogger) by Richard Archdeacon, from Your Spectrum #3 (May.1984) Annotated by Gavin Monk h(6):9000(#:START s=0:li=3 7500L:LEVEL # fr=0 (7000X:SCREEN 28t=100d:a=21:b=16:a,b;4;"" < MAIN LOOP A.005y# =,-15 B8t=t-1:0,18;0;5;t;" " Ct03000 F>a$=a$(32 )+a$(31):h$=h$(32 )+h$(31) PWb$=b$(2)+b$(1):e$=e$(2)+e$(1):g$=g$(2)+g$(1) Z~5;3,0;0;a$;5,0;2;b$;7,0;0;a$;9 ,0;2;b$ _.005y# =,-15 d0;13 ,0;7;e$;15,0;2;h$;17,0;3;g$;19,0;2;h$ n:a=3a=7b=b+1:b=313000 s9a=5a=9 b=b-1:b=03000 x 200 ="7"1000 ="8"Ŧ="5"300, 6a=3a=7(a>11 a<21)0 a=5a=9 2 a=11 a=211 a,b;4;"" ="6"1500 60< a=21a=11 200+a  a$(b+1)=" "3000 202 b$(b+1)=" "3000 202 203 205 e$(b+1)" "3000 202 h$(b+1)" "3000 202 g$(b+1)" "3000  215 ,6a=3a=7(a>11 a<21)0 -a=5a=9 2 . a=11 a=211 / a,b;" " 6>.05|L,10 :b=b+(="8"b<31)-(="5"b>0) @Oa,b;4;1;0a>11 a<21;5a<11 ;"" J 6a=3a=7(a>11 a<21)0 a=5a=9 2  a=11 a=211  a,b;" " !a=a-2:.05|L,10 a=12000  200 Oa,b;4;1;0a>11 a<21;5a<11 ;"" $9s=s+10 :0,15-s;5;0;s B 60< 6a=3a=7(a>11 a<21)0 a=5a=9 2  a=11 a=211  a,b;" " a=21 !a=a+2:.05|L,10  200 Oa,b;4;1;0a>11 a<21;5a<11 ;"" 6 60< Bb2b8b16b23b293000 #(1,b)=44,3000 :s=s+100d:0,15-s;5;0;s "1,b;4;5;"" 7fr=fr+1:.05|L,15:.05|L,20 fr=52200  502 B11 ,10 ;7;1;1;"BONUS";t*10 f=03:.1}L,2:.1}L,4:.1}L,6:.1}L,6:.1}L,4:.1}L,0:f:s=s+1000 =s=s+(t*10 ):0,15-s;5;0;s Ef=15:n=15:.01z# =,f+n:n:f:30 FROG DEAD &a,b;6;1;1;;"" @li=li-1:0,23;5;0;"LIVES ";li li04000 Jf=301-1:.05|L,f:f:a,b;3;"":502  GAME OVER M.1}L,30:1,11 ;1;6;0;"GAME OVER" F1,-10 :1,-25:1,-40(:lev=1 lh(6)=s:f=16:n=15:z=h(n):z1=h(n+1):z3 `7500L+(100d*lev) jlev=lev+1: LEVEL 1 'a$=" " 'b$=" " 'e$=" " 'g$=" " 'h$=" "   LEVEL 2 'a$=" " ('b$=" " F'e$=" " Z'g$=" " d'h$=" " n xLEVEL 3 'b$=" " 'e$=" " 'g$=" " 'h$=" "  @U.D.G. J#f=07:a:"a"+f,a:f T10000011,00101110.,01111110~,11111110,11111110,01111110~,01011100\,10000011 ^#f=07:a:"b"+f,a:f h00011111,00011111,00111111?,01111111,01111111,00111111?,00111111?,00011111 r#f=07:a:"c"+f,a:f |11111000,11111000,11111100,11111110,11111110,11111100,11111100,11111000 #f=07:a:"d"+f,a:f 11100111,01011101],11111111,01111110~,11011011,11100111,01111110~,10000001 #f=07:a:"e"+f,a:f 00000000,01000010B,01011010Z,01111110~,00111100<,01111110~,01111110~,00111100< #f=07:a:"g"+f,a:f ́00111100<,01011101],01011111_,01011101],01011101],01011111_,01011101],00111100< #f=07:a:"h"+f,a:f 11111111,11111111,00000000,11111111,11111111,00000000,11111111,11111111 #f=07:a:"i"+f,a:f 11111111,11111111,00000011,11111111,11111111,00000011,11111111,11111111 #f=07:a:"j"+f,a:f 00101110.,01101110n,01110110v,01111111,01111111,01110110v,01101100l,00101110. #f=07:a:"k"+f,a:f 00000010,00111010:,10010010,11111110,11111110,10010010,00111010:,00000010 &#f=07:a:"l"+f,a:f 000000000,00111011;,00010010,00111111?,00111111?,00010011,00111011;,00000000 :#f=07:a:"M"+f,a:f D00000000,11011100,11001000,11111100,11111100,11001000,11011100,00000000 !4 #(START #2tlev=1:x$=" " #<1:6: #F2,0;2;x$:.1}L,10 :f=60<30-1:.05|L,f:f:5,0;1;"" #P7,11 ;"SCORING";9 ,5;"10 pts per hop forward";11 ,4;"100 pts per frog put home";13 ,3;"1000 pts for all frogs home" #Z|17,4;"STEER BY THE CURSOR KEYS":8000@:20,3;1;1;" PRESS ANY KEY TO START " #d0="".1}L,*10 +40(:9060d# #nl.1}L,2:.1}L,4:.1}L,6:.1}L,6:.1}L,4:.1}L,0 #x: #:"FROGGER"1