61 lines
593 B
Plaintext
61 lines
593 B
Plaintext
## import "menue.x"
|
|
|
|
pr_str()
|
|
{
|
|
pr_init();
|
|
## retrieve str
|
|
## (
|
|
## str = $str
|
|
## )
|
|
## {
|
|
if (pr_line())
|
|
break;
|
|
printf("%s", str);
|
|
## }
|
|
pr_end();
|
|
}
|
|
|
|
|
|
get_str()
|
|
{
|
|
register int rc;
|
|
|
|
rc = 1;
|
|
## retrieve str $no_str == no_str
|
|
## (
|
|
## str = $str
|
|
## )
|
|
## {
|
|
rc = 0;
|
|
break;
|
|
## }
|
|
return (rc);
|
|
}
|
|
|
|
|
|
new_str()
|
|
{
|
|
while (!input(5, str))
|
|
pr_str();
|
|
no_str = 0;
|
|
## use (+str)
|
|
## retrieve str $str == str
|
|
## (
|
|
## no_str = $no_str
|
|
## )
|
|
## {
|
|
break;
|
|
## }
|
|
if (!no_str)
|
|
{
|
|
## tuplecount str no_str
|
|
no_str++;
|
|
## append str
|
|
## (
|
|
## $no_str = no_str,
|
|
## $str = str
|
|
## )
|
|
}
|
|
## commit
|
|
}
|