IchigoJam のプログラム

　プログラムは　A〜Z　までの文字データを順に出力します
　Mac では　IchigoConsole というプログラムを使っています
　

100 'F105:ALPHABETICAL OUT 1.6
110 CLS:LC0,25:?"ALPHABETICAL OUT F105"
120 LC 1,0
130 ?"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
140 FOR J=1 TO 26
150 LC J-1,1:PRINT" "
160 LC J,1:PRINT "°"
170 LC 0,4:?BIN$(VPEEK(J,0),8);"(BIN)",VPEEK(J,0);"(ASCII)"
180 ?
190 CLO :'CLEAR OUTPUT
200 GOSUB 540
210 WAIT 60
220 LC 0,6
230 FOR I=1 TO 8 STEP 1
240 C=VPEEK(8-I,4)
250 ? "OUT";I,BIN$(C,1)
260 IF C=49 THEN GOSUB 340 ELSE GOSUB 435
270 NEXT
280 WAIT 60
290 ?
300 NEXT
310 SAVE 105
320 END
330 '
340 'SUB OUT1
350 IF I=1 THEN OUT 1,1
360 IF I=2 THEN OUT 2,1
370 IF I=3 THEN OUT 3,1
380 IF I=4 THEN OUT 4,1
390 IF I=5 THEN OUT 5,1
400 IF I=6 THEN OUT 6,1
410 IF I=7 THEN OUT 7,1
420 IF I=8 THEN OUT 8,1
430 RETURN
432 '
435 'SUB OUT 0
440 IF I=1 THEN OUT 1,0
450 IF I=2 THEN OUT 2,0
460 IF I=3 THEN OUT 3,0
470 IF I=4 THEN OUT 4,0
480 IF I=5 THEN OUT 5,0
490 IF I=6 THEN OUT 6,0
500 IF I=7 THEN OUT 7,0
510 IF I=8 THEN OUT 8,0
520 RETURN
530 '
540 'SUB CLEAR
550 LC 0,6
560 FOR K=0 TO 8
570 ? " "
580 NEXT
590 RETURN

.