| Ring menus (MENU) / Examples | |
MENU
ON ACTION new
CALL newFile()
ON ACTION open
CALL openFile()
ON ACTION save
CALL saveFile()
ON ACTION import
LOAD FROM "infile.dat" INSERT INTO table
ON ACTION quit
EXIT PROGRAM
END MENU