home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / QSLPRINT.PRG < prev    next >
Encoding:
Text File  |  1986-11-28  |  2.5 KB  |  99 lines
  1. *QSLPRINT prints labels for QSL cards VERSION 860622
  2. *PARAMETERS joe,blanks
  3. STORE 40 TO label2
  4. STORE 'TO RADIO  '+CHR(14)+call+CHR(20) TO line1
  5. STORE 'Confirming 2X '+TRIM(mode)+' QSO'TO line2
  6. STORE 'ON '+date+' AT '+time+ ' UTC.' TO line3
  7. STORE 'BAND '+TRIM(band)+' M.'+ ' UR RPT RS'TO line4
  8. IF LEN(TRIM(tx))=3
  9.    STORE  line4 + 'T' TO line4
  10. ENDIF
  11. STORE line4 +' '+tx  TO line4
  12. STORE '73, ' TO line5
  13. IF qslrx = 'R'
  14.    STORE line5 + 'TNX' TO line5
  15. ELSE
  16.    STORE line5 +  'PSE' TO line5
  17. ENDIF
  18. STORE line5 + ' QSL ' TO line5
  19. IF qslsent = 'D'
  20.    STORE line5 + 'DIRECT' TO line5
  21. ELSE
  22.    IF qslsent = 'B'
  23.       STORE line5 + 'VIA BUREAU' TO line5
  24.    ELSE
  25.       IF qslsent = 'M'
  26.          STORE  line5 + 'VIA UR MNGR' TO line5
  27.       ELSE
  28.          * IF IT IS '-' YOU HAVEN'T SENT THE CARD
  29.       ENDIF
  30.    ENDIF
  31. ENDIF
  32. STORE  CHR(15)+'QSL by PC-HAM 2.0, (C) G3ZCZ 1986'+ CHR(18) TO line8
  33. DO CASE
  34.    CASE joe = 0
  35.         SET CONSOLE OFF
  36.         SET PRINT ON
  37.         ? line11,$(blanks,1,label2-LEN(line11)-8),line1
  38.         ? line12,$(blanks,1,label2-LEN(line12)),line2
  39.         ? line13,$(blanks,1,label2-LEN(line13)),line3
  40.         ? line14,$(blanks,1,label2-LEN(line14)),line4
  41.         ? line15,$(blanks,1,label2-LEN(line15)),line5
  42.         ? line8,$(blanks,1,(label2-LEN(line8))*2+11),line8
  43.         ?
  44.         ?
  45.         ?
  46.         STORE 1 TO joe
  47.         SET CONSOLE ON
  48.         SET PRINT OFF
  49.   CASE  joe = 1
  50.         STORE line1 TO line11
  51.         STORE line2 TO line12
  52.         STORE line3 TO line13
  53.         STORE line4 TO line14
  54.         STORE line5 TO line15
  55.         STORE 0 TO joe
  56.   CASE  joe = 2
  57.          SET CONSOLE OFF
  58.          SET PRINT ON
  59.          ? line11
  60.          ? line12
  61.          ? line13
  62.          ? line14
  63.          ? line15
  64.          ? line8
  65.          ?
  66.          ?
  67.          ?
  68.         SET CONSOLE ON
  69.         SET PRINT OFF
  70.   CASE  joe = 3
  71.         SET CONSOLE OFF
  72.         SET PRINT ON
  73.         ? line1
  74.         ? line2
  75.         ? line3
  76.         ? line4
  77.         ? line5
  78.         ? line8
  79.         ?
  80.         ?
  81.         ?
  82.         SET CONSOLE ON
  83.         SET PRINT OFF
  84. ENDCASE
  85. RELEASE line1,line2,line3,line4,line5,line8
  86. RETURN
  87. 14,$(blanks,1,label2-LEN(line14)),line4
  88.         ? line15,$(blanks,1,label2-LEN(line15)),line5
  89.         ? line8,$(blanks,1,(label2-LEN(line8))*2+11),line8
  90.         ?
  91.         ?
  92.         ?
  93.         STORE 1 TO joe
  94.         SET CONSOLE ON
  95.         SET PRINT OFF
  96.   CASE  joe = 1
  97.         STORE line1 TO line11
  98.         STORE line2 TO line12
  99.         STORE line3 TO line13