14 lines
424 B
Plaintext
14 lines
424 B
Plaintext
PROCtestobjects
|
|
END
|
|
|
|
DEF PROCtestobjects
|
|
PRIVATE a(), b(), s{}, t{}
|
|
DIM a(123)
|
|
DIM s{a%, b#, c$}
|
|
|
|
IF !^a() <= 1 PRINT "a() is null" ELSE PRINT "a() is not null"
|
|
IF !^b() <= 1 PRINT "b() is null" ELSE PRINT "b() is not null"
|
|
IF !^s{} <= 1 PRINT "s{} is null" ELSE PRINT "s{} is not null"
|
|
IF !^t{} <= 1 PRINT "t{} is null" ELSE PRINT "t{} is not null"
|
|
ENDPROC
|