home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / dos / terminal / boyan52 / wildcat.bsc < prev   
Encoding:
Text File  |  1994-01-29  |  3.1 KB  |  103 lines
  1. \\ Wildcat system
  2.  
  3. \\ The first part of this script is for setting variables, and calling
  4. \\ different blocks contained in the script.  \BL block calls
  5. \\ Currently the script is set to log you on.  If you remove the \\
  6. \\ slashes from the begining of the \bl commands it would enter the TCat
  7. \\ door ( Number of the door is set with \SV2[]) and get mail.
  8.  
  9. \TO[40]                       \\ sets WaitFor timeout to 40 seconds
  10. |logon
  11. \ld+                         \\ log to disk set to on.
  12. \pa[3]
  13. \wp[2]
  14. \sv1[shopper.rep]
  15. \SV2[1]                                      \\ enter Mail door number [#]
  16. \sv4[shopper.qwk]                            \\ enter massage .QWk filename [#]
  17. \svb[10]\svt[0]
  18. \BL[NAME]\dm[Starting to log name onto %SN]
  19. \BL[QUEST]\dm[Starting Quest block]     ║       ║
  20. \\bl[tcmaildn]\dm[Starting to do Mail Dnload]
  21. \\BL[Logoff]\dm[Getting ready to logoff]
  22. \eb
  23.  
  24. |name
  25. \wp[1]  \DM[Connected to %SN ]
  26. \if+-Pause- "[C"]ontinue[{\gb[name]]
  27. \if+onStop:[\gb[name]]
  28. \IF+First[\! \@{\gb[name]]
  29. \iF+Are you[{\gb[name]]
  30. \iF+please try again.[\#~{~\eb]
  31. \IF+Password[\#~{~~\svt[0]\eb]
  32. \+vt[1]
  33. \ivt-5[\pa[1]\gb[name]]
  34. \ivt+5[\svt[0]\pa[1]{\gb[name]]            \\ this line responds enter
  35. \eb
  36.  
  37. |quest
  38. \DM[ running quest block]                      \\ this is a looping block.
  39. \if+Enter bulletin [{\gb[quest]]
  40. \\IF+Enter door number[%V2{\eb]
  41. \IF+BIRTH DATE[09-08-54{\gb[quest]]  \\ enter date of birth here
  42. \IF+VOICE [\ma[68]\gb[quest]]\\phone number here
  43. \IF+Correct "[Y/n"][y{\gb[quest]]
  44. \\if+Enter door number "[1..9"][9{\eb]
  45. \if+"[C"]ontinue, "[N"]onStop, "[S"]top[S{\gb[quest]]
  46. \if+-Pause- "[C"]ontinue, "[N"]onStop, "[S"]top[S{\gb[quest]]
  47. \if+"[S"]top[S{\gb[quest]]
  48. \IF+"[ENTER"] to quit:[{\gb[quest]]
  49. \IF+to view it "[Y/n"[n{\gb[quest]]
  50. \IF+"[ENTER"] to continue[{\gb[quest]]
  51. \IF+Command [\pa[2]d{\eb]  \\[quest]]       \\  modify if not getting mail
  52. \IF+MAIN MENU [~~~\pa[2]m{\eb       ]            \\  modify if not getting mail
  53. \IF+COMMAND >>? [ ]\pa[2]m{\eb       ]            \\  modify if not getting mail
  54. \if+onStop:[{\gb[quest]
  55. \if+like to view it"[Y/n"][n{\gb[quest]]
  56. \if+to Quit[{\gb[quest]
  57. \if+Would you like to view it"[Y/n"][n{\gb[quest]]
  58. \iF+continue.[C{\gb[quest]]
  59. \if+Door [%V2{\eb]
  60. \+vt[1]
  61. \ivT-5[\pa[2]\gb[quest]]
  62. \ivt+5[\svt[0]~~~\pa[2]{\gb[quest]]            \\ this line responds enter
  63.                                               \\ and continues with script.
  64.  
  65. |mail
  66. \IF+Enter door number[%V2{\eb]
  67. \\WF[ Q L Y S U D N G H ? T"]:]d{
  68. \WF[ menu, "[ENTER"] to Quit]%V2{
  69. \eb
  70.  
  71.  
  72.  
  73. \FE+%U:%V1[\bl[tcmailup]]]\dm[Starting to do Mail Upload]
  74. \bl[tcmaildn]\dm[Starting to do Mail Dnload]
  75. |tcmailup
  76. \WF[MENU]]u{
  77. \wf[B01]\ulZ[%V1]
  78. \it+[\dc-[copy %u:%v1 %U:1%V1]]
  79. \IT+[\DC-[del %U:%V1]]
  80. \eb
  81.  
  82. |tcmaildn
  83. \WF[MESSAGE MENU:]o{
  84. \to[95]\wp[4]
  85. \IF+TOMCAT MENU[D{ \pa[2] ]
  86. \IF+PROTOCOL MENU[Z{ \pa[2] ]
  87. \WF[G"]oodbye]Y{
  88. \sc[script;renfile]
  89. \dc-[copy %d:%v4 %d:1%v4]
  90. \dc-[del %d:%v4]
  91. \to[255]
  92. \wf[B00]\dlz-[%V4]
  93. \wf[TOMCAT MENU]G{\pa[5]\ab
  94. \eb
  95.  
  96. |logoff
  97. \wp[]g{atz{~~~~\ab
  98. \IF+AT MENU "[C D U H G Q [G{\gb[logoff]]
  99. \if+wish to log off "[Y/n"] [y{\eb]
  100. \If+onStop:[{\gb[logoff]]
  101. {\ld-
  102. \eb
  103.