UniBasic Commands Reference - Rocket Software

In the next example, the program segment creates two named common areas. The
second COMMON statement continues on a second line. The comma (,) continuation
character ends the continued line.
COMMON /MENU/ X,Y,XDIM,YDIM,S.CHAR
COMMON /CALC/ RATE(10),AMOUNT(10),DATE1,
DATE2,LATE
In the following example, the program segment is invalid because COMMON is not
the first statement in the called program, and because variables in COMMON cannot
be reassigned new values in a called program:
VALUE = 253
COMMON VALUE,SUBVALUE,ATTRIBUTE
The following two programs demonstrate passing a variable through common. The
FIRST_PROG establishes the common variable VAR, and then NEXT_PROG
declares this variable, adds 1 to it, and prints it.
FIRST_PROG
COMMON VAR
VAR = 1
PRINT "IN FIRST_PROG"
PRINT VAR
CALL NEXT_PROG
NEXT_PROG
*Program NEXT_PROG
COMMON VAR
PRINT "IN NEXT_PROG"
VAR = VAR+1
PRINT VAR
Here is the output from these programs:
:RUN BP FIRST_PROG
IN FIRST_PROG
1
IN NEXT_PROG
2
Related Commands
UniBasic
CLEAR, CLEARCOMMON
COMMON 1-162