UniBasic Commands Reference - Rocket Software

Examples
The following example is taken from the sample program in Appendix A, “Sample
Program,” in Developing UniBasic Applications. Notice that the DISPLAY
command is combined with the UniBasic @ function to clear the screen and display
messages. Then INPUT @ accepts the user’s response (a corrected price).
ALTER_RECORD:
* Create a new screen, and allow PRICE and ADDRESS to be changed.
* Initialize variables and draw the screen
NEED.TO.WRITE = 0
DISPLAY @(-1):@(15,5):"Alter ORDER":
DISPLAY @(10,8):"(Press RETURN to leave un-changed)"
DISPLAY @(8,9):"Old Price":@(42,9):"New Price (Enter 2 decimal
places)"
* Change the PRICE field (if desired)
FOR ENTRY = 1 TO NUM_ENTRIES
NEW.PRICE = ""
DISPLAY @(10,9+ENTRY):OCONV(ORDER.REC,"MR2$,"):
INPUT @(45,9+ENTRY):NEW.PRICE
Later in the same sample program, the @ function is again combined with DISPLAY
to paint the screen with prompts. After all prompts have been displayed, INPUT @
returns the cursor to the end of the first line, accepting input on that line before
moving to the end of the next. In this manner, it accepts input at the end of each line
in turn.
* Display the current ADDRESS information
DISPLAY @(21,12):"Change Address to: ":
DISPLAY @(21,13):"Street Line1: ":@(40,13):ADDRESS
DISPLAY @(21,14):"Street Line2:"
DISPLAY
@(40,14):ADDRESS:@(21,15):"City:":@(40,15):CLIENT.REC
DISPLAY @(21,16):"State:":
DISPLAY
@(40,16):CLIENT.REC:@(21,17):"Zip:":@(40,17):CLIENT.REC
* Accept INPUT to change values of address
INPUT @(40,13):STREET1
IF STREET1 = '' THEN STREET1 = CLIENT.REC
INPUT @(40,14):STREET2
IF STREET2 = '' THEN STREET2 = CLIENT.REC
INPUT @(40,15):CITY
IF CITY = '' THEN CITY = CLIENT.REC
INPUT @(40,16):STATE
IF STATE = '' THEN STATE = CLIENT.REC
INPUT @(40,17):ZIP
IF ZIP = '' THEN ZIP = CLIENT.REC
INPUT @ 1-388