*******************************************************
** Install script for Timeworks Desktop Publisher ST
** for version 1.1 (USA)
** 
** Modifications made by Mike Fulton, NEOCEPT
** for TurboJet installation, 7-29-88
*******************************************************

****************************************
** Warn user of bad printer choice

if pdfx or smm804 or pdpost or pdslm
   [[Printer choice not available |
   with the modified install|
   program.  Please use original |
   install program from the|
   Publisher ST Master Disk 1.][ Reboot ]
   bo
fi


****************************************
** Get control panel copied over

if ! fe a:\control.acc
   re
     [[Insert your ST Language|
     disk with CONTROL.ACC|
     into drive A:][  OK  ]
   un fe a:\control.acc
fi
ld a:\control.acc

if hdk
   if ! fe c:\control.acc
     de c:\
     cp control.acc
   fi
fi

if ! hdk
   [[Insert your disk labelled|
   STARTUP DISK into drive D:][  OK  ]
   de d:\
   cp control.acc
fi

*************************
** check master disk is in drive A:

if ! fe a:\master1
   re
      [[Insert MASTER DISK 1|
      into drive A:][  OK  ]
   un fe a:\master1
fi
ld a:\part1\*.*

*************************
** Create boot/progdisk for floppy system...

if ! hdk
   [[Insert your disk labelled|
   STARTUP DISK into drive D:][  OK  ]
   md d:\auto
   de d:\auto\
   cp gdos.prg
   de d:\
   cp publish.app
   cp publish.rsc
   cp publish.str
   cp publish.slv
   cp publish.hyp
   cp desktop.inf

*************************
** Add initial stuff to assign.sys

   as path = d:\gemsys

*************************
** Some files from disk 1 go on both startup & overlays...

   if ssf
      [[Insert your disk labelled|
      OVERLAYS DISK into drive D:][  OK  ]
   
      cp publish.rsc
   fi
fi

*************************
** Do hard disk installation

if hdk
   md d:\publish

   if ! autobt
      md d:\publish\auto
      de d:\publish\auto\
      cp ahdi.prg
      cp gdos.prg
   fi

   if autobt
      md c:\auto
      de c:\auto\
      cp gdos.prg
   fi

   de d:\publish\
   cp publish.app
   cp publish.slv
   cp publish.rsc
   cp publish.str
   cp publish.hyp

** Add initial stuff to assign.sys

   as path = d:\publish\gemsys

fi

** More for assign.sys

as 01p screen.sys ; DEFAULT
as 02p screen.sys ; low res



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

re
   [[Insert MASTER DISK 2|
   into drive A:][  OK  ]
un fe a:\master2
ld a:\part2\*.*


** if single-sided system, request correct destination disk in A:
** otherwise double-sided startup disk is in B: (or hard disk)

if onef

   if ssf
      [[Insert your disk labelled|
      OVERLAYS DISK into drive A:][  OK  ]
   fi

   if ! ssf
      [[Insert your disk labelled|
      STARTUP DISK into drive A:][  OK  ]
   fi
fi


** Create overlay/slaving disk for single-sided floppy system
** These copies are common to all setups - dest. has been set up above

cp pub_fr.ovl
cp pub_tx.ovl
cp pub_it.ovl
cp pub_ig.ovl
cp pub_ie.ovl


** Copy help text files

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


** Copy default style sheet

cp default.sty


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

if hdk
   md d:\publish\dtp
   md d:\publish\pictures
   md d:\publish\stories
   de d:\publish\dtp\
fi


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

if ! hdk
   [[Insert your disk labelled|
   DATA DISK into drive D:][  OK  ]
   md d:\dtp
   md d:\pictures
   md d:\stories
   de d:\dtp\
fi


** copy example DTP files

cp publish.dtp
cp testcard.dtp


** copy example stories

if hdk
   de d:\publish\stories\
fi
if ! hdk
   de d:\stories\
fi

cp example.doc
cp new.doc


** copy example pictures

if hdk
   de d:\publish\pictures\
fi
if ! hdk
   de d:\pictures\
fi

cp pc.gem
cp monalisa.img
cp tiger.img


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

if hdk
   de d:\publish\
fi

if ! hdk
   [[Insert your disk labelled|
   FONTS DISK into drive D:][  OK  ]
   de d:\
fi

cp fontwid.app

if hdk
   md d:\publish\gemsys
   de d:\publish\gemsys\
fi

if ! hdk
   md d:\gemsys
   de d:\gemsys\
fi


** Do metafile driver

cp meta.sys

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

if scmo
   as 03p screen.sys ; MEDIUM RESOLUTION
   as 04p screen.sys ; HIGH RESOLUTION
   
   re
      [[Insert MASTER DISK 4|
      into drive A:][  OK  ]
   un fe a:\master4
   ld a:\part3\*.*

   if onef
      [[Insert your disk labelled|
      FONTS DISK into drive A:][  OK  ]
   fi

** Swiss

   as ;             Swiss
   ca shss03as.fnt
   ca shss05as.fnt
   ca shss06as.fnt
   ca shss07as.fnt
   as atss08hi.fnt
   ca shss10as.fnt
   ca shss12as.fnt
   ca shss14as.fnt
   ca shss18as.fnt
   ca shss24as.fnt
   ca shss36as.fnt

** Dutch

   as ;             Dutch
   ca shtr07as.fnt
   as attr08hi.fny
   ca shtr10as.fnt
   as attr12hi.fnt
   ca shtr14as.fnt
   ca shtr18as.fnt
   as attr24hi.fnt
   ca shtr36as.fnt

** Typewriter -- just add name to assign.sys file, don't copy file

   as ;             Typewriter
   as attp10hi.fnt

** Rockface

   as ;             Rockface
   ca shrk10as.fnt
   ca shrk18as.fnt
   ca shrk36as.fnt

** Ravinia

   as ;             Ravinia
   ca shra09as.fnt
   ca shra18as.fnt
   ca shra36as.fnt

** Drury Lane

   as ;             Drury Lane
   ca shdl10c.fnt
   ca shdl18c.fnt
   ca shdl36c.fnt

** Madison

   as ;             Madison
   ca shma09as.fnt
   ca shma18as.fnt
   ca shma36as.fnt

** Dingbats

   as ;             Dingbats/Bullets
   ca shdb07.fnt
   ca shdb10.fnt
   ca shdb14.fnt
   ca shdb18.fnt
   ca shdb36.fnt
   as ;
fi


****************************************
** Color screen fonts are on disk 3

if scco
   as 03p screen.sys ; MEDIUM RESOLUTION

   re
      [[Insert MASTER DISK 3|
      into drive A:][  OK  ]
   un fe a:\master3
   ld a:\part5\*.*

   if onef
     [[Insert your disk labelled|
     FONTS DISK into drive A:][  OK  ]
   fi

** Swiss -- add names for 8, 12, 24 point to assign.sys file, but not files

   as ;             Swiss
   ca slss04as.fnt
   as atss08cg.fnt
   ca slss10as.fnt
   as opss12cg.fnt
   ca slss14as.fnt
   ca slss18as.fnt
   as atss24cg.fnt
   ca slss36as.fnt

** Dutch - add names for 8, 12, 24 point to assign.sys file, but not files

   as ;             Dutch
   as attr08cg.fnt
   ca sltr10as.fnt
   as optr12cg.fnt
   ca sltr14as.fnt
   ca sltr18as.fnt
   as attr24cg.fnt
   ca sltr36as.fnt


** Typewriter -- just add name to assign.sys file, don't copy file

   as ;             Typewriter
   as attp10cg.fnt

** Rockface

   as ;             Rockface
   ca slrk10as.fnt
   ca slrk18as.fnt
   ca slrk36as.fnt

** Ravinia

   as ;             Ravinia
   ca slra09as.fnt
   ca slra18as.fnt
   ca slra36as.fnt

** Drury Lane

   as ;             Drury Lane
   ca sldl10c.fnt
   ca sldl18c.fnt
   ca sldl36c.fnt

** Madison

   as ;             Madison
   ca slma09as.fnt
   ca slma18as.fnt
   ca slma36as.fnt

** Dingbats

   as ;             Dingbats/Bullets
   ca sldb10.fnt
   ca sldb14.fnt
   ca sldb18.fnt
   ca sldb36.fnt

   as ;
   as 04p screen.sys ; HIGH RESOLUTION
fi

** Put printer driver name into assign.sys

as 21 printer.sys


****************************************
** Get LaserJet or DeskJet printer driver file
** and copy it over

re
   [[Insert TURBOJET DISK #2|
   into drive A:][  OK  ]
un fe a:\hpdsk300.sys

if pdhp1
   ld a:\hplas150.sys
   as ;Printer is HP Laserjet @150dpi
fi
if pdhp3
   ld a:\hplas300.sys
   as ;Printer is HP Laserjet @300dpi
fi
if pdgq1
   ld a:\hpdsk150.sys
   as ;Printer is HP Deskjet @150dpi
fi
if pdgq3
   ld a:\hpdsk300.sys
   as ;Printer is HP Deskjet @300dpi
fi

if onef
   [[Insert your disk labelled|
   FONTS DISK into drive A:][  OK  ]
fi

if pdhp1
   cp hplas150.sys printer.sys 
fi
if pdhp3
   cp hplas300.sys printer.sys 
fi
if pdgq1
   cp hpdsk150.sys printer.sys 
fi
if pdgq3
   cp hpdsk300.sys printer.sys 
fi

****************************************
** Now load 150/300 dpi fonts

if ! fe a:\master4 
   re
      [[Insert MASTER DISK 4|
      into drive A:][  OK  ]
   un fe a:\master4
fi

ld a:\part6\*.*

if onef
   [[Insert your disk labelled|
   FONTS DISK into drive A:][  OK  ]
fi

******************************
** Copy fonts directly for 150dpi

if pdgq1 or pdhp1

** Swiss

   as ;             Swiss
   ca hpss07as.fnt
   ca hpss08as.fnt
   ca hpss10as.fnt
   ca hpss12as.fnt
   ca hpss14as.fnt
   ca hpss20as.fnt
   if big
      ca hpss28as.fnt
      ca hpss36as.fnt
   fi

** Dutch

   as ;             Dutch
   ca hptr07as.fnt
   ca hptr08as.fnt
   ca hptr10as.fnt
   ca hptr12as.fnt

   re
      [[Insert MASTER DISK 5|
      into drive A:][  OK  ]
   un fe a:\master5
   ld a:\part7\*.*

   if onef
     [[Insert your disk labelled|
     FONTS DISK into drive A:][  OK  ]
   fi

   ca hptr14as.fnt
   if big
      ca hptr20as.fnt
      ca hptr28as.fnt
      ca hptr36as.fnt
   fi

** Rockface

   as ;             Rockface
   ca hprk20as.fnt
   if big
      ca hprk36as.fnt
   fi

** Ravinia

   as ;             Ravinia
   ca hpra18as.fnt
   if big
      ca hpra36as.fnt
   fi

** Drury Lane

   as ;             Drury Lane
   ca hpdl20c.fnt
   if big
      ca hpdl36c.fnt
   fi

** Madison

   as ;             Madison
   ca hpma24as.fnt
   if big
      ca hpma36as.fnt
   fi

** Dingbats

   as ;             Dingbats/Bullets
   ca hpdb07.fnt
   ca hpdb10.fnt
   ca hpdb14.fnt
   ca hpdb20.fnt
   if big
      ca hpdb28.fnt
      ca hpdb36.fnt
   fi
fi

****************************************
** Copy & rename fonts for 300 dpi
** Add Typewriter & 24 point sizes to assign.sys file, but don't copy files

if pdgq3 or pdhp3

** Swiss

   as ;             Swiss
   ct hpss12as.fnt lpss06as.fnt
   ct hpss16as.fnt lpss08as.fnt
   ct hpss20as.fnt lpss10as.fnt
   if big
      ct hpss24as.fnt lpss12as.fnt
      ct hpss28as.fnt lpss14as.fnt
      ct hpss36as.fnt lpss18as.fnt
   fi
   as atss24ls.fnt

** Dutch

   as ;             Dutch
   ct hptr12as.fnt lptr06as.fnt

   re
      [[Insert MASTER DISK 5|
      into drive A:][  OK  ]
   un fe a:\master5
   ld a:\part7\*.*

   if onef
     [[Insert your disk labelled|
     FONTS DISK into drive A:][  OK  ]
   fi

   ct hptr16as.fnt lptr08as.fnt
   if big
      ct hptr20as.fnt lptr10as.fnt
      ct hptr24as.fnt lptr12as.fnt
      ct hptr28as.fnt lptr14as.fnt
      ct hptr36as.fnt lptr18as.fnt
   fi
   as attr24ls.fnt

** Typewriter

   as ;             Typewriter
   as attp10ls.fnt

** Rockface

   as ;             Rockface
   ct hprk20as.fnt lprk10as.fnt
   if big
      ct hprk36as.fnt lprk18as.fnt
   fi

** Ravinia

   as ;             Ravinia
   ct hpra18as.fnt lpra09as.fnt
   if big
      ct hpra36as.fnt lpra18as.fnt
   fi

** Drury Lane

   as ;             Drury Lane
   ct hpdl20c.fnt lpdl10c.fnt
   if big
      ct hpdl36c.fnt lpdl18c.fnt
   fi

** Madison

   as ;             Madison
   ct hpma24as.fnt lpma12as.fnt
   if big
      ct hpma36as.fnt lpma18as.fnt
   fi

** Dingbats

   as ;             Dingbats/Bullets
   ct hpdb14.fnt lpdb07.fnt
   ct hpdb20.fnt lpdb10.fnt
   if big
      ct hpdb28.fnt lpdb14.fnt
      ct hpdb36.fnt lpdb18.fnt
   fi
fi

** End of 300dpi fonts
** End assign.sys file, create boot disk

as ;
as 31 meta.sys

if ! autobt

      [[Insert your disk labelled|
      STARTUP DISK into drive A:][  OK  ]

   if hdk
      ** Create hard disk boot disk

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

   ** Now write the assign.sys

   wa a:\assign.sys
fi

if autobt
   wa c:\assign.sys
fi

** Finished!

if ! hdk
   if ! onef
      [[End of Installation. Click on|
      OK and your ST will restart.|
      You must then double-click on|
      FONTWID.APP which is on your|
      FONTS DISK in drive B:][  OK  ]
   fi
   if onef
      [[End of Installation. Click on|
      OK and your ST will restart.|
      You must then place your|
      FONTS DISK in drive A: then|
      run FONTWID.APP][  OK  ]
   fi
fi
if hdk
   [[MEGA ST USERS:|
   Please see the note about|
   fonts in your TurboJet|
   manual.][  Ok  ]

   [[End of Installation. Click on|
   OK and your ST will restart.|
   You must then double-click on|
   FONTWID.APP in the PUBLISH|
   folder on your hard disk][  OK  ]
fi

** Finally reboot the system
bo