$PAGE 24

	BR	P24024

	.WORD	0

  $LABEL AUFA14

P24024:
	$CGOTO	#17, #APFA3E

	MOV	#175561, R1

	$SGOTO	#24, #P24052

  $LABEL P24052
	CALL	P24314

	TST	R2
	BEQ	P24070
	MOV	#14, @#CCR

P24070:
	MOV	#$V4V10, @#V.TR4

	MOV	#340, @#V.TR4+2

	CLR	R1
P24106:
	MOV	R1, R2
P24110:
	MOV	R2, (R2)
	BCS	P24360
	TST	(R2)+
	BIT	#20000, R2

	BEQ	P24110
	MOV	R1, R2
P24126:
	MOV	(R2), R3
	CMP	R3, R2
	BNE	P24366
	TST	(R2)+
	BIT	#20000, R2

	BEQ	P24126
	MOV	#52525, R3

	CALL	P24240

	CALL	P24254

	MOV	#125252, R3

	CALL	P24240

	CALL	P24254

	CALL	P24374

	CMP	#20000, R1

	BNE	P24222
	MOV	#$V4V10, @#V.TR4

	MOV	#340, @#V.TR4+2

P24222:
	ADD	#20000, R1

	CMP	#160000, R1

	BEQ	P24274
	JMP	P24106

P24240:
	MOV	R1, R2
P24242:
	MOV	R3, (R2)+
	BIT	#20000, R2

	BEQ	P24242
	RETURN
P24254:
	MOV	R1, R2
P24256:
	MOV	(R2)+, R4
	CMP	R3, R4
	BNE	P24366
	BIT	#20000, R2

	BEQ	P24256
	RETURN
P24274:
	MOV	#175670, R1

	$GOTO	#17, #APFA4A, JUMP

P24314:
	MOV	#P243402, R0

	BR	P24322
P24322:
	TSTB	@#TPS

	BPL	P24322
	MOVB	(R0)+, @#TPB

	CMPB	#377, (R0)

	BNE	P24322
	RETURN
P24344:
	TSTB	@#TPS

	BPL	P24344
	MOVB	R0, @#TPB

	RETURN
P24360:
	MOV	#'X, R0

	BR	P24344
P24366:
	MOV	#'B, R0

	BR	P24344
P24374:
	MOV	#'G, R0

	BR	P24344

  $LABEL P243402
	.ASCII	<CR><LF><LF>
	.ASCII	|BANK 01234567|<CR><LF>

	.ASCII	|     |

	.BYTE	377

  $FILL