46 lines
1.5 KiB
Plaintext
46 lines
1.5 KiB
Plaintext
get "libhdr"
|
|
|
|
let start() be
|
|
$( let x = table
|
|
13,10,32,32,32,32,108,101,116,32,110,32,61,32,48,
|
|
13,10,32,32,32,32,119,114,105,116,101,115,40,34,103,
|
|
101,116,32,42,34,108,105,98,104,100,114,42,34,42,78,
|
|
42,78,108,101,116,32,115,116,97,114,116,40,41,32,98,
|
|
101,42,78,36,40,32,32,108,101,116,32,120,32,61,32,
|
|
116,97,98,108,101,42,78,32,32,32,32,34,41,13,10,
|
|
13,10,32,32,32,32,119,104,105,108,101,32,120,33,110,
|
|
32,126,61,32,48,32,100,111,13,10,32,32,32,32,36,
|
|
40,32,32,119,114,105,116,101,102,40,34,37,78,44,34,
|
|
44,120,33,110,41,13,10,32,32,32,32,32,32,32,32,
|
|
110,32,58,61,32,110,32,43,32,49,13,10,32,32,32,
|
|
32,32,32,32,32,105,102,32,110,32,114,101,109,32,49,
|
|
53,32,61,32,48,32,116,104,101,110,32,119,114,105,116,
|
|
101,115,40,34,42,78,32,32,32,32,34,41,13,10,32,
|
|
32,32,32,36,41,13,10,32,32,32,32,13,10,32,32,
|
|
32,32,119,114,105,116,101,115,40,34,48,42,78,34,41,
|
|
13,10,32,32,32,32,13,10,32,32,32,32,110,32,58,
|
|
61,32,48,13,10,32,32,32,32,119,104,105,108,101,32,
|
|
120,33,110,32,126,61,32,48,32,100,111,13,10,32,32,
|
|
32,32,36,40,32,32,119,114,99,104,40,120,33,110,41,
|
|
13,10,32,32,32,32,32,32,32,32,110,32,58,61,32,
|
|
110,32,43,32,49,13,10,32,32,32,32,36,41,13,10,
|
|
36,41,13,10,0
|
|
|
|
let n = 0
|
|
writes("get *"libhdr*"*N*Nlet start() be*N$( let x = table*N ")
|
|
|
|
while x!n ~= 0 do
|
|
$( writef("%N,",x!n)
|
|
n := n + 1
|
|
if n rem 15 = 0 then writes("*N ")
|
|
$)
|
|
|
|
writes("0*N")
|
|
|
|
n := 0
|
|
while x!n ~= 0 do
|
|
$( wrch(x!n)
|
|
n := n + 1
|
|
$)
|
|
$)
|