Q$jVOnk X)a BTgRNMALLOC6@ DrawBoard@ OnePlayerGame@ TwoPlayerGame@ InstructUserz@CheckBoxt@ CheckBoxAgainBp@ CheckIfLineax1y1ax2y2!@introLxytz'lP@PaintBox@ ArrayDefs<@ GetColorsc1c2 DisplayC1c DisplayC2@ OpeningMenuchoicesPlaySingleGamePlayDoubleGame choosehere@jc3+topboo1boo2moversansvans2pcspcatrue direct3fdirectMoveUpMoveDown?MoveLeft MoveRight[ MarkFirstPt MarkSecondPt]DrawIt1FUNTIONCtoLnuhv6LtoCrEndItmZp1p2p3zp4n CheckIfBoxnum1boxnum2boxEndGameisboxGame5thebFFEndNowisbox2isbox1 EndNow2Hpboxnum1num2ogw1g1g2w2Tw3numkq@ PaintBox2hStartIt Top2MoveUp2 MoveDown2 MoveLeft2A MoveRight2 MarkFirstPt2 MarkSecondPt2EndGame2EndIt2,@CompMovebendsubEndCompp EndHereNowBFpestiD D D DDaD apDn6<D6<DD)6<DB  D* HD* !PDHDPD6  }dedd}de  se 7 7 pdG p7a pd]L 6 <7) pd ]h 6 <7) pd]7a 6 <7n pd ]7a 6 <7 pd ]7b !intro8r vse  eeXeWx e2eeWl f fsd se$sdmChris's"sd DeKeeKe, deV fedeede deV* feKe,e}e, deVd fedee}e deV fe}e,ee deV fe}ee}e deV feeee deVL fe}eede deV feee}e deV fe}eeKeOsd  deV feeee deVH feeee deV feeee deV feeee deV feeee, deV0 feeee deVj fee,ee, deV feeee deV fee,ee deV feeee deVR feeee deV feeeeTsd deV feEeeEe deV feEee^e deVN fe^ee^e, deV fe^e,ewe, deV fewe,ewe deV feweee deV6 feeee deVp feeeEeSsd) deV fe&eee deV feeee deV2 feeee deVl feeee deV feeee deV feee e deV  fe ee e deVT  fe eee deV  feeee, deV  fee,e&e, deV  fe&e,e&e deV<  fe&eee deVv  feeee deV  feeee deV  feee&e deV$  fe&ee&e Fill ineUed seed seOedseed)sFLASH) ddV eeXeW e2eeW e f f de NV:  f eeXeW e2eeW d f f de NV  f f de0uV  fQ % ArrayDefs8v eXddedd eJdd eadded de+d d ed d ed de"d ded d e d d e+d deddedd ey dd eddeddeZdd e dd eddeJddedd e< dd eSddedde dd e dd edde d!de d!d e d!d e d!dey d%de d%d ek d%d e d%de d)deL d)d e d)d e d)de< e de e d e.e d eE e de e de e d ee d e e de e det e d ee d e e dek ede ed e]ed et ede ede>ed eed e ede.edeed e ed e7edeedeed eed eedeedefed eed eede]edeed eOed efedeede0ed eed eede edeed eed e)edeedeed ewed eedeedeXed eed eedeOedeed eAed eXedeede"ed eed eedQ g DrawBoard8vaseFeFe"e"deGeGe!e!d%eHeHe e d eIeIeee eJeJeeeeKeKeee eLeLeed eMeMeed%eNeNeedse edee W edee Wx f fse sdse m1"sd%se m2"se se m3"se se m4"sese m5"sese m6"sdse m1"sdsem2"sdsem3"sdsem4"sdsem5"sdse!m6"Q " GetColors8Dv)6<BsV deeW deeWCep&d b e_ ec e;_ ehc]d b b f f ee;eehdee<eegd%ee=eefd ee>eeee ee?eedeee@eece eeAeebd eeBeead%eeCee`d OdeV>s Odses O Omۖ Ofsesese mWhich color for player 1?" 6 6e_ 6dcu][BTsV deeWt deeWhCep&d b e_ ec e;_ ehc]Jd b b f fee;eehdee<eegd%ee=eefd ee>eeee ee?eedeee@eece eeAeebd eeBeead%eeCee`d OdeV O 6] Od Os Odses O Omۖ Ofsesese mWhich color for player 2?" < <e_ 6dcu]^[T < 6]r[TQ : OpeningMenu82v apsV deeW deeWCep&d b e_ ec ec_ ec]d b b f feeceedeedeed%eeeeed eefeee eegeeeeeheee eeieed eejeed%eekeedsd!se&sd mDotssd)sesem1. Play Single Player Gamese sesem2. Play Double Player Gamese sesem3. View Instructionsse se%sem4. Quit"sese' p pdc] [ pd_]2[ p& pQ  OnePlayerGame8 vn6< de VFd   fd  6 ed ed d  dee@eZe&eud!eAe[e%etdeBe\e$eseeCe]e#erdeDe^e"eqd!ecee ed!edee edeeee eeefee edegee ed!Fsdse*semPlayer m, it's your turn."se se/mPlayer 1 Boxes:" sese/mPlayer 2 Boxes:"   e]|[   Y  d eH ]mI"  d eP ]mM"  d mK"]mJ"  d mM"]mK"  e ]4mQ"  m " d ]ZmE"  d ]l[[ t|mI"; YmM"; Y'mJ"; Y3mK"; Y?m "; YLmE"; Y[mQ"; [Rb< ed]To dd e w deo3 ed]o dd e w deo? e]o dd e  deo8' e]\o dd e  deoL d sese#mFirst dot coordinates: edwne ndm," edwne ndo [ d ]p    7 d d ! d] d] d asese#mFirst dot coordinates: edwne ndm," edwne ndsese#mSecond dot coordinates: edwne ndm," edwne ndP d]*sese#mSecond dot coordinates:" edwne ndm," edwne nd d  ]Ro      7 d d]d o.IF j = 2 AND r = 1 THEN PRINT x1, y1, x2, y2 d  d d][[d       H7 d]B H 7 d d]f d  d d ] d  d d] d  < o d d ] d  6 [     ! P7 d H P] o d  H P]> [ !d]Z P 7 !d d]~ d  !d d ] d CIF isbox = 0 AND isbox2 = 0 AND j = 1 THEN j = 2: c3 = c2: RETURNCIF isbox = 0 AND isbox2 = 0 AND j = 2 THEN j = 1: c3 = c1: RETURN d ]H [os  _] sese!s 6mPlayer 1 Wins!  _] sese!s <mPlayer 2 Wins!  ] sese$s 6mTie gamesesemPress any key to continue. mHf bT Q  TwoPlayerGame8 v6< de VFd   fd  6 ed ed d  dee@eZe&eud!eAe[e%etdeBe\e$eseeCe]e#erdeDe^e"eqd!ecee ed!edee edeeee eeefee edegee ed!Fsdse*semPlayer m, it's your turn."se se/mPlayer 1 Boxes:" sese/mPlayer 2 Boxes:"   e]z[    Y  d eH ]mI"  d eP ]mM"  d mK"]mJ"  d mM"]mK"  e ]2mQ"  m " d ]XmE"  thmI"; YmM"; YmJ"; YmK"; Ym "; YmE"; YmQ"; [ Rb( ed]@o dd e w deo| ed]o dd e w deo e]o dd e  deo$ e]Ho dd e  deo d sese#mFirst dot coordinates: edwne ndm," edwne ndod d ! sese#mSecond dot coordinates:" edwne ndm," edwne nd  ]o      7 d](d od       H7 d]l H 7 d d] d  d d ] d  d d]d  < o d d ] d  6 o     ! P7 H P]>o !d]Z P 7 !d d]~ d  !d d ] d CIF isbox = 0 AND isbox2 = 0 AND j = 1 THEN j = 2: c3 = c2: RETURNCIF isbox = 0 AND isbox2 = 0 AND j = 2 THEN j = 1: c3 = c1: RETURNo s  _] sese!s 6mPlayer 1 Wins!  _] sese!s <mPlayer 2 Wins!  ] sese$s 6mTie gamesesemPress any key to continue. mHT bB Q y  InstructUser8Dvsddeedd d eed%d d e~ed dde}ee dde|eedde{ee ddezed d!d!eyed%d%d%exedsd sese mChris's Dots Game!sdsd semThe object of the game:"sdsd m9To complete as many boxes as possible by connecting dots."sd!sd m,To mark your first dot, press the space bar.sd%sd m3To mark your second dot, press the space bar again."sd)sd m3Dots must be adjacent and not diagonally seperated."se sd mGWhen you make four lines that complete a sqaure, you recieve one point."se sd m?After completing a box you may place another line on the board."se sd mFWhen all of the boxes are filled, the player with the most boxes wins.sesd m4You may press ESC at any time to end the game early.sesem$Press any key to return to the menu. mH:b(Q  CheckIfLine8vvB   we  wnd]x[ we  wnd][d [j            e ped pd) p n e ped pd) p n   d]d [  d]d [ deVf ddVZ  ]$d    ]Pd   f f d Q  CtoL88X ede dwnpn Q  LtoC88X  edwne nd Q  CheckBox8Tv* H+m = (1000 * x1 + 100 * y1 + 10 * x2 + y2)+n = (1000 * x2 + 100 * y2 + 10 * x1 + y1) deVr ddVfIF z(x, y) = m THEN l(m) = 1IF z(x, y) = n THEN l(n) = 1   d d d  d d  d d d]d  d H[   d d d  d d  d d d]\d  d H[ f fQ H  CheckBoxAgain8v* !P eddxW dddxWIF z(x, y) = m THEN l(m) = 1IF z(x, y) = n THEN l(n) = 1   d d d  d d  d d d]Vd ! d P[5   d d d  d d  d d d]d ! d P[5 f f5Q   PaintBox8vH He& h He hpnw b bed& n h   t n   zmBM=" z\m,= t\mC15R32D32L32U32D16BR16P= \m,15"Q  PaintBox20vP Pe& h Pe hpnw b bed& n h   t n   zmBM=" z\m,= t\mC15R32D32L32U32D16BR16P= \m,15"Q   CompMove8 v6  d VCdp&d   Cdp&d   Cdp&d   Cdp&d   FOR x = 1 TO 25QIF l(z(x, 1)) = 1 AND l(z(x, 2)) = 1 AND l(z(x, 3)) = 1 AND l(z(x, 4)) = 0 THENLOCATE 1, 1: PRINT "box1"( p = z(x, 4):p1 = INT(p / 1000)p = p - (p1 * 1000)p2 = INT(p / 100)0p = p - (p2 * 100)p3 = INT(p / 10)p = p - (p3 * 10)p4 = pl(z(x, 4)) = 1: t = 1u = p1: x1 = CtoL(u)u = p2: y1 = CtoL(u)u = p3: x2 = CtoL(u)u = p4: y2 = CtoL(u)LINE (x1, y1)-(x2, y2), c3PRINT x1, y1, x2, y2GOTO EndHereNowxEND IFQIF l(z(x, 1)) = 1 AND l(z(x, 2)) = 1 AND l(z(x, 3)) = 0 AND l(z(x, 4)) = 1 THENLOCATE 1, 1: PRINT "box2"( p = z(x, 3):p1 = INT(p / 1000)p = p - (p1 * 1000)p2 = INT(p / 100)0p = p - (p2 * 100)p3 = INT(p / 10)p = p - (p3 * 10)p4 = pl(z(x, 3)) = 1: t = 1u = p1: x1 = CtoL(u)u = p2: y1 = CtoL(u)u = p3: x2 = CtoL(u)u = p4: y2 = CtoL(u)LINE (x1, y1)-(x2, y2), c3'PRINT x1, y1, x2, y2)GOTO EndHereNowxEND IFQIF l(z(x, 1)) = 1 AND l(z(x, 2)) = 0 AND l(z(x, 3)) = 1 AND l(z(x, 4)) = 1 THENLOCATE 1, 1: PRINT "box3"( p = z(x, 2):p1 = INT(p / 1000)p = p - (p1 * 1000)p2 = INT(p / 100)0p = p - (p2 * 100)p3 = INT(p / 10)p = p - (p3 * 10)p4 = pl(z(x, 2)) = 1: t = 1u = p1: x1 = CtoL(u)u = p2: y1 = CtoL(u)u = p3: x2 = CtoL(u)u = p4: y2 = CtoL(u)LINE (x1, y1)-(x2, y2), c3PRINT x1, y1, x2, y2GOTO EndHereNowxEND IFQIF l(z(x, 1)) = 0 AND l(z(x, 2)) = 1 AND l(z(x, 3)) = 1 AND l(z(x, 4)) = 1 THENLOCATE 1, 1: PRINT "box4"( p = z(x, 1):p1 = INT(p / 1000)p = p - (p1 * 1000)p2 = INT(p / 100)0p = p - (p2 * 100)p3 = INT(p / 10)p = p - (p3 * 10)p4 = pl(z(x, 1)) = 1: t = 1u = p1: x1 = CtoL(u)u = p2: y1 = CtoL(u)u = p3: x2 = CtoL(u)u = p4: y2 = CtoL(u)LINE (x1, y1)-(x2, y2), c3PRINT x1, y1, x2, y2GOTO EndHereNowxEND IFNEXT xFQ  [Z