UniBasic Commands Reference - Rocket Software

Examples
The following program segment places in select list 1 all record IDs in the CLIENTS
file, and then prints the ID of the first record:
1-704 UniBasic Commands Reference
OPEN 'CLIENTS' TO CLIENT ON ERROR PRINT "File open error." THEN
PRINT "OPEN"
SELECT CLIENT TO 1
READNEXT var FROM 1 ON ERROR PRINT "Error in READNEXT." THEN
PRINT var
END ELSE
PRINT "Record not found."
END
The following sample program creates a select list that is named rather than
numbered. This program is compiled in BASICTYPE P, but compiles and runs in all
BASICTYPEs.
$BASICTYPE "P"
list = ''
OPEN 'INVENTORY' TO INV_FILE ELSE PRINT "OPEN error"
SELECT INV_FILE TO list
FOR X = 1 TO 10
READNEXT ID FROM list ELSE
PRINT "No more IDs in list"
END
READU REC FROM INV_FILE,ID THEN
PRINT "Record ":X:" is ":REC:" ":REC
END ELSE
PRINT "Record not found."
END
NEXT X
END
Here is the output for this program:
Record 1 is 10105 Memory
Record 2 is 10076 Telephone
Record 3 is 10020 Adapter
Record 4 is 10086 Modem
Record 5 is 10092 Adapter
Record 6 is 10073 Monitor
Record 7 is 10041 Computer
Record 8 is 10071 Computer
Record 9 is 10103 Telephone
Record 10 is 10101 Computer
In the following example, the program statement creates a list of all record IDs in the
INVENTORY file in active select list 0:
SELECT INVENTORY