% \iffalse
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% jj_game.cls class file,                                 %%
%% Copyright (C) 2000-2007  D. P. Story                 %%
%%   dpstory@uakron.edu                                 %%
%%                                                      %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License        %%
%% Distributed from CTAN archives in directory          %%
%% macros/latex/base/lppl.txt; either version 1 of the  %%
%% License, or (at your option) any later version.      %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%<package>\NeedsTeXFormat{LaTeX2e}[1997/12/01]
%<package>\ProvidesClass{jj_game}[2007/06/11 v3.0b jj_game Class (dps)]
%<*driver>
\documentclass{ltxdoc}
\usepackage[dviwindo,colorlinks,hyperindex]{hyperref}
\pdfstringdefDisableCommands{\let\\\textbackslash}%
\EnableCrossrefs
\CodelineIndex
\begin{document}
  \GetFileInfo{jj_game.cls}
  \title{JJ\_Quiz: A Class to construct Jeopardy-like Games}
  \author{D. P. Story\\
    Email: \texttt{dpstory@uakron.edu}}
  \date{processed \today}
  \maketitle
  \tableofcontents
  \let\Email\texttt
  \DocInput{jj_game.dtx}
  \PrintIndex
\end{document}
%</driver>
% \fi
%
% \MakeShortVerb{|}
% \StopEventually{}
%
% \DoNotIndex{\def,\edef,\gdef,\xdef,\global,\long,\let}
% \DoNotIndex{\expandafter,\string,\the,\ifx,\else,\fi}
% \DoNotIndex{\csname,\endcsname,\relax,\begingroup,\endgroup}
% \DoNotIndex{\DeclareTextCommand,\DeclareTextCompositeCommand}
% \DoNotIndex{\space,\@empty,\special}
%
%    \begin{macrocode}
%<*package>
%    \end{macrocode}
% \section{Declare Options}
%    \begin{macrocode}
\RequirePackage{xkeyval}
\newcounter{jjgdriver}
%    \end{macrocode}
%    \begin{macro}{pdftex}
%    \begin{macro}{dvips}
%    \begin{macro}{dvipsone}
%    \begin{macro}{dvipdfm}
% Here is the list of supported drivers
%    \begin{macrocode}
\DeclareOptionX{pdftex}{\setcounter{jjgdriver}{0}
    \def\jjgdriver{pdftex}\PassOptionsToPackage{pdftex}{web}}
%    \def\jjgdriver{pdftex}\def\web@set@paper{}}
\DeclareOptionX{dvips}{\setcounter{jjgdriver}{1}
    \def\jjgdriver{dvips}\PassOptionsToPackage{dvips}{web}}
%    \def\web@set@paper{%
%        \special{papersize=\the\paperwidth,\the\paperheight}}}
\DeclareOptionX{dvipsone}{\setcounter{jjgdriver}{1}
    \def\jjgdriver{dvipsone}\PassOptionsToPackage{dvipsone}{web}}
%    \def\web@set@paper{%
%        \special{papersize=\the\paperwidth,\the\paperheight}}}
\DeclareOptionX{dvipdfm}{\setcounter{jjgdriver}{2}
    \def\jjgdriver{dvipdfm}\PassOptionsToPackage{dvipdfm}{web}}
%    \def\web@set@paper{%
%        \AtBeginDvi{%
%            \special{papersize=\the\paperwidth,\the\paperheight}}}}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macrocode}
\DeclareOptionX*{\PassOptionsToClass{\CurrentOption}{article}}
%    \end{macrocode}
% Used for debugging
%    \begin{macro}{debug}
% Where's the bug?
%    \begin{macrocode}
\newif\ifdebug \debugfalse
\DeclareOptionX{debug}{\debugtrue}
%    \end{macrocode}
%    \end{macro}
% Used for debugging
%    \begin{macro}{final}
% This option removes window ui and other things.
%    \begin{macrocode}
\newif\iffinal \finalfalse
\DeclareOptionX{final}{\finaltrue}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{double}
% Double Jeopardy!
%    \begin{macrocode}
\newif\ifdouble \doublefalse
\def\scaleFactor{1}
\DeclareOptionX{double}{\doubletrue\def\scaleFactor{2}}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{pro}
% Inputs the \texttt{pro} code: uses layers, distiller 7.0 or later is required.
%    \begin{macrocode}
\DeclareOptionX{pro}{\let\jjgInputProCode\jjg@InputProCode}
\def\jjg@InputProCode{\InputIfFileExists{jjgpro.def}%
    {\ClassWarning{jj_game}{Inputting code for pro option}
      \ClassWarningNoLine{jj_game}{AeB Pro required with uselayers option}}%
    {\ClassWarning{jjg_game}{Cannot find jjgpro.def.\MessageBreak
        Reinstall or refresh your file name database.}}}
\let\jjgInputProCode\relax
\AtEndOfClass{\jjgInputProCode}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{forcredit}
% For credit. Enables a Jeopardy game to be handed in for credit. Adds security measures so
% student cannot cheat. Works best when the \texttt{pro} option is used.
%    \begin{macrocode}
\DeclareOptionX{forcredit}{\let\jjImportForCreditCode\jj@ImportForCreditCode}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}
\let\jjImportForCreditCode\relax
\def\jj@ImportForCreditCode{\@ifpackageloaded{aeb_pro}{\InputIfFileExists{jjcredit.def}
    {\ClassWarning{jj_game}{Inputting forcredit code}
    \ClassWarningNoLine{jj_game}{Don't forget to use \string\contestantName\MessageBreak
    and \string\gameboardPrintButton}}{\ClassWarning{jj_game}{Cannot find jjcredit.def}}}
    {\ClassWarningNoLine{jj_game}{The forcredit option requires the aeb_pro package}}}
