trivia-1976-1977/trivia/9005143/marc/tvdefs.18

<BLOAT 40000 1 2 1000>

<USE "CALSYM">

<USE-DEFER "TIMFCN" "CALRDR" "BUF" "TTY">

<SETG LOWQUES 1>

<SETG LOMAIL 2>

<SETG LUSERS 3>

<SETG HIQLOC 4>

<SETG HIQNUM 5>

<SETG HIMAIL 6>

<SETG TOTSCR 7>

<SETG 1STCAT 7>

"No MANIACS available lower than this"

<SETG HIPOFFSET 23>

<SETG SHOUTMSG 24>

<SETG SIMPLE-LIST 25>

<SETG LBLEN 12>

<SETG QNEXT 0>

<SETG ANEXT 1>

<SETG ALAST 2>

<SETG SCORE 3>

<SETG LASTIN 4>

<SETG LASTGRD 5>

<SETG QASKED 6>

<SETG MNEXT 7>

<SETG MLAST 8>

<SETG ANNEXT 9>

<SETG TAILOR 10>

<SETG AQUES 1>

<SETG ATYPE 2>

<SETG AAUTH 3>

<SETG ARESP 4>

<SETG ASEEN 5>

<SETG AHNUM 6>

<SETG AHVAL 7>

<SETG $TLOSE 1>

<SETG $TLONG 2>

<SETG $TMATCH 3>

<SETG $TMC 4>

<SETG $TTF 5>

<SETG $TQUIT 6>

<SETG $TSIMPLE 7>

<SETG $TCOAUTH 8>

<SETG $TRANK 9>

<SETG QQNUM 1>

<SETG QCAT 2>

<SETG QTYPE 3>

<SETG QAUTH 4>

<SETG QVAL 5>

<SETG QSCORE 6>

<SETG QCOAUTH 7>

<SETG QMUMBLE 8>

<SETG QQUES 8>

<SETG NCAT 15>

<SETG ACOM 1>

<SETG PWTERM <STRING <ASCII 13> <ASCII 27>>>

<SETG PEEK-PAGE 299>

<GDECL (PEEK-PAGE) FIX>

<SETG BABBLE-HIQ 3>

<SETG BABBLE-START 679>

<SETG PEEK-START 7>

<SETG TELEC-START 343>

<SETG $SGRADE 0>

<SETG $SASK 1>

<SETG $SBABBLE 2>

<SETG $SREAD 3>

<SETG $SMAKE 4>

<SETG $SPEEK 5>

<SETG $SWAKE 6>

<SETG $SPSCORE 7>

<SETG $SCOM 8>

<SETG $SUPDATE 9>

<SETG $SSTATUS 10>

<SETG $SFLUSH 11>

<SETG $SERROR 12>

<SETG $SHOUT 13>

"Offsets into tailor vector"
<SETG SEQ-WORD 1>

<SETG SWITCH-WORD 2>

<SETG TECO-WORD 3>

<SETG SEQUENCE #WORD *450124000000*>

<SETG DEBUGNAME <CHTYPE #WORD *444542654700* TIME>>

<SETG SEQ-BITS
      ![<BITS 4 32>
	<BITS 4 28>
	<BITS 4 24>
	<BITS 4 20>
	<BITS 4 16>
	<BITS 4 12>
	<BITS 4 8>
	<BITS 4 4>
	<BITS 4 0>!]>

<GDECL (SEQ-BITS) <UVECTOR [9 BITS]>
       (PLAYER) TIME (SPLAYER) STRING
       (LOSSTABLE) <LIST [REST TIME STRING FIX FIX]>>

<MANIFEST HIQUES
	  BABBLE-HIQ
	  BABBLE-START
	  TELEC-START
	  PEEK-START
	  $SUPDATE
	  $SSTATUS
	  $SFLUSH
	  $SERROR
	  $SGRADE
	  $SCOM
	  $SASK
	  $SPSCORE
	  $SBABBLE
	  $SREAD
	  $SMAKE
	  $SPEEK
	  $SWAKE
	  $SHOUT
	  SEQ-WORD
	  SWITCH-WORD
	  TECO-WORD
	  QASKED
	  LUSERS
	  TOTSCR
	  1STCAT
	  HIPOFFSET
	  SHOUTMSG
	  SIMPLE-LIST
	  QQNUM
	  QCAT
	  QTYPE
	  QAUTH
	  QPLAY
	  QSCORE
	  QBLETCH
	  QMUMBLE
	  QQUES
	  NCAT
	  LOQUES
	  LOMAIL
	  HIMAIL
	  HIQLOC
	  HIQNUM
	  QNEXT
	  ANEXT
	  ALAST
	  SCORE
	  LASTIN
	  LASTGRD
	  AQUES
	  ATYPE
	  AAUTH
	  ARESP
	  ACOM
	  $TMATCH
	  $TTF
	  $TMC
	  $TLONG
	  $TSIMPLE
	  $TQUIT
	  $TRANK
	  LBLEN
	  DEBUGNAME>