## shared Dt
## i2 leiter;
amx(argc, argv)
int argc;
char **argv;
{
leiter = (argc == 1)? 129: atoi(argv[1]);
## open Personal
## use (exclusive Personal)
## retrieve Personal $Leiter == leiter { print ($Name); delete }
## commit
## close Personal
}