Mercurial > hg > Members > kono > os9 > sbc09

annotate TL1/test/t1.tl1 @ 191:d0f5894e9b3a default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
some how load: confilicts in gmake
author kono
date Thu, 07 Dec 2023 09:37:15 +0900
parents 69ab3f9536c0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
123
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % ** SPRITE TEST PROGRAM **
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 PROC WAIT,TIME
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 %--- MAIN ---
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 VAR I
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 BEGIN
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 WRITE(1:"Do ")
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 FOR I:=1 TO 10 DO [
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 WRITE(1:I,CRLF)
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 TIME
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 ]
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 WAIT
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 END
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 %-- PROCEDURE WAIT --
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 WAIT
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 VAR I,J,K
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 BEGIN
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 FOR I:=0 TO 1 DO [
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 FOR J:=0 TO 255 DO [
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 FOR K:=0 TO 255 DO []]]
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 END
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 %-- PROCEDURE TIME --
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 TIME
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 VAR I,J
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 BEGIN
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 FOR I:=0 TO 10 DO [
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 FOR J:=0 TO 150 DO []]
69ab3f9536c0 first TL/1 debug
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 END