home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / PUBE / MNEWS1 / NEWS.BAT < prev    next >
Encoding:
DOS Batch File  |  1993-03-01  |  8.1 KB  |  355 lines
  1.  
  2. ECHO OFF
  3.  
  4. REM  This is the Main Bat file for ModemNews Magazine
  5. cls
  6.  type pre.scr
  7.  pause
  8.  type cover15.scr
  9.  pause
  10.  
  11. REM This is the body of the file;
  12.  
  13. :again
  14. cls
  15. type pageone.scr
  16.  
  17.         response QVSBHREFANWI
  18.         
  19.         if errorlevel 12 goto instant
  20.         if errorlevel 11 goto weekly
  21.         if errorlevel 10 goto mninfo
  22.         if errorlevel  9 goto ann
  23.         if errorlevel  8 goto fillers
  24.         if errorlevel  7 goto edit
  25.         if errorlevel  6 goto recipes
  26.         if errorlevel  5 goto humor
  27.         if errorlevel  4 goto bbs
  28.         if errorlevel  3 goto software
  29.         if errorlevel  2 goto news
  30.         if errorlevel  1 goto quit
  31.  
  32. -------------------------------------------------
  33.  
  34. :weekly
  35. type weekly.scr
  36.  
  37.         response ABCRQ
  38.         if errorlevel 5 goto quit
  39.         if errorlevel 4 goto again
  40.         if errorlevel 3 goto weekc
  41.         if errorlevel 2 goto weekb
  42.         if errorlevel 1 goto weeka
  43.  
  44.                 :weekc
  45.                 mnewjosh.com
  46.                 goto weekly
  47.  
  48.                 :weekb
  49.                 mnewps01.com
  50.                 goto weekly
  51.                 
  52.                 :weeka
  53.                 mnewrr01.com
  54.                 goto weekly
  55.  
  56. -------------------------------------------------
  57. :mninfo
  58. more <bbslist.txt
  59. pause
  60. type join.scr
  61. pause
  62. type dead.scr
  63. pause
  64. goto again
  65. -------------------------------------------------
  66. :ann
  67. 12step.com
  68. type contrib.scr
  69. pause
  70. type ad.txt
  71. pause
  72. type Meadwood.txt
  73. pause
  74. type tools.scr
  75. pause
  76. type contest.scr
  77. pause
  78. goto again
  79. ------------------------------------------------
  80. :fillers
  81. type fillers.scr
  82.         response abcderq
  83.         if errorlevel 7 goto quit
  84.         if errorlevel 6 goto again
  85.         if errorlevel 5 goto fille
  86.         if errorlevel 4 goto filld
  87.         if errorlevel 3 goto fillc
  88.         if errorlevel 2 goto fillb
  89.         if errorlevel 1 goto filla
  90.  
  91.                 :fille
  92.                 cls
  93.                 mnewcow1.com
  94.                 goto fillers
  95.  
  96.                 :filld
  97.                 cls
  98.                 mnewibmc.com
  99.                 goto fillers
  100.  
  101.                 :fillc
  102.                 cls
  103.                 mnewengl.com
  104.                 goto fillers
  105.  
  106.                 :fillb
  107.                 cls
  108.                 catchpro.com
  109.                 goto fillers
  110.  
  111.                 :filla
  112.                 cls
  113.                 mnewbk15.com
  114.                 goto fillers
  115.  
  116. ------------------------------------------------
  117.  
  118. :edit
  119. type editors.scr
  120.         response abrq
  121.         if errorlevel 4 goto quit
  122.         if errorlevel 3 goto again
  123.         if errorlevel 2 goto reply
  124.         if errorlevel 1 goto editor
  125.         
  126.                 :reply
  127.                 cls
  128.                 mnewrp15.com
  129.                 goto edit
  130.                 
  131.                 :editor
  132.                 cls
  133.                 mnewed15.com
  134.                 goto edit
  135.  
  136. ------------------------------------------------
  137.  
  138. :recipes
  139. cls
  140. type recipes.scr
  141.         response ABCDRQ
  142.  
  143.         if errorlevel 6 goto quit
  144.         if errorlevel 5 goto again
  145.         if errorlevel 4 goto 4
  146.         if errorlevel 3 goto 3
  147.         if errorlevel 2 goto 2
  148.         if errorlevel 1 goto 1
  149.  
  150.                  :4
  151.                  type salad.scr
  152.                  pause
  153.                  type bcheese.scr
  154.                  pause
  155.                  goto recipes
  156.  
  157.                  :3
  158.                  type taters.scr
  159.                  pause
  160.                  goto recipes
  161.                  
  162.                  :2
  163.                  type husband.scr
  164.                  pause
  165.                  goto recipes
  166.                  
  167.                  :1
  168.                  type cran.scr
  169.                  pause
  170.                  goto recipes
  171.  
  172. ------------------------------------------------
  173.  
  174. :humor
  175. type humor.scr
  176.         response ABCRQ
  177.  
  178.         if errorlevel 5 goto quit
  179.         if errorlevel 4 goto again
  180.         if errorlevel 3 goto humorc
  181.         if errorlevel 2 goto humorb
  182.         if errorlevel 1 goto humora
  183.  
  184.                 :humora
  185.                 cls
  186.                 mnewze15.com
  187.                 goto humor
  188.  
  189.                 :humorb
  190.                 cls
  191.                 mnewjj01.com
  192.                 goto humor
  193.                 
  194.                 :humorc
  195.                 mnewew15.com
  196.                 goto humor
  197.                 
  198. ------------------------------------------------
  199.  
  200. :bbs
  201. type bbsmenu.scr
  202.         response ABCDEFGHIJRQ
  203.         if errorlevel 12 goto quit
  204.         if errorlevel 11 goto again
  205.         if errorlevel 10 goto bbsj
  206.         if errorlevel 9  goto bbsi   
  207.         if errorlevel 8  goto bbsh
  208.         if errorlevel 7  goto bbsg
  209.         if errorlevel 6  goto bbsf
  210.         if errorlevel 5  goto bbse
  211.         if errorlevel 4  goto bbsd
  212.         if errorlevel 3  goto bbsc
  213.         if errorlevel 2  goto bbsb
  214.         if errorlevel 1  goto bbsa
  215.  
  216.                 :bbsa
  217.                 type american.15
  218.                 pause
  219.                 goto bbs
  220.  
  221.                 :bbsb
  222.                 type connect.15
  223.                 pause
  224.                 goto bbs
  225.  
  226.                 :bbsc
  227.                 type emerson.15
  228.                 pause
  229.                 goto bbs
  230.                 
  231.                 :bbsd
  232.                 type hdcpromo.15
  233.                 pause
  234.                 goto bbs
  235.                 
  236.                 :bbse
  237.                 type Horse.15
  238.                 pause
  239.                 goto bbs
  240.                 
  241.                 :bbsf
  242.                 type rock.15
  243.                 pause
  244.                 goto bbs
  245.                 
  246.                 :bbsg
  247.                 type nitelog.15
  248.                 pause
  249.                 goto bbs
  250.                 
  251.                 :bbsh
  252.                 type power.15
  253.                 pause
  254.                 goto bbs
  255.                 
  256.                 :bbsi
  257.                 type rosen.15
  258.                 pause
  259.                 goto bbs
  260.                 
  261.                 :bbsj
  262.                 type shadow.15
  263.                 pause
  264.                 goto bbs
  265.                 
  266.                 
  267. ------------------------------------------------
  268.  
  269. :software
  270. type reviews.scr
  271.         response ABCDEFGHRQ
  272.         if errorlevel 10 goto quit
  273.         if errorlevel 9 goto again
  274.         if errorlevel 8 goto revh
  275.         if errorlevel 7 goto revg
  276.         if errorlevel 6 goto revf
  277.         if errorlevel 5 goto reve
  278.         if errorlevel 4 goto revd
  279.         if errorlevel 3 goto revc  
  280.         if errorlevel 2 goto revb
  281.         if errorlevel 1 goto reva 
  282.         
  283.                 :reva
  284.                 avgz12.com
  285.                 cls
  286.                 goto software 
  287.                 
  288.                 :revb
  289.                 copycon.com
  290.                 cls
  291.                 goto software 
  292.                 
  293.                 :revc 
  294.                 kdg21.com   
  295.                 cls
  296.                 goto software 
  297.                 
  298.                 :revd   
  299.                 lm4.com
  300.                 cls
  301.                 goto software 
  302.                 
  303.                 :reve
  304.                 puff307.com
  305.                 cls
  306.                 goto software 
  307.                 
  308.                 :revf 
  309.                 pdslo2.com  
  310.                 cls
  311.                 goto software 
  312.                 
  313.                 :revg
  314.                 cachstat.com
  315.                 cls
  316.                 goto software
  317.  
  318.                 :revh
  319.                 alarm410.com
  320.                 cls
  321.                 goto software
  322.  
  323. ------------------------------------------------
  324.  
  325. :news
  326. type news.scr
  327.         response ABCRQ
  328.         if errorlevel 5 goto quit
  329.         if errorlevel 4 goto again
  330.         if errorlevel 3 goto newsc
  331.         if errorlevel 2 goto newsb 
  332.         if errorlevel 1 goto newsa
  333.                 
  334.         :newsa
  335.         mnewviru.com
  336.         goto news
  337.         
  338.         :newsb
  339.         mnewrite.com
  340.         goto news               
  341.                                 
  342.         :newsc
  343.         mnewbbss.com
  344.         goto news
  345.  
  346. ------------------------------------------------
  347. :quit
  348.  type mnewyupy.scr
  349.  pause
  350. rem type online.scr
  351. rem pause
  352. :instant
  353. rem type end.scr
  354. 
  355.