view 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
line wrap: on
line source

% ** SPRITE TEST PROGRAM **
PROC WAIT
FUNC TIME
%--- MAIN ---
VAR MMI,MMJ,MMK
BEGIN
  WRITE(1:ASCII($A))
  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