%    \end{macrocode}
%    \begin{macro}{design}
% Several pre-defined designs.
%    \begin{macrocode}
\let\jjg@madedesignselection0
\define@choicekey+{jj_game.cls}{design}{jeopardy,florida,iceland,hornet,qatar,norway,germany,bahamas,spain,custom}{%
    \ifx\jjg@madedesignselection0\def\jj@design@choice{#1}\AtEndOfClass{\jjInputDesignChoice}\global\let\jjg@madedesignselection1\def\jjg@useddesign{design}\else
        \ClassWarning{jj_game}{Do not use both design and customdesign\MessageBreak at the same time.\MessageBreak
        Using the \jjg@useddesign\space selection}\fi}
{\ClassWarning{jj_game}{Bad choice for design, permissible values
   are jeopardy, florida ,iceland, hornet, qatar, norway, germany, bahamas, spain. Try again}}
%    \end{macrocode}
%    \end{macro}
\def\jjInputDesignChoice{%
    \InputIfFileExists{design_\jj@design@choice.def}%
    {\ClassWarning{jj_game}{Inputting design choice \jj@design@choice}}%
    {\ClassWarning{jj_game}{Cannot find the file design_\jj@design@choice.def}}%
}
%    \begin{macro}{customdesign}
% Allow the user to create his own design. The file \verb!design_\jj@design@choice.def! then is input.
%    \begin{macrocode}
\define@key{jj_game.cls}{customdesign}{%
    \ifx\jjg@madedesignselection0\def\jj@design@choice{#1}\AtEndOfClass{\jjInputDesignChoice}\global\let\jjg@madedesignselection1\def\jjg@useddesign{customdesign}\else
    \ClassWarning{jj_game}{Do not use both design and customdesign\MessageBreak at the same time.\MessageBreak
    Using the \jjg@useddesign\space selection}\fi}
%    \begin{macro}{nodesigngraphics}
% When this option is taken, the effects of \cs{defineInstructionPageGraphic}
% \cs{defineGameboardPageGraphic} and \cs{defineQuestionPagesGraphic}
% are cancelled out.
%    \begin{macrocode}
\DeclareOptionX{nodesigngraphics}{\let\jjgdesigngraphics\endinput}
\let\jjgdesigngraphics\relax
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{lang}
% Language option, english and german only options for now.
%    \begin{macrocode}
\define@choicekey+{jj_game.cls}{lang}[\val\nr]{english,german}
{\xdef\jjLangOpt{\nr}}{\ClassWarning{jj_game}
    {Bad choice for lang, permissible values are english and german.
     Try again.}}
\def\jjLangOpt{0}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}

%\newif\iffoils \foilsfalse
%\DeclareOption{foils}{\foilstrue
%\DeclareOption*{\PassOptionsToClass{\CurrentOption}{foils}}}

%
% Look for configuration file
%
\InputIfFileExists{jj_game.cfg}{}{}

\ProcessOptionsX

% Article class is all we need for this game
%\iffoils
%\LoadClass{foils}
%\else
\LoadClass{article}
%\fi
%    \end{macrocode}
%\section{Required Packages}
%    \begin{macrocode}
\RequirePackage[\jjgdriver,usetemplates,dvipsnames]{web}
\RequirePackage[\jjgdriver,execJS]{eforms}
\RequirePackage{verbatim}
\RequirePackage{comment}
%    \end{macrocode}
% If use has chosen the \texttt{final} option, we use hyperref to set the viewer window;
% otherwise we set \verb!\let\JJinitSetup\relax!. The user who is using
% \texttt{aeb\_pro} with \texttt{jj\_game} can use the extensive controls in that package.
%    \begin{macrocode}
\iffinal
    \def\JJinitSetup{%
        \hypersetup{%
            pdfmenubar=false,
            pdftoolbar=false,
            pdffitwindow=true,
            pdfcenterwindow=true,
            pdfwindowui=false%
        }
    }
\else
    \let\JJinitSetup\relax
\fi
\AtEndOfClass{\JJinitSetup}
%    \end{macrocode}
% Process the language option, the default is english
%    \begin{macrocode}
\ifcase\jjLangOpt\relax
    \includecomment{JJLangEnglish}
    \excludecomment{JJLangGerman}
\or
    \includecomment{JJLangGerman}
    \excludecomment{JJLangEnglish}
    \AtEndOfClass{\germanLocalization}
\fi
\@ifundefined{jjImportForCreditCode}
    {\excludecomment{JJForCredit}}
    {\includecomment{JJForCredit}}
%    \end{macrocode}
% \cs{germanLocalization} consists of some definitions that specialize
% certain strings of \texttt{jj\_game}.
%    \begin{macrocode}
\def\germanLocalization{%
    \currencyHeading{\bfseries For~\EUR\theCurrencyAmt:}%
    \correctText{Richtig!}\incorrectText{Falsch!}%
    \def\jb@sepStyle{2}\def\jb@currStyle{0}%
    \def\APScore@Currency@def{"\string\\u20ac"}%
    \printButtonCaption{Drucken}%
    \printButtonLabel{Diese Seite drucken}%
    \contestentNameLabel{Student}%
    \timestampLabel{Zeitstempel}%
    \timeStampFormat{dd/mm/yy, H:MM:ss.}%
    \enterNamePlease{Bitte geben Sie Ihren Namen auf
        der ersten Seite ein, bevor Sie das Spiel beginnen!}
   \def\jb@Score{"Punkte "}
    \illegalAccessMsg{Sie haben gespickelt! Bitte w\string\344hlen Sie erst eine Frage vom Spielbrett,
    bevor Sie umbl\string\344ttern - diese Antwort wird nicht gewertet! \string\326ffnen Sie das
    PDF erneut und spielen Sie dieses Mal ohne zu spickeln.}
    \illegalAnswerTwiceMsg{\string\304ndern Ihrer Antwort ist nicht erlaubt!}

}
%    \end{macrocode}
% Default color definitions for the Jeopardy game. These will be used
% if no colors are specified.
%    \begin{macrocode}
\definecolor{defaultfillCells}{rgb}{0.98,0.92,0.73}
\def\defaultfillCells{defaultfillCells}
\definecolor{defaultfillBanner}{rgb}{0.5,0,0.5}
\def\defaultfillBanner{defaultfillBanner}
\definecolor{defaulttextBanner}{rgb}{1,1,0} % yellow
\def\defaulttextBanner{defaulttextBanner}
\definecolor{defaulttextBoard}{rgb}{1,1,0} % yellow
\def\defaulttextBoard{defaulttextBoard}
\definecolor{defaultfillInstructions}{rgb}{0.98,0.92,0.73}
\def\defaultfillInstructions{defaultfillInstructions}
\definecolor{defaultfillGameBoard}{rgb}{1,0.8,0.6}
\def\defaultfillGameBoard{defaultfillGameBoard}
\definecolor{defaultfillQuestions}{rgb}{1,0.8,0.6}
\def\defaultfillQuestions{defaultfillQuestions}
\def\defaultDollarColorAmt{blue}
\def\defaultLinkColor{webgreen}
\definecolor{jj_banner_bg}{named}{defaultfillBanner}
\definecolor{jj_banner_txt}{named}{defaulttextBanner}
\def\jj@transparent{transparent}
%    \end{macrocode}
%    \begin{macro}{\bannerTextFont}
%    \begin{macro}{\titleBanner}
% Commands for defining the banner text and font.
%    \begin{macrocode}
\newcommand{\bannerTextFont}{\sffamily\huge}
\def\bannerTextColor{\ifx\textBanner\jj@transparent
    \else\color{\textBanner}\fi}
\def\titleBanner#1{\def\@titleBanner{#1}}
\titleBanner{You are the Winner!}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{\insertJJTitleBanner}
% The title banner is displayed on the first page, the text of the first page
% is the content of the \texttt{instructions} environment. If you want more than
% one page of instructions, begin an new page with \cs{newpage}, then insert
% \cs{insertJJTitleBanner} to get the start up banner to appear.
%    \begin{macrocode}
\def\insertJJTitleBanner{\newpage\jb@Banner{\@titleBanner}}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\includeFootBanner}
% Use \cs{includeFootBanner} to get a matching banner at the foot of the first page.
% The banner contains the author's name and university.  Use \cs{author} and \cs{university}
% from the web package to properly populate this command.  Use it in the preamble.
%    \begin{macrocode}
\newcommand{\includeFootBanner}{%
    \renewcommand{\@oddfoot}
    {%
        \ifnum\thepage=1\relax
        \colorbox{jj_banner_bg}{\makebox[\linewidth-2\fboxsep]{%
        \href{http://faculty.owc.edu/math/storyd}%
        {\textcolor{jj_banner_txt}{\webauthor \copyright\ \the\year}}\hfill
        \textcolor{jj_banner_txt}{\webuniversity}}}\else\hfil\fi
    }
}
%    \end{macrocode}
%    \end{macro}
% \section{The Main Code}
% Much of the code below was adapted from the web package.
%    \begin{macrocode}
\newdimen\jb@paperheight
\newdimen\jb@tmpdimb
\jb@paperheight=\paperheight
\newdimen\@Leftmargin   \@Leftmargin=0cm
\newdimen\@Rightmargin  \@Rightmargin=0cm
\newdimen\@Topmargin    \@Topmargin=0in
\newdimen\@Bottommargin \@Bottommargin=0in
\parindent0pt
\setlength\headheight{0pt}
\setlength\headsep   {0pt}
\setlength\footskip  {0pt}
\hoffset=0pt
\voffset=0pt
\pagestyle{empty}
\def\InitLayout{%
  \setlength{\textwidth}{\paperwidth}
  \addtolength{\textwidth}{-\@Leftmargin}
  \addtolength{\textwidth}{-\@Rightmargin}
  \setlength{\textheight}{\paperheight}
  \addtolength{\textheight}{-\@Topmargin}
  \addtolength{\textheight}{-\@Bottommargin}
  \addtolength{\textheight}{-\headheight}
  \addtolength{\textheight}{-\headsep}
  \addtolength{\textheight}{-\footskip}
  \setlength{\oddsidemargin}{\@Leftmargin}
  \addtolength{\oddsidemargin}{-1in}
  \setlength{\evensidemargin}{\@Leftmargin}
  \addtolength{\evensidemargin}{-1in}
  \setlength{\topmargin}{\@Topmargin}
  \addtolength{\topmargin}{-1in}
  \setlength{\textscreenwidth}{\paperwidth}
}
\def\screensize#1#2{%
    \paperheight=#1%
    \paperwidth=#2
    \web@set@paper
    \InitLayout
}
\def\marginsize#1#2#3#4{%
    \@Leftmargin=#1
    \@Rightmargin=#2
    \@Topmargin=#3
    \@Bottommargin=#4
    \InitLayout
}
%    \end{macrocode}
% The default margin size
%    \begin{macrocode}
\marginsize{.25in}{.25in}{.25in}{.25in}
\newcount\rownum \rownum=1        % These registers keep track of the row and
\newcount\colnum \colnum=0        % column of the quizboard
\newcount\corMsgnum \corMsgnum=0  % These registers keep track of the error
\newcount\errMsgnum \errMsgnum=0  % messages
\newcount\jb@n
\newcount\jb@m
\newtoks\jb@rowtoks
\newcounter{newletter}
\newdimen\cellHeight \cellHeight=1in
\newdimen\cellWidth  \cellWidth=.5in
\newdimen\tablewidth
\newdimen\tableheight
\newcount\numCategories \numCategories=5
\newcount\numQuestions  \numQuestions=5
\newdimen\rulewidth     \rulewidth=1bp
\newdimen\extraHeight   \extraHeight=.2in
\newdimen\extraWidth    \extraWidth=0pt
%    \end{macrocode}
% Calculate the size of the screen page.
%    \begin{macrocode}
\def\calcPaperSize{%
%    \end{macrocode}
% Calculate paperwidth and \cs{tablewidth}
%    \begin{macrocode}
    \tablewidth=\numCategories\cellWidth
    \advance\tablewidth by \rulewidth
    \advance\tablewidth by \numCategories\rulewidth
    \paperwidth=\tablewidth
    \advance\paperwidth by\@Leftmargin  % two times margin
    \advance\paperwidth by\@Rightmargin % two times margin
    \advance\paperwidth by2\extraWidth  % need more width
%    \end{macrocode}
% Calculate paperheight and \cs{tableheight}
%    \begin{macrocode}
    \tableheight=\numQuestions\cellHeight
    \advance\tableheight by\cellHeight % banner
    \advance\tableheight by2\rulewidth % two rules for banner
    \advance\tableheight by\numQuestions\rulewidth
    \paperheight=\tableheight
    \advance\paperheight by\cellHeight % score
    \advance\paperheight by\@Topmargin
    \advance\paperheight by\@Bottommargin
    \advance\paperheight by\topskip
    \advance\paperheight by\extraHeight
    \screensize{\paperheight}{\paperwidth}
}
\def\verbatimwrite{\bgroup\catcode``=0 \@bsphack
  \let\do\@makeother\dospecials
  \catcode`\^^M\active \catcode`\^^I=12
  \def\verbatim@processline{%
    \immediate\write\verbatim@out
      {\the\verbatim@line}}%
  \verbatim@start}
