Power-Programmierung/CD1.mdf/pascal/library/dos/delite/utils/setup.set

Text File | 1992-04-01 | 21.3 KB | 795 lines

# ****************************************************
# Nach dem Starten  des Setup-Programmes  und dem Ein-
# lesen der Setup-Steuerdatei, wird vom Setup-Programm
# versucht  die  Prozedur  Main  zu  finden  und  aus-
# zuführen.
# ****************************************************

Proc Main
  Clear
  Title "BrainLab deLite Setup Programm                                       Version 2.1"
  # Titelzeile belegen

  Status "Wichtige Informationen"
  Show  "Willkommen"
  Locate 18 17
  Sub NewConfirm
  # Begrüßung ausgeben

  Status ""
  Sub GetDrive&Path
  # Verzeichnis erfragen, in dem der Compiler installiert ist

  Clear
  Show "BeispieleAuspacken"
  Locate 20 15
  GetList 40 2 $BeispieleAuspacken "BeispieleAuspacken"

  Clear
  Sub MakePaths
  # deLite Verzeichnisse erzeugen

  Copy "Setup"
  # README.DOC von der Diskette SETUP kopieren

  Sub SetupDiskAuspacken
  # Erste Diskette auspacken

  If EQUAL $BeispieleAuspacken "Ja" Sub ExamplesDiskAuspacken
  # Zweite Diskette auspacken

  Clear
  Status "Wichtige Informationen"
  Show "Briefing1"
  Locate 18 16
  Sub NewConfirm

  CD $DeLiteDir
End

# ****************************************************

Proc SetupDiskAuspacken
  Clear
  Status "Auspacken der Header-Dateien..."
  SetVar $LzhFileName    "INT"
  SetVar $LzhWorkDir    $DeLiteDir
  SetVar $LzhFileMask    "*.INT"
  Sub ExtractPackedFile
  # Auspacken der INT-Dateien

  Clear
  Status "Auspacken des Disketten-Handbuchs..."
  SetVar $LzhFileName    "DELITE"
  SetVar $LzhWorkDir    $DeLiteDir
  SetVar $LzhFileMask    "DELITE.DOC"
  Sub ExtractPackedFile
  # Auspacken des Disketten-Hanbuchs

  Clear
  Status "Auspacken der TPU-Dateien..."
  SetVar $LzhFileName    "TPU"
  SetVar $LzhWorkDir    $DeliteDir
  SetVar $LzhFileMask    "*.TPU"
  Sub ExtractPackedFile
  # Auspacken der TPUs

  Clear
  Status "Auspacken der Grafiktreiber-Dateien..."
  SetVar $LzhFileName    "DRIVER"
  SetVar $LzhWorkDir    $DriverDir
  SetVar $LzhFileMask    "*.VDI"
  Sub ExtractPackedFile
  # Auspacken der VDIs

  Clear
  Status "Auspacken der Font-Dateien..."
  SetVar $LzhFileName    "FONTS"
  SetVar $LzhWorkDir    $FontDir
  SetVar $LzhFileMask    "*.FNT"
  Sub ExtractPackedFile
  # Auspacken der Fonts

  Clear
  Status "Auspacken der Hilfsprogramm-Dateien..."
  SetVar $LzhFileName    "UTILS"
  SetVar $LzhWorkDir    $DeliteDir
  SetVar $LzhFileMask    "COMPILE.EXE CONVBMP.EXE"
  Sub ExtractPackedFile
  SetVar $LzhFileName    "UTILS"
  SetVar $LzhWorkDir    $DriverDir
  SetVar $LzhFileMask    "WHATDRV.EXE"
  Sub ExtractPackedFile
  # Auspacken der Hilfsprogramme
End

# ****************************************************

Proc WrongExample
  Clear
  WriteLn "   *** Fehler ***"
  WriteLn ""
  Write   "   Setup kann die Diskette 'EXAMPLES' in Laufwerk "
  Write   $InstallDrive
  WriteLn " nicht lesen. Stellen Sie "
  WriteLn "   sicher, daß die richtige  Diskette  eingelegt ist und der Laufwerksschacht "
  WriteLn "   verriegelt ist. Wählen Sie dann 'Fortfahren mit Setup'. "

  Locate 20 10
  Confirm
  Goto ExamplesDiskAuspacken
End

