title TDUMP Dumper for revised TEACH-LISP
tdump: .value [ asciz \..safe/0
:--Dump out a new TEACH;TS XTEACH--
:if more 0
(:(Yes)jcl TEACH;TEACH DUMP
l SYS;TS LISP
0g
)
:else
(: (No)
)
:vp \ ]
.logout 1,
end tdump