自作ソフト「計算競走」を例に
[実践事例]
（１）LOGOwriter２ではそれぞれのページに「形のエディタ」が用意されています。
（２）ここでは，形のエディタ５１番に”１の目”を作ります。
（３）５２番には”２の目”，５３番には”３の目”，５４番には”４の目”，５５番には”５の目”，５６番には”６の目”を作ります。
TO さいころ ：数
IF ：数 ＞ ５７ [MAKE ”数 ５１ SETSH ：数 ＳＴ]
【説明／形のエディタが５７番以上になると，５１番に戻します。】
IF KEY？ [進む]
【説明／何かキーを押すとさいころが止まり，”進む”という手順を実行します。】
SETSH ：数 ST
【説明／指定された番号の形，つまり１から６までのさいころの目を出します。】
さいころ ：数 ＋ １
【説明／１の目の次は２の目，その次は３の目というように目の数を１つずつ増やします。これが繰り返されます。】
【重要事項／手順を定義するとき自分自身を定義の中に使うことを”リカージョン”といいます。】
END
TO 進む
MAKE ”歩数 ：数 − ５０
【説明／数で設定されたものは５１から５６までなので５０を引いて，歩数を１から６までにします。】
PU FD ：歩数 ＊ １０
【説明／実際に進む距離が１から６ドットでは少なすぎるので，１０倍にします。】
END
TO 進む０Ｔ
TELL 0 FASTTURTLE MAKE "歩数 :数 - 50
PU FD :歩数 * 9 音
IF COLORUNDER = 1 [SETH 180 SETSH 37 PU SETPOS [-245 120]]
【説明／自動車が青のコーナーに入ったとき，進行方向などを指定します。】
IF COLORUNDER = 3 [SETH 90 SETSH 38 PU SETPOS [-245 -88]]
IF COLORUNDER = 5 [SETH 0 SETSH 39 PU SETPOS [250 -88]]
IF COLORUNDER = 6 [SETH 270 SETSH 40 PU SETPOS [250 55]]
IF COLORUNDER = 13 [SETH 180 SETSH 37 PU SETPOS [-150 55]]
IF COLORUNDER = 14 [SETH 90 SETSH 38 PU SETPOS [-150 -25]]
IF COLORUNDER = 15 [ゴール]
【説明／自動車が灰色のコーナーに入ったとき，”ゴール”と判断しその手順を実行します。】
IF COLORUNDER = 0 [BK :歩数 * 10]
IF TOUCHING? 0 2 [じゃんぷA ジャンプ０]
【説明／自動車＜カメ０号＞が，カンガルー＜カメ２号＞とぶつかったとき，ジャンプの手順を実行します。】
IF TOUCHING? 0 3 [ ばっくA バック０]
IF TOUCHING? 0 4 [じゃんぷB ジャンプ０]
IF TOUCHING? 0 5 [ばっくB バック０]
IF TOUCHING? 0 6 [じゃんぷC ジャンプ０]
計算１Ｔ
END