10 CLS 20 S="ｶﾞﾝ":L=2:O=0:P=0:GSB60 30 S="ﾊﾞﾚ":L=2:O=8:P=4:GSB60 40 S="ﾌｸｲ":L=2:O=16:P=8:GSB60 50 CONT 60 '@PRT 70 FOR I=0 TO L 80 C=PEEK(S+I) 90 FOR B=0 TO 7 100 D=PEEK(C*8+B) 110 FOR J=0 TO 7 120 X=I*8+J+P 130 Y=O+B 140 POKE #900+X+Y*32,D&128>0 150 D=D<<1 160 NEXT 170 NEXT 180 NEXT 190 RTN
