1000 REM save FROG.STY 
1010 H%=1000% : GOTO 2650
1020 RANDOMIZE 
1030 T=T1%
1040 ; CUR(22%,0%); : FOR X%=0% TO 23% : FOR T%=0% TO 150% : NEXT T% : ; : ; CHR$(151%); : NEXT X%
1050 POKE 65013%,0%
1060 X1%=0% : Y1%=0%
1070 IF F%=5% THEN F%=4%
1080 IF F%=3% THEN ; CUR(1%,13%)"(x8 (x8"CUR(2%,13%)"*#+ *#+"
1090 IF F%=2% THEN ; CUR(1%,15%)"(x8"CUR(2%,15%)"*#+"
1100 IF F%=4% THEN ; CUR(1%,11%)"(x8 (x8 (x8"CUR(2%,11%)"*#+ *#+ *#+"
1110 ; CUR(0%,0%)"SCORE =       FROGS  HI-SCORE ="CUR(0%,7%)S%CUR(0%,31%)H%
1120 ; CUR(3%,2%)"TIME "; : ; STRING$(T,255%)
1130 ; CUR(5%,1%)"BONUS "; : IF B%=0% 1140 ELSE FOR B1%=32391% TO 32391%+B% : POKE B1%,255% : NEXT B1%
1140 IF O%=1% THEN GOTO 1460
1150 ; CUR(7%,1%)",=,,,=,,,=,,,=,,,=,,,=,,,=,,,=,,,=,,,=,"CUR(8%,1%)"#7###7###7###7###7###7###7###7###7###7#"
1170 A%=(RND*20%)+3% : ; CUR(7%,A%)"n    ="CUR(8%,A%)"k    7"
1180 A%=(RND*8%)+1% : ; CUR(9%,A%)"||||`lx0"CUR(10%,A%)"}~+xo%"
1190 A%=(RND*8%)+17% : ; CUR(9%,A%)"`|pt"CUR(10%,A%)"*|/?"
1200 A%=(RND*6%)+30% : ; CUR(9%,A%)"`|pt"CUR(10%,A%)"*|/?"
1210 A%=(RND*15%)+1% : ; CUR(13%,A%)"`|pt"CUR(14%,A%)"*|/?"
1220 A%=(RND*15%)+20% : ; CUR(13%,A%)"`|pt"CUR(14%,A%)"*|/?"
1230 A%=(RND*15%)+1% : ; CUR(17%,A%)"`|pt"CUR(18%,A%)"*|/?"
1240 A%=(RND*15%)+19% : ; CUR(17%,A%)"<,,,,8p"CUR(18%,A%)"uqqqqe."
1250 A%=(RND*15%)+1% : ; CUR(11%,A%)"pd,,,,,l"CUR(12%,A%)"-:rrrrrz"
1260 A%=(RND*15%)+22% : ; CUR(11%,A%)"xp|0"CUR(12%,A%)"o/|%"
1270 A%=(RND*15%)+1% : ; CUR(15%,A%)"xp|0"CUR(16%,A%)"o/|%"
1280 A%=(RND*15%)+20% : ; CUR(15%,A%)"xp|0"CUR(16%,A%)"o/|%"
1290 ; CUR(21%,1%)", , , , , , , , , , , , , , , , , , , ,";
1300 X%=18% : Y%=19% : OUT 6%,17%
1310 A%=INP(56%) : IF A%<128% GOSUB 4020
1315 IF A%=136% Y1%=-2% : OUT 6%,157% : S%=S%+9%
1320 IF A%=218% X1%=-1% : OUT 6%,157%
1330 IF A%=216% X1%=1% : OUT 6%,157%
1340 IF A%=137% Y1%=2% : OUT 6%,157% : S%=S%+9%
1350 IF X%=1% OR X%=37% 2340
1360 IF Y%=20% Y%=19%
1370 ; CUR(Y%,X%)"   "CUR(Y%+1%,X%)"   "
1380 Y%=Y%+Y1% : X%=X%+X1% : Y1%=0% : X1%=0% : POKE 65011%,Y%,X%
1390 IF CALL(63488%) 2340
1400 ; CUR(Y%,X%)"(x8" : Z%=Z%+1%
1410 IF Z%/2%=Z%/2 ; CUR(Y%+1%,X%)"(##" ELSE ; CUR(Y%+1%,X%)'"#)'
1420 IF Y%=7% O%=1% : GOTO 2470
1430 S%=S%+1% : ; CUR(0%,7%)S%
1440 T=T-.1 : ; CUR(3%,7%+T)" " : IF T=0% 2340
1450 OUT 6%,17% : FOR G%=0% TO 400%-\% : NEXT G% : GOTO 1310
1460 ; CUR(6%,1%)"      p|t0    p|t0    p|t0    p|t0"
1470 ; CUR(7%,1%)"!  k!  k!  k!  k"
1480 ; CUR(8%,1%)"   j   j   j   j"
1490 IF F1%=1% PRINT CUR(7%,7%)")x8" : PRINT CUR(8%,7%)"*#+"
1500 IF F2%=1% PRINT CUR(7%,15%)")x8" : PRINT CUR(8%,15%)"*#+"
1510 IF F3%=1% PRINT CUR(7%,23%)")x8" : PRINT CUR(8%,23%)"*#+"
1520 IF F4%=1% PRINT CUR(7%,31%)")x8" : PRINT CUR(8%,31%)"*#+"
1530 A%=(RND*8%)+1% : A1%=(RND*8%)+3% : ; CUR(9%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(10%,A%)"e"STRING$(A1%,127%)"%"
1540 A%=(RND*8%)+19% : A1%=(RND*8%)+3% : ; CUR(9%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(10%,A%)"e"STRING$(A1%,127%)"%"
1550 A%=(RND*8%)+1% : A1%=(RND*8%)+3% : ; CUR(11%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(12%,A%)"e"STRING$(A1%,127%)"%"
1560 A%=(RND*8%)+19% : A1%=(RND*8%)+3% : ; CUR(11%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(12%,A%)"e"STRING$(A1%,127%)"%"
1570 A%=(RND*8%)+1% : ; CUR(13%,A%)"ig;v" : ; CUR(14%,A%)":vyg"
1580 A%=(RND*8%)+18% : ; CUR(13%,A%)"ig;v" : ; CUR(14%,A%)":vyg"
1590 A%=(RND*8%)+1% : A1%=(RND*8%)+3% : ; CUR(17%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(18%,A%)"e"STRING$(A1%,127%)"%"
1600 A%=(RND*8%)+19% : A1%=(RND*8%)+3% : ; CUR(17%,A%)"8"STRING$(A1%,124%)"0" : ; CUR(18%,A%)"e"STRING$(A1%,127%)"%"
1610 A%=(RND*30%)+1% : PRINT CUR(15%,A%)"p8tp" : PRINT CUR(16%,A%)" rs}|pp"
1620 PRINT CUR(19%,1%)STRING$(39%,124%);
1630 PRINT CUR(20%,1%)STRING$(39%,127%)
1640 X%=19% : Y%=19% : Y1%=0% : X1%=0% : G1%=124% : G2%=124% : G3%=124% : G4%=127% : G5%=127% : G6%=127%
1650 OUT 6%,105%
1660 A%=INP(56%) : IF A%<128% GOSUB 4020
1665 IF A%=136% AND A%<>A1% Y1%=-2% : OUT 6%,157% : S%=S%+9%
1670 IF A%=218% X1%=-1% : OUT 6%,157%
1680 IF A%=216% X1%=1% : OUT 6%,157%
1690 IF A%=137% AND A1%<>A% Y1%=2% : OUT 6%,157%
1700 A1%=A% : IF X%=1% OR X%=37% 2340
1710 Y2%=0% : IF X1%=0% AND Y1%=0% Y2%=1% : FOR T%=0% TO 65% : NEXT T% : GOTO 1740
1720 POKE 65011%,Y%,X% : POKE CALL(65408%),G1%,G2%,G3%
1730 POKE 65011%,Y%+1%,X% : POKE CALL(65408%),G4%,G5%,G6%
1740 S%=S%+1% : PRINT CUR(0%,7%)S%
1750 T=T-.1 : PRINT CUR(3%,7%+T)" " : IF T=0% 2340
1760 X%=X%+X1% : Y%=Y%+Y1% : X1%=0% : Y1%=0% : POKE 65011%,Y% : POKE 65012%,X%
1770 IF Y%=7% THEN GOTO 2000
1780 Z%=CALL(63488%)
1790 IF Y%=9% OR Y%=13% OR Y%=17% X%=X%+1% ELSE IF Y%=11% OR Y%=15% X%=X%-1%
1800 IF Y2%=1% 1890
1810 POKE 65011%,Y%,X% : G1%=PEEK(CALL(65408%))
1820 POKE 65011%,Y%,X%+1% : G2%=PEEK(CALL(65408%))
1830 POKE 65011%,Y%,X%+2% : G3%=PEEK(CALL(65408%))
1840 POKE 65011%,Y%+1%,X% : G4%=PEEK(CALL(65408%))
1850 POKE 65011%,Y%+1%,X%+1% : G5%=PEEK(CALL(65408%))
1860 POKE 65011%,Y%+1%,X%+2% : G6%=PEEK(CALL(65408%))
1870 IF G4%=32% OR G5%=32% OR G6%=32% THEN GOTO 2340
1880 IF T%<5% OUT 6%,107% ELSE OUT 6%,105%
1890 IF G4%=114% OR G4%=115% GOTO 2340
1900 PRINT CUR(Y%,X%)"<<<" : PRINT CUR(Y%+1%,X%)"7p2"
1910 IF T%=5% OUT 6%,107%
1920 IF RND*100%<98% 1990
1930 OUT 6%,237% : PRINT CUR(7%,L%*8%-1%)"!  " : PRINT CUR(8%,L%*8%-1%)"   "
1940 L%=RND*4%+1% : PRINT CUR(7%,L%*8%-1%)"!t4" : ; CUR(8%,L%*8%-1%)"*>>"
1950 IF F1%=1% PRINT CUR(7%,7%)")x8" : PRINT CUR(8%,7%)"*#+"
1960 IF F2%=1% PRINT CUR(7%,15%)")x8" : PRINT CUR(8%,15%)"*#+"
1970 IF F3%=1% PRINT CUR(7%,23%)")x8" : PRINT CUR(8%,23%)"*#+"
1980 IF F4%=1% PRINT CUR(7%,31%)")x8" : PRINT CUR(8%,31%)"*#+"
1990 FOR I%=0% TO 300%-\% : NEXT I% : GOTO 1660
2000 IF F1%=1% 2010 ELSE IF X%=7% F1%=1% : GOTO 2050
2010 IF F2%=1% 2020 ELSE IF X%=15% F2%=1% : GOTO 2050
2020 IF F3%=1% 2030 ELSE IF X%=23% F3%=1% : GOTO 2050
2030 IF F4%=1% 2040 ELSE IF X%=31% F4%=1% : GOTO 2050
2040 GOTO 2340
2050 \%=\%+20% : OUT 6%,221%
2060 IF L%*8%-1%=X% PRINT CUR(1%,0%)"        GOOD FOOD = 500 POINTS" : OUT 6%,235% : S%=S%+300%
2070 FOR Q%=0% TO 10%
2080 PRINT CUR(Y%,X%)"!  " : PRINT CUR(Y%+1%,X%)"   "
2090 FOR I%=0% TO 300% : NEXT I%
2100 PRINT CUR(7%,X%)")x8" : PRINT CUR(8%,X%)"*#+"
2110 FOR I%=0% TO 200% : NEXT I%
2120 NEXT Q%
2130 OUT 6%,29%
2140 FOR Q%=0% TO B%+T-1% : PRINT CUR(5%,Q%+7%)"" : FOR T%=0% TO 500% : NEXT T%
2150 IF Q%=30% GOSUB 2190 : GOTO 2170 ELSE NEXT Q%
2160 B%=Q%-1% : O%=0% : S%=S%+200%
2170 IF F1%+F2%+F3%+F4%=4% THEN GOSUB 2500
2180 GOTO 1030
2190 F%=F%+1% : IF F%=5% 2330
2200 PRINT CHR$(12%)
2210 FOR X%=0% TO 23% : ; : ; CHR$(151%); : NEXT X%
2220 PRINT CUR(5%,7%)"        " : PRINT CUR(6%,7%)"                  "
2230 PRINT CUR(7%,7%)"              " : PRINT CUR(8%,7%)"                  "
2240 PRINT CUR(9%,7%)"               "
2250 PRINT CUR(12%,8%)"         " : PRINT CUR(13%,8%)"              "
2260 PRINT CUR(14%,8%)"          " : PRINT CUR(15%,8%)"               "
2270 PRINT CUR(16%,8%)"             "
2280 OUT 6%,255%
2290 FOR T%=0% TO 1000% : NEXT T%
2300 FOR T%=0% TO 50%
2310 A%=RND*22% : A1%=RND*35%+1% : PRINT CUR(A%,A1%)"(x8" : PRINT CUR(A%+1%,A1%)"*#+" : NEXT T%
2320 FOR T%=0% TO 1000% : NEXT T%
2330 O%=99% : B%=0% : RETURN 
2340 OUT 6%,137% : PRINT CUR(Y%,X%)'`ld' : PRINT CUR(Y%+1%,X%)'"w7'
2350 A%=1% : GOSUB 3370
2360 FOR T%=0% TO 10% : OUT 6%,0% : OUT 6%,137% : FOR I%=0% TO 200% : NEXT I%
2370 NEXT T%
2380 OUT 6%,45%
2390 FOR A%=0% TO 15%
2400 PRINT CUR(Y%,X%)"(x8" : PRINT CUR(Y%+1%,X%)"*#+"
2410 FOR T%=0% TO 150% : NEXT T%
2420 PRINT CUR(Y%,X%)"   " : PRINT CUR(Y%+1%,X%)"   "
2430 FOR T%=0% TO 250% : NEXT T%
2440 NEXT A%
2450 F%=F%-1% : IF F%=0% 2590
2460 O%=0% : GOTO 1030
2470 OUT 6%,255%
2480 A%=10% : GOSUB 3370
2490 OUT 6%,0% : O%=1% : GOTO 1040
2500 PRINT CHR$(12%) : FOR X%=0% TO 23% : ; : ; CHR$(151%); : NEXT X%
2510 PRINT CUR(8%,4%)"        " : PRINT CUR(9%,4%)"                     "
2520 PRINT CUR(10%,4%)"                " : PRINT CUR(11%,4%)"                       "
2530 PRINT CUR(12%,4%)"                   "
2540 PRINT CUR(14%,4%)""
2550 A%=30% : GOSUB 3370
2560 FOR T%=0% TO 1000% : NEXT T%
2570 T1%=T1%-5% : IF T1%=10% THEN T1%=15%
2580 \%=\%-50% : O%=0% : S%=S%+1000% : F1%=0% : F2%=0% : F3%=0% : F4%=0% : RETURN 
2590 OUT 6%,0%,6%,107% : FOR T%=0% TO 2000% : NEXT T%
2600 A$=CUR(0,0)+"       * * G A M E   O V E R * *      "+CUR(0,5)
2610 FOR A%=0% TO 300% : PRINT A$; : PRINT STRING$(29%,32%) : NEXT A%
2620 IF H%>S% 2650
2630 OUT 6%,255% : A$=CUR(0,0)+"        BUT IT WAS A HIGH SCORE"+CUR(0,8) : H%=S%
2640 FOR A%=0% TO 500% : PRINT A$; : PRINT STRING$(34%,32%) : NEXT A%
2650 RESTORE : PRINT CUR(23%,0%)
2660 FOR X%=0% TO 23% : ; : ; CHR$(151%); : FOR T%=0% TO 200% : NEXT T% : NEXT X%
2670 GOSUB 3360
2680 FOR I%=0% TO 8%
2690 READ A%,A$ : PRINT CUR(I%,A%+1%)A$ : NEXT I%
2700 Y%(0%)=0% : Y%(1%)=-1% : Y%(2%)=0% : Y%(3%)=1%
2710 X%(0%)=1% : X%(1%)=0% : X%(2%)=-1% : X%(3%)=0%
2720 Y%=15% : X%=2%
2730 FOR I%=0% TO 3%
2740 FOR A%=0% TO 3%
2750 PRINT CUR(12%,22%)"" : PRINT CUR(10%,18%)"" : PRINT CUR(12%,16%)"" : PRINT CUR(14%,18%)""
2760 OUT 6%,0%,6%,133%
2770 ON A%+1% GOTO 2780,2790,2800,2810
2780 PRINT CUR(12%,22%)"X" : GOTO 2820
2790 PRINT CUR(10%,17%)CHR$(135%);"<--";CHR$(151%) : GOTO 2820
2800 PRINT CUR(12%,16%)"Z" : GOTO 2820
2810 PRINT CUR(14%,17%)CHR$(135%);"-->";CHR$(151%)
2820 FOR A1%=0% TO 5%
2830 PRINT CUR(Y%,X%)"   " : PRINT CUR(Y%+1%,X%)"   "; : PRINT CUR(Y%,X%+27%)"   " : PRINT CUR(Y%+1%,X%+27%)"   "
2840 PRINT CUR(Y%+6%,X%+13%)"   " : PRINT CUR(Y%+7%,X%+13%)"   "
2850 Y%=Y%+Y%(A%) : X%=X%+X%(A%)
2860 PRINT CUR(Y%,X%)"(x8" : PRINT CUR(Y%+1%,X%)"*#+" : PRINT CUR(Y%,X%+27%)"(x8" : PRINT CUR(Y%+1%,X%+27%)"*#+"
2870 PRINT CUR(Y%+6%,X%+13%)"(x8" : PRINT CUR(Y%+7%,X%+13%)"*#+"
2880 FOR T%=0% TO 200% : IF INP(56%)>128% 2990 ELSE NEXT T%
2890 NEXT A1% : NEXT A% : NEXT I% : GOTO 3010
2900 DATA 16,"DETTA
2910 DATA 12,"HELT SANSL\SA"
2920 DATA 9,"SPEL  G]R UT P] ATT
2930 DATA 7,"LOTSA DIN HELGALNA GRODA
2940 DATA 5,"\VER EN V[G OCH SEDAN \VER EN
2950 DATA 2,"STRID FLOD VIA  STOCKAR SK\LDPADDOR"
2960 DATA 1,"OCH KROKODILER F\R ATT TILL SIST F\RA"
2970 DATA 3,"DEN TILL SITT HEM SOM [R P] ANDRA"
2980 DATA 4,"SIDAN OM DEN F\R[DISKA FLODEN"
2990 \%=0% : F%=3% : L%=1% : F1%=0% : F2%=0% : F3%=0% : F4%=0% : S%=0% : T1%=30% : O%=0% : B%=0
3000 PRINT CUR(23%,0%) : GOTO 1020
3010 FOR I%=0% TO 23% : ; : ; CHR$(151%); : FOR T%=0% TO 200% : NEXT T% : NEXT I%
3020 PRINT CUR(0%,0%)" "
3030 PRINT CUR(1%,1%)"      p|t0    p|t0    p|t0    p|t0";
3040 PRINT CUR(2%,1%)"!  k!  k!t4k!  k";
3050 PRINT CUR(3%,1%)"   j   j*>>j   j";
3060 GOSUB 3360
3070 FOR X%=7% TO 31% STEP 8%
3080 FOR Y%=20% TO 2% STEP -1%
3090 FOR T%=0% TO 200% : IF INP(56%)>128% 2990 ELSE NEXT T%
3100 OUT 6%,17%
3110 ; CUR(Y%,X%)"(x8" : ; CUR(Y%+2%,X%)"   " : IF Y%/2%=Y%/2 ; CUR(Y%+1%,X%)"(##" ELSE ; CUR(Y%+1%,X%)'"#)'
3120 NEXT Y% : OUT 6%,0%,6%,137% : ON X%/8%+1% GOTO 3130,3130,3140,3150
3130 P%=200% : GOTO 3160
3140 P%=500% : GOTO 3160
3150 P%=1000%
3160 PRINT CUR(Y%+1%,X%)")" : PRINT CUR(0%,X%-1%)P% : FOR T%=0% TO 5000% : NEXT T% : NEXT X%
3170 FOR T%=0% TO 2000% : NEXT T%
3180 PRINT CUR(22,0)
3190 FOR A%=0% TO 23% : FOR T%=0% TO 200% : NEXT T% : ; : ; CHR$(151%); : NEXT A%
3200 FOR A%=4% TO 16% : READ A$ : PRINT CUR(A%,3%)A$ : NEXT A%
3210 DATA "             "
3220 DATA "                      "
3230 DATA "                        "
3240 DATA "                        "
3250 DATA "                       "
3260 DATA "                 "
3270 DATA "                      "
3280 DATA "                      "
3290 DATA "                      "
3300 DATA "                  "
3310 DATA "                   "
3320 DATA " "
3330 DATA ""
3340 GOSUB 3360 : OUT 6%,237%
3350 FOR T%=0% TO 10000% : NEXT T% : OUT 6%,255% : A%=10% : GOSUB 3370 : GOTO 2650
3360 PRINT CUR(23%,0%)"  YOUR SCORE WAS        HI SCORE "; : PRINT CUR(23%,16%)S%; : PRINT CUR(24%,32%)H%; : RETURN 
3370 FOR I%=0% TO A%
3380 Z%=CALL(64000%) : Z=CALL(-1500%) : NEXT I% : RETURN 
4000 REM ## JOYSUB.SUB ##
4010 REM ################
4020 RETURN 
4025 OUT 58,16 : \8%=INP(58%) AND 7% : OUT 58,8 : \8%=\8%+(INP(58%) AND 7%)*8%
4030 IF NOT \8% AND 4% A%=137% : REM N
4040 IF NOT \8% AND 8% A%=218% : REM V
4050 IF NOT \8% AND 16% A%=216% : REM H
4060 IF NOT \8% AND 32% A%=136% : REM U
4070 REM IF NOT \8% AND 1% R$='Hk'
4080 RETURN 
