@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