Telehack/nlogin.bas

    INFTP=0
    COPYPROGS$="porthack.exe"
1   LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
10  FOR I = 1 TO ARGC%-1
    LASTHOST$ = TH_SED$(TH_HOSTNAME$,"\s.*","")
    PRINT "Trying " + ARGV$(I) + " ("+STR$(I)+"/"+STR$(ARGC%-1)+")..."
    IF TH_HASLOGIN(ARGV$(I)) = 0 THEN GOSUB 1000
21  TH_EXEC "rlogin "+ARGV$(I), DUMP$
    GOSUB 2000
30  NEXT I
END

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

2000 FOR P=1 TO TH_RE(COPYPROGS$,"[\w.]+",1)
     prog$=TH_RE$(COPYPROGS$,"[\w.]+",P)
     IF INSTR(DIR$, prog$, 0) = -1 THEN GOSUB 2500
     NEXT P
     IF INFTP = 1 THEN GOSUB 3100
     RETURN

2500 PRINT prog$+" not on " + TH_HOSTNAME$ + ".  Trying to fetch it from " + LASTHOST$
     IF INFTP = 0 GOSUB 3000
     TH_EXEC "get " + prog$
     RETURN

3000 TH_EXEC "ftp " + LASTHOST$
     INFTP=1
     RETURN

3100 TH_EXEC "quit"
     INFTP=0
     RETURN