home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3
/
hamradioversion3.0examsandprograms1992.iso
/
misc
/
pc_ham3
/
dxccread.bas
< prev
next >
Wrap
BASIC Source File
|
1985-10-06
|
3KB
|
96 lines
10 REM DXCCREAD VER 820913 /modified for DATE$ 850101
20 INPUT "Which DXCC record file " ; F$
30 IF LEN(F$) = 0 THEN 20
40 D1$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)
60 INPUT "Dou you want a selection only " ; Z$
70 IF LEN(Z$) = 0 THEN 60
80 IF LEFT$(Z$,1) = "N" THEN Q9 = 5 : GOTO 190
90 IF LEFT$(Z$,1) = "Y" THEN 110
100 GOTO 60
110 PRINT "The folowing options are available"
120 PRINT "Stations QSL'd 1"
130 PRINT "Stations worked but no card sent 2"
140 PRINT "Cards in the mail direct 3"
150 PRINT "Cards sent via the bureau 4"
160 PRINT "All contacts in the list 5"
170 INPUT "Enter number " ; Q9
180 IF Q9 < 1 OR Q9 > 5 THEN 110
190 INPUT "CONSOLE OR PRINTER " ; A$
200 IF LEN(A$) = 0 THEN 190
210 IF LEFT$(A$,1) = "P" THEN P6 = 1
220 IF P6 = 0 THEN 590
230 INPUT "Wait between pages (Y/N) " ; Z$
240 IF LEN(Z$) = 0 THEN 230
250 IF LEFT$(Z$,1) = "Y" THEN P5 = 1 ELSE P5 = 0
260 GOTO 590
270 REM SUBROUTINES BEGIN HERE
280 IF L9 =< 0 THEN GOSUB 470
290 L9 = L9 - 1 : REM LINE COUNT
300 T$ = STR$(T) : T$ = "0000" + MID$(T$,2) : T$ = RIGHT$(T$,4)
310 I = I + 1
320 IF P6 = 1 THEN 360
330 PRINT I;TAB(6) P$;TAB(11);C$;TAB(21);D$;TAB(30);
340 PRINT T$;TAB(37);B$;TAB(41);M$;TAB(47);
350 GOTO 380
360 LPRINT I;TAB(6) P$;TAB(11);C$;TAB(21);D$;TAB(30);
370 LPRINT T$;TAB(37);B$;TAB(41);M$;TAB(47);
380 IF Q = 1 THEN Q$ = "QSL'D"
390 IF Q = 2 THEN Q$ = "WORKED"
400 IF Q = 3 THEN Q$ = "CARD SENT DIRECT"
410 IF Q = 4 THEN Q$ = "CARD SENT VIA BUREAU"
420 IF P6 = 1 THEN 450
430 PRINT Q$
440 GOTO 460
450 LPRINT Q$
460 RETURN
470 REM HEADING ROUTINE
480 P9 = P9 + 1 : REM PAGE NUMBER
490 IF P6 = 1 THEN 510
500 GOTO 570 : REM DONT PAGE IT
510 IF P9 > 1 THEN LPRINT CHR$(26),CHR$(12)
520 IF P5 = 1 THEN INPUT "CHANGE PAPER AND TYPE P TO CONTINUE " ; Z$
530 LPRINT F$,D1$,"PAGE ";P9
540 LPRINT
550 LPRINT " PX CALL DATE TIME BAND MODE QSL STATUS"
560 LPRINT"-----------------------------------------------------------------"
570 L9 = 50 : REM 50 IS HALF OF DXCC
580 RETURN
590 OPEN"I",#2,F$ + ".DX"
600 IF P6 = 1 THEN LPRINT CHR$(26)
610 IF EOF(2) THEN 690
620 INPUT#2,P$,C$,B$,M$,D$,T,Q
630 IF Q = 1 THEN Q1 = Q1 + 1
640 IF Q = 2 THEN Q2 = Q2 + 1
650 IF Q = 3 THEN Q3 = Q3 + 1
660 IF Q = 4 THEN Q4 = Q4 + 1
670 IF Q9 = Q OR Q9 = 5 THEN GOSUB 280
680 GOTO 610
690 CLOSE #2
700 IF Q9 = 5 THEN 710 ELSE 880
710 IF P6 = 1 THEN 800
720 PRINT
730 PRINT "SUMMARY"
740 PRINT "TOTAL = " , , Q1 + Q2 + Q3 + Q4
750 PRINT "QSL'S RECEIVED = ",Q1
760 PRINT "QSL'S SENT DIRECT = ",Q3
770 PRINT "QSL'S SENT VIA BUREAU = ", Q4
780 PRINT "WORKED BUT NO CARD SENT = ", Q2
790 GOTO 880
800 GOSUB 470
810 LPRINT
820 LPRINT "SUMMARY"
830 LPRINT "TOTAL = " , , Q1 + Q2 + Q3 + Q4
840 LPRINT "QSL'S RECEIVED = ",Q1
850 LPRINT "QSL'S SENT DIRECT = ",Q3
860 LPRINT "QSL'S SENT VIA BUREAU = ", Q4
870 LPRINT "WORKED BUT NO CARD SENT = ", Q2
880 I = 0
890 L9 = 0 : P9 = 0 : P5 = 0 : P6 = 0
900 Q1 = 0 : Q2 = 0 : Q3 = 0 : Q4 = 0
910 INPUT "Again " ; Z$
920 IF LEN(Z$) = 0 THEN 910
930 IF LEFT$(Z$,1) = "Y" THEN 60
3600 FD$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$(DATE$,4,2)
20 IF LEN(Z$) = 0 THEN 910
930 IF LEFT$(Z$,1) = "Y" THEN 60
3600 FD$=RIGHT$(DATE$,2)+"/"+LEFT$(DATE$,2)+"/"+MID$