REBOL [title: "Jeopardy"] 

config: {

    REBOL []

	;________________________________________________________________
	
	sizer: 4
	
	Category-1: "Category 1" 
	Category-2: "Category 2" 
	Category-3: "Category 3" 
	Category-4: "Category 4" 
	Category-5: "Category 5"
	
	answers: [
	    "$100 Answer, Category 1" 
	    "$100 Answer, Category 2" 
	    "$100 Answer, Category 3" 
	    "$100 Answer, Category 4" 
	    "$100 Answer, Category 5" 
	    "$200 Answer, Category 1" 
	    "$200 Answer, Category 2" 
	    "$200 Answer, Category 3" 
	    "$200 Answer, Category 4" 
	    "$200 Answer, Category 5" 
	    "$300 Answer, Category 1" 
	    "$300 Answer, Category 2" 
	    "$300 Answer, Category 3" 
	    "$300 Answer, Category 4" 
	    "$300 Answer, Category 5" 
	    "$400 Answer, Category 1" 
	    "$400 Answer, Category 2" 
	    "$400 Answer, Category 3" 
	    "$400 Answer, Category 4" 
	    "$400 Answer, Category 5" 
	    "$500 Answer, Category 1" 
	    "$500 Answer, Category 2" 
	    "$500 Answer, Category 3" 
	    "$500 Answer, Category 4" 
	    "$500 Answer, Category 5" 
	]
	questions: [
	    "$100 Question, Category 1" 
	    "$100 Question, Category 2" 
	    "$100 Question, Category 3" 
	    "$100 Question, Category 4" 
	    "$100 Question, Category 5" 
	    "$200 Question, Category 1" 
	    "$200 Question, Category 2" 
	    "$200 Question, Category 3" 
	    "$200 Question, Category 4" 
	    "$200 Question, Category 5" 
	    "$300 Question, Category 1" 
	    "$300 Question, Category 2" 
	    "$300 Question, Category 3" 
	    "$300 Question, Category 4" 
	    "$300 Question, Category 5" 
	    "$400 Question, Category 1" 
	    "$400 Question, Category 2" 
	    "$400 Question, Category 3" 
	    "$400 Question, Category 4" 
	    "$400 Question, Category 5" 
	    "$500 Question, Category 1" 
	    "$500 Question, Category 2" 
	    "$500 Question, Category 3" 
	    "$500 Question, Category 4" 
	    "$500 Question, Category 5" 
	]
	
	;________________________________________________________________
	
}

do config

