10 CLS:CLV:LC 14,11:?CHR$(#F9) 20 LC 0,20:?"ホ゛クトアッチムイテホイシヨウ!" 30 LC 0,22:?"PUSH KEY" 40 GOSUB 1000 50 IF K=0 THEN GOTO 40 60 LC 0,20:?"アッチムイテ~ ":LC O,22:?"サユウキーテ゛、ホウコウセンタク!" 70 CLK:WAIT 30 80 GOSUB 1000 90 IF K!=28 THEN IF K!=29 THEN GOTO 80 100 IF RND(2)=0 THEN LC 14,11:?CHR$(#FB):A=0 ELSE LC 14,11:?CHR$(#FD):A=1 110 IF A=0 && K=29 OR A=1 && K=28 THEN LC 0,20:?"ヤッタネ! アタリタ゛ヨ!" ELSE LC 0,20:?"サ゛ンネン ハス゛レ" 120 LC 0,22:?"モウイッカイヤルカイ? ":?"ヤルナラ PUSH KEY":WAIT 20:CLK 130 GOSUB 1000 140 IF K=0 THEN GOTO 130 150 GOTO 10 1000 K=INKEY():RETURN
これはシンプルなゲームですね。しかしぴょこぴょこ動くキャラクタがかわいらしくて、素敵です。