@pp, post #3
; $VER: Startup-Sequence_HardDrive 47.14 (7.3.2021) ; Startup-Sequence for hard drive systems Version exec.library version 47 >NIL: If Warn LoadModule L:System-Startup ROMUPDATE EndIf SetPatch >NIL: C:BlazeWCP ;------------------- CPU CheckInstall Section ------------------------ FailAt 31 CPU CHECKINSTALL CPUSPEED SPEED=75 >NIL: SET temp1 $RC If VAL $temp1 EQ 30 ECHO "" ASK "Press the RETURN key to resume booting into a restricted system." Execute S:Startup-failsafe QUIT EndIf If VAL $temp1 EQ 5 ECHO "" ASK "Press the RETURN key to resume booting." EndIf UNSET temp1 ;---------------- End of CPU CheckInstall Section -------------------- FailAt 10 Version >NIL: Assign >nil: EXISTS DF0: If not warn AddBuffers DF0: 15 >NIL: EndIf If EXISTS ENVARC: MakeLink RAM:ENV to ENVARC: FORCE Else MakeDir RAM:ENV Endif MakeDir RAM:T RAM:Clipboards Resident C:Assign PURE Assign ENV: RAM:ENV Assign T: RAM:T Assign CLIPS: RAM:Clipboards Assign REXX: S: FailAt 21 Assign PRINTERS: DEVS:Printers Assign KEYMAPS: DEVS:Keymaps Assign LOCALE: SYS:Locale Assign LIBS: SYS:Classes ADD Assign HELP: LOCALE:Help DEFER C:FBlit ;C:Ftext BindDrivers Mount DEVS:DOSDrivers/~(#?.info) LoadMonDrvs >NIL: FailAt 10 SetEnv Language "english" SetEnv Workbench $Workbench SetEnv Kickstart $Kickstart UnSet Workbench UnSet Kickstart AddDataTypes REFRESH QUIET IPrefs ConClip If EXISTS SYS:System/RexxMast SYS:System/RexxMast >NIL: EndIF Path C: SYS:Utilities SYS:Rexxc SYS:System S: SYS:Prefs SYS:Tools SYS:Tools/Commodities MakeLink RAM:Disk.info TO ENVARC:Sys/def_RAM.info SOFT IF EXISTS S:User-Startup Execute S:User-Startup EndIF LoadWB EndCLI >NIL:
; $Date: 2020-09-05 12:00:00 $ $Revision: 47.1 $
; User-startup for hard drive systems
;
;+-------------------------------------------------------------------+
;| This is the User-startup script. Here you can write down the |
;| names of the programs you wish to have automatically run every |
;| time your machine boots. |
;| |
;| Lines starting with the ";" symbol are ignored and used as |
;| comments. |
;+-------------------------------------------------------------------+
;
;BEGIN MUI
if exists "Work:MUI"
assign MUI: "Work: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
;BEGIN MUI ASL
if exists "Work:MUI"
run <>nil: MUI:PatchASL
endif
;END MUI ASL
;BEGIN xfdPatch
xfdPatch >NIL:
;END xfdPatch @Drakon, post #7