title TEACH - Lisp Teacher

a=:1
b=:2

ttyo=:3

define syscal op,args
.call [setz ? sixbit /op/ ? args ((setz))]
termin

define type &string
	movei a,<.length string>
	move b,[440700,,[ascii string]]
	syscal SIOT,[%climm,,ttyo ? b ? a]
	  .lose %lsfil
termin

teach:	syscal OPEN,[ %clbit,,.uao\%tjdis ? %climm,,ttyo  ;open TTY for output
		      [sixbit /TTY/]]
	  .lose %lsfil
	type "ATeach-Lisp has been redone. Please sayA
	:STUDNT;XTEACHA Aand runA
	(LESSON INFO)A Afor help on how to use it.A"
	.logout 1,

end teach