.BRA {
.KET }
FAILAT 21

;
;  Install-Prozedur fuer PasTeX 1.3
;
;	Georg Hemann	27-Aug-91
;

ECHO "*N       *e[32mPasTeX 1.3 Previewer-Font Installation*e[31m*N*N"
ECHO "Es gibt drei Mglichkeiten die TeX-Fonts zu installieren:"
ECHO " 1) die Fonts vollstndig auf Festplatte (nach TeX:) zu kopieren,"
ECHO " 2) nur einen kleinen Teil der Fonts auf Festplatte zu kopieren"
ECHO "    und dann die fehlenden Fonts per Fontcaching nach und nach"
ECHO "    von den Font-Disks auf Platte zu kopieren,"
ECHO " 3) jetzt erst mal berhaupt keine Fonts kopieren und alles nur"
ECHO "    ber Fontcaching nach und nach kopieren lassen."
ECHO "    Diese Methode bedarf am Anfang einige Diskettenwechsel, mit"
ECHO "    der Zeit gibt sich das aber."

ECHO "*NSo man genug Plattenplatz hat, ist sicherlich Methode 1) die"
ECHO "bequemste. Reine Floppybesitzer sollten grundstzlich die"
ECHO "3'te Mglichkeit whlen. Bei der Installation auf Disketten"
ECHO "wird auch extra dazu spezielle (ShowDVI|DVIprint).fnt Files"
ECHO "installiert.  Falls Sie einiges an Plattenplatz sparen wollen"
ECHO "ist Mglichkeit 2) wohl die beste.*N"

ASK "*e[7mMchten Sie nach Methode 1) installieren (y/n) ?*e[0m"
IF WARN
  SKIP Method1
ENDIF
ASK "*e[7mMchten Sie nach Methode 2) installieren (y/n) ?*e[0m"
IF WARN
  SKIP Method2
ENDIF
ASK "*e[7mMchten Sie nach Methode 3) installieren (y/n) ?*e[0m"
IF WARN
  SKIP Method3
ENDIF

ECHO "Sie haben es sich wohl nochmal anders berlegt und installieren"
ECHO "lieber gar nichts??"

SKIP end


; ====== Method1 ====================================

LAB Method1

ECHO "*NMethode 1: Alles nach TeX: kopieren."
ASK "*e[7mIst das so richtig (y/n) ?*e[0m"
IF NOT WARN
  ECHO "Installation abgebrochen!"
  QUIT 5
ENDIF

; --


MAKEDIR >NIL: TeX:pk

;
;  Diskettenwechsel... PreviewFonts.1
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.1*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.1:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.1:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.2
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.2*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.2:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.2:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.3
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.3*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.3:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.3:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.4
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.4*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.4:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.4:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.5
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.5*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.5:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.5:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.6
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.6*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.6:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.6:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.7
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.7*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.7:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.7:#? TeX:pk ALL CLONE

;
;  Diskettenwechsel... PreviewFonts.8
;
ECHO "*N*e[32mLegen Sie nun Diskette *"PreviewFonts.8*" ein.*e[31m"
ASSIGN >NIL: TST.{$$}: PreviewFonts.8:
IF FAIL
  ECHO "Haben Sie die Diskette nicht?"
  ECHO "Installation abgebrochen!"
  QUIT 5
ELSE
  ASSIGN TST.{$$}: REMOVE
ENDIF
COPY >NIL: PreviewFonts.8:#? TeX:pk ALL CLONE


ECHO "*NNun sind smtliche PreviewFontsdpi Fonts nach TeX:pk kopiert."


; --

SKIP end



; ====== Method2 ====================================

LAB Method2

ECHO "*NMethode 2: Nur die wichtigsten Fonts nach TeX: kopieren."
ASK "*e[7mIst das so richtig (y/n) ?*e[0m"
IF NOT WARN
  ECHO "Installation abgebrochen!"
  QUIT 5
ENDIF

MAKEDIR >NIL: TeX:pk

