--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TL1/test/t3.tl1	Fri Jan 11 17:42:52 2019 +0900
@@ -0,0 +1,26 @@
+% ** 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