home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
$$order.scr
< prev
next >
Wrap
Text File
|
1995-07-19
|
1KB
|
50 lines
' ┌─────────────────────────────────┐
' │ 1stReader order script │
' │ Written by Mark Herring │
' │ July 20, 1995 │
' └─────────────────────────────────┘
TIMEOUT 30
LOOKFOR "NO CARRIER" "@HANGUP@"
SET_API(392)=0
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with Sparkware's Ordering System"
WAITFOR "Reserved" 20
IF FOUND=0 THEN EXIT
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>|<HANGUP>" 60
IF FOUND=3 THEN GOTO DONE
IF NOT FOUND=1 THEN GOTO EXIT
:DOWNLOAD
SET_API(392)=1
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
:DONE
EXIT