IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Triv.$.!Triv
StoreCSD
DIR <Obey$Dir>
SET From$Desk 1

RMEnsure WFS 0 RMLOAD ADFFS:trackers.WFS
SYSTEMSIZE 24K
SCREENSIZE 160K
FONTSIZE   40K
SPRITESIZE 207K

| Trivial Pursuit uses Trinity Medium only
| and does not at present work with the outline fonts
Set Triv$Fonts <Font$Prefix>
Set Font$Prefix $.*FONTS

| Trivial Pursuit Configuration

|  0 = OFF
| -1 = ON or any number upto 60 (secs) for Timer

SETEVAL Sound -1
SETEVAL Timer 0
SETEVAL TextQuestions -1
SETEVAL GraphicsQuestions -1
SETEVAL MusicQuestions -1
SETEVAL TP -1

WimpSlot -min 300K -max 300K
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
ECHO <22><12>
BASIC -quit <Obey$Dir>.!TRIVPROG
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
Unset Sound
Unset Timer
Unset TextQuestions
Unset GraphicsQuestions
Unset MusicQuestions
Unset TP
Unset From$Desk
Set Font$Prefix <Triv$Fonts>
Unset Triv$Fonts
RMKill WFS
RestoreCSD