Mercurial > hg > Members > kono > os9 > sbc09

diff TL1/test/t2.tl1 @ 138:6f7276831219

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 use x and y register
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 07 Jan 2019 19:32:10 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TL1/test/t2.tl1	Mon Jan 07 19:32:10 2019 +0900
@@ -0,0 +1,24 @@
+% ** SPRITE TEST PROGRAM **
+PROC WAIT,TIME
+%--- MAIN ---
+VAR MMI,MMJ,MMK
+BEGIN
+  MMI:=1 MMJ:=2 MMK:=3
+  WAIT
+  WRITE(1:MMI,CRLF)
+END
+%-- PROCEDURE WAIT --
+WAIT
+VAR WWJ,WWK
+BEGIN
+  WWJ:=4
+  TIME
+  WRITE(1:MMI,WWJ,CRLF)
+END
+%-- PROCEDURE TIME --
+TIME
+VAR TTK,TTJ
+BEGIN
+  TTK:=5
+  WRITE(1:MMI,TTK,CRLF)
+END