begin ; !Quote
include  "inc:fs.imp"
include  "inc:util.imp"
string (255)pass
integer  dump

on  event  3,4,9 start 
  printstring(" QUOTE fails: ".event_message);  newline
  stop 
finish 

pass = cliparam
if  pass="" start 
  set terminal mode(noecho)
  prompt("Pass:")
  readline(pass)
finish 
dump = fcomm('q'<<8,pass)

endofprogram