/003 TYPE A CHARACTER CHAIN
/TYPE THE CHARACTERS IN THE LIST, POINTED TO
/BY THE FIRST ARGUMENT. LIST TERMINATOR =0
/
/	JMS TYPTEX	/TYPE "ABC"
/	   LIST
/	   RETURN	/AC=0
/
/LIST,	301		/"A"
/	302		/"B"
/	303		/"C"
/	0		/TERMINATOR

	0		/USED AS POINTER
TYPTEX,	0		/TYPE TEXT STRING
	TAD I TYPTEX	/GET ARG
	DCA TYPTEX-1	/SAVE TO USE AS POINTER
	ISZ TYPTEX	/FOR  CORRECT RETURN
	TAD I TYPTEX-1	/GET CHAR
	SNA		/ZERO?
	JMP I TYPTEX	/YES, RETURN
	JMS TYPE	/NO
	ISZ TYPTEX-1
	JMP TYPTEX+4	/LOOK FOR NEXT