$PAGE 20

  $LABEL AQF810

	CMP	#40, R0

	BNE	P20064
	MOV	#20000, @#K01000

	MOV	#40000, @#K01002

	MOV	#200, @#K01004

	MOV	#61, @#K01006

	MOV	#P20666, R3

	BR	P20236
P20064:
	CMP	#62, R0

	BNE	P20130
	MOV	#60000, @#K01000

	MOV	#100000, @#K01002

	MOV	#40000, @#K01004

	MOV	#63, @#K01006

	MOV	#P20700, R3

	BR	P20236
P20130:
	CMP	#64, R0

	BNE	P20174
	MOV	#120000, @#K01000

	MOV	#140000, @#K01002

	MOV	#100000, @#K01004

	MOV	#65, @#K01006

	MOV	#P20712, R3

	BR	P20236
P20174:
	CMP	#66, R0

	BNE	P20236
	MOV	#160000, @#K01000

	MOV	#177600, @#K01002

	MOV	#140000, @#K01004

	MOV	#67, @#K01006

	MOV	#P20724, R3

P20236:
	CALL	P20340

  $LABEL P20242
	MOV	#P20656, R3

	CALL	P20340

	MOV	#LF, R3

	CALL	P20366

	MOV	#10, R4

P20266:
	MOV	#7, R5

	MOV	R0, R3
	CALL	P20366

P20300:
	MOV	#SPACE, R3

	CALL	P20366

	DEC	R5
	BNE	P20300
	DEC	R4
	BNE	P20266
	MOV	#P20440, R3

	CALL	P20340

  $RETURN JUMP

P20340:
	TSTB	@#TPS

	BPL	P20340
	MOVB	(R3)+, @#TPB

	CALL	P20406

	CMPB	#377, (R3)

	BNE	P20340
	RETURN
P20366:
	TSTB	@#TPS

	BPL	P20366
	MOVB	R3, @#TPB

	CALL	P20406

	RETURN
P20406:
	TSTB	@#TKS

	BPL	P20436
	CMPB	@#TKB, #23

	BNE	P20436
P20424:
	TSTB	@#TKS

	BPL	P20424
	TSTB	@#TKB

P20436:
	RETURN

  $LABEL P20440
  	.ASCII	<CR><LF>
	.ASCII	|     0       1       2       3       4       5       6       7       |<CR><LF>
	.ASCII	|BANK 0123456701234567012345670123456701234567012345670123456701234567|

  $LABEL P20656
	.ASCII	<CR><LF>
	.ASCII	|     |
	.BYTE	377

  $LABEL P20666
	.ASCII	|  0 - 1MB|
	.BYTE	377

  $LABEL P20700
	.ASCII	|  1 - 2MB|
	.BYTE	377

  $LABEL P20712
	.ASCII	|  2 - 3MB|
	.BYTE	377

  $LABEL P20724
	.ASCII	|  3 - 4MB|
	.BYTE	377

$FILL