version
6.50
0
Form1
238
348

3
dzHWdesktop.dll
HardwareDesktop.dll
SystemStateDummy.dll
3
Hardware.dll
SystemState.dll
dzHW.dll
3
hardware:Hardware
killproc:dzHW
sysstate:SystemState
0
Sub designer
addform(Form1,"Form1","",0,0,0)@
End Sub
@EndOfDesignText@
Sub Globals
	'Declare the global variables here.

End Sub

Sub App_Start
	Form1.Show
	form1.Text=""
	hardware.New1
	AddTimer("Timer1")
	timer1.interval=20
	timer1.enabled=True
	sysstate.New1("DisplayRotation")
	killproc.New1
End Sub

Sub timer1_tick
	timer1.enabled=False
	hardware.ShowTodayScreen
End Sub

Sub sysstate_statechanged
	If sysstate.CurrentValue=0 Then hardware.ShowTodayScreen
	If sysstate.CurrentValue=90 OR sysstate.CurrentValue=270 Then Shell(AppPath&"\TF3d_Landscape.exe","")
	Sleep(2000)
	If sysstate.CurrentValue=0 Then killproc.KillProcess("TF3D_Landscape.exe")
End Sub