1 '***** Write data to 7seg. LED lamp *****
2 '
10 'EQU list
11 PPI0=$800003
12 APORT1=$800000
13 BPORT1=$800001
14 CPORT1=$800002
20 'Port Initialize
21 POKE PPI0,_10000000,B :'all port in #1 set output mode
100 'Main start
110 DAT=FRE(4)+16
120 DAT(0).B=$3F
130 DAT(1).B=$06
140 DAT(2).B=$5B
150 DAT(3).B=$4F
160 DAT(4).B=$66
170 DAT(5).B=$6D
180 FOR I=0 TO 5
190  POKE CPORT1,I,B :'Select column position
200  POKE BPORT1,DAT(I).B,B :'Write segments pattern
201    FOR T=0 TO 100
202    NEXT T
210 NEXT I
220 GOTO 180