home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Exec 5
/
CD_Magazyn_EXEC_nr_5.iso
/
Recent
/
dev
/
basic
/
clockita.lha
/
InstallFont.Execute
< prev
next >
Wrap
Text File
|
2000-05-22
|
1KB
|
50 lines
IF EXISTS FONTS:Data70.font
IF EXISTS FONTS:Data70
IF EXISTS FONTS:Data70/13
Echo "Font already installed."
Wait SECS 1
Skip FINE
EndIF
EndIF
EndIF
SetEnv CopiaRiuscita="True"
Echo "I am copying the file Data70.font in your fonts drawer..."
Wait SECS 1
Copy Fonts/Data70.font FONTS: clone
Wait SECS 1
IF EXISTS FONTS:Data70.font
Echo "Data70.font copied."
Else
SetEnv CopiaRiuscita="False"
Echo "Data70.font not copied."
EndIF
Wait SECS 1
Echo "I am creating the drawer Data70 in your fonts drawer..."
Wait SECS 1
MakeDir FONTS:Data70
Wait SECS 1
IF EXISTS FONTS:Data70
Echo "Data70 drawer created."
Else
SetEnv CopiaRiuscita="False"
Echo "Data70 drawer not created."
EndIF
Wait SECS 1
Echo "I am copying the file 13 in your drawer Data70 in your fonts drawer..."
Wait SECS 1
Copy Fonts/Data70/13 FONTS:Data70
Wait SECS 1
IF EXISTS FONTS:Data70/13
Echo "13 copied."
Else
SetEnv CopiaRiuscita="False"
Echo "13 not copied"
EndIF
Wait SECS 1
IF $CopiaRiuscita EQ "True"
Echo "Data70 font installation completed."
Else
Echo "Data70 font installation not completed."
EndIF
Lab FINE