home *** CD-ROM | disk | FTP | other *** search
/ The Education Master 1994 (4th Edition) / EDUCATIONS_MASTER_4TH_EDITION.bin / files / genelogy / fhs1 / go.bat < prev    next >
DOS Batch File  |  1993-06-26  |  2KB  |  84 lines
  1. ECHO OFF
  2. IF EXIST GO.BAT GOTO CHKOPT
  3. ECHO The FHS distribution diskette (B1) must be in the default drive.
  4. ECHO If it is in the "A" drive, then make that the default drive by
  5. ECHO entering   A:
  6. ECHO :
  7. GOTO ENDIT
  8. :CHKOPT
  9. IF %1?==? GO DISPLAY CLR INTRO COPYRITE OPTIONS
  10. IF %1==DISPLAY  GOTO DISPLAY
  11. IF %1==OPTIONS  GO DISPLAY CLR OPTIONS
  12. IF %1==CONTENTS GO VIEW CONTENTS
  13. IF %1==VERSIONS GO VIEW VERSIONS
  14. IF %1==SAMPLE   GO VIEW SAMPLE
  15. IF %1==REGISTER GO VIEW REGISTER
  16. IF %1==REGFORM  GO PRINT REGFORM
  17. IF %1==MANUAL   GO DISPLAY CLR MANUAL
  18. IF %1==VIEW     GOTO MANUAL
  19. IF %1==PRINT    GOTO MANUAL
  20. IF %1==INSTALL  INSTALL %2 %3 %4
  21. ECHO Option "%1" not recognised.
  22. PAUSE
  23. GO DISPLAY NOCLR OPTIONS
  24. :DISPLAY
  25. IF %3?==? GOTO ENDIT
  26. IF %2?==CLR? CLS
  27. IF EXIST %3.DOC TYPE %3.DOC
  28. IF %4?==? GOTO ENDIT
  29. PAUSE
  30. GO DISPLAY CLR %4 %5 %6 %7 %8 %9
  31. :MANUAL
  32. IF %2?==CONT? GOTO NOINTRO
  33. IF %1?==PRINT? GOTO PRTINTRO
  34. CLS
  35. IF NOT EXIST %2.DOC GOTO CONTDOC
  36. TYPE BROWSE.DOC
  37. PAUSE
  38. CLS
  39. GOTO CONTDOC
  40. :PRTINTRO
  41. IF %2?==MANUAL? GOTO PRTMANUL
  42. IF EXIST %2.DOC GOTO CONTDOC
  43. :PRTMANUL
  44. CLS
  45. TYPE PRINT.DOC
  46. IF %2?==? GOTO ENDIT
  47. PAUSE
  48. :CONTDOC
  49. GO %1 CONT %2 %3 %4 %5 %6 %7 %8
  50. :NOINTRO
  51. IF %3?==? GO OPTIONS
  52. IF %3?==MANUAL? GO %1 CONT SECTION1 SECTION2 SECTION3 SECTION4 SECTIONB APENDIX
  53. IF %3?==SECTIONB? GO %1 CONT SECTION5 SECTION6 SECTION7 SECTION8 %4 %5 %6
  54. IF %3?==APENDIX? GO %1 CONT APENDIXA APENDIXB APENDIXC APENDIXD APENDIX2
  55. IF %3?==APENDIX2? GO %1 CONT APENDIXE APENDIXF APENDIXG FAMPATH TOPINDEX
  56. :OKAY
  57. IF %1==VIEW GOTO DISPDOC
  58. :PRINTDOC
  59. IF NOT EXIST %3.DOC GOTO ZIPRINT
  60. ECHO Printing %3
  61. COPY %3.DOC PRN:>NUL
  62. ECHO Printing of %3 is complete
  63. GOTO NEXTDOC
  64. :ZIPRINT
  65. PKUNZIP -PB MANUAL %3.DOC
  66. GOTO NEXTDOC
  67. :DISPDOC
  68. IF EXIST %3.DOC GOTO BROWSE
  69. PKUNZIP -CM MANUAL %3.DOC
  70. GOTO NEXTDOC
  71. :BROWSE
  72. BROWSE %3.DOC
  73. :NEXTDOC
  74. IF NOT %4?==? GO %1 CONT %4 %5 %6 %7 %8 %9
  75. IF %3?==SAMPLE? GO OPTIONS
  76. IF %3?==INSTALL? GO OPTIONS
  77. IF %3?==REGFORM? GO OPTIONS
  78. IF %3?==REGISTER? GO OPTIONS
  79. IF %3?==VERSIONS? GO OPTIONS
  80. IF %3?==CHANGES? GO OPTIONS
  81. IF %3?==CONTENTS? GO OPTIONS
  82. GO MANUAL
  83. :ENDIT
  84.