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: martintauchmannhotmail.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)

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                 1140    1800  63.3% -lh5- 3d1f Jul  7  1998 IsInserted
[generic]                 1295    2771  46.7% -lh5- 60b6 Jul  7  1998 IsInserted.mod
[generic]                 1773    3663  48.4% -lh5- 1a64 Jul  7  1998 IsInserted.readme
[generic]                 1732    2744  63.1% -lh5- ac16 Jul  7  1998 IsInserted_OS1.1
[generic]                  840    1711  49.1% -lh5- f910 Jul  7  1998 IsInserted_OS1.1.mod
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total         5 files    6780   12689  53.4%            Jul  9  1998