96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
38 lines
825 B
Plaintext
38 lines
825 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
|