KT0H LOG V1.2-80

00000000: 01 1C 1D 1C 01 00 8F 20  20 20 20 44 41 56 45 20  |.......    DAVE |
00000010: 52 41 44 4F 4D 53 4B 49  20 4B 54 30 48 00 3B 1C  |RADOMSKI KT0H.;.|
00000020: 02 00 8F 20 20 20 20 32  30 38 30 20 53 2E 20 46  |...    2080 S. F|
00000030: 41 49 52 50 4C 41 59 20  53 54 2E 00 5A 1C 03 00  |AIRPLAY ST..Z...|
00000040: 8F 20 20 20 20 41 55 52  4F 52 41 2C 20 43 4F 20  |.    AURORA, CO |
00000050: 38 30 30 31 34 2D 34 35  32 36 00 74 1C 04 00 8F  |80014-4526.t....|
00000060: 20 20 20 20 28 56 29 20  33 30 33 2D 33 33 37 2D  |    (V) 303-337-|
00000070: 37 35 35 35 00 8E 1C 05  00 8F 20 20 20 20 28 44  |7555......    (D|
00000080: 29 20 33 30 33 2D 33 33  37 2D 32 32 31 31 00 94  |) 303-337-2211..|
00000090: 1C 06 00 8F 00 DA 1C 07  00 8F 20 20 20 20 31 32  |..........    12|
000000A0: 20 4D 41 52 20 31 39 38  36 20 20 43 4F 50 59 57  | MAR 1986  COPYW|
000000B0: 52 49 54 45 20 42 59 20  41 55 54 48 4F 52 20 2D  |RITE BY AUTHOR -|
000000C0: 20 52 45 4C 45 41 53 45  44 20 54 4F 20 50 55 42  | RELEASED TO PUB|
000000D0: 4C 49 43 20 44 4F 4D 41  49 4E 00 1D 1D 08 00 8F  |LIC DOMAIN......|
000000E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000F0: 20 55 50 44 41 54 45 53  20 26 20 44 41 54 41 20  | UPDATES & DATA |
00000100: 4D 41 4E 41 47 45 52 20  41 56 41 49 4C 41 42 4C  |MANAGER AVAILABL|
00000110: 45 20 46 52 4F 4D 20 41  55 54 48 4F 52 00 39 1D  |E FROM AUTHOR.9.|
00000120: 09 00 8F 20 20 20 20 22  4B 54 30 48 20 4C 4F 47  |...    "KT0H LOG|
00000130: 47 45 52 20 56 31 2E 32  22 00 4A 1D 0A 00 E7 20  |GER V1.2".J.... |
00000140: 36 2C 37 3A E7 20 35 2C  31 36 00 6D 1D 0B 00 43  |6,7:. 5,16.m...C|
00000150: 52 24 B2 C7 28 31 33 29  3A 43 46 24 B2 C7 28 31  |R$..(13):CF$..(1|
00000160: 35 29 3A 43 53 24 B2 C7  28 31 34 37 29 00 AC 1D  |5):CS$..(147)...|
00000170: 0C 00 99 43 53 24 3A E0  30 2C 32 30 2C 31 30 2C  |...CS$:.0,20,10,|
00000180: 22 45 4E 54 45 52 20 54  4F 44 41 59 27 53 20 5A  |"ENTER TODAY'S Z|
00000190: 55 4C 55 20 44 41 54 45  20 12 44 44 4D 4D 4D 59  |ULU DATE .DDMMMY|
000001A0: 52 92 22 2C 30 3A 85 44  41 54 45 24 00 E8 1D 0D  |R.",0:.DATE$....|
000001B0: 00 99 43 53 24 3A E0 30  2C 32 30 2C 31 30 2C 22  |..CS$:.0,20,10,"|
000001C0: 45 4E 54 45 52 20 43 4F  52 52 45 43 54 20 5A 55  |ENTER CORRECT ZU|
000001D0: 4C 55 20 54 49 4D 45 20  12 48 48 4D 4D 53 53 92  |LU TIME .HHMMSS.|
000001E0: 22 2C 30 3A 85 54 49 24  00 0F 1E 0E 00 99 43 53  |",0:.TI$......CS|
000001F0: 24 3A E0 20 30 2C 32 35  2C 31 30 2C 22 45 4E 54  |$:. 0,25,10,"ENT|
00000200: 45 52 20 42 41 4E 44 22  2C 30 3A 85 42 44 24 00  |ER BAND",0:.BD$.|
00000210: 36 1E 0F 00 99 43 53 24  3A E0 20 30 2C 32 35 2C  |6....CS$:. 0,25,|
00000220: 31 30 2C 22 45 4E 54 45  52 20 4D 4F 44 45 22 2C  |10,"ENTER MODE",|
00000230: 30 3A 85 4D 44 24 00 67  1E 10 00 99 43 53 24 3A  |0:.MD$.g....CS$:|
00000240: E0 20 30 2C 32 35 2C 31  30 2C 22 45 4E 54 45 52  |. 0,25,10,"ENTER|
00000250: 20 50 4F 57 45 52 20 49  4E 20 57 41 54 54 53 22  | POWER IN WATTS"|
00000260: 2C 30 3A 85 50 57 24 00  70 1E 11 00 53 46 B2 30  |,0:.PW$.p...SF.0|
00000270: 00 B3 1E 12 00 4E 4D 24  B2 22 3F 22 3A 51 54 48  |.....NM$."?":QTH|
00000280: 24 B2 22 3F 22 3A 53 43  24 B2 22 3F 22 3A 43 54  |$."?":SC$."?":CT|
00000290: 24 B2 22 4E 2F 41 22 3A  41 47 45 24 B2 22 55 4E  |$."N/A":AGE$."UN|
000002A0: 4B 4E 22 3A 52 51 24 B2  22 4E 22 3A 53 51 24 B2  |KN":RQ$."N":SQ$.|
000002B0: 22 4E 22 00 C4 1E 13 00  8B 4D 44 24 B2 22 43 57  |"N"......MD$."CW|
000002C0: 22 A7 32 32 00 DA 1E 14  00 52 52 24 B2 22 35 39  |".22.....RR$."59|
000002D0: 22 3A 53 52 24 B2 22 35  39 22 00 E2 1E 15 00 89  |":SR$."59"......|
000002E0: 32 33 00 FA 1E 16 00 52  52 24 B2 22 35 39 39 22  |23.....RR$."599"|
000002F0: 3A 53 52 24 B2 22 35 39  39 22 00 24 1F 17 00 99  |:SR$."599".$....|
00000300: 43 53 24 3A E0 30 2C 32  35 2C 31 30 2C 22 45 4E  |CS$:.0,25,10,"EN|
00000310: 54 45 52 20 43 41 4C 4C  53 49 47 4E 22 2C 30 3A  |TER CALLSIGN",0:|
00000320: 85 43 4C 24 00 35 1F 18  00 54 4D 24 B2 C8 28 54  |.CL$.5...TM$..(T|
00000330: 49 24 2C 34 29 00 5F 1F  19 00 8B C6 28 CA 28 43  |I$,4)._.....(.(C|
00000340: 4C 24 2C 33 2C 31 29 29  B1 34 37 AF C6 28 CA 28  |L$,3,1)).47..(.(|
00000350: 43 4C 24 2C 33 2C 31 29  29 B3 35 38 A7 33 32 00  |CL$,3,1)).58.32.|
00000360: 89 1F 1A 00 8B C6 28 CA  28 43 4C 24 2C 32 2C 31  |......(.(CL$,2,1|
00000370: 29 29 B1 34 37 AF C6 28  CA 28 43 4C 24 2C 32 2C  |)).47..(.(CL$,2,|
00000380: 31 29 29 B3 35 38 A7 33  33 00 B3 1F 1B 00 8B C6  |1)).58.33.......|
00000390: 28 CA 28 43 4C 24 2C 31  2C 31 29 29 B1 34 37 AF  |(.(CL$,1,1)).47.|
000003A0: C6 28 CA 28 43 4C 24 2C  31 2C 31 29 29 B3 35 38  |.(.(CL$,1,1)).58|
000003B0: A7 33 34 00 F3 1F 1C 00  99 43 53 24 3A E0 30 2C  |.34......CS$:.0,|
000003C0: 32 35 2C 31 30 2C 22 49  53 20 22 AA 43 4C 24 AA  |25,10,"IS ".CL$.|
000003D0: 22 20 52 45 41 4C 4C 59  20 41 20 43 41 4C 4C 53  |" REALLY A CALLS|
000003E0: 49 47 4E 3F 20 28 59 2F  4E 29 22 2C 30 3A A1 F9  |IGN? (Y/N)",0:..|
000003F0: 41 4E 24 00 0D 20 1D 00  8B 41 4E 24 B3 B1 22 59  |AN$.. ...AN$.."Y|
00000400: 22 AF 41 4E 24 B3 B1 22  4E 22 A7 32 38 00 1D 20  |".AN$.."N".28.. |
00000410: 1E 00 8B 41 4E 24 B2 22  59 22 A7 33 35 00 25 20  |...AN$."Y".35.% |
00000420: 1F 00 89 32 33 00 46 20  20 00 56 B2 C6 28 CA 28  |...23.F  .V..(.(|
00000430: 43 4C 24 2C 33 2C 31 29  29 3A 56 52 24 B2 C7 28  |CL$,3,1)):VR$..(|
00000440: 56 29 3A 89 33 36 00 67  20 21 00 56 B2 C6 28 CA  |V):.36.g !.V..(.|
00000450: 28 43 4C 24 2C 32 2C 31  29 29 3A 56 52 24 B2 C7  |(CL$,2,1)):VR$..|
00000460: 28 56 29 3A 89 33 36 00  88 20 22 00 56 B2 C6 28  |(V):.36.. ".V..(|
00000470: CA 28 43 4C 24 2C 31 2C  31 29 29 3A 56 52 24 B2  |.(CL$,1,1)):VR$.|
00000480: C7 28 56 29 3A 89 33 36  00 97 20 23 00 56 52 24  |.(V):.36.. #.VR$|
00000490: B2 22 53 50 45 43 22 00  A8 20 24 00 FE 0D 23 32  |."SPEC".. $...#2|
000004A0: 2C 22 2E 22 AA 56 52 24  00 BC 20 25 00 8B 44 53  |,".".VR$.. %..DS|
000004B0: B2 36 32 A7 FE 0F 23 32  3A 89 33 39 00 CA 20 26  |.62...#2:.39.. &|
000004C0: 00 FE 0F 23 32 3A 89 31  34 32 00 4C 21 27 00 5A  |...#2:.142.L!'.Z|
000004D0: 24 B2 22 4F 50 45 4E 22  AA 22 2C 22 AA 42 44 24  |$."OPEN".",".BD$|
000004E0: AA 22 2C 22 AA 4D 44 24  AA 22 2C 22 AA 50 57 24  |.",".MD$.",".PW$|
000004F0: AA 22 2C 22 AA 44 41 54  45 24 AA 22 2C 22 AA 4E  |.",".DATE$.",".N|
00000500: 4D 24 AA 22 2C 22 AA 51  54 48 24 AA 22 2C 22 AA  |M$.",".QTH$.",".|
00000510: 53 43 24 AA 22 2C 22 AA  43 54 24 AA 22 2C 22 AA  |SC$.",".CT$.",".|
00000520: 41 47 45 24 AA 22 2C 22  AA 54 4D 24 AA 22 2C 22  |AGE$.",".TM$.","|
00000530: AA 53 52 24 AA 22 2C 22  AA 52 52 24 AA 22 2C 22  |.SR$.",".RR$.","|
00000540: AA 53 51 24 AA 22 2C 22  AA 52 51 24 00 5F 21 28  |.SQ$.",".RQ$._!(|
00000550: 00 FE 0D 23 32 2C 22 2E  22 AA 56 52 24 2C 57 00  |...#2,".".VR$,W.|
00000560: 69 21 29 00 98 32 2C 5A  24 00 72 21 2A 00 8D 31  |i!)..2,Z$.r!*..1|
00000570: 38 32 00 7B 21 2B 00 FE  0F 23 32 00 B7 21 2C 00  |82.{!+...#2..!,.|
00000580: 99 43 53 24 3A E0 20 30  2C 32 32 2C 33 2C 22 49  |.CS$:. 0,22,3,"I|
00000590: 53 20 54 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 20  |S THE FOLLOWING |
000005A0: 49 4E 46 4F 52 4D 41 54  49 4F 4E 20 43 4F 52 52  |INFORMATION CORR|
000005B0: 45 43 54 3F 22 2C 30 00  DA 21 2D 00 E0 30 2C 32  |ECT?",0..!-..0,2|
000005C0: 32 2C 36 2C 22 28 31 29  20 2D 20 43 41 4C 4C 20  |2,6,"(1) - CALL |
000005D0: 20 2D 20 22 AA 43 4C 24  2C 30 00 07 22 2E 00 E0  | - ".CL$,0.."...|
000005E0: 30 2C 32 32 2C 38 2C 22  28 32 29 20 2D 20 42 41  |0,22,8,"(2) - BA|
000005F0: 4E 44 20 20 2D 20 22 AA  42 44 24 AA 22 20 4D 45  |ND  - ".BD$." ME|
00000600: 54 45 52 53 22 2C 30 00  2B 22 2F 00 E0 30 2C 32  |TERS",0.+"/..0,2|
00000610: 32 2C 31 30 2C 22 28 33  29 20 2D 20 4D 4F 44 45  |2,10,"(3) - MODE|
00000620: 20 20 2D 20 22 AA 4D 44  24 2C 30 00 58 22 30 00  |  - ".MD$,0.X"0.|
00000630: E0 30 2C 32 32 2C 31 32  2C 22 28 34 29 20 2D 20  |.0,22,12,"(4) - |
00000640: 50 4F 57 45 52 20 2D 20  22 AA 50 57 24 AA 22 20  |POWER - ".PW$." |
00000650: 57 41 54 54 53 22 2C 30  00 80 22 31 00 E0 30 2C  |WATTS",0.."1..0,|
00000660: 32 32 2C 31 34 2C 22 28  35 29 20 2D 20 54 49 4D  |22,14,"(5) - TIM|
00000670: 45 20 20 2D 20 22 AA 54  4D 24 AA 22 5A 22 2C 30  |E  - ".TM$."Z",0|
00000680: 00 A6 22 32 00 E0 30 2C  32 32 2C 31 36 2C 22 28  |.."2..0,22,16,"(|
00000690: 36 29 20 2D 20 44 41 54  45 20 20 2D 20 22 AA 44  |6) - DATE  - ".D|
000006A0: 41 54 45 24 2C 30 00 D8  22 33 00 E0 30 2C 31 37  |ATE$,0.."3..0,17|
000006B0: 2C 31 38 2C 22 3C 12 52  45 54 55 52 4E 92 3E 20  |,18,"<.RETURN.> |
000006C0: 2D 20 41 4C 4C 20 44 41  54 41 20 49 53 20 43 4F  |- ALL DATA IS CO|
000006D0: 52 52 45 43 54 22 2C 30  00 06 23 34 00 E0 30 2C  |RRECT",0..#4..0,|
000006E0: 32 32 2C 32 32 2C 43 46  24 AA 22 49 4E 50 55 54  |22,22,CF$."INPUT|
000006F0: 20 41 20 4E 55 4D 42 45  52 20 31 2D 36 22 2C 30  | A NUMBER 1-6",0|
00000700: 3A A1 F9 41 4E 24 00 16  23 35 00 8B 41 4E 24 B2  |:..AN$..#5..AN$.|
00000710: 22 31 22 A7 31 37 00 26  23 36 00 8B 41 4E 24 B2  |"1".17.&#6..AN$.|
00000720: 22 32 22 A7 36 31 00 36  23 37 00 8B 41 4E 24 B2  |"2".61.6#7..AN$.|
00000730: 22 33 22 A7 36 33 00 46  23 38 00 8B 41 4E 24 B2  |"3".63.F#8..AN$.|
00000740: 22 34 22 A7 36 35 00 56  23 39 00 8B 41 4E 24 B2  |"4".65.V#9..AN$.|
00000750: 22 35 22 A7 36 37 00 66  23 3A 00 8B 41 4E 24 B2  |"5".67.f#:..AN$.|
00000760: 22 36 22 A7 36 39 00 76  23 3B 00 8B 41 4E 24 B2  |"6".69.v#;..AN$.|
00000770: 43 52 24 A7 37 31 00 7E  23 3C 00 89 34 34 00 B4  |CR$.71.~#<..44..|
00000780: 23 3D 00 99 43 53 24 3A  E0 30 2C 32 32 2C 31 30  |#=..CS$:.0,22,10|
00000790: 2C 22 54 48 45 20 43 4F  52 52 45 43 54 20 42 41  |,"THE CORRECT BA|
000007A0: 4E 44 20 53 48 4F 55 4C  44 20 42 45 22 2C 30 3A  |ND SHOULD BE",0:|
000007B0: 85 42 44 24 00 BC 23 3E  00 89 34 34 00 F2 23 3F  |.BD$..#>..44..#?|
000007C0: 00 99 43 53 24 3A E0 30  2C 32 32 2C 31 30 2C 22  |..CS$:.0,22,10,"|
000007D0: 54 48 45 20 43 4F 52 52  45 43 54 20 4D 4F 44 45  |THE CORRECT MODE|
000007E0: 20 53 48 4F 55 4C 44 20  42 45 22 2C 30 3A 85 4D  | SHOULD BE",0:.M|
000007F0: 44 24 00 FA 23 40 00 89  34 34 00 37 24 41 00 99  |D$..#@..44.7$A..|
00000800: 43 53 24 3A E0 30 2C 32  32 2C 31 30 2C 22 54 48  |CS$:.0,22,10,"TH|
00000810: 45 20 43 4F 52 52 45 43  54 20 50 4F 57 45 52 20  |E CORRECT POWER |
00000820: 4C 45 56 45 4C 20 53 48  4F 55 4C 44 20 42 45 22  |LEVEL SHOULD BE"|
00000830: 2C 30 3A 85 50 57 24 00  3F 24 42 00 89 34 34 00  |,0:.PW$.?$B..44.|
00000840: 72 24 43 00 99 43 53 24  3A E0 30 2C 32 32 2C 31  |r$C..CS$:.0,22,1|
00000850: 30 2C 22 54 48 45 20 5A  55 4C 55 20 54 49 4D 45  |0,"THE ZULU TIME|
00000860: 20 53 48 4F 55 4C 44 20  42 45 22 2C 30 3A 85 54  | SHOULD BE",0:.T|
00000870: 4D 24 00 7A 24 44 00 89  34 34 00 B2 24 45 00 99  |M$.z$D..44..$E..|
00000880: 43 53 24 3A E0 30 2C 32  32 2C 31 30 2C 22 54 48  |CS$:.0,22,10,"TH|
00000890: 45 20 43 4F 52 52 45 43  54 20 44 41 54 45 20 53  |E CORRECT DATE S|
000008A0: 48 4F 55 4C 44 20 42 45  22 2C 30 3A 85 44 41 54  |HOULD BE",0:.DAT|
000008B0: 45 24 00 BA 24 46 00 89  34 34 00 C7 24 47 00 8B  |E$..$F..44..$G..|
000008C0: 53 46 B2 30 A7 37 33 00  03 25 48 00 4E 4D 24 B2  |SF.0.73..%H.NM$.|
000008D0: 4E 4D 24 28 4A AB 31 29  3A 51 54 48 24 B2 51 54  |NM$(J.1):QTH$.QT|
000008E0: 48 24 28 4A AB 31 29 3A  53 43 24 B2 53 43 24 28  |H$(J.1):SC$.SC$(|
000008F0: 4A AB 31 29 3A 41 47 45  24 B2 41 47 45 24 28 4A  |J.1):AGE$.AGE$(J|
00000900: AB 31 29 00 28 25 49 00  99 43 53 24 3A E0 20 30  |.1).(%I..CS$:. 0|
00000910: 2C 32 32 2C 32 2C 22 57  4F 52 4B 49 4E 47 20 2D  |,22,2,"WORKING -|
00000920: 20 22 AA 43 4C 24 2C 30  00 4A 25 4A 00 E0 30 2C  | ".CL$,0.J%J..0,|
00000930: 32 32 2C 34 2C 22 28 31  29 20 2D 20 4E 41 4D 45  |22,4,"(1) - NAME|
00000940: 20 2D 20 22 AA 4E 4D 24  2C 30 00 6D 25 4B 00 E0  | - ".NM$,0.m%K..|
00000950: 30 2C 32 32 2C 36 2C 22  28 32 29 20 2D 20 43 49  |0,22,6,"(2) - CI|
00000960: 54 59 20 2D 20 22 AA 51  54 48 24 2C 30 00 98 25  |TY - ".QTH$,0..%|
00000970: 4C 00 E0 30 2C 32 32 2C  38 2C 22 28 33 29 20 2D  |L..0,22,8,"(3) -|
00000980: 20 53 54 41 54 45 2F 43  4F 55 4E 54 52 59 20 2D  | STATE/COUNTRY -|
00000990: 20 22 AA 53 43 24 2C 30  00 BF 25 4D 00 E0 30 2C  | ".SC$,0..%M..0,|
000009A0: 32 32 2C 31 30 2C 22 28  34 29 20 2D 20 52 53 54  |22,10,"(4) - RST|
000009B0: 20 53 45 4E 54 20 2D 20  22 AA 53 52 24 2C 30 00  | SENT - ".SR$,0.|
000009C0: E6 25 4E 00 E0 30 2C 32  32 2C 31 32 2C 22 28 35  |.%N..0,22,12,"(5|
000009D0: 29 20 2D 20 52 53 54 20  52 43 56 44 20 2D 20 22  |) - RST RCVD - "|
000009E0: AA 52 52 24 2C 30 00 0D  26 4F 00 E0 30 2C 32 32  |.RR$,0..&O..0,22|
000009F0: 2C 31 34 2C 22 28 36 29  20 2D 20 43 4F 4D 4D 45  |,14,"(6) - COMME|
00000A00: 4E 54 53 20 2D 20 22 AA  43 54 24 2C 30 00 34 26  |NTS - ".CT$,0.4&|
00000A10: 50 00 E0 30 2C 32 32 2C  31 36 2C 22 28 37 29 20  |P..0,22,16,"(7) |
00000A20: 2D 20 53 45 4E 44 20 51  53 4C 20 2D 20 22 AA 53  |- SEND QSL - ".S|
00000A30: 51 24 2C 30 00 57 26 51  00 E0 30 2C 32 32 2C 31  |Q$,0.W&Q..0,22,1|
00000A40: 38 2C 22 28 38 29 20 2D  20 41 47 45 20 2D 20 22  |8,"(8) - AGE - "|
00000A50: AA 41 47 45 24 2C 30 00  7E 26 52 00 E0 30 2C 31  |.AGE$,0.~&R..0,1|
00000A60: 37 2C 32 30 2C 22 3C 12  52 45 54 55 52 4E 92 3E  |7,20,"<.RETURN.>|
00000A70: 20 2D 20 45 4E 44 20 51  53 4F 20 22 2C 30 00 AC  | - END QSO ",0..|
00000A80: 26 53 00 E0 30 2C 32 32  2C 32 33 2C 43 46 24 AA  |&S..0,22,23,CF$.|
00000A90: 22 49 4E 50 55 54 20 41  20 4E 55 4D 42 45 52 20  |"INPUT A NUMBER |
00000AA0: 31 2D 38 22 2C 30 3A A1  F9 41 4E 24 00 BC 26 54  |1-8",0:..AN$..&T|
00000AB0: 00 8B 41 4E 24 B2 22 31  22 A7 39 34 00 CC 26 55  |..AN$."1".94..&U|
00000AC0: 00 8B 41 4E 24 B2 22 32  22 A7 39 36 00 DC 26 56  |..AN$."2".96..&V|
00000AD0: 00 8B 41 4E 24 B2 22 33  22 A7 39 38 00 ED 26 57  |..AN$."3".98..&W|
00000AE0: 00 8B 41 4E 24 B2 22 34  22 A7 31 30 30 00 FE 26  |..AN$."4".100..&|
00000AF0: 58 00 8B 41 4E 24 B2 22  35 22 A7 31 30 32 00 0F  |X..AN$."5".102..|
00000B00: 27 59 00 8B 41 4E 24 B2  22 36 22 A7 31 30 34 00  |'Y..AN$."6".104.|
00000B10: 20 27 5A 00 8B 41 4E 24  B2 22 37 22 A7 31 31 30  | 'Z..AN$."7".110|
00000B20: 00 31 27 5B 00 8B 41 4E  24 B2 22 38 22 A7 31 31  |.1'[..AN$."8".11|
00000B30: 33 00 42 27 5C 00 8B 41  4E 24 B2 43 52 24 A7 31  |3.B'\..AN$.CR$.1|
00000B40: 31 35 00 4A 27 5D 00 89  37 33 00 6D 27 5E 00 99  |15.J']..73.m'^..|
00000B50: 43 53 24 3A E0 30 2C 32  32 2C 31 30 2C 22 4E 41  |CS$:.0,22,10,"NA|
00000B60: 4D 45 20 49 53 22 2C 30  3A 85 4E 4D 24 00 75 27  |ME IS",0:.NM$.u'|
00000B70: 5F 00 89 37 33 00 99 27  60 00 99 43 53 24 3A E0  |_..73..'`..CS$:.|
00000B80: 30 2C 32 32 2C 31 30 2C  22 43 49 54 59 20 49 53  |0,22,10,"CITY IS|
00000B90: 22 2C 30 3A 85 51 54 48  24 00 A1 27 61 00 89 37  |",0:.QTH$..'a..7|
00000BA0: 33 00 CD 27 62 00 99 43  53 24 3A E0 30 2C 32 32  |3..'b..CS$:.0,22|
00000BB0: 2C 31 30 2C 22 53 54 41  54 45 2F 43 4F 55 4E 54  |,10,"STATE/COUNT|
00000BC0: 52 59 20 49 53 22 2C 30  3A 85 53 43 24 00 D5 27  |RY IS",0:.SC$..'|
00000BD0: 63 00 89 37 33 00 FB 27  64 00 99 43 53 24 3A E0  |c..73..'d..CS$:.|
00000BE0: 30 2C 32 32 2C 31 30 2C  22 48 49 53 20 52 53 54  |0,22,10,"HIS RST|
00000BF0: 20 49 53 22 2C 30 3A 85  53 52 24 00 03 28 65 00  | IS",0:.SR$..(e.|
00000C00: 89 37 33 00 28 28 66 00  99 43 53 24 3A E0 30 2C  |.73.((f..CS$:.0,|
00000C10: 32 32 2C 31 30 2C 22 4D  59 20 52 53 54 20 49 53  |22,10,"MY RST IS|
00000C20: 22 2C 30 3A 85 52 52 24  00 30 28 67 00 89 37 33  |",0:.RR$.0(g..73|
00000C30: 00 54 28 68 00 99 43 53  24 3A E0 30 2C 32 32 2C  |.T(h..CS$:.0,22,|
00000C40: 31 30 2C 22 43 4F 4D 4D  45 4E 54 53 22 2C 30 3A  |10,"COMMENTS",0:|
00000C50: 85 43 54 24 00 72 28 69  00 8B C3 28 43 54 24 29  |.CT$.r(i...(CT$)|
00000C60: B1 34 30 A7 43 54 24 B2  22 4E 2F 41 22 3A 89 31  |.40.CT$."N/A":.1|
00000C70: 30 37 00 7A 28 6A 00 89  37 33 00 BB 28 6B 00 99  |07.z(j..73..(k..|
00000C80: 43 53 24 3A E0 30 2C 32  32 2C 31 30 2C C7 28 31  |CS$:.0,22,10,.(1|
00000C90: 35 29 AA 22 43 4F 4D 4D  45 4E 54 53 20 54 4F 4F  |5)."COMMENTS TOO|
00000CA0: 20 4C 4F 4E 47 2E 20 34  30 20 43 48 41 52 41 43  | LONG. 40 CHARAC|
00000CB0: 54 45 52 53 20 4D 41 58  22 2C 30 00 C3 28 6C 00  |TERS MAX",0..(l.|
00000CC0: FE 0B 33 00 CB 28 6D 00  89 37 33 00 F7 28 6E 00  |..3..(m..73..(n.|
00000CD0: 99 43 53 24 3A E0 30 2C  32 32 2C 31 30 2C 22 53  |.CS$:.0,22,10,"S|
00000CE0: 45 4E 44 20 51 53 4C 3F  20 28 59 2F 4E 29 22 2C  |END QSL? (Y/N)",|
00000CF0: 30 3A A1 F9 53 51 24 00  12 29 6F 00 8B 53 51 24  |0:..SQ$..)o..SQ$|
00000D00: B3 B1 22 59 22 AF 53 51  24 B3 B1 22 4E 22 A7 31  |.."Y".SQ$.."N".1|
00000D10: 31 30 00 1A 29 70 00 89  37 33 00 3A 29 71 00 99  |10..)p..73.:)q..|
00000D20: 43 53 24 3A E0 30 2C 32  32 2C 31 30 2C 22 41 47  |CS$:.0,22,10,"AG|
00000D30: 45 22 2C 30 3A 85 41 47  45 24 00 42 29 72 00 89  |E",0:.AGE$.B)r..|
00000D40: 37 33 00 87 29 73 00 99  43 53 24 3A E0 30 2C 31  |73..)s..CS$:.0,1|
00000D50: 33 2C 33 2C 22 45 4E 44  20 4F 46 20 51 53 4F 2E  |3,3,"END OF QSO.|
00000D60: 20 20 4D 41 4B 45 20 46  49 4E 41 4C 20 43 48 45  |  MAKE FINAL CHE|
00000D70: 43 4B 20 4F 46 20 44 41  54 41 20 41 43 43 55 52  |CK OF DATA ACCUR|
00000D80: 41 43 59 21 22 2C 30 00  A7 29 74 00 E0 30 2C 32  |ACY!",0..)t..0,2|
00000D90: 32 2C 36 2C 22 20 2D 20  43 41 4C 4C 20 20 2D 20  |2,6," - CALL  - |
00000DA0: 22 AA 43 4C 24 2C 30 00  D1 29 75 00 E0 30 2C 32  |".CL$,0..)u..0,2|
00000DB0: 32 2C 37 2C 22 20 2D 20  42 41 4E 44 20 20 2D 20  |2,7," - BAND  - |
00000DC0: 22 AA 42 44 24 AA 22 20  4D 45 54 45 52 53 22 2C  |".BD$." METERS",|
00000DD0: 30 00 F1 29 76 00 E0 30  2C 32 32 2C 38 2C 22 20  |0..)v..0,22,8," |
00000DE0: 2D 20 4D 4F 44 45 20 20  2D 20 22 AA 4D 44 24 2C  |- MODE  - ".MD$,|
00000DF0: 30 00 1A 2A 77 00 E0 30  2C 32 32 2C 39 2C 22 20  |0..*w..0,22,9," |
00000E00: 2D 20 50 4F 57 45 52 20  2D 20 22 AA 50 57 24 AA  |- POWER - ".PW$.|
00000E10: 22 20 57 41 54 54 53 22  2C 30 00 3D 2A 78 00 E0  |" WATTS",0.=*x..|
00000E20: 30 2C 32 32 2C 31 30 2C  22 20 2D 20 44 41 54 45  |0,22,10," - DATE|
00000E30: 20 20 2D 20 22 AA 44 41  54 45 24 2C 30 00 62 2A  |  - ".DATE$,0.b*|
00000E40: 79 00 E0 30 2C 32 32 2C  31 31 2C 22 20 2D 20 42  |y..0,22,11," - B|
00000E50: 51 53 30 20 20 2D 20 22  AA 54 4D 24 AA 22 5A 22  |QS0  - ".TM$."Z"|
00000E60: 2C 30 00 83 2A 7A 00 E0  30 2C 32 32 2C 31 32 2C  |,0..*z..0,22,12,|
00000E70: 22 20 2D 20 4E 41 4D 45  20 20 2D 20 22 AA 4E 4D  |" - NAME  - ".NM|
00000E80: 24 2C 30 00 A5 2A 7B 00  E0 30 2C 32 32 2C 31 33  |$,0..*{..0,22,13|
00000E90: 2C 22 20 2D 20 43 49 54  59 20 20 2D 20 22 AA 51  |," - CITY  - ".Q|
00000EA0: 54 48 24 2C 30 00 C6 2A  7C 00 E0 30 2C 32 32 2C  |TH$,0..*|..0,22,|
00000EB0: 31 34 2C 22 20 2D 20 53  54 41 54 45 20 2D 20 22  |14," - STATE - "|
00000EC0: AA 53 43 24 2C 30 00 E8  2A 7D 00 E0 30 2C 32 32  |.SC$,0..*}..0,22|
00000ED0: 2C 31 35 2C 22 20 2D 20  41 47 45 20 20 20 2D 20  |,15," - AGE   - |
00000EE0: 22 AA 41 47 45 24 2C 30  00 09 2B 7E 00 E0 30 2C  |".AGE$,0..+~..0,|
00000EF0: 32 32 2C 31 36 2C 22 20  2D 20 43 4F 4D 4D 53 20  |22,16," - COMMS |
00000F00: 2D 20 22 AA 43 54 24 2C  30 00 32 2B 7F 00 E0 30  |- ".CT$,0.2+...0|
00000F10: 2C 32 32 2C 31 37 2C 22  20 2D 20 52 53 54 27 53  |,22,17," - RST'S|
00000F20: 20 2D 20 22 AA 53 52 24  AA 22 2F 22 AA 52 52 24  | - ".SR$."/".RR$|
00000F30: 2C 30 00 53 2B 80 00 E0  30 2C 32 32 2C 31 38 2C  |,0.S+...0,22,18,|
00000F40: 22 20 2D 20 51 53 4C 3F  20 20 2D 20 22 AA 53 51  |" - QSL?  - ".SQ|
00000F50: 24 2C 30 00 82 2B 81 00  E0 30 2C 32 32 2C 32 32  |$,0..+...0,22,22|
00000F60: 2C 43 46 24 AA 22 45 4E  54 45 52 20 49 4E 20 4C  |,CF$."ENTER IN L|
00000F70: 4F 47 3F 20 28 59 2F 4E  29 22 2C 30 3A A1 F9 41  |OG? (Y/N)",0:..A|
00000F80: 4E 24 00 9D 2B 82 00 8B  41 4E 24 B3 B1 22 59 22  |N$..+...AN$.."Y"|
00000F90: AF 41 4E 24 B3 B1 22 4E  22 A7 31 31 35 00 AE 2B  |.AN$.."N".115..+|
00000FA0: 83 00 8B 41 4E 24 B2 22  4E 22 A7 31 33 33 00 BF  |...AN$."N".133..|
00000FB0: 2B 84 00 8B 41 4E 24 B2  22 59 22 A7 31 37 36 00  |+...AN$."Y".176.|
00000FC0: E9 2B 85 00 99 43 53 24  3A E0 30 2C 32 32 2C 30  |.+...CS$:.0,22,0|
00000FD0: 35 2C 22 57 48 41 54 20  54 4F 20 44 4F 20 57 49  |5,"WHAT TO DO WI|
00000FE0: 54 48 20 44 41 54 41 3F  22 00 0B 2C 86 00 E0 30  |TH DATA?"..,...0|
00000FF0: 2C 32 32 2C 30 38 2C 22  28 31 29 20 2D 20 46 4F  |,22,08,"(1) - FO|
00001000: 52 47 45 54 20 49 54 21  22 2C 30 00 3E 2C 87 00  |RGET IT!",0.>,..|
00001010: E0 30 2C 32 32 2C 31 30  2C 22 28 32 29 20 2D 20  |.0,22,10,"(2) - |
00001020: 46 4F 52 47 4F 54 20 54  4F 20 43 48 41 4E 47 45  |FORGOT TO CHANGE|
00001030: 20 53 4F 4D 45 54 48 49  4E 47 21 22 2C 30 00 6C  | SOMETHING!",0.l|
00001040: 2C 88 00 E0 30 2C 32 32  2C 31 32 2C 22 28 33 29  |,...0,22,12,"(3)|
00001050: 20 2D 20 52 45 41 4C 4C  59 20 57 41 4E 54 20 54  | - REALLY WANT T|
00001060: 4F 20 4C 4F 47 20 49 54  21 22 2C 30 00 9A 2C 89  |O LOG IT!",0..,.|
00001070: 00 E0 30 2C 32 32 2C 32  33 2C 43 46 24 AA 22 49  |..0,22,23,CF$."I|
00001080: 4E 50 55 54 20 41 20 4E  55 4D 42 45 52 20 31 2D  |NPUT A NUMBER 1-|
00001090: 33 22 2C 30 3A A1 F9 41  4E 24 00 AA 2C 8A 00 8B  |3",0:..AN$..,...|
000010A0: 41 4E 24 B2 22 31 22 A7  31 37 00 BA 2C 8B 00 8B  |AN$."1".17..,...|
000010B0: 41 4E 24 B2 22 32 22 A7  34 34 00 CB 2C 8C 00 8B  |AN$."2".44..,...|
000010C0: 41 4E 24 B2 22 33 22 A7  31 37 36 00 D4 2C 8D 00  |AN$."3".176..,..|
000010D0: 89 31 33 33 00 E5 2C 8E  00 FE 0D 23 32 2C 22 2E  |.133..,....#2,".|
000010E0: 22 AA 56 52 24 00 ED 2C  8F 00 4A B2 31 00 FC 2C  |".VR$..,..J.1..,|
000010F0: 90 00 81 20 49 B2 31 A4  31 30 30 30 00 70 2D 91  |... I.1.1000.p-.|
00001100: 00 84 32 2C 43 4C 24 28  4A 29 2C 42 44 24 28 4A  |..2,CL$(J),BD$(J|
00001110: 29 2C 4D 44 24 28 4A 29  2C 50 57 24 28 4A 29 2C  |),MD$(J),PW$(J),|
00001120: 44 41 54 45 24 28 4A 29  2C 4E 4D 24 28 4A 29 2C  |DATE$(J),NM$(J),|
00001130: 51 54 48 24 28 4A 29 2C  53 43 24 28 4A 29 2C 43  |QTH$(J),SC$(J),C|
00001140: 54 24 28 4A 29 2C 41 47  45 24 28 4A 29 2C 54 4D  |T$(J),AGE$(J),TM|
00001150: 24 28 4A 29 2C 53 52 24  28 4A 29 2C 52 52 24 28  |$(J),SR$(J),RR$(|
00001160: 4A 29 2C 53 51 24 28 4A  29 2C 52 51 24 28 4A 29  |J),SQ$(J),RQ$(J)|
00001170: 00 86 2D 92 00 8B 43 4C  24 28 4A 29 B2 43 4C 24  |..-...CL$(J).CL$|
00001180: A7 4A B2 4A AA 31 00 95  2D 93 00 8B 53 54 B2 36  |.J.J.1..-...ST.6|
00001190: 34 A7 31 34 39 00 9B 2D  94 00 82 00 A4 2D 95 00  |4.149..-.....-..|
000011A0: FE 0F 23 32 00 B1 2D 96  00 8B 4A B1 31 A7 31 35  |..#2..-...J.1.15|
000011B0: 32 00 B9 2D 97 00 89 34  34 00 C6 2D 98 00 4C B2  |2..-...44..-..L.|
000011C0: 31 3A 53 46 B2 31 00 D8  2D 99 00 8B 4A B1 31 30  |1:SF.1..-...J.10|
000011D0: A7 4C B2 28 4A AB 39 29  00 ED 2D 9A 00 4E 52 B2  |.L.(J.9)..-..NR.|
000011E0: 4A AB 31 3A 4E 52 24 B2  C4 28 4E 52 29 00 50 2E  |J.1:NR$..(NR).P.|
000011F0: 9B 00 99 43 53 24 3A E0  30 2C 31 30 2C 32 2C 43  |...CS$:.0,10,2,C|
00001200: 4C 24 AA 22 20 48 41 53  20 42 45 45 4E 20 57 4F  |L$." HAS BEEN WO|
00001210: 52 4B 45 44 20 22 AA 4E  52 24 AA 22 20 54 49 4D  |RKED ".NR$." TIM|
00001220: 45 53 2E 20 20 4E 41 4D  45 20 49 53 3A 20 22 AA  |ES.  NAME IS: ".|
00001230: 4E 4D 24 28 4A AB 31 29  AA 22 20 20 20 41 47 45  |NM$(J.1)."   AGE|
00001240: 20 49 53 3A 20 22 AA 41  47 45 24 28 4A AB 31 29  | IS: ".AGE$(J.1)|
00001250: 00 80 2E 9C 00 E0 30 2C  32 36 2C 33 2C 22 51 54  |......0,26,3,"QT|
00001260: 48 20 49 53 20 22 AA 51  54 48 24 28 4A AB 31 29  |H IS ".QTH$(J.1)|
00001270: AA 22 2C 20 22 AA 53 43  24 28 4A AB 31 29 2C 30  |.", ".SC$(J.1),0|
00001280: 00 8F 2E 9D 00 81 4B B2  4C A4 28 4A AB 31 29 00  |......K.L.(J.1).|
00001290: F9 2E 9E 00 E0 30 2C 31  2C 34 AA 28 4B AB 28 4C  |.....0,1,4.(K.(L|
000012A0: AB 31 29 29 2C 22 51 53  4F 3E 20 22 AA 44 41 54  |.1)),"QSO> ".DAT|
000012B0: 45 24 28 4B 29 AA 22 20  22 AA 42 44 24 28 4B 29  |E$(K)." ".BD$(K)|
000012C0: AA 22 2F 22 AA 4D 44 24  28 4B 29 AA 22 20 22 AA  |."/".MD$(K)." ".|
000012D0: 54 4D 24 28 4B 29 AA 22  5A 20 51 53 4C 3D 22 AA  |TM$(K)."Z QSL=".|
000012E0: 52 51 24 28 4B 29 AA 22  20 52 4D 4B 53 3A 20 22  |RQ$(K)." RMKS: "|
000012F0: AA 43 54 24 28 4B 29 2C  30 00 FF 2E 9F 00 82 00  |.CT$(K),0.......|
00001300: 3E 2F A0 00 E0 30 2C 32  32 2C 35 AA 28 4B AB 28  |>/...0,22,5.(K.(|
00001310: 4C AB 31 29 29 2C 22 28  31 29 20 2D 20 54 4F 44  |L.1)),"(1) - TOD|
00001320: 41 59 27 53 20 42 41 4E  44 20 20 2D 20 22 AA 42  |AY'S BAND  - ".B|
00001330: 44 24 AA 22 20 4D 45 54  45 52 53 22 2C 30 00 73  |D$." METERS",0.s|
00001340: 2F A1 00 E0 30 2C 32 32  2C 36 AA 28 4B AB 28 4C  |/...0,22,6.(K.(L|
00001350: AB 31 29 29 2C 22 28 32  29 20 2D 20 54 4F 44 41  |.1)),"(2) - TODA|
00001360: 59 27 53 20 4D 4F 44 45  20 20 2D 20 22 AA 4D 44  |Y'S MODE  - ".MD|
00001370: 24 2C 30 00 B1 2F A2 00  E0 30 2C 32 32 2C 37 AA  |$,0../...0,22,7.|
00001380: 28 4B AB 28 4C AB 31 29  29 2C 22 28 33 29 20 2D  |(K.(L.1)),"(3) -|
00001390: 20 54 4F 44 41 59 27 53  20 50 4F 57 45 52 20 2D  | TODAY'S POWER -|
000013A0: 20 22 AA 50 57 24 AA 22  20 57 41 54 54 53 22 2C  | ".PW$." WATTS",|
000013B0: 30 00 EC 2F A3 00 E0 30  2C 31 37 2C 38 AA 28 4B  |0../...0,17,8.(K|
000013C0: AB 28 4C AB 31 29 29 2C  22 3C 12 52 45 54 55 52  |.(L.1)),"<.RETUR|
000013D0: 4E 92 3E 20 2D 20 41 4C  4C 20 44 41 54 41 20 49  |N.> - ALL DATA I|
000013E0: 53 20 43 4F 52 52 45 43  54 22 2C 30 00 1C 30 A4  |S CORRECT",0..0.|
000013F0: 00 E0 30 2C 32 32 2C 32  33 2C 43 46 24 AA 22 49  |..0,22,23,CF$."I|
00001400: 4E 50 55 54 20 41 20 4E  55 4D 42 45 52 20 28 31  |NPUT A NUMBER (1|
00001410: 2D 33 29 22 2C 30 3A A1  F9 41 4E 24 00 2D 30 A5  |-3)",0:..AN$.-0.|
00001420: 00 8B 41 4E 24 B2 22 31  22 A7 31 37 30 00 3E 30  |..AN$."1".170.>0|
00001430: A6 00 8B 41 4E 24 B2 22  32 22 A7 31 37 32 00 4F  |...AN$."2".172.O|
00001440: 30 A7 00 8B 41 4E 24 B2  22 33 22 A7 31 37 34 00  |0...AN$."3".174.|
00001450: 5F 30 A8 00 8B 41 4E 24  B2 43 52 24 A7 34 34 00  |_0...AN$.CR$.44.|
00001460: 68 30 A9 00 89 31 35 35  00 9F 30 AA 00 99 43 53  |h0...155..0...CS|
00001470: 24 3A E0 20 30 2C 32 32  2C 31 30 2C 22 54 48 45  |$:. 0,22,10,"THE|
00001480: 20 43 4F 52 52 45 43 54  20 42 41 4E 44 20 53 48  | CORRECT BAND SH|
00001490: 4F 55 4C 44 20 42 45 22  2C 30 3A 85 42 44 24 00  |OULD BE",0:.BD$.|
000014A0: A8 30 AB 00 89 31 35 35  00 DF 30 AC 00 99 43 53  |.0...155..0...CS|
000014B0: 24 3A E0 20 30 2C 32 32  2C 31 30 2C 22 54 48 45  |$:. 0,22,10,"THE|
000014C0: 20 43 4F 52 52 45 43 54  20 4D 4F 44 45 20 53 48  | CORRECT MODE SH|
000014D0: 4F 55 4C 44 20 42 45 22  2C 30 3A 85 4D 44 24 00  |OULD BE",0:.MD$.|
000014E0: E8 30 AD 00 89 31 35 35  00 26 31 AE 00 99 43 53  |.0...155.&1...CS|
000014F0: 24 3A E0 20 30 2C 32 32  2C 31 30 2C 22 54 48 45  |$:. 0,22,10,"THE|
00001500: 20 43 4F 52 52 45 43 54  20 50 4F 57 45 52 20 4C  | CORRECT POWER L|
00001510: 45 56 45 4C 20 53 48 4F  55 4C 44 20 42 45 22 2C  |EVEL SHOULD BE",|
00001520: 30 3A 85 50 57 24 00 2F  31 AF 00 89 31 35 35 00  |0:.PW$./1...155.|
00001530: AE 31 B0 00 5A 24 B2 43  4C 24 AA 22 2C 22 AA 42  |.1..Z$.CL$.",".B|
00001540: 44 24 AA 22 2C 22 AA 4D  44 24 AA 22 2C 22 AA 50  |D$.",".MD$.",".P|
00001550: 57 24 AA 22 2C 22 AA 44  41 54 45 24 AA 22 2C 22  |W$.",".DATE$.","|
00001560: AA 4E 4D 24 AA 22 2C 22  AA 51 54 48 24 AA 22 2C  |.NM$.",".QTH$.",|
00001570: 22 AA 53 43 24 AA 22 2C  22 AA 43 54 24 AA 22 2C  |".SC$.",".CT$.",|
00001580: 22 AA 41 47 45 24 AA 22  2C 22 AA 54 4D 24 AA 22  |".AGE$.",".TM$."|
00001590: 2C 22 AA 53 52 24 AA 22  2C 22 AA 52 52 24 AA 22  |,".SR$.",".RR$."|
000015A0: 2C 22 AA 53 51 24 AA 22  2C 22 AA 52 51 24 00 C5  |,".SQ$.",".RQ$..|
000015B0: 31 B1 00 FE 0E 23 32 2C  22 2E 22 AA 56 52 24 2C  |1....#2,".".VR$,|
000015C0: 44 30 2C 55 38 00 CF 31  B2 00 98 32 2C 5A 24 00  |D0,U8..1...2,Z$.|
000015D0: D8 31 B3 00 8D 31 38 32  00 E1 31 B4 00 FE 0F 23  |.1...182..1....#|
000015E0: 32 00 E9 31 B5 00 89 31  37 00 FA 31 B6 00 8B 44  |2..1...17..1...D|
000015F0: 53 B1 31 A7 99 44 53 24  3A 90 00 00 32 B7 00 8E  |S.1..DS$:...2...|
00001600: 00 00 00 4E                                       |...N            |

.......    DAVE RADOMSKI KT0H.;....    2
080 S. FAIRPLAY ST..Z....    AURORA, CO 
80014-4526.T....    (V) 303-337-7555....
..    (D) 303-337-2211.......Z....    12
 MAR 1986  COPYWRITE BY AUTHOR - RELEASE
D TO PUBLIC DOMAIN......                
 UPDATES & DATA MANAGER AVAILABLE FROM A
UTHOR.9....    "KT0H LOGGER V1.2".J.... 
6,7:. 5,16.M...CR$.G(13):CF$.G(15):CS$.G
(147)......CS$:.0,20,10,"ENTER TODAY'S Z
ULU DATE .DDMMMYR.",0:.DATE$......CS$:.0
,20,10,"ENTER CORRECT ZULU TIME .HHMMSS.
",0:.TI$......CS$:. 0,25,10,"ENTER BAND"
,0:.BD$.6....CS$:. 0,25,10,"ENTER MODE",
0:.MD$.G....CS$:. 0,25,10,"ENTER POWER I
N WATTS",0:.PW$.P...SF.0.....NM$."?":QTH
$."?":SC$."?":CT$."N/A":AGE$."UNKN":RQ$.
"N":SQ$."N".D....MD$."CW".22.Z...RR$."59
":SR$."59"......23.....RR$."599":SR$."59
9".$....CS$:.0,25,10,"ENTER CALLSIGN",0:
.CL$.5...TM$.H(TI$,4)._....F(J(CL$,3,1))
.47.F(J(CL$,3,1)).58.32......F(J(CL$,2,1
)).47.F(J(CL$,2,1)).58.33......F(J(CL$,1
,1)).47.F(J(CL$,1,1)).58.34......CS$:.0,
25,10,"IS ".CL$." REALLY A CALLSIGN? (Y/
N)",0:..AN$.. ...AN$.."Y".AN$.."N".28.. 
...AN$."Y".35.% ...23.F  .V.F(J(CL$,3,1)
):VR$.G(V):.36.G !.V.F(J(CL$,2,1)):VR$.G
(V):.36.. ".V.F(J(CL$,1,1)):VR$.G(V):.36
.. #.VR$."SPEC".. $...#2,".".VR$.. %..DS
.62...#2:.39.J &...#2:.142.L!'.Z$."OPEN"
.",".BD$.",".MD$.",".PW$.",".DATE$.",".N
M$.",".QTH$.",".SC$.",".CT$.",".AGE$.","
.TM$.",".SR$.",".RR$.",".SQ$.",".RQ$._!(
...#2,".".VR$,W.I!)..2,Z$.R!*..182.{!+..
.#2..!,..CS$:. 0,22,3,"IS THE FOLLOWING 
INFORMATION CORRECT?",0.Z!-..0,22,6,"(1)
 - CALL  - ".CL$,0.."...0,22,8,"(2) - BA
ND  - ".BD$." METERS",0.+"/..0,22,10,"(3
) - MODE  - ".MD$,0.X"0..0,22,12,"(4) - 
POWER - ".PW$." WATTS",0.."1..0,22,14,"(
5) - TIME  - ".TM$."Z",0.."2..0,22,16,"(
6) - DATE  - ".DATE$,0.X"3..0,17,18,"<.R
ETURN.> - ALL DATA IS CORRECT",0..#4..0,
22,22,CF$."INPUT A NUMBER 1-6",0:..AN$..
#5..AN$."1".17.&#6..AN$."2".61.6#7..AN$.
"3".63.F#8..AN$."4".65.V#9..AN$."5".67.F
#:..AN$."6".69.V#;..AN$.CR$.71.~#<..44..
#=..CS$:.0,22,10,"THE CORRECT BAND SHOUL
D BE",0:.BD$..#>..44..#?..CS$:.0,22,10,"
THE CORRECT MODE SHOULD BE",0:.MD$..#@..
44.7$A..CS$:.0,22,10,"THE CORRECT POWER 
LEVEL SHOULD BE",0:.PW$.?$B..44.R$C..CS$
:.0,22,10,"THE ZULU TIME SHOULD BE",0:.T
M$.Z$D..44..$E..CS$:.0,22,10,"THE CORREC
T DATE SHOULD BE",0:.DATE$..$F..44.G$G..
SF.0.73..%H.NM$.NM$(J.1):QTH$.QTH$(J.1):
SC$.SC$(J.1):AGE$.AGE$(J.1).(%I..CS$:. 0
,22,2,"WORKING - ".CL$,0.J%J..0,22,4,"(1
) - NAME - ".NM$,0.M%K..0,22,6,"(2) - CI
TY - ".QTH$,0..%L..0,22,8,"(3) - STATE/C
OUNTRY - ".SC$,0..%M..0,22,10,"(4) - RST
 SENT - ".SR$,0..%N..0,22,12,"(5) - RST 
RCVD - ".RR$,0..&O..0,22,14,"(6) - COMME
NTS - ".CT$,0.4&P..0,22,16,"(7) - SEND Q
SL - ".SQ$,0.W&Q..0,22,18,"(8) - AGE - "
.AGE$,0.~&R..0,17,20,"<.RETURN.> - END Q
SO ",0..&S..0,22,23,CF$."INPUT A NUMBER 
1-8",0:..AN$..&T..AN$."1".94.L&U..AN$."2
".96..&V..AN$."3".98..&W..AN$."4".100..&
X..AN$."5".102..'Y..AN$."6".104. 'Z..AN$
."7".110.1'[..AN$."8".113.B'\..AN$.CR$.1
15.J']..73.M'^..CS$:.0,22,10,"NAME IS",0
:.NM$.U'_..73..'`..CS$:.0,22,10,"CITY IS
",0:.QTH$..'A..73.M'B..CS$:.0,22,10,"STA
TE/COUNTRY IS",0:.SC$.U'C..73..'D..CS$:.
0,22,10,"HIS RST IS",0:.SR$..(E..73.((F.
.CS$:.0,22,10,"MY RST IS",0:.RR$.0(G..73
.T(H..CS$:.0,22,10,"COMMENTS",0:.CT$.R(I
..C(CT$).40.CT$."N/A":.107.Z(J..73..(K..
CS$:.0,22,10,G(15)."COMMENTS TOO LONG. 4
0 CHARACTERS MAX",0.C(L...3.K(M..73..(N.
.CS$:.0,22,10,"SEND QSL? (Y/N)",0:..SQ$.
.)O..SQ$.."Y".SQ$.."N".110..)P..73.:)Q..
CS$:.0,22,10,"AGE",0:.AGE$.B)R..73..)S..
CS$:.0,13,3,"END OF QSO.  MAKE FINAL CHE
CK OF DATA ACCURACY!",0..)T..0,22,6," - 
CALL  - ".CL$,0.Q)U..0,22,7," - BAND  - 
".BD$." METERS",0..)V..0,22,8," - MODE  
- ".MD$,0..*W..0,22,9," - POWER - ".PW$.
" WATTS",0.=*X..0,22,10," - DATE  - ".DA
TE$,0.B*Y..0,22,11," - BQS0  - ".TM$."Z"
,0..*Z..0,22,12," - NAME  - ".NM$,0..*{.
.0,22,13," - CITY  - ".QTH$,0.F*|..0,22,
14," - STATE - ".SC$,0..*}..0,22,15," - 
AGE   - ".AGE$,0..+~..0,22,16," - COMMS 
- ".CT$,0.2+..0,22,17," - RST'S - ".SR$
."/".RR$,0.S+...0,22,18," - QSL?  - ".SQ
$,0..+...0,22,22,CF$."ENTER IN LOG? (Y/N
)",0:..AN$..+...AN$.."Y".AN$.."N".115..+
...AN$."N".133..+...AN$."Y".176..+...CS$
:.0,22,05,"WHAT TO DO WITH DATA?"..,...0
,22,08,"(1) - FORGET IT!",0.>,...0,22,10
,"(2) - FORGOT TO CHANGE SOMETHING!",0.L
,...0,22,12,"(3) - REALLY WANT TO LOG IT
!",0..,...0,22,23,CF$."INPUT A NUMBER 1-
3",0:..AN$..,...AN$."1".17..,...AN$."2".
44.K,...AN$."3".176.T,...133..,....#2,".
".VR$..,..J.1..,... I.1.1000.P-...2,CL$(
J),BD$(J),MD$(J),PW$(J),DATE$(J),NM$(J),
QTH$(J),SC$(J),CT$(J),AGE$(J),TM$(J),SR$
(J),RR$(J),SQ$(J),RQ$(J)..-...CL$(J).CL$
.J.J.1..-...ST.64.149..-.....-....#2..-.
..J.1.152..-...44.F-..L.1:SF.1.X-...J.10
.L.(J.9)..-..NR.J.1:NR$.D(NR).P....CS$:.
0,10,2,CL$." HAS BEEN WORKED ".NR$." TIM
ES.  NAME IS: ".NM$(J.1)."   AGE IS: ".A
GE$(J.1)......0,26,3,"QTH IS ".QTH$(J.1)
.", ".SC$(J.1),0......K.L.(J.1)......0,1
,4.(K.(L.1)),"QSO> ".DATE$(K)." ".BD$(K)
."/".MD$(K)." ".TM$(K)."Z QSL=".RQ$(K)."
 RMKS: ".CT$(K),0.......>/ ..0,22,5.(K.(
L.1)),"(1) - TODAY'S BAND  - ".BD$." MET
ERS",0.S/...0,22,6.(K.(L.1)),"(2) - TODA
Y'S MODE  - ".MD$,0../...0,22,7.(K.(L.1)
),"(3) - TODAY'S POWER - ".PW$." WATTS",
0../...0,17,8.(K.(L.1)),"<.RETURN.> - AL
L DATA IS CORRECT",0..0...0,22,23,CF$."I
NPUT A NUMBER (1-3)",0:..AN$.-0...AN$."1
".170.>0...AN$."2".172.O0...AN$."3".174.
_0...AN$.CR$.44.H0...155..0...CS$:. 0,22
,10,"THE CORRECT BAND SHOULD BE",0:.BD$.
.0...155..0...CS$:. 0,22,10,"THE CORRECT
 MODE SHOULD BE",0:.MD$..0...155.&1...CS
$:. 0,22,10,"THE CORRECT POWER LEVEL SHO
ULD BE",0:.PW$./1...155..1..Z$.CL$.",".B
D$.",".MD$.",".PW$.",".DATE$.",".NM$.","
.QTH$.",".SC$.",".CT$.",".AGE$.",".TM$."
,".SR$.",".RR$.",".SQ$.",".RQ$.E1....#2,
".".VR$,D0,U8.O1...2,Z$.X1...182..1....#
2..1...17..1...DS.1..DS$:...2......N

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL