13 lines
135 B
Plaintext
13 lines
135 B
Plaintext
|
|
DATABASE marmotech
|
|
GLOBALS
|
|
"veprgb000.4gl"
|
|
MAIN
|
|
DEFFER INTERUPT
|
|
CALL veprrp041()
|
|
END MAIN
|
|
|
|
FUNCTION veprrp041()
|
|
OPTIONS
|
|
|