Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/test/t3.tl1 @ 191:d0f5894e9b3a default tip
some how load: confilicts in gmake
author | kono |
---|---|
date | Thu, 07 Dec 2023 09:37:15 +0900 |
parents | 6ef317714ae8 |
children |
rev | line source |
---|---|
144 | 1 % ** SPRITE TEST PROGRAM ** |
2 PROC WAIT | |
3 FUNC TIME | |
4 %--- MAIN --- | |
5 VAR MMI,MMJ,MMK | |
6 BEGIN | |
176 | 7 WRITE(1:ASCII($A)) |
144 | 8 MMI:=1 MMJ:=2 MMK:=3 |
9 WAIT(4,5) | |
10 WRITE(1:MMI,CRLF) | |
11 END | |
12 %-- PROCEDURE WAIT -- | |
13 WAIT(WWA,WWB) | |
14 VAR WWJ,WWK | |
15 BEGIN | |
16 WWJ:=4 | |
17 WWK:=TIME(6,7) | |
18 WRITE(1:MMI,WWJ,WWA,WWB,WWK,CRLF) | |
19 END | |
20 %-- PROCEDURE TIME -- | |
21 TIME(TTA,TTB) | |
22 VAR TTK,TTJ | |
23 BEGIN | |
24 TTK:=5 | |
25 WRITE(1:MMI,TTK,TTA,TTB,CRLF) | |
26 RETURN TTK | |
27 END |