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/12 09:59:53

MixJuice GET URL : kidspod.club/mj/649

キャラクターを動かす(BIG・BASIC 1.2.2〜)

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

SOURCE CODE

CLS
 
NEW

100 'Move Character
105 IF VER()>12233 VIDEO 3
110 CLV:CLS
120 POKE #E0*8+0,`00011000
130 POKE #E0*8+1,`00011000
140 POKE #E0*8+2,`11111111
150 POKE #E0*8+3,`11111111
160 POKE #E0*8+4,`00011000
170 POKE #E0*8+5,`00111100
180 POKE #E0*8+6,`01100110
190 POKE #E0*8+7,`11000011
200 X=7:Y=5
210 LC A,B:? " "
220 LC X,Y:? CHR$(#E0)
230 A=X:B=Y
240 IF BTN(LEFT)  X=X-1
250 IF BTN(RIGHT) X=X+1
260 IF BTN(UP)    Y=Y-1
270 IF BTN(DOWN)  Y=Y+1
280 IF X<0 X=0
290 IF X>14 X=14
300 IF Y<0 Y=0
310 IF Y>10 Y=10
320 GOTO 210
 
'OK

COMMENT