Program post site for everyone
画面が小さいのでＶＩＤＥＯ３かｍｏｂｉｌｅＢ２で実行してください。
お盆に海水浴にいった北陸の海は波が高かった。
波をかぶると冷たくてなんだか楽しいですね！
波にあたるなら大きい波に当たった方が楽しい！
矢印キーで上下左右に人を動かせます。
海には小さい波”＾”がいったりきたりしていますが
縦に波が並ぶと大きい波”（スペード）”とか”％”
に一瞬なりますのでタイミングよく当たると画面上に”ヤッホー”を表示して
左上の点数”Ｓ”が加算されます。
たまに波が重なって押し寄せてきますのでそこにあたれば一気に大量点ゲット！
また速度が違う波が重なるタイミングを狙うのも楽しい。
遊んでいる間にパラソル"*"は風で左に飛ばされていきます。いちばん左まで飛ばされるとゲームオーバーになってしまうので、その前にひろえばとりあえずいちばん右に戻ります。
海水浴の波と風の雰囲気を楽しんでください。
10 'WAVE RIDE 20 CLS:CLV:X=7:Y=4:S=0:P=-2 30 @LOP:K=INKEY():IFK!=0LCX,Y:?CHR$(0);:POKE#909,0,0,0,0,0 40 X=X+(X<14)*(K=29)-(X>0)*(K=28):Y=Y+(Y<7)*(K=31)-(Y>1)*(K=30) 50 LCX,Y:?"(#F9)";:LC0,0:?"S ";S 60 FORJ=0TO6:I=J*5 70 IF[I]=0IFRND(10)>8[I]=-1:[I+1]=14:[I+2]=0:[I+3]=RND(2):[I+4]=0:LC[I+1],7-J:?"^"; 80 IF[I]<>0[I+4]=[I+4]+1:IF[I+4]>[I+3][I+4]=0:LC[I+1],7-J:?CHR$(0);:GSB@WMV 90 NEXT 100 IFP=XANDQ=YBEEP:P=-2 110 IFP=-2P=14:Q=RND(7)+1 120 IFP>0IFRND(7)=0P=P-1:LCP,Q:?"*";CHR$(0); 130 IFP<1:LC1,4:?"ハ゜ラソルトンシ゛ャッタ!":END 140 GOTO@LOP 150 @WMV:[I+1]=[I+1]+[I]:IF[I+1]<1[I]=1ELSEIF[I+1]>13[I]=0 160 LC[I+1],7-J:IF[I]<>0R=SCR([I+1],6-J)+SCR([I+1]-[I],6-J):T=SCR([I+1],8-J)+SCR([I+1]-[I],8-J):GSB@WSZ:ELSE?CHR$(0); 170 RTN 180 @WSZ:IFR!=0ANDT!=0?"%";:[I+2]=4ELSEIFR!=0ORT!=0?"(#E4)";:[I+2]=1ELSE?"^";:[I+2]=0 190 IFSCR(X,Y)=228ORSCR(X,Y)=37X=X+[(7-Y)*5]:BEEP[I+2]:S=S+[I+2]:LC9,0:?"ヤッホー!" 200 RTN
