externalintegerfn get YNX
  on event 9 start
    result = 'X'
  finish
  integer c
  cycle
    !read symbol(c)  ;! read symbol currently not working due to %name parameters not being handled yet.
    c = next symbol; skip symbol
    signal 7,1,0 if c = '?'
    c = c - 'a' + 'A' if 'a' <= c <= 'z'
    result = c if c = 'Y' or c = 'N'
  repeat
end

! A complete program.  Should run.
begin
  integer Answer
  on event 7 start
    print string("What indeed?"); newline
    ! drop through and restart...
  finish
  
  prompt("Y or N: ");
  print string("Starting"); newline
  cycle
    Answer = get YNX
    if Answer = 'Y' start
      print string("Yes!"); newline
    finish else if Answer = 'N' start
      print string("No?"); newline
    finish else if Answer = 'X' start
      print string("
Exiting on trapped END OF FILE event!."); newlines(2)
      stop
    finish else start
      monitor and stop
    finish
  repeat
endofprogram