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