home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / QSLPRINT.PRG < prev    next >
Text File  |  1987-12-10  |  1KB  |  43 lines
  1. *QSLPRINT prints labels for QSL cards VERSION 860622
  2. STORE 'TO RADIO  '+CHR(14)+call+CHR(20) TO line1
  3. STORE 'Confirming 2X '+TRIM(mode)+' QSO'TO line2
  4. STORE 'ON '+date+' AT '+time+ ' UTC.' TO line3
  5. STORE 'BAND '+TRIM(band)+' M.'+ ' UR RPT RS'TO line4
  6. IF LEN(TRIM(tx))=3
  7.    STORE  line4 + 'T' TO line4
  8. ENDIF
  9. STORE line4 +' '+tx  TO line4
  10. STORE '73, ' TO line5
  11. IF qslrx = 'R'
  12.    STORE line5 + 'TNX' TO line5
  13. ELSE
  14.    STORE line5 +  'PSE' TO line5
  15. ENDIF
  16. STORE line5 + ' QSL ' TO line5
  17. IF qslsent = 'D'
  18.    STORE line5 + 'DIRECT' TO line5
  19. ELSE
  20.    IF qslsent = 'B'
  21.       STORE line5 + 'VIA BUREAU' TO line5
  22.    ELSE
  23.       IF qslsent = 'M'
  24.          STORE  line5 + 'VIA UR MNGR' TO line5
  25.       ELSE
  26.          * IF IT IS '-' YOU HAVEN'T SENT THE CARD
  27.       ENDIF
  28.    ENDIF
  29. ENDIF
  30. * STORE  CHR(15)+'QSL by PC-HAM 2.0, (C) G3ZCZ 1986'+ CHR(18) TO line8
  31. SET CONSOLE OFF
  32. SET PRINT ON
  33. ? line1
  34. ? line2
  35. ? line3
  36. ? line4
  37. ? line5
  38. ?
  39. SET CONSOLE ON
  40. SET PRINT OFF
  41. RELEASE line1,line2,line3,line4,line5
  42. RETURN
  43.