                                - 101 -      


                  CALL  2530,SYNTAX-Z        ,  
                  CALL  NZ,1601,CHAN-OPEN    .
                  RST   0018,GET-CHAR          
                  CALL  2070,STR-ALTER       A ,
                                               .
                  JR    C,181F,LIST-4         ,
                                             .
                  RST   0018,GET-CHAR         ";" ?
                  CP    +38
                  JR    Z,1814,LIST-2        , .
                  CP    +2C                  "," ?
                  JR    NZ,181A,LIST-3       , .
1814 LIST-2       RST   0020,NEXT-CHAR        
                  CALL  1C82,EXPT-1NUM      , 
                                            LIST # 5.20.
                  JR    1822,LIST-5            
181A LIST-3       CALL  1CE6,USE-ZERO         
                  JR    1822,LIST-5          0  
                                             .

   ,  .

181F LIST-4       CALL  1CDE,FETCH-NUM         ,
                                               
                                             0.
1822 LIST-5       CALL  1BEE,CHECK-END        
                                             , -
                                               .
                  CALL  1E99,FIND-INT          BC.
                  LD    A,B                    A.
                  AND   +3F                   
                  LD    H,A                    
                  LD    L,C                     HL.
                  LD    (E-PPC),HL           E-PPC  
                  CALL  196E,LINE-ADDR          
                                                
                                              
                                            .
                  LD    E,+01                - " 
                                            ".

       .

1835 LIST-ALL     CALL  1855,OUT-LINE         BASIC-.
                  RST   0010,PRINT-A-1        " ".
                  BIT   4,(TV-FLAG)            
                  JR    Z,1835,LIST-ALL      
                                            ,  .
                  LD    A,(DF-SZ)              
                  SUB   (S-POSN-hi)          , 
                  JR    NZ,1835,LIST-ALL     , 
                                             
                                            .
                  XOR   E                       
                  RET   Z                    ,  
                                              
                                              (E=+00).
                  PUSH  HL                  ,  
                  PUSH  DE                    
