10 REM *** TENTEN.BAS AS OF 5/3/84 ***
20 REM ORIGINAL AUTHOR - BUD JOHNSON, KC40C
30 REM PROGRAM WRITTEN 8-2-81
40 REM REWORKED INTO MBASIC FOR OSBORNE 1 BY TERRY WHALIN, TG9WB
50 PRINT CHR$(26):PRINT:PRINT:PRINT
60 PRINT "          TENTEN.BAS":PRINT
70 PRINT "a program for organizing 10X numbers"
80 PRINT "collected on amateur radio's 10 meters":PRINT
90 INPUT "Do you need instructions ";ANS$
100 IF ANS$="Y" GOTO 140
110 IF ANS$="y" GOTO 140
120 IF ANS$="N" GOTO 340
130 IF ANS$="n" GOTO 340
140 PRINT CHR$(26):PRINT:PRINT
150 PRINT "To begin using this program DATA statements will "
160 PRINT "need to be entered in the following manner:"
170 PRINT "CALLSIGN,00034050584 or CALL,TENTEN NUMBER with"
180 PRINT "5 digits (0 if needed, date as in example May 5,"
190 PRINT "1984 (050584). No spaces should be in the list of"
200 PRINT "numbers for the program to work properly.":PRINT
210 PRINT "Once program has been initiated, it can be used to"
220 PRINT "check if duplicate numbers or calls are worked by"
230 PRINT "entering the number or the call and checking if"
240 PRINT "present in the DATA statements.":PRINT:PRINT
250 PRINT "The author welcomes any additions and enhancements"
260 PRINT "Please write: Terry Whalin, TG9WB "
270 PRINT "              c/o Wycliffe Bible Translators"
280 PRINT "              Huntington Beach, CA 92647":PRINT
290 INPUT "READY TO BEGIN ";G$
300 IF G$="y" THEN GOTO 340
310 IF G$="Y" THEN GOTO 340
320 IF G$="N" THEN RUN "MENU"
330 IF G$="n" THEN RUN "MENU"
340 PRINT CHR$(26):PRINT:PRINT
350 T1=0:T2=0:T3=0
360 H1$=" 10X U.S.   D.X.    TOTAL"
370 H2$=" CALL* *10X* *DATE "
380 GOSUB 710
390 READ X$,Y$
400 IF X$="X" THEN RESTORE:GOTO 460
410 IF LEFT$(X$,1)="W" THEN T1=T1+1:T3=T3+1:GOTO 390
420 IF LEFT$(X$,1)="K" THEN T1=T1+1:T3=T3+1:GOTO 390
430 IF LEFT$(X$,1)="N" THEN T1=T1+1:T3=T3+1:GOTO 390
440 IF LEFT$(X$,2)>"A9" AND LEFT$(X$,2)< "AM" THEN T1=T1+1:T3=T3+1:GOTO 390
450 T2=T2+1:T3=T3+1:GOTO 390
460 PRINT H1$
470 PRINT ".....";T1;".....";T2;".....";T3
480 PRINT
490 PRINT "FREE SPACE= "FRE(0)" BYTES"
500 PRINT:PRINT
510 GOSUB 710
520 INPUT "ENTER CALL OR 10X OR TYPE + TO EXIT";W$
530 PRINT:PRINT
540 IF W$="+" THEN RUN "MENU"
550 X=1
560 IF LEFT$(W$,1)< "A" AND MID$(W$,2,1)< "A" AND MID$(W$,3,1)< "A" THEN X=0
570 READ X$,Y$
580 IF X$="X" THEN PRINT W$"-NOT IN FILE":PRINT:RESTORE:R=0:GOTO 520
590 IF X=1 AND W$=X$ THEN 620
600 IF X=0 AND W$=LEFT$(Y$,5) THEN 620
610 GOTO 570
620 PRINT H2$
630 PRINT
640 PRINT X$;" ";LEFT$(Y$,5);" ";MID$(Y$,6,2);
650 PRINT "/";MID$(Y$,8,2);"/";RIGHT$(Y$,2)
660 IF X=1 THEN PRINT "-----"
670 IF X=0 THEN PRINT ".....-----"
680 PRINT
690 IF R=1 GOTO 570
700 RESTORE: R=0:GOTO 520
710 FOR Z=1 TO 20
720 NEXT Z:RETURN
730 REM DATA IS JUST A SAMPLE RUN AND SHOULD BE CHANGED 
740 DATA"N0CQY",34901062082
750 DATA"N5BFO",26621071783
760 DATA"TG9WB",35008081283
770 DATA"PJ2WG",27999071783
780 DATA"KB5PJ",31049071683
790 DATA"X","X"
TA"N5BFO",26621071783
760 DATA"TG9WB",35008081283
770 DATA"PJ2WG",279990