FDLOGGER
FILE INFORMATION
FILENAME(S): FDLOGGER
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
a2c9f2f79b4dd879f3a1a733da0846fddd3c083b9ca147ebaf6d91f49877f68c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | FDLOGGER | PRG | Curtcool, Bo | 9 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 46 49 45 4C 44 20 44 41 |..&.... FIELD DA|
00000010: 59 20 4C 4F 47 47 45 52 20 28 43 36 34 20 56 45 |Y LOGGER (C64 VE|
00000020: 52 53 49 4F 4E 29 00 3D 08 14 00 8F 20 42 59 20 |RSION).=.... BY |
00000030: 4B 43 36 41 20 41 4E 44 20 4E 36 4E 42 00 64 08 |KC6A AND N6NB.d.|
00000040: 1E 00 8F 20 28 43 29 20 31 39 38 33 20 42 59 20 |... (C) 1983 BY |
00000050: 48 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F 2E 2C |HAYDEN BOOK CO.,|
00000060: 49 4E 43 2E 00 85 08 23 00 9F 20 31 33 2C 34 3A |INC....#.. 13,4:|
00000070: 8F 20 56 49 43 20 50 52 49 4E 54 45 52 20 43 48 |. VIC PRINTER CH|
00000080: 41 4E 4E 45 4C 00 93 08 24 00 9F 20 31 35 2C 38 |ANNEL...$.. 15,8|
00000090: 2C 31 35 00 A7 08 28 00 42 4C 24 B2 C7 28 37 29 |,15...(.BL$..(7)|
000000A0: 3A 8F 20 42 45 4C 4C 00 DB 08 32 00 43 37 24 B2 |:. BELL...2.C7$.|
000000B0: C7 28 31 34 37 29 3A 8F 20 50 55 54 20 59 4F 55 |.(147):. PUT YOU|
000000C0: 52 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 43 |R CLEAR SCREEN C|
000000D0: 4F 4D 4D 41 4E 44 20 48 45 52 45 00 F4 08 36 00 |OMMAND HERE...6.|
000000E0: 48 49 24 B2 C7 28 31 38 29 3A 4C 4F 24 B2 C7 28 |HI$..(18):LO$..(|
000000F0: 31 34 36 29 00 2B 09 46 00 46 41 24 B2 22 30 3A |146).+.F.FA$."0:|
00000100: 44 55 50 45 4C 4F 47 41 22 3A 46 42 24 B2 22 30 |DUPELOGA":FB$."0|
00000110: 3A 44 55 50 45 4C 4F 47 42 22 3A 46 43 24 B2 22 |:DUPELOGB":FC$."|
00000120: 30 3A 43 4F 4E 54 53 54 4C 47 22 00 4F 09 50 00 |0:CONTSTLG".O.P.|
00000130: 41 41 B2 C6 28 22 41 22 29 AB 31 3A 41 30 B2 C6 |AA..("A").1:A0..|
00000140: 28 22 41 22 29 AB C6 28 22 30 22 29 AA 32 36 00 |("A")..("0").26.|
00000150: 7A 09 5A 00 54 31 24 B2 22 42 41 4E 44 20 20 20 |z.Z.T1$."BAND |
00000160: 20 20 20 51 53 4F 27 53 20 58 20 51 2D 50 54 53 | QSO'S X Q-PTS|
00000170: 20 3D 20 50 4F 49 4E 54 53 22 00 A5 09 64 00 54 | = POINTS"...d.T|
00000180: 32 24 B2 22 2D 2D 2D 2D 20 20 20 20 20 20 2D 2D |2$."---- --|
00000190: 2D 2D 2D 20 20 20 20 20 20 20 20 20 20 20 2D 2D |--- --|
000001A0: 2D 2D 2D 2D 22 00 B2 09 69 00 86 20 59 24 28 32 |----"...i.. Y$(2|
000001B0: 30 29 00 BD 09 6E 00 8D 20 32 30 30 30 00 EF 09 |0)...n.. 2000...|
000001C0: 73 00 99 3A 99 20 22 44 4F 20 59 4F 55 20 57 41 |s..:. "DO YOU WA|
000001D0: 4E 54 20 54 4F 20 55 53 45 20 54 48 45 20 27 4A |NT TO USE THE 'J|
000001E0: 49 46 46 59 20 43 4C 4F 43 4B 27 20 54 4F 22 00 |IFFY CLOCK' TO".|
000001F0: 0F 0A 74 00 85 20 22 4C 4F 47 20 54 48 45 20 54 |..t.. "LOG THE T|
00000200: 49 4D 45 20 28 59 2F 4E 29 20 22 3B 52 43 24 00 |IME (Y/N) ";RC$.|
00000210: 24 0A 75 00 8B 20 52 43 24 B3 B1 22 59 22 20 A7 |$.u.. RC$.."Y" .|
00000220: 20 31 32 30 00 51 0A 76 00 85 20 22 45 4E 54 45 | 120.Q.v.. "ENTE|
00000230: 52 20 54 49 4D 45 20 49 4E 20 55 54 43 20 28 46 |R TIME IN UTC (F|
00000240: 4F 52 4D 41 54 3A 20 4F 4F 4F 4F 29 22 3B 54 39 |ORMAT: OOOO)";T9|
00000250: 24 00 62 0A 77 00 54 49 24 B2 54 39 24 AA 22 30 |$.b.w.TI$.T9$."0|
00000260: 30 22 00 99 0A 78 00 41 52 24 B2 22 22 3A 99 3A |0"...x.AR$."":.:|
00000270: 99 20 22 4E 45 57 20 43 4F 4E 54 45 53 54 20 28 |. "NEW CONTEST (|
00000280: 4E 29 20 4F 52 20 52 45 53 55 4D 45 20 28 52 29 |N) OR RESUME (R)|
00000290: 20 22 3B 3A 85 20 41 52 24 00 AE 0A 82 00 8B 20 | ";:. AR$...... |
000002A0: 41 52 24 B2 22 4E 22 20 A7 20 20 31 39 30 00 CB |AR$."N" . 190..|
000002B0: 0A 8C 00 8B 20 41 52 24 B3 B1 22 52 22 20 A7 20 |.... AR$.."R" . |
000002C0: 99 20 42 4C 24 3A 89 20 31 31 30 00 E5 0A 96 00 |. BL$:. 110.....|
000002D0: 8D 20 32 32 33 30 3A 8F 20 52 45 41 44 20 49 4E |. 2230:. READ IN|
000002E0: 20 46 49 4C 45 00 FC 0A A0 00 8B 20 48 43 24 B2 | FILE...... HC$.|
000002F0: 22 59 22 20 A7 20 8D 20 31 30 39 30 00 11 0B AA |"Y" . . 1090....|
00000300: 00 53 53 B2 32 36 AC 4E 4C AA 31 3A 89 20 34 34 |.SS.26.NL.1:. 44|
00000310: 30 00 23 0B B4 00 8F 20 4E 45 57 20 43 4F 4E 54 |0.#.... NEW CONT|
00000320: 45 53 54 00 58 0B BE 00 99 3A 99 20 22 57 41 4E |EST.X....:. "WAN|
00000330: 54 20 48 41 52 44 20 43 4F 50 59 20 57 48 49 4C |T HARD COPY WHIL|
00000340: 45 20 4C 4F 47 47 49 4E 47 20 28 59 2F 4E 29 20 |E LOGGING (Y/N) |
00000350: 22 3B 3A 85 20 48 43 24 00 6D 0B C8 00 8B 20 48 |";:. HC$.m.... H|
00000360: 43 24 B3 B1 22 59 22 20 A7 20 32 31 30 00 A5 0B |C$.."Y" . 210...|
00000370: C9 00 99 20 22 54 55 52 4E 20 4F 4E 20 50 52 49 |... "TURN ON PRI|
00000380: 4E 54 45 52 2E 20 3C 43 52 3E 20 57 48 45 4E 20 |NTER. <CR> WHEN |
00000390: 52 45 41 44 59 20 22 3B 3A 85 20 41 41 24 3A 8D |READY ";:. AA$:.|
000003A0: 20 31 30 39 30 00 B8 0B D2 00 59 24 B2 22 46 49 | 1090.....Y$."FI|
000003B0: 45 4C 44 20 44 41 59 22 00 ED 0B DC 00 99 3A 99 |ELD DAY"......:.|
000003C0: 20 22 48 4F 57 20 4D 41 4E 59 20 53 45 50 41 52 | "HOW MANY SEPAR|
000003D0: 41 54 45 20 4C 4F 47 20 53 48 45 45 54 53 20 44 |ATE LOG SHEETS D|
000003E0: 4F 20 59 4F 55 20 4E 45 45 44 20 22 3B 00 F8 0B |O YOU NEED ";...|
000003F0: DD 00 85 20 4E 4C 3A 99 00 11 0C E6 00 8B 20 4E |... NL:....... N|
00000400: 4C B3 31 20 A7 20 99 20 42 4C 24 3A 89 20 32 32 |L.1 . . BL$:. 22|
00000410: 30 00 2F 0C F0 00 86 20 4C 4E 24 28 4E 4C 29 2C |0./.... LN$(NL),|
00000420: 51 50 25 28 4E 4C 29 2C 54 43 25 28 4E 4C 29 00 |QP%(NL),TC%(NL).|
00000430: 50 0C FA 00 4D 31 B2 B8 28 30 29 3A 8B 20 4D 31 |P...M1..(0):. M1|
00000440: B3 30 20 A7 20 4D 31 B2 4D 31 AA 36 35 35 33 36 |.0 . M1.M1.65536|
00000450: 00 66 0C FB 00 4D 31 B2 B5 28 28 4D 31 AB 32 30 |.f...M1..((M1.20|
00000460: 30 30 29 AD 36 29 00 A1 0C 04 01 8B 20 4E 4C AC |00).6)...... NL.|
00000470: 32 36 B1 B2 4D 31 20 A7 20 99 20 22 54 4F 4F 20 |26..M1 . . "TOO |
00000480: 4D 41 4E 59 22 3B 42 4C 24 3A 45 52 41 53 45 20 |MANY";BL$:ERASE |
00000490: 4C 4E 24 2C 51 50 25 2C 54 43 25 3A 89 20 32 32 |LN$,QP%,TC%:. 22|
000004A0: 30 00 BE 0C 0E 01 86 20 43 31 25 28 4D 31 29 2C |0...... C1%(M1),|
000004B0: 43 32 25 28 4D 31 29 2C 50 25 28 4D 31 29 00 C9 |C2%(M1),P%(M1)..|
000004C0: 0C 13 01 4B 4B 24 B2 22 22 00 D8 0C 18 01 81 20 |...KK$.""...... |
000004D0: 4A B2 31 20 A4 20 4E 4C 00 FD 0C 22 01 99 3A 99 |J.1 . NL..."..:.|
000004E0: 20 22 57 48 41 54 20 42 41 4E 44 20 49 53 20 4C | "WHAT BAND IS L|
000004F0: 4F 47 20 53 48 45 45 54 20 23 22 3B 4A 00 20 0D |OG SHEET #";J. .|
00000500: 2C 01 99 20 22 45 4E 54 45 52 20 54 48 45 20 42 |,.. "ENTER THE B|
00000510: 41 4E 44 20 46 4F 4C 4C 4F 57 45 44 20 42 59 22 |AND FOLLOWED BY"|
00000520: 00 47 0D 2D 01 99 20 22 20 27 50 48 27 20 46 4F |.G.-.. " 'PH' FO|
00000530: 52 20 50 48 4F 4E 45 20 4F 52 20 27 43 57 27 20 |R PHONE OR 'CW' |
00000540: 46 4F 52 20 43 57 22 00 78 0D 36 01 85 20 22 20 |FOR CW".x.6.. " |
00000550: 28 45 2E 47 2E 20 32 30 50 48 2C 20 32 30 43 57 |(E.G. 20PH, 20CW|
00000560: 2C 20 34 30 50 48 2C 20 4F 52 20 31 35 43 57 29 |, 40PH, OR 15CW)|
00000570: 22 3B 4C 4E 24 28 4A 29 00 88 0D 38 01 8B 20 4A |";LN$(J)...8.. J|
00000580: B2 31 20 A7 20 33 32 30 00 C7 0D 3A 01 81 20 4B |.1 . 320...:.. K|
00000590: B2 31 20 A4 20 4A AB 31 3A 8B 20 4C 4E 24 28 4A |.1 . J.1:. LN$(J|
000005A0: 29 B2 4C 4E 24 28 4B 29 20 A7 20 99 20 22 44 55 |).LN$(K) . . "DU|
000005B0: 50 4C 49 43 41 54 45 20 42 41 4E 44 22 3B 42 4C |PLICATE BAND";BL|
000005C0: 24 3A 89 20 32 39 30 00 CF 0D 3C 01 82 20 4B 00 |$:. 290...<.. K.|
000005D0: FF 0D 40 01 8B 20 C3 28 4C 4E 24 28 4A 29 29 B1 |..@.. .(LN$(J)).|
000005E0: 38 20 A7 20 99 20 42 4C 24 3B 22 4E 41 4D 45 20 |8 . . BL$;"NAME |
000005F0: 54 4F 4F 20 4C 4F 4E 47 22 3A 89 20 32 39 30 00 |TOO LONG":. 290.|
00000600: 2C 0E 4A 01 57 24 B2 C9 28 4C 4E 24 28 4A 29 2C |,.J.W$..(LN$(J),|
00000610: 31 29 3A 8B 20 57 24 B2 22 48 22 20 A7 20 51 50 |1):. W$."H" . QP|
00000620: 25 28 4A 29 B2 31 3A 89 20 33 36 30 00 4A 0E 54 |%(J).1:. 360.J.T|
00000630: 01 8B 20 57 24 B2 22 57 22 20 A7 20 51 50 25 28 |.. W$."W" . QP%(|
00000640: 4A 29 B2 32 3A 89 20 33 36 30 00 74 0E 5E 01 99 |J).2:. 360.t.^..|
00000650: 20 42 4C 24 3B 22 49 4E 56 41 4C 49 44 20 4E 41 | BL$;"INVALID NA|
00000660: 4D 45 2E 20 54 52 59 20 41 47 41 49 4E 22 3A 89 |ME. TRY AGAIN":.|
00000670: 20 32 39 30 00 8C 0E 68 01 4B 4B 24 B2 4B 4B 24 | 290...h.KK$.KK$|
00000680: AA 4C 4E 24 28 4A 29 AA 22 20 20 22 00 AE 0E 6A |.LN$(J)." "...j|
00000690: 01 99 3A 99 20 22 42 41 4E 44 53 20 53 50 45 43 |..:. "BANDS SPEC|
000006A0: 49 46 49 45 44 3A 20 22 3B 4B 4B 24 3A 99 00 BF |IFIED: ";KK$:...|
000006B0: 0E 6C 01 54 43 25 28 4A 29 B2 30 3A 82 20 4A 00 |.l.TC%(J).0:. J.|
000006C0: D8 0E 72 01 54 B2 31 3A 4C 25 B2 32 36 AC 4E 4C |..r.T.1:L%.26.NL|
000006D0: 3A 53 53 B2 4C 25 AA 31 00 07 0F 7C 01 99 3A 99 |:SS.L%.1...|..:.|
000006E0: 20 22 53 50 41 43 45 20 49 53 20 41 56 41 49 4C | "SPACE IS AVAIL|
000006F0: 41 42 4C 45 20 46 4F 52 20 41 50 50 52 4F 58 49 |ABLE FOR APPROXI|
00000700: 4D 41 54 45 4C 59 22 00 2F 0F 7D 01 99 20 4D 31 |MATELY"./.}.. M1|
00000710: 3B 22 20 43 4F 4E 54 41 43 54 53 2C 20 42 55 54 |;" CONTACTS, BUT|
00000720: 20 44 49 53 4B 20 53 50 41 43 45 20 49 53 22 00 | DISK SPACE IS".|
00000730: 5B 0F 7E 01 99 20 22 20 4C 49 4D 49 54 45 44 20 |[.~.. " LIMITED |
00000740: 54 4F 20 41 42 4F 55 54 20 31 32 30 30 20 51 53 |TO ABOUT 1200 QS|
00000750: 4F 53 20 4F 4E 20 54 48 49 53 22 00 88 0F 7F 01 |OS ON THIS".....|
00000760: 99 20 22 20 43 4F 4D 50 55 54 45 52 20 41 4E 44 |. " COMPUTER AND|
00000770: 20 44 49 53 4B 20 4F 50 45 52 41 54 49 4E 47 20 | DISK OPERATING |
00000780: 53 59 53 54 45 4D 2E 22 00 A1 0F 80 01 99 3A 99 |SYSTEM."......:.|
00000790: 20 A3 31 35 29 22 47 4F 4F 44 20 4C 55 43 4B 21 | .15)"GOOD LUCK!|
000007A0: 22 00 C6 0F 86 01 99 3A 99 20 22 49 53 20 54 48 |"......:. "IS TH|
000007B0: 49 53 20 41 20 43 4C 41 53 53 20 44 20 53 54 41 |IS A CLASS D STA|
000007C0: 54 49 4F 4E 20 22 00 F8 0F 88 01 85 20 22 41 54 |TION "...... "AT|
000007D0: 20 48 4F 4D 45 20 55 53 49 4E 47 20 4E 4F 52 4D | HOME USING NORM|
000007E0: 41 4C 20 41 2E 43 2E 20 50 4F 57 45 52 20 28 59 |AL A.C. POWER (Y|
000007F0: 2F 4E 29 22 3B 43 44 24 00 22 10 90 01 8B 20 43 |/N)";CD$.".... C|
00000800: 44 24 B3 B1 22 59 22 20 A7 20 8B 20 43 44 24 B3 |D$.."Y" . . CD$.|
00000810: B1 22 4E 22 20 A7 20 99 20 42 4C 24 3A 89 20 33 |."N" . . BL$:. 3|
00000820: 39 30 00 4B 10 9A 01 99 3A 20 99 20 22 57 48 41 |90.K....: . "WHA|
00000830: 54 20 49 53 20 59 4F 55 52 20 50 4F 57 45 52 20 |T IS YOUR POWER |
00000840: 4D 55 4C 54 49 50 4C 49 45 52 22 00 76 10 9B 01 |MULTIPLIER".v...|
00000850: 99 20 22 20 28 27 31 27 20 49 46 20 4F 56 45 52 |. " ('1' IF OVER|
00000860: 20 32 30 30 20 57 2E 3B 20 27 32 27 20 49 46 20 | 200 W.; '2' IF |
00000870: 42 45 4C 4F 57 22 00 A6 10 9C 01 99 20 22 20 20 |BELOW"...... " |
00000880: 32 30 30 20 57 2E 2C 20 41 4E 44 20 27 35 27 20 |200 W., AND '5' |
00000890: 49 46 20 41 4C 57 41 59 53 20 42 45 4C 4F 57 20 |IF ALWAYS BELOW |
000008A0: 31 30 20 57 2E 22 00 C9 10 9D 01 85 20 22 20 20 |10 W."...... " |
000008B0: 41 4E 44 20 55 53 49 4E 47 20 42 41 54 54 45 52 |AND USING BATTER|
000008C0: 49 45 53 29 20 22 3B 50 4D 00 F7 10 A4 01 8B 20 |IES) ";PM...... |
000008D0: 50 4D B3 B1 31 20 A7 20 8B 20 50 4D B3 B1 32 20 |PM..1 . . PM..2 |
000008E0: A7 20 8B 20 50 4D B3 B1 35 20 A7 20 99 20 42 4C |. . PM..5 . . BL|
000008F0: 24 3A 89 20 34 31 30 00 20 11 AE 01 81 20 4A B2 |$:. 410. .... J.|
00000900: 31 20 A4 20 4C 25 3A 43 31 25 28 4A 29 B2 AB 33 |1 . L%:C1%(J)..3|
00000910: 32 30 30 30 3A 50 25 28 4A 29 B2 30 3A 82 20 4A |2000:P%(J).0:. J|
00000920: 00 2B 11 B8 01 8D 20 33 34 39 30 00 4B 11 C2 01 |.+.... 3490.K...|
00000930: 4C 47 B2 31 3A 4C 48 25 B2 30 3A 4C 50 B2 31 3A |LG.1:LH%.0:LP.1:|
00000940: 4C 4C B2 30 3A 4C 43 24 B2 22 22 00 71 11 CC 01 |LL.0:LC$."".q...|
00000950: 8D 20 31 31 35 30 3A 8B 20 41 52 24 B2 22 4E 22 |. 1150:. AR$."N"|
00000960: 20 A7 20 5A 24 B2 44 54 45 24 3A 8F 20 44 41 54 | . Z$.DTE$:. DAT|
00000970: 45 00 88 11 D6 01 8B 20 48 43 24 B2 22 59 22 20 |E...... HC$."Y" |
00000980: A7 20 8D 20 31 31 31 30 00 9A 11 E0 01 8D 20 31 |. . 1110...... 1|
00000990: 35 31 30 3A 8F 20 42 41 4E 44 00 A0 11 EA 01 8F |510:. BAND......|
000009A0: 00 B2 11 F4 01 8D 20 31 32 39 30 3A 8F 20 4D 45 |...... 1290:. ME|
000009B0: 4E 55 00 CC 11 FE 01 8B 20 54 AD 35 30 B3 B1 B5 |NU...... T.50...|
000009C0: 28 54 AD 35 30 29 20 A7 20 35 31 39 00 02 12 FF |(T.50) . 519....|
000009D0: 01 99 3A 85 20 22 54 4F 20 52 45 53 45 54 20 43 |..:. "TO RESET C|
000009E0: 4C 4F 43 4B 2C 20 45 4E 54 45 52 20 55 54 43 20 |LOCK, ENTER UTC |
000009F0: 28 30 30 30 30 20 46 4F 52 4D 41 54 29 22 3B 54 |(0000 FORMAT)";T|
00000A00: 39 24 00 18 12 00 02 8B 20 C3 28 54 39 24 29 B3 |9$...... .(T9$).|
00000A10: B1 34 20 A7 20 35 31 38 00 3D 12 01 02 81 20 4A |.4 . 518.=.... J|
00000A20: B2 31 20 A4 20 34 3A 8B 20 CA 28 54 39 24 2C 4A |.1 . 4:. .(T9$,J|
00000A30: 2C 31 29 B3 22 30 22 20 A7 20 35 31 38 00 58 12 |,1)."0" . 518.X.|
00000A40: 02 02 8B 20 CA 28 54 39 24 2C 4A 2C 31 29 B1 22 |... .(T9$,J,1)."|
00000A50: 39 22 20 A7 20 35 31 38 00 60 12 03 02 82 20 4A |9" . 518.`.... J|
00000A60: 00 77 12 04 02 54 49 24 B2 54 39 24 AA 22 30 30 |.w...TI$.T9$."00|
00000A70: 22 3A 89 20 35 31 39 00 96 12 06 02 99 20 42 4C |":. 519...... BL|
00000A80: 24 3B 22 49 4E 56 41 4C 49 44 20 54 49 4D 45 22 |$;"INVALID TIME"|
00000A90: 3A 89 20 35 31 31 00 C5 12 07 02 99 3A 99 20 22 |:. 511......:. "|
00000AA0: 4C 4F 47 47 45 52 20 52 45 41 44 59 20 46 4F 52 |LOGGER READY FOR|
00000AB0: 20 51 53 4F 20 23 22 3B 54 3B 22 2D 22 3B 4C 4E | QSO #";T;"-";LN|
00000AC0: 24 28 4C 47 29 00 DF 12 08 02 99 20 22 43 4F 4D |$(LG)...... "COM|
00000AD0: 4D 41 4E 44 20 4F 52 20 43 41 4C 4C 3A 22 3B 00 |MAND OR CALL:";.|
00000AE0: FE 12 12 02 58 31 25 B2 30 3A 8D 20 32 30 36 30 |....X1%.0:. 2060|
00000AF0: 3A 8B 20 58 31 25 B2 31 20 A7 20 35 31 30 00 1A |:. X1%.1 . 510..|
00000B00: 13 1C 02 8B 20 47 24 B2 22 3F 22 20 A7 20 8D 20 |.... G$."?" . . |
00000B10: 31 32 39 30 3A 89 20 35 31 30 00 3F 13 26 02 8B |1290:. 510.?.&..|
00000B20: 20 47 24 B2 22 51 53 59 22 20 A7 20 8D 20 31 35 | G$."QSY" . . 15|
00000B30: 31 30 3A 8D 20 31 36 31 30 3A 89 20 35 31 30 00 |10:. 1610:. 510.|
00000B40: 5E 13 30 02 8B 20 47 24 B2 22 44 41 54 45 22 20 |^.0.. G$."DATE" |
00000B50: A7 20 8D 20 31 31 35 30 3A 89 20 35 31 30 00 84 |. . 1150:. 510..|
00000B60: 13 3A 02 8B 20 47 24 B2 22 51 52 54 22 20 A7 20 |.:.. G$."QRT" . |
00000B70: 8D 20 33 33 38 30 3A 8D 20 31 36 36 30 3A 89 20 |. 3380:. 1660:. |
00000B80: 31 37 39 30 00 AD 13 44 02 8B 20 47 24 B2 22 53 |1790...D.. G$."S|
00000B90: 41 56 45 22 20 A7 20 8D 20 31 36 36 30 3A A0 34 |AVE" . . 1660:.4|
00000BA0: 3A 8D 20 33 35 31 30 3A 89 20 35 31 30 00 CC 13 |:. 3510:. 510...|
00000BB0: 4E 02 8B 20 47 24 B2 22 53 54 41 54 22 20 A7 20 |N.. G$."STAT" . |
00000BC0: 8D 20 31 36 31 30 3A 89 20 35 31 30 00 EC 13 58 |. 1610:. 510...X|
00000BD0: 02 8B 20 47 24 B2 22 53 43 4F 52 45 22 20 A7 20 |.. G$."SCORE" . |
00000BE0: 8D 20 33 33 38 30 3A 89 20 35 31 30 00 05 14 62 |. 3380:. 510...b|
00000BF0: 02 8B 20 47 24 B2 22 45 44 49 54 22 20 A7 20 89 |.. G$."EDIT" . .|
00000C00: 20 32 33 38 30 00 21 14 6C 02 8B 20 47 24 B2 22 | 2380.!.l.. G$."|
00000C10: 58 22 20 A7 20 8D 20 31 32 30 30 3A 89 20 35 31 |X" . . 1200:. 51|
00000C20: 30 00 2B 14 76 02 89 20 37 34 30 00 35 14 80 02 |0.+.v.. 740.5...|
00000C30: 99 20 42 4C 24 00 68 14 8A 02 99 20 48 49 24 3B |. BL$.h.... HI$;|
00000C40: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C60: 2A 2A 2A 2A 2A 2A 2A 22 00 9B 14 94 02 99 20 48 |*******"...... H|
00000C70: 49 24 3B 22 2A 2A 20 20 49 54 27 53 20 41 20 44 |I$;"** IT'S A D|
00000C80: 55 50 45 20 20 2A 2A 20 20 42 4F 4F 20 20 2A 2A |UPE ** BOO **|
00000C90: 20 20 48 49 53 53 20 20 2A 2A 22 00 D2 14 9E 02 | HISS **".....|
00000CA0: 99 20 48 49 24 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |. HI$;"*********|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 4C |*************";L|
00000CD0: 4F 24 00 DC 14 A8 02 89 20 35 31 30 00 0F 15 B2 |O$...... 510....|
00000CE0: 02 99 20 22 49 4E 56 41 4C 49 44 20 45 4E 54 52 |.. "INVALID ENTR|
00000CF0: 59 2E 20 50 4C 45 41 53 45 20 54 52 59 20 41 47 |Y. PLEASE TRY AG|
00000D00: 41 49 4E 2E 22 3B 42 4C 24 3A 89 20 35 31 30 00 |AIN.";BL$:. 510.|
00000D10: 21 15 BC 02 99 20 22 41 42 4F 52 54 45 44 22 3A |!.... "ABORTED":|
00000D20: 8E 00 3C 15 C6 02 99 20 22 43 41 4E 27 54 20 44 |..<.... "CAN'T D|
00000D30: 45 4C 45 54 45 22 3B 42 4C 24 3A 8E 00 5C 15 D0 |ELETE";BL$:..\..|
00000D40: 02 99 20 22 49 4E 56 41 4C 49 44 20 51 53 4F 20 |.. "INVALID QSO |
00000D50: 23 22 3B 42 4C 24 3A 89 20 35 31 30 00 76 15 DA |#";BL$:. 510.v..|
00000D60: 02 8F 20 50 52 4F 43 45 53 53 20 41 20 43 41 4C |.. PROCESS A CAL|
00000D70: 4C 20 53 49 47 4E 00 88 15 E4 02 43 53 24 B2 47 |L SIGN.....CS$.G|
00000D80: 24 3A 43 54 24 B2 47 24 00 CE 15 EE 02 8D 20 33 |$:CT$.G$...... 3|
00000D90: 31 31 30 3A 91 20 58 31 25 20 89 20 36 34 30 2C |110:. X1% . 640,|
00000DA0: 39 30 30 2C 36 39 30 2C 37 36 30 2C 37 36 30 3A |900,690,760,760:|
00000DB0: 8F 20 44 45 43 4F 44 45 20 43 41 4C 4C 20 26 20 |. DECODE CALL & |
00000DC0: 4A 55 4D 50 20 4F 4E 20 52 45 53 55 4C 54 00 EA |JUMP ON RESULT..|
00000DD0: 15 F8 02 8D 20 32 30 39 30 3A 8B 20 C3 28 47 24 |.... 2090:. .(G$|
00000DE0: 29 B3 B1 30 20 A7 20 37 39 30 00 27 16 02 03 99 |)..0 . 790.'....|
00000DF0: 20 22 20 2D 4F 4B 2D 20 20 43 4C 41 53 53 20 28 | " -OK- CLASS (|
00000E00: 3C 43 52 3E 20 20 54 4F 20 41 42 4F 52 54 29 20 |<CR> TO ABORT) |
00000E10: 22 3B 3A 8D 20 32 30 36 30 3A 8B 20 58 31 25 B2 |";:. 2060:. X1%.|
00000E20: 31 20 A7 20 35 31 30 00 39 16 0C 03 8B 20 47 24 |1 . 510.9.... G$|
00000E30: B2 22 22 20 A7 20 35 31 30 00 59 16 16 03 43 4C |."" . 510.Y...CL|
00000E40: 24 B2 47 24 3A 8D 20 33 35 32 30 3A 8B 20 58 31 |$.G$:. 3520:. X1|
00000E50: 25 B2 31 20 A7 20 35 31 30 00 64 16 20 03 8D 20 |%.1 . 510.d. .. |
00000E60: 32 30 39 30 00 7D 16 2A 03 53 4B 24 B2 47 24 3A |2090.}.*.SK$.G$:|
00000E70: 8B 20 58 31 25 B2 31 20 A7 20 35 31 30 00 9D 16 |. X1%.1 . 510...|
00000E80: 2F 03 8B 20 C3 28 53 4B 24 29 B1 31 30 20 A7 20 |/.. .(SK$).10 . |
00000E90: 53 4B 24 B2 C8 28 53 4B 24 2C 31 30 29 00 C7 16 |SK$..(SK$,10)...|
00000EA0: 34 03 8B 20 53 4B 24 B2 22 22 20 A7 20 99 20 22 |4.. SK$."" . . "|
00000EB0: 53 45 43 54 49 4F 4E 20 22 3B 3A 8D 20 32 30 36 |SECTION ";:. 206|
00000EC0: 30 3A 89 20 38 31 30 00 E4 16 3E 03 8B 20 52 43 |0:. 810...>.. RC|
00000ED0: 24 B2 22 59 22 20 A7 20 8D 20 31 31 38 32 3A 89 |$."Y" . . 1182:.|
00000EE0: 20 38 34 30 00 F7 16 40 03 8D 20 32 30 39 30 3A | 840...@.. 2090:|
00000EF0: 55 54 43 24 B2 47 24 00 2E 17 42 03 8B 20 55 54 |UTC$.G$...B.. UT|
00000F00: 43 24 B2 22 22 20 A7 20 99 20 22 55 54 43 20 22 |C$."" . . "UTC "|
00000F10: 3B 3A 8D 20 32 30 36 30 3A 55 54 43 24 B2 47 24 |;:. 2060:UTC$.G$|
00000F20: 3A 8B 20 58 31 25 B2 31 20 A7 20 35 31 30 00 47 |:. X1%.1 . 510.G|
00000F30: 17 44 03 8B 20 55 54 43 24 B2 22 22 20 A7 20 55 |.D.. UTC$."" . U|
00000F40: 54 43 24 B2 22 2D 22 00 6A 17 48 03 52 4E B2 54 |TC$."-".j.H.RN.T|
00000F50: 3A 8D 20 39 38 30 3A 8F 20 57 52 49 54 45 20 4C |:. 980:. WRITE L|
00000F60: 4F 47 20 54 4F 20 44 49 53 4B 00 94 17 52 03 8B |OG TO DISK...R..|
00000F70: 20 48 43 24 B2 22 59 22 20 A7 20 8D 20 31 30 34 | HC$."Y" . . 104|
00000F80: 30 3A 8F 20 57 52 49 54 45 20 54 4F 20 50 52 49 |0:. WRITE TO PRI|
00000F90: 4E 54 45 52 00 BC 17 5C 03 4C 48 25 B2 48 25 3A |NTER...\.LH%.H%:|
00000FA0: 8D 20 31 30 37 30 3A 8F 20 45 4E 54 45 52 20 49 |. 1070:. ENTER I|
00000FB0: 4E 20 44 55 50 45 20 53 48 45 45 54 00 DC 17 66 |N DUPE SHEET...f|
00000FC0: 03 8B 20 43 44 24 B2 22 59 22 20 A7 20 8B 20 4C |.. CD$."Y" . . L|
00000FD0: 43 24 B2 22 44 22 20 A7 20 38 39 30 00 F2 17 70 |C$."D" . 890...p|
00000FE0: 03 54 43 25 28 4C 47 29 B2 54 43 25 28 4C 47 29 |.TC%(LG).TC%(LG)|
00000FF0: AA 31 00 02 18 7A 03 54 B2 54 AA 31 3A 89 20 35 |.1...z.T.T.1:. 5|
00001000: 31 30 00 1F 18 84 03 99 3A 99 20 A3 32 29 43 54 |10......:. .2)CT|
00001010: 24 3B 22 20 4E 45 45 44 45 44 20 4F 4E 3A 22 00 |$;" NEEDED ON:".|
00001020: 2E 18 8E 03 81 20 4A B2 31 20 A4 20 4E 4C 00 57 |..... J.1 . NL.W|
00001030: 18 98 03 48 25 B2 45 28 34 29 AA 4A AC 32 36 AB |...H%.E(4).J.26.|
00001040: 32 36 3A 8D 20 33 33 32 30 3A 8F 20 44 55 50 45 |26:. 3320:. DUPE|
00001050: 20 53 45 41 52 43 48 00 69 18 A2 03 8B 20 58 31 | SEARCH.i.... X1|
00001060: 25 B2 31 20 A7 20 39 36 30 00 88 18 AC 03 8B 20 |%.1 . 960...... |
00001070: 4A B2 4C 47 20 A7 20 99 20 A3 31 30 29 22 2A 20 |J.LG . . .10)"* |
00001080: 22 3B 3A 89 20 39 35 30 00 97 18 AE 03 99 20 A3 |";:. 950...... .|
00001090: 31 31 29 22 20 22 3B 00 A4 18 B6 03 99 20 4C 4E |11)" ";...... LN|
000010A0: 24 28 4A 29 00 B4 18 C0 03 82 20 4A 3A 99 3A 89 |$(J)...... J:.:.|
000010B0: 20 35 31 30 00 CC 18 CA 03 8F 20 57 52 49 54 45 | 510...... WRITE|
000010C0: 20 4C 4F 47 20 54 4F 20 44 49 53 4B 00 DF 18 D4 | LOG TO DISK....|
000010D0: 03 99 20 22 2E 2E 2E 4C 4F 47 47 49 4E 47 22 00 |.. "...LOGGING".|
000010E0: EA 18 DE 03 8D 20 37 30 30 30 00 02 19 E0 03 52 |..... 7000.....R|
000010F0: 50 B2 31 3A 8D 20 37 31 30 30 3A 98 33 2C 44 54 |P.1:. 7100:.3,DT|
00001100: 45 24 00 1B 19 E2 03 52 50 B2 31 30 3A 8D 20 37 |E$.....RP.10:. 7|
00001110: 31 30 30 3A 98 33 2C 55 54 43 24 00 33 19 E4 03 |100:.3,UTC$.3...|
00001120: 52 50 B2 31 35 3A 8D 20 37 31 30 30 3A 98 33 2C |RP.15:. 7100:.3,|
00001130: 43 54 24 00 4F 19 E6 03 52 50 B2 32 36 3A 8D 20 |CT$.O...RP.26:. |
00001140: 37 31 30 30 3A 98 33 2C 4C 4E 24 28 4C 47 29 00 |7100:.3,LN$(LG).|
00001150: 67 19 E8 03 52 50 B2 33 32 3A 8D 20 37 31 30 30 |g...RP.32:. 7100|
00001160: 3A 98 33 2C 4D 44 24 00 87 19 EA 03 52 50 B2 33 |:.3,MD$.....RP.3|
00001170: 38 3A 8D 20 37 31 30 30 3A 98 33 2C 43 4C 24 AA |8:. 7100:.3,CL$.|
00001180: 22 20 22 AA 53 4B 24 00 92 19 F2 03 8D 20 36 30 |" ".SK$...... 60|
00001190: 30 30 00 98 19 FC 03 8E 00 B3 19 06 04 8F 20 57 |00............ W|
000011A0: 52 49 54 45 20 4C 4F 47 20 54 4F 20 50 52 49 4E |RITE LOG TO PRIN|
000011B0: 54 45 52 00 EB 19 10 04 98 31 33 2C 54 3B A6 32 |TER......13,T;.2|
000011C0: 29 44 54 45 24 3B A6 33 29 55 54 43 24 3B A6 33 |)DTE$;.3)UTC$;.3|
000011D0: 29 4C 4E 24 28 4C 47 29 3B A6 38 AB C3 28 4C 4E |)LN$(LG);.8..(LN|
000011E0: 24 28 4C 47 29 29 29 4D 44 24 3B 00 1C 1A 12 04 |$(LG)))MD$;.....|
000011F0: 98 31 33 2C 22 20 22 3B A6 36 AB C3 28 4D 44 24 |.13," ";.6..(MD$|
00001200: 29 29 43 54 24 3B A6 31 32 AB C3 28 43 54 24 29 |))CT$;.12..(CT$)|
00001210: 29 53 4B 24 3B 22 20 22 3B 43 4C 24 00 22 1A 1A |)SK$;" ";CL$."..|
00001220: 04 8E 00 3B 1A 24 04 8F 20 45 4E 54 45 52 20 49 |...;.$.. ENTER I|
00001230: 4E 20 44 55 50 45 20 4C 49 53 54 00 61 1A 2E 04 |N DUPE LIST.a...|
00001240: 8B 20 58 31 25 B2 35 20 A7 20 4C 25 B2 4C 25 AA |. X1%.5 . L%.L%.|
00001250: 31 3A 50 25 28 48 25 29 B2 4C 25 3A 48 25 B2 4C |1:P%(H%).L%:H%.L|
00001260: 25 00 88 1A 38 04 43 31 25 28 48 25 29 B2 45 31 |%...8.C1%(H%).E1|
00001270: 25 3A 43 32 25 28 48 25 29 B2 45 32 25 3A 50 25 |%:C2%(H%).E2%:P%|
00001280: 28 48 25 29 B2 30 3A 8E 00 A4 1A 42 04 8F 20 50 |(H%).0:....B.. P|
00001290: 52 49 4E 54 45 52 20 49 4E 49 54 2C 20 49 46 20 |RINTER INIT, IF |
000012A0: 55 53 45 44 00 AA 1A 4C 04 8E 00 D4 1A 56 04 98 |USED...L.....V..|
000012B0: 31 33 2C 22 22 3A 98 31 33 2C 22 22 3A 98 31 33 |13,"":.13,"":.13|
000012C0: 2C 22 20 20 20 20 20 43 4F 4E 54 45 53 54 3A 20 |," CONTEST: |
000012D0: 22 3B 59 24 00 F0 1A 60 04 98 31 33 2C 22 20 20 |";Y$...`..13," |
000012E0: 20 20 20 44 41 54 45 3A 20 20 20 20 22 3B 5A 24 | DATE: ";Z$|
000012F0: 00 FA 1A 6A 04 98 31 33 3A 8E 00 09 1B 74 04 8F |...j..13:....t..|
00001300: 20 53 45 54 20 44 41 54 45 00 14 1B 7E 04 8D 20 | SET DATE...~.. |
00001310: 32 30 39 30 00 48 1B 88 04 8B 20 47 24 B2 22 22 |2090.H.... G$.""|
00001320: 20 A7 20 99 3A 85 20 22 57 48 41 54 20 49 53 20 | . .:. "WHAT IS |
00001330: 54 48 45 20 44 41 54 45 20 28 4D 4D 2F 44 44 2F |THE DATE (MM/DD/|
00001340: 59 59 29 20 22 3B 47 24 00 7B 1B 92 04 8B 20 C3 |YY) ";G$.{.... .|
00001350: 28 47 24 29 B1 38 20 A7 20 99 20 22 44 41 54 45 |(G$).8 . . "DATE|
00001360: 20 54 4F 4F 20 4C 4F 4E 47 22 3B 42 4C 24 3A 47 | TOO LONG";BL$:G|
00001370: 24 B2 22 22 3A 89 20 31 31 36 30 00 89 1B 9C 04 |$."":. 1160.....|
00001380: 44 54 45 24 B2 47 24 3A 8E 00 B2 1B 9E 04 55 54 |DTE$.G$:......UT|
00001390: 43 24 B2 C8 28 54 49 24 2C 34 29 3A 8E 3A 8F 20 |C$..(TI$,4):.:. |
000013A0: 43 4C 4F 43 4B 20 52 45 41 44 20 52 4F 55 54 49 |CLOCK READ ROUTI|
000013B0: 4E 45 00 CD 1B A6 04 8F 20 58 20 44 45 4C 45 54 |NE...... X DELET|
000013C0: 45 53 20 4C 41 53 54 20 45 4E 54 52 59 00 DF 1B |ES LAST ENTRY...|
000013D0: B0 04 8B 20 4C 48 25 B2 30 20 A7 20 37 31 30 00 |... LH%.0 . 710.|
000013E0: E9 1B B1 04 AB 31 33 30 30 00 1D 1C BA 04 8B 20 |.....1300...... |
000013F0: 4C 48 25 B3 53 53 20 A7 20 8B 20 50 25 28 4C 48 |LH%.SS . . P%(LH|
00001400: 25 29 B2 30 20 A7 20 43 31 25 28 4C 48 25 29 B2 |%).0 . C1%(LH%).|
00001410: AB 33 32 30 30 30 3A 89 20 31 32 33 30 00 33 1C |.32000:. 1230.3.|
00001420: C4 04 50 25 28 4C 48 25 29 B2 30 3A 4C 25 B2 4C |..P%(LH%).0:L%.L|
00001430: 25 AB 31 00 43 1C CE 04 54 B2 54 AB 31 3A 4C 48 |%.1.C...T.T.1:LH|
00001440: 25 B2 30 00 64 1C D8 04 8B 20 43 44 24 B2 22 59 |%.0.d.... CD$."Y|
00001450: 22 20 A7 20 8B 20 4C 43 24 B2 22 44 22 20 A7 20 |" . . LC$."D" . |
00001460: 31 32 36 30 00 7A 1C E2 04 54 43 25 28 4C 47 29 |1260.z...TC%(LG)|
00001470: B2 54 43 25 28 4C 47 29 AB 31 00 AC 1C EC 04 8B |.TC%(LG).1......|
00001480: 20 48 43 24 B2 22 59 22 20 A7 20 98 31 33 2C 22 | HC$."Y" . .13,"|
00001490: 2D 2D 20 50 52 45 56 49 4F 55 53 20 43 41 4C 4C |-- PREVIOUS CALL|
000014A0: 20 44 45 4C 45 54 45 44 20 2D 2D 22 00 BF 1C F6 | DELETED --"....|
000014B0: 04 99 20 22 20 44 45 4C 45 54 45 44 22 3A 8E 00 |.. " DELETED":..|
000014C0: CA 1C 00 05 8F 20 4D 45 4E 55 00 D4 1C 0A 05 99 |..... MENU......|
000014D0: 20 43 37 24 00 DA 1C 14 05 99 00 E4 1C 16 05 99 | C7$............|
000014E0: 20 48 49 24 00 14 1D 19 05 99 20 22 20 20 20 20 | HI$...... " |
000014F0: 20 20 20 20 20 20 20 46 49 45 4C 44 20 44 41 59 | FIELD DAY|
00001500: 20 4C 4F 47 47 45 52 20 20 20 20 20 20 20 20 20 | LOGGER |
00001510: 20 20 20 22 00 44 1D 1E 05 99 20 22 20 20 20 20 | ".D.... " |
00001520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540: 20 20 20 22 00 74 1D 28 05 99 20 22 20 27 3F 27 | ".t.(.. " '?'|
00001550: 20 44 49 53 50 4C 41 59 53 20 4D 45 4E 55 20 20 | DISPLAYS MENU |
00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001570: 20 20 20 22 00 A4 1D 32 05 99 20 22 20 27 51 53 | "...2.. " 'QS|
00001580: 59 20 3C 42 41 4E 44 3E 27 20 43 48 41 4E 47 45 |Y <BAND>' CHANGE|
00001590: 53 20 42 41 4E 44 20 20 20 20 20 20 20 20 20 20 |S BAND |
000015A0: 20 20 20 22 00 D4 1D 3C 05 99 20 22 20 27 44 41 | "...<.. " 'DA|
000015B0: 54 45 20 3C 4D 4D 2F 44 44 2F 59 59 3E 27 20 43 |TE <MM/DD/YY>' C|
000015C0: 48 41 4E 47 45 53 20 44 41 54 45 20 20 20 20 20 |HANGES DATE |
000015D0: 20 20 20 22 00 04 1E 46 05 99 20 22 20 27 51 52 | "...F.. " 'QR|
000015E0: 54 27 20 53 41 56 45 53 20 41 4C 4C 20 43 41 4C |T' SAVES ALL CAL|
000015F0: 4C 53 20 41 4E 44 20 45 58 49 54 53 20 20 20 20 |LS AND EXITS |
00001600: 20 20 20 22 00 34 1E 50 05 99 20 22 20 27 53 41 | ".4.P.. " 'SA|
00001610: 56 45 27 20 53 41 56 45 53 20 41 4C 4C 20 43 41 |VE' SAVES ALL CA|
00001620: 4C 4C 53 20 41 4E 44 20 43 4F 4E 54 49 4E 55 45 |LLS AND CONTINUE|
00001630: 53 20 20 22 00 64 1E 5A 05 99 20 22 20 20 20 20 |S ".d.Z.. " |
00001640: 20 20 20 20 28 4E 4F 54 45 3A 20 41 4C 4C 4F 57 | (NOTE: ALLOW|
00001650: 20 32 2D 33 20 4D 49 4E 20 46 4F 52 20 53 41 56 | 2-3 MIN FOR SAV|
00001660: 45 29 20 22 00 94 1E 64 05 99 20 22 20 27 53 54 |E) "...d.. " 'ST|
00001670: 41 54 27 20 47 49 56 45 53 20 53 54 41 54 55 53 |AT' GIVES STATUS|
00001680: 20 4F 4E 20 43 55 52 52 45 4E 54 20 42 41 4E 44 | ON CURRENT BAND|
00001690: 20 20 20 22 00 C4 1E 6E 05 99 20 22 20 27 53 43 | "...n.. " 'SC|
000016A0: 4F 52 45 27 20 47 49 56 45 53 20 52 55 4E 4E 49 |ORE' GIVES RUNNI|
000016B0: 4E 47 20 54 4F 54 41 4C 20 53 43 4F 52 45 20 20 |NG TOTAL SCORE |
000016C0: 20 20 20 22 00 F4 1E 78 05 99 20 22 20 27 45 44 | "...x.. " 'ED|
000016D0: 49 54 20 3C 51 53 4F 20 23 3E 27 20 45 44 49 54 |IT <QSO #>' EDIT|
000016E0: 53 20 41 4E 59 20 4C 4F 47 47 45 44 20 45 4E 54 |S ANY LOGGED ENT|
000016F0: 52 59 20 22 00 24 1F 82 05 99 20 22 20 27 58 27 |RY ".$.... " 'X'|
00001700: 20 44 45 4C 45 54 45 53 20 54 48 45 20 4C 41 53 | DELETES THE LAS|
00001710: 54 20 45 4E 54 52 59 20 20 20 20 20 20 20 20 20 |T ENTRY |
00001720: 20 20 20 22 00 54 1F 8C 05 99 20 22 20 27 2A 27 | ".T.... " '*'|
00001730: 20 41 42 4F 52 54 53 20 41 4E 20 45 4E 54 52 59 | ABORTS AN ENTRY|
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 22 00 84 1F 96 05 99 20 22 20 45 4E 54 | "...... " ENT|
00001760: 45 52 20 43 41 4C 4C 20 4F 4E 4C 59 20 46 4F 52 |ER CALL ONLY FOR|
00001770: 20 44 55 50 45 20 43 48 45 43 4B 20 20 20 20 20 | DUPE CHECK |
00001780: 20 20 20 22 00 B4 1F A0 05 99 20 22 20 45 4E 54 | "...... " ENT|
00001790: 45 52 20 43 41 4C 4C 20 41 4E 44 20 27 3F 27 20 |ER CALL AND '?' |
000017A0: 54 4F 20 53 45 45 20 42 41 4E 44 53 20 4F 4E 20 |TO SEE BANDS ON |
000017B0: 20 20 20 22 00 E4 1F A4 05 99 20 22 20 20 20 20 | "...... " |
000017C0: 20 20 20 20 20 57 48 49 43 48 20 41 20 53 54 41 | WHICH A STA|
000017D0: 54 49 4F 4E 20 49 53 20 4E 45 45 44 45 44 20 20 |TION IS NEEDED |
000017E0: 20 20 20 22 00 14 20 AA 05 99 20 22 20 45 4E 54 | ".. ... " ENT|
000017F0: 52 59 20 46 4F 52 4D 41 54 3A 20 27 43 41 4C 4C |RY FORMAT: 'CALL|
00001800: 20 43 4C 41 53 53 20 53 45 43 54 20 3C 55 54 43 | CLASS SECT <UTC|
00001810: 3E 27 20 22 00 44 20 B4 05 99 20 22 20 20 20 20 |>' ".D ... " |
00001820: 20 20 20 20 20 28 45 2E 47 2E 20 20 57 32 52 51 | (E.G. W2RQ|
00001830: 20 31 33 41 20 4E 4E 4A 20 31 33 34 35 29 20 20 | 13A NNJ 1345) |
00001840: 20 20 20 22 00 74 20 BE 05 99 20 22 20 20 20 20 | ".t ... " |
00001850: 20 20 20 20 20 28 4F 52 3A 20 20 20 4A 41 31 4D | (OR: JA1M|
00001860: 49 4E 20 35 37 39 20 4A 41 50 41 4E 20 31 33 34 |IN 579 JAPAN 134|
00001870: 35 29 20 22 00 A8 20 C8 05 99 20 22 20 3C 3E 20 |5) ".. ... " <> |
00001880: 44 45 4E 4F 54 45 53 20 4F 50 54 49 4F 4E 41 4C |DENOTES OPTIONAL|
00001890: 20 45 4E 54 52 49 45 53 20 20 20 20 20 20 20 20 | ENTRIES |
000018A0: 20 20 20 22 3B 4C 4F 24 00 AE 20 D2 05 8E 00 B8 | ";LO$.. .....|
000018B0: 20 DC 05 8F 20 51 53 59 00 C3 20 E6 05 8D 20 32 | ... QSY.. ... 2|
000018C0: 30 39 30 00 D5 20 F0 05 8B 20 4E 4C B2 31 20 A7 |090.. ... NL.1 .|
000018D0: 20 31 35 39 30 00 0F 21 FA 05 8B 20 47 24 B2 22 | 1590..!... G$."|
000018E0: 22 20 A7 20 99 3A 85 20 22 57 48 41 54 20 42 41 |" . .:. "WHAT BA|
000018F0: 4E 44 20 28 4C 4F 47 20 53 48 45 45 54 29 20 44 |ND (LOG SHEET) D|
00001900: 4F 20 59 4F 55 20 57 41 4E 54 20 22 3B 47 24 00 |O YOU WANT ";G$.|
00001910: 32 21 04 06 81 20 4A B2 31 20 A4 20 4E 4C 3A 20 |2!... J.1 . NL: |
00001920: 8B 20 47 24 B2 4C 4E 24 28 4A 29 20 A7 20 31 35 |. G$.LN$(J) . 15|
00001930: 38 30 00 3A 21 0E 06 82 20 4A 00 63 21 18 06 99 |80.:!... J.c!...|
00001940: 20 22 4E 4F 20 53 55 43 48 20 4C 4F 47 2E 20 56 | "NO SUCH LOG. V|
00001950: 41 4C 49 44 20 4C 4F 47 53 20 41 52 45 3A 22 3B |ALID LOGS ARE:";|
00001960: 42 4C 24 00 8F 21 22 06 81 20 4A B2 31 20 A4 20 |BL$..!".. J.1 . |
00001970: 4E 4C 3A 99 20 A3 35 29 4C 4E 24 28 4A 29 3A 82 |NL:. .5)LN$(J):.|
00001980: 20 4A 3A 47 24 B2 22 22 3A 89 20 31 35 33 30 00 | J:G$."":. 1530.|
00001990: AB 21 2C 06 4C 47 B2 4A 3A 8B 20 48 43 24 B2 22 |.!,.LG.J:. HC$."|
000019A0: 59 22 20 A7 20 8D 20 32 31 38 30 00 C2 21 36 06 |Y" . . 2180..!6.|
000019B0: 4D 44 24 B2 C9 28 4C 4E 24 28 4C 47 29 2C 32 29 |MD$..(LN$(LG),2)|
000019C0: 3A 8E 00 CF 21 40 06 8F 20 53 54 41 54 55 53 00 |:...!@.. STATUS.|
000019D0: EC 21 4A 06 99 20 43 37 24 3A 99 3A 99 20 22 44 |.!J.. C7$:.:. "D|
000019E0: 41 54 45 3D 20 22 3B 44 54 45 24 3B 00 05 22 54 |ATE= ";DTE$;.."T|
000019F0: 06 99 20 22 20 20 42 41 4E 44 3D 20 22 3B 4C 4E |.. " BAND= ";LN|
00001A00: 24 28 4C 47 29 00 22 22 5E 06 99 20 22 20 20 43 |$(LG).""^.. " C|
00001A10: 4F 4E 54 41 43 54 53 3D 20 22 3B 54 43 25 28 4C |ONTACTS= ";TC%(L|
00001A20: 47 29 00 2A 22 68 06 99 3A 8E 00 34 22 72 06 8F |G).*"h..:..4"r..|
00001A30: 20 51 52 54 00 3C 22 7C 06 A0 20 33 00 5A 22 86 | QRT.<"|.. 3.Z".|
00001A40: 06 9F 20 34 2C 38 2C 34 2C 46 41 24 AA 22 2C 53 |.. 4,8,4,FA$.",S|
00001A50: 2C 57 22 3A 8D 20 36 30 30 30 00 82 22 A4 06 98 |,W":. 6000.."...|
00001A60: 34 2C 48 43 24 3A 98 34 2C 54 3A 98 34 2C 59 24 |4,HC$:.4,T:.4,Y$|
00001A70: 3A 98 34 2C 5A 24 3A 98 34 2C 4E 4C 3A 98 34 2C |:.4,Z$:.4,NL:.4,|
00001A80: 4C 25 00 8C 22 A6 06 98 34 2C 4D 31 00 A9 22 AE |L%.."...4,M1..".|
00001A90: 06 81 20 4A B2 31 20 A4 20 4E 4C 3A 98 34 2C 4C |.. J.1 . NL:.4,L|
00001AA0: 4E 24 28 4A 29 3A 82 20 4A 00 B3 22 B8 06 98 34 |N$(J):. J.."...4|
00001AB0: 2C 5A 41 00 DB 22 D6 06 81 20 4A B2 31 20 A4 20 |,ZA.."... J.1 . |
00001AC0: 4E 4C 3A 98 34 2C 51 50 25 28 4A 29 3B 22 2C 22 |NL:.4,QP%(J);","|
00001AD0: 3B 54 43 25 28 4A 29 3A 82 20 4A 00 EC 22 E0 06 |;TC%(J):. J.."..|
00001AE0: 98 34 2C 43 44 24 3A 98 34 2C 50 4D 00 F2 22 EA |.4,CD$:.4,PM..".|
00001AF0: 06 8E 00 0D 23 F4 06 8F 20 57 52 49 54 45 20 53 |....#... WRITE S|
00001B00: 43 4F 52 45 20 54 4F 20 4C 4F 47 23 34 00 23 23 |CORE TO LOG#4.##|
00001B10: FE 06 98 34 2C 42 4C 24 3A 8F 20 4E 45 57 20 50 |...4,BL$:. NEW P|
00001B20: 41 47 45 00 52 23 08 07 98 34 2C 22 2D 20 20 20 |AGE.R#...4,"- |
00001B30: 20 20 20 20 20 20 20 20 20 53 43 4F 52 45 20 53 | SCORE S|
00001B40: 55 4D 4D 41 52 59 22 3A 98 34 2C 3A 98 34 2C 54 |UMMARY":.4,:.4,T|
00001B50: 31 24 00 68 23 12 07 8B 20 48 43 24 B3 B1 22 59 |1$.h#... HC$.."Y|
00001B60: 22 20 A7 20 31 38 32 30 00 8F 23 13 07 98 31 33 |" . 1820..#...13|
00001B70: 2C 22 22 3A 98 31 33 2C 22 20 22 3B A6 31 33 29 |,"":.13," ";.13)|
00001B80: 22 53 43 4F 52 45 20 53 55 4D 4D 41 52 59 22 00 |"SCORE SUMMARY".|
00001B90: A2 23 14 07 98 31 33 2C 22 22 3A 98 31 33 2C 54 |.#...13,"":.13,T|
00001BA0: 31 24 00 B5 23 1C 07 58 32 B2 30 3A 58 33 B2 30 |1$..#..X2.0:X3.0|
00001BB0: 3A 58 34 B2 30 00 C4 23 26 07 81 20 4A B2 31 20 |:X4.0..#&.. J.1 |
00001BC0: A4 20 4E 4C 00 EF 23 30 07 58 34 B2 58 34 AA 54 |. NL..#0.X4.X4.T|
00001BD0: 43 25 28 4A 29 3A 58 31 B2 54 43 25 28 4A 29 AC |C%(J):X1.TC%(J).|
00001BE0: 51 50 25 28 4A 29 3A 58 32 B2 58 32 AA 58 31 00 |QP%(J):X2.X2.X1.|
00001BF0: 13 24 3A 07 98 34 2C 4C 4E 24 28 4A 29 3B A6 31 |.$:..4,LN$(J);.1|
00001C00: 30 AB C3 28 4C 4E 24 28 4A 29 29 29 54 43 25 28 |0..(LN$(J)))TC%(|
00001C10: 4A 29 3B 00 46 24 3C 07 98 34 2C 22 22 A6 39 AB |J);.F$<..4,"".9.|
00001C20: C3 28 C4 28 54 43 25 28 4A 29 29 29 29 51 50 25 |.(.(TC%(J))))QP%|
00001C30: 28 4A 29 3B A6 37 AB C3 28 C4 28 51 50 25 28 4A |(J);.7..(.(QP%(J|
00001C40: 29 29 29 29 58 31 00 5C 24 44 07 8B 20 48 43 24 |))))X1.\$D.. HC$|
00001C50: B3 B1 22 59 22 20 A7 20 31 38 37 30 00 81 24 46 |.."Y" . 1870..$F|
00001C60: 07 98 31 33 2C 4C 4E 24 28 4A 29 3B A6 31 30 AB |..13,LN$(J);.10.|
00001C70: C3 28 4C 4E 24 28 4A 29 29 29 54 43 25 28 4A 29 |.(LN$(J)))TC%(J)|
00001C80: 3B 00 B5 24 48 07 98 31 33 2C 22 22 A6 39 AB C3 |;..$H..13,"".9..|
00001C90: 28 C4 28 54 43 25 28 4A 29 29 29 29 51 50 25 28 |(.(TC%(J))))QP%(|
00001CA0: 4A 29 3B A6 37 AB C3 28 C4 28 51 50 25 28 4A 29 |J);.7..(.(QP%(J)|
00001CB0: 29 29 29 58 31 00 BD 24 4E 07 82 20 4A 00 EB 24 |)))X1..$N.. J..$|
00001CC0: 58 07 98 34 2C 22 22 54 32 24 3A 98 34 2C 22 54 |X..4,""T2$:.4,"T|
00001CD0: 4F 54 41 4C 22 3B A6 36 29 58 34 3B A6 31 36 AB |OTAL";.6)X4;.16.|
00001CE0: C3 28 C4 28 58 34 29 29 29 58 32 00 11 25 62 07 |.(.(X4)))X2..%b.|
00001CF0: 98 34 2C 22 50 4F 57 45 52 20 4D 55 4C 54 49 50 |.4,"POWER MULTIP|
00001D00: 4C 49 45 52 22 3B A6 31 31 29 22 58 20 22 3B 50 |LIER";.11)"X ";P|
00001D10: 4D 00 3B 25 63 07 98 34 2C 22 2D 20 20 20 20 20 |M.;%c..4,"- |
00001D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D30: 20 20 20 20 2D 2D 2D 2D 2D 2D 22 00 61 25 6C 07 | ------".a%l.|
00001D40: 98 34 2C 22 54 4F 54 41 4C 20 50 4F 49 4E 54 53 |.4,"TOTAL POINTS|
00001D50: 22 3B A6 31 34 29 50 4D AC 58 32 3A 98 34 2C 22 |";.14)PM.X2:.4,"|
00001D60: 22 00 76 25 76 07 8B 20 48 43 24 B2 22 4E 22 20 |".v%v.. HC$."N" |
00001D70: A7 20 31 39 35 30 00 A4 25 80 07 98 31 33 2C 54 |. 1950..%...13,T|
00001D80: 32 24 3A 98 31 33 2C 22 54 4F 54 41 4C 22 3B A6 |2$:.13,"TOTAL";.|
00001D90: 35 29 58 34 3B A6 31 35 AB C3 28 C4 28 58 34 29 |5)X4;.15..(.(X4)|
00001DA0: 29 29 58 32 00 AF 25 81 07 98 31 33 2C 22 22 00 |))X2..%...13,"".|
00001DB0: E9 25 8A 07 98 31 33 2C 22 50 4F 57 45 52 20 4D |.%...13,"POWER M|
00001DC0: 55 4C 54 49 50 4C 49 45 52 22 3B A6 38 29 22 58 |ULTIPLIER";.8)"X|
00001DD0: 20 22 3B 50 4D 3A 98 31 33 2C 22 20 22 A6 32 35 | ";PM:.13," ".25|
00001DE0: 29 22 2D 2D 2D 2D 2D 2D 22 00 0C 26 94 07 98 31 |)"------"..&...1|
00001DF0: 33 2C 22 54 4F 54 41 4C 20 50 4F 49 4E 54 53 20 |3,"TOTAL POINTS |
00001E00: 3D 22 3B A6 31 32 29 50 4D AC 58 32 00 16 26 9E |=";.12)PM.X2..&.|
00001E10: 07 98 34 2C 22 22 00 5A 26 9F 07 98 34 2C 22 54 |..4,"".Z&...4,"T|
00001E20: 48 49 53 20 49 53 20 41 20 54 4F 54 41 4C 20 4F |HIS IS A TOTAL O|
00001E30: 46 20 54 48 45 20 51 53 4F 20 50 4F 49 4E 54 53 |F THE QSO POINTS|
00001E40: 20 45 41 52 4E 45 44 20 49 4E 20 54 48 49 53 20 | EARNED IN THIS |
00001E50: 4C 4F 47 20 4F 4E 4C 59 2E 22 00 9A 26 A8 07 98 |LOG ONLY."..&...|
00001E60: 34 2C 22 46 4F 52 20 54 48 45 20 46 49 4E 41 4C |4,"FOR THE FINAL|
00001E70: 20 53 43 4F 52 45 3A 20 41 44 44 20 54 48 45 20 | SCORE: ADD THE |
00001E80: 51 53 4F 20 50 4F 49 4E 54 53 20 46 52 4F 4D 20 |QSO POINTS FROM |
00001E90: 41 4E 59 20 4F 54 48 45 52 22 00 D8 26 B2 07 98 |ANY OTHER"..&...|
00001EA0: 34 2C 22 4C 4F 47 53 20 4E 4F 54 20 49 4E 43 4C |4,"LOGS NOT INCL|
00001EB0: 55 44 45 44 20 48 45 52 45 20 50 4C 55 53 20 41 |UDED HERE PLUS A|
00001EC0: 4E 59 20 42 4F 4E 55 53 20 50 4F 49 4E 54 53 20 |NY BONUS POINTS |
00001ED0: 45 41 52 4E 45 44 2E 22 00 E3 26 B4 07 98 34 2C |EARNED."..&...4,|
00001EE0: 22 21 22 00 F1 26 BC 07 A0 34 3A 8D 20 36 30 30 |"!"..&...4:. 600|
00001EF0: 30 00 FC 26 BD 07 8D 20 34 30 30 30 00 13 27 BE |0..&... 4000..'.|
00001F00: 07 81 20 52 4E B2 31 20 A4 20 4C 25 3A 8D 20 37 |.. RN.1 . L%:. 7|
00001F10: 30 30 30 00 2E 27 BF 07 52 50 B2 31 3A 8D 20 37 |000..'..RP.1:. 7|
00001F20: 31 30 30 3A 98 33 2C 43 31 25 28 52 4E 29 00 49 |100:.3,C1%(RN).I|
00001F30: 27 C0 07 52 50 B2 39 3A 8D 20 37 31 30 30 3A 98 |'..RP.9:. 7100:.|
00001F40: 33 2C 43 32 25 28 52 4E 29 00 64 27 C1 07 52 50 |3,C2%(RN).d'..RP|
00001F50: B2 31 37 3A 8D 20 37 31 30 30 3A 98 33 2C 50 25 |.17:. 7100:.3,P%|
00001F60: 28 52 4E 29 00 74 27 C2 07 8D 20 36 30 30 30 3A |(RN).t'... 6000:|
00001F70: 82 20 52 4E 00 86 27 C3 07 A0 33 3A 8D 20 36 30 |. RN..'...3:. 60|
00001F80: 30 30 3A A0 31 35 00 90 27 C5 07 A0 20 31 33 30 |00:.15..'... 130|
00001F90: 00 96 27 C6 07 80 00 B0 27 D0 07 99 20 43 37 24 |..'.....'... C7$|
00001FA0: 3A 99 3A 8F 20 50 52 49 4E 54 20 54 49 54 4C 45 |:.:. PRINT TITLE|
00001FB0: 00 B8 27 DA 07 99 3A 99 00 F2 27 E4 07 99 20 22 |..'...:...'... "|
00001FC0: 20 20 22 3B 48 49 24 3B 22 20 20 20 20 20 46 49 | ";HI$;" FI|
00001FD0: 45 4C 44 20 44 41 59 20 4C 4F 47 47 49 4E 47 20 |ELD DAY LOGGING |
00001FE0: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 22 3B 4C |PROGRAM ";L|
00001FF0: 4F 24 00 2C 28 E9 07 99 20 22 20 20 22 3B 48 49 |O$.,(... " ";HI|
00002000: 24 3B 22 20 20 20 20 20 20 20 20 20 20 42 59 20 |$;" BY |
00002010: 4B 43 36 41 20 41 4E 44 20 4E 36 4E 42 20 20 20 |KC6A AND N6NB |
00002020: 20 20 20 20 20 20 20 22 3B 4C 4F 24 00 66 28 EE | ";LO$.f(.|
00002030: 07 99 20 22 20 20 22 3B 48 49 24 3B 22 20 20 28 |.. " ";HI$;" (|
00002040: 43 29 20 31 39 38 33 20 42 59 20 48 41 59 44 45 |C) 1983 BY HAYDE|
00002050: 4E 20 42 4F 4F 4B 20 43 4F 2E 2C 49 4E 43 2E 20 |N BOOK CO.,INC. |
00002060: 20 22 3B 4C 4F 24 00 70 28 F8 07 99 3A 99 3A 8E | ";LO$.p(...:.:.|
00002070: 00 89 28 02 08 8F 20 49 4E 50 55 54 20 53 43 41 |..(... INPUT SCA|
00002080: 4E 20 52 4F 55 54 49 4E 45 00 B2 28 0C 08 47 53 |N ROUTINE..(..GS|
00002090: 24 B2 22 22 3A 85 20 47 53 24 3A 4C 4C B2 C3 28 |$."":. GS$:LL..(|
000020A0: 47 53 24 29 3A 8B 20 4C 4C B2 30 20 A7 20 32 31 |GS$):. LL.0 . 21|
000020B0: 32 30 00 E3 28 16 08 81 20 4A B2 31 20 A4 20 4C |20..(... J.1 . L|
000020C0: 4C 3A 8B 20 20 CA 28 47 53 24 2C 4A 2C 31 29 B2 |L:. .(GS$,J,1).|
000020D0: 22 2D 22 20 A7 20 8D 20 37 30 30 3A 58 31 25 B2 |"-" . . 700:X1%.|
000020E0: 31 3A 8E 00 EB 28 17 08 82 20 4A 00 F4 28 20 08 |1:...(... J..( .|
000020F0: 4C 50 B2 31 00 13 29 2A 08 8B 20 4C 50 B1 4C 4C |LP.1..)*.. LP.LL|
00002100: 20 A7 20 32 31 32 30 3A 8F 20 32 4E 44 20 45 4E | . 2120:. 2ND EN|
00002110: 54 52 59 00 3E 29 34 08 81 20 4C 54 B2 4C 50 20 |TRY.>)4.. LT.LP |
00002120: A4 20 4C 4C 3A 8B 20 CA 28 47 53 24 2C 4C 54 2C |. LL:. .(GS$,LT,|
00002130: 31 29 B3 B1 22 20 22 20 A7 20 32 31 33 30 00 47 |1).." " . 2130.G|
00002140: 29 3E 08 82 20 4C 54 00 53 29 48 08 47 24 B2 22 |)>.. LT.S)H.G$."|
00002150: 22 3A 8E 00 5D 29 52 08 4C 50 B2 4C 54 00 87 29 |":..])R.LP.LT..)|
00002160: 5C 08 81 20 4C 54 B2 4C 50 20 A4 20 4C 4C 3A 8B |\.. LT.LP . LL:.|
00002170: 20 CA 28 47 53 24 2C 4C 54 2C 31 29 B2 22 20 22 | .(GS$,LT,1)." "|
00002180: 20 A7 20 32 31 37 30 00 90 29 66 08 82 20 4C 54 | . 2170..)f.. LT|
00002190: 00 9C 29 70 08 4C 54 B2 4C 54 AA 31 00 BB 29 7A |..)p.LT.LT.1..)z|
000021A0: 08 47 24 B2 CA 28 47 53 24 2C 4C 50 2C 4C 54 AB |.G$..(GS$,LP,LT.|
000021B0: 4C 50 29 3A 4C 50 B2 4C 54 3A 8E 00 C6 29 84 08 |LP):LP.LT:...)..|
000021C0: 98 31 33 2C 22 22 00 E5 29 8E 08 98 31 33 2C 22 |.13,""..)...13,"|
000021D0: 20 20 20 20 51 53 59 20 54 4F 3A 20 22 3B 4C 4E | QSY TO: ";LN|
000021E0: 24 28 4C 47 29 00 EB 29 98 08 8E 00 00 2A A2 08 |$(LG)..).....*..|
000021F0: 4C 4C B2 C3 28 47 53 24 29 3A 89 20 32 30 38 30 |LL..(GS$):. 2080|
00002200: 00 0D 2A AC 08 8F 20 52 45 53 55 4D 45 00 2A 2A |..*... RESUME.**|
00002210: B6 08 9F 34 2C 38 2C 38 2C 46 41 24 AA 22 2C 53 |...4,8,8,FA$.",S|
00002220: 2C 52 22 3A 8D 20 36 30 30 30 00 4C 2A D4 08 84 |,R":. 6000.L*...|
00002230: 34 2C 48 43 24 3A 84 34 2C 54 3A 84 34 2C 59 24 |4,HC$:.4,T:.4,Y$|
00002240: 3A 84 34 2C 5A 24 3A 84 34 2C 4E 4C 00 5C 2A D5 |:.4,Z$:.4,NL.\*.|
00002250: 08 84 34 2C 4C 25 3A 84 34 2C 4D 31 00 7A 2A DE |..4,L%:.4,M1.z*.|
00002260: 08 86 20 4C 4E 24 28 4E 4C 29 2C 51 50 25 28 4E |.. LN$(NL),QP%(N|
00002270: 4C 29 2C 54 43 25 28 4E 4C 29 00 97 2A E8 08 86 |L),TC%(NL)..*...|
00002280: 20 43 31 25 28 4D 31 29 2C 43 32 25 28 4D 31 29 | C1%(M1),C2%(M1)|
00002290: 2C 50 25 28 4D 31 29 00 B4 2A F2 08 81 20 4A B2 |,P%(M1)..*... J.|
000022A0: 31 20 A4 20 4E 4C 3A 84 34 2C 4C 4E 24 28 4A 29 |1 . NL:.4,LN$(J)|
000022B0: 3A 82 20 4A 00 BE 2A F4 08 84 34 2C 5A 41 00 E2 |:. J..*...4,ZA..|
000022C0: 2A F5 08 81 20 4A B2 31 20 A4 20 4E 4C 3A 84 34 |*... J.1 . NL:.4|
000022D0: 2C 51 50 25 28 4A 29 2C 54 43 25 28 4A 29 3A 82 |,QP%(J),TC%(J):.|
000022E0: 20 4A 00 F3 2A F6 08 84 34 2C 43 44 24 3A 84 34 | J..*...4,CD$:.4|
000022F0: 2C 50 4D 00 01 2B F7 08 A0 34 3A 8D 20 36 30 30 |,PM..+...4:. 600|
00002300: 30 00 0C 2B F8 08 8D 20 34 30 30 30 00 23 2B FC |0..+... 4000.#+.|
00002310: 08 81 20 52 4E B2 31 20 A4 20 4C 25 3A 8D 20 37 |.. RN.1 . L%:. 7|
00002320: 30 30 30 00 3E 2B 06 09 52 50 B2 31 3A 8D 20 37 |000.>+..RP.1:. 7|
00002330: 31 30 30 3A 84 33 2C 43 31 25 28 52 4E 29 00 59 |100:.3,C1%(RN).Y|
00002340: 2B 07 09 52 50 B2 39 3A 8D 20 37 31 30 30 3A 84 |+..RP.9:. 7100:.|
00002350: 33 2C 43 32 25 28 52 4E 29 00 74 2B 08 09 52 50 |3,C2%(RN).t+..RP|
00002360: B2 31 37 3A 8D 20 37 31 30 30 3A 84 33 2C 50 25 |.17:. 7100:.3,P%|
00002370: 28 52 4E 29 00 87 2B 1A 09 82 20 52 4E 3A A0 33 |(RN)..+... RN:.3|
00002380: 3A 8D 20 36 30 30 30 00 8D 2B 38 09 8E 00 A1 2B |:. 6000..+8....+|
00002390: 42 09 8F 20 45 44 49 54 20 41 20 52 45 43 4F 52 |B.. EDIT A RECOR|
000023A0: 44 00 DC 2B 4C 09 8D 20 32 30 39 30 3A 8B 20 47 |D..+L.. 2090:. G|
000023B0: 24 B2 22 22 20 A7 20 85 20 22 57 48 41 54 20 51 |$."" . . "WHAT Q|
000023C0: 53 4F 23 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |SO# DO YOU WANT |
000023D0: 54 4F 20 45 44 49 54 20 22 3B 47 24 00 EC 2B 56 |TO EDIT ";G$..+V|
000023E0: 09 58 32 B2 B5 28 C5 28 47 24 29 29 00 07 2C 60 |.X2..(.(G$))..,`|
000023F0: 09 8B 20 58 32 B1 30 20 A7 20 8B 20 58 32 B3 54 |.. X2.0 . . X2.T|
00002400: 20 A7 20 32 34 32 30 00 11 2C 6A 09 89 20 37 32 | . 2420..,j.. 72|
00002410: 30 00 1B 2C 74 09 99 20 43 37 24 00 2C 2C 7E 09 |0..,t.. C7$.,,~.|
00002420: 52 4E B2 58 32 3A 8D 20 37 30 30 30 00 52 2C 7F |RN.X2:. 7000.R,.|
00002430: 09 52 50 B2 31 3A 8D 20 37 31 30 30 3A 84 33 2C |.RP.1:. 7100:.3,|
00002440: 59 24 28 32 29 3A 59 24 28 31 32 29 B2 59 24 28 |Y$(2):Y$(12).Y$(|
00002450: 32 29 00 79 2C 80 09 52 50 B2 31 30 3A 8D 20 37 |2).y,..RP.10:. 7|
00002460: 31 30 30 3A 84 33 2C 59 24 28 33 29 3A 59 24 28 |100:.3,Y$(3):Y$(|
00002470: 31 33 29 B2 59 24 28 33 29 00 A0 2C 81 09 52 50 |13).Y$(3)..,..RP|
00002480: B2 31 35 3A 8D 20 37 31 30 30 3A 84 33 2C 59 24 |.15:. 7100:.3,Y$|
00002490: 28 34 29 3A 59 24 28 31 34 29 B2 59 24 28 34 29 |(4):Y$(14).Y$(4)|
000024A0: 00 C7 2C 82 09 52 50 B2 32 36 3A 8D 20 37 31 30 |..,..RP.26:. 710|
000024B0: 30 3A 84 33 2C 59 24 28 35 29 3A 59 24 28 31 35 |0:.3,Y$(5):Y$(15|
000024C0: 29 B2 59 24 28 35 29 00 EE 2C 83 09 52 50 B2 33 |).Y$(5)..,..RP.3|
000024D0: 32 3A 8D 20 37 31 30 30 3A 84 33 2C 59 24 28 36 |2:. 7100:.3,Y$(6|
000024E0: 29 3A 59 24 28 31 36 29 B2 59 24 28 36 29 00 06 |):Y$(16).Y$(6)..|
000024F0: 2D 84 09 52 50 B2 33 38 3A 8D 20 37 31 30 30 3A |-..RP.38:. 7100:|
00002500: 84 33 2C 45 31 24 00 2C 2D 85 09 47 53 24 B2 45 |.3,E1$.,-..GS$.E|
00002510: 31 24 3A 8D 20 32 32 31 30 3A 59 24 28 37 29 B2 |1$:. 2210:Y$(7).|
00002520: 47 24 3A 59 24 28 31 37 29 B2 47 24 00 4A 2D 86 |G$:Y$(17).G$.J-.|
00002530: 09 8D 20 32 30 39 30 3A 59 24 28 38 29 B2 47 24 |.. 2090:Y$(8).G$|
00002540: 3A 59 24 28 31 38 29 B2 47 24 00 55 2D 88 09 8D |:Y$(18).G$.U-...|
00002550: 20 32 37 37 30 00 82 2D 92 09 99 3A 41 24 B2 22 | 2770..-...:A$."|
00002560: 22 3A 85 20 22 43 48 41 4E 47 45 20 54 48 49 53 |":. "CHANGE THIS|
00002570: 20 52 45 43 4F 52 44 20 28 59 2F 4E 29 20 22 3B | RECORD (Y/N) ";|
00002580: 41 24 00 9E 2D 9C 09 8B 20 41 24 B3 B1 22 59 22 |A$..-... A$.."Y"|
00002590: 20 A7 20 99 20 43 37 24 3A 89 20 35 31 30 00 A8 | . . C7$:. 510..|
000025A0: 2D A6 09 4C 48 25 B2 30 00 CD 2D B0 09 81 20 4A |-..LH%.0..-... J|
000025B0: B2 31 20 A4 20 4E 4C 3A 8B 20 59 24 28 35 29 B2 |.1 . NL:. Y$(5).|
000025C0: 4C 4E 24 28 4A 29 20 A7 20 32 35 30 30 00 D5 2D |LN$(J) . 2500..-|
000025D0: BA 09 82 20 4A 00 EA 2D C4 09 4C 58 B2 4C 47 3A |... J..-..LX.LG:|
000025E0: 4C 59 B2 4A 3A 4C 4B B2 4C 59 00 07 2E CE 09 43 |LY.J:LK.LY.....C|
000025F0: 4C 24 B2 59 24 28 37 29 3A 8D 20 33 35 32 30 3A |L$.Y$(7):. 3520:|
00002600: 4C 42 24 B2 4C 43 24 00 24 2E D8 09 99 3A 99 20 |LB$.LC$.$....:. |
00002610: A3 31 32 29 22 49 4E 53 54 52 55 43 54 49 4F 4E |.12)"INSTRUCTION|
00002620: 53 22 3A 99 00 51 2E E2 09 99 20 22 48 49 54 20 |S":..Q.... "HIT |
00002630: 3C 43 52 3E 20 54 4F 20 4C 45 41 56 45 20 41 4E |<CR> TO LEAVE AN|
00002640: 20 49 54 45 4D 20 55 4E 43 48 41 4E 47 45 44 2E | ITEM UNCHANGED.|
00002650: 22 00 7A 2E EC 09 99 20 22 54 4F 20 43 48 41 4E |".z.... "TO CHAN|
00002660: 47 45 2C 20 45 4E 54 45 52 20 4E 45 57 20 56 41 |GE, ENTER NEW VA|
00002670: 4C 55 45 20 3C 43 52 3E 2E 22 00 AB 2E F6 09 99 |LUE <CR>."......|
00002680: 20 22 54 4F 20 44 45 4C 45 54 45 20 54 48 49 53 | "TO DELETE THIS|
00002690: 20 43 41 4C 4C 2C 20 43 48 41 4E 47 45 20 43 41 | CALL, CHANGE CA|
000026A0: 4C 4C 20 54 4F 20 27 2A 27 2E 22 00 B1 2E 00 0A |LL TO '*'.".....|
000026B0: 99 00 EC 2E 02 0A 41 24 B2 22 22 3A 99 20 A3 35 |......A$."":. .5|
000026C0: 29 22 44 41 54 45 3A 22 3B A3 31 34 29 59 24 28 |)"DATE:";.14)Y$(|
000026D0: 32 29 3B 3A 85 20 41 24 3A 8B 20 41 24 B3 B1 22 |2);:. A$:. A$.."|
000026E0: 22 20 A7 20 59 24 28 32 29 B2 41 24 00 26 2F 0A |" . Y$(2).A$.&/.|
000026F0: 0A 99 20 A3 35 29 22 54 49 4D 45 3A 22 3B A3 31 |.. .5)"TIME:";.1|
00002700: 34 29 59 24 28 33 29 3B 3A 41 24 B2 22 22 3A 85 |4)Y$(3);:A$."":.|
00002710: 20 41 24 3A 8B 20 41 24 B3 B1 22 22 A7 20 59 24 | A$:. A$.."". Y$|
00002720: 28 33 29 B2 41 24 00 60 2F 14 0A 99 20 A3 35 29 |(3).A$.`/... .5)|
00002730: 22 43 41 4C 4C 3A 22 3B A3 31 34 29 59 24 28 34 |"CALL:";.14)Y$(4|
00002740: 29 3B 3A 41 24 B2 22 22 3A 85 20 41 24 3A 8B 20 |);:A$."":. A$:. |
00002750: 41 24 B3 B1 22 22 A7 20 59 24 28 34 29 B2 41 24 |A$.."". Y$(4).A$|
00002760: 00 9B 2F 1E 0A 99 20 A3 35 29 22 42 41 4E 44 3A |../... .5)"BAND:|
00002770: 22 3B A3 31 34 29 59 24 28 35 29 3B 3A 41 24 B2 |";.14)Y$(5);:A$.|
00002780: 22 22 3A 85 20 41 24 3A 8B 20 41 24 B3 B1 22 22 |"":. A$:. A$..""|
00002790: 20 A7 20 59 24 28 35 29 B2 41 24 00 D7 2F 28 0A | . Y$(5).A$../(.|
000027A0: 99 20 A3 35 29 22 43 4C 41 53 53 3A 22 3B A3 31 |. .5)"CLASS:";.1|
000027B0: 34 29 59 24 28 37 29 3B 3A 41 24 B2 22 22 3A 85 |4)Y$(7);:A$."":.|
000027C0: 20 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 59 | A$:. A$.."" . Y|
000027D0: 24 28 37 29 B2 41 24 00 FC 2F 32 0A 99 20 A3 35 |$(7).A$../2.. .5|
000027E0: 29 22 53 45 43 54 49 4F 4E 3A 22 3B A3 31 34 29 |)"SECTION:";.14)|
000027F0: 59 24 28 38 29 3B 3A 41 24 B2 22 22 00 19 30 33 |Y$(8);:A$.""..03|
00002800: 0A 85 20 41 24 3A 8B 20 41 24 B3 B1 22 22 20 A7 |.. A$:. A$.."" .|
00002810: 20 59 24 28 38 29 B2 41 24 00 3C 30 3C 0A 99 3A | Y$(8).A$.<0<..:|
00002820: 41 24 B2 22 22 3A 85 20 22 4F 4B 20 28 59 2F 4E |A$."":. "OK (Y/N|
00002830: 29 20 22 3B 41 24 3A 58 31 25 B2 34 00 5E 30 46 |) ";A$:X1%.4.^0F|
00002840: 0A 8B 20 41 24 B3 B1 22 59 22 20 A7 20 99 20 43 |.. A$.."Y" . . C|
00002850: 37 24 3A 8D 20 37 30 30 3A 89 20 35 31 30 00 81 |7$:. 700:. 510..|
00002860: 30 50 0A 47 53 24 B2 59 24 28 37 29 3A 8D 20 32 |0P.GS$.Y$(7):. 2|
00002870: 32 31 30 3A 43 4C 24 B2 47 24 3A 8D 20 33 35 32 |210:CL$.G$:. 352|
00002880: 30 00 A5 30 5A 0A 8B 20 59 24 28 35 29 B3 B1 59 |0..0Z.. Y$(5)..Y|
00002890: 24 28 31 35 29 20 A7 20 8D 20 32 39 33 30 3A 89 |$(15) . . 2930:.|
000028A0: 20 32 36 39 30 00 AF 30 64 0A 4C 47 B2 4C 4B 00 | 2690..0d.LG.LK.|
000028B0: C9 30 6E 0A 8B 20 59 24 28 34 29 B2 59 24 28 31 |.0n.. Y$(4).Y$(1|
000028C0: 34 29 20 A7 20 32 36 38 30 00 F0 30 70 0A 8D 20 |4) . 2680..0p.. |
000028D0: 32 38 34 30 3A 8D 20 32 38 37 30 3A 8D 20 33 30 |2840:. 2870:. 30|
000028E0: 30 30 3A 8D 20 33 30 34 30 3A 89 20 32 36 39 30 |00:. 3040:. 2690|
000028F0: 00 14 31 78 0A 8B 20 59 24 28 37 29 B3 B1 59 24 |..1x.. Y$(7)..Y$|
00002900: 28 31 37 29 20 A7 20 8D 20 33 30 30 30 3A 8D 20 |(17) . . 3000:. |
00002910: 33 30 34 30 00 24 31 82 0A 4C 47 B2 4C 58 3A 4C |3040.$1..LG.LX:L|
00002920: 48 25 B2 30 00 4D 31 8C 0A 91 20 58 31 25 20 89 |H%.0.M1... X1% .|
00002930: 20 36 34 30 2C 33 30 38 30 2C 33 30 38 30 2C 32 | 640,3080,3080,2|
00002940: 37 31 30 2C 32 37 31 30 2C 33 30 39 30 00 66 31 |710,2710,3090.f1|
00002950: 96 0A 52 50 B2 31 3A 8D 20 37 31 30 30 3A 98 33 |..RP.1:. 7100:.3|
00002960: 2C 59 24 28 32 29 00 80 31 97 0A 52 50 B2 31 30 |,Y$(2)..1..RP.10|
00002970: 3A 8D 20 37 31 30 30 3A 98 33 2C 59 24 28 33 29 |:. 7100:.3,Y$(3)|
00002980: 00 9A 31 98 0A 52 50 B2 31 35 3A 8D 20 37 31 30 |..1..RP.15:. 710|
00002990: 30 3A 98 33 2C 59 24 28 34 29 00 B4 31 99 0A 52 |0:.3,Y$(4)..1..R|
000029A0: 50 B2 32 36 3A 8D 20 37 31 30 30 3A 98 33 2C 59 |P.26:. 7100:.3,Y|
000029B0: 24 28 35 29 00 CE 31 9A 0A 52 50 B2 33 32 3A 8D |$(5)..1..RP.32:.|
000029C0: 20 37 31 30 30 3A 98 33 2C 59 24 28 36 29 00 F2 | 7100:.3,Y$(6)..|
000029D0: 31 9B 0A 52 50 B2 33 38 3A 8D 20 37 31 30 30 3A |1..RP.38:. 7100:|
000029E0: 98 33 2C 59 24 28 37 29 AA 22 20 22 AA 59 24 28 |.3,Y$(7)." ".Y$(|
000029F0: 38 29 00 FD 31 A0 0A 8D 20 36 30 30 30 00 13 32 |8)..1... 6000..2|
00002A00: B4 0A 8B 20 48 43 24 B3 B1 22 59 22 20 A7 20 32 |... HC$.."Y" . 2|
00002A10: 37 36 30 00 53 32 BE 0A 98 31 33 2C 22 20 20 2A |760.S2...13," *|
00002A20: 2A 20 45 44 49 54 20 54 4F 20 52 45 43 20 23 22 |* EDIT TO REC #"|
00002A30: 3B 58 32 3B 22 3A 20 22 3B 59 24 28 32 29 3B 22 |;X2;": ";Y$(2);"|
00002A40: 20 22 3B 59 24 28 33 29 3B 22 20 22 3B 59 24 28 | ";Y$(3);" ";Y$(|
00002A50: 34 29 3B 00 79 32 C0 0A 98 31 33 2C 22 20 22 3B |4);.y2...13," ";|
00002A60: 59 24 28 35 29 3B 22 20 22 3B 59 24 28 37 29 3B |Y$(5);" ";Y$(7);|
00002A70: 22 20 22 3B 59 24 28 38 29 00 83 32 C8 0A 89 20 |" ";Y$(8)..2... |
00002A80: 35 31 30 00 A1 32 D2 0A 99 3A 99 20 20 A3 35 29 |510..2...:. .5)|
00002A90: 22 44 41 54 45 3A 22 3B A3 31 34 29 59 24 28 32 |"DATE:";.14)Y$(2|
00002AA0: 29 00 BC 32 DC 0A 99 20 A3 35 29 22 54 49 4D 45 |)..2... .5)"TIME|
00002AB0: 3A 22 3B A3 31 34 29 59 24 28 33 29 00 D7 32 E6 |:";.14)Y$(3)..2.|
00002AC0: 0A 99 20 A3 35 29 22 43 41 4C 4C 3A 22 3B A3 31 |.. .5)"CALL:";.1|
00002AD0: 34 29 59 24 28 34 29 00 F2 32 F0 0A 99 20 A3 35 |4)Y$(4)..2... .5|
00002AE0: 29 22 42 41 4E 44 3A 22 3B A3 31 34 29 59 24 28 |)"BAND:";.14)Y$(|
00002AF0: 35 29 00 1B 33 FA 0A 99 20 A3 35 29 22 45 58 43 |5)..3... .5)"EXC|
00002B00: 48 41 4E 47 45 3A 22 3B A3 31 34 29 59 24 28 37 |HANGE:";.14)Y$(7|
00002B10: 29 3B 22 20 22 3B 59 24 28 38 29 00 21 33 04 0B |);" ";Y$(8).!3..|
00002B20: 8E 00 34 33 0E 0B 8F 20 43 41 4C 4C 20 43 48 41 |..43... CALL CHA|
00002B30: 4E 47 45 44 00 48 33 18 0B 8B 20 59 24 28 34 29 |NGED.H3... Y$(4)|
00002B40: B2 22 2A 22 20 A7 20 8E 00 85 33 22 0B 43 53 24 |."*" . ...3".CS$|
00002B50: B2 59 24 28 34 29 3A 8D 20 33 31 31 30 3A 8B 20 |.Y$(4):. 3110:. |
00002B60: 58 31 25 B3 34 20 A7 20 8E 3A 8F 20 43 48 45 43 |X1%.4 . .:. CHEC|
00002B70: 4B 20 49 46 20 4E 45 57 20 43 41 4C 4C 20 49 53 |K IF NEW CALL IS|
00002B80: 20 44 55 50 45 00 92 33 2C 0B 8D 20 31 30 37 30 | DUPE..3,.. 1070|
00002B90: 3A 8E 00 A2 33 36 0B 8B 20 58 31 25 B3 34 20 A7 |:...36.. X1%.4 .|
00002BA0: 20 8E 00 B7 33 40 0B 8B 20 59 24 28 31 34 29 B2 | ...3@.. Y$(14).|
00002BB0: 22 2A 22 20 A7 20 8E 00 C6 33 4A 0B 43 53 24 B2 |"*" . ...3J.CS$.|
00002BC0: 59 24 28 31 34 29 00 01 34 54 0B 8D 20 33 31 31 |Y$(14)..4T.. 311|
00002BD0: 30 3A 43 31 25 28 48 25 29 B2 AB 33 32 30 30 31 |0:C1%(H%)..32001|
00002BE0: 3A 43 32 25 28 48 25 29 B2 AB 33 32 30 30 30 3A |:C2%(H%)..32000:|
00002BF0: 8F 20 44 45 4C 45 54 45 20 4F 4C 44 20 43 41 4C |. DELETE OLD CAL|
00002C00: 4C 00 0D 34 5E 0B 58 31 25 B2 34 3A 8E 00 1F 34 |L..4^.X1%.4:...4|
00002C10: 68 0B 8F 20 43 48 41 4E 47 45 20 42 41 4E 44 00 |h.. CHANGE BAND.|
00002C20: 46 34 72 0B 81 20 4C 4B B2 31 20 A4 20 4E 4C 3A |F4r.. LK.1 . NL:|
00002C30: 8B 20 59 24 28 35 29 B2 4C 4E 24 28 4C 4B 29 20 |. Y$(5).LN$(LK) |
00002C40: A7 20 32 39 36 30 00 4F 34 7C 0B 82 20 4C 4B 00 |. 2960.O4|.. LK.|
00002C50: 5B 34 86 0B 58 31 25 B2 36 3A 8E 00 78 34 90 0B |[4..X1%.6:..x4..|
00002C60: 4C 47 B2 4C 4B 3A 8D 20 32 38 34 30 3A 8B 20 58 |LG.LK:. 2840:. X|
00002C70: 31 25 B3 34 20 A7 20 8E 00 89 34 9A 0B 4C 47 B2 |1%.4 . ...4..LG.|
00002C80: 4C 59 3A 8D 20 32 38 37 30 00 A3 34 A4 0B 8D 20 |LY:. 2870..4... |
00002C90: 33 30 30 30 3A 4C 47 B2 4C 4B 3A 8D 20 33 30 34 |3000:LG.LK:. 304|
00002CA0: 30 3A 8E 00 B9 34 AE 0B 8F 20 43 48 41 4E 47 45 |0:...4... CHANGE|
00002CB0: 20 45 58 43 48 41 4E 47 45 00 CE 34 B8 0B 8B 20 | EXCHANGE..4... |
00002CC0: 59 24 28 31 34 29 B2 22 2A 22 20 A7 20 8E 00 EF |Y$(14)."*" . ...|
00002CD0: 34 C2 0B 8B 20 43 44 24 B2 22 59 22 20 A7 20 8B |4... CD$."Y" . .|
00002CE0: 20 4C 42 24 B2 22 44 22 20 A7 20 33 30 33 30 00 | LB$."D" . 3030.|
00002CF0: 05 35 CC 0B 54 43 25 28 4C 47 29 B2 54 43 25 28 |.5..TC%(LG).TC%(|
00002D00: 4C 47 29 AB 31 00 0B 35 D6 0B 8E 00 1F 35 E0 0B |LG).1..5.....5..|
00002D10: 8B 20 59 24 28 34 29 B2 22 2A 22 20 A7 20 8E 00 |. Y$(4)."*" . ..|
00002D20: 40 35 EA 0B 8B 20 43 44 24 B2 22 59 22 20 A7 20 |@5... CD$."Y" . |
00002D30: 8B 20 4C 43 24 B2 22 44 22 20 A7 20 33 30 37 30 |. LC$."D" . 3070|
00002D40: 00 56 35 F4 0B 54 43 25 28 4C 47 29 B2 54 43 25 |.V5..TC%(LG).TC%|
00002D50: 28 4C 47 29 AA 31 00 5C 35 FE 0B 8E 00 80 35 08 |(LG).1.\5.....5.|
00002D60: 0C 99 20 42 4C 24 3B 22 49 4E 56 41 4C 49 44 20 |.. BL$;"INVALID |
00002D70: 43 41 4C 4C 20 53 49 47 4E 22 3A 89 20 35 31 30 |CALL SIGN":. 510|
00002D80: 00 9F 35 12 0C 99 20 42 4C 24 3B 22 49 4E 56 41 |..5... BL$;"INVA|
00002D90: 4C 49 44 20 42 41 4E 44 22 3A 89 20 35 31 30 00 |LID BAND":. 510.|
00002DA0: DF 35 1C 0C 8F 20 44 55 50 45 20 43 48 45 43 4B |.5... DUPE CHECK|
00002DB0: 45 52 3A 20 58 31 25 3D 31 3D 44 55 50 45 3A 20 |ER: X1%=1=DUPE: |
00002DC0: 32 3D 51 55 45 52 59 3A 20 33 3D 49 4E 56 41 4C |2=QUERY: 3=INVAL|
00002DD0: 49 44 20 43 41 4C 4C 3A 20 34 2C 35 3D 4F 4B 00 |ID CALL: 4,5=OK.|
00002DE0: 11 36 26 0C 58 31 25 B2 34 3A 45 28 35 29 B2 30 |.6&.X1%.4:E(5).0|
00002DF0: 3A 45 28 36 29 B2 30 3A 4B B2 31 3A 8B 20 C3 28 |:E(6).0:K.1:. .(|
00002E00: 43 53 24 29 B1 31 30 20 A7 20 58 31 25 B2 33 3A |CS$).10 . X1%.3:|
00002E10: 8E 00 48 36 30 0C 8B 20 C9 28 43 53 24 2C 31 29 |..H60.. .(CS$,1)|
00002E20: B2 22 3F 22 20 A7 20 43 53 24 B2 C8 28 43 53 24 |."?" . CS$..(CS$|
00002E30: 2C C3 28 43 53 24 29 AB 31 29 3A 58 31 25 B2 32 |,.(CS$).1):X1%.2|
00002E40: 3A 43 54 24 B2 43 53 24 00 61 36 3A 0C 8B 20 C3 |:CT$.CS$.a6:.. .|
00002E50: 28 43 53 24 29 B3 34 20 A7 20 58 31 25 B2 33 3A |(CS$).4 . X1%.3:|
00002E60: 8E 00 7D 36 44 0C 8B 20 CA 28 43 53 24 2C 33 2C |..}6D.. .(CS$,3,|
00002E70: 31 29 B3 22 41 22 20 A7 20 33 31 37 30 00 9D 36 |1)."A" . 3170..6|
00002E80: 4E 0C 8B 20 CA 28 43 53 24 2C 32 2C 31 29 B2 B1 |N.. .(CS$,2,1)..|
00002E90: 22 41 22 20 A7 20 58 31 25 B2 33 3A 8E 00 B8 36 |"A" . X1%.3:...6|
00002EA0: 58 0C 43 53 24 B2 22 20 22 AA 43 53 24 3A 4B B2 |X.CS$." ".CS$:K.|
00002EB0: 32 3A 45 28 31 29 B2 30 00 CB 36 62 0C 81 20 4A |2:E(1).0..6b.. J|
00002EC0: B2 4B 20 A4 20 C3 28 43 53 24 29 00 ED 36 6C 0C |.K . .(CS$)..6l.|
00002ED0: 57 24 B2 CA 28 43 53 24 2C 4A 2C 31 29 3A 8B 20 |W$..(CS$,J,1):. |
00002EE0: 57 24 B2 22 2F 22 20 A7 20 33 32 33 30 00 13 37 |W$."/" . 3230..7|
00002EF0: 76 0C 45 28 4A 29 B2 C6 28 57 24 29 AB 41 41 3A |v.E(J)..(W$).AA:|
00002F00: 8B 20 45 28 4A 29 B1 32 36 20 A7 20 58 31 25 B2 |. E(J).26 . X1%.|
00002F10: 33 3A 8E 00 2A 37 80 0C 8B 20 57 24 B3 22 30 22 |3:..*7... W$."0"|
00002F20: 20 A7 20 58 31 25 B2 33 3A 8E 00 5A 37 8A 0C 8B | . X1%.3:..Z7...|
00002F30: 20 45 28 4A 29 B3 31 20 A7 20 45 28 4A 29 B2 45 | E(J).1 . E(J).E|
00002F40: 28 4A 29 AA 41 30 3A 8B 20 45 28 4A 29 B1 33 36 |(J).A0:. E(J).36|
00002F50: 20 A7 20 58 31 25 B2 33 3A 8E 00 62 37 94 0C 82 | . X1%.3:..b7...|
00002F60: 20 4A 00 76 37 9E 0C 8B 20 4A B1 37 20 A7 20 58 | J.v7... J.7 . X|
00002F70: 31 25 B2 33 3A 8E 00 8C 37 A8 0C 8B 20 4A AB 4B |1%.3:...7... J.K|
00002F80: B3 34 20 A7 20 58 31 25 B2 33 3A 8E 00 AE 37 B2 |.4 . X1%.3:...7.|
00002F90: 0C 81 20 4A B2 34 20 A4 20 36 3A 8B 20 45 28 4A |.. J.4 . 6:. E(J|
00002FA0: 29 B1 32 36 20 A7 20 58 31 25 B2 33 3A 8E 00 B6 |).26 . X1%.3:...|
00002FB0: 37 BC 0C 82 20 4A 00 DC 37 C6 0C 45 31 25 B2 AB |7... J..7..E1%..|
00002FC0: 33 32 30 30 30 AA 45 28 31 29 AC 31 33 36 39 AA |32000.E(1).1369.|
00002FD0: 45 28 32 29 AC 33 37 AA 45 28 33 29 00 02 38 D0 |E(2).37.E(3)..8.|
00002FE0: 0C 45 32 25 B2 AB 33 32 30 30 30 AA 45 28 34 29 |.E2%..32000.E(4)|
00002FF0: AC 31 33 36 39 AA 45 28 35 29 AC 33 37 AA 45 28 |.1369.E(5).37.E(|
00003000: 36 29 00 12 38 DA 0C 8B 20 58 31 25 B2 32 20 A7 |6)..8... X1%.2 .|
00003010: 20 8E 00 27 38 E4 0C 48 25 B2 45 28 34 29 AA 4C | ..'8..H%.E(4).L|
00003020: 47 AC 32 36 AB 32 36 00 40 38 EE 0C 8F 20 53 45 |G.26.26.@8... SE|
00003030: 41 52 43 48 20 44 55 50 45 20 53 54 52 49 4E 47 |ARCH DUPE STRING|
00003040: 00 5F 38 F8 0C 8B 20 43 31 25 28 48 25 29 B2 AB |._8... C1%(H%)..|
00003050: 33 32 30 30 30 20 A7 20 58 31 25 B2 34 3A 8E 00 |32000 . X1%.4:..|
00003060: 79 38 02 0D 8B 20 43 32 25 28 48 25 29 B3 B1 45 |y8... C2%(H%)..E|
00003070: 32 25 20 A7 20 33 33 35 30 00 95 38 0C 0D 8B 20 |2% . 3350..8... |
00003080: 43 31 25 28 48 25 29 B2 45 31 25 20 A7 20 58 31 |C1%(H%).E1% . X1|
00003090: 25 B2 31 3A 8E 00 AE 38 16 0D 8B 20 50 25 28 48 |%.1:...8... P%(H|
000030A0: 25 29 B2 30 20 A7 20 58 31 25 B2 35 3A 8E 00 C3 |%).0 . X1%.5:...|
000030B0: 38 20 0D 48 25 B2 50 25 28 48 25 29 3A 89 20 33 |8 .H%.P%(H%):. 3|
000030C0: 33 33 30 00 CF 38 2A 0D 8F 20 53 43 4F 52 45 00 |330..8*.. SCORE.|
000030D0: F3 38 34 0D 99 20 43 37 24 3A 99 3A 99 20 A3 32 |.84.. C7$:.:. .2|
000030E0: 32 29 22 53 43 4F 52 45 20 53 55 4D 4D 41 52 59 |2)"SCORE SUMMARY|
000030F0: 22 3A 99 00 FD 38 3E 0D 99 20 54 31 24 00 10 39 |":...8>.. T1$..9|
00003100: 48 0D 58 32 B2 30 3A 58 33 B2 30 3A 58 34 B2 30 |H.X2.0:X3.0:X4.0|
00003110: 00 1F 39 52 0D 81 20 4A B2 31 20 A4 20 4E 4C 00 |..9R.. J.1 . NL.|
00003120: 4A 39 5C 0D 58 34 B2 58 34 AA 54 43 25 28 4A 29 |J9\.X4.X4.TC%(J)|
00003130: 3A 58 31 B2 54 43 25 28 4A 29 AC 51 50 25 28 4A |:X1.TC%(J).QP%(J|
00003140: 29 3A 58 32 B2 58 32 AA 58 31 00 74 39 66 0D 99 |):X2.X2.X1.t9f..|
00003150: 20 4C 4E 24 28 4A 29 3B A3 31 31 29 54 43 25 28 | LN$(J);.11)TC%(|
00003160: 4A 29 3B A3 32 30 29 51 50 25 28 4A 29 3B A3 32 |J);.20)QP%(J);.2|
00003170: 37 29 58 31 00 7C 39 70 0D 82 20 4A 00 86 39 7A |7)X1.|9p.. J..9z|
00003180: 0D 99 20 54 32 24 00 A2 39 84 0D 99 20 22 54 4F |.. T2$..9... "TO|
00003190: 54 41 4C 22 3B A3 31 31 29 58 34 3B A3 32 37 29 |TAL";.11)X4;.27)|
000031A0: 58 32 00 D7 39 8E 0D 99 3A 99 20 22 53 43 4F 52 |X2..9...:. "SCOR|
000031B0: 45 20 3D 20 50 4F 57 45 52 20 4D 55 4C 54 20 28 |E = POWER MULT (|
000031C0: 22 3B 50 4D 3B 22 29 20 58 22 3B 58 32 3B 22 3D |";PM;") X";X2;"=|
000031D0: 22 3B 58 32 AC 50 4D 00 DF 39 98 0D 99 3A 8E 00 |";X2.PM..9...:..|
000031E0: F4 39 A2 0D 8B 20 41 52 24 B2 22 52 22 20 A7 20 |.9... AR$."R" . |
000031F0: 33 35 31 30 00 18 3A AC 0D 9F 33 2C 38 2C 33 2C |3510..:...3,8,3,|
00003200: 46 43 24 AA 22 2C 4C 2C 22 AA C7 28 35 33 29 3A |FC$.",L,"..(53):|
00003210: 8D 20 36 30 30 30 3A 8E 00 30 3A B6 0D 9F 33 2C |. 6000:..0:...3,|
00003220: 38 2C 33 2C 46 43 24 3A 8D 20 36 30 30 30 3A 8E |8,3,FC$:. 6000:.|
00003230: 00 55 3A C0 0D 8B 20 C3 28 43 4C 24 29 B2 B1 32 |.U:... .(CL$)..2|
00003240: 20 A7 20 8B 20 C3 28 43 4C 24 29 B3 B2 33 20 A7 | . . .(CL$)..3 .|
00003250: 20 33 35 34 30 00 96 3A CA 0D 99 20 42 4C 24 3B | 3540..:... BL$;|
00003260: 22 49 4E 56 41 4C 49 44 20 43 4C 41 53 53 20 28 |"INVALID CLASS (|
00003270: 4F 52 20 52 45 50 4F 52 54 29 2E 20 52 45 2D 45 |OR REPORT). RE-E|
00003280: 4E 54 45 52 3F 20 22 3B 3A 8D 20 32 30 36 30 3A |NTER? ";:. 2060:|
00003290: 43 4C 24 B2 47 24 00 A6 3A CB 0D 8B 20 58 31 25 |CL$.G$..:... X1%|
000032A0: B2 31 20 A7 20 8E 00 B1 3A CC 0D 89 20 33 35 36 |.1 . ...:... 356|
000032B0: 30 00 E1 3A D4 0D 4C 43 24 B2 C8 28 43 4C 24 2C |0..:..LC$..(CL$,|
000032C0: 31 29 3A 8B 20 4C 43 24 B3 B2 22 39 22 20 A7 20 |1):. LC$.."9" . |
000032D0: 8B 20 4C 43 24 B1 B2 22 30 22 20 A7 20 33 35 36 |. LC$.."0" . 356|
000032E0: 30 00 EC 3A DE 0D 89 20 33 35 33 30 00 1B 3B E8 |0..:... 3530..;.|
000032F0: 0D 4C 43 24 B2 C9 28 43 4C 24 2C 31 29 3A 8B 20 |.LC$..(CL$,1):. |
00003300: 4C 43 24 B1 B2 22 41 22 20 A7 20 8B 20 4C 43 24 |LC$.."A" . . LC$|
00003310: B1 22 45 22 20 A7 20 33 35 33 30 00 27 3B F2 0D |."E" . 3530.';..|
00003320: 4C 48 25 B2 30 3A 8E 00 3C 3B A0 0F 8B 20 41 52 |LH%.0:..<;... AR|
00003330: 24 B2 22 52 22 20 A7 20 34 30 32 30 00 60 3B AA |$."R" . 4020.`;.|
00003340: 0F 9F 33 2C 38 2C 33 2C 46 42 24 AA 22 2C 4C 2C |..3,8,3,FB$.",L,|
00003350: 22 AA C7 28 32 33 29 3A 8D 20 36 30 30 30 3A 8E |"..(23):. 6000:.|
00003360: 00 78 3B B4 0F 9F 33 2C 38 2C 33 2C 46 42 24 3A |.x;...3,8,3,FB$:|
00003370: 8D 20 36 30 30 30 3A 8E 00 AE 3B 70 17 84 31 35 |. 6000:...;p..15|
00003380: 2C 45 41 2C 45 42 24 2C 45 43 2C 45 44 3A 8B 20 |,EA,EB$,EC,ED:. |
00003390: 45 41 B3 32 30 20 A7 20 8E 3A 8F 20 52 45 41 44 |EA.20 . .:. READ|
000033A0: 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 BE | ERROR CHANNEL..|
000033B0: 3B 7A 17 8B 20 45 41 B2 35 30 20 A7 20 8E 00 E7 |;z.. EA.50 . ...|
000033C0: 3B 84 17 8B 20 45 41 B2 36 33 20 A7 20 A0 34 3A |;... EA.63 . .4:|
000033D0: 9F 34 2C 38 2C 34 2C 22 40 22 AA 46 41 24 AA 22 |.4,8,4,"@".FA$."|
000033E0: 2C 53 2C 57 22 3A 8E 00 FE 3B 8E 17 99 20 45 41 |,S,W":...;... EA|
000033F0: 3B 45 42 24 2C 45 43 3B 45 44 3A 90 3A 8E 00 1E |;EB$,EC;ED:.:...|
00003400: 3C 58 1B 52 48 B2 B5 28 52 4E AD 32 35 36 29 3A |<X.RH..(RN.256):|
00003410: 52 4C B2 52 4E AB 32 35 36 AC 52 48 3A 8E 00 3D |RL.RN.256.RH:..=|
00003420: 3C BC 1B 98 31 35 2C 22 50 22 C7 28 33 29 C7 28 |<...15,"P".(3).(|
00003430: 52 4C 29 C7 28 52 48 29 C7 28 52 50 29 00 48 3C |RL).(RH).(RP).H<|
00003440: C6 1B 89 20 36 30 30 30 00 00 00 |... 6000... |
..&.... FIELD DAY LOGGER (C64 VERSION).=
.... BY KC6A AND N6NB.D.... (C) 1983 BY
HAYDEN BOOK CO.,INC....#.. 13,4:. VIC PR
INTER CHANNEL...$.. 15,8,15...(.BL$.G(7)
:. BELL...2.C7$.G(147):. PUT YOUR CLEAR
SCREEN COMMAND HERE...6.HI$.G(18):LO$.G(
146).+.F.FA$."0:DUPELOGA":FB$."0:DUPELOG
B":FC$."0:CONTSTLG".O.P.AA.F("A").1:A0.F
("A").F("0").26.Z.Z.T1$."BAND QSO'S
X Q-PTS = POINTS"...D.T2$."---- --
--- ------"...I.. Y$(20)...N..
2000...S..:. "DO YOU WANT TO USE THE 'J
IFFY CLOCK' TO"...T.. "LOG THE TIME (Y/N
) ";RC$.$.U.. RC$.."Y" . 120.Q.V.. "ENTE
R TIME IN UTC (FORMAT: OOOO)";T9$.B.W.TI
$.T9$."00"...X.AR$."":.:. "NEW CONTEST (
N) OR RESUME (R) ";:. AR$...... AR$."N"
. 190.K.... AR$.."R" . . BL$:. 110.....
. 2230:. READ IN FILE... .. HC$."Y" . .
1090.....SS.26.NL.1:. 440.#.... NEW CONT
EST.X....:. "WANT HARD COPY WHILE LOGGIN
G (Y/N) ";:. HC$.M.H.. HC$.."Y" . 210...
I.. "TURN ON PRINTER. <CR> WHEN READY ";
:. AA$:. 1090...R.Y$."FIELD DAY"......:.
"HOW MANY SEPARATE LOG SHEETS DO YOU NE
ED ";...... NL:....... NL.1 . . BL$:. 22
0./.... LN$(NL),QP%(NL),TC%(NL).P...M1..
(0):. M1.0 . M1.M1.65536.F...M1..((M1.20
00).6)...... NL.26..M1 . . "TOO MANY";BL
$:ERASE LN$,QP%,TC%:. 220...... C1%(M1),
C2%(M1),P%(M1).I...KK$."".X.... J.1 . NL
..."..:. "WHAT BAND IS LOG SHEET #";J. .
,.. "ENTER THE BAND FOLLOWED BY".G.-.. "
'PH' FOR PHONE OR 'CW' FOR CW".X.6.. "
(E.G. 20PH, 20CW, 40PH, OR 15CW)";LN$(J)
...8.. J.1 . 320.G.:.. K.1 . J.1:. LN$(J
).LN$(K) . . "DUPLICATE BAND";BL$:. 290.
O.<.. K...@.. C(LN$(J)).8 . . BL$;"NAME
TOO LONG":. 290.,.J.W$.I(LN$(J),1):. W$.
"H" . QP%(J).1:. 360.J.T.. W$."W" . QP%(
J).2:. 360.T.^.. BL$;"INVALID NAME. TRY
AGAIN":. 290...H.KK$.KK$.LN$(J)." "...J
..:. "BANDS SPECIFIED: ";KK$:....L.TC%(J
).0:. J.X.R.T.1:L%.26.NL:SS.L%.1...|..:.
"SPACE IS AVAILABLE FOR APPROXIMATELY".
/.}.. M1;" CONTACTS, BUT DISK SPACE IS".
[.~.. " LIMITED TO ABOUT 1200 QSOS ON TH
IS"..... " COMPUTER AND DISK OPERATING
SYSTEM."......:. .15)"GOOD LUCK!".F....:
. "IS THIS A CLASS D STATION "...... "AT
HOME USING NORMAL A.C. POWER (Y/N)";CD$
.".... CD$.."Y" . . CD$.."N" . . BL$:. 3
90.K....: . "WHAT IS YOUR POWER MULTIPLI
ER".V.... " ('1' IF OVER 200 W.; '2' IF
BELOW"...... " 200 W., AND '5' IF ALWAY
S BELOW 10 W.".I.... " AND USING BATTER
IES) ";PM...... PM..1 . . PM..2 . . PM..
5 . . BL$:. 410. .... J.1 . L%:C1%(J)..3
2000:P%(J).0:. J.+.... 3490.K.B.LG.1:LH%
.0:LP.1:LL.0:LC$."".Q.L.. 1150:. AR$."N"
. Z$.DTE$:. DATE...V.. HC$."Y" . . 1110
...... 1510:. BAND. .......... 1290:. ME
NU.L.... T.50...(T.50) . 519......:. "TO
RESET CLOCK, ENTER UTC (0000 FORMAT)";T
9$...... C(T9$)..4 . 518.=.... J.1 . 4:.
J(T9$,J,1)."0" . 518.X.... J(T9$,J,1)."
9" . 518.`.... J.W...TI$.T9$."00":. 519.
..... BL$;"INVALID TIME":. 511.E....:. "
LOGGER READY FOR QSO #";T;"-";LN$(LG)...
... "COMMAND OR CALL:";.....X1%.0:. 2060
:. X1%.1 . 510...... G$."?" . . 1290:. 5
10.?.&.. G$."QSY" . . 1510:. 1610:. 510.
^.0.. G$."DATE" . . 1150:. 510...:.. G$.
"QRT" . . 3380:. 1660:. 1790...D.. G$."S
AVE" . . 1660: 4:. 3510:. 510.L.N.. G$."
STAT" . . 1610:. 510...X.. G$."SCORE" .
. 3380:. 510...B.. G$."EDIT" . . 2380.!.
L.. G$."X" . . 1200:. 510.+.V.. 740.5...
. BL$.H.... HI$;"***********************
***************"...... HI$;"** IT'S A D
UPE ** BOO ** HISS **".R.... HI$;"*
*************************************";L
O$...... 510...... "INVALID ENTRY. PLEAS
E TRY AGAIN.";BL$:. 510.!.... "ABORTED":
..<.F.. "CAN'T DELETE";BL$:..\.P.. "INVA
LID QSO #";BL$:. 510.V.Z.. PROCESS A CAL
L SIGN.....CS$.G$:CT$.G$.N.... 3110:. X1
% . 640,900,690,760,760:. DECODE CALL &
JUMP ON RESULT...... 2090:. C(G$)..0 . 7
90.'.... " -OK- CLASS (<CR> TO ABORT)
";:. 2060:. X1%.1 . 510.9.... G$."" . 51
0.Y...CL$.G$:. 3520:. X1%.1 . 510.D. ..
2090.}.*.SK$.G$:. X1%.1 . 510.../.. C(SK
$).10 . SK$.H(SK$,10).G.4.. SK$."" . . "
SECTION ";:. 2060:. 810...>.. RC$."Y" .
. 1182:. 840...@.. 2090:UTC$.G$...B.. UT
C$."" . . "UTC ";:. 2060:UTC$.G$:. X1%.1
. 510.G.D.. UTC$."" . UTC$."-".J.H.RN.T
:. 980:. WRITE LOG TO DISK...R.. HC$."Y"
. . 1040:. WRITE TO PRINTER...\.LH%.H%:
. 1070:. ENTER IN DUPE SHEET...F.. CD$."
Y" . . LC$."D" . 890...P.TC%(LG).TC%(LG)
.1...Z.T.T.1:. 510......:. .2)CT$;" NEED
ED ON:"...... J.1 . NL.W...H%.E(4).J.26.
26:. 3320:. DUPE SEARCH.I.... X1%.1 . 96
0...... J.LG . . .10)"* ";:. 950...... .
11)" ";...... LN$(J)...... J:.:. 510.L.J
.. WRITE LOG TO DISK...T.. "...LOGGING".
..... 7000.....RP.1:. 7100:.3,DTE$.....R
P.10:. 7100:.3,UTC$.3...RP.15:. 7100:.3,
CT$.O...RP.26:. 7100:.3,LN$(LG).G...RP.3
2:. 7100:.3,MD$.....RP.38:. 7100:.3,CL$.
" ".SK$...... 6000............ WRITE LOG
TO PRINTER......13,T;.2)DTE$;.3)UTC$;.3
)LN$(LG);.8.C(LN$(LG)))MD$;......13," ";
.6.C(MD$))CT$;.12.C(CT$))SK$;" ";CL$."..
...;.$.. ENTER IN DUPE LIST.A.... X1%.5
. L%.L%.1:P%(H%).L%:H%.L%...8.C1%(H%).E1
%:C2%(H%).E2%:P%(H%).0:....B.. PRINTER I
NIT, IF USED...L...T.V..13,"":.13,"":.13
," CONTEST: ";Y$...`..13," DATE:
";Z$...J..13:....T.. SET DATE...~..
2090.H.... G$."" . .:. "WHAT IS THE DATE
(MM/DD/YY) ";G$.{.... C(G$).8 . . "DATE
TOO LONG";BL$:G$."":. 1160.....DTE$.G$:
......UTC$.H(TI$,4):.:. CLOCK READ ROUTI
NE.M.... X DELETES LAST ENTRY...... LH%.
0 . 710......1300...... LH%.SS . . P%(LH
%).0 . C1%(LH%)..32000:. 1230.3.D.P%(LH%
).0:L%.L%.1.C.N.T.T.1:LH%.0.D.X.. CD$."Y
" . . LC$."D" . 1260.Z...TC%(LG).TC%(LG)
.1...... HC$."Y" . .13,"-- PREVIOUS CALL
DELETED --"...... " DELETED":..J.... ME
NU.T.... C7$.Z.......... HI$...... "
FIELD DAY LOGGER ".D..
.. "
".T.(.. " '?' DISPLAYS MENU
"...2.. " 'QSY <BAND>' CHANGE
S BAND ".T.<.. " 'DATE <MM/D
D/YY>' CHANGES DATE "...F.. " 'QR
T' SAVES ALL CALLS AND EXITS ".4.P
.. " 'SAVE' SAVES ALL CALLS AND CONTINUE
S ".D.Z.. " (NOTE: ALLOW 2-3 MIN
FOR SAVE) "...D.. " 'STAT' GIVES STATUS
ON CURRENT BAND ".D.N.. " 'SCORE' GIV
ES RUNNING TOTAL SCORE "...X.. " 'ED
IT <QSO #>' EDITS ANY LOGGED ENTRY ".$..
.. " 'X' DELETES THE LAST ENTRY
".T.... " '*' ABORTS AN ENTRY
"...... " ENTER CALL ONLY FOR
DUPE CHECK "... .. " ENTER CALL
AND '?' TO SEE BANDS ON "...... "
WHICH A STATION IS NEEDED ".. .
.. " ENTRY FORMAT: 'CALL CLASS SECT <UTC
>' ".D ... " (E.G. W2RQ 13A NNJ
1345) ".T ... " (OR: JA1M
IN 579 JAPAN 1345) ".. H.. " <> DENOTES
OPTIONAL ENTRIES ";LO$.. R....
... QSY.C ... 2090.U ... NL.1 . 1590..!
... G$."" . .:. "WHAT BAND (LOG SHEET) D
O YOU WANT ";G$.2!... J.1 . NL: . G$.LN$
(J) . 1580.:!... J.C!... "NO SUCH LOG. V
ALID LOGS ARE:";BL$..!".. J.1 . NL:. .5)
LN$(J):. J:G$."":. 1530..!,.LG.J:. HC$."
Y" . . 2180.B!6.MD$.I(LN$(LG),2):..O!@..
STATUS..!J.. C7$:.:. "DATE= ";DTE$;.."T
.. " BAND= ";LN$(LG).""^.. " CONTACTS=
";TC%(LG).*"H..:..4"R.. QRT.<"|. 3.Z".
.. 4,8,4,FA$.",S,W":. 6000.."...4,HC$:.4
,T:.4,Y$:.4,Z$:.4,NL:.4,L%.."...4,M1..".
.. J.1 . NL:.4,LN$(J):. J.."...4,ZA.."V.
. J.1 . NL:.4,QP%(J);",";TC%(J):. J.."..
.4,CD$:.4,PM..".....#... WRITE SCORE TO
LOG#4.##...4,BL$:. NEW PAGE.R#...4,"-
SCORE SUMMARY":.4,:.4,T1$.H#...
HC$.."Y" . 1820..#...13,"":.13," ";.13)
"SCORE SUMMARY"..#...13,"":.13,T1$..#..X
2.0:X3.0:X4.0.D#&.. J.1 . NL..#0.X4.X4.T
C%(J):X1.TC%(J).QP%(J):X2.X2.X1..$:..4,L
N$(J);.10.C(LN$(J)))TC%(J);.F$<..4,"".9.
C(D(TC%(J))))QP%(J);.7.C(D(QP%(J))))X1.\
$D.. HC$.."Y" . 1870..$F..13,LN$(J);.10.
C(LN$(J)))TC%(J);..$H..13,"".9.C(D(TC%(J
))))QP%(J);.7.C(D(QP%(J))))X1..$N.. J..$
X..4,""T2$:.4,"TOTAL";.6)X4;.16.C(D(X4))
)X2..%B..4,"POWER MULTIPLIER";.11)"X ";P
M.;%C..4,"- ----
--".A%L..4,"TOTAL POINTS";.14)PM.X2:.4,"
".V%V.. HC$."N" . 1950..%...13,T2$:.13,"
TOTAL";.5)X4;.15.C(D(X4)))X2..%...13,"".
.%...13,"POWER MULTIPLIER";.8)"X ";PM:.1
3," ".25)"------"..&...13,"TOTAL POINTS
=";.12)PM.X2..&...4,"".Z&...4,"THIS IS A
TOTAL OF THE QSO POINTS EARNED IN THIS
LOG ONLY."..&...4,"FOR THE FINAL SCORE:
ADD THE QSO POINTS FROM ANY OTHER".X&...
4,"LOGS NOT INCLUDED HERE PLUS ANY BONUS
POINTS EARNED."..&...4,"!"..&.. 4:. 600
0..&... 4000..'... RN.1 . L%:. 7000..'..
RP.1:. 7100:.3,C1%(RN).I'..RP.9:. 7100:.
3,C2%(RN).D'A.RP.17:. 7100:.3,P%(RN).T'B
.. 6000:. RN..'C. 3:. 6000: 15..'E. 130
..'F....'P.. C7$:.:. PRINT TITLE..'Z..:.
..'... " ";HI$;" FIELD DAY LOGGING
PROGRAM ";LO$.,(... " ";HI$;"
BY KC6A AND N6NB ";LO$.F(.
.. " ";HI$;" (C) 1983 BY HAYDEN BOOK C
O.,INC. ";LO$.P(...:.:...(... INPUT SCA
N ROUTINE..(..GS$."":. GS$:LL.C(GS$):. L
L.0 . 2120..(... J.1 . LL:. J(GS$,J,1).
"-" . . 700:X1%.1:...(... J..( .LP.1..)*
.. LP.LL . 2120:. 2ND ENTRY.>)4.. LT.LP
. LL:. J(GS$,LT,1).." " . 2130.G)>.. LT.
S)H.G$."":..])R.LP.LT..)\.. LT.LP . LL:.
J(GS$,LT,1)." " . 2170..)F.. LT..)P.LT.
LT.1..)Z.G$.J(GS$,LP,LT.LP):LP.LT:..F)..
.13,""..)...13," QSY TO: ";LN$(LG)..)
.....*..LL.C(GS$):. 2080..*... RESUME.**
...4,8,8,FA$.",S,R":. 6000.L*T..4,HC$:.4
,T:.4,Y$:.4,Z$:.4,NL.\*U..4,L%:.4,M1.Z*.
.. LN$(NL),QP%(NL),TC%(NL)..*... C1%(M1)
,C2%(M1),P%(M1)..*... J.1 . NL:.4,LN$(J)
:. J..*...4,ZA..*... J.1 . NL:.4,QP%(J),
TC%(J):. J..*...4,CD$:.4,PM..+.. 4:. 600
0..+... 4000.#+... RN.1 . L%:. 7000.>+..
RP.1:. 7100:.3,C1%(RN).Y+..RP.9:. 7100:.
3,C2%(RN).T+..RP.17:. 7100:.3,P%(RN)..+.
.. RN: 3:. 6000..+8....+B.. EDIT A RECOR
D..+L.. 2090:. G$."" . . "WHAT QSO# DO Y
OU WANT TO EDIT ";G$..+V.X2..(E(G$))..,`
.. X2.0 . . X2.T . 2420..,J.. 720..,T..
C7$.,,~.RN.X2:. 7000.R,.RP.1:. 7100:.3,
Y$(2):Y$(12).Y$(2).Y,..RP.10:. 7100:.3,Y
$(3):Y$(13).Y$(3). ,..RP.15:. 7100:.3,Y$
(4):Y$(14).Y$(4).G,..RP.26:. 7100:.3,Y$(
5):Y$(15).Y$(5)..,..RP.32:. 7100:.3,Y$(6
):Y$(16).Y$(6)..-..RP.38:. 7100:.3,E1$.,
-..GS$.E1$:. 2210:Y$(7).G$:Y$(17).G$.J-.
.. 2090:Y$(8).G$:Y$(18).G$.U-... 2770..-
...:A$."":. "CHANGE THIS RECORD (Y/N) ";
A$..-... A$.."Y" . . C7$:. 510..-..LH%.0
.M-... J.1 . NL:. Y$(5).LN$(J) . 2500.U-
... J..-D.LX.LG:LY.J:LK.LY...N.CL$.Y$(7)
:. 3520:LB$.LC$.$.X..:. .12)"INSTRUCTION
S":..Q.... "HIT <CR> TO LEAVE AN ITEM UN
CHANGED.".Z.... "TO CHANGE, ENTER NEW VA
LUE <CR>."...... "TO DELETE THIS CALL, C
HANGE CALL TO '*'."...........A$."":. .5
)"DATE:";.14)Y$(2);:. A$:. A$.."" . Y$(2
).A$.&/... .5)"TIME:";.14)Y$(3);:A$."":.
A$:. A$.."". Y$(3).A$.`/... .5)"CALL:";
.14)Y$(4);:A$."":. A$:. A$.."". Y$(4).A$
../... .5)"BAND:";.14)Y$(5);:A$."":. A$:
. A$.."" . Y$(5).A$.W/(.. .5)"CLASS:";.1
4)Y$(7);:A$."":. A$:. A$.."" . Y$(7).A$.
./2.. .5)"SECTION:";.14)Y$(8);:A$.""..03
.. A$:. A$.."" . Y$(8).A$.<0<..:A$."":.
"OK (Y/N) ";A$:X1%.4.^0F.. A$.."Y" . . C
7$:. 700:. 510..0P.GS$.Y$(7):. 2210:CL$.
G$:. 3520..0Z.. Y$(5)..Y$(15) . . 2930:.
2690..0D.LG.LK.I0N.. Y$(4).Y$(14) . 268
0..0P.. 2840:. 2870:. 3000:. 3040:. 2690
..1X.. Y$(7)..Y$(17) . . 3000:. 3040.$1.
.LG.LX:LH%.0.M1... X1% . 640,3080,3080,2
710,2710,3090.F1..RP.1:. 7100:.3,Y$(2)..
1..RP.10:. 7100:.3,Y$(3)..1..RP.15:. 710
0:.3,Y$(4)..1..RP.26:. 7100:.3,Y$(5).N1.
.RP.32:. 7100:.3,Y$(6)..1..RP.38:. 7100:
.3,Y$(7)." ".Y$(8)..1 .. 6000..2... HC$.
."Y" . 2760.S2...13," ** EDIT TO REC #"
;X2;": ";Y$(2);" ";Y$(3);" ";Y$(4);.Y2..
.13," ";Y$(5);" ";Y$(7);" ";Y$(8)..2H..
510..2R..:. .5)"DATE:";.14)Y$(2)..2...
.5)"TIME:";.14)Y$(3).W2... .5)"CALL:";.1
4)Y$(4)..2... .5)"BAND:";.14)Y$(5)..3...
.5)"EXCHANGE:";.14)Y$(7);" ";Y$(8).!3..
..43... CALL CHANGED.H3... Y$(4)."*" . .
..3".CS$.Y$(4):. 3110:. X1%.4 . .:. CHEC
K IF NEW CALL IS DUPE..3,.. 1070:...36..
X1%.4 . ...3@.. Y$(14)."*" . ..F3J.CS$.
Y$(14)..4T.. 3110:C1%(H%)..32001:C2%(H%)
..32000:. DELETE OLD CALL..4^.X1%.4:...4
H.. CHANGE BAND.F4R.. LK.1 . NL:. Y$(5).
LN$(LK) . 2960.O4|.. LK.[4..X1%.6:..X4..
LG.LK:. 2840:. X1%.4 . ...4..LG.LY:. 287
0..4... 3000:LG.LK:. 3040:...4... CHANGE
EXCHANGE.N4... Y$(14)."*" . ...4B.. CD$
."Y" . . LB$."D" . 3030..5L.TC%(LG).TC%(
LG).1..5V....5... Y$(4)."*" . ..@5... CD
$."Y" . . LC$."D" . 3070.V5..TC%(LG).TC%
(LG).1.\5.....5... BL$;"INVALID CALL SIG
N":. 510..5... BL$;"INVALID BAND":. 510.
.5... DUPE CHECKER: X1%=1=DUPE: 2=QUERY:
3=INVALID CALL: 4,5=OK..6&.X1%.4:E(5).0
:E(6).0:K.1:. C(CS$).10 . X1%.3:..H60..
I(CS$,1)."?" . CS$.H(CS$,C(CS$).1):X1%.2
:CT$.CS$.A6:.. C(CS$).4 . X1%.3:..}6D..
J(CS$,3,1)."A" . 3170..6N.. J(CS$,2,1)..
"A" . X1%.3:...6X.CS$." ".CS$:K.2:E(1).0
.K6B.. J.K . C(CS$)..6L.W$.J(CS$,J,1):.
W$."/" . 3230..7V.E(J).F(W$).AA:. E(J).2
6 . X1%.3:..*7... W$."0" . X1%.3:..Z7...
E(J).1 . E(J).E(J).A0:. E(J).36 . X1%.3
:..B7... J.V7... J.7 . X1%.3:...7... J.K
.4 . X1%.3:...7... J.4 . 6:. E(J).26 . X
1%.3:...7... J..7F.E1%..32000.E(1).1369.
E(2).37.E(3)..8P.E2%..32000.E(4).1369.E(
5).37.E(6)..8Z.. X1%.2 . ..'8..H%.E(4).L
G.26.26.@8... SEARCH DUPE STRING._8... C
1%(H%)..32000 . X1%.4:..Y8... C2%(H%)..E
2% . 3350..8... C1%(H%).E1% . X1%.1:...8
... P%(H%).0 . X1%.5:..C8 .H%.P%(H%):. 3
330.O8*.. SCORE..84.. C7$:.:. .22)"SCORE
SUMMARY":...8>.. T1$..9H.X2.0:X3.0:X4.0
..9R.. J.1 . NL.J9\.X4.X4.TC%(J):X1.TC%(
J).QP%(J):X2.X2.X1.T9F.. LN$(J);.11)TC%(
J);.20)QP%(J);.27)X1.|9P.. J..9Z.. T2$..
9... "TOTAL";.11)X4;.27)X2.W9...:. "SCOR
E = POWER MULT (";PM;") X";X2;"=";X2.PM.
.9...:...9... AR$."R" . 3510..:...3,8,3,
FC$.",L,".G(53):. 6000:..0:...3,8,3,FC$:
. 6000:..U:... C(CL$)..2 . . C(CL$)..3 .
3540..:J.. BL$;"INVALID CLASS (OR REPOR
T). RE-ENTER? ";:. 2060:CL$.G$..:K.. X1%
.1 . ...:L.. 3560..:T.LC$.H(CL$,1):. LC$
.."9" . . LC$.."0" . 3560..:... 3530..;.
.LC$.I(CL$,1):. LC$.."A" . . LC$."E" . 3
530.';..LH%.0:..<; .. AR$."R" . 4020.`;.
..3,8,3,FB$.",L,".G(23):. 6000:..X;...3,
8,3,FB$:. 6000:...;P..15,EA,EB$,EC,ED:.
EA.20 . .:. READ ERROR CHANNEL..;Z.. EA.
50 . ...;... EA.63 . 4:.4,8,4,"@".FA$."
,S,W":...;... EA;EB$,EC;ED:.:...<X.RH..(
RN.256):RL.RN.256.RH:..=<...15,"P"G(3)G(
RL)G(RH)G(RP).H<F.. 6000...
> CLICK IMAGE PREVIEW FOR FULL MODAL