Wildcard File Upload

Change the transfer parameters as appropriate to BINARY, ASCII, RECSIZE, SAVEINF.

For Windows, modify DOSPRMPT.PIF to use a window. For DOS, use COMMAND.COM in place of DOSPRMPT.PIF.

The host file name is the PC file name with the extension truncated. This script assumes that HOSTF is a legal MPE filename.

;
; Directory of files to select
LET Var1="C:\MS92\"
; File selection
LET Var2="*.S92"
; Maximum number of files to be sent
LET Var3=40
;
SHELL "DOSPRMPT.PIF /C DIR "&Var1&Var2&" /B > tempfile"
CLOSE 1
OPEN tempfile INPUT AS 1 ASCII
LET Var4=0
:L1
READ 1 Var5
IF ((LENGTH(Var5)>2)AND(Var4<Var3))
  LET Var6=MID(Var5,1,LENGTH(Var5)-2)
  LET Var7=UPPER(MID(Var5,1,FIND(".",Var5)-1))
  IF ((MID(Var7,1,1)<"A")OR(MID(Var7,1,1)>"Z"))
    LET Var7 = "A" & Var7
  ENDIF
  IF ( LENGTH ( Var7 ) > 8 )
    LET Var7 = MID ( Var7, 1, 8 )
  ENDIF
  LET Var4=Var4+1
  LOCF Var1&Var6
  HOSTF Var7
  ASCII
  RECSIZE 91
  UPLOAD
  ONTIMER TimeOut
  TIMER 15
  WAITC 17
  GOTO L1
ENDIF
CLOSE 1
STOP
:TimeOut
CLOSE 1
TELL "Host Time-Out occurred..."
END