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

2018/10/11 10:25:19

MixJuice GET URL : kidspod.club/mj/648

プログラム一覧・ローダー(BIG・BASIC 1.2.2〜)

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

SOURCE CODE

CLS

NEW

10 'Program LIST / Loader
15 IF VER()>12233 VIDEO 3
20 L=63:'1M=127 512K=63 256K=31
30 FOR J=0 TO L 
40 POKE #FD0,J*4,3
50 R=I2CR(#50+(J>63)*4,#FD0,2,#FD2,27)
60 ? J+100;" ";
70 N=PEEK(#FD2):IF N=255 GOTO 120
80 I=0:POKE #FDE,0
90 IF N=39 I=1
100 C=PEEK(#FD2+I)
110 IF C ?CHR$(C);:I=I+1:GOTO 100
120 ?
130 IF J%11<>10 AND J<>L GOTO 180
140 ?"RUN,MORE";
150 INPUT N:IF N=0 GOTO 180
160 POKE #FFE,N:CLP:CLT:CLV
170 LRUN PEEK(#FFE)
180 NEXT

'OK

COMMENT