home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / mb960323.arj / FIDO.SCR < prev    next >
Encoding:
Text File  |  1996-03-23  |  2.3 KB  |  105 lines
  1. ; ********************************************************************
  2. ; mb-info:   Login-Script für Fido-System (EMSI/opt. FTS-6)
  3. ; Script:    FIDO.SCR
  4. ; Ersteller: KAP Holger Lembke
  5. ; Erstellt:  17.04.94, 19.04.94, 21.06.94
  6. ; Wartung:   08.09.94, 03.12.1994
  7. ; ********************************************************************
  8. ; Dieses Script wird irgendwann mal um FTS-6 und FTS-1-Logins erweitert
  9. ; Das sollte leicht zu bewerkstelligen sein.
  10. ; ********************************************************************
  11. call debug.scr
  12. call anruf.scr
  13.  
  14. ; *******************************
  15. ; Belegung muß rückwärts erfolgen
  16. event $connectwait error
  17. event 20 __emsiinq
  18. scan4sub $emsiackstr __emsiack
  19. scan4sub $emsinackstr __emsinack
  20. scan4sub $emsireqstr __emsireq
  21.  
  22. delay 500
  23. send ^m
  24. delay 500
  25. delay 500
  26. delay 500
  27.  
  28. ; ***************
  29. ; Emsi-Intro-Loop
  30. @mainloop:
  31. delay 1500
  32. goto mainloop
  33.  
  34.  
  35. ; ***************
  36. ; Emsi-Intro-Loop
  37. @__emsiinq:
  38. message Emsi-InQ
  39. send $emsiinqstr
  40. send $emsiinqstr
  41. goto mainloop
  42.  
  43. ; wenn EMSIREQ empfangen: Daten senden
  44. @__emsireq:
  45. message Fido-Emsi-Login
  46. send $emsiinqstr
  47. sendemsi
  48. goto __emsiack
  49. goto mainloop
  50.  
  51. ; ***********************
  52. ; letzten Scanner l÷schen
  53. scankill 1
  54. eventkill all
  55.  
  56. ; **************************************
  57. ; Reaktionsschleife auf meine Emsi-Daten
  58. @Loop1:
  59. delay 1500
  60. goto loop1
  61.  
  62.  
  63. ; Gegenseite mag mich nicht!! Nochmal probieren. Da sind wir sturr.
  64. @__emsinack:
  65. goto __emsireq
  66.  
  67.  
  68. ; Jau, Gegenseite hat mich gemocht. Seine Daten holen und akzeptieren
  69. @__emsiack:
  70. getemsi
  71. send $emsiackstr
  72. send $emsiackstr
  73.  
  74. goto starttransfer
  75.  
  76. ; ***************************************************************
  77. ; ***************************************************************
  78. ; Hier k÷nnte jetzt der Teil fⁿr FTS-6-Logins stehen. Mal sehen..
  79.  
  80. ; ***************************************************************
  81. ; ***************************************************************
  82.  
  83. ; ************************************************
  84. ; Hier beginnt jetzt der eigentliche Datentransfer
  85. @starttransfer:
  86. scankill all
  87. eventkill all
  88. status loginok
  89.  
  90. ; Pakete packen und File senden
  91. Message Sende Daten...
  92. external uparc
  93. external upload
  94.  
  95. ; auf Z-Modem-File warten, empfangen und entpacken
  96. Message Empfange Daten...
  97. external download
  98.  
  99. @ende:
  100. call auflegen.scr
  101. exit
  102.  
  103. @error:
  104. exit 2
  105.