*20
	PMODE
	*200
START,	CLA CLL
	DCA PTR		/CLEAR STORAGE
	TAD NZ1
	DCA NZ2
	TLS
	KCC		/SET FLAGS
	TAD CR
	TYPO
	TAD LF
	TYPO
INPUT,	KSF
	JMP .-1		/WAIT
	KRB
	TLS
	DCA TEMP
	TAD TEMP
	AND P770
	TAD N260	/CHECK FOR OCTAL
	SNA
	JMP .+5
	CLA		/NO, PRINT"?"
	TAD QUES
	TYPO
	JMP START
	TAD PTR		/YES
	CLL RTL		/PACK
	RAL
	TAD TEMP
	TAD N260
	DCA PTR
	ISZ NZ2		/FOUR NUMBERS?
	JMP INPUT	/NO, TAKE MORE
	TAD NZ1
	DCA NZ2		/YES RESET COUNTER
	TAD SL		/PRINT SLASH
	TYPO
	TAD I PTR
	RAL
	DCA PTR
OUT,	TAD PTR
	RTL		/PRINT CONTENT
	RAL		/OF PTR
	DCA PTR
	TAD PTR
	AND P7
	TAD P260
	TYPO
	ISZ NZ2
	JMP OUT
	JMP START
	TYPO=JMS .
	0		/SUBROUTINE TO TYPE
	TSF		/AND CLEAR ACC
	JMP .-1
	TLS
	CLA
	JMP I .-5
NZ1,	-4
NZ2,	0
CR,	215
LF,	212
QUES,	277
SL,	257
PTR,	0
TEMP,	0
P260,	260
N260,	-260
P770,	770
P7,	7