                                - 103 -        


    ,           BASIC-
 - ,  ,     .

1894 OUT-LINE4    LD    HL,(X-PTR)            -
                  AND   A                       ,
                  SBC   HL,DE                   
                  JR    NZ,18A1,OUT-LINE5   
                  LD    A,+3F                  .
                  CALL  18C1,OUT-FLASH       "?"
18A1 OUT-LINE5    CALL  18E1,OUT-CURS       ,  
                                            .
                  EX    DE,HL                 -
                                              HL.
                  LD    A,(HL)                 
                                            .
                  CALL  18B6,NUMBER            "-
                                             ",   
                                               
                                            .
                  INC   HL                    
                                             .
                  CP    +0D                  " "?
                  JR    Z,18B4,OUT-LINE6    ,   .
                  EX    DE,HL                 DE.
                  CALL  1937,OUT-CHAR        .
                  JR    1894,OUT-LINE4       ,  
                                            ,  .

  .

18B4 OUT-LINE6    POP   DE                   
                  RET                        DE  .

 "NUMBER" ("")
-------------------------------
        A  " ",    HL
     .

18B6 NUMBER       CP    +0E                  " "?
                  RET   NZ                   , .
                  INC   HL                   
                  INC   HL                  6  ,  -
                  INC   HL                    " -
                  INC   HL                  "  5 , -
                  INC   HL                     -
                  INC   HL                   .
                  LD    A,(HL)                -
                  RET                         .


 "PRINT A FLASHING CHARACTER" ("  ")
----------------------------------------------------------------------
          " " 
" ".

18C1 OUT-FLASH    EXX                         .
                  LD    HL,(ATTR-T)          ATTR-T 
                  PUSH  HL                  MASK-T   .
