00010POKE140,0:POKE162,30:POKE163,128
00020ONERRORGOTO1270
00030SD6:CLS:PRINT[A20 32]"F R O G   H O P"
00040POKE220,81:POKE257,1:GOSUB2200
00050FORT=11520TO11863:READX:POKET,X:NEXTT
00060FORT=63488+16TO63487+46*16:READX:POKET,X:NEXTT
00070FORT=3*4096+32TO3*4096+32+29:READX:POKET,X:NEXTT
00080T1=40.8:S=0:E=5:D=5:G=0:V=0
00090 CURS10,15:PRINT"Hit `Q' to Quit or ANY other key to begin.";
00100 R1$=KEY:IF R1$=""THEN 100 
00110 IFR1$="q"ORR1$="Q"THENCLS:POKE220,111:RUN"M"
00120CLS:DIMQ(5):FORT=1TO5:READQ(T):NEXTT
00130GOSUB650
00140FORT=12272TO12281:READM:POKET,M:NEXTT
00150FORT=12288TO12299:POKET,1:NEXTT
00160T1=40.8:S=0:E=5:D=5:G=0:V=0
00170IFE=15THENLETD=D+1
00180GOSUB1260:GOSUB1240
00190FORT=1TO500:NEXTT:X=139:Y=139
00200A=32:B=14
00210CURSA,B:PRINTCHR(129)CHR(130);:R1$=KEY:R1$=KEY:POKE258,0
00220CURS60,15:PRINTINT(T1)" ";
00230R1$=KEY:IFR1$=","ORR1$="."ORR1$="Q"ORR1$="A"ORR1$=CHR(4)ORR1$=CHR(5)ORR1$=CHR(19)ORR1$=CHR(24)THENGOTO390
00240P=USR(11520):POKE257,1:H=H+1:IFH=4THENLETH=1
00250O=USR(12320,1034+H*5):FORT=1TO37:NEXTT:F=F+1:IFF=20THENLETF=0:GOSUB1090:GOTO230ELSEFORT=1TO12:NEXTT:GOTO230
00260POKE12304,0
00270R1$=KEY:R1$=KEY:POKE258,0
00280P=USR(11520)
00290H=H+1+3*(H=3)
00300R=USR(12320,1034+H*5)
00310IFB>6THEN340
00320J=12286+B:K=J-16:IFPEEK(J)<>PEEK(K)THEN340
00330IFFLT(B/2)=FLT(B)/2THENLETA=A+1ELSELETA=A-1
00340IFB>8THEN370
00350IFPEEK(12304)=1THENGOTO930
00360GOTO380
00370J=61375+A+B*64:IFPEEK(J)<>129ORPEEK(J+1)<>130THEN1160
00380POKE258,0:R1$=KEY:IFR1$=""THEN600
00390IF(R1$=","ORR1$=CHR(19))ANDA>2:M=-2:GOTO420
00400IF(R1$="."ORR1$=CHR(4))ANDA<62:M=2:GOTO420
00410GOTO480
00420CURSA,B:PRINT[A1 X][A1 Y];
00430A=A+M:J=61375+A+B*64:X=PEEK(J):Y=PEEK(J+1):POKEJ,129:POKEJ+1,130
00440Z=USR(12320,522):Z=USR(12320,2610):Z=USR(12320,908)
00450IFB>8ANDB<14AND(X<>32ORY<>32)THEN810
00460IFB<7ANDX=136ANDY=136THEN810
00470GOTO590
00480IF(R1$="Q"ORR1$=CHR(5))ANDB>1:M=-1:GOTO520
00490IF(R1$="A"ORR1$=CHR(24))ANDB<14:M=1:GOTO520
00500POKE257,1
00510GOTO590
00520CURSA,B:PRINT[A1 X][A1 Y];
00530S=S-(E*M/5)
00540B=B+M:J=61375+A+B*64:X=PEEK(J):Y=PEEK(J+1):POKEJ,129:POKEJ+1,130
00550Z=USR(12320,522):Z=USR(12320,2610):Z=USR(12320,908)
00560IFB>8ANDB<14AND(X<>32ORY<>32)THEN810
00570IFB<7ANDX=136ANDY=136THEN810
00580IFB=1THEN810
00590GOTO610
00600F=F+1:IFF=20THENLETF=0:GOSUB1090:GOTO610ELSEFORT=1TO8:NEXTT
00610T1=T1-.2:CURS60,15:PRINTINT(T1)" ";
00620IFT1=0THEN810
00630CURS10,15:PRINTS
00640GOTO260
00650CURS0:PRINT[A3 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137][A1 142][A8 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137];
00660PRINT[A1 142][A3 140];
00670CURS1,2:PRINT[A24 136][A6 136][A1 131][A8 132][A1 133][A6 136][A1 131][A8 132][A1 133][A14 136];
00680CURS63,2:PRINT[A8 136][A1 131][A8 132][A1 133][A6 136][A1 131][A8 132][A1 133][A6 136][A1 131][A8 132][A1 133][A16 136];
00690CURS1,4:PRINT[A5 136][A1 131][A16 132][A1 133][A41 136]
00700CURS1,5:PRINT[A10 136];:GOSUB1050:PRINT[A8 136];:GOSUB1050:PRINT[A8 136];:GOSUB1050:PRINT[A20 136];
00710CURS59,5:PRINT[A8 136][A1 131][A8 132][A1 133][A6 136][A1 131][A8 132][A1 133][A6 136][A1 131][A8 132][A1 133][A20 136];
00720CURS1,7:PRINT[A64 137];
00730CURS1,8:PRINT[A64 138];
00740CURS2,9:GOSUB1150:PRINT[A5 32];:GOSUB1150:PRINT[A5 32];:GOSUB1150:PRINT[A5 32];:GOSUB1150
00750CURSINT(RND*8+1),10:GOSUB1130:PRINT[A8 32];:GOSUB1130:PRINT[A8 32];:GOSUB1130:PRINT[A9 32];:GOSUB1130
00760CURSINT(RND*4+2),11:GOSUB1070:PRINT[A6 32];:GOSUB1070:PRINT[A6 32];:GOSUB1070;:PRINT[A6 32];:GOSUB1070:PRINT[A6 32];:GOSUB1070
00770CURSINT(RND*10+1),12:GOSUB1140:PRINT[A7 32];:GOSUB1140:PRINT[A7 32];:GOSUB1140:PRINT[A7 32];:GOSUB1140:PRINT[A7 32];:GOSUB1140
00780CURSINT(RND*5+1),13:GOSUB1080:PRINT[A7 32];:GOSUB1080:PRINT[A7 32];:GOSUB1080:PRINT[A7 32];:GOSUB1080:PRINT[A7 32];:GOSUB1080
00790CURS1,14:PRINT[A64 139];
00800CURS3,15:PRINT"SCORE:";:CURS54,15:PRINT"TIME: "INT(T1);:GOSUB1260:GOSUB1240:RETURN
00810IFB=1ANDX=137ANDY=137THENLETA=32:G=G+1:IFG<5THENLETB=14:S=S+5*E:CURS10,15:PRINTS:GOSUB960:GOTO190
00820IFB=1ANDX=137ANDY=137THENLETB=14:G=0:S=S+30*E:E=E+5:FORT=1TO500:NEXTT:GOSUB960:GOSUB1060:GOSUB1240:GOTO170:REMALL  
00830R=USR(12320,12942)
00840D=D-1:CURSA,B:PRINT[A1 X][A1 Y];
00850IFD>0THENLETA=32:B=15:GOSUB1240:T1=40.8:R1$=KEY:GOTO190
00860CURS23,15:PRINTCHR(129)CHR(130)" G A M E  O V E R "CHR(129)CHR(130);
00870 CURS1,16:PRINT"        Hit <Q> to Quit or ANY OTHER KEY for a New Game        ";:R1$=KEY:R1$=KEY
00880 R1$=KEY:IFR1$=""THEN880
00890 IFR1$="Q"ORR1$="q"THENRUN"M"
00900CURS10,15:PRINT[A40 32];:CURS1,16:PRINT[A60 32];:RESTORE2190:POKE257,1:GOSUB1060:GOTO140
00910O=USR(11520):FORO=1TO75:NEXTO
00920GOTO900
00930R=USR(12320,12942)
00940T1=40.8
00950POKE61440+B*64-64,Y:POKE61440+B*64-1,X:D=D-1:GOTO850
00960GOSUB1260
00970IFINT(T1)=0THEN1000
00980FORT=INT(T1)TO0STEP-1:S=S+1:CURS10,15:PRINTS;:CURS60,15:PRINTT" ";:O=USR(11520):O=USR(11520):R=USR(12320,1300):NEXTT
00990T1=40.8
01000P=INT(RND*5):POKE12272+P,INT(RND*4+1)
01010IFRND>.5THEN1030
01020P=PEEK(12272):IFP>1THENLETP=P-1:POKE12272,PELSEPOKE12272,3
01030V=V+1:P=INT(RND*5)+5:O=PEEK(12272+P):IFO>1THENLETO=O-1:POKE12272+P,OELSEIFV>6THENLETV=V-1:POKE12272+P,INT(RND*2)+2
01040RETURN
01050PRINTCHR(134)CHR(135)CHR(134)CHR(135)CHR(134)CHR(135);:RETURN
01060CURS0:L=0:G=0:PRINT[A3 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137][A1 142][A8 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137][A1 142][A10 140][A1 141][A2 137]:RETURN
01070PRINTCHR(166)CHR(167)CHR(168)CHR(169)CHR(170)CHR(171);:RETURN
01080PRINTCHR(160)CHR(161)CHR(162)CHR(163)CHR(164)CHR(165);:RETURN
01090IFL=1THENCURSQ(W),1:PRINT[A2 137];
01100C=INT(RND*5+1):W=C+(C=W)-4*(C=1)
01110L=0:IFPEEK(61439+Q(W))=137THENCURSQ(W),1:PRINT[A1 172][A1 173];:L=1
01120RETURN
01130PRINTCHR(150)CHR(151)CHR(152)CHR(153)CHR(154)CHR(155);:RETURN
01140PRINT[A1 156][A1 157][A1 158][A1 159];:RETURN
01150PRINTCHR(143)CHR(144)CHR(145)CHR(146)CHR(147)CHR(148)CHR(149);:RETURN
01160REM DEAD ON ROAD
01170R=USR(12320,12942)
01180ONB-8GOTO1200,1200,1210,1200,1210
01190GOTO810
01200CURSA+1,B:PRINT[A1 Y];:GOTO1220
01210CURSA,B:PRINT[A1 X];
01220T1=40.8:D=D-1:GOTO850
01230REM MEN LEFT
01240CURS1,16:PRINT"FROGS LEFT:"D;:RETURN
01250REM BONUS
01260CURS53,16:PRINT" BONUS:"E" ";:RETURN
01270CLS:PRINT"internal error:   hit 'return' to start again"
01280ONERRORGOTO1270
01290R1$=KEY
01300IFKEY<>CHR(13)THEN1300ELSEGOSUB650:GOTO160
01310DATA33,0,48,205,171,45,254,0
01320DATA194,17,45,33,64,240,205,215
01330DATA45,33,1,48,205,171,45,254
01340DATA0,194,34,45,33,128,240,205
01350DATA187,45,33,2,48,205,171,45
01360DATA254,0,194,51,45,33,192,240
01370DATA205,215,45,33,3,48,205,171
01380DATA45,254,0,194,68,45,33,0
01390DATA241,205,187,45,33,4,48,205
01400DATA171,45,254,0,194,85,45,33
01410DATA64,241,205,215,45,33,5,48
01420DATA205,171,45,254,0,194,102,45
01430DATA33,0,242,205,247,45,33,6
01440DATA48,205,171,45,254,0,194,119
01450DATA45,33,64,242,205,247,45,33
01460DATA7,48,205,171,45,254,0,194
01470DATA136,45,33,128,242,205,41,46
01480DATA33,8,48,205,171,45,254,0
01490DATA194,153,45,33,192,242,205,247
01500DATA45,33,9,48,205,171,45,254
01510DATA0,194,170,45,33,0,243,205
01520DATA41,46,201,53,126,254,0,192
01530DATA17,240,255,25,70,17,16,0
01540DATA25,112,201,70,14,63,120,254
01550DATA129,194,201,45,62,1,50,16
01560DATA48,35,126,43,119,35,13,121
01570DATA254,0,194,201,45,112,201,17
01580DATA63,0,25,14,63,70,120,254
01590DATA130,194,233,45,62,1,50,16
01600DATA48,43,126,35,119,43,13,121
01610DATA254,0,194,233,45,112,201,17
01620DATA63,0,25,70,14,63,43,126
01630DATA254,32,194,17,46,35,126,254
01640DATA129,62,32,202,31,46,195,30
01650DATA46,254,129,202,32,46,254,130
01660DATA194,29,46,62,32,35,119,43
01670DATA13,121,254,0,194,254,45,112
01680DATA201,70,14,63,35,126,254,32
01690DATA194,63,46,43,126,254,130,62
01700DATA32,194,76,46,195,77,46,254
01710DATA130,202,78,46,254,129,194,75
01720DATA46,62,32,43,119,35,13,121
01730DATA254,0,194,44,46,112,201,0
01740DATA96,64,103,41,31,55,59,55,27,31,51,48,32,24,8,0,6,2,230,148,248,236,220,236,216,248,204,12,4,24,16,0
01750DATA0,0,0,8,31,52,38,99,65,99,50,22,15,0,0,0
01760DATA0,0,0,32,255,4,0,0,0,0,0,2,255,32,0,0
01770DATA0,0,0,0,224,48,24,12,4,12,8,24,240,0,0,0
01780DATA0,0,6,12,7,3,103,254,103,3,7,12,6,0,0,0,0,0,0,0,238,121,176,220,176,121,238,0,0,0,0,0
01790DATA8,1,16,0,68,0,16,0,130,0,32,0,17,128,0,130
01800DATA255,170,85,170,85,170,85,170,85,170,85,170,85,170,85,170
01810DATA85,170,85,170,85,170,85,170,85,170,85,170,85,170,85,255
01820DATA255,170,85,170,85,170,85,170,85,170,85,170,85,170,85,255
01830DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
01840DATA3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,255
01850DATA192,192,192,192,192,192,192,192,192,192,192,192,192,192,192,255
01860DATA0,15,3,31,28,28,28,28,28,28,28,28,31,3,15,0
01870DATA0,192,0,255,0,0,0,0,0,0,0,0,255,0,192,0
01880DATA0,1,0,255,0,0,0,0,0,0,0,0,255,0,1,0
01890DATA0,248,96,252,28,28,28,31,31,28,28,28,252,96,248,0
01900DATA0,54,54,0,7,7,6,238,238,6,7,7,0,54,54,0
01910DATA0,216,216,0,192,192,127,124,124,127,192,192,0,216,216,0
01920DATA0,0,0,252,48,48,252,12,12,252,48,48,252,0,0,0
01930DATA59,59,59,16,16,16,17,17,17,17,16,16,16,59,59,59
01940DATA187,187,187,0,0,0,240,17,17,240,0,0,0,187,187,187
01950DATA187,187,187,0,127,243,225,225,225,225,243,127,0,187,187,187
01960DATA187,187,187,0,128,192,224,255,255,224,192,128,0,187,187,187
01970DATA187,187,187,4,4,4,4,255,255,4,4,4,4,187,187,187
01980DATA128,128,128,0,0,0,24,248,248,24,0,0,0,128,128,128
01990DATA0,0,1,63,255,63,63,63,63,63,63,63,63,1,0,0
02000DATA0,0,224,255,128,177,177,177,177,177,177,128,255,224,0,0
02010DATA0,0,15,255,3,131,131,131,155,159,155,3,255,15,0,0
02020DATA0,0,0,248,248,248,248,248,248,248,248,248,248,0,0,0
02030DATA0,0,63,48,48,48,48,48,48,48,48,48,48,63,0,0
02040DATA0,0,240,240,255,240,240,240,240,240,240,255,240,240,0,0
02050DATA0,219,219,0,247,54,54,54,54,54,54,247,0,219,219,0
02060DATA0,109,109,0,255,0,96,14,110,14,0,255,0,109,109,0
02070DATA0,182,182,0,255,0,124,124,124,124,0,255,0,182,182,0
02080DATA0,216,216,0,192,192,192,192,192,192,192,192,0,216,216,0
02090DATA0,0,0,0,243,205,205,207,207,205,205,243,0,0,0,0
02100DATA0,0,56,127,192,128,191,25,25,191,128,192,127,56,0,0
02110DATA0,0,0,255,0,0,255,153,153,255,0,0,255,0,0,0
02120DATA0,0,0,255,0,0,255,153,153,255,0,0,255,0,0,0
02130DATA0,0,7,255,0,0,255,153,153,255,0,0,255,7,0,0
02140DATA0,0,128,255,12,12,236,140,140,236,12,12,255,128,0,0
02150DATA255,0,0,0,0,0,60,103,127,112,99,255,0,0,0,0
02160DATA255,0,0,0,14,62,230,192,0,12,110,254,0,0,0,0
02170DATA97,62,64,211,2,13,121,254,0,32,250,76,62,0,211,2,13,121,254,0,32,250,76,5,120,254,0,32,228,201
02180DATA5,19,31,45,59
02190DATA3,2,1,3,2,4,1,3,3,2
02200REM
02210PRINT\"The object of this game is to get your frog to his home at the  top of the screen. The controls are , and . left/right and"
02220PRINT"'Q','A' up/down or for Premiums, use Arrow keys."
02230PRINT\"You get 5*bonus for every frog home and for filling all homes   you get 30*bonus and your bonus goes up 5 points." 
02240PRINT"Points are also scored for time remaining after getting each    frog home and for moving your frog forward."
02250PRINT\"An extra frog is awarded after the first two frames."
02260RETURN