同じ名前のラベルが2つ以上あるとエラーが出ます。 30～39行目を消せば上手く動くかもしれません。

問題の 1 / (y % 4 + 1) の部分ですが、 ここで言う"/"はプチコンの"DIV"に近い意味を持ちます。 というものもプチコン以外の言語では、整数/整数が必ず整数になるからです。 ちなみに"%"は"MOD"と同じ意味です。 DIVは小数が出たときに、絶対値が小さい方に丸められるため、 1 DIV A はAが1のときに1となり、1よりも大きな数では0になります。あの式の場合1より小さな数や小数は考えないため、Aが1のとき1,それ以外では0という結果になります。 y % 4 + 1が1になるのはYが4で割りきれるときのみなので、結果的にy % 4 + 1とy mod 4==0と同じ意味になります。

まず、*と&&,+と||は似たような性質を持ちます。 実際&&は論理積、||は論理和と呼ばれ、論理回路の世界では 1+1と書いて1　オア　1と読み、答えは1だったりします。 あの式もプチコン上では*を&&、+を||に変えても問題なく動くはずです。(言語によってはエラー)

なんとなく解説 あの式は IF DY MOD 4==0&&DY MOD 100!=0||DY MOD 400==0 THEN N=29 ELSE N=28 ENDIF の短縮形で N=28+(!(DY MOD 4)&&!!(DY MOD 100)||!(DY MOD 400)) を複雑化したような式です。 ちなみに&&や!は言語によっては+や*と型が違うためエラーが出ます。

N=28+!(DY MOD 4)&&!!(DY MOD 100)||!(DY MOD 400) も間違えていました。 正しくは N=28+(!(DY MOD 4)&&!!(DY MOD 100)||!(DY MOD 400)) です。 ちなみに &&と*は似たような意味を持つことがあるので N=28+!(DY MOD 4)*!!(DY MOD 100)+!(DY MOD 400) と書くことが出来ます。

深夜で寝ぼけてたのでELSE忘れてました。

(あっ。4行目でFLOOR()してるから>>0要らないのか) ボク的にうるう年の判定は IF DY MOD 400==0　THEN N=29 ELSEIF DY MOD 100==0 THEN N=28 ELSEIF DY MOD 4==0 THEN N=29 ENDIF が一番好きですね。

この書き方はJAVA系かな？ プチコンだとシンプルに N=28+!(DY MOD 4)&&!!(DY MOD 100)||!(DY MOD 400) でOKだと思います。意味的にほぼ同じです。

面白い式ですね。 ただ、プチコンの場合は +1) の後ろに >>0 を付ける必要があると思います。 (プチコンでは整数/整数が小数になることがあるため)

爆弾に注目 来てます。ハンドパワーです。

使い方 ACLS VAR B% DIM C$ WHILE 1 WAIT 1 CLS B%=BUTTON(2) IF (B% AND 16)==16 THEN C$="A" IF (B% AND 32)==32 THEN C$="B" IF (B% AND 64)==64 THEN C$="X" IF (B% AND 128)==128 THEN C$="Y" ?FORMAT$("%sボタンが押されました",C$) WEND 分かりづらくてすみません。

BUTTON()はボタンの情報を持つ｢関数｣と呼ばれるものです。 各ボタンには数字が割り振られていて Aボタンには 16 Bボタンには　32 Xボタンには　64 Yボタンには　128 という数が割り振られていています。

RYO$="カレー" ?FORMAT$("今日のおすすめ料理は%sです",RYO$)

やったー！ 参加できてる&&当たった&&合計がゾロ目

QSPやOSPは出来ることが限られているためかなりまとまった内容になるような気がします。さすがにOSPやQSPは無理だとしても文字数制限は良い方法だと思います。 ……と無茶を言ってみる。 ボクの場合は読みやすさを犠牲にしたくないので、作品の多くに｢縛り｣を入れています。 例えば最新作の｢死んだ勇者メーカーコンソール~勇者は死を覚悟した~｣では ･小数を使わない ･コンソールのみ という制限を付けました。 まぁそれが企画がまとまることに繋がるかは謎ですが。

ウッさんが動画で書いていたコードをいじっていたらなんとなくそれっぽいものが出来たので公開 公開キー[8Q5LP]

(分からないのに適当にやったらそれっぽい動きをしたのでとりあえず貼ってみる)

Hikaruさん こんな感じでしょうか。

ダイレクトモードで FILES "SYS/" と打ったあと LOAD"PRG1:SYS/KANJITBL"

16が(6になっていますよ。 あと8行目の最初に空白を入れると読みやすくなります。