UniBasic Commands Reference - Rocket Software

The following globally cataloged program, proc.test, is executed by the preceding
proc. The INPUT statement reads from the currently active output buffer, which the
proc loaded with “ONE”.
1-585 UniBasic Commands Reference
*-----------------------------------------------------------------
---------
* subdirectory: interface
* program name: proc.test
* version : 1.6 or later
* compile mode: any
* catalog : y
* catalog flag: local
* test for : accepting passed arguments from a proc and
writing
* data to PROC data buffer (PROCWRITE).
* called by : any proc or executed at the ECL prompt
*-----------------------------------------------------------------
---------*
*
PROGRAM proc.basic
$BASICTYPE 'R'
PRINT '*******************'
PRINT 'TEST --> PROCREAD '
PRINT '*******************'
PROCREAD pname
THEN
len = LEN(pname)
PRINT "The last command executed is stored in the primary input
buffer."
PRINT "The last 10 characters of the 1st buffer are
:":pname[0,len]
PRINT "The length of the primary input buffer is :":LEN(pname)
END ELSE
PRINT "Not run from PROC."
END
PRINT '*******************'
PRINT 'TEST --> PROCWRITE'
PRINT '*******************'
INPUT procname
IF procname = 'ONE' THEN
letters = "abcdefg,1234567,ABCDEFG,tuvwxyz,"
string = ''
limit = 512
FOR I = 1 TO limit STEP 32
string := letters
NEXT I
PRINT "String length = ":LEN(string)