home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / mnews7.zip / NEWS.BAT < prev    next >
DOS Batch File  |  1989-06-27  |  6KB  |  346 lines
  1.  
  2. ECHO OFF
  3.  
  4. REM  This is the Main Bat file for ModemNews Magazine
  5. REM  Place the cover screens here;
  6.  
  7.  type cover1.scr
  8.  ticker
  9.  mnewinst.com
  10.  
  11. REM  This is the body of the file;
  12.  
  13. :again
  14. cls
  15. type pageone.scr
  16.  
  17.     response QNSBHRPEFAMCW
  18.     
  19.     if errorlevel 13 goto weekly
  20.     if errorlevel 12 goto letters
  21.     if errorlevel 11 goto mninfo
  22.     if errorlevel 10 goto ann
  23.     if errorlevel  9 goto fillers
  24.     if errorlevel  8 goto edit
  25.     if errorlevel  7 goto personals
  26.     if errorlevel  6 goto recipes
  27.     if errorlevel  5 goto humor
  28.     if errorlevel  4 goto bbs
  29.     if errorlevel  3 goto software
  30.     if errorlevel  2 goto news
  31.     if errorlevel  1 goto quit
  32.     
  33. -------------------------------------------------
  34.     
  35. :weekly
  36. type weekly.scr
  37.  
  38.     response QUDSA
  39.     
  40.     if errorlevel 5 goto modems
  41.     if errorlevel 4 goto cyc7   
  42.     if errorlevel 3 goto dear 
  43.     if errorlevel 2 goto unix
  44.     if errorlevel 1 goto again
  45.     
  46.                 :modems 
  47.                 mnewmod2.com
  48.                 goto weekly
  49.         
  50.         :cyc7 
  51.         mnewcyc7.com
  52.         goto weekly
  53.             
  54.         :dear
  55.         mnewpat7.com
  56.         goto weekly
  57.         
  58.         :unix
  59.         mnewuni7.com
  60.         goto weekly
  61.                 
  62. -------------------------------------------------
  63.         
  64. :letters
  65. letters.com
  66. goto again
  67.  
  68. -------------------------------------------------
  69.  
  70. :mninfo
  71. bbslist.com
  72. type winner.scr
  73. ticker
  74. type tools.scr
  75. ticker
  76. type dead.scr
  77. pause
  78. goto again
  79.  
  80. -------------------------------------------------
  81.  
  82. :ann
  83. type contrib.scr
  84. ticker
  85. type ventel.ad
  86. pause
  87. type contest.scr
  88. ticker
  89. goto again
  90.  
  91. ------------------------------------------------
  92.  
  93. :fillers
  94. type filler.scr
  95.     response HVAQMT
  96.     if errorlevel 6 goto topic
  97.     if errorlevel 5 goto grote
  98.     if errorlevel 4 goto again
  99.     if errorlevel 3 goto story
  100.         if errorlevel 2 goto visit
  101.     if errorlevel 1 goto how  
  102.     
  103.         :topic
  104.         cls
  105.         mnewlib7.com
  106.         goto fillers
  107.  
  108.         :grote
  109.         cls
  110.         mnewgro2.com
  111.         goto fillers
  112.             
  113.         :story
  114.         cls
  115.         mnewsto7.com
  116.         goto fillers
  117.         
  118.         :visit 
  119.         cls
  120.         mnewfear.com
  121.         goto fillers
  122.         
  123.         :how
  124.         cls
  125.         mnewbutz.com
  126.         goto fillers
  127.         
  128.         
  129.         
  130. ------------------------------------------------        
  131.  
  132. :edit
  133. type editors.scr
  134.     response FRQ
  135.     if errorlevel 3 goto again
  136.     if errorlevel 2 goto reply
  137.     if errorlevel 1 goto editor
  138.     
  139.         :reply
  140.         cls
  141.         mnewlet7.com
  142.         goto edit
  143.         
  144.         :editor
  145.         cls
  146.         mnewedi7.com
  147.                 goto edit
  148.                 
  149.  
  150. ------------------------------------------------
  151.  
  152. :personals
  153.  
  154. ------------------------------------------------
  155.  
  156. :recipes
  157. cls
  158. type recipes.scr
  159. pause
  160. mnewrec7.com
  161. goto again
  162.  
  163. ------------------------------------------------
  164.  
  165. :humor
  166. type humor.scr
  167.     response SJOWQ
  168.     
  169.     if errorlevel 5 goto again
  170.     if errorlevel 4 goto whos
  171.     if errorlevel 3 goto bike 
  172.     if errorlevel 2 goto joke
  173.     if errorlevel 1 goto zerro
  174.     
  175.         :zerro
  176.         cls
  177.         mnewzer7.com
  178.         goto humor
  179.     
  180.         :joke 
  181.         cls
  182.         mnewjok7.com
  183.         goto humor
  184.         
  185.         :bike
  186.         cls
  187.         mnewbik7.com
  188.         goto humor
  189.         
  190.         :whos 
  191.         mnewwhos.com
  192.         cls
  193.         goto humor
  194.         
  195.                 
  196. ------------------------------------------------        
  197.  
  198. :bbs
  199. type bbsmenu.scr
  200.     response 12345678Q
  201.     
  202.     if errorlevel 9 goto again
  203.     if errorlevel 8 goto Online
  204.     if errorlevel 7 goto Infosys
  205.     if errorlevel 6 goto hdc
  206.     if errorlevel 5 goto dsr
  207.     if errorlevel 4 goto buysell
  208.     if errorlevel 3 goto bandit
  209.     if errorlevel 2 goto azpark
  210.     if errorlevel 1 goto azcenter
  211.     
  212.         :azcenter
  213.                 type azcenter.bbs
  214.                 pause
  215.                 goto bbs
  216.                 
  217.         :azpark
  218.         type azpark.bbs
  219.         pause
  220.         goto bbs
  221.         
  222.         :bandit
  223.         type bandit.bbs
  224.         pause
  225.         goto bbs
  226.         
  227.         :buysell
  228.         type buysell.bbs
  229.         pause
  230.         goto bbs
  231.         
  232.         :infosys
  233.         type infosys.bbs
  234.         pause
  235.         goto bbs
  236.         
  237.         :hdc
  238.         type hdcpromo.bbs
  239.         pause
  240.         goto bbs
  241.         
  242.         :dsr
  243.         type dsr.bbs
  244.         pause
  245.         goto bbs
  246.         
  247.         :online
  248.         type online.bbs
  249.         pause
  250.         goto bbs
  251.         
  252.  
  253. ------------------------------------------------
  254.  
  255. :software
  256. cls
  257. type reviews.scr
  258.     response ABCDEFR
  259.     
  260.     if errorlevel 7 goto again
  261.     if errorlevel 6 goto zeno21
  262.     if errorlevel 5 goto v2ega4
  263.     if errorlevel 4 goto monymate
  264.     if errorlevel 3 goto commo301
  265.     if errorlevel 2 goto clear2  
  266.     if errorlevel 1 goto 4prnt220
  267.     
  268.         :zeno21
  269.         zeno21.com
  270.         cls
  271.         goto software
  272.         
  273.         :v2ega4
  274.         v2ega4.com
  275.         cls
  276.         goto software
  277.         
  278.         :monymate
  279.         monymate.com
  280.         cls
  281.         goto software
  282.         
  283.         :commo301
  284.         commo301.com
  285.         cls
  286.         goto software
  287.         
  288.         :clear2
  289.         clear2.com
  290.         cls
  291.         goto software
  292.         
  293.         :4prnt220
  294.         4prnt220.com
  295.         cls
  296.         goto software
  297.         
  298. ------------------------------------------------
  299.  
  300. :news
  301. type news.scr
  302.     response QPBS
  303.     
  304.     if errorlevel 4 goto green
  305.     if errorlevel 3 goto move 
  306.     if errorlevel 2 goto poll 
  307.     if errorlevel 1 goto again
  308.     
  309.         :move
  310.         mnewmove.com
  311.         goto news
  312.         
  313.         :poll
  314.         mnewpol7.com
  315.         goto news
  316.         
  317.             :green
  318.         mnewgrpc.com
  319.         goto news
  320.         
  321. ------------------------------------------------
  322.  
  323. :quit
  324.  type dead.scr
  325.  ticker
  326.  type online.bbs
  327.  ticker
  328.  bbslist.com
  329. cls
  330. ECHO **************************************************************
  331. ECHO * " Thank you for reading this issue of ModemNews Magazine " *
  332. ECHO *                                                            *
  333. ECHO *                     Jeff Green, Editor                     *
  334. ECHO *                                                            *
  335. ECHO **************************************************************
  336. ECHO *                                                            * 
  337. ECHO *     Have you sent us YOUR submission for these pages ?     *
  338. ECHO *                      ----                                  *
  339. ECHO **************************************************************
  340. ECHO *                                                            *
  341. ECHO *                 ModemNews Central Library                  *
  342. ECHO *                                                            *
  343. ECHO *                       516 679-0674                         *       
  344. ECHO ************************************************************** 
  345. 
  346.