• ichigojam

10 @ARUN:CLS
20 ?"ichigoGUI 0.5"
30 X=15:Y=15:A=0
35 POKE#728,#80,#C0,#A0,#90,#F0,#A0,#10,#00
36 POKE#730,#80,#C0,#E0,#F0,#F0,#A0,#10,#00
40 K=INKEY()
45 IF A=1 GOTO 55
50 LC X,Y:?CHR$(229)
55 WAIT 5
60 LC X,Y:?" "
70 X=X-BTN(28)+BTN(29)
80 Y=Y-BTN(30)+BTN(31)
100 LC 6,4:?CHR$(152,145,153)
101 LC 6,5:?CHR$(146,49,146)
102 LC 6,6:?CHR$(154,145)
105 LC 6,10:?CHR$(152,145,153)
106 LC 6,11:?CHR$(146,50,146)
107 LC 6,12:?CHR$(154,145)
110 LC 6,16:?CHR$(152,145,153)
111 LC 6,17:?CHR$(146,51,146)
112 LC 6,18:?CHR$(154,145)
130 IF Y=23 Y=22
135 IF Y=0 Y=1
140 IF X=8 AND Y=6 GOTO 600
145 IF X=8 AND Y=12 GOTO 600
150 IF X=8 AND Y=18 GOTO 600
155 IF A=1 GOTO 600
500 GOTO 40
600 LC X,Y:?CHR$(230)
605 IF Y=6 OR Y=12 OR Y=18 A=1 ELSE A=0
606 IF K=32 GOTO 620
607 IF X!=8 A=0
610 GOTO 500
620 IF Y=6 LRUN 1
630 IF Y=12 LRUN2
640 IF Y=18 LRUN3
650 GOTO 40

Kidspod運営チーム2022/03/11 16:42:28

なるほど、確かにGUI的画面！　マウスのポインタまでしっかり描画しているとは。これからの更にバージョンしていくということで、どんな機能が追加されるのか楽しみです。

Pagetop