IchigoJam
IchigoJamDay 13

IchigoJamで文字の拡大表示

IchigoJamで文字の拡大表示を試してみました。

■内容
AからZまでの文字コードを0と1で表現しています。
PEEKで各行のデータを読み出しています。
なお、BIN$は桁数を指定しないと頭の部分がゼロの場合桁が欠けてしまうので注意が必要です。

■コード
1 'Character A to Z
5 FOR T=asc("A") TO asc("Z")
10 FOR I=0 TO 7:?BIN$(PEEK(T*8+I),8):WAIT3:NEXT
15 ?""
20 NEXT

■プログラムの実行(Chrome/FireFoxで開いてください)
http://fukuno.jig.jp/app/IchigoJam/#1%20'Character%20A%20to%20Z%0A5%20FOR%20T%3Dasc(%22A%22)%20TO%20asc(%22Z%22)%0A10%20FOR%20I%3D0%20TO%207%3A%3FBIN%24(PEEK(T*8%2BI)%2C8)%3AWAIT3%3ANEXT%0A15%20%3F%22%22%0A20%20NEXT%0A
※リンク先を開いた後 run [Enter]で実行されます。

■スクリーンショット
image.png