13 lines
503 B
Text
13 lines
503 B
Text
|
include c:\cxpl\codes; \intrinsic 'code' declarations
|
||
|
|
def IntSize=4; \number of bytes in an integer
|
||
|
|
|
||
|
|
proc Var(N...); \Display N strings passed as arguments
|
||
|
|
int N;
|
||
|
|
[N:= Reserve(N*IntSize); \reserve space for N string pointers
|
||
|
|
repeat Text(0,N(0)); CrLf(0); \display strings pointed to by N(0)
|
||
|
|
N:= N+IntSize; \point to next string
|
||
|
|
until N=GetHp; \pointing beyond reserved space?
|
||
|
|
];
|
||
|
|
|
||
|
|
Var(4, "Mary", "had", "a", "little")
|