/*
        apps.cmd:
        this uses WIC.EXE to create an archive called
        apps.wpi, containing some of the games in \OS2\APPS
        on your boot drive.

        Note that this requires that you have some
        3 MB of free space on your boot drive.

        You can then start WARPIN.EXE to apps the
        archive decompression.

        (W)(C) 1999 Ulrich M”ller.
*/
origdir = directory();
call directory "..";
curdir = directory();
dlldir = GetBootDrive()||"\OS2\APPS";

'SET BEGINLIBPATH='curdir;

"del apps.wpi";

call directory dlldir;

/* package 1: Mahjongg */
curdir"\wic.exe "origdir"\apps -a 1 tile*.dll mahjongg.* cardsym.fon *.mah";
/* package 2: Klondike */
curdir"\wic.exe "origdir"\apps -a 2 klondike.exe";
/* package 5: sounds */
curdir"\wic.exe "origdir"\apps -a 5 *.wav";
'cd ..\dll'
/* package 6: dlls */
curdir"\wic.exe "origdir"\apps -a 6 *.dll";

call directory curdir;

/* add script */
curdir"\wic.exe "origdir"\apps -s "origdir"\apps.wis"

call directory origdir;

exit;

GetBootDrive: procedure
    parse upper value VALUE( "PATH",, "OS2ENVIRONMENT" ) with "\OS2\SYSTEM" -2 boot_drive +2
return boot_drive