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 14:24:17

MixJuice GET URL : kidspod.club/mj/626

プログラム一覧・ローダー FILES 版(BASIC 1.1~)

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

SOURCE CODE

CLS

NEW

10 'Program LIST/Loader
20 S=101:L=227:'1~3,1~99,101~227
30 FOR J=S TO L
40 FILES J,J
50 K=0
60 IF (J-S)%23<>22 K=K+1
70 IF J<>L K=K+1
80 IF K=2 GOTO 170
90 ?"RUN(";S;"~";L;"),MORE";
100 INPUT N
110 IF N=0 GOTO 170
120 POKE #FFE,N
130 CLP
140 CLT
150 CLV
160 LRUN PEEK(#FFE)
170 NEXT

'OK

COMMENT