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

2018/09/26 16:39:04

MixJuice GET URL : kidspod.club/mj/627

ls - IchigoLatte EEPROM(BASIC)

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

SOURCE CODE

CLS

NEW

10 'ls IchigoLatte EEPROM
20 INPUT"ls>",L
30 IF L=0 L=63
40 FOR J=0 TO L 
50 POKE #800,J*8,0
60 A=#50+(J>31)*4
70 R=I2CR(A,#800,2,#802,27)
80 IF J<10 ?" ";
90 ? J;":";
100 N=PEEK(#802)
110 IF N=255 GOTO 180
120 I=0
130 POKE #81D,0
140 C=PEEK(#802+I)
150 IF C AND C<>10 ?CHR$(C);
160 IF C AND C<>10 I=I+1
170 IF C AND C<>10 GOTO 140
180 ?
190 K=0
200 IF J%23<>22 K=K+1
210 IF J<>L K=K+1
220 IF K=2 GOTO 240
230 INPUT"more>",N
240 NEXT

'OK

COMMENT