*************
* Deck "InfoReq"
* Time 16:23:15
* Date 09/06/92
*************

*************
* Card(s) in deck.
*  Card "Info"
*************
* 1 Card(s), 1 were printed.
*************

*************
* Natural order of Cards
*  Card "Info"
*************

*************
* Global Routine(s) in deck.
*  Routine "InfoDF0"
*  Routine "InfoDF1"
*  Routine "InfoDF2"
*  Routine "InfoDH0"
*  Routine "InfoRAM"
*************
* 5 Global routines(s), 5 were printed.
*************

*************
* Card "Info"
	AfterAttachment ; used to be AfterStartup
		SetDrawMode JAM1 
		SetPen 2
		DrawRectangle 20+1,20+1,684,160
		SetPen 1
		DrawRectangle 20,20,684,160
		PrintText "BLOCKS  TOTAL      :",30,60
		PrintText "BLOCKS  BELEGT     :",30,70
		PrintText "BLOCKS  FREI       :",30,80
		PrintText "BYTES   PRO BLOCK  :",30,100
		PrintText "BYTES   TOTAL      :",30,120
		PrintText "BYTES   BELEGT     :",30,130
		PrintText "BYTES   FREI       :",30,140
		PrintText "PROZENT BELEGT     :",30,160
		SetSystemRequesterTo NOWHERE 
		If Exists ("df0:")
			Do "InfoDF0"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df0:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("df1:")
			Do "InfoDF1"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df1:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("df2:")
			Do "InfoDF2"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Keine Diskette im Laufwerk df2:"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		SetSystemRequesterTo NOWHERE 
		If Exists ("ram:")
			Do "InfoRAM"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Kann RAM-Disk: nicht finden"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
		If Exists ("dh0:")
			Do "InfoDH0"
		Else
			SetSystemRequesterTo NOWHERE 
			SetWindowTitle "Kann DH0: nicht finden"
			Delay 0,2,0
			SetWindowTitle "INFO V1.0"
		EndIf
	EndScript
	Window "UserWindow"
		Definition
			Origin 0,33
			Size 724,190
			Title "INFO V1.0 "
			NumberOfColors 4
			WindowColors 0,1,0 ; Detail, Block, Background
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			WindowFlags ACTIVATE TOFRONT 
		EndScript
		OnCloseButton
			Quit
		EndScript
	EndObject
	TextButton "Device"
		Definition
			Origin 30,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " Devices: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "0"
		Definition
			Origin 248,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF0: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "1"
		Definition
			Origin 344,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF1: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "2"
		Definition
			Origin 440,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " DF2: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "r"
		Definition
			Origin 536,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " RAM: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	TextButton "h"
		Definition
			Origin 632,30
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 3,0,NORMAL  ; PenA, PenB, DrawMode
			Text " dh0: "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	Disk "UserDiskObject_1"
		OnRemoved ; when any disk is removed
			SetSystemRequesterTo NOWHERE 
			If Not Exists ("df0:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 204,45,96,122
			EndIf
			If Not Exists ("df1:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 300,45,96,122
			EndIf
			If Not Exists ("df2:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 396,45,96,122
			EndIf
			If Not Exists ("ram:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 492,45,96,122
			EndIf
			If Not Exists ("dh0:")
				SetDrawMode JAM1 
				SetPen 0
				AreaRectangle 588,45,96,122
			EndIf
		EndScript
		OnInserted ; when any disk is inserted
			SetPen 2
			DrawRectangle 20+1,20+1,684,160
			SetPen 1
			DrawRectangle 20,20,684,160
			PrintText "BLOCKS  TOTAL      :",30,60
			PrintText "BLOCKS  BELEGT     :",30,70
			PrintText "BLOCKS  FREI       :",30,80
			PrintText "BYTES   PRO BLOCK  :",30,100
			PrintText "BYTES   TOTAL      :",30,120
			PrintText "BYTES   BELEGT     :",30,130
			PrintText "BYTES   FREI       :",30,140
			PrintText "PROZENT BELEGT     :",30,160
			SetSystemRequesterTo NOWHERE 
			If Exists ("df0:")
				Do "InfoDF0"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df0:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("df1:")
				Do "InfoDF1"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df1:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("df2:")
				Do "InfoDF2"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Keine Diskette im Laufwerk df2:"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			SetSystemRequesterTo NOWHERE 
			If Exists ("ram:")
				Do "InfoRAM"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Kann RAM-Disk: nicht finden"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
			If Exists ("dh0:")
				Do "InfoDH0"
			Else
				SetSystemRequesterTo NOWHERE 
				SetWindowTitle "Kann DH0: nicht finden"
				Delay 0,2,0
				SetWindowTitle "INFO V1.0"
			EndIf
		EndScript
	EndObject
* End of Card "Info"
*************

*************
* Global routine "InfoDF0"
	GetDiskInfo "df0:",NumberOfBlockVar0,NumberUsedVar0,BytesPerBlockVar0
	Let DeviceName0 = ParentOf("DF0:")
	Let UsedBytes0 =NumberUsedVar0 * BytesPerBlockVar0
	Let Block0 =NumberOfBlockVar0 - NumberUsedVar0
	Let Total0 =NumberOfBlockVar0 * BytesPerBlockVar0
	Let Free0 =(NumberOfBlockVar0 - NumberUsedVar0) * BytesPerBlockVar0
	Let Proz0 = 100 * NumberUsedVar0 / NumberOfBlockVar0
	Let Proz0 = FormatValue(Proz0,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(DeviceName0,11),212,45
	PrintText RightJustify(NumberOfBlockVar0,11),212,60
	PrintText RightJustify(NumberUsedVar0,11),212,70
	PrintText RightJustify(Block0,11),212,80
	PrintText RightJustify(BytesPerBlockVar0,11),212,100
	PrintText RightJustify(Total0,11),212,120
	PrintText RightJustify(UsedBytes0,11),212,130
	PrintText RightJustify(Free0,11),212,140
	PrintText RightJustify(Proz0,11),212,160
* End of routine "InfoDF0"
*************

*************
* Global routine "InfoDF1"
	GetDiskInfo "df1:",NumberOfBlockVar1,NumberUsedVar1,BytesPerBlockVar1
	Let DeviceName1 = ParentOf("DF1:")
	Let UsedBytes1 =NumberUsedVar1 * BytesPerBlockVar1
	Let Block1 =NumberOfBlockVar1 - NumberUsedVar1
	Let Total1 =NumberOfBlockVar1 * BytesPerBlockVar1
	Let Free1 =(NumberOfBlockVar1 - NumberUsedVar1) * BytesPerBlockVar1
	Let Proz1 = 100 * NumberUsedVar1 / NumberOfBlockVar1
	Let Proz1 = FormatValue(Proz1,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(DeviceName1,11),308,45
	PrintText RightJustify(NumberOfBlockVar1,11),308,60
	PrintText RightJustify(NumberUsedVar1,11),308,70
	PrintText RightJustify(Block1,11),308,80
	PrintText RightJustify(BytesPerBlockVar1,11),308,100
	PrintText RightJustify(Total1,11),308,120
	PrintText RightJustify(UsedBytes1,11),308,130
	PrintText RightJustify(Free1,11),308,140
	PrintText RightJustify(Proz1,11),308,160
* End of routine "InfoDF1"
*************

*************
* Global routine "InfoDF2"
	GetDiskInfo "df2:",NumberOfBlockVar2,NumberUsedVar2,BytesPerBlockVar2
	Let DeviceName2 = ParentOf("DF2:")
	Let UsedBytes2 =NumberUsedVar2 * BytesPerBlockVar2
	Let Block2 =NumberOfBlockVar2 - NumberUsedVar2
	Let Total2 =NumberOfBlockVar2 * BytesPerBlockVar2
	Let Free2 =(NumberOfBlockVar2 - NumberUsedVar2) * BytesPerBlockVar2
	Let Proz2 = 100 * NumberUsedVar2 / NumberOfBlockVar2
	Let Proz2 = FormatValue(Proz2,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(DeviceName2,11),404,45
	PrintText RightJustify(NumberOfBlockVar2,11),404,60
	PrintText RightJustify(NumberUsedVar2,11),404,70
	PrintText RightJustify(Block2,11),404,80
	PrintText RightJustify(BytesPerBlockVar2,11),404,100
	PrintText RightJustify(Total2,11),404,120
	PrintText RightJustify(UsedBytes2,11),404,130
	PrintText RightJustify(Free2,11),404,140
	PrintText RightJustify(Proz2,11),404,160
* End of routine "InfoDF2"
*************

*************
* Global routine "InfoDH0"
	GetDiskInfo "dh0:",NumberOfBlockVarH0,NumberUsedVarH0,BytesPerBlockVarH0
	Let DeviceNameH0 = ParentOf("DH0:")
	Let UsedBytesH0 =NumberUsedVarH0 * BytesPerBlockVarH0
	Let BlockH0 =NumberOfBlockVarH0 - NumberUsedVarH0
	Let TotalH0 =NumberOfBlockVarH0 * BytesPerBlockVarH0
	Let FreeH0 =(NumberOfBlockVarH0 - NumberUsedVarH0) * BytesPerBlockVarH0
	Let ProzH0 = 100 * NumberUsedVarH0 / NumberOfBlockVarH0
	Let ProzH0 = FormatValue(ProzH0,"###0.00%")
	SetDrawMode JAM2 
	SetPen 2
	PrintText RightJustify(DeviceNameH0,11),569,45
	PrintText RightJustify(NumberOfBlockVarH0,11),569,60
	PrintText RightJustify(NumberUsedVarH0,11),569,70
	PrintText RightJustify(BlockH0,11),569,80
	PrintText RightJustify(BytesPerBlockVarH0,11),569,100
	PrintText RightJustify(TotalH0,11),569,120
	PrintText RightJustify(UsedBytesH0,11),569,130
	PrintText RightJustify(FreeH0,11),569,140
	PrintText RightJustify(ProzH0,11),569,160
* End of routine "InfoDH0"
*************

*************
* Global routine "InfoRAM"
	GetDiskInfo "ram:",NumberOfBlockVarR,NumberUsedVarR,BytesPerBlockVarR
	Let DeviceNameR = ParentOf("RAM:")
	Let UsedBytesR =NumberUsedVarR * BytesPerBlockVarR
	Let BlockR =NumberOfBlockVarR - NumberUsedVarR
	Let TotalR =NumberOfBlockVarR * BytesPerBlockVarR
	Let FreeR =(NumberOfBlockVarR - NumberUsedVarR) * BytesPerBlockVarR
	Let ProzR = 100 * NumberUsedVarR / NumberOfBlockVarR
	Let ProzR = FormatValue(ProzR,"###0.00%")
	SetDrawMode JAM1 
	SetPen 2
	PrintText RightJustify(DeviceNameR,11),500,45
	PrintText RightJustify(NumberOfBlockVarR,11),500,60
	PrintText RightJustify(NumberUsedVarR,11),500,70
	PrintText RightJustify(BlockR,11),500,80
	PrintText RightJustify(BytesPerBlockVarR,11),500,100
	PrintText RightJustify(TotalR,11),500,120
	PrintText RightJustify(UsedBytesR,11),500,130
	PrintText RightJustify(FreeR,11),500,140
	PrintText RightJustify(ProzR,11),500,160
* End of routine "InfoRAM"
*************