home *** CD-ROM | disk | FTP | other *** search
/ Shareware Gold 1 / The_Golden_ROM_Series_-_Shareware_Gold_Volume_1_Number_11_-_SK_89-301_-_1989.iso / LIB041 / WORKUTIL.BAT < prev   
DOS Batch File  |  1988-11-12  |  5KB  |  156 lines
  1. echo .
  2. getyn Do you use Windows, DesqView, or other program using a PIF file ?
  3. if errorlevel 1 copy ed.pif %t%ed.pif
  4. getyn ε %t%menuprt.exe
  5. if not errorlevel 1 goto ne
  6. getyn Your file MENUPRT.EXE is obsolete; delete it?  Press Y if unsure.
  7. if errorlevel 1 del %t%menuprt.exe
  8. :ne
  9. getyn Do you want to copy the 3 printer test files?  Press Y if unsure.
  10. if not errorlevel 1 goto pt
  11. copy justify.tst %t%justify.tst
  12. copy chars.tst %t%chars.tst
  13. copy print.tst %t%print.tst
  14. :pt
  15. echo .
  16. getyn Do you want to create the Print Control File?  Press Y if unsure.
  17. if not errorlevel 1 goto ms
  18. getyn Do you have a laser printer?  Press N if unsure.
  19. if errorlevel 1 goto ls
  20. getyn Do you have an HP DeskJet with soft fonts?
  21. if errorlevel 1 copy deskdown.bat %t%deskdown.bat
  22. menuprt1 %t%pr.def
  23. if errorlevel 1 menuprt2 // %t%pr.def
  24. goto pd
  25. :ls
  26. if %h%==0 goto ph
  27. if not %w%==2 goto ph
  28. echo The PC-Write program, help file, and laser printer files won't fit
  29. getyn on one diskette. Insert your Extra disk in drive %t%, press Y.
  30. if not errorlevel 1 goto ey
  31. :ph
  32. getyn Do you have an HP LaserJet (or compatible) with soft fonts?
  33. if not errorlevel 1 goto hq
  34. copy hpdown.bat %t%hpdown.bat
  35. echo (you may want to get the PC-Write Font Selector Program.)
  36. :hq
  37. getyn Do you have a Quadram QuadLaser with soft fonts ?
  38. if errorlevel 1 copy quaddown.bat %t%quaddown.bat
  39. getyn Do you have any printer using Adobe PostScript?
  40. if not errorlevel 1 goto cm
  41. copy psdown.ini %t%pr.ini
  42. copy psdown.fin %t%pr.fin
  43. :cm
  44. menulaz %t%pr.def
  45. :pd
  46. if %m%==n goto ms
  47. echo  .X:10 >> %t%pr.def
  48. echo  .XT:6 >> %t%pr.def
  49. echo  .XB:6 >> %t%pr.def
  50. rem getyn Do you want the Pound sign "£" to print using code 35 ('#')?
  51. rem if errorlevel 1 echo $156=35 >> %t%pr.def
  52. :ms
  53. echo .
  54. getyn Do you want to use your "mouse" with PC-Write? Press N if unsure.
  55. if not errorlevel 1 goto nm
  56. echo The mouse files will be copied, but consult the User's
  57. echo Guide or Quick Guide for complete setup instructions.
  58. getyn Do you have a Mouse Systems mouse?
  59. if not errorlevel 1 goto m1
  60. copy msysmice.msc %t%msysmice.msc
  61. copy msysmice.com %t%msysmice.com
  62. :m1
  63. getyn Do you have a LogiTech mouse?
  64. if not errorlevel 1 goto m2
  65. copy logimice.def %t%logimice.def
  66. copy logimice.mnu %t%logimice.mnu
  67. :m2
  68. getyn Do you have a Microsoft mouse?
  69. if not errorlevel 1 goto m3
  70. copy micsmice.def %t%micsmice.def
  71. copy micsmice.com %t%micsmice.com
  72. copy micsmice.mnu %t%micsmice.mnu
  73. echo &J:8 >> %t%ed.def
  74. :m3
  75. :nm
  76. if %b%==0 goto un
  77. getyn Insert blank disk for Utility Disk backup in drive %d%,  press Y.
  78. if not errorlevel 1 goto un
  79. echo on
  80. copy *.* %d%
  81. echo off
  82. :un
  83. :rc
  84. if exist words.mas goto cr
  85. getyn Do you have a copy of the PC-Write Reference diskette?
  86. if errorlevel 1 goto cu
  87. echo Without a reference diskette, you cannot check spelling,
  88. echo or print (or type )the on-disk Tutorial or Quick Guide.
  89. echo However, you can do normal editing, and basic printing.
  90. goto ey
  91. :cu
  92. getyn Insert PC-Write Reference diskette in default drive, press Y.
  93. if not errorlevel 1 goto ey
  94. goto rc
  95. :cr
  96. echo .
  97. if not %b%==3 goto rn
  98. getyn Insert blank disk for Reference Disk backup in drive %d%, press Y.
  99. if not errorlevel 1 goto rn
  100. echo on
  101. copy *.* %d%
  102. echo off
  103. :rn
  104. echo The master word list is a large (110 KB) file used to check spelling.
  105. echo Your computer must have at least 448 KB to use this master word list.
  106. getyn Do you want this word list?  Press Y if unsure.
  107. if not errorlevel 1 goto ns
  108. if not %w%==2 goto bd
  109. echo The PC-Write program and word list file won't fit on
  110. getyn one diskette. Insert your Extra disk in drive %t%, press Y.
  111. if not errorlevel 1 goto ey
  112. :bd
  113. copy words.mas %t%words.mas
  114. :ns
  115. echo .
  116. echo Smaller help files for beginners and advanced users are available.
  117. getyn Do you want either of these two help files?  Press N if unsure.
  118. if not errorlevel 1 goto mh
  119. if %h%==0 goto nh
  120. echo You asked for the main help file earlier. If you get a small help
  121. getyn file, this main help won't be available. Is this ok?
  122. if not errorlevel 1 goto mh
  123. :nh
  124. if %w%==2 getyn Insert your Work Disk in drive %t%, press Y.
  125. if not errorlevel 1 goto ey
  126. getyn Press Y to get beginner's help, or N to get advanced help
  127. if     errorlevel 1 copy edbegin.hlp %t%ed.hlp
  128. if not errorlevel 1 copy edquick.hlp %t%ed.hlp
  129. :mh
  130. echo After you type and/or print the Tutorial and Quick Guide,
  131. echo remove the PC-Write Reference disk from the default drive.
  132. echo Then place all original and backup diskettes in a safe place.
  133. echo .
  134. if not %w%==0 echo Insert your new Work Disk in the default drive.
  135. echo .
  136. echo PC-Write Work Disk Is Now Ready
  137. echo .
  138. set b=
  139. set d=
  140. set h=
  141. set m=
  142. set t=
  143. set w=
  144. getyn Do you want to type or print the Tutorial and Quick Guide?
  145. if not errorlevel 1 goto ey
  146. echo Note: Press Ctl-C at any time to stop typing or printing.
  147. getyn Do you want to see them on your screen?
  148. if not errorlevel 1 goto ty
  149. typeman
  150. :ty
  151. getyn Do you want to print the Tutorial and Quick Guide?
  152. if not errorlevel 1 goto ey
  153. getyn Is your printer ready, with 95 pages of paper?
  154. printman
  155. :ey
  156.