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

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
line wrap: on
line diff
--- a/TL1/test/t3.tl1	Sun Apr 14 17:17:34 2019 +0900
+++ b/TL1/test/t3.tl1	Mon Apr 15 00:25:58 2019 +0900
@@ -4,6 +4,7 @@
 %--- MAIN ---
 VAR MMI,MMJ,MMK
 BEGIN
+  WRITE(1:ASCII($A))
   MMI:=1 MMJ:=2 MMK:=3
   WAIT(4,5)
   WRITE(1:MMI,CRLF)