home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Perseus
/
PERSEUS.iso
/
spiele
/
tads12.exe
/
TRIVIAL.T
< prev
Wrap
Text File
|
1991-07-08
|
360b
|
22 lines
init: function;
pardon: function;
init: function
{
local l;
l := ['one' 'two' 'three'];
say( l[2] );
}
pardon: function
{
}
numObj: object;
strObj: object;
againVerb: object verb = 'again' 'g';
takeVerb: object verb = 'take' 'get';
Me: object;
quitVerb: object
verb = 'quit'
action( actor ) = { quit(); abort; }
;