Short: StartUp-Check if any Disk present then start BootUte V1.1 SourceCode Oberon-2 Author: martintauchmann@hotmail.de (Martin Tauchmann) Uploader: martintauchmann hotmail de (Martin Tauchmann) Type: util/boot Architecture: m68k-amigaos IsInserted V1.1 is a small program to return a number (5=warn) if a disk is present in the selected LogicalDevice (DF0:). You HardDisk will boot forever (in opposit you use ´Early boot control´) and you can choose the action if a DiskIsInserted with a script. 1. Copyright No comercial use without permission of the Author 2. Address Martin Tauchmann Scheffelstr. 49 79102 Freiburg in Breisgau - Germany EMail-Address: martintauchmann@hotmail.de 3. Usage PATH ((A)lways required) : DF0:, T:, HD99:) Insert this after SetPatch in s:StartUp-Sequence ; ChkDsk V1.1 ---- START ---- Made By Martin Tauchmann 18.02.1998 ; HD BootPri set with HDToolBox to +73 ; need ENV: for BootUte ; need t: for RequestChoice SYS:CNewInstalled/IsInserted DF0: IF NOT WARN ;Diskette im Laufwerk ; Echo "Diskette" ;Need ENV: Stack 4096 RUN <>NIL: Devel:Debug/RunOldProg/BootUte/BootUte_2 ;GADGETS="1|2|3|0" SET BootNo `RequestChoice TITLE="Mach was wenn Du kannst?" BODY="Weniger Geräusche.*nGanz alte Disks.*nZu faul fuer BootOptions.*n*nWenn Du normal von Diskette booten willst:*nBenutzt BootOptions (R eset+beide MausTasten)." GADGETS="HardDisk AUS SCHALTEN|Nie mehr von HardDisk booten|Kickstart 1.3|Execute DF0:S/StartUp-Sequence"` IF `GET BootNo` EQ 0 ;Letztes Gadget (Execute DF0:S/StartUp-Sequence) FailAT 28 SYS:WB1.3/SetAmiga >NIL: DF0:/DEVS/System-Configuration ;Assign SYS: C: .. to HD0: ;SYS:CNewInstalled/DefDisk DF0: SYS:CNewInstalled/MoveSys >NIL: DF0: CD DF0: IF NOT EXISTS DF0:Fonts HD0:c/Assign FONTS: Font:FontsNew SYS:Fonts Font:Fonts Font:FontsStore Font:FontsForProgs Font:FontsIntelli Font:FontsPSBitMap Font:FontsPSBitMapNew ENDIF RUN <>NIL: Tools:Disks/Cache/FACCII Tools:Disks/Cache/FACCtion <>NIL: -n 1024 FailAT 10 HD0:c/CPU <>NIL: NOCACHE NOBURST HD0:c/Execute s:StartUp-Sequence ELSE IF `GET BootNo` EQ 1 ;HardDisk Sleep RUN <>NIL: SYS:CNewInstalled/CloseWB 0 Resident <>NIL: C:Addbuffers PURE AddBuffers <>NIL: HD4: -50 AddBuffers <>NIL: HD3: -50 AddBuffers <>NIL: HD2: -50 ;AddBuffers <>NIL: SYS: -50 Resident <>NIL: Addbuffers REMOVE Assign <>NIL: HD4: DISMOUNT Assign <>NIL: HD3: DISMOUNT Assign <>NIL: HD2: DISMOUNT ;Assign <>NIL: SYS: DISMOUNT ;SYS:AllwaysRun/HDOff STOP QUIET RUN <>NIL: SYS:AllwaysRun/HDOff STOP QUIET Wait 9999999 EndCli <>NIL: QUIT 0 ELSE IF `GET BootNo` EQ 2 ;Nie mehr von HardDisk booten RUN <>NIL: Tools:Disks/RDB/NoIDE RUN SYS:AllwaysRun/HDOff STOP Wait 1000 ELSE ;Kickstart 1.3 RUN Tools:Emulators/Kick/SKick GUI ;Tools:Emulators/Kick/SKick devs:Kickstarts/kick34005.A500 ;CHIP Wait 2 RUN SYS:AllwaysRun/HDOff STOP ENDIF ENDIF ENDIF UnSet BootNo QUIT 0 ;ELSE ; Echo "Keine Diskette im Laufwerk" ENDIF ; ChkDsk V1.1 ---- END ---- 4. Other products: Aminet:disk/cache/fda.lha (cheapest, fastest and cleverest Cache-Program) Aminet:mods/slow/BrainBird.lha (Shaman drums to meditate and 14 Ambient NewAge Songs) Aminet:misc/math/TelekomTelefonrechnung.lha (calculater for WG´s) Aminet:gfx/show/ActiveWinPic.lha (Picture on any window, special SHELL!) Aminet:misc/unix/File2Partition.lha (spare memory if LinUX install, stores files direct to HD, Disks or any LogicalDevice) Aminet:pix/anim/ColorFlash.lha (old unintresting hypnotic HAM anim)