Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2019/04/18 21:26:12

MixJuice GET URL : kidspod.club/mj/791

FILES from Jam BASIC EEPROM(拡大)

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS
 
NEW
 
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

'OK

COMMENT