'=================
'These are the page setups

GUI SETUP 1 'Display the Main Menu page
FONT #9,2
GUI CAPTION #hdr1,"LAS GOLONDRINAS",5,16,"LMN",blk,wht
GUI CAPTION #hdr2,"CONTROL SYSTEM",5,54,"LMN",blk,wht

GUI BUTTON #btnSetHW, "Hot Water Settings", 200,100,400,60,blk,lgy
GUI BUTTON #btnSetCH, "Heating Settings", 200,190,400,60,blk,lgy
GUI BUTTON #btnSysDiag, "System Diagram", 200,280,400,60,blk,lgy
GUI BUTTON #btnParams, "Set Parameters", 200,370,400,60,blk,lgy
GUI INTERRUPT P1_Click

GUI SETUP 5 'Display a blank box to contain diagram
BOX 1,1,800,480,0,blk,lye

GUI SETUP 9 'Display the fixed items on the page
FONT 10,1
GUI CAPTION #capBatt,"1",495,26,"LMN",blk,wht 'this is the battery level display
FONT 9,2
GUI CAPTION #capTime,left$(time$,5),698,16,"LMN",blk,wht 'this is the time in the top right

'=================
'The next lines show the starting pages - illustration 1 above

disp$="MENU"
PAGE 1,9
readstatus

'=================
'When "System Diagram" is touched, the following runs

CASE btnSysDiag
disp$="DIAG"
PAGE 5,9
GUI INTERRUPT P5_Click

'=================
'There are three routines that display the actual moving diagram
'One is shown below as an example. They all call the display routine which follows
'This part of the process works perfectly and displays illustration 2 above

SUB UFH (mode%)
'This is the routine to get the right characters for the UHF circuit

LOCAL disp$(4),col$
STATIC i%=1

SELECT CASE mode%
CASE 0 'not active
col$= "666666660666666660"
disp$(0) = "SRRQ!!!!~TUUV!!l!~"
DoDisp disp$(0), col$, 72, 336
CASE 1 'active
col$= "111111110222222320"
disp$(1) = "SRRQ''''~TUUV**l*~"
disp$(2) = "SRRQ((((~TUUV++l+~"
disp$(3) = "SRRQ))))~TUUV,,l,~"
DoDisp disp$(i%), col$, 72, 336
END SELECT

i%=i%+1
IF i%=4 THENi%=1

END SUB

SUB DoDisp (d$, col$, stx%, sty%)
'This routine actually draws the characters
'd$ is the display string, col$ is the colour string, stx% and sty% are the starting coordinates

LOCAL c$,i%,j%,x%,y%

FONT 8 'diagram font

x%=stx% : y%=sty% : j%=1 'starting values
c$ = LEFT$(col$,1) 'starting colour

FOR i%=1 to LEN(col$)

if MID$(col$,i%,1)<>c$ then 'the colour has changed
text x%,y%,mid$(d$,j%,i%-j%),,,,cols%(val(c$)) 'print the line up to the colour change
RBOX 264,144,96,240,4,blk
RBOX 288,144,48,72,4,blk
RBOX 528,120,72,96,4,blk

if MID$(d$,i%,1)="~" then 'this is the end of the line
x%=stx% : y%=y%+24
j%=i%+1
ELSE
x%=x%+(i%-j%)*24
j%=i%
END IF

c$ = MID$(col$,i%,1) 'get next colour
END IF

NEXT i%

END SUB

'=================
'Finally, when the screen is touched to return to the menu
'the following code is run:

SUB P5_Click
IF checkbl() THEN EXIT SUB 'exit without action if backlight was less than 100
disp$="MENU"
CLS
PAGE 1,9
GUI INTERRUPT P1_Click
END SUB

'This gives rise to illustration 3 - and I just can't get rid
'of the stray bits of diagram!

Note that the CLS command (used to clear the screen) will automatically set any GUI controls on the screen to
hidden (ie, it does a GUI HIDE ALL before clearing the screen).