20 lines
449 B
Plaintext
20 lines
449 B
Plaintext
decl int width height
|
|
out "width: " console
|
|
set width (in int console)
|
|
out "height: " console
|
|
set height (in int console)
|
|
|
|
decl int<><> twodstream
|
|
for (decl int i) (< i height) (inc i)
|
|
append (new int<>) twodstream
|
|
end for
|
|
for (set i 0) (< i height) (inc i)
|
|
decl int j
|
|
for (set j 0) (< j width) (inc j)
|
|
append 0 twodstream<i>
|
|
end for
|
|
end for
|
|
|
|
set twodstream<0><0> 5
|
|
out twodstream<0><0> endl console
|