10 SCREEN 3,2,2:CLEAR:CLS 20 DIM FX(5),FY(5),DX(5),DY(5),FI(5),CF(5)::U=10:SN=0:CD=&HED0D 25 GOTO 7000 30 SOUND7,170:SOUND9,16:SOUND12,80:SOUND13,14 35 REM 36 REM 40 REM 100 REM 200 CLS:CT=0 210 FOR K=1 TO 5:CF(K)=INT(RND(-TIME)*50)+50 212 DX(K)=INT(RND(-TIME)*3)-1 214 IFDX(K)=0THEN GOTO 212 220 FX(K)=INT(RND(-TIME)*10):FY(K)=INT(RND(-TIME)*9)+3 230 IFDX(K)=1THENFI(K)=INT(RND(-TIME)*3)*2+1 235 IFDX(K)=-1THENFI(K)=INT(RND(-TIME)*3)*2+2 240 V=FX(K):W=FY(K):CH=FI(K):GOSUB5000 250 NEXT K 300 REM MOVE UKI 310 CT=CT+1 320 IFCT=2THENW=0:V=U:CH=0:GOSUB5000:CT=0:U=U-1:V=U:CH=7:GOSUB5000 330 IF(U=0)THEN:W=0:U=0:CH=0:GOSUB5000:CT=0:U=10 340 REM GOTO 300 400 REM MOVE FISH52 402 FORK=1TO5 403 CF(K)=CF(K)+1 405 IF CF(K)<100 THEN 480 407 CF(K)=INT(RND(-TIME)*50)+50 420 CH=0:V=FX(K):W=FY(K):GOSUB 5000 430 FX(K)=FX(K)+DX(K) 440 IF FX(K)=0THENFX(K)=9 450 IF FX(K)=10THENFX(K)=0 460 CH=FI(K):V=FX(K):W=FY(K):GOSUB 5000 480 NEXT K 490 REM GOTO 300 500 REM HIT 520 FOR K=1 TO 5 540 IF FX(K)<>U THEN 590 560 IFINT(RND(-TIME)*10)>1THEN590 580 V=U:W=0:CH=0:GOSUB5000:W=1:CH=7:GOSUB5000:FORT=0TO200:NEXT 584 IFINT(RND(-TIME)*10)>5 THEN GOTO 590 586 V=U:W=1:CH=0:GOSUB5000:W=2:CH=7:GOSUB5000 587 FORT=0TO200:NEXT 588 IF STRIG(0)+STRIG(1)THEN GOTO 800 590 NEXT K 600 V=U:W=1:CH=0:GOSUB5000:V=U:W=2:CH=0:GOSUB5000 690 GOTO 300 800 REM FIGHT 810 CLS 830 FX(K)=4:FY(K)=10:PW=120 850 IF STRIG(0)+STRIG(1) THEN GOTO 1000 870 V=FX(K):W=FY(K):CH=0:GOSUB 5000 900 FY(K)=FY(K)+0.2:PW=PW-INT(RND(-TIME)*10)-5 905 IF FY(K)<1 THEN 3000 907 IF FY(K)>11 THEN 2000 910 LINE(0,195)-(319,199),16,BF:LINE(0,195)-(PW,199),11,BF 920 V=FX(K):W=FY(K):CH=FI(K):GOSUB 5000 940 GOTO 850 1000 REM 1010 V=FX(K):W=FY(K):CH=0:GOSUB 5000 1050 FY(K)=FY(K)-0.2:PW=PW+INT(RND(-TIME)*5)+5 1052 IFPW>319THENGOTO 2000 1055 LINE(0,195)-(319,199),16,BF:LINE(0,195)-(PW,199),11,BF 1056 IF(FI(K)-INT(FI(K)/2)*2)=0THENFI(K)=FI(K)-1:GOTO1060 1057 IF(FI(K)-INT(FI(K)/2)*2)=1THENFI(K)=FI(K)+1 1060 V=FX(K):W=FY(K):CH=FI(K):GOSUB 5000 1080 GOTO 850 2000 CLS:LOCATE3,3:PRINT"MISSED!!" 2010 IF STRIG(0)+STRIG(1) THEN GOTO 200 2020 GOTO 2010 3000 CLS:LOCATE3,3:PRINT"CATCH!!" 3010 IF STRIG(0)+STRIG(1) THEN GOTO 200 3020 GOTO 3010 5000 POKECD,CH:AD=V*4+W*600:A=USR(AD):RETURN 7000 CLS:LOCATE 4,1:PRINT "FISHING GAME";: 7020 FOR CH=1 TO 7 STEP 2:V=CH:W=4:GOSUB5000:NEXT 7040 LOCATE 4,13:PRINT "[PUSH SPACE]": 7045 REM LOCATE 2,15:PRINT "PUSH [TRIGER] PLAY" 7060 IF STRIG(0)+STRIG(1) THEN GOTO 30 7064 REM 7070 GOTO 7060 8000 CH=0:W=11 8020 FOR V=1 TO SN 8030 GOSUB 5000 8040 NEXT 8050 IF SN>8 THEN GOTO 25 8060 RETURN