Proc ExamplesDiskAuspacken
  Clear

  Write   "   Legen Sie jetzt die Diskette 'EXAMPLES' in Laufwerk "
  Write   $InstallDrive
  WriteLn " ein und drücken Sie "
  WriteLn "   dann die Eingabe-Taste."

  Locate 20 10
  Sub NewConfirm

  If Not DiskID "EXAMPLES" Goto WrongExample

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu CALC..."
  SetVar $LzhFileName    "CALC"
  SetVar $LzhWorkDir    $CalcDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels Calc

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu DOC1..."
  SetVar $LzhFileName    "DOC1"
  SetVar $LzhWorkDir    $DOC1Dir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels DOC1

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu DXFView..."
  SetVar $LzhFileName    "DXFVIEW"
  SetVar $LzhWorkDir    $DXFViewDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels DXFView

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu Hello..."
  SetVar $LzhFileName    "HELLO"
  SetVar $LzhWorkDir    $HelloDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels Hello

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu MiniTerm..."
  SetVar $LzhFileName    "MINITERM"
  SetVar $LzhWorkDir    $MiniTermDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels MiniTerm

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu Paletti..."
  SetVar $LzhFileName    "PALETTI"
  SetVar $LzhWorkDir    $PalettiDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels Paletti

  Clear
  SetVar $StatusString     "Auspacken der Beispiel-Dateien zu Vin..."
  SetVar $LzhFileName    "VIN"
  SetVar $LzhWorkDir    $VinDir
  SetVar $LzhFileMask    "*.*"
  Sub ExtractExampleFile
  # Auspacken des Beispiels Vin

  Clear
  SetVar $Temp $DriverDir
  Concat $Temp "\"
  Show "GibVideo"
  Locate 5 10
  GetVDI 64 5 $VideoTreiber $Temp

  Clear
  SetVar $IniPath    $CalcDir
  SetVar $IniName    "CALC"
  SetVar $StatusString    "Initialisierungs-Datei für CALC wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für CALC erstellen

  Clear
  SetVar $IniPath    $DOC1Dir
  SetVar $IniName    "DOC1"
  SetVar $StatusString    "Initialisierungs-Datei für DOC1 wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für DOC1 erstellen

  Clear
  SetVar $IniPath    $DXFViewDir
  SetVar $IniName    "DXFVIEW"
  SetVar $StatusString    "Initialisierungs-Datei für DXFView wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für DXFView erstellen

  Clear
  SetVar $IniPath    $HelloDir
  SetVar $IniName    "HELLO"
  SetVar $StatusString    "Initialisierungs-Datei für Hello wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für Hello erstellen

  Clear
  SetVar $IniPath    $MiniTermDir
  SetVar $IniName    "MINITERM"
  SetVar $StatusString    "Initialisierungs-Datei für MiniTerm wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für MiniTerm erstellen

  Clear
  SetVar $IniPath    $PalettiDir
  SetVar $IniName    "PALETTI"
  SetVar $StatusString    "Initialisierungs-Datei für Paletti wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für Paletti erstellen

  Clear
  SetVar $IniPath    $VinDir
  SetVar $IniName    "VIN"
  SetVar $StatusString    "Initialisierungs-Datei für Vin wird erzeugt..."
  Sub CreateIniFile
  # Ini-Datei für Vin erstellen
End

# ****************************************************
# Im Gegensatz zum internen Befehl 'Confirm',  der die
# Auswahl zwischen  Abbrechen  und fortfahren  bietet,
# fordert  NewConfirm  nur  auf,  die Return-Taste  zu
# drücken.   NewConfirm  dient damit haupsächlich  zur
# Bestätigung von Informationen.
# ****************************************************

Proc NewConfirm
   GetList 40 1 $Temp "DieBestätigung"
End

# ****************************************************
# GetDrive&Path fragt über ein Eingabefeld, in welchem
# Verzeichnis sich der Turbo Pascal Compiler befindet.
# Das Verzeichnis,  das vom Benutzer eingegeben  wird,
# oder das aus der Vorbelegung  übernommen wurde, wird
# in der Variablen $DefDir abgelegt.
# ****************************************************

