24 lines
417 B
Plaintext
24 lines
417 B
Plaintext
## shared Dt
|
|
## f8 gehalt;
|
|
## char *name;
|
|
amx(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
name = (argc == 1)? "*": argv[1];
|
|
/*
|
|
** Hier wird ueberprueft, ob der Ausfuehrende des Programms
|
|
** auch der Uebersetzende war.
|
|
*/
|
|
## permit user
|
|
## open Personal
|
|
## use (exclusive Personal)
|
|
## retrieve Personal $Name == name (gehalt = $Gehalt)
|
|
## {
|
|
gehalt *= 1.1;
|
|
## replace ($Gehalt = gehalt)
|
|
## }
|
|
## commit
|
|
## close Personal
|
|
}
|