English Amiga Board - View Single Post

slk486 · 14 October 2011, 09:57

Here it is:

;ClassicWB Startup-Sequence
;--------------------------
;P96 UAE 3.1

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

C:GetMouseInput LOCAL

IF $MouseInput EQ 1
Unset MouseInput
C:SetPatch QUIET
C:Assign >NIL: ENV: RAM:
run >nil: C:MagicWB-Demon 4,123,123,123 5,175,175,175 6,170,144,124 7,255,169,151 8,0,0,255 ; Don't remove this entry!
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:MuMove4K

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 L:env-handler
C:MakeDir RAM:T RAM:Clipboards
L:env-handler
C:Copy >NIL: ENVARC:Sys/def_kick.info ENV:Sys/def_kick.info
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

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

OSDrivers/~(#?.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

elete >NIL: T:M
EndIF

SetEnv Language "english"
SetEnv Workbench $Workbench
SetEnv Kickstart $Kickstart
UnSet Workbench
UnSet Kickstart

IF EXISTS C:IconBeFast
C:IconBeFast 0
EndIF

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:LoadWB
EndCLI >NIL:

14 October 2011, 09:57	#15
slk486 Registered Looser Join Date: Apr 2010 Location: Denmark Posts: 336	Here it is: ;ClassicWB Startup-Sequence ;-------------------------- ;P96 UAE 3.1 IF EXISTS DEVS:scsi.device C:LoadModule DEVS:scsi.device EndIF C:GetMouseInput LOCAL IF $MouseInput EQ 1 Unset MouseInput C:SetPatch QUIET C:Assign >NIL: ENV: RAM: run >nil: C:MagicWB-Demon 4,123,123,123 5,175,175,175 6,170,144,124 7,255,169,151 8,0,0,255 ; Don't remove this entry! 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:MuMove4K 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 L:env-handler C:MakeDir RAM:T RAM:Clipboards L:env-handler C:Copy >NIL: ENVARC:Sys/def_kick.info ENV:Sys/def_kick.info 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 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: DEVSOSDrivers/~(#?.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 Celete >NIL: T:M EndIF SetEnv Language "english" SetEnv Workbench $Workbench SetEnv Kickstart $Kickstart UnSet Workbench UnSet Kickstart IF EXISTS C:IconBeFast C:IconBeFast 0 EndIF 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:LoadWB EndCLI >NIL: