TO まとめ
CC SHOW "|なにかキーをおすと，テロップがとまります。|
【説明／コマンドセンターに書かれている文を消し，「なにかキーをおすと，テロップがとまります。」を表示します。】
PU SETPOS [110 60] SETC 6 PD LABEL "テロップ・・・まとめ
【説明／「テロップ・・・まとめ」を座標（１１０，６０）に表示します。】
SETSH 1 SETC 3 PU SETPOS [95 23] PD BIGSTAMP [7 1]
【説明／テロップを表示する枠を作ります。形のエディタ１番にある正方形を横７倍，縦１倍に拡大します。】
PU SETPOS [100 23] PD SETC 7 FILL HT TONE 800 5
【説明／テロップを表示する枠の中を白色にします。音が出ます。】
TELL 0 SETSH "ち TELL 1 SETSH "が TELL 2 SETSH "い TELL
3 SETSH "を
TELL 4 SETSH "し TELL 5 SETSH "る TELL 6 SETSH "に TELL
7 SETSH "は
TELL 8 SETSH "， TELL 9 SETSH "お TELL 10 SETSH "お TELL
11 SETSH "き
TELL 12 SETSH "い TELL 13 SETSH "か TELL 14 SETSH "ず TELL
15 SETSH "か
TELL 16 SETSH "ら TELL 17 SETSH "ち TELL 18 SETSH "い TELL
19 SETSH "さ
TELL 20 SETSH "い TELL 21 SETSH "か TELL 22 SETSH "ず TELL
23 SETSH "を
TELL 24 SETSH "， TELL 25 SETSH "ひ TELL 26 SETSH "き TELL
27 SETSH "ま
TELL 28 SETSH "す TELL 29 SETSH "。 TELL 30 SETSH "・ TELL
31 SETSH "・
【説明／カメ０号の姿を”ち”に変えます。以下，１号から３０号までそれぞれの文字に変えます。】
TELL [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
25 26 27 28 29 30 31] SETC 0 SETH 270 ST PU
【説明／文字の姿に変わったカメ０号から３０号までを黒色にします。進む向きを２７０度（画面右から左へ一直線）に決めます。】
EACH [SETX WHO * 20 SETY 20]
【説明／それぞれのカメが横２０ドットずつの間隔（Ｙ座標は２０）をとりながら進みます。画面には，テロップと見えます。】
提示
【説明／手順「提示」を実行します。】
END
TO 提示
IF KEY? [再実行 STOPALL] EACH [FD 4]
【説明／何かキーを押すまでテロップが流れます。】
提示
END
TO 再実行
SHOW "｜もういちど はじめるときは 《《をクリックしなさい。 ｜
SHOW "｜おわるときは，‖‖をしなさい。 ｜
【説明／テロップの流れが止まった後，上記のメッセージをコマンドセンターに表示します。】
SETICON 1 "《《 [STARTUP]
【説明／システムラインに”《《”のアイコンを表示します。このアイコンをクリックすると，手順STARTUPを実行します。】
SETICON 3 "‖‖ [終了]
【説明／システムラインに”‖‖”のアイコンを表示します。このアイコンをクリックすると，手順「終了」を実行します。】
STOPALL
【説明／現在実行中の作業を全て止めます。】
END
TO 終了
CC RG LEAVEPAGE STOPALL
END