commodore.gen.tr

;ClassicWB Startup-Sequence
;--------------------------
;PeterK Icons 68K 3.1

IF EXISTS LIBS:icon.library
   C:Version >NIL: LIBS:icon.library VERSION 46 REVISION 4 FILE
   IF NOT WARN
      IF EXISTS DEVS:scsi.device
         C:LoadModule DEVS:scsi.device LIBS:icon.library
      ELSE
         C:LoadModule LIBS:icon.library
      EndIF
      SKIP LoadModuleDone
   EndIF
EndIF

IF EXISTS DEVS:scsi.device
   C:LoadModule DEVS:scsi.device
EndIF

LAB LoadModuleDone

C:GetMouseInput LOCAL

IF $MouseInput EQ 1
  Unset MouseInput
  C:SetPatch QUIET
  C:Assign >NIL: ENV: RAM:
  C:Assign >NIL: T: RAM:
  C:Execute S:Maxmem-Sequence
  EndCLI >NIL:
EndIF

IF $MouseInput EQ 2
  Unset MouseInput
  C:Execute S:Bootmenu-Sequence
  EndCLI >NIL:
EndIF

Unset MouseInput

C:SetPatch QUIET

IF EXISTS C:StackAttack
  C:StackAttack
EndIF

C:Version >NIL:
FailAt 21

IF EXISTS SYS:WBstartupD
  C:Rename >NIL: SYS:WBStartup SYS:WBStartupM
  C:Rename >NIL: SYS:WBStartupD SYS:WBStartup
EndIF

Resident >NIL: C:IconX PURE
Resident >NIL: C:WBRun PURE
Resident >NIL: C:Assign PURE
Resident >NIL: C:Execute PURE

IF EXISTS C:HDEnv
  C:MakeDir RAM:T RAM:Clipboards
  Assign >NIL: ENV: SYS:ENV
  C:HDEnv
ELSE
  C:MakeDir RAM:T RAM:Clipboards RAM:ENV RAM:ENV/Sys
  C:Copy >NIL: ENVARC: RAM:ENV ALL NOREQ
  Assign >NIL: ENV: RAM:ENV
EndIF

IF EXISTS C:PatchRAM
  C:PatchRAM
EndIF

IF EXISTS C:TagLiFE
  C:TagLiFE
EndIF

Assign >NIL: T: RAM:T
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

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 Language "english"
SetEnv Workbench $Workbench
SetEnv Kickstart $Kickstart
UnSet Workbench
UnSet Kickstart

C:AddDataTypes REFRESH QUIET
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

IF EXISTS C:StackAttack
  C:StackAttack AUTO
EndIF
C:FastColors

C:LoadWB
EndCLI >NIL: 

;ClassicWB User-Startup
;----------------------
;68K

IF EXISTS C:AntiClick
  C:AntiClick
EndIF

Execute S:Assign-Startup

Assign >NIL: LAUNCH: SYS:System/BMenu/Files
Assign >NIL: JPEGTMP: SYS:T
Assign >NIL: Dopus: A-Programs:DirOpus4

C:Copy >NIL: SYS:S/Ram.info RAM:Disk.info
Run >NIL: C:RamSnap

C:Mount KCON: from DEVS:KingCON-mountlist
C:Mount KRAW: from DEVS:KingCON-mountlist

IF EXISTS C:NewIcons
  Run <>NIL: C:NewIcons
EndIF

IF EXISTS C:BorderBlank
  C:BorderBlank
EndIF

Run >NIL: C:XpkMasterPrefs


;BEGIN AmiTCP/IP
:;assign AmiTCP: System:programs/network
;path AmiTCP:bin add
;
;AmiTCP:bin/umask 022
;AmiTCP:bin/startnet
;END AmiTCP/IP
;BEGIN MUI
if exists "System:MUI"
   assign MUI: "System:MUI"
   if exists MUI:Libs
      assign add LIBS: MUI:Libs
   endif
   if exists MUI:Locale
      assign add LOCALE: MUI:Locale
   endif
   version >nil: exec.library 39
   if not warn
      if exists MUI:Docs
         if exists HELP:dummy ; do not remove
         endif                ; this entry!
         assign add HELP: MUI:Docs
      endif
   endif
endif
;END MUI