home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The First Hungarian Family
/
The_First_Hungarian_Family_CD-ROM.bin
/
internet
/
offlread
/
1st200
/
a
/
pcb-dl.scr
< prev
next >
Wrap
Text File
|
1995-07-19
|
1KB
|
55 lines
' ┌───────────────────────────────────────┐
' │ PCBoard download script for 1stReader │
' │ Written by Mark Herring │
' │ July 20, 1995 │
' └───────────────────────────────────────┘
REQ_SETFILE @API$(14)@API$(10).REQ
IF NOT REQ_EXIST GOTO DONE
KILL @API$(28)@API$(10).DL
COMMENT "@DATE@ @TIME@ Scanning for downloads from @API$(10).REQ"
:LOOP
REQ_NEXT
IF REQ_DONE GOTO DONE
IF NOT REQ_CONF GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Joining conference @REQ_CONF@"
TRANSMIT "J @REQ_CONF@ Q^M"
WAITFOR "=yes?" 3
IF FOUND=1 TRANSMIT "N^M"
:DOWNLOAD
COMMENT "@DATE@ @TIME@ Requesting @REQ_FILE@"
TRANSMIT "^M"
WAITFOR "Command?" 10
TRANSMIT "D @REQ_FILE@ Z^M"
WAITFOR "aborts transfer|not found on disk|insufficient|download bytes left available" 30
IF FOUND=0 GOTO UNKNOWN
IF FOUND=2 GOTO NOTFOUND
IF FOUND=3 GOTO DONE
IF FOUND=4 GOTO DONE
RESET
LOOKFOR ") to continue?" ""
DOWNLOAD @FILEDIR@@REQ_FILE@
WAITFOR "Transfer Successful" 30
LOOKFOR ") to continue?" "^M"
IF FOUND=0 GOTO LOOP
COMMENT "@DATE@ @TIME@ Transfer successful"
REQ_SET
GOTO LOOP
:UNKNOWN
REQ_SET "Could not locate file"
TRANSMIT "^M"
GOTO LOOP
:NOTFOUND
REQ_SET "File not found"
TRANSMIT "^M"
GOTO LOOP
:DONE
EXIT