96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
32 lines
848 B
Plaintext
32 lines
848 B
Plaintext
PROCEDURE Main()
|
|
|
|
LOCAL GetList := {}
|
|
|
|
LOCAL cItem := "Windows"
|
|
LOCAL lx := .F.
|
|
LOCAL ly := .F.
|
|
|
|
LOCAL aItems[ 3 ]
|
|
|
|
aItems[ 1 ] := RadioButto( 3, 3, "&Windows" )
|
|
aItems[ 2 ] := RadioButto( 4, 3, "&Linux" )
|
|
aItems[ 3 ] := RadioButto( 5, 3, "&OS X" )
|
|
|
|
CLS
|
|
SetColor( "W/B+,R/B,G+/R,B+/R+,BG/N+,W/BG,RB/BG" )
|
|
|
|
@ 2, 2, 6, 40 GET cItem RADIOGROUP aItems COLOR "W/B+,R/B,G/B+" MESSAGE "Select your OS"
|
|
|
|
@ 8, 3 SAY "Married"
|
|
@ 8, 12 GET lx CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you married?"
|
|
@ 9, 3 SAY "Singer"
|
|
@ 9, 12 GET ly CHECKBOX COLOR "W/B+,W/B,W+/R,W/G+" MESSAGE "Are you a singer?"
|
|
|
|
READ MSG AT MaxRow(), 0, MaxCol() MSG COLOR "W/B+"
|
|
|
|
? "Is the person married:", iif( lx, "Yes", "No" )
|
|
? "Is the person a singer:", iif( ly, "Yes", "No" )
|
|
? "Your OS is", cItem
|
|
|
|
RETURN
|