AddBuffers >NIL: DF0: 15
FailAt 21

Resident >NIL: C:Execute PURE ADD

MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/SYS
Copy >NIL: ENVARC: RAM:ENV ALL QUIET NOREQ

Assign ENV: ram:env
Assign T: ram:t ;set up T: directory for scripts
Assign CLIPS: ram:clipboards
Assign KEYMAPS: DEVS:Keymaps
Assign PRINTERS: DEVS:Printers

IF EXISTS SYS:Locale
  Assign LOCALE: SYS:Locale
EndIF

IF EXISTS SYS:Devs/DOSDrivers
  Mount >NIL: SYS:Devs/DOSDrivers/~(#?.info)
EndIF

IF EXISTS SYS:Devs/Monitors
  List >NIL: SYS:Devs/Monitors/~(#?.info) TO T:Monitors LFORMAT "SYS:Devs/Monitors/%s"
  Execute T:Monitors
  Delete >NIL: T:Monitors
EndIF

IPrefs

Echo ""
Echo "*nInstalaĂnÉ disk demoverze BD Editoru 1.3"
Echo "ătĹte soubor ăti mne !!!"
Echo ""

Path RAM: C: SYS:Utilities SYS:System S: ADD

if exists s:user-startup
    execute s:user-startup
endif

Resident >NIL: C:Execute REMOVE

"BD_Editor:BDE/BD Editor"

LoadWB
EndCLI >NIL: