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