vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 19:12:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Update test files to v2.

Browse source
This commit is contained in:
David Brown 2016-06-16 16:25:36 +01:00
parent a9b273e30a
commit ce855c93c8
6 changed files with 212 additions and 241 deletions
Download patch file Download diff file Expand all files Collapse all files

44
src/test/x11/0/test.Mod
View file

@ -1,29 +1,31 @@
MODULE test;
IMPORT p := oocXYplane, Out := Console;
VAR ch : CHAR;
i : INTEGER;
VAR
ch : CHAR;
i : INTEGER;
BEGIN
p.Open;
p.Open;
(*p.Clear;*)
FOR i := 1 TO 555 DO
p.Dot(i,300 ,p.draw)
END;
(*
FOR i := 100 TO 500 DO
p.Dot(i,300 ,p.erase)
END;
*)
IF p.IsDot (5, 300) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
IF p.IsDot (5, 500) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
(*p.Clear;*)
FOR i := 1 TO 555 DO
p.Dot(i,300 ,p.draw)
END;
(*
FOR i := 100 TO 500 DO
p.Dot(i,300 ,p.erase)
END;
*)
IF p.IsDot (5, 300) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
IF p.IsDot (5, 500) THEN Out.String("Yes") ELSE Out.String("No") END; Out.Ln;
REPEAT
ch := p.Key();
UNTIL ch # 0X;
p.Close;
REPEAT
ch := p.Key();
UNTIL ch # 0X;
p.Close;
END test.