case{$PSTIME_DAY}
		(1) mes->"登録してから１日目のイベント"
		(2) mes->"登録してから２日目のイベント"

	if{$PLTIME_DAY > 3} go->HOGE #四日ぶり以上のアクセス

	case{$PSTIME_DAY}
		(10-) del

Start
	case{$PLTIME_MIN}
		(-29) go->MISS
	#処理

MISS
	mes->"さっきアクセスしてからまだ30分も経っていません！"

	$PTIME = $LTIME
	end

	if{$PATIME > 10} go->TIMEOUT

	mes->"<META HTTP-EQUIV="Refresh"
 CONTENT="10;URL=wps.cgi?id=$ID&key=$KEY&select_num=100&dummy=123">"

	addmenu(10)
	addmenu(20)
	mes->"<FORM action="./wps.cgi">"
	mes->"<INPUT TYPE="hidden" NAME="mode" VALUE="sel">"
	mes->"<INPUT TYPE="hidden" NAME="id" VALUE="$ID">"
	mes->"<INPUT TYPE="hidden" NAME="key" VALUE="$KEY">"
	mes->"<INPUT TYPE="hidden" NAME="dummy" VALUE="123">"

	mes->"<SELECT NAME="select_num">\n"
	mes->"<OPTION value="10">選択１"
	mes->"<OPTION value="20">選択２"
	mes->"</SELECT>"
	mes->"<INPUT TYPE="submit">"
	mes->"</FORM>"

	addmenu(4)
	addmenu(5)
	addmenu(6)

	mes->"<FORM action="./wps.cgi">\n"
	mes->"<INPUT TYPE="hidden" NAME="mode" VALUE="reg">\n"
	mes->"<INPUT TYPE="hidden" NAME="id" VALUE="$ID">\n"
	mes->"<INPUT TYPE="hidden" NAME="key" VALUE="$KEY">\n"
	mes->"<INPUT TYPE="hidden" NAME="dummy" VALUE="123">\n"

	mes->"<SELECT NAME="select_num">"
	mes->"<OPTION value="4">初級"
	mes->"<OPTION SELECTED value="5">中級"
	mes->"<OPTION value="6">上級"
#------（略）

START
	$HOGE = 1
	case{$HOGE}
		(1) call->TEST
		(2) go->HOEHOE
	mes->"処理は終わり"
#処理群
TEST
	mes->"HOGEの値は１です"
	$HOGE = 2

HOEHOE
	mes->"HOGEの値は２です"
	mes->"処理は終わり"

Start
	tvar->star
	star = 10
	call->Print_star

Print_star
	case{$star}
		(0) return
	mes->"☆"
	$star - 1
	go->Print_star

START
	tvar->sum temp
	$temp = 1
	go->SUM
SUM
	if($temp > 10) go->END
	$sum + $temp
	$temp + 1
	go->SUM
END
	mes->"$sum"

	$HOGE = 1234
	split($HOGE,2)->$TENP
	#↑$TEMPの値は左から２番目の桁（100の位）の数、2になります。

　#アイテムＡを入手→$HOGEの左から三番目の桁を１にする場合
	$HOGE + 100000
　#↑$HOGEが10000000から始まっているので左から三桁目は10万の位

　#アイテムＡを持っているかどうか判定

	tvar->temp
	split($HOGE,3)->$temp
	if{$temp == 1} mes->"アイテムＡを持っている！"

	case{$temp}
		(100000) mes->"アイテムＡを持っている！"

	tvar->temp
	split($HOGE,3)->$temp
	if{$temp == 1} mes->"アイテムＡを持っている！"
	split($HOGE,5)->$temp
	if{$temp == 1} mes->"アイテムＢを持っている！"
	split($HOGE,7)->$temp
	if{$temp == 3} mes->"３時間経った！"
	split($HOGE,8)->$temp
	if{$temp >= 1} mes->"アイテムＤを$temp個持っている！"

	insert($HOGE,8)->"+1" # $HOGEの左から8桁目の値に1加算します。
	insert($HOGE,7)->"-3" # $HOGEの左から7桁目の値を3減算します。
	insert($HOGE,8)->"=4" # $HOGEの左から8桁目の値を4にします。

FORM
	regform(1)      #←この選択肢はENTRYという処理群へ行くとする
	input(1)->16,16
	submit->"ok"
	regform(0)
ENTRY
	userck go->NG1
	#↑ユーザーの名前が既に他の人に使われているかチェック
	userck->"record.log" go->NG2
	#↑特定ファイル（この場合record.log）に対してのチェック
	strck($REG_USERNAME)->"ほえほえ" go->NG3
	#↑特定の名前では登録できないようにしている
	#  userck->"file"を使っても同じようなことができる
NG1
	…以下略

100
	mes->"$USERNAMEのパスワード変更<br>"
	chgform(101)
	mes->"今までのパスワード<br>"
	input(5)->8,8
	mes->"<br>"
	mes->"新しいパスワード<br>"
	input(3)->8,8
	mes->"<br>"
	mes->"確認でもう一度<br>"
	input(4)->8,8
	mes->"<br>"
	submit->"ok"
	chgform(0)
