HPAD0|J U%dhandler openPad; begin delete menus; create menu "Game"; put page field "Game" into menu "Game"; send "initialize" to this page; pass; end; handler closePad; begin restore menus; end; Handler Cancel; begin go to pad "pad.pad"; end;QV7GameXXGame%##GameJX Xinitialize` /*7*7pad.pad *02$handler solve; begin global matches; get matches; for i = 1 to 36 do begin put item 1 of line i of it into l1; put item 2 of line i of it into l2; put item 3 of line i of it into topic; put line topic of page field "topics" into t; set the color of page button l1 to item 2 of t; set the name of page button l1 to item 1 of t; set the color of page button l2 to item 2 of t; set the name of page button l2 to item 1 of t; end; end; handler restore; begin restore menus; end; 2+$solve7matches$6XXXXtopics%##XXL  X PXL  XX PXL  X PXL  XX P$)*7*@HemonslepHuavassspH(pricotsspH )4erriespH 5@earsspspH ALpplessspH  elonsspH  iwisespH( eachesspH)4 ineapplepH5@ asberriespHAL omatosspH  omatosspH  ananasespH ( herriespH) 4 emonssspH5 @ pplespHA L ananaspspH rapeslepH erriespspH (rapespH) 4rapesspH5 @herriesspHA LelonssspHApples,23 Oranges,32 Grapes,48 Melons,79 Lemons,95 Peaches,96 Guavas,112 Cherries,142 Bananas,159 Apricots,160 Tomato,224 Pineapple,176 Kiwis,240 Pears,223 Berries,207 Currents,10 Canteloups,14 Rasberries,13H$uavasspH%uavassspH&(asberriesp"H0H')4urrentsp#H0H(5@ineapplepH)ALanteloupspH*asberriespH+ppleslepH,(elonslepH-)4iwisspH.5@iwisspH/ALeachesspP"@8BTimes &FNlqr100p0P#@DMHits &FNlqr100p0P/Topicsin end;-!p p1H&Start;FALSE;FALSE;initialize;Start a new game;;TRUE Sol&ve;FALSE;FALSE;solve;Solve the puzzle;;TRUE -;FALSE;FALSE;;;;TRUE &Restore;FALSE;FALSE;restore;Restore the system;;TRUE E&xit;FALSE;FALSE;;Exit to DOS;;TRUEP1 PGame  +@C  o!p$pD'7/Handler Select; Begin cancel; End; 77X  :*H3 CG ecials1GGp4{>(80Handler Select; Begin go home; End; 787*H4IO4iHomecials1GGp4{ B"handler openButton; begin set the edgeType of the target to 11; end; handler closeButton; begin set the edgeType of the target to 1; end; handler select; begin global matches,firstpick; put the layer of the target into ly; if the color of page button ly is not 7 then exit; get item 3 of line ly of matches; set the color of the target to item 2 of line it of page field "Topics"; set the name of the target to item 1 of line it of page field "Topics"; if firstpick is not empty then begin if item 2 of line firstpick of matches is not ly then begin wait 500; setDefault firstpick; setDefault ly; end else begin add 1 to page field "Hits"; if page field "Hits" is 18 then play "T255 O1 L8 G O2 CEG P1 E L2 G" else beep; end; add 1 to page field "times"; put empty into firstpick; end else put ly into firstpick; end; handler setDefault(bnum); begin set the name of page button bnum to empty; set the color of page button bnum to 7; end; handler initialize; begin global matches,firstpick; put "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36" into squares; put substitute(squares,",",return) into matches; for i = 1 to 36 do setDefault i; for i = 1 to 18 do begin get random(38 - 2 * i); put item it of squares into l1; delete item it of squares; get random(37 - 2 * i); put item it of squares into l2; delete item it of squares; put l1 & "," & l2 & "," & i into line l1 of matches; put l2 & "," & l1 & "," & i into line l2 of matches; end; put empty into firstpick; put 0 into page field "times"; put 0 into page field "Hits"; beep 1; end;BZr@0 As 7de P*7de  P*7 de cXL  c.*matchesXde XTopics%##X Pde XXTopics%##X Pfirstpick.matchesXfirstpick.>firstpicksetdefaultsetdefault$`XHits%X XVXHits%##+*T255 O1 L8 G O2 CEG P1 E L2 G$!Xtimes%X XV"firstpick$$firstpick*$ setdefault87()XL  X P*XL   P*$ initialize7./01,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,361, Pmatches2$6"2setdefault$365!& +6X7X W8!% +9X:X W;,,,,,,matchesX X<,,,,,,matchesX X$>firstpick?Xtimes%X X@XHits%X XA*( HyperPAD 2.2 Brightbil-Roberts & Co. Concentration      Select two but*ons, trying to match the names and colors.p000y$.-5' q  O - w U 3}[9G=U3}[I