                                - 102 -      

                                      
                  LD    HL,+5C6C            ,  S-
                                            TOP  
                                              -
                  CALL  190F,LN-FETCH         (-
                  POP   DE                   ).
                  POP   HL
                  JR    1835,LIST-ALL

 "PRINT A WHOLE BASIC LINE" ("  BASIC-")
----------------------------------------------------------------------
        HL    -,  
   .    ,  -
,    ,         ""  
  .

1855 OUT-LINE     LD    BC,(E-PPC)           
                  CALL  1980,CP-LINES       "" 
                  LD    D,+3E               
                                             .
                  JR    Z,1865,OUT-LINE1     
                                           ,  .
                  LD    DE,+0000             D
                  RL    E                  0 (  ) 
                                            E, 
                                           +01,   
                                           ""   +00,
                                             ( 
                                             CP-LINES).
1865 OUT-LINE1    LD    (BREG),E             
                  LD    A,(HL)               
                  CP    +40                   -
                  POP   BC                   -
                  RET   NC                 ,  
                  PUSH  BC                  .
                  CALL  1A29,OUT-NUM-2       
                                             -  
                                           .
                  INC   HL                  -
                  INC   HL                 ,  
                  INC   HL                     .
                  RES   0,(FLAGS)           "
                                            ".
                  LD    A,D                   
                  AND   A                   , 
                                             
                  JR    Z,1881,OUT-LINE3   
                  RST   0010,PRINT-A-1     ,   .
187D OUT-LINE2    SET   0,(FLAGS)          -" 
                                            "
1881 OUT-LINE3    PUSH  DE                  
                  EX    DE,HL                 DE.
                  RES   2,(FLAGS2)         -"   ".
                  LD    HL,+5C3B            FLAGS.
                  RES   2,(HL)             -"   K".
                  BIT   5,(FLAGX)             
                  JR    Z,1894,OUT-LINE-4  INPUT,  
                  SET   2,(HL)             -"   L".

