--- a/TL1/test/t4.tl1	Mon Apr 15 14:21:00 2019 +0900
+++ b/TL1/test/t4.tl1	Wed May 12 12:57:20 2021 +0900
@@ -2,15 +2,15 @@
 FUNC SEARCH
 %--- MAIN ---
 VAR DICT,BUF
-ARRAY TEND[2]
+ARRAY TEND[1]
 BEGIN
-  POSITION(DICT,TEND)
+  TELL(DICT,TEND)
   DICT := OPENM($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)
+  TELL(DICT,TEND)
   BUF := OPENM($2,0)
   WRITE(BUF:"FUNC",ASCII(0))
   WRITE(0:SEARCH(BUF),CRLF)
@@ -21,10 +21,10 @@
 
 SEARCH(BUF)
 VAR VAL,K,C
-ARRAY BEND
+ARRAY BEND[1]
 BEGIN
   VAL := SEEK(DICT,TEND)
-  POSITION(BUF,BEND)
+  TELL(BUF,BEND)
   WHILE VAL#0 DO [
      C:=SEEKR(BUF,-1)
      K:=SEEKR(DICT,-1)