Mercurial > hg > Members > kono > os9 > sbc09

view TL1/test/t2.tl1 @ 178:4d83154d2a78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add - {} some builtin in TL/1
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 15 Apr 2019 09:43:28 +0900
parents 6f7276831219
children
line wrap: on
line source

% ** SPRITE TEST PROGRAM **
PROC WAIT,TIME
%--- MAIN ---
VAR MMI,MMJ,MMK
BEGIN
  MMI:=1 MMJ:=2 MMK:=3
  WAIT
  WRITE(1:MMI,CRLF)
END
%-- PROCEDURE WAIT --
WAIT
VAR WWJ,WWK
BEGIN
  WWJ:=4
  TIME
  WRITE(1:MMI,WWJ,CRLF)
END
%-- PROCEDURE TIME --
TIME
VAR TTK,TTJ
BEGIN
  TTK:=5
  WRITE(1:MMI,TTK,CRLF)
END