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 "AThe new Teach-Lisp has been installed at last. Please sayA
	:TEACH;LISPA Aand doA
	(LESSON INFO)A Afor help if you need it.A"
	.logout 1,

end teach