Source Code
0 REM (C) 1983 BY KENTRONICS
10 PRINT AT 10,0;"ENTER YOUR CALL SIGN"
15 INPUT C$
20 CLS
25 FOR L=1 TO 10
30 PRINT AT 10,0;"\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'."
35 PRINT AT 12,7;"LOG BOOK OF ";C$
40 FOR N=1 TO 20
45 NEXT N
50 FOR F=1 TO 2
55 PRINT AT 12,18;" "
60 NEXT F
65 PRINT AT 14,0;"\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\'.\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'\.'"
70 NEXT L
75 CLS
80 PRINT AT 2,13;"MENU"
85 PRINT ,,,,"(1) CONTINUE OLD LOG"
90 PRINT ,,"(2) COPY LOG CONTENTS TO PRINTER"
95 PRINT ,,"(3) SEARCH LOG BY CALLSIGN/QTH"
100 PRINT ,,"(4) START A NEW LOG"
105 PRINT ,,"(5) SAVE ""LOG"" WITH DATA"
110 PRINT AT 20,0;"ENTER NUMBER OF YOUR CHOICE"
115 INPUT L$
120 IF L$<"1" AND L$>"5" THEN GOTO 75
125 CLS
130 IF L$="1" THEN GOTO 1060
135 IF L$="2" THEN GOTO 2000
140 IF L$="3" THEN GOTO 3000
145 IF L$="4" THEN GOTO 1000
150 IF L$="5" THEN GOTO 5000
155 GOTO 75
\n1000 CLS
\n1005 DIM D$(195,6)
\n1010 DIM T$(195,4)
\n1015 DIM S$(195,10)
\n1020 DIM F$(195,6)
\n1025 DIM M$(195,4)
\n1030 DIM V$(195,3)
\n1035 DIM R$(195,3)
\n1040 DIM N$(195,6)
\n1045 DIM H$(195,10)
\n1050 LET X=1
\n1055 LET K=0
\n1060 PRINT AT 0,0;"DATE ? (DDMMYY)";AT 20,2;"ENTER (S) IF SAME DATE"
\n1065 INPUT K$
\n1070 IF K$="S" THEN LET D$(X)=D$(X-1)
\n1072 IF K$<>"S" THEN LET D$(X)=K$
\n1075 CLS
\n1080 PRINT "TIME ?"
\n1085 INPUT T$(X)
\n1090 CLS
\n1095 PRINT AT 0,0;"STATION ?"
\n1100 INPUT S$(X)
\n1110 CLS
\n1115 PRINT AT 0,0;"FREQUENCY ?";AT 20,2;"ENTER (S) IF SAME FREQUENCY"
\n1120 INPUT W$
\n1130 IF W$="S" THEN LET F$(X)=F$(X-1)
\n1132 IF W$<>"S" THEN LET F$(X)=W$
\n1135 CLS
\n1140 PRINT AT 0,0;"MODE ? (CW,SSB,RTTY,ETC.)";AT 20,2;"ENTER (S) IF SAME MODE"
\n1145 INPUT E$
\n1150 IF E$="S" THEN LET M$(X)=M$(X-1)
\n1152 IF E$<>"S" THEN LET M$(X)=E$
\n1155 CLS
\n1160 PRINT AT 0,0;"RS/T SENT ?";AT 20,2;"ENTER (S) IF SAME REPORT"
\n1165 INPUT I$
\n1170 IF I$="S" THEN LET V$(X)=V$(X-1)
\n1172 IF I$<>"S" THEN LET V$(X)=I$
\n1175 CLS
\n1180 PRINT AT 0,0;"RS/T RECIEVED ?";AT 20,2;"ENTER (S) IF SAME REPORT"
\n1185 INPUT Y$
\n1190 IF Y$="S" THEN LET R$(X)=R$(X-1)
\n1192 IF Y$<>"S" THEN LET R$(X)=Y$
\n1195 CLS
\n1200 PRINT "CONTACTS NAME ?"
\n1205 INPUT N$(X)
\n1210 CLS
\n1215 PRINT AT 0,0;"HIS QTH ?";AT 20,2;"ENTER (S) IF SAME QTH"
\n1220 INPUT G$
\n1225 IF G$="S" THEN LET H$(X)=H$(X-1)
\n1227 IF G$<>"S" THEN LET H$(X)=G$
\n1230 CLS
\n1232 LET X=X+1
\n1233 PRINT "YOU CAN LOG ";195-(X-1);" MORE CONTACTS"
\n1235 PRINT AT 10,0;"(1) LOG MORE CONTACTS"
\n1240 PRINT ,,"(2) RETURN TO MENU"
\n1245 PRINT ,,,,,,"ENTER NUMBER OF YOUR CHOICE"
\n1250 INPUT Z$
\n1252 CLS
\n1255 IF Z$<"1" AND Z$>"2" THEN GOTO 1230
\n1260 IF Z$="1" THEN GOTO 1060
\n1265 IF Z$="2" THEN GOTO 75
\n2000 CLS
\n2001 PRINT "LAST LOG ENTRY WAS NUMBER ";X-1
\n2005 PRINT ,,"WHICH QSO NUMBER TO START PRINT?"
\n2010 INPUT N
\n2015 LPRINT "LOG OF RADIO STATION ";C$
\n2020 LPRINT
\n2025 FOR J=N TO X-1
\n2030 LPRINT "\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '"
\n2035 LPRINT "%Q%S%O% %N%U%M%B%E%R ";N
\n2040 LPRINT ,,"%D%A%T%E %T%I%M%E %S%T%A%T%I%O%N %F%R%E%Q%U%E%N%C%Y"
\n2045 LPRINT D$(J);" ";T$(J);" ";S$(J);" ";F$(J)
\n2050 LPRINT ,,"%M%O%D%E %S%E%N%T %R%C%V%D %N%A%M%E %Q%T%H"
\n2055 LPRINT M$(J);" ";V$(J);" ";R$(J);" ";N$(J);" ";H$(J)
\n2060 LPRINT "\. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. \. "
\n2065 LET N=N+1
\n2070 NEXT J
\n2075 LPRINT ,,"TOTAL LOG ENTRIES ; ";X-1
\n2080 CLS
\n2085 PRINT ,,,,"ENTER (C) TO LOG MORE CONTACTS"
\n2090 PRINT ,,"ENTER (M) TO RETURN TO MENU"
\n2095 INPUT O$
\n2100 IF O$="C" THEN GOTO 1060
\n2105 GOTO 75
\n3000 CLS
\n3010 PRINT ,,,,"(1) SEARCH BY CALLSIGN"
\n3020 PRINT ,,"(2) SEARCH BY QTH"
\n3030 INPUT B
\n3035 CLS
\n3040 IF B=1 THEN GOTO 5100
\n3050 IF B=2 THEN GOTO 5200
\n3060 IF B<1 AND B>2 THEN GOTO 3000
\n3070 GOTO 3000
\n5000 CLS
\n5010 PRINT AT 8,5;"SET CASSETTE TO RECORD"
\n5020 PRINT ,,"PRESS ENTER TO SAVE ""LOG"""
\n5030 INPUT L$
\n5035 IF L$="" THEN SAVE "LO%G"
\n5040 CLS
\n5050 GOTO 5
\n5100 PRINT ,,,,"ENTER CALLSIGN TO SEARCH FOR"
\n5105 INPUT S$(X)
\n5110 CLS
\n5112 FAST
\n5115 PRINT "\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '"
\n5120 LET K=0
\n5125 FOR J=1 TO X-1
\n5130 IF S$(J)=S$(X) THEN PRINT "%D%A%T%E %T%I%M%E %S%T%A%T%I%O%N %F%R%E%Q%U%E%N%C%Y"
\n5135 IF S$(J)=S$(X) THEN PRINT D$(J);" ";T$(J);" ";S$(J);" ";F$(J)
\n5140 IF S$(J)=S$(X) THEN PRINT ,,"%M%O%D%E %S%E%N%T %R%C%V%D %N%A%M%E %Q%T%H"
\n5145 IF S$(J)=S$(X) THEN PRINT M$(J);" ";V$(J);" ";R$(J);" ";N$(J);" ";H$(J)
\n5150 IF S$(J)=S$(X) THEN PRINT "\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '"
\n5155 IF S$(J)=S$(X) THEN LET K=K+1
\n5160 IF K=3 THEN GOSUB 6000
\n5165 NEXT J
\n5167 SLOW
\n5170 PRINT ,,"DATA SEARCH COMPLETE"
\n5180 PRINT "ENTER (M) TO RETURN TO MENU"
\n5185 INPUT X$
\n5190 GOTO 75
\n5200 CLS
\n5205 PRINT ,,"ENTER QTH TO SEARCH FOR"
\n5210 INPUT H$(X)
\n5215 CLS
\n5217 FAST
\n5220 PRINT "\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '\ '"
\n5225 LET K=0
\n5230 FOR J=1 TO X-1
\n5235 IF H$(J)=H$(X) THEN PRINT "%D%A%T%E %T%I%M%E %S%T%A%T%I%O%N %F%R%E%Q%U%E%N%C%Y"
\n5240 IF H$(J)=H$(X) THEN PRINT D$(J);" ";T$(J);" ";S$(J);" ";F$(J)
\n5245 IF H$(J)=H$(X) THEN PRINT ,,"%M%O%D%E %S%E%N%T %R%C%V%D %N%A%M%E %Q%T%H"
\n5250 IF H$(J)=H$(X) THEN PRINT M$(J);" ";V$(J);" ";R$(J);" ";N$(J);" ";H$(J)
\n5255 IF H$(J)=H$(X) THEN PRINT "\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ .\ ."
\n5260 IF H$(J)=H$(X) THEN LET K=K+1
\n5265 IF K=3 THEN GOSUB 6000
\n5270 NEXT J
\n5275 SLOW
\n5330 PRINT ,,"DATA SEARCH COMPLETE"
\n5335 PRINT ,,"ENTER (M) TO RETURN TO MENU"
\n5340 INPUT X$
\n5345 GOTO 75
\n6000 SLOW
\n6010 PRINT "PRESS ENTER TO CONTINUE"
\n6020 INPUT G$
\n6030 CLS
\n6040 LET K=0
\n6045 FAST
\n6050 RETURN
