Mercurial > hg > Members > kono > os9 > sbc09

comparison 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
comparison
equal deleted inserted replaced
137:1078f3e31d9c 138:6f7276831219
1 % ** SPRITE TEST PROGRAM **
2 PROC WAIT,TIME
3 %--- MAIN ---
4 VAR MMI,MMJ,MMK
5 BEGIN
6 MMI:=1 MMJ:=2 MMK:=3
7 WAIT
8 WRITE(1:MMI,CRLF)
9 END
10 %-- PROCEDURE WAIT --
11 WAIT
12 VAR WWJ,WWK
13 BEGIN
14 WWJ:=4
15 TIME
16 WRITE(1:MMI,WWJ,CRLF)
17 END
18 %-- PROCEDURE TIME --
19 TIME
20 VAR TTK,TTJ
21 BEGIN
22 TTK:=5
23 WRITE(1:MMI,TTK,CRLF)
24 END