header: load to-binary decompress 64#{
eJyVd2VMHAyw7eIs7locCou7O0UWd5fiujh8uENxKGVxh8WKy+JSrHiLFqe4O8Up
tzcveXl/35k/k5zJSDKZnHlbevsNwFNWACsAEBAQAEr/DPC2CpADoCKjoKIgo6Ki
oKKhoaJj4GFgAIEYRDi4WHikRGRkpEQkJBRUTDQUlAzvSEho2WkZ3jODWEHkNBzc
HCzcTCwglv9NgoCGhoaBjkGIgUHIQkFCwfL/jbd+AD46wBSBHgmBHoCIj4CEj/A2
BHgHACAiIv3r9v8CFQ0FHYCIjPS/rDYeAOGfi4KEgokGREX7xyIgIgGQUfBRCejQ
0Al5ZOi1LIl4ZT2aiBm0rTzDPxc3fpshIWV8zxdxySQgKKdj7ZU2y8wvpPtlS97G
O7Jk4OpfTgoEwL96/29FJGQURARUwD+OHf9fN4gISP+A8n8CEBD/0fgEKHQ8hEQy
jFoe9PyWxAy8fOGXbysALCSEf4Mg4QOkANTpTh/BMd8snUbl086d71p2reEhCv6T
7FdymEL5HUDUu4m7UNKwJH5yGap12gwDrl2G7yyMGswq3mPU00Pe7va5VeFntAt0
grn7mX5+RJ5JWC39Uk1eKo7p10/0MnfZ2mAWjanaFmrum/W7QmYhucpH3a9cgG0X
U2mD0pt+z6fw7xS2NwL63B0tWOD5JQ9eXptiR3oz0ZeDCuHtz4yHZc7ugH31gnZf
N1ImNvWK2e4Is2w94dZojvRdwYbzcEj0Fv92fN7kutZjJmPZdTIuub7x1ClOd5FK
fjVK5xnQVbAG2E6q4UK+7DUvvEkryvYLn/CbrKe1vEVsXcF7TocBIkzc3Q4zEV9k
P5Fw97l4Jm9/bY2hML1FLSCTNVpFG5WrjhgBhxWW6lbXJSsJ8vPPnwFbv+DdPPIl
lkfgeJsE3rpqGzpl6X0M9ULN8NeYrQwepLk5YlqqdEegIjog71j0WD5RwF5b8ev8
zgrHaXy72bDNnLroTxG1EThQdESZ/xjv51bNu/HZDXxn9cnL7J4jcOPfP6GJToKW
UYp/icTeAC59I8R/G81bhwYL8nYfocZNBrvpvxtkI5lbnS1arFgIfGLOV91nuddO
c6qG0Ss6VyIh6XS2yJSffTBXtZC7qL75BRJ83D84vgZmZXPWioyx/KTiByNSmsPM
fDAxHsNdFOx/YylsvQy0MnJMfXMN/X61KKGbKXfMhKG3eeCaM1zhbNsuUaG9450K
LVvDu7592rFufsdIpARDrAuFW0iVE0tY9ZrMxJjnf6RgVC5Za5o9NJxUqJgSPaFq
NopG/Yhsi2rZ5ILeJ/nAsLJB7YVmpasyPgkdUy3qXLSb8T6p9vdOglso/EeqQeE8
HcU3pJJcQycSgSbmeBxTM/6+0bdPFVAEC8fN6ia9+rOZHkwqgT6nJjL8PX35nDTT
kYXI32fJ+BzrWEoknKP8dCPzUUJIs6TBZn/PWKfDSF+3/XMVsmdPeAtK57qrcDR3
RXmH2JrsD8xJYqJDE2eZayu6IdETGLpMY6f33MEBVevj/VqhBobtPHPEegSVFDIV
ZJpdf+iwZWwNiYFPhIGLhxfGxVcvSNLqm8Lrk9RrNFJrlhmYJ7y2OXdpG1w6ITrz
H58Tgmr1U+TPIQbtZkxll4kKFf+Ky4SBBYqsX6dH15WPHIzBM8edQTmpJrrNKMiG
FTHslvwn8mQNFjzhcy15/7FsfckGmH1SrEWWQaHP1swuE1wryxsajAuqhMHnm1Ba
fsr4rnNPSeFug+wZmVbtzH1QbBvH2Eh7op82sO7tISywhdP0lCC3VKQZbpfkEvNG
BzzQp6MlBB5FtsgrhmmQQrQW4g6no0+SpN+x+XSjzolyTqlqWZBNuFvZcA9AAR/Y
ZtiQ5IGfcjTWxwu1WtGZPx5fLsDI9KZjpl/VFK/1qAhyi7wsO2cv8NSOh+cHt9ib
OxcxCbX+obERb4uF2vJ3upxrjahUO93NlyWsHuFRdflaTGDEKp0+gtoeh/gMdBo0
lQu27U7ld/scSe4mnZYcj/yrc2cfibOQW5STzo7DA7DZDa5cWvHFwbaTwiacVbRR
N0KIT9cJlK2voFkLDvNJekFvxQPPdPk+1+BIzJlMyNopczfbNkzvMHhr2Nlq9rZT
p1l9Yd2bMUwzQ1akEifgfkh9uiEvfYPNFypKdPrZURnuzPJ544OEx0+atJtgAfkf
F7H6LmNG8KQ3QFO7zE29V7mD93BVYLiYYG7zqYD8wF8d9XKmjtRjnSFOjg+RgYdq
xfgm6cpEy5lGNvdMINqXXfnSVeFeHKkd5ov4CTMZupYyRNfA4m7Ms6YN9u8W2RPV
MkYfe3ZFjb1Yuicy24ZfGBiqEIzkZxfO1hjomr6+ARKTpnrnionGDHKm1yZg4ueG
Uh5xzQycI5j+mcx4XKJfViCOt2K19x/eZcl8QZLmrTQf3Ar4+5BV2MSdOIASq7vt
0/AgiRxb/TJRucdjQNMSw5ZJ3qzGG4Sot35t+QboSkutptKJkQ3zFw2Tf5YsJi6/
p7IaPv8eOnZcoRGisUwoOuVSRGBNhoXdiejY3SUzhiGxGAVow54PQvZ3HUDyXtnx
T6sPka0ToHbxdmMZXy+fHZDtPkAZAMMjxIWsZT4keTAxBl6LJATwSPQ5dKVwU/8m
u8QvqBx9JiydMekmUG4oy6gCqJXljY+LL/gN6Z/9xoCYtETj7fw3XlQ8+pB1uvHB
AlXZ1OK25fahOjb41xsg96vsG2BR6DQLNvTMHZoFjQoMY5hUUBwdza08VXTj3cTv
ROSzRXE9CfSm5tbqeiLYAECAhuYGa6Sorx+FAsJUDN1xY/68AcZpc32vXADeDLcV
Ii8zMt/u4kOzcvFPUrqdFQdrglNimBWZPDZ8oH3xlWowadz33kuVjF5UV3Nd4qWJ
i6zj5qrhUcnjA619UX4X3LnbxziZr+TTVq+KUSrnC1xQn++x8NoyB0W5DWQjezcb
0m2NBqTUxkPUz4NmNqpazMua7SaYGvVN1l1l/pPMfDjMPcjBWu+Aslq645nsXi15
lSq+2jXyLQkmDem7y5MRsmlfQd+8c58UWEsh7VPqlbPxyWBYhQYKPslXS9KXjfFo
RPaTvIvLROMf7B5zHgCZ8ffcO1spjTH03/f+24gGEwcQz2sLOzOeuFoxCznqOFXo
q6jbIyx+p5cg3ERanX8DiGi+AQa9KmLjan8pXpvZvAECUmwGt0IyQydRPj3HM0wq
DpKPcw/gXYG73W6t5N4AOmshwLDa1fnlEZ0tkLZGmhcr6mvj7E/nbodXo4pU4Ctz
idthFup6vaq1pIi57tHzAGVxaNMIxtxfqayZVeYbU+hUl9OdJV1zQ+F0EpO+64t1
7dR0DJWJCxN/Nr1Ui4HKE3f68iiz462PU/DDtUZ4SqPiYcjNyRugn2bfCLso9MOB
z3GKi+xXO5or/C5qCCdFrtwc+g8/m7soENyobibN5zVtSyrLY5sb/jNURy/07PP9
sPkQq0UPcucxSnKskaoxdkvux2Gv1yaRoCtD51Gd6K90H45F5CXTq3/9rcSKCCaZ
j0JZDe2eDF0w2CGnLlB9A9ypvwEyeEE5x5vh4gfMaZXVTZSjNlrpiGJsBubu0pPz
LXe4WaxQFmpd7MhP5j/CuMnTCzJb8HXWtrYU488BORQhF+48srtznIkLnOArBlNX
TZg8dk2qCNO6f1BW8PkSAUvrx7CiAl50DNHkH5WydAOpke5q4W2SWzu4wauj96x1
qGGiSVK+DH/sGAGqXmjmNXP+oCg+NRjTyPxv7TVBZG+kbrLLdehuD7PZVlExwv4t
I2FQL0DBjV+j4zY4mFnyG7VY7RtAyCBFXSzg7+n7Y4mSrB2aSkRxan84JZu/oyya
AMtS8HvhYacctaiXKok13Q1isSHJo3tUHR7e827lldbZEvR90ZXL6Hwrk3U0ghgT
IJtebE903GXyjvf3HqRIYIhGWWCcJfyZj0Esas9YddzUAMqskP4Fgj22yNDmAIEf
tUbMpheZutzVhih24qs2zOkAOZCZjM3Ak6IBxTddkNfpr6b7Z3C3eo+LyD1tj6vo
wE2/2v9qf0UwZOX+p4AUHDKqegEyLEyFzcJs7DagTpbOOjBYOshIuqH9V43dmQ/4
6FheK265bd/Ecv7yYZq4ijZJfho+y/xOnyihl2HKHYdw3/1CMmN+g5qzShqlZ3/l
r0NE0kZq+m88E+141cEoOxLx387+ZVWQnwS5uVXnBg8MncD7YBQxSUfWfRp3zzZD
iU9HuqHczPdIV+SsHiAJGAASSEijLfvFXYbqylRw8QtPq6N+HoZHI/tCKphBu+sI
LbdX166Ce+iET4NjV0UNBG+urIRJ/JKgsyurRvv0B02Sm8Yf+u/6F3NclhS+9/wm
cY9n0BVgZIZYwT1hS6cRlaahWfjcb3cbsVQeVeRzbS/6ECux3pNMguxh47Q7u/AH
AddYIKbCw/e1H7+yTXM9MkHZbQNCSaUdWEts77f868A3n4O2bdHWpiyyyoElCjbg
/3S2yC4IyNO9wy7r3b6p1T7C0O9M5biX5QJ/wAmxlnkDGJBrOU83MiQ2IndAnLTt
83rSP7suPFWMsI8MvJPrkoTqWIK76kwJg738EIgHndRA+eXbRFWS3tMex/RXVm2h
v+x5ezlF7obZ+yWanEB91W+A1L92xSDW7mY+9qav5hOGqJuqAQ03XlifjDxwBOuU
ZZBpSlhHVlYgrw1qdIuzZUCxpYRj/PJCcb57F1Z1nGynYY4S66ZcQ8wyc6acWHOt
phVXbsUAeSaBeFQP73R2PAkr5nuHcVBrYtw4H9z/y2HBJT1agI4TDElDPtQhbn35
T/nCj+9uy5Lco68tVIWnhgt1VsoCmPTOxCAwfaP3p3wgY9DVjszwPJYM9w6RcXf6
yVTiuBxOdCXOMzr4QublDDz3BA3o6N+/CFdaIWpfADTsjZQ8BZSCEqlL7V40atsX
+4N35Px2nuppAx41Qoe5KbsiLhLsTtPLrwOWjF+LUVeHy/4qg6kj7OvHuHG7IpRG
CG2QMsdw4HM/8MdDF+f0CyYeE9U6vnIQfLjvVHwDEAIlclU7eypnKbW/DOJS8WI+
lt20bs20QW2KRv26g7OUT2dYXw61oKlRV60S4nOUQ4DSizORVCWZxwwTh8IZ4MX6
3RAIrl7iG/s5WFglpncWSMYblBJ3FqtzmkrYgqc0F9VjSZPVf0Vm4vA3huvFRt6m
finGteyGweR1xl7wRzmWxcPo83azAeW24FLr8DR8j0jUtSfkUshtFqJU1rChtazI
RTZ6L6eCrjQxN8ALgpr9kNpQKg/x4TByMs5vSoo9sELzVlPlMfLCZZ9QlizqSIgg
7xkxt1bXIlorlkUc0E4lnsS/DH9Q4EjGUVYnguF9rmnC5QzOmjZ3KO8XPueLk2nr
4M1VU9NQaYcXgiHfipVXASnVNGJN3RVVejBh1zpRLlgPmclZDvjeN1qHveRoksva
7YMcqe/7PKt8U8j8nqZ/V8LmDE9y+fhtafJq7oiCajLj9Nl2TY4ajw1t6vYX2zD/
8A0sj/OfsmUn1U0yO0LuAKSpy+SpndTrQ+9z1I919K2o62iJ7ueTn/CZzXD9X/Qv
al/JwN9naxxT5oFi8E7xlzdAh44nr50jFvsnRG0izX+/bhsHHaYEuJ78V7zDxech
vVomWF0Q/e95+z3H2Rf/xxjYcrv6f7oEXD/N6aXY3We9BTp9Ll47FTcph344kcoI
AT8nc0j6sLI/sXqKEIvR2n4TBHsaMhK64eOcLVvozBIXtRQZjfSPp0oQrr9bDajR
YUvP8SIyOjJqS7tOL2v4rYW4gSoqZJvha67QRA1Gbl/+VW8z6J+R0Cgf5TD0tWKm
m0WMUG3fQgf7ZxNda5r5jCPGYdamrwFmk0ArCF25vXIGBDwMLIXspj7lFrOatbJE
/Jk6RY27SumCw+YnFh+Oxkt2fNUuYImsPqdRVj/WavY2Amy1DweHOeBN+n+aS7mp
PiN3datyWiMQszPSgNwB6VHhleH5h7YF2QpUctjQr2LfNdJoM/+L+8+2gU7lkEUr
x331MLy3pyQbvtlOEwtqrWZytXe8nksj6ojLpmGGsPlgEYfbsm7/pvSi0TAUWsqn
KFYcvImpYmUyzcrRiXUpYzLyBqRKaOoZDOtSiB/bHLf6k4NhjOz8N2Oy8eAGQQl+
qQ8K9Q4PAoD9ofkkqRulF0sv5053pBYpFNzJrNwNo9Os46hkSmVUtSnd1NIDnAcn
F3BDUqESCxNQJ954Wnd1ljtx5dXtuo2qUUzN0bkCPHFp5JdXPKs23ulIgmsLQXVH
eeeFkjdocsM4SI6ULAq6QUQXunvA52tVJU5gfVapmq+69XxJSGpZVcdbqUP0OZjQ
wYFkKP2Yc5cX1a75/mVaEN0kwHFFcK+C5ThnpN1O3+MRHL8n0ZFBYuJT8uRFJ1cS
fSuJz6NSObbARMinlu1kZ5qGlMQCYkwOKnbmsKsBUdPJO//IeB6vgiPHSdTqzxJE
o2mOj2kjtNnDvn0qH4DmAlTyqjR629lzTaYvEQlNQjP8IBobq20Ueq3md+2oI++6
MGXnmh8/dm3GH7RYdk1fpZ9j/d35K81R/nsSrLVis6CeqaZzrQJFx4lmnh6zLJa4
DGw0FdMdbDdbPHFU8fLCyfQDIW0MhzXCMyOqM96XaB+Ip5XqpUGz4a6E9UwYbcGJ
SmA1HgnWtcnc0QCzb97Cy526Yt+ikpIG4/AjSjP2vDeqg8udW1C1G/fEBdjfr6xs
b1o+0ab4Mq8FyLYO64169DUMbLqRBfidSRx1LH+yEx7DhMrOI2onh+H8dsNKWmbK
t1JoeacW7tHlHBJDzfI1ruc+rKVQ70PcBkSeuJPn3YPysxXzxzoOwz/J9IvBW74Y
rM8cBKtTjDkLDH1RX52vSkg/1hLtPHpihH7sCreeW7TmTyl3nCy81pi0cSNT+jab
gfhXVwIqTX3mJtxtKw7lkKfXXDnIdJHZuLoXFtVeMXfwC2CNuhvnwWiIYVF9mXDU
/TLK3ukVVlaWj1PRHewuHjCh+xQ16kpLeJ9B4yRsZU84Q2GlVJE8Ee6ovPBRvsYy
MFzQxAy2/UiRBNauSs8QmTYAagk2ADxPsIyCyyyFxuV8qqyaxCdyX0mSc+xEB/WM
EzyJnrqbb5JNmcq+tpQ6pyJzYhbRAkv0+ikLBTMgEU7v1yIkijEgSbk7P0M7TQXu
8svRqkykEYMbgVT5izAHw6J5Zt2iAUpNLbU6LkRqVZYrylwnmqqE2b8vsV+XwhJa
K4LEfFNaAqhCcbJBxF0jnExmDQCSxy0mowmewd+1rSaFLvLmWdGuqymxvXL1JYOe
tAhu/AoK20a++5uvMuREmAYdB/xzx6S2RdFsWQmwcCLSyMpjmuvRveP4UCG1DCsj
9XIPJxBymDH93eP22um6vCFBbOnkeNGrltTXptxA5Xxu/J7xG7h4JLWecrp/MvyW
8PfHZ99oJJD5xET8r2YaQWiz8bA1gZqu41ZbTlabDSVIFKF29PwIeZX8W/ODumxR
dcEHMcFtXUrlZqKoBCeFzMcdcv3S+XBVCYeB6yHfSMqpwp8sm6DBP+gH6zYbing4
B6t31n3+75c8c5W4usufXQEEiUNrOJnJakuaK0xXAFsnY+FaPBgz6EZDJWsvKlAg
n+FYcdv7Au94aIPqn4bySC/h+KUW0gwk321hzp8UwNTPXylEb+oy+dbsl8+/HIey
fiQE5HBcRV2rhw0Xm/E0uSi8DORjt6fqlqbWSqgX5EnNXTvVFQEBk7awZO9GF2Eh
+S/WoV0LuGarHOcQQ8ZcezeNrIEfJB+PTlkmCInDdtQ6aypBTXXSeyXFmV3OiXWy
deTGi0hJa1WCvVH3WQfatgFyzB4kI4p1W6PqEodEH3owhpLM945Vg9f9NpTbqpjj
k0NKUbuM+1Osjcj5xyeL47L1CPJ+p1eyyQUGlAoqhlt841+GH7w3CbGz7YeRhI+n
ooT9MvywaTREfNHtc2ydSrON7saZTuIg34+O8V+h+uglN7jrEdzPsceYLJYfFCyL
eg/VccwsIc0ow5pOKDO9puaW7zpeNUdUsnU2VB2M5I2OS2x/kqd3uFjDHTKHpDOe
eZpIvTTrvwF4+1JGCOdk6B3Xuptp4O8CbTmwa5Uz9bfd2H+q65pSz373u3wD9LEY
SYDodycqxgtJ3Svu5Pr25Huz9DQ9aWgc6jwk+nnJvnhYKS6QaiCqxJmSKjkg8iqX
yl1bFQqx0e8OUBBq2LGOc45etA0k5KtKQwevxxiNOrxPJtIsJZu2sqWzjqr9G9/r
xJ/EZo/4ZdhKV8RJvvZIr7YPJ6+/zu6jcmwqlJsqPaVsEkfIOpl9Z6YOPkhrs6M2
bmoLXFccko9fH4BUOPgokJskYPcSZzvC/+l6bvF56nX14sFg9TYEoWKXtqQqnMiP
HeIZ1BhSifxtwW+AT7ydbwDjg1VA4KxyUzWcwmegrEpm3k6po6FN5WEQ8+NUcU+h
ChOsynG7o/qL9TRRY/iwVj1+DEU7zTaL79TSytrKQiA5L7vUYCTHqpNrbU60gHqV
CzxmA4J8mOaK3VtJuUoISaqYFN6eL5yJRcb8J+epTDpUVeoJp+nNhrlueYLGGNI+
xSVHYScbxq2mkFIdhNzyrkl5MGu6fG1fniv/dJV8tkIEBevzFoLrLiKsgw++PPUp
e458+4P41fT9UYrEii5UWR9TeTpx6i62kYJKJIsgfyf7q+KJDl1bYUO1Nvjgm17f
FJJYb+FdHCdqadjBMjY2/KNyL1dBhYiyijw7XLupNRxiJWQTyFVjWaPO6qNILqfW
UsbEIsTKfB7D0kFKnv4YOaZgp91HYOH3W4phj6vouvi0mi3SlVEwAgbg/fMGuGb3
vfrOiZ3OeLQnt6xrQMs0AVIuxxMTvNEIoik9+bz2zPeqLRu/o1A9lR4RaOa2uUVg
IjAumK/I/Dl7zw2JPLxhct2zss+Tg7/KI98RiTNmp67Q9N1HqkwrkXduDFqVKu/N
9c0GjtP1sV/4/wyKkMyL1O0e4y/7Sl4NtiK5YOowHkEll6IyJqt49daMGavVSGHp
s+laWeW7nvP4OD3VlB9Zix+q7qIMujmMc4p0DXTSTBAWZ+XzkSNwq8WvXXqj2nEd
pld8kQe9TfmrOoNFsHozCRBvQKYvwCg9M2yhAZCy/A/GciweyXnWh5jCXZ067Z/T
Qd+jVs5DcvtVJ0ezx0m5+8cDiEPwnQny4tdaP1lpdK744d+IaKcb+irOkFNXaSNK
c7UFBjE8KMioAPmsAifDTkuTlhl4dYFghZybPZz1tDNOhfyopfJtH3+2JsnLTz8j
WoQ/T0x1oP6E+cEpJW+/uP6pv0qBQTrA+v6+sVxJQIP/6gSgKWaTwDVOvlabY8O5
1kTyxQapw/bQp+9pdz0Rs7jXjVrnWCJ/s2qKeR9lrvU7qP99fbrBbmGehYz2hQHP
vbrATgitmx3NptEd3ncX4Zrtp7zPXzCJ5uEqRmk+HY1aVy8Mm9bCIxYokz/4NCHq
4GkitthZdRsWHP09Z+la+ZG0SSgse6bgz39P2xKEwNaX7CJ/L4un4hTZLlbiE1ns
Mw/7KvYdE6OBOhALoQ55ujTS2K9f+ymkd8NRRv5qdZCXMUHJy8o6XsJse1hYpo2Z
44PZ3/bZ4FvyQX+jwCplxqWTqqtogwqdJpytGOfPPQrvVzz2CInnGMlKO0+S+beM
x3MnLN3IEpdiuMiMnYqyR9I7SDVJmsJ9mKSXaMhw2JwbxKEJlOa/7wN2mnK5KaG5
6JkfzVI17HcCtr6XF0uXKmr5tm70/2WKoLQZMPIizw7DDcRI6SsQZytX3NfL+W0U
+aPQsOYktwFpbG/04KtHwSGLCRvBjnls9BsANld7OvjuYDPWHu5i7mFzJuHC8Ik+
Zr5cu3mlQ5Dx9gi5i2pFABPTkk+jGnQ7iZbRO8DJ7i+NNM20EixcmwEZECTnp6rc
CioGkVgWWADkqKMF51lpw2gLfuGwRwd+GJolq3fQPVoxzjBUxtuECIrUaXDlSTsw
6eBE6Eq8nOQWVAwwsaBgFGaIk8j8mKSnt3PCVB0M4+EqqQ8hO0Atzug7qw/ns24d
N5yCUdl2RmL6rBP8Zm0UahDac2hoVau1XNjqmOHc/UHGa6zEgb8KEsQ3fWnfB2Op
bLwBEBmNcnuotm33/gQ3KKgH/RbxO3Jma8wfaay2rgQxzq5kKnn9YPxy8v6dGMaI
dxAra5L+PpSThkUbHaLSUx/KT4asnKM1bpvVCj0sKBR3aOVFey5FxryV+NsuqaTi
eDt6xjMW3VtmdYEQV+UH62TjF5ocbJrOpOpyUlLWRUlxcB7HuFNJdn9FQlUZ1WNW
IVQyni9z16/F6BqAAHPmx00KZD80I7vniu4/SLZvqU7YbI6RUXiz/dtpdVXWjYYu
nopx97Xijdnj26c7bl/frCv/aO4i0tTyjXvXDziHcUtJIYrY298E9LNUCCYs1TLZ
ldDkRtFjYN1LWQ0ZNnaQ/xr1e75clUIRLXgVPzchTCwEhwZg67GwOalObNyFvQEc
dlf1OQcNSzGEmNWr4KcDFpgNsp/sRl76L2PXN3mI2XDnWGUbRdca/Xdjxi9sDalL
LutVPL/n5UopdwdZyQMdtLK1jZSDHw6J6iNPwiSpHHpzvmzge+YveVIzFaj/5G5K
hnaIvbTfCt9gIkMpzsQNLe76yaodgFoadoPQZrarpKGoLjgb+P0m+kP/KqwI+TpH
pCxINv83PDFPkYftw2DTuQj7wEPylHBaVOWqdKrPHsaiDhSIvC84/23dOIH1dlQ7
ISyK0aEePUUPVZeDluMshPuFvg5RL7kLqSNhz/QORwrv138UUVDJPl2+Oe3r5SUl
DWJLkVZRzOEotZDkUhs9Rt0gavDzdoX2EcGpbhbIpCz3huEyWaTj/UMYlD2Nq4rq
b2X+5xheLusetW2Lo4VtkbaIFQlWaIyBYlq2q2exsDSLzcFWEWUaBDYGQDiJCnkX
/Fhts1NfQaftilcX+fBXNOkdFAKc0w5IBT7Ty6b9JCCs7hD18yvsRM1CjMFSfx54
3l7RpJ3oXAOIjMDFp1ovUhRTCZqtrPVHXENHPh91RDTJ999YC5DQ7zqT08jXjvMy
klBmXUi9Lf8PNy+uUY8gAAA=
}

