TO スタート
RECYCLE RG CT CC SETTC 4 公園
【説明／画面を初期化します。そして，「公園」という手順でブランコや滑り台を配置して場面を設定します。】
PRINT "| いぬが こうえんで あそんでいます。|
SETTC 7 PRINT "｜ なんびき いるか かぞえましょう。｜
【説明／白色文字で「なんびき いるか かぞえましょう。」と画面左側に少し空白を空けて表示します。 】
WAIT 300 移動
【説明／約５秒後に手順「移動」を実行します。】
SETICON 1 "再度 [再度]
SETICON 2 "f2 [ヒント１]
SETICON 3 "f3 [ヒント２]
SETICON 4 "f4 [ヒント３]
SETICON 5 "f5 [ヒント４]
SETICON 6 "f6 [ヒント５]
SETICON 7 "f7 [ヒント６]
【説明／システムラインの７の位置に「ｆ７」というアイコンを表示します。
マウスカーソルでクリックすると手順「ヒント６」を実行します。】
SETICON 8 "f8 [ヒント７]
SETICON 9 "確認[確認]
SETICON 10 "終了 [終了]
END
TO 移動
IF KEY? [STOP]
【説明／何かキーを押すと手順の実行を止めます。この場合，小犬たちの動きを止めます。】
TELL ALL ST SETSH 14 SETC 6 PU
【説明／３２匹のカメ全部を呼び出し，形のエディタ１４番（小犬）に変えます。体の色を黄色にします。】
REPEAT 2 [TONE 400 2 WAIT 2 TONE 50 1]
【説明／「ワンワン」という鳴き声にちかい音を出します。】
EACH [RT RANDOM 360 FD RANDOM 150]
【説明／それぞれの小犬が移動する向きと距離を，乱数で設定します。】
REPEAT 2 [TONE 400 2 WAIT 2 TONE 50 1]
移動
【手順を定義するとき自分自身を定義の中に使うことを”リカージョン”といいます。何かキーを押すまで「移動」を実行し続けます。】
END
TO ヒント６
CT RG SETSH 14 PU SETC 6
SETPOS [-250 80]
REPEAT 10 [SETX XCOR + 25 PD STAMP PU]
【説明／小犬の位置をＸ軸方向に２５ドットずつ移動しながらスタンプしていきます。小犬を横一列に１０匹並べます。】
SETPOS [-200 30]
REPEAT 10 [SETX XCOR + 25 PD STAMP PU]
SETPOS [0 -20]
REPEAT 10 [SETX XCOR + 25 PD STAMP PU]
SETPOS [-100 -70]
REPEAT 2 [SETX XCOR + 25 PD STAMP PU]
END
TO 拡大 ：MOJIRETU
【説明／ローカル変数として：MOJIRETUを設定します。】
IF EMPTY? :MOJIRETU [STOP]
【説明／：MOJIRETUに代入された文字がなくなると，手順の実行を止めます。】
SETSH FIRST :MOJIRETU
【説明／：MOJIRETUに代入された文字列の先頭から１文字ずつ取り出し，カメの形をその文字に変えます。】
PD BIGSTAMP [2 2]
【説明／：MOJIRETUに代入した文字を縦横それぞれ２倍に拡大します。】
PU SETX XCOR + 30 拡大 BF :MOJIRETU
【説明／拡大された１文字をＸ軸方向に３０ドットずつずらしながら表示します。】
END
TO 確認
PU SETPOS [50 -60] SETC 3 HT
拡大 "１０ずつまとめると
【説明／「１０ずつまとめると」という文字列が表示されます。】
SETPOS [50 -100]
拡大 "よくわかりますね！！
END