Proc WrongDrive
  # **************************************************
  # Weist darauf  hin, daß das angegebene  Verzeichnis
  # nicht existiert.
  # **************************************************

  Clear
  WriteLn "*** Fehler ***"
  WriteLn " "
  Write   "Das von Ihnen angebene Verzeichnis "
  Write   $DefDir
  WriteLn " existiert nicht."
  WriteLn "Bitte wiederholen Sie Ihre Eingabe."
  Locate 18 15
  Confirm
  Goto GetDrive&Path
End

Proc WrongTurbo
  # **************************************************
  # Weist  darauf  hin, daß der Turbo Pascal  Compiler
  # nicht  in dem  angegebenen  Verzeichnis  zu finden
  # ist.
  # **************************************************

  Clear
  WriteLn "*** Fehler ***"
  WriteLn " "
  Write   "Das von Ihnen angebene Verzeichnis "
  Write   $DefDir
  WriteLn " existiert zwar,"
  WriteLn "Setup konnte aber das Programm TURBO.EXE  nicht in diesem"
  WriteLn "Verzeichnis  finden. Wiederholen  Sie  Ihre  Eingabe  und"
  WriteLn "stellen  Sie sicher,  daß Sie den Turbo  Pascal  Compiler"
  WriteLn "bereits  installiert  haben.  Sollten  Sie Ihren Compiler"
  WriteLn "noch  nicht installiert  habe, so wählen  Sie 'Abbrechen'"
  WriteLn "und rufen nach der Installation erneut das Setup auf"
  Locate 18 15
  Confirm
  Goto GetDrive&Path
End

Proc GetDrive&Path
  Clear
  Show "GetDrive"
  Locate 8 15
  Input $DefDir "C:\TURBO"
  # Compiler-Verzeichnis abholen

  If Not ExistDir $DefDir Goto WrongDrive
  # Verzeichnis existiert nicht

  SetVar $Temp $DefDir
  Concat $Temp "\TURBO.EXE"
  If ExistFile $Temp End
  # Wir haben den Compiler gefunden und kehren zurück
  Goto WrongTurbo
End

# ****************************************************
# MakePaths erzeugt alle für die Installation benötig-
# ten Verzeichnisse  und belegt  je eine Variable  mit
# dem Namen des erzeugten Verzeichnisses.  Die Variab-
# len tragen den Namen der Verzeisnisse  erweitert  um
# 'Dir'.
# ****************************************************

Proc MakePaths
  SetVar $DeLiteDir        $DefDir
  Concat $DeLiteDir        "\DELITE"

  SetVar $CalcDir        $DeLiteDir
  Concat $CalcDir        "\CALC"

  SetVar $DOC1Dir        $DeLiteDir
  Concat $DOC1Dir        "\DOC1"

  SetVar $DriverDir        $DeLiteDir
  Concat $DriverDir        "\DRIVER"

  SetVar $DXFViewDir        $DeLiteDir
  Concat $DXFViewDir        "\DXFVIEW"

  SetVar $FontDir        $DeLiteDir
  ConCat $FontDir        "\FONTS"

  SetVar $HelloDir        $DeLiteDir
  ConCat $HelloDir        "\HELLO"

  SetVar $MiniTermDir        $DeLiteDir
  ConCat $MiniTermDir        "\MINITERM"

  SetVar $PalettiDir        $DeLiteDir
  ConCat $PalettiDir        "\PALETTI"

  SetVar $VinDir        $DeLiteDir
  ConCat $VinDir        "\VIN"

  Status "Erzeugen der deLite Verzeichnisse..."

  If Not ExistDir $DeLiteDir    MkDir $DeLiteDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $CalcDir    MkDir $CalcDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $DOC1Dir    MkDir $DOC1Dir
  Delay 100
  If Not ExistDir $DriverDir    MkDir $DriverDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $DXFViewDir    MkDir $DXFViewDir
  Delay 100
  If Not ExistDir $FontDir    MkDir $FontDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $HelloDir    MkDir $HelloDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $MiniTermDir    MkDir $MiniTermDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $PalettiDir    MkDir $PalettiDir
  Delay 100
  If EQUAL $BeispieleAuspacken "Ja"    If Not ExistDir $VinDir    MkDir $VinDir

  Status ""
End

# ****************************************************
# ExtractPackedFile  packt Dateien aus einer LZH-Datei
# aus.  Vorher müssen die Variablen $LzhWorkDir (Ziel-
# verzeichnis),$LzhFileName (Name des gepackten Files)
# und $LzhFileMask (Name  der auszupackenden  Dateien)
# gesetzt werden.
# ****************************************************

