annotate TL1/test/t3.tl1 @ 180:c3145f913f3d default tip

possible features
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 04 May 2019 11:17:42 +0900
parents 6ef317714ae8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
144
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % ** SPRITE TEST PROGRAM **
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 PROC WAIT
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 FUNC TIME
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 %--- MAIN ---
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 VAR MMI,MMJ,MMK
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 BEGIN
176
6ef317714ae8 mopen in TL/1
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 144
diff changeset
7 WRITE(1:ASCII($A))
144
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 MMI:=1 MMJ:=2 MMK:=3
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 WAIT(4,5)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 WRITE(1:MMI,CRLF)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 END
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 %-- PROCEDURE WAIT --
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 WAIT(WWA,WWB)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 VAR WWJ,WWK
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 BEGIN
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 WWJ:=4
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 WWK:=TIME(6,7)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 WRITE(1:MMI,WWJ,WWA,WWB,WWK,CRLF)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 END
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 %-- PROCEDURE TIME --
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 TIME(TTA,TTB)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 VAR TTK,TTJ
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 BEGIN
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 TTK:=5
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 WRITE(1:MMI,TTK,TTA,TTB,CRLF)
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 RETURN TTK
1112b0549142 TL/1 example t3 worked
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 END