; Startup sequence for Hard Disk users...checks for hard disk, then
; transfers control if it is present. (The script assumes DH2:)
;
C:SetPatch QUIET
C:BindDrivers

C:Assign >NIL: DH2: EXISTS
IF NOT WARN
  ; hard disk is present
  C:Assign SYS: DH2:
  C:Assign C: SYS:C
  C:Assign L: SYS:L
  C:Assign FONTS: SYS:Fonts
  C:Assign S: SYS:S
  C:Assign DEVS: SYS:Devs
  C:Assign LIBS: SYS:Libs
  C:MakeDir RAM:TR
  C:Assign T: RAM:TR
  C:Execute S:Startup-Sequence
Else
  ; no hard disk
  Echo "Hard drive DH2: not found!"
EndIF
