home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / pc_ham2 / qslprint.2 < prev    next >
Encoding:
Text File  |  1985-09-28  |  2.9 KB  |  84 lines
  1. 10 REM QSLPRINT VERSION 790821
  2. 15 REM (C) SNOW MICROSYSTEMS INC
  3. 20 ERRSET640,E1,E2
  4. 25 REM PROGRAMMED BY JOE KASSER G3ZCZ
  5. 30 DIMM1$(36)\M1$="JanFebMarAprMayJunJulAugSepOctNovDec"
  6. 40 INPUT"What is the name of the log file ? ",L1$\IFL1$=""THEN40
  7. 50 INPUT"Which drive is it on ? ",D\IFD<1ORD>4THEN50
  8. 60 D$=STR$(D)\D$=D$(2,2)
  9. 70 INPUT"Shall I edit the QSL information into the log  ? ",A$\IFA$=""THEN70
  10. 80 IFA$(1,1)="N"THEN120\IFA$(1,1)="Y"THEN90ELSE70
  11. 90 INPUT"What is the name of the new log file ? ",L2$\IFL2$=""THEN90
  12. 95 IFLEN(L2$)<8THEN100ELSE!"LENGTH ERROR (max is 7)"\GOTO90
  13. 100 INPUT"Which drive do you want it on ? ",D2\IFD2<0ORD2>4THEN100
  14. 110 E8=1\D2$=STR$(D2)\D2$=","+D2$(2,2)
  15. 120 INPUT"Which output device (0-7) ? ",A\IFA<0ORA>7THEN120
  16. 130 IFFILE(L1$+","+D$)=3THEN170 
  17. 140 PRINTL1$+" is not present on drive ",D
  18. 150 PRINT"Put it in drive ",D," then hit ","'RETURN'"
  19. 160 INPUT"",A$\GOTO130 
  20. 170 GOSUB5005
  21. 180 INPUT"How many cards do you want printed ?",C\IFC=0THEN250
  22. 190 DIMZ$(C*10+1),Z(C),Q(C)\FORI=0TOC\Q(C)=0\Z(I)=0\NEXT
  23. 200 FORJ=0TOC-1
  24. 210 INPUT"Call sign ? ",E$\IFE$=""THEN250
  25. 220 IFE8=0THEN240ELSEINPUT"HAS HE QSL'D ? ",A$\IFA$=""THEN220
  26. 230 IFA$(1,1)="Y"THENQ(J)=1ELSEQ(J)=0
  27. 240 Z$(J*10+1,J*10+10)=E$\NEXT
  28. 250 C=J\ OPEN#1,"*"+L1$+","+D$
  29. 260 OPEN#0,L1$+","+D$
  30. 270 READ#1,N\CLOSE#1
  31. 280 IFE8=0THEN320
  32. 290 CREATEL2$+D2$,INT(N/4+N/10)+1
  33. 300 CREATE"*"+L2$+D2$,2
  34. 310 OPEN#1,L2$+D2$
  35. 320 FORI=0TON-1\GOSUB5025
  36. 330 FORJ=0TOC-1\C2$=Z$(J*10+1,J*10+10)
  37. 340 IFC$=C2$(1,LEN(C$))THEN350ELSE500
  38. 350 IFZ(J)=1THEN500
  39. 360 PRINT#A\Z(J)=1
  40. 370 PRINT#A,"To Radio Station ",C$
  41. 380 PRINT#A,"Confirming our 2X ",M$," QSO"\T$=FNT$(T)
  42. 390 PRINT#A,"on ",D1," ",M1$((D2-1)*3+1,(D2-1)*3+3),1900+D3," at ",T$," GMT"
  43. 400 PRINT#A,"Your report is RST",S
  44. 410 PRINT#A,"Freq/Band ",F," MHz/Meters"
  45. 420 PRINT#A,"Input power ",P," Watts ."
  46. 430 IFE8=0THEN440ELSEQ2=Q(J)
  47. 440 IFQ2=1THENE$="Tnx"ELSEE$="Pse"
  48. 450 PRINT#A,E$+" QSL"\Q1=1
  49. 460 PRINT#A,"73   .........  "+C1$
  50. 470 PRINT#A,"Northstar Computer Logbook"
  51. 480 PRINT#A,"(C) Snow Micro Systems Inc."
  52. 490 FORX=1TO5\PRINT#A\NEXTX
  53. 500 NEXTJ
  54. 510 IFE8=1THENGOSUB5035
  55. 520 NEXTIè530 FORI=0TOC-1
  56. 540 IFZ(I)=1THEN570
  57. 550 IFZ(C)=0THEN!"THE FOLLOWING CALLS WERE NOT FOUND"
  58. 560 PRINTZ$(I*10+1,I*10+10)\Z(C)=1
  59. 570 NEXT
  60. 580 CLOSE#0
  61. 590 IFE8=0THEN630ELSECLOSE#1
  62. 600 OPEN#0,"*"+L2$+D2$
  63. 610 WRITE#0,N
  64. 620 CLOSE#0
  65. 630 GOTO5045
  66. 640 ERRSET640,E1,E2
  67. 645 IFE2=15THEN745
  68. 650 IFE1<>5560THEN660ELSEIFI>4THEN5570ELSE5565
  69. 660 IFE1<>5650THEN670ELSEIFI>4THEN5670ELSE5660 
  70. 670 IFE2<>7THEN680ELSEPRINT"FILE ERROR"\GOTO800
  71. 680 IFE2<>8THEN690ELSEPRINT"HARD DISC ERROR"\GOTO630
  72. 690 REM
  73. 700 REM
  74. 710 REM
  75. 720 REM
  76. 730 REM
  77. 740 PRINT"ERROR ",E2," AT LINE ",E1
  78. 745 IFE1<290THEN630ELSEIFE8=0THEN630
  79. 750 DESTROYL2$+D2$
  80. 760 DESTROY"*"+L2$+D2$
  81. 770 GOTO630
  82. 800 IFE1<290ORE1>300THEN820ELSE!"INSUFFICIENT DISC SPACE FOR "+L2$\GOTO750
  83. 820 GOTO630
  84.