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

2020/02/20 23:01:04

MixJuice GET URL : kidspod.club/mj/948

IchigoJam STATUS (BASIC 0.9.4~)

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

SOURCE CODE

CLS:'

NEW

10 'IchigoJam STATUS
20 CLV
30 ?
40 V=VER()
50 IF V<98 GOTO 200
60 IF V>13207 if VER(1)=10 GOTO 200
70 LET[0],5,0,0,5,0,1,0,0,0,0
80 LET[10],0,5,0,0,0,0,0
90 LET[20],5,7,1,7,5,5,7,5,7,5
100 LET[30],0,5,7,5,11,11,11
110 LET[40],1,3,1,1,1,1,3,5,3,1
120 LET[50],3,1,3,3,2,2,2
130 LET[60],3,3,3,3,3,1,3,1,3,3
140 LET[70],3,3,3,3,3,3,3
150 FOR I=0 TO 79
160 ? CHR$(128+[I]);
170 IF I%20=19 ?
180 NEXT
190 ?
200 ?"VER()  = ";V
210 IF V>11006 GOTO 240
220 ?
230 END
240 IF V>13207 GOTO 280
250 ?"LANG() = ";LANG()
260 ?
270 END
280 FOR W=1 TO 3
290 ?"VER(";W;") = ";VER(W)
300 NEXT
310 ?
320 END

'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2020/03/06 12:08:19

なるほど、IchigoJamのバージョンに合わせて確認項目を変えてくれるバージョン確認用プログラムですね。何を見ればいいか分からない、というときに重宝しそうです。