.bra {
.ket }
.key DriveA,DriveB,LhA_path
. This procedure will install the Pro-Board demo software to
. two disks inserted in DF0: and/or DF1: as specified by DriveA and DriveB

IF {DriveA$"Nothing"} EQ "Nothing"
   NEWCLI Con:100/10/477/123/Installation FROM InstallFloppy.usage
   SKIP OutaHere
ENDIF

IF NOT EXISTS {LhA_path$"C:LhA"}
  ReqRequest " LhA must be in the command path. " " OK, it's there now " Quit
  IF NOT WARN
    SKIP OutaHere
  ENDIF
  IF NOT EXISTS {LhA_path$"C:LhA"}
    ReqRequest " LhA MUST be in the command path! " QUIT
    SKIP OutaHere
  ENDIF
ENDIF

IF NOT EXISTS Sys:System/Format
  ReqRequest " FORMAT must be in your Sys:System directory " " OK, it's there now " Quit
  IF NOT WARN
    SKIP OutaHere
  ENDIF
  IF NOT EXISTS Sys:System/Format
    ReqRequest " FORMAT MUST be in your Sys:System directory " QUIT
    SKIP OutaHere
  ENDIF
ENDIF

ReqRequest " This procedure will format {DriveA} " Continue Quit
IF NOT WARN
  SKIP OutaHere
ENDIF

FAILAT 31                  ; Control exits from this batch file
IF NOT EXISTS ProDemoArc:
  ASSIGN ProDemoArc: /     ; Set a source directory for installation
ENDIF

SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo QUICK NOICONS
IF FAIL
  SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveA} NAME Pro-Demo NOICONS
  IF FAIL
    ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
    SKIP OutaHere
  ENDIF
ENDIF

CD {DriveA}
{LhA_path$"C:LhA"} x ProDemoArc:PRODEMO.LHA

ProDemoArc:Install/ReqRequest " Insert second disk in {DriveB} " Ready Quit
IF NOT WARN
  SKIP OutaHere
ENDIF

SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data QUICK NOICONS
IF FAIL
  SYS:System/FORMAT <NIL: >NIL: DRIVE {DriveB} NAME Pro-Data NOICONS
  IF FAIL
    ProDemoArc:Install/ReqRequest " Floppy cannot be formatted " QUIT
    SKIP OutaHere
  ENDIF
ENDIF

CD {DriveB}
{LhA_path$"C:LhA"} x ProDemoArc:PRODATA.LHA

ASSIGN ProDemoArc:


LAB OutaHere
ENDCLI      ; Comment this line if you run from CLI instead of IconX

