基本型

プログラム宣言部	PROCEDURE TEST;
ラベル宣言部	LABEL 1,2;
定数宣言部	CONST 　　KmessageSTR='Xは100以下です。'; 　　kUpperValue=100;
変数宣言部	VAR 　　x:INTEGER;
サブルーチン部	FUNCTION Evaluate(value:INTEGER):BOOLEAN; BEGIN 　　IF value<=kUpperValue THEN 　　　　Evalueate:=TRUE 　　ELSE&be;　　　　Evalueate:=FLSE; END;
メインプログラム部	BEGIN 　　x=IntDialog('Input Number','0'); 　　IF NOT Evaluate(x) THEN GOTO 2; 　　AlrtDialog(kMessageStr); 　　GOYO 1; 2: SysBeep; 1:END
実行命令部	Run (TEST);

この中で必ず書かなければならない部分を「必須パートと呼びます」
必須パートは　上の赤い文字の部分。
「プログラム宣言部」
「メインプログラム部」
「実行命令部」

例　必須パートのみのプログラム
以下のプログラムは、実行すると警告音が鳴って終了するものです。

PROCEDURE MyProgram;　{プログラム宣言部}
BEGIN　　　　　　　　　{メインプログラム部}
　　SysBeep;
END
Run(MyProgram);　　　　{実行命令部}

1行目には必ず　プログラム宣言　を書きます。
PROCEDUREの後にスペースを付けて、プログラム名を書きます。
行末のセミコロン(;)も忘れないで下さい。
プログラム名は識別子のルールに従って好きな名前をつける事ができます。
例

PROCEDURE MyProgram;

プログラムは「BEGIN」と「END」の間に書きます。
各行頭には、タブを入れることで見やすくなります。
プログラムは
BEGIN文からスタートし、
原則的に下方向へ進みます。
一番最後の　END文がきたら終了します。

最後に　プログラムを実行するための命令を　以下のように書きます。

例

Run (MyProgram);

括弧内のプログラム名は、一番最初に宣言した名前を書きます。
1行目で宣言したプログラム名と一致しない場合は動きませんので、
タイプミスのないよう打ち込んで下さい。(コピペすると確実です。)