# ex2.pl
# 1 + 2 + 3 + ... + $1 を計算する PL プログラム

program souwa
1: $10 = 0    # カウンタ
2: $11 = 0    # 途中の計算結果をいれておく
3: # 以下 (1) までを繰り返し
4: if $1 <= 0 goto 14
5:    $10 = $1
6:    $1 = $1 - 1
7:    # 以下 (2) までを繰り返し
8:    if $10 <= 0 goto 12
9:	 $11 = $11 + 1
10:	 $10 = $10 - 1
11:   goto 7
12:   # (2) ここまで繰り返し
13: goto 3
14: # (1) ここまで繰り返し
15: $1 = $11
program end.

program main
10: if $1 != 0 goto 30
20: $1 = 10
30: # 値を求める
40: & souwa
50: return($1)
program end.