Creates a GET object and displays it to the screen
@A | Allows only alphabetic characters. |
@B | Numbers will be left justified |
@C | All positive numbers will be followes by CR. |
@D | All dates will be in the SET DATE format. |
@E | Dates will be in British formal: numbers in European format. |
@K | Allows a suggested value to be seen within the GET |
area but clears It if any noncu sor key is pressed when | |
the cursor is in the first Position in the GET area. | |
@R | Nontemplate characters will be inserted. |
@S<nSize> | Allows horizontal scrolling of a field or variable that |
is <nSize> characters wide. | |
@X | All negative numbers will be followed by DB |
@Z | Displays zero values as blanks. |
@! | Forces uppercase lettering |
@( | Displays negative numbers in parentheses with leading spaces. |
@) | Displays negative numbers in parentheses without leading spaces. |
A | Only alphabetic characters allowed. |
N | Only alphabetic and numeric characters allowed |
X | Any character allowed. |
L | Only T or F allowed For logical data. |
Y | Only Y or N allowed for logical data. |
9 | Only digits, including signs, will be allowed. |
# | Only digits, signs. and spaces will he allowed. |
! | Alphabetic characters are converted to Uppercase. |
$ | Dollar will be displayed in place of leading |
spaces for numeric data types. | |
* | Asterisk,, will Be displayed in place of leading spaces |
for numeric data types. | |
. | Position of decimal point. |
, | Position of comma. |
Function Main() Local cVar:=Space(50) Local nId:=0 cls @ 3,1 SAY "Name" GET cVar PICTURE "@!S 30" @ 4,1 SAY "Id" GET nId PICTURE "999.999" READ ? "The name you entered is",cVar ? "The id you entered is",nId RETURN NIL Tests See Examples