ASSIGN S0 "MEOW"
ASSIGN S2 "Z"
ASSIGN S3 "DSZ port 1 sz"
ASSIGN S4 "DSZ port 1 rz"

start3:
STRFMT S5 "%s.UFI" S0
ISFILE S5
IF SUCCESS
  STRFMT S6 "U %s" S2
  ASSIGN S8 "**B01"
  GOSUB xfr_file
ENDIF
STRFMT S5 "%s.DFI" S0
ISFILE S5
IF SUCCESS
  STRCPY S3 S4
  STRFMT S6 "D %s" S2
  ASSIGN S8 "**B00"
  GOSUB xfr_file
ENDIF
PAUSE 1
TRANSMIT "G^M"
WAITFOR "Thanks for calling," FOREVER
PAUSE 1
DATE S7
TIME S8 0
STRFMT S9 "ECHO %s %s - OFF LINE >> %s.TXT" S7 S8 S0
DOS S9
PAUSE 1
HANGUP
PAUSE 1
QUIT

xfr_file:
  FOPENI S5 TEXT
xfr_next:
  FGETS S7
  IF NOT EOF
    STRFMT S1 "%s %s^M" S6 S7
    GOSUB describe
    TRANSMIT S1
    WAITFOR S8
    PAUSE 1
    STRFMT S9 "%s %s" S3 S7
    DOS S9
    PAUSE 1
    WAITFOR "Main Board Command?" FOREVER
    PAUSE 1
    GOTO xfr_next
  ENDIF
  GOSUB clos_fil
RETURN

describe:
  STRCMP S8 "**B01"
  IF SUCCESS
    TRANSMIT S1
    WAITFOR "?"
    PAUSE 1
    FGETS S9
    STRFMT S1 "%s^M^M" S9
  ENDIF
RETURN

clos_fil:
  FCLOSEI
  PAUSE 1
  STRFMT S9 "DEL %s" S5
  DOS S9
  PAUSE 1
RETURN