mesg(       Press "enter" to continue or "quit" to stop
readvdu(cvl1,char,cvl1)
if(:cvl1:.eq.quit) then
 goto QUIT
else
 do jj=1,25
 mesg(
 enddo
endif