25 lines
404 B
Plaintext
25 lines
404 B
Plaintext
## shared Dt
|
|
## char *name;
|
|
amx(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
register int c;
|
|
name = (argc == 1)? "*": argv[1];
|
|
## open Personal
|
|
## use (exclusive Personal)
|
|
## retrieve Personal $Name == name
|
|
## {
|
|
## print ()
|
|
printf("STREICHEN ?\t");
|
|
fflush(stdout);
|
|
if ((c = getchar()) == 'y')
|
|
## delete
|
|
while (c && c != '\n')
|
|
c = getchar();
|
|
## }
|
|
## commit
|
|
## close Personal
|
|
fflush(stdout);
|
|
}
|