home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
COMM
/
SCR104A.ZIP
/
RAMK.TEM
< prev
next >
Wrap
Text File
|
1992-01-21
|
3KB
|
156 lines
When continue: ^M
When More( n
When "press any" ^M
When "Press any" ^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
Wait "FULL NAME"
If $ne("@gateway","")
EndWhen "@gateway"
EndIf
SendWait "@username^M" Password:
SendWait "@password^M" "The Board"
When "waiting mail" n
When "new files" n
SendWait ^M Select:
EndWhen "new files"
EndWhen "waiting mail"
%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 "Select:"
If %usize # 0
SendWait u "FileDoor"
SendWait z "Give filename"
%uhandle := fread %fname
While NoError
$rchpos %i %fname "\"
If %i # %maxint
Inc %i
$delete %fname 0 %i
EndIf
SendWait "~%fname^M" "Give filename"
%uhandle := fread %fname
EndWhile
SendWait ^M "after transfer"
SendWait ^M **B01
%uhandle := fclose
Upload zmodem .%currdir\%ufile
Wait "Perform another"
SendWait n Select:
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
Else
Delete %ufile
EndIf
If %dsize # 0
SendWait d FileDoor
SendWait z descriptions
SendWait n Filemask
%dhandle := fread %fname
While NoError
$rchpos %i %fname "\"
If %i # %maxint
Inc %i
$delete %fname 0 %i
EndIf
SendWait "~%fname^M" "Select file:"
SendWait y Filemask
%dhandle := fread %fname
EndWhile
%dhandle := fclose
SendWait ^M "after transfer"
SendWait ^M **B00
Download zmodem !
Wait "Perform another"
SendWait n Select:
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
%repname := "%updir\@packet.REP"
SendWait m Select:
SendWait @ramkey "@bbs"
SendWait a "to Upload?"
If Exists %repname
SendWait y **B01
Upload zmodem %repname
Wait "after transfer"
If NoError
Delete %repname
EndIf
Else
SendWait n "after transfer"
EndIf
SendWait y **B00 "Do You" "to abort"
If Had 2
SendWait y **B00
EndIf
If Had 1
Download zmodem !
Wait "to abort" "NO CARRIER"
If Had 1
SendWait ! "NO CARRIER"
EndIf
Else
SendWait ! "NO CARRIER"
EndIf
If $ne("%port","%dport")
Set Port=%dport
EndIf