1 'オエカキ 10 cls:clv:x=1:y=1:a=1 15 lcx,y,1:lcx,y:?chr$(17):?chr$(18) 20 lc0,0:?chr$(a) 30 lcx,y,1 40 k=inkey() 50 x=x-(k=28andx>1)+(k=29andx<31):y=y-(k=30andy>1)+(k=31andy<23) 60 ifk=51a=a+1:ifa=0a=1 70 ifk=49a=a-1:ifa=256a=254 80 ifk=50a=1 90 ifk=48a=a+5:ifa>255a=255 100 ifk=32lcx,y:?chr$(a) 110 ifk=8lcx,y:?" " 120 ifk=52cls 120 goto20
なるほど、まさしくお絵かきソフトですね。仰る通り、これは保存機能が欲しくなる……。