** Install script for Timeworks DTP, dual floppies or hard disk.

** Make sure that the installation disk is in drive A:

if ! fe a:\install.prg
   re
      [[Insert MASTER DISK 1|
      into drive A:][  OK  ]
   un fe a:\install.prg
fi

** Create boot/progdisk

**     first for dual floppy system...

if dfs or dfd
   [[Insert your disk labelled|
   STARTUP DISK into drive B:][  OK  ]
   md b:\auto
   de b:\auto\
   cp a:\ahdi.prg
   cp a:\gdos.prg
   de b:\
   cp a:\fontwid.prg
   cp a:\publish.prg
   cp a:\publish.rsc
   cp a:\publish.slv
   ** Add initial stuff to assign.sys
   as path = b:\gemsys
fi

** now create hard disk dtp folder, and temp auto folder

if dhd
   md c:\publish
   md c:\publish\auto
   de c:\publish\auto\
   cp a:\ahdi.prg
   cp a:\gdos.prg
   de c:\publish\
   cp a:\fontwid.prg
   cp a:\publish.prg
   cp a:\publish.slv
   ** Add initial stuff to assign.sys
   as path = c:\publish\gemsys
fi


** More for assign.sys
as 01p screen.sys ; DEFAULT

** Create overlay/slaving disk for floppy sytem

if dfs
   [[Insert your disk labelled|
   OVERLAYS DISK into drive B:][  OK  ]
fi

** These copies are common to all setups - destination for copies has been
** set up above according to hardware configuration

cp a:\publish.rsc
cp a:\pub_fr.ovl
cp a:\pub_tx.ovl
cp a:\pub_it.ovl
cp a:\pub_ig.ovl
cp a:\pub_ie.ovl

** Program and floppy boot disk have now been done

********** MASTER DISK 2 IS ABOUT TO BE PUT INTO DRIVE A !!!!!!!!


re
   [[Insert MASTER DISK 2|
   into drive A:][  OK  ]
un fe a:\epson_fx.sys

** Copy help text files

cp a:\pub_docs.hlp
cp a:\pub_draw.hlp
cp a:\pub_fram.hlp
cp a:\pub_kybd.hlp
cp a:\pub_page.hlp
cp a:\pub_para.hlp
cp a:\pub_pict.hlp
cp a:\pub_styl.hlp
cp a:\pub_text.hlp

** Copy default style sheet

cp a:\default.sty

** Create data disk, or copy data to hard disk

if dhd
   cp a:\publish.hyp
   md c:\publish\dtp
   md c:\publish\pictures
   md c:\publish\stories
   de c:\publish\dtp\
fi

** ... for floppy systems use drive B:

if dfs
   [[Insert your disk labelled|
   STARTUP DISK into drive B:][  OK  ]
fi
if ! dhd
   cp a:\publish.hyp
   [[Insert your disk labelled|
   DATA DISK into drive B:][  OK  ]
   md b:\dtp
   md b:\pictures
   md b:\stories
   de b:\dtp\
fi

** copy example DTP files

cp a:\publish.dtp
cp a:\testcard.dtp

** copy example stories

if dhd
   de c:\publish\stories\
fi
if ! dhd
   de b:\stories\
fi

cp a:\example.doc

** copy example pictures

if dhd
   de c:\publish\pictures\
fi
if ! dhd
   de b:\pictures\
fi

cp a:\pc.gem
cp a:\house.gem
cp a:\monalisa.img
cp a:\tiger.img

** Example files copied, now set up fonts & printer driver

if dhd
   md c:\publish\gemsys
   de c:\publish\gemsys\
fi

if ! dhd
   [[Insert your disk labelled|
   FONTS DISK into drive B:][  OK  ]
   md b:\gemsys
   de b:\gemsys\
fi

** Copy printer driver to destination already set up

if pdslm
   cp a:\atari_lp.sys printer.sys
   as ;Printer is Atari laser
fi
if pdlq
   cp a:\epson_lq.sys printer.sys
   as ;Printer is 24-pin Epson (LQ800)
fi
if pdfx
   cp a:\epson_fx.sys printer.sys
   as ;Printer is 9-pin Epson
fi
if pdgq1 or pdgq3
   ** Driver on master disk is 150dpi, but is patched up for 300dpi by install program
   pd a:\gq_3500.sys printer.sys
   if pdgq1
      as ;Printer is Epson GQ3500 @150dpi
   fi
   if pdgq3
      as ;Printer is Epson GQ3500 @300dpi
   fi
fi
if pdhp1 or pdhp3
   ** Driver on master disk is 150dpi, but is patched up for 300dpi by install program
   pd a:\hp_ljet.sys printer.sys
   if pdhp1
      as ;Printer is HP Laserjet Plus @150dpi
   fi
   if pdhp3
      as ;Printer is HP Laserjet 2 @300dpi
   fi
fi
if pdpost
   cp a:\pscript.sys printer.sys
   as ;Printer is postscript 300dpi
fi
** End of printer driver bit

** Now install the fonts

re
   [[Insert MASTER DISK 3|
   into drive A:][  OK  ]
un fe a:\epdb07.fnt

** Do the screen fonts first
** ... for monochrome (EGAish)

if scmo
   ca a:\shss03un.fnt
   ca a:\shss05un.fnt
   ca a:\shss06un.fnt
   ca a:\shss07un.fnt
   ca a:\shss10un.fnt
   ca a:\shss12un.fnt
   ca a:\shss14un.fnt
   ca a:\shss18un.fnt
   ** Only allow 24 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\shss24un.fnt
         ca a:\shss36un.fnt
      fi
   fi
   ca a:\shtr07un.fnt
   ca a:\shtr10un.fnt
   ca a:\shtr14un.fnt
   ca a:\shtr18un.fnt
   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\shtr36un.fnt
      fi
   fi
   ca a:\shrk10un.fnt
   ca a:\shrk18un.fnt
   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\shrk36un.fnt
      fi
   fi

   ** Don't use Drury Lane, Rockface, or Dingbats with postscript driver

   if ! pdpost
      ca a:\shdl10c.fnt
      ca a:\shdl18c.fnt
      ** Only allow 36 point if not a 520 and not single sided drives
      if ! dfs
         if ! m520
            ca a:\shdl36c.fnt
         fi
      fi
      ca a:\shdb07.fnt
      ca a:\shdb10.fnt
      ca a:\shdb14.fnt
      ca a:\shdb18.fnt
      ** Only allow 36 point if not a 520 and not single sided drives
      if ! dfs
         if ! m520
            ca a:\shdb36.fnt
         fi
      fi
   fi
fi

** now for color

if scco
   ca a:\slss03un.fnt
   ca a:\slss10un.fnt
   ca a:\slss14un.fnt
   ca a:\slss18un.fnt
   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\slss36un.fnt
      fi
   fi

   ** ... some cga fonts are on font disk 2
   re
      [[Insert MASTER DISK 4|
      into drive A:][  OK  ]
   un fe a:\sltr10un.fnt
   ca a:\sltr10un.fnt
   ca a:\sltr14un.fnt
   ca a:\sltr18un.fnt
   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\sltr36un.fnt
      fi
   fi

   if ! pdpost
      ** ... switch back to font disk 1 for CGA Drury Lane, Rockface & Drury Lane,
      ** but don't use these fonts with postscript driver

      re
         [[Insert MASTER DISK 3|
         into drive A:][  OK  ]
      un fe a:\epdb07.fnt
      ca a:\slrk10un.fnt
      ca a:\slrk18un.fnt
      ** Only allow 36 point if not a 520 and not single sided drives
      if ! dfs
         if ! m520
            ca a:\slrk36un.fnt
         fi
      fi
      ca a:\sldl10c.fnt
      ca a:\sldl18c.fnt
      ** Only allow 36 point if not a 520 and not single sided drives
      if ! dfs
         if ! m520
            ca a:\sldl36c.fnt
         fi
      fi
      ca a:\sldb10.fnt
      ca a:\sldb14.fnt
      ca a:\sldb18.fnt
      ** Only allow 36 point if not a 520 and not single sided drives
      if ! dfs
         if ! m520
            ca a:\sldb36.fnt
         fi
      fi
   fi
fi
** End of color screen fonts

** Put other screen drivers into assign.sys

as 02p screen.sys ; LOW RESOLUTION
as 03p screen.sys ; MEDIUM RESOLUTION
as 04p screen.sys ; HIGH RESOLUTION

** Put printer driver into assign.sys
as 21 printer.sys

** Copy fonts for fx80

if pdfx
   ca a:\epss07un.fnt
   ca a:\epss10un.fnt
   ca a:\epss14un.fnt
   ca a:\epss20un.fnt
   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\epss28un.fnt
         ca a:\epss36un.fnt
      fi
   fi

   ca a:\eptr07un.fnt
   ca a:\eptr10un.fnt
   ca a:\eptr14un.fnt
   ca a:\eptr20un.fnt

   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\eptr28un.fnt
         ca a:\eptr36un.fnt
      fi
   fi

   ca a:\eprk20un.fnt
   ca a:\epdl20c.fnt
   ca a:\epdb07.fnt
   ca a:\epdb10.fnt
   ca a:\epdb14.fnt
   ca a:\epdb20.fnt

   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\epdb28.fnt
         ca a:\epdb36.fnt
      fi
   fi
fi
** End of fx80 fonts

** All other fonts are on disk 4

if ! pdfx
   if ! pdpost
      re
         [[Insert MASTER DISK 4|
         into drive A:][  OK  ]
      un fe a:\sltr10un.fnt
   fi
fi

** Now do 150 dpi fonts

if pdgq1 or pdhp1
   ca a:\hpss07un.fnt 
   ca a:\hpss10un.fnt
   ca a:\hpss14un.fnt
   ca a:\hpss20un.fnt

   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\hpss28un.fnt
         ca a:\hpss36un.fnt
      fi
   fi
   ca a:\hptr07un.fnt
   ca a:\hptr10un.fnt
   ca a:\hptr14un.fnt
   ca a:\hptr20un.fnt

   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\hptr28un.fnt
         ca a:\hptr36un.fnt
      fi
   fi
   ca a:\hprk20un.fnt

   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\hprk36un.fnt
      fi
   fi
   ca a:\hpdl20c.fnt

   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\hpdl36c.fnt
      fi
   fi
   ca a:\hpdb07.fnt
   ca a:\hpdb10.fnt
   ca a:\hpdb14.fnt
   ca a:\hpdb20.fnt

   ** Only allow 28 & 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ca a:\hpdb28.fnt
         ca a:\hpdb36.fnt
      fi
   fi
fi
** End of 150dpi fonts


** Now do the 24-pin printer fonts (LQ800 - 180dpi), multiply point size by 5/6

if pdlq
   ct a:\hpss07un.fnt lqss06un.fnt
   ct a:\hpss10un.fnt lqss08un.fnt
   ct a:\hpss14un.fnt lqss12un.fnt
   ct a:\hpss20un.fnt lqss18un.fnt

   ** Only allow 24 & 30 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpss28un.fnt lqss24un.fnt
         ct a:\hpss36un.fnt lqss30un.fnt
      fi
   fi
   ct a:\hptr07un.fnt lqtr06un.fnt
   ct a:\hptr10un.fnt lqtr08un.fnt
   ct a:\hptr14un.fnt lqtr12un.fnt
   ct a:\hptr20un.fnt lqtr18un.fnt

   ** Only allow 24 & 30 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hptr28un.fnt lqtr24un.fnt
         ct a:\hptr36un.fnt lqtr30un.fnt
      fi
   fi
   ct a:\hprk20un.fnt lqrk18un.fnt

   ** Only allow 30 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hprk36un.fnt lqrk30un.fnt
      fi
   fi
   ct a:\hpdl20c.fnt lqdl18c.fnt

   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpdl36c.fnt lqdl30c.fnt
      fi
   fi
   ct a:\hpdb07.fnt lqdb06.fnt
   ct a:\hpdb10.fnt lqdb08.fnt
   ct a:\hpdb14.fnt lqdb12.fnt
   ct a:\hpdb20.fnt lqdb18.fnt

   ** Only allow 24 & 30 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpdb28.fnt lqdb24.fnt
         ct a:\hpdb36.fnt lqdb30.fnt
      fi
   fi
fi
** End of LQ800 fonts

** Now do the 300dpi fonts -  don't need this for postscript of course

if pdslm or pdgq3 or pdhp3
   ct a:\hpss14un.fnt lpss07un.fnt
   ct a:\hpss20un.fnt lpss10un.fnt

   ** Only allow > 10 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpss28un.fnt lpss14un.fnt
         ct a:\hpss36un.fnt lpss18un.fnt
      fi
   fi
   ct a:\hptr14un.fnt lptr07un.fnt
   ct a:\hptr20un.fnt lptr10un.fnt
   ** Only allow > 10 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hptr28un.fnt lptr14un.fnt
         ct a:\hptr36un.fnt lptr18un.fnt
      fi
   fi

   ct a:\hprk20un.fnt lprk10un.fnt
   ** Only allow > 10 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hprk36un.fnt lprk18un.fnt
      fi
   fi

   ct a:\hpdl20c.fnt lpdl10c.fnt

   ** Only allow 36 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpdl36c.fnt lpdl18c.fnt
      fi
   fi
   ct a:\hpdb14.fnt lpdb07.fnt
   ct a:\hpdb20.fnt lpdb10.fnt
   ** Only allow > 10 point if not a 520 and not single sided drives
   if ! dfs
      if ! m520
         ct a:\hpdb28.fnt lpdb14.fnt
         ct a:\hpdb36.fnt lpdb18.fnt
      fi
   fi
fi
** End of 300dpi fonts

** Only check validity of startup disk if not a hard disk system,
** because for a hard disk we will not have written anything to the
** startup disk yet.

if ! dhd
   re
fi
   [[Insert your disk labelled|
   STARTUP DISK into drive A:][  OK  ]
if ! dhd
   un fe a:\auto\gdos.prg
fi

if dhd
   ** Create hard disk boot disk

   md a:\auto
   de a:\auto\
   cp c:\publish\auto\ahdi.prg
   cp c:\publish\auto\gdos.prg
   rm c:\publish\auto\ahdi.prg
   rm c:\publish\auto\gdos.prg
   rd c:\publish\auto\
fi

** Now write the assign.sys

wa a:\assign.sys

** Finished!

if ! dhd
   [[End of Installation. Click on|
   OK and your ST will restart.|
   You must then double-click on|
   FONTWID.PRG which is on your|
   STARTUP DISK in drive A:][  OK  ]
fi
if dhd
   [[End of Installation. Click on|
   OK and your ST will restart.|
   You must then double-click on|
   FONTWID.PRG in the PUBLISH|
   folder on your hard disk][  OK  ]
fi

** Finally reboot the system
bo

