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 >
Text File  |  1995-07-19  |  1KB  |  50 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ 1stReader order script          │
  3. '       │ Written by Mark Herring         │
  4. '       │ July 20, 1995                   │
  5. '       └─────────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8.  
  9. LOOKFOR "NO CARRIER" "@HANGUP@"
  10. SET_API(392)=0
  11.  
  12. LOCKLINE 20 30
  13. COMMENT "@DATE@ @TIME@  Connected with Sparkware's Ordering System"
  14. WAITFOR "Reserved" 20
  15. IF FOUND=0 THEN EXIT
  16. WAITFOR "<UPLOAD>" 25
  17.  
  18. :TOP
  19. COMMENT "@DATE@ @TIME@  Uploading your order now..."
  20. UPLOAD "@API$(5)ORDER.ZIP"
  21. TRANSMIT "BACK"
  22. WAITFOR "<SUCCESS>|<ERROR>" 20
  23. IF FOUND=1 THEN GOTO WAIT
  24. GOTO TOP
  25.  
  26. :WAIT
  27. COMMENT "@DATE@ @TIME@  Your upload was successful"
  28. WAITFOR "<APPROVED>|<DECLINED>|<HANGUP>" 60
  29. IF FOUND=3 THEN GOTO DONE
  30. IF NOT FOUND=1 THEN GOTO EXIT
  31.  
  32. :DOWNLOAD
  33. SET_API(392)=1
  34. WAITFOR "<DOWNLOAD>" 30
  35. COMMENT "@DATE@ @TIME@  Downloading your 1stReader keyfile"
  36. IF EXIST @API$(5)KEYFILE.ZIP THEN KILL @API$(5)KEYFILE.ZIP
  37. DOWNLOAD "@API$(5)KEYFILE.ZIP"
  38. TRANSMIT "BACK"
  39. WAITFOR "<SUCCESS>|<ERROR>"
  40. IF FOUND=1 THEN GOTO EXIT
  41. GOTO DOWNLOAD
  42.  
  43. :EXIT
  44. COMMENT "@DATE@ @TIME@  Disconnecting from system"
  45. WAITFOR "<HANGUP>" 10
  46.  
  47. :DONE
  48. EXIT
  49.  
  50.