--- a/TL1/test/t4.tl1	Mon Apr 15 04:27:18 2019 +0900
+++ b/TL1/test/t4.tl1	Mon Apr 15 09:43:28 2019 +0900
@@ -1,43 +1,43 @@
 % ** TEST PROGRAM **
 FUNC SEARCH
 %--- MAIN ---
-VAR DICT,BUF,D
+VAR DICT,BUF
 ARRAY TEND[2]
 BEGIN
-  WRITE(DICT:ASCII(0))
+  POSITION(DICT,TEND)
   DICT := OPENM($2,0)
   WRITE(DICT:ASCII(0))
-  WRITE(DICT:ASCII(30),ASCII(0-'P'),"ROC")
-  WRITE(DICT:ASCII(31),ASCII(0-'F'),"UNC")
-  WRITE(DICT:ASCII(33),ASCII(0-'V'),"AR",CRLF)
-  D:=POSITION(DICT,TEND)
+  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)
   WRITE(BUF:"FUNC",ASCII(0))
   WRITE(0:SEARCH(BUF),CRLF)
-  D:=SEEK(BUF,0)
+  SEEK(BUF,0)
   WRITE(BUF:"NONAME",ASCII(0))
   WRITE(0:SEARCH(BUF),CRLF)
 END
 
 SEARCH(BUF)
-VAR VAL,K,C,D
+VAR VAL,K,C
 ARRAY BEND
 BEGIN
   VAL := SEEK(DICT,TEND)
-  D:=POSITION(BUF,BEND)
+  POSITION(BUF,BEND)
   WHILE VAL#0 DO [
-     C:=SEEKR(BUF,0-1)
-     K:=SEEKR(DICT,0-1)
+     C:=SEEKR(BUF,-1)
+     K:=SEEKR(DICT,-1)
      IF K.LT.0 THEN [
-       IF C=0-K THEN
+       IF C=-K THEN
           RETURN VAL    % FOUND
-       VAL := SEEKR(DICT,0-1)
+       VAL := SEEKR(DICT,-1)
      ] ELSE IF C#K THEN [
-       D:=SEEK(BUF,BEND)
+       SEEK(BUF,BEND)
        REPEAT
-          K:=SEEKR(DICT,0-1)
+          K:=SEEKR(DICT,-1)
        UNTIL K.LT.0
-       VAL := SEEKR(DICT,0-1)
+       VAL := SEEKR(DICT,-1)
      ]
   ]
   RETURN VAL % NOT FOUND