'----------
'MAIN LOOP:
'----------
START:
DO
If DEBUG then PRINT "Main menu."
'Tempr START PSU_BAT 'Begin background process to read battery backup temperature
'Tempr START PSU_TEMP 'Begin background process to read PSU temperature
'Tempr START NSP_TEMP 'Begin background process to read system temperature
CHECK_SETTINGS
KEY=0:LCD_EXIT=0:LCD_OK=0:TEST_PASSWORD=0 'Clear flags
BUILD_DATE
DATE_REF=VAL(MID$(DATE$,1,2))
PAGE 1,6 'Main menu and buttons
GUI INTERRUPT MENU 'This interrupt will be called when there is an LCD touch
Timer=0 'Reset timer
DO 'This loop detects any activity or other events while waiting for an LCD touch
If Val(MID$(DATE$,1,2))>DATE_REF then goto START 'If new day, then update the clock
If LOC(#2)<>0 then goto MSG_RXD 'Some kind of message was received.
If PIN(PSU_MFD)=1 And MFDFLAG=0 Then Goto MAINSFAIL 'MCT6 opto pulls this line LOW if power is OK
If PIN(PSU_MFD)=0 And MFDFLAG=1 Then Goto MAINSOK 'MCT6 opto says power is back now
If Pin(NSP_FUSE)=0 then goto FUSEFAIL 'MCT6 opto pulls this line LOW if receiver fuse is OK
If Pin(NSP_FAN_RPM)<25 then goto FANFAIL 'Count fansink RPM, and if too slow, inform users
If TIMER>=SSDELAY then goto SCREENSAVER 'Call screensaver as nothing touched and no messages to process.
LOOP until KEY<>0
Select Case KEY
CASE 1 'DATABASE - Get password before access
Goto GET_PASSWORD
Case 2
Goto OTHER_OPTIONS
Case 3
Goto MESSAGING
End Select
Loop

Print "Should never get here."

'--------------------
'MAINS FAIL DETECTED:
'--------------------
MAINSFAIL:
MFDFLAG=1
Print "Should never get here.(MAINSFAIL)"

'-----------------------
'MAIN POWER OK DETECTED:
'-----------------------
MAINSOK:
MFDFLAG=0
Print "Should never get here.(MAINSOK)"

'------------------------------
'RECEIVER POWER FUSE HAS BLOWN:
'------------------------------
FUSEFAIL:
Print "Should never get here.(FUSEFAIL)"

'----------------------------------
'SYSTEM FANSINK FAN RPM IS TOO LOW:
'----------------------------------
FANFAIL:
Print "Should never get here.(FANFAIL)"


'--------------------
'DISPLAY SCREENSAVER:
'--------------------
SCREENSAVER:
Do
If DEBUG Then Print "Screensaver called."
CLS 'Clear screen. This also HIDES all GUI controls!!!
For NBR=1 To 250 'Number of lines to draw before clearing the screen
X1=Rnd*MM.HRES
Y1=Rnd*MM.VRES
X2=Rnd*MM.HRES
Y2=Rnd*MM.VRES
R=Cint(Rnd)*255 'Ensure 'r' is one or zero only
G=Cint(Rnd)*255 'Ensure 'g' is one or zero only
B=Cint(Rnd)*255 'Ensure 'b' is one or zero only
Line X1,Y1,X2,Y2,1,RGB(R,G,B) 'Draw the line
Line X1+1,Y1+1,X2+1,Y2+1,1,RGB(R,G,B) 'Draw the line
Line X1+2,Y1+2,X2+2,Y2+2,1,RGB(R,G,B) 'Draw the line
Line X1+3,Y1+3,X2+3,Y2+3,1,RGB(R,G,B) 'Draw the line
Pause 100 'Delay between lines(increase to slow down)
If Touch(DOWN) or LOC(#2)<>0 then 'If LCD touched or message received, stop screensaver
CLS 'Clear screen.
GUI SHOW ALL 'Re-enable all GUI elements
GOTO START
Endif
Next
LOOP