101
	strck($reg_password1)->"" go->101_NG
	strck($reg_password2)->"" go->101_NG
	strck($reg_password3)->"" go->101_NG
	mes->"$USERNAMEのパスワードを変更しました<br>"
	chgpd
101_NG
	mes->"パスワードを正しく入力してください<P>"
	go->100

200
	mes->"ペット名の変更"
	chgform(201)
	input(2)->8,8
	submit->"ok"
	chgform(0)
201
	strck($reg_petname)->"" go->201_NG
	chgpn
	mes->"新しいペット名：$PETNAME"
201_NG
	mes->"名前を入力してください<P>"
	go->200

	until($SYS{Process_end}){

		error("処理に時間がかかりすぎました")

 if($process_count>9999);

       　　　　　　↑この部分を修正

FORM
	chgform(100)
	mes->"合い言葉をどうぞ"
	input(2)->16,16
	submit->"入力"
	chgform(0)

100
	strck($reg_petname)->"ひらけぴいなっつ" mes->"扉がかすかに動いた！"
	strck($reg_petname)->"ひらけごま" mes->"扉がかすかに動いた！"
	strck($reg_petname)->"てけれっつのぱあ" go->OPEN

	if{$Strings_ck == 0} mes->"何も起きなかった！"
	go->FORM
OPEN
	mes->"扉が開いた！"

#---------------------------------------------------------
0
	mes->"ユーザー登録する？<P>\n"
	mes->"<CENTER>"
	menu(1)->"登録する"
	mes->"　　"
	menu(99)->"終了"
	mes->"</CENTER>"
	
	go->Footer
1
	regform(2)
	mes->"　管理人が発行した認証番号をどうぞ："
	input(2)->16,16
	submit->"click"
	mes->"<br>"
	regform(0)
	go->Footer
2
	strck($PETNAME)->"123-456" go->OK
	mes->"認証が不正です！　"
	menu(99)->"終了"
	mes->"<P>"
	go->1
OK
	go->PRINT_FORM
PRINT_FORM
	mes->"$PETNAME"
	#入力フォームの作成
	regform(20)
	mes->"<TT>\n"
	mes->"　　貴方の名前："
	input(1)->16,16
	mes->"<br>"
	mes->"　　ペット名前："
	input(2)->16,16
	mes->"<br>"
	mes->"　　パスワード："
	input(3)->16,16
	mes->"<br>"
	mes->"確認でもう一度："
	input(4)->16,16
	submit->"登録"
	mes->"</TT>"
	regform(0)
	go->Footer
#---------------------------------------------------------

例：001-7530という認証番号（ID-Key）

	split($PETNAME,1)->$ID_1
	split($PETNAME,2)->$ID_2
	split($PETNAME,3)->$ID_3

	split($PETNAME,5)->$KEY_1
	split($PETNAME,6)->$KEY_2
	split($PETNAME,7)->$KEY_3
	split($PETNAME,8)->$KEY_3

	$ID_1 * 100
	$ID_2 * 10
	$ID_CK = $ID_1
	$ID_CK + $ID_2
	$ID_CK + $ID_3
	#↑これで$ID_CKにID番号が代入される

	$KEY_1 * 1000
	$KEY_2 * 100
	$KEY_3 * 10
	$KEY = $KEY_1
	$KEY + $KEY_2
	$KEY + $KEY_3
	$KEY + $KEY_4
	#↑これで$KEYにID番号が代入される

	$HOGE = 753000
	$HOGE / $ID_CK
	split($HOGE,1)->$HOGE_1
	split($HOGE,1)->$HOGE_2
	split($HOGE,1)->$HOGE_3
	split($HOGE,1)->$HOGE_4
	$HOGE_1 * 1000
	$HOGE_2 * 100
	$HOGE_3 * 10
	$HOGE = $HOGE_1
	$HOGE + $HOGE_2
	$HOGE + $HOGE_3
	$HOGE + $HOGE_4
	#↑マジックナンバー（$HOGE=753000）を用意し、
	#IDで割った商の上四桁を利用する例。

	if{$HOGE == $KEY} go->OK

FORM
	chgform(100)
	mes->"ペットの名前"
	input(2)->16,16,"タマ"
	submit->"入力"
	chgform(0)

FORM
	regform(100)
	input(1)->16,16
	submit->"ok"
	regform(0)
100
	userck go->NG1
	#↑ユーザーの名前が既に他の人に使われているかチェック
	userck->"record.log" go->NG2
	#↑特定ファイル（この場合record.log）に対してのチェック
	strck($REG_USERNAME)->"ほえほえ" go->NG3
	#↑特定の名前では登録できないようにしている

	userok
	#↑例外処理に引っかからないで済んだので、ここでuserok。

	#次の処理

NG1
	…以下略