home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
COMM
/
SCR104A.ZIP
/
WC3TC3.TEM
< prev
Wrap
Text File
|
1992-01-07
|
5KB
|
212 lines
When nue? ^M
When top? ^M
When PAUSE ^M
If $ne("@gateway","")
When "@gateway" "@response"
EndIf
If $ne("%port","@vport")
Set Port=@vport
EndIf
While NOT Connected
Dial/@waittime "@numberA" _
"@numberB" _
"@numberC" _
"@numberD"
EndWhile
When "Are you" y
Wait "first name ?"
SendWait "*@username @password^M" _
"[ ]" _ ; 1
"have new" _ ; 2
"tin menu" _ ; 3
"view it" _ ; 4
"VOICE" "BIRTH" ; 5 6
If $ne("@gateway","")
EndWhen "@gateway"
EndIf
EndWhen "Are you"
If Had 6
SendWait "~@dob^M" "[ ]" "have new" "tin menu" "view it"
ElsIf Had 5
SendWait "~@phone^M" "[ ]" "have new" "tin menu" "view it"
EndIf
If Had 4
SendWait n "[ ]" "have new" "tin menu"
EndIf
If Had 3
SendWait n "[ ]" "have new"
EndIf
If Had 2
SendWait c "[ ]"
EndIf
%ufile := "@packet.FUL"
%uhandle := fopen %ufile
If %NoError
%uhandle := fsize %usize
If %usize = 0
%uhandle := fclose
EndIf
Else
%usize := 0
EndIf
%dfile := "@packet.FDL"
%dhandle := fopen %dfile
If %NoError
%dhandle := fsize %dsize
If %dsize = 0
%dhandle := fclose
EndIf
Else
%dsize := 0
EndIf
If (%dsize # 0) | (%usize # 0)
SendWait f "[ ]"
If %usize # 0
SendWait u **B01 "[ ]" 13D "Select ["
If Had 4
SendWait z **B01 "[ ]" 13D
EndIf
If Had 3
%uhandle := fread %fname
While NoError
$rchpos %i %fname "\"
If %i # %maxint
Inc %i
$delete %fname 0 %i
EndIf
SendWait "%fname^M" 13D
%uhandle := fread %fname
EndWhile
SendWait ^M **B01 "[ ]"
EndIf
%uhandle := fclose
If Had 1
Upload zmodem .%currdir\%ufile
Wait "[ ]"
If NoError
If $eq("@confirm","Y")
Ask "Delete %ufile? (Y/N) " %reply 1 1 Y
$caps %reply
Else
%reply := "Y"
EndIf
If $equal %reply Y
Delete %ufile
EndIf
EndIf
EndIf
Else
Delete %ufile
EndIf
If %dsize # 0
SendWait d 13D
%dhandle := fread %fname
While NoError
$rchpos %i %fname "\"
If %i # %maxint
Inc %i
$delete %fname 0 %i
EndIf
SendWait "%fname^M" 13D
%dhandle := fread %fname
EndWhile
%dhandle := fclose
SendWait ^M "[N]"
SendWait ^M **B00 "[ ]" "Select ["
If Had 3
SendWait z **B00 "[ ]"
EndIf
If Had 1
Download zmodem !
Wait "[ ]"
EndIf
SendWait q "[ ]"
If NoError
If $eq("@confirm","Y")
Ask "Delete %dfile? (Y/N) " %reply 1 1 Y
$caps %reply
Else
%reply := "Y"
EndIf
If $equal %reply Y
Delete %dfile
EndIf
EndIf
Else
Delete %dfile
EndIf
EndIf
SendWait m "[ ]"
SendWait @tomcatkey "TOMCAT MENU"
EndWhen nue?
%ptrname := "%updir\@packet.PTR"
If Exists %ptrname
SendWait c "CONFIGURE MENU"
SendWait u **B01 PACKER PROTOCOL
If Had 3
SendWait z **B01 PACKER
EndIf
If Had 2
SendWait z **B01
EndIf
Upload zmodem %ptrname
Wait "pointer file ["
SendWait ^M "CONFIGURE MENU"
SendWait q "TOMCAT MENU"
Ask "Delete .PTR file from upload directory? " %reply 1 1 Y
$caps %reply
If $eq(%reply,"Y")
Delete %ptrname
EndIf
EndIf
%repname := "%updir\@packet.REP"
If Exists %repname
SendWait u **B01 PACKER PROTOCOL
If Had 3
SendWait z **B01 PACKER
EndIf
If Had 2
SendWait z **B01
EndIf
Upload zmodem %repname
Wait "TOMCAT MENU"
If NoError
Delete %repname
EndIf
EndIf
SendWait d **B00 "when done?" "TOMCAT MENU" PACKER PROTOCOL
If Had 5
SendWait z **B00 "when done?" "TOMCAT MENU" PACKER
EndIf
If Had 4
SendWait z **B00 "when done?" "TOMCAT MENU"
EndIf
If Had 2
SendWait g **B00
EndIf
If Had 1
Download zmodem !
EndIf
If Had 3
SendWait g "NO CARRIER"
Else
Wait "NO CARRIER" "stay online..." "TOMCAT MENU"
If Had 3
SendWait g "NO CARRIER"
ElsIf Had 2
SendWait h "NO CARRIER"
EndIf
EndIf
If $ne("%port","%dport")
Set Port=%dport
EndIf