home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / TGNET101.ZIP / NETMAIN.SCR < prev   
Text File  |  1998-07-12  |  4KB  |  156 lines
  1. ; This is the main NetApp Script. You have to edit the parts of this script
  2. ; to match your system or network. Parts that have to be editor are
  3. ; preceeded by a comment such as this.
  4.  
  5. VARIABLE C CHAR
  6. :BEGIN
  7. PUT "~SC"
  8. FILEDISPLAY NETMAIN
  9.  
  10. PUT "9H`0F~SD"
  11. PUT "9H`0F~ST"
  12.  
  13. :NETPOLICY
  14. PUT "3H`79View Network Information      "
  15. GET C "H`1EView Policy Information`00"  "AB^MQ"
  16. PUT "H`7CView Policy Information"
  17.  
  18. JE "$C$" "A" NETCHAT
  19. JE "$C$" "B" NETECHO
  20. JE "$C$" "^M" VIEWPOLICY
  21. JE "$C$" "Q" END
  22.  
  23. :NETECHO
  24. PUT "3H`79View Echomail Information      "
  25. GET C "H`1EEchomail Areas`00" "AB^MQ"
  26. PUT "H`7CEchomail Areas"
  27.  
  28. JE "$C$" "A" NETPOLICY
  29. JE "$C$" "B" NETFECHO
  30. JE "$C$" "^M" VIEWECHO
  31. JE "$C$" "Q" END
  32.  
  33. :NETFECHO
  34. PUT "3H`79File Echo Area Information   "
  35. GET C "H`1EFile Echo Area Information`00" "AB^MQ"
  36. PUT "H`7CFile Echo Area Information"
  37.  
  38. JE "$C$" "A" NETECHO
  39. JE "$C$" "B" NETDOWNL
  40. JE "$C$" "^M" VIEWANOTHER
  41. JE "$C$" "Q" END
  42.  
  43. :NETDOWNL
  44. PUT "3H`79Download Administrative Package      "
  45. GET C "7H`1EWLD0798.ZIP`00" "AB^MQ"
  46. PUT "7H`7CWLD0798.ZIP"
  47.  
  48. JE "$C$" "A" NETFECHO
  49. JE "$C$" "B" NETAPPLY
  50. JE "$C$" "^M" NETPACKAGE
  51. JE "$C$" "Q" END
  52.  
  53. :NETAPPLY
  54. PUT "3H`79Apply Online      "
  55. GET C "7H`1EApply Online`00" "AB^MQ"
  56. PUT "7H`7CApply Online"
  57.  
  58. JE "$C$" "A" NETDOWNL
  59. JE "$C$" "B" SUPPORT
  60. JE "$C$" "^M" NETONLINE
  61. JE "$C$" "Q" END
  62.  
  63. :SUPPORT
  64. PUT "3H`79Support    "
  65. GET C "7H`1ESupport`00" "AB^MQ"
  66. PUT "7H`7CSupport"
  67.  
  68. JE "$C$" "A" NETAPPLY
  69. JE "$C$" "B" SUBEMAIL
  70. JE "$C$" "^M" NETFSUP
  71. JE "$C$" "Q" END
  72.  
  73. :SUBEMAIL
  74. PUT "3H`79Msg to SysOp    "
  75. GET C "7H`1EEmail`00" "AB^MQ"
  76. PUT "7H`7CEmail"
  77.  
  78. JE "$C$" "A" support
  79. JE "$C$" "B" NETCHAT
  80. JE "$C$" "^M" SYSEMAIL
  81. JE "$C$" "Q" END
  82.  
  83. :NETCHAT
  84. PUT "3H`79Chat with SysOp about Network        "
  85. GET C "3H`1EChat`00" "AB^MQ"
  86. PUT "3H`7CChat"
  87.  
  88. JE "$C$" "A" SUBEMAIL
  89. JE "$C$" "B" NETPOLICY
  90. JE "$C$" "^M" CHAT
  91. JE "$C$" "Q" END
  92.  
  93. :VIEWPOLICY
  94. ; Change POLICY in the following to display the POLICY file your Network
  95. ; currently uses. No extension needed, just make sure tha POLICY file is one
  96. ; of the understood formats used by Telegard (.MSG, .ANS, .RIP).
  97. FILEDISPLAY POLICY
  98. JUMP BEGIN
  99.  
  100. :VIEWECHO
  101. ; Change WLDAREAS in the following to display the Echomail Area list your
  102. ; network currently uses. As above use a standard naming convention, NO
  103. ; extensions.
  104. FILEDISPLAY WLDAREAS
  105. JUMP BEGIN
  106.  
  107. :VIEWANOTHER
  108. ; Change WLDFAREA in the following to display the Fileecho Area list your
  109. ; network currently used. As above use a standard naming convention, NO
  110. ; extensions.
  111. FILEDISPLAY WLDFAREA
  112. JUMP BEGIN
  113.  
  114. :NETPACKAGE
  115. PUT "~SC"
  116. ;
  117. ; Change the following "C:\BBS\FILES\WLD0798.ZIP" to match the path and
  118. ; filename of your network information package.
  119. MENU *7D:\BBS3\GENERAL\WLD0798.ZIP
  120. PUT "~SP"
  121. JUMP BEGIN
  122.  
  123. :NETONLINE
  124. MENU -ENETAPP
  125. PUT "~SP"
  126. JUMP BEGIN
  127.  
  128. :NETFSUP
  129. ; Change SUPPORT in the following to display a file containing methods of
  130. ; support for your Network. Use Standard naming conventions, no extensions.
  131. FILEDISPLAY SUPPORT
  132. JUMP BEGIN
  133.  
  134. :SYSEMAIL
  135. PUT "~SC"
  136. ;
  137. ; Change the "@" to the group designation containing your Email or Private
  138. ; message area. If you're not using groups you may comment out this line
  139. ; by placing a ";" before the line (without the quotes).
  140. MENU OR@
  141. ;
  142. ; Change "Jeff Weese" to your name or handle or the person to send a message
  143. ; to about the network.
  144. MENU MEJeff Weese
  145. JUMP BEGIN
  146.  
  147. :CHAT
  148. PUT "~SC"
  149. MENU OC
  150. PUT "~SP"
  151. JUMP BEGIN
  152.  
  153. :END
  154. PUT "~SC"
  155. ENDSCRIPT
  156.