Content - d90f1ae77250e38fc42c30c712c290769efbeb8d - 16b648b/trivia/9005183/taa/ar2.tv

ar2.tv
ørAð9ð«òjýõáð@(`@@ò@0 @`ð @ @  `@h8ð@p `@xðÀÁ@ @8 @@84$ò@@P@$@(@(@(@&b`@X@ a@@@Põ@ð10L p@$A`@@@&&b`@@@&
&bñÀÁððð@ @@P HG",:`(óâ+rx4,)BG",:`]
M`ò¢â+k8=+yBO.b+sm+yBO]
M`óâ3òjù´í+yBú/²!"DA{òjÝ`w+9B[&C@ðJáïòjÖmW+/~ü¥)a"DóóÀ#;VK+Bü¥)aO
M`@`$L½$IBü¥)a]
M`4@G#;V\+qBüóºe"X`òfN|*Xüóºe]
M`d`y+xý2§ja2bòjâk,IBiK0O3,Pð+¢+p#+qBiK0[\\@ð{áwòjpNï,9BiZY`"Y(Hat+ R*+yBk;.92,xa)8j)YBk;.92]
M`Ha#òj\u9)9B[fððU/ð0x
ð×0ðBðX½}ð5Xkðû7C('sð01ðçðYðððîðððð!ð#ð%ð'ð)ð+ð-ð/ð1ð3ð5ð7ð9ð;ð=ð? ðA!ðC"ðE#ðG$ðI%ðK&ðM'ðO(ðQ)ðS*ðU+ðW,ðY-ð[.ð]/ð_0ða1ðc2ðe3ðg4ði5ðk6ðm7ðo8ðq9ðs:ðu;ðw<ðy=ð{>ð}?ð@ðAðBðCðDðEðFðGðHðIðJðKðLðMðNðOðPð¡Qð£Rð¥Sð§Tð©Uð«VðWð¯Xð±Yð³Zðµ[ð·\ð¹]ð»^ð½_ð¿`ðÁaðÃbðÅcðÇ =.
END START Y $C (!.TVGUTS !.TVCRFT !.TVFROB)>
<GROUP-GLUE MCC>
<GROUP-DUMP "MARC;TVHACK GBIN" MCC ,PRINT>
 $0xð!g,6h/öèM-Rô¸õÁûõ¸	õ g.&õõô¸õÁûõ¸
õõøõ,6õøô° D`òè4_ö0õ`4Sòè4_ð`ðçøè(Á§ùqb-ùaËAôàÐ Aðg,6Hõ¤,6Hõ¤,h+/Zxõ´],6ô,6h/,6h/,6h/ð*Y,$i+h.ô ô° H`ô8õÇÙô° `,$iõ`Óhôô0î,S*!5ö1Z
(ö1Z
( _XD4DôÿÿZö´ô<@+hGö1XJõå´Óõ`4ûõ¯ÿçõ¯ÿçô,>hh  EõÔQõç´Í _ï|XDô¯ÿ÷ _ï|ô¯ÿÿ DXõ`4ß2H_ï}õ`4ß hjö0õ`4µ XZ 
_ï|XF( 
_ï~Z
(XJZ _ï~XDõ`4!"4DhfZ*bh[ _ï{ö1Zö1ô2F_ïr+hfõ¯ÿçõ¯ÿç _ïzZô,>hh  EõÔQõç´Í _ï|XDõ`4õ¯ÿçõ¯ÿç"_ïqõõ _ïyZôõ´Õ  EõÔQõç´Í _ï|XD _ï|Zôô/ÿý B_ _ï{7d_ïz B_ï~Z5Fh| hjöõ`4 hiöõ`4õ¯ÿçõ¯ÿç"_ïqõ,6 _ïqZôõ´Õ  EõÔQõç´Í _ïs+he B_ï|*õ`4yô8
õÇÙ pô8,%ô8
õÇÙô¯ÿõ _ï{,$iô8
õÇÙõ¤S+h4$hö9+hô8
õÇÙ pô8,%ô8
õÇÙô¯ÿõ _ï{,$iô8
õÇÙ p	ô8,%ô8
õÇÙô X,$iô8
õÇÙ p
ô8,%ô8
õÇÙõ¤S/hk+hõå´×6 _ï{õ`4mõ,6hfõ,6hfõ,6hf _ï| $ö1Z B_ï~öèM hl B_ FX5Fh$ö1Zõõô,>hh  EõÔQõç´Íõå´Ù+h8ô B_5hh4Z
5Jh-7@_ï~õ`1Ra_ï~ö1Zõõô,>hh  EõÔQõç´Í+h#7@_ï~õ`1Ra_ï~ö1Zõõô,>hh  EõÔQõç´Í X F_Z F_ï~õ@ _+h _ö1Zô¸õÀûô @ô6 _ï{õ`4·õ,6hfõ,6hfõ,6hf _ï} $ö1Z B_ï~öèM hl B_ FX5FhIö1Zõõô,>hh  EõÔQõç´Íõå´Ù+h]ô B_5hhYZ
5JhR7@_ï~õ`1Ra_ï~ö1Zõõô,>hh  EõÔQõç´Í+hH7@_ï~õ`1Ra_ï~ö1Zõõô,>hh  EõÔQõç´Í X F_Z F_ï~õ@ _+hA Xö1Zô¸õÀûô @ôô¸õÀû,6õô¸õÀû,6õ ",= /hmô+að$4($4 ð(ô/ÿýpô/ÿÿ (P0î ûlP¥ø´êÌ©ôâEù"ø3*ÅEôkEúé yúµ¢Ã©ùô[¥ø´ê ù6.¾Aø4ìÌ«ù¨O¥ôjOô Ì§ø¯ ø4¥úQb K÷,ÐõµÐA§û3*ÍAúÑaÔúO%yù3ªE¥ùÐf-¥úuaRAøjA[øÒgDAöOO«úäAôªîëþyr Óþv GôHIéü»P#Eôuçü¹"AôH:iÛü¼×"Aô¯)GùðÐUù4ê ©÷È¼¥øó'ÃAøÓ$Ó©ô]A3DAd/P|`føR]ÀeþõÉC,n	A/P9ððÁ(BI@tE@øRXÆÍþH0BM;tR ðD(BI)ugÿdýðð8ð`ð'BM*zþØ	E3ZxÿQDU	hdð\õ(,ðð¯EM7xR*ðpÇî0zðW GWBF|w<ps(@.ððP»hðøO.ðxoDðd0THD!/LOðpøw¾³hh=ðäC[g'3þñ8ðdeøìü×p`ðx#ð+1@5`7ðÀs(M(hðPÝpyp!ðLU1<P>PFðtPVðôËCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yú¢Ó«ùGú±P!·ö±o÷6oö,¶mö¨³kö1cö¨°oöîZ0eö2m÷
²a÷-Ð2m÷
¶kö1qöl¸gö8Aö,Ú¸sö9oôX9iöì¹qö±k÷
¶i÷1qöl7eön[9Aö,°kö.X°kô
Y0cô6köÐ1möl¶kö.8Aõ¬Ú8q÷Y2q÷±gö,6mö
Z0Aö-Ø¸a÷,Ú1i÷¶iö-1aöMP1gö·qöl möîµgöÍ1qöMY¶oöí[8Aö-Ú³eö²i÷3o÷³iöP4eöÚ°iôY8qö®Z°iöÍ0Aöî4iön¾}ôE
÷âÔôjÖcô*Öøu'ÒAôuçÒô
0aö0aö0U÷Ï
ñ¢Gø°æ Qø5k1Sô*Öøu'ÒA÷)IúhEAúóéD}÷Ï
ñ¢SúÐMúRÖÆ¥ø±P'=,6Hõ¤,6Hõ¤,h+/Zxõõ´qöèM-R,6põ¸Bpõ,6Bp _ô(.$õ,6ô8
õÁûõõõøö©1_/D"h9úx õõ´qöèM-R4&hô8õå´s+h7ø)ÿÿ F_ _ï}4fQ&õÁöÿÿõ`1ôÿÿ BX5Bh _ _ï}4dQ$õÁöÿÿõ`1ùðÿÿõ`4aö¨´E,6p	õ¸õ¯ÿûõ¯ÿûðÐ=õ`4aô8õÇÙ pô8,%ô8õÇÙô¯ÿý _,$iô8õÇÙ pô8,%ô8õÇÙô¯ÿÿ X,$iô8õÇÙ pîô8,%ô8õÇÙõ¤Sõ¸õ¯ÿûõ¯ÿûõ¯ÿûõø.h:ö©1_/D"h9úx +hõå´uô'+a$4 08VînûlMúRÖÆ¥ø±P#ø°æ QôU Ì«ø¨A©ùóP<«úÑaÔúH-ÒúuFû_ ñØ/õõ´Åõõ´Å p	ô/ÿûô8 @_ï~ô¸õÀûõ¸õô¸õÀûõõô¸õÀûõõô8,HN+hô¸õÀû ô4&hõ,6hcõø! ô8õÁû Bôõ¸#õöèM-Rõ¯ÿùõ¯ÿùõø% _ï}ô(õÉõ,6õ¯ÿûõ¯ÿûõø'ö©1_/Dòè´Çúx ,6põ¸) F_ï{BFcõ¯ÿÿõ¯ÿÿõø+õ¯ÿÿõ¯ÿÿõ¯ÿõõ¯ÿõõõ´Åõø-ô¸/õÁû Bôõ,6hdõ,6õ¯ÿõõ¯ÿõ D_ïxFp,6põ¸1Bpõ,6Bpõ¯ÿõõ¯ÿõõ¯ÿ÷õ¯ÿ÷Dpõõ´ÅöèM-R _ï}ö°´}/hbõ`4§ö1Zö1Zö1ô,6õ F_Bpõ¯ÿÿõ¯ÿÿõ¯ÿñõ¯ÿñDp XõÈõõõ¯ÿñõ¯ÿñõ¯ÿóõ¯ÿóFp Xô83õÁûõÀõõõ¯ÿñõ¯ÿñõ¯ÿóõ¯ÿóFp _ï} $ö1Z=dhQ B_ï}õ`4wôô¼ïõÔQô  B*fhVôòø4Éõ,6õõ´Åõ,6heõ¯ÿïõ¯ÿï ",/tõ¯ÿõõ¯ÿõõ¯ÿ÷õ¯ÿ÷õ¯ÿïõ¯ÿïFpõå´Ëô+a$4 $4ðpðð
ñl¦WûlG«ùÕiÅôâEù"ø3*ÅEôkEúé Eùô*IùÐf"A÷é úæ ø3)Å}õ(&Á¥ùkaÈù3S©úU'ØAútçAø¨&Á¥ùkhùdÎAù°iK[ú°¦Oùh(RúufTAú¼¥øó'ÃAú Ó§ô K÷,ÐõµÐA§û3*ÍAúÑaÔúO%yúQæOô'Ó§úaLô K÷£Ìøh"Uö(*>Aù³áY§úaÅAô¯)GùðÐMøViÐøqPT}ô	^IúiNùiS«øTAù3¢ c÷È¼©û4"¯ôèAø¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH ÌùðÖÍú¾Aô¯$Î©ø´§Aõ´©ÕúH#Å©õ³'ÃAöOMøVP%yù3ªE¥ùÐf-¥úuaRAø4¢Óú¾Aô¯$Î©ø´§Aõ´©ÕúH É«úÑaÔúH¾Aô¯)GùðÐM«úÈ*>AôS`Òú(%yúQæOôgE±ú*>»DAd/P|`bBO#Bu~@]E3ZxzEUøuâZ]þó¼©øl)exl0*BF|w<þÄKp@ð£D!/LO
 Høw¾³ð4=@øQüãy	`C,n	A/P xLøìü×þðDðd%ð¤30.;ððh±ðÌµCL$þx÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøõgU§ø±Gú±P!·öÛ¹cöL5oô\5iö
Ø±cö-3eöm6oö [ö-·qöY´iö²sö6eölÛ eö4iöÛ7Aõ¬Ù¸eöLÙ6oö5eö0Aö-8aö
²Aö,Z0qöX4cô
9i÷-¶aö c÷(6eö-[¡»÷Ï
ñ¢SúÐMúRÖÃø2g Oðh Að/,6Hõ¤,6Hõ¤,6Hõ¤,h+/ZxöèM-RöèM-Rõ¸õ¯ÿÿõõ¯ÿùõø	 D_ï~5Dhô8õ`4' _4dQ$õÁöÿÿõ`1ôÿÿõÈ _ï~ _4dQ$õÁöÿÿõ`1ôÿÿõ`4/hô'+a08Vî-ûlMúRÖÃø2g GøaÌAõ«Aú±Q úæ ù6<«úÑaÔúH-ÒúuFû_ úvfUõ(¼©û4"¯ôiÙú³PVøu'Ò}ô	^IúiNùiS«øTDúVÒø1+ e÷È*]ADAd/P|`BF|w<ps(BF|w(prpøìü×pHD!/LOðhøw¾³h`CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yù°iK[ør ÉôæUôm´c÷-X7kô
Û¸iöÌ2eö³iöL[·e÷7qöÍ0Cû¯ ñCE<§øµ# ø4¥£õ°äAùÈA3,6Hõ¤,6Hõ¤,h+/Zxõ,6h/õ,6h/ô¸õÀûõõô¸	õÀûõ¸õõø
õ,6öèM-RöèM-Rõ¸õ¯ÿ÷õ¯ÿûõ¯ÿûõø D_ö±4#ô8õ`4[õ¸õ¯ÿ÷õ¯ÿûõ¯ÿûõ¯ÿûõ¯ÿûõø
õ,6õø D_ï}õÁ4_ö©1ô _ _ï{4dQ$õÁöÿÿõ`1ôÿÿõÉ _ _ï{4dQ$.öÿÿõ`1ôÿÿ B_ï~5Bh& _ï} ô h0ö2ö+h&+h4bQ".öÿÿõ`1ôÿÿõÉ _ï~4bQ".öÿÿõ`1ôÿÿ+hõå´aô'+aPô`ñ+ûlMúRÖÑ[ør ÉôâEù"ø3*ÅEôjOô*Öøu'ÒAût¢Ó©ô¤Ø»÷È Ó³ùf©Aô¯)GùðÐLúôjÅ§ô K÷£Ìøh(Ó¡ø0â ©÷È¼©û4"¯ôèAø¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH Òúqj c÷È¼©û4"¯ôiÙú³PVøu'Ò}ô	^IúiNùiS«øTDúVÒø1+ e÷È* K÷gTúS Ì[úTêÂ¥ô Ôõ°iEø¾»ðDAd/P|`/BF|w(prpðôM(BF|w<psðàAðDYD!/LO
 Pøw¾³ð4HC,n	Aðè
øìü×pPhCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yù°iK[ú+aÈù3Gú±P!·öÍÙ¹söìØ cöN5m÷,Z±cô
X±gö4AöM[ cöm1oöì0AöLZ7i÷Û4qö²iöNZ!»÷Ï
ñ¢SúÐMúRÖÕùáËAôàÐ Að',6Hõ¤,6Hõ¤,h+/Zx,6põ¸öèM-Rõ¯ÿÿõ¯ÿÿõ,6hõõ´! _ï{õè _ï|4"Q".öÿÿõ`1õõ ",/t/hô+a08VûlMúRÖÕùáËAôq"Ãô
Vùb¢Aúµ¢Ã©ùôFûUø°êO¥ôéE§ú#I±û¯ CûlP1Aö( côP1Aö( côP1Cû·P AîDAd/P|`BO#Bþ¿ BF|w<þÄBF|w(þ¸øìü×pîxD!/LOðøw¾³hCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yù°iK[ú°¦Oùh#Ì«ø¨Ûoö,1a÷,4a÷-5eö´Cû¯ ñCE<§øµ# ¡úQiÕúAðß,6Hõ¤,6Hõ¤,6Hõ¤,h+/Zxõ,6hfõ,6hfõ,6hfõ,6hfô,<'õ,6õ,6hfô,<'õ,6öèM-Rõõ¯ÿñõ¸	õ¯ÿñDpõ,6hfõõ¯ÿï X5"hô4Í.@Xõ,6öèM-R:_ï{6DXõ`4	õ¸	õ¯ÿíõ¯ÿóõ¯ÿóõø_
õñ&hgúx  H_ïy5(h!ø*ÿÿ _ï} F_ïz H_ïy+h% 
_ï|_/Dòè´Ïúxô F_ïy J_ïz7 _ïx+h-õ¯ÿõõ¯ÿõ _ïyö1Zô,>hh  EõÔQõç´Í _ïzö1XDõ`4û _ïzö1Zö±4gõ¯ÿõõ¯ÿõ"_ïxõõ ",<' _ïz+h,õ,6hfõ,6hfõ,6hfõ,6hfõ,6hf"_ïvõ,6hfõ,6hf B_ï| B_ï~ F_ï}öèMð(4Ñ D_ï{ô H_ïz3H_ïr7j_ïrõ`4¥ hiö0õ`4Ra_ï| 
_`!, BD (<OR <MEMQ <- .FOO 3> ,LOSSTABLE>
			      <MEMQ <- .FOO 6> ,LOSSTABLE>>)
		         (<PRINC "
Non-referenced object #">
		 	  <PRIN1 .FOO>)>)>>
	.V>
    ,NULL> BL!,ñ¢U§ø«jO©ø3"úvfUôO
ñ¢U§ø¨Mø`ÎE÷ÈñO#Lø1"úLTø.éÓø3b øRg"}ôE
÷âÔôêÎ«úqb Oðh AðÑô	52h,6Hõ¤.hb42hûøõÿÿ."h,+ð4
ð4/Zxõõ´Åõõ´ÅLðÑúvfUõ()Ô¥ð/ðO³
		 <PRINC " times.">
		 <CRLF>)>
	  <SET Q <DATA-FIND .DC .FOO>>
	  <SET FOO <CHTYPE <3 .Q> FIX>>>>

<DEFINE LISTU ("OPTIONAL" (DC ,TVASS) (SP ,ASPACE)
	       "AUX" (ALL <* 1024 <ALLOCPAGE .DC>>) HI V)
    #DECL ((DC) ASYLUM (ALL HI) FIX (V) UVECTOR (SP) SPACE)
    <SET HI <CHTYPE <1 <GET-LOC <+ .ALL ,HIGHID> ,DUV1>> FIX>>
    <SET V <AIUVECTOR ,MOBYSPACE .HI 0>>
    <REPEAT ((VEC .V) (N 1) FX)
	#DECL ((VEC) UVECTOR (N FX) FIX)
	<SET FX <CHTYPE <DATA-READW .DC .N> FIX>>
	<COND (<AND <G? .FX 0> <L? .FX .HI>>
	       <PUT .VEC .FX 1>)>
	<AND <==? .N .HI> <RETURN>>
	<SET N <+ .N 1>>>
    <MAPR <>
	<FUNCTION (X "AUX" FOO)
	    #DECL ((X) UVECTOR (FOO) FIX)
	    <COND (<1? <1 .X>>)
		  (<DATA-AREAD .DC <SET FOO <- <LENGTH .V> <LENGTH .X> -1>>
			 <ARESET .SP>>
		   <CON>S	  .NL <- <LENGTH .NL> 1>> .TLIST>
				 <RETURN>)
				(T <PUTREST .OLD (.CT !.NL)> <SET WON1 .OLD>)>)
			 (<==? .TEMP .FCT>
			  <COND (.WON1
				 <PUTREST .OLD <REST .WON1>>
				 <PUTREST .WON1 <REST .LASTM>>
				 <PUTREST .LASTM <REST .NL>>
				 <RETURN>)
				(<AND <NOT <LENGTH? .NL 1>>
				      <==? <2 .NL> .POINT>>
				 <PUTREST .OLD (.CT !<REST .NL>)>
				 <RETURN>)
				(T
				 <PUTREST .OLD (.CT <- .POINT> !<REST .NL>)>
				 <SET WON2 <REST .OLD>>)>)>
		   <SET OLD .NL>
		   <COND (<L=? .TEMP 0> <SET LASTM .NL>)>
		   <COND (<EMPTY? <SET NL <REST .NL>>>
			  <AND <NOT .WON1>
			       <NOT .WON2>
			       <PUTREST .CLIST
					(.CT <- .POINT> !<REST .CLIST>)>>
			  <RETURN>)>>)>
	 <PRINC "Unused item #">
	 <PRINC .CT>
	 <CRLF>)
	(<L? .X 0>)
	(<G? .X 1>
	 <PRINC "Item #">
	 <PRINC .CT>
	 <PRINC " used ">
	 <PRINC .X>
	 <PRINC " times.">
	 <CRLF>)>>
    .UV>
   <SETG ULIST
	 <COND (.ENABLE
		<REPEAT (TEMP (OLD .ULIST) (NLIST ()) (UL .ULIST)
			 (NL <REST .ULIST>))
			#DECL ((NLIST) <LIST [REST <LIST [REST FIX]>]>
			       (UL NL) <LIST [REST FIX]> (TEMP) FIX)
			<COND (<EMPTY? .NL>
			       <SET NLIST (<REST .UL> !.NLIST)>
			       <RETURN .NLIST>)
			      (<L=? <SET TEMP <1 .NL>> 0>
			       <COND (<EMPTY? <REST .NL>>
				      <PUTREST .OLD ()>
				      <SET NLIST (<REST .UL> !.NLIST)>
				      <RETURN .NLIST>)
				     (T
				      <PUTREST .OLD ()>
				      <SET NLIST (<REST .UL> !.NLIST)>
				      <SET UL .NL>)>)>
			<SET OLD .NL>
			<SET NL <REST .NL>>>)
	       (T <REST .ULIST>)>>
   <SETG FLIST
	 <COND (.ENABLE
		<REPEAT (TEMP (OLD .FLIST) (NLIST ()) (UL .FLIST)
			 (NL <REST .FLIST>))
			#DECL ((NLIST) <LIST [REST <LIST [REST FIX]>]>
			       (UL NL) <LIST [REST FIX]> (TEMP) FIX)
			<COND (<EMPTY? .NL>
			       <SET NLIST (<REST .UL> !.NLIST)>
			       <RETURN .NLIST>)
			      (<L=? <SET TEMP <1 .NL>> 0>
			       <COND (<EMPTY? <REST .NL>>
				      <PUTREST .OLD ()>
				      <SET NLIST (<REST .UL> !.NLIST)>
				      <RETURN .NLIST>)
				     (T
				      <PUTREST .OLD ()>
				      <SET NLIST (<REST .UL> !.NLIST)>
				      <SET UL .NL>)>)>
			<SET OLD .NL>
			<SET NL <REST .NL>>>)
	       (T <REST .FLIST>)>>
   <UVECTOR ,ULIST ,FLIST>>


<SETG AUV1 <UVECTOR #WORD *0*>>
<GDECL (AUV1) <UVECTOR <PRIMTYPE WORD>>>

<DEFINE MARK-FREE (UV DC "AUX" FOO)
  #DECL ((UV) <UVECTOR [REST FIX]> (DC) ASYLUM (FOO) FIX)
  <SSNAME <STRTOX "MARKF">>
  <SET FOO <CHTYPE <1 <GET-LOC <+ ,IDCHAIN <* 1024 <ALLOCPAGE .DC>>>
			       ,AUV1>>
		   FIX>>
  <REPEAT (TEMP Q) #DECL ((TEMP) FIX (Q) <UVECTOR [REST <PRIMTYPE WORD>]>)
	  <AND <G=? .FOO 0> <RETURN>>
	  <SET FOO <CHTYPE <ANDB .FOO #WORD *000000777777*> FIX>>
	  <COND (<0? <SET TEMP <NTH .UV .FOO>>>
		 <PUT .UV .FOO -1>)
		(<L? .TEMP 0>
		 <ERROR CIRCULAR-FREE-CHAIN .FOO>)
		(T
		 <PRINC "Free item #">
		 <PRINC .FOO>
		 <PRINC " used ">
		 <PRINC .TEMP>î	 *92BA h0$xõõ ö©4Gô4a.@ ô0ô @`öèM-R h1öõ`4Aô¸ô'õ`4Cô ",6õ:x+hõ2!/AINT ,MONTHS
	,6BIT ,SWIðGð0TCH-TABLE ,BIT-TABLE ,SEQ-SYMS ,MAKETYPES ,ORDERS ,OPTBL ,RCOMS
	,MAKERS ,ASKERS ,MREADERS ,READERS ,SPECS ,ONSYMS ,BYSYMS ,TOBRKS ,DBRKS
	,PATCH>
<KILL:PURITY>
<FLUSH-CLEð!>

.MLLIT==1
A=1
7Cð/F ,Mð0Wð!DB	M,!>`	BLOCK	2

START:	MOVE	P,[-30,,PDL-1]
	.OPEN	TTYCHN,[SIXBIT /  !TTY/]
	 .LOSE	1000
	.SUSET	[.RXUNAME,,XUNAME]
	LDB	A,[063600,,XUNAME]
	CAME	A,[SIXBIT / GUEST/]
	 CAMN	A,[SIXBIT / LUSER/]
	  JRST	LOSNAM
	CAMN	A,[SIXBIT / CHEAT/]
	 JRST	LOSNAM
	LDB	A,[063000,,A]
	CAMN	A,[SIXBIT /  TRIV/]
	 JRST	LOSNAM
	HLRZ	A,XUNAME
	CAIN	A,777777
	 JRST	LOGIN
	.CALL	DEATH
	 JRST	CKUSER
	.CALL	[SETZ				; GET FILE LENGTH IN A
		 SIXBIT /FILLEN/
		 MOVEI	DSKCHN
		 SETZM	A]
	 JRST	FAKMSG
	CAIN	A,
	 JRST	FAKMSG
	MOVE	B,BUFPTR
	.IOT	DSKCHN,B
	.CLOSE	DSKCHN,
	MOVE	B,[440700,,BUF]
MSGDTH:	PUSHJ	P,OUTMSG
MSGEND:	CAME	XUNAME,[SIXBIT /TAA/]
	 CAMN	XUNAME,[SIXBIT /MARC/]
	  JRST	WIN
	.BREAK	16,140000
FAKMSG:	MOVE	B,[440700,,MSG]
	JRST	MSGDTH

CKUSER:	.CALL	DIROPN				; REAL PERSON?
	 JRST	CKTIME				; NOPE
	.CALL	MSGOPN				; REALLY A REAL PERSON?
	 JRST	LOSNAM
	.ðXBñ{7gCLOSE	DSKCHN,

WIN:	MOVE	B,[440700,,STMSG]
	PUSHJ	P,OUTMSG
	.CALL	SAVOPN
	 .VALUE	[ASCIZ /: No SAVE file?

/]
	.IOT	SAVCHN,[-1,,A]
	MOVSI	B,SIXBIT /   MUD/
	ILDB	C,VBPTR
	SUBI	C,40
	DPB	C,VSBPTR
	ILDB	C,VBPTR
	SUBI	C,40
	IDPB	C,VSBPTR
	.ACCES	SAVCHN,[0]

	.CALL	MUDOPN
	 .VALUE	[ASCIZ /: No TS MUDDLE ?

/]
	MOVSI 17,STUFF
	BLT 17,17
	JRST 1

LOSNAM:	MOVE	B,[440700,,NAMMSG]
	PUSHJ	P,OUTMSG
	MOVE	B,[440600,,XUNAME]
	MOVE	C,[440700,,SXUNAM]
SIXLOP:	ILDB	A,B
	JUMPE	A,SIXTOO
	ADDI	A,40
	IDPB	A,C
	JRST	SIXLOP
SIXTOO:	MOVE	B,[440700,,SXUNAM]
	PUSHJ	P,OUTMSG
	MOVE	B,[440700,,NAMEND]
	PUSHJ	P,OUTMSG
	.BREAK	16,160000

LOGIN:	MOVE	B,[440700,,LOGMSG]
	PUSHJ	P,OUTMSG
	.BREAK	16,160000

OFFHOR:	MOVE	B,[440700,,OFFMSG]
	PUSHJ	P,OUTMSG
	.BREAK	16,160000

CKTIME:	.RYEAR	A,
	 LDB	A,[320300,,A]			; IS IT A WEEKEND?
	JUMPE	A,CURFCK
	CAIN	A,6
	 JRST	CURFCK
	.RTIME	A,
	LDB	A,[301400,,A]			; IS IT OFFICE HOURS?
	CAIGE	A,'22
	 CAIGE	A,'09
	  JRST	CURFCK
	.RDATE	A,
	.CALL	HOLOPN				; IS IT A HOLIDAY?
	 JRST	FLUSH

CURFCK:	.CALL	CURFEW
	 JRST	WIN
	.CLOSE	DSKCHN,
	MOVE	B,[440700,,CURMSG]
	PUSHJ	P,OUTMSG
	.BREAK	16,160000

FLUSH:	.CALL	BADBOY
	 JRST	NEWBAD
	.CALL	RFDATE
	 JFCL
	.CALL	RQDATE
	 JFCL	
	.CALL	SFDATE
	 JFCL
	.CLOSE	DSKCHN,
	HLRZ	A,TIME				; DID THE TURKEY TRY <1/2 HR AGO?
	HLRZ	B,NOW
	CAME	A,B
	 JRST	OFFHOR
	SUB	NOW,TIME
	CAIGE	NOW,2400.
	 JRST	LOGOUT
	JRST	OFFHOR

NEWBAD:	.CALL	MAKBAD
	 .LOSE	1000
	.CLOSE	DSKCHN,
	JRST	OFFHOR

LOGOUT:	.VALUE	[ASCIZ /:You don't believe me, eh?  That makes me MAD!!!
:LOGOUT
/]
	.BREAK	16,160000

OUTMSG:	PUSH	P,A			; GIVEN BYTE POINTER, PRINT FROB OUT
	PUSH	P,C
	PUSH	P,B
	MOVEI	C,
OUTLOP:	ILDB	A,B			; LIKES BYTE POINTER TO FROB IN B
	CAIE	A,0
	 CAIN	A,3
	  JRST	OUTEND
	AOJA	C,OUTLOP
OUTEND:	POP	P,B			; GET BYTE POINTER IN B, COUNT IS IN C
	.CALL	[SETZ
		 SIXBIT	/SIOT/
		 MOVEI	TTYCHN
		 B
		 SETZ	C]
	 .LOSE	1000
	POP	P,C
	POP	P,A
	POPJ	P,

DEATH:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	[SIXBIT /TRIVIA/]
	[SIXBIT /DEATH/]
	SETZ	MSGDIR

DIROPN:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	[SIXBIT /.FILE./]
	[SIXBIT /(DIR)/]
	SETZ	XUNAME

MSGOPN:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	MSGDIR
	XUNAME
	SETZ	XUNAME

MUDOPN:	SETZ
	SIXBIT /OPEN/
	MOVSI	4
	MOVEI	MUDCHN
	DSKDEV
	[SIXBIT /TS/]
	B
	SETZ [SIXBIT /SYS1/]

SAVOPN:	SETZ
	SIXBIT /OPEN/
	MOVSI	6
	MOVEI	SAVCHN
	DSKDEV
	[SIXBIT /TRV/]
	[SIXBIT /SAVFIL/]
	SETZ [SIXBIT /MADMAN/]

HOLOPN:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	[SIXBIT /HLIDAY/]
	A
	SETZ [SIXBIT /COMBAT/]

CURFEW:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	[SIXBIT /TRIVIA/]
	[SIXBIT /CURFEW/]
	SETZ MSGDIR

BADBOY:	SETZ
	SIXBIT /OPEN/
	MOVSI	.BII
	MOVEI	DSKCHN
	DSKDEV
	BADNAM
	XUNAME
	SETZ	BADDIR

RFDATE:	SETZ
	SIXBIT /RFDATE/
	MOVEI	DSKCHN
	SETZM	TIME

RQDATE:	SETZ
	SIXBIT /RQDATE/
	SETZM	NOW

SFDATE:	SETZ
	SIXBIT /SFDATE/
	MOVEI	DSKCHN
	SETZ	NOW

MAKBAD:	SETZ
	SIXBIT /OPEN/
	MOVSI	1
	MOVEI	DSKCHN
	DSKDEV
	BADNAM
	XUNAME
	SETZ	BADDIR

STUFF:	OFFSET -.
	2
	.CALL LOAD
	.VALUE
	.IOT MUDCHN,A
	.CLOSE MUDCHN,
	ADDI	A,1
	JRST @A

LOAD:	SETZ
	SIXBIT /LOAD/
	1000,,-1
	SETZI MUDCHN

	OFFSET 0

MSG:	ASCIZ	/
TRIVIA is down for repairs.  Sigh.
/
OFFMSG:	ASCIZ	/
TRIVIA is not available during office hours (9 AM to 10 PM, Eastern time.)
/
NAMMSG:	ASCIZ	/
Losers with the name /
NAMEND:	ASCIZ	/ cannot play TRIVIA!
/
LOGMSG:	ASCIZ	/
Losers who are not logged in cannot play TRIVIA!
/
CURMSG:	ASCIZ	/
The system is VERY loaded.  Please try again later.
/
STMSG:	ASCIZ	/
Documentation in MADMAN;TVñ{M pñ¢SúÐS§ùÐfÅAðh A,6Hõ¤,hõ`U/Zxô¯ÿÿ Xvhõå´+Kp@pñµgûlS§ùÐfÅAôq"Ãô
Vùb¢A÷)IúhEAúóéD}ô(Rùµ,ÐôçÒ÷Ên Aðð5CL$p(DAd/Py>÷ÈñO Î <ASSIGNED? GLUE> .GLUE <PUT ,útçAø¨#Ì«ø¨¡·ö,µaö¬´iô2cöÝ}÷ÈA p j
<TITLE SSNAME>
	<DECLARE ("VALUE" <PRIMTYPE WORD> <PRIMTYPE WORD>)>
	<DPUSH	TP* (AB)>
	<PUSHJ	P* OUT>
	<JRST	FINIS>

<INTERNAL-ENTRY OUT 1>
	<SUBM	M* (P)>
	<MOVE	A* -1(TP)>
	<MOVE	B* (TP)>
	<*SUSET	[<(*400016*) B>]>
	<SUB	TP* [<(2) 2>]>
	<JRST 	MPOPJ>
 j 8ûlCùÔÖÉ©ôâEù"ø3*ÅEôäAùÑf §ú¤Îô¤ØSô¨RùÕ!"»DAd/Pÿ°;øc¹ì×{JEh^{S8D!/LOð!høw¾³h`øìü×pPE3ZxÿQD0øuâZ]wNx(C$U@zuCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøsçS[ù5Gú±P!·öìX4cö iöÙ8göÈ³iöL[·göÍ1aöìÛ´c÷ köM9iô7_>Añ¢Eù³ëEAùaLúh ÎôáÏ¥ø´Ñ ñCE<§øµ# ú³£ùôé Oðh AZ,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,6Hõ¤,h+/Zxõ,6hSõ,6hSõ,6hSõ,6hSöèM-Rõ¸	õ¯ÿïõõ´§õ¸õ¯ÿñõø
õ,6õøõ,6Bp D_ï~ D_ï}öèM hTõ¸	õ¯ÿíõõ´©õø D_õé DXõ,6hSô¯ÿõ _ï{ _ï}ö1Zö1ôõéõµÕõ,6,6p	õ¸,>hUô¯ÿýðHç#HA-PRINTW .N .NSTART .NEW>
		       <SET NSTART .NEW>
		       <PUT .MARKV .OLD .NEW>)>>>

<DEFINE MUNG-GRADE-CHAIN (N D ASP SSP CINDEX NINDEX MARKV) 
	#DECL ((N D) ASYLUM (ASP SSP) SPACE (CINDEX NINDEX) FIX
	       (MARKV) <UVECTOR [REST FIX]>)
	<REPEAT ((OLD <+ .CINDEX ,ANEXT>) (NEW <+ .NINDEX ,ANEXT>)
		 (NSTART .NEW) CFROB)
		#DECL ((NSTART OLD NEW) FIX (CFROB) VECTOR)
		<COND (<0? <SET OLD <CHTYPE <DATA-READW .D .OLD> FIX>>>
		       <DATA-PRINTW .N .NEW 0>
		       <DATA-PRINTW .N <+ ,ALAST .NINDEX> .NEW>
		       <RETURN>)
		      (T
		       <SET CFROB <DATA-AREAD .D .OLD <ARESET .ASP>>>
		       <PUT .CFROB ,AQUES <NTH .MARKV <AQUES .CFROB>>>
		       <SET NEW <1 <DATA-APRINT .N -1 .ASP .CFROB>>>
		       <DATA-PRINTW .N .NSTART .NEW>
		       <SET NSTART .NEW>
		       <PUT .MARKV .OLD .NEW>)>>>

<DEFINE REVERSE (FOO "AUX" (TTE <REST .FOO>) (RETL ())) 
	#DECL ((FOO TTE RETL VALUE) LIST)
	<COND (<EMPTY? .TTE> .FOO)
	      (T
	       <REPEAT ()
		       <SET RETL <PUTREST .FOO .RETL>>
		       <COND (<EMPTY? <SET TTE <REST <SET FOO .TTE>>>>
			      <RETURN <PUTREST .FOO .RETL>>)>>)>>

#Hñmñ¢U§ø«jO©ø3"úvfUôO
ñ¢U§ø¨Mø`ÎEô©Ô¥ôO
ñ¢Fùðb Eø4:©ø0]Ó§ùÐfÅAùÐ¤ÎE÷ÈñO#Äøs(£út ÃôiÐøqPS§úaÅAù³áY§úaÅAùéÓ§úaÅSôèAø¨Tø4é©Aø4ìÌ«ù¯
ñ¢SúÐM«ùÑÐ'Fô	52h,6Hõ¤õÄ´w42hûøõÿÿõÈ´
,+hhh/Zxõ¸,6h<õ,6h<õ,6h<õ,6h<õ`49/Zx,6h<,6h<õ¸,6h<õ,6h<õ,6h<õ,6h<õ`45/Zx,6h<,6h<,6h<,6h<õ¸,6h<õ,6h<õ,6h<õ,6h< pô/ÿõô8 @_ï{ôô/ÿ÷   @_ï|ô¸õÀûõ¸õô¸õÀûõ¸õô¸õÀûõ¸õô¸!õÀûõ¸õô¸#õÀûõ¸õô8%,HN+h*ô¸'õÀûôõ`4[õõ´yõø)ô¸'õÁû Bôõ¸,6öèM-Rõ¯ÿõõ¯ÿõõø+õ¯ÿéõ¯ÿéõõ¯ÿéDpõ¯ÿéõ¯ÿéô8-,HN+h8ô¸/õÀûô õ,6õ,6h=õõ´{õø1ô¸/õÁû Bô D_ïwõ¯ÿíõ¯ÿíõ,6h>õø3&$ô¸5õÁû Bôõ¯ÿíõ¯ÿíô¸5õÀûõõõø7 D_ïzõ¯ÿóõ¯ÿóõø9 _ïwô	ô_õñòé´}ö+hO _ïz5$hO3Fõ`4¡õY4ô $+hQôôô
õ,6h?,6 _ï{ô(õÉõ,6õ,6h<ô,= õ,6õø;ö©1_/Dòè´úx  F_ïxõ¯ÿÿõ¯ÿÿõ¯ÿíõ¯ÿíõ,6h<õø= D_ïyõ¯ÿíõ¯ÿíõ,6h@õø?õ,6h<õ¯ÿïõ¯ÿï,6p õ¸A _ö¨´åô4.@_õõ _5"hrô4.@_õõöèM-R Xö¨1 _ö©1  @/hA+hgõå´wõå´,6p!õ¸CBpõ,6Bpõ¯ÿíõ¯ÿíõ¯ÿóõ¯ÿóõ¯ÿùõ¯ÿùõøEõ,6õ¯ÿõõ¯ÿõõøEõ,6õ¯ÿïõ¯ÿïõøEõ,6õ¯ÿçõ¯ÿçLpô¸GõÁû Bô,6p$õ¸IBpõ,6Bpõ¯ÿíõ¯ÿíõõ´{õ¯ÿñõ¯ÿñõõ´{õøKõ,6õøMõ¯ÿíõ¯ÿíõ,6h=õ¯ÿñõ¯ÿñõ,6h=õøKõ,6õøMõ,6h<ô BXöèM-Rõ¯ÿëõ¯ÿëõ¯ÿýõ¯ÿýõ¯ÿïõ¯ÿïõ¯ÿùõ¯ÿùõøKõ,6õøM:X1b+hõå´wõ¯ÿíõ¯ÿíõ,6hBõ¯ÿñõ¯ÿñõ,6hBõøKõ,6õøM,6p'õ¸OBpõ,6Bpõ¯ÿíõ¯ÿíõ¯ÿóõ¯ÿóõ¯ÿ÷õ¯ÿ÷õ¯ÿóõ¯ÿóõ¯ÿéõ¯ÿéJp,6p(õ¸QBpõ,6Bpõ¯ÿíõ¯ÿíõ¯ÿóõ¯ÿóõ¯ÿóõ¯ÿóõ¯ÿóõ¯ÿóõ¯ÿéõ¯ÿéJpõ¯ÿíõ¯ÿíõ¯ÿóõ¯ÿóõ¯ÿõõ¯ÿõõ¯ÿõõ¯ÿõõ¯ÿéõ¯ÿéJp	ô8Sõå´ô'+aððB$4ð$4 ðð 0ð@DhJ ûlM«ùÑÐ#ø°æ QôU Ì«ø¨A©ùóP"ú$Ïø3 §ú¤Îô¤ØSôçÎ§õ²j §úªO±ôéÎù±PM«ùÑÖÌútÐM«ùÑÖÁùÓêÎø¨&Õøëh ú³£ú´âÒ§ô	^T³úV×Aø4ìÌ«ù¨+Eúé>AôS`Äø3Ôô¢×Eô	^Rùá ©úÐiÓAú%yúQæOôiÐøqPT}ô	^T³úV×Aút Ãô¢Ã©ùô K÷£Ìøh Ó¡ø0â ©÷È¼¥øó'ÃAútèAø¨*>Aô¯)GùðÐLútéÐøqPT}ôgÂ³út Ãô	^Rùá ùð¬Ó¡ø0â ©÷È¼ùÕ"Òø3Ò§ú°© øÒgDAö/%yù3ªE¥ùÐf-¥úuaRAø3&Oõ³`ÐAö/NAô¯)GùðÐNAú%yù3ªE¥ùÐf-¥úuaRAùô"Î[øjA[øÒfEAö%yù3ªE¥ùÐf-¥úuaRAøjA[ø3&Oô K÷£Ìøh(EùkhAø¨*>Aô¯$Î©ø´§Aõ´©ÕúH"I¥ù°h e÷È¼ùÕ"Òø3Ò§ú°© ù4Éù51}ô	^IúiNùiS«øTGúfOô K÷gTúS Ì[úTêÂ¥ôdÕø°êO¥ôß K÷gTúS Ì[úTêÂ¥ô Ôõ´¢ÓúU¢ e÷ÈÛcô3Aö mô
Ð8A÷(°Aö,P1eôY cöµAö-1oô\ c÷(0AöLP2eô eö5AöM2oô7P"ú³£ÌôH¼ùÕ"Òø3Ò§ú°© úQiÅ©ô_ K÷£Ìøh&O§úu Âø¨*>AôT¢ÓúU K÷gTúS Ì[úTêÂ¥ô Ôõ´¢Áúè>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+hRùÕ+ g÷ÈAùÓêÎEô¦ÕøôQ µùô¥ÝADAd/Pÿ°wBF|w<þÄµîppøR]Àeþõ±BI1Z8þØ8§D!/LOð_î`øw¾³h/ðl)øQüãÿ"pOXC,n	Aðè;ðüCðKðHYð¸y E øìü×p	 ppðØUðsðÔXJ	xQð¥
`Wcð$ÓðdðLð|%ðôA0CL$þx÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgGAøó*ÅAô6Ú3o÷,Y0sö1qölÜ°eö.³AöÚ¹aö®[¶aô¸s÷,Ú5sôY·iöLÛ¹kö
1e÷0i÷-Ø³Aõ¬[±o÷
³möl7oö-Ú¶qöì [ö-Ø·könZ°m÷6qöÛ4qöh6qöÛ²i÷°göX1oö, eöL8A÷
\°oöL[¹eôX·cölÛ6qöl iöl5eö9Aõ¬[3köíÜ5mö-cöÌÛ9gö-\1eô[°iöíÚ8mö-cöíØ8gö¬Z8mô
0qö göÈ6eö- köM°eô7_>Añ¢yúqjGAøsçS[ù5'ðE,6Hõ¤,6Hõ¤,h+/Zx,6põ¸õ¯ÿûõ¯ÿûð×Sõ,6 "ô¼ïõÔQõ,6 _ï~ô¼ïõÔQ X ö©´ BõY´ôòø4;õ,6öèM-Rõ,6hõ¯ÿýõ¯ÿý X5"hô4=.@Xõ,6öèM-Rõ¯ÿÿõ¯ÿÿõ¯ÿóõ¯ÿóðÝ7/hõ`4%õå´?õ¯ÿûõ¯ÿûðÜ¡/h  +a$4ð P
M8+,rTA-APRINT .N
		  <+ ,NINDEX ,TAILOR>
		  .SSP
		  <DATA-AREAD .D <+ .CINDEX ,TAILOR> <ARESET .SSP T>>>
     <DATA-PRINTW .N
		  <+ .NINDEX ,QNEXT>
		  <NTH .MARKV
		       <CHTYPE <DATA-READW .D <+ .CINDEX ,QNEXT>> FIX>>>
     <DATA-PRINTW .N
		  <+ .NINDEX ,ANNEXT>
		  <NTH .MARKV
		       <CHTYPE <DATA-READW .D <+ .CINDEX ,ANNEXT>> FIX>>>
     <MUNG-MAIL-CHAIN .N
		 .D
		 .ASP
		 .SSP
		 .CINDEX
		 .NINDEX
		 .MARKV>
     <MUNG-GRADE-CHAIN .N
		 .D
		 .ASP
		 .SSP
		 .CINDEX
		 .NINDEX
		 .MARKV>
     <SET QASKED
	  <DATA-AREAD .D <+ .CINDEX ,QASKED> <ARESET .SSP>>>
     <MAPF <>
	   <FUNCTION (X) 
		   #DECL ((X) <LIST [REST FIX]>)
		   <COND (<EMPTY? .X>)
			 (T
			  <REPEAT ()
				  <PUT .X 1 <NTH .MARKV <1 .X>>>
				  <COND (<EMPTY? <SET X <REST .X 2>>>
					 <RETURN>)>>)>>
	   .QASKED>
     <DATA-APRINT .N <+ .NINDEX ,QASKED> .SSP .QASKED>
     <COND (<EMPTY? <SET LOSSTABLE <REST .LOSSTABLE 4>>>
	    <RETURN>)>>>

<DEFINE MUNG-MAIL-CHAIN (N D ASP SSP CINDEX NINDEX  MARKV) 
	#DECL ((N D) ASYLUM (ASP SSP) SPACE (CINDEX NINDEX) FIX
	       (MARKV) <UVECTOR [REST FIX]>)
	<REPEAT ((OLD <+ .CINDEX ,MNEXT>) (NEW <+ .NINDEX ,MNEXT>)
		 (NSTART .NEW) CFROB)
		#DECL ((NSTART OLD NEW) FIX (CFROB) VECTOR)
		<COND (<0? <SET OLD <CHTYPE <DATA-READW .D .OLD> FIX>>>
		       <DATA-PRINTW .N .NEW 0>
		       <DATA-PRINTW .N <+ ,MLAST .NINDEX> .NEW>
		       <RETURN>)
		      (T
		       <SET CFROB <DATA-AREAD .D .OLD <ARESET .ASP>>>
		       <SET NEW <1 <DATA-APRINT .N -1 .ASP .CFROB>>>
		       <DATr1
$<COND (<GASSIGNED? $TSIMPLE>)
      (T
       <SETG ATYPE 2>
       <SETG AQUES 1>
       <SETG QAUTH 4>
       <SETG QQNUM 1>
       <SETG ANEXT 1>
       <SETG MNEXT 7>
       <SETG HIQNUM 5>
       <MANIFEST ATYPE AQUES QAUTH QQNUM ANEXT MNEXT HIQNUM>
       <NEWTYPE SPACE VECTOR>
       <NEWTYPE ASYLUM VECTOR>)>

<FLOAD "AR2:TAA;SSNAME NBIN">
<SETG QNUMS <REST <IUVECTOR 100 0> 100>>
<GDECL (QNUMS) <UVECTOR [REST FIX]>>
<DEFINE WINNING-ANSWER? (ANS PLAYER PROGRESS "AUX" TQUES (TVA ,TVASS) (TVS ,TVSPACE)
			 (QNUM <AQUES .ANS>) (QNUMS ,QNUMS))
  #DECL ((PLAYER) TIME (PROGRESS QNUM) FIX (TQUES) <VECTOR FIX FIX FIX TIME>
	 (ANS) <VECTOR FIX FIX TIME> (TVA) ASYLUM (TVS) SPACE
	 (QNUMS) <UVECTOR [REST FIX]>)
  <COND (<1? <ATYPE .ANS>>
	 <L=? <SET QNUM <QQNUM <DATA-AREAD .TVA .QNUM <ARESET .TVS>>>>
	      .PROGRESS>)
	(<MEMQ .QNUM .QNUMS>) 
	(<SET TQUES <DATA-AREAD .TVA <AQUES .ANS> <ARESET .TVS>>>
	 <COND (<==? <QAUTH .TQUES> .PLAYER>
		<PUT <SETG QNUMS <BACK .QNUMS>> 1 .QNUM>
		T)>)>>

<DEFINE ANS-CHAIN-CHECK (PLAYER IDX PROGRESS "AUX" (START <+ .IDX ,ANEXT>)
			 (TVA ,TVASS)(TVS ,QSPACE))
  #DECL ((PLAYER) TIME (IDX PROGRESS START) FIX (TVA) ASYLUM (TVS) SPACE)
  <SETG QNUMS <REST ,QNUMS <LENGTH ,QNUMS>>>
  <REPEAT (ANS NEXT) #DECL ((ANS) <OR FALSE VECTOR>)
    <COND (<0? <SET START <CHTYPE <DATA-READW .TVA .START> FIX>>>
	   <RETURN>)
	  (<SET ANS <DATA-AREAD .TVA .START <ARESET .TVS>>>
	   <COND (<WINNING-ANSWER? .ANS .PLAYER .PROGRESS>)
		 (T
		  <PRIN1 .START>
		  <PRINC "	">
		  <&1 .ANS>
		  <CRLF>)>)
	  (<PRINC "CAN'T READ ">
	   <PRIN1 .START>
	   <PRINC "  ">
	   <PRINC <NTH ,DATA-ERRORS <1 .ANS>>>
	   <CRLF>)>>>

<DEFINE SCHECK ("OPTIONAL" (CHECK? T) "AUX" (OUTCHAN <OPEN "PRINT" "TAA;CHECK OUTPUT">))
	#DECL ((CHECK?) <OR ATOM FALSE> (OUTCHAN) <SPECIAL CHANNEL>)
	<DO-CHECK .CHECK?>
	<CLOSE .OUTCHAN>
	ZORK>

<DEFINE DO-CHECK ("OPTIONAL" (CHECK? T) "AUX" (TVA ,TVASS))
  #DECL ((CHECK?) <OR ATOM FALSE> (TVA) ASYLUM)
  <REPEAT ((L ,LOSSTABLE) PROGRESS PLAYER IDX)
	  #DECL ((L) <LIST [REST TIME STRING FIX FIX]>
		 (PROGRESS) FIX (PLAYER) TIME (IDX) FIX)
    <SSNAME <SET PLAYER <1 .L>>>
    <SET IDX <3 .L>>
    <SET PROGRESS <GETLASTQ .IDX>>
    <6PRINC .PLAYER>
    <PRINC "	">
    <PRIN1 .PROGRESS>
    <PRINC "	">
    <PDSKDATE <DATA-READW .TVA <+ .IDX ,LASTIN>>>
    <CRLF>
    <COND (.CHECK?
	   <SCORE-CHECK .PLAYER .IDX>
	   <QASKED-CHECK .PLAYER .IDX>
	   <ANS-CHAIN-CHECK .PLAYER .IDX .PROGRESS>
	   <MAIL-CHAIN-CHECK .PLAYER .IDX>)>
    <COND (<EMPTY? <SET L <REST .L 4>>><RETURN>)>>>

<DEFINE SCORE-CHECK (PLAYER IDX "AUX" SCORE)
  #DECL ((PLAYER) TIME (IDX) FIX (SCORE) ANY)
  <COND (<SET SCORE <DATA-AREAD ,TVASS <+ .IDX ,SCORE> <ARESET ,SSPACE>>>
	 <COND (<AND <TYPE? .SCORE UVECTOR>
		     <==? <UTYPE .SCORE> UVECTOR>
		     <==? <LENGTH .SCORE> 15>>)
	       (<PRINC "SCORE">
		<PRINC "	">
		<PRINC .SCORE>)>)
	(<PRINC "SCORE">
	 <PRINC "	">
	 <PRINC .SCORE>)>>

<DEFINE QASKED-CHECK (PLAYER IDX "AUX" QASKED)
  #DECL ((PLAYER) TIME (IDX) FIX (QASKED) ANY)
  <COND (<SET QASKED <DATA-AREAD ,TVASS <+ .IDX ,QASKED> <ARESET ,SSPACE>>>
	 <COND (<AND <TYPE? .QASKED VECTOR>
		     <==? <LENGTH .QASKED> 15>
		     <MAPF ,AND?
			   <FUNCTION (X)
$ðUQúì §ús Íô¦Á¥ùq K÷£Ìøh Õö(*>Aô¯$Î©ø´§Aõ´©ÕúH#Å©õ³'ÃAöOTAøriC«ùi-úQbùdÎAùõjCø3"þYr Óþv GôH ëþyr EôtÓý¹y®Eô	^T³úV×Aø4ìÌ«ù¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+cIø>»DAd/Pÿ°qBI@þLaøRXÆÍX#p
			     <TYPE? .X LIST>>
			   .QASKED>>)
	       (<PRINC "QASKED">
		<PRINC "	">
		<PRINC .QASKED>)>)
	(<PRINC "QASKED">
	 <PRINC "	">
	 <PRINC .QASKED>)>>

<GDECL (TVASS) ASYLUM (TVSPACE1) SPACE>
<DEFINE MAIL-CHAIN-CHECK (PLAYER IDX "AUX" (PROGRESS #WORD *0*) (START <+ .IDX ,MNEXT>)
			  (TVA ,TVASS) (TVS ,QSPACE))
  #DECL ((PLAYER) TIME (IDX) FIX (PROGRESS) <OR WORD <FALSE WORD>>
	 (START) FIX (TVA) ASYLUM (TVS) SPACE)
  <REPEAT (MAIL NEXT) #DECL ((MAIL) <OR VECTOR FALSE>)
    <COND (<0? <SET START <CHTYPE <DATA-READW .TVA .START> FIX>>>
	   <RETURN>)
	  (<SET MAIL <DATA-AREAD .TVA .START <ARESET .TVS>>>
	   <COND (<SET PROGRESS <WINNING-MAIL? .MAIL .PROGRESS>>)
		 (T
		  <PRIN1 .START>
		  <PRINC "	">
		  <&1 .MAIL>
		  <CRLF>
		  <SET PROGRESS <1 .PROGRESS>>)>)
	  (<PRINC "CAN'T READ ">
	   <PRIN1 .START>
	   <PRINC "  ">
	   <PRINC <NTH ,DATA-ERRORS <1 .ANS>>>
	   <CRLF>)>>>

<DEFINE WINNING-MAIL? (MAIL PROGRESS "AUX" (TP <4 .MAIL>))
  #DECL ((MAIL) <VECTOR [4 ANY]> (PROGRESS) WORD (TP) ANY)
  <COND (<AND <TYPE? <3 .MAIL> TIME>
	      <TYPE? <4 .MAIL> WORD>
	      <TYPE? <1 .MAIL> STRING>
	      <G? <CHTYPE .TP FIX> <CHTYPE .PROGRESS FIX>>>
	 .PROGRESS)
	(T <CHTYPE (.TP) FALSE>)>>#p ñ¢CùÑ(yøðiÓøó¢Äô	*Sù´&E}õ(TA÷âÔôjY¡ø¨>A÷âÔôhÕúh¾A÷âÔô`Õ©ù>A÷âÔôhÎ«ù¨¾A÷âÔôgE±ú¾A÷âÔôgE±ú¾A÷âÔô$Ñú³P5}ô&Áù1¢Ó©ôjY¡ø¨ Ñ«ø´ÐQúµ$ £ú3ªÍAø3¢Ø©ôgE±ú$I£ùÕf¾A÷¢×©û4" §úaÅAúÑaÔúO<øµêY¡ø¨ Ó³ùf ø°êO¥÷Ê_ ñCE<ùàÄAôPi2uú`»§ús Íô¡IôO
ñ¢SúÐQú³i yúQiÔA÷jÖøu'ÒAö, a÷È°a÷Ï
ñ¢Gø°æ Qú3ªÍ§õ(Uø°êO¥ôéE§ú#I±û¯ ñCE<§øµ# ¯ù3§Iøë`Î§úñi?AôàÐ Að[,6Hõ¤,6Hõ¤,6Hõ¤,h+/Zxô¸õÀû,6õô¸
õÀû,6õ _ï|õõô8õÁûõõöèM-R _ïzô=Hhõ¯ÿùõ¯ÿùõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷Bpõ,6Fpô	õµÝô¯ÿý D_3d_ï|+h)ô $+h*ô¯ÿÿ X _5$h3H+h*dh+hô+h*õ¯ÿùõ¯ÿùõõõ¯ÿ÷õ¯ÿ÷Bpõ,6Fpô2F_ï{õ`4-ô¯ÿÿ Xô	,8ô¸õÁû Bôö©1 _ @ pô8/h++ap1Q9ûlWùÓ¤Îõ°gS¯ø´ GøaÌAõ«Aú±Q yùôA©ùóPFùâ yúµ¢Ã©ùô[¥ø´ê ù6.¾}ô+Eúé ù6Fû*Iø¯Tù±PFû
PA¥ø´âÔAøjA[ø4¢Áô	^Rùá ©úÐiÓAú%yúQæOô+S¡ø0â ©÷È¼¥øó'ÃAú3ªÍ§ô ©û¨ AðDAd/P|`+BF|w<ps(øRJ®ÝþàðKBI-^(þ×t)D!/LO
 îøw¾³ð4øìü×þ8ðä=C,n	AðèxhCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúògNùÑÖÁúuâÒôæUôm´g÷,[8aôÙ2cöM¸k÷1iöíÚ9sö
P2cöí³aö¬0A÷³m÷²Aöî4iön¾}ôE
÷âÔôgS[ør Éõ°äEùhAG,6Hõ¤,6Hõ¤,6Hõ¤,h+/Zx _õÈõõô¸õÀû,6õô¸õÀû,6õöèM-Rô¸õÀûô8õÁûûáôXôQ&.öÿÿõ`1ô¸õÀûô @ô,6hC,6hCöèM-Rõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷Dp D_ï}ö±45ô8õå´õ`4õ¯ÿûõ¯ÿûõ,6õ¯ÿùõ¯ÿùBpõ,6Fpô¯ÿÿ DX hDö0õ`4_õ,6,6õ¯ÿñõõ¯ÿóFp hDöõ`4)ô8õÇÙô¯ÿù _ï}õ¤Íô8õÇÙ pîô8,%õ¯ÿÿõ¯ÿÿBpô8õÇÙõ¤Sõ`4)ô8õÇÙ pô8,%ô8õÇÙô¯ÿù _ï}õ¤Íô8õÇÙ pô8,%ô¸!õÀûô  Xð¿Zö1ôõõ F_Bpõ¯ÿýõ¯ÿý D_ï}Bpô8õÇÙ pô8!,%ô8õÇÙô¯ÿû _ï~õ¤Íô8õÇÙ pô8!,%õ¯ÿ÷õ¯ÿ÷ _."õõõø#õ,6Bpô8õÇÙõ¤S6 _ï{õ`4sõ¯ÿýõ¯ÿýõ¯ÿýõ¯ÿýDpõ¯ÿýõ¯ÿýõ¯ÿýõ¯ÿýDpõ¯ÿýõ¯ÿýõ¯ÿýõ¯ÿýõ¯ÿ÷õ¯ÿ÷Fp	õ¯ÿýõ¯ÿýõ¯ÿýõ¯ÿýDp
 _ï} $ö1Z÷¹4u B_ï}ö°´}ô8õå´õ`4*õ`4'/hCô'+a(@ ðð
ñYP´åûlDõ°äEùhÄøs(EúÐfUôH Ôù¨O¡úgÎù<úH Ôù¨#Aúq_)AútçAø¨#Å©ùiÔ£ô
¨RùÐÐPúrâA©ø¨)ÃúQVÃø°å £ø4åÅõ°äEùh Î§õ°äAùËaÈørÐMù3Ãø2g-ùaËAú¼¥øó'ÃAú Ó§ô K÷,ÐõµÐA§û3*ÍAúÑaÔúO%yúQæOô'Ó§úaLô úµ!ÈùÈ	Eô	^IúiNùiS«øTDúVÒø1+ e÷×P ADAd/P|`ABI@þL[BI1Faþ4IBM;tR "pBI)ugÿdAðKPBF|w<ps0;øìü×þð|!ðàSD!/LO
 øw¾³ð4@C,n	A/P0CL$þx÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøÖÃø°å ùb Cûm·sö,7a÷(±göí7e÷.¹Aõ¬[±cöMÚ²cöN1göZ´cöí1g÷Xµgöî[4Aö,µqöX2iô¹qöl·mö1iöí3mö cö¨6eö-[¡»÷Ï
ñ¢SúÐSùô¢ùaËAôàÐ A",6Hõ¤,6Hõ¤,h+/Zxõ´=õ´=öèM-Rô¸õÁûõ¸	õ _ï~õÉõõô¸õÁûõ¸
õõøõ,6õøô¯ÿÿ DX hö0+h hö+hõÕïöQ8+h[Xöÿñ+h p
ô8õ`4;ô8õÇÙô¯ÿÿ X,$iõ`4;ô ô¯ÿÿ HXô8õÇÙô¯ÿÿ X,$iõå´?+aô0ñ³keûlSùô¢ùaËAôq"Ãô
Vùb¢Aø3¬ ©ù3b ù6 K÷£Ìøh*VútÐT}ô	^T³úV×Aø4ìÌ«ù¨+Eúé>Aô¯)GùðÐS§úaÅAú%yúhE[úè)ÐøqPVøu'Ò}ô	^IúiNùiS«øTA¥ø´âÔAö/%yù3ªE¥ùÐf-¥úuaRAøjA[ø4¢Áôß «úÑaÔúH* úµ!Èù×P ADAd/Pÿ°=øRXÆÍþH1XBI)ugx}H@øT1ßz^xøìü×p	C,n	Aðè
(D!/LOðøw¾³hCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúpçÒõ°äEùh#Ì«ø¨Ûm÷
²mö1göí³gö
Ú¶Aõ¬Y7köl3eö-cöì[3a÷,\¶qô
Y4e÷-Ý}÷ÈñO)Å©| ðªö1ôõµÝô ô¯ÿÿ HXô8õÇÙô¯ÿÿ X,$iô8õÇÙõ¤Sõ`4)õå´ô'+aô`ñFé¦ûlAúkaÈù3Ãø°å GøaÌAõ«Aú±Q úæ ©ù3b ù6Fû
PDúVÒø1+ úQiÅ©ô Ôõ°iEø+ÉùÒgG[ø3©×úOÐ&cô	^Rùá ©úÐiÓAú%yúQæOôiÐøqPT}ô	^Rùá £ùÕfÓAúTAùõjCø3"ôHCùÉê ¥ø°b Eô Eô	^Rùá ø5 úT§Ò§ô]ADAd/P|`CøRXÆÍþHBI-^(v]h;BI@tE/BM;tR , 7BI1Faþ4SHBI)ugx}H(ðT]3X>BF|w<ps D!/LOðXøw¾³hPC,n	AðèðLXøìü×p(ðI(CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yø3©ùdÎ[ør"ÃôæUôm´c÷-X7kô
Y´oöìÜ8AölÚµköN\0Aöm8gö
Ù eö²söM0Aõ¬³köm´mö
P-cönZ¸möÚ²aôY9m÷
Ü7söÎ7qöÍ0Cû¯ ñCE<§øµ# §ør"Ãô	Á Aô	52h,6Hõ¤õÄ´/42hûøõÿÿ."h,+ð4
ð4/Zx+h/Zx,6h,6h pô/ÿÿô8	 @Xõ´1õ¸,6põ¸
,6põ¸ð×Sõ,6,6põ¸õÅ£öèM-Rõ¯ÿùõ¯ÿùBpõ¯ÿýõ¯ÿýðÜ¡ô8/hõÆ'ô'+aðÿÿ@ðð
ñ³CÝûlSùaËAôq"Ãô
Vùb¢Aø5'ÍAôSèTùó ÌEô'ÒAø5'ÍAøÐfS÷ÊPDõ°äEùh* úµ!ÈùÈP¥ù3ª"AôU Áwør"ÃôêÔ¡úµ Qør Îø³ µùô¥ÝADAd/Pÿ°/øìü×pøµåÿ-øc¹ì×{JD!/LO
 øw¾³ð4#ETxZC$U@ÿ]LCL$þx÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúpäEùh#Ì«ø¨ÛiömÜ±eö
Ø9Aõ¬Y¸eö°köÌ2cöÌX±kö,Û cö¨6eö-[¡»÷Ï
ñ¢SúÐDõ°äEùhAFô	52h,6Hõ¤.hA42hûøõÿÿ."h,+ð4
ð4/Zx+h/Zxõ´õ´ pô/ÿÿô8 @Xô¸õÀûõ¸õöèM-Rõõ´õõ´,6õ´õõ´ô¸õÀûôöèM hBö1ô,6õ B_ï~ D_ï|Bp _ï}ö1Zö1ðªû+h/Zxõ´Åõ´Åð×ðùõ`4M[0Fïqõ`4Mõ,6,>h/ð!g!/öðçðõå´aòè4_ö+h.ô8õÇÙô° `BA`ð0WN" "PURITY">
<SNAME "MARðB$%B=2
YMD=3
M=4
D=5
RY=6
DOW=7
RET=8
LOC 100
START:	.CALL	FLUSH
	 JFCL
	.RDATE	YMD,
	Lð	A%L[141400,,YMD]
	LDB	D,[001400,,YMD]
	.RYEAR	RY,
	LDB	DOW,[320300,,RY]
	CAIE	M,'01
	 JRST	FOURTH
	CAIN	D,'01
	 JRST	WIN
	CAIE	DOW,1
	 JRST	KING
	CAIN	D,'02
	 JRST	WIN
KING:	CAIN	D,'15
	 JRST	WIN
	 .BREAK	16,160000
FOURTH:	CAIE	M,'07
	 JRST	VETRAN
	CAIN	D,'04
	 JRST	WIN
	CAIE	DOW,5
	 JRST	MON5TH
	CAIN	D,'03
	 JRST	WIN
	 .BREAK	16,160000
MON5TH:	CAIE	DOW,1
	 .BREAK	16,160000
	CAIN	D,'05
	 JRST	WIN
	 .BREAK	16,160000
VETRAN:	CAIE	M,'11
	 JRST	XMAS
	CAIN	D,'11
	 JRST	WIN
	 JRST	THANKS
XMAS:	CAIE	M,'12
	 JRST	ODD
	CAIN	D,'25
	 JRST	WIN
	CAIE	DOW,5
	 .BREAK	16,160000
	CAIN	D,'24
	 JRST	WIN
	CAIN	D,'31
	 JRST	WIN
	 .BREAK	16,160000
ODD:	CAIN	M,'02
	 JRST	MON3
	CAIN	M,'04
	 JRST	MON3
	CAIE	M,'05
	 JRST	LABOR
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'25
	 .BREAK	16,160000
	CAILE	D,'31
	 .BREAK	16,160000
	 JRST	WIN
LABOR:	CAIE	M,'09
	 JRST	COLUMB
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'01
	 .BREAK	16,160000
	CAILE	D,'07
	 .BREAK	16,160000
	 JRST	WIN
COLUMB:	CAIE	M,'10
	 JRST	THANKS
	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'08
	 .BREAK	16,160000
	CAILE	D,'14
	 .BREAK	16,160000
	 JRST	WIN
THANKS:	CAIE	M,'11
	 .BREAK	16,160000
	CAIE	DOW,4
	 .BREAK	16,160000
	CAIGE	D,'22
	 .BREAK	16,160000
	CAILE	D,'28
	 .BREAK	16,160000
WIN:	CAIE	DOW,6
	 CAIN	DOW,0
	 .BREAK	16,160000
	.CALL	MAKFIL
	 .LOSE	1000
	.CLOSE	1,
	.BREAK	16,160000	

MON3:	CAIE	DOW,1
	 .BREAK	16,160000
	CAIGE	D,'15
	 .BREAK	16,160000
	CAILE	D,'21
	 .BREAK	16,160000
	 JRST	WIN

FLUSH:	SETZ
	SIXBIT /DELETE/
	DNAME
	FNAME1
	[SIXBIT />/]
	SNAME
	SETZ

MAKFIL:	SETZ
	SIXBIT	/OPEN/
	MOVSI	1
	MOVEI	1
	DNAME
	FNAME1
	YMD
	SNAME
	SETZ

DNAME:	SIXBIT	/DSK/
FNAME1:	SIXBIT	/HLIDAY/
SNAME:	SIXBIT	/COMBAT/
END START%L%,úqjGAøPaBø«iÔúU6o÷/<§øµ# ùÑlTAö/<§øµ# §øséEAöo<§øµ# £ùÑlTAö<§øµ# ©ø³"Ã[úu Ò©ôÚ3}ô&Áù1¢Ó©ô$ÐøÑ©Å©ô"Åõ´êA¥ú!AøS"§úiTAø3¢Ø©ôáÏ¥ø¨(ÎûTùa§úiT}õ/
ñ¢SúÐCùÕ¢Ò©õ³'Ó§ô	Á Ap,hõ`U/Zxõp,6hgô¸õÀuõ¸õõpõ´Ïô¸!õÀuõ¸#õBpõ,6Fpõ,6Bpõ,6öèMõ kô¸õÀuõ¸õõp,6hh _ï~õ`4#ûÿÿüÿÿ*Bhûx&"õpõ B_ï|Fpõp,6hgõ¯ÿýõ¯ÿýõp,6hg,6p,6hgô¸%õÀuõpõô¸'õÀu,6õõpõ´Ñ "õtõ,6ô¸'õÀu,6õõp,6hi "õtõ,6õp,6hgöèMõ k _ïzô	öqZ÷¹4Qöqô _ïzZô _ï{ôõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷ D_ïz H_ï~Dp _ï}õÀ´Óö¨qûá/B hjö+q _ï| @ _ï}ô8õÁuõ¸õ _.$õp,6 B_ïwDp _ïyõÀ´Õö¨qûáõð hkö+q Dõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷Dp	õ¯ÿýõ¯ÿýõ¯ÿ÷õ¯ÿ÷Dp _ï}õ¯ÿÿõ¯ÿÿ B_ïxBp
 _ïyõÁ´Óö©qòê4×ûâõñ hl0@ +q Dõ¯ÿÿõ¯ÿÿ _ï|õÀ´ÙõpõDpõ¯ÿýõ¯ÿýõ¯ÿ÷õ¯ÿ÷Dp	 _ïz $öqZ÷¹4§ B_ïz5Bhaô8õÁuõ¸õõpõ´Ïô8!õÁuõ¸#õõ¯ÿéõ¯ÿéBpô¸)õÁu Bô,6õHp/hm+he _ï~.$:_ï{ _.( D_ï~ H_õ`4M@pîõå´Ûôp'+Kpðððð§ð$4$4ô$4( 's/FPAGE>>>)
      (T
       <SETG HIPOFFSET 23>
       <SETG PEEK-START 7>
       <SETG BABBLE-START 679>
       <SETG ANEXT 1>
       <SETG SCORE 3>
       <SETG QNEXT 0>
       <SETG TELEC-START 343>
       <MANIFEST HIPOFFSET PEEK-START BABBLE-START ANEXT SCORE QNEXT
		 TELEC-START>)>


<DEFINE CONVERT-LOSS ("AUX" HIDX
			    (NUTS
			     <REVERSE
			      <DATA-AREAD ,TVASS ,LUSERS <ARESET ,LOSSSPACE>>>))
	#DECL ((HIDX) FIX (NUTS) <LIST [REST FIX FIX STRING TIME]>)
	<DATA-PRINTW ,TVASS
		     ,HIPOFFSET
		     <SET HIDX </ <LENGTH .NUTS> 4>>>
	<REPEAT ((NNUTS .NUTS) (HIDX 0) PLAYER (TUV ,TUV)
		 (LOC <+ ,PG ,PEEK-START>) (LOC1 <+ ,PG ,BABBLE-START>) LUBLK)
		#DECL ((NNUTS) <LIST [REST FIX FIX STRING TIME]>
		       (HIDX LOC LOC1 LUBLK)  FIX
		       (TUV) <UVECTOR [REST <PRIMTYPE WORD>]> (PLAYER) TIME)
		<SET PLAYER <4 .NNUTS>>
		<SET LUBLK <2 .NNUTS>>
		<PUT .NNUTS 1 .HIDX>
		<GET-LOC .LOC .TUV>
		<PUT .TUV 2 <CHTYPE .PLAYER FIX>>
		<PUT .TUV 3 <CHTYPE <DATA-READW ,TVASS <+ .LUBLK ,LASTIN>> FIX>>
		<PUT-LOC .LOC .TUV>
		<GET-LOC .LOC1 .TUV>
		<PUT .TUV 2 <GETLASTQ .LUBLK>>
		<GET-TOTAL .LUBLK <REST .TUV 2>>
		<PUT-LOC .LOC1 .TUV>
		<COND (<EMPTY? <SET NNUTS <REST .NNUTS 4>>>
		       <DATA-APRINT ,TVASS
				    ,LUSERS
				    ,LOSSSPACE
				    <SETG LOSSTABLE <REVERSE .NUTS>>>
		       <RETURN>)
		      (T
		       <SET LOC <+ .LOC 4>>
		       <SET HIDX <+ .HIDX 1>>
		       <SET LOC1 <+ .LOC1 4>>)>>
	<NEW-TODO>>

<DEFINE GET-TOTAL (LUBLK UV
		   "AUX" (SCORED
			  <DATA-AREAD ,TVASS
				      <+ .LUBLK ,SCORE>
				      <ARESET ,ASPACE>>)
			 (TOTAL 0.000)
			 (POSS 0.000))
	#DECL ((LUBLK) FIX (UV) <UVECTOR [REST <PRIMTYPE WORD>]>
	       (SCORED) <UVECTOR [REST <UVECTOR [2 FLOAT]>]>
	       (TOTAL POSS) FLOAT)
	<MAPF <>
	      <FUNCTION (X) 
		      <SET TOTAL <+ <1 .X> .TOTAL>>
		      <SET POSS <+ <2 .X> .POSS>>>
	      .SCORED>
	<PUT .UV 1 <CHTYPE .TOTAL FIX>>
	<PUT .UV 2 <CHTYPE .POSS FIX>>>

<DEFINE FLUSH-PLAYER (PLAYER "AUX" (LOSSTABLE <DATA-AREAD ,TVASS 3 <ARESET ,QSPACE>>)
	       (RPLAYER <CHTYPE <STRTOX .PLAYER> TIME>)
	       (LUBLK <3 <MEMQ .RPLAYER .LOSSTABLE>>)
	       (TINDEX <4 <MEMQ .RPLAYER .LOSSTABLE>>)
	       (FOO <ALIST <ARESET ,ASPACE> 1>) (TVA ,TVASS) (ASP ,ASPACE))
	#DECL ((PLAYER) STRING (LOSSTABLE) LIST (LUBLK TINDEX) FIX (RPLAYER) TIME)
  <DATA-APRINT .TVA <+ .LUBLK ,QNEXT> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,QNEXT>>
  <DATA-APRINT .TVA <+ .LUBLK ,ANEXT> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,ANEXT>>
  <DATA-APRINT .TVA <+ .LUBLK ,ALAST> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,ALAST>>
  <DATA-DELETE ,TVASS <+ .LUBLK ,SCORE>>
  <DATA-APRINT .TVA <+ .LUBLK ,LASTIN> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,LASTIN>>
  <DATA-APRINT .TVA <+ .LUBLK ,LASTGRD> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,LASTGRD>>
  <DATA-DELETE ,TVASS <+ .LUBLK ,QASKED>>
  <DATA-APRINT .TVA <+ .LUBLK ,MNEXT> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,MNEXT>>
  <DATA-APRINT .TVA <+ .LUBLK ,MLAST> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,MLAST>>
  <DATA-APRINT .TVA <+ .LUBLK ,ANNEXT> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,ANNEXT>>
  <DATA-APRINT .TVA <+ .LUBLK ,TAILOR> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK ,TAILOR>>
  <DATA-APRINT .TVA <+ .LUBLK 11> .ASP .FOO>
  <DATA-DELETE .TVA <+ .LUBLK 11>>
  <COND (<==? <1 .LOSSTABLE> .RPLAYER>
	 <SET LOSSTABLE <REST .LOSSTABLE 4>>)
	(<REPEAT ((L .LOSSTABLE) (M <REST .L>))
		 <COND (<==? <1 .M> .RPLAYER>
			<PUTREST .L <REST .M 4>>
			<RETURN>)>
		 <SET L .M>
		 <SET M <REST .M>>>)>
  <SET LOSSTABLE <ACOPY <ARESET ,LOSSSPACE> .LOSSTABLE>>
  <DATA-APRINT ,TVASS 3 ,LOSSSPACE .LOSSTABLE>
  <DATA-PRINTW ,TVASS ,HIPOFFSET <- <CHTYPE <DATA-READW ,TVASS ,HIPOFFSET> FIX> 1>>
  <GET-LOC <+ ,PG ,PEEK-START <* 4 .TINDEX>> ,TUV>
  <PUT ,TUV 2 0>
  <PUT ,TUV 3 0>
  <PUT ,TUV 4 0>
  <PUT-LOC <+ ,PG ,PEEK-START <* 4 .TINDEX>> ,TUV>
  <SETG LOSSTABLE <DATA-AREAD ,TVASS 3 <ARESET ,LOSSSPACE>>>>

<DEFINE CHAIN-LENGTH (WD "AUX" (CNT 0))
    #DECL ((WD) <PRIMTYPE WORD> (CNT) FIX)
    <REPEAT ((WD <CHTYPE .WD FIX>))
	<COND (<0? <SET WD <CHTYPE <DATA-READW ,TVASS .WD> FIX>>>
	       <RETURN .CNT>)
	      (<SET CNT <+ .CNT 1>>)>>>

<DEFINE NEW-TODO ("AUX" (LOSSTABLE ,LOSSTABLE))
  #DECL ((LOSSTABLE) <LIST [REST TIME STRING FIX FIX]>)
  <REPEAT ((UV <UVECTOR 0 0 0>) (CT 0) (BEG <+ ,PG ,TELEC-START 1>))
	  #DECL ((UV) <UVECTOR <PRIMTYPE WORD>> (CT BEG) FIX)
	<PUT .UV 3 <CHAIN-LENGTH <+ <3 .LOSSTABLE> ,ANEXT>>>
	<PUT-LOC <+ .BEG <* 4 <4 .LOSSTABLE>>> .UV>
	<COND (<EMPTY? <SET LOSSTABLE <REST .LOSSTABLE 4>>>
	       <RETURN>)>>>

<DEFINE REVERSE (FOO "AUX" (TTE <REST .FOO>) (RETL ())) 
	#DECL ((FOO TTE RETL VALUE) LIST)
	<COND (<EMPTY? .TTE> .FOO)
	      (T
	       <REPEAT ()
		       <SET RETL <PUTREST .FOO .RETL>>
		       <COND (<EMPTY? <SET TTE <REST <SET FOO .TTE>>>>
			      <RETURN <PUTREST .FOO .RETL>>)>>)>>/F(."}ñ¢CùÑ(yøðiÓøó¢Äô	*Lúq_ yúqjGAúÐ<UôX2iô"I¥ù°h Yú Ó§ô(EùkhAø¯>Sô
* yúqjGAùhOøÔâÔAöLß yúqjGAúbË[úu Ò©ô
ß y.$
<COND (<GASSIGNED? $TLOSE>
       <SETG PG <* 1024 <DIRMAP ,TVASS ,PEEK-)<$4 ððD^ûlFú´ä-¡ùlÅ¥ôâEù"ø3*ÅEôgYAúu)IøêPA¥ø´âÔAøjA[ø4¢ÁôêR©ùöAù4ê ø5 ú¤Î©ô Ôõ±"ÌúPAùô, ø5 ¥ø°bWAøjA[ú¤Î©úè#Å©õ³'ÃAúj-ùðÐ%yúQæOô+A§úh*>Aô¯*Y¡ø«k úvfUô¢Ã©ùô K÷£Ìøh(Ó¡ø0â ©÷È¼©û4"¯ôèAø¨+Eúé>Aô¯)GùðÐA§úaÅAú%yúQæOôgE±ú*>Aô¯)GùðÐMø4ê ©÷È¼¥øó'ÃAø3§E±ú*>Aô¯)GùðÐTù3'ÒAú%yúQæOô'Ó§út Ãô K÷£Ìøh(GAú%yúQæOô*ÖAú%yúQæOô'Ó§úaLô]A$ð5DAd/Py>~BI1Z8ýòtÁð(ÓEel:'@BMLb$nAHeîXtH8ðÔ±xD!/LOX* øw¾³ð4SBF|w<n(@H`,09øìü×nðd+h#H2X;hD	L
U(_h$FðdUp[ðô¿0dð<Ñ@nðëC,n	AðÐh `(ð0¹ð×ðõðð1ðüxKðp§(]fðTã@w0CL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøÓ*Óõ´&A³ø´Gú±P!·ö,Y7eö7eôY´göM¶göÜ eö
·AöÍÜ´mö¬ göLÙ¸a÷Ü4Aö,Ú2eö®Y0Aö,Ú2eö®Y0Aö,Ú2e÷,\4AöLZ7i÷
¶aô´oö1mö°aölY9qöÎ3e÷[ göm3k÷
1gö´gön2aö,Ù6mö8aö¬Ø´köì3e÷[ gömZ´iö3g÷[8göÈ8köLY6oöÈ7eöÌÙ¹göÈ¹gö-¹qö3a÷
Ù°cö
¶AöÍ³s÷
°iô8c÷\·cô
¸aöíZ möìX9möm-cönY8iöÌÛ8aôX7göí¸eö6eö-!»÷Ï
ñ¢SúÐCø2g-ø³£Ôô	Á Að%,6Hõ¤,hõ`U/Zxõp,6höèMõ kõpõ¯ÿýöèMõ kô¸	õÀuõ¸õõ¯ÿýõ¯ÿýDp DXö±4 _õå´õ`4:_õ`4/hôp+Kp 
HEXKûlCø2g-ø³£ÔôâEù"ø3*ÅEô¤ØA÷)IúhEAúóéD}õ("A©ø+iEøÐ%yúQæOô+A§úh*>Aô¯*Y¡ø«k úvfUô¢Ã©ùô]A
ð5DAd/Py>C,n	AðÐD!/LOð¬	høw¾³h`øìü×nð(CL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yør Éõ³"ÎúGú±P!·ö,·söm´iô7söÍ²i÷6eö-!»÷Ï
ñ¢SúÐNúëjOùèA.,hõ`U/Zxô¸õÀuõpõöèMõ kõp,6h)õp,6h)õp,6h)õp,6h)ôõ¥yõ,6ô¸
õÀu,6õõpõ´Sõp,6h*ôõtõ,6öèMõ k _ _ï}öqZöqZöqôõÊõp,6 B_ï}Bp _ï~õÁ´Uö©qûâ/F h+ö+q D _ï}ô	öqZ÷¹4;öqô(.Xõp,6õ¯ÿûõ¯ÿûDp _ï} $öqZ÷¹4I B_ï}ö°´!ô8õå´Wôp'+KpðWð$4 @SMi;ûlNúëjOùèÄøs(EúÐfUôH ÔùªPCø2g-ø³£Ôô*Ô[ùá K÷£Ìøh&O§úu Âø¨*>Aô¯)GùðÐPô ©û¨ Að5DAd/Py>)BF|wPn@BF|w<n(@x%BMLb$ýÐdøR]ÀeþäD!/LOð¬	øw¾³høìü×nPpPð´CC,n	AðÐ8CL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùÑk©ùñ' ùb Cûl[¹qö¬\³aöN8aö\4q÷-8iöP1aö¸iô¸qö¶aôÝ}÷ÈñO)Å©øè)Eø´©ÅAôàÐ Að),6Hõ¤,hõ`U/Zx XöqZõp,6õpõ´#öèMõ k _5Bh	 _ï~+höèMõ k X _ï~XB DX _Z B_ï~ F_5Fh	 ôXF/hôp+Kp0ñO=ûlRúÑiSôâEù"ø3*ÅEô&I§ú Î³÷È&I§ún A
ð5DAd/Pÿ/#D!/LOX øw¾³ð4
øìü×ýÀ	XBF|w<ýÄCL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúQkE¥úqPGú±P!·ö,³oö\³oô[4i÷ eöÌ´qô7_>A
)<,S.BUCKET .START <+ <NTH .BUCKET .START> 1>>)>>>

<DEFINE MARK-Q-CHAIN (BUCKET DC
		      "AUX" Q S (START ,LOWQUES) (TVS <ARESET ,QSPACE>))
	#DECL ((BUCKET) <UVECTOR [REST FIX]> (DC) ASYLUM (S START) FIX
	       (TVS) SPACE (Q) VECTOR)
	<REPEAT ()
		<COND (<0? <SET START <CHTYPE <DATA-READW .DC .START> FIX>>>
		       <RETURN>)
		      (T
		       <SET Q <DATA-AREAD .DC .START <ARESET .TVS>>>
		       <SET S <QSCORE .Q>>
		       <PUT .BUCKET .START <+ <NTH .BUCKET .START> 1>>
		       <COND (<AND <0? .S> <==? <QTYPE .Q> ,$TSIMPLE>>)
			     (T <PUT .BUCKET .S <+ <NTH .BUCKET .S> 1>>)>)>>>

<DEFINE MARK-UBLOCK (LUBLK UV "AUX" (MARKS '![1 1 1 1 1 1 1 1 1 1 1 1]))
  #DECL ((LUBLK) FIX (UV MARKS) <UVECTOR [REST FIX]>)
  <SUBSTRUC .MARKS 0 12 <REST .UV <- .LUBLK 1>>>>

<DEFINE PRESULT (UV DC ENABLE "AUX" MDATA (CT 0) (ULIST (0)) POINT
		 (FLIST (0)) CLIST) 
   #DECL ((ENABLE) <OR ATOM FALSE> (CLIST ULIST FLIST) <LIST [REST FIX]>
	  (UV) <UVECTOR [REST FIX]> (DC) ASYLUM (CT POINT) FIX
	  (MDATA) <UVECTOR [4 <PRIMTYPE WORD>]>)
   <MARK-FREE .UV .DC>
   <MAPF <>
    <FUNCTION (X) 
       #DECL ((X) FIX)
       <SET CT <+ .CT 1>>
       <COND
	(<0? .X>
	 <SET MDATA <DATA-FIND .DC .CT>>
	 <COND (<L? <SET POINT <CHTYPE <3 .MDATA> FIX>> 0>
		<SET POINT <CHTYPE <ANDB .POINT *777777*> FIX>>
		<SET CLIST .FLIST>)
	       (T
		<SET CLIST .ULIST>
		<SET POINT <CHTYPE <4 .MDATA> FIX>>)>
	 <COND
	  (<NOT .ENABLE> <PUTREST .CLIST (.CT !<REST .CLIST>)>)
	  (<EMPTY? <REST .CLIST>> <PUTREST .CLIST (.CT <- .POINT>)>)
	  (<REPEAT (TEMP (NL <REST .CLIST>) (OLD .CLIST) (FCT <- .CT>) (WON2 <>)
		    (WON1 <>) (LASTM .CLIST) TLIST)
		   #DECL ((TEMP FCT) FIX (TLIST LASTM NL OLD FCT) <LIST [REST FIX]>
			  (WON2 WON1) <OR <LIST [REST FIX]> FALSE>)
		   <COND (<AND <==? <SET TEMP <1 .NL>> .POINT> <G? .POINT 0>>
			  <COND (.WON2
				 <PUTREST .OLD ()>
				 <SET TLIST <REST .WON2 2>>
				 <PUTREST .WON2 .NL>
				 <PUTREST <REST/*ñ¨(
MJ:ûlCùÕ¢Ò©õ³'Ó§ôâEù"ø3*ÅEôjOõ( Òúqj ø5 úQ`ÄAúQkE¥úqPDúVÐ¥ù3ªWAøñj-ùðÐDúVÒø1+ ¡úµÌøh#Å©ùiÔ£ôâÔ[úêAô Ôõ°hRùÕNúëjOùè¼¥øó'ÃAú Ó§ô K÷,ÐõµÐA§û3*ÍAúÑaÔúO%yúQæOô'Ó§út Ãô K÷,ÐõµÐS¡ø0â ø°êO¥÷È¼¥øó'ÃAúk ©÷È¼¥øó'ÃAúÐT}ô	^Rùá ùôéÔøS" ©÷×P Að5DAd/Py>gBF|wPn@5xLBF|w<n()ðTePI
@BMLb$ýÐd?HD!/LOXîxøw¾³ð4pC,n	AðÐhðÔ9ðo
pZXøìü×nð(@00& OðÄÍCL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøsçVúUÌútÐGú±P!·ö-Ù°aö8söÈ³g÷0gö-0Aö-Ø¸qö¬°oöH²q÷X°qö möìX²söÌ2cöÌ´iôY¶sö2aö¬8g÷-0qô\2oöÜ9e÷2cö5aöY [ö-¹kölX3göÈ1söØ4aö eô7_>Añ¢yúqjGAøñj-©ùõ ÌAôàÐ A,,6Hõ¤,6Hõ¤,hõ`U/Zxô¸õÀuõ¸
õ _ï~õÈõpõô¸õÀuõ¸õBpõ,6Fpõ,6,6p,6h&,6p,6h&öèMõ kõpõ´Mõ¯ÿùõ¯ÿù X5"h h'.@Xõp,6öèMõ k X _ï|ô_ï} D_ï| F_ï}õå´Oõ`4#/h( _ï}ö¨qûá/Bòè4Qö+q _ @ô.h'ö©q_õñ h)ö+q X @/h'õå´Sôp+Kpð $4$4P(T{CûlGújO©ø3#ø°æ QôU Ì«ø¨<«úÑaÔúH#I±ô¤ØAût¢Ó©ô(Rùµ,ÐôçÒ÷×_ ù6<«úÑaÔúH-Òúu<¡úRfÔ³úPWúQ]}õ( Òúqj ø5 úQ`ÄAô¯)GùðÐTø4é ©÷È¼©û4"¯ôiÙú³PVøu'Ò}ô	^Rùá út Ãô K÷,ÐõµÐS¡ø0â ø°êO¥÷×P Aðð5DAd/Py>&BF|wPn@0BF|w<ýÄ7D!/LOð¬Xøw¾³hPøìü×nPXC,n	AðÐ	CL$p(÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yøñj-©ùõ ÌAøó*ÅAô6Û°iö¬Y5cô²iöØ9cöH1iöí3mö eöÎ°cöM eö-´qöm8aô
Y4e÷-Ý}÷ÈñO)Å©øè#L«úrÐø6bÒAôàÐ A,6Hõ¤,hõ`U/Zxô¸õÀuõ¸õõp,6h~ô¸!õÀuõ¸#õBpõ,6Fpõ,6õ¯ÿýõ¯ÿýBp,6p,6 _ X4Bhòè4ý1@öQ7õ`4%Z5Bh "öqZöqZöqõpõ _ï~ _4Bhòè4ý1@öQ7õ`47Z5Bh "ô	öqZ=dhöqõpõô¸%õÀuõ¸#õBpõ,6õp,6hDpõ,6ô¸õÀu,6õô¸%õÀu,6õöèMõ kõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDpõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpô¸õÀuõ¸õ _ï{õÈõpõDpõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDpô¸õÀuõ¸õ _ï{."õpõDpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸'õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸'õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸)õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸)õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸+õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸+õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸-õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸-õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDp _ïzöqòè4ÿ1@	ô ô h3F_ï{0@+h. _ïz $öqZ÷¹4W B_ïzõ`4}õ¯ÿóõ¯ÿó XZõpõöèMõ k Xöqòè4ÿ1@	ô ô h3F_ïy0@+h< X $öqZ÷¹4q _XBõå´õ`4} XZ B_ DX+h1ô¸/õÀuõ¸#õBpõ,6õ¯ÿñõ¯ÿñDp	ô¸õÁuõ¸õõp,6h~ô¸/õÁuõ¸#õõ,6Hpô¸õÀuõ¸õõp,6hô¸õÀuõ¸õõp,6hDp
õéõp,6Fpô¸1õÀu,6õõpõ´ _ï{(õpõôõtõ,6ô¸3õÀuõpõDpô¸3õÀuô ôp (õp,6hõ|ô¸3õÀuô ôpô
õp,6hõ|ô¸3õÀuô ôp (õp,6hõ|ô¸1õÀu,6õõpõ´ _ï{(õpõôõtõ,6ô¸3õÀuõpõDpîô¸õÀuõ¸õõp,6h~ô¸/õÀuõ¸#õBpõ,6Fpô¸5õÁu Bô ôõå´+Kpð$4ð$4î""}R*9OM FALSE>)
  <ALLOC-MAP .DC>
  <SET HI
	<CHTYPE <1 <GET-LOC <+ ,HIGHID <* <ALLOCPAGE .DC> 1024>> .UV1>> FIX>>
  <GUNASSIGN MOBY>
  <ARESET .SP>
  <SETG MUV <SET UV <AIUVECTOR .SP .HI 0>>>
  <MARK-CHAIN ,LOMAIL .UV .DC>
  <SSNAME <STRTOX "MARKQ">>
  <MARK-Q-CHAIN .UV .DC>
  <REPEAT (LUBLK)
    <COND (<EMPTY? .LOSSTABLE> <RETURN>)>
    <SET LUBLK <3 .LOSSTABLE>>
    <SSNAME <1 .LOSSTABLE>>
    <MARK-UBLOCK .LUBLK .UV>
    <MARK-CHAIN <+ .LUBLK ,ANEXT> .UV .DC>
    <MARK-CHAIN <+ .LUBLK ,MNEXT> .UV .DC>
    <SET LOSSTABLE <REST .LOSSTABLE 4>>>
  <SUBSTRUC <IUVECTOR 27 1> 0 27 .UV>
  <PRESULT .UV .DC .ENABLE>>

<DEFINE MARK-CHAIN (START BUCKET DC)
  #DECL ((START) FIX (BUCKET) <UVECTOR [REST FIX]> (DC) ASYLUM)
  <REPEAT ()
    <COND (<0? <SET START <CHTYPE <DATA-READW .DC .START> FIX>>>
	   <RETURN>)
	  (T
	   <PUT R0(/*<USE-TOTAL "ASYLUM">

<USE "MADMAN">

<FLOAD "AR2:TAA;SSNAME NBIN">

<DEFINE GUNUSED ("OPTIONAL" (ENABLE T)
		 "AUX" (DC ,TVASS) UV HI (LOSSTABLE ,LOSSTABLE) (UV1 ,DUV1)
		 (SP <OR <AND <GASSIGNED? MOBYSPACE>
			      ,MOBYSPACE>
			 <SETG MOBYSPACE <AFIND 4>>>))
  #DECL ((DC) ASYLUM (HI) FIX (UV UV1) <UVECTOR [REST <PRIMTYPE WORD>]>
	 (LOSSTABLE) <LIST [REST TIME STRING FIX FIX]> (SP) SPACE
	 (ENABLE) <OR AT(ðGC">
<GROUP-LOAD "TVHACK GBIN">
<GROUP-LOAD "BABBLE GBIN">
<CLEANUP>
<PRINT-CLEANUP>
<SET X ,PURELST>
<SETG PATCH <IUVECTOR 30>>
<GROUP-PURIFY X <> ,PWTERM ,SEQ-BITS ,FROBS ,FROB-NAMES ,STATUS-VECTOR ,WINNERS
	,LOSEMSG ,NEWMSG ,COMS ,DCOM ,QTYPES ,CATS ,GIVEUP ,Tð!uðX?ANUP>
<UNASSIGN X>
<REMOVE <UNASSIGN TVHACK>>
<REMOVE <UNASSIGN MCC!

hactrnj

vrsadr/:if n q-1'645
(:(New version of DDT)

)
prompt/7type 20
20/0"MAR--
21/0">
22/ 0

.

:tctyp query,line=79.
:exists common;mar mail
=:if e q
(:print  
:-save?-*
:if more 0
(:RENAME  ,mar omail
1=):if e q
(:delete  
:*-flushed-*
))

:msgs
:alarm 22:00:00

:tvtodo

:whoj
! 

END	START
 X.i<USE "GLUE">
<GROUP-LOAD "MARC;TVGUTS NBIN">
<GROUP-LOAD "MARC;TVFROB NBIN">
<GROUP-LOAD "MARC;TVCRFT NBIN">
<SET MC.
     <DA11N
		  <+ .NINDEX ,LASTGRD>
		  <DATA-READW .D <+ .CINDEX ,LASTGRD>>>8#>4ñ¢CùÑ(yøðiÓøó¢Äô	*Lúq_ yúqjGAúÐ<UôX2iô"I¥ù°h Yú Ó§ô(EùkhAø¯>Sô
* yúqjGAùhOøÔâÔAöLß yúqjGAúbË[úu Ò©ô
ß yúqjGAøPaBø«iÔúU6o÷/<§øµ# ùÑlTAö/<§øµ# §øséEAöo<§øµ# £ùÑlTAö<§øµ# ©ø³"Ã[úu Ò©ôÚ3}ô&Áù1¢Ó©ô$ÐøÑ©Å©ô"Åõ´êA¥ú!AøS"§úiTAø3¢Ø©ôáÏ¥ø¨(ÎûTùa§úiT}õ/
ñ¢SúÐCùÕ¢Ò©õ³'Ó§ôÐ Aðç,hõ`U/Zxõp,6hgô¸õÀuõ¸!õõpõ´Ïô¸#õÀuõ¸%õBpõ,6Fpîõ,6õ´³õ,6öèMõ kô¸õÀuõ¸!õõp,6hh _ï~õ`4#ûÿÿüÿÿ*Bhûx&"õpõ B_ï|Fpõp,6hgõ¯ÿýõ¯ÿýõp,6hg,6p,6hgô¸'õÀuõpõô¸)õÀu,6õõpõ´Ñ "õtõ,6ô¸)õÀu,6õõp,6hi "õtõ,6õp,6hgöèMõ k _ïzô	öqZ÷¹4Qöqô _ïzZô _ï{ôõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷ D_ïz H_ï~Dp _ï}õÀ´Óö¨qûá/B hjö+q _ï| @ _ï}ô8õÁuõ¸!õ _.$õp,6 B_ïwDp
 _ïyõÀ´Õö¨qûáõð hkö+q Dõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷Dp	õ¯ÿýõ¯ÿýõ¯ÿ÷õ¯ÿ÷Dp _ï}õ¯ÿÿõ¯ÿÿ B_ïxBp _ïyõÁ´Óö©qòê4×ûâõñ hl0@ +q Dõ¯ÿÿõ¯ÿÿ _ï|õÀ´Ùõpõ,hqõ¯ÿýõ¯ÿýõ¯ÿ÷õ¯ÿ÷Dp	 _ïz $öqZ÷¹4§ B_ïz5Bhaô8õÁuõ¸!õõpõ´Ïô8#õÁuõ¸%õõ¯ÿéõ¯ÿéõ´³ô¸+õÁu Bô,6õHp/hm+he _ï~.$:_ï{ _.( D_ï~ H_õ`4Mõ´Yõå´Ûôp'+Kpðððð§ð$4$4ô$4( ,6Hõ¤,6Hõ¤,hqõ`U/Zxô¸õÀuõ¸!õ _ï~õÈõpõô¸-õÀuõ¸%õBpõ,6Fpîõ,6,6p,6h,6p,6höèMõ kõpõ´)õ¯ÿùõ¯ÿù X5"h h.@Xõp,6öèMõ k X _ï|ô_ï} D_ï| F_ï}õå´+õ`4ÿ/h _ï}ö¨qûá/Bòè4-ö+q _ @ô.hö©q_õñ hö+q X @/hõå´/ôp+Kpð $4$4P,6Hõ¤,hõ`U/Zxô¸õÀuõ¸!õõp,6hô¸/õÀuõ¸%õBpõ,6Fpîõ,6õ¯ÿýõ¯ÿýBp,6p,6 _ X4Bh*òè4-1@öQ7õ`4UZ5Bh& "öqZöqZöqõpõ _ï~ _4Bh3òè4-1@öQ7õ`4gZ5Bh/ "ô	öqZ=dh4öqõpõô¸-õÀuõ¸%õBpõ,6õp,6hDpõ,6ô¸õÀu,6õô¸-õÀu,6õöèMõ kõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDpõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpô¸õÀuõ¸!õ _ï{õÈõpõDpõ¯ÿýõ¯ÿý _ï{."õpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{."õpõDpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDpô¸õÀuõ¸!õ _ï{."õpõDpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸1õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸1õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸3õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸3õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸5õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸5õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸7õÀu,6õ "õtõ,6õ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõô¸7õÀu,6õ "õtõ,6Dpõ¯ÿýõ¯ÿý _ï{õÈõpõõ¯ÿûõ¯ÿûõ¯ÿõõ¯ÿõHpõ¯ÿýõ¯ÿý _ï{õÈõpõDp _ïzöqòè4/1@	ô ô h3F_ï{0@+hF _ïz $öqZ÷¹4 B_ïzõ`4õ¯ÿóõ¯ÿó XZõpõöèMõ k Xöqòè4/1@	ô ô h3F_ïy0@+hT X>-H $öqZ÷¹4¡ _XBõå´1õ`4 XZ B_ DX+hIô¸#õÀuõ¸%õBpõ,6õ¯ÿñõ¯ÿñDpô¸õÁuõ¸!õõp,6hô¸#õÁuõ¸%õõ,6Hpô¸õÀuõ¸!õõp,6hô¸õÀuõ¸!õõp,6hDp
õéõp,6Fpô¸)õÀu,6õõpõ´3 _ï{(õpõôõtõ,6ô¸'õÀuõpõDpô¸'õÀuô ôp (õp,6hõ|ô¸'õÀuô ôpô
õp,6hõ|ô¸'õÀuô ôp (õp,6hõ|ô¸)õÀu,6õõpõ´3 _ï{(õpõôõtõ,6ô¸'õÀuõpõDp	ô¸õÀuõ¸!õõp,6hô¸#õÀuõ¸%õBpõ,6Fpîô¸+õÁu Bô ôõå´5+Kpð$4ð$4$4 ðð,6Hõ¤,hõ`U/Zxõp,6h*öèMõ kõpõ¯ÿýöèMõ kô¸õÀuõ¸!õõ¯ÿýõ¯ÿýDp
 DXö±4O _õå´Uõ`4Q:_õ`4A/h+ôp+Kp õ´Yõ`U/Zxô¸+õÀuõpõöèMõ kõpõ´©õpõ´©õpõ´©õpõ´©ôõ¥yõ,6ô¸)õÀu,6õõp,6hUõpõ´«ôõtõ,6öèMõ k _ _ï}öqZöqZöqôõÊõp,6 B_ï},h _ï~.hVö©qûâ/Fòè4ö+q D _ï}ô	öqZ=dhIöqô(.Xõp,6õ¯ÿûõ¯ÿûDp	 _ï} $öqZ=dhP B_ï}5Bh<ô89/hWôp'+KpðWð$4 @,6Hõ¤õ´³õ`U/Zx XöqZõp,6õp,6hiöèMõ k _ö°´Á _ï~õ`4ÏöèMõ k X _ï~XB DX _Z B_ï~ F_ö±´Á ôXFõå´Óôp+Kp0qðYð³
MJ:(T{CnD^
HEXKSMi;ðWñO=ð¯0ûlCùÕ¢Ò©õ³'Ó§ôâEù"ø3*ÅEôjOõ( ÃúPDúVÄùjEAø3$Ó©ôêR©ùöDúVÁ¡úRgTAøñjLúu( ¡úµÌøh"A©ø+iEøÐGúfOô Ôõ´)IúÐDúVÁ¥ø°b úQiÅ©ô	^Rùá ©úÐiÓAú%yúhE[úè Ó³ùf ø°êO¥÷È¼¥øó'ÃAùéÓ§úaÅAú%yúhE[úè)ÐøqPVøu'Ò}ô	^Rùá ©úµT}ô	^Rùá ¡øè*>Aô¯)GùðÐLútêAùPT}ô	^Rùá út Ãô K÷£Ìøh(Ó¡ø0â ©÷È¼¥øó'ÃAù³¢Ø©ô K÷£Ìøh&ÌúuT}ô	^Rùá ùÓ¢Ø©ô K÷£Ìøh*Aùé ©÷È*]Akð5DAd/Py>gBF|wPn@5xLBF|w<n()ðTePI
@BMLb$ýÐd?HD!/LOXîxøw¾³ð4pC,n	AðÐhðÔ9ðo
pZXøìü×nð(@00& OðÄÍCL$p(DAd/Py>BF|wPn@BF|w<ýÄhD!/LOð¬û8øw¾³h}0øìü×nu0|`8C,n	AðÐåhCL$p(qDAd/Py>BI1Z8ýòtñðèEel:?)@BMLb$nAH} X"H$8*ð	á0xD!/LOXB) øw¾³ð4)BF|w<n(+@-H6'`D)0Qøìü×nð$[h;HJXSh\dm(w&h<)^ð$Ï-m-psð´ï/0|ðü0@ðPC,n	AðÐ7h8`@ððéðØðP%ðÈCð	@að
¼¹+xcð0×.(u/~ð1@20CL$p(DAd/Py>*C,n	AðÐED!/LOð¬?4øw¾³h4øìü×nð
SCL$p(DAd/Pÿ/©BF|wPýÄ BF|w<ýÄ}ð
üð(ðX¡BMLb$nAH;øR]ÀetWH5D!/LOX07Pøw¾³ð4_7Høìü×ýÀ]ð
cð
gð
Äs8 M:@C,n	A .6pCL$þTYDAd/Py>iD!/LOð¬½<øw¾³h^<øìü×n\ðèÑBF|w<n([CL$þT³÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YøsçVúUÌútÐGú±P!·ö-Ù°aö8söÈ³iöX4möì¶Aö-Ø¸qö¬°oöH²q÷X°qö möìX²söÌ2cöÌ´iôY¶sö2aö¬8g÷-0qô\2oöÜ9eöÍ2cö5aöY [ö-Ø6eö\²aöµeölµgöÈ7köL cömÙ4e÷6iô[²mömÚµeöÍ2eö¶eöìY·A÷Ü8mö c÷µsöî¶aô
Y·c÷.6iôÙ7sö¬1a÷
Ø´iöÙ [ö-·qö5söH1iöí´oöL2cöÛ1iöì eö-¶möÎZ4Aõ¬Ú3k÷-Ù°cöí-göÚ¹oöl·môY0möÎY¹q÷
 köMX5mô
Y·möÙ´iôµaöÌ´a÷²eö,5mö1e÷°gölZ²Aö¬°köÈ³m÷
Ø°iö´cö
³oöÈ5möm2qö-4göÌ´e÷-Û göX3möíÛ°gôY9gö.³aöMP-gö[µcöì0qôY9gö,¹köm7söÎY0qö°oömÚ´cö-cöÍ¶s÷7eô[±o÷.9eö1oö.²cöL9Aö.²eö,Z°oöH5qö,±mö-Ð4e÷-¶oöN[ cö-±cöN¶AöL¸e÷,6kö¬Û cöì±cöìµgô9i÷
3cô5eöX´AöM4köH6e÷-Ø qöÐ2möl±Cû¯ ñCE<§øµ# øµÔúf K÷©ÕúKbÎ©úVP'·øsçVúUÌútÐGújO©ø3#ø°æ QôU Ì«ø¨<«úÑaÔúH#I±ô¤ØAût¢Ó©ô(Rùµ,ÐôçÒ÷×_ ù6<«úÑaÔúH-Òúu<¡úRfÔ³úPWúQ]}õ7P2eö ñCE<§øµ# ùiÈ[ú ÙúH¼¥úuaR[ø³ªR³ô	íÃùÕ¢Ò©õ³'Ó§ô¦U§ùhLû1i GøaÌAõ«Aú±Q ùÖPS©úRgGSû¨°i÷Ï
ñ¢SúÐCø2g-ø³£Ôô	^R§ú°©-ùÕ)YAôöáÏúÑiT[ùéÓAør Éõ³"Îú#ø°æ QôU Ì«ø¨FûP¥ù3jY¡ø¨+Ï¥øÝA÷>}ôE
÷âÔô¢×[úâOAô¯)S«øTÅú¬ OûpçÎø´ª-ùôé øµÖÔøÐ#ø°æ QôU Ì«ø¨A©ùóTÝA÷
Z¾}ôE
÷âÔô¢ÖúTâ K÷©ÕúKbÎ©úVP'·øsçVúUÌútÐRúÑiSôâEù"ø3*ÅEô&I§ú Î³÷È&I§ún söß>A
-H18XDOC >.
Describe bugs with TS TVBUG.
If TRIVIA absolutely refuses to work, bring it down with TS TVBUG.
/
BUF:	BLOCK	200
BUFPTR:	BUF-.,,BUF
8ðATITLE  HOLIDAYSd8#	      <FUNCTION (X Y) <PUT .X 1 <1 .Y>>>
	      .MARKV
	      '![1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
		 25 26 27!]>
	<SSNAME <STRTOX "MUNGLO">>
	<SETG LOSSTABLE
	      <MUNG-LOSS .N
			 .D
			 <ARESET .LSP>
			 <ARESET .SSP>
			 <ARESET .QSP>
			 .MARKV>>
	<SSNAME <STRTOX "RESERV">>
	<DATA-PRINTW .N ,HIQNUM <DATA-READW .D ,HIQNUM>>
	<DATA-PRINTW .N ,TOTSCR <DATA-READW .D ,TOTSCR>>
	<REPEAT ((CT ,1STCAT))
		#DECL ((CT) FIX)
		<DATA-PRINTW .N .CT <DATA-READW .D .CT>>
		<COND (<G? <SET CT <+ .CT 1>> 22> <RETURN>)>>
	<DATA-PRIð9;Uð!W+ _õÄ6 x+@Dp+@Dgõ`4aôi ôiô/ÿý H_øiõ,6 _5"h0ô4«.@_õõöèM-R _ö¨1:_ï{ D/hV@@x+h!õå´øi/hWõç´«õ¸	õ¯ÿí _ï~õÈõõõ¸õ¯ÿïõ¸	õ¯ÿé _ïzZôõÉõõõ¸õ¯ÿéõø
õ,6õøõ,6õø _ _ï~ö1Zö1ôPHô &ö1ð!m1NTW .N ,HIPOFFSET <DATA-READW .D ,HIPOFFSET>>
	<SSNAME <STRTOX "ANNOUN">>
	<MUNG-ANNOUNCE .N .D .SSP .ASP .MARKV>
	<SSNAME <STRTOX "MUNGQ">>
	<MUNG-Q .N .D .QSP .ASP .MARKV>
	<MUNG-LUSERS .N .D .ASP .SSP .MARKV>
	ZORK>

<DEFINE CONS-IT (FN FLEN "AUX" (CH <OPEN "PRINTB" .FN>) (FOO <IUVECTOR 1024>)
		 (FOO1 <IUVECTOR .FLEN '.FOO>))
  #DECL ((FN) STRING (CH) CHANNEL (FOO) <UVECTOR [REST <PRIMTYPE WORD>]>
	 (FOO1) <UVECTOR [REST UVECTOR]> (FLEN) FIX)
  <MAPF <>
    <FUNCTION (X) <PRINTB .X .CH>>
    .FOO1>
  <CLOSE .CH>>

"MOVE LUBLKS AND SCORES"

<DEFINE MUNG-LOSS (N D LSP SSP QSP MARKV "AUX" LOSSTABLE L1 L2 NEWID NEW) 
	#DECL ((N D) ASYLUM (LSP SSP QSP) SPACE (L1 L2 LOSSTABLE) LIST
	       (NEWID) FIX)
	<SET LOSSTABLE <SET L1 <REVERSE <DATA-AREAD .D 3 <ARESET .QSP>>>>>
	<REPEAT ()
		<SET NEW <- <SET NEWID <DATA-RESERVE .N 12>> 1>>
		<MAPR <>
		      <FUNCTION (X Y) 
			      #DECL ((X Y) <UVECTOR [REST FIX]>)
			      <PUT .X 1 <SET NEW <+ .NEW 1>>>>
		      <REST .MARKV <- <2 .L1> 1>>
		      '![0 0 0 0 0 0 0 0 0 0 0 0!]>
		<DATA-APRINT .N
			     <+ .NEWID ,SCORE>
			     .SSP
			     <DATA-AREAD .D <+ <2 .L1> ,SCORE> <ARESET .SSP>>>
		<PUT .L1 2 .NEWID>
		<COND (<EMPTY? <SET L2 <REST .L1 4>>>
		       <SET LOSSTABLE <AGC <ARESET .LSP> <REVERSE .LOSSTABLE>>>
		       <DATA-APRINT .N 3 .LSP .LOSSTABLE>
		       <RETURN .LOSSTABLE>)
		      (<SET L1 .L2>)>>>

<DEFINE MUNG-ANNOUNCE (N D SSP ASP MARKV) 
	#DECL ((N D) ASYLUM (SSP ASP) SPACE (MARKV) <UVECTOR [REST FIX]>)
	<REPEAT ((NEW ,LOMAIL) (NSTART ,LOMAIL) OLD (START ,LOMAIL) CANN)
		#DECL ((NSTART OLD NEW START) FIX (CANN) <OR FALSE VECTOR>)
		<COND (<0? <SET OLD <CHTYPE <DATA-READW .D .START> FIX>>>
		       <DATA-PRINTW .N ,HIMAIL .NEW>
		       <RETURN>)
		      (<SET CANN <DATA-AREAD .D .OLD <ARESET .SSP>>>
		       <SET NEW <1 <DATA-APRINT .N -1 .SSP .CANN>>>
		       <PUT .MARKV .OLD .NEW>
		       <DATA-PRINTW .N .NSTART .NEW>
		       <SET NSTART .NEW>
		       <SET START .OLD>)
		      (T <PUT .MARKV .OLD ,LOMAIL> <SET START .OLD>)>>>

<DEFINE MUNG-Q (N D QSP ASP MARKV "AUX" SLIST) 
	#DECL ((N D) ASYLUM (QSP ASP) SPACE (MARKV) <UVECTOR [REST FIX]>
	       (SLIST) <LIST [REST <PRIMTYPE WORD>]>)
	<REPEAT ((NSTART ,LOWQUES) CQUES (START ,LOWQUES) NEW NEW-SCORE
		 OLD-SCORE)
		#DECL ((NSTART START NEW NEW-SCORE) FIX (CQUES) VECTOR)
		<COND (<0? <SET START <CHTYPE <DATA-READW .D .START> FIX>>>
		       <DATA-PRINTW .N ,HIQLOC .NEW>
		       <RETURN>)
		      (T
		       <SET CQUES <DATA-AREAD .D .START <ARESET .QSP>>>
		       <COND (<N==? <QTYPE .CQUES> ,$TSIMPLE>
			      <SET OLD-SCORE <QSCORE .CQUES>>
			      <DATA-PRINTW .N
					   <SET NEW-SCORE <DATA-RESERVE .N 1>>
					   <DATA-READW .D .OLD-SCORE>>
			      <PUT .MARKV .OLD-SCORE .NEW-SCORE>
			      <PUT .CQUES ,QSCORE .NEW-SCORE>)>
		       <SET NEW <1 <DATA-APRINT .N -1 .QSP .CQUES>>>
		       <PUT .MARKV .START .NEW>
		       <DATA-PRINTW .N .NSTART .NEW>
		       <SET NSTART .NEW>)>>
	<SETG SIMPLE-SPACE <AFIND 1>>
	<SET SLIST <DATA-AREAD .D ,SIMPLE-LIST ,SIMPLE-SPACE>>
	<MAPR <>
	  <FUNCTION (X)  #DECL ((X) <LIST [REST <OR TIME FIX>]>)
	    <COND (<TYPE? <1 .X> TIME>
		   <PUT .X 3 <NTH .MARKV <3 .X>>>)>>
	  .SLIST>
	<DATA-APRINT .N ,SIMPLE-LIST ,SIMPLE-SPACE .SLIST>>

<DEFINE MUNG-LUSERS (N D ASP SSP MARKV "AUX" OLOSSTABLE) 
   #DECL ((N D) ASYLUM (ASP SSP) SPACE (MARKV) <UVECTOR [REST FIX]>
	  (LOSSTABLE) <LIST [REST TIME STRING FIX FIX]>)
   <SET LOSSTABLE <DATA-AREAD .D 3 <ARESET ,LOSSSPACE>>>
   <REPEAT (NINDEX CPLAYER CINDEX QASKED)
     #DECL ((CPLAYER) TIME (NINDEX CINDEX) FIX)
     <SET CPLAYER <1 .LOSSTABLE>>
     <SET CINDEX <3 .LOSSTABLE>>
     <SET NINDEX <NTH .MARKV .CINDEX>>
     <SSNAME .CPLAYER>
     <DATA-PRINTW .N
		  <+ .NINDEX ,LASTIN>
		  <DATA-READW .D <+ .CINDEX ,LASTIN>>>
     <DATA-PRINTW .ñ7ðT7" (FN "MADMAN;TV NEW") (FLEN 300) "AUX" (D ,TVASS) N
		    (QSP ,QSPACE) (ASP ,ASPACE) (SSP ,SSPACE) (LSP ,LOSSSPACE)
		    (MOBYSPACE
		     <COND (<GASSIGNED? MOBYSPACE> ,MOBYSPACE)
			   (T <SETG MOBYSPACE <AFIND 4>>)>) DHIGH MARKV TPG)
	#DECL ((D N) ASYLUM (QSP ASP SSP LSP MOBYSPACE) SPACE (DHIGH) FIX
	       (MARKV) <UVECTOR [REST FIX]> (FN) STRING (FLEN TPG) FIX)
	<ALLOC-MAP .D>
	<CONS-IT .FN .FLEN>
	<SETG N <SET N <OPEN-DATA-FILE .FN <COND (<GASSIGNED? N> ,N)> 7 5>>>
	<SETG PEEK-PAGE </ <DATA-ALLOC .N <CHTYPE #WORD *410000000000* FIX>> 1024>>
	<AND <SET TPG <DIRMAP .N ,PEEK-PAGE>>
	     <DIR-INIT .TPG>
	     <PUT <MEMQ .TPG <5 .N>> 3 1>>
	<SET DHIGH
	     <CHTYPE <1 <GET-LOC <+ <* 1024 <ALLOCPAGE .D>> ,HIGHID> ![0!]>>
		     FIX>>
	<SET MARKV <AIUVECTOR .MOBYSPACE .DHIGH 0>>
	<DATA-RESERVE .N 27>
	<MAPR <>
ðT?õd[
õ¯ÿï _ï|õÈõõõ¸
õ¯ÿí _ï|õÈõõõøõ,6õøõ¸
õ¯ÿïô¸õÀûôô¸õÀûõÁõ,6õ¸õ¯ÿñõ¸
õ¯ÿë _ï{ô8õÁûõÀõõõ¸õ¯ÿë,6põ¸!õø#õ,6õøõ,6õø%õ¸
õ¯ÿï _ï|."õõõ¸
õ¯ÿí _ï|."õõõø _ïz4dQ$õÁöÿÿõ`1õõÿÿõøõ¸
õ¯ÿï _ï|ô8'õÁûõÀõõõ¸
õ¯ÿí _ï|ô8'õÁûõÀõõõø _ïz4dQ$õÁöÿÿõ`1õõÿÿõøõ¸
õ¯ÿïõ¸
õ¯ÿïõ¸õ¯ÿïõ¸õ¯ÿïõ¯ÿõõ¯ÿõõ¯ÿïõ¯ÿïõõ¯ÿëNpõ¸
õ¯ÿïõ¸
õ¯ÿïõ¸õ¯ÿïõ¸õ¯ÿïõ¯ÿõõ¯ÿõõ¯ÿïõ¯ÿïõõ¯ÿëNpõ¸
õ¯ÿñ _ï~."õõõ¸õ¯ÿñõøõ,6õøô¯ÿÿ DXõõ´%õ,6,>hô¯ÿÿ XõÄ6 x+@Dp+@Dg+h+@Dj+@DmõªÃÉôiô/ÿÿ HXøiõ,6öèM-R Xö´öèMð(4'ô _ïy4dQ$õÁöÿÿõ`1ôÿÿôö1Zö1Z BX5Bhz/h@@x+hpøiõå´)/hõ¸
õ¯ÿï _ï|."õõõ¸õ¯ÿñõ¯ÿùõ¯ÿùõø%ô8õÇÙ &ö1Z÷¹´ô¸,G{ö±4%ô8!õå´+/hô'+aðÿÿÿÿÿ ð@P(ñ4MÏûlM«ùÑÖÌ«úqiSAôq"Ãô
Vùb¢Aø5'ÍAø4ìÌ«ù¨ Ó³ùf §úaÅAút Ãô*Öøu'ÒAût¢Ó©ô¤Ø»÷ÊPS§ùÐfÅAùµgG[ù°dÌ[ør ÉôjÎõ±éAø«aÈù3%yúhE[úè Ó³ùf ø°êO¥÷È¼¥øó'ÃAùéÓ§úaÅAú%yúhE[úè)ÐøqPVøu'Ò}ô	^IúiNùiS«øTA¥ø´âÔAö/%yù3ªE¥ùÐf-¥úuaRAøjA[ø4¢Áôß ùôéÔøS" K÷gTúS Ì[úTêÂ¥ô Ôõ´¢Áúè>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+hRùÕ+ g÷È¼¥øó'ÃAùÒgDû*>Aô¯)GùðÐTù3'ÒAúTAô¯$Î©ø´§Aõ´©ÕúH Òúqj e÷È¼ùÕ"Òø3Ò§ú°© ø5 ú¤Î©ô
 K÷£Ìøh Îø¶* ©÷×P A%DAd/P|`øYý¼¯ð¤ëð¸	BHXhPx<HuF' ÿhéEr~ xM tEfpxLpsC^\a(ÿåø¼K©ÿãBF|w(þ¸7pTHBF|w<psð¼1ðÌ;	VhîBI)ugÿd)pBI6d8ÿØpC,n	AðèðgM
øìü×p	pðEð,UðliBð(	`R
h^Xiî`D!/LOð8yøw¾³hðñ(CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[ùiÅ¥úh#Ì«ø¨ÛcöÍ²Aöl²cönY²eö(·s÷
\¶c÷. c÷3mô5eö®´iôÙ8i÷,Ü7mö±mömÙ·cö.4Aõ9c÷8aö5eö´köH0kölX2k÷(²q÷
X8kön cö-Yµcö¬-cöìX±oö,[8aô
¶göH³eö- qöY3q÷. eö-´qöm8aôY±aöìÙ!»÷Ï
ñ¢SúÐM«ùÑÖÍù3Ãø2g Oðh Aðw,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,6Hõ¤,6Hõ¤
,h+/ZxöèM-Rõõ´oõõ´o _ï|ô8õÁûõÀ _ï}ô¸õÁûõÁõ,6õ¯ÿÿõ¯ÿÿ B_ï}öèM-Rõ¸	õ¯ÿíõ¯ÿ÷õ¯ÿ÷õø D_ï}5Dh!õ¸	õ¯ÿëõ¯ÿûõ¯ÿûõõ´oõø
õ¸	õ¯ÿëô¸õÀûô._ïzõ,6õ¯ÿùõ¯ÿùõø
ô8/h8+h6õ¸	õ¯ÿíõ¯ÿ÷õ¯ÿ÷õ¸õ¯ÿëõøõ,6õø D_ï~õ¸	õ¯ÿëõõ´qõ¸õ¯ÿëõ¯ÿõõ¯ÿõõøô	õµÝô¯ÿý D_õ¸	õ¯ÿëõ¯ÿýõ¯ÿýõ¯ÿùõ¯ÿùõø
 _ _ï} _ï|4dQ$õÁöÿÿõ`1ôÿÿ BX+h/h9ô'+a@ÿÿÿÿÿp8ñ4MãûlM«ùÑÖÍù3Ãø2g GøaÌAõ«Aú±Q úæ úvfUôiÙú³PS¡ø0â §úaÅAøÒl ù6<«úÑaÔúH-ÒúuFû_)Aô¯)GùðÐMø¶* ©÷È¼©û4"¯ôiÙú³PVøu'Ò}ô	^IúiNùiS«øTDúVÒø1+ e÷È¼ùÕ"Òø3Ò§ú°© ø5 ¡úRgT¯ôß K÷£Ìøh&ÌúuT}ô%yúhE[úè)ÐøqPVøu'Ò}ô	^IúiNùiS«øTA¥ø´âÔAö/%yù3ªE¥ùÐf-¥úuaRAøjA[ø4¢Áôß K÷gTúS Ì[úTêÂ¥ô Ôõ°hRùÕ4}û¨ ADAd/Pÿ°oBF|w<þÄiBF|w(þ¸eBI-^(v]h,C,n	A/Pîpøìü×p
0ðÈ;7D!/LOð0øw¾³h	(CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[ù°dÌ[ør ÉôæUôm¶iôXµgö7köH²gö7eöÌ-cöì[¸qöÌ¸aôX¶göLÛ·cöÍ [ö-Ø¶oöN2oö(·cöî\6sö. c÷Ú°eön¾}ôE
÷âÔôjÎõ±éAø«aÈù3'?,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,6Hõ¤,6Hõ¤
,h+/ZxöèM-Rõ,6h;õ,6h; _ï|õÈ _ï}õÉõ,6õ¯ÿÿõ¯ÿÿ B_ï}öèM-Rõ¸õ¯ÿíõ¯ÿ÷õ¯ÿ÷õø	 D_ï}5Dhõ¸õ¯ÿëõ¯ÿûõ¯ÿûõ,6h;õøõ¸õ¯ÿë _ïz."õõõ¯ÿùõ¯ÿùõøô8
õå´wõ`4sõ¸õ¯ÿíõ¯ÿ÷õ¯ÿ÷õ¸õ¯ÿëõøõ,6õøö©1ô _ï|4fQ&.öÿÿõ`1ö©1ô @ôÿÿô D_ï~õ¸õ¯ÿëõ,6h<õ¸õ¯ÿëõ¯ÿõõ¯ÿõõøô	õµÝô¯ÿý D_õ¸õ¯ÿëõ¯ÿýõ¯ÿýõ¯ÿùõ¯ÿùõø _ _ï} _ï|4dQ$õÁöÿÿõ`1ôÿÿ BX+hõå´yô'+a@ÿÿÿÿÿp8DhMûlM«ùÑÖÇ¥ø1"ùdÎAôq"Ãô
Vùb¢Aø5'ÍAø4ìÌ«ù¨ Ó³ùf §úaÅAút Ãô¤ØAøÒl yúµ¢Ã©ùô[¥ø´ê ù6.¾Sô	^T³úV×Aø4ìÌ«ù¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+iEøÐ2}ô	^IúiNùiS«øTDúVÐ¥ù3ªWAöoTAô¯*Y¡ø«k §úaÅAúÑaÔúO%yù3ªE¥ùÐf-¥úuaRAø4¢Óú¾Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+`Òø13}ô	^IúiNùiS«øTDúVÁ¡úRgTAö® AðDAd/P|`;BI-^(þ×t_BF|w(prp%`BF|w<þÄGð8Oøìü×p
0ð¸5ð@W(D!/LOðøw¾³h	CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[øô Äõ°äAùÈ#Ì«ø¨Ûmö±iö°oö3gön9oöì iö,°kölX4AölX0Aöl4göì\¶qô
Y4e÷ c÷Ú°eön¾}ôE
÷âÔô¢ÖúTâ Oðh A,6Hõ¤,h+/Zx Xö1Zõ,6õõ´#öèM-R _5Bh	 _ï~+höèM h X _ï~XDZ B_ï~ö±4ôXF+h FXõA+h	õå´%ô+a0ñO=ûlRúÑiSôâEù"ø3*ÅEô&I§ú Î³÷È&I§ún A
DAd/Pÿ°#D!/LO
 øw¾³ð4
øìü×d@ð;US)
       ASYLUM>

<DEFINE MUNG ("OPTIONALXk	~<õ¯ÿýõ¯ÿùõ¯ÿùõø _ _ï| BX D_ï}õ`4 _ï| _ï{4fQ&.öÿÿõ`1  ôÿÿ _ï| F_ï}õ`4/h8ô'+aPôÿÿÿÿÿ(DhLûlM«ùÑÖÁùÓêÎø¨Äøs(EúÐfUôH Ôù¨ Ó³ùf úvfUôèAø¨)ÐøqP<«úÑaÔúH-ÒúuFû_)Aô¯*Y¡ø«k úvfUô¢Ã©ùô K÷gTúS Ì[úTêÂ¥ô Ôõ´¢Áúè>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+hRùÕ+ g÷È* K÷,ÐõµÐS¡ø0â ø°êO¥÷È¼ùÕ"Òø3Ò§ú°© úQiÅ©ô_ K÷gTúS Ì[úTêÂ¥ô Ôõ°iEø¾Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+`Ð¥ù3ª i÷×P ADAd/Pÿ°mBF|w<þÄO(BF|w(þ¸KBI-^(v]h$øìü×pð`'6D!/LOðhøw¾³h`CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[ø3§O«ùÐâ ùb Cûl[3q÷2mö.\9g÷ [ö-9köl0köH²sö®Y·sö¬ i÷,[4AöM4gö¶Aö³cö
Ù²Cû¯ ñCE<§øµ# ú³££ô	Á Aðë,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,h+/Zxõõ´ÙöèM-Rõõ´Ùõõ´Ùõõ´Ùõõ´Ùõ´Ùõ´Ùô¸õÀûõõô¸õÀûô D_ï|öèM-Rõ¸	õ¯ÿëõ¯ÿõõ¯ÿõõø D_ï|ö±45õ¸	õ¯ÿéõ,6hmõ¯ÿõõ¯ÿõõø
õå´Û+hGõ¸	õ¯ÿëõ¯ÿõõ¯ÿõõ¸õ¯ÿéõøõ,6õø D_ï{.hnö©1 ôòè4Ýö1öõ`4I+h8 _ï{.hoö©1 ôô/ÿý J_õ¸	õ¯ÿéõ¸	õ¯ÿçõõ´ßõøõ,6 D_ï|õ¸	õ¯ÿçõ¯ÿ÷õ¯ÿ÷õøõ,6õø
ô _ïyô¯ÿý _õ¯ÿûõ¯ÿû,6 _ï{.hpö¨1ô/ÿû @ _ï~ôõ¸	õ¯ÿéõõ´áõ¸õ¯ÿéõ¯ÿïõ¯ÿïõøô	õµÝ _ï| _ïy4fQ&.öÿÿõ`1ôÿÿ D_ï}õ¸	õ¯ÿéõ¯ÿýõ¯ÿýõ¯ÿõõ¯ÿõõø
 _ï} BXõ`4#õõ´ßõøô¸õÁû Bôõ¸	õ¯ÿ÷õ,6hqô¸õÀûõ¸õõø DXõõ´Ùõ,6õ´á X6 xZ4Bhe BXõõöèM-R Xö1òè4ã0@õ`4Çö1Zö1Zö1ô _ï|4fQ&.öÿÿõ`1ôÿÿö1Zö1Zö1ôPFô/hr@@x+hRõå´å/hsõ¸	õ¯ÿõõ,6hqô¸õÀûõ¸õõ¯ÿùõ¯ÿùõøõå´Û+a` ôPðPÿÿÿÿÿð$4 ð(DhN<ûlM«ùÑÖÑAôq"Ãô
Vùb¢A÷é ø3)ÅAù°gIøoA§û3*ÍAø4ìÌ«ù¨)ÐøqPS¡ø0â yúµ¢Ã©ùô[¥ø´ê ù6.¾Sô	^Rùá ùõèÕúh*>Aô¯*Y¡ø«k úvfUô¢Ã©ùô K÷gTúS Ì[úTêÂ¥ô Ôõ´¢Áúè>Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+hRùÕ+ g÷È¼©û4"¯ôèAø¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH Òúqj c÷È¼ùÕ"Òø3Ò§ú°© ø5 úQ`ÄAöo%yù3ªE¥ùÐf-¥úuaRAøjA[úQiÅ¥úÑP2}ô	^IúiNùiS«øTDúVÁ¡úRgTAö%yù3ªE¥ùÐf-¥úuaRAø1¤Îô_ K÷£Ìøh)Éú"§úaÅAú® Að/DAd/Pÿ°ÙBF|w(prp?PBI-^(þ×t{BI1Z8þØ8iBF|w<ps!`6ð¯ðÌµ8_a C,n	Aðèð	XiD!/LOððøw¾³h Vøìü×p
0ðx/ðTcðÌ	@Pð¨ÅxCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[ú(#Ì«ø¨ÛcöÍ8Aö.²mö2oöH²sömØ7e÷
Z qö4a÷[ c÷´iöØ4aôX¶söíY¹m÷
 eöØ¶iöÍÙ cöM\6aöP-iöM1mön¶AöØ±oö¸iô4mö®\¸sö¬[ aôY±aöìÙ!»÷Ï
ñ¢SúÐM«ùÑÖÌ«úqiSAôàÐ Að1,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,h+/ZxöèM-Rõ¸
õ¯ÿùõ,6hô¸õÀûõ¸õõøõ,6õøô¸,G{õõ´%,6õ´%õõ´%õ´%õ´%öèM-Rô8õÇÙö1ô F_ï~ô8õÇÙö1Zö1Zö1ô F_ _ï|4fQ&õÁöÿÿõ`1ôÿÿõ¯ÿûõ¯ÿû B_ï|Bpõ¸
õ¯ÿï _ï|."õõõ¸
õ¯ÿí _ï|."õõõøõ,6õøõ¸
	~Xf!5ðÌðùð!u<USE "CLEAðM==3
DSKCHN==4

A=1
B=2
C=3
TIME=3
NOW=4
XUNAME=5
P=17
VBPTR:	440700,,A
VSBPTR:	140600,,B
DSKDEV:	SIXBIT	/DSK/
MSGDIR:	SIXBIT	/_MSGS_/
BADNAM:	SIXBIT	/BADBOY/
BADDIR:	SIXBIT	/VANISH/
SXUNAM:ðX½DLUE	[ASCIZ /: FATAL ERROR -- !NAME!
/]
TERMIN

; DECREMENT BYTE POINTER
DEFINE DBP AC
	ADD	AC,[70000,,]
	TLNE	AC,400000
	ADD	AC,[347777,,-1]
TERMIN

LOC	40
	0
	JSR	UUOH
	JSR	TSINT
LOC	100

	SUBTTL	VARIABLES

; CALL BLOCK FOR ECHOING
ECHOBK:	SETZ
	SIXBIT	/IOT/
	MOVSI	%TJDIS		; SO CONTROL-P WILL BE IGNORED
	MOVEI	TTYO
	SETZ	A

PDL:	BLOCK	30
INPBUF:	BLOCK	200.		; TTY INPUT BUFFER
INBLEN:	5*.-5*INPBUF		; # OF CHARACTERS ALLOWABLE
INPPTR:	440700,,INPBUF
LINMAP:	440700,,INPBUF		; BYTE POINTER TO START OF INPUT BUFFER
	BLOCK	197.		; LINE MAP UNLESS OVERFLOWS
MAPLEN:	1+LINMAP-.,,LINMAP	; AOBJN POINTER TO LINE MAP STORAGE

DBUF:	BLOCK	200.		; BUFFER FOR COPYING FILES TO TTY
DBUFLN==.-DBUF
DBUFPT:	440700,,DBUF		; BYTE POINTER TO FILE BUFFER
PDLPTR:	-30,,PDL-1		; INITIAL PDL POINTER
JCL:	BLOCK	20.		; FOR JCL
PATCH:	BLOCK	30.		; PATCH SPACE

HEADER:	ASCIZ	/Please describe your bug as completely as possible.
Terminate with <altmode>.  ? will print more information./
PRMPT:	ASCIZ	/Message:  /

GCSTOP:	MUMBLE			; USED BY CORE ALLOCATOR
FRETOP:	0
AGCNUM:	0
PDLNUM:	0			; # OF TIMES AGC AND PREV OVERFLOW OCCURRED
ALLOW:	-1			; IF -1, TRIVIA IS NOT ALREADY DOWN
MAINT:	0			; IF XUNAME IS MARC OR TAA
JCLMOD:	0			; -1 IF INPUT IS FROM JCL LINE INSTEAD OF TTY
JCLPTR:	0			; CONTAINS ILDB POINTER TO JCL IF NEEDED
XUNAME:	0
INTALL:	0			; IF -1, CTRL-S WORKS
QMODE:	0			; CTRL-Q TYPED
TTYOPT:	0
OPTION:	0			; FROM SUSET
LSTERR:	0
LETRUB:	0			; IF -1, %TOERS IS ON FOR THIS TTY
XCTRUB:	0			; PUSHJ XCT'ED TO DO RUBOUTS
DSKIOT:	.IOT	DSKO,A
DSKUPA:	.IOT	DSKO,["^]
TTYIOT:	.IOT	TTYO,A
TTYX%zHUPA:	.IOT	TTYO,["^]
CLIIOT:	.IOT	CLIO,A
CLIUPA:	.IOT	CLIO,["^]
XCTIOT:	0			; XCT'ED BY UUO'S
XCTUPA:	0
UUOD:	0
UUOE:	0
BASE:	0
HPOS:	0
CTRLJ:	0			; PRINT ^M^J FOR CRLF INSTEAD OF JUST ^M
SUSET:	.SIMASK,,[%PIPDL]	;  HANDLE PDL OVERFLOW (FOR LINE MAP)
	.RXUNAME,,A		; XUNAME
	.RMEMT,,FRETOP		; HIGH ADDRESS
	.SIMSK2,,[1_TTYI]	; INTERRUPTS FROM TTY
	.ROPTIO,,OPTION		; OPTION WORD (TO SEE IF HAVE JCL)
	.RXJNAME,,C		; XJNAME:  TVBUG OR TVUP (AKA FROB)
SUSETS:	SUSET-.,,SUSET
VERSIO:	.FNAM2
	


START:	MOVE	P,PDLPTR
	PUSHJ	P,TTYOPN
	MOVE	O,TTYIOT	; SET UP OUTPUT INSTRUCTIONS FOR UUO'S
	MOVEM	O,XCTIOT
	MOVE	O,TTYUPA
	MOVEM	O,XCTUPA
	SETZM	JCLMOD
	SETOM	ALLOW
	MOVE	B,SUSETS
	.SUSET	B
	MOVEM	A,XUNAME
	CAME	A,[SIXBIT /MARC/]	; FOR SPECIAL HACKS
	 CAMN	A,[SIXBIT /TAA/]
	  JRST	[SETOM	MAINT
		 CAMN	C,[SIXBIT /FROB/]
		  JRST	TVUP		; DELETE DEATH FILES
		 PUSHJ	P,JCLRED
		  JRST	STCONT
		 JRST	KILL]
	PUSHJ	P,NJCL			; JCL FOR NORMAL PEOPLE
	 JRST	STCONT
	JRST	STATUS


TVUP:	.CALL	[SETZ
		 SIXBIT	/DELETE/
		 [SIXBIT /DSK/]
		 [SIXBIT /TRIVIA/]
		 [SIXBIT /DEATH/]
		 SETZ	[SIXBIT /_MSGS_/]]
	 JFCL
	.CALL	[SETZ
		 SIXBIT	/DELETE/
		 [SIXBIT /DSK/]
		 [SIXBIT /TRIVIA/]
		 [SIXBIT /CURFEW/]
		 SETZ	[SIXBIT /_MSGS_/]]
	 JFCL
	.CALL	[SETZ
		 SIXBIT	/DELETE/
		 [SIXBIT /DSK/]
		 [SIXBIT /TRIVIA/]
		 [SIXBIT /LOSES/]
		 SETZ	[SIXBIT /_MSGS_/]]
	 .BREAK	16,160000
	.BREAK	16,160000

STCONT:	OASC	[ASCIZ	/TVBUG./]
	OSIX	VERSIO
	OASCR	[0]
STATUS:	.CALL	[SETZ		; SEE IF TRIVIA DOWN
		 SIXBIT /OPEN/
		 [.BII,,DSKI]
		 [SIXBIT /DSK/]
		 [SIXBIT /TRIVIA/]
		 [SIXBIT /DEATH/]
		 SETZ [SIXBIT /_MSGS_/]]	; IS IT ALREADY DOWN?
	 JRST	PHEAD
	.CLOSE	DSKI,
	SETZM	ALLOW		; IF SO, TURKEY CAN'T BRING IT DOWN
PHEAD:	SKIPN	JCLMOD		; DON'T PRINT HEADER IF READING FROM JCL
	 OASCR	HEADER

; READER
READ:	SETZ	CCT,		; INITIALIZE CHARACTER COUNT
	MOVE	BUFPTR,INPPTR	; INITIALIZE BYTE POINTER TO INPUT BUFFER
	SETZB	CCHARS,CHPOS
	MOVE	PREV,MAPLEN
	ADD	PREV,[MAPSIZ-1,,MAPSIZ-1]
PPRMPT:	SKIPN	JCLMOD
	 OASCR	PRMPT		; PRINT PROMPT
GETCHR:	SKIPE	JCLMOD
	 JRST	[ILDB	A,JCLPTR	; READ FROM JCL
		 JRST	PROCHR]
	.IOT	TTYI,A		; GET CHAR IN A
PROCHR:	SKIPE	QMODE		; QUOTE THIS CHARACTER
	 JRST	QHACK
	CAIGE	A,34
	 JRST	@CHNDTB(A)
	CAIN	A,177		; RUBOUT
	 JRST	DORUB
	CAIN	A,"?		; MUST BE FIRST CHARACTER TO BE SPECIAL
	 JRST	DOHELP
DOECHO:	ECHO
DEPCHR:	SETZM	QMODE
DEPCH1:	PUSHJ	P,GETSIZ	; # OF POSITIONS OCCUPIED BY CHARACTER
	ADD	CHPOS,B		; CURRENT HPOS
	ADDI	CCHARS,1	; # OF CHARACTERS ON CURRENT LINE
	ADDI	CCT,1		; TOTAL # OF CHARACTERS IN BUFFER
	CAML	CCT,INBLEN	; NUMBER OF SPACES IN INPUT BUFFER
	 PUSHJ	P,AGC		; GROW THE INPUT BUFFER
	IDPB	A,BUFPTR
	JRST	GETCHR

; DISPATCH TABLE FOR HANDLING OF CONTROL CHARACTERS (0-33)
CHNDTB:	CLRBUF			; CTRL-@:  CLEAR BUFFER
	DOECHO
	DOECHO
	CTRLC			; CTRL-C--TERMINATES JCL
	PRTBUF			; CTRL-D
	DOECHO
	DOECHO
	DIE			; CTRL-G
	DOECHO
	DOECHO
	DOECHO			; CTRL-J
	DOECHO
	CLRSCR			; CTRL-L
	CRLFHK			; CTRL-M
	DOECHO
	DOECHO
	DOECHO			; CTRL-P
	QSETUP			; CTRL-Q
	DOECHO
	CLRBUF			; CTRL-S
	DOECHO
	DOECHO
	DOECHO
	WDKILL			; CTRL-W
	LNKILL			; CTRL-X
	DOECHO
	DOECHO
	PTMAIL			; ALTMODE


SUBTTL	SPECIAL READER ROUTINES

; HANDLE CARRIAGE RETURN	
CRLFHK:	SKIPE	JCLMOD		; CARRIAGE RETURN TERMINATES
	 JRST	PTMAIL
	ECHO
	ADDI	CCT,1
	CAML	CCT,INBLEN
	 PUSHJ	P,AGC
	IDPB	A,BUFPTR
	PUSH	PREV,BUFPTR		; SAVE THIS LINE--LOSS HANDLED AS PDL OVERFLOW
	PUSH	PREV,CHPOS
	PUSH	PREV,CCHARS
	SETZB	CCHARS,CHPOS
CRLDON:	MOVEI	A,^J		; PUT ^J IN BUFFER
	JRST	DEPCHR

; CTRL-Q TYPED
QSETUP:	SETOM	QMODE
	ECHO
	JRST	GETCHR

CTRLC:	SKIPE	JCLMOD
	 JRST	PTMAIL		; TERMINATE IF IN JCL
	JRST	DOECHO		; OTHERWISE TREAT NORMALLY

; QUOTE A CHARACTER
QHACK:	SKIPE	LETRUB		; ERASE CTRL-Q
	 JRST	[OCTLP "X
		 OCTLP "X
		 JRST .+1]
	CAIN	A,^M		; CAN'T QUOTE CARRIAGE RETURN
	 JRST	CRLFHK
	JRST	DOECHO

; CLEAR SCREEN AND REDISPLAY BUFFER
CLRSCR:	OCTLP	"C		; FOR CTRL-L
	JRST	RREP

; REDISPLAY BUFFER
PRTBUF:	ECHO			; FOR CTRL-D
	OASCR	[0]
RREP:	OASCR	PRMPT
	PUSHJ	P,BUFPRT
	JRST	GETCHR

BUFPRT:	PUSH	P,A		; PRINT CONTENTS OF INPUT BUFFER
	PUSH	P,B
	MOVE	A,INPPTR	; POINTER TO BEGINNING OF INPUT
	MOVE	B,CCT		; # OF CHARACTERS
	.CALL	[SETZ
		 SIXBIT /SIOT/
		 MOVSI	%TJDIS	; SO CTRL-P IS IGNORED
		 MOVEI	TTYO
		 A
		 SETZ	B]
	 .LOSE	1000
	POP	P,B
	POP	P,A
	POPJ	P,

; START OVER ON INPUT
CLRBUF:	ECHO
	OASCR	[0]		; FOR CTRL-@ AND CTRL-S
	JRST	READ

; IF ? IS FIRST CHARACTER, PRINT INSTRUCTIONS
DOHELP:	JUMPN	CCT,DOECHO
	OASCR	HLPMSG
	JRST	PPRMPT

HLPMSG:	ASCIZ	/Useful characters:
  ?:       Prints this, if nothing is in the buffer
  ctrl-@:  Clears buffer
  ctrl-D:  Redisplays buffer
  ctrl-G:  Kills the program
  ctrl-L:  Clears screen and redisplays buffer
  ctrl-Q:  Quotes next character
  ctrl-S:  Stops typeout when printing file
  ctrl-W:  Deletes last word in buffer
  ctrl-X:  Deletes last line in buffer
  altmode: Terminates message
  rubout:  Deletes last character in buffer
/
zBZzL

	SUBTTL	RUBOUT HANDLERS

; COME HERE FOR RUBOUTS
DORUB:	PUSHJ	P,RUBBER
	 JRST	READ		; IF NOTHING TO RUBOUT
	JRST	GETCHR

; COMMON CODE FOR RUBOUTS
RUBBER:	SOJL	CCT,CPOPJ
	PUSH	P,A
	LDB	A,BUFPTR	; VICTIM
	SUBI	CCHARS,1
	DBP	BUFPTR		; UPDATE BYTE POINTER TO INPUT
	XCT	XCTRUB		; TO RUBECH OR RUBFLS, DEPENDING ON %TOERS
	POP	P,A
POPJ1:	AOS	(P)		; SKIP RETURN IF SOMETHING WAS RUBBED OUT
CPOPJ:	POPJ	P,

; RUBOUT CODE FOR PRINTING TERMINALS--CRETINOUS
RUBECH:	CAIN	A,177		; ECHO A RUBOUT
	 JRST	[OASC	[ASCIZ /^?/]
		 POPJ	P,]
	CAIN	A,^J
	 JRST	RECHLF
RUBEC1:	OASCI	(A)		; ECHO THE CHARACTER RUBBED OUT
	POPJ	P,

; RUBOUT A LF
RECHLF:	LDB	A,BUFPTR
	CAIN	A,^M
	 JRST	RECHCR
	MOVEI	A,^J
	.IOT	TTYO,A
	POPJ	P,

; RUBOUT A CR
RECHCR:	DBP	BUFPTR
	SUBI	CCT,1
	POP	PREV,CCHARS
	POP	PREV,CHPOS
	SUB	PREV,[1,,1]
	OASCR	[0]
	POPJ	P,


; RUBOUT CODE FOR DISPLAYS
RUBFLS:	CAIN	A,177		; RUBOUT MAY BE TWO POSITIONS
	 JRST	TSTSAI
	CAIL	A,40		; SPACE (AND ABOVE?) ALWAYS ONE POSITION
	 JRST	RUBONE
	CAIN	A,^I		; TABS REQUIRE SPECIAL HANDLING
	 JRST	RUBTAB
	CAIN	A,^J		; MAY INDICATE CRLF
	 JRST	RUBLF
	CAIN	A,^H		; BECAUSE AOS HORIZONTAL POSITION
	 JRST	RUBBCK
	CAIN	A,^G		; SINCE DOESN'T DISPLAY
	 POPJ	P,
TSTSAI:	MOVE	O,TTYOPT
	TLNE	O,%TOSAI
	 JRST	RUBONE
	CAIN	A,177		; RUBOUT TAKES TWO POSITIONS
	 JRST	RUBTWO
	CAIN	A,33		; ALTMODE TAKES ONE POSITION
	 JRST	RUBONE
RUBTWO:	OCTLP	"X		; DO THE RUBOUT(S)
	SUBI	CHPOS,1
RUBONE:	OCTLP	"X
	SUBI	CHPOS,1
	POPJ	P,

; SPECIAL ROUTINES FOR RUBBING OUT RANDOMNESS

; RUBOUT BACKSPACE
RUBBCK:	ADDI	CHPOS,1
	LDB	O,BUFPTR	; ECHO CHARACTER BEFORE BACKSPACE
	.IOT	TTYO,O
	POPJ	P,

; RUBOUT TAB
RUBTAB:	PUSH	P,B
	PUSH	P,C
	PUSH	P,E
	SETZ	CHPOS,		; ACCUMULATE HORIZONTAL POSITION IN CHPOS
	JUMPE	CCHARS,RTABOT	; IF TAB WAS FIRST ON LINE
	MOVE	C,BUF(PREV)	; GET BEGINNING OF THIS LINE
	MOVE	E,CCHARS	; # OF CHARACTERS ON THIS LINE
RTABLP:	ILDB	A,C
	PUSHJ	P,GETSIZ	; SIZE OF CHARACTER
	ADD	CHPOS,B
	SOJG	E,RTABLP
RTABOT:	OCTLP	"H		; ^PH FOLLOWED BY HPOS+8
	MOVEI	O,8(CHPOS)	; FOR ABSOLUTE POSITION
	.IOT	TTYO,O
	POP	P,E
	POP	P,C
	POP	P,B
	POPJ	P,

; RUBOUT LINEFEED:  EITHER LINESTARVE OR FLUSH CRLF
RUBLF:	LDB	A,BUFPTR
	CAIN	A,^M		; IS BUFFER ^M^J
	 JRST	RUBCRL
	OCTLP	"U		; DO LINE STARVE
	POPJ	P,

; RUBOUT CRLF
RUBCRL:	DBP	BUFPTR		; GET RID OF ^M
	SUBI	CCT,1
	POP	PREV,CCHARS	; GET DATA FOR PREVIOUS LINE
	POP	PREV,CHPOS
	SUB	PREV,[1,,1]
	OCTLP	"U		;  GO TO PREVIOUS LINE
	OCTLP	"H		; GO TO END
	MOVEI	A,8(CHPOS)
	.IOT	TTYO,A
	POPJ	P,

; HANDLE CTRL-X:  KILL THIS LINE
LNKILL:	MOVE	BUFPTR,BUF(PREV)
	MOVE	O,PREV
	SUB	O,[MAPSIZ-1,,MAPSIZ-1]
	CAME	O,MAPLEN		; FIRST LINE
	 JRST	LNNORM
	SETZB	CCT,CCHARS		; SO CLEAR EVERYTHING
	SETZ	CHPOS,
	JRST	LNMUNG
LNNORM:	IBP	BUFPTR			; GET PAST CTRL-J
	SUBI	CCT,-1(CCHARS)		; UPDATE CCT
	SETZ	CHPOS,			; UPDATE CURRENT LINE
	MOVEI	CCHARS,1		; BECAUSE CTRL-J IS ON LINE
LNMUNG:	SKIPN	LETRUB			; IF CAN'T DO %TOERS, JUST ECHO CRLF
	 JRST	[OASCR	[ASCIZ / XXX?/]
		 JRST	GETCHR]
	OCTLP	"H			; GO TO BEGINNING OF LINE
	.IOT	TTYO,[8]
	OCTLP	"L			; AND KILL TO END
	JRST	GETCHR

; HANDLE CTRL-W--KILL WORD
WDKILL:	PUSH	P,A
WLOP1:	JUMPE	CCT,WLEAVE		; FLUSH INVISIBLE CHARACTERS
	LDB	A,BUFPTR
	CAIE	A,^I
	 CAIN	A,^J
	  JRST	WRUB
	CAIE	A,40
	 CAIN	A,^H
	  JRST	WRUB
	JRST	WLOP2
WRUB:	PUSHJ	P,RUBBER
	 JRST	WLEAVE
	JRST	WLOP1
WLOP2:	JUMPE	CCT,WLEAVE		; THEN FLUSH TO INVISIBLE CHARACTER
	PUSHJ	P,RUBBER
	 JRST	WLEAVE
	LDB	A,BUFPTR
	CAIE	A,^I
	 CAIN	A,^J
	  JRST	WLEAVE
	CAIN	A,40
	 JRST	WLEAVE
	JRST	WLOP2
WLEAVE:	POP	P,A
	JRST	GETCHR

; GET SIZE OF CHARACTER.  CHAR IN A, SIZE RETURNED IN B.
GETSIZ:	CAIGE	A,40
	 JRST	GETSZ1
	CAIN	A,177
	 JRST	[MOVEI	B,2
		 MOVE	O,TTYOPT
		 TLNE	B,%TOSAI
		  MOVEI	B,1
		 POPJ	P,]
	MOVEI	B,1
	POPJ	P,
GETSZ1:	MOVE	B,TTYOPT
	TLNE	B,%TOSAI	; OF %TOSAI, SIZE IS ONE
	 JRST	[MOVEI B,1
		 POPJ P,]
	PUSH	P,C
	PUSH	P,A
	MOVE	C,[000300,,CHRTAB(A)]	; GET DIGIT FROM TABLE
	IDIVI	A,14
	IMULI	B,-3
	ADDI	B,33.
	DPB	B,[360600,,C]
	LDB	B,C
	CAIG	B,4			; > 4==>CODE TO FIND SIZE
	 JRST	GETLEV
	JRST	@SPCHR-5(B)
GETLEV:	POP	P,A
GETLV1:	POP	P,C
	POPJ	P,

; TABLE OF CHARACTER SIZES
CHRTAB:	222222205602
	202222222222
	224122240000

; DISPATCH TABLE FOR SPECIAL SIZES
SPCHR:	CTHSIZ
	CTISIZ

; BACKSPACE IS -1
CTHSIZ:	SETO	B,
	JRST	GETLEV

; TAB GOES TO NEXT MULTIPLE OF 8
CTISIZ:	MOVE	C,CHPOS
	ANDI	C,7
	MOVNS	C
	MOVEI	B,10(C)
	JRST	GETLEV



; FINISH
PTMAIL:	ECHO				; ECHO THE ALTMODE
PTMAL1:	SETOM	INTALL			; COME HERE FROM PTMAIL ROUTINES
	SKIPN	ALLOW
	 JRST	PRINTR
	OASC	[ASCIZ	/
Should TRIVIA be brought down? (y,n,?,a,):  /]
	.IOT	TTYI,A			; READ COMMAND
	ECHO
	CAIE	A,"?			; PRINT HELP MESSAGE
	 CAIN	A,^F
	  JRST	PRTCOM
	CAIN	A,^R			; PRINT MADMAN;TVLOSE >
	 JRST	PRTFIL
	CAIN	A,^L
	 JRST	[SKIPE	LETRUB
		 OCTLP	"C
		 JRST	PTMAL1]
	CAIE	A,"N			; NOT BROUGHT DOWN
	 CAIN	A,"n
	  JRST	PRINTR
	CAIE	A,"F
	 CAIN	A,"f
	  JRST	PRINTR
	CAIE	A,"Y			; BROUGHT DOWN
	 CAIN	A,"y
	  JRST	KILL
	zDzPCAIE	A,"T
	 CAIN	A,"t
	  JRST	KILL
	CAIE	A,"A			; APPEND TO MESSAGE
	 CAIN	A,"a
	  JRST	APPEND
	JRST	PTMAL1

PRTCOM:	OASCR	[ASCIZ	/
?  prints this
A  allows you to modify your bug description
Y  brings TRIVIA down.  If you are not sure whether this should be done,
   read MADMAN;TVLOSE >.  Type ctrl-R to have the file printed.
N  sends bug mail, but does not bring TRIVIA down./]
	JRST	PTMAL1

; PRINT MADMAN;TVLOSE >
PRTFIL:	OASCR	[0]
	.CALL	[SETZ
		 SIXBIT	/OPEN/
		 [.BII,,DSKI]
		 [SIXBIT /DSK/]
		 [SIXBIT /TVLOSE/]
		 [SIXBIT />/]
		 SETZ	[SIXBIT /MADMAN/]]
	 .LOSE	1000
	.CALL	[SETZ
		 SIXBIT	/FILLEN/
		 MOVEI	DSKI
		 SETZM	C]
	 .LOSE	1000
	IDIVI	C,DBUFLN		; # OF ITERATIONS NEEDED
	JUMPE	D,PFLOOP
	ADDI	C,1
PFLOOP:	MOVE	A,[-DBUFLN,,DBUF]
	.IOT	DSKI,A			; IOT IN FIRST PART
	SOJE	C,CTCHAK
	MOVEI	O,5*DBUFLN
DOSIOT:	MOVE	B,DBUFPT
	.CALL	[SETZ			; PRINT IT TO TTY
		 SIXBIT	/SIOT/
		 MOVSI	%TJDIS
		 MOVEI	TTYO
		 B
		 SETZ	O]
	 .LOSE	1000
	JUMPN	C,PFLOOP
	JRST	PTMAL1
CTCHAK:	HLRE	B,A
	MOVEI	O,DBUFLN
	ADD	O,B
	IMULI	O,5
	MOVEI	D,5
	SUBI	A,1
	HRLI	A,010700
CTCLOP:	LDB	B,A
	CAIE	B,^C
	 CAIN	B,0
	  CAIA
	JRST	DOSIOT
	DBP	A
	SUBI	O,1
	SOJG	D,CTCLOP
	JRST	DOSIOT
		 
APPEND:	OASC	[ASCIZ	/
Append to message:/]
	LDB	O,BUFPTR		; IF ALREADY CRLF, DON'T ADD ONE
	CAIN	O,^J
	 JRST	[OASCR	[0]
		 JRST	GETCHR]
	MOVEI	A,^M
	SETZM	INTALL			; DON'T ALLOW INTERRUPTS
	SETZM	JCLMOD			; NOT IN JCL MODE
	JRST	CRLFHK

; PRINT FILE AND DON'T KILL TRIVIA
PRINTR:	PUSHJ	P,PRINT
	.CLOSE	DSKO,
DIE:	.BREAK	16,160000

; PRINT FILE--TO PRINT1 IF CHANNEL ALREADY OPEN
PRINT:	.CALL	[SETZ
		 SIXBIT	/OPEN/
		 [1,,DSKO]
		 [SIXBIT /DSK/]
		 [SIXBIT /TVLOSS/]
		 [SIXBIT />/]
		 SETZ [SIXBIT /TAA/]]
	 .LOSE	1000
PRINT1:	MOVE	O,DSKIOT		; SET UP FOR UUO'
	MOVEM	O,XCTIOT
	MOVE	O,DSKUPA
	MOVEM	O,XCTUPA
	MOVEI	C,DSKO			; CHANNEL
PRINT2:	SETOM	CTRLJ			; PUSHJ TO HERE TO PRINT ON CLI DEVICE
	OSIX	XUNAME			; THE CULPRIT
	OASCI	^I
	PUSHJ	P,PDSKDA		; TIME OF LOSSAGE
	OASC	[ASCIZ	/
/]
	MOVE	A,INPPTR
	MOVE	B,CCT
	.CALL	[SETZ			; PRINT MESSAGE
		 SIXBIT /SIOT/
		 C
		 A
		 SETZ	B]
	 .LOSE	1000
	MOVE	O,TTYIOT
	MOVEM	O,XCTIOT
	SETZM	CTRLJ
	SKIPN	MAINT
	 JRST	[OASCR	[ASCIZ	/
Thank you for your help./]
		 PUSHJ	P,CLIOUT
		 POPJ	P,]		; LEAVES CHANNEL OPEN
	POPJ	P,

; KILL TRIVIA BEFORE PRINTING MESSAGE
KILL:	PUSHJ	P,MSGBLS		; MUST BE AT LEAST 10. VISIBLE CHARACTERS
	 .BREAK	16,160000
	.CALL	[SETZ
		 SIXBIT	/OPEN/
		 [1,,DSKO]
		 [SIXBIT /DSK/]
		 [SIXBIT /TRIVIA/]
		 [SIXBIT /DEATH/]
		 SETZ	[SIXBIT /_MSGS_/]]
	 .LOSE	1000
	MOVE	O,XUNAME
	SKIPE	MAINT
	 JRST	[PUSHJ	P,PRINT1
		 JRST	KILFIN]
	.CLOSE	DSKO,
	PUSHJ	P,PRINT
	SETOM	CTRLJ
	MOVE	O,DSKIOT
	MOVEM	O,XCTIOT
	OASC	[ASCIZ	/
TRIVIA brought down./]
KILFIN:	.CLOSE	DSKO,
	.BREAK	16,160000

; SKIP RETURNS IF > 10 VISIBLE CHARACTERS
MSGBLS:	PUSH	P,A
	PUSH	P,B
	PUSH	P,C
	MOVEI	C,10.
	MOVE	A,INPPTR
	MOVE	B,CCT
BLSLOP:	ILDB	O,A
	CAILE	O,33		; VISIBLE?
	 CAIN	O,40
	  JRST	BLSEND
	SOJE	B,BLSOUT	; IF JUMPS, RAN OUT OF CHARACTERS BEFORE 10 VISIBLE
	SOJG	C,BLSLOP
	AOS	-3(P)		; FOUND 10, SO SKIP RETURN
	JRST	BLSOUT
BLSEND:	SOJG	B,BLSLOP
BLSOUT:	POP	P,C
	POP	P,B
	POP	P,A
	POPJ	P,

; FWEEP TAA HACTRN IF ON-LINE
CLIOUT:	MOVE	O,[SIXBIT /TAA/]
	.CALL	CLIOPE
	 JRST	[MOVE	O,[SIXBIT /MARC/]
		 .CALL	CLIOPE
		  POPJ	P,
		 JRST	.+1]
	MOVE	O,CLIIOT
	MOVEM	O,XCTIOT
	MOVE	O,CLIUPA
	MOVEM	O,XCTUPA
	MOVEI	C,CLIO
	SETOM	MAINT
	PUSHJ	P,PRINT2		; RESTORES XCTIOT &XCTUPA BEFORE FROBBING
	SETZM	MAINT
	.CLOSE	CLIO,
	POPJ	P,

CLIOPE:	SETZ
	SIXBIT	/OPEN/
	[A,,CLIO]
	[SIXBIT /CLI/]
	O
	SETZ	[SIXBIT /HACTRN/]


;START-UP
TTYOPN:	.CALL	[SETZ
		 SIXBIT "OPEN"
		 [TTYI]
		 [SIXBIT "TTY"]
		 [SIXBIT "DIRED"]
		 [SIXBIT "INTTY"]
		 SETZB LSTERR]
	 .LOSE	1000
	.CALL	[SETZ
		 SIXBIT "OPEN"
		 [4001,,TTYO]	; display mode == %TIDIS
		 [SIXBIT "TTY"]
		 [SIXBIT "DIRED"]
		 [SIXBIT "OUTTTY"]
		 SETZB LSTERR]
	 .LOSE	1000
	.CALL	[SETZ
		 'CNSGET
		 [TTYO]
		 MOVEM ; vsize
		 MOVEM ; hsize
		 MOVEM ; tctyp
		 MOVEM ; ttycom
		 MOVEM TTYOPT
		 SETZB LSTERR]
	 .LOSE	1000
	.CALL	TTYSET	    	; SET UP TTY TO TAKE CONTROL CHARACTERS
	 .LOSE	1000
	MOVE	A,TTYOPT	; SET UP RUBOUT HANDLERS
	MOVE	[PUSHJ P,RUBECH]
	TLNE	A,%TOERS
	 JRST	[SETOM	LETRUB
		 MOVE	[PUSHJ P,RUBFLS]
		 JRST	.+1]
	MOVEM	XCTRUB
	POPJ 	P,
	
; SET UP TTY SO EVERYTHING ACTIVATES, ^G AND ^S INTERRUPT
TTYSET:	SETZ
	SIXBIT /TTYSET/
	1000,,TTYI
	[020202,,020202]
	SETZ [030202,,020202]

; FUNNY JCL HACKER.  ONLY USED IF MAINT SET--OTHERS GET NJCL

JCLRED:	MOVE	A,OPTION
	TLNN	A,OPTCMD
	 POPJ	P,			; NO JCL
	.BREAK	12,[5,,JCL]
	MOVE	B,[440700,,JCL]
	ILDB	A,B			; GET FIRST CHARACTER
	CAIN	A,"'			; ' MEANS THIS IS THE MESSAGE
	 JRST	JCLMSG
	SUBI	A,"0
	MOVE	B,CANNED(A)
	HRLI	B,440700		; POINTER TO CANNED MESSAGE INSTEAD
JCLMSG:	MOVEM	B,INPPTR		; FOR THE BENEFIT OF THE FILE PRINTER
	SETZM	CCT
JCLOOP:	ILDB	A,B
	JUMPE	A,POPJ1
	CAIN	A,^M
	 JRST	POPJ1
	AOJA	CCT,JCLOOP

; CANNED MESSAGzHzTES
CANNED:	[ASCIZ	/TRIVIA down for data-base maintenance.  Back very shortly./]
	[ASCIZ	/TRIVIA down due to data-base lossage.  Have patience./]

; JCL HACKER FOR NORMAL PEOPLE:  PRETENDS TO BE READING FROM THE TTY
NJCL:	MOVE	A,OPTION
	TLNN	A,OPTCMD
	 POPJ	P,
	.BREAK	12,[5,,JCL]
	SETOM	JCLMOD
	MOVE	A,[440700,,JCL]
	MOVEM	A,JCLPTR
	AOS	(P)
	POPJ	P,

SUBTTL	CORE ALLOCATOR
; IBLOCK:  TAKES #WORDS IN A, RETURNS POINTER IN A

IBLOCK:	ADD	A,GCSTOP		; FIND NEW GCSTOP
	CAML	A,FRETOP		; GREATER THAN FRETOP?
	 JRST	MORCOR			; YES
	EXCH	A,GCSTOP		; OLD GCSTOP IS POINTER TO CORE ALLOCATED
	POPJ	P,

; IF REQUEST BIGGER THAN AVAILABLE CORE, GET PAGE(S)
MORCOR:	PUSH	P,B
	PUSH	P,A			; SAVE GCSTOP
	SUB	A,FRETOP		; # OF NEW WORDS
	ADDI	A,2000
	IDIVI	A,2000			; # OF PAGES IS IN A
	PUSH	P,A			; SAVE AWAY
	MOVNS	A
	MOVE	B,FRETOP		; FIND NEW PAGE NUMBER
	LSH	B,-12
	HRL	B,A			; AOBJN POINTER IN B
%GETIP:	.CALL	[SETZ			; FOR HYSTERICAL REASONS
		 SIXBIT /CORBLK/
		 MOVEI	120000
		 [-1]
		 B
		 SETZI	%JSNEW]
	 FATINS	NO CORE AVAILABLE TO SATISFY REQUEST
	POP	P,A			; RECOVER # OF PAGES
	IMULI	A,2000			; ADJUSTMENT TO FRETOP
	ADDM	A,FRETOP		; UPDATE FRETOP
	POP	P,A			; RESTORE AC'S
	POP	P,B
	EXCH	A,GCSTOP		; A NOW HAS POINTER TO CORE, GCSTOP UPDATED
	POPJ	P,

SUBTTL	INPUT BUFFER EXPANSION

AGC:	PUSH	P,A
	PUSH	P,B
	PUSH	P,C
	AOS	AGCNUM
	MOVEI	A,500.(CCT)		; SIZE OF NEW BUFFER--500. MORE CHARS
	MOVEM	A,INBLEN
	IDIVI	A,5
	PUSH	P,A
	PUSHJ	P,IBLOCK		; GET NEW BUFFER IN A
	MOVE	B,INPPTR
	HRLI	B,(B)			; ADDRESS OF FIRST WORD OF OLD BUFFER
	HRR	B,A
	POP	P,C
	ADDI	C,-100(A)		; END OF NEW BUFFER
	BLT	B,(C)			; MOVE IT OVER
	MOVE	B,INPPTR
	SUBI	A,(B)			; AMOUNT TO CHANGE ADDRESSES BY
	ADDM	A,INPPTR		; UPDATE INPPTR
	ADDM	A,BUFPTR		; UPDATE CURRENT BUFFER POINTER
	MOVE	B,MAPLEN
	ADD	B,[MAPSIZ-1,,MAPSIZ-1]
AGCLOP:	ADDM	A,BUF(B)		; UPDATE SAVED BUFFER POINTER
	CAMN	B,PREV
	 JRST	AGCWIN
	ADD	B,[MAPSIZ,,MAPSIZ]
	JRST	AGCLOP
AGCWIN:	POP	P,C
	POP	P,B
	POP	P,A
	POPJ	P,
	

SUBTTL	UUOS

; TYPEOUT UUOS (STRAIGHT FROM DIRED, WITH SOME HELP FROM PDL)

UUOCT==0
UUOTAB:	JRST	ILUUO
	IRPS	X,,[ODEC OBPTR OHPOS OCTLP OALIGN OSIX OASC OASCI OASCR OSIXS]
	UUOCT==UUOCT+1
	X=UUOCT_33
	JRST	U!X
	TERMIN

UUOMAX==.-UUOTAB

UUOH:	0
	PUSH	P,A
	PUSH	P,B
	PUSH	P,C
	PUSH	P,D
	MOVEI	@40			; GET EFF ADDR. OF UUO
	MOVEM	UUOE
	MOVE	@0
	MOVEM	UUOD			; CONTENTS OF EFF ADR
	MOVE	B,UUOE			; EFF ADR
	LDB	A,[270400,,40]		; GET UUO AC,
	LDB	C,[330600,,40]		; OP CODE
	CAIL	C,UUOMAX
	MOVEI	C,0	; GRT=>ILLEGAL
	JRST	@UUOTAB(C)	; GO TO PROPER ROUT

UUORET: POP	P,D
	POP	P,C
	POP	P,B
	POP	P,A		; RESTORE AC'S
	JRST	2,@UUOH

ILUUO:	FATINS	ILLEGAL UUO
UOBPTR:	MOVEI	C,0
	MOVE	B,UUOD
	JRST	UOASC1
UOASCR:	SKIPA	C,[^M]	; CR FOR END OF TYPE
UOASC:	MOVEI	C,0	; NO CR
	HRLI	B,440700	; MAKE ASCII POINTER
UOASC1:	ILDB	A,B	; GET CHAR
	JUMPE	A,.+3	; FINISH?
	PUSHJ	P,IOTA
	JRST	.-3	; AND GET ANOTHER
	SKIPE	A,C	; GET SAVED CR?
	PUSHJ	P,IOTA
	JRST	UUORET

UOASCC:	HRLI	B,440700	; MAKE ASCII POINTER
UOAS1C:	ILDB	A,B		; GET CHAR
	CAIN	A,^C
	JRST	UUORET
	PUSHJ	P,IOTA
	JRST	UOAS1C		; AND GET ANOTHER

UOCTLP:	MOVEI	A,^P
	PUSHJ	P,IOTA1

UOASCI:	MOVE	A,B		; PRT ASCII IMMEDIATE
	PUSHJ	P,IOTA
	JRST	UUORET

UOSIX:	MOVE	B,UUOD
USXOOP:	JUMPE	B,UUORET
	LDB	A,[360600,,B]
	ADDI	A,40
	PUSHJ	P,IOTA
	LSH	B,6
	JRST	USXOOP

UOSIXS:	MOVE	A,[440600,,UUOD]
USLOOP:	ILDB	C,A
	ADDI	C,40
	PUSHJ	P,IOTC
	TLNE	A,770000
	JRST	USLOOP
	JRST	UUORET

UOHPOS:	SUB	B,HPOS
	JUMPLE	B,UOASCI
UOHPO1:	MOVEI	A,40
	PUSHJ	P,IOTA
	SOJG	B,UOHPO1
	JRST	UUORET

POWER:	0 ? 1 ? 10. ? 100. ? 1000. ? 10000. ? 100000. ? 1000000.

UOALIG:	MOVE	D,UUOD
	ANDI	A,7
	MOVE	A,POWER(A)
	MOVEI	C,40
UOALI1:	CAMLE	A,D
	PUSHJ	P,IOTC
	IDIVI	A,10.
	CAIE	A,1
	 JRST	UOALI1
	SETZ	A,

UODEC:	SKIPA	C,[10.]	; GET BASE FOR DECIMAL
UOOCT:	MOVEI	C,8.	; OCTAL BASE
	MOVE	B,UUOD	; GET ACTUAL WORD TO PRT
	JRST	.+3	; JOIN CODE
UODECI:	SKIPA	C,[10.]	; DECIMAL
UOOCTI:	MOVEI	C,8.
	MOVEM	C,BASE
	SKIPN	A
	HRREI	A,-1	; A=DIGIT COUNT
	PUSHJ	P,UONUM	; PRINT NUMBR
	JRST	UUORET

UONUM:	IDIV	B,BASE
	HRLM	C,(P)		; SAVE DIGIT
	SOJE	A,UONUM1	; DONE IF 0
	SKIPG	A		; + => MORE
	SKIPE	B		; - => B=0 => DONE
	PUSHJ	P,UONUM		; ELSE MORE
UONUM1:	HLRZ	C,(P)		; RETREIVE DIGITS
	ADDI	C,"0		; MAKE TO ASCII
	CAILE	C,"9		; IS IT GOOD DIG
	ADDI	C,"A-"9-1	; MAKE HEX DIGIT
	PUSHJ	P,IOTC
	POPJ	P,		; RET

IOTC:	PUSH	P,A
	MOVE	A,C
	PUSHJ	P,IOTA
	JRST	POPAJ

IOTA:	CAIN	A,^P
	JRST	IOTAP
IOTA1:	SKIPN	CTRLJ
	 JRST	[CAIN A,^J
	 	  POPJ P,
		 JRST .+1]
	XCT	XCTIOT
	CAIN	A,^I
	 JRST	[MOVE A,HPOS
		 ADDI A,10
		 ANDI A,7770
		 MOVEM A,HPOS
		 POPJ P,]
	AOS	HPOS
	CAIE	A,^M
	 POPJ	P,
	SETZM	HPOS
	POPJ	P,
IOTAP:	XCT	XCTUPA
	ADDI	A,100
	JRST	IOTA1

POPAJ:	POP	P,A
	POPJ	P,

; PRINT DISK FORMAT DATE.
PDSKDA:	PUSH	P,A
	PUSH	P,B
	.CALL	[SETZ
		 SIXBIT	/RQDATE/
		 SETZM	A]
	 .LOSE	1000
	LDB	B,[220500,,A]		; GET DAY OF MONTH
	ODEC	B
	OASCI	40
	LDB	B,[270400,,A]		; GET MONTH
	OASC	@MONTHS-1(B)
	OASC	[AzLð§X¹SCIZ / 19/]
	LDB	B,[330700,,A]		; YEAR
	ODEC	B
	OASC	[ASCIZ /  /]
	TLZ	A,-1
	ASH	A,-1
	IDIVI	A,3600.			; # HOURS AFTER MIDNIGHT IN A
	CAIN	A,0
	 ODEC	"0
	ODEC	A
	OASCI	":
	MOVE	A,B
	IDIVI	A,60.
	CAIGE	A,10.
	 OASCI	"0
	ODEC	A
	OASCI	":
	CAIGE	B,10.
	 OASCI	"0
	ODEC	B
	POP	P,B
	POP	P,A
	POPJ	P,

MONTHS:	[ASCIZ	/January/]
	[ASCIZ	/February/]
	[ASCIZ	/March/]
	[ASCIZ	/April/]
	[ASCIZ	/May/]
	[ASCIZ	/June/]
	[ASCIZ	/July/]
	[ASCIZ	/August/]
	[ASCIZ	/September/]
	[ASCIZ	/October/]
	[ASCIZ	/November/]
	[ASCIZ	/December/]


; INTERRUPT HANDLER

TSINT:	0
TSINTR:	0
	EXCH	A,TSINT
	TLNN	A,400000
	 JRST	TSWD1
	TRNN	A,1_TTYI
	 JRST	TSOUT
	MOVEI	A,TTYI
	.ITYIC	A,
	 JRST	TSOUT
	SKIPE	QMODE			; CTRL-G KILLS UNLESS  JUST TYPED
	 JRST	TSOUT
	CAIN	A,^G
	 .BREAK	16,60000
	SKIPN	INTALL
	 JRST	TSOUT
	CAIE	A,^S
	 JRST	TSOUT
	.RESET	TTYI,
	MOVE	P,PDLPTR
	.IOT	TTYO,A
	OASCR	[0]
	.DISMIS	[PTMAL1]
TSWD1:	TRNN	A,%PIPDL		; PDL OVERFLOW
	 JRST	TSOUT
	PUSH	P,A			; P STACK HAS BUFFER
	MOVE	A,TSINTR
	LDB	A,[270400,,-1(A)]	; GET AC FIELD
	CAIN	A,P
	 FATINS	PDL OVERFLOW ON NON-EXPANDABLE PDL
	PUSH	P,B
	PUSH	P,C
	AOS	PDLNUM			; NUMBER OF TIMES CAME HERE
	HLRE	A,MAPLEN		; GET CURRENT LENGTH
	MOVNS	A
	PUSH	P,A			; AND SAVE IT
	ADDI	A,15.*MAPSIZ+1		; ENOUGH FOR 15 MORE LINES
	PUSHJ	P,IBLOCK		; GET SPACE IN A
	MOVE	C,A			; AND SAVE IT
	MOVE	B,(P)			; GET LENGTH
	ADDI	B,(A)
	HRL	A,MAPLEN		; SET UP BLT
	BLT	A,(B)			; MOVE STACK
	POP	P,A
	MOVNS	A
	HRLI	A,-15.*MAPSIZ(A)
	HRR	A,C			; MAKE NEW POINTER
	MOVE	B,A
	SUB	B,MAPLEN		; GET INCREMENT
	HRLI	B,-15.*MAPSIZ		; FIXUP TO PREV
	ADD	PREV,B
	MOVEM	A,MAP'.þHOHBM;tR % /BI)ugÿdGð0QðX[ø_ï8Çzh"BF|w(prp@BF|w<þÄ@C,n	AðèD!/LOð0øw¾³h(øìü×p0î8CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yù°iK[øÔ¢ÅAøó*ÅAô6Û7g÷
8qô
X5e÷
X³Aö.[2söm7môZµmö®Z [ö,ÜµköM±i÷(¶gö,1e÷.[ köm7a÷,Y0Aö¬2sön¾}ôE
÷âÔô$Ó©ú¨Arô	52h,6Hõ¤.hi42hûøõÿÿõÈ´
,+hh
h/Zxõõ´Óõõ´Óõ`41/Zxõ´Óõ´Óõõ´Óõõ´Óõ`4+/Zxõ´Óõ´Óõ´Óõ´Óõõ´Óõõ´Óô¸õÀûô8	ô/ÿùô @_ï}ô¸õÀûô8
ô/ÿûô @_ï~ _ï}ô(õ,6öèM-R XõÈõõô¸õÀûõõõøö©1_/D"hjúx  F_ï~ô¸õÀûõ¸
õõ¯ÿùõ¯ÿùõõ´Óõøõõ´Óõ,6ô	 D_ï} F_öèMð(4Õõ¸	õ¯ÿóõ¯ÿûõ¯ÿûõøö4m2$_ï|õ`4m X4dQ$õÁ_õñ hkö+ôôÿÿ _ï|2B_+h9õå´×+h::_+h,õõ´Óõ¯ÿûõ¯ÿûõõ´Ó _5"he hl.@_õõöèM-R Xö¨1ûâ/B$hjS` òè4Ù0@ö0+hG+3Fhm+hd<Fhdõ¸	õ¯ÿï__ïzôX__.õÈõõ B_ï}õ¸
õ¯ÿíõøõ,6õøòè4Ûö0+hd _õèô8õÁûôö´± hnö0öP7+hdZ5FhU _/"ô8õÁûô4Fh_ hnö0öP7+hdZö±´·ô8õÇÙ pô8!,%ô8õÇÙô _õ¤Íõå´×+h</hiõå´×ô¸#õÀûô õå´Ý+a$4 $4 ð$4 0ô$4P
%B,ûlLúu* GøaÌAõ«Aú±Q ùÖP"ú$Ïø3 úvfUôèAøªP%yúQæOô+A§úh*>Aô¯*Y¡ø«k úvfUô¢Ã©ùô K÷£Ìøh Ó¡ø0â ©÷È¼©û4"¯ôèAø¨+Eúé>Aô¯)GùðÐD«úÌPT}ô	^IúiNùiS«øTGúfOô K÷£Ìøh&Ïû4èAø¨*>Aô¯$Î©ø´§Aõ´©ÕúH É«úÑaÔúH¾Aô¯$Î©ø´§Aõ´©ÕúH"A©ø+iEøÐ2}ô	^IúiNùiS«øTA¥ø´âÔAö/%yù3ªE¥ùÐf-¥úuaRAøjA[ø4¢Áôß K÷£Ìøh&O§úu Âø¨*>AùõjCø3"ñS·î[þYseåü»±åÉôñjËü}#Eô	^Rùá ú³& ©÷×P Að3DAd/P|`iBI1FatLhdBM;þÃBI)ugx}H`(BM*zps0GBF|wPþÐkBF|w(prp2BF|w<ps! D!/LO
 øw¾³ð47ðdC,n	Aðè'hPT(gøìü×pPð5ðì?x)ðÔyðü0CL$þx÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùiÔ«ôæUôm´göîX²a÷, eö.´sö2qôØ8oöm¹oöí1eöÌÙ1e÷±g÷-[7söLØ¹Aõ¬[9mö
Ø¶oöm3kömµsöM2möÌØ9Aöl6iöî1iö(4söí5m÷.P1göÙ´iöÙ cöÜ6möM¶Aö8AöM1mö²iöl!»÷Ï
ôëÑ$XZ=fhCö±4¡õ¸õ¯ÿñõø
õ,6õ¯ÿ÷õ¯ÿ÷Bpõ,6õø D_ï}õ¸	õ¯ÿíõõ´§õ¸õ¯ÿíõ¯ÿóõ¯ÿóõø _ï}õ`4£ D_ï~+hõå´¯ô+aðÿÿÿÿÿð 0 
0ñ4MÉûlM«ùÑÖÌútÐ#ø°æ QôU Ì«ø¨LúuA§û3*ÍAø4ìÌ«ù¨)ÐøqPS¡ø0â §úaÅAø3¬©AúQkE¥úqP%yúhE[úè Ó³ùf ø°êO¥÷È¼©û4"¯ôèAø¨+Eúé>Aô¯$Î©ø´§Aõ´©ÕúH Òúqj c÷È¼ùÕ"Òø3Ò§ú°© ø5 úQ`ÄAöo%yù3ªE¥ùÐf-¥úuaRAøjA[úQiÅ¥úÑP2}ôm°Aö aô0Aö aô0Aön K÷gTúS Ì[úTêÂ¥ô Ôõ°hRùÕ4}ô	^IúiNùiS«øTAøh>»DAd/P|`SøYý¼¯H%ð0OEfpxLp$C^\a(ÿGø¼K©ÿEBI4j3þ×T=BF|w<psðè[A8D!/LOðHøw¾³hH,øìü×p
0ð´3ðXiðÌðd¥CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YùµgG[ùéÓAøó*ÅAô6Ø°e÷¸göLÜ9kö
Y qöÌ\´a÷-4AöM¸köÈ·cöî\8söÍ e÷[¸g÷ [ö-Ø·söÙ8eö3oö8qöÜµq÷. eö-´qöm8aôZ·e÷
Ü!»÷Ï
ñ¢SúÐM«ùÑÖÁùÓêÎø¨Aðw,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤,6Hõ¤	,h+/ZxöèM-Rõõ´mõõ´mõ´mõ´m$8nXfõ,6h7õ,6h7 " B_ï}öèM-Rõ¸õ¯ÿïõ¯ÿ÷õ¯ÿ÷õø	 D_ï|5Dhõ¸õ¯ÿíõõ´oõ¯ÿùõ¯ÿùõøô8
/h8+h5õ¸õ¯ÿïõ¯ÿõõ¯ÿõõ¸õ¯ÿíõøõ,6õøô¯ÿû D_ï~òè4qö0+h/õ¸õ¯ÿíõ,6h9õ¸õ¯ÿíõ¯ÿõõ¯ÿõõøô	õµÝ _ï| _ï{4fQ&.ðW+ð0ë
PDL:	BLOCK 30ð7gX">>
<UNASSIGN Bð0 ABBLE>
<GC 0 T>ôX?XBZE BLOCK IN MAP
BUF==-2			; SAVED BYTE POINTER TO ^M TERMINATING LINE
HP==-1			; HORIZONTAL POSITION
CHAR==0			; # OF CHARACTERS ON LINE

O=0
A=1
B=2
C=3
D=4
E=5
F=6
CCT=7			; COUNT OF CHARACTERS IN BUFFER
BUFPTR=10		; BYTE POINTER TO LAST CHARACTER IN BUFFER
CHPOS=11		; HPOS ON CURRENT LINE
CCHARS=12		; # OF CHARACTERS ON CURRENT LINE
PREV=13			; POINTER TO ENTRY IN LINE MAP FOR PREVIOUS LINE--STACK
P=17

SUBTTL	MACROS

DEFINE ECHO
	SKIPN	JCLMOD
	 .CALL ECHOBK
	 JFCL
TERMIN

; LOSSAGES
DEFINE FATINS NAME\
	.VAXX|Y2PLEN		; FITðBTITLE TRIVIA startup

.MLLIT==1

TTYCHN==1
SAVCHN==2
MUDCHN@öÿÿõ`1ôÿÿô¯ÿý D_õ¸õ¯ÿíõ¯ÿýXð?õ
<USE-TOTAL "ASYLUM">

<USE "MADMAN" "STR">

<FLOAD "AR2:TAA;SSNAME NBIN">

<GDECL (QSPACE ASPACE SSPACE MOBYSPACE LOSSSPACE)
       SPACE
       (TVAS>"X%
DSKI==3
DSKO==4
CLIO==5

MAPSIZ==3		; SIZE OF BLOCK IN LINE MAP

; OFFSETS INTO LINðYðÍVARIAB
MUMBLE=Y2X|TITLE TVBUG

.MLLIT==1

TTYI==1
TTYO==2îðY!ûlQúrâÄ[ør"Ãðð YwôâEù"ø3*ÅEôgYAúfÅAøÒl)Aô¯)GùðÐTø4é ©÷È¼©û4"¯ôiÙú³PVøu'Ò}ô	^Rùá §út Ãô K÷,ÐõµÐS¡ø0â ø°êO¥÷È¼ùÕ"Òø3Ò§ú°© úQiÅ©ô_ K÷gTúS Ì[úTêÂ¥ô Ôõ°iEø¾AùiÔAùõjCø3® AEoDoÑCt2þL]øRXÆÍtM)`BI)ugÿdOHB6N@ÿ0,Iøìü×þ!C,n	A/P	PD!/LO
 Xøw¾³Y YNISH
	POP	P,C
	POP	P,B
	POP	P,A
TSOUT:	EXCH	A,TSINT
	.DISMIS	TSINTR	

CONSTA
ðX¹&4ð4PCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yú0iËøaÈørÐGú±P!·öÎ·söLY [ö-Ø¶mö¹cöÈ1oöÚ´qöM c÷
8mö,5i÷
¶mö
 aô
Y4e÷-Ý}÷ÈñO#Äøs(©úÐiÓSôiÙú³P(©úÔèAø¬T §úaÅ}ôE
÷âÔô`Éõ°äAùËaÈørÐ'F,6Hõ¤,6Hõ¤,h+/Zx,6õ´ _ô8õÁûõÀõõô¸õÀû,6õô¸õÀû,6õöèM-R,6hB,6hBöèM-Rõ¯ÿûõ¯ÿûõ¯ÿ÷õ¯ÿ÷Dp D_ï}ö±4'ô8õå´+h@õ¯ÿûõ¯ÿûõ,6õ¯ÿùõ¯ÿùBpõ,6Fpô¯ÿÿ DX hCö0+h+õ,6õ¯ÿõõ¯ÿõDpô¯ÿ÷ D_ï| hCöõ`4ô8õÇÙô¯ÿù _ï}õ¤Íô8õÇÙ pîô8,%õ¯ÿÿõ¯ÿÿBpô8õÇÙõ¤S _ï| ôô/ÿ÷ F_ï|õ`4ô8õÇÙ pô8,%ô8õÇÙô¯ÿù _ï}õ¤Íô8õÇÙ pô8,%ô¸!õÀû ôô/ÿÿ FXô8#õÇÙô	õµÝ ô¯ÿÿ XõµÝô ô¯ÿÿ HXô8õÇÙô¯ÿÿ X,$iô8õÇÙõ¤Sõ`4õå´ô'+aô`8DIMûlMù3Ãø2g-ùaËAôq"Ãô
Vùb¢Aø5'ÍAúfÅAøÒl)AøjA[úQ`Ä¯ôiE§øµDúVÁ¥ø°b ¯ù3§IøëfÁùÐ&cô	^Rùá ùÑlTAú%yúQæOô+A§úh*>Aô¯)GùðÐQ§úaÅAúTAùõjCø3"ôHCùÉê ¥ø°b Eô Eô	^Rùá ø5 úT§Ò§ô ùÔî Að-DAd/Pÿ°øRXÆÍtM>BI-^(þ×toBI@tE(xBM;tR %ðleBI1Faþ4EBI)ugx}H!ðOð`]ðmH?D!/LOðhøw¾³h`C,n	A/PðD8øìü×ppACL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj Yù°dÌ[ør Éõ°äEùh#Ì«ø¨Ûmöí0eö1e÷2cöM1Aõ¬X¸cö,6söMÐ1gö¬Ü1aöÐ-cöÎ\µgö.Y´kôY8s÷
0cölP1eöl köm7a÷,Y0Aö¬2sön¾}ôE
÷âÔôäÎù3£ø2f?AôàÐ Að+,6Hõ¤,6Hõ¤,h+/Zx _,6õöèM-R _ï~òè4#0@+h h0@+hòè4%0@+h _2"X+h  _õ`4!õ¯ÿÿõ¯ÿÿô,<'ô/h+a$4$4$401Q9ûlWùÓ¤Îõ³`É÷èÄøs(EúÐfUôHO¥ô Ì§ø¨+Ï¥ø<ø°êO¥ôÚ ùÖn¾AúóéDSû¨ AðDAd/Pÿ°#C[g'3wDpøìü×pîD!/LO
 øw¾³ð4CL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúògNùÑÖÍù3 ùb Cûm±a÷,Z0AöL[´oö¬Ø·söH köM9iô7_>A
ôÍY! 6þ	XBF|w<þÄCL$pap÷ÈñO Îô Ó§ù1çE÷è#Ì«ø¯.ùb yúj YúQkE¥úqPGú±P!·ö,³oö\³oô
9möÙ5oöÈ eöÌ´qô7_>A
 6<CC