CompuServe Thread

Roy, here's mine, it's in two pieces, with some commenting. S:Startup-sequence and then S:StartupII Run >NIL: C:MoveSSP ; Move the system stack to fast ram SetPatch >NIL: NoClick3.5 ; Stop the drive from that infernal clicking setcpu FASTROM CACHE BURST CARDROM s:CardRomList Addbuffers df0: 20 ; Buffer the floppy drive cd c: ; This will speed up some of the next commands echo "A500/A2000 Workbench disk. Release 1.32 version 34.28*N" Sys:System/FastMemFirst ; move C00000 memory to last in list SetClock load ;load system time from real time clock FF >NIL: -0 ;speed up Text resident CLI L:Shell-Seg SYSTEM pure add ; activate Shell resident c:Execute pure mount newcon: failat 11 run C:execute s:StartupII ;This lets resident be used for rest of script wait >NIL: 5 mins ;wait for StartupII to complete (will signal when done) Sys:System/SetMap usa1 ;Activate the ()/* on keypad C:path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench ss ~la C:XITLoadWB ; Does a modified LoadWB for Scripit use C:LoadWB ; Now do the LoadWB C:NewShell "NewCon:0/151/360/49/Shell" ; Put a shell at the bottom of screen Run >NIL: C:bgbrowser ; Put browser on the screen next to shell C:Switcher ; Run Switcher C:FR_Bypass ; Bypass the ARP file requester and use Khalid's. Inject ; Load Khalid's File Injecter endcli >NIL: Now, S: StartupII: FailAt 10 ; First stuff is standard CBM resident c:Resident pure resident c:List pure ;pre-load LIST and CD resident c:CD pure resident c:Mount pure ;the next 3 are loaded for speed during startup resident c:Assign pure resident c:Makedir pure ; makedir ram:t copy dh0:disk.info ram:disk.info assign T: ram:t ;set up T: directory for scripts makedir ram:env ; set up ENV: directory assign ENV: ram:env makedir ram:clipboards ;set up CLIPS: assign assign CLIPS: ram:clipboards [ MORE ]