home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / aeg020 / upload.cmd < prev   
Encoding:
Text File  |  1988-09-17  |  1.4 KB  |  115 lines
  1. clear
  2. set scroll on
  3. set alarm  on
  4. set atime  3
  5. set port com1
  6. set baudrate 9600
  7. set databits 7
  8. set stopbits 1
  9. set parity even
  10. set flowctrl off
  11. set ascii blankex off
  12. set ascii echo off
  13. set ascii charpace 10
  14. set ascii linepace 5
  15. set ascii up_cr cr
  16. set ascii up_lf strip
  17. rflush
  18. kflush
  19. when "*FUS:" "^M"
  20. ;
  21. ;
  22. ;
  23. log open "aeg_upl.log"
  24. ;
  25. ;
  26. ;
  27. message "Dateiname: "
  28. get s0
  29. isfile s0
  30. if not success
  31.   assign s9 " nicht gefunden..."
  32.   goto end
  33. endif
  34. message "^M"
  35. ;
  36. ;
  37. ;
  38. transmit "^M"
  39. waitfor "FUS:" 5
  40. if not waitfor
  41.   assign s9 "SPS-Timeout..."
  42.   goto end
  43. endif
  44. ;
  45. ;
  46. ;
  47. transmit "HE^M"
  48. waitfor "FUS:" 5
  49. if not waitfor
  50.   assign s9 "SPS-Timeout HE..."
  51.   goto end
  52. endif
  53. ;
  54. ;
  55. ;
  56. transmit "SBN^M"
  57. waitfor "PROGRAMM LOESCHEN (J)" 5
  58. if not waitfor
  59.   assign s9 "SPS-Timeout SBN..."
  60.   goto end
  61. endif
  62. transmit "J^M"
  63. waitfor "FUS:" 20
  64. if not waitfor
  65.   assign s9 "SPS-Timeout J..."
  66.   goto end
  67. endif
  68. ;
  69. ;
  70. ;
  71. transmit "M^M"
  72. waitfor "ADR:" 5
  73. if not waitfor
  74.   assign s9 "SPS-Timeout M..."
  75.   goto end
  76. endif
  77. ;
  78. transmit "1^M"
  79. pause 1
  80. ;
  81. ;
  82. ;
  83. sendfile ascii s0
  84. ;
  85. ;
  86. ;
  87. transmit "E^M"
  88. waitfor "FUS:" 5
  89. if not waitfor
  90.   assign s9 "SPS-Timeout E..."
  91.   goto end
  92. endif
  93. ;
  94. transmit "PRZE^M"
  95. waitfor "FUS:" 5
  96. if not waitfor
  97.   assign s9 "SPS-Timeout PRZE..."
  98.   goto end
  99. endif
  100. ;
  101. ;
  102. ;
  103. assign s9 "Datei wurde an SPS gesendet..."
  104. ;
  105. ;
  106. ;
  107. end:
  108. cwhen
  109. message s9
  110. log close
  111. exit
  112. ;
  113. ;
  114. ;
  115.