REM Gopher mole to print a greeting
:
LIBRARY "gopherlib.bas"
PROCinit_gopherlib(ARGV$ 1, ARGV$ 2, VAL(ARGV$ 3))
:
PROCbuild_message(message$)
PROCprint_string(message$)
QUIT
:
DEF PROCbuild_message(RETURN message$)
IF ARGC = 3 THEN
  message$ = "Hello, Anonymous! argc = "
ELSE
  message$ = "Hello,"
  PROCplace_args(message$)
  message$ = message$ + "! argc = "
ENDIF
message$ = message$ + STR$(ARGC)
message$ = message$ + ". SELECTOR = " + ARGV$ 1
ENDPROC
:
DEF PROCplace_args(RETURN message$)
FOR N% = 4 TO ARGC
  message$ = message$ + " " + ARGV$ N%
NEXT
ENDPROC