Fairlight: Text at D694

More of the source text, lines 16370-17190: the source of the part of MAIN_LOOP that uses the thing in hand and chooses one of the five places to carry things, with its labels STAR2, ST3 to ST9, ST20 to ST22, STE3 and USE4 to USE6, and calls of routines the author called INPUT, EEN, TELE, INFO0, INFOR and PRINT (INPUT, SAVE_OBJECT_POSITIONS, the entry into a room in TITLE_SCREEN, CLEAR_THING_BOX, SHOW_THING_IN_USE and PRINT).

Once the game runs, its buffers lie over these bytes: the clean copy of the screen runs to offset 363, and the four pages COMPOSITE_TO_SCREEN composites from start at offsets 364 (page $D8, BUFFER_D800), 620 (page $D9, BUFFER_D900) and 876 (page $DA, BUFFER_DA00); page $DB lies over the loader's leftovers.

More of the source text, lines 16370-17190: the source of the part of MAIN_LOOP that uses the thing in hand and chooses one of the five places to carry things, with its labels STAR2, ST3 to ST9, ST20 to ST22, STE3 and USE4 to USE6, and calls of routines the author called INPUT, EEN, TELE, INFO0, INFOR and PRINT (INPUT, SAVE_OBJECT_POSITIONS, the entry into a room in TITLE_SCREEN, CLEAR_THING_BOX, SHOW_THING_IN_USE and PRINT). Once the game runs, its buffers lie over these bytes: the clean copy of the screen runs to offset 363, and the four pages COMPOSITE_TO_SCREEN composites from start at offsets 364 (page $D8, BUFFER_D800), 620 (page $D9, BUFFER_D900) and 876 (page $DA, BUFFER_DA00); page $DB lies over the loader's leftovers.
SOURCE_AFTER_TEMPLATES	D694	DEFM "UT",$0D,$F2,"?",$09,"RRA",$0D,$FC,"?",$09,"JR",$09
	D6A4	DEFM "NC,STAR2",$0D,$06,"@",$09,"BIT",$09
	D6B4	DEFM "1,B",$0D,$10,"@",$09,"RET",$09,"NZ",$0D,$1A,"@"
	D6C4	DEFM "STAR2",$09,"AND",$09,"12",$0D,"$@",$09
	D6D4	DEFM "JR",$09,"Z,ST20",$0D,".@",$09,"LD",$09
	D6E4	DEFM "H,255",$0D,"8@",$09,"LD",$09,"L,(I"
	D6F4	DEFM "Y+30)",$0D,"B@",$09,"LD",$09,"E,(H"
	D704	DEFM "L)",$0D,"L@",$09,"INC",$09,"HL",$0D,"V@",$09
	D714	DEFM "LD",$09,"D,(HL)",$0D,$60,"@",$09,"PUS"
	D724	DEFM "H",$09,"DE",$0D,"j@",$09,"POP",$09,"IX",$0D,"t"
	D734	DEFM "@",$09,"LD",$09,"A,(IX+12)",$0D,"~"
	D744	DEFM "@",$09,"AND",$09,"15",$0D,$88,"@",$09,"CP",$09,"9"
	D754	DEFM $0D,$92,"@",$09,"JR",$09,"NZ,USE6",$0D,$9C
	D764	DEFM "@",$09,"LD",$09,"(IY+52),30",$0D
	D774	DEFM $A6,"@",$09,"LD",$09,"B,0",$0D,$B0,"@",$09,"LD",$09
	D784	DEFM "(HL),B",$0D,$BA,"@",$09,"DEC",$09,"HL"
	D794	DEFM $0D,$C4,"@",$09,"LD",$09,"(HL),B",$0D,$CE,"@"
	D7A4	DEFM $09,"CALL",$09,"EEN",$0D,$D8,"@",$09,"POP"
	D7B4	DEFM $09,"HL",$0D,$E2,"@",$09,"JP",$09,"TELE",$0D,$EC
	D7C4	DEFM "@USE6",$09,"CP",$09,"6",$0D,$F6,"@",$09,"JR"
	D7D4	DEFM $09,"NZ,USE5",$0D,$00,"A",$09,"LD",$09,"D"
	D7E4	DEFM "E,2313",$0D,$0A,"A",$09,"LD",$09,"(V+"
	D7F4	DEFM "21),DE",$0D,$14,"A",$09,"JR"
