Living Architecture Fall 2007 Pratt

' {$STAMP BS2}
' {$PBASIC 2.5}

TIME VAR Word

DEBUG "!AMAX 1250", CR,
"!TMAX 25", CR,
"!TMIN 0", CR,
"!SHIFT ON", CR,
"!RSET", CR

MAIN:

DO
GOSUB GET_RC_TIME
GOSUB DELAY
GOSUB UPDATE_DISPLAY_A
GOSUB UPDATE_DISPLAY_B
GOSUB UPDATE_DISPLAY_C
LOOP







GET_RC_TIME:
HIGH 2
PAUSE 2
RCTIME 2, 1, TIME
DEBUG DEC TIME, CR
RETURN

DELAY:
PAUSE TIME
RETURN

UPDATE_DISPLAY_A:
IF TIME=2THEN
HIGH 14
DEBUG "TRIPZORD 2", CR
ENDIF
PAUSE 100
LOW 14
RETURN

UPDATE_DISPLAY_B:
IF TIME=6THEN
HIGH 13
DEBUG "TRIPZORD 6", CR
ENDIF
PAUSE 100
LOW 13
RETURN

UPDATE_DISPLAY_C:
IF TIME=10THEN
HIGH 13
HIGH 14
DEBUG "TRIPZORD BOTHZORS", CR
ENDIF
PAUSE 100
LOW 13
LOW 14
RETURN

Labels: smartskin