home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR25 / SPELL.ZIP / SPELL.BAT < prev    next >
DOS Batch File  |  1993-06-26  |  3KB  |  113 lines
  1. @echo off
  2. :paymenu
  3. do menu SNI Payware Menu; Run Spellmaster; Run Tablesmaster; SNI Menu; Sponsor; Prices; Manual; Exit to DOS
  4. if errorlevel 7 goto end
  5. if errorlevel 6 goto manual
  6. if errorlevel 5 goto price
  7. if errorlevel 4 goto sponsor
  8. if errorlevel 3 goto start
  9. if errorlevel 2 goto RunTable
  10. if errorlevel 1 goto RunSpell
  11. goto paymenu
  12. :RunSpell
  13. SM3
  14. goto paymenu
  15. :RunTable
  16. TM11
  17. goto paymenu
  18. :start
  19. Do view SNIIntro.txt
  20. :main
  21. do menu Share Net International; View Documents; Print Documents; Copy to floppy; Return to previous menu
  22. if errorlevel 4 goto paymenu
  23. if errorlevel 3 goto copy
  24. if errorlevel 2 goto print
  25. if errorlevel 1 goto View
  26. :Copy
  27. do menu Copy to Floppy; Copy to drive A; Copy to drive B; Return to previous menu
  28. if errorlevel 3 goto main
  29. if errorlevel 2 goto Copy_B
  30. if errorlevel 1 goto Copy_A
  31. goto copy
  32. :Copy_A
  33. copy pkunzip.exe A:/v
  34. copy do.exe A:/v
  35. copy install.bat A:/v
  36. copy sponsor.txt A:/v
  37. copy spell.zip A:/v
  38. goto copy
  39. :Copy_B
  40. copy pkunzip.exe B:/v
  41. copy do.exe B:/v
  42. copy install.bat B:/v
  43. copy sponsor.txt B:/v
  44. copy spell.zip B:/v
  45. goto copy
  46. :View
  47. do menu View Documents; Club Members Guide; Authors Guide; Club Contract; Authors Contract; Quality; Return to previous menu
  48. if errorlevel 6 goto main
  49. if errorlevel 5 goto ViewQuality
  50. if errorlevel 4 goto ViewAuCt
  51. if errorlevel 3 goto ViewClCt
  52. if errorlevel 2 goto ViewAuth
  53. if errorlevel 1 goto ViewClub
  54. goto view
  55. :ViewQuality
  56. do view Quality.txt
  57. goto view
  58. :ViewAuCt
  59. do view authcont.txt
  60. goto view
  61. :ViewClCt
  62. do view cmembreg.txt
  63. goto view
  64. :ViewAuth
  65. do view amembinf.txt
  66. goto view
  67. :ViewClub
  68. do view cmembinf.txt
  69. goto view
  70. :print
  71. do menu Print Documents; Club Members Guide; Authors Guide; Club Contract; Authors Contract; Quality; Return to previous menu
  72. if errorlevel 6 goto main
  73. if errorlevel 5 goto PrintQuality
  74. if errorlevel 4 goto PrintAuCt
  75. if errorlevel 3 goto PrintClCt
  76. if errorlevel 2 goto PrintAuth
  77. if errorlevel 1 goto PrintClub
  78. goto print
  79. :PrintQuality
  80. Copy Quality.txt lpt1:
  81. goto print
  82. :PrintAuCt
  83. Copy AuthCont.txt lpt1:
  84. goto print
  85. :PrintClCt
  86. Copy CMembReg.txt lpt1:
  87. goto print
  88. :PrintAuth
  89. Copy amembinf.txt lpt1:
  90. goto print
  91. :PrintClub
  92. Copy cmembinf.txt lpt1:
  93. goto print
  94. :sponsor
  95. do view sponsor.txt
  96. goto paymenu
  97. :price
  98. do view price.txt
  99. goto paymenu
  100. :manual
  101. do menu Spellmaster Manual; View manual; Print manual; Return to previous menu
  102. if errorlevel 3 goto Paymenu
  103. if errorlevel 2 goto PrintMan
  104. if errorlevel 1 goto ViewMan
  105. goto manual
  106. :ViewMan
  107. do view manual.doc
  108. goto manual
  109. :PrintMan
  110. Copy manual.doc lpt1:
  111. goto manual
  112. :end
  113.