如何正确放置0101位置的空格

我使用 cobol 85 创建一个输入 10 位数字的程序，如果用户输入“END”，程序就会结束。但我似乎无法使用 DISPLAY AT“position”清除屏幕。有什么建议吗？谢谢。这是源代码：

       IDENTIFICATION DIVISION.
       PROGRAM-ID. INPUT-ASSIGMENT.
      ******************************************************************
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      ******************************************************************
           01  A.
               03  A1 OCCURS 10 TIMES PIC X(3). 
           01  I                  PIC 9(3).
           01  J                  PIC 9(3).
           01  KETA               PIC 9(4).
           01  DT-IN              PIC X(3).
      ******************************************************************
       PROCEDURE DIVISION.
           PERFORM MAIN-SYORI.
           STOP RUN.
      ******************************************************************
       MAIN-SYORI SECTION.
           PERFORM INITIALIZE-RTN.
           PERFORM TAMEKOMI-SYORI.
           PERFORM TORIDASHI-SYORI.
      ******************************************************************
       INITIALIZE-RTN SECTION.
           DISPLAY SPACE. 
           MOVE 1 TO I.    
           MOVE 1 TO J.
      ******************************************************************
       TAMEKOMI-SYORI SECTION.
           PERFORM UNTIL I > 10 OR DT-IN = "END"
               DISPLAY "3文字を入力してください:" 
               ACCEPT DT-IN
               IF DT-IN NOT = "END"
                   MOVE DT-IN TO A1(I)
                   ADD 1 TO I
               END-IF
           END-PERFORM.
      ******************************************************************
       TORIDASHI-SYORI SECTION.
           DISPLAY SPACE.   
           PERFORM VARYING J FROM 1 BY 1 UNTIL J > I - 1 
               DISPLAY A1(J)
           END-PERFORM.     
           DISPLAY "プログラムは終了しました.".
      ******************************************************************
       END PROGRAM INPUT-ASSIGMENT.