mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 15:10:57 +00:00
Rupert Lane
10 lines
783 B
Plaintext
10 lines
783 B
Plaintext
EXTERNAL FUNCTION(LST) 008330
|
|
NORMAL MODE IS INTEGER 008340
|
|
ENTRY TO NODLST. 008350
|
|
IT=LSTNAM.(LST) 008360
|
|
W'R IT .E. 0, T'O DONE 008370
|
|
IRALST.(IT) 008380
|
|
SETIND.(-1,0,-1,LST+1) 008390
|
|
DONE F'N IT 008400
|
|
E'N 008410
|