30 CLS
110 D=#3C
210 POKE #800,0,#40,#B0,#21,0,127
220 'Init data set
230 POKE #810,#AE,#D5,#80,#A8,#3F,#D3,#00,#40,#8D,#14,#A1,#C8,#DA,#12,#81,#CF,#D9,#F1,#DB,#20,#A4,#A6,#AF
250 'output data
260 POKE#840,#40,#48,#48,#48,#7F:'F
270 POKE#850,#0F,#15,#15,#15,#02:'a
280 POKE#860,#36,#49,#49,#49,#7F:'B
290 POKE#870,#0E,#11,#11,#11,#0E:'o
300 ?"Init"
310 FOR B=0 TO 23
320 A=I2CW(D,#800,1,#810+B,1)
330 NEXT
400 ?"Clear Display"
410 FOR I=0 TO 7
420 POKE #802,#B0|I
430 A=I2cW(D,#800,1,#802,4)
440 FOR J=0 TO 127
450 A=I2CW(D,#801,1,#800,1)
460 NEXT
470 NEXT
500 POKE #802,#B0+I,21
510 A=I2CW(D,#800,1,#802,5)
600 ?"Output"
620 FOR l=0 TO 4
630 GSB 700
640 NEXT
650 ?"End"
660 END
700 A=I2CW(D,#801,1,#800,1)
710 A=I2CW(D,#801,1,#800,1)
720 A=I2cW(D,#801,1,#870-l*16,1)
730 A=I2cW(D,#801,1,#871-l*16,1)
740 A=I2cW(D,#801,1,#872-l*16,1)
750 A=I2cW(D,#801,1,#873-l*16,1)
760 A=I2cW(D,#801,1,#874-l*16,1)
770 A=I2CW(D,#801,1,#800,1)
780 RTN
