12 lines
148 B
Plaintext
12 lines
148 B
Plaintext
// Testing SET
|
|
|
|
function Main()
|
|
local n, NEWLINE := CHR (10)
|
|
|
|
for n := 1 to 39
|
|
outstd (NEWLINE)
|
|
outstd (set (n))
|
|
next
|
|
|
|
return nil
|