; --
MAKEDIR >NIL:	TeX:pk/44
ASSIGN FROM.{$$}:	PreviewFonts.1:44
ASSIGN TO.{$$}:	TeX:pk/44
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/48
ASSIGN FROM.{$$}:	PreviewFonts.1:48
ASSIGN TO.{$$}:	TeX:pk/48
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/53
ASSIGN FROM.{$$}:	PreviewFonts.1:53
ASSIGN TO.{$$}:	TeX:pk/53
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/63
ASSIGN FROM.{$$}:	PreviewFonts.2:63
ASSIGN TO.{$$}:	TeX:pk/63
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/76
ASSIGN FROM.{$$}:	PreviewFonts.2:76
ASSIGN TO.{$$}:	TeX:pk/76
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/83
ASSIGN FROM.{$$}:	PreviewFonts.2:83
ASSIGN TO.{$$}:	TeX:pk/83
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE
ASSIGN FROM.{$$}:	PreviewFonts.3:83
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/91
ASSIGN FROM.{$$}:	PreviewFonts.3:91
ASSIGN TO.{$$}:	TeX:pk/91
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/100
ASSIGN FROM.{$$}:	PreviewFonts.3:100
ASSIGN TO.{$$}:	TeX:pk/100
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/109
ASSIGN FROM.{$$}:	PreviewFonts.3:109
ASSIGN TO.{$$}:	TeX:pk/109
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE
ASSIGN FROM.{$$}:	PreviewFonts.4:109
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/110
ASSIGN FROM.{$$}:	PreviewFonts.4:110
ASSIGN TO.{$$}:	TeX:pk/110
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/120
ASSIGN FROM.{$$}:	PreviewFonts.4:120
ASSIGN TO.{$$}:	TeX:pk/120
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/131
ASSIGN FROM.{$$}:	PreviewFonts.4:131
ASSIGN TO.{$$}:	TeX:pk/131
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/144
ASSIGN FROM.{$$}:	PreviewFonts.5:144
ASSIGN TO.{$$}:	TeX:pk/144
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/173
ASSIGN FROM.{$$}:	PreviewFonts.5:173
ASSIGN TO.{$$}:	TeX:pk/173
COPY >NIL: FROM.{$$}:(cmbx10|cmbx5|cmbx7|cmcsc10|cmex10|cmmi10|cmmi5|cmmi7|cmr10|cmr5).#?      TO.{$$}: CLONE
COPY >NIL: FROM.{$$}:(cmr7|cmsl10|cmss10|cmssbx10|cmssi10|cmsy10|cmsy5|cmsy7|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/207
ASSIGN FROM.{$$}:	PreviewFonts.6:207
ASSIGN TO.{$$}:	TeX:pk/207
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE
ASSIGN FROM.{$$}:	PreviewFonts.7:207
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/249
ASSIGN FROM.{$$}:	PreviewFonts.7:249
ASSIGN TO.{$$}:	TeX:pk/249
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE
ASSIGN FROM.{$$}:	PreviewFonts.8:249
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/299
ASSIGN FROM.{$$}:	PreviewFonts.8:299
ASSIGN TO.{$$}:	TeX:pk/299
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE

; --
MAKEDIR >NIL:	TeX:pk/358
ASSIGN FROM.{$$}:	PreviewFonts.8:358
ASSIGN TO.{$$}:	TeX:pk/358
COPY >NIL: FROM.{$$}:(cmbx10|cmmi10|cmr10|cmsl10|cmss10|cmti10|cmtt10).#? TO.{$$}: CLONE


ASSIGN FROM.{$$}: REMOVE
ASSIGN TO.{$$}:   REMOVE

SKIP end



; ====== Method3 ====================================

LAB Method3

ECHO "*NMethode 3: Nichts kopieren, nur Fontcaching verwenden."
ASK "*e[7mIst das so richtig (y/n) ?*e[0m"
IF WARN
  ECHO "Hier mu nichts installiert werden!"
  ECHO "Die Files *"FontVols*" und *"ShowDVI.fnt*" bzw. *"DVIprint.fnt*""
  ECHO "wurden bereits bei der Installation von PasTeX installiert."
ELSE
  ECHO "Installation abgebrochen!"
  QUIT 5
ENDIF

SKIP end


; ====== end ========================================

LAB end

ECHO "*NDie Installation der Fonts ist damit abgeschlossen."

QUIT 0

