blob: 80e049be46e43c86b48563d71a1532cc1168b4b8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include defs
# query - print usage message if user has requested one
subroutine query (mesg)
character mesg (ARB)
integer getarg
character arg1 (3), arg2 (1)
if (getarg (1, arg1, 3) != EOF & getarg (2, arg2, 1) == EOF)
if (arg1 (1) == QMARK & arg1 (2) == EOS)
call error (mesg)
return
end
|
