HERE IS AN EXMPLE OF MY CODE



'************************************************* ***************
'* Name : Barsign.BAS *
'* Author : [Joe Stokes] *
'* Notice : Copyright (c) 2006 [JOE STOKES] *
'* : All Rights Reserved *
'* Date : 8/5/06 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
CMCON=7 ' DISABLE ANALOG ON 628A.............................................. ..............

INCLUDE "modedefs.bas"


input 0
input 1
input 2
input 3
input 4
input 5
input 6
output 7
Main:

serout 7,N2400,[254,1,"?c0"] 'Sets curser to off . . Anderson Backpack
pause 300
serout 7,N2400,[254,1,"?f?a"] ' special initialization for Anderson Backpack
' sets curser to beginning of row 1
pause 3500 ' give lcd time to initalize after clear
serout 7,N2400,[254,1,"WELCOME TO MY PUB"]
pause 2000 ' WAIT 2 SECONDS BEFORE START
serout 7,N2400,[254,1,"?f?a"] ' RESET LCD
goto start ' FINALLY PROGRAM STARTS



start:
'CHECKS STATUS RESTROOMS AND REPORTS TO PATRONS ON LCD

RESTROOM:
WHILE PortB.4 = 1
serout 7,N2400,[254,1,"?f?a"]
pause 250
SEROUT 7,N2400, [254,1,"RESTROOMS ARE CLOSED"]
PAUSE 3000
serout 7,N2400,[254,1,"?f?a"]
clear
WEND

'CHECKS STATUS OF FIRE ALARM AND REPORTS TO PATRONS ON LCD

FIRE:
WHILE PortB.5 = 1
serout 7,N2400,[254,1,"?f?a"]
pause 250
SEROUT 7,N2400, [254,1,"FIRE, PLEASE EVACUATE"]
pause 3000
serout 7,N2400,[254,1,"?f?a"]
clear
WEND
'CHECKS STATUS OF LAST CALL AND REPORTS TO PATRONS ON LCD
LAST_CALL:
WHILE PortA.1 = 1
serout 7,N2400,[254,1,"?f?a"]
pause 250
SEROUT 7,N2400, [254,1, "LAST CALL FOR ALCOHOL, SOON ONLY COFFEE SERVED!"]
'SEROUT 7,N2400,[254,192,]
pause 3000
serout 7,N2400,[254,1,"?f?a"]
clear
WEND

'CHECKS STATUS OF CLOSING TIME AND REPORTS TO PATRONS ON LCD

CLOSING:
WHILE PortB.0 = 1
serout 7,N2400,[254,1,"?f?a"]
pause 250
serout 7,N2400,[254,1,"CLOSING TIME THANK YOU AND GOODNIGHT!"]
PAUSE 3000
serout 7,N2400,[254,1,"?f?a"]
clear
WEND


GOTO START



END

i am thinking If fire = 1 then start
IF restroom = 1 then start
and then somehow use some and statements to call interrupts
or exclude them . . .

as Daniel Boone once said" I've never been lost, but I've been a might
bewildered . ."

Thanks ,
Joe