Download 1 - DSpace@MIT

132
1
>u>nardy>menu>prompt list writer.pll, 02:05:29 Thursday April 26,
----------------- ---- -----------------------------------
1983
promptlist writer: procedure (headptr);
declare
(ioa, ioan)
entry options (variable),
head_ptr
match_ptr
1 match
2 string
2 data
2 next
pointer,
pointer,
based,
char(32)vary,
pointer,
pointer,
textptr
asciiarray [1:l]
pointer,
char(l) based (textptr),
prompt
stringlength
fixl5
i
char(1024),
fixed(31),
fix(15) based,
fix(15);
/***************
******
******************
*****
/
do match_ptr = headptr repeat match_ptr->match.next while
(match ptr
~=
null());
call ioa ("r------------------------------< match node >");
call ioa (
match ptr = ^p", matchptr);
call ioa ("
match_ptr->match.data = ^p", matchptr->match.data);
call ioa ("
match_ptr->match.string = [^a]", match_ptr->match.string);
stringlength
= match_ptr->match.data->fixl5;
call ioa ("matchptr->match.data->fixl5 = ^i",
matchptr->match.data->fixl5);
do i = 3 to stringlength + 2;
call ioan ("'a", match_ptr->match.data->asciiarray [i]);
end;
call ioa ("^rmatchptr->match.next = ^p", matchptr->match.next);
end;
end;