16 lines
280 B
Plaintext
16 lines
280 B
Plaintext
/*
|
|
** Es sollen die Namen aller Angestellten recherchiert werden.
|
|
*/
|
|
## shared Dt
|
|
## char *name;
|
|
amx(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
name = (argc == 1)? "*": argv[1];
|
|
## open Personal
|
|
## retrieve Personal $Name == name { print ($Name) }
|
|
## close Personal
|
|
fflush(stdout);
|
|
}
|