IDSI=700601
IOF=700002
IDCF=700704
IDLA=700606
GO	IOF
	LAC	(DISPLA
	DAC	DT#
	LAC	(20010
	DAC	DF#
	LAW	-17
	DAC	CNTR#
LOOP	LAC*	DT
	DAC*	DF
	ISZ	DT
	ISZ	DF
	ISZ	CNTR
	JMP	LOOP
	XX
STDIS	LAC	(20010
	IDCF
	IDLA
	IDSI
	JMP	.-1
	LAW	-1000
	DAC	CNTR
	ISZ	CNTR
	JMP	.-1
	JMP	STDIS
DISPLA	020114
	220500
	060100
	.SIXBT	'ABCDEFGHIJKL'
	.SIXBT	'MNOPQRSTUVWX'
	313237
	003000
	.END GO