home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / ZNET38.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  1.4 KB  |  75 lines
  1. ; ********************************************************************
  2. ; mb-info:   Scriptdatei für Z3.8-Logins (nach Hitchhicker)
  3. ; Script:    Login-Script für Z3.8-Boxen mit Hitchhicker
  4. ; Ersteller: KAP Holger Lembke
  5. ; Erstellt:  11.03.94
  6. ; Wartung:   21.11.1994 (Kopie von ZNETZK.SCR), 05.12.1994
  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: username
  19.  
  20. ; Hier loopt es. Raus nur, - wenn ein SCAN4SUB eintritt oder carrierverlust
  21. @mainloop:
  22. delay 500
  23. send ^x
  24. goto mainloop
  25.  
  26. ; notbremse, wenn carrier weg
  27. goto ende
  28.  
  29. ; hierhin kann nur der sprungverteiler von SCAN4SUB springen
  30. @return:
  31. send .
  32. goto mainloop
  33.  
  34. @username:
  35. send ZERBERUS^m
  36. goto mainloop
  37.  
  38. @systemname:
  39. send $username^m
  40. Message Username gesendet...
  41. goto mainloop
  42.  
  43. @passwort:
  44. send $passwort^m
  45. Message Passwort gesendet...
  46. goto mainloop
  47.  
  48. @nak:
  49. send ^a^a^a^a^d
  50. goto mainloop
  51.  
  52. ; kein rückspring, der Login ist fertig
  53.  
  54. @starttransfer:
  55. scankill all
  56. eventkill all
  57. status loginok
  58.  
  59. ; file senden
  60. Message Sende Daten...
  61. external uparc
  62. external upload
  63.  
  64. ; auf Z-Modem-File warten
  65. Message Empfange Daten...
  66. external download
  67. external downarc
  68.  
  69. @ende:
  70. call auflegen.scr
  71. exit
  72.  
  73. @error:
  74. exit 2
  75.