Proc ExtractPackedFile
  SetVar $CommandStr "e /c1 /m1 "
  Concat $CommandStr $LzhFileName
  Concat $CommandStr ".LZH "
  Concat $CommandStr $LzhWorkDir
  Concat $CommandStr "\ "
  Concat $CommandStr $LzhFileMask

  SetVar $ExecName $DeLiteDir
  Concat $ExecName "\LHA.EXE"

  Exec $ExecName $CommandStr
End

# ****************************************************
# ExtractExampleFile  macht  das gleiche  wie Extract-
# PackedFile,  beachtet  aber,  ob die  Variable $Bei-
# spieleAuspacken mit dem String 'Ja' belegt ist.  Zur
# Ausgabe  eines  StatusStrings,   muss  die  Variable
# $StatusString vorher belegt werden.
# ****************************************************

Proc ExtractExampleFile
  If EQUAL $BeispieleAuspacken "Nein" End
  Status $StatusString

  SetVar $CommandStr "e /c1 /m1 "
  Concat $CommandStr $LzhFileName
  Concat $CommandStr ".LZH "
  Concat $CommandStr $LzhWorkDir
  Concat $CommandStr "\ "
  Concat $CommandStr $LzhFileMask

  SetVar $ExecName $DeLiteDir
  Concat $ExecName "\LHA.EXE"

  Exec $ExecName $CommandStr
  Status ""
End

# ****************************************************
# CreateIniFile    erzeugt   eine   deLite   Initiali-
# sierungs-Datei.  Dazu  müssen  vorher  die  Variable
# $IniPath  (Verzeichnis  in das die Datei kommt)  und
# $IniName (Name der Ini-Datei) gesetzt werden.
# ****************************************************

Proc CreateIniFile
  If EQUAL $BeispieleAuspacken "Nein" End
  Status $StatusString

  SetVar $IniFile $IniPath
  Concat $IniFile "\"
  Concat $IniFile $IniName
  Concat $IniFile ".INI"

  OpenFile $IniFile
  WriteLnFile "; Transparenter kann eine Initialisierung nicht sein!"
  WriteLnFile ""
  WriteLnFile "[Paths]"
  WriteLnFile "; Dieser Block enthält die Definitionen der Verzeichnisse"
  WriteLnFile ""

  WriteFile "VDIDir="
  WriteLnFile $DriverDir

  WriteFile "FontDir="
  WriteLnFile $FontDir

  If EQUAL $IniName "DXFVIEW" WriteFile   "DXFDir="
  If EQUAL $IniName "DXFVIEW" WriteLnFile $DXFViewDir

  WriteFile "SwapDir="
  WriteLnFile $IniPath

  WriteLnFile ""
  WriteLnFile "[Hardware]"
  WriteLnFile ""
  WriteFile   "Video="
  WriteLnFile $VideoTreiber
  WriteLnFile "Font=Simplex"

  Transfer "Memory"
  Transfer "Colors"

  If EQUAL $IniName "DXFVIEW"    Transfer "DXFView"
  If EQUAL $IniName "MINITERM"    Transfer "MiniTerm"
  If EQUAL $IniName "PALETTI"    Transfer "Paletti"
  If EQUAL $IniName "VIN"    Transfer "Vin"

  CloseFile

  SetVar $IniFile $IniPath
  Concat $IniFile "\TPC.CFG"

  OpenFile $IniFile

  WriteLnFile "/$A+"            ;Word Align Data
  WriteLnFile "/$R+"            ;Range Check
  WriteLnFile "/$V-"            ;Stict Var String;
  WriteLnFile "/L"            ;Link Buffer Disk
  WriteLnFile "/$B-"            ;Complete Evalutaion
  WriteLnFile "/$X+"            ;Extended Syntax

  WriteFile   "/E"
  WriteLnFile $IniPath            ;EXE und TPU Directory

  WriteFile   "/I"
  WriteLnFile $IniPath            ;Include Directory

  WriteFile   "/U"
  WriteLnFile $DeliteDir        ;Unit Directory

  WriteLnFile "/$M16384,65536,655360"    ;Speichereinstellungen

  WriteFile   $IniPath
  WriteFile   "\"
  WriteFile   $IniName
  WriteLnFile ".PAS"            ;Primary

  CloseFile

  SetVar $Temp $IniFile
  Concat $Temp " "
  Concat $Temp $IniPath
  Concat $Temp "\TURBO.TP"

  SetVar $ExecName $DeLiteDir
  Concat $ExecName "\TPCONFIG.EXE"

  Exec $ExecName $Temp

  Delay 3000
  Status ""
