23 lines
838 B
Plaintext
23 lines
838 B
Plaintext
/* The PROCEDURE block and BEGIN block are used to delimit scopes. */
|
|
|
|
declare i float; /* external, global variable, excluded from the */
|
|
/* local area (BEGIN block) below. */
|
|
begin;
|
|
declare (i, j) fixed binary; /* local variable */
|
|
get list (i, j);
|
|
put list (i,j);
|
|
end;
|
|
|
|
/* Examples of initialization. */
|
|
|
|
declare p fixed initial (25);
|
|
declare q(7) fixed initial (9, 3, 5, 1, 2, 8, 15);
|
|
/* sets all elements of array Q at run time, on block entry. */
|
|
declare r(7) fixed initial (9, 3, 5, 1, 2, 8, 15);
|
|
/* sets all elements of array R at compile time. */
|
|
|
|
p = 44; /* run-time assignment. */
|
|
q = 0; /* run-time initialization of all elements of Q to zero. */
|
|
q = r; /* run-time assignment of all elements of array R to */
|
|
/* corresponding elemets of S. */
|