9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
39 lines
826 B
Plaintext
39 lines
826 B
Plaintext
|
|
#require "hbnf"
|
|
|
|
#include "ftmenuto.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nChoice := 1
|
|
|
|
CLS
|
|
|
|
// Simple prompt
|
|
@ 1, 1 PROMPT "Menu choice #1"
|
|
|
|
// Prompt with color
|
|
@ 3, 1 PROMPT "Menu choice #2" COLOR "W+/R,W+/B"
|
|
|
|
// Prompt with a message
|
|
@ 5, 1 PROMPT "Menu choice #3" MESSAGE "Go to lunch"
|
|
|
|
// Prompt with pinpoint message control
|
|
@ 7, 1 PROMPT "Menu choice #4" MESSAGE "Drop Dead" ;
|
|
MSGROW 22 MSGCOL 4 MSGCOLOR "GR+/N"
|
|
|
|
// Prompt with a trigger character ("#" character)
|
|
@ 11, 1 PROMPT "Menu choice #6" TRIGGER 13
|
|
|
|
// Prompt with trigger character color control
|
|
@ 13, 1 PROMPT "Menu Choice #7" TRIGGER 13 TRIGGERCOLOR "R+/BG,G+/N"
|
|
|
|
// Prompt with right and left arrow keys disabled
|
|
@ 15, 1 PROMPT "Menu Choice #8" RIGHT 8 LEFT 8
|
|
|
|
MENU TO nChoice
|
|
|
|
? nChoice
|
|
|
|
RETURN
|