**
** Publisher ST 2.0 installation script
**
if ! vl PUBLISHE.R1
	re
		[[Insert Master Disk 1|into drive A:][ OK ]
	un vl PUBLISHE.R1
fi

if prog
	** Load up all of the bits required from this disk

	ld a:\publish.*
	ap a:\gdos.prg
**	ap a:\ukus.xcp

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

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

	cp publish.rsc
	cp publish.app
	cp publish.str
	cp publish.slv
**	if big
**		cp ukus.xcp
**	fi

	** Installing GDOS

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

	if ! hdk
		md d:\auto
		de d:\auto
		if ! fe d:gdos.prg
			cp gdos.prg
		fi
	fi

	if ! vl PUBLISHE.R1
		re
			[[Insert Master Disk 1|into drive A:][ OK ]
		un vl PUBLISHE.R1
	fi

	ld a:\*.ovl

	** Copy the files that are common to all setups and that we currently have

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

	if ! hdk
		if onef
			[[Insert your disk labelled|STARTUP DISK into drive D:][ OK ]
		fi
		md d:\
		de d:\
	fi
	cp pub_f1.ovl
	cp pub_f2.ovl
	cp pub_f3.ovl
	cp pub_f4.ovl
	cp pub_f5.ovl
	cp pub_fm.ovl
	cp pub_fr.ovl
	cp pub_di.ovl
	cp pub_gi2.ovl
	cp pub_hy1.ovl
	cp pub_ie.ovl
	cp pub_it.ovl
	cp pub_tx.ovl


	if ! vl PUBLISHE.R1
		re
			[[Insert Master Disk 1|into drive A:][ OK ]
		un vl PUBLISHE.R1
	fi
	
	ld a:\default.sty

	if hdk
		de d:\publish
	fi

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

	if ! vl PUBLISHE.R1
		re
			[[Insert Master Disk 1|into drive A:][ OK ]
		un vl PUBLISHE.R1
	fi

	ld a:\fontwid.*

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

	cp fontwid.app
	cp fontwid.rsc
	cp fontwid.str

	re
		[[Insert Master Disk 2|into drive A:][ OK ]
	un vl PUBLISHE.R2

	ld a:\*.ovl
	ap a:\*.cnf

	if hdk
		de d:\publish
	fi
	if ! hdk
		[[Insert your disk labelled|STARTUP DISK in drive D:][ OK ]
		de d:\
	fi

	cp pub_gi1.ovl
	cp pub_gi3.ovl
	cp pub_gi4.ovl
	cp pub_ti1.ovl
	cp pub_ti2.ovl
	cp pub_ti3.ovl
	cp pub_ti4.ovl
	cp pub_ti5.ovl
	cp pub_f6.ovl
	cp pub_ti.cnf
	cp pub_gi.cnf

	if ! hdk
		if ! vl PUBLISHE.R2
			re
				[[Insert Master Disk 2|into drive A:][ OK ]
			un vl PUBLISHE.R2
		fi
	fi

	ld a:\*.hlp

	if hdk
		de d:\publish
	fi
	if ! hdk
		if onef
			[[Insert your disk labelled|STARTUP DISK in drive D:][ OK ]
		fi
		de d:\
	fi

	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_sofl.hlp
	cp pub_styl.hlp
	cp pub_text.hlp

	if ! hdk
		if ! vl PUBLISHE.R2
			re
				[[Insert Master Disk 2|into drive A:][ OK ]
			un vl PUBLISHE.R2
		fi
	fi

	ap a:\*.dtp

	** Now create the data areas

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

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

	** Write out the example files

	cp boatlist.dtp
	cp flier1.dtp
	cp flier2.dtp
	cp invoice.dtp
	cp letter.dtp
	cp memo.dtp
	cp news.dtp
	cp report.dtp
	cp testcard.dtp

	if ! hdk
		if ! vl PUBLISHE.R2
			re
				[[Insert Master Disk 2|into drive A:][ OK ]
			un vl PUBLISHE.R2
		fi
	fi

	ld a:\*.sty

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

	cp boatlist.sty
	cp flier1.sty
	cp flier2.sty
	cp invoice.sty
	cp letter.sty
	cp memo.sty
	cp news.sty
	cp report.sty

	if ! hdk
		if ! vl PUBLISHE.R2
			re
				[[Insert Master Disk 2|into drive A:][ OK ]
			un vl PUBLISHE.R2
		fi
	fi

	ld a:\*.img
	ap a:\*.gem
	ap a:\*.doc
	ap a:\*.eps

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

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

	cp example.doc

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

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

	cp ftree.eps
	cp monalisa.img
	cp tiger.img
	cp pc.gem
fi

if fonts or addfonts
	de d:\

**	if fe d:\assign.sys
**		[[Renaming your existing|assign.sys to assign.bak.][ OK ]
**
**		rn assign.sys assign.bak
**	fi

	if hdk
		as path = d:\publish\gemsys
		md d:\publish\gemsys
		de d:\publish\gemsys
	fi

	if ! hdk
		as path = d:\gemsys
	fi

	as 01p screen.sys ; Default
	as 02p screen.sys ; ST Low Resolution
	as 03p screen.sys ; ST Medium resolution

	** Disk 2

	if scstmed
		if ! vl PUBLISHE.R5
			re
				[[Insert Master Disk 5|into drive A:][ OK ]
			un vl PUBLISHE.R5
		fi
		kl
		oc cga_font.caf

		** Autumn
		if ! pdgq300
			if ! pdlj300 
				if ! pddj300 
					if ! pdslm
						ex 52 20
						ex 150 20
						ex 151 20
						ex 152 20
					fi
				fi
			fi
		fi

		
		if hdk
			ex 52 20
			ex 150 20
			ex 151 20
			ex 152 20
		fi

		** Brushwood
		if hdk
			ex 150 7
			ex 150 10
			ex 150 12
			ex 150 14
		fi

		** Courier
		if hdk
			ex 102 7
			ex 102 10
			ex 102 12
			ex 102 14
			ex 102 20
		fi

		** Diamond
		ex 151 20
		**ex 151 72

		** Drury Lane

		ex 64 10
		ex 64 18

		** Rockface

		ex 42 10
		ex 42 18

		** Sans
		ex 2 3
		ex 2 7
		ex 2 10
		ex 2 12
		ex 2 14
		ex 2 20
		if hdk
			ex 2 36
		fi
		**ex 2 72

		** Sage

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		ex 14 14
		ex 14 20
		if hdk
			ex 14 36
		fi

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		ex 129 14
		ex 129 20
		cc

		if ! hdk
			[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			md d:\gemsys
			de d:\gemsys
		fi

		ca san010rm.cga
		ca srf010rm.cga

		if hdk
			ca brw007it.cga
			ca brw010it.cga
			ca brw012it.cga
			ca brw014it.cga
			ca cou007rm.cga
			ca cou010rm.cga
			ca cou012rm.cga
			ca cou014rm.cga
			ca cou020rm.cga
		fi
		**	ca dia072rm.cga
		ca dle010rm.cga
		ca dle018rm.cga
		ca rck010rm.cga
		ca rck018rm.cga
		ca san003rm.cga
		ca san007rm.cga
		if hdk
			ca san012rm.cga
			ca srf012rm.cga
		fi
		ca san014rm.cga
		ca san020rm.cga
		if hdk
			ca san036rm.cga
		fi
		**	ca san072rm.cga
		ca srf007rm.cga
		ca srf014rm.cga
		ca srf020rm.cga
		if hdk
			ca srf036rm.cga
		fi
		ca zdb007rm.cga
		ca zdb010rm.cga
		ca zdb012rm.cga
		ca zdb014rm.cga
		ca zdb020rm.cga

		if ! pdgq300
			if ! pdlj300 
				if ! pddj300 
					if ! pdslm
						ca atm020rm.cga
						ca brw020it.cga
						ca dia020rm.cga
						ca sge020rm.cga
					fi
				fi
			fi
		fi

		if hdk
			ca atm020rm.cga
			ca brw020it.cga
			ca dia020rm.cga
			ca sge020rm.cga
		fi
		kl

		if addfonts
			if ! vl PUBLISHE.R5
				re
					[[Insert Master Disk 5|into drive A:][ OK ]
				un vl PUBLISHE.R5
			fi
			kl
			oc cga_font.caf

			** Autumn
			ex 52 24
			ex 52 28
			ex 52 36

			** Brushwood
			ex 150 24
			ex 150 28
			ex 150 36

			** Courier
			ex 102 24

			** Diamond
			ex 151 24
			ex 151 28
			ex 151 36

			** Drury Lane

			ex 64 36

			** Rockface

			ex 42 36

			** Sans
			ex 2 24
			ex 2 28

			** Sage
			ex 152 24
			ex 152 28
			ex 152 36

			** Serif
			ex 14 24
			ex 14 28
			cc
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
					de d:\gemsys
				fi
			fi
			ca atm024rm.cga
			ca atm028rm.cga
			ca atm036rm.cga
			ca brw028it.cga
			ca brw036it.cga
			if hdk
				ca cou024rm.cga
			fi
			ca dia024rm.cga
			ca dia028rm.cga
			ca dia036rm.cga
			ca dle036rm.cga
			ca rck036rm.cga
			ca san024rm.cga
			ca san028rm.cga
			ca sge024rm.cga
			ca sge028rm.cga
			ca srf024rm.cga
			ca srf028rm.cga
			as 04p screen.sys ; ST High
			as 05p screen.sys ; TT Low
			as 06p screen.sys ; TT Medium
			as 07p screen.sys ; ???
			as 08p screen.sys ; TT High
		fi
		kl
	fi
	** Disk 4

	if scsthigh or scttmed or sctthigh
		if ! vl PUBLISHE.R2
			re
				[[Insert Master Disk 2|into drive A:][ OK ]
			un vl PUBLISHE.R2
		fi

		if scsthigh
			as 04p screen.sys ; ST High
		fi
		if scttmed
			as 04p screen.sys ; ST High
			as 05p screen.sys ; TT Low
			as 06p screen.sys ; TT Medium
		fi
		if sctthigh
			as 04p screen.sys ; ST High
			as 05p screen.sys ; TT Low
			as 06p screen.sys ; TT Medium
			as 07p screen.sys ; ???
			as 08p screen.sys ; TT High
		fi
		oc vga_font.caf

		** Autumn
		

		if ! pdgq300
			if ! pdlj300 
				if ! pddj300 
					if ! pdslm
						ex 52 20
						ex 150 20
						ex 151 20
						ex 152 20
					fi
				fi
			fi
		fi

		
		if hdk
			ex 52 20
			ex 150 20
			ex 151 20
			ex 152 20
		fi

		**oc vga_font.caf
		** Brushwood
		if hdk
			ex 150 7
			ex 150 10
			ex 150 12
			ex 150 14
		fi


		**oc vga_font.caf
		** Courier
		if hdk
			ex 102 7
			ex 102 10
			ex 102 12
			ex 102 14
			ex 102 20
		fi

		** Diamond

		**oc vga_font.caf

		** Drury Lane

		ex 64 10
		ex 64 18

		** Rockface
		
		ex 42 10
		ex 42 18

		** Sans
		ex 2 3
		ex 2 7
		ex 2 10
		ex 2 12
		ex 2 14
		ex 2 20
		if hdk
			ex 2 36
		fi
		**ex 2 72

		** Sage

**		  oc vga_font.caf

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		ex 14 14
		ex 14 20
		if hdk
			ex 14 36
		fi

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		ex 129 14
		ex 129 20
		cc

		if ! hdk
			[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			md d:\gemsys
			de d:\gemsys
		fi
		ca san010rm.vga
		ca srf010rm.vga  
		if hdk
			ca brw007it.vga
			ca brw010it.vga
			ca brw012it.vga
			ca brw014it.vga
		fi
		if hdk
			ca cou007rm.vga
			ca cou010rm.vga
			ca cou012rm.vga
			ca cou014rm.vga
			ca cou020rm.vga
		fi
		**ca dia072rm.vga
		ca dle010rm.vga
		ca dle018rm.vga
		ca rck010rm.vga
		ca rck018rm.vga
		ca san003rm.vga
		ca san007rm.vga
		if hdk
			ca san012rm.vga
		fi
		ca san014rm.vga
		ca san020rm.vga
		if hdk
			ca san036rm.vga
		fi
		**ca san072rm.vga
		ca srf007rm.vga
		if hdk
			ca srf012rm.vga
		fi
		ca srf014rm.vga
		ca srf020rm.vga
		if hdk
			ca srf036rm.vga
		fi
		ca zdb007rm.vga
		ca zdb010rm.vga
		ca zdb012rm.vga
		ca zdb014rm.vga

		if ! pdgq300
			if ! pdlj300 
				if ! pddj300 
					if ! pdslm
						if ! pdgq150
							if ! pdlj150
								if ! pddj150
									ca atm020rm.vga
									ca brw020it.vga
									ca dia020rm.vga
									ca sge020rm.vga
									ca zdb020rm.vga
								fi
							fi
						fi
					fi
				fi
			fi
		fi

		
		if hdk
			ca atm020rm.vga
			ca brw020it.vga
			ca dia020rm.vga
			ca sge020rm.vga
			ca zdb020rm.vga
		fi



		kl
		if addfonts
			if ! vl PUBLISHE.R2
				re
					[[Insert Master Disk 2|into drive A:][ OK ]
				un vl PUBLISHE.R2
			fi
			kl
			oc vga_font.caf

			** Autumn
			ex 52 24
			ex 52 28
			ex 52 36

			** Brushwood
			ex 150 24
			ex 150 28
			ex 150 36

			** Courier
			ex 102 24

			** Diamond
			ex 151 24
			ex 151 28
			ex 151 36

			** Drury Lane
			ex 64 36

			** Rockface

			ex 42 36

			** Sans
			ex 2 24
			ex 2 28

			** Sage
			ex 152 24
			ex 152 28
			ex 152 36

			** Serif
			ex 14 24
			ex 14 28
			cc
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
					de d:\gemsys
				fi
			fi
			ca atm024rm.vga
			ca atm028rm.vga
			ca atm036rm.vga
			ca brw028it.vga
			ca brw036it.vga
			if hdk
				ca cou024rm.vga
			fi
			ca dia024rm.vga
			ca dia028rm.vga
			ca dia036rm.vga
			ca dle036rm.vga
			ca rck036rm.vga
			ca san024rm.vga
			ca san028rm.vga
			ca sge024rm.vga
			ca sge028rm.vga
			ca srf024rm.vga
			ca srf028rm.vga
		fi
		if scsthigh
			as 05p screen.sys ; TT Low
			as 06p screen.sys ; TT Medium
			as 07p screen.sys ; ???
			as 08p screen.sys ; TT High
		fi
		if scttmed
			as 07p screen.sys ; ???
			as 08p screen.sys ; TT High
		fi
		kl
	fi

	** Clean the ram up

	kl

	** Disk 3

	if pdfx
		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		oc eps_font.caf
		ex 52 10
		ex 52 20
		ex 150 10
		ex 150 20
		ex 151 10
		ex 151 20
		ex 152 10
		ex 152 20
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp atm010rm.eps
		cp atm020rm.eps
		cp brw010it.eps
		cp brw020it.eps
		cp dia010rm.eps
		cp dia020rm.eps
		cp sge010rm.eps
		cp sge020rm.eps

		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		oc eps_font.caf

		if hdk
			** Brushwood
			ex 150 7
			ex 150 12
			ex 150 14
		fi
		
		** Courier
		ex 102 7
		ex 102 10
		if hdk
			ex 102 12
			ex 102 14
		fi
		ex 102 20
		**ex 151 72
		
		** Drury Lane
		ex 64 20
		
		** Rockface
		ex 42 20
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		if hdk
			cp brw007it.eps
			cp brw012it.eps
			cp brw014it.eps
			cp cou007rm.eps
			cp cou010rm.eps
			cp cou012rm.eps
			cp cou014rm.eps
			cp cou020rm.eps
		fi
		**	cp dia072rm.eps
		cp dle020rm.eps
		cp rck020rm.eps
		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		oc eps_font.caf

		** Sans
		ex 2 7
		ex 2 10
		ex 2 12
		ex 2 14
		ex 2 20
		ex 2 28
		if hdk
			ex 2 24
		fi
		ex 2 36
		**ex 2 72

		** Sage
		ex 152 36
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp san007rm.eps
		cp san010rm.eps
		cp san012rm.eps
		cp san014rm.eps
		cp san020rm.eps
		cp san028rm.eps
		cp san036rm.eps
		if hdk
			cp san024rm.eps
		**	cp san072rm.eps
			cp sge036rm.eps
		fi
		cp sge020rm.eps
		kl

		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		oc eps_font.caf

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		ex 14 14
		ex 14 20
		ex 14 28
		if hdk
			ex 14 24
		fi
		ex 14 36

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		ex 129 14
		ex 129 20
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp srf007rm.eps
		cp srf010rm.eps
		cp srf012rm.eps
		cp srf014rm.eps
		cp srf020rm.eps
		cp srf028rm.eps
		if hdk
			cp srf024rm.eps
		fi
		cp srf036rm.eps
		cp zdb007rm.eps
		cp zdb010rm.eps
		cp zdb012rm.eps
		cp zdb014rm.eps
		cp zdb020rm.eps
		kl
		if addfonts
			if ! vl PUBLISHE.R4
				re
					[[Insert Master Disk 4|into drive A:][ OK ]
				un vl PUBLISHE.R4
			fi
			oc eps_font.caf

			** Autumn
			ex 52 24
			ex 52 28
			ex 52 36

			** Brushwood
			ex 150 24
			ex 150 28
			ex 150 36

			cp atm024rm.eps
			cp atm028rm.eps
			cp atm036rm.eps
			cp brw024it.eps
			cp brw028it.eps
			cp brw036it.eps
			oc eps_font.caf
			** Courier
			ex 102 24

			** Diamond
			ex 151 24
			ex 151 28
			ex 151 36
			cc

			cp cou024rm.eps
			cp dia024rm.eps
			cp dia028rm.eps
			cp dia036rm.eps
			oc eps_font.caf

			** Sage
			ex 152 24
			ex 152 28
			ex 152 36
			cc

			cp sge024rm.eps
			cp sge028rm.eps
		fi

		** Install the Epson FX driver

		if ! vl PUBLISHE.R3
			re
				[[Insert Master Disk 3|into drive A:][ OK ]
			un vl PUBLISHE.R3
		fi

		ld epsonfx.eps
		ad epsonfx.eps ; Epson FX driver
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp epsonfx.eps
		kl
		as atm010rm.eps
		as brw010it.eps
		if hdk
			as cou010rm.eps
		fi
		as dia010rm.eps
		as atm020rm.eps
		if hdk
			as brw007it.eps
			as brw012it.eps
			as brw014it.eps
		fi
		as brw020it.eps
		if hdk
			as cou007rm.eps
			as cou012rm.eps
			as cou014rm.eps
			as cou020rm.eps
		fi
		as dia020rm.eps
		**	as dia072rm.eps
		as dle020rm.eps
		as rck020rm.eps
		as san007rm.eps
		as san010rm.eps
		as san012rm.eps
		as san014rm.eps
		as san020rm.eps
		if hdk
			as san024rm.eps
			as srf024rm.eps
		fi
		as san028rm.eps 
		as san036rm.eps
	**	as san072rm.eps
		as sge010rm.eps
		as sge020rm.eps
		as srf007rm.eps
		as srf010rm.eps
		as srf012rm.eps
		as srf014rm.eps
		as srf020rm.eps
		as srf028rm.eps
		as srf036rm.eps
		as zdb007rm.eps
		as zdb010rm.eps
		as zdb012rm.eps
		as zdb014rm.eps
		as zdb020rm.eps
		if addfonts
			as atm024rm.eps
			as atm028rm.eps
			as atm036rm.eps
			as brw024it.eps
			as brw028it.eps
			as brw036it.eps
			as cou024rm.eps
			as dia024rm.eps
			as dia028rm.eps
			as dia036rm.eps
			as sge024rm.eps
			as sge028rm.eps
			as sge036rm.eps
		fi
		kl
	fi

	if pdgq150 or pdlj150 or pddj150
		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		if hdk
			oc hph_font.caf
			ex 52 10
			ex 52 20
			ex 150 10
			ex 150 20
			ex 151 20
			ex 151 20
			ex 151 10
			ex 152 10
			ex 152 20
			cc			
			cp atm010rm.hph
			cp atm020rm.hph
			cp brw010it.hph
			cp brw020it.hph
			cp dia010rm.hph
			cp dia020rm.hph
			cp sge010rm.hph
			cp sge020rm.hph
			kl
			oc hph_font.caf
			ex 150 12
			ex 150 14
			ex 102 7
			ex 102 10
			ex 102 12
			ex 102 14
			ex 102 20
			cc
			cp brw012it.hph
			cp brw014it.hph
			cp cou007rm.hph
			cp cou010rm.hph
			cp cou012rm.hph
			cp cou014rm.hph
			cp cou020rm.hph
		fi
		kl

		oc hph_font.caf

		** Drury Lane

		ex 64 20
		ex 64 36

		** Rockface

		ex 42 20
		ex 42 36

		** Sans
		ex 2 7
		ex 2 10
		ex 2 12
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp dle020rm.hph
		cp dle036rm.hph
		cp rck020rm.hph
		cp rck036rm.hph
		cp san007rm.hph
		cp san010rm.hph
		cp san012rm.hph
		kl
		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi

		oc hph_font.caf

		** Sans
		ex 2 14
		ex 2 20
		ex 2 28
		ex 2 36
		**ex 2 72

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp san014rm.hph
		cp san020rm.hph
		cp san028rm.hph
		cp san036rm.hph
	**	cp san072rm.hph
		cp srf007rm.hph
		cp srf010rm.hph
		cp srf012rm.hph
		kl
		if ! vl PUBLISHE.R4
			re
				[[Insert Master Disk 4|into drive A:][ OK ]
			un vl PUBLISHE.R4
		fi
		oc hph_font.caf

		ex 14 14
		ex 14 20
		ex 14 28
		ex 14 36

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		ex 129 14
		ex 129 20
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		cp srf014rm.hph
		cp srf020rm.hph
		cp srf028rm.hph
		cp srf036rm.hph
		cp zdb007rm.hph
		cp zdb010rm.hph
		cp zdb012rm.hph
		cp zdb014rm.hph
		cp zdb020rm.hph
		kl
		if addfonts
			if ! vl PUBLISHE.R4
				re
					[[Insert Master Disk 4|into drive A:][ OK ]
				un vl PUBLISHE.R4
			fi

			oc hph_font.caf

			** Autumn
			ex 52 24
			ex 52 28
			ex 52 36

			** Brushwood
			ex 150 24
			ex 150 28
			cc

			cp atm024rm.hph
			cp atm028rm.hph
			cp atm036rm.hph
			cp brw024it.hph
			cp brw028it.hph

			oc hph_font.caf
			ex 150 36
			cc
			cp brw036it.hph
						
			oc hph_font.caf
			** Courier
			ex 102 24

			** Diamond
			ex 151 24
			ex 151 28
			ex 151 36
			cc

			cp cou024rm.hph
			cp dia024rm.hph
			cp dia028rm.hph
			cp dia036rm.hph

			oc hph_font.caf
		
			** Sans
			ex 2 24
			ex 2 28

			** Sage
			ex 152 24
			ex 152 28
			ex 152 36

			** Serif
			ex 14 24

			cc
			cp san024rm.hph
			cp san028rm.hph
			cp sge024rm.hph
			cp sge028rm.hph
			cp sge036rm.hph
			cp srf024rm.hph

		fi
		kl

		** Install the printer driver

		if pdgq150
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld gq3500.hph
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in Drive D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp gq3500.hph
			ad gq3500.hph ; Epson GQ3500 driver at 150 dpi
			as san007rm.hph
			as san010rm.hph
			as san012rm.hph
			as san014rm.hph
			as san020rm.hph
			as san028rm.hph
			as san036rm.hph
			as srf007rm.hph
			as srf010rm.hph
			as srf012rm.hph
			as srf014rm.hph
			as srf020rm.hph
			as srf028rm.hph
			as srf036rm.hph
			if hdk
				as atm010rm.hph
				as atm020rm.hph
				as brw007it.hph
				as brw010it.hph
				as brw012it.hph
				as brw014it.hph
				as brw020it.hph
				as cou007rm.hph
				as cou010rm.hph
				as cou012rm.hph
				as cou014rm.hph
				as cou020rm.hph
				as dia010rm.hph
				as dia020rm.hph
				as sge010rm.hph
				as sge020rm.hph
			fi
			as dle020rm.hph
			as dle036rm.hph
			as rck020rm.hph
			as rck036rm.hph
			as zdb007rm.hph
			as zdb010rm.hph
			as zdb012rm.hph
			as zdb014rm.hph
			as zdb020rm.hph
			if addfonts
				as atm024rm.hph
				as atm028rm.hph
				as atm036rm.hph
				as brw024it.hph
				as brw028it.hph
				as brw036it.hph
				as cou024rm.hph
				as dia024rm.hph
				as dia028rm.hph
				as dia036rm.hph
				as san024rm.hph
				as san028rm.hph
				as sge024rm.hph
				as sge028rm.hph
				as sge036rm.hph
				as srf024rm.hph
				as srf028rm.hph
			fi
		fi

		if pdlj150
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld hplj2.hph
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in Drive D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp hplj2.hph hplj2.hph
			ad hplj2.hph ; HP Laserjet driver at 150 dpi
			as san007rm.hph
			as san010rm.hph
			as san012rm.hph
			as san014rm.hph
			as san020rm.hph
			as san028rm.hph
			as san036rm.hph
			as srf007rm.hph
			as srf010rm.hph
			as srf012rm.hph
			as srf014rm.hph
			as srf020rm.hph
			as srf028rm.hph
			as srf036rm.hph
			if hdk
				as atm010rm.hph
				as atm020rm.hph
				as brw007it.hph
				as brw010it.hph
				as brw012it.hph
				as brw014it.hph
				as brw020it.hph
				as cou007rm.hph
				as cou010rm.hph
				as cou012rm.hph
				as cou014rm.hph
				as cou020rm.hph
				as dia010rm.hph
				as dia020rm.hph
				as sge010rm.hph
				as sge020rm.hph
			fi
			as dle020rm.hph
			as dle036rm.hph
			as rck020rm.hph
			as rck036rm.hph
			as zdb007rm.hph
			as zdb010rm.hph
			as zdb012rm.hph
			as zdb014rm.hph
			as zdb020rm.hph
			if addfonts
				as atm024rm.hph
				as atm028rm.hph
				as atm036rm.hph
				as brw024it.hph
				as brw028it.hph
				as brw036it.hph
				as cou024rm.hph
				as dia024rm.hph
				as dia028rm.hph
				as dia036rm.hph
				as san024rm.hph
				as san028rm.hph
				as sge024rm.hph
				as sge028rm.hph
				as sge036rm.hph
				as srf024rm.hph
				as srf028rm.hph
			fi
		fi

		if pddj150
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld hpdj.hph
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp hpdj.hph
			ad hpdj.hph ; HP Deskjet driver at 150 dpi
			as san007rm.hph
			as san010rm.hph
			as san012rm.hph
			as san014rm.hph
			as san020rm.hph
			as san028rm.hph
			as san036rm.hph
			as srf007rm.hph
			as srf010rm.hph
			as srf012rm.hph
			as srf014rm.hph
			as srf020rm.hph
			as srf028rm.hph
			as srf036rm.hph
			if hdk
				as atm010rm.hph
				as atm020rm.hph
				as brw007it.hph
				as brw010it.hph
				as brw012it.hph
				as brw014it.hph
				as brw020it.hph
				as cou007rm.hph
				as cou010rm.hph
				as cou012rm.hph
				as cou014rm.hph
				as cou020rm.hph
				as dia010rm.hph
				as dia020rm.hph
				as sge010rm.hph
				as sge020rm.hph
			fi
			as dle020rm.hph
			as dle036rm.hph
			as rck020rm.hph
			as rck036rm.hph
			as zdb007rm.hph
			as zdb010rm.hph
			as zdb012rm.hph
			as zdb014rm.hph
			as zdb020rm.hph
			if addfonts
				as atm024rm.hph
				as atm028rm.hph
				as atm036rm.hph
				as brw024it.hph
				as brw028it.hph
				as brw036it.hph
				as cou024rm.hph
				as dia024rm.hph
				as dia028rm.hph
				as dia036rm.hph
				as san024rm.hph
				as san028rm.hph
				as sge024rm.hph
				as sge028rm.hph
				as sge036rm.hph
				as srf024rm.hph
				as srf028rm.hph
			fi
		fi
	fi

	if pdlq or pdnec180 or pdbj180
		if ! vl PUBLISHE.R5
			re
				[[Insert Master Disk 5|into drive A:][ OK ]
			un vl PUBLISHE.R5
		fi

		oc elq_font.caf
		ex 52 10
		ex 52 20
		ex 150 10
		ex 150 20
		ex 151 10
		ex 151 20
		ex 152 10
		ex 152 20
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				de d:\gemsys
			fi
		fi
		
		if hdk
			cp atm020rm.elq
			cp brw020it.elq
			cp dia020rm.elq
			cp sge020rm.elq
		fi			

		cp dia010rm.elq
		cp sge010rm.elq
		cp atm010rm.elq
		cp brw010it.elq

		if ! vl PUBLISHE.R5
			re
				[[Insert Master Disk 5|into drive A:][ OK ]
			un vl PUBLISHE.R5
		fi

		oc elq_font.caf

		if hdk
			** Brushwood
			ex 150 7
			ex 150 12
			ex 150 14

			** Courier
			ex 102 7
			ex 102 10
			ex 102 12
			ex 102 14
			ex 102 20

			**ex 151 72
		fi

		** Drury Lane

		ex 64 18
		ex 64 30

		** Rockface

		ex 42 18
		ex 42 30

		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		if hdk
			cp brw007it.elq
			cp brw012it.elq
			cp brw014it.elq
			cp cou007rm.elq
			cp cou010rm.elq
			cp cou012rm.elq
			cp cou014rm.elq
			cp cou020rm.elq
		**	cp dia072rm.elq
		fi
		cp dle018rm.elq
		cp dle030rm.elq
		cp rck018rm.elq
		cp rck030rm.elq
		kl

		if ! vl PUBLISHE.R5
			re
				[[Insert Master Disk 5|into drive A:][ OK ]
			un vl PUBLISHE.R5
		fi
		kl
		oc elq_font.caf

		** Sans
		ex 2 7
		ex 2 10
		ex 2 12
		ex 2 14
		ex 2 20

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp san007rm.elq
		cp san010rm.elq
		cp san012rm.elq
		cp san014rm.elq
		cp san020rm.elq

		if ! vl PUBLISHE.R5
			re
				[[Insert Master Disk 5|into drive A:][ OK ]
			un vl PUBLISHE.R5
		fi
		kl
		oc elq_font.caf
		ex 2 28

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		ex 14 14
		ex 14 20
		ex 14 28
		
		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		ex 129 14
		ex 129 20
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp san028rm.elq
		cp srf007rm.elq
		cp srf010rm.elq
		cp srf012rm.elq
		cp srf014rm.elq
		cp srf020rm.elq
		cp srf028rm.elq
		cp zdb007rm.elq
		cp zdb010rm.elq
		cp zdb012rm.elq
		cp zdb014rm.elq
		cp zdb020rm.elq

		if hdk
			oc elq_font.caf
			ex 2 36
			ex 14 36
			cc
			cp srf036rm.elq
			cp san036rm.elq
		fi

	  kl
		if addfonts
			if ! vl PUBLISHE.R5
				re
					[[Insert Master Disk 5|into drive A:][ OK ]
				un vl PUBLISHE.R5
			fi

			oc elq_font.caf

			** Autumn
			ex 52 24
			ex 52 28
			ex 52 36

			** Brushwood
			ex 150 24
			ex 150 28
			cc
			cp atm024rm.elq
			cp atm028rm.elq
			cp atm036rm.elq
			cp brw024it.elq
			cp brw028it.elq

			oc elq_font.caf

			ex 150 36

			** Courier
			ex 102 24

			** Diamond
			ex 151 24
			ex 151 28

			cc

			cp brw036it.elq
			cp cou024rm.elq
			cp dia024rm.elq
			cp dia028rm.elq

			kl

			oc elq_font.caf
			ex 151 36
			cc
			cp dia036rm.elq

			oc elq_font.caf

			** Sans
			ex 2 24

			** Sage
			ex 152 24
			ex 152 28
			cc
			cp san024rm.elq
			cp sge024rm.elq
			cp sge028rm.elq

			oc elq_font.caf

			ex 152 36

			** Serif
			ex 14 24
			cc
			cp sge036rm.elq
			cp srf024rm.elq
		fi
		kl
		** Install the printer driver

		if pdlq
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld epsonlq.elq
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp epsonlq.elq
			ad epsonlq.elq ; Epson LQ driver at 180 dpi
			as san007rm.elq
			as san010rm.elq
			as san012rm.elq
			as san014rm.elq
			as san020rm.elq
			as san028rm.elq
			as srf007rm.elq
			as srf010rm.elq
			as srf012rm.elq
			as srf014rm.elq
			as srf020rm.elq
			as srf028rm.elq
			if hdk
				as atm020rm.elq
				as brw020it.elq
				as dia020rm.elq
				as sge020rm.elq
				as srf036rm.elq
				as brw007it.elq
				as brw012it.elq
				as brw014it.elq
				as cou007rm.elq
				as cou010rm.elq
				as cou012rm.elq
				as cou014rm.elq
				as cou020rm.elq
				as san036rm.elq
				as srf036rm.elq
			fi
			as atm010rm.elq
			as brw010it.elq
			as dia010rm.elq
			as sge010rm.elq
			as dle018rm.elq
			as dle030rm.elq
			as rck018rm.elq
			as rck030rm.elq
			as zdb007rm.elq
			as zdb010rm.elq
			as zdb012rm.elq
			as zdb014rm.elq
			as zdb020rm.elq
			if addfonts
				as atm024rm.elq
				as atm028rm.elq
				as atm036rm.elq
				as brw024it.elq
				as brw028it.elq
				as brw036it.elq
				as cou024rm.elq
				as dia024rm.elq
				as dia028rm.elq
				as dia036rm.elq
				as san024rm.elq
				as sge024rm.elq
				as sge028rm.elq
				as sge036rm.elq
				as srf024rm.elq
			fi
		fi

		if pdnec180
			if !vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld epsonlq.elq
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cf 1 epsonlq.elq necp.elq
			ad necp.elq ; NEC P-Series driver at 180 dpi
			as san007rm.elq
			as san010rm.elq
			as san012rm.elq
			as san014rm.elq
			as san020rm.elq
			as san028rm.elq
			as srf007rm.elq
			as srf010rm.elq
			as srf012rm.elq
			as srf014rm.elq
			as srf020rm.elq
			as srf028rm.elq
			if hdk
				as atm020rm.elq
				as brw020it.elq
				as dia020rm.elq
				as sge020rm.elq
				as srf036rm.elq
				as brw007it.elq
				as brw012it.elq
				as brw014it.elq
				as cou007rm.elq
				as cou010rm.elq
				as cou012rm.elq
				as cou014rm.elq
				as cou020rm.elq
				as san036rm.elq
				as srf036rm.elq
			fi
			as atm010rm.elq
			as brw010it.elq
			as dia010rm.elq
			as sge010rm.elq
			as dle018rm.elq
			as dle030rm.elq
			as rck018rm.elq
			as rck030rm.elq
			as zdb007rm.elq
			as zdb010rm.elq
			as zdb012rm.elq
			as zdb014rm.elq
			as zdb020rm.elq
			if addfonts
				as atm024rm.elq
				as atm028rm.elq
				as atm036rm.elq
				as brw024it.elq
				as brw028it.elq
				as brw036it.elq
				as cou024rm.elq
				as dia024rm.elq
				as dia028rm.elq
				as dia036rm.elq
				as san024rm.elq
				as sge024rm.elq
				as sge028rm.elq
				as sge036rm.elq
				as srf024rm.elq
			fi
		fi

		if pdbj180
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld bj10e.elq
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp bj10e.elq
			ad bj10e.elq ; Canon Bubblejet at driver at 180 dpi
			as san007rm.elq
			as san010rm.elq
			as san012rm.elq
			as san014rm.elq
			as san020rm.elq
			as san028rm.elq
			as srf007rm.elq
			as srf010rm.elq
			as srf012rm.elq
			as srf014rm.elq
			as srf020rm.elq
			as srf028rm.elq
			if hdk
				as atm020rm.elq
				as brw020it.elq
				as dia020rm.elq
				as sge020rm.elq
				as srf036rm.elq
				as brw007it.elq
				as brw012it.elq
				as brw014it.elq
				as cou007rm.elq
				as cou010rm.elq
				as cou012rm.elq
				as cou014rm.elq
				as cou020rm.elq
				as san036rm.elq
				as srf036rm.elq
			fi
			as atm010rm.elq
			as brw010it.elq
			as dia010rm.elq
			as sge010rm.elq
			as dle018rm.elq
			as dle030rm.elq
			as rck018rm.elq
			as rck030rm.elq
			as zdb007rm.elq
			as zdb010rm.elq
			as zdb012rm.elq
			as zdb014rm.elq
			as zdb020rm.elq
			if addfonts
				as atm024rm.elq
				as atm028rm.elq
				as atm036rm.elq
				as brw024it.elq
				as brw028it.elq
				as brw036it.elq
				as cou024rm.elq
				as dia024rm.elq
				as dia028rm.elq
				as dia036rm.elq
				as san024rm.elq
				as sge024rm.elq
				as sge028rm.elq
				as sge036rm.elq
				as srf024rm.elq
			fi
		fi
	fi

	if pdgq300 or pdlj300 or pddj300 or pdslm
		if hdk
			if ! vl PUBLISHE.R6
				re
					[[Insert Master Disk 6|into drive A:][ OK ]
				un vl PUBLISHE.R6
			fi
	
			oc b30_font.caf
			ex 52 10
			ex 150 10
			ex 151 10
			ex 152 10
			cc

			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
					de d:\gemsys
				fi
			fi
			cp atm010rm.b30
			cp brw010it.b30
			cp dia010rm.b30
			cp sge010rm.b30
		fi
		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		if hdk
			
			** Autumn
			ex 52 20
	
			** Brushwood
			ex 150 7
			ex 150 10
			ex 150 12
			ex 150 14
			ex 150 20
			cc			
			cp atm020rm.b30
			cp brw007it.b30
			cp brw010it.b30
			cp brw012it.b30
			cp brw014it.b30
			cp brw020it.b30
		
			oc b30_font.caf

			** Courier
			ex 102 7
			ex 102 10
			ex 102 12
			cc
			cp cou007rm.b30
			cp cou010rm.b30
			cp cou012rm.b30
			oc b30_font.caf
			ex 102 14
			ex 102 20

			** Diamond
			ex 151 20
			**ex 151 72
			cc
			cp cou014rm.b30
			cp cou020rm.b30
			cp dia020rm.b30
			** cp dia072rm.b30
		fi

		oc b30_font.caf
		** Drury Lane

		ex 64 10

		** Rockface

		ex 42 18

		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp dle010rm.b30
		cp rck018rm.b30
		kl

		if hdk
			oc b30_font.caf
			ex 42 10
			ex 64 18
			cc
			cp rck010rm.b30
			cp dle018rm.b30
		fi

		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		** Sans
		ex 2 7
		ex 2 10
		ex 2 12
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp san007rm.b30
		cp san010rm.b30
		cp san012rm.b30
		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		ex 2 14
		ex 2 20
		**ex 2 72

		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp san014rm.b30
		cp san020rm.b30
		if hdk
			if big
				oc b30_font.caf
				ex 2 36
				cc
				cp san036rm.b30
			fi
			oc b30_font.caf
			ex 152 20
			cc
			cp sge020rm.b30
		fi
	**	cp san072rm.b30
		if hdk
			cp sge020rm.b30
		fi

		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi

		cp srf007rm.b30
		cp srf010rm.b30
		cp srf012rm.b30
		kl
		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		ex 14 14
		ex 14 20
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi

		cp srf014rm.b30
		cp srf020rm.b30
		if hdk
			if big
				oc b30_font.caf
				ex 14 36
				cc
				cp srf036rm.b30
			fi
		fi

		if ! vl PUBLISHE.R6
			re
				[[Insert Master Disk 6|into drive A:][ OK ]
			un vl PUBLISHE.R6
		fi

		oc b30_font.caf

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 14
		cc
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp zdb007rm.b30
		cp zdb010rm.b30
		cp zdb014rm.b30
		if hdk
			oc b30_font.caf
			ex 129 12
			ex 129 20
			cc
			cp zdb012rm.b30
			cp zdb020rm.b30
		fi

		if addfonts
			if ! vl PUBLISHE.R6
				re
					[[Insert Master Disk 6|into drive A:][ OK ]
				un vl PUBLISHE.R6
			fi

			oc b30_font.caf

			** Autumn
			ex 52 28
			cc
			cp atm028rm.b30
			
			if big
				oc b30_font.caf
				ex 52 36
				cc
				cp atm036rm.b30
			fi

			** Brushwood
			oc b30_font.caf
			ex 150 28
			cc
			cp brw028it.b30

			if big
				oc b30_font.caf
				ex 150 36
				cc
				cp brw036it.b30
			fi

			** Sans
			oc b30_font.caf
			ex 2 28
			cc

			cp san028rm.b30
			kl
			oc b30_font.caf

			** Diamond
			ex 151 28
			cc 
			cp dia028rm.b30

			if big
				oc b30_font.caf
				ex 151 36
				cc
				cp dia036rm.b30
			fi

			** Sage
			oc b30_font.caf
			ex 152 28
			cc
			cp sge028rm.b30
			oc b30_font.caf
			ex 152 36
			cc
			cp sge036rm.b30

			kl
			** Serif
			oc b30_font.caf
			ex 14 28

			cc

			cp srf028rm.b30
		fi
		kl
		** Install the printer driver

		if pdgq300
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld gq3500.b30
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp gq3500.b30
			ad gq3500.b30 ; Epson GQ driver at 300 dpi
			as san007rm.b30
			as san010rm.b30
			as san012rm.b30
			as san014rm.b30
			as san020rm.b30
			as srf007rm.b30
			as srf010rm.b30
			as srf012rm.b30
			as srf014rm.b30
			as srf020rm.b30
			if hdk
				if big
					as san036rm.b30
					as srf036rm.b30
				fi
			fi
			if hdk
				as atm010rm.b30
				as atm020rm.b30
				as brw007it.b30
				as brw010it.b30
				as brw012it.b30
				as brw014it.b30
				as brw020it.b30
				as cou007rm.b30
				as cou010rm.b30
				as cou012rm.b30
				as cou014rm.b30
				as cou020rm.b30
				as dia010rm.b30
				as dia020rm.b30
				as dle018rm.b30
				as rck010rm.b30
				as sge010rm.b30
				as sge020rm.b30
				as zdb020rm.b30
			fi
			as dle010rm.b30
			as rck018rm.b30
			as zdb007rm.b30
			as zdb010rm.b30
			as zdb012rm.b30
			as zdb014rm.b30
			if addfonts
				as atm028rm.b30
				as brw028it.b30
				as dia028rm.b30
				as san028rm.b30
				as sge028rm.b30
				as sge036rm.b30
				as srf028rm.b30
				if big
					as atm036rm.b30
					as brw036it.b30
					as dia036rm.b30
				fi
			fi
		fi
		if pdlj300
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld hplj2.b30
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp hplj2.b30 hplj2.b30
			ad hplj2.b30 ; HP Laserjet driver at 300 dpi
			as san007rm.b30
			as san010rm.b30
			as san012rm.b30
			as san014rm.b30
			as san020rm.b30
			as srf007rm.b30
			as srf010rm.b30
			as srf012rm.b30
			as srf014rm.b30
			as srf020rm.b30
			if hdk
				if big
					as san036rm.b30
					as srf036rm.b30
				fi
			fi
			if hdk
				as atm010rm.b30
				as atm020rm.b30
				as brw007it.b30
				as brw010it.b30
				as brw012it.b30
				as brw014it.b30
				as brw020it.b30
				as cou007rm.b30
				as cou010rm.b30
				as cou012rm.b30
				as cou014rm.b30
				as cou020rm.b30
				as dia010rm.b30
				as dia020rm.b30
				as dle018rm.b30
				as rck010rm.b30
				as sge010rm.b30
				as sge020rm.b30
				as zdb020rm.b30
			fi
			as dle010rm.b30
			as rck018rm.b30
			as zdb007rm.b30
			as zdb010rm.b30
			as zdb012rm.b30
			as zdb014rm.b30
			if addfonts
				as atm028rm.b30
				as brw028it.b30
				as dia028rm.b30
				as san028rm.b30
				as sge028rm.b30
				as sge036rm.b30
				as srf028rm.b30
				if big
					as atm036rm.b30
					as brw036it.b30
					as dia036rm.b30
				fi
			fi
		fi

		if pddj300
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld hpdj.b30
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp hpdj.b30
			ad hpdj.b30 ; HP Deskjet driver at 300 dpi
			as san007rm.b30
			as san010rm.b30
			as san012rm.b30
			as san014rm.b30
			as san020rm.b30
			as srf007rm.b30
			as srf010rm.b30
			as srf012rm.b30
			as srf014rm.b30
			as srf020rm.b30
			if hdk
				if big
					as san036rm.b30
					as srf036rm.b30
				fi
			fi
			if hdk
				as atm010rm.b30
				as atm020rm.b30
				as brw007it.b30
				as brw010it.b30
				as brw012it.b30
				as brw014it.b30
				as brw020it.b30
				as cou007rm.b30
				as cou010rm.b30
				as cou012rm.b30
				as cou014rm.b30
				as cou020rm.b30
				as dia010rm.b30
				as dia020rm.b30
				as dle018rm.b30
				as rck010rm.b30
				as sge010rm.b30
				as sge020rm.b30
				as zdb020rm.b30
			fi
			as dle010rm.b30
			as rck018rm.b30
			as zdb007rm.b30
			as zdb010rm.b30
			as zdb012rm.b30
			as zdb014rm.b30
			if addfonts
				as atm028rm.b30
				as brw028it.b30
				as dia028rm.b30
				as san028rm.b30
				as sge028rm.b30
				as sge036rm.b30
				as srf028rm.b30
				if big
					as atm036rm.b30
					as brw036it.b30
					as dia036rm.b30
				fi
			fi
		fi

		if pdslm
			if ! vl PUBLISHE.R3

				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld slm.b30
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp slm.b30
			ad slm.b30 ; Atari SLM 605/804 driver
			as san007rm.b30
			as san010rm.b30
			as san012rm.b30
			as san014rm.b30
			as san020rm.b30
			as srf007rm.b30
			as srf010rm.b30
			as srf012rm.b30
			as srf014rm.b30
			as srf020rm.b30
			if hdk
				if big
					as san036rm.b30
					as srf036rm.b30
				fi
			fi
			if hdk
				as atm010rm.b30
				as atm020rm.b30
				as brw007it.b30
				as brw010it.b30
				as brw012it.b30
				as brw014it.b30
				as brw020it.b30
				as cou007rm.b30
				as cou010rm.b30
				as cou012rm.b30
				as cou014rm.b30
				as cou020rm.b30
				as dia010rm.b30
				as dia020rm.b30
				as dle018rm.b30
				as rck010rm.b30
				as sge010rm.b30
				as sge020rm.b30
				as zdb020rm.b30
			fi
			as dle010rm.b30
			as rck018rm.b30
			as zdb007rm.b30
			as zdb010rm.b30
			as zdb012rm.b30
			as zdb014rm.b30
			if addfonts
				as atm028rm.b30
				as brw028it.b30
				as dia028rm.b30
				as san028rm.b30
				as sge028rm.b30
				as sge036rm.b30
				as srf028rm.b30
				if big
					as atm036rm.b30
					as brw036it.b30
					as dia036rm.b30
				fi
			fi
		fi

	fi

	if pdsq or pdnec360 or pdbj360
		if hdk
				if ! vl PUBLISHE.R7
					re
						[[Insert Master Disk 7|into drive A:][ OK ]
					un vl PUBLISHE.R7
				fi
				oc b36_font.caf
		
				** Autumn
				ex 52 20
	
				** Brushwood
				ex 150 10
				ex 150 12
				ex 150 14
				cc

				cp atm020rm.b36
				cp brw010it.b36
				cp brw012it.b36
				cp brw014it.b36

				oc b36_font.caf
		
				ex 150 20
				cc
				cp brw020it.b36
		fi
		cc
		if ! vl PUBLISHE.R7
			re
				[[Insert Master Disk 7|into drive A:][ OK ]
			un vl PUBLISHE.R7
		fi
		oc b36_font.caf
		
		** Drury Lane

		ex 64 9
		ex 64 15

		** Rockface

		ex 42 9
		ex 42 15
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp dle009rm.b36
		cp dle015rm.b36
		cp rck009rm.b36
		cp rck015rm.b36
		kl
		if ! vl PUBLISHE.R7
			re
				[[Insert Master Disk 7|into drive A:][ OK ]
			un vl PUBLISHE.R7
		fi
		oc b36_font.caf

		if hdk
				** Courier
				ex 102 7
				ex 102 10
				ex 102 12
				ex 102 14
				cc
				cp cou007rm.b36
				cp cou010rm.b36
				cp cou012rm.b36
				cp cou014rm.b36
					oc b36_font.caf
					ex 102 20
					cc
					cp cou020rm.b36

				** Diamond
				oc b36_font.caf
				ex 151 20
				**ex 151 72
				cc
				cp dia020rm.b36
			**	cp dia072rm.b36
		fi
		kl

		if ! vl PUBLISHE.R7
			re
				[[Insert Master Disk 7|into drive A:][ OK ]
			un vl PUBLISHE.R7
		fi
		oc b36_font.caf

		** Sans
		ex 2 7
		ex 2 10
		ex 2 12
		ex 2 14

		if hdk
				** Sage
				ex 152 20
		fi
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp san007rm.b36
		cp san010rm.b36
		cp san012rm.b36
		cp san014rm.b36
		if hdk
				cp sge020rm.b36
		fi
	
		if ! vl PUBLISHE.R7
			re
				[[Insert Master Disk 7|into drive A:][ OK ]
			un vl PUBLISHE.R7
		fi
		oc b36_font.caf

		** Serif
		ex 14 7
		ex 14 10
		ex 14 12
		ex 14 14

		** Zapf Dingbats
		ex 129 7
		ex 129 10
		ex 129 12
		if hdk
			ex 129 14
			ex 129 20
		fi
		cc

		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp srf007rm.b36
		cp srf010rm.b36
		cp srf012rm.b36
		cp srf014rm.b36
		cp zdb007rm.b36
		cp zdb010rm.b36
		cp zdb012rm.b36
		if hdk
			cp zdb014rm.b36
			cp zdb020rm.b36
				oc b36_font.caf
				ex 2 20
				cc 
				cp san020rm.b36
			oc b36_font.caf
			ex 14 20
			cc
			cp srf020rm.b36
		fi
		kl
		if addfonts
			oc b36_font.caf

			** Autumn
			ex 52 24
			cc
			cp atm024rm.b36

			if big
				oc b36_font.caf
				ex 52 28
				cc
				cp atm028rm.b36
			fi

			** Brushwood
			if big
				oc b36_font.caf
				ex 150 28
				cc
				cp brw028it.b36
			fi

			oc b36_font.caf

			** Diamond
			ex 151 24
			cc
			cp dia024rm.b36

			if big
				oc b36_font.caf
				ex 151 28
				cc
				cp dia028rm.b36
			fi

			oc b36_font.caf

			** Sans
			oc b36_font.caf
			ex 2 24
			cc
			cp san024rm.b36
			if big
				oc b36_font.caf
				ex 2 28
				cc
				cp san028rm.b36
			fi

			oc b36_font.caf
			** Sage
			ex 152 24
			cc
			cp sge024rm.b36
			kl
			** Sage

			** Serif
			oc b36_font.caf
			ex 14 24
			if big
				ex 14 28
				ex 152 28
			fi
			cc
			if big
				cp sge028rm.b36
				cp srf028rm.b36
			fi
			cp srf024rm.b36
			if big
				cp srf028rm.b36
			fi
		fi
		kl
		if pdsq
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld epsonsq.b36
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp epsonsq.b36
			ad epsonsq.b36 ; Epson SQ driver at 360 dpi
			as san007rm.b36
			as san010rm.b36
			as san012rm.b36
			as san014rm.b36
			as srf007rm.b36
			as srf010rm.b36
			as srf012rm.b36
			as srf014rm.b36
			if hdk
					as atm020rm.b36
					as brw010it.b36
					as brw012it.b36
					as brw014it.b36
					as brw020it.b36
					as cou007rm.b36
					as cou010rm.b36
					as cou012rm.b36
					as cou014rm.b36
					as cou020rm.b36
					as dia020rm.b36
					as san020rm.b36
					as srf020rm.b36
			fi
			as dle009rm.b36
			as dle015rm.b36
			as rck009rm.b36
			as rck015rm.b36
			if hdk
				as sge020rm.b36
			fi
			as zdb007rm.b36
			as zdb010rm.b36
			as zdb012rm.b36
			as zdb014rm.b36
			if hdk
				as zdb020rm.b36
			fi
			if addfonts
				as atm024rm.b36
				as atm028rm.b36
				as brw028it.b36
				as dia024rm.b36
				as dia028rm.b36
				as san024rm.b36
				as san028rm.b36
				as sge024rm.b36
				as sge028rm.b36
				as srf024rm.b36
				as srf028rm.b36
			fi
		fi

		if pdnec360
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld necp.b36
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp necp.b36
			ad necp.b36 ; NEC P-series driver at 360 dpi
			as san007rm.b36
			as san010rm.b36
			as san012rm.b36
			as san014rm.b36
			as srf007rm.b36
			as srf010rm.b36
			as srf012rm.b36
			as srf014rm.b36
			if hdk
					as atm020rm.b36
					as brw010it.b36
					as brw012it.b36
					as brw014it.b36
					as brw020it.b36
					as cou007rm.b36
					as cou010rm.b36
					as cou012rm.b36
					as cou014rm.b36
					as cou020rm.b36
					as dia020rm.b36
					as san020rm.b36
					as srf020rm.b36
			fi
			as dle009rm.b36
			as dle015rm.b36
			as rck009rm.b36
			as rck015rm.b36
			if hdk
				as sge020rm.b36
			fi
			as zdb007rm.b36
			as zdb010rm.b36
			as zdb012rm.b36
			as zdb014rm.b36
			if hdk
				as zdb020rm.b36
			fi
			if addfonts
				as atm024rm.b36
				as atm028rm.b36
				as brw028it.b36
				as dia024rm.b36
				as dia028rm.b36
				as san024rm.b36
				as san028rm.b36
				as sge024rm.b36
				as sge028rm.b36
				as srf024rm.b36
				as srf028rm.b36
			fi
		fi

		if pdbj360
			if ! vl PUBLISHE.R3
				re
					[[Insert Master Disk 3|into drive A:][ OK ]
				un vl PUBLISHE.R3
			fi
			ld bj10e.b36
			if ! hdk
				if onef
					[[Insert your disk labelled|FONTS DISK in D:][ OK ]
				fi
				de d:\gemsys
			fi
			cp bj10e.b36
			ad bj10e.b36 ; Canon Bubblejet driver at 360 dpi
			as san007rm.b36
			as san010rm.b36
			as san012rm.b36
			as san014rm.b36
			as srf007rm.b36
			as srf010rm.b36
			as srf012rm.b36
			as srf014rm.b36
			if hdk
					as atm020rm.b36
					as brw010it.b36
					as brw012it.b36
					as brw014it.b36
					as brw020it.b36
					as cou007rm.b36
					as cou010rm.b36
					as cou012rm.b36
					as cou014rm.b36
					as cou020rm.b36
					as dia020rm.b36
					as san020rm.b36
					as srf020rm.b36
			fi
			as dle009rm.b36
			as dle015rm.b36
			as rck009rm.b36
			as rck015rm.b36
			if hdk
				as sge020rm.b36
			fi
			as zdb007rm.b36
			as zdb010rm.b36
			as zdb012rm.b36
			as zdb014rm.b36
			if hdk
				as zdb020rm.b36
			fi
			if addfonts
				as atm024rm.b36
				as atm028rm.b36
				as brw028it.b36
				as dia024rm.b36
				as dia028rm.b36
				as san024rm.b36
				as san028rm.b36
				as sge024rm.b36
				as sge028rm.b36
				as srf024rm.b36
				as srf028rm.b36
			fi
		fi

	fi

	if pdpost
		if ! vl PUBLISHE.R3
			re
				[[Insert Master Disk 3|into drive A:][ OK ]
			un vl PUBLISHE.R3
		fi
		ld pscript.sys
		ap publish.psp
		if ! hdk
			if onef
				[[Insert your disk labelled|FONTS DISK in D:][ OK ]
			fi
			de d:\gemsys
		fi
		cp pscript.sys
		ad pscript.sys ; PostScript driver
		if hdk
			de d:\publish
		fi
		if ! hdk
			[[Insert your disk labelled|STARTUP DISK in Drive D:][ OK ]
			de d:\
		fi
		cp publish.psp
	fi

	if hdk
		de d:\
		wa c:\assign.sys
	fi

	if ! hdk
		[[Insert your disk labelled|STARTUP DISK in Drive A:][ OK ]
		wa a:\assign.sys
	fi

	[[Publisher 2.0 installation|completed.][ OK ]
	[[Before you can successfully|run Timeworks Publisher 2.0|you must reboot your machine|so that GDOS is re-installed|and then run FONTWID.APP.][ OK ]
fi