11 lines
254 B
Text
11 lines
254 B
Text
PROCtest
|
|
END
|
|
|
|
DEF PROCtest
|
|
LOCAL array()
|
|
IF !^array() < 2 PRINT "Array is undefined"
|
|
DIM array(1,2)
|
|
IF !^array() > 1 PRINT "Array is defined"
|
|
|
|
!^array() = 0 : REM Set array to undefined state
|
|
ENDPROC
|