home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
COMM
/
ZMAIL3.ZIP
/
MAIL3.ASP
< prev
next >
Wrap
Text File
|
1992-06-27
|
9KB
|
375 lines
; MAIL3.ASP Procomm Plus v2.01 DOS Aspect Script
PROC MAIN
; Set Time to Dial and Set Modem Defaults
STRING T1
STRING T2
INTEGER C1=1
CLEAR 15
ATSAY 2 3 30 "Time to Execute Script: (HH:MM) "
ATGET 2 36 78 5 T1
IF NULL T1
C1=0
ENDIF
STATMSG " Waiting till specified time to execute BBS call ... "
WHILE NOT ZERO C1
T2=$TIME1
FATSAY 4 25 30 "Time Now: "
FATSAY 4 36 78 T2
STRCMP T1 T2 5
IF SUCCESS
C1 = 0
ENDIF
ENDWHILE
SET MODEM MAXDIAL 1
EMULATE ANSI
CLEAR 15
FATSAY 1 22 30 "Press ESCAPE twice to cancel ....."
SET PARITY NONE
SET DATABITS 8
SET STOPBITS 1
SET DUPLEX FULL
N4=0
N5=0
N6=0
N7=0
N8=0
N9=0
CALL BBS1
ENDPROC
PROC BBS1
;*********** CUSTOMIZATION SECTION for 1st bbs**********************
ASSIGN S0 "xxx-xxxx" ;BBS phone number 1
ASSIGN S1 "xxx-xxxx" ;BBS phone number 2
ASSIGN S2 "xxxxxxxx" ;your password
ASSIGN S3 "MOONDOG" ;BBS code for REPs & QWKs (NODE-ID)
ASSIGN S4 "David Lecin" ;your FIRST and LAST name
ASSIGN S5 "f:\work\" ;your REP directory
ASSIGN S6 "f:\work\" ;your QWK directory
ASSIGN S7 "1" ;Language Number ( "" for NONE )
N0=11 ;Mail Door Number (PCBoard only)
N1=2 ; N1=1 - for QMail Door
; N1=2 - for MarkMail Door
; N1=2 - for KMail Door
; N1=3 - for Wildcat/Tomcat
ASSIGN S8 "N" ;TOMCAT command from Message Menu
N2=0 ; N2=0 for internal zmodem
; N2=1 for external protocol
N3=250 ;TOTAL Number of times to dial BBSs
;*********** End Customization Section *****************************
N5=1
CALL ONE
ENDPROC
PROC BBS2
;*********** CUSTOMIZATION SECTION for 2nd bbs**********************
ASSIGN S0 "x-xxx-xxx-xxxx" ;BBS phone number 1
ASSIGN S1 "x-xxx-xxx-xxxx" ;BBS phone number 2
ASSIGN S2 "xxxxxxxxx" ;your password
ASSIGN S3 "INV-FAC" ;BBS code for REPs & QWKs (NODE-ID)
ASSIGN S4 "David Lecin" ;your FIRST and LAST name
ASSIGN S5 "f:\work\" ;your REP directory
ASSIGN S6 "f:\work\" ;your QWK directory
ASSIGN S7 "" ;Language Number ( "" for NONE )
N0=8 ;Mail Door Number (PCBoard only)
N1=1 ; N1=1 - for QMail Door
; N1=2 - for MarkMail Door
; N1=2 - for KMail Door
; N1=3 - for Wildcat/Tomcat
ASSIGN S8 "N" ;TOMCAT command from Message Menu
N2=0 ; N2=0 for internal zmodem
; N2=1 for external protocol
;*********** End Customization Section *****************************
N5=2
CALL ONE
ENDPROC
PROC BBS3
;*********** CUSTOMIZATION SECTION for 3rd bbs**********************
ASSIGN S0 "x-xxx-xxx-xxxx" ;BBS phone number 1
ASSIGN S1 "x-xxx-xxx-xxxx" ;BBS phone number 2
ASSIGN S2 "xxxxxxxxx" ;your password
ASSIGN S3 "NYRUN" ;BBS code for REPs & QWKs (NODE-ID)
ASSIGN S4 "David Lecin" ;your FIRST and LAST name
ASSIGN S5 "f:\work\" ;your REP directory
ASSIGN S6 "f:\work\" ;your QWK directory
ASSIGN S7 "" ;Language Number ( "" for NONE )
N0=4 ;Mail Door Number (PCBoard only)
N1=2 ; N1=1 - for QMail Door
; N1=2 - for MarkMail Door
; N1=2 - for KMail Door
; N1=3 - for Wildcat/Tomcat
ASSIGN S8 "N" ;TOMCAT command from Message Menu
N2=0 ; N2=0 for internal zmodem
; N2=1 for external protocol
;*********** End Customization Section *****************************
N5=3
CALL ONE
ENDPROC
;Alternate Dialing the Two Nodes
PROC ONE
MDIAL S0 S3
IF NOT CONNECTED
CALL TWO
else
N6=N6+1
if n5==1
n7=1
elseif n5==2
n8=1
elseif n5==3
n9=1
endif
call dzl
ENDIF
ENDPROC
PROC TWO
MDIAL S1 S3
IF NOT CONNECTED
N4=N4+1
IF N4 > N3
usermsg " Exceeded Allowed Number of Dial Attempts "
QUIT
ENDIF
CALL ALT
else
N6=N6+1
if n5==1
n7=1
elseif n5==2
n8=1
elseif n5==3
n9=1
endif
call dzl
ENDIF
ENDPROC
PROC DZL
;Internal Variable Manipulation
STRING S10
STRING S11
STRING S12
STRING S13
STRING S14
ITOA N0 S14
STRING S15
STRING S16
ASSIGN S15 ".REP"
ASSIGN S16 ".QWK"
S9=S3
STRCAT S9 S15
ASSIGN S12 ".QWb"
ASSIGN S13 ".QWa"
S10=S6
STRCAT S10 S3
STRCAT S10 S12
S11=S6
STRCAT S11 S3
STRCAT S11 S13
STRCAT S5 S3
STRCAT S5 S15
STRCAT S6 S3
STRCAT S6 S16
;Rename Existing QWK
findfirst S11
if found
delete S11
endif
findfirst S10
if found
rename S10 S11
endif
findfirst S6
if found
rename S6 S10
endif
;Flow Control - PCBoard or Wildcat BBS
IF N1==1
ELSEIF N1==2
ELSEIF N1==3
CALL WCAT
ELSE
hangup
quit
ENDIF
;Basic PCBoard Prompts
WHEN 0 "more?" transmit "n^M"
WHEN 1 "continue" transmit "^M"
WHEN 2 "(Enter)=yes?" transmit "n^M"
;Language Prompt Response
IF NULL S7
ELSE
waitfor "language" 60
transmit S7
transmit "^M"
ENDIF
;PCBoard Logon and Open MailDoor
waitfor "ics (Enter)=no? " 10
transmit "N;Q^M"
waitfor "our first name? " 60
transmit S4
transmit "^M"
waitfor "s will echo)? (" 60
transmit S2
transmit "^M"
waitfor "Board Command?" 60
transmit "open "
transmit S14
transmit "^M"
;Upload REP Packet
findfirst S5
if found
waitfor "Command?" 120
transmit "U^M"
waitfor S9 60
sendfile zmodem S5
if success
delete S5
endif
endif
WAITFOR "Command?" 120
;Flow Control - Mail Door
IF N1==1
CALL QM
ELSEIF N1==2
CALL MM
ELSE
TRANSMIT "G^M"
hangup
quit
ENDIF
ENDPROC
;QMail Door
PROC QM
transmit "D;Y;G^M"
when 0 "Prepare to download" call DZL2
when 2 "Command?" transmit "G^M"
WHILE CONNECTED
ENDWHILE
CALL ALT
ENDPROC
PROC DZL2
if N2==1
DOS "xfer"
endif
ENDPROC
;MarkMail & KMail Doors (same prompts/replies)
PROC MM
transmit "D^M"
when 2 "Do you want to" call DZL3
when 0 "Command?" transmit "G^M"
WHILE CONNECTED
ENDWHILE
CALL ALT
ENDPROC
PROC DZL3
transmit "Y^M"
waitfor ".QWK" 300
if N2==1
DOS "xfer"
endif
ENDPROC
;WILDCAT! TOMCAT! Section
PROC WCAT
;Logon and GoTo Tomcat
WHEN 2 "ontinue" transmit "^M"
WAITFOR "first name" 120
TRANSMIT "*"
TRANSMIT S4
TRANSMIT " "
TRANSMIT S2
TRANSMIT "^M"
WAITFOR "Main Menu" 120
TRANSMIT "M^M"
WAITFOR "Message Menu" 120
TRANSMIT S8
TRANSMIT "^M"
;Upload REP
findfirst S5
if found
waitfor "TOMCAT MENU" 120
transmit "U^M"
waitfor S9 120
sendfile zmodem S5
if success
delete S5
endif
endif
;Download QWK
WAITFOR "TOMCAT MENU" 150
transmit "D^M"
WHEN 0 "would you like to receive this packet" call TOM1
WHEN 1 "tomcat menu" transmit "G^M"
WHILE CONNECTED
ENDWHILE
CALL ALT
ENDPROC
PROC TOM1
transmit "Y^M"
waitfor ".QWK" 150
if N2==1
DOS "xfer"
endif
ENDPROC
PROC ALT
if n6==3
QUIT
endif
if n5==1
if n8==0
call bbs2
elseif n9==0
call bbs3
elseif n7==0
call bbs1
endif
endif
if n5==2
if n9==0
call bbs3
elseif n7==0
call bbs1
elseif n8==0
call bbs2
endif
endif
if n5==3
if n7==0
call bbs1
elseif n8==0
call bbs2
elseif n9==0
call bbs3
endif
endif
QUIT
ENDPROC