home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / TE2_134T / te2inst.003 / Obern.SCR < prev    next >
Text File  |  1997-07-03  |  2KB  |  101 lines
  1. ;*************************************************************************;
  2. ;* TRECORD (TE/2 script generation utility) v. 1.01                      *;
  3. ;* Copyright (C) 1993 Allan M. Hart  All rights reserved                 *;
  4. ;*                                                                       *;
  5. ;* Script File generated on Thu Mar 17 22:21:22 1994                     *;
  6. ;*                                                                       *;
  7. ;*************************************************************************;
  8.  
  9. ; Modified for distribution, Brady Flowers
  10.  
  11. string usrName = "Your Name Here"
  12.  
  13. string trans1
  14. string trans2="^M"
  15. integer passwnum=3
  16. string passw
  17. string trans4="n^M"
  18. string trans5="n^M"
  19. string wait1="Please enter your FIRST and LAST name: "
  20. string wait2
  21. string wait3="Please enter your Password: "
  22. string wait4="Do you wish to check for mail [Y,n]? "
  23. string wait5="More [Y,n,=]? "
  24. string trans
  25. string wait
  26. integer loopnum
  27. integer numloops=5
  28. integer i
  29.  
  30. PROGRAM
  31.  
  32. if strcmp(usrName, "Your Name Here") == 0
  33.   ErrorMsg("Before using the Obern.SCR script you must first", "edit it to use your own name!")
  34.   ErrorMsg("You will also need to make sure that your login", "password is recorded in the dialing directory.")
  35.   STOP
  36. endif
  37. trans1 = usrName + "^M"
  38. wait2  = usrName + " [Y,n]? "
  39.  
  40. if !connected
  41.    dial("Obern")
  42. endif
  43.  
  44. if connected
  45.  
  46. i = 0
  47. do
  48.   if i == 8
  49.     ErrorMsg("Unable to get initial prompt", "from the Oberon BBS")
  50.     STOP
  51.   endif
  52.   sendbyte(13)
  53.   i = i + 1
  54. loop until waitfor("Please press your [ESC] Key Now!", 3)
  55. sendbyte(27)
  56.  
  57. DirActive = FALSE
  58. loopnum=1
  59. do while loopnum!=numloops+1
  60. if loopnum==1
  61.   wait=wait1
  62.   trans=trans1
  63. endif
  64. if loopnum==2
  65.   wait=wait2
  66.   trans=trans2
  67. endif
  68. if loopnum==3
  69.   wait=wait3
  70. endif
  71. if loopnum==4
  72.   wait=wait4
  73.   trans=trans4
  74. endif
  75. if loopnum==5
  76.   wait=wait5
  77.   trans=trans5
  78. endif
  79. do while 1
  80.   if waitfor(wait, 2)
  81.     BREAK
  82.   endif
  83.   if KbdAbort
  84.     if (GETYESNO("Abort this script?", null, TRUE))
  85.       STOP
  86.     else
  87.       BREAK
  88.     endif
  89.   endif
  90. loop
  91. if passwnum==loopnum
  92.   passw=PASSWORD("")
  93.   transmit(passw+"^M")
  94. else
  95.   transmit(trans)
  96. endif
  97. loopnum=loopnum+1
  98. loop
  99. endif
  100.  
  101. END