                      octal typeout - suppresses leading zeros

/calling sequence_. lac number, jda opt

opt,	0
	dap opx
	setup op2., 6
	stf 1
op1,	szf i 1
	tyo
	lio opt
	cla
	rcl 3s
	dio opt
	sza
	clf 1
	sza i
	law 20
	swap
	count op2, op1
	tyo
opx,	jmp .

start
         
                                                                                                                                                                                                                                                                                                    >>37<<g
j-6                                                                                                                                                                                                                