End

# ****************************************************

Screen  Willkommen
   Willkommen  beim automatischen  Setup Programm  zur ShareWare-Version  des
   deLite Toolkits.  Setup wird versuchen,  die zu deLite gehörenden  Dateien
   auf Ihrer Festplatte  zu installieren.   Ausserdem  installiert  Setup auf
   Ihren Wunsch Beispielprogramme,  die mit deLite entwickelt  wurden und die
   als Anleitung für eigene deLite Entwicklungen dienen können.

   Sie müssen dazu wissen, auf welchem DOS Laufwerk  und in welchem Verzeich-
   nis sich Ihr Turbo Pascal Compiler befindet.  Ausserdem müssen Sie angeben
   können, mit welcher Grafik-Karte Ihr Computer ausgestattet  ist, damit die
   Initialisierungs-Dateien  für die schon fertigen Beispiele  erzeugt werden
   können.

   Am unteren  Bilschirmrand erscheinen  Meldungen über  die gerade von Setup
   vorgenommenen Aktionen.
End Screen

Screen GetDrive
   Setup  muss  jetzt  wissen  auf welchem  Laufwerk  sich  Ihr Turbo  Pascal
   Compiler  befindet.   Wenn Sie die Vorgabe 'C:\TURBO'  übernehmen  wollen,
   betätigen Sie einfach die Eingabetaste.
End

Screen GibVideo
   Setup  muss  jetzt  wissen,  mit welcher  Grafik-Karte  Ihr Computer  aus-
   gestattet  ist.  Wählen  sie dazu aus der Liste den zu Ihrer  Grafik-Karte
   passenden   Treiber   mit  den  Pfeiltasten   aus  und  drücken  dann  die
   Eingabe-Taste.
End

Screen BeispieleAuspacken
   Zu dem deLite Toolkit wurden mittlerweile  eine ganze Reihe von Beispielen
   erstellt, die zeigen, wie man auch etwas ungewöhnliche Probleme mit deLite
   lösen  kann.   Teilweise  entstanden   diese  Beispiele  als  Lösungen  zu
   speziellen Anwendungswünschen  die bei der Programmierung unter deLite bei
   Anwendern auftraten.

   Sie können  sich jetzt entscheiden,  ob Sie auch die Beispiel-Dateien  in-
   stallieren  möchten.   Wählen Sie dazu aus der unteren Auswahl-Liste  Ihre
   Entscheidung  mit den Pfeiltasten  aus und drücken  Sie dann  die Eingabe-
   Taste.
End

Screen Briefing1
   DeLite wurde ordnungsgemäß  auf Ihrem Rechner installiert.   Um mit deLite
   eigene  Anwendungen  erstellen  zu können,  MUSS Ihr Turbo Pascal Compiler
   allerdings noch entsprechend konfiguriert werden.  Diese Änderungen können
   von Setup nicht oder nur teilweise selbst durchgeführt  werden.  Die Datei
   README.DOC gibt Hinweise zur Änderung der Einstellungen.

   Falls Sie die mitgelieferten Beispiele installiert haben, können Sie jetzt
   die  Beispielprogramme   DXFView,  Hello,  MiniTerm,   Paletti,  oder  Vin
   ausprobieren. Geben Sie dazu ein.

   CD DXFVIEW oder CD HELLO oder CD MINITERM oder CD PALETTI oder CD VIN
   DXFVIEW         HELLO         MINITERM         PALETTI         VIN
End

# *****************************************************

FileSeg Memory

[memory]
;Die Einträge bestimmen, unter welchen Bedingungen der Memory Manager
;ins EMS oder auf die Platte auslagert, anstatt den Heap zu verwenden

HeapMin=262144                       ;mindestens 256K Heap freilassen
DiskMin=262144                       ;auf Diskette ebenso
EMSPagesMin=4                        ;es sollen 4 Seiten freibleiben
End

