home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / ZNETZK.SCR < prev   
Encoding:
Text File  |  1996-03-23  |  1.7 KB  |  88 lines
  1. ; ********************************************************************
  2. ; mb-info:   Scriptdatei für ZConnect-Logins (JANUS)
  3. ; Script:    Login-Script für ZConnect-Boxen mit JANUS
  4. ; Ersteller: KAP Holger Lembke
  5. ; Erstellt:  11.03.94
  6. ; Wartung:   08.09.94, 03.12.1994, 25.01.1995, 14.04.1995
  7. ; ********************************************************************
  8. call debug.scr
  9. call anruf.scr
  10. message ZConnect-Login
  11.  
  12. ; Belegung muß rückwärts erfolgen
  13. event $connectwait error
  14. scan4sub ^u nak
  15. scan4sub ^f starttransfer
  16. scan4sub passwort: passwort
  17. scan4sub systemname: systemname
  18. scan4sub username: username2
  19.  
  20. ; Vorschleife, bis das erste SCAN4SUB eingegangen ist
  21. @premainloop:
  22. delay 500
  23. send ^x
  24. goto premainloop
  25.  
  26. ; Hier loopt es. Raus nur, - wenn ein SCAN4SUB eintritt oder carrierverlust
  27. @mainloop:
  28. delay 500
  29. goto mainloop
  30.  
  31. ; notbremse, wenn carrier weg
  32. goto ende
  33.  
  34. ; hierhin kann nur der sprungverteiler von SCAN4SUB springen
  35. @return:
  36. send .
  37. goto mainloop
  38.  
  39. ; mit Janus2 probieren und gleich abschalten
  40. @username2:
  41. scankill 1
  42. scan4sub username: username
  43. send janus2^m
  44. goto mainloop
  45.  
  46. ; hier nur Janus probieren
  47. @username:
  48. send janus^m
  49. goto mainloop
  50.  
  51. @systemname:
  52. send $username^m
  53. Message Username gesendet...
  54. goto mainloop
  55.  
  56. @passwort:
  57. send $passwort^m
  58. Message Passwort gesendet...
  59. goto mainloop
  60.  
  61. @nak:
  62. send ^a^a^a^a^d
  63. goto mainloop
  64.  
  65. ; kein rückspring, der Login ist fertig
  66.  
  67. @starttransfer:
  68. scankill all
  69. eventkill all
  70. status loginok
  71.  
  72. ; file senden
  73. Message Sende Daten...
  74. external uparc
  75. external upload
  76.  
  77. ; auf Z-Modem-File warten
  78. Message Empfange Daten...
  79. external download
  80. external downarc
  81.  
  82. @ende:
  83. call auflegen.scr
  84. exit
  85.  
  86. @error:
  87. exit 2
  88.