Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/test/t3.tl1 @ 144:1112b0549142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TL/1 example t3 worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 11 Jan 2019 17:42:52 +0900
parents
children 6ef317714ae8
comparison
equal deleted inserted replaced
143:3abfb68fb043 144:1112b0549142
1 % ** SPRITE TEST PROGRAM **
2 PROC WAIT
3 FUNC TIME
4 %--- MAIN ---
5 VAR MMI,MMJ,MMK
6 BEGIN
7 MMI:=1 MMJ:=2 MMK:=3
8 WAIT(4,5)
9 WRITE(1:MMI,CRLF)
10 END
11 %-- PROCEDURE WAIT --
12 WAIT(WWA,WWB)
13 VAR WWJ,WWK
14 BEGIN
15 WWJ:=4
16 WWK:=TIME(6,7)
17 WRITE(1:MMI,WWJ,WWA,WWB,WWK,CRLF)
18 END
19 %-- PROCEDURE TIME --
20 TIME(TTA,TTB)
21 VAR TTK,TTJ
22 BEGIN
23 TTK:=5
24 WRITE(1:MMI,TTK,TTA,TTB,CRLF)
25 RETURN TTK
26 END