do-button: func [num] [
    alert pick answers num 
    alert pick questions num
    if find [1 2 3 4 5] num [val: $100]
    if find [6 7 8 9 10] num [val: $200]
    if find [11 12 13 14 15] num [val: $300]
    if find [16 17 18 19 20] num [val: $400]
    if find [21 22 23 24 25] num [val: $500]
    correct: request-list "Select:" ["Player 1 answered correctly" 
        "Player 1 answered incorrectly" "Player 2 answered correctly"
        "Player 2 answered incorrectly" "Player 3 answered correctly"
        "Player 3 answered incorrectly" "Player 4 answered correctly"
        "Player 4 answered incorrectly"
    ] 
    switch correct  [
        "Player 1 answered correctly" [
            player1/text: to-string ((to-money player1/text) + val)
            show player1
        ] 
        "Player 1 answered incorrectly" [
            player1/text: to-string ((to-money player1/text) - val)
            show player1
        ] 
        "Player 2 answered correctly" [
            player2/text: to-string ((to-money player2/text) + val)
            show player2
        ]
        "Player 2 answered incorrectly"[
            player2/text: to-string ((to-money player2/text) - val)
            show player2
        ]
        "Player 3 answered correctly" [
            player3/text: to-string ((to-money player3/text) + val)
            show player3
        ] 
        "Player 3 answered incorrectly" [
            player3/text: to-string ((to-money player3/text) - val)
            show player3
        ] 
        "Player 4 answered incorrectly"[
            player4/text: to-string ((to-money player4/text) - val)
            show player4
        ]
        "Player 4 answered correctly" [
            player4/text: to-string ((to-money player4/text) + val)
            show player4
        ]
    ]
]

