Programs for ham radio.
Content
Image Gallery
Source Code
1 REM PROGRAM "WAS" BY R.J. LEES- 705 JONATHAN RD., KING OF PRUSSIA, PA. 19406. NOTE: THISPROGRAM CONTAINS 2 LETTER STATE ABBREVIATIONS IN STRING ARRAY N$. IT CONTAINS BAND/MODE NAMES IN ARRAY B$. IF "RUN" HAS BEEN USED BY MISTAKE ALL THIS DATA WILL BE GONE. YOU WILL HAVE TO REINSERT IT MANUALLY OR BY USING A TEMPORARYPROGRAM.
69 DIM B$(8,3)
70 DIM N$(50,2)
71 DIM S$(50,5)
72 DIM C$(50,5)
73 DIM E$(50,5)
74 DIM F$(50,5)
75 DIM T$(50,5)
76 DIM I$(50,5)
77 DIM H$(50,5)
79 DIM X$(50,5)
80 DIM Y$(50,5)
100 PRINT TAB 8;"PROGRAM ""WAS"""
101 PRINT "PROG. BY W3ZQN, R.J. LEES, 04/83"
102 PRINT "%T%O% %R%U%N% %U%S%E% %"%G%O%T%O% %1%0%0%"% % % % % % % % % % % %T%O% %S%A%V%E% %U%S%E% %"%G%O%T%O% %9%0%0%0%"% % % % % % % % % %I%F% %"%R%U%N%"% %U%S%E%D%,% %A%L%L% %D%A%T%A% %I%S% %L%O%S%T% "
103 PRINT
104 PRINT "QSO/QSL DATA IS STORED FOR THE 50 STATES. EACH STATE HAS DATAFOR MIXED, SSB, CW, 80, 40, 20, 15, AND 10 METERS. DATA IS IN THE FORMAT MMYYS/R WHERE:"
105 PRINT " M = MONTH","Y = YEAR"
106 PRINT " S = QSL SENT","R = QSL RECEIVED"
107 PRINT
130 PRINT "%E%N%T%E%R% %R%O%U%T%I%N%E% %D%E%S%I%R%E%D%:",,,"D - DISPLAY DATA BY STATE","C - CHANGE DATA",,"T - TOTALS WORKED, SENT, REC.","S - STATES WORKED, NOT WORKED","A - LIST STATE ABBREVIATIONS","E - EXIT THE PROGRAM"
140 GOSUB 8000
150 IF INKEY$="D" THEN GOTO 1000
160 IF INKEY$="C" THEN GOTO 2000
170 IF INKEY$="T" THEN GOTO 3000
180 IF INKEY$="S" THEN GOTO 4000
185 IF INKEY$="A" THEN GOTO 5000
186 IF INKEY$="E" THEN GOTO 7000
190 GOTO 130
\n1000 GOSUB 6000
\n1090 PRINT AT 18,0;"ANOTHER? %Y%/%N"
\n1100 GOSUB 8000
\n1110 IF INKEY$="Y" THEN GOTO 1000
\n1120 IF INKEY$="N" THEN GOTO 130
\n1130 GOTO 1090
\n2000 GOSUB 6000
\n2010 PRINT
\n2030 PRINT "WHICH DATA CHANGES? %E%N%T%E%R% %N%O%.",,,
\n2040 PRINT "1 - SSB","2 - CW","3 - 80","4 - 40","5 - 20","6 - 15","7 - 10","0 - TO EXIT"
\n2050 INPUT A
\n2060 PRINT
\n2065 IF A=0 THEN GOTO 2500
\n2070 PRINT "ENTER THE ";B$(A);" DATA. %M%M%Y%Y%S%/%R"
\n2080 IF A=1 THEN INPUT S$(C)
\n2082 IF A=2 THEN INPUT C$(C)
\n2084 IF A=3 THEN INPUT E$(C)
\n2086 IF A=4 THEN INPUT F$(C)
\n2088 IF A=5 THEN INPUT T$(C)
\n2090 IF A=6 THEN INPUT I$(C)
\n2092 IF A=7 THEN INPUT H$(C)
\n2096 CLS
\n2100 GOSUB 6120
\n2110 PRINT
\n2120 PRINT "MORE DATA FOR THIS STATE? %Y%/%N"
\n2130 GOSUB 8000
\n2135 IF INKEY$="N" THEN GOTO 2170
\n2140 IF INKEY$="Y" THEN GOSUB 6120
\n2145 GOTO 2010
\n2160 GOTO 2130
\n2170 CLS
\n2180 PRINT "ANOTHER STATE? %Y%/%N"
\n2190 GOSUB 8000
\n2200 IF INKEY$="Y" THEN GOTO 2000
\n2210 IF INKEY$="N" THEN GOTO 130
\n2220 GOTO 2180
\n2500 CLS
\n2510 GOTO 130
\n3000 CLS
\n3010 LET SW=0
\n3011 LET SS=0
\n3012 LET SR=0
\n3013 LET CW=0
\n3014 LET CS=0
\n3015 LET CR=0
\n3016 LET EW=0
\n3017 LET ES=0
\n3018 LET ER=0
\n3019 LET FW=0
\n3020 LET FS=0
\n3021 LET FR=0
\n3022 LET TW=0
\n3023 LET TS=0
\n3024 LET TR=0
\n3025 LET IW=0
\n3026 LET IS=0
\n3027 LET IR=0
\n3028 LET HW=0
\n3029 LET HS=0
\n3030 LET HR=0
\n3031 LET MW=0
\n3032 LET MS=0
\n3033 LET MR=0
\n3040 FOR N=1 TO 50
\n3050 IF S$(N,1)<>" " THEN LET SW=SW+1
\n3052 IF S$(N,5)="S" THEN LET SS=SS+1
\n3054 IF S$(N,5)="R" THEN LET SR=SR+1
\n3056 IF C$(N,1)<>" " THEN LET CW=CW+1
\n3058 IF C$(N,5)="S" THEN LET CS=CS+1
\n3060 IF C$(N,5)="R" THEN LET CR=CR+1
\n3062 IF E$(N,1)<>" " THEN LET EW=EW+1
\n3064 IF E$(N,5)="S" THEN LET ES=ES+1
\n3066 IF E$(N,5)="R" THEN LET ER=ER+1
\n3068 IF F$(N,1)<>" " THEN LET FW=FW+1
\n3070 IF F$(N,5)="S" THEN LET FS=FS+1
\n3072 IF F$(N,5)="R" THEN LET FR=FR+1
\n3074 IF T$(N,1)<>" " THEN LET TW=TW+1
\n3076 IF T$(N,5)="S" THEN LET TS=TS+1
\n3078 IF T$(N,5)="R" THEN LET TR=TR+1
\n3080 IF I$(N,1)<>" " THEN LET IW=IW+1
\n3082 IF I$(N,5)="S" THEN LET IS=IS+1
\n3084 IF I$(N,5)="R" THEN LET IR=IR+1
\n3086 IF H$(N,1)<>" " THEN LET HW=HW+1
\n3088 IF H$(N,5)="S" THEN LET HS=HS+1
\n3090 IF H$(N,5)="R" THEN LET HR=HR+1
\n3092 IF S$(N,1)<>" " OR C$(N,1)<>" " THEN LET MW=MW+1
\n3094 IF S$(N,5)="S" OR C$(N,5)="S" THEN LET MS=MS+1
\n3096 IF S$(N,5)="R" OR C$(N,5)="R" THEN LET MR=MR+1
\n3100 NEXT N
\n3110 PRINT TAB 6;"* ""WAS"" TOTALS *",,,
\n3120 PRINT " WORKED QSL R QSL S/NR",,,,,
\n3130 PRINT "MIXED",,,,"SSB",,,,"CW",,,,"80",,,,"40",,,,"20",,,,"15",,,,"10"
\n3140 PRINT ,,"%H%I%T% %A%N%Y% %K%E%Y% %T%O% %R%E%T%U%R%N"
\n3145 PRINT AT 5,9;MW;AT 5,16;MR;AT 5,23;MS
\n3150 PRINT AT 7,9;SW;AT 7,16;SR;AT 7,23;SS
\n3160 PRINT AT 9,9;CW;AT 9,16;CR;AT 9,23;CS
\n3170 PRINT AT 11,9;EW;AT 11,16;ER;AT 11,23;ES
\n3180 PRINT AT 13,9;FW;AT 13,16;FR;AT 13,23;FS
\n3190 PRINT AT 15,9;TW;AT 15,16;TR;AT 15,23;TS
\n3200 PRINT AT 17,9;IW;AT 17,16;IR;AT 17,23;IS
\n3210 PRINT AT 19,9;HW;AT 19,16;HR;AT 19,23;HS
\n3220 GOSUB 8000
\n3230 GOTO 2500
\n4000 CLS
\n4010 LET XW=0
\n4020 LET XX=0
\n4030 PRINT "WHAT BAND/MODE? %E%N%T%E%R% %N%O%."
\n4040 PRINT
\n4050 PRINT "1 - SSB","2 - CW","3 - 80","4 - 40","5 - 20","6 - 15","7 - 10","8 - MIXED","0 - TO EXIT"
\n4060 INPUT A
\n4070 CLS
\n4080 IF A<1 OR A>8 THEN GOTO 130
\n4090 FOR N=1 TO 50
\n4100 IF A=1 OR A=8 THEN LET X$(N)=S$(N)
\n4110 IF A=2 THEN LET X$(N)=C$(N)
\n4120 IF A=3 THEN LET X$(N)=E$(N)
\n4130 IF A=4 THEN LET X$(N)=F$(N)
\n4140 IF A=5 THEN LET X$(N)=T$(N)
\n4150 IF A=6 THEN LET X$(N)=I$(N)
\n4160 IF A=7 THEN LET X$(N)=H$(N)
\n4162 IF A=8 THEN LET Y$(N)=C$(N)
\n4170 NEXT N
\n4180 GOSUB 4500
\n4190 GOSUB 8000
\n4200 IF INKEY$="N" THEN GOTO 130
\n4210 IF INKEY$="Y" THEN GOTO 4000
\n4220 GOSUB 4750
\n4230 GOTO 4190
\n4500 PRINT B$(A)
\n4510 PRINT
\n4520 FOR N=1 TO 50
\n4530 IF A<>8 AND X$(N,1)<>" " THEN PRINT N$(N);" ";
\n4540 IF A<>8 AND X$(N,1)<>" " THEN LET XW=XW+1
\n4541 IF A<>8 THEN GOTO 4550
\n4542 IF X$(N,1)<>" " OR Y$(N,1)<>" " THEN PRINT N$(N);" ";
\n4544 IF X$(N,1)<>" " OR Y$(N,1)<>" " THEN LET XW=XW+1
\n4550 NEXT N
\n4560 PRINT
\n4580 PRINT XW;" STATES WORKED"
\n4590 PRINT
\n4600 FOR N=1 TO 50
\n4610 IF A<>8 AND X$(N,1)=" " THEN PRINT N$(N);" ";
\n4615 IF A=8 AND X$(N,1)=" " AND Y$(N,1)=" " THEN PRINT N$(N);" ";
\n4620 NEXT N
\n4630 PRINT
\n4650 PRINT 50-XW;" STATES NOT WORKED"
\n4660 PRINT
\n4670 FOR N=1 TO 50
\n4680 IF A<>8 AND X$(N,1)<>" " AND X$(N,5)<>"R" THEN PRINT N$(N);" ";
\n4690 IF A<>8 AND X$(N,1)<>" " AND X$(N,5)<>"R" THEN LET XX=XX+1
\n4691 IF A<>8 THEN GOTO 4700
\n4692 IF X$(N,1)<>" " AND X$(N,5)<>"R" THEN GOTO 4695
\n4693 IF Y$(N,1)<>" " AND Y$(N,5)<>"R" THEN GOTO 4695
\n4694 GOTO 4700
\n4695 PRINT N$(N);" ";
\n4696 LET XX=XX+1
\n4700 NEXT N
\n4710 PRINT
\n4730 PRINT XX;" STATES WORKED BUT NO QSL"
\n4740 PRINT
\n4750 PRINT "ANOTHER? %Y%/%N"
\n4760 RETURN
\n5000 CLS
\n5004 PRINT "STATE ABBREVIATIONS USED:"
\n5005 PRINT
\n5010 FOR N=1 TO 50
\n5020 PRINT N$(N);" ";
\n5030 NEXT N
\n5040 PRINT AT 20,0;"%H%I%T% %A%N%Y% %K%E%Y% %T%O% %R%E%T%U%R%N"
\n5050 GOSUB 8000
\n5060 GOTO 2500
\n6000 CLS
\n6010 PRINT "WHAT STATE? %E%N%T%E%R% %2% %L%E%T%T%E%R%S"
\n6020 INPUT A$
\n6030 FOR N=1 TO 50
\n6040 IF A$=N$(N) THEN GOTO 6105
\n6050 NEXT N
\n6060 PRINT
\n6070 PRINT "WRONG ABBREVIATION.","TRY AGAIN? %Y%/%N"
\n6080 GOSUB 8000
\n6090 IF INKEY$="Y" THEN GOTO 6000
\n6100 IF INKEY$="N" THEN GOTO 130
\n6101 GOTO 6070
\n6105 CLS
\n6110 LET C=N
\n6120 PRINT N$(C);" SSB CW 80 40"
\n6130 PRINT
\n6140 PRINT TAB 5;S$(C);" ";C$(C);" ";E$(C);" ";F$(C)
\n6150 PRINT ,,,,
\n6160 PRINT TAB 11;"20 15 10"
\n6170 PRINT
\n6180 PRINT TAB 11;T$(C);" ";I$(C);" ";H$(C)
\n6190 RETURN
\n7000 CLS
\n7010 PRINT "YOU HAVE STOPPED THE PROGRAM.",,,"REMEMBER: TO START IT AGAIN USE",TAB 10;"""GOTO 100""; TO SAVE IT";TAB 10;"USE ""GOTO 9000""",TAB 10;"NEVER USE ""RUN"" OR ",TAB 10;"DATA WILL BE LOST"
\n7020 STOP
\n8000 SLOW
\n8010 PAUSE 20
\n8020 IF INKEY$="" THEN GOTO 8020
\n8030 FAST
\n8040 CLS
\n8050 RETURN
\n9000 SAVE "WA%S"
\n9010 GOTO 100
8 FAST
9 PRINT " PROGRAM ""QSL"""
10 PRINT " BY R. J. LEES, W3ZQN"
11 PRINT " 705 JONATHAN RD.,"
12 PRINT " KING OF PRUSSIA, PA. 19406 USA"
13 PRINT " JULY, 1983"
14 PRINT ,,,,
15 PRINT "THIS PROGRAM, WHEN USED WITH THE"
16 PRINT "TIMEX/SINCLAIR 2040 PRINTER,"
17 PRINT "PRINTS POSTCARD SIZE QSLS. DATA"
18 PRINT "THAT MAY BE THE SAME FROM QSL TO"
19 PRINT "QSL IS RETAINED TO ELIMINATE THE"
20 PRINT "NEED TO REENTER IT. DO NOT EX-"
21 PRINT "CEED THE NUMBER OF CHARACTERS"
22 PRINT "SHOWN IN (). TURN ON THE PRINTER"
23 PRINT "BEFORE STARTING THE PROGRAM. HIT"
24 PRINT """ENTER"" TO START. ENTER ""E"" TO"
25 PRINT "EXIT."
85 INPUT I$
90 IF I$="E" THEN STOP
96 DIM L$(28)
98 DIM J$(4,32)
100 DIM M$(3)
102 DIM C$(10)
104 DIM D$(2)
106 DIM F$(3)
108 DIM Y$(2)
110 DIM T$(4)
112 DIM B$(3)
114 DIM R$(3)
116 DIM E$(28)
118 DIM A$(3,28)
120 DIM N$(9)
122 DIM G$(10,32)
124 DIM H$(10,32)
126 DIM S$(4)
130 LET M$="CW "
134 LET D$="XX"
136 LET F$="XXX"
138 LET Y$="84"
142 LET B$="14 "
144 LET R$="579"
146 LET E$="TEN-TEC CENTURY/21-60 WTS IN"
148 LET A$(1)="2 EL HQ-1 MINI-QUAD 10 M HI"
150 LET A$(2)="COAX FED DIPOLE - 15 FT HI"
152 LET A$(3)="100 FT END FED WIRE 20 FT HI"
200 CLS
205 PRINT AT 0,0;"MODE (3)"
210 PRINT AT 21,1;M$
220 INPUT I$
230 IF I$="" THEN GOTO 250
240 LET M$=I$
250 PRINT AT 0,12;M$
260 PRINT AT 1,0;"CALL (10)"
270 PRINT AT 21,1;"XXXXXXXXXX"
280 INPUT C$
310 PRINT AT 1,12;C$
320 PRINT AT 2,0;"DAY (2)"
330 PRINT AT 21,1;D$;" "
340 INPUT I$
350 IF I$="" THEN GOTO 370
360 LET D$=I$
370 PRINT AT 2,12;D$
380 PRINT AT 3,0;"MONTH (3)"
390 PRINT AT 21,1;F$
400 INPUT I$
410 IF I$="" THEN GOTO 430
420 LET F$=I$
430 PRINT AT 3,12;F$
440 PRINT AT 4,0;"YEAR (2)"
450 PRINT AT 21,1;Y$;" "
460 INPUT I$
470 IF I$="" THEN GOTO 490
480 LET Y$=I$
490 PRINT AT 4,12;Y$
500 PRINT AT 5,0;"TIME (4)"
510 PRINT AT 21,1;"XXXX"
520 INPUT T$
550 PRINT AT 5,12;T$
560 PRINT AT 6,0;"BAND (3)"
570 PRINT AT 21,1;B$;" "
580 INPUT I$
590 IF I$="" THEN GOTO 610
600 LET B$=I$
610 PRINT AT 6,12;B$
620 PRINT AT 7,0;"RST (3)"
630 PRINT AT 21,1;R$
640 INPUT I$
650 IF I$="" THEN GOTO 670
660 LET R$=I$
670 PRINT AT 7,12;R$
680 PRINT AT 8,0;"NAME (9)"
690 PRINT AT 21,1;"XXXXXXXXX"
700 INPUT N$
730 PRINT AT 8,12;N$
735 PRINT AT 9,0;"RIG (28)"
740 PRINT AT 21,1;E$
745 INPUT I$
750 IF I$="" THEN GOTO 760
755 LET E$=I$
760 PRINT AT 9,12;E$( TO 20)
765 PRINT AT 10,12;E$(21 TO )
770 PRINT AT 11,0;"ANT (28)"
775 LET L$(1)=" "
777 IF B$="14 " THEN LET L$=A$(1)
779 IF B$=" 14" THEN LET L$=A$(1)
781 IF B$="21 " THEN LET L$=A$(1)
783 IF B$=" 21" THEN LET L$=A$(1)
785 IF B$="28 " THEN LET L$=A$(1)
787 IF B$=" 28" THEN LET L$=A$(1)
789 IF B$(1)="7" THEN LET L$=A$(2)
791 IF B$=" 7 " THEN LET L$=A$(2)
793 IF B$=" 7" THEN LET L$=A$(2)
795 IF B$(1)="3" THEN LET L$=A$(3)
797 PRINT AT 21,1;L$
798 IF L$(1)=" " THEN PRINT AT 21,1;"INPUT ANT, 28 CHARACTERS MAX "
799 INPUT I$
800 IF I$="" THEN GOTO 805
802 LET L$=I$
805 PRINT AT 11,12;L$( TO 20)
807 PRINT AT 12,12;L$(21 TO )
809 PRINT AT 13,0;"QSO NR (4)"
811 PRINT AT 21,1;"XXXX "
813 INPUT S$
819 PRINT AT 13,12;S$
821 PRINT AT 18,1;"FOR ""PSE QSL"" HIT ""ENTER"""," FOR ""QSL RECEIVED"" ENTER ""R"""," TO EXIT ENTER ""E"""," TO RECYCLE ENTER ANYTHING ELSE"
823 INPUT I$
825 IF I$="" OR I$="R" THEN GOTO 829
826 IF I$="E" THEN STOP
827 GOTO 200
829 CLS
872 LET G$(1)="THIS WAS A GOOD SOLID DX CONTACT"
874 LET G$(2)="SOLID, ARMCHAIR COPY ALL THE WAY"
876 LET G$(3)="CONDX WERE POOR BUT COPY WAS OK"
878 LET G$(4)="CONDITIONS AND COPY WERE POOR"
880 LET G$(5)="THIS WAS UR CONTEST QSO NR "+S$
882 LET G$(6)="I HAVE NO QSL FROM YOUR COUNTRY"
884 LET G$(7)="THIS QSO IS A NEW COUNTRY FOR ME"
886 LET G$(8)="HV NO QSL FM UR STATE ON "+B$+" MHZ"
888 LET G$(9)="ENJOYED THIS PROLONGED RAGCHEW"
890 LET G$(10)="GLAD TO MEET YOU IN THE CONTEST"
892 LET H$(1)="I WOULD LIKE UR QSL FOR MY FILE"
894 LET H$(2)="I HOPE WE CAN CONTACT AGAIN SOON"
896 LET H$(3)="LETS QSO AGN WHEN CONDX IMPROVE"
898 LET H$(4)="YOUR QSL NEEDED FOR 1 BAND ""WAS"""
900 LET H$(5)="I WOULD LIKE YOUR QSL FOR ""DXCC"""
902 LET H$(6)="GLAD TO HAVE MET U VIA HAM RADIO"
904 LET H$(7)="GLAD TO SEND THE QSL U REQUESTED"
906 LET H$(8)="BEEN A HAM 29 YRS--STILL LOVE IT"
908 LET H$(9)="BEEN A HAM FOR 29 OF MY 44 YEARS"
910 LET H$(10)="IM ON HF CW BANDS AND 2 METER FM"
933 FOR C=1 TO 10
935 PRINT " ";C
940 PRINT G$(C)
950 NEXT C
955 PRINT AT 20,0;"%C%O%M%M%E%N%T 1 - ENTER ""11"" FOR OTHERENTER ""0"" FOR NONE"
960 INPUT G
970 IF G=11 THEN GOTO 1000
975 IF G=0 THEN GOTO 1250
980 LET J$(1)=G$(G)
990 GOTO 1050
\n1000 CLS
\n1010 PRINT AT 21,0;"%E%N%T%E%R% %C%O%M%M%E%N%T 1 - 32 CHAR. MAX."
\n1020 INPUT U$
\n1030 LET J$(1)=U$
\n1050 CLS
\n1070 FOR C=1 TO 10
\n1080 PRINT " ";C
\n1090 PRINT H$(C)
\n1100 NEXT C
\n1105 FOR A=2 TO 4
\n1110 PRINT AT 20,0;"%C%O%M%M%E%N%T ";A;" - ENTER ""11"" FOR OTHERENTER ""0"" FOR NONE"
\n1115 INPUT H
\n1120 IF H=11 THEN GOTO 1145
\n1125 IF H=0 THEN GOTO 1250
\n1130 LET J$(A)=H$(H)
\n1140 GOTO 1180
\n1145 PRINT AT 20,0;" "
\n1150 PRINT AT 21,0;"%E%N%T%E%R% %C%O%M%M%E%N%T ";A;" - 32 CHAR. MAX."
\n1160 INPUT U$
\n1170 LET J$(A)=U$
\n1180 NEXT A
\n1250 CLS
\n5285 PRINT "\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
\n5290 PRINT "\: ROBERT J. LEES, ""BOB"" \ :"
\n5300 PRINT "\: 705 JONATHAN ROAD \ :"
\n5310 PRINT "\: KING OF PRUSSIA, PA. 19406 USA\ :"
\n5315 PRINT "\: ------------------------------\ :"
\n5320 PRINT "\: MONTGOMERY C0.-ARRL SEC E. PA.\ :"
\n5325 PRINT "\: ITU ZONE 8 - CQ/WAZ ZONE 5\ :"
\n5330 PRINT "\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
\n5340 PRINT
\n5345 PRINT "\ '% \' \ '% \' \ .% % % \. % % % % % \ .% % % \. \ '% \. \ '% \' "
\n5350 PRINT " % % % \' \ '% \'' \ .% % \' \ '% % % \. % "
\n5355 PRINT " % % \ .% \ .% \' % % % \ '% \. % "
\n5360 PRINT " % % % % \: \ .% \' % % % \ '% % "
\n5365 PRINT " % \ :\: % \ '% \ .% \' % % % \ '% "
\n5370 PRINT " % \ .% % \. % % \. \ .% % \' \.. % \. \ .% % % "
\n5375 PRINT " \ '% \' \ '% \' \ '% % % \' % % % % % \ '% % % \' \ .% \. \ .% \. "
\n5380 PRINT " \ '% "
\n5385 PRINT "\. \..\. \..\. \. \. \. \..\. \..\. \..\. \..\. \. \. \..\. \..\. \. \..\. \..\. \. "
\n5386 PRINT
\n5390 PRINT " \ '\:' \..\. \ '\:' \..\..\..\..\. "
\n5395 PRINT " \ '\:'\''\''\''\''\:.\:'\''\''\''\:'\''\':\''\''\..\. \''\''\:'\''\' "
\n5400 PRINT " \: \ .% \:. Z \..\. \ '\''\''\''"
\n5405 COPY
\n5410 CLS
\n5420 PRINT " \..% % % % % % % % % % % % % % % % \.."
\n5426 PRINT "\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,\,,"
\n5430 PRINT "% %A%R%R%L% % % % %P%A%R%A% % % %P%E%C%O% %R%A%D%I%O% %C%L%U%B% "
\n5440 PRINT "% %W%A%S%/%W%A%C%/%D%X%C%C% %(%A%L%L% %C%W% %A%T% %6%0%W% %I%N%)"
\n5460 PRINT "\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~"
\n5930 PRINT "CONFIRMING 2-WAY ";M$;" QSO WITH"
\n5940 PRINT "RADIO ";C$;" ON ";D$;" ";F$;", 19";Y$
\n5950 PRINT "AT ";T$;" UTC ON ";B$;" MHZ / RST ";R$
\n5970 PRINT "--------------------------------"
\n6000 PRINT "RIG ";E$
\n6010 PRINT "ANT ";L$
\n6015 PRINT "--------------------------------"
\n6020 IF I$="R" THEN GOTO 7000
\n6030 PRINT "TNX FOR THE CONTACT ";N$
\n6035 IF J$(3,1)=" " THEN PRINT
\n6040 PRINT J$(1)
\n6045 PRINT J$(2)
\n6046 IF J$(3,1)=" " THEN PRINT
\n6047 IF J$(3,1)=" " THEN GOTO 6052
\n6050 PRINT J$(3)
\n6051 PRINT J$(4)
\n6052 IF I$="R" THEN PRINT TAB 25;"73, BOB"
\n6053 IF I$="" THEN PRINT "PLEASE QSL ";N$;"**** 73, BOB"
\n6056 PRINT "--------------------------------"
\n6060 PRINT "(QSL BY SINCLAIR ZX-81 COMPUTER)"
\n6061 PRINT
\n6063 PRINT "\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
\n6065 COPY
\n6095 CLS
\n6096 FOR A=1 TO 4
\n6097 LET J$(A)=""
\n6098 NEXT A
\n6100 PRINT AT 20,0;"TO CONTINUE HIT ""ENTER""","TO EXIT ENTER ""E"""
\n6110 INPUT I$
\n6120 IF I$="E" THEN STOP
\n6130 GOTO 200
\n7000 PRINT "TNX FOR QSO AND QSL, ";N$
\n7010 GOTO 6035
\n9000 SAVE "QS%L"
\n9010 GOTO 8