Mercurial > hg > Members > kono > os9 > sbc09
annotate TL1/test/t3.tl1 @ 144:1112b0549142
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 |
| rev | line source |
|---|---|
| 144 | 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 |