\def\endverbatimwrite{\@esphack\egroup}
%    \end{macrocode}
% Code to parse JavaScript style named arguments
%    \begin{macrocode}
\newtoks\params \params={}
\newtoks\jb@tmptoks \jb@tmptoks={}
\def\@pickswitch#1#2\\{\def\argi{#1}\params={#2#1}}
\def\@parseParameters#1: #2,{\@ifnextchar\end
  {\jj@@parseParameters{#1}{#2}\@gobble}
  {\@ckforComma{#1}{#2}}
}
\def\@ckforComma#1#2{\@ifnextchar,
  {\jj@@parseParameters{#1}{#2}\@gobbletwo}
  {\jj@@parseParameters{#1}{#2}\setparams\@parseParameters}
}
\def\jj@@parseParameters#1#2{\let\next=\relax
  \expandafter\@pickswitch\the\params\\
  \def\jb@tmp{\end}
  \ifx\argi\jb@tmp
     \def\jb@tmp{\csname#2\endcsname}
     \def\jb@temp{\csname novalue\endcsname}
     \ifx\jb@temp\jb@tmp\else
        \message{^^J\expandafter\string\csname\processMacro\endcsname:
        The parameter pair '#1: #2' is undefined. Using the default value,
        if possible.^^J}
     \fi
  \else
     \jb@tmptoks=\expandafter{\csname\prefix#1\endcsname}%
     \edef\jb@tmp{\the\jb@tmptoks}%
     \ifx\jb@tmp\argi
        \csname @jb#1\endcsname{#2}%
     \else
        \def\next{\jj@@parseParameters{#1}{#2}}%
     \fi
  \fi
\next}
%    \end{macrocode}
% \subsection{Create Design Commands}
%    \begin{macrocode}
\def\jb@linkColor{\defaultLinkColor}
%    \end{macrocode}
%    \begin{macrocode}

\def\jj@setChoice#1#2{% this choice, default
    \ifx#1\@empty#2\else#1\fi}
\def\jj@updateChoice#1#2{%  this choice, current choice
    \ifx#1\@empty\xdef#1{#2}\else\xdef#2{#1}\fi}
%    \end{macrocode}
%    \begin{macro}{\DeclareColors}
% Macro to set the design parameters for LaTeX colors
%    \begin{macrocode}
\def\DeclareColors#1{%
    \begingroup
    \def\processMacro{DeclareColors}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@fillCells\jb@fillBanner\jb@textBanner%
                            \jb@textBoard\jb@fillInstructions\jb@fillGameBoard%
                            \jb@fillQuestions\jb@dollarColor\jb@linkColor\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbfillCells##1{\gdef\jb@fillCells{##1}}\let\jb@fillCells\@empty
    \def\@jbfillBanner##1{\gdef\jb@fillBanner{##1}}\let\jb@fillBanner\@empty
    \def\@jbtextBanner##1{\gdef\jb@textBanner{##1}}\let\jb@textBanner\@empty
    \def\@jbtextBoard##1{\gdef\jb@textBoard{##1}}\let\jb@textBoard\@empty
    \def\@jbfillInstructions##1{\gdef\jb@fillInstructions{##1}}\let\jb@fillInstructions\@empty
    \def\@jbfillGameBoard##1{\gdef\jb@fillGameBoard{##1}}\let\jb@fillGameBoard\@empty
    \def\@jbfillQuestions##1{\gdef\jb@fillQuestions{##1}}\let\jb@fillQuestions\@empty
    \def\@jbdollarColor##1{\gdef\jb@dollarColor{##1}}\let\jb@dollarColor\@empty
    \def\@jblinkColor##1{\gdef\jb@linkColor{##1}}
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@fillCells}{\fillCells}%
    \jj@updateChoice{\jb@fillBanner}{\fillBanner}%
    \jj@updateChoice{\jb@textBanner}{\textBanner}%
    \jj@updateChoice{\jb@textBoard}{\textBoard}%
    \jj@updateChoice{\jb@fillInstructions}{\fillInstructions}%
    \jj@updateChoice{\jb@fillGameBoard}{\fillGameBoard}%
    \jj@updateChoice{\jb@fillQuestions}{\fillQuestions}%
    \jj@updateChoice{\jb@dollarColor}{\dollarColor}%
    % The macro that will actually set the values
    \xdef\fillCells{\jj@setChoice{\jb@fillCells}{\defaultfillCells}}%
    \xdef\fillBanner{\jj@setChoice{\jb@fillBanner}{\defaultfillBanner}}%
    \xdef\textBanner{\jj@setChoice{\jb@textBanner}{\defaulttextBanner}}%
    \xdef\textBoard{\jj@setChoice{\jb@textBoard}{\defaulttextBoard}}%
    \xdef\fillInstructions{\jj@setChoice{\jb@fillInstructions}{\defaultfillInstructions}}%
    \xdef\fillGameBoard{\jj@setChoice{\jb@fillGameBoard}{\defaultfillGameBoard}}%
    \xdef\fillQuestions{\jj@setChoice{\jb@fillQuestions}{\defaultfillQuestions}}%
    \xdef\dollarColor{\jj@setChoice{\jb@dollarColor}{\defaultDollarColorAmt}}%
    \xdef\@linkcolor{\jb@linkColor}%
    \endgroup
}
\let\fillCells\@empty
\let\fillBanner\@empty
\let\textBanner\@empty
\let\textBoard\@empty
\let\fillInstructions\@empty
\let\fillGameBoard\@empty
\let\fillQuestions\@empty
\let\dollarColor\@empty
\DeclareColors*
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\APDollar}
% Macro to set the design parameters
%    \begin{macrocode}
\def\APDollar#1{%
    \begingroup
    \def\processMacro{APDollar}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@Font\jb@Size\jb@TextColor%
                            \jb@BorderColor\jb@FillColor\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbFont##1{\def\jb@Font{##1}}\let\jb@Font\@empty                       %\@jbFont{TiRo}
    \def\@jbSize##1{\def\jb@Size{##1}}\let\jb@Size\@empty                       %\@jbSize{20}
    \def\@jbTextColor##1{\def\jb@TextColor{##1}}\let\jb@TextColor\@empty        %\@jbTextColor{0 0 1}
    \def\@jbBorderColor##1{\def\jb@BorderColor{##1}}\let\jb@BorderColor\@empty  %\@jbBorderColor{0 0 0}
    \def\@jbFillColor##1{\def\jb@FillColor{##1}}\let\jb@FillColor\@empty        %\@jbFillColor{1 0.35 1}
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@Font}{\APDollar@Font}%
    \jj@updateChoice{\jb@Size}{\APDollar@Size}%
    \jj@updateChoice{\jb@TextColor}{\APDollar@TextColor}%
    \jj@updateChoice{\jb@BorderColor}{\APDollar@BorderColor}%
    \jj@updateChoice{\jb@FillColor}{\APDollar@FillColor}%
    % The macro that will actually set the values
    \xdef\APD@llar{/\jj@setChoice{\jb@Font}{\APDollar@Font@def}%
    \space\jj@setChoice{\jb@Size}{\APDollar@Size@def}\space Tf \jj@setChoice{\jb@TextColor}{\APDollar@TextColor@def}\space rg}
%
    \ifx\jb@BorderColor\jj@transparent\gdef\APD@llarBorder{}\else
    \xdef\APD@llarBorder{\jj@setChoice{\jb@BorderColor}{\APDollar@BorderColor@def}}\fi
%
    \ifx\jb@FillColor\jj@transparent\gdef\APD@llarFill{}\else
    \xdef\APD@llarFill{\jj@setChoice{\jb@FillColor}{\APDollar@FillColor@def}}\fi
    \endgroup
}
% defaults for this appearance
\def\APDollar@Font@def{TiRo}
\def\APDollar@Size@def{20}
\def\APDollar@TextColor@def{0 0 1}
\def\APDollar@BorderColor@def{0 0 0}
\def\APDollar@FillColor@def{1 0.35 1}
% current values for these appearance attributes
\let\APDollar@Font\@empty
\let\APDollar@Size\@empty
\let\APDollar@TextColor\@empty
\let\APDollar@BorderColor\@empty
\let\APDollar@FillColor\@empty
\APDollar* %{Font: TiRo, Size: 20, TextColor: 0 0 1,
           %BorderColor: 0 0 0, FillColor: 1 .35 1}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}
\newcommand\EUR{%
{\sffamily C%
\makebox[0pt][l]{\kern-.70em\mbox{--}%
}%
\makebox[0pt][l]{\kern-.68em\raisebox{.25ex}{--}}}\,%
}
%    \end{macrocode}
%    \begin{macro}{\APHidden}
%    \begin{macrocode}
\def\APHidden#1{%
    \begingroup
    \def\processMacro{APHidden}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@Champion\jb@Font\jb@Size\jb@TextColor%
                            \jb@BorderColor\jb@FillColor\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbChampion##1{\gdef\jb@Champion{##1}}\let\jb@Champion\@empty              %\@jbChampion{You are a Champion!}
    \def\@jbFont##1{\def\jb@Font{##1}}\let\jb@Font\@empty                           %\@jbFont{TiRo}
    \def\@jbSize##1{\def\jb@Size{##1}}\let\jb@Size\@empty                           %\@jbSize{20}
    \def\@jbTextColor##1{\def\jb@TextColor{##1}}\let\jb@TextColor\@empty            %\@jbTextColor{0 0 1}
    \def\@jbBorderColor##1{\def\jb@BorderColor{##1}}\let\jb@BorderColor\@empty      %\@jbBorderColor{0 0 0}
    \def\@jbFillColor##1{\def\jb@FillColor{##1}}\let\jb@FillColor\@empty            %\@jbFillColor{0.98 0.92 0.73}
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@Font}{\APHidden@Font}%
    \jj@updateChoice{\jb@Size}{\APHidden@Size}%
    \jj@updateChoice{\jb@TextColor}{\APHidden@TextColor}%
    \jj@updateChoice{\jb@BorderColor}{\APHidden@BorderColor}%
    \jj@updateChoice{\jb@FillColor}{\APHidden@FillColor}%
    % The macro that will actually set the values
    \xdef\APHidd@n{/\jj@setChoice{\jb@Font}{\APHidden@Font@def}%
    \space\jj@setChoice{\jb@Size}{\APHidden@Size@def}\space Tf \jj@setChoice{\jb@TextColor}{\APHidden@TextColor@def}\space rg}
%
    \ifx\jb@BorderColor\jj@transparent\gdef\APHidd@nBorder{}\else
    \xdef\APHidd@nBorder{\jj@setChoice{\jb@BorderColor}{\APHidden@BorderColor@def}}\fi
%
    \ifx\jb@FillColor\jj@transparent\gdef\APHidd@nFill{}\else
    \xdef\APHidd@nFill{\jj@setChoice{\jb@FillColor}{\APHidden@FillColor}}\fi
    \endgroup
}
% defaults for this appearance
\def\APHidden@Font@def{TiRo}
\def\APHidden@Size@def{20}
\def\APHidden@TextColor@def{0 0 1}
\def\APHidden@BorderColor@def{0 0 0}
\def\APHidden@FillColor@def{0.98 0.92 0.73}
% current values for these appearance attributes
\let\APHidden@Font\@empty
\let\APHidden@Size\@empty
\let\APHidden@TextColor\@empty
\let\APHidden@BorderColor\@empty
\let\APHidden@FillColor\@empty
\APHidden* %{Champion: You are a Champion!, Font: TiRo, Size: 20,
           %TextColor: 0 0 1, BorderColor: 0 0 0, FillColor: 0.98 0.92 0.73}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\APRight}
