Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/test/t3.tl1 @ 176:6ef317714ae8
mopen in TL/1
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 15 Apr 2019 00:25:58 +0900 |
| parents | 1112b0549142 |
| 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 |