福野泰介の一日一創

誰もが持っている、一歩踏み出す権利と力。
エベレスト無酸素単独登頂へ挑戦する栗城さんへの応援を、プログラムで表現した「やまのぼり」

吹雪に気をつけ、スペースキーで、登る！

10 CLS:N=23:S=1 20 IF INKEY() N=N-1:IFN<0:N=23:S=S+1:CLS 30 LC27-N,N:IF SCR():?S:END 40 ?CHR$(251); 50 IF!RND(5-S):LC31,RND(22):?"*"; 60 WAIT3-(S>4)-(S>6)-(S>9) 70 LC27-N,N:?" "; 80 SCROLL LEFT:GOTO20

かわくだりゲームの応用的プログラムです
40行、251は登山家キャラクター
50行、ステージが上がることに増える吹雪
60行、5ステージ以降は速さを変える

登るたびにひどくなる吹雪、どこまで登れるか！？
限界を決めるのは自分のみ。
「NO LIMIT 〜自分を超える方法〜」 by 栗城史多

4月に出発、大きな挑戦、大いに楽しんでください！

links
- 栗城史多オフィシャルサイト