Mercurial > hg > Members > kono > os9 > sbc09
view TL1/test/t3.tl1 @ 145:55cc160f101b tl1
TL1 fix
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 12 Jan 2019 15:19:33 +0900 |
parents | 1112b0549142 |
children | 6ef317714ae8 |
line wrap: on
line source
% ** SPRITE TEST PROGRAM ** PROC WAIT FUNC TIME %--- MAIN --- VAR MMI,MMJ,MMK BEGIN MMI:=1 MMJ:=2 MMK:=3 WAIT(4,5) WRITE(1:MMI,CRLF) END %-- PROCEDURE WAIT -- WAIT(WWA,WWB) VAR WWJ,WWK BEGIN WWJ:=4 WWK:=TIME(6,7) WRITE(1:MMI,WWJ,WWA,WWB,WWK,CRLF) END %-- PROCEDURE TIME -- TIME(TTA,TTB) VAR TTK,TTJ BEGIN TTK:=5 WRITE(1:MMI,TTK,TTA,TTB,CRLF) RETURN TTK END