RAM:Echo " "
RAM:Echo " Instalacja programu Polonista na twardym dysku.*N"
RAM:Echo " "
RAM:Echo " "
RAM:Echo "*e[33m UWAGA: Do zainstalowania Polonisty potrzeba okoīo 2.6MB wolnego miejsca! *E[0m*N"
RAM:Echo " "
Ask  " Jeōli chcesz kontynuowaź naciōnij Y, w przeciwnym razie RETURN."
IF NOT WARN
    SKIP endit
ENDIF

Failat 30
RAM:Echo " "
RAM:Echo " "
RAM:Echo " Wybierz partycjė na którā chcesz zainstalowaź Polonistė."
RAM:Echo " np. dh0:, dh1:, Work:Tools, itp."
RAM:Echo " "
Getline >RAM:_POLONISTA

CD <RAM:_POLONISTA >NIL: ?
IF WARN
  RAM:Echo "*e[33m*N*N*N Nieprawidīowa partycja! *N*e[0m"
  SKIP endit
ENDIF
Delete RAM:_POLONISTA QUIET

RAM:Echo "*N Tworzė nowy katalog o nazwie POLONISTA"
RAM:Makedir POLONISTA
RAM:Copy RAM:Drawer.info to POLONISTA.info QUIET
Cd POLONISTA

RAM:Echo "*N Zaczynam instalacjė. Proszė czekaź..."
RAM:Echo " "
                           
RAM:Echo " Instalujė dysk 1..."
RAM:Copy POLONISTA:Polonista to Polonista QUIET
RAM:Copy POLONISTA:Polonista.info to Polonista.info QUIET
RAM:Copy POLONISTA:C/HD to HD QUIET
RAM:Copy POLONISTA:C/Run to C:Run QUIET
RAM:Copy POLONISTA:Fonts/#? to FONTS: ALL QUIET
RAM:Makedir FONTS:Clarkson
RAM:Copy POLONISTA:Fonts/Clarkson/#? to FONTS:Clarkson ALL QUIET
RAM:Makedir FONTS:Tiffany
RAM:Copy POLONISTA:Fonts/Tiffany/#? to FONTS:Tiffany ALL QUIET
RAM:Copy POLONISTA:S/Polonista.cfg to S: QUIET
RAM:Makedir Gfx
RAM:Copy POLONISTA:Gfx/#? to Gfx ALL QUIET
RAM:Makedir Sfx
RAM:Copy POLONISTA:Sfx/#? to Sfx ALL QUIET
RAM:Echo " "
RAM:Echo " Instalujė dysk 2..."
RAM:Makedir Anim
RAM:Copy DANE_1:Anim/#? to Anim ALL QUIET
RAM:Makedir Data
RAM:Copy DANE_1:Data/#? to Data ALL QUIET
RAM:Copy DANE_1:Gfx/#? to Gfx ALL QUIET
RAM:Copy DANE_1:Sfx/#? to Sfx ALL QUIET
RAM:Echo " "
RAM:Echo " Instalujė dysk 3..."
RAM:Copy DANE_2:Anim/#? to Anim ALL QUIET
RAM:Copy DANE_2:Data/#? to Data ALL QUIET
RAM:Copy DANE_2:Sfx/#? to Sfx ALL QUIET
RAM:Makedir Utils
RAM:Copy DANE_2:Utils/#? to Utils ALL QUIET
RAM:Echo " "
RAM:Echo " Instalacja zakoļczona."
RAM:Echo " "
Delete RAM:drawer.info QUIET

Lab endit
RAM:Delete RAM:Echo QUIET
RAM:Delete RAM:Copy QUIET
RAM:Delete RAM:Makedir QUIET
RAM:Delete RAM:Ask QUIET
RAM:Delete RAM:If QUIET
RAM:Delete RAM:Endif QUIET
RAM:Delete RAM:Failat QUIET
RAM:Delete RAM:Getline QUIET
RAM:Delete RAM:Cd QUIET
RAM:Delete RAM:Skip QUIET
RAM:Delete RAM:Lab QUIET
RAM:Delete RAM:Delete QUIET

EndCli >NIL: