; *** Change the dialing directory entry # for THE INV FACT at DIAL command.
; *** Enter YOUR name and password at "FIRST LAST PASSWORD".
;
; This script may be executed BEFORE dialing the Invention Factory (in which
; case it will dial for you) or AFTER you are already connected. If you run
; this script after you are already connected, you must be at the PC Board
; main command prompt.
;
;

IF  CONNECTED
    ASSIGN S6 "PDQ-XFR.ASP"
    EXECUTE "PDQ-BOX.ASP"
ELSE
    SWITCH S6
        CASE _NULL
            ASSIGN S6 "PDQ.ASP"
            EXECUTE "PDQ-BOX.ASP"
        ENDCASE
        DEFAULT
            SWITCH S7
                CASE _NULL
                ENDCASE
                DEFAULT
                    BOX    10 0 12 79 79
                    TIME S9 1
                  FATSAY 11 2 79 "%s SCRIPT SUSPENDED UNTIL %s:%s..." S9 S7 S8
                    SUSPEND UNTIL S7 S8
                ENDCASE
            ENDSWITCH
            GOSUB LOGON
            EXECUTE "PDQ-XFR.ASP"
        ENDCASE
    ENDSWITCH
ENDIF
EXIT

LOGON:
    DIAL 9                          ; *** Put directory entry for INV FACT.
    WAITFOR "ics (Enter)=no? "
    WHEN "More? " "n^M"
    TRANSMIT "^M"
    WAITFOR "first name? "
    TRANSMIT "FIRST LAST PASSWORD"  ; *** Put your name and password here!
    TRANSMIT "^M"
    WAITFOR "(Enter)=yes? "
    TRANSMIT "n^M"
;    WAITFOR "continue? "  ; Leave these lines commented out, this prompt
;    TRANSMIT "^M"         ; is no longer given.
    WAITFOR "Command? "
RETURN