mesga(Terminated by user
mesgm(Do you want to start this tutorial again? (N/y)
readvdu(cvl1,char,n)
if(:cvl1:.eq.Y) then
 nodef=t
 goto TOP
endif
q1quit=f;dmpstk=t;nocomm=f;nocopy=f;nodef=f