FILES

IchgioJam BASIC・IchigoCake BASIC
プログラム EEPROM 一覧表示

IchigoCake BASIC が公開されたので、

こんなプログラムを作りました。FILES です。

……え？ FILES はコマンドにある？

いやいや、そうではなくて、このプログラムの真の目的は

IchigoJam BASIC から
IchigoCake BASIC の EEPROM を見る
IchigoCake BASIC から
IchigoJam BASIC の EEPROM を見る

事ができるのです。

RUN すると FILES? と表示されます。
表示したい最終プログラム番号を入れて下さい。

何も入れないか 0 で 227（IchigoJam BASIC 参照）または

131（IchigoCake BASIC 参照）となります。

1 画面毎に MORE? を表示し、Enter で続きを表示します。

なお、FILES ではプログラムの実行はできませんが、
IchigoJam to Cake EEPROM を用いて、

IchigoJam BASIC の EEPROM から
IchigoCake BASIC の EEPROM へプログラムを移して
実行する事ができます。（一部プログラムは修正が必要です）

本来の FILES コマンドに合わせて ' もそのまま表示しますが、

プログラムの途中にある

140 'IF N=39 I=1

の ' を外すと、プログラム先頭の行頭で ' から始まる場合、
' を外して表示します。

IchigoJam BASIC EEPROM 参照

10 'FILES IchigoJam BASIC
20 CLV
30 INPUT"FILES?",L
40 IF L=0 L=227
50 IF L>99 L=L-100
60 FOR J=0 TO L 
70 POKE #800,J*4,3
80 A=#50+(J>63)*4
90 R=I2CR(A,#800,2,#802,27)
100 ? J+100;" ";
110 N=PEEK(#802)
120 IF N=255 GOTO 190
130 I=0
140 POKE #81D,0
150 'IF N=39 I=1
160 C=PEEK(#802+I)
170 IF C ?CHR$(C);:I=I+1:
180 IF C GOTO 160
190 ?
200 K=0
210 IF J%23<>22 K=K+1
220 IF J<>L K=K+1
230 IF K=2 GOTO 250
240 INPUT"MORE?",N
250 NEXT

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/790

MicJack ダウンロード ?"MJ GKP 790

IchigoCake BASIC EEPROM 参照

10 'FILES IchigoCake BASIC
20 CLV
30 INPUT"FILES?",L
40 IF L=0 L=31
50 IF L>99 L=L-100
60 FOR J=0 TO L 
70 POKE #800,J*16,3
80 A=#50+(J>15)*4
90 R=I2CR(A,#800,2,#802,27)
100 ? J+100;" ";
110 N=PEEK(#802)
120 IF N=255 GOTO 190
130 I=0
140 POKE #81D,0
150 'IF N=39 I=1
160 C=PEEK(#802+I)
170 IF C ?CHR$(C);:I=I+1:
180 IF C GOTO 160
190 ?
200 K=0
210 IF J%23<>22 K=K+1
220 IF J<>L K=K+1
230 IF K=2 GOTO 250
240 INPUT"MORE?",N
250 NEXT

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/792

MicJack ダウンロード ?"MJ GKP 792

BIG・VIDEO 3 拡大表示版

IchigoJam BIG・VIDEO 3 による拡大表示版も用意しました。

2 倍の大きさで表示されます。
影響で表示できる文字数が少なくなりますが、
FILES コマンドとは異なり、1 行に収まるように表示します。

他は通常版と同じ動作です。

プログラムの途中にある

150 'IF N=39 I=1

の ' を外すと、プログラム先頭の行頭で ' から始まる場合、
' を外して表示します。

IchigoJam BASIC EEPROM 参照

10 'FILES IchigoJam BASIC
20 CLV
30 IF VER()>12233 VIDEO 3
40 INPUT"FILES?",L
50 IF L=0 L=227
60 IF L>99 L=L-100
70 FOR J=0 TO L 
80 POKE #800,J*4,3
90 A=#50+(J>63)*4
100 R=I2CR(A,#800,2,#802,27)
110 ? J+100;" ";
120 N=PEEK(#802)
130 IF N=255 GOTO 200
140 I=0
150 POKE #80D,0
160 'IF N=39 I=1
170 C=PEEK(#802+I)
180 IF C ?CHR$(C);:I=I+1:
190 IF C GOTO 170
200 ?
210 K=0
220 IF J%11<>10 K=K+1
230 IF J<>L K=K+1
240 IF K=2 GOTO 260
250 INPUT"MORE?",N
260 NEXT

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/791

MicJack ダウンロード ?"MJ GKP 791

IchigoCake BASIC EEPROM 参照

10 'FILES IchigoCake BASIC
20 CLV
30 IF VER()>12233 VIDEO 3
40 INPUT"FILES?",L
50 IF L=0 L=31
60 IF L>99 L=L-100
70 FOR J=0 TO L 
80 POKE #800,J*16,3
90 A=#50+(J>15)*4
100 R=I2CR(A,#800,2,#802,27)
110 ? J+100;" ";
120 N=PEEK(#802)
130 IF N=255 GOTO 200
140 I=0
150 POKE #80D,0
160 'IF N=39 I=1
170 C=PEEK(#802+I)
180 IF C ?CHR$(C);:I=I+1:
190 IF C GOTO 170
200 ?
210 K=0
220 IF J%11<>10 K=K+1
230 IF J<>L K=K+1
240 IF K=2 GOTO 260
250 INPUT"MORE?",N
260 NEXT

Kidspod; でプログラム参照

GitHub でプログラム参照 (再配布向け)

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/793

MicJack ダウンロード ?"MJ GKP 793