BUFFER_D800	D800	DEFB $09
	D801	DEFM "ST22",$0D,$1E,"AUSE5",$09,"CP",$09,"5"
	D811	DEFM $0D,"(A",$09,"JR",$09,"NZ,USE4",$0D,"2"
	D821	DEFM "A",$09,"SET",$09,"7,(IY+23)",$0D
	D831	DEFM "<A",$09,"JR",$09,"ST22",$0D,"FAUSE"
	D841	DEFM "4",$09,"CP",$09,"4",$0D,"PA",$09,"JR",$09,"NZ,"
	D851	DEFM "ST20",$0D,"ZA",$09,"LD",$09,"A,(V+"
	D861	DEFM "21)",$0D,"dA",$09,"INC",$09,"A",$0D,"nA",$09
	D871	DEFM "CP",$09,"10",$0D,"xA",$09,"JR",$09,"NC,S"
	D881	DEFM "T21",$0D,$82,"A",$09,"LD",$09,"(V+21)"
	D891	DEFM ",A",$0D,$8C,"A",$09,"JR",$09,"ST22",$0D,$96,"A"
	D8A1	DEFM "ST21",$09,"LD",$09,"(IY+22),"
	D8B1	DEFM "9",$0D,$A0,"AST22",$09,"LD",$09,"A,(V"
	D8C1	DEFM "+30)",$0D,$AA,"A",$09,"SET",$09,"0,(I"
	D8D1	DEFM "Y+23)",$0D,$B4,"A",$09,"LD",$09,"(HL)"
	D8E1	DEFM ",0",$0D,$BE,"A",$09,"DEC",$09,"HL",$0D,$C8,"A",$09
	D8F1	DEFM "LD",$09,"(HL),0",$0D,$D2,"A",$09,"JR"
BUFFER_D900	D900	DEFB $09
	D901	DEFM "STE3",$0D,$DC,"AST20",$09,"LD",$09,"A"
	D911	DEFM ",247",$0D,$E6,"A",$09,"CALL",$09,"INP"
	D921	DEFM "UT",$0D,$F0,"A",$09,"JR",$09,"Z,ST3",$0D,$FA
	D931	DEFM "A",$09,"LD",$09,"B,5",$0D,$04,"B",$09,"LD",$09,"C"
	D941	DEFM ",255",$0D,$0E,"BST4",$09,"INC",$09,"C"
	D951	DEFM $0D,$18,"B",$09,"INC",$09,"C",$0D,"\"B",$09,"RRA"
	D961	DEFM $0D,",B",$09,"JR",$09,"C,ST5",$0D,"6B",$09
	D971	DEFM "DJNZ",$09,"ST4",$0D,"@BST5",$09,"L"
	D981	DEFM "D",$09,"A,158",$0D,"JB",$09,"ADD",$09,"A"
	D991	DEFM ",C",$0D,"TB",$09,"CP",$09,"(IY+30)"
	D9A1	DEFM $0D,$5E,"B",$09,"JR",$09,"Z,ST3",$0D,"hB",$09
	D9B1	DEFM "LD",$09,"(IY+30),A",$0D,"rBS"
	D9C1	DEFM "TE3",$09,"LD",$09,"H,255",$0D,"\|B",$09
	D9D1	DEFM "LD",$09,"L,A",$0D,$86,"B",$09,"LD",$09,"E,("
	D9E1	DEFM "HL)",$0D,$90,"B",$09,"INC",$09,"HL",$0D,$9A,"B"
	D9F1	DEFM $09,"LD",$09,"D,(HL)",$0D,$A4,"B",$09,"E"
BUFFER_DA00	DA00	DEFB $58
	DA01	DEFM $09,"DE,HL",$0D,$AE,"B",$09,"LD",$09,"A,H"
	DA11	DEFM $0D,$B8,"B",$09,"OR",$09,"L",$0D,$C2,"B",$09,"JR",$09,"N"
	DA21	DEFM "Z,ST6",$0D,$CC,"B",$09,"CALL",$09,"IN"
	DA31	DEFM "FO0",$0D,$D6,"B",$09,"JR",$09,"ST3",$0D,$E0,"B"
	DA41	DEFM "ST6",$09,"CALL",$09,"INFOR",$0D,$EA
	DA51	DEFM "BST3",$09,"BIT",$09,"0,(IY+2"
	DA61	DEFM "3)",$0D,$F4,"B",$09,"JR",$09,"Z,ST9",$0D,$FE
	DA71	DEFM "B",$09,"RES",$09,"0,(IY+23)",$0D
	DA81	DEFM $08,"C",$09,"CALL",$09,"PRINT",$0D,$12,"C"
	DA91	DEFM $09,"DEFB",$09,"200,55,12,"
	DAA1	DEFM "164",$0D,$1C,"C",$09,"LD",$09,"A,(V+2"
	DAB1	DEFM "1)",$0D,"&C",$09,"ADD",$09,"A,27",$0D