%    \begin{macrocode}
\def\APRight#1{%
    \begingroup
    \def\processMacro{APRight}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@Font\jb@Size\jb@TextColor\jb@Message\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbFont##1{\def\jb@Font{##1}}\let\jb@Font\@empty                   %\@jbFont{TiRo}
    \def\@jbSize##1{\def\jb@Size{##1}}\let\jb@Size\@empty                   %\@jbSize{20}
    \def\@jbTextColor##1{\def\jb@TextColor{##1}}\let\jb@TextColor\@empty    %\@jbTextColor{0 0 1}
    \def\@jbMessage##1{\def\jb@Message{##1}}\let\jb@Message\@empty          %\@jbMessage{}
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@Font}{\APRight@Font}%
    \jj@updateChoice{\jb@Size}{\APRight@Size}%
    \jj@updateChoice{\jb@TextColor}{\APRight@TextColor}%
    \jj@updateChoice{\jb@Message}{\@APRightMsg}
    % The macro that will actually set the values
    \xdef\@APRight{/\jj@setChoice{\jb@Font}{\APRight@Font@def}%
    \space\jj@setChoice{\jb@Size}{\APRight@Size@def}\space Tf \jj@setChoice{\jb@TextColor}{\APRight@TextColor@def}\space rg}%
    \xdef\@APRightTextColor{\jj@setChoice{\jb@TextColor}{\APRight@TextColor@def}}%
    \xdef\@APRightMsg{\jj@setChoice{\jb@Message}{\@APRightMsg}}%
    \endgroup
}
\def\APRight@Font@def{TiRo}
\def\APRight@Size@def{20}
\def\APRight@TextColor@def{0 0 1}
\def\APRRight@Msg@def{Right!}
\let\APRight@Font\@empty
\let\APRight@Size\@empty
\let\APRight@TextColor\@empty
\def\correctText#1{\gdef\@APRightMsg{#1}}
\correctText{Right!}
\APRight*  %{Font: TiRo, Size: 20, TextColor: 0 0 1, Message: Right!}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\APWrong}
%    \begin{macrocode}
\def\APWrong#1{%
    \begingroup
    \def\processMacro{APWrong}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@Font\jb@Size\jb@TextColor\jb@Message\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbFont##1{\def\jb@Font{##1}}\let\jb@Font\@empty                   %\@jbFont{TiRo}
    \def\@jbSize##1{\def\jb@Size{##1}}\let\jb@Size\@empty                   %\@jbSize{20}
    \def\@jbTextColor##1{\def\jb@TextColor{##1}}\let\jb@TextColor\@empty    %\@jbTextColor{1 0 0}
    \def\@jbMessage##1{\def\jb@Message{##1}}\let\jb@Message\@empty         %\@jbMessage{}
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@Font}{\APWrong@Font}%
    \jj@updateChoice{\jb@Size}{\APWrong@Size}%
    \jj@updateChoice{\jb@TextColor}{\APWrong@TextColor}%
    \jj@updateChoice{\jb@Message}{\@APWrongMsg}
    % The macro that will actually set the values
    \xdef\@APWrong{/\jj@setChoice{\jb@Font}{\APWrong@Font@def}%
    \space\jj@setChoice{\jb@Size}{\APWrong@Size@def}\space Tf \jj@setChoice{\jb@TextColor}{\APWrong@TextColor@def}\space rg}%
    \xdef\@APWrongTextColor{\jj@setChoice{\jb@TextColor}{\APWrong@TextColor@def}}%
    \xdef\@APWrongMsg{\jj@setChoice{\jb@Message}{\@APWrongMsg}}%
    \endgroup
}
\def\APWrong@Font@def{TiRo}
\def\APWrong@Size@def{20}
\def\APWrong@TextColor@def{0 0 1}
\def\APRRight@Msg@def{Wrong!}
\let\APWrong@Font\@empty
\let\APWrong@Size\@empty
\let\APWrong@TextColor\@empty
\def\incorrectText#1{\gdef\@APWrongMsg{#1}}
\incorrectText{Wrong!}
\APWrong* %{Font: TiRo, Size: 20, TextColor: 1 0 0, Message: Wrong!}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\GameDesign}
%    \begin{macrocode}
\def\GameDesign#1{%
    \begingroup
    \def\processMacro{CustomDesign}
    \def\prefix{jb@}
    % Load parameters to test against
    \global\numCategories = 0
    \def\setparams{\params={\jb@Cat\jb@CellWidth\jb@CellHeight%
    \jb@NumQuestions\jb@Goal\jb@GoalPercentage\jb@ExtraHeight\jb@ExtraWidth%
    \jb@Champion\end}}
    \setparams
    % define their default values
    \def\@jbCat##1{\global\advance\numCategories by1 \jb@Cat##1,}
    \def\@jbCellWidth##1{\global\cellWidth=##1}\@jbCellWidth{1in}
    \def\@jbCellHeight##1{\global\cellHeight=##1}\@jbCellHeight{.5in}
    \def\@jbNumQuestions##1{\global\numQuestions=##1}\@jbNumQuestions{5}
    \def\@jbGoal##1{\def\jb@Goal{##1}}\@jbGoal{3500}
    \def\@jbGoalPercentage##1{\def\jb@GoalPercentage{##1}}\@jbGoalPercentage{0}
    \def\@jbExtraHeight##1{\global\extraHeight=##1}\@jbExtraHeight{.2in}
    \def\@jbExtraWidth##1{\global\extraWidth=##1}\@jbExtraWidth{0pt}
    \def\@jbChampion##1{\gdef\jb@Champion{##1}}\@jbChampion{You are a Champion!}
    % The * argument is used to initialize all variables executing the
    % \parseParameters macro
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space
        \@parseParameters dummy: novalue, #1,\end
        \ifdebug
            \typeout{^^JClass jj_game Info:}
            \typeout{Number of Categories: \the\numCategories}
            \typeout{Number of Questions per Category: \the\numQuestions^^J}
        \fi
%   Let n = numQuestions, m = numCategories
%   100*n*(n+1)/2 = 50*n*(n+1) = total for one category
%   50*m*n*(n+1) = total money;
%   100*m*n*(n+1) = total money for double jeopardy
        \jb@n = \numQuestions
        \advance\jb@n by 1
        \multiply\jb@n by\numQuestions
        \multiply\jb@n by50                 % total money/category
%       \divide\jb@n by2
        \multiply\jb@n by\numCategories     % total money
%       \multiply\jb@n by100
        \ifdouble
            \multiply\jb@n by2              % total money, double jj
        \fi
        \ifdebug
            \typeout{Total Money: \the\jb@n}
        \fi
        % See if GoalPercentage differs from the default value
        \xdef\jb@tmp{\csname 0\endcsname}%
        \xdef\jb@temp{\csname\jb@GoalPercentage\endcsname}%
        \ifx\jb@tmp\jb@temp
        \else
            \ifdebug
                \typeout{Goal Percentage Specified: \jb@GoalPercentage}
            \fi
