*************
* Deck "ROLLO-Beispiel"
* Time 16:22:24
* Date 09/06/92
*************

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

*************
* Natural order of Cards
*  Card "Card_1"
*************

*************
* There are no Global routines in this deck.
*************

*************
* Card "Card_1"
	BeforeAttachment ; used to be OnStartup
		LoadSound "buttonclick.8svx"
	EndScript
	AfterAttachment ; used to be AfterStartup
		Global StatusA
		Let StatusA = 1
		Global StatusB
		Let StatusB = 1
		SetPrintFont "topaz",8
		SetPrintStyle PLAIN ,2,3
		SetPen 1,0
		SetDrawMode JAM2 
		If StatusA = 1
			PrintText "Aktion 1",78,33
		EndIf
		If StatusB = 1
			PrintText "Aktion 1",78,53
		EndIf
	EndScript
	Window "UserWindow"
		Definition
			Origin 84,78
			Size 472,100
			Title "Rollo Beispiel"
			NumberOfColors 4
			WindowColors 0,1,0 ; Detail, Block, Background
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			WindowFlags ACTIVATE TOFRONT 
		EndScript
		OnCloseButton
			Quit
		EndScript
	EndObject
	AreaButton "Button_1"
		Definition
			Origin 50,30
			Size 100,13
			Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight COMPLEMENT 
			ButtonFlags NONE 
		EndScript
		OnClick
			PlaySound "buttonclick.8svx"
		EndScript
		OnRelease
			Global StatusA
			Let StatusA = StatusA + 1
			SetPrintFont "topaz",8
			SetPrintStyle PLAIN ,2,3
			SetPen 1,0
			SetDrawMode JAM2 
			If StatusA = 1
				PrintText "Aktion 1",78,33
			ElseIf StatusA = 2
				PrintText "Aktion 2",78,33
			ElseIf StatusA = 3
				PrintText "Aktion 3",78,33
			ElseIf StatusA = 4
				PrintText "Aktion 4",78,33
			ElseIf StatusA = 5
				PrintText "Aktion 5",78,33
			ElseIf StatusA > 5
				Let StatusA = 0
			EndIf
		EndScript
	EndObject
	AreaButton "Button_2"
		Definition
			Origin 50,50
			Size 100,13
			Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight COMPLEMENT 
			ButtonFlags NONE 
		EndScript
		OnClick
			PlaySound "buttonclick.8svx"
		EndScript
		OnRelease
			Global StatusB
			Let StatusB = StatusB + 1
			SetPrintFont "topaz",8
			SetPrintStyle PLAIN ,2,3
			SetPen 1,0
			SetDrawMode JAM2 
			If StatusB = 1
				PrintText "Aktion 1",78,53
			ElseIf StatusB = 2
				PrintText "Aktion 2",78,53
			ElseIf StatusB = 3
				PrintText "Aktion 3",78,53
			ElseIf StatusB = 4
				PrintText "Aktion 4",78,53
			ElseIf StatusB = 5
				PrintText "Aktion 5",78,53
			ElseIf StatusB > 5
				Let StatusB = 0
			EndIf
		EndScript
	EndObject
	TextButton "Button_3"
		Definition
			Origin 170,53
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 1,0,NORMAL  ; PenA, PenB, DrawMode
			Text " OK "
			Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
			Highlight COMPLEMENT 
			ButtonFlags NONE 
		EndScript
		OnClick
			PlaySound "buttonclick.8svx"
		EndScript
		OnRelease
			SetPrintFont "topaz",8
			SetPrintStyle PLAIN ,2,3
			SetPen 3,1
			SetDrawMode JAM2 
			If StatusA = 1
				PrintText " Du hast ""Aktion 1"" des oberen  Buttons aktiviert ",50,70
			Else
				If StatusA = 2
					PrintText " Du hast ""Aktion 2"" des oberen  Buttons aktiviert ",50,70
				Else
					If StatusA = 3
						PrintText " Du hast ""Aktion 3"" des oberen  Buttons aktiviert ",50,70
					Else
						If StatusA = 4
							PrintText " Du hast ""Aktion 4"" des oberen  Buttons aktiviert ",50,70
						Else
							If StatusA = 5
								PrintText " Du hast ""Aktion 5"" des oberen  Buttons aktiviert ",50,70
							EndIf
						EndIf
					EndIf
				EndIf
			EndIf
			If StatusB = 1
				PrintText " Du hast ""Aktion 1"" des unteren Buttons aktiviert ",50,79
			Else
				If StatusB = 2
					PrintText " Du hast ""Aktion 2"" des unteren Buttons aktiviert ",50,79
				Else
					If StatusB = 3
						PrintText " Du hast ""Aktion 3"" des unteren Buttons aktiviert ",50,79
					Else
						If StatusB = 4
							PrintText " Du hast ""Aktion 4"" des unteren Buttons aktiviert ",50,79
						Else
							If StatusB = 5
								PrintText " Du hast ""Aktion 5"" des unteren Buttons aktiviert ",50,79
							EndIf
						EndIf
					EndIf
				EndIf
			EndIf
		EndScript
	EndObject
	AltTextMenu "Dieter Hildebrandt "
		Definition
			AttachTo MENU ,"von "
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
			Text "Dieter Hildebrandt          "
			AltText "Dies ist echte Public Domain "
			MenuFlags NONE 
			ShortCutKey ""
		EndScript
	EndObject
	AltTextMenu "Schulbrinkstr. 7 "
		Definition
			AttachTo MENU ,"von "
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
			Text "Schulbrinkstr. 7           "
			AltText "Alles fuer KEINEN Pfennig "
			MenuFlags NONE 
			ShortCutKey ""
		EndScript
	EndObject
	AltTextMenu "4992 Espelkamp"
		Definition
			AttachTo MENU ,"von "
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
			Text "4992 Espelkamp             "
			AltText "Um davon lernen zu können "
			MenuFlags NONE 
			ShortCutKey ""
		EndScript
	EndObject
* End of Card "Card_1"
*************