NEW
10 REM EEPROM.BAS
20 PRINT
30 PRINT "EEPROM storage demo"
40 PRINT "1=Write"
50 PRINT "2=Read"
60 PRINT "3=Exit"
70 INPUT "Enter 1, 2 or 3";I
80 IF I=1 GOTO 120
90 IF I=2 GOTO 200
100 IF I=3 THEN END
110 GOTO 20
120 PRINT "Enter a number ";
130 PRINT "from 0 to 255";
140 INPUT N
150 IF N>255 GOTO 120
160 HEX:CBYTE 09F00H=N:DECIMAL
170 PRINT "Saved to EEPROM"
180 GOTO 20
200 HEX:M=CBYTE 09F00H:DECIMAL
210 PRINT M;" read from EEPROM"
220 GOTO 20