%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
