ASSIGN S0 "SANTA"
ASSIGN S1 "ATDT349-0135^M"
ASSIGN S2 "YOUR NAME^M"
ASSIGN S3 "PASSWORD^M"
SET BAUDRATE 2400
SET PARITY NONE
SET DATABITS 8
SET STOPBITS 1
SET DUPLEX FULL

start:
GOSUB set_scrn
GOSUB del_old
GOSUB chk_fst
IF NOT LINKED
  GOSUB con_scrn
  GOSUB manual
  IF NOT CONNECTED
    GOSUB make_old
    QUIT
  ENDIF
ENDIF
EMULATE ANSI
WAITFOR "Do you want graphics (Enter)=no?"
PAUSE 1
TRANSMIT S5
WAITFOR "What is your first name?"
PAUSE 1
TRANSMIT S2
WAITFOR "Password (Dots will echo)?"
LOG OPEN S8
WHEN "(H)elp, More?" "N^M"
PAUSE 1
TRANSMIT S3
ISFILE S7
  IF SUCCESS
    WAITFOR "Press (Enter) to continue?"
    GOSUB del_old
    PAUSE 1
    TRANSMIT "^M"
  ENDIF
WAITFOR "Scan Message Base Since 'Last Read' (Enter)=yes?" 99
PAUSE 1
TRANSMIT "^M"
WAITFOR "Main Board Command?" 99
PAUSE 1
TRANSMIT "N S A NS^M"
WAITFOR "Main Board Command?" FOREVER
CWHEN
LOG CLOSE
PAUSE 1
EXECUTE "M.ASP"

set_scrn:
  IF MONO
    INIT N1 7
    INIT N2 7
    INIT N3 7
    INIT N4 7
    ASSIGN S5 "N^M"
  ELSE
    INIT N1 74
    INIT N2 202
    INIT N3 12
    INIT N4 14
    ASSIGN S5 "Y^M"
  ENDIF
  STRFMT S7 "%s.OLD" S0
  STRFMT S8 "%s.LOG" S0
RETURN

con_scrn:
  CLEAR
  STRFMT S9 "Logging onto %s..." S0
  TIME S6 0
  BOX 0 0 4 32 N1
  ATSAY 2 2 N2 S9
  ATSAY 1 35 N3 "Time started, this session:"
  ATSAY 1 63 N4 S6
RETURN

manual:
  LOCATE 6 0
  TRANSMIT S1
  RFLUSH
  RGET S9 13 65
  RGET S9 13 5
  FIND S9 "CONNECT"
  IF NOT FOUND
    SUBSTR S4 S9 1 13
    DATE S5
    STRFMT S9 "ECHO %s %s - %s >> %s.TXT" S5 S6 S4 S0
    DOS S9
  ENDIF
RETURN                            

chk_fst:
  STRFMT S9 "COMPDATE %s" S0
  DOS S9
RETURN

make_old:
  ISFILE S8
    IF SUCCESS
      STRFMT S9 "COPY %s %s" S8 S7
    ELSE
      STRFMT S9 "COPY %s %s" S7 S8
    ENDIF
    DOS S9
RETURN

del_old:
  ISFILE S7
    IF SUCCESS
      STRFMT S9 "DEL %s" S7
      DOS S9
    ENDIF
RETURN