home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / AMNET.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  1.6 KB  |  82 lines
  1. ; ********************************************************************
  2. ; Script:    AMNET.SCR
  3. ; mb-info:   Scriptdatei für Amnet-Logins
  4. ; Ersteller: Holger Lembke
  5. ; Erstellt:  10.08.94
  6. ; Wartung:   26.08.94, 08.09.94, 28.10.94, 05.12.1994
  7. ; ********************************************************************
  8. call debug.scr
  9. call anruf.scr
  10. message Amnet-Login
  11.  
  12. ; Belegung muß rückwärts erfolgen
  13. event $connectwait error
  14. scan4sub "START OK" startok
  15. scan4sub "NETLOG FALSE" netlogfalse
  16. scan4sub "NETLOG TRUE" netlogtrue
  17. scan4sub "CR >" sendescape
  18.  
  19. ; Hier loopt es. Raus nur, - wenn ein SCAN4SUB eintritt oder carrierverlust
  20. @mainloop:
  21. delay 500
  22. goto mainloop
  23.  
  24. ; notbremse, wenn carrier weg
  25. goto ende
  26.  
  27. ; hierhin kann nur der sprungverteiler von SCAN4SUB springen
  28. @sendescape:
  29. message Login startet...
  30. send ^[
  31. delay 2000
  32. ; das Formatieren übernimmt !!MB intern...
  33. send $username|$passwort|POINTLOG^m
  34. goto mainloop
  35.  
  36. ; Fertig und Senden...
  37. @netlogtrue:
  38. message Sende Daten...
  39. status loginok
  40. external uparc
  41. send START^m
  42. goto mainloop
  43.  
  44. ; Sendephase: Upload und neue Scanner setzten
  45. @startok:
  46. scankill all
  47. eventkill all
  48. external upload
  49. message Auf Paket warten...
  50. scan4sub PACKING packing
  51. scan4sub START start
  52. scan4sub SKIP skip
  53. goto mainloop
  54.  
  55. ; Reaktionen der Empfangsphase
  56. @packing:
  57. message Gegenseite packt Daten...
  58. send PACKING OK^m
  59. goto mainloop
  60.  
  61. @skip:
  62. message Gegenseite hat keine Daten...
  63. send SKIP OK^m
  64. status downloadok
  65. goto ende
  66.  
  67. ; Und hier gibt's was zu empfangen
  68. @start:
  69. send START OK^m
  70. Message Empfange Daten...
  71. delay 3000
  72. external download
  73.  
  74.  
  75. ; Fertig
  76. @ende:
  77. call auflegen.scr
  78. exit
  79.  
  80. @error:
  81. exit 2
  82.