MICROLOG AMA
FILE INFORMATION
FILENAME(S): MICROLOG AMA
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
69183ab2fb53f814bf752224f7c3630d0f51f33135f0d1fe9c46e9878d89d30c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | MICROLOG AMA | PRG | Curtcool, Bo | 2 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 8F 00 0D 08 6E 00 8F 00 28 08 |....d.....n...(.|
00000010: 78 00 8F 20 20 4D 55 4C 54 49 20 43 4F 50 59 20 |x.. MULTI COPY |
00000020: 53 4F 41 46 54 57 41 52 00 2E 08 82 00 8F 00 34 |SOAFTWAR.......4|
00000030: 08 8C 00 8F 00 46 08 A0 00 99 22 93 22 C7 28 31 |.....F....".".(1|
00000040: 34 29 C7 28 38 29 00 62 08 B4 00 99 22 20 20 20 |4).(8).b...." |
00000050: 20 3C 3C 20 CD C9 C3 D2 CF 2D CC CF C7 20 3E 3E | << .....-... >>|
00000060: 20 22 00 79 08 BE 00 99 22 11 11 11 11 20 20 20 | ".y....".... |
00000070: 20 20 20 20 20 20 20 20 41 00 93 08 C8 00 99 22 | A......"|
00000080: 20 C3 4F 4E 54 45 53 54 20 CC 4F 47 20 53 59 53 | .ONTEST .OG SYS|
00000090: 54 45 4D 00 A6 08 D2 00 99 22 20 20 20 20 20 20 |TEM......" |
000000A0: 20 20 20 46 4F 52 00 BD 08 DC 00 99 22 11 20 20 | FOR......". |
000000B0: 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 00 F4 08 | COMMODORE 64...|
000000C0: E6 00 00 FF FF FF FF 99 22 11 11 11 11 11 1F 20 |........"...... |
000000D0: 20 20 20 20 20 20 28 43 29 31 39 38 32 22 3A 99 | (C)1982":.|
000000E0: 22 20 20 20 CB 49 4E 45 54 49 43 20 C4 45 53 49 |" .INETIC .ESI|
000000F0: 47 4E 53 22 00 04 09 F0 00 81 49 B2 31 A4 32 30 |GNS"......I.1.20|
00000100: 30 30 3A 82 00 19 09 04 01 8F 20 2D 2D 2D 20 43 |00:....... --- C|
00000110: 41 4C 4C 20 53 49 47 4E 3A 00 2C 09 0E 01 43 39 |ALL SIGN:.,...C9|
00000120: 24 B2 22 D2 D2 D2 D2 D2 D2 D2 D2 22 00 36 09 18 |$."........".6..|
00000130: 01 8F 20 2D 2D 2D 00 45 09 22 01 99 22 93 05 22 |.. ---.E."..".."|
00000140: C7 28 31 34 29 00 64 09 2C 01 99 22 12 C1 CD C1 |.(14).d.,.."....|
00000150: D4 C5 D5 D2 A0 CC CF C7 C7 C9 CE C7 A0 D3 D9 D3 |................|
00000160: D4 C5 CD 22 00 93 09 31 01 00 FF FF FF FF 99 22 |..."...1......."|
00000170: 11 28 C3 29 20 CB 49 4E 45 54 49 43 20 C4 45 53 |.(.) .INETIC .ES|
00000180: 49 47 4E 53 22 3A 43 4D 24 B2 22 4C 50 44 43 52 |IGNS":CM$."LPDCR|
00000190: 53 51 22 00 A2 09 36 01 99 22 11 11 CC 4F 41 44 |SQ"...6.."...OAD|
000001A0: 3A 22 00 B6 09 40 01 99 22 11 46 31 29 20 CE 45 |:"...@..".F1) .E|
000001B0: 57 20 C6 49 4C 45 00 CF 09 4A 01 99 22 46 33 29 |W .ILE...J.."F3)|
000001C0: 20 C5 58 49 53 54 49 4E 47 20 C6 49 4C 45 22 00 | .XISTING .ILE".|
000001D0: EB 09 54 01 99 22 11 11 D0 52 45 53 53 20 C6 D5 |..T.."...RESS ..|
000001E0: CE C3 D4 C9 CF CE 20 4B 45 59 2E 00 FF 09 68 01 |...... KEY....h.|
000001F0: A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 33 36 30 00 |.C$:.C$.."".360.|
00000200: 16 0A 7C 01 A1 43 24 3A 87 49 3A 8B 49 B2 AB 31 |..|..C$:.I:.I..1|
00000210: A7 8C 3A 49 B2 30 00 66 0A 7E 01 8F 22 14 14 14 |..:I.0.f.~.."...|
00000220: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00000230: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00000240: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00000250: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00000260: 14 14 14 14 14 14 00 79 0A 86 01 8B 49 B2 30 A7 |.......y....I.0.|
00000270: 49 B2 35 30 3A 89 34 31 30 00 92 0A 9A 01 81 4A |I.50:.410......J|
00000280: B2 31 A4 49 3A 82 4A 3A 81 4A B2 31 A4 35 30 3A |.1.I:.J:.J.1.50:|
00000290: 82 4A 00 A1 0A A4 01 8B 43 24 B2 22 22 A7 33 38 |.J......C$."".38|
000002A0: 30 00 B4 0A AE 01 8B 43 24 B2 C7 28 31 33 33 29 |0......C$..(133)|
000002B0: A7 36 38 30 00 C8 0A B8 01 8B 43 24 B2 C7 28 31 |.680......C$..(1|
000002C0: 33 34 29 A7 32 34 32 30 00 F3 0A C2 01 83 20 31 |34).2420...... 1|
000002D0: 35 30 2C 35 30 2C 31 35 30 2C 35 30 2C 30 2C 31 |50,50,150,50,0,1|
000002E0: 35 30 2C 31 35 30 2C 35 30 2C 31 35 30 2C 2C 30 |50,150,50,150,,0|
000002F0: 2C 2D 31 00 FC 0A CC 01 89 33 36 30 00 11 0B D6 |,-1......360....|
00000300: 01 8F 20 2A 20 43 4F 4D 4D 41 4E 44 20 4D 45 4E |.. * COMMAND MEN|
00000310: 55 00 28 0B E0 01 99 22 93 22 C7 28 31 34 29 3B |U.(....".".(14);|
00000320: 3A A0 34 3A 50 52 B2 30 00 42 0B EA 01 99 22 D2 |:.4:PR.0.B....".|
00000330: 45 43 4F 52 44 53 3A 22 52 4E 22 CD 41 58 3A 22 |ECORDS:"RN".AX:"|
00000340: 4D 58 00 53 0B F4 01 99 22 11 C3 CF CD CD C1 CE |MX.S....".......|
00000350: C4 D3 3A 00 68 0B FE 01 99 22 11 28 CC 29 20 CC |..:.h....".(.) .|
00000360: 4F 47 20 43 41 4C 4C 53 00 7C 0B 08 02 99 22 28 |OG CALLS.|...."(|
00000370: D0 29 20 D0 52 49 4E 54 20 CC 4F 47 00 90 0B 12 |.) .RINT .OG....|
00000380: 02 99 22 28 C4 29 20 C4 55 4D 50 20 C6 49 4C 45 |.."(.) .UMP .ILE|
00000390: 00 A6 0B 1C 02 99 22 28 C3 29 20 C3 48 41 4E 47 |......"(.) .HANG|
000003A0: 45 20 C3 41 4C 4C 00 BC 0B 26 02 99 22 28 D2 29 |E .ALL...&.."(.)|
000003B0: 20 D2 45 4D 4F 56 45 20 C3 41 4C 4C 00 D0 0B 30 | .EMOVE .ALL...0|
000003C0: 02 99 22 28 D3 29 20 D3 4F 52 54 20 C6 49 4C 45 |.."(.) .ORT .ILE|
000003D0: 00 DF 0B 3A 02 99 22 28 D1 29 20 D1 55 49 54 00 |...:.."(.) .UIT.|
000003E0: FD 0B 44 02 99 22 11 11 C3 4F 4D 4D 41 4E 44 20 |..D.."...OMMAND |
000003F0: 3F 22 3A 8D 20 32 32 39 30 3A 4A B2 30 00 20 0C |?":. 2290:J.0. .|
00000400: 4E 02 81 49 B2 31 A4 C3 28 43 4D 24 29 3A 8B CA |N..I.1..(CM$):..|
00000410: 28 43 4D 24 2C 49 2C 31 29 B2 43 24 A7 4A B2 49 |(CM$,I,1).C$.J.I|
00000420: 00 26 0C 58 02 82 00 33 0C 62 02 8B 4A B2 30 A7 |.&.X...3.b..J.0.|
00000430: 34 38 30 00 5C 0C 6C 02 91 4A 89 31 34 38 30 2C |480.\.l..J.1480,|
00000440: 31 32 35 30 2C 31 31 32 30 2C 31 35 38 30 2C 31 |1250,1120,1580,1|
00000450: 38 32 30 2C 31 39 38 30 2C 36 33 30 00 7A 0C 76 |820,1980,630.z.v|
00000460: 02 99 22 11 C1 52 45 20 59 4F 55 20 53 55 52 45 |.."..RE YOU SURE|
00000470: 3F 20 28 D9 20 4F 52 20 CE 29 00 84 0C 80 02 8D |? (. OR .)......|
00000480: 32 32 39 30 00 A8 0C 8A 02 8B 43 24 B2 22 59 22 |2290......C$."Y"|
00000490: A7 99 22 93 22 C7 28 31 34 32 29 C7 28 39 29 3A |..".".(142).(9):|
000004A0: 97 42 4B 2C 32 37 3A 80 00 B1 0C 94 02 89 34 38 |.BK,27:.......48|
000004B0: 30 00 C2 0C 9E 02 8F 20 2A 20 4E 45 57 20 46 49 |0...... * NEW FI|
000004C0: 4C 45 00 CB 0C A8 02 99 22 93 22 00 E7 0C B2 02 |LE......".".....|
000004D0: 99 22 12 D3 D4 C1 D2 D4 20 CE C5 D7 A0 C6 C9 CC |."...... .......|
000004E0: C5 22 3A 48 45 B2 31 00 11 0D BC 02 99 22 D5 53 |.":HE.1......".S|
000004F0: 45 20 4F 50 54 49 4F 4E 41 4C 20 48 45 41 44 49 |E OPTIONAL HEADI|
00000500: 4E 47 53 3F 22 3A 99 22 28 D9 20 4F 52 20 CE 29 |NGS?":."(. OR .)|
00000510: 22 00 3B 0D C6 02 8D 32 32 39 30 3A 4C 43 B2 31 |".;....2290:LC.1|
00000520: 32 3A 8B 43 24 B2 22 4E 22 A7 86 48 24 28 31 29 |2:.C$."N"..H$(1)|
00000530: 2C 58 24 28 31 29 3A 89 38 35 30 00 4C 0D D0 02 |,X$(1):.850.L...|
00000540: 8B 43 24 B3 B1 22 59 22 A7 32 35 30 00 7C 0D DA |.C$.."Y".250.|..|
00000550: 02 48 45 B2 30 3A 99 22 C8 4F 57 20 4D 41 4E 59 |.HE.0:.".OW MANY|
00000560: 20 48 45 41 44 49 4E 47 53 3F 22 3A 99 22 28 31 | HEADINGS?":."(1|
00000570: 20 54 4F 20 38 29 22 3B 3A 85 48 45 00 8F 0D E4 | TO 8)";:.HE....|
00000580: 02 8B 48 45 B3 31 B0 48 45 B1 38 A7 32 35 30 00 |..HE.1.HE.8.250.|
00000590: 9B 0D EE 02 48 45 B2 48 45 AA 31 00 C7 0D F8 02 |....HE.HE.1.....|
000005A0: 86 48 24 28 48 45 29 2C 58 24 28 48 45 29 3A 99 |.H$(HE),X$(HE):.|
000005B0: C7 28 31 34 32 29 22 93 49 4E 50 55 54 20 4E 41 |.(142)".INPUT NA|
000005C0: 4D 45 20 4F 46 3A 22 00 D3 0D 02 03 81 49 B2 32 |ME OF:"......I.2|
000005D0: A4 48 45 00 F5 0D 07 03 99 22 48 45 41 44 49 4E |.HE......"HEADIN|
000005E0: 47 20 22 49 AB 31 22 9D 9D 9D 23 1D 22 3B 3A 85 |G "I.1"...#.";:.|
000005F0: 48 24 28 49 29 00 07 0E 0C 03 8B 48 24 28 49 29 |H$(I)......H$(I)|
00000600: B2 22 22 A7 32 35 30 00 37 0E 11 03 8B C3 28 48 |."".250.7.....(H|
00000610: 24 28 49 29 29 B1 37 A7 99 22 11 54 4F 4F 20 4C |$(I)).7..".TOO L|
00000620: 4F 4E 47 2C 20 37 20 43 48 52 53 20 4D 41 58 2E |ONG, 7 CHRS MAX.|
00000630: 11 22 3A 89 37 37 35 00 3E 0E 16 03 82 49 00 5F |.":.775.>....I._|
00000640: 0E 20 03 99 C7 28 31 34 29 22 93 C9 4E 50 55 54 |. ...(14)"..NPUT|
00000650: 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 00 | MAXIMUM NUMBER.|
00000660: 7A 0E 2A 03 99 22 4F 46 20 43 48 41 52 41 43 54 |z.*.."OF CHARACT|
00000670: 45 52 53 20 49 4E 20 4F 4E 45 00 9B 0E 34 03 4C |ERS IN ONE...4.L|
00000680: 49 B2 B5 28 36 38 AD 28 48 45 AB 31 29 29 3A 8B |I..(68.(HE.1)):.|
00000690: 4C 49 B1 31 39 A7 4C 49 B2 31 39 00 EB 0E 36 03 |LI.19.LI.19...6.|
000006A0: 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |."..............|
000006B0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000006C0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000006D0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000006E0: 14 14 14 14 14 14 14 14 14 14 14 00 04 0F 3E 03 |..............>.|
000006F0: 99 22 45 4E 54 52 59 2E 28 32 20 54 4F 22 4C 49 |."ENTRY.(2 TO"LI|
00000700: 22 29 22 3B 00 1C 0F 48 03 85 4C 45 3A 8B 4C 45 |")";...H..LE:.LE|
00000710: B3 32 B0 4C 45 B1 4C 49 A7 38 33 30 00 44 0F 52 |.2.LE.LI.830.D.R|
00000720: 03 4D 58 B2 B5 28 28 B8 28 30 29 AB 33 30 30 29 |.MX..((.(0).300)|
00000730: AD 28 28 31 35 29 AA 28 28 48 45 AB 31 29 AC 4C |.((15).((HE.1).L|
00000740: 45 29 29 29 00 57 0F 66 03 8B 4D 58 B1 35 30 30 |E))).W.f..MX.500|
00000750: A7 4D 58 B2 35 30 30 00 6E 0F 70 03 86 52 24 28 |.MX.500.n.p..R$(|
00000760: 4D 58 2C 48 45 29 2C 53 42 25 28 4D 58 29 00 95 |MX,HE),SB%(MX)..|
00000770: 0F 75 03 99 22 93 53 54 41 4E 44 20 42 59 2E 2E |.u..".STAND BY..|
00000780: 2E 22 3A 81 49 B2 31 A4 4D 58 3A 53 42 25 28 49 |.":.I.1.MX:SB%(I|
00000790: 29 B2 49 3A 82 00 A6 0F 7A 03 48 24 28 31 29 B2 |).I:....z.H$(1).|
000007A0: 22 43 41 4C 4C 22 00 B0 0F 84 03 89 31 34 38 30 |"CALL"......1480|
000007B0: 00 C7 0F 8E 03 8F 20 2A 20 4C 4F 41 44 20 54 41 |...... * LOAD TA|
000007C0: 50 45 20 46 49 4C 45 00 D0 0F 98 03 99 22 93 22 |PE FILE......"."|
000007D0: 00 EB 0F A2 03 99 22 12 CC CF C1 C4 A0 C6 C9 CC |......".........|
000007E0: C5 A0 C6 D2 CF CD A0 D4 C1 D0 C5 00 04 10 AC 03 |................|
000007F0: 8D 32 33 33 30 3A 8B 43 24 B3 B1 C7 28 31 33 29 |.2330:.C$...(13)|
00000800: A7 32 35 30 00 26 10 B6 03 9F 31 3A 99 22 11 D6 |.250.&....1:."..|
00000810: C9 C3 27 53 20 47 45 54 54 49 4E 47 20 4C 4F 41 |..'S GETTING LOA|
00000820: 44 45 44 2E 2E 22 00 30 10 C0 03 84 31 2C 48 45 |DED..".0....1,HE|
00000830: 00 3A 10 CA 03 84 31 2C 52 4E 00 44 10 D4 03 84 |.:....1,RN.D....|
00000840: 31 2C 4C 45 00 57 10 DE 03 86 48 24 28 48 45 29 |1,LE.W....H$(HE)|
00000850: 2C 58 24 28 48 45 29 00 81 10 E8 03 8B 20 48 45 |,X$(HE)...... HE|
00000860: B2 30 A7 A0 31 3A 99 22 43 48 45 43 4B 20 44 49 |.0..1:."CHECK DI|
00000870: 53 4B 20 44 52 49 56 45 22 3A 8D 32 32 38 30 3A |SK DRIVE":.2280:|
00000880: 8A 00 A9 10 F2 03 4D 58 B2 B5 28 28 B8 28 30 29 |......MX..((.(0)|
00000890: AB 33 30 30 29 AD 28 28 31 35 29 AA 28 28 48 45 |.300).((15).((HE|
000008A0: AB 31 29 AC 4C 45 29 29 29 00 C3 10 F6 03 4C 43 |.1).LE))).....LC|
000008B0: B2 31 32 3A 8B 4D 58 B1 35 30 30 A7 20 4D 58 B2 |.12:.MX.500. MX.|
000008C0: 35 30 30 00 D2 10 F8 03 8B 48 45 B2 31 A7 31 30 |500......HE.1.10|
000008D0: 33 30 00 F3 10 FC 03 4C 49 B2 B5 28 36 38 AD 28 |30.....LI..(68.(|
000008E0: 48 45 AB 31 29 29 3A 8B 4C 49 B1 31 39 A7 4C 49 |HE.1)):.LI.19.LI|
000008F0: B2 31 39 00 04 11 FE 03 8B 4D 58 B1 B2 52 4E A7 |.19......MX..RN.|
00000900: 31 30 33 30 00 39 11 00 04 99 22 93 49 4E 53 55 |1030.9....".INSU|
00000910: 46 46 49 43 49 45 4E 54 20 4D 45 4D 4F 52 59 20 |FFICIENT MEMORY |
00000920: 54 4F 20 4C 4F 41 44 20 45 4E 54 49 52 45 20 44 |TO LOAD ENTIRE D|
00000930: 41 54 41 42 41 53 45 2E 22 00 58 11 02 04 99 22 |ATABASE.".X...."|
00000940: 11 11 43 4F 4E 54 49 4E 55 45 20 4C 4F 41 44 3F |..CONTINUE LOAD?|
00000950: 28 59 20 4F 52 20 4E 29 00 6D 11 03 04 8D 20 32 |(Y OR N).m.... 2|
00000960: 32 39 30 3A 8B 43 24 B2 22 4E 22 A7 8A 00 7F 11 |290:.C$."N".....|
00000970: 04 04 8B 43 24 B3 B1 22 59 22 A7 31 30 32 37 00 |...C$.."Y".1027.|
00000980: 98 11 05 04 52 4E B2 4D 58 3A 99 22 93 4C 4F 41 |....RN.MX:.".LOA|
00000990: 44 49 4E 47 2E 2E 2E 22 00 AF 11 06 04 86 52 24 |DING..."......R$|
000009A0: 28 4D 58 2C 48 45 29 2C 53 42 25 28 4D 58 29 00 |(MX,HE),SB%(MX).|
000009B0: BB 11 10 04 81 49 B2 31 A4 48 45 00 C8 11 1A 04 |.....I.1.HE.....|
000009C0: 84 31 2C 48 24 28 49 29 00 CE 11 24 04 82 00 E2 |.1,H$(I)...$....|
000009D0: 11 2E 04 81 49 B2 31 A4 52 4E 3A 81 4A B2 31 A4 |....I.1.RN:.J.1.|
000009E0: 48 45 00 EF 11 33 04 53 42 25 28 49 29 B2 49 00 |HE...3.SB%(I).I.|
000009F0: 03 12 38 04 84 31 2C 52 24 28 53 42 25 28 49 29 |..8..1,R$(SB%(I)|
00000A00: 2C 4A 29 00 0F 12 42 04 82 4A 2C 49 3A A0 31 00 |,J)...B..J,I:.1.|
00000A10: 27 12 47 04 81 49 B2 52 4E A4 4D 58 3A 53 42 25 |'.G..I.RN.MX:SB%|
00000A20: 28 49 29 B2 49 3A 82 00 30 12 4C 04 89 34 38 30 |(I).I:..0.L..480|
00000A30: 00 3D 12 56 04 8F 20 2A 20 44 55 4D 50 00 4D 12 |.=.V.. * DUMP.M.|
00000A40: 60 04 99 22 93 22 3A 3A 89 32 35 33 30 00 5F 12 |`.."."::.2530._.|
00000A50: 6A 04 99 22 12 C4 D5 CD D0 A0 C6 C9 CC C5 22 00 |j.."..........".|
00000A60: 78 12 74 04 8D 32 33 33 30 3A 8B 43 24 B3 B1 C7 |x.t..2330:.C$...|
00000A70: 28 31 33 29 A7 34 38 30 00 96 12 7E 04 9F 31 2C |(13).480...~..1,|
00000A80: 31 2C 31 3A 99 22 11 11 D3 41 56 49 4E 47 20 4C |1,1:."...AVING L|
00000A90: 4F 47 2E 2E 2E 22 00 A0 12 88 04 98 31 2C 48 45 |OG..."......1,HE|
00000AA0: 00 AA 12 92 04 98 31 2C 52 4E 00 B4 12 9C 04 98 |......1,RN......|
00000AB0: 31 2C 4C 45 00 CB 12 A6 04 81 49 B2 31 A4 48 45 |1,LE......I.1.HE|
00000AC0: 3A 98 31 2C 48 24 28 49 29 3A 82 00 DF 12 B0 04 |:.1,H$(I):......|
00000AD0: 81 49 B2 31 A4 52 4E 3A 81 4A B2 31 A4 48 45 00 |.I.1.RN:.J.1.HE.|
00000AE0: F3 12 BA 04 98 31 2C 52 24 28 53 42 25 28 49 29 |.....1,R$(SB%(I)|
00000AF0: 2C 4A 29 00 FF 12 C4 04 82 4A 2C 49 3A A0 31 00 |,J)......J,I:.1.|
00000B00: 08 13 CE 04 89 34 38 30 00 16 13 D8 04 8F 20 2A |.....480...... *|
00000B10: 20 50 52 49 4E 54 00 1F 13 E2 04 99 22 93 22 00 | PRINT......".".|
00000B20: 2D 13 EC 04 8B 52 4E B2 30 A7 34 38 30 00 3F 13 |-....RN.0.480.?.|
00000B30: F6 04 99 22 12 D0 D2 C9 CE D4 A0 CC CF C7 22 00 |..."..........".|
00000B40: 65 13 00 05 99 22 11 11 11 28 46 31 29 20 D3 43 |e...."...(F1) .C|
00000B50: 52 45 45 4E 22 3A 99 22 28 46 33 29 20 D0 52 49 |REEN":."(F3) .RI|
00000B60: 4E 54 45 52 22 00 70 13 0A 05 8D 20 32 32 39 30 |NTER".p.... 2290|
00000B70: 00 8A 13 14 05 8B 43 24 B2 C7 28 31 33 33 29 A7 |......C$..(133).|
00000B80: 50 52 B2 30 3A 89 31 33 36 30 00 A4 13 1E 05 8B |PR.0:.1360......|
00000B90: 43 24 B2 C7 28 31 33 34 29 A7 50 52 B2 31 3A 89 |C$..(134).PR.1:.|
00000BA0: 31 33 33 30 00 AE 13 28 05 89 31 32 39 30 00 DE |1330...(..1290..|
00000BB0: 13 32 05 99 22 93 12 D0 D2 C9 CE D4 C5 D2 3A 92 |.2..".........:.|
00000BC0: 22 3A 99 3A 99 22 05 C2 45 20 53 55 52 45 20 50 |":.:."..E SURE P|
00000BD0: 52 49 4E 54 45 52 20 49 53 20 4F 4E 2E 22 00 ED |RINTER IS ON."..|
00000BE0: 13 3C 05 99 3A 99 3A 8D 20 32 32 38 30 00 00 14 |.<..:.:. 2280...|
00000BF0: 41 05 8B 43 24 B3 B1 C7 28 31 33 29 A7 34 38 30 |A..C$...(13).480|
00000C00: 00 09 14 46 05 9F 34 2C 34 00 18 14 50 05 8B 48 |...F..4,4...P..H|
00000C10: 45 B2 31 A7 31 33 37 30 00 2B 14 5A 05 8B 50 52 |E.1.1370.+.Z..PR|
00000C20: A7 8D 32 36 36 30 3A 89 34 38 30 00 3D 14 64 05 |..2660:.480.=.d.|
00000C30: 49 B2 52 4E 3A 97 36 35 30 2C 31 32 38 00 4C 14 |I.RN:.650,128.L.|
00000C40: 6E 05 99 22 93 22 3A 8D 32 33 37 30 00 6D 14 78 |n..".":.2370.m.x|
00000C50: 05 99 22 50 52 45 53 53 20 12 2B 92 20 12 2D 92 |.."PRESS .+. .-.|
00000C60: 20 4F 52 20 12 52 45 54 55 52 4E 92 22 00 8D 14 | OR .RETURN."...|
00000C70: 82 05 8D 32 32 39 30 3A 8B 43 24 B2 C7 28 31 33 |...2290:.C$..(13|
00000C80: 29 A7 97 36 35 30 2C 30 3A 89 34 38 30 00 A1 14 |)..650,0:.480...|
00000C90: 8C 05 8B 20 43 24 B2 22 2B 22 A7 20 49 B2 49 AA |... C$."+". I.I.|
00000CA0: 31 00 B5 14 96 05 8B 20 43 24 B2 22 2D 22 A7 20 |1...... C$."-". |
00000CB0: 49 B2 49 AB 31 00 C9 14 A0 05 8B 20 49 B3 31 A7 |I.I.1...... I.1.|
00000CC0: 49 B2 31 3A 8D 33 32 30 30 00 DF 14 AA 05 8B 20 |I.1:.3200...... |
00000CD0: 49 B1 52 4E A7 49 B2 52 4E 3A 8D 33 32 30 30 00 |I.RN.I.RN:.3200.|
00000CE0: E9 14 B4 05 89 31 33 39 30 00 F5 14 BE 05 8F 20 |.....1390...... |
00000CF0: 2A 20 41 44 44 00 12 15 C8 05 99 22 93 22 C7 28 |* ADD......".".(|
00000D00: 31 34 32 29 3A 43 24 B2 22 22 3A A0 34 3A 50 52 |142):C$."":.4:PR|
00000D10: B2 30 00 24 15 D2 05 99 22 12 4C 4F 47 20 43 41 |.0.$....".LOG CA|
00000D20: 4C 4C 53 22 00 60 15 DC 05 52 4E B2 52 4E AA 31 |LLS".`...RN.RN.1|
00000D30: 3A 8B 52 4E B1 4D 58 A7 99 22 12 11 4D 45 4D 4F |:.RN.MX.."..MEMO|
00000D40: 52 59 20 46 55 4C 4C 22 3A 81 49 B2 31 A4 35 30 |RY FULL":.I.1.50|
00000D50: 30 3A 82 3A 52 4E B2 52 4E AB 31 3A 89 34 38 30 |0:.:RN.RN.1:.480|
00000D60: 00 83 15 E6 05 99 22 11 11 49 4E 50 55 54 20 43 |......"..INPUT C|
00000D70: 41 4C 4C 28 4F 52 20 52 45 54 55 52 4E 29 22 3A |ALL(OR RETURN)":|
00000D80: 85 43 24 00 9B 15 F0 05 8B 43 24 B2 22 22 A7 52 |.C$......C$."".R|
00000D90: 4E B2 52 4E AB 31 3A 89 34 38 30 00 CD 15 FA 05 |N.RN.1:.480.....|
00000DA0: 8B C3 28 43 24 29 B1 4C 43 A7 99 22 54 4F 4F 20 |..(C$).LC.."TOO |
00000DB0: 4C 4F 4E 47 2C 20 54 52 59 20 41 47 41 49 4E 2E |LONG, TRY AGAIN.|
00000DC0: 22 3A 43 24 B2 22 22 3A 89 31 35 31 30 00 DF 15 |":C$."":.1510...|
00000DD0: 04 06 8B 43 24 B2 22 22 A7 43 24 B2 22 92 22 00 |...C$."".C$.".".|
00000DE0: F4 15 0E 06 52 24 28 53 42 25 28 52 4E 29 2C 31 |....R$(SB%(RN),1|
00000DF0: 29 B2 43 24 00 FE 15 18 06 89 32 39 36 30 00 0D |).C$......2960..|
00000E00: 16 22 06 8F 20 2A 20 43 48 41 4E 47 45 00 1A 16 |.".. * CHANGE...|
00000E10: 2C 06 99 22 93 22 3A 49 B2 30 00 31 16 36 06 99 |,..".":I.0.1.6..|
00000E20: 22 12 C3 C8 C1 CE C7 C5 A0 C1 A0 D2 C5 C3 CF D2 |"...............|
00000E30: C4 00 4E 16 40 06 99 22 11 11 11 D7 48 49 43 48 |..N.@.."....HICH|
00000E40: 20 52 45 43 4F 52 44 20 23 22 3B 3A 85 49 00 60 | RECORD #";:.I.`|
00000E50: 16 4A 06 8B 49 B2 30 B0 49 B1 52 4E A7 34 38 30 |.J..I.0.I.RN.480|
00000E60: 00 75 16 54 06 99 22 93 22 C7 28 31 34 32 29 3A |.u.T..".".(142):|
00000E70: 8D 32 33 37 30 00 9B 16 5E 06 99 22 43 48 41 4E |.2370...^.."CHAN|
00000E80: 47 45 20 54 48 49 53 20 4F 4E 45 3F 20 20 20 20 |GE THIS ONE? |
00000E90: 20 20 28 59 20 4F 52 20 4E 29 22 00 A5 16 68 06 | (Y OR N)"...h.|
00000EA0: 8D 32 32 39 30 00 B6 16 72 06 8B 43 24 B2 22 59 |.2290...r..C$."Y|
00000EB0: 22 A7 31 36 38 30 00 C6 16 7C 06 8B 43 24 B2 22 |".1680...|..C$."|
00000EC0: 4E 22 A7 34 38 30 00 D0 16 86 06 89 31 36 34 30 |N".480......1640|
00000ED0: 00 E2 16 90 06 81 4A B2 31 A4 48 45 3A 43 24 B2 |......J.1.HE:C$.|
00000EE0: 22 22 00 07 17 9A 06 99 22 93 22 48 24 28 4A 29 |""......"."H$(J)|
00000EF0: 3A 99 22 20 20 22 52 24 28 53 42 25 28 49 29 2C |:." "R$(SB%(I),|
00000F00: 4A 29 3A 99 22 13 22 00 24 17 A4 06 85 43 24 3A |J):.".".$....C$:|
00000F10: 8B 4A B1 31 AF C3 28 43 24 29 B3 B2 4C 45 20 A7 |.J.1..(C$)..LE .|
00000F20: 31 37 34 30 00 3C 17 AE 06 8B 4A B2 31 AF C3 28 |1740.<....J.1..(|
00000F30: 43 24 29 B3 B2 4C 43 A7 31 37 34 30 00 46 17 B8 |C$)..LC.1740.F..|
00000F40: 06 89 31 36 39 30 00 51 17 C2 06 99 C3 28 43 24 |..1690.Q.....(C$|
00000F50: 29 00 66 17 CC 06 8B 20 43 24 B2 22 22 20 A7 20 |).f.... C$."" . |
00000F60: 43 24 B2 22 92 22 00 7A 17 D6 06 52 24 28 53 42 |C$.".".z...R$(SB|
00000F70: 25 28 49 29 2C 4A 29 B2 43 24 00 81 17 E0 06 82 |%(I),J).C$......|
00000F80: 4A 00 A8 17 EA 06 99 22 93 22 3A 8D 32 33 37 30 |J......".":.2370|
00000F90: 3A 99 22 11 43 48 41 4E 47 45 20 4F 4B 20 28 59 |:.".CHANGE OK (Y|
00000FA0: 20 4F 52 20 4E 29 3F 22 00 BE 17 F4 06 8D 32 32 | OR N)?"......22|
00000FB0: 39 30 3A 8B 43 24 B2 22 59 22 A7 34 38 30 00 CF |90:.C$."Y".480..|
00000FC0: 17 FE 06 8B 43 24 B2 22 4E 22 A7 31 36 32 30 00 |....C$."N".1620.|
00000FD0: D9 17 08 07 89 31 37 38 30 00 E8 17 12 07 8F 20 |.....1780...... |
00000FE0: 2A 20 52 45 4D 4F 56 45 00 F5 17 1C 07 99 22 93 |* REMOVE......".|
00000FF0: 22 3A 49 B2 30 00 0C 18 26 07 99 22 12 D2 C5 CD |":I.0...&.."....|
00001000: CF D6 C5 A0 C1 A0 D2 C5 C3 CF D2 C4 00 29 18 30 |.............).0|
00001010: 07 99 22 11 11 11 D7 48 49 43 48 20 52 45 43 4F |.."....HICH RECO|
00001020: 52 44 20 23 22 3B 3A 85 49 00 3B 18 3A 07 8B 49 |RD #";:.I.;.:..I|
00001030: B2 30 B0 49 B1 52 4E A7 34 38 30 00 50 18 44 07 |.0.I.RN.480.P.D.|
00001040: 99 22 93 22 C7 28 31 34 32 29 3A 8D 32 33 37 30 |.".".(142):.2370|
00001050: 00 76 18 4E 07 99 22 52 45 4D 4F 56 45 20 54 48 |.v.N.."REMOVE TH|
00001060: 49 53 20 4F 4E 45 3F 20 20 20 20 20 20 28 59 20 |IS ONE? (Y |
00001070: 4F 52 20 4E 29 22 00 80 18 58 07 8D 32 32 39 30 |OR N)"...X..2290|
00001080: 00 91 18 62 07 8B 43 24 B2 22 59 22 A7 31 39 32 |...b..C$."Y".192|
00001090: 30 00 A1 18 6C 07 8B 43 24 B2 22 4E 22 A7 34 38 |0...l..C$."N".48|
000010A0: 30 00 AB 18 76 07 89 31 38 38 30 00 C7 18 80 07 |0...v..1880.....|
000010B0: 99 22 93 22 3A 8D 31 39 32 35 3A 52 4E B2 52 4E |.".":.1925:RN.RN|
000010C0: AB 31 3A 89 34 38 30 00 D4 18 85 07 8B 20 49 B2 |.1:.480...... I.|
000010D0: 4D 58 A7 8E 00 EB 18 8A 07 58 B2 53 42 25 28 49 |MX.......X.SB%(I|
000010E0: 29 3A 81 4A B2 49 A4 52 4E AB 31 00 07 19 8F 07 |):.J.I.RN.1.....|
000010F0: 99 22 13 57 4F 52 4B 49 4E 47 2E 2E 20 20 20 20 |.".WORKING.. |
00001100: 9D 9D 9D 9D 22 3B 4A 00 1B 19 94 07 53 42 25 28 |....";J.....SB%(|
00001110: 4A 29 B2 53 42 25 28 4A AA 31 29 00 22 19 9E 07 |J).SB%(J.1)."...|
00001120: 82 4A 00 30 19 A3 07 53 42 25 28 52 4E 29 B2 58 |.J.0...SB%(RN).X|
00001130: 00 36 19 A8 07 8E 00 43 19 B2 07 8F 20 2A 20 53 |.6.....C.... * S|
00001140: 4F 52 54 00 4C 19 BC 07 99 22 93 22 00 6A 19 C6 |ORT.L....".".j..|
00001150: 07 99 22 12 D3 CF D2 D4 22 3A 8B 48 45 B2 31 A7 |..".....":.HE.1.|
00001160: 49 B2 48 45 3A 89 32 30 33 30 00 8A 19 D0 07 99 |I.HE:.2030......|
00001170: 22 11 11 22 3A 81 49 B2 31 A4 48 45 3A 99 49 22 |"..":.I.1.HE:.I"|
00001180: 29 20 22 48 24 28 49 29 3A 82 00 A6 19 DA 07 99 |) "H$(I):.......|
00001190: 22 11 D3 4F 52 54 20 42 59 3F 20 28 31 20 54 4F |"..ORT BY? (1 TO|
000011A0: 22 48 45 22 29 22 00 B8 19 E4 07 8D 32 32 39 30 |"HE")"......2290|
000011B0: 3A 49 B2 C5 28 43 24 29 00 CA 19 EE 07 8B 49 B3 |:I..(C$)......I.|
000011C0: 31 B0 49 B1 48 45 A7 34 38 30 00 D3 19 F8 07 99 |1.I.HE.480......|
000011D0: 22 93 22 00 EC 19 16 08 4B B2 B5 28 52 4E AD 32 |".".....K..(RN.2|
000011E0: 29 AA 31 3A 4C B2 52 4E 3A 4D B2 30 00 FA 19 20 |).1:L.RN:M.0... |
000011F0: 08 8B 4B B2 31 A7 32 31 30 30 00 13 1A 2A 08 4B |..K.1.2100...*.K|
00001200: B2 4B AB 31 3A 58 B2 53 42 25 28 4B 29 3A 89 32 |.K.1:X.SB%(K):.2|
00001210: 31 32 30 00 2E 1A 34 08 58 B2 53 42 25 28 4C 29 |120...4.X.SB%(L)|
00001220: 3A 53 42 25 28 4C 29 B2 53 42 25 28 31 29 00 4C |:SB%(L).SB%(1).L|
00001230: 1A 3E 08 4C B2 4C AB 31 3A 8B 4C B3 31 A7 53 42 |.>.L.L.1:.L.1.SB|
00001240: 25 28 4D 29 B2 58 3A 89 32 32 30 30 00 54 1A 48 |%(M).X:.2200.T.H|
00001250: 08 4A B2 4B 00 62 1A 52 08 4D B2 4A 3A 4A B2 4A |.J.K.b.R.M.J:J.J|
00001260: AA 4A 00 7E 1A 57 08 99 22 13 D3 4F 52 54 49 4E |.J.~.W.."..ORTIN|
00001270: 47 2E 2E 20 20 20 20 9D 9D 9D 9D 22 3B 4A 00 96 |G.. ....";J..|
00001280: 1A 5C 08 8B 4A B1 4C A7 53 42 25 28 4D 29 B2 58 |.\..J.L.SB%(M).X|
00001290: 3A 89 32 30 38 30 00 C2 1A 66 08 8B 4A B3 4C A7 |:.2080...f..J.L.|
000012A0: 8B 52 24 28 53 42 25 28 4A 29 2C 49 29 B3 52 24 |.R$(SB%(J),I).R$|
000012B0: 28 53 42 25 28 4A AA 31 29 2C 49 29 A7 4A B2 4A |(SB%(J.1),I).J.J|
000012C0: AA 31 00 EC 1A 6B 08 8B 52 24 28 58 2C 49 29 B1 |.1...k..R$(X,I).|
000012D0: B2 52 24 28 53 42 25 28 4A 29 2C 49 29 A7 53 42 |.R$(SB%(J),I).SB|
000012E0: 25 28 4D 29 B2 58 3A 89 32 30 38 30 00 04 1B 70 |%(M).X:.2080...p|
000012F0: 08 53 42 25 28 4D 29 B2 53 42 25 28 4A 29 3A 89 |.SB%(M).SB%(J):.|
00001300: 32 31 33 30 00 22 1B 8E 08 8F 2D 2D 4D 4F 56 45 |2130."....--MOVE|
00001310: 53 20 23 20 54 4F 20 45 4E 44 20 4F 46 20 46 49 |S # TO END OF FI|
00001320: 4C 45 00 2F 1B 98 08 8B 49 B1 31 A7 34 38 30 00 |LE./....I.1.480.|
00001330: 3E 1B 9D 08 8B 20 52 4E B2 30 A7 34 38 30 00 5E |>.... RN.0.480.^|
00001340: 1B A2 08 8B C8 28 52 24 28 53 42 25 28 49 29 2C |.....(R$(SB%(I),|
00001350: 31 29 2C 31 29 B1 B2 22 41 22 A7 34 38 30 00 68 |1),1).."A".480.h|
00001360: 1B B6 08 8D 31 39 33 30 00 72 1B CA 08 89 32 32 |....1930.r....22|
00001370: 31 30 00 82 1B D4 08 8F 20 2A 20 47 45 54 20 43 |10...... * GET C|
00001380: 48 52 00 99 1B DE 08 A1 43 24 3A 8B 50 52 A7 43 |HR......C$:.PR.C|
00001390: 24 B2 C7 28 31 33 29 3A 8E 00 B7 1B E8 08 99 22 |$..(13):......."|
000013A0: 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 |PRESS .RETURN. T|
000013B0: 4F 20 43 4F 4E 54 2E 00 CC 1B F2 08 A1 43 24 3A |O CONT.......C$:|
000013C0: 8B 43 24 B3 B1 22 22 A7 32 32 39 30 00 E0 1B FC |.C$.."".2290....|
000013D0: 08 A1 43 24 3A 8B 43 24 B2 22 22 A7 32 33 30 30 |..C$:.C$."".2300|
000013E0: 00 E6 1B 06 09 8E 00 FC 1B 10 09 8F 20 2A 20 54 |............ * T|
000013F0: 41 50 45 20 4D 45 53 53 41 47 45 53 00 17 1C 1A |APE MESSAGES....|
00001400: 09 99 22 11 C9 4E 53 45 52 54 20 C4 C1 D4 C1 20 |.."..NSERT .... |
00001410: 54 41 50 45 20 49 4E 00 30 1C 24 09 99 22 43 41 |TAPE IN.0.$.."CA|
00001420: 53 53 45 54 54 45 20 26 20 52 45 57 49 4E 44 2E |SSETTE & REWIND.|
00001430: 00 3A 1C 2E 09 89 32 32 37 30 00 51 1C 38 09 8F |.:....2270.Q.8..|
00001440: 20 2A 20 50 52 49 4E 54 20 31 20 52 45 43 4F 52 | * PRINT 1 RECOR|
00001450: 44 00 73 1C 42 09 99 C7 28 31 34 32 29 22 52 45 |D.s.B...(142)"RE|
00001460: 43 4F 52 44 20 23 22 49 22 11 22 3A 81 4B B2 31 |CORD #"I".":.K.1|
00001470: A4 48 45 00 92 1C 4C 09 99 22 9E 22 48 24 28 4B |.HE...L.."."H$(K|
00001480: 29 3A 99 22 9E 22 52 24 28 53 42 25 28 49 29 2C |):."."R$(SB%(I),|
00001490: 4B 29 00 99 1C 56 09 82 4B 00 9F 1C 60 09 8E 00 |K)...V..K...`...|
000014A0: B2 1C 6A 09 8F 20 2D 2D 20 54 41 50 45 2F 44 49 |..j.. -- TAPE/DI|
000014B0: 53 4B 00 C4 1C 74 09 99 22 93 CC 4F 41 44 20 46 |SK...t.."..OAD F|
000014C0: 52 4F 4D 3A 00 DE 1C 7E 09 99 22 11 12 D4 92 41 |ROM:...~.."....A|
000014D0: 50 45 20 4F 52 20 12 C4 92 49 53 4B 3F 22 00 E9 |PE OR ...ISK?"..|
000014E0: 1C 88 09 8D 20 32 32 39 30 00 00 1D 92 09 8B 43 |.... 2290......C|
000014F0: 24 B2 22 54 22 B0 43 24 B2 22 D4 22 A7 39 32 30 |$."T".C$.".".920|
00001500: 00 18 1D 9C 09 8B 43 24 B2 22 44 22 B0 43 24 B2 |......C$."D".C$.|
00001510: 22 C4 22 A7 32 34 38 30 00 21 1D A6 09 89 32 35 |".".2480.!....25|
00001520: 30 00 44 1D B0 09 46 49 24 B2 22 22 3A 99 22 11 |0.D...FI$."":.".|
00001530: C9 4E 50 55 54 20 46 49 4C 45 4E 41 4D 45 22 3A |.NPUT FILENAME":|
00001540: 85 46 49 24 00 54 1D BA 09 8B 46 49 24 B2 22 22 |.FI$.T....FI$.""|
00001550: A7 32 35 30 00 6C 1D C4 09 46 4C 24 B2 22 30 3A |.250.l...FL$."0:|
00001560: 22 AA 46 49 24 AA 22 2C 53 2C 52 22 00 7B 1D CE |".FI$.",S,R".{..|
00001570: 09 9F 31 2C 38 2C 32 2C 46 4C 24 00 93 1D D8 09 |..1,8,2,FL$.....|
00001580: 99 22 11 CC 4F 41 44 49 4E 47 2E 2E 2E 22 3A 89 |."..OADING...":.|
00001590: 39 36 30 00 A3 1D E2 09 99 22 93 C4 55 4D 50 20 |960......"..UMP |
000015A0: 54 4F 3A 00 BD 1D EC 09 99 22 11 12 D4 92 41 50 |TO:......"....AP|
000015B0: 45 20 4F 52 20 12 C4 92 49 53 4B 3F 22 00 C7 1D |E OR ...ISK?"...|
000015C0: F6 09 8D 32 32 39 30 00 DF 1D 00 0A 8B 43 24 B2 |...2290......C$.|
000015D0: 22 54 22 B0 43 24 B2 22 D4 22 A7 31 31 34 30 00 |"T".C$.".".1140.|
000015E0: F7 1D 0A 0A 8B 43 24 B2 22 44 22 B0 43 24 B2 22 |.....C$."D".C$."|
000015F0: C4 22 A7 32 35 39 30 00 00 1E 14 0A 89 34 38 30 |.".2590......480|
00001600: 00 16 1E 1E 0A 99 22 11 C9 4E 50 55 54 20 C6 49 |......"..NPUT .I|
00001610: 4C 45 4E 41 4D 45 00 3D 1E 28 0A 99 22 28 4F 52 |LENAME.=.(.."(OR|
00001620: 20 D2 C5 D4 D5 D2 CE 29 22 3A 99 22 20 20 22 46 | ......)":." "F|
00001630: 49 24 3A 99 22 91 22 3B 3A 85 46 49 24 00 4D 1E |I$:.".";:.FI$.M.|
00001640: 32 0A 8B 46 49 24 B2 22 22 A7 34 38 30 00 66 1E |2..FI$."".480.f.|
00001650: 3C 0A 46 4C 24 B2 22 40 30 3A 22 AA 46 49 24 AA |<.FL$."@0:".FI$.|
00001660: 22 2C 53 2C 57 22 00 76 1E 46 0A 9F 20 31 2C 38 |",S,W".v.F.. 1,8|
00001670: 2C 32 2C 46 4C 24 00 93 1E 50 0A 99 22 11 D3 41 |,2,FL$...P.."..A|
00001680: 56 49 4E 47 20 46 49 4C 45 2E 2E 2E 22 3A 89 31 |VING FILE...":.1|
00001690: 31 36 30 00 AF 1E 5A 0A 8F 20 2D 2D 20 50 52 49 |160...Z.. -- PRI|
000016A0: 4E 54 45 52 20 52 4F 55 54 49 4E 45 20 2D 2D 00 |NTER ROUTINE --.|
000016B0: C0 1E 64 0A 98 34 2C 3A 4B B2 31 3A 50 31 B2 30 |..d..4,:K.1:P1.0|
000016C0: 00 FA 1E 6E 0A 43 24 B2 22 C3 C3 C3 C3 C3 C3 C3 |...n.C$.".......|
000016D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000016E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000016F0: 22 3A 43 24 B2 43 24 AA 43 24 00 2C 1F 78 0A 98 |":C$.C$.C$.,.x..|
00001700: 34 2C C7 28 31 34 29 3B C7 28 31 36 29 22 31 36 |4,.(14);.(16)"16|
00001710: 22 3B 22 2A 2A 20 43 4F 4E 54 45 53 54 20 44 55 |";"** CONTEST DU|
00001720: 50 45 20 53 48 45 45 54 20 2A 2A 22 00 58 1F 82 |PE SHEET **".X..|
00001730: 0A 98 34 2C C7 28 31 36 29 22 31 36 22 3B 22 2D |..4,.(16)"16";"-|
00001740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001750: 2D 2D 2D 2D 2D 2D 2D 22 00 71 1F 8C 0A 8B 48 45 |-------".q....HE|
00001760: B2 31 A7 50 32 B2 B5 28 52 4E AD 31 36 32 29 AA |.1.P2..(RN.162).|
00001770: 31 00 89 1F 96 0A 8B 48 45 B1 31 A7 50 32 B2 B5 |1......HE.1.P2..|
00001780: 28 52 4E AD 35 34 29 AA 31 00 95 1F A0 0A 50 31 |(RN.54).1.....P1|
00001790: B2 50 31 AA 31 00 CD 1F AA 0A 98 34 2C C7 28 31 |.P1.1......4,.(1|
000017A0: 35 29 3A 98 34 2C 22 46 4F 52 20 43 41 4C 4C 3A |5):.4,"FOR CALL:|
000017B0: 20 22 43 39 24 C7 28 31 36 29 22 36 34 22 3B 22 | "C9$.(16)"64";"|
000017C0: 50 41 47 45 22 50 31 22 4F 46 22 50 32 00 DF 1F |PAGE"P1"OF"P2...|
000017D0: B4 0A 98 34 3A 8B 48 45 B2 31 A7 32 38 39 30 00 |...4:.HE.1.2890.|
000017E0: ED 1F BE 0A 98 34 2C 48 24 28 31 29 3B 00 F9 1F |.....4,H$(1);...|
000017F0: C8 0A 81 49 B2 32 A4 48 45 00 11 20 D2 0A 41 24 |...I.2.HE.. ..A$|
00001800: B2 C4 28 28 28 49 AB 32 29 AC 4C 49 29 AA 4C 43 |..(((I.2).LI).LC|
00001810: 29 00 20 20 DC 0A 41 24 B2 C9 28 41 24 2C 32 29 |). ..A$..(A$,2)|
00001820: 00 39 20 E6 0A 98 34 2C C7 28 31 36 29 41 24 3B |.9 ...4,.(16)A$;|
00001830: 48 24 28 49 29 3B 3A 82 49 00 46 20 F0 0A 98 34 |H$(I);:.I.F ...4|
00001840: 3A 98 34 2C 43 24 00 67 20 FA 0A 81 49 B2 4B A4 |:.4,C$.g ...I.K.|
00001850: 4B AA 35 34 3A 8B 49 B1 52 4E A7 49 B2 4B AA 35 |K.54:.I.RN.I.K.5|
00001860: 34 3A 89 32 38 37 30 00 7C 20 04 0B 98 34 2C 52 |4:.2870.| ...4,R|
00001870: 24 28 53 42 25 28 49 29 2C 31 29 3B 00 88 20 0E |$(SB%(I),1);.. .|
00001880: 0B 81 4A B2 32 A4 48 45 00 A0 20 18 0B 41 24 B2 |..J.2.HE.. ..A$.|
00001890: C4 28 28 28 4A AB 32 29 AC 4C 49 29 AA 4C 43 29 |.(((J.2).LI).LC)|
000018A0: 00 AF 20 22 0B 41 24 B2 C9 28 41 24 2C 32 29 00 |.. ".A$..(A$,2).|
000018B0: CF 20 2C 0B 98 34 2C C7 28 31 36 29 41 24 3B 52 |. ,..4,.(16)A$;R|
000018C0: 24 28 53 42 25 28 49 29 2C 4A 29 3B 3A 82 4A 00 |$(SB%(I),J);:.J.|
000018D0: E8 20 36 0B 98 34 3A 82 49 3A 4B B2 4B AA 35 34 |. 6..4:.I:K.K.54|
000018E0: 3A 8B 4B B1 52 4E A7 8E 00 FF 20 40 0B 81 4A B2 |:.K.RN.... @..J.|
000018F0: 31 A4 34 3A 98 34 3A 82 4A 3A 89 32 36 38 30 00 |1.4:.4:.J:.2680.|
00001900: 28 21 4A 0B 98 34 2C 48 24 28 31 29 C7 28 31 36 |(!J..4,H$(1).(16|
00001910: 29 22 32 36 22 48 24 28 31 29 C7 28 31 36 29 22 |)"26"H$(1).(16)"|
00001920: 35 32 22 48 24 28 31 29 00 32 21 54 0B 98 34 2C |52"H$(1).2!T..4,|
00001930: 43 24 00 57 21 5E 0B 81 49 B2 4B A4 4B AA 31 35 |C$.W!^..I.K.K.15|
00001940: 36 A9 33 3A 8B 49 B1 52 4E A7 49 B2 4B AA 31 35 |6.3:.I.RN.I.K.15|
00001950: 36 3A 89 32 39 33 30 00 9D 21 68 0B 98 34 2C 52 |6:.2930..!h..4,R|
00001960: 24 28 53 42 25 28 49 29 2C 31 29 3B C7 28 31 36 |$(SB%(I),1);.(16|
00001970: 29 22 32 36 22 3B 52 24 28 53 42 25 28 49 AA 31 |)"26";R$(SB%(I.1|
00001980: 29 2C 31 29 3B C7 28 31 36 29 22 35 32 22 3B 52 |),1);.(16)"52";R|
00001990: 24 28 53 42 25 28 49 AA 32 29 2C 31 29 00 B4 21 |$(SB%(I.2),1)..!|
000019A0: 72 0B 82 49 3A 4B B2 4B AA 31 35 36 3A 8B 4B B1 |r..I:K.K.156:.K.|
000019B0: 52 4E A7 8E 00 CB 21 7C 0B 81 4A B2 31 A4 36 3A |RN....!|..J.1.6:|
000019C0: 98 34 3A 82 4A 3A 89 32 36 38 30 00 E3 21 86 0B |.4:.J:.2680..!..|
000019D0: 8F 20 2D 2D 20 43 48 45 43 4B 20 44 55 50 45 53 |. -- CHECK DUPES|
000019E0: 20 2D 2D 00 19 22 90 0B 44 55 B2 30 3A 81 49 B2 | --.."..DU.0:.I.|
000019F0: 30 A4 52 4E AB 31 3A 8B 43 24 B2 52 24 28 53 42 |0.RN.1:.C$.R$(SB|
00001A00: 25 28 49 29 2C 31 29 A7 8D 33 31 30 30 3A 44 55 |%(I),1)..3100:DU|
00001A10: B2 31 3A 49 B2 52 4E AB 31 00 23 22 9A 0B 99 22 |.1:I.RN.1.#"..."|
00001A20: 13 22 49 00 3E 22 A4 0B 82 49 3A 8B 44 55 B2 31 |."I.>"...I:.DU.1|
00001A30: A7 52 4E B2 52 4E AB 31 3A 89 31 34 38 30 00 76 |.RN.RN.1:.1480.v|
00001A40: 22 B8 0B 99 22 93 11 11 11 11 11 11 11 11 11 4F |"..."..........O|
00001A50: 4B 20 54 4F 20 57 4F 52 4B 20 22 43 24 3A 99 22 |K TO WORK "C$:."|
00001A60: 11 43 4F 4D 50 4C 45 54 45 20 51 53 4F 3F 28 59 |.COMPLETE QSO?(Y|
00001A70: 20 4F 52 20 4E 29 00 96 22 C2 0B 8D 32 32 39 30 | OR N).."...2290|
00001A80: 3A 8B 43 24 B2 22 4E 22 A7 52 4E B2 52 4E AB 31 |:.C$."N".RN.RN.1|
00001A90: 3A 89 31 34 38 30 00 A8 22 CC 0B 8B 43 24 B3 B1 |:.1480.."...C$..|
00001AA0: 22 59 22 A7 33 30 31 30 00 B7 22 D6 0B 8B 48 45 |"Y".3010.."...HE|
00001AB0: B2 31 A7 31 34 38 30 00 D5 22 E0 0B 99 22 11 49 |.1.1480.."...".I|
00001AC0: 4E 50 55 54 3A 11 22 3A 81 49 B2 32 A4 48 45 3A |NPUT:.":.I.2.HE:|
00001AD0: 43 24 B2 22 22 00 E4 22 EA 0B 99 48 24 28 49 29 |C$."".."...H$(I)|
00001AE0: 3A 85 43 24 00 10 23 F4 0B 8B C3 28 43 24 29 B1 |:.C$..#....(C$).|
00001AF0: 4C 45 20 A7 99 22 54 4F 4F 20 4C 4F 4E 47 2C 20 |LE .."TOO LONG, |
00001B00: 54 52 59 20 41 47 41 49 4E 22 3A 89 33 30 35 30 |TRY AGAIN":.3050|
00001B10: 00 22 23 FE 0B 8B 43 24 B2 22 22 A7 43 24 B2 22 |."#...C$."".C$."|
00001B20: 92 22 00 40 23 08 0C 52 24 28 53 42 25 28 52 4E |.".@#..R$(SB%(RN|
00001B30: 29 2C 49 29 B2 43 24 3A 82 49 3A 89 31 34 38 30 |),I).C$:.I:.1480|
00001B40: 00 51 23 12 0C 8F 20 2D 2D 20 44 55 50 45 20 2D |.Q#... -- DUPE -|
00001B50: 2D 00 5B 23 1C 0C 8D 33 32 30 30 00 78 23 3A 0C |-.[#...3200.x#:.|
00001B60: 99 22 93 11 11 11 11 11 22 43 24 22 20 44 55 50 |."......"C$" DUP|
00001B70: 4C 49 43 41 54 45 21 22 00 8D 23 3F 0C 99 22 11 |LICATE!"..#?..".|
00001B80: 52 45 43 4F 52 44 20 23 22 49 22 11 22 00 9C 23 |RECORD #"I"."..#|
00001B90: 44 0C 8B 48 45 B2 31 A7 33 31 36 30 00 BB 23 4E |D..HE.1.3160..#N|
00001BA0: 0C 99 3A 81 4A B2 32 A4 48 45 3A 99 52 24 28 53 |..:.J.2.HE:.R$(S|
00001BB0: 42 25 28 49 29 2C 4A 29 3A 82 4A 00 DA 23 58 0C |B%(I),J):.J..#X.|
00001BC0: 99 22 11 11 50 52 45 53 53 20 52 45 54 55 52 4E |."..PRESS RETURN|
00001BD0: 2E 22 3A 8D 32 32 39 30 3A 8E 00 E0 23 80 0C 99 |.":.2290:...#...|
00001BE0: 00 F0 23 8A 0C 81 4A B2 31 A4 32 30 30 3A 82 4A |..#...J.1.200:.J|
00001BF0: 00 F6 23 9E 0C 8E 00 00 00 FF |..#....... |
....D.....N...(.X.. MULTI COPY SOAFTWAR
.......4.....F. .."."G(14)G(8).B...."
<< MICRO-LOG >> ".Y...."....
A...H.." CONTEST LOG SYSTEM...R.."
FOR......". COMMODORE 64...........
"...... (C)1982":." KINETIC DESI
GNS"......I.1.2000:....... --- CALL SIGN
:.,...C9$."RRRRRRRR".6.... ---.E."..".."
G(14).D.,..".AMATEUR LOGGING SYSTEM"...1
.......".(C) KINETIC DESIGNS":CM$."LPDCR
SQ"...6.."..LOAD:"...@..".F1) NEW FILE.O
.J.."F3) EXISTING FILE"...T.."..PRESS FU
NCTION KEY....H..C$:.C$.."".360...|..C$:
.I:.I..1..:I.0.F.~.."...................
........................................
...............Y....I.0.I.50:.410......J
.1.I:.J:.J.1.50:.J......C$."".380......C
$.G(133).680.H....C$.G(134).2420...B.. 1
50,50,150,50,0,150,150,50,150,,0,-1...L.
.360...V.. * COMMAND MENU.(...."."G(14);
: 4:PR.0.B...."RECORDS:"RN"MAX:"MX.S....
".COMMANDS:.H....".(L) LOG CALLS.|...."(
P) PRINT LOG......"(D) DUMP FILE......"(
C) CHANGE CALL...&.."(R) REMOVE CALL.P.0
.."(S) SORT FILE...:.."(Q) QUIT...D.."..
COMMAND ?":. 2290:J.0. .N..I.1.C(CM$):.J
(CM$,I,1).C$.J.I.&.X...3.B..J.0.480.\.L.
.J.1480,1250,1120,1580,1820,1980,630.Z.V
..".ARE YOU SURE? (Y OR N)......2290....
..C$."Y".."."G(142)G(9):.BK,27:.......48
0.B.... * NEW FILE.K...."."......".START
NEW FILE":HE.1......"USE OPTIONAL HEADI
NGS?":."(Y OR N)".;.F..2290:LC.12:.C$."N
"..H$(1),X$(1):.850.L.P..C$.."Y".250.|.Z
.HE.0:."HOW MANY HEADINGS?":."(1 TO 8)";
:.HE......HE.1.HE.8.250.....HE.HE.1.G...
.H$(HE),X$(HE):.G(142)".INPUT NAME OF:".
S....I.2.HE......"HEADING "I.1"...#.";:.
H$(I)......H$(I)."".250.7....C(H$(I)).7.
.".TOO LONG, 7 CHRS MAX..":.775.>....I._
. ..G(14)".INPUT MAXIMUM NUMBER.Z.*.."OF
CHARACTERS IN ONE...4.LI..(68.(HE.1)):.
LI.19.LI.19...6.."......................
........................................
..............>.."ENTRY.(2 TO"LI")";...H
..LE:.LE.2.LE.LI.830.D.R.MX..((.(0).300)
.((15).((HE.1).LE))).W.F..MX.500.MX.500.
N.P..R$(MX,HE),SB%(MX)...U..".STAND BY..
.":.I.1.MX:SB%(I).I:....Z.H$(1)."CALL"..
....1480.G.... * LOAD TAPE FILE.P...."."
......".LOAD FILE FROM TAPE......2330:.C
$..G(13).250.&....1:.".VIC'S GETTING LOA
DED..".0....1,HE.:.J..1,RN.D.T..1,LE.W..
..H$(HE),X$(HE)...... HE.0. 1:."CHECK DI
SK DRIVE":.2280:......MX..((.(0).300).((
15).((HE.1).LE))).C...LC.12:.MX.500. MX.
500.R....HE.1.1030.....LI..(68.(HE.1)):.
LI.19.LI.19......MX..RN.1030.9....".INSU
FFICIENT MEMORY TO LOAD ENTIRE DATABASE.
".X...."..CONTINUE LOAD?(Y OR N).M.... 2
290:.C$."N".......C$.."Y".1027.....RN.M
X:.".LOADING..."......R$(MX,HE),SB%(MX).
.....I.1.HE.H....1,H$(I).N.$........I.1.
RN:.J.1.HE...3.SB%(I).I...8..1,R$(SB%(I)
,J)...B..J,I: 1.'.G..I.RN.MX:SB%(I).I:..
0.L..480.=.V.. * DUMP.M.`.."."::.2530._.
J..".DUMP FILE".X.T..2330:.C$..G(13).480
...~..1,1,1:."..SAVING LOG...". ....1,HE
......1,RN......1,LE.K....I.1.HE:.1,H$(I
):.......I.1.RN:.J.1.HE......1,R$(SB%(I)
,J)...D..J,I: 1...N..480...X.. * PRINT..
....".".-....RN.0.480.?....".PRINT LOG".
E...."...(F1) SCREEN":."(F3) PRINTER".P.
... 2290......C$.G(133).PR.0:.1360......
C$.G(134).PR.1:.1330...(..1290...2.."..P
RINTER:.":.:.".BE SURE PRINTER IS ON."..
.<..:.:. 2280...A..C$..G(13).480...F..4,
4...P..HE.1.1370.+.Z..PR..2660:.480.=.D.
I.RN:.650,128.L.N..".":.2370.M.X.."PRESS
.+. .-. OR .RETURN."......2290:.C$.G(13
)..650,0:.480...... C$."+". I.I.1......
C$."-". I.I.1.I. .. I.1.I.1:.3200......
I.RN.I.RN:.3200......1390...... * ADD...
H.."."G(142):C$."": 4:PR.0.$.R..".LOG CA
LLS".`...RN.RN.1:.RN.MX.."..MEMORY FULL"
:.I.1.500:.:RN.RN.1:.480......"..INPUT C
ALL(OR RETURN)":.C$......C$."".RN.RN.1:.
480.M....C(C$).LC.."TOO LONG, TRY AGAIN.
":C$."":.1510......C$."".C$.".".....R$(S
B%(RN),1).C$......2960...".. * CHANGE...
,..".":I.0.1.6..".CHANGE A RECORD.N.@.."
...WHICH RECORD #";:.I.`.J..I.0.I.RN.480
.U.T.."."G(142):.2370...^.."CHANGE THIS
ONE? (Y OR N)"...H..2290...R..C$."Y
".1680.F.|..C$."N".480.P....1640......J.
1.HE:C$.""......"."H$(J):." "R$(SB%(I),
J):.".".$....C$:.J.1.C(C$)..LE .1740.<..
..J.1.C(C$)..LC.1740.F....1690.Q.B..C(C$
).F.L.. C$."" . C$.".".Z.V.R$(SB%(I),J).
C$......J......".":.2370:.".CHANGE OK (Y
OR N)?"......2290:.C$."Y".480.O....C$."
N".1620.Y....1780...... * REMOVE......".
":I.0...&..".REMOVE A RECORD.).0.."...WH
ICH RECORD #";:.I.;.:..I.0.I.RN.480.P.D.
."."G(142):.2370.V.N.."REMOVE THIS ONE?
(Y OR N)"...X..2290...B..C$."Y".192
0...L..C$."N".480...V..1880.G....".":.19
25:RN.RN.1:.480.T.... I.MX.......X.SB%(I
):.J.I.RN.1......".WORKING.. ....";J.
....SB%(J).SB%(J.1)."....J.0...SB%(RN).X
.6.....C.... * SORT.L....".".J.F..".SORT
":.HE.1.I.HE:.2030...P.."..":.I.1.HE:.I"
) "H$(I):....Z..".SORT BY? (1 TO"HE")"..
....2290:I.E(C$).J....I.1.I.HE.480.S....
".".....K..(RN.2).1:L.RN:M.0... ..K.1.21
00...*.K.K.1:X.SB%(K):.2120...4.X.SB%(L)
:SB%(L).SB%(1).L.>.L.L.1:.L.1.SB%(M).X:.
2200.T.H.J.K.B.R.M.J:J.J.J.~.W..".SORTIN
G.. ....";J...\..J.L.SB%(M).X:.2080.B
.F..J.L..R$(SB%(J),I).R$(SB%(J.1),I).J.J
.1...K..R$(X,I)..R$(SB%(J),I).SB%(M).X:.
2080...P.SB%(M).SB%(J):.2130."....--MOVE
S # TO END OF FILE./....I.1.480.>.... RN
.0.480.^....H(R$(SB%(I),1),1).."A".480.H
....1930.R.J..2210...T.. * GET CHR......
C$:.PR.C$.G(13):......."PRESS .RETURN. T
O CONT..L....C$:.C$.."".2290......C$:.C$
."".2300............ * TAPE MESSAGES....
..".INSERT DATA TAPE IN.0.$.."CASSETTE &
REWIND..:....2270.Q.8.. * PRINT 1 RECOR
D.S.B..G(142)"RECORD #"I".":.K.1.HE...L.
."."H$(K):."."R$(SB%(I),K)...V..K...`...
..J.. -- TAPE/DISK.D.T..".LOAD FROM:...~
.."..T.APE OR .D.ISK?"...... 2290......C
$."T".C$."T".920......C$."D".C$."D".2480
.!....250.D...FI$."":.".INPUT FILENAME":
.FI$.T....FI$."".250.L.D.FL$."0:".FI$.",
S,R".{.N..1,8,2,FL$...X..".LOADING...":.
960......".DUMP TO:......"..T.APE OR .D.
ISK?".G....2290......C$."T".C$."T".1140.
.....C$."D".C$."D".2590......480......".
INPUT FILENAME.=.(.."(OR RETURN)":." "F
I$:.".";:.FI$.M.2..FI$."".480.F.<.FL$."@
0:".FI$.",S,W".V.F.. 1,8,2,FL$...P..".SA
VING FILE...":.1160...Z.. -- PRINTER ROU
TINE --...D..4,:K.1:P1.0...N.C$."CCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC":C$.C$.
C$.,.X..4,G(14);G(16)"16";"** CONTEST DU
PE SHEET **".X....4,G(16)"16";"---------
---------------".Q....HE.1.P2..(RN.162).
1......HE.1.P2..(RN.54).1... .P1.P1.1.M.
...4,G(15):.4,"FOR CALL: "C9$G(16)"64";"
PAGE"P1"OF"P2......4:.HE.1.2890......4,H
$(1);...H..I.2.HE.. R.A$.D(((I.2).LI).LC
). ..A$.I(A$,2).9 ...4,G(16)A$;H$(I);:.
I.F ...4:.4,C$.G ...I.K.K.54:.I.RN.I.K.5
4:.2870.| ...4,R$(SB%(I),1);.. ...J.2.HE
. ..A$.D(((J.2).LI).LC).. ".A$.I(A$,2).
O ,..4,G(16)A$;R$(SB%(I),J);:.J.. 6..4:.
I:K.K.54:.K.RN.... @..J.1.4:.4:.J:.2680.
(!J..4,H$(1)G(16)"26"H$(1)G(16)"52"H$(1)
.2!T..4,C$.W!^..I.K.K.156.3:.I.RN.I.K.15
6:.2930..!H..4,R$(SB%(I),1);G(16)"26";R$
(SB%(I.1),1);G(16)"52";R$(SB%(I.2),1)..!
R..I:K.K.156:.K.RN...K!|..J.1.6:.4:.J:.2
680..!... -- CHECK DUPES --.."..DU.0:.I.
0.RN.1:.C$.R$(SB%(I),1)..3100:DU.1:I.RN.
1.#"..."."I.>"...I:.DU.1.RN.RN.1:.1480.V
"..."..........OK TO WORK "C$:.".COMPLET
E QSO?(Y OR N).."B..2290:.C$."N".RN.RN.1
:.1480.."L..C$.."Y".3010.."V..HE.1.1480.
U"...".INPUT:.":.I.2.HE:C$."".."...H$(I)
:.C$..#...C(C$).LE .."TOO LONG, TRY AGAI
N":.3050."#...C$."".C$.".".@#..R$(SB%(RN
),I).C$:.I:.1480.Q#... -- DUPE --.[#...3
200.X#:.."......"C$" DUPLICATE!"..#?..".
RECORD #"I"."..#D..HE.1.3160..#N..:.J.2.
HE:.R$(SB%(I),J):.J.Z#X.."..PRESS RETURN
.":.2290:...#.....#...J.1.200:.J..#.....
..
> CLICK IMAGE PREVIEW FOR FULL MODAL