home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
comm
/
first110.zip
/
1ST_110B.ZIP
/
SCRIPTS.ZIP
/
$$ORDER.SCR
< prev
next >
Wrap
Text File
|
1993-05-15
|
1KB
|
43 lines
' ┌─────────────────────────────────┐
' │ 1stReader order script │
' │ Written by Mark Herring │
' │ May 15th, 1993 │
' └─────────────────────────────────┘
TIMEOUT 30
LOOKFOR "NO CARRIER" "@HANGUP@"
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with Sparkware's Ordering System"
WAITFOR "<UPLOAD>" 25
:TOP
COMMENT "@DATE@ @TIME@ Uploading your order now..."
UPLOAD "@API$(5)ORDER.ZIP"
TRANSMIT "BACK"
WAITFOR "<SUCCESS>|<ERROR>" 20
IF FOUND=1 THEN GOTO WAIT
GOTO TOP
:WAIT
COMMENT "@DATE@ @TIME@ Your upload was successful"
WAITFOR "<APPROVED>|<DECLINED>" 60
IF NOT FOUND=1 THEN GOTO EXIT
:DOWNLOAD
WAITFOR "<DOWNLOAD>" 30
COMMENT "@DATE@ @TIME@ Downloading your 1stReader keyfile"
IF EXIST @API$(5)KEYFILE.ZIP THEN KILL @API$(5)KEYFILE.ZIP
DOWNLOAD "@API$(5)KEYFILE.ZIP"
TRANSMIT "BACK"
WAITFOR "<SUCCESS>|<ERROR>"
IF FOUND=1 THEN GOTO EXIT
GOTO DOWNLOAD
:EXIT
COMMENT "@DATE@ @TIME@ Disconnecting from system"
WAITFOR "<HANGUP>" 10
EXIT