## shared Dt
## i2 tnum;
amx(argc, argv)
int argc;
char **argv;
{
tnum = (argc == 1)? 10: atoi(argv[1]);
## open Teile
## retrieve Teile $Tnum <= tnum and $Tnum > 5 { print ($Tname, $Tnum) }
## close Teile
fflush(stdout);
}