70140e5aed
* contrib/hbct/tests/ctwtest.prg
* contrib/hbcups/tests/test.prg
* contrib/hbfbird/tests/stress.prg
* contrib/hbnf/aredit.prg
* contrib/hbnf/doc/en/aredit.txt
* contrib/hbnf/menu1.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbpgsql/tests/async.prg
* contrib/hbpgsql/tests/cache.prg
* contrib/hbpgsql/tests/stress.prg
* contrib/hbpgsql/tests/test.prg
* contrib/hbtip/tests/tiptest.prg
* contrib/xhb/tests/compress.prg
* doc/en/sayget.txt
* src/rtl/profiler.prg
* tests/ac_test.prg
* tests/boxtst2.prg
* tests/fortest.prg
* tests/menutest.prg
* tests/mt/mttest11.prg
* tests/parseini.prg
* tests/speedold.prg
* tests/tstchbx.prg
* tests/usrrdd/exarr.prg
* tests/videotst.prg
* tests/vidtest.prg
* formatting
! deleted SetMode()s
* CLEAR SCREEN -> CLS
* other minor cleanups
71 lines
1.5 KiB
Plaintext
71 lines
1.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
MEMVAR ptestvar
|
|
|
|
LOCAL testvar
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
CLS
|
|
|
|
@ 1, 10 PROMPT "Menu Item 1" MESSAGE "Menu Message 1"
|
|
@ 2, 10 PROMPT "Menu Item 2" MESSAGE "Menu Message 2"
|
|
@ 3, 10 PROMPT "Menu Item 3" MESSAGE "Menu Message 3"
|
|
@ 4, 10 PROMPT "Menu Item 4" MESSAGE "Menu Message 4"
|
|
|
|
@ 6, 10 SAY "Testing with LOCAL parameter"
|
|
@ 7, 10 SAY "Press F8 to recurse into MENU TO"
|
|
|
|
MENU TO testvar
|
|
|
|
@ 9, 10 SAY "Your Choice = " + Str( testvar, 1 )
|
|
|
|
Inkey( 0 )
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
CLS
|
|
|
|
@ 1, 10 PROMPT "Menu Item 1" MESSAGE "Menu Message 1"
|
|
@ 2, 10 PROMPT "Menu Item 2" MESSAGE "Menu Message 2"
|
|
@ 3, 10 PROMPT "Menu Item 3" MESSAGE "Menu Message 3"
|
|
@ 4, 10 PROMPT "Menu Item 4" MESSAGE "Menu Message 4"
|
|
|
|
@ 6, 10 SAY "Testing with MEMVAR parameter"
|
|
@ 7, 10 SAY "Press F8 to recurse into MENU TO"
|
|
|
|
MENU TO ptestvar
|
|
|
|
@ 9, 10 SAY "Your Choice = " + Str( ptestvar, 1 )
|
|
|
|
RETURN
|
|
|
|
PROCEDURE RECURSE()
|
|
|
|
LOCAL testvar
|
|
|
|
SET KEY K_F8 TO
|
|
|
|
@ 6, 10 SAY " "
|
|
|
|
@ 1, 50 PROMPT "Menu Item 1" MESSAGE "Menu Message 1"
|
|
@ 2, 50 PROMPT "Menu Item 2" MESSAGE "Menu Message 2"
|
|
@ 3, 50 PROMPT "Menu Item 3" MESSAGE "Menu Message 3"
|
|
@ 4, 50 PROMPT "Menu Item 4" MESSAGE "Menu Message 4"
|
|
|
|
MENU TO testvar
|
|
|
|
@ 7, 10 SAY "Press F8 to recurse into MENU TO"
|
|
|
|
@ 9, 50 SAY "Your Choice = " + Str( testvar, 1 )
|
|
|
|
SET KEY K_F8 TO RECURSE()
|
|
|
|
RETURN
|