UniBasic Commands Reference - Rocket Software

Parameter Description
Examples
The following subroutine is taken from the sample program in Appendix A, “Sample
Program,” in Developing UniBasic Applications. The subroutine converts user input
to uppercase, then compares that input with Q to determine if the user is ready to quit
the application. The user can enter any string starting with Q or q, or an order number.
1-499 UniBasic Commands Reference
T Converts to initial cap style. First letter of each word is uppercase, and all
other letters are lowercase. Space and tab are considered word separators.
N Extracts all numeric characters (0-9).
/N Extracts all nonnumeric characters.
P Converts all nonprinting characters to tildes (~).
X[D] or D Assumes input is in hexadecimal; converts to decimal.
D[X] or X Converts input to hexadecimal.
OCONV Masked Character (MC) Parameters (continued)
GET_ORDER_NUMBER:
* Have the user enter a valid key to a record in the ORDERS file.
LOOP
DISPLAY @(15,6):
INPUT ORDER_NUMBER
ORDER_NUMBER = OCONV(ORDER_NUMBER,"MCU")
IF NUM(ORDER_NUMBER) OR ORDER_NUMBER[1,1] = "Q" THEN
VALID_ORDER_NUMBER = 1
END ELSE
VALID_ORDER_NUMBER = 0
MESSAGE = "Order # must be a Number, or the letter 'Q'"
CALL DISPLAY_MESSAGE(MESSAGE)
END
UNTIL VALID_ORDER_NUMBER
REPEAT
The following statement, taken from the same sample program, extracts the numbers
from user input. This use of OCONV removes the special characters the user might
have entered in a formatted date. For example, the statement extracts 1234 from
$12.34.
NEW.PRICE = OCONV(NEW.PRICE,"MCN")