226 lines
6.9 KiB
Plaintext
226 lines
6.9 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
*+====================================================================
|
|
*+
|
|
*+ Source Module => E:\MULTI\AC_TEST.PRG
|
|
*+
|
|
*+ Released to Public Domain.
|
|
*+
|
|
*+ Functions: Procedure test()
|
|
*+ Function cUserFunction()
|
|
*+
|
|
*+ Tables: use vendor exclusive
|
|
*+
|
|
*+ Reformatted by Click! 1.10 on Aug-13-1997 at 11:39 pm
|
|
*+
|
|
*+====================================================================
|
|
|
|
#include "achoice.ch"
|
|
#include "inkey.ch"
|
|
|
|
*+--------------------------------------------------------------------
|
|
*+
|
|
*+ Procedure test()
|
|
*+
|
|
*+--------------------------------------------------------------------
|
|
*+
|
|
procedure main()
|
|
|
|
local aPrompts := {;
|
|
"AGRI-PLANTS" ,;
|
|
"ALAN R. SMITH GREENHOUSES" ,;
|
|
"ALLAN MURRAY NURSERY, INC." ,;
|
|
"APOPKA FOREST" ,;
|
|
"LIGHT HOUSE NURSERIES" ,;
|
|
"BAUCOM'S" ,;
|
|
"BAY HILL NURSERY, INC." ,;
|
|
"BAYWOOD NURSERIES" ,;
|
|
"BIG OAK NURSERY" ,;
|
|
"C & N NURSERY" ,;
|
|
"CHARLES QUALITY PLANTS" ,;
|
|
"CONNELL FARMS" ,;
|
|
"DEWAR NURSERIES, INC." ,;
|
|
"DIAMOND T NURSERY" ,;
|
|
"DISTINCTIVE PALMS NURSERIES" ,;
|
|
"DONKAY NURSERY" ,;
|
|
"DOUG INGRAM & SONS NURSERY" ,;
|
|
"DRIFTWOOD GARDENS, INC." ,;
|
|
"ELVA PLANT NURSERY, INC." ,;
|
|
"ERINON" ,;
|
|
"EVANS NURSERY" ,;
|
|
"FANCY PLANTS" ,;
|
|
"FL.PLANT GROWERSCOOP" ,;
|
|
"FLORIDA CACTUS INC." ,;
|
|
"FLOWERING TREE GROWERS, INC." ,;
|
|
"FLOWERWOOD NURSERY" ,;
|
|
"FOLIAGE FACTORY TOO" ,;
|
|
"GATOR GROWERS NURSERY, INC." ,;
|
|
"GAZEBO LANDSCAPE DESIGN, INC." ,;
|
|
"GEM ORNAMENTALS" ,;
|
|
"GRANNY'S GARDEN" ,;
|
|
"GRAY'S ORNAMENTALS" ,;
|
|
"GREEN MASTERS INC." ,;
|
|
"GREEN MEADOW NURSERY" ,;
|
|
"PIXLEY'S PLANT PLACE" ,;
|
|
"HARRISON'S NURSERY, INC." ,;
|
|
"G & G FOLIAGE" ,;
|
|
"IVEY'S NURSERY, INC." ,;
|
|
"JB NURSERIES, INC." ,;
|
|
"JON'S NURSERY" ,;
|
|
"JONES & JONES NURSERY, INC." ,;
|
|
"KAGER'S NURSERY" ,;
|
|
"KIRKLAND'S NURSERY" ,;
|
|
"LAND OF BROMELIADS" ,;
|
|
"LANDSCAPE NURSERY, INC." ,;
|
|
"LIEWALD'S NURSERY INC." ,;
|
|
"LLOYD & RINGS NURSERY" ,;
|
|
"LONG VAN DOUNG" ,;
|
|
"MAPEL'S LANDSCAPE NURSERY" ,;
|
|
"MILESTONE AGRICULTURE, INC." ,;
|
|
"MOJICA NURSERY & FRUITS" ,;
|
|
"NELSON'S ROSES" ,;
|
|
"PARK GARDENS" ,;
|
|
"PAUL LUKAS INC." ,;
|
|
"PECKETT'S INC." ,;
|
|
"PENANG NURSERY, INC." ,;
|
|
"PINES III NURERIES" ,;
|
|
"PINEVIEW NURSERY" ,;
|
|
"POUL JENSEN NURSERY" ,;
|
|
"R.P. WELKER" ,;
|
|
"RICHARD ROGERS NURSERY, INC." ,;
|
|
"SPRING HILL NURSERY" ,;
|
|
"T.O. MAHAFFEY, JR." ,;
|
|
"TUCKER NURSERY" ,;
|
|
"TURTLE POND NURSERY" ,;
|
|
"TUTTLE'S NURSERY INC." ,;
|
|
"VALLEY CACTUS" ,;
|
|
"WHISPER WINDS, INC." ,;
|
|
"WHITE ROSE NURSERIES INC." ,;
|
|
"WOODWAY" ,;
|
|
"FLORI-DESIGN" ,;
|
|
"GREEN ACRES FOLIAGE, INC" ,;
|
|
"FLORAL EXPO" ,;
|
|
"TORRES NURSERY" ,;
|
|
"DARRYL KOON" ,;
|
|
"TRISTAR NURSERY" ,;
|
|
"KAY WEST NURSERY" ,;
|
|
"JAYMAR NURSERY" ,;
|
|
"J D F LANDSCAPE NURSERY" ,;
|
|
"DEROOSE PLANTS, INC." ,;
|
|
"THE TREEHOUSE" ,;
|
|
"COSTELLO'S ARECAS, INC." ,;
|
|
"FLORICO FOLIAGE" ,;
|
|
"THE NATIVES" ,;
|
|
"GREENS NURSERY" ,;
|
|
"STEWART NURSERIES" ,;
|
|
"G & T FOLIAGE, INC." ,;
|
|
"GOOD TIMES NURSERY" ,;
|
|
"CONCEPTS IN GREENERY, INC." ,;
|
|
"DUNN BROTHERS CITRUS, INC." ,;
|
|
"JOHN PLANK GREENHOUSES" ,;
|
|
"GREENER PASTURES NURSERY" ,;
|
|
"MULVEHILL NURSERY" ,;
|
|
"A NU LEAF" ,;
|
|
"IVY DESIGNS, INC." ,;
|
|
"B & C TROPICALS" ,;
|
|
"SPANISH RIVER NURSERY, INC." ,;
|
|
"JACK CHRISTMAS & ASSOCIATES" ,;
|
|
"SPECIALIST GROWERS" ,;
|
|
"HOMRICH NURSERY, INC." ,;
|
|
"COUNTRYSIDE FOLIAGE, INC." ,;
|
|
"RFJ COMPANY" ,;
|
|
"LAKE BRANTLEY PLANT CORP." ,;
|
|
"MARISTYME" ,;
|
|
"MERISTEM NURSERY, INC." ,;
|
|
"TROPIC DECOR - EARL WILSON" ,;
|
|
"URQUHART'S NURSERY" ,;
|
|
"ACE PLANT NURSERY" ,;
|
|
"HATTAWAYS GREENHOUSE, INC." ,;
|
|
"Florida Plant Growers" ,;
|
|
"Junior Nursery" ,;
|
|
"Fox's Nurseries, Inc." ,;
|
|
"Vaughan Nursery" ,;
|
|
"MERRYGRO FARMS" ,;
|
|
"ALL SEASONS NURSERY" ,;
|
|
"BENCHMARK FOLIAGE" ,;
|
|
"SAMMY'S NURSERY" ,;
|
|
"SUNSHINE GROWERS" ,;
|
|
"Blooming-Fields Nursery" }
|
|
|
|
local aPermits := {}
|
|
local x := 1
|
|
local nChoice
|
|
local ncntr
|
|
|
|
clear screen
|
|
|
|
setcolor( 'GB+/B,GR+/R,,,W/N' )
|
|
|
|
asize( aPermits, Len( aPrompts ) )
|
|
|
|
for x := 1 to Len( aPrompts )
|
|
aPermits[ x ] := !( 'V' $ aPrompts[ x ] )
|
|
next
|
|
|
|
#define TEST1
|
|
#ifdef TEST1
|
|
for ncntr := 1 to 17
|
|
aPermits[ nCntr ] := .F.
|
|
aPermits[ Len( aPrompts ) - nCntr + 1 ] := .F.
|
|
next
|
|
aPermits[ 32 ] := .F.
|
|
aPermits[ 33 ] := .F.
|
|
aPermits[ 34 ] := .F.
|
|
#endif
|
|
|
|
nChoice := achoice( 5, 10, 20, 70, aPrompts, aPermits, "cUserFunction" )
|
|
|
|
setpos( 0, 0 )
|
|
* clear screen
|
|
? nChoice
|
|
|
|
if nChoice > 0
|
|
? aPrompts[ nChoice ]
|
|
endif
|
|
setpos( maxrow() - 2, 0 )
|
|
|
|
return
|
|
|
|
*+--------------------------------------------------------------------
|
|
*+
|
|
*+ Function cUserFunction()
|
|
*+
|
|
*+--------------------------------------------------------------------
|
|
*+
|
|
function cUserFunction( nMode, nCurElement, nRowPos )
|
|
|
|
local nRetVal := AC_CONT // Default, Continue
|
|
local nKey := lastkey()
|
|
do case
|
|
// After all pending keys are processed, display message
|
|
case nMode == AC_IDLE
|
|
@ 0, 0 say padr( ltrim( str( nCurElement ) ), 10 )
|
|
nRetVal := AC_CONT // Continue ACHOICE()
|
|
case nMode == AC_HITTOP // Attempt to go past Top
|
|
@ 0, 0 say "Hit Top "
|
|
// tone( 100, 3 )
|
|
case nMode == AC_HITBOTTOM // Attempt to go past Bottom
|
|
@ 0, 0 say "Hit Bottom"
|
|
// tone( 100, 3 )
|
|
case nMode == AC_EXCEPT // Key Exception
|
|
@ 0, 0 say "Exception "
|
|
do case
|
|
case nKey == K_RETURN // If RETURN key, select
|
|
nRetVal := AC_SELECT
|
|
case nKey == K_ESC // If ESCAPE key, abort
|
|
nRetVal := AC_ABORT
|
|
otherwise
|
|
nRetVal := AC_GOTO // Otherwise, go to item
|
|
endcase
|
|
endcase
|
|
return nRetVal
|
|
|
|
*+ EOF: AC_TEST.PRG
|