一部の人には懐かしのキャラクター、＃２！

>>583サン、　コノ　キャラクター　エテ゛ィターヲ　ツカウテ゛ス！

10 DIM A(39,23):WIDTH 40,25
20 CLS:FOR B=0 TO 23:FOR A=0 TO 39:A(A,B)=32:NEXT:NEXT:A=19:B=12:C=0
30 WHILE C<>7 AND C<>9:C=VAL(INKEY$):LOCATE A,B:PRINT CHR$(A(A,B));
40 A=A-(C=4)*(A>0)+(C=6)*(A<39):B=B-(C=8)*(B>0)+(C=2)*(B<23)
50 D=A(A,B):A(A,B)=-(C<>5)*D-32*(C=5)-(C=1)*(D>31)+(C=3)*(D<255)
60 LOCATE A,B:PRINT "ﾛ";:WEND:IF C=7 THEN 20
70 LOCATE A,B:PRINT CHR$(A(A,B));
￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ●／ 　＜　４：ヒタ゛リ　／　６：ミキ゛　／　８：ウエ　／　２：シタ
＜■　　　　　 １：ＣＨＲ−１　／　３：ＣＨＲ＋１　　　５：ケス
／　 ＞ 　　　 ７：ヤリナオシ　／　９：オシマイ

　　　　　　　　＼●　　　＜　オオ、コレハ　スハ゛カラシイ！
　　　　　　　　 　■＞　＿　 シカシ、テンキーカ゛　ツカエナイト
　　　　 ／￣￣￣￣￣／|　ケッコウ　キヒ゛シイ　テ゛スナ。
　 　　∧ ∧ ﾊｧ･･･ .／.／|
　 ／.(；ﾟДﾟ)＿＿／／ ┌─────────
　||￣/　　|￣￣||／　 ＜　さ、さすがに１行には収まらなかったようで・・・。
　||, （＿__ﾉ　　　||　　 　└─────────
　 ／