home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 January / Image.iso / pcgo / demo / boerse / woche12.tps / woche12.tps
Encoding:
Text File  |  1995-07-20  |  2.4 KB  |  95 lines
  1. SCRIPT DFU                 ; Scripttyp
  2.  
  3.  
  4. Dateivorhanden "LHA.EXE"   ; Prüfen, ob Entpacker vorhanden
  5. DOSERROR GOTO LHA_FEHLT
  6.  
  7. :Start
  8.  
  9. count 4                    ; allgemeiner Zähler für Versuche Download
  10.  
  11. transmit $Modeminit1       ; Modem initialisieren
  12. pause 1                    ; 1 Sekunde warten
  13. waitfor "OK",10            ; warten, auf OK vom Modem
  14. waiterror goto OKfehler    ; nach 10 Sekunden: Timeout
  15. pause 2
  16.  
  17. transmit $modeminit2       ; 2.Teil der Modeminitialisierung
  18. pause 1
  19. waitfor "OK",10
  20. waiterror goto OKfehler
  21. pause 2
  22.  
  23. transmit $dialprefix       ; Anwahl der Mailbox
  24. transmit " "
  25. transmit $dialnumber_dfu
  26.  
  27. waitfor "eingeben: "         ; Warten auf Aufforderung
  28. waiterror goto modemfehler
  29. usage "Connect"
  30. transmit $KENNUNG          ; Kennung aus Konfiguration senden
  31.  
  32. waitfor "Zugangscode: "
  33. waiterror goto modemfehler
  34. transmit $KENNWORT         ; Kennwort aus Konfiguration senden
  35.  
  36. ;display off   ; wenn's schneller gehen soll: Semikolon entfernen
  37. waitfor "Ende"
  38. waiterror goto modemfehler
  39. transmit "woche12.exe"         ; DBOX abrufen
  40. transmit $CR
  41. waitfor "Protokoll eingeben: "
  42. transmit "Z"         ; Z-Modem Protokoll
  43. getfile zmodem "woche12.exe"
  44. waitfor "Ende", 5
  45. transmit "G"         ; Z-Modem Protokoll
  46. transmit $CR
  47.  
  48.  
  49. hangup                          ; Modem wird abgehängt
  50.  
  51. :Aktualisierung
  52.  
  53. DOS "LHA.EXE X /c woche12.exe temp\"  ; pfade ggfs. anpassen!!!!
  54. erase "woche12.exe"
  55.  
  56. DATENBOX temp                   ; Aktualisieren mit der entpackten datei
  57.                                 ; Optimierung möglich, z.B. mit RAM-Disk
  58. GOTO ende
  59.  
  60. :MODEMFEHLER
  61. info  "Modem antwortet nicht oder besetzt"  ;am Bildschirm anzeigen
  62. usage "Modem antwortet nicht oder besetzt"  ;und in Protokolldatei
  63. HANGUP
  64. pause 5
  65. goto start
  66.  
  67. :OKFEHLER
  68. info  "Kein OK von Modem erhalten"  ;am Bildschirm anzeigen
  69. usage "Kein OK von Modem erhalten"  ;und in Protokolldatei
  70. HANGUP
  71. pause 5
  72. goto start
  73.  
  74. :ENTPACKFEHLER
  75. info  "Entpacken der empfangenen Datei fehlerhaft"
  76. usage "Entpacken der empfangenen Datei fehlerhaft"
  77. countdown goto SPAETER_NOCHMAL              ;wenn Zähler Count auf 0
  78. goto download
  79.  
  80. :SPAETER_NOCHMAL
  81. transmit "G"
  82. hangup
  83. usage "Neuer Anwahlversuch"
  84. info  "Neuer Anwahlversuch"
  85. pause 120                  ;  2 Minuten warten
  86. goto start
  87.  
  88. :LHA_FEHLT
  89. usage "LHA.EXE nicht im aktuellen Verzeichnis"
  90. info  "LHA.EXE wird im aktuellen Verzeichnis benötigt!!"
  91. goto ende
  92.  
  93. :ENDE
  94.  
  95.