Variable      CLP%1,79
Variable      CLP%2,79
Variable      PBFile,79
Variable      StrLen,2
Variable      LastChar,1
Write         "Copy from "
Write         CLP%1
Write         " to "
WriteLine     CLP%2
Length        StrLen,CLP%1            ;get the last char of CLP%1
MidString     LastChar,CLP%1,StrLen,1
Compare       LastChar,"\",,,SrcOK    ;is it a \
Concat        CLP%1,"\"               ;if not then add \
Label         SrcOK
Length        StrLen,CLP%2            ;check last char of CLP%2
MidString     LastChar,CLP%2,StrLen,1
Compare       LastChar,"\",,,DestOK
Concat        CLP%2,"\"
Label         DestOK
Concat        PBFile,CLP%1,"README.1ST"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"PBINSTAL.EXE"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"POWERMAK.EXE"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"SMLMODEL.MDL"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat		  PBFile,CLP%1,"KEYID.EXE"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"POWERBAT.DOC"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"DOSEX1.BAT"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"DEMO1.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"MENU1.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"MOVE1.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"MOVE2.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"BOXDEMO1.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"PBINSTAL.PWR"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"DELETEPB.EXE"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"REGISTER.FRM"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"INVOICE.FRM"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"VENDOR.DOC"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Concat        PBFile,CLP%1,"SYSOP.DOC"
?FileExist    PBFile,,CopyError
COPY          PBFile,CLP%2
Compare       DOSError,0,CopyError
Compare       ErrorLevel,0,CopyError
Halt          0
Label         CopyError
WriteLine     "Copy Not Successful...Aborting"
Beep          850,2
Halt          99