// shows a save screen if pressing F4

{$CLEO}
0000:

while true
  wait 250
  if
    0AB0:   key_pressed 0x73
  then
    03D8: show_save_screen 
  end
end