EEPROM 0,[129,243,73,97,51,37,5,241,1,49] 'STORE CONSTANTS



LOOP1: 'DISPLAY T & A
FOR C = 0 TO 3
READ T DIG C, PORTB 'GRAB NUMBER AND SET SEGMENTS
LOOKUP C,[$7F,$BF,$DF,$EF],PORTC 'SET DIGIT
PAUSE f 'PAUSE ON
PORTC = $FF 'CLEAR PORT
NEXT C 'NEXT NUMBER OF 4
FOR B = 0 TO 3 'LOOP AGAIN FOR SECOND ROW
READ AS DIG B, PORTB
LOOKUP B,[$FE,$FD,$FB,$F7],PORTC
PAUSE f
PORTC = $FF
NEXT B
GOTO LOOP