# *****************************************************

FileSeg Colors

[colors]
;Hier werden die Farben definiert

; 0   schwarz         8   dunkelgrau
; 1   blau            9   hellblau
; 2   grün           10   hellgrün
; 3   türkis         11   helles türkis
; 4   rot            12   hellrot
; 5   fuchsin        13   helles fuchsinrot
; 6   braun          14   gelb
; 7   hellgrau       15   weiss
End

# ****************************************************

FileSeg Vin

[vin]
; Der erste Eintrag der Kategorie in Hochkommas ist die Bezeichnung, die
; auch in den Dialogen verwendet wird. Der zweite Eintrag ist der
; Dateiname

Kategorie="Italien"      ITALIEN
Kategorie="Frankreich"   FRANCE
Kategorie="Deutschland"  DEUTSCH
Kategorie="Spanien"      SPANIEN
Kategorie="Kalifornien"  USA
Kategorie="Andere"       MISC
End

# ****************************************************

FileSeg Paletti

[Palette]

Color0R=0
Color0G=0
Color0B=0

Color1R=0
Color1G=0
Color1B=42

Color2R=0
Color2G=42
Color2B=0

Color3R=0
Color3G=42
Color3B=42

Color4R=42
Color4G=0
Color4B=0

Color5R=42
Color5G=0
Color5B=42

Color6R=42
Color6G=21
Color6B=0

Color7R=42
Color7G=42
Color7B=42

Color8R=21
Color8G=21
Color8B=21

Color9R=21
Color9G=21
Color9B=63

Color10R=21
Color10G=63
Color10B=21

Color11R=21
Color11G=63
Color11B=63

Color12R=63
Color12G=21
Color12B=21

Color13R=63
Color13G=21
Color13B=63

Color14R=63
Color14G=63
Color14B=21

Color15R=63
Color15G=63
Color15B=63
End

# ****************************************************

FileSeg MiniTerm

[ComPort]
; Hier sind die default Einstellungen für den com port abgespeichert

Device=COM2
; COM1, COM2, COM3, COM4, UserCOM

Baudrate=9600
; 110, 150, 300, 600, 1200, 2400, 4800, 9600, 19200, 38400

Parity=None
; Space, Mark, Odd, Even, None

Databits=8
; 7, 8

Stopbits=1
; 1, 2

Buffer=0
; 0 = 1KB, 1 = 2KB, 2 = 4KB, 3 = 8KB, 4 = 16KB

FIFOMode="Kein"
; kein, Aus, FIFO1, FIFO4, FIFO8, FIFO14

Handshake=2
End

# ****************************************************

FileSeg DXFView

[Autocad]
;Falls keine Section "Tables" in der DXF-Datei enthalten ist, gelten die
;hier angegebenen Werte für die Layer

;      Name   Farbe   Linientyp
LAYER=  0      15     CONTINUOUS
LAYER=  1       2     CONTINUOUS
LAYER=  2       3     CONTINUOUS
LAYER=  3      15     CONTINUOUS
LAYER=  4       5     CONTINUOUS
LAYER=  5       6     CONTINUOUS
LAYER=  6      14     CONTINUOUS
LAYER=  7       7     CONTINUOUS
LAYER=  8       8     CONTINUOUS
LAYER=  9       9     CONTINUOUS
LAYER=  10      10    CONTINUOUS
LAYER=  11      11    CONTINUOUS
LAYER=  12      12    CONTINUOUS
LAYER=  13      13    CONTINUOUS
LAYER=  14      14    CONTINUOUS
LAYER=  15      15    CONTINUOUS
End

# ****************************************************
# Diese   Listendefinition    gehört    zur   Prozedur
# NewConfirm.  Sie  enthält  nur  einen  Eintrag,  der
# Auffordert die Return Taste zur drücken.
# ****************************************************

List DieBestätigung
  "SELECT1" "Weiter mit RETURN"
End

List BeispieleAuspacken
  "Ja"        "Beipiele sollen installiert werden"
  "Nein"    "Beipiele nicht installieren"
End

# *****************************************************

Disk Setup
  "\README.DOC"            $DeLiteDir
  "\LHA.EXE"            $DeLiteDir
  "\TPCONFIG.EXE"        $DeLiteDir
  "\LICENSE.DOC"        $DeLiteDir
End