home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / DXCC5B.PRG < prev    next >
Encoding:
Text File  |  1986-04-22  |  2.5 KB  |  67 lines
  1. *DXCC5B  GENERATES A 5B DXCC QSLED LIST VERSION 860421
  2. * BY JOE KASSER G3ZCZ (c) 1985
  3. STORE  logbook TO tlogbook
  4. IF FILE (tlogbook)
  5.    ERASE
  6.    @ 5,1 SAY ' '
  7.    STORE ' ' TO pf
  8.    ACCEPT 'Do you want hard copy (Y/N) ' TO pf
  9.    STORE ' ' TO choice
  10.    IF pf = 'Y'
  11.       @ 8,1 SAY ' '
  12.       ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ' TO choice
  13.    ENDIF
  14.    STORE '           ' TO blank
  15.  
  16.    USE &logbook
  17.  
  18.    STORE '10' TO thisband
  19.    STORE thisband + 'DXCC' TO dxcc                    
  20.    DO DXCC5BGN                                        
  21.    DO DXCCMB                                          
  22.    IF pf = 'Y'                                        
  23.       DO DXCCPRNT                                     
  24.    ENDIF                                              
  25.  
  26.    STORE '15' TO thisband
  27.    STORE thisband + 'DXCC' TO dxcc
  28.    DO DXCC5BGN
  29.    DO DXCCMB
  30.    IF pf = 'Y'
  31.       DO DXCCPRNT
  32.    ENDIF
  33.  
  34.    STORE '20' TO thisband
  35.    STORE thisband + 'DXCC' TO dxcc                    
  36.    DO DXCC5BGN                                        
  37.    DO DXCCMB                                          
  38.    IF pf = 'Y'                                        
  39.       DO DXCCPRNT                                     
  40.    ENDIF                                              
  41.                                                       
  42.    STORE '40' TO thisband                             
  43.    STORE thisband + 'DXCC' TO dxcc                    
  44.    DO DXCC5BGN                                        
  45.    DO DXCCMB                                          
  46.    IF pf = 'Y'                                        
  47.       DO DXCCPRNT                                     
  48.    ENDIF                                              
  49.                                                       
  50.    STORE '80' TO thisband                             
  51.    STORE thisband + 'DXCC' TO dxcc                    
  52.    DO DXCC5BGN                                        
  53.    DO DXCCMB                                          
  54.    IF pf = 'Y'                                        
  55.       DO DXCCPRNT                                     
  56.    ENDIF                                              
  57.                                                       
  58.    RELEASE pf,blank                                   
  59. ELSE
  60.    ? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
  61. ENDIF
  62. RELEASE tlogbook                                                                      
  63.  
  64. RETURN
  65.                     
  66.    STORE '80' TO thisband                             
  67.    STORE thisband + 'DXC