' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD#ةHH=C?L, ? ?Hh D9#-EEE8` D9 8x D9 - 8x8`-?0ݩ??ʥD EEE`   LD7c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*3]67V<<8:=???@@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIR4b*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &``@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ƞ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠ HLRhH &hl8- ^ Q3ɾL\LLL` &LU`b`,  7# 7 7  7LL鍅^3൐حϭ4MRL鍅^3൐حϭ4MRLIތ ^Lo췩 鷽 I HhI ڥ Hh`ةHH=C? u*``Ml ΅8ȱ hhHH ΅ȱ΅F`PQ` `8PQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l \`ﺽ}%} (i `(i!l 4&eȄF ںvΤύZ[F3 LG φ$0kw w w Lw w 7 +!]Ӆ^_ Aۢ%܅^_ AlJ ? \۽^ \( e lwxLE ͠ɠŠ쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`ItLBLOAD CL.OBJ,A$8100RUN HELLO1||} n # $ + V  V ک) e . + 3 e 8 + = e B + $ + V  V ڦL Z[MLo - H  `a`aa LraqAsC@`cAippq  )xqpqhx1hq@1 |Ac||@|@c@Ma@c`C~@c<PRRR@PBBPp   @1 |@CgA|<|`|`g`"02"1@0BBB`xxxy y @1 `G`g~``g`ABrqpaa`arA`b`aqraarb!@`aa@1 `@`gC`g```ppyxy!p @ppqApqq@1 ``g@@`g `?Bpqpaa`aB@`bA`a@baBbps`aApH IH  !! @{``g@``gCBC@@B@AB@Bbxqp( )h  !  y@`gg@``gz#     ϱ ֮à"̮ʠȠ  î î î îîîήϠ  Π î îîîîî  ųà"βà"Ҡ Ӯà" Π Π Π"٠ӊ"Ġ" ֲР! Ůʠ!Ϡ!͠ ՠBPRRC@P@P@B@x xx y( !  @@cg@@`g`? pscrQp2RrqSb@P          0 K10C,Y(K)707*21C,Y(K)>K10C,Y(K)65G830N4_ 21C,Y(K)5l1C,180s 7*21C,Y(K)4K10C,175>H(4)"BRUN M 1"* FLIP *P1P0:2040P1230,(P1)3216299,J032050YJ30!:K199?(16384)1601000GDCK3015WNY(K)YK10hXY(K)30830{bY(K)110670l4v21C,Y(K)5721C,Y(K)830Y(K)110770Y(K)220830Y(K)220Y(K)421C,Y(K)539,165,3,133,1,198,2,208,241,96* %ST768G (ISTST58:PP:I,PP:Ix ,1013,76:1014,ST256(ST256):1015,ST256 (4);"BLOAD NOTE.OBJ" I112 (4)"BLOAD ABC."I I  16368,0 5 I19 1I3015,180  &9, 250: SOURCE ** * 251, 252: DESTIN *0 J I019:J:ADI,J:I 32,248,230,138,72,32,183,0,201,44,240,3,234,234,234,32,177,0,32,248,230 104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198 "1,240,7,202,208,246,166,0,208,2AD200)256):233,(AD200)2566 s * PROTECT SHAPES.@ 1:0 162,32,169,0,168,177,249,145,251,200,208,249,230,250,230,252,202,208,242,96 * MOVES MEMORY PAGES * * POKE AD+1, N; N: NUMBER OF PAGES TO MOVE * * CALL AD * * 24BERS. (' - * * * S E T U P * * *- /: 2AD34000B 7ADT <N$"DIV2.SHP"} Z * LOAD SHAPES AND SET UP POINTERS. d(4);"BLOAD "N$ f i(4);"BRUN FASTLOAD" k(4)"BLOAD DIV.PIC,A$4000" l16368,0 mA$ n232,AD200256((SWIM OUT.X  * D - SECTION 2 : N NUMBER OF FISH(ES) SWAM OUT, USER ENTER THAT NUMBER.  * E - SECTION 3 : A NUMBER OF FISHES WAS TO BE SEPARATED INTO GROUPS, ENTER NUMBER OF FISH(ES) PER GROUP.  * F - SECTION 4 : INTEGER DIVISION OF NATURAL NUM  1010,0:1011,129:1012,36B * THIS PROGRAM CONSISTS OF:y * A - SETUP : SET UP SHAPES, POINTERS, ETC . . . * B - MENU : CONTROL SECTION BRANCHING.  * C - SECTION 1 : ENTER A NUMBER BETWEEN 1 AND 9, INCLUSIVE, AND THAT MANY FISHES      ȱ hhHH ΅ȱ΅F`PQ` ee``` 4 \` `8}%} (i `(i!l 4&eȄ`MlPQ`%00 00 ` `ꥥ`ҥ %L ΅8l r`쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l \`ﺽ L+iѠ: eh)eeVȱeW`WVLWVL]L5lhihi1lhihii㚽ʊi ꥢ뺽 纽 +뺊i $0 0il 0l`ihEhhhhhlPQQPPQP`hihi r륝HHHHHHlhihihhhhhhl+LW L:LP Q5lQ`hhʚHH芠L+hihiHHHHHlhhi!ߠ܅^_LA )Ȣ` J쥸,:M ,C \ .Ն$0RFH JhŸ ,𤥹hh,,*l^R ,К8f A,=뤹" " ,П ,몥`hihiSF ںvΤύZ[F3 L5  φ$0kLB+!]Ӆ^_ Aۢ%܅^_ AlJ ? \۽^ \( e lwxLP͠ɠŠ, .խ6lhiJhiKlJ ꩝   D !  E 3 U U ک  < `   ک ꩧ  Lm ꢧ +L ꢧ +& D 4 ꩧ + 0 D 4m LLZ[MLo 8 D  - ꩲ  = P  E 3L2     D ֠ - ꩲ  = P  E 3   D   E 3     D  ꩲ  =  E 3    D ֠ - ꩲ  = P  E 3 ꩝   D  - ꩲ  = P  E 3     D  ꩲ  =  E 3 ꩝    E 3     D  ꩲ  =  E 3L2 - ꩲ  = P  LL: - ꩲ  = P  LL2 ꩲ  = ꩲ  =   +멋   碢 +멝 ꩲ  = ꩝ 驘  + - ꩲ  = P  LL2 - ꩲ  = P  LLW     D ֠ - ꩲ  = P  HHH   ꩄ  D   E 3 Um ꢉ HH ֠ HHH ꩉ 碘 +멩 ꢝ HH۠  HHH D PQ  LL; i #쩟 驎 ̠ D 4 ꩎ i   < H   ک ꢄ  HHѠ  HHH  < V  e ک j 󩐠 D 4m ֠   ꢄ HH HH  HHH S ; + \  D 4  j ꢎ +멎 ꢄ  HH ꩎  HHH S ; + \ D 4  j D 4  Ǡ D 4 ꩎  < 4   ک D 4m     X  D 4  -  穟  i #쩟   D 4  穟  i  m m ꢄ \(`\ /f~ v h D 4m r D 4w | D 4   + D    < !    󩋠  < '  ک,3,133,1,198,2,208,241,96DIV2.SHPBLOAD BRUN FASTLOADBLOAD DIV.PIC,A$4000BLOAD NOTE.OBJBLOAD ABC.BRUN M 1||}hHi@h}@}}@ pp4 |L,162,32,169,0,168,177,249,145,251,200,208,249,230,250,230,252,202,208,242,96,32,248,230,138,72,32,183,0,201,44,240,3,234,234,234,32,177,0,32,248,230,104,134,3,134,1,133,0,170,160,1,132,2,173,48,192,136,208,4,198,1,240,7,202,208,246,166,0,208,239,165     +0``0VV0LL@`090VH@L0`@. P H @@6 0 6 @ P H @ P H VPh?+ P P@P H H@H @ < 6 P H V@PL 4 < L D L Z L f L x L L L L`  7@` ` `@@9 9 9@@H H H L L@L@V@V@`@  .0H0H`H0@0@`@99090@09000606@?1 @ 9 @ H@L@` @ 9 @ H@L@`@`@@`P7 @ P P`P @ P P@P P@H H 6 6 6@@ P@P@`P H@@@@ H P H @Pl/e H@@@@ H P H @P h"@66@PP PP PP@PP PP HH @@ <<6666?(@66 66 00 66 @@ PP HH @@ @@ HH HH`PHHH . PP PP 66 66 00 00@66 << << @@ @@ HH HH@PP  48(6RR)640G26,RR256(RR256):27,RR256C|G7936,76:7936IGTDH BOO aH200,255n I210,255{pI220,255I))((K$"0")(K$"9"))16700)@16100416100:15900> GET CHAR >K$:K$H?100,50?K$(13)4580@K$(27)ġ:12300t@(K$" ")(K$(8B$))8Q$B$:5:17300:1370029 DRAW ANSWER ]l981,82231,82231,8481,8481,8481,82z96:I15:950,110I:I9DIV((A$)(B$)):RE(A$)DI(B$):DI$(DI):RE$(RE)4:Q$DI$:6:17300:RE15900`; DRAW REMAINDER ;4180LINE ! 55:I15:850,80I:IK516100:(K$BS$)(B$"")ĺ"";:13700o5(K$" ")((B$)0)P3:14700L6(B$)5142006((B$)5)(K$BS$)142007"";:13700x7Q$B$:7:173007K$BS$B$(B$,1,(B$)1):14500@8B$B$K$:B$((16100:(K$BS$)(A$"")ĺ"";:12600>1(K$" ")P2:13600Q2(A$)513100od2((A$)5)(K$BS$)131002"";:12600,3Q$A$:7:173003K$BS$A$(A$,1,(A$)1):134003A$A$K$:A$((A$))X4Q$A$:5:17300:126004 GET SECOND 5-DIGIT DIVIDEND.";N/"ENTER UP TO 5-DIGIT DIVISOR."v&/"PRESS TO BEGIN NEW PROBLEM"0/"PRESS FOR MENU";:/35,20?/D/BS$(8)/ INIT  0A$"":B$"":7:0,0:62454p0P10 GET TOP LINE %8141201,NL:28211,NL:36221,NL2\+NU$((NU$))@+ST(NU$)L$,J1STn,((NU$,J,1))1020527J,NLu,JP-W3İ17900-W3İ18600.O1300:O|.900. CALCULATOR .75,50:65,40:55,30../21/"ENTER UP TO$,N1)&ST(NU$):'ILāOI1500FA1500:OI:10600Ft'J1STz'((NU$,J,1))10(LASTJ3.5)NL,NL2(I1)1<(J(NU$((NU$)))Ih)RTRT(W3))WRWR(W3))(NU$)0116000*6*41200,NL:28210,NL:36220,NL *"J(#(N$)LNLN(N$)P#IMNL(2I1):ILLA3.5:(ILLN)NL,IMILNL,IMp#(ILLN)NL,IM2ILNL,IM2T$ST$(REN)$ST(ST$)%J1ST%((ST$,J,1))10(LASTJ2.5)NL,NL2(I1)1%J&ILNU$(RE):9900H&NU$(RE)(NUADrW3410062 DI10(2.5LA)NL,NL?l LN(M$)V (N$)LNLN(N$)4!IM(I21)NL11:ILLA2.5LN:ILNL,IM(IL.7)NL,IM(IL.7)NL,IM2ILNL,IM2ILNL,IM!LN(M$)!J1LN`"((M$,J,1))10(LALNJ2.5)NL,NL(2I1)7100 ST3,J1STF("X")41(LASTJ3.5)NL,(I1)2NL1MJWX7700fLEN1DDEt ST$(LE)ST(ST$)J1STL((ST$,J,1))10(LASTJ2.5)NL,NL(I1)21J18600OI11500:OI250,64:252,32@L,IM9ILNL,IM9ILNL,IM116D10(2.5LA)NL,NLL ST(ST$):J1ST~p((ST$,J,1))10(LASTJ2.5)NL,NL(2I1)J8(N$)STST(N$)IMNL(2I1)2:ILLA3.5:(ILST)NL,IMILNL,IM(ILST)NL,IM2ILNL,IM2dDDEN14)"BRUN M 1"((D$"0")(D$"9")41008DI(N1DE)L$MDEDI:M$(M)XREN1MnDDIVFA0:8100}PWW1:FA1ST$(DDE)ST(ST$)|(N$)STST(N$)5DIM(I21)NL:ILLAST2.5:ILNL,IM11(IL.7)NL,IM11(IL.7)N(D$) D$(13)4600: ::4:13:"YOUR SCORE IS: "W 7:16:RT;:19:"RIGHT"l 9:17:"OUT OF" 11:15:(RTWR);:18:"PROBLEM";:(RTWR)1ĺ"S" 23:12:" FOR MENU" 16368,0 (16384)1284570 35,24: :(I5466,180) J5480,180:J5481,1806  W0:FAWA I1L] 250,32:252,64:AD:N0o LALA1:NN1 N$(NU$,1,N) I2N$NU$ <N1(N$) (N1DE)(I1)3600 16368,0 h(FA)(W3)D$((N1DE)):4400 D$ 0D(0):D10NL(I2.5),2NL T Ia IMNL2:9IM,IM9IM,NL2NL6,NL26NL,NL411IM,NL411IM,IMp 6410,150 I(RT10):JRT10I I5465,150:I5466,150 J5480,150:J5481,150 I(WR10):JWR10I 6510,180 I5465,180:NUDE900 LUNUDE% LU12900= NU$(NU):DE$(DE)D 7P @230,32Y 0,0d 62454r l16300,0 L(((NUDE))) 4LA0 NL32 6 ` I1(DE$) ((DE$,I,1))10NL(I.5),2NL ( I I1(NU$) ((NU$,I,1)):RT0:WR0:LU0$ R(X)((1)X)5 RT100RT0G NUR(RT3)1W NU144900s LDENR(RT32)1(CT5) QDE1OW1100 SOW(DE1) VDE1RT1CTCT1 `(CT5DE1)(DE12)1100 jRT5NUDE(NUDE1) DENU900 RT0LUЂ  1010,0:1011,129:1012,36Dd(4)"BLOAD OPTION2.PIC,A$4000"zn16368,0:16299,0:16297,0:16302,0:16304,0x100,30:150,15:100,30A$:A$"C"12000A$"Q"120,249,0:251,0^75,50:65,40:55,30 AD34000:CT0       2567936,76:7936'p BOO 4z200,255A210,255N220,255TZYYL2LA:FB(LA)LAFB:FBFB1:23400YLAFB:FBFB1h[FB0FB2:[FB5FB30\32 HADM3:940RI#f)716300,0>0T50(EQ$)30,185iI12:230,23Ip3DIV10(EQ$)30,185I MUSIC RRR(6)1:RRMS5010MSRRRR6848(6RR)6426,RR256(RR256):27,RRJST,SY%(I)!b16299,0:230,32,2300036MF(L2)J.5ST,SY%(I)UFCpF(FB)J1.5ST,SY%(I)wJEX%(I)J.5ST16300,0:230,646F(LA)J,SY%(I)FC F(0)J.5ST,SY%(I)*16299,04250,64>252,JFISHI11'F(0)EX%(J),SY%(J)/:66B230,64ZF(0)SX%(I),SY%(I)f230,32~F(0)SX%(I),SY%(I)LA2FB2L22JSX%(I)EX%(I)ST16300,0:230,6423000&60F(L2)J,SY%(I):5 DF(FB)15709FI15ĭI1āOFII11:F(0)EX%(O),SY%(O):OQ"F(0)EX%(I),SY%(I)m'H%į50,50:70,70:1580})O1100:O,I@250,64:252,32JADL3T|ST10IFISH11IFISH1710FCK12:230,32KI0:50(EQ$)30,18571:DIV10(EQ$)30,185>IMH%İ1490(CDIV)RT(RT1)(RT40)40(RT40):W0:5010:2106010:W121016299,0230,64IFISH116F(0)SX%(I),SY%(I)FCBO5(C$"9")(C$"0")1100)16300,05230,32A3:940H0^50(EQ$)30,185iJ17}5(J2(J2))C10(EQ$)30,185J6010J1800:J 0C10(EQ$)30,1853(940<II12:230,32"āO04:8Q30,185O::1020GA$"="āO04:9Q30,185O::1020fA$"?"Ĕ50Q30,185:1020}(A$)10Q30,185Q$I13.100,100B16368,0LC$QC(0)VC(C$)`C$(13)ĺ:(4)"BRUN M 1"CDIV1410%(I) J I 4FC( >I1FISH@ HF(0)SX%(I),SY%(I)G RIU \16299,0i f250,64:252,32q pADx 3 940 230,32 940 H%İ1490 1060 EQ$(FISH)"/"(BO)"=?" Q1(EQ$)  A$(EQ$,Q,1)A$"/32 vAD 16300,0 I- I1FISHF SX%(I)28((I1)5)l SY%(I)80((I1)5((I1)5))20r  BO5730 I1FI EX%(I)56((I1)DI)28 I:820 I1BO EX%(I)(280I140)BO1 J1DIV1 EX%(IBOJ)EX 250,32:252,64 AD( 230,644 I1BOR L(I)((280I140)BO13)t L(I)2(L(I)2)L(I)L(I)1{ 0 J22 &20L(I)J,Y125 0J :3 D20L(I),Y125 N0 XL(I)7,Y18L(I)15,Y1 b16299,0 l250,64:252,' (BOZB)(DIVZD)W0RTRT1:2107 ZBBO:ZDDIG FISHBODIVU 16299,0b "AD1,32n ,230,32u 66~ @0,0 J62454 T2 ^Y160 hI0Y1 r0,I278,I |I 0 Y2160 IY2191 0,I278,I I 16300,0D34000 n16299,0# 16368,0+ H$8 K16336U (H$"Y")(H$"N")150n 75,50:65,40:55,30~ H%(H$"Y") RT0 BOR(RT5)2 (BO2)(BO5)210 FISHR(RT) DIV(FISHBO.5) DIV0DIV1 (DIV1)(DIV5)225 1010,0:1011,129:1012,36)FC7; 249,0:251,0g16304,0:16297,0:16302,0:16300,0sD$(4))F(5),L(5),SX%(25),SY%(25),EX%(25):F(0)2:F(1)3:F(2)51:F(3)52:F(4)532:D$;"BLOAD OPTIONS.PIC,A$4000"<R(X)((1)X) FA     ON *2316304,0:16302,0:16299,0:16297,0:?E MUSIC [ERRR(6)1:RRMS17900ePFMSRR{FRR6848(6RR)64G26,RR256(RR256):27,RR256|G7936,76:7936GDH BOO H200,255 I210,255pI220,255I,:F1X%(SR,I),Y%(SR,I).I<.RT(RT1)(RT9)(RT9)9G|.17900Y.I1NU500:c.7400iD// * RESTORE: CLEAR FISHES * 0p00 * BOO! *812d2* PAGE 1 ON *216304,0:16302,0:16300,0:16297,0:,3* PAGE 2 7400 \++ *** RIGHT ***$$,*,R,2:QUESTIN240,50:0:NU10240,50sP- FLASH EACH FISH WITH WHITE-I0NU1-4:55IX%(SR,I)10,Y%(SR,I)20-55IX%(SR,I)11,Y%(SR,I)20-4-F1X%(SR,I),Y%(SR,I)-O1100:O-7WRONG * &'2900:I t'<' * WRONG THREE TIMES *B<(I(2])QUESTIN240,50dh)0v)NU10240,500*I0NU1:*4D*I55X%(SR,I)10,Y%(SR,I)20N*I55X%(SR,I)11,Y%(SR,I)20X*I*LP13000:*O1NU750:O*HES ON SCREEN *!?!7:I0NU1:F1X%(SR,I),Y%(SR,I):IE`"i"* LET USER TRIES THREE TIMES *o(#z#12900#I13T$$* IF RIGHT THEN JUMP OUT *%%16368,0:B$:B(0):B(B$):(BNU)11100%H&* OTHERWISE TEST AT I0NU1:F1X%(SR,I),Y%(SR,I)AI55X%(SR,I)10,Y%(SR,I)20c(I55X%(SR,I)11,Y%(SR,I)20j2Ix2:NU10240,500:QUESTIN240,50@NU((1)RT1):(RT1)(NULA)7400 SRNU1((1)(9NU))l LANU 4!* PUT FIS1,5,,5,2,5,12 1,,1,1,1,2,3,,3,1,3,2,5,,5,1,5,2\ dF(0)2:F(1)3:F(2)51:F(3)52:F(4)53b h , * DRAW BACK GROUND ON PAGE 1 *  X230,32:500  * GENERATE TWO RANDOM NUMBERS *   L* CLEAR FISH(ES) * 6::F12:F23$ X%(8,8),Y%(8,8),F(4)a |I08:J0I:BO,SR:X%(I,J)BO25:Y%(I,J)SR31108::j 3,1v D1,,5,2 5,,1,2,3,1 3,,1,1,3,2,5,1 p1,,1,2,5,,5,2,3,1 1,,1,1,1,2,5,,5,2,3,1 81,,1,1,1,2,3,,3,2,5,,5,2 1,,1,2,3,2,3,,1, t2:QUESTIN240,50 + <* FLASH *1 [ J115:(J2(J2)):B10240,50:Jf 18600t I34700z 0 * RESTORE SCREEN *  \2:B10240,50:I3ı 0:QUESTIN240,50 $  * MAIN PROGRAM * P RT1:LA00@ ((A$,I,1)"F")((A$,I,1)"I")((A$,I,1)"T")B2%B2%1n ( ((A$,I))6423I1110BL%6B2%2,190u I{ T * SUBR: WRONG *  B$(13)ĺB$:(4)"BRUN M 1" H * NOT A NUMBER * (B$"0")(B$"9")II1:0,I279,I:I L00 I177191:0,I279,I:IR 0:I22:BOT99I,50:I:3a xBOT99,50h 0{ @100,65120,70 4 STRING120,70 l0 QUESTIN240,50 43 BL%0:B2%0 A(A$) I1A ` (A$,I,1)" "BL%BL%1:270  1010,0:1011,129:1012,363d* SECTION 2 *I* FISHY NUMBER *^R(X)((1)X)h,5100n* SUBR: DRAW THE BACK GROUND *XA$"ENTER NUMBER OF FISH SHOWN" BOT20:STRING21:QUESTIN506:0,0:62454:2 I175:    7(FB%5)FB%3@8,5,,5,2,5,1,3(B$"T")(B$"F")B2%B2%1R31,,1,1,1,2,3,,3,1,3,2,5,,5,1,5,2XX4x4* SELECT FISH TO DISPLAY *~ 55(LA%1)10,55(FB%1)10,5L6L2%LA%6(FB%LA%)LA%FB%:FB%FB%1:142007LA%FB%:FB%FB%1x7(FB%0)FB%2:16297,0 .|.(.* PAGE TWO ON *.D/Z/16304,0:16302,0:16299,0:16297,0` 0ip03,1u01,,5,2815,,1,2,3,113,,1,1,3,2,5,121,,1,2,5,,5,2,3,1d21,,1,1,1,2,5,,5,2,3,121,,1,1,1,2,3,,3,2,5,,5,2 ,31,,1,2,3,2,3,,1,1:I1B:X250X%(B1,I1)SU:X6z+O12:230,32OT+F(0)X.5SU,Y%(B1,I1)x+I54X.5SU10,Y%(B1,I1)20+I54X.5SU11,Y%(B1,I1)20+O+I+4900$,,,* PAGE ONE ON *P--16304,0:16302,0:16300,0:0*&I54X.5SU11,YY20FH&12000:230,32:250,64:252,32:34000Q&11500X'I^t'x'* PAGE 2 ON, AGAIN *~<((JB11)I1011h)10I,J5)1,100*I*J*2:230,32:B10240,50:230,64:B10240,50!\+12000:6F(FB%)X.5SU,YYT$X$%* PAGE 1 ON, CLEAR FISH, DRAW FISH 0 ON PAGE 2, PAGE 2 ON, CLEAR FISH, DRAW FISH 0 ON PAGE 1, PAGE 1 ON *% %11500:230,64:6:F(LA%)XSU,YY&F(FB%)XSU,YY:FC:F(0)X.5SU,YY &4:I54X.5SU10,YY2l . * PAGE 1 ON, MOVE FISH ON PAGE 2 *44!a!11500:13500:230,64:6:F(L2%)XSU,YY!4:ST120,70:FC:F(FB%)X,YY`""* PAGE 2 ON, MOVE FISH ON PAGE 1 *(##12000:13500:230,32:6:F(L2%)X.5SU,YY#4:ST120,70:FC:RED * X'  * DRAW NUMBER *-p230,64:2:QUESTIN240,50:0:I12:230,I32:B10240,50:IvL* DRAW B FISH(ES) *xI1B:XXX%(B1,I1):YYY%(B1,I1)@* FISH MOVING IN * FB%2:LA%2:X250XXSUN FLASH, GO TO 'GET INPUT'*! 8 (B$"?")(B$"Z")āI15:(I2(I2)):(B$)6423240,50:I:2:(B$)6423240,50:5500  d * IF B$=SPECIAL CHAR. THEN GO TO 'GET INPUT' *  ,(B$"1")(B$"9")5500  * A NUMBER IS ENTE* TURN ON PAGE 1 * , 11500:230,322 PE * GET INPUT *K  |0:QUESTIN240,50:16368,0:B$:2:QUESTIN240,50:B(B$) I(0) D* IF (CR) THEN GO TO MENU *  (B$(13))ĺ:(4)"BRUN M 1" p * IF "?"<=B$<="Z" THE1" J(I1)11BL%7B2%2BI%5F B$"T"Ĕ(B$)41J2,185:3800Z t(B$)41J,185a Ig <m  * DRAW PAGE 1, TURN ON PAGE 1, COPY TO PAGE 2 * h 230,64 01200 16299,0 34001,32 \250,64:252,32:34000  $2:BOT99I,50:I:3$ 4BOT99,50+ 0> 100,65120,70E ` 4X STRING120,70_ ( 0s QUESTIN240,50z 3 T BL%0:B2%0:BI%0 I1A  B$(A$,I,1) B$" "BL%BL%1:3800 (B$"T")(B$"F")B2%B2%1 H (B$"I")BI%BI%3)52:F(4)53:F(0)2:SU28$ 4300* LI  * DRAW THE BACK GROUND *O  xA$"ENTER NUMBER OF FISH TO APPEAR":A(A$) BOT20:STRING21:QUESTIN50 @6:0,0:62454:2 I175:0,I279,I:I 0 lI172191:0,I279,I:I 0:I2  1010,0:1011,129:1012,36)2FC7;d249,0:251,0R * FISHY NUMBER *f, * SECTION 1 *l * POSITIONS OF FISHED *XX%(8,8),Y%(8,8),F(4) I08:J0I:BO,ST:X%(I,J)10BO35:Y%(I,J)ST31108:: F(1)3:F(2)51:F(    @ @@@ @*@ (@@@"@ @( P @D @P@ڃT  @ P @ UE烁A @ (@P   @A U ߁P@Q Q @ ( P " @  (A߇( A *ň" P @  @@   @ @ T@   @ @(    (@ @( @ P   @ T @@ @A  @   @            ΠԍԠҤĠΠԠźΠԍԠҤĠΠԠźΠԍԠҤĠΠԠźΠԍԠҤԠҤңԠҤңԠ΢Ԡ٠ӢĠύԠźϢԍԠҤĠϱԠźϱԍԠҤĠՍԠźբԍԠҤĠΠԠź( @(ĊĊĂ @@*ƁЀP Ѐ @ P(@  @ Ĩ ĂĊĊĂ@ P @ D    @Q  P   @P P@ *Ĉ UP @"    @ @ D " (AЊ@  @@ЀЀЊԊ @ " @*PЀ@ Њ(ЊЊЊЊЊЊ P   (UPЊԂЊЊЊЊԊЊԂ ЪЊԊ P ЀЊЪ @   ЊԊ @ЀЊЊЂ  ЀЀ@    ԂE*ЂЂԊԂ  ЀP P @DԊDЂ @Ѐ(EPP@ $   @ @ P           U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj{_*U*}?+ʒժԪժժU*U*5U*U*U*U*u+ժѪժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժժժժժժU~U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժբժժժժժժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժUj+/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՈժժU*U*U*U*U*U*U*!R%U*U*U*U*U*U*U*U*˒ʪբԪժժժժջҔժU*W*U*U*U*U*U*qS*U*U*U*U*U*U*U*ҪʪԪժժժժՔժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*!uS*U*U*U*U*U*z_*U*U*ԢժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Eu?*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ɪժժժժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*Uj{W*U*U*}*ʒժԪժժU*U*5U*U*U*U*u~+ժԊѪժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժժժժժժU~U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժբժժժժժժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժUz{?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՔժըժU*?U*U*U*U*U*U*!R%U*U*U*U*U*U*U*U*ˢʪ҈ԪժժժժջʪժU*W*U*U*U*U*U*yQ*U*U*U*U*U*U*U*ҪҪԪժժժժԢժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*%uS*U*U*U**}{+_*ժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*a'u?*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ɪժժժժժժU*U*UzU*U*U*U*U*U*U*U*U*U*U*U*{W*U*U*U*ԪժѪիժժU*U*5U*U*U*U*U~U~+ժʪԪժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժժժժժժU~/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժըժժժժժժժժժժժժժժժժʪժժժժժժժժժժժժժժժժժժUz?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ȔժըժU*?U*U*U*U*U*U*!Rq+U*U*U*U*U*U*U*ˢʪҢԪժժժժիʪժUjU*U*U*U*U*U*|L*U*U*U*U*U*U*U*ԪҪԪժժժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uU*U*U*U**}{{*ѪՈժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*iu_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ɪժŪիҒժժժU*U*uW*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժѪիՒժU*U*U*U*U*U*U*U*Uj+ժʪԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժUz/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժըժժժժժժժժժժժժժժժժʪժժժժժժժժժժժժժժժҒժUz?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ʔժըժU*}/U*U*U*U*U*U*!Rq+U*U*U*U*U*U*U*ˢʪʪԪժժժժʪժUjU*U*U*U*U*U*~^*U*U*U*U*U*U*U*ԪԪԪժժժժՈժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uU*U*U*U*/+ЪՈժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*iu_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ɔիʒժժժU*U*}W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՔժŪժU*U*U*U*U*U*U*U*Uj+ժʪԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժժժժժժժժժժժժժժժժժ˒ʪժժժժժժժժժժժժժժժʒժUz?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ҔժըժU*}/U*U*U*U*U*U*!Ru)U*U*U*U*U*U*U*ˢʪԪժժժժժժUjU*U*U*U*U*U ?>*U*U*U*U*U*U*U*ҪҔժժժժժՈժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uU*U*U*U*+ժŐՔժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*)5uO*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՔʒժժժU*U*_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԢժŪժU*U*U*U*U*U*U*U*U~kj+ժҪԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժU*W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժŪժժժժժժժժժժժժժժժժ˒ʪժժժժժժժժժժժժժժժʒժUz?U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ʪժբժU*}/U*U*U*U*U*U*!Rt)U*U*U*U*U*U*U*ɪժԪժժժժժժUjU*U*U*U*U*UJ*U*U*U*U*U*U*U*ҪҊժժժժժՔժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uT*U*U*U*+ժŪȔժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*)uO*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՔԪժժժU*U*_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժŪժU*U*U*U*U*U*U*U*Uz*Uj+ժժժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժU*W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժŪժժժժժժժժժժժժժժժժ˒ʪժժժժժժժժժժժժժժժԪժU~/}/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ʪժբիժU*}/U*U*U*U*U*U*!t*U*U*U*U*U*U*U*ɪժժժժժժժժժUjU*U*U*U*U*Ub_)U*U*U*U*U*U*U*˒ҪԨժժժժժȔժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uT*U*U*U*+ժŤŪիʔժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*)UuW*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*բըժժժժU*_*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՈժժU*U*U*U*U*U*U*U*Uj*U*+ҒժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժU*W*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ժժժѪժժժժժժժժժժժժժժժժ˒ҪժԪժժժժժժժժժժժժժժU~/Uz/U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ʪժբիժU*u/U*U*U*U*U*U*%u*U*U*U*U*U*U*U*ɪժժժժժժժժժU*U*U*U*U*U*UrO+U*U*U*U*U*U*U*˒ʪբԪժժժժʔժ U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*uT*U*U*U*}+ժդѪիҔժժժU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*!uW*U*U*U*U*U*U*U*U*U*}>U*U*j_*U*U*բՔժժժ                , * SOUND * 6I110' ;150,155 @J110:; JG TI110Q W15,5] Z240,10c ^o hI110y k15,5 n240,10 r |I110 140,15 J110:  I110 15,10 240,5  2 * Q:QUIT.- A$:A(A$):A$"Q"ĉ::c A$"S"Ĺ802,48(802):7978,48(7978):300:220 * ACCEPT ONLY CHOICES FROM 1 TO 4, INCLUSIVE. (A1)(A4)220 16368,0 * TURN CONTROL OVER TO SUBPROGRAM. :(4);"RUN SECTION "A  1010,0:1011,129:1012,36Ld16304,0:16302,0:16299,0:16297,0g * LOAD MENU PICTURE.(4);"BLOAD FRAME3.PIC,A$2000" * TURN ON PICTURE.16304,0:16302,0:16300,0:16297,0300 * CLEAR KEYBOARD.16368,0    `ҥ %Lhihihhh  l ΅8ȱ hhHH ΅ȱ΅F`넹슨H Jh`PQ` 4 \` `8`ﺽ}%} (i `(i!l 4&eȄ`Ml%00 00 ` `ꥥi ꥢ뺽 纽 +뺊i $0 0il 0l`il쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l \QPeRP`S8QQRPP`QIiQPIiP`$P0`P0QЧ`QP`Q8SPRp 0 `0``hhʚHH芠L+hihiHHHHHlhhi L+ihihi1lhihii㚽 ,К8f A,=뤹" " ,П ,몥`hihihEhhhhhlPQQPPQP`hihi r륝HHHHHHl+%0#0 00QP`QPSRQP`QPSR`QPϥQeS e E lwxL ͠ɠŠ, .խ6lhiJhiKlJ!ߠ܅^_LA )Ȣ` J쥸,:M ,C \ .Ն$0RFH JhŸ ,𤥹hh,,*l^Rޠ  H#H Z nHHHF L  LPLZ[MLo d F ںvL N ΤύZ[F3 O L φ$0kL +!]Ӆ^_ Aۢ%܅^_ AlJ ? \۽^ \(HHH   ޠ  H8H Z nHHH3 8   ޠ  H{H Z nHHH3 8   ޠ  HH Z nHHH?    HH Z nHHH    p zPQ ⩘  LI  ٠    ٠   T Lb LI  p W  ک  h   ٠  ک ޠ  HH Z nHHH,    HH Z n  p W   p W  k   ٠ +HHH  PQL XL? HHH  PQL'  p  p zPQ ⩘  p f p k p p W u p W z p W  p W   h   کp p W u p W  p W LX BLOAD FRAME3.PIC,A$2000QSRUN SECTION 150,1515,5240,10140,1515,10240,5||}~~~~~H@yP p p  UR p W \ p a !!!!!!   W  (4)"BLOAD CL.OBJ,A$8100"?1010,0:1011,129:1012,36Ud(4)"RUN HELLO1"!!uLP``Wȱ0 ɀ. ɀ iТ`` L|LĠͮŮİĠͮŮİ L`ӠĠͮŬ! ! !I 6666.$$$$l16>7-66%$$$$M--5?6666'$$$??*--5??? $$$,6666.,n)- $$$<6666?'$76VII $$$$,-m2$ $"$"$ XII666$$$$ ->*%5>?NI ---????->w+%)mu--M 8????--------m 8??????????'-m ------ o ------?????????????g---------MI---?g-< ۓ;??????L----%???g---%???L-%HmI+--m ?????? m)------->>> ...I!$$$$$$$$4-,5666L$$$<7?$$$4-,-.666 $$%---.66>>??'$$$$$.%-55667?'? $$%--.6666&87?'$$$-,,55(.--%%<>''$$$? -$4 $$tI 066>>?' $''$tI 06>>6?06655,,$*.&%%$$,,,,,,0555555--%%$$$067->w7w??.5?---$'I!,,,,$<MI6658>?'$$$$$*%--556>>??< $$%---.>>??' $,,--.%$$266<7??' $$%---.6???R.--%=I!$$$$?????'-----%?????' ,6%d-----%?????'-----%$$,66.$$d$5.$ $5.$ $5.$ $5.$M8????????,--------$$?????'-----%<6'$$$$???????,------------------ ????????????$$$$5666.$$$$ $5.$ --5??7--6%,6M2666'$$$<66666'<6;??,--$7>$??7-->?'--------%????????'--------?,%?L)%?,-(%?,-6%,6%,6%d-<'-<'-.5?---,-,-,-e+%'<<<$''$?77?>>7777778>>.5--&XIII88 $$---M8??????(--------m 8??????????g-----------%??????????? P---------%????????? --------??????? ------.>.>.>->7->)5?nI-5?n -5?3M-?wm7-> -?. -_??.m-5??.- -5??7-m-5??7-m-5??7-m-%- 8???(----8?????(-----%??????-------8?????,-mm --8 ?;???; --------%????????'----------??????;? -M)-----???????g)-----??? ---%???L--Hm)---m ???????( -------- ??????????,-M)------m8???????? ----------- ??????g --- 8??? ---