diff TL1/test/t4.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 4d83154d2a78
children
line wrap: on
line diff
--- a/TL1/test/t4.tl1	Mon Apr 15 14:21:00 2019 +0900
+++ b/TL1/test/t4.tl1	Sat May 04 11:17:42 2019 +0900
@@ -4,17 +4,16 @@
 VAR DICT,BUF
 ARRAY TEND[2]
 BEGIN
-  POSITION(DICT,TEND)
-  DICT := OPENM($2,0)
+  DICT := OPENM((INT($2,0))
   WRITE(DICT:ASCII(0))
   WRITE(DICT:ASCII(30),ASCII(-'P'),"ROC")
   WRITE(DICT:ASCII(31),ASCII(-'F'),"UNC")
   WRITE(DICT:ASCII(33),ASCII(-'V'),"AR",CRLF)
-  POSITION(DICT,TEND)
-  BUF := OPENM($2,0)
+  TEND := POSITION(DICT)
+  BUF := OPENM(INT($2,0))
   WRITE(BUF:"FUNC",ASCII(0))
   WRITE(0:SEARCH(BUF),CRLF)
-  SEEK(BUF,0)
+  SEEK(BUF,INT(0))
   WRITE(BUF:"NONAME",ASCII(0))
   WRITE(0:SEARCH(BUF),CRLF)
 END
@@ -24,7 +23,7 @@
 ARRAY BEND
 BEGIN
   VAL := SEEK(DICT,TEND)
-  POSITION(BUF,BEND)
+  BEND:=POSITION(BUF)
   WHILE VAL#0 DO [
      C:=SEEKR(BUF,-1)
      K:=SEEKR(DICT,-1)