Fishing DEDDThis program may be freely distributed, provided it is not altered in any way. You may modify it only for your own use. 1990-1996 Joseph Aron #Last update:11-8-96 /PRESS > BUTTON TO PUT TIME UP TO 15 MINUTES!! 0502:X=50000P50027k:A:X,A:X (!50000P:DISABLE BREAK KEY 233!,15,0,167,237,74J,229,193,42*,61=,92\,113q,35#,112p,201,237,123{,61=,92\,33!,58:,92\,546,255,195,127,27,0 018,7; 0;"(CONTINUING GAME)" O$= O$="1"540 O$="2"760 O$="3"980 O$="4"1040 O$="5"1220  470 0:7:5: &G0,0;4;1;" - HOOK SIZE - " 0+''6;2;"WHAT SIZE? (2 - 20)" :H$:H$=""590N DH$>2570: NE=65A143 XH$=E570: bH$<"0"570: lE vH=H$ H<2570: H>20570: H=H$ !H<2H>20590N #H/2=(H/2)700  570: (''"YOU HAVE SELECTED HOOK SIZE ";H;"." ('''" BARBED OR NOT?"'',"(Y / N)" ="Y"BRB=1:750 ="N"BRB=0:750  720 100d:3106 7:5:0: 64;0;" - BAIT - "  8''"INPUT NAME OF BAIT FROM LIST BELOW :" 810*:A=15  P$:6;''"*** ";P$:A *3"MAGGOTS","CASTERS","TARES","BOILIES","SWEETCORN" 4A$:A$=""8204 >3"MAGGOTS","CASTERS","TARES","BOILIES","SWEETCORN" HA$="M"A$="MAGGOTS" RA$="C"A$="CASTERS" \A$="T"A$="TARES" fA$="B"A$="BOILIES" pA$="S"A$="SWEETCORN" zMA$"MAGGOTS"A$"CASTERS"A$"TARES"A$"BOILIES"A$"SWEETCORN"8204 7:5:0: 64;0;" - BAIT - " "'" YOU SELECTED ";A$;" AS BAIT." $A$"MAGGOTS"100d:3106 XA$="MAGGOTS"" SELECT TYPE..."'';3;"* SQUATTS"'''"* GOZZERS"'''"* PINKIES" M$ 3M$"GOZZERS"M$"PINKIES"M$"SQUATTS"950 740(:''"YOU CHOSE ";M$;".":100d:3106 [0::6;0;1;0,0;" - INSTRUCTIONS - " ޛ0:5:'"USING THE UP & DOWN CURSOR KEYS"'"YOU CAN MOVE THE LINE UP AND DOWN."'"YOU HAVE TO CATCH AS MANY"'"FISH AS YOU CAN IN 15 MINUTES." 1"POINTS ARE AWARDED FOR"'"EACH FISH YOU CATCH." '" DURING THE GAME YOU MAY CHANGE YOUR HOOK, BAIT ETC."'"BY PRESSING H OR B. ~Q~ WILL STOP THE GAME, BUT NOT THE COMPUTER." $'''3;" PRESS ANY KEY..." 0:320@ 8:4;0;" - INFO - " ?H=0''' " YOU HAVE NOT CHOSEN A HOOK YET!":1090B $?'''" YOU HAVE HOOK SIZE ";H;" IN USE AT THE MOMENT." .4BRB=1'" THIS HOOK IS BARBED.":1090B 8'" THIS HOOK IS NOT BARBED." BCA$="CASTERS"'" FOR THIS BAIT I RECOMMEND HOOK 16,18 OR 20." LSA$="BOILIES"'"USING THIS BAIT YOU PROBABLY WILL CATCH CARP, CHUB OR TENCH." VTA$="SWEETCORN"'" A SIZE 10,12,OR 14 HOOK IS THE SIZE I RECOMMEND FOR THIS BAIT." `<A$="SWEETCORN"H<10 '" ISN'T YOUR HOOK A BIT BIG?" j<A$="SWEETCORN"H>14'" ISN'T YOUR HOOK TOO SMALL?" t?A$="???????"'" YOU HAVE NOT YET SELECTED BAIT.":1180 ~D'" YOU ARE USING ";A$;" AS BAIT";:A$"MAGGOTS"".": 1A$="TARES"' "I RECOMMEND A HOOK SIZED 14-16." 3A$="MAGGOTS"","'" THE TYPE ARE ";M$;"." 5A$="TARES"H<14'" ISN'T YOUR HOOK TOO BIG?" 7A$="TARES"H>16'" ISN'T YOUR HOOK TOO SMALL?" 5 0;5;''"PRESS ANY KEY TO CONTINUE..." 0:3106 4:0:: H<21260 A$="???????"1260:  1270 ''''''" YOU HAVE NOT YET ENTERED "''" ENOUGH INFORMATION"''" TO GO TO THE RIVER."'''" CHOOSE BAIT AND A HOOK FIRST.":300,:3106 "60059:4:0: X=010  8X,0;5;" " X '' ("R",0 2"R"+1,0 <"R"+2,225 F"R"+3,0 P"R"+4,195 Z"R"+5,0 d"R"+6,0 n"R"+7,15 x1;1;0;"" 76:X=020:200,130,X:X LP=0PTS=0 0,0;5  1  0: 7;0;"PTS:";PTS 0:7 ]17,11 ;4;"BAIT IN USE:";18,12 ;2;0;7;A$ 6A$="MAGGOTS"19,11 ;2;"(";M$;")" b17,24;0;4;"HOOK:";18,25;2;7;0;H;" " 9BRB=119,24;7;0;"BRB" :BRB=019,24;7;0;"NBRB"  2700 _4;0;0;16,3;"";17,3;6;"";4;"" E0:37%,43+:80P,32 ,-1:BOM=4 I1,13 ;0;5;"BITE-O-METER :";BOM;0;"J" "LIN=25 ,0,-LIN 6A$="MAGGOTS"BT=1 @A$="CASTERS"BT=2 JA$="TARES"BT=3 TA$="BOILIES"BT=4 ^A$="SWEETCORN"BT=5 h CHB=0 rTNCH=0 |CRAY=0  RCH=0  CRP=0  PKE=0 FISH=0 6BT=1H<10 H>12 FISH=(H-11 ) 6BT=2H<16H>20FISH=(H-18) *BT=2H=18FISH=FISH+2 6BT=3H<14H>16FISH=(H-15) )BT=4H8FISH=(H-8) 6BT=5H<10 H>14FISH=(H-12 ) *BT=2H=12 FISH=FISH+1 BT=1TYP=1 BT=2TYP=1 BT=3TYP=2 BT=4TYP=3 BT=5TYP=1 &LASD=023672x\,0:23673y\,0:23674z\,0 0TYP=11870N :TYP=21940 DTYP=31990 NX=(*5)+1 XX=1F$="CHUB" bX=2F$="TENCH" lX=3F$="ROACH" vX=4F$="CARP" X=5F$="PIKE"  2020 XX=(*3)+1 XX=1F$="CARP" XX=2F$="CHUB" XX=3F$="ROACH"  2020 XXX=(*2)+1 XXX=1F$="CARP" XXX=2F$="TENCH" jFH=0:T=(23672x\+256*23673y\+65536*23674z\)/502:TT=(T/60<) $2,0;"Total mins:;";TT 7:0:1 Q=010  -21,Q;(*6+1);0;Q Q  :LP>020,LP-1;0;4;" "; *BAIT=20 4 L O O P Wow! What an amazing program by Joseph Aron! De-bugged/modified Dec.'92 >FH<0FH=0 H^T=(23672x\+256*23673y\+65536*23674z\)/502:TT=(T/60<) R= ">"TT=15 \[="Q":10 ,10 ;7;0;"Q U I T":E=0502:E:290" fHTT=152,0;7;0;"Mins;";TT:3520 pBAIT=00,0;2;6;1;"YOU HAVE NO BAIT ON THE HOOK!!!":V=0100d:V:0,0;2;6;"YOU HAVE NO BAIT ON THE HOOK!!!":2480 zLIN<-25LIN=-25 /2,0;7;0;"Mins;";TT FH>99.5GFH=100d )8,3;F$;" ";FH;"%";" " FH=100d3340 FHS=(*FISH-1)+1 0FHS<2FH=FH+ (*2)+FISH/10 6FH<90Z15,3;1;0;"" Y=(*1) YY=(*1) YYY=(*1) %Y+YY+YYY>1FH=FH+*20 0FISH>5YY+Y+YYY>2FH=FH-*3 OFH>89.83BRB=1BOM=2:.02{# =,10 :BAIT=BAIT-1 OFH>89.83BRB=0BOM=2:.02{# =,10 :BAIT=BAIT-2 0BAIT<1FH=FH-(*3.245313O5L)+7 FH<118400 $FH>100dFH=100d .FH =99cFH=100d 8FH<90ZBOM=4 B%1,28;BOM;0;"J" L(FISH <7FH=FH-(*FISH)/20 V(FISH >6FH=FH-(*FISH)/35# `&LIN<5LIN=5:2420t jt=11 117u,75K:1;0,-LIN:LIN=LIN-1:117u,75K:0;0,-LIN tt=10 117u,75K:1;0,-LIN:LIN=LIN+1:117u,75K:0;0,-LIN ~9LIN=1715,15;1;0;"" '>9 Ư<12 FH=FH-1 ="B"Ŧ="b"2480 ="H"Ŧ="h"2580 2110> {5;0;0,0;" ": BAIT=20:ASD=1:"REPLACE BAIT TO:";A$ NA$"MAGGOTS"A$"CASTERS"A$"TARES"A$"BOILIES"A$"SWEETCORN"2480 J18,12 ;2;0;7;A$;4;0;" " A$"MAGGOTS"15906 )A$="MAGGOTS""WHAT TYPE? (S,P,G) ";M$ "M$="S"M$="SQUATTS":15906 "M$="P"M$="PINKIES":15906 "M$="G"M$="GOZZERS":15906 (19,11 ;2;"(";M$;")" 2520 &ASD=1:"WHAT SIZE?(2 - 20) ";H $H/2ɺ(H/2)2580 (H<22580 2H>202580 <"BARBED? (Y / N) ;";B$ FB$="Y"BRB=1 PB$="N"BRB=0 ZB$"N"B$"Y"2620< d517,29;0;2;7;H;" " n;BRB=119,24;7;2;"BRB. " x;BRB=019,24;7;2;"NBRB." 15906 HEAD / BODY "H",0 "H"+1,14 "H"+2,19 "H"+3,26 "H"+4,12 "H"+5,23 "H"+6,16 "H"+7,17 BOX "B",00010000 "B"+1,00001111 "B"+2,01111111 "B"+3,10000011 "B"+4,01111111 ""B"+5,01100011c ,"B"+6,01100011c 6"B"+7,01111100| @ARMS J"A",0 T"A"+1,0 ^"A"+2,0 h"A"+3,00000110 r"A"+4,00111111? |"A"+5,11001101 "A"+6,001101106 "A"+7,11000000 LEGS "L",00100000 "L"+1,10010000 "L"+2,01010000P "L"+3,01010000P "L"+4,01001000H "L"+5,001101004 "L"+6,00010100 "L"+7,11101000 FOOT(JUMP) "E" "E",00100000 "E"+1,00100001! "E"+2,00100010" "E"+3,00100011# &"E"+4,00100100$ 0"E"+5,00100111' :"E"+6,00011111 D"E"+7,00000000 NOTHER FOOT (F) X"F",11100000 b"F"+1,00011100 l"F"+2,00000010 v"F"+3,11000010 "F"+4,01001100L "F"+5,01010000P "F"+6,01011110^ "F"+7,11111111 FISH GRAPH "C" "C",00000000 "C"+1,10001100 "C"+2,11011110 "C"+3,01111011{ "C"+4,01111111 "C"+5,11011110 "C"+6,10001100 "C"+7,00000000  1540 TUNE BELOW !!(BOOGAA) &X$="T130N5C5F5C5F3C3F3C3F5C1F5F7&9C" 'Y$="T130NO4N5A5F5A5F3A3F3A3F5A5F7&9E" *4Z$="O4N10CCCCCCCCCC3C7&1G1F1G1F1G1F1G1F1G1F1G1F1E" 4)MACHINE=128ˤX$,Y$,Z$:3400H >;Q=12 36$:.01z# =,Q:.01z# =,25-Q:Q HX=1413 -1 RMX,14;6;1;"";X+1,14;1;0;"" \X fPTS=PTS+150:502 pn0:0:16,3;0;4;" ";16,4;0;4;"":60< zX=1612 -1 D4:X,4;"";X+1,4;1;7;"" .X<141;X+2,4;"" FX>13 4;X+2,4;" ";X+3,4;" " X 3LP=LP+1:20,LP;0;4;"" $200:60059:320@ gZ=0502:Z:10 ,12 ;1;2;6;"GAME";10 ,17;"OVER" ;Q=12 36$:.01z# =,Q:.01z# =,25-Q:Q 5502:60059:7:1:0: " REPORT" ' 3 75;"HERE IS TODAY'S FISHING REPORT FOR YOU:"' R$="" #LP=0R$="YOU'RE USELESS!!" 'LP=1R$="PRACTICE IS VITAL!!!" $&LP=2R$="GOOD FISHING TODAY." .$LP=3R$="VERY GOOD INDEED." 8-LP=4R$="EXCELLENT WORK. WELL DONE." B5LP=5R$="YOU DEGREE OF SKILL IS VERY HIGH!!" L?LP=6R$="WHAT ARE YOU PLAYING THIS INFERIOR GAME FOR?" V,LP=7R$="SUPERB WORK FOR 15 MINS!!" `@LP>7R$="VERY WELL DONE INDEED. WORLD CLASS NEXT...." jR=1̱R$ t W$=R$(R) ~W$;:0.05|L,*30:R :FISH=10 -LP /FISH<4F$="GOOD CHOICE OF HOOKS/BAIT." &FISH=5F$="BAIT WELL CHOSEN." *FISH=6F$="YOU CHOSE HOOKS WELL." >FISH=7F$="BE MORE CAREFUL ON WHAT HOOKS YOU CHOOSE." >FISH=8F$="BE MORE CAREFUL ON WHAT HOOKS YOU CHOOSE." ;FISH=9 F$="YOU'RE NOT ONE FOR GOOD BAIT CHOICES!!" 2FISH=10 F$="DON'T YOU KNOW HOW TO FISH?!" GFISH>14F$="I GET THE IMPRESSION YOU ARE NO GOOD AT FISHING!!" 3FISH=14F$="YOU'RE ABSOLUTELY $%&@%&! !!" W=1̱F$  Z$=F$(W) Z$;:0.05|L,*20  W '' " THE END" 0:290" ($ CHRSET 2FLET A=15616: FOR B=63744 TO 65535: POKE B, PEEK A: LET A=A+1: NEXT B <LOAD *"M";1;"CHRSET" CODE FALOAD *"M";1;"FISHFONT" CODE 63744: POKE 23606,0: POKE 23607,248 PPOKE 23607,60 Z d!POKE 23607,60 FOR NORMAL CHRSET p128K "PING"ROUTINE z'MACHINE128.1}L,5: 6"UX10000W0O4T200N4D1DED4D","U4#F1GAG4#F","U4A1ABA4A" W 'U:"UPDATING BACKUP...":"M";1;"FISHING":*"M";1;"FISHING":LINE 10:stop achinersio' =psthA???????O