Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/test/t3.tl1 @ 176:6ef317714ae8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
175:c83545730d6c 176:6ef317714ae8
2 PROC WAIT 2 PROC WAIT
3 FUNC TIME 3 FUNC TIME
4 %--- MAIN --- 4 %--- MAIN ---
5 VAR MMI,MMJ,MMK 5 VAR MMI,MMJ,MMK
6 BEGIN 6 BEGIN
7 WRITE(1:ASCII($A))
7 MMI:=1 MMJ:=2 MMK:=3 8 MMI:=1 MMJ:=2 MMK:=3
8 WAIT(4,5) 9 WAIT(4,5)
9 WRITE(1:MMI,CRLF) 10 WRITE(1:MMI,CRLF)
10 END 11 END
11 %-- PROCEDURE WAIT -- 12 %-- PROCEDURE WAIT --