;     ---------- Variables ----------
;
;     S0 - Qwikmail Transfer Switch
;     S1 - File Transfer Switch
;     S2 - Files Line 1
;     S3 - Files Line 2
;     S4 - Files Line 3
;     S5 - Auto Logoff Switch
;     S6 - Next .ASP File In Chain
;     S7 - General Purpose
;     S8 - General Purpose
;     S9 - Bulletin Toggle Switch

;     Search for ; (semicolon) to find things you may have to modify...

 Box 12 0 21 79 79
 Box 10 0 12 79 79

 Atsay 11  2 79 "PDQ - Automatic Mail and File Transfer by Dean Stacey  "
 Atsay 11 66 79 "Revision 4.1"

 Gosub GETS0
 Gosub GETS9
 Gosub GETS1
 Gosub GETS5
 Locate 22 1
 Execute s6

;------------------------- SUBROUTINES --------------------------------

GETS0:
 Atsay  13  2 79 "Mail Transfer    (Y)es (N)o (R)eplies only? :         "
 Locate 13 48
 Keyget s0
 Atsay  13 48 79 s0
 Switch s0
     Case "Y"
     Endcase
     Case "N"
     Endcase
     Case "R"
     Endcase
     Case "1B"
         Goto ABORT
     Endcase
     Default
         Goto GETS0
     Endcase
 Endswitch
 Return

GETS9:
 Atsay  14  2 79 "Toggle Bulletins (Y)es (N)o?                :         "
 Locate 14 48
 Keyget s9
 Atsay  14 48 79 s9
 Switch s9
     Case "Y"
     Endcase
     Case "N"
     Endcase
     Case "1B"
         Goto ABORT
     Endcase
     Default
         Goto GETS9
     Endcase
 Endswitch
 Return

GETS1:
 Atsay  15  2 79 "Download Files   (Y)es (N)o?                :         "
 Locate 15 48
 Keyget s1
 Atsay  15 48 79 s1
 Switch s1
     Case "Y"
     Endcase
     Case "N"
     Endcase
     Case "1B"
         Goto ABORT
     Endcase
     Default
         Goto GETS1
     Endcase
 Endswitch

 Switch s1
     Case "Y"
         Atsay 16 2 79 "Enter File List For DownLoad On Following 3 Lines"
         Atsay 17 2 79 ">"
         Atget 17 4 79 74 s2
         Atsay 18 2 79 ">"
         Atget 18 4 79 74 s3
         Atsay 19 2 79 ">"
         Atget 19 4 79 74 s4
     Endcase
 Endswitch
 Return

GETS5:
 Atsay  20  2 79 "Automatic Logoff (Y)es (N)o?                :         "
 Curon
 Locate 20 48
 Keyget s5
 Atsay  20 48 79 s5
 Switch s5
     Case "Y"
     Endcase
     Case "N"
     Endcase
     Case "1B"
         Goto ABORT
     Endcase
     Default
         Goto GETS5
     Endcase
 Endswitch
 Return

ABORT:
    Clear
    Atsay 1 2 31 ">>> PDQ Terminated <<<"
    Exit