自作ソフト「MR作図カメ」を例に

１　整数ｎを入力して，正ｎ角形を作図します

TO 入力　
REPEAT 2 [PR []] SETTC 7
PR "整数を入力しましょう。
PR "| ０を入力しましょう。| SETTC 7
REPEAT 2 [PR []] CLEAR
MAKE "KK RL
　【説明／入力された整数ｎを変数ｋｋに設定します】
IF EMPTY? :KK [TONE 1000 2 消す 入力]
　【説明／整数ｎとして何も入力されなかったときのエラー対策です】
MAKE "K FIRST :KK
IFELSE NUMBER? :K [PRE-SAKUZU] [再度]
　【説明／入力された整数ｎが数値以外だったときのエラー対策です】
END

TO 消す
ASK 1 [PU SETSH 19 SETC 0 SETPOS [ 55 0] PD BIGSTAMP [7 8] HT]
END

TO 再度
IF :K = 0 [JIDOU-START]
　【説明／入力された整数ｎが０のとき，手順「JIDOU-START」を実行します】
REPEAT 2 [TONE 500 2]
CT REPEAT 7 [PR []]
PR "| 作図できません。| PR []
PR "| ３より大きい整数を| PR []
PR "| 入力しましょう。|
ASK 3 [PU SETPOS [45 -50] SETSH 4 SETC 2 ST] WAIT 100 ASK 3 [HT]
CLEAR 消す　入力
END

TO PRE-SAKUZU
IF :K < 3 [再度]
IF :K = 0 [JIDOU-START]
IF :K > 360 [MAKE "K 360 SAKUZU]
SAKUZU
END

TO SAKUZU
ASK 1 [PU SETSH 19 SETC 0 SETPOS [ 55 0] PD BIGSTAMP [7 8] HT]
MAKE "F 360 / :K
　【説明／正ｎ角形の一辺の長さを設定します】
PU SETPOS [0 -10] PD SETC 7 CLEAR
SETH 0 REPEAT :K [FD :F RT 360 / :K] SETTC 6 REPEAT 2 [PR []]
　【説明／入力された整数ｎをもとに正ｎ角形を作図します】
PR "| 何か気づきませんか？ |
INSERT "| 何かきまりを見つけましょう。|
MAKE "PRT CHARCODE RC
IFELSE :PRT = 13 [消す 入力] [消す　入力]
END

２　正三角形から正方形・・・正十七角形・・・円へと自動的に作図します

TO JIDOU-START
PU SETSH 19 SETC 0 SETPOS [250 140] PD BIGSTAMP [4 1]
SETSH 1 SETC 5 SETPOS [250 140] PD BIGSTAMP [4 1]
PU SETX XCOR - 50 LABEL "自動作図モード
MAKE "K 2 SETSH 0
JIDOU
END

TO JIDOU
CT SETH 0 GO-SE CLEAR
ASK 1 [PU SETSH 19 SETC 0 SETPOS [ 55 0] PD BIGSTAMP [7 8] HT]
MAKE "K :K + 1 MAKE "F 360 / :K PU SETPOS [0 -10] PD SETC 7
REPEAT :K [FD :F RT 360 / :K]
REPEAT 4 [PR []] SETTC 7
PR "| ＭＲ作図カメが|
PR []
PR "次々と正多角形をかきます。
PR [] PR "| 何かキーを押すと|
PR "| 次へすすみます。|
REPEAT 3 [PR []]
SETTC 6 INSERT "正　INSERT FULLSIZE :K INSERT "角形
WAIT 100 JIDOU
END

TO GO-SE
IF KEY? [説明]
END

TO CLEAR
IF NOT KEY? [STOP]
MAKE "DUMMY RC
CLEAR
END
　【説明／リターンキーを押しすぎたときのエラー対策です】