1   LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
10  FOR I = 1 TO ARGC%-1
    LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
    IF TH_HASLOGIN(ARGV$(I)) = 0 THEN GOSUB 1000
21  TH_EXEC "rlogin "+ARGV$(I)
    IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
REM    print ARGV$(I)+"$ ls"
REM    TH_EXEC "ls"
REM    PRINT ARGV$(I)+"$"
REM    PRINT ARGV$(I)+"$ netstat"
REM    TH_EXEC "netstat"
REM    PRINT ARGV$(I)+"$"
30  NEXT I
END

1000 PRINT "No login on " + ARGV$(I)
     IF INSTR(DIR$, "porthack", 0) = -1 THEN GOSUB 2000
     TH_EXEC("porthack " + ARGV$(I))
     RETURN

2000 PRINT "Porthack not on " + TH_HOSTNAME$ + ".  Trying to fetch it from " + LASTHOST$
     TH_EXEC("ftp " + LASTHOST$)
     TH_EXEC("get porthack.exe")
     TH_EXEC("quit")
     RETURN