GfABASIC,@@@bBBB<35@555555556B6B6B:dQWMLSCR_MEMXPLANE1PLANE2OBJBUYDYUXDXYBTNPOXPOYPLYMXMYXOBJ_POSYOBJ_POSCENTERATCHOISENCHOSENOPOXOPOY CHECK_POX CHECK_POY OXOBJ_POS OYOBJ_POS TITLE_STARTX1Y1TEMPSPLITXCHYCHXPOXYPOXYPOYDECIDINGECIDINGTHINKINGPLAYERSPLAYER THIS_PLAYERCORRECT PRIZE_BOX_X1PRIZE_X1PRIZE_Y1XPRIZEYPRIZEXPRIZE1YPRIZE1XPRIZE2YPRIZE2GUESSOFFCHOICECAP_LOCKCSXXTTT T_INCREMENT SHOWING_ANSWSAYINGSFLAGDEBUGATXBOARDANSWQUOTELQRQCHTHINKBLANKCONERRASEMY_GUESSNOW WIN_SCREEN CREDIT_SCREENERASEXYBOARDATPALOBJ_NAMEOBJTITLE GAME.DATA STRING.DATA STRING_DATAMEM_POKEKOLORBULLDIALOGCREDITS CREDIT_SCREEN BOARD_SCREENSET_UPMAIN OBJECT_PUTOBJ_PUTCOMPARENEW_GAME STRING_SET_UPLETTERSLETTER SET_COLORSKOLORSTHINKRELEASECHANGE_PLAYERS AWARD_PRIZE TAKE_GUESS COUNT_THEMEODCONCENTRATION "BY PAUL PRATT & STEPHEN EVERMAN (c) 1988, ANTIC PUBLISHING R c4* ! !@ ! FE F!EXXFHEF } FMF-MF.EFFFeGEFFEFMFiMFMF` Ħ. Fe0EFMFF-MF-zF/YFEGF 6! F ĸFqF<--------------------------------------------------------- +F-M F-  FF "!!F-" Print At(2,2);" "  Print At(2,2);Mx;" ";My  Ŗ;1F-MF F ŬFMF- FE F-M F F  FERFFF.F>---------------------------------------------------------- + F6 ȜA__HH))F* !4!FERASE TEXT WINDOW ;EFE%#   FE%# p F Ș@ #   F %!!F8EFkkeep old array offset of first object selected EF8EFkeep old screen position of first obj selected  EF8EF get new array offset of second object selected EFHE)Fpget screen position of second object selected EpFg4F"E%#@@6@  FY!!  "@ F!E00Ft&!F!!@ !F F F.F@------------------------------------------------------------- + F-F!,EG F$y!!V@ !@!F FG1EF%!!F*@!!0! F*@! !0!  F$YX!  " F$Y,!  " F @ @ F y!@!!`! F1EF;EF M! F M! FMF(@ EF remove objects from array h @ EF(!!!F B'!@!+CLICK HERE NOW IF YOU WISH TO MAKE A GUESS.F F y!@!! ! F F y!!!FF!.F >---------------------------------------------------------- +F-EFM FF!EXXFtEFFF : ̘.1Fcchange players if 2 players and no match 40FF0EF84!! Fswitch player indication arrow  !! F7E5F8E6F5E9F6E:F ̔F"0EF4!! F !! F9E5F:E6F5E7F6E8F FE F! .F>----------------------------------------------------------- +F-;EF* !4!FERASE TEXT WINDOW iY!@ "F" ~#0!  F6>E0!0!  FSET CAP LOCK ON G FE: F@ , FF !4!FF^EGpFSF @EG`F"y!`!V@ !!FF @FGFT@EG`F"y!`!V@ !!FF (@FG FGΦEGFΜEGF M! F ΆF rF y!!!FFE(!!!FTD'P!@!.CONGRATULATIONS ! CLICK MOUSE 2 FOR NEW GAMEF $ F ERF F ϜF  !4!!F(!!!FB'P!@!,S O R R Y T H A T IS I N C O R R E C TF F.F<--------------------------------------------------------- +F-5!6!@ !F05!F <50F5E,,F06!pF F4 r5 0F5EuuF 06!pF  F6.F4------------------------------------------------ - +(!* F(!!!`F&E,,(F'E44*ppFE?@#* (@ Fe b F%!!F*& !' !&!'F ѤF%!!F*& !' !&!'F '&!'!F' F&.F<--------------------------------------------------------- + F-YFF- 4!! !F>ҸEGFeach object number goes into board array twice ҮEGF@ EF"@  EF fF RF 5E,,F6ETTF7E,,F8ETTF9EuuF:ETTF h "HJF$Remove these loops for testing-- @then the prizes always fall 4 rows apart in the same column. &EGF1 shuffle prizes -EGF "EV F#EV F$E@ FF@ E"@# Ff"@# E$F ӺF ӦF F hEFEFFF!EXXF(!!!F @'!@!*USE MOUSE BUTTON TWO FOR EXIT OR NEW GAME.FM F.F 8----------------------------------------------------- +FRF GFhQFvLF FEFGFFvF.F.------------------------------------------ +F-GEFF.FF.------------------------------------------- + F-RF-&EGVF F pick random string QF վFG HJF<ENOWF USE THIS FOR TESTING. THE ANSW IS ALWAYS "NOW"  F<E  Fpad begining and end of string with spaces E6 F:~ FLwhile string not expanded to 64 spaces 4%EV F pick random place to start in string 8?@%@  Fif not space increment until it is 4%F?F8E;@% Fsplit the string in half and insert space sE=@6 FiE F E6 F`F .F0--------------------------------------------- +FEGF" E`!!  F6!F F!! !@!F!!p!`! FEFFEQFe  EFEFFEQ!F !F !F4F ZF !!p!`! F-4F@F.FE,----------------------------------------- +Fn6!F6!D@ F6!.F6!n F-.F!0-------------------------------------------- +F-!FYF$! !!F(!!!PF8/!@!z!C O N C E N T R A T I O NF %!!F#F$=!8!c!,FC&C!pF%!!F"ڸ EHG'HpFC E PF"ڮ ECG`HFA E `F ! ! ! F چ FF T FF%!!F$=!`!!(F $#!`!c!(F !3! !DFp#F $!!!F" EHG!HpFC$`! !,,! PPFA$k! ! ! PPFA&! F&m! F V F!F-YF.F.------------------------------------------ +FYF!FMF`EFFE4F2V@ !V( `!Vxx  !F-2V@ !V( `!Vxx  !F-2V@ !V( `!Vxx  !F-2V@ !V( `!Vxx  !F-&y!P!V@ !<F29F y!!!FhEGF6!F7 PF$H!H!!LFN%!!F"EHGHHF"! !!*F ݶFH%!!F$! ! !pFN(!!!F '$!P! A N T I CF(!!!F.'x!p!WRITTEN IN GFA BASIC BYF &'!!STEPHEN EVERMANF'>!(!&FE '*!<! PAUL PRATTF'>!d!(c) 1988F(!!!F'V!!T W OFS'!!O N EFS(!!!PF' !&!EXITF(!!!@F'!&!PLAYERF'U!&!PLAYERSF(!!!F0'!@!C O N C E N T R A T I O NFTMFY! "B` FFF-FMF-.F4------------------------------------------------ +F--EF -FH "!!F < H  ++F-EF.E#H F  FEpFMF-.F-2---------------------------------------------- -+F- R F- "!!F-2F!.F.------------------------------------------- |FC BUTTERFLY 264479,64479,42404,23995,54314,10837,10261,54890 257927,64575,48188,16963,47132,18019,33729,65535 CANDLE 4265535,65279,65535,65151,64575,65535,64575,65023 264575,65535,64575,65023,34817,36849,49155,49267 FLOWER 5247999,30847,38773,28705,34527,61443,40955,33539 231679,1083,31167,47647,64639,64959,65087,65279 ICECREAM 265023,64031,63343,61583,60927,57863,61471,63463 263519,63975,64575,65015,64575,65023,65151,65271 SODA ,264639,64639,63935,63935,61471,61471,63455,63455 263455,62815,63455,63263,63455,62175,61471,61471 GOBLET 2249153,53247,58711,57347,57347,59391,64543,65023 265407,65407,65407,65407,64543,64767,49153,51199 WINE GLASS 249153,53247,59391,57347,62459,61447,64719,64575 265407,65407,65407,65407,64543,64767,49153,51199 JOYSTICK 0263999,63999,65535,63999,65535,63999,65535,63999 *63998,63998,57468,57468,3,3,65535,32799 DISK ,08048,57359,8048,57359,8176,57359,16376,65535 7.13816,62975,12120,61279,16376,65535,0,65535 CANDELABRA ,265535,52851,35939,65535,35939,65535,35939,65535 *35939,35939,1,1,64639,64639,61471,61471 HOUSE PLANT 246067,65535,32876,63487,57351,64735,49155,64183 232776,59103,6259,50563,59887,62991,63439,61455 CLOCK 265535,65535,61455,61455,51171,49155,39033,32769 .40825,32769,36721,32769,49155,49155,960,960 LAMP 6.62431,61471,53239,49159,32765,1,60527,64639 260527,64639,64639,64639,64639,64639,61471,61471 EIGHTBALL 257351,57351,34753,34753,67264,67264,67520,67520 267264,67264,34753,34753,57351,57351,65535,65535 PEN 265087,65535,65055,65055,65199,65391,65199,65391 265215,65407,65215,65407,65151,65407,65407,65407 KEY 264575,64767,63903,64447,57351,59391,61455,62463 264575,65471,64639,65535,64639,65535,64639,65407 RING ,262895,61471,64223,63551,61455,65535,57799,61951 258343,62463,58343,62463,61895,63999,63503,65535 T-SQUARE 6263519,65535,32769,65535,65151,65535,65151,65407 265151,65535,65151,65407,65151,65535,65151,65407 PERFUME 263519,64511,65151,65535,63967,63519,51195,49155 239967,33249,39967,33249,61439,57347,62463,61455 BELL ,264575,64575,63903,63647,58359,57351,53243,49155 250163,49155,40857,32769,34801,32769,65151,65151 THUNDER BIRD 0*61503,61503,64575,64575,384,0,27702,384 230750,13932,29742,29070,60855,57351,55707,49155 TABLE *0,0,64575,64575,65151,65151,65151,65151 264575,64575,64575,64575,63887,63887,58279,58279 BOOKS 265311,59167,65311,59207,63519,59207,63519,59207 063519,59207,38937,34625,6168,1792,65535,65535 FLAG ,065535,65535,1023,20480,1023,11263,1023,20480 265534,32767,32767,32768,65535,65535,65535,65535 BAR-B-Q 0672,7512,32769,32769,57351,57351,63215,63215 3263215,63215,61455,61455,61175,61175,56827,56827 TELEVISION ,265535,52479,65535,62463,32769,32769,32961,36849 234817,34289,33505,36273,32769,40965,32769,32769 BRIEF CASE ,(57351,57351,59367,59367,0,8580,0,128 20,0,0,0,0,0,65535,65535 RADIO *32767,65535,65535,57343,65535,57343,0,0 16316,16380,0,0,0,12684,0,0 DRINK 264511,65535,65023,65535,63143,63399,63335,63463 263335,63463,63415,63479,63415,61511,63503,63503 GUM MACHINE 261455,61455,59239,59895,60279,59047,63183,61839 264575,64575,64575,64575,61455,61839,49155,49155 CALCULATOR ,249159,49159,57335,57175,49159,49159,49159,49159 251495,51495,49159,49159,49447,51495,49159,49159 APPLE ,61951,62463,56575,57603,65535,640,65535,0 .65535,0,49151,49153,61439,61443,63487,63495 ARROW 448,0,448,0,448,0,3544,0 o2032,0,992,0,448,0,128,0 o |FB: When adding new string data do NOT to use commas in strings. A STITCH IN TIME SAVES NINE .OLD SOLDIERS NEVER DIE THEY JUST FADE AWAY n>THE SHORTEST DISTANCE BETWEEN TWO POINTS IS A STRAIGHT LINE .IF AT FIRST YOU DON'T SUCCEED TRY TRY AGAIN 2YOU KNEW THE JOB WAS DANGEROUS WHEN YOU TOOK IT (TO ERR IS HUMAN TO FORGIVE IS DIVINE Y"YOU CAN'T KEEP A GOOD MAN DOWN Y(FISH AND VISITORS SMELL IN THREE DAYS DON'T CRY OVER SPILT MILK ANTIC THE ATARI RESOURCE N.A BIRD IN THE HAND IS WORTH TWO IN THE BUSH 4ONE SMALL STEP FOR MAN ONE GIANT LEAP FOR MANKIND :PEOPLE WHO LIVE IN GLASS HOUSES SHOULDN'T THROW STONES &WHERE THERE'S A WILL THERE'S A WAY T.FRIENDS ROMANS COUNTRYMEN LEND ME YOUR EARS 2YOU CAN'T MAKE A SILK PURSE OUT OF A SOW'S EAR N*YOU CAN'T HAVE YOUR CAKE AND EAT IT TOO MONEY IS THE ROOT OF ALL EVIL ,TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE .DON'T CUT OFF YOUR NOSE TO SPITE YOUR FACE E"A ROLLING STONE GATHERS NO MOSS 0A ROSE BY ANY OTHER NAME WOULD SMELL AS SWEET MONEY IS THE ROOT OF ALL EVIL $GIVE ME LIBERTY OR GIVE ME DEATH Y$WHEN IN ROME DO AS THE ROMANS DO *LIVE FROM NEW YORK IT'S SATURDAY NIGHT '4DON'T COUNT YOUR CHICKENS BEFORE THEY'RE HATCHED x*(a_DX-6X"X2} \0 }>s8h$׸ق0ՒЪj2BP