%           \jb@GoalPercentage * jb@n / 100
            \multiply\jb@n by\jb@GoalPercentage
            \divide\jb@n by100
            \@jbGoal{\the\jb@n}
        \fi
        \xdef\Goal{\jb@Goal}
        \ifdebug
            \typeout{Goal: \Goal^^J}
        \fi
    \fi
    \endgroup
    \ifx#1*\else\expandafter\calcPaperSize\fi
    \jjCancelOutAeBProCatalog
    \jjImportForCreditCode
}
\def\jjCancelOutAeBProCatalog{\iffinal\let\aeb@SetCatalog\@empty\fi}
\def\jb@Cat{%
\@ifnextchar[{\jb@item}{\jb@item[] }}%
\gdef\jb@item[#1] #2,{%
\expandafter\gdef\csname Category\the\numCategories\endcsname{\forpbx{#1#2}}%
\expandafter\gdef\csname category\the\numCategories\endcsname{#2}}%

\GameDesign*  %{CellWidth: 1in, CellHeight: .5in, NumQuestions: 5,
               %Goal: 3500, ExtraHeight: .2in, ExtraWidth: 0pt
               %Champion: You are a Champion!}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\APScore}
%    \begin{macrocode}
\def\jb@Score{""}
\def\jb@align@left{l}
\def\jb@align@center{c}
\def\jb@align@right{r}
\def\APScore#1{
    \begingroup
    \def\processMacro{APScore}
    \def\prefix{jb@}
    % Load parameters to test against
    \def\setparams{\params={\jb@Font\jb@Size\jb@TextColor%
                            \jb@BorderColor\jb@FillColor%
                            \jb@CellWidth\jb@CellHeight%
                            \jb@AutoPlacement\jb@Score\jb@Currency\jb@align\end}}
    \setparams
    % define their default values /TiRo 20 Tf 0 0 1 rg
    \def\@jbFont##1{\def\jb@Font{##1}}\let\jb@Font\@empty                               %\@jbFont{TiRo}
    \def\@jbSize##1{\def\jb@Size{##1}}\let\jb@Size\@empty                               %\@jbSize{20}
    \def\@jbTextColor##1{\def\jb@TextColor{##1}}\let\jb@TextColor\@empty                %\@jbTextColor{0 0 1}
    \def\@jbBorderColor##1{\def\jb@BorderColor{##1}}\let\jb@BorderColor\@empty          %\@jbBorderColor{0 0 0}
    \def\@jbFillColor##1{\def\jb@FillColor{##1}}\let\jb@FillColor\@empty                %\@jbFillColor{0.98 0.92 0.73}
    \def\@jbCellHeight##1{\def\jb@CellHeight{##1}}\let\jb@CellHeight\@empty             %\@jbCellHeight{\the\cellHeight}
    \def\@jbCellWidth##1{\def\jb@CellWidth{##1}}\let\jb@CellWidth\@empty                %\@jbCellWidth{\the\cellWidth}
    \def\@jbAutoPlacement##1{\gdef\jb@AutoPlacement{##1}}\let\jb@AutoPlacement\@empty   %\@jbAutoPlacement{true}
    \def\@jbScore##1{\gdef\jb@Score{##1}}\let\jb@Score\@empty                           %\@jbScore{""}
    \def\@jbCurrency##1{\gdef\jb@Currency{##1}}\let\jb@Currency\@empty                  %\@jbCurrency{"$"}
    \def\@jbalign##1{\gdef\jb@align{##1}}\let\jb@aligh\@empty                           %\@jbalign{r}%  l, c, r
    \ifx#1*\else
        % insert a dummy argument to avoid spurious space and ...
        %   parse the named parameters
        \@parseParameters dummy: novalue, #1,\end
    \fi
    \jj@updateChoice{\jb@Font}{\APScore@Font}%
    \jj@updateChoice{\jb@Size}{\APScore@Size}%
    \jj@updateChoice{\jb@TextColor}{\APScore@TextColor}%
    \jj@updateChoice{\jb@BorderColor}{\APScore@BorderColor}%
    \jj@updateChoice{\jb@FillColor}{\APScore@FillColor}%
    \jj@updateChoice{\jb@CellHeight}{\APScore@CellHeight}%
    \jj@updateChoice{\jb@CellWidth}{\APScore@CellWidth}%
    \jj@updateChoice{\jb@AutoPlacement}{\APScore@AutoPlacement}%
    \jj@updateChoice{\jb@Score}{\APScore@Score}%
    \jj@updateChoice{\jb@Currency}{\APScore@Currency}%
    \jj@updateChoice{\jb@align}{\APScore@align}%
    \xdef\jb@Score{\jj@setChoice{\jb@Score}{\APScore@Score@def}}%
    \xdef\jb@Currency{\jj@setChoice{\jb@Currency}{\APScore@Currency@def}}%
    % The macro that will actually set the values
    \xdef\@APScore{/\jj@setChoice{\jb@Font}{\APScore@Font@def}%
    \space\jj@setChoice{\jb@Size}{\APScore@Size@def}\space Tf \jj@setChoice{\jb@TextColor}{\APScore@TextColor@def}\space rg}%
    \ifx\jb@BorderColor\jj@transparent\gdef\@APScoreBorder{}\else
    \xdef\@APScoreBorder{\jj@setChoice{\jb@BorderColor}{\APScore@BorderColor@def}}\fi
    \ifx\jb@FillColor\jj@transparent\gdef\@APScoreFill{}\else
    \xdef\@APScoreFill{\jj@setChoice{\jb@FillColor}{\APScore@FillColor@def}}\fi
    \xdef\@APScorecellHeight{\jj@setChoice{\jb@CellHeight}{\APScore@CellHeight@def}}
    \xdef\@APScorecellWidth{\jj@setChoice{\jb@CellWidth}{\APScore@CellWidth@def}}
    \xdef\jb@align{\jj@setChoice{\jb@align}{\APScore@align@def}}
    \xdef\jb@tmp{\csname true\endcsname}%
    \xdef\jb@temp{\csname\jb@AutoPlacement\endcsname}%
    \ifx\jb@temp\jb@tmp
          \gdef\@PlaceScoreBoard{\@@PlaceScoreBoard}
          \gdef\PlaceScoreBoard##1{\message{^^J\expandafter\string\csname APScore\endcsname:
            `AutoPlacement: true', the use of \string\PlaceScoreBoard\space is not valid
            in this case!^^J^^J}}
    \else
          \gdef\@PlaceScoreBoard{\@@@PlaceScoreBoard\@gobble}%
    \fi
    \gdef\jb@Quad{2}
    \ifx\jb@align\jb@align@left\gdef\jb@Quad{0}
    \else\ifx\jb@align\jb@align@center\gdef\jb@Quad{1}
    \else\ifx\jb@align\jb@align@right\gdef\jb@Quad{2}
    \fi\fi\fi
    \endgroup
}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\PlaceScoreBoard}
%    \begin{macrocode}
\def\@@PlaceScoreBoard#1{#1}
\long\def\PlaceScoreBoard#1{\def\@@@PlaceScoreBoard{#1}}
\PlaceScoreBoard{{\centering\vbox{\ScoreBoard}}}
\def\jb@align{r}
\def\APScore@Font@def{TiRo}
\def\APScore@Size@def{20}
\def\APScore@TextColor@def{0 0 1}
\def\APScore@BorderColor@def{0 0 0}
\def\APScore@FillColor@def{0.98 0.92 0.73}
\def\APScore@CellHeight@def{\the\cellHeight}
\def\APScore@CellWidth@def{\the\cellWidth}
\def\APScore@AutoPlacement@def{true}
\def\APScore@Score@def{""}
\def\APScore@Currency@def{""}
\def\APScore@align@def{r}
\let\APScore@Font\@empty
\let\APScore@Size\@empty
\let\APScore@TextColor\@empty
\let\APScore@BorderColor\@empty
\let\APScore@FillColor\@empty
\let\APScore@CellHeight\@empty
\let\APScore@CellWidth\@empty
\let\APScore@AutoPlacement\@empty
\let\APScore@Score\@empty
\let\APScore@Currency\@empty
\let\APScore@align\@empty
\APScore* %{Font: TiRo, Size: 20, TextColor: 0 0 1, BorderColor: 0 0 0,
          %FillColor: 0.98 0.92 0.73, CellHeight: \the\cellHeight,
          %CellWidth: \the\cellWidth, AutoPlacement: true,
          %Score: "Score: ", Currency: "$", align: r}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}
\def\Rect#1{\pdf@rect{\textcolor{\@linkcolor}{#1}}}
\def\({\noexpand\(}\def\){\noexpand\)} %\def\r{\noexpand\r}\def\n{\noexpand\n}
\def\Bbox#1#2{\vbox to#2{\hbox to#1{\hfill}\vfill}}
\def\hmark#1{\hypertarget{#1}{}}
%    \end{macrocode}
%    \begin{macro}{\bannerTextControl}
% Use \cs{bannerTextControl} to tweak the positioning of the banner text.
%    \begin{macrocode}
\newcommand{\bannerTextControl}[1]{#1}
%    \end{macrocode}
%    \end{macro}
% Construct the running banners
%    \begin{macrocode}
\def\jb@Banner#1{\vspace*{-\topskip}\hbox{\rlap{\ifx\fillBanner\jj@transparent\else\color{\fillBanner}\fi
\setbox0=\hbox{\bannerTextFont\strut}\jb@tmpdimb=\ht0
  \advance\jb@tmpdimb by6pt \jb@tmpdima=\dp0 \advance\jb@tmpdima by4pt
    {\ifx\fillBanner\jj@transparent\else\vrule height\jb@tmpdimb depth\jb@tmpdima width\textwidth\fi}}%
    \vbox{\noindent\centering\bannerTextFont\bannerTextColor\strut\bannerTextControl{#1}}}\bigskip}
%    \end{macrocode}
% \subsection{Construct form fields}
% This appearance is the opening face.  Show dollar amounts. Clicking
% jumps to the corresponding question.
%    \begin{macrocode}
\def\dollarAP{%
{\ifdouble\advance\rownum by\rownum\fi\xdef\@dollarAmt{\the\rownum00}}%
\ifcase\thejjgdriver
\rlap{\pdfstartlink user{ /Subtype /Widget
  /F 4 /T (\the\rownum\the\colnum)
  /FT /Btn /Ff 65540 /H /P /BS << /W 1 /S /S >>
  /DA (\APD@llar)
  /MK << /BC [\APD@llarBorder]\space %/BC [0.75 0.75 0.75]
         /BG [\APD@llarFill]\space
         /CA (\@dollarAmt)\space
         /AC (\@dollarAmt)\space
      >>
   /A << /Type /Action /S /GoTo /D (Q\the\rownum\the\colnum) \jjAdditionalCellJSActions >> }%
\Bbox{\cellWidth}{\cellHeight}\pdfendlink}%
\or
\rlap{\pdf@rect{\Bbox{\cellWidth}{\cellHeight}}}%
\literalps@out{%
[ /Subtype /Widget
  /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
  /F 4 /T (\the\rownum\the\colnum)
  /FT /Btn /Ff 65540 /H /P /BS << /W 1 /S /S >>
  /DA (\APD@llar)
  /MK << /BC [\APD@llarBorder]\space %/BC [0.75 0.75 0.75]
         /BG [\APD@llarFill]\space
         /CA (\@dollarAmt)\space
         /AC (\@dollarAmt)\space
      >>
   /A << /Type /Action /S /GoTo /D (Q\the\rownum\the\colnum) \jjAdditionalCellJSActions >>
/ANN pdfmark}%
\or
\setbox\pdfm@box=\hbox{\Bbox{\cellWidth}{\cellHeight}}%
\def\Fld@name{\the\rownum\the\colnum}%
\@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim
<<
    /Subtype /Widget
    /F 4 /T (\the\rownum\the\colnum)
    /FT /Btn /Ff 65540 /H /P /BS << /W 1 /S /S >>
    /DA (\APD@llar)
    /MK << /BC [\APD@llarBorder]\space %/BC [0.75 0.75 0.75]
         /BG [\APD@llarFill]\space
         /CA (\@dollarAmt)\space
         /AC (\@dollarAmt)\space
      >>
   /A << /Type /Action /S /GoTo /D (Q\the\rownum\the\colnum) \jjAdditionalCellJSActions >>
>>}\rlap{\unhbox\pdfm@box\relax}%
\@pdfm@mark{put @afields @\Fld@name}% record in @afields array
\fi
}%
%    \end{macrocode}
% This appearance simply says Right!  It appears if the user answers the
% question correctly.
%    \begin{macrocode}
\def\rightAP{%
\ifcase\thejjgdriver
\rlap{\pdfstartlink user{/Subtype /Widget
  /F 6 /T (\the\rownum\the\colnum R) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APRight) /MK << /CA (\@APRightMsg) >> }%
\Bbox{\cellWidth}{\cellHeight}\pdfendlink}%
\or
\literalps@out{%
[ /Subtype /Widget /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
  /F 6 /T (\the\rownum\the\colnum R) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APRight) /MK << /CA (\@APRightMsg) >>
/ANN pdfmark}%
\or
\setbox\pdfm@box=\hbox{\Bbox{\cellWidth}{\cellHeight}}%
\def\Fld@name{\the\rownum\the\colnum R}%
\hbox{\@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim
<<
  /Subtype /Widget
  /F 6 /T (\the\rownum\the\colnum R) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APRight) /MK << /CA (\@APRightMsg) >>
>>}}\@pdfm@mark{put @afields @\Fld@name}% record in @afields array%
\fi}%
%    \end{macrocode}
% This appearance simply says Wrong!  It appears if the user answers the
% question incorrectly.
%    \begin{macrocode}
\def\wrongAP{%
\ifcase\thejjgdriver
\rlap{\pdfstartlink user{/Subtype /Widget
  /F 6 /T (\the\rownum\the\colnum W) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APWrong) /MK << /CA (\@APWrongMsg) >> }%
\Bbox{\cellWidth}{\cellHeight}\pdfendlink}%
\or
\literalps@out{%
[ /Subtype /Widget /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
  /F 6 /T (\the\rownum\the\colnum W) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APWrong) /MK << /CA (\@APWrongMsg) >>
/ANN pdfmark}%
\or
\setbox\pdfm@box=\hbox{\Bbox{\cellWidth}{\cellHeight}}%
\def\Fld@name{\the\rownum\the\colnum W}%
\hbox{\@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim
<<
  /Subtype /Widget
  /F 6 /T (\the\rownum\the\colnum W) % /F 6 : hidden and printable
  /FT /Btn /Ff 65540 /H /N
  /DA (\@APWrong) /MK << /CA (\@APWrongMsg) >>
>>}}\@pdfm@mark{put @afields @\Fld@name}% record in @afields array%
\fi}
%    \end{macrocode}
%    \begin{macrocode}
\def\jb@nDec{0}
\def\jb@sepStyle{0}
\def\jb@negStyle{0}
\def\jb@currStyle{2}
\def\jb@Currency{""}
\def\jb@bCurrencyPrepend{true}
%    \end{macrocode}
%    \begin{macro}{\prependCurrency}
%    \begin{macro}{\appendCurrency}
% Use these to prepend, the default, or append a currency symbol, if any. These
% will appear in the \cs{ScoreBoard}.
%    \begin{macrocode}
\newcommand{\prependCurrency}{\def\jb@bCurrencyPrepend{true}}
\newcommand{\appendCurrency}{\def\jb@bCurrencyPrepend{false}}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{\ScoreBoard}
%    \begin{macrocode}
\def\ScoreBoard{%
\ifcase\thejjgdriver
\leavevmode\pdfstartlink user{/Subtype /Widget
  /T (Total)
  /FT /Tx /Ff 1 /H /N /F 4 /Q \jb@Quad
  /BS << /W 3 /S /I >>
  /MK << /BC [\@APScoreBorder] /BG [\@APScoreFill] >>
  /DA (\@APScore)
  /AA << /V << /S /JavaScript
                  /JS(event.target.textColor = event.value < 0 ?
                        "RGB \@APWrongTextColor".split(" ") :
                        "RGB \@APRightTextColor".split(" ");) >>
         /F << /S /JavaScript
                  /JS (AFNumber_Format\(\jb@nDec, \jb@sepStyle, \jb@negStyle, \jb@currStyle, \jb@Currency, \jb@bCurrencyPrepend\);
                       event.value = \jb@Score\space + event.value;) >>
      >> }%
\lower4bp\Bbox{\@APScorecellWidth}{\@APScorecellHeight}\pdfendlink
\or
\pdf@rect{\lower4bp\Bbox{\@APScorecellWidth}{\@APScorecellHeight}}%
\literalps@out{%
[ /Subtype /Widget /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
  /T (Total)
  /FT /Tx /Ff 1 /H /N /F 4 /Q \jb@Quad
  /BS << /W 3 /S /I >>
  /MK << /BC [\@APScoreBorder] /BG [\@APScoreFill] >> %0.98 0.92 0.73
  /DA (\@APScore)
  /AA << /V << /S /JavaScript
                  /JS(event.target.textColor = event.value < 0 ?
                        "RGB \@APWrongTextColor".split(" ") :
                        "RGB \@APRightTextColor".split(" ");) >>
         /F << /S /JavaScript
                  /JS (AFNumber_Format\(\jb@nDec, \jb@sepStyle, \jb@negStyle, \jb@currStyle, \jb@Currency, \jb@bCurrencyPrepend\);
                       event.value = \jb@Score\space + event.value;) >>
      >>
/ANN pdfmark}%
\or
\setbox\pdfm@box=\hbox{\lower4pt\Bbox{\@APScorecellWidth}{\@APScorecellHeight}}%
\def\Fld@name{Total}%
\leavevmode\@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim
<<
  /Subtype /Widget
  /T (Total)
  /FT /Tx /Ff 1 /H /N /F 4 /Q \jb@Quad
  /BS << /W 3 /S /I >>
  /MK << /BC [\@APScoreBorder] /BG [\@APScoreFill] >>
  /DA (\@APScore)
  /AA << /V << /S /JavaScript
                  /JS(event.target.textColor = event.value < 0 ?
                        "RGB \@APWrongTextColor".split(" ") :
                        "RGB \@APRightTextColor".split(" ");) >>
         /F << /S /JavaScript
                  /JS (AFNumber_Format\(\jb@nDec, \jb@sepStyle, \jb@negStyle, \jb@currStyle, \jb@Currency, \jb@bCurrencyPrepend\);
                       event.value = \jb@Score\space + event.value;) >>
      >>
>>}\unhbox\pdfm@box\relax %\raisebox{-4bp}{\unhbox\pdfm@box\relax}%
\@pdfm@mark{put @afields @\Fld@name}% record in @afields array
\fi}
%    \end{macrocode}
%    \end{macro}
% The pdf contents of a number rectangle: Three widgets superimposed
%    \begin{macrocode}
\def\cell{\global\advance\colnum1 \ifnum\colnum>\numCategories
    \global\colnum=1 \global\advance\rownum1 \fi
    \moveleft.5\cellWidth\hbox{\dollarAP\rightAP\wrongAP}}
%    \end{macrocode}
% This provides the background color behind the banner
%    \begin{macrocode}
\def\bgb{\PoohBahBanner\smash{\rlap{\ifx\fillBanner\jj@transparent\else\color{\fillBanner}{%
  \vrule width\tablewidth height\cellHeight}\fi}}}
%    \end{macrocode}
% This provides the background color behind the number board.
%    \begin{macrocode}
\def\bgc{\smash{\rlap{{\ifx\fillCells\jj@transparent\else\color{\fillCells}%
  \vrule width\tablewidth height\cellHeight\fi}}}}
%    \end{macrocode}
% The hidden banner set by \cs{APHidden} with the final message for the
% contestant attaining the goal.
%    \begin{macrocode}
\def\PoohBahBanner{%
\ifcase\thejjgdriver
\rlap{\advance\tablewidth-2bp\hskip1bp\pdfstartlink user{%
  /Subtype /Widget
  /T (GrandPoohbah)
  /FT /Tx /Ff 1 /H /N /Q 1 /F 6
  /BS << /W 3 /S /I >>
  /MK << /BC [\APHidd@nBorder] /BG [\APHidd@nFill] >>
  /DA (\APHidd@n)
  /DV (\jb@Champion)
  /V  (\jb@Champion)}%
\Bbox{\tablewidth}{\cellHeight}\pdfendlink}%\hskip1bp
\or
\smash{\advance\tablewidth-2bp
\rlap{\hskip1bp\pdf@rect{\Bbox{\tablewidth}{\cellHeight}}%
\literalps@out{%
[ /Subtype /Widget /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
  /T (GrandPoohbah)
  /FT /Tx /Ff 1 /H /N /Q 1 /F 6
  /BS << /W 3 /S /I >>
  /MK << /BC [\APHidd@nBorder] /BG [\APHidd@nFill] >>
  /DA (\APHidd@n)
  /DV (\jb@Champion)
  /V  (\jb@Champion)
/ANN pdfmark}}}%
\or
\setbox\pdfm@box=\hbox{\Bbox{\tablewidth}{\cellHeight}}%
\def\Fld@name{GrandPoohbah}%
\hbox{\@pdfm@mark{ann @\Fld@name\space\dvipdfm@setdim
<<
  /Subtype /Widget
  /T (GrandPoohbah)
  /FT /Tx /Ff 1 /H /N /Q 1 /F 6
  /BS << /W 3 /S /I >>
  /MK << /BC [\APHidd@nBorder] /BG [\APHidd@nFill] >>
  /DA (\APHidd@n)
  /DV (\jb@Champion)
  /V  (\jb@Champion)
>>}\rlap{\hskip1bp\unhbox\pdfm@box}}%
\@pdfm@mark{put @afields @\Fld@name}% record in @afields array
\fi}
%    \end{macrocode}
%    \begin{macrocode}
\def\forpbx#1{\vbox to\cellHeight{%
  \hsize=\cellWidth\centering\vfill\strut\ifx\textBoard\jj@transparent\else\color{\textBoard}\fi#1\strut\vfill}}
\def\gameCategories{%
  \jb@n=0
  \jb@rowtoks={\bgb}%
  \loop\ifnum\jb@n<\numCategories\advance\jb@n by1
    \jb@tmptoks=\expandafter{\expandafter&\csname Category\the\jb@n\endcsname&}%
    \edef\jb@temp{\the\jb@rowtoks\the\jb@tmptoks}%
    \jb@rowtoks=\expandafter{\jb@temp}%
  \repeat
  \edef\jb@temp{\the\jb@rowtoks}%
  \jb@rowtoks=\expandafter{\jb@temp\cr\\ }%
\the\jb@rowtoks}

% Hack a loop structure so I can do a double loop
\long\def\oloop #1\orepeat{%
  \def\oiterate{#1\relax  % Extra \relax
               \expandafter\oiterate\fi
               }%
  \oiterate
  \let\outeriterate\relax
}
\let\orepeat=\fi
%    \end{macrocode}
%    \begin{macrocode}
\def\gamebody{%
  \jb@rowtoks={}%
  \jb@m=\numQuestions
  \edef\jb@temp{}%
  \oloop\advance\jb@m-1\ifnum\jb@m>0
    \getrow
  \orepeat
  \the\jb@rowtoks}
%    \end{macrocode}
%    \begin{macrocode}
\def\getrow{%
  \jb@n=\numCategories
  \edef\jb@temp{\the\jb@rowtoks}%
  \jb@rowtoks=\expandafter{\jb@temp\bgc}%
  \loop\advance\jb@n-1\ifnum\jb@n>0
    \edef\jb@temp{\the\jb@rowtoks}%
    \jb@rowtoks=\expandafter{\jb@temp&\cell&}%
  \repeat
  \edef\jb@temp{\the\jb@rowtoks}%
  \jb@rowtoks=\expandafter{\jb@temp\cr\\ }%
}
%    \end{macrocode}
% \subsection{Construct Game Board}
%    \begin{macrocode}
\def\GameBoard{\vspace*{-\topskip}%
\begingroup
  % set up \halign environment
  \tabskip0pt\offinterlineskip\parskip0pt\parindent0pt
  \def\\{\noalign{\hrule height\rulewidth}}%
  \hbox to\textwidth\bgroup\hfill
    \vbox\bgroup\hsize=\tablewidth\hmark{GameBoard}%
      \halign{##\vrule width\rulewidth
        &&\hbox to\cellWidth{\hss\vbox to\cellHeight{\vss##\vss}\hss}%
        &\vrule width\rulewidth##\cr\noalign{\hrule height\rulewidth}%
        % Begin entering data into the different cells
        \gameCategories
        \gamebody
      }%
    \egroup\hfill
  \egroup
\endgroup
%    \end{macrocode}
% Insert ScoreBoard
%    \begin{macrocode}
\@PlaceScoreBoard{{\centering\vbox{\ScoreBoard}}}%
\par\JJ@afterGameBoardInsertion}
\let\JJ@afterGameBoardInsertion\@empty
%    \end{macrocode}
%    \begin{macro}{\afterGameBoardInsertion}
% Use this command to insert material below the score board (hence below the game board).
%    \begin{macrocode}
\newcommand{\afterGameBoardInsertion}[1]{%
    \def\JJ@afterGameBoardInsertion{#1}}
%    \end{macrocode}
%    \end{macro}
% \subsection{Begin Asking Questions}
%    \begin{environment}{instructions}
% The Instructions on first page.
%    \begin{macrocode}
\def\instructions
{%
    \instructionPageTemplate
    \ifx\fillInstructions\jj@transparent\else\textBgColor{\fillInstructions}\fi
    \jb@Banner{\@titleBanner}\par\parskip6pt
}
\def\endinstructions{\newpage}
%    \end{macrocode}
%    \end{environment}
%    \begin{macrocode}
\let\Question\relax
%    \end{macrocode}
%    \begin{environment}{Questions}
%    \begin{macrocode}
\def\Questions{\newpage\parskip0pt\relax\global\jb@n=0\relax
  \gameboardPageTemplate
  \ifx\fillGameBoard\jj@transparent\else\textBgColor{\fillGameBoard}\fi\GameBoard
  \newpage\ifx\fillQuestions\jj@transparent\else\textBgColor{\fillQuestions}\fi
  \rownum=0 \colnum=1 % initialize counters
  \questionPagesTemplate
}
\def\endQuestions{%
    \ifnum\jb@n=\numCategories\else
        \typeout{Number of categories is not correct!}
    \fi
    \newpage}
%    \end{macrocode}
%    \end{environment}
%    \begin{environment}{\Category}
%    \begin{macrocode}
\def\Category#1{
    \def\currentCategory{#1}\global\advance\jb@n by1 \global\jb@m=0
    \ifdebug
    \typeout{^^JBegin Processing Category \the\jb@n: \currentCategory}
    \typeout{If '\currentCategory' is different from}
    \typeout{'\csname category\the\jb@n\endcsname',
            then your categories are out of order!}
    \fi}
\def\endCategory{
    \ifdebug
        \ifnum\jb@m=\numQuestions
        \else
            \typeout{In the '\currentCategory' category,
            the number of questions is not correct!}
        \fi
        \typeout{End Processing Category \the\jb@n:
        \the\jb@m\space of \the\numQuestions\space Questions}
    \fi
}
%    \end{macrocode}
%    \end{environment}
%    \begin{macrocode}
\let\jjAdditionalJSActions\@empty
%\let\jjAdditionalCellJSActions\@empty
\def\jjAdditionalCellJSActions{/Next <<\JS{var pushCell\the\rownum\the\colnum = true; makeNameReadOnly();}>>}
\let\bJJGInsertLayer\@empty
\let\eJJGInsertLayer\@empty
%    \end{macrocode}
%    \begin{macro}{\theCurrencyAmt}
%    \begin{macrocode}
\def\theCurrencyAmt{{\count0=\the\rownum00\relax
    \multiply\count0by\scaleFactor\relax\the\count0\relax}}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\aboveCurrencySkip}
%    \begin{macrocode}
\def\aboveCurrencySkip#1{\def\jj@aboveCurrencySkip{#1}}
\aboveCurrencySkip{0pt}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\currencyHeading}
%    \begin{macrocode}
\newcommand{\currencyHeading}[1]{\def\jj@currencyHeading{#1}}
\currencyHeading{\bfseries For~\$\theCurrencyAmt:}
%    \end{macrocode}
%    \end{macro}
%    \begin{environment}{\Question}
%    \begin{macrocode}
\def\Question{\newpage\global\advance\jb@m by1
  \global\advance\rownum1 \ifnum\rownum>\numQuestions \global\rownum=1
  \global\advance\colnum1 \fi
  \global\advance\corMsgnum1 \ifnum\corMsgnum=8 \global\corMsgnum=1 \fi
  \ifcase\thejjgdriver
    \immediate\pdfobj{<< /O << /H true /S /Hide /T (\the\rownum\the\colnum) \jjAdditionalJSActions >> >> }
    \edef\ThisPage{/AA \the\pdflastobj\space 0 R}
    \global\pdfpageattr=\expandafter{\ThisPage}%
  \or
    \literalps@out{%
         [ {ThisPage} << /AA << /O << /H true /S /Hide
            /T (\the\rownum\the\colnum) \jjAdditionalJSActions >> >> >>
        /PUT pdfmark}%
  \or
    \@pdfm@mark{put @thispage << /AA << /O << /H true /S /Hide
           /T (\the\rownum\the\colnum) \jjAdditionalJSActions >> >> >>}%
  \fi
  \jb@Banner{\csname category\the\colnum\endcsname}%
  \begingroup
  \vskip\jj@aboveCurrencySkip
  \parskip2pt
  \setcounter{newletter}{0}%
%  \noindent\textcolor{\dollarColor}{\jj@currencyHeading}%
  \hmark{Q\the\rownum\the\colnum}\bJJGInsertLayer%
  \@ifnextchar[%
    {\let\Ans\Question@tabular
     \def\endQuestion{\end{tabular}%
     \eJJGInsertLayer\endgroup\newpage}\getBracArg}%
    {\let\Ans\Question@list\noindent%
     \textcolor{\dollarColor}{\jj@currencyHeading}\space\ignorespaces
     \def\endQuestion{\end{list}\eJJGInsertLayer\endgroup\newpage}}%
}
%    \end{macrocode}
%    \end{environment}
%    \begin{macrocode}
\def\getBracArg[#1]{\def\jb@numCols{#1}\noindent%
    \textcolor{\dollarColor}{\jj@currencyHeading}\space\ignorespaces}
%    \end{macrocode}
% \cs{jjgtmplength} is a scratch length register that can be used to calculate lengths.
%    \begin{macrocode}
\newlength{\jjgtmplength}
%    \end{macrocode}
%    \begin{macrocode}
\newlength\jb@width \settowidth{\jb@width}{\normalfont(d)}
\newdimen\jb@tmpdima
\newlength\jb@tmplength
\providecommand\PBS[1]{\let\jb@temp=\\#1\let\\=\jb@temp}
\def\makelink#1{%
\ifcase\thejjgdriver
\leavevmode\pdfstartlink attr {/Border [0 0 0 ]} user {/Subtype /Link
    /A << /S /JavaScript /JS (qbrespond\(#1,\the\rownum,\the\colnum\))
    /Next << /S /GoTo /D (GameBoard) >> >> }\Hy@colorlink{\@linkcolor}%
\makebox[\jb@width]{\normalfont(\hfil\alph{newletter}\hfil)\hfill}\close@pdflink
\or
\makebox[\jb@width]%
   {\Rect{\normalfont(\hfil\alph{newletter}\hfil)\hfill}\literalps@out{%
    [ /Subtype /Link /Rect [pdf@llx pdf@lly pdf@urx pdf@ury]
      /Border [ 0 0 0 ]
      /Action << /S /JavaScript /JS (qbrespond\(#1,\the\rownum,\the\colnum\))
      /Next << /S /GoTo /D (GameBoard) >> >>
/ANN pdfmark}}%
\or
\@pdfm@mark{bann
<<
    /Border [0 0 0 ]
    /Subtype /Link
    /A << /S /JavaScript /JS (qbrespond\(#1,\the\rownum,\the\colnum\))
    /Next << /S /GoTo /D (GameBoard) >> >>
>>}\Hy@colorlink{\@linkcolor}%
   \makebox[\jb@width]{\normalfont(\hfil\alph{newletter}\hfil)\hfill}\hyper@linkend
\fi}

\def\Question@list{\begin{list}{}%
{\usecounter{newletter}
   \let\Ans=\JJ@Ans@list
   \settowidth{\jb@tmplength}{\normalfont(d)}%
   \settowidth{\labelwidth}{\normalfont(d)\enspace}%
   \setlength{\parsep}{0pt}\setlength{\itemindent}{0pt}%
   \setlength{\listparindent}{\parindent}%
   \setlength{\leftmargin}{\labelwidth}%
   \setlength{\labelsep}{0pt}%
}\Ans}%
\def\JJ@Ans@list#1{\stepcounter{newletter}\item[\makelink{#1}\hfill]}%

\def\Question@tabular{%
   \setcounter{newletter}{0}%
   \let\Ans=\JJ@Ans@tabular
   \jb@tmpdima=\linewidth \divide\jb@tmpdima by\jb@numCols
   \vskip\partopsep
   \noindent\normalbaselines\tabcolsep=0pt
   \begin{tabular}{*{\jb@numCols}{p{\jb@tmpdima}}}%
\Ans}
\def\JJ@Ans@tabular#1{\leavevmode\stepcounter{newletter}%
  \PBS\raggedright
  \settowidth{\jb@tmplength}{\normalfont(d)\enspace}%
  \hangindent=\jb@tmplength\hangafter=1%
  \makelink{#1}\enspace\ignorespaces
}
%    \end{macrocode}
%    \begin{environment}{oAnswer}
% If \textsf{exerquiz} is input, then you can pose fill in questions. Enclose
% the standard exerquiz filli in commands \cs{RespBoxMath} and \cs{RespBoxTxt}
%    \begin{macrocode}
\newenvironment{oAnswer}
{%
    \gdef\oField{{oQ\the\rownum\the\colnum}}%
    \gdef\curr@quiz{{oQ\the\rownum\the\colnum}}%
    \def\currQuiz{{oQ\the\rownum\the\colnum}}%
    \let\@qzsolndest=\@empty
    \stepcounter{questionno}%
    \let\eqQuizType=s\gdef\eqPTs{1}\global\let\eqQT=\eq@na%
    \let\solution=\solution@sq
    \let\endsolution=\endsolution@sq
    \global\let\Ans=\Question@list
    \gdef\endQuestion{\endgroup\newpage}%

}{}
%    \end{macrocode}
%    \end{environment}
% We need to redefine the action of \cs{RespBoxMath} and \cs{RespBoxTxt} so they behave like you
% would expect with \texttt{jj\_game}.
%    \begin{macrocode}
\def\JJ@@RespBoxMathActions
{%
    \AA{\AAKeystroke{if(event.willCommit) {\r\t
            var retn = \processJSfunc(\rbArgs,\compareJSfunc);\r
            if ( retn != null ) {\r\t
                qbrespond(retn,\the\rownum,\the\colnum)\r\t
                this.gotoNamedDest("GameBoard");\r
            }
        }}%
        \AAFormat{\eqFormatArg}%
        \AAOnFocus{\JS{var retn = null;}}%
    }
}

\def\JJ@@RespBoxTxtActions
{%
    \AA{\AAKeystroke{if(event.willCommit) {\r\t
        retn = ProcRespTxt(\rbTxtAlt);\r
        if ( retn != null ) {\r\t
            qbrespond(retn,\the\rownum,\the\colnum)\r\t
            this.gotoNamedDest("GameBoard");\r
        }
    }}%
    \AAOnFocus{\JS{var retn = null;}}
    }%
}
\def\redefineRespBoxActions{%
    \let\@@RespBoxMathActions\JJ@@RespBoxMathActions
        \let\@@RespBoxTxtActions\JJ@@RespBoxTxtActions}
%    \end{macrocode}
%    \begin{macro}{\gameboardPrintButton}
%    \begin{macro}{\printButtonCaption}
%    \begin{macro}{\printButtonLabel}
%    \begin{macro}{\contestentNameLabel}
%    \begin{macro}{\timestampLabel}
% We define a button to print the game board page, and a lot of
% helper commands that allow the author to this button field.
%    \begin{macrocode}
\newcommand{\printButtonCaption}[1]{\def\jj@printButtonCaption{#1}}
\printButtonCaption{Print}
\newcommand{\printButtonLabel}[1]{\def\jj@printButtonLabel{#1}}
\printButtonLabel{Print this page:}
\newcommand{\contestentNameLabel}[1]{\def\jjg@contestentNameLabel{#1}}
\contestentNameLabel{Student:}
\newcommand{\timestampLabel}[1]{\def\jjg@timestampLabel{#1}}
\timestampLabel{Time stamp:}
\newcommand{\gameboardPrintButton}[1][]
{%
    \jj@printButtonLabel\space\pushButton[\CA{\jj@printButtonCaption}
    \A{\JS{%
        var pp = this.getPrintParams();\r
        pp.firstPage=this.pageNum;\r
        pp.lastPage=this.pageNum;\r
        pp.pageHandling = pp.constants.handling.shrink;\r
        var fv = pp.constants.flagValues;\r
        pp.flags |= (fv.suppressCenter | fv.suppressRotate);\r
        this.print(pp);}}#1]{printit}{}{11bp}\quad
        \jjg@contestentNameLabel\space\textField[\BC{}\Ff\FfReadOnly]{jjContestantNameprint}{1.5in}{11bp}\\[1ex]
        \jjg@timestampLabel\space\textField[\BC{}\Ff\FfReadOnly]{timestamp}{1.5in}{11bp}%
}%
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{\contestantName}
% A convenience macro that can be used to enter the contestant's name.
%    \begin{macrocode}
\newcommand{\contestantName}[3][\BC{}\AA{\AAKeystroke{%
    if ( event.willCommit ) {\r\t
        var f = this.getField("jjContestantNameprint");\r\t
        if ( f != null ) f.value = event.value;\r
    }
    }}]{\textField[#1]{jjContestantName}{#2}{#3}}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\timeStampFormat}
% The format for the time stamp. The format is that of the formatting string for the
% Acrobat JavaScript method \texttt{util.printd()}.
%    \begin{macrocode}
\newcommand{\timeStampFormat}[1]{\def\jjTimeStampFormat{#1}}
\timeStampFormat{mm-dd-yy, H:MM:ss.}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}
\AtBeginDocument{\redefineRespBoxActions}
%    \end{macrocode}
%    \begin{macro}{\enterNamePlease}
% When the forcredit option is used, an alert box opens when the contestant
% did not sign in. This is the message presented on that box.
%    \begin{macrocode}
\newcommand{\enterNamePlease}[1]{\def\jjEnterNamePlease{#1}}
\enterNamePlease{Please, enter your name on the first
    page before you begin the game!}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\defineInstructionPageGraphic}
%    \begin{macro}{\defineGameboardPageGraphic}
%    \begin{macro}{\defineQuestionPagesGraphic}
% Convenience commands for inserting graphics backgrounds on the instructions page,
% the game board page and on the question pages. The single parameter is the basename
% of a graphic file supported by the driver.
%    \begin{macrocode}
\let\jjInstructionPageBG\relax
\let\jjGameBoardPageBG\relax
\let\jjQuestionPagesBG\relax
\newcommand{\defineInstructionPageGraphic}[1]{\def\jjInstructionPageBG{#1}}
\newcommand{\defineGameboardPageGraphic}[1]{\def\jjGameBoardPageBG{#1}}
\newcommand{\defineQuestionPagesGraphic}[1]{\def\jjQuestionPagesBG{#1}}
\newcommand{\instructionPageTemplate}{%
    \@ifundefined{jjInstructionPageBG}{}{%
    \edef\expand@templatename{\noexpand\template{\jjInstructionPageBG}}%
        \expand@templatename}}
\newcommand{\gameboardPageTemplate}{%
    \@ifundefined{jjGameBoardPageBG}{}{%
    \edef\expand@templatename{\noexpand\template{\jjGameBoardPageBG}}%
        \expand@templatename}}
\newcommand{\questionPagesTemplate}{%
    \@ifundefined{jjQuestionPagesBG}{}{%
    \edef\expand@templatename{\noexpand\template{\jjQuestionPagesBG}}%
        \expand@templatename}}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{\illegalAccessMsg}
%    \begin{macro}{\illegalAnswerTwiceMsg}
% Messages that appear in alert boxes when contestant acts illegally.
%    \begin{macrocode}
\newcommand{\illegalAccessMsg}[1]{\def\jjIllegalAccessMsg{#1}}
\illegalAccessMsg{You are peeking at this question. Choose a question from the game board first! You may want to start the game over now!}
\newcommand{\illegalAnswerTwiceMsg}[1]{\def\jjIllegalAnswerTwiceMsg{#1}}
\illegalAnswerTwiceMsg{Changing your answer is not allowed!}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
% \section{JavaScript Support}
%    \begin{macrocode}
\begin{insDLJS*}[qbrespond]{jjgdljs}
\begin{newsegment}{JJG: JavaScript to Control Jeopardy}
function qbrespond(ans,row,col)
{
    if ( eval("typeof pushCell"+row+col) == "undefined") {
        app.alert("\jjIllegalAccessMsg");
        return null;
    }
    var Total = this.getField("Total");
    var p = numQuestions*(col-1)+row-1;
    if (QAed.charAt(p)==0)
    {
        QAed = QAed.substring(0,p)+1+QAed.substring(p+1,totalQuestions);
        if (ans==1)
        {
            this.getField(""+row+col+'R').hidden=false;
            Total.value += \scaleFactor*row*100;
            app.alert(aCM[nCM],3);
            if (++nCM > 6) nCM=0;
        }
        else
        {
            this.getField(""+row+col+'W').hidden=false;
            var f = this.getField(""+row+col)
            Total.value -= \scaleFactor*row*100;
            app.alert(aEM[nEM],3);
            if (++nEM > 6) nEM=0;
        }
        if ((++NumQAed>=totalQuestions) && (Total.value>=Goal))
            this.getField("GrandPoohbah").hidden=false;}
    else
        app.alert("\jjIllegalAnswerTwiceMsg");
}
var tsfield = this.getField("timestamp");
if ( tsfield != null )
    tsfield.value = util.printd("\jjTimeStampFormat", new Date());
function makeNameReadOnly()
{
    var f = this.getField("jjContestantName");
    if ( (f != null) && !f.readonly ) f.readonly=true;
}
\end{newsegment}
\begin{newsegment}{JJG: Global Variables}
var numQuestions = \the\numQuestions;
var numCategories = \the\numCategories;
var Goal = \Goal;
var totalQuestions = numQuestions * numCategories;
var QAed = "";
for (var i=0; i< totalQuestions; i++) QAed +="0";
var nEM = 0;
var nCM = 0;
var NumQAed = 0;
\end{newsegment}
\begin{JJLangEnglish}
\begin{newsegment}{JJG: Arrays for Jeopardy for English}
var aCM = new Array
(
    "That's Right!  Way to go, Kiddo!",
    "Wonderfully Done! Congrats!",
    "Very Good! Keep up the good work!",
    "Good, good, good, good!",
    "Gee, you're smart! Try a harder one!",
    "You're pretty sharp! Continuez, s'il vous pla\356t!",
    "You're the tops! But wait...try another."
)
var aEM = new Array
(
    "That's wrong! Sorry. Try Again.",
    "Error again.  Don't guess, I'm watching!",
    "Please!  Please!  Work it out first!",
    "An error has insinuated itself into your calculations.\n"
   +"Recalibrate your thinking!",
    "Bah! Humbug!  You're haunted by Errors!",
    "Try again.  This time with order and method.",
    "Wrong again!  Use your little gray cells!"
)
\end{newsegment}
\end{JJLangEnglish}
\begin{JJLangGerman}
\begin{newsegment}{JJG: Arrays for Jeopardy for German}
var aCM = new Array
(
    "Richtig!  So ist's recht!",
    "Gut gemacht! Gratuliere!",
    "Sehr gut! Weiter so!",
    "Gut, gut, gut, gut!",
    "Du bist sehr clever! Jetzt versuch mal eine Schwierigere!",
    "Jawoll! Continuez, s'il vous pla\356t!",
    "Spitze! Auf geht's, zu einer weiteren Aufgabe!"
)
var aEM = new Array
(
    "Leider falsch!",
    "Schon wieder falsch!  Nicht raten!",
    "Bitte denk erst nach bevor Du auf die Antwort klickst!",
    "Ein Fehler hat sich eingeschlichen. Erst denken, dann ...!",
    "Ohje! So ein Quatsch!",
    "Versuch's nochmal.  Es ist noch nicht aller Tage Abend.",
    "Schon wieder falsch!  Nutz Deine kleine grauen Zellen!"
)
\end{newsegment}
\end{JJLangGerman}
\begin{JJForCredit}
\begin{newsegment}{JJG: JS to support forcredit}
var noNameError, fname;
function forCreditClosePage()
{
    fname = this.getField("jjContestantName");
    if ( fname != null ) {
        var JJjsCode = "if ( fname.value.replace(/\s*/g, '') == '' ) {"
            + " if ( typeof closingJJ == 'undefined' ) {"
            + " app.alert({cMsg: '\jjEnterNamePlease', cTitle: 'AcroTeX eDucation Bundle'});"
            + " this.pageNum = 0;"
            + " } } else { fname.readonly = true; }";
        noNameError = app.setTimeOut(JJjsCode, 15);
    }
}
\end{newsegment}
\end{JJForCredit}
\end{insDLJS*}
%    \end{macrocode}
%    \begin{macrocode}
%</package>
%<*jjgpro>
\def\noPrintLayer#1{%
    \literalps@out{/Print [/Print] [(xb.#1)] AddASEvent}%
    \literalps@out{(xb.#1) << /Print<< /PrintState/OFF >> >> SetOCGUsage}%
}
\def\bJJGInsertLayer{\xBld{q\the\rownum\the\colnum}}
\def\eJJGInsertLayer{\eBld\noPrintLayer{q\the\rownum\the\colnum}}
\def\jjAdditionalJSActions{/Next <<\JS{%
    if ( typeof pushCell\the\rownum\the\colnum\space!= "undefined")
        {var o = getxBld("q\the\rownum\the\colnum"); o.state=true;}}>>}
\begin{execJS}{lockocgs}
var o = this.getOCGs();
for (var i = 0; i < o.length; i++)
    o[i].locked = true;
\end{execJS}
%</jjgpro>
%<*jjsecurity>
\begin{willClose}
var closingJJ = true;
\end{willClose}
\begin{addJSToPageClose}
forCreditClosePage();
\end{addJSToPageClose}
%</jjsecurity>
%<*package>
%</package>
%    \end{macrocode}
%  \Finale
\endinput