
IF Windows
  Do SetupWindows
EndIF
Dialog
  .cBeginning the WordPerfect 6.0 for DOS Demonstration Installation.
EndDialog
Do Install
Do ByeBye

Procedure Install
  QueAllFiles
 DetermineInstallationDrive RequireFixed QueSize
 DetermineInstallationDirectory InstallationDrive:\WP6DEMO QueSize
  GetQuedFiles
    CopyFiles from [InstallFromDrive]:\
      readme.txt
    EndcopyFiles

  IF Windows
    Dialog [YesOrNo1]
      Would you like to place the demo in a Windows program group?
    EndDialog
    If [YesOrNo1] = Y
    BuildProgramGroup "WordPerfect 6.0 for DOS Demo" wpdos.grp
    [InstallationDirectory]\DEMO.BAT "WordPerfect 6.0 for DOS Demo" [Installatio
    EndBuildProgramGroup
    Else
      Dialog PressAKey WhiteOnBrown

        To run the demo, choose Run from the File Menu and execute ASD.EXE
      EndDialog
    EndIf
  EndIF
EndProcedure


Procedure ByeBye
  IF Windows
    Dialog PressAKey WhiteOnBrown
      WordPerfect 6.0 for DOS Demonstration
      installation completed.
    EndDialog
  ELSE
    SetScreenAttrTo BlackOnBlack
    ClearScreen
    OSCommand InstallationDrive: NoPrompt
    OSCommand CD [InstallationDirectory] NoPrompt

  Run ASD.EXE SwapOut NoPrompt
  Dialog

  To Run the demo again, type DEMO then press the ENTER key.

  EndDialog
  EndIF
EndProcedure
EndScript

Procedure SetupWindows
  SetTopLineTo INSTALLING WORDPERFECT 6.0 FOR DOS DEMO  (Press Esc to exit)
  If FreeSpaceOnDrive ShadowDirectory < 25000
   PopUp There is insufficient space on the TEMP drive for installation.
   SoLong
  EndIf
  SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  SetDefaultBitmap OFF
  ShowWindow Maximized
EndProcedure


