Program post site for everyone
IchigoJamの文字編集プログラムです。
まずキャラクターコードを聞かれます。
開きたいキャラクターを入力、新しく真っ新で始める場合は0を入力してください。
次に、編集します。上下左右キーで+を動かし、スペースで■・□を切り替えます。
その後、保存するキャラクターコードを聞かれます。
224～255で指定してください。その番号の文字として使用できるようになります。
プレビューが表示された後、次回も文字を使うためのコマンドが表示されます。
このプログラムでは、CLPコマンドを実行するか、IchigoJamの電源を切るとキャラクターは消えます。最後に表示されるコマンドをプログラムとしてSAVEすると復活します。
IchigoJam webでの動物コードは、
「サル」「アライグマ」「ヒツジ」
です。IchigoJam webの象のマークから読み込んでください。
10 'FONT EDITOR 20 CLV:CLS 30 INPUT"CHARACTER CODE OR NEW(0)",A 40 IF A>255 POKE#1003,1,23:GOTO30 50 FOR Y=7 TO14 60 LC11,Y:?BIN$(PEEK(A*8+Y-7),8) 70 FOR X=11 TO18 80 LCX,Y:?CHR$(SCR()-48) 90 NEXT:NEXT 100 DRAW20,12,20,30:DRAW20,31,39,31:DRAW39,30,39,12:DRAW38,12,21,12:LC8,17:?"BACK:BackSpace" 110 X=11:Y=7:C=SCR(X,Y) 120 K=INKEY() 130 IF K LCX,Y:?CHR$(C) ELSE GOTO170 140 X=X-(K=28&&X>11)+(K=29&&X<18) 150 Y=Y-(K=30&&Y>7)+(K=31&&Y<14) 160 C=SCR(X,Y) 170 IF K=32 C=(!C) 180 LCX,Y:IF (TICK()/6)%2 ?CHR$(C) ELSE ?"+": 190 IF K=10 LCX,Y:?CHR$(C):GOTO220 200 IF K=8 LC0:C=0:POKE#1003,1,23:GOTO30 210 GOTO120 220 FOR Y=7 TO14 230 FOR X=11 TO18 240 LCX,Y:?SCR() 250 NEXT:LC19,Y:?CHR$(0) 260 POKE#1003,3,127,96,10 270 LC10,Y:INPUT"",[Y-7] 280 NEXT 290 LC0:INPUT"SAVE(CHARACTER CODE 224~255)",B 300 IF B<223||B>256 POKE#1003,1,23:GOTO290 310 POKEB*8,[0],[1],[2],[3],[4],[5],[6],[7] 320 VIDEO7:?CHR$(B):WAIT180 330 VIDEO1 340 ?"POKE#";HEX$(B*8);",";[0];",";[1];",";[2];",";[3];",";[4];",";[5];",";[6];",";[7]
