Commit | Line | Data |
---|---|---|
1662094b BJ |
1 | Berkeley Pascal PI -- Version 1.1 (January 4, 1979) |
2 | ||
3 | Sat Mar 31 11:50 1979 synerr.p | |
4 | ||
5 | 1 progran syn(output); | |
6 | e \l'\w`w `u-\w`e `u '\l'\w` 1 `u-\w`w `u\&\(rh'\l'(\w`p`u-\w`^`u)/2 '\(ua\l'(\w`p`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Replaced identifier with a keyword program | |
7 | 2 var i, j are integer; | |
8 | e \l'\w`w `u-\w`e `u '\l'\w` 2 var i, j `u-\w`w `u\&\(rh'\l'(\w`a`u-\w`^`u)/2 '\(ua\l'(\w`a`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Replaced identifier with a ':' | |
9 | 3 begin | |
10 | 4 for j :* 1 to 20 begin | |
11 | e \l'\w`w `u-\w`e `u '\l'\w` 4 for j :`u-\w`w `u\&\(rh'\l'(\w`*`u-\w`^`u)/2 '\(ua\l'(\w`*`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Replaced '*' with a '=' | |
12 | e \l'\w`w `u-\w`e `u '\l'\w` 4 for j :* 1 to 20 `u-\w`w `u\&\(rh'\l'(\w`b`u-\w`^`u)/2 '\(ua\l'(\w`b`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Inserted keyword do | |
13 | 5 write(j); | |
14 | 6 i = 2 ** j; | |
15 | e \l'\w`w `u-\w`e `u '\l'\w` 6 i `u-\w`w `u\&\(rh'\l'(\w`=`u-\w`^`u)/2 '\(ua\l'(\w`=`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Inserted ':' | |
16 | E \l'\w`w `u-\w`E `u '\l'\w` 6 i = 2 *`u-\w`w `u\&\(rh'\l'(\w`*`u-\w`^`u)/2 '\(ua\l'(\w`*`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Inserted identifier | |
17 | 7 writeln(i)) | |
18 | E \l'\w`w `u-\w`E `u '\l'\w` 7 writeln(i)`u-\w`w `u\&\(rh'\l'(\w`)`u-\w`^`u)/2 '\(ua\l'(\w`)`u-\w`^`u)/2 '\l'\w`---`u\&\(rh' Deleted ')' | |
19 | 8 end | |
20 | 9 end. |