プチコンのプを日本語ベーシックで書き直してみた

プチコンのプ http://togetter.com/li/396111 を実在しない日本語ベーシックで書き直してみた。

ぴゅう太に毛が生えたレベル

ぴゅう太に毛が生えたらびゅゔ犬だな……。

ポリシーは

カタカナとひらがなが使える。英大文字小文字と同様、区別はしない
変数名、ラベルにもかなが使える
英字、記号についてはBASICと同じ。（全角文字を使っているのは入力の都合）
命令は可能な限り大和言葉に直し、漢語は極力避ける。COLORは「いろづけ」BEEPは「ならす」などとし、「しきさい」「おんせい」などとはしない
IF文は「このとき [式] だったら [文] でなければ [文]」
FOR文は「くりかえし [変数]=[初期値] から [終了値]〜ここまで」

テキストをけす
てんすう=０

＠メイン
くりかえし　I=０ から ６
　V=てきとうなかず（２９）＋３：W=てきとうなかず（２４）
　いろづけ　６：ゆびさす　V、W：かく”品”
ここまで

Y=てきとうなかず（２３）
V=てきとうなかず（２９）＋３
いろづけ　１３：ゆびさす　V、W：かく ”★”
いろづけ　２＋てきとうなかず（１３）
ならす　４３：コマやすみ　６０

くりかえし　X＝０　から　３０
　ゆびさす　X、Y：かく ”大”；
　ならす　９
　コマまち　６
　ゆびさす　X、Y：かく ”　”；
　このとき　ボタン（）＞０　だったら　Y＝Y−２　でなければ　てんすう=てんすう＋１
　Y=Y+1
　このとき　Y＜０　だったら　ならす　１１：おわり
　このとき　Y＞２３　だったら　ならす　６：おわり
　C＄=もじ＄（もじしらべ（X、Y））
　このとき　C＄＝＝”品”　だったら　ならす　１４：おわり
　このとき　C＄＝＝”★”　だったら　ならす　７：てんすう=てんすう＋５０
　ゆびさす　０、２３：かく　てんすう
ここまで

ゆびさす　３１、Y：かく　”　”;
てんすう＝てんすう＋２０
ゆびさす　０、２３：かく　てんすう
すすむ　＠メイン

文法で日本語らしい語順を追求してみる

A=A+1 → A+1 を A にいれる
COLOR 7 → 7 でいろづけ
LOCATE X,Y → X, Y をゆびさす
?"★"; → "★"; をかく
BEEP 7 → 7をならす
WAIT 60 → 60 コマやすみ
VSYNC 6 → 6 コマまち

FOR I=1 TO 30〜NEXT → I について 1 から 30 まで〜くりかえし
GOTO @ラベル → @ラベルにすすむ
GOSUB @ラベル → @ラベルをよびだす
RETURN → もどる

てにをははやはり融通を利かすべきか……。