home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / qslprint.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  58 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: QSLPRINT.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 12/10/87      1:28
  9. *:
  10. *:      Called by: LOGQSL.PRG                    
  11. *:               : DXPDNQSL.PRG                  
  12. *:
  13. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  14. *:*********************************************************************
  15. *QSLPRINT prints labels for QSL cards VERSION 860622
  16. STORE 'TO RADIO  '+CHR(14)+CALL+CHR(20) TO line1
  17. STORE 'Confirming 2X '+TRIM(mode)+' QSO'TO line2
  18. STORE 'ON '+DATE+' AT '+TIME+ ' UTC.' TO line3
  19. STORE 'BAND '+TRIM(band)+' M.'+ ' UR RPT RS'TO line4
  20. IF LEN(TRIM(tx))=3
  21.    STORE  line4 + 'T' TO line4
  22. ENDIF
  23. STORE line4 +' '+tx  TO line4
  24. STORE '73, ' TO line5
  25. IF qslrx = 'R'
  26.    STORE line5 + 'TNX' TO line5
  27. ELSE
  28.    STORE line5 +  'PSE' TO line5
  29. ENDIF
  30. STORE line5 + ' QSL ' TO line5
  31. IF qslsent = 'D'
  32.    STORE line5 + 'DIRECT' TO line5
  33. ELSE
  34.    IF qslsent = 'B'
  35.       STORE line5 + 'VIA BUREAU' TO line5
  36.    ELSE
  37.       IF qslsent = 'M'
  38.          STORE  line5 + 'VIA UR MNGR' TO line5
  39.       ELSE
  40.          * IF IT IS '-' YOU HAVEN'T SENT THE CARD
  41.       ENDIF
  42.    ENDIF
  43. ENDIF
  44. * STORE  CHR(15)+'QSL by PC-HAM 2.0, (C) G3ZCZ 1986'+ CHR(18) TO line8
  45. SET CONSOLE OFF
  46. SET PRINT ON
  47. ? line1
  48. ? line2
  49. ? line3
  50. ? line4
  51. ? line5
  52. ?
  53. SET CONSOLE ON
  54. SET PRINT OFF
  55. RELEASE line1,line2,line3,line4,line5
  56. RETURN
  57. *: EOF: QSLPRINT.PRG
  58.