; $VER: startup-sequence 39.9 (9.8.92)

C:SetPatch QUIET
;C:Version >NIL:
;C:AddBuffers >NIL: DF0: 15
FailAt 21

C:MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
C:Copy >NIL: ENVARC: RAM:ENV ALL NOREQ

;Resident >NIL: C:Assign PURE
;Resident >NIL: C:Execute PURE

Assign >NIL: ENV: RAM:ENV
Assign >NIL: T: RAM:
;Assign >NIL: CLIPS: RAM:Clipboards
;Assign >NIL: REXX: S:
;Assign >NIL: PRINTERS: DEVS:Printers
;Assign >NIL: KEYMAPS: DEVS:Keymaps
;Assign >NIL: LOCALE: SYS:Locale
;Assign >NIL: LIBS: SYS:Classes ADD
;Assign >NIL: HELP: LOCALE:Help DEFER

;IF NOT EXISTS SYS:Fonts
;  Assign FONTS:
;EndIF

;BindDrivers
;C:Mount >NIL: DEVS:DOSDrivers/~(#?.info)
;
;IF EXISTS DEVS:Monitors
;  IF EXISTS DEVS:Monitors/VGAOnly
;    DEVS:Monitors/VGAOnly
;  EndIF
;
;  C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT "DEVS:Monitors/%s"
;  Execute T:M
;  C:Delete >NIL: T:M
;EndIF

;SetEnv Workbench $Workbench
;SetEnv Kickstart $Kickstart
;UnSet Workbench
;UnSet Kickstart

C:IPrefs

;C:ConClip

;Path >NIL: RAM: C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:WBStartup SYS:Tools SYS:Tools/Commodities

;IF EXISTS S:User-Startup
;  Execute S:User-Startup
;EndIF

;Resident Execute REMOVE
;Resident Assign REMOVE

Showconfig
wait 10

set choice=`requestchoice "Diagnostics Request" "Configuration" "Standard|Unknown"`

if $choice eq "1"
atsi a1200-ICL-KC
else
if $choice eq "0"
atsi a1200-ICL-UC
else
endif
endif
C:LoadWB
EndCLI >NIL: