*************
* Deck "AppReader 1.2b"
* Time 16:16:34
* Date 09/06/92
*************

*************
* Card(s) in deck.
*  Card "Card#1"
*  Card "Card_2"
*************
* 2 Card(s), 2 were printed.
*************

*************
* Natural order of Cards
*  Card "Card#1"
*  Card "Card_2"
*************

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

*************
* Card "Card#1"
	BeforeAttachment ; used to be OnStartup
		LoadSubDeck "ReaderSub","ReaderSub"
	EndScript
	AfterAttachment ; used to be AfterStartup
		Global StopIntro                     ; Sorgt dafür das der Requester
		Let StopIntro = StopIntro + 1        ; "Intro" nur einmal aufgerufen
		If StopIntro = 1                     ; wird.
			OpenRequester "ReaderSub","Intro"
		Else
			Nop
		EndIf
	EndScript
	Window "UserWindow"
		Definition
			Origin 252,103
			Size 136,50
			Title "AppReader"
			NumberOfColors 4
			WindowColors 0,1,0 ; Detail, Block, Background
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			WindowFlags ACTIVATE TOFRONT WORKBENCH 
		EndScript
		OnCloseButton
			Quit
		EndScript
		OnAppEvent
			ClearWindow
			Global IconName
			Let IconName=GetWord(Arg1,1,Char(10))
			If GetChars(IconName,NumberOfChars(IconName),1)="/" ; a directory ?
				Let IconName=GetChars(IconName,1,NumberOfChars(IconName)-1)
			EndIf
			GotoCard "Card_2"
		EndScript
	EndObject
* End of Card "Card#1"
*************

*************
* Card "Card_2"
	AfterAttachment ; used to be AfterStartup
		SetWindowTitle "Dateiname:   " ||IconName
		LoadDocument IconName,"Reader"
	EndScript
	Window "UserWindow"
		Definition
			Origin 0,0
			Size 640,256
			Title "AppReader"
			NumberOfColors 4
			WindowColors 0,1,0 ; Detail, Block, Background
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			WindowFlags ACTIVATE TOFRONT WORKBENCH 
		EndScript
		OnCloseButton
			GotoCard "Card#1"
		EndScript
	EndObject
	AreaButton "Button_1"
		Definition
			Origin 5,240
			Size 630,13
			Border BEVEL ,1,2 ; BorderStyle, MainPen, ExtraPen
			Highlight NONE 
			ButtonFlags NONE 
		EndScript
	EndObject
	Memo "Document_1"
		Definition
			Origin 5,12
			Size 629,228
			Font "topaz",8 ; FontName, PointSize
			PrintStyle PLAIN ,2,3 ; Style, Pen1, Pen2
			TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
			Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
			Document "Reader" ; where the text comes from
			ScrollBars NONE 
			InputStyle LOCKEDOUT 
		EndScript
	EndObject
	AKey "Auf Taste"
		Definition
			QualifiersPressed NONE 
			KeyPressed UP 
		EndScript
		OnDown
			MoveCursor UP ,27
		EndScript
		OnRepeated
			MoveCursor UP ,1
		EndScript
	EndObject
	AKey "AB Taste"
		Definition
			QualifiersPressed NONE 
			KeyPressed DOWN 
		EndScript
		OnDown
			MoveCursor DOWN ,27
		EndScript
		OnRepeated
			MoveCursor DOWN ,1
		EndScript
	EndObject
	AKey "Anfang"
		Definition
			QualifiersPressed NONE 
			KeyPressed RIGHT 
		EndScript
		OnDown
			MoveCursorTo STARTOF DOCUMENT 
		EndScript
	EndObject
	AKey "Ende"
		Definition
			QualifiersPressed NONE 
			KeyPressed LEFT 
		EndScript
		OnDown
			MoveCursorTo ENDOF DOCUMENT 
		EndScript
	EndObject
	AKey "Hilfe"
		Definition
			QualifiersPressed NONE 
			KeyPressed HELP 
		EndScript
		OnDown
			OpenRequester "ReaderSub","Help"
		EndScript
	EndObject
	AKey "AppWindow"
		Definition
			QualifiersPressed NONE 
			KeyPressed DELETE 
		EndScript
		OnDown
			FirstCard
		EndScript
	EndObject
	AKey "Quit"
		Definition
			QualifiersPressed NONE 
			KeyPressed ESCAPE 
		EndScript
		OnDown
			If CardName = "Card_2"
				Quit
			EndIf
		EndScript
	EndObject
	IntervalTimer "Timer_1"
		Definition
			Duration 0,0,1 ; Minutes, Seconds, Jiffies
		EndScript
		Occurred
			SetPen 2
			SetDrawMode JAM2 
			Let AnzahlZeilen = FormatValue(TheLineNumber,"Zeile: #####_____")  ; Muster Definition
			Let Platzhalter = Char(47) ; ASCII-Code fuer "/"
			Let ZeileProz = 100 * TheLineNumber / LinesInDocument ; % Berechnung
			Let ZeileProz = FormatValue(ZeileProz,"###000%")
			Let Speicher = FormatValue(AvailableMemory,"Speicher: #######_______ Bytes")
			Nop ; In Kilo  ->   Let Specher = FormatValue(AvailableMemory % 1024,"####____ k")
			Let Text = FormatValue(SizeOfDocument,"Text: #######_______ Bytes")
			PrintText ""|| AnzahlZeilen || Platzhalter || LinesInDocument ||"  "|| ZeileProz ||"    "|| Speicher ||"    "|| Text,15,243
		EndScript
	EndObject
* End of Card "Card_2"
*************