0* SHUT THE BOX * by * GORDON CROOK * 1989 escap ()hom escap "H"'cl escap "E" hom(bel (),-gro()"b""?"()"c"()/.grof()"b"()()"c"())2ro()"p"rof()"q";< a(,)()"Y"( )( )aF windo(,,,)()"X"( )( )( )( )&PlchwVcZco()"e"cof()"f"windo(,,,Z)clcogrofrof\ windo(,,,Z)_ clcofrof0da(,)"* HOW TO PLAY SHUT THE BOX *"Mn a(,)"The object of the game is to close all the open windows." gx a(,)"To do this you have to throw the dice, then you can close any windows that you like"g a( ,)"as long as the total of the numbers, in each window that you close is equal to the"&a( ,)"total of the dice."0 a(,)"* HIT SPACE BAR TO BEGIN *" u"" clXb * window variables *lv  ()8 a(,)"WHAT COLOUR OF SCREEN DO YOU WANT?"K a(,)"TYPE 'G' FOR "ro" GREEN "ROF" / 'B' FOR BLACK" au a""au * print box * windo(,,,Z) cl ro  ,) a"g" gro  grof  0$ a(,)()a(,Z)().?8 a(,)()(V,())a(,X)()()=B a(,)()(V,())a(,X)()()=L a(,)()(V,())a(,X)()()V  `  P  Fj  a(,)()  a(,)()&o  a(,)()t~ rof   T   a(,)  , * roll dice *nu-* windo(l,c,h,w) cl cofnunutotal nu rofa(,)"WELL DONE 'CLEVER DICK' YOU'VE JUST SHUT THE BOX."(,()) p  (u"")A% rofa(,)"* HIT SPACE BAR TO THROW DICE *"ro * u""4(}())>d(}())H MclR nu   \ %f ro a(,)" "!p a(,)" "" "z a(,)" "d a( ,)" "# a( ,)" "d" " a(,)" "  * choose numbers *  totad# rofwindo(,,,T)^ totanu bela(,)"HARD LUCK YOU'VE THROWN TOO MANY."bel p  @  cl3 ()()()()3& "TYPE YOUR 1ST CHOICE OF NUMBER THEN RETURN.": ()tD () () tota clbel"THAT NUMBER WAS USELESS, TRY ANOTHER."bel  N ()tota X  b clJl a(,6)"1ST "()" 2ND "()" 3RD "()" 4TH "():v a(,)"NOW TYPE YOUR NEXT CHOICE THEN RETURN."  () ()  * a()()()()  ,, clk totaa bel"YOUR TOTAL IS DIFFERENT FROM THE DICE PLEASE TRY AGAIN."BEL    * shut *  X cl ro windo(,,,Z)  (# () A ()   ()  + () ()   '" a(,)(,( )),6@ ()  J  * test choices *# ()()   5 ()() ()()   G ()() ()() ()()    W belcl"YOU CAN'T CLOSE THE SAME NUMBER TWICE TRY AGAIN."bel  # tota a X   pz * END *( a(,)"ANOTHER GAME (Y/N)?" au a""au a"y"  a"n"   Xb * test windows *lv{     () x ()()  cl bel()"IS ALREADY CLOSED PLEASE TRY AGAIN."bel   ()() ()   @J * can you go? *T^  )h tota()  n#r| tota n#   (#2# * check *<# F#  +P# ()() ()Z#d#n#  7x# () ()()##-# * check if any 2 open windows=total% *##t# t t#  #  t#  #+# ()()tota  # ,#-# * check if any 3 open windows=total% *$$  $  "$  "'$   6$6,$ ()()()tota  6$ ,,T$+^$ * check if any 4 open windows=total%h$r$  |$  $  $-$ ()()tota  $ ,]$ bela(,)"UNLUCKY YOU CAN'T GO, SO THAT'S THE END OF THE GAME."bel ptota  $ ,]$ bela(,)"UNLUCKY YOU CAN'T GO, SO THAT'S THE END OF THE GAME."bel