AIR/cpp-peglib
1
0
Fork 0
mirror of https://github.com/yhirose/cpp-peglib.git synced 2024-11-14 06:55:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added another sample for PL/0.

Browse Source
This commit is contained in:
yhirose 2015-08-05 23:06:58 -04:00
parent 7cc8d51162
commit 906125e7d3
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
language/pl0/samples/square.pas Normal file
View File

@ -0,0 +1,18 @@
VAR x, squ;
PROCEDURE square;
BEGIN
squ:= x * x
END;
BEGIN
x := 1;
WHILE x <= 10 DO
BEGIN
CALL square;
! squ;
x := x + 1
END
END.