home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / ALPHA.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  1.3 KB  |  69 lines
  1. ; ********************************************************************
  2. ; Script:    ALPHA.SCR
  3. ; mb-info:   Scriptdatei für Alphabox-Logins (Alphabox/MagicNe2)
  4. ; Ersteller: KAP Holger Lembke
  5. ; Erstellt:  04.11.93
  6. ; Wartung:   10.03.94, 08.09.94, 03.12.1994
  7. ; ********************************************************************
  8. call debug.scr
  9. message Alphabox-Login
  10.  
  11. ; Belegung muß rückwärts erfolgen
  12. event $connectwait error
  13. scan4sub ***OK*** logon
  14. scan4sub passwort: passwort
  15. scan4sub nodename: systemname
  16. scan4sub username: username
  17. scan4sub return return
  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. @return:
  29. send .
  30. goto mainloop
  31.  
  32. @username:
  33. send @ALPHA1^m
  34. goto mainloop
  35.  
  36. @systemname:
  37. send $username^m
  38. Message Username gesendet...
  39. goto mainloop
  40.  
  41. @passwort:
  42. send $passwort^m
  43. Message Passwort gesendet...
  44. goto mainloop
  45.  
  46. ; kein rückspring, der Login ist fertig
  47.  
  48. @logon:
  49. scankill all
  50. eventkill all
  51. status loginok
  52.  
  53. ; file senden
  54. Message Sende Daten...
  55. external uparc
  56. external upload
  57.  
  58. ; auf Z-Modem-File warten
  59. Message Empfange Daten...
  60. external download
  61. external downarc
  62.  
  63. @ende:
  64. call auflegen.scr
  65. exit
  66.  
  67. @error:
  68. exit 2
  69.