Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/test/t1.tl1 @ 123:69ab3f9536c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first TL/1 debug
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 23:13:54 +0900
parents
children
comparison
equal deleted inserted replaced
122:4d06202716c2 123:69ab3f9536c0
1 % ** SPRITE TEST PROGRAM **
2 PROC WAIT,TIME
3 %--- MAIN ---
4 VAR I
5 BEGIN
6 WRITE(1:"Do ")
7 FOR I:=1 TO 10 DO [
8 WRITE(1:I,CRLF)
9 TIME
10 ]
11 WAIT
12 END
13 %-- PROCEDURE WAIT --
14 WAIT
15 VAR I,J,K
16 BEGIN
17 FOR I:=0 TO 1 DO [
18 FOR J:=0 TO 255 DO [
19 FOR K:=0 TO 255 DO []]]
20 END
21 %-- PROCEDURE TIME --
22 TIME
23 VAR I,J
24 BEGIN
25 FOR I:=0 TO 10 DO [
26 FOR J:=0 TO 150 DO []]
27 END