' EEPROM, READ and WRITE Commands
DEFINE OSC 4
TRISA=0
TRISB=0
B0 VAR BYTE
B1 VAR BYTE
B2 VAR BYTE
i VAR BYTE
j VAR BYTE
k VAR BYTE
P VAR BYTE[5]
P[0]=%11111110 : '0
P[1]=%11111101 : '1
P[2]=%11111011 : '2
P[3]=%11110111 : '3
P[4]=%11101111 : '4
EEPROM[$00,$00,$00,$00,$00] 　' 00
EEPROM[$27,$45,$45,$45,$39] 　' 5
EEPROM[$00,$60,$60,$00,$00] 　' .
EEPROM[$00,$42,$7E,$40,$00] 　'　1
EEPROM[$3E,$51,$49,$45,$3E] 　'　0
EEPROM[$02,$12,$22,$52,$0E] 　'　ﾏ
EEPROM[$10,$08,$7C,$02,$01] 　'　ｲ
EEPROM[$42,$42,$42,$42,$7E] 　'　ｺ
EEPROM[$42,$42,$40,$20,$18] 　'　ﾝ
EEPROM[$08,$46,$42,$22,$1E] 　'　ｸ
EEPROM[$04,$05,$45,$25,$1C] 　'　ﾗ
EEPROM[$02,$02,$42,$22,$1E] 　'　ﾌ
EEPROM[$02,$04,$01,$02,$00] 　'　゛
EEPROM[$02,$02,$42,$22,$1E] 　'　ﾌ
EEPROM[$07,$05,$07,$00,$00] 　'　°
EEPROM[$04,$05,$45,$25,$1C]　 '　ﾗ
EEPROM[$42,$22,$12,$2A,$46] 　'　ｽ
EEPROM[$40,$28,$10,$28,$06] 　'　ﾒ
EEPROM[$42,$3F,$02,$42,$3E]　 '　ｶ
EEPROM[$04,$45,$3D,$05,$04]　 '　ﾃ
EEPROM[$10,$08,$7C,$02,$01]　 '　ｲ
EEPROM[$7E,$40,$20,$10,$08] 　'　ﾚ
EEPROM[$42,$3F,$02,$42,$3E]　 '　ｶ
EEPROM[$10,$08,$7C,$02,$01]　 '　ｲ
EEPROM[$00,$00,$00,$00,$00] 　' 00
loop:
B0=0
B1=0
For k=1 TO 120
B0=B0+1
For j = 0 TO 30
B1=B0
For i = 0 TO 4 　　　' Check READ Command
Read B1,B2　　　　　 ' Dump EEPROM Contents
PORTB=B2
PORTA=P[i]
Pause 2
B1=B1+1
Next i
Next j
Next k
PORTA=%11111111 
Pause 200
B0=0
B1=0 
For k=1 TO 24
B0=B1
For j = 0 TO 30
B1=B0
For i = 0 TO 4 　　　' Check READ Command
Read B1,B2 　　　　' Dump EEPROM Contents
PORTB=B2
PORTA=P[i]
Pause 5
B1=B1+1
Next i
Next j
PORTA=%11111111 
Pause 200
Next k
PORTA=%11111111 
Pause 200 
GoTo loop
End