*DXCC5B  GENERATES A 5B DXCC QSLED LIST VERSION 860421
* BY JOE KASSER G3ZCZ (c) 1985
STORE  logbook TO tlogbook
IF FILE (tlogbook)
   ERASE
   @ 5,1 SAY ' '
   STORE ' ' TO pf
   ACCEPT 'Do you want hard copy (Y/N) ' TO pf
   STORE ' ' TO choice
   IF pf = 'Y'
      @ 8,1 SAY ' '
      ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ' TO choice
   ENDIF
   STORE '           ' TO blank

   USE &logbook

   STORE '10' TO thisband
   STORE thisband + 'DXCC' TO dxcc                    
   DO DXCC5BGN                                        
   DO DXCCMB                                          
   IF pf = 'Y'                                        
      DO DXCCPRNT                                     
   ENDIF                                              

   STORE '15' TO thisband
   STORE thisband + 'DXCC' TO dxcc
   DO DXCC5BGN
   DO DXCCMB
   IF pf = 'Y'
      DO DXCCPRNT
   ENDIF

   STORE '20' TO thisband
   STORE thisband + 'DXCC' TO dxcc                    
   DO DXCC5BGN                                        
   DO DXCCMB                                          
   IF pf = 'Y'                                        
      DO DXCCPRNT                                     
   ENDIF                                              
                                                      
   STORE '40' TO thisband                             
   STORE thisband + 'DXCC' TO dxcc                    
   DO DXCC5BGN                                        
   DO DXCCMB                                          
   IF pf = 'Y'                                        
      DO DXCCPRNT                                     
   ENDIF                                              
                                                      
   STORE '80' TO thisband                             
   STORE thisband + 'DXCC' TO dxcc                    
   DO DXCC5BGN                                        
   DO DXCCMB                                          
   IF pf = 'Y'                                        
      DO DXCCPRNT                                     
   ENDIF                                              
                                                      
   RELEASE pf,blank                                   
ELSE
   ? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE tlogbook                                                                      

RETURN
                    
   STORE '80' TO thisband                             
   STORE thisband + 'DXC