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/25 22:04:59

MixJuice GET URL : kidspod.club/mj/592

顔(BASIC 0.9.8 RC2〜)

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

SOURCE CODE

CLS:'

NEW

10 'Face
20 CLS
30 X=14:Y=18:GOSUB 1000
40 M=RND(4)*100+500
50 X=6:Y=8:GOSUB M
60 X=22:Y=8:GOSUB M
70 WAIT 60*RND(10)
80 GOTO 30
500 LC X,Y
510 ?CHR$(#88,#8F,#8F,#84)
520 LC X,Y+1
530 ?CHR$(#8F,#87,#8B,#8F)
540 LC X,Y+2
550 ?CHR$(#8F,#8D,#8E,#8F)
560 LC X,Y+3
570 ?CHR$(#82,#8F,#8F,#81)
580 RETURN
600 LC X,Y
610 ?CHR$(#88,#8F,#8F,#84)
620 LC X,Y+1
630 ?CHR$(#8F,#8F,#83,#8F)
640 LC X,Y+2
650 ?CHR$(#8F,#8F,#8C,#8F)
660 LC X,Y+3
670 ?CHR$(#82,#8F,#8F,#81)
680 RETURN
700 LC X,Y
710 ?CHR$(#88,#8F,#8F,#84)
720 LC X,Y+1
730 ?CHR$(#8F,#83,#8F,#8F)
740 LC X,Y+2
750 ?CHR$(#8F,#8C,#8F,#8F)
760 LC X,Y+3
770 ?CHR$(#82,#8F,#8F,#81)
780 RETURN
800 LC X,Y
810 ?CHR$(#20,#20,#20,#20)
820 LC X,Y+1
830 ?CHR$(#8C,#8C,#8C,#8C)
840 LC X,Y+2
850 ?CHR$(#83,#83,#83,#83)
860 LC X,Y+3
870 ?CHR$(#20,#20,#20,#20)
880 RETURN
1000 LC X,Y
1010 ?CHR$(#8F,#8F,#8F,#8F)
1020 RETURN

'OK

COMMENT