Category : Miscellaneous Language Source Code
Archive   : KINOOP.ZIP
Filename : COMP.KIN

User-Defined Functions

kin mac("HELPFILE 'kin.doc'");

-----------------------
gamut(table, dimension)

Returns the set of elements
in a given dimension. For
example, for table 'a' with
shape '3 3 1', the call
gamut(a,2) returns '1 2 3',
the members of dimension 2.
-----------------------
kin gamut=$;
kin fill(shape(0,slice(shape(parm(1)),parm(2))));

kin comp('gamut');


-----------------------
gets(prompt)

Presents a prompt to the
terminal and accepts
and returns terminal input.
-----------------------
kin gets=$;
kin r(2),
_a=show(string),
set(string,inprompt,parm(1)),
set(string,tail,strcon('\n')),
_=$$,
set(string,inprompt,get(_a,inprompt)),
set(string,tail,get(_a,tail)),_;

kin comp('gets');

-----------------------
help(key)

Performs lookup in help file
for the pages containing the
'key'. Based on help file
'c1.txt'. Pauses output
dump on 20 line intervals.
-----------------------
kin help=$;
kin r(2),i=1,
output('s'),
look(parm(1),HELPFILE),
output(''),
while(not iseof, (
c=fill(shape(0,20),i),
i=i+20,
$=text(get(s,c)),
if(not shown(eof),
($='_________________ Continue , or Stop ? ______________________',
_1=$$),
break())
)),set(numeric,eof,0),r(2);

kin comp('help');