œ:—59468,12; SHARK COPYRIGHT (C) 1978 GLENFISHERW CURSOR #1, JULY, 1978x BOX 550, GOLETA, CA. 93017~:„š AS OF 15 MAY 80¹ZPG$²"SHARK":NM$²"1":62000ædWD²40:HT²25:CRT²32768:SF²30:BT²(HT«2)¬WDú­RT²10:CR$²Ç(13)$®BL²32:SH²113:DV²81:SW²87:TR²86:BE²1020¯™"“"Z°™"HOW MANY TRAPS? ";:60000:NT²Å(IN$)±‹NT±25§™"TRYING TO MAKE SWIMMING DANGEROUS?":‰176¶²‹NT³1§™"THAT'S A CHALLENGE?":‰176ã³™"HOW MANY SWIMMERS? ";:60000:NS²Å(IN$)´‹NS±100§™"HEALTH REGULATIONS PROHIBIT THAT MANY.":‰179Fµ‹NS³1§™"ON A STARVATION DIET?":‰179q¶™"HOW MANY DIVERS? ";:60000:ND²Å(IN$)Ÿ·‹ND±25§™"DIVING ISN'T THAT POPULAR!":‰182Õ¸‹ND³1§™"SHARKS AREN'T AN ENDANGERED SPECIES":‰182ã¹ES²0:KD²0º–¥R(N)²µ((N«1)­3)«1:–¥C(N)²N«3¬µ((N«1)­3)«2*»†SS(NS,1),DS(ND,1):¼I²0¤500:‚Ie½™"“ SWIMMERS EATEN: ESCAPED:"q¾I²0¤SF¿—CRTªWDªI,TR:—CRTªIªBT,TR–À‚I¦ÁI²WD¤BT©WD´—CRTªI,TRÅÃJ²SFª1¤WD«1ÕÄ—CRTªIªJ,BEÜÅ‚JãÆ‚IïÇI²1¤NTúÈ10000Ò—LOC,TR Ü‚IæI²1¤NS$ð10000@õSS(I,0)²ROW:SS(I,1)²COLLú—LOC,SWS‚I_I²1¤NDj10000†DS(I,0)²ROW:DS(I,1)²COL’"—LOC,DV™,‚I¬610000:—LOC,SH¾@SR²ROW:SC²COL E™" SHARK = ± SWIMMER = × DIVER = Ñ";$ J™"":™"‘";£18);KD;£34);ES/ ô10100; —OLD,BLI I²1¤DIST^ OLD²OLDªCCªWD¬RCt !SC²SCªCC:SR²SRªRC— &‹Â(OLD)²SW§10300:—OLD,BL:‰570­ 0‹Â(OLD)³±BL§‰5000´ :‚IÀ D—OLD,SHÎ N‹ND³1§790Ú XI²1¤NDî bRM²HTª1:CM²WDª1 lROW²DS(I,0):COL²DS(I,1)! qOLD²CRTªWD¬ROWªCOL- r—OLD,BLI vRC²´(SR«ROW):‹RC²0§RC²1e wCC²´(SC«COL):‹CC²0§CC²1z {LOC²OLDªRC¬WDªCCŒ €J²RC¤«RC©«RCž ŠK²CC¤«CC©«CC½ ”CH²Â(LOC):‹CH²BL°CH²SH§720Ì ¨LOC²LOC«CCÓ ²‚Kê ¼LOC²LOCª3¬CC«WD¬RCñ Æ‚J ËBUG²1:‰50000 ÐROW²ROWªJ:COL²COLªK1 ÚLOC²CRTªWD¬ROWªCOLM äDS(I,0)²ROW:DS(I,1)²COLk îCH²Â(LOC):—OLD,BL:—LOC,DV„ ø‹CH²SH§CAUSE²1:‰5100 ý‹CH³±BL§BUG²2:‰50000¤ ‚I® CT²NSº I²1¤NSÖ *ROW²SS(I,0):COL²SS(I,1) 4RC²´(ROW«SR):‹RC²0§RC²´((HT«ROW)«ROW):‹RC²0§RC²1" >OLD²CRTªWD¬ROWªCOL6 HLOC²OLDªWD¬RCª1H RJ²RC¤«RC©«RCW \K²1¤«1©«1e aCH²Â(LOC)– f‹¶(ROWªJ«SR)ª¶(COLªK«SC)±1¯(CH²BL°CH²BE)§930¤ pLOC²LOC«1« z‚K¿ „LOC²LOCª3«WD¬RCÆ Ž‚JÚ ˜J²0:K²0:LOC²OLDò ¢ROW²ROWªJ:COL²COLªKþ §—OLD,BL ¬‹Â(LOC)²BE§10500:‰960% ±—LOC,SWA ¶SS(I,0)²ROW:SS(I,1)²COLH À‚IW Ê‹CT²NS§500c ÔI²1¤CT€ Þ‹SS(NS,0)³0§NS²NS«1:‰990¹ è‹SS(I,0)³0§SS(I,0)²SS(NS,0):SS(I,1)²SS(NS,1):NS²NS«1À ò‚IÉ ü‰500× ˆCH²Â(OLD)ö ’‹CH²DV¯»(1)³.5§10300:‰570¦‹CH²DV§CAUSE²1:‰51004°‹CH²BE§—OLD,SHª128:CAUSE²2:‰5100Mº‹CH²TR§CAUSE²3:‰5100^âBUG²3:‰50000tìI²1¤CAUSE:‡M$:‚I–ö™" ÖÖÖ’ ";M$;"!! ÖÖÖ’ "·P™""êZ™"DO YOU WANT TO PLAY AGAIN? ";:60000:T9$²IN$d‹È(T9$,1)²"Y"§œ:‰100%‚™"“THANKS FOR PLAYING."+Œ€D|ƒ"THE DIVER GOT YOU"`†ƒ"YOU BEACHED YOURSELF"wƒ"YOU GOT TRAPPED"—šƒ"YOU GOT THE LAST SWIMMER"¼¤ƒ"THE LAST SWIMMER JUST ESCAPED"Âz€ì'ROW²µ(»(1)¬(HT«3))ª2:COL²µ(»(1)¬SF)ª1'LOC²CRTªWD¬ROWªCOL:‹Â(LOC)³±BL§10000,!'‹LOC±CRTª999§100002$'ŽSt'OLD²CRTªWD¬SRªSC:TM²TI:DK²«1iy'¡C$:‹C$³±""§10105~'¡C$:‹C$³±""§10160ˆ'‹TI³TM§10110 ’'‹DK§—OLD,BL±œ'‹¨DK§—OLD,SH̦'DK²¨DK:TM²RTªTI:‰10110æ°'TE²(Æ(C$)¯127)«Æ("0")ûº'‹TE³1°TE±9§10110Ä'DIST²1:RC²¥R(10«TE):CC²¥C(TE)3Î'‹Æ(C$)³128§DIST²29Ø'ŽF (TM²TIªDLW(‹TI³TM§10260](Žp<(CH²Â(OLD):DL²5|A(—OLD,SHˆF(II²1¤4›P(10250:—OLD,CH®Z(10250:—OLD,SH¶d(‚IIÂn(—OLD,BLÓx(‹CH²SW§10420à‚(II²1¤NDŒ(‹DS(II,0)²SR¯DS(II,1)²SC§10400–(‚II:BUG²4:‰50000H (DS(II,0)²DS(ND,0):DS(II,1)²DS(ND,1):ND²ND«1Nª(Ž[´(II²1¤NS~¾(‹SS(II,0)²SR¯SS(II,1)²SC§10450“È(‚II:BUG²5:‰50000ËÒ(SS(II,0)²SS(NS,0):SS(II,1)²SS(NS,1):NS²NS«1:KD²KDª1ä×(™"";£18);Ä(KD);" "ðÜ(‹NS±0§Žæ(CAUSE²4:‰5100!)DL²1:LOC²CRTªWD¬ROWª(SFª1)3)II²SFª1¤WD«1J)—LOC,SWª128:10250`")—LOC,BE:LOC²LOCª1h,)‚IIw6)SS(I,0)²«1‹@)CT²CT«1:ES²ESª1¤E)™"";£34);Ä(ES);" "°J)‹CT±0§ŽÂT)CAUSE²5:‰5100Ì NDL²20ß*N10250:—LOC,CHò4N10250:—LOC,DVý>N‰20010„NDL²16:CH²Â(OLD).ŽN10250:—OLD,(CHª128)¯255A˜N10250:—OLD,CHL¢N‰20110dPÃT$²Ä(BUG):T²Ã(T$)ª3pZÙ"¬’";†dÃIJ²1¤T:™"¢";:‚IJ nÙ"»":™"¡BUG";T$;"’¡"«xÙ"¼";Á‚ÃIJ²1¤T:™"¢";:‚IJˌÙ"’¾"ì`êIN$²" ":ZT²TI:ZC²2:ZD$²Ç(20)jê¡Z$:‹Z$³±""§600702tê‹ZT³²TI§™Ê(" ¦",ZC,1);"";:ZC²3«ZC:ZT²TIª15=~ê‰60010m¦êZ²Æ(Z$):ZL²Ã(IN$):‹(Z¯127)³32§™" ";:‰60110°ê‹FL¯(Z¯127)±64¯(Z¯127)³91§Z$²Ç((Zª128)¯255)¯ºê‹ZL±254§60010ÊÄêIN$²IN$ªZ$:™Z$;ZD$;Z$;éÎê‹Z²13§IN$²Ê(IN$,2):™CR$;:ŽØê‹Z²20¯ZL±1§IN$²È(IN$,ZL«1):™"";:‰60010Hâê‹Z²141§Z$²Ç(«20¬(ZL±1)):Z²2¤ZL:™Z$;:‚Z:‰60000Sìê‰60010c(ë‹PN²0§60250†2ë60500:™"PRESS RETURN’ TO ";£<ë‹PN²LP§™"BEGIN:";:‰60240µFë™"CONTINUE:";ÊPë¡T$:‹T$²""§60240âZë‹PN²LP§œ:™"“";:‰100%dëPN²PNª1:™"“";PG$;" - CURSOR #";NM$;" (C) 1979 PAGE";PN;""2në60500:ŽLTìI²1¤10:™"ÄÄÄÄ";:‚I:Žm0ò™"“";£9);"CURSOR #1 SHARK˜:ò™"COPYRIGHT (C) 1978 BY GLEN FISHER"£Dò60500ÓNò™"EAT ALL THE SWIMMERS, BEFORE THEY ESCAPEõXò™"WANT DIRECTIONS? ";:60000bò‹IN$³±"Y"§100”òLP²2:602001²ò™"YOU ARE A SHARK '±'N¼ò™"THAT EATS SWIMMERS '×'nÆò™"WHILE AVOIDING DIVERS 'Ñ'‰Ðò™"AS WELL AS TRAPS 'Ö'Úò™²äò™"USE THE NUMBER KEYS TO MOVE.¹éò™"åîò™"THE '5' KEY IS YOUR CURRENT LOCATION.ðóò60200øò™"FOR EXAMPLE, TO MOVE TWO SPACES<ó™"TO THE RIGHT, PRESS THE '6' KEYB ó™Uó™" 7 8 9g ó™" Í Â În*ó™"4ó™" 4à 5 Ã6ˆ>ó™"šHó™" Î Â Í­Ró™" 1 2 3³\ó™Ûfó™"SHIFTING A NUMBER MOVES ONE SPACEpó™"IN THAT DIRECTION (INSTEAD OF TWO)uó60200