@on-reset
	[ LITr 01 ]
	#18
	@loop24
		#14
		@loop80
			;str puts
			#2018 DEO
			STHrk SUB
			DUP ?loop80
		POP
		#0a18 DEO
		STHrk SUB
		DUP ?loop24
	BRK

@puts ( s* -- )
	LDAk #18 DEO
	INC2 LDAk ?puts
	POP2 JMP2r

@str "IBM