view center-face layout gui: [
    tabs (sizer * 20)
    backdrop effect [gradient 1x1 tan brown]
    style button button effect [gradient blue blue/2] (
        to-pair rejoin [(20 * sizer) "x" (13 * sizer)]
    ) font [size: (sizer * 6)]
    style box box brown (to-pair rejoin [(20 * sizer) "x" (7 * sizer
        )]) font [size: (sizer * 3)]
    image header (to-pair rejoin [(132 * sizer) "x" (8 * sizer)]) [
        contin: request/confirm {
            This will end the current game.  Continue?}
        if contin = false [break]
        loadoredit:  request/confirm "Load previously edited config file?"
        if loadoredit = true [
            do to-file request-file/title/file {
                Choose config file to use:} "File" %default_config.txt
            unview
            view center-face layout gui
            break
        ]
        alert {Edit carefully, maintaining all quotation marks.  
            You can open a previously saved file if needed.
            When done, click SAVE-AS and then QUIT.  
            Be sure choose a filename/folder
            location that you'll be able to find later.
        }
        write %default_config.txt config
        unview
        editor %default_config.txt
        alert {Now choose a config file to use (most likely the file
            you just edited).}
        do to-file request-file/title/file {
            Choose config file to use:} "File" %default_config.txt
        view center-face layout gui
    ]
    space (to-pair rejoin [(8 * sizer) "x" (2 * sizer)])
    pad (sizer * 2)
    across
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
    return
    box Category-1 
    box Category-2 
    box Category-3 
    box Category-4 
    box Category-5
    return
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
	return
    button "$100" [face/feel: none face/text: "" do-button 1]
    button "$100" [face/feel: none face/text: "" do-button 2]
    button "$100" [face/feel: none face/text: "" do-button 3]
    button "$100" [face/feel: none face/text: "" do-button 4]
    button "$100" [face/feel: none face/text: "" do-button 5]
    return
    button "$200" [face/feel: none face/text: "" do-button 6]
    button "$200" [face/feel: none face/text: "" do-button 7]
    button "$200" [face/feel: none face/text: "" do-button 8]
    button "$200" [face/feel: none face/text: "" do-button 9]
    button "$200" [face/feel: none face/text: "" do-button 10]
    return
    button "$300" [face/feel: none face/text: "" do-button 11]
    button "$300" [face/feel: none face/text: "" do-button 12]
    button "$300" [face/feel: none face/text: "" do-button 13]
    button "$300" [face/feel: none face/text: "" do-button 14]
    button "$300" [face/feel: none face/text: "" do-button 15]
    return
    button "$400" [face/feel: none face/text: "" do-button 16]
    button "$400" [face/feel: none face/text: "" do-button 17]
    button "$400" [face/feel: none face/text: "" do-button 18]
    button "$400" [face/feel: none face/text: "" do-button 19]
    button "$400" [face/feel: none face/text: "" do-button 20]
    return
    button "$500" [face/feel: none face/text: "" do-button 21]
    button "$500" [face/feel: none face/text: "" do-button 22]
    button "$500" [face/feel: none face/text: "" do-button 23]
    button "$500" [face/feel: none face/text: "" do-button 24]
    button "$500" [face/feel: none face/text: "" do-button 25]
    return 
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
    return tab
    box "Player 1:" effect [gradient 1x1 tan brown]
    player1: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    box "Player 2:" effect [gradient 1x1 tan brown]
    player2: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    return tab
    box "Player 3:" effect [gradient 1x1 tan brown]
    player3: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    box "Player 4:" effect [gradient 1x1 tan brown]
    player4: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
]