home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / $$ORDER.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.0 KB  |  43 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ 1stReader order script          │
  3. '       │ Written by Mark Herring         │
  4. '       │ May 15th, 1993                  │
  5. '       └─────────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8.  
  9. LOOKFOR "NO CARRIER" "@HANGUP@"
  10.  
  11. LOCKLINE 20 30
  12. COMMENT "@DATE@ @TIME@  Connected with Sparkware's Ordering System"
  13. WAITFOR "<UPLOAD>" 25
  14.  
  15. :TOP
  16. COMMENT "@DATE@ @TIME@  Uploading your order now..."
  17. UPLOAD "@API$(5)ORDER.ZIP"
  18. TRANSMIT "BACK"
  19. WAITFOR "<SUCCESS>|<ERROR>" 20
  20. IF FOUND=1 THEN GOTO WAIT
  21. GOTO TOP
  22.  
  23. :WAIT
  24. COMMENT "@DATE@ @TIME@  Your upload was successful"
  25. WAITFOR "<APPROVED>|<DECLINED>" 60
  26. IF NOT FOUND=1 THEN GOTO EXIT
  27.  
  28. :DOWNLOAD
  29. WAITFOR "<DOWNLOAD>" 30
  30. COMMENT "@DATE@ @TIME@  Downloading your 1stReader keyfile"
  31. IF EXIST @API$(5)KEYFILE.ZIP THEN KILL @API$(5)KEYFILE.ZIP
  32. DOWNLOAD "@API$(5)KEYFILE.ZIP"
  33. TRANSMIT "BACK"
  34. WAITFOR "<SUCCESS>|<ERROR>"
  35. IF FOUND=1 THEN GOTO EXIT
  36. GOTO DOWNLOAD
  37.  
  38. :EXIT
  39. COMMENT "@DATE@ @TIME@  Disconnecting from system"
  40. WAITFOR "<HANGUP>" 10
  41. EXIT
  42.  
  43.