MICRO LOG

00000000: 01 08 13 08 64 00 8F 20  56 49 43 20 4C 4F 47 20  |....d.. VIC LOG |
00000010: 32 2E 39 00 22 08 6E 00  8F 20 28 43 29 20 31 39  |2.9.".n.. (C) 19|
00000020: 38 32 00 38 08 78 00 8F  20 4B 49 4E 45 54 49 43  |82.8.x.. KINETIC|
00000030: 20 44 45 53 49 47 4E 53  00 3E 08 82 00 8F 00 53  | DESIGNS.>.....S|
00000040: 08 8C 00 8F 20 2A 20 49  4E 49 54 49 41 4C 20 4D  |.... * INITIAL M|
00000050: 45 4E 55 00 60 08 96 00  42 4B B2 33 36 38 37 39  |ENU.`...BK.36879|
00000060: 00 72 08 A0 00 99 22 93  22 C7 28 31 34 29 C7 28  |.r....".".(14).(|
00000070: 38 29 00 7D 08 AA 00 97  42 4B 2C 35 39 00 99 08  |8).}....BK,59...|
00000080: B4 00 99 22 9C 20 20 20  3C 3C 20 CD C9 C3 D2 CF  |...".   << .....|
00000090: 2D CC CF C7 20 3E 3E 20  22 00 B0 08 BE 00 99 22  |-... >> "......"|
000000A0: 11 11 11 11 90 20 20 20  20 20 20 20 20 20 20 41  |.....          A|
000000B0: 00 C9 08 C8 00 99 22 20  20 D2 41 44 49 4F 20 CC  |......"  .ADIO .|
000000C0: 4F 47 20 53 59 53 54 45  4D 00 DC 08 D2 00 99 22  |OG SYSTEM......"|
000000D0: 20 20 20 20 20 20 20 20  20 46 4F 52 00 F2 08 DC  |         FOR....|
000000E0: 00 99 22 11 1C 20 20 20  20 20 20 20 D6 C9 C3 2D  |.."..       ...-|
000000F0: 32 30 00 29 09 E6 00 00  FF FF FF FF 99 22 11 11  |20.)........."..|
00000100: 11 11 11 1F 20 20 20 20  20 20 20 28 43 29 31 39  |....       (C)19|
00000110: 38 32 22 3A 99 22 20 20  20 CB 49 4E 45 54 49 43  |82":."   .INETIC|
00000120: 20 C4 45 53 49 47 4E 53  22 00 39 09 F0 00 81 49  | .ESIGNS".9....I|
00000130: B2 31 A4 32 30 30 30 3A  82 00 48 09 FA 00 9C 3A  |.1.2000:..H....:|
00000140: 42 4B B2 33 36 38 37 39  00 5D 09 04 01 8F 20 2D  |BK.36879.].... -|
00000150: 2D 2D 20 43 41 4C 4C 20  53 49 47 4E 3A 00 70 09  |-- CALL SIGN:.p.|
00000160: 0E 01 43 39 24 B2 22 D2  D2 D2 D2 D2 D2 D2 D2 22  |..C9$."........"|
00000170: 00 7A 09 18 01 8F 20 2D  2D 2D 00 92 09 22 01 99  |.z.... ---..."..|
00000180: 22 93 05 22 C7 28 31 34  29 3A 97 20 42 4B 2C 31  |"..".(14):. BK,1|
00000190: 31 30 00 B1 09 2C 01 99  22 12 C1 CD C1 D4 C5 D5  |10...,..".......|
000001A0: D2 A0 CC CF C7 C7 C9 CE  C7 A0 D3 D9 D3 D4 C5 CD  |................|
000001B0: 22 00 E0 09 31 01 00 FF  FF FF FF 99 22 11 28 C3  |"...1.......".(.|
000001C0: 29 20 CB 49 4E 45 54 49  43 20 C4 45 53 49 47 4E  |) .INETIC .ESIGN|
000001D0: 53 22 3A 43 4D 24 B2 22  4C 50 44 43 52 53 51 22  |S":CM$."LPDCRSQ"|
000001E0: 00 EF 09 36 01 99 22 11  11 CC 4F 41 44 3A 22 00  |...6.."...OAD:".|
000001F0: 03 0A 40 01 99 22 11 46  31 29 20 CE 45 57 20 C6  |..@..".F1) .EW .|
00000200: 49 4C 45 00 1C 0A 4A 01  99 22 46 33 29 20 C5 58  |ILE...J.."F3) .X|
00000210: 49 53 54 49 4E 47 20 C6  49 4C 45 22 00 38 0A 54  |ISTING .ILE".8.T|
00000220: 01 99 22 11 11 D0 52 45  53 53 20 C6 D5 CE C3 D4  |.."...RESS .....|
00000230: C9 CF CE 20 4B 45 59 2E  00 5B 0A 5E 01 99 22 11  |... KEY..[.^..".|
00000240: 11 11 11 11 11 28 D4 55  52 4E 20 55 50 20 56 4F  |.....(.URN UP VO|
00000250: 4C 55 4D 45 20 4F 4E 20  D4 D6 29 00 6F 0A 68 01  |LUME ON ..).o.h.|
00000260: A1 43 24 3A 8B 43 24 B3  B1 22 22 A7 33 36 30 00  |.C$:.C$.."".360.|
00000270: 7D 0A 72 01 97 33 36 38  37 38 2C 31 35 00 94 0A  |}.r..36878,15...|
00000280: 7C 01 A1 43 24 3A 87 49  3A 8B 49 B2 AB 31 A7 8C  ||..C$:.I:.I..1..|
00000290: 3A 49 B2 30 00 A7 0A 86  01 8B 49 B2 30 A7 49 B2  |:I.0......I.0.I.|
000002A0: 35 30 3A 89 34 31 30 00  B6 0A 90 01 97 33 36 38  |50:.410......368|
000002B0: 37 36 2C 32 32 35 00 D8  0A 9A 01 81 4A B2 31 A4  |76,225......J.1.|
000002C0: 49 3A 82 4A 3A 97 33 36  38 37 36 2C 30 3A 81 4A  |I:.J:.36876,0:.J|
000002D0: B2 31 A4 35 30 3A 82 4A  00 E7 0A A4 01 8B 43 24  |.1.50:.J......C$|
000002E0: B2 22 22 A7 33 38 30 00  FA 0A AE 01 8B 43 24 B2  |."".380......C$.|
000002F0: C7 28 31 33 33 29 A7 36  38 30 00 0E 0B B8 01 8B  |.(133).680......|
00000300: 43 24 B2 C7 28 31 33 34  29 A7 32 34 32 30 00 39  |C$..(134).2420.9|
00000310: 0B C2 01 83 20 31 35 30  2C 35 30 2C 31 35 30 2C  |.... 150,50,150,|
00000320: 35 30 2C 30 2C 31 35 30  2C 31 35 30 2C 35 30 2C  |50,0,150,150,50,|
00000330: 31 35 30 2C 2C 30 2C 2D  31 00 42 0B CC 01 89 33  |150,,0,-1.B....3|
00000340: 36 30 00 57 0B D6 01 8F  20 2A 20 43 4F 4D 4D 41  |60.W.... * COMMA|
00000350: 4E 44 20 4D 45 4E 55 00  76 0B E0 01 99 22 93 22  |ND MENU.v...."."|
00000360: C7 28 31 34 29 3B 3A 97  20 42 4B 2C 37 36 3A A0  |.(14);:. BK,76:.|
00000370: 34 3A 50 52 B2 30 00 91  0B EA 01 99 22 1F D2 45  |4:PR.0......"..E|
00000380: 43 4F 52 44 53 3A 22 52  4E 22 CD 41 58 3A 22 4D  |CORDS:"RN".AX:"M|
00000390: 58 00 A3 0B F4 01 99 22  90 11 C3 CF CD CD C1 CE  |X......"........|
000003A0: C4 D3 3A 00 B8 0B FE 01  99 22 11 28 CC 29 20 CC  |..:......".(.) .|
000003B0: 4F 47 20 43 41 4C 4C 53  00 CC 0B 08 02 99 22 28  |OG CALLS......"(|
000003C0: D0 29 20 D0 52 49 4E 54  20 CC 4F 47 00 E0 0B 12  |.) .RINT .OG....|
000003D0: 02 99 22 28 C4 29 20 C4  55 4D 50 20 C6 49 4C 45  |.."(.) .UMP .ILE|
000003E0: 00 F6 0B 1C 02 99 22 28  C3 29 20 C3 48 41 4E 47  |......"(.) .HANG|
000003F0: 45 20 C3 41 4C 4C 00 0C  0C 26 02 99 22 28 D2 29  |E .ALL...&.."(.)|
00000400: 20 D2 45 4D 4F 56 45 20  C3 41 4C 4C 00 20 0C 30  | .EMOVE .ALL. .0|
00000410: 02 99 22 28 D3 29 20 D3  4F 52 54 20 C6 49 4C 45  |.."(.) .ORT .ILE|
00000420: 00 2F 0C 3A 02 99 22 28  D1 29 20 D1 55 49 54 00  |./.:.."(.) .UIT.|
00000430: 4D 0C 44 02 99 22 11 11  C3 4F 4D 4D 41 4E 44 20  |M.D.."...OMMAND |
00000440: 3F 22 3A 8D 20 32 32 39  30 3A 4A B2 30 00 70 0C  |?":. 2290:J.0.p.|
00000450: 4E 02 81 49 B2 31 A4 C3  28 43 4D 24 29 3A 8B CA  |N..I.1..(CM$):..|
00000460: 28 43 4D 24 2C 49 2C 31  29 B2 43 24 A7 4A B2 49  |(CM$,I,1).C$.J.I|
00000470: 00 76 0C 58 02 82 00 83  0C 62 02 8B 4A B2 30 A7  |.v.X.....b..J.0.|
00000480: 34 38 30 00 AC 0C 6C 02  91 4A 89 31 34 38 30 2C  |480...l..J.1480,|
00000490: 31 32 35 30 2C 31 31 32  30 2C 31 35 38 30 2C 31  |1250,1120,1580,1|
000004A0: 38 32 30 2C 31 39 38 30  2C 36 33 30 00 CA 0C 76  |820,1980,630...v|
000004B0: 02 99 22 11 C1 52 45 20  59 4F 55 20 53 55 52 45  |.."..RE YOU SURE|
000004C0: 3F 20 28 D9 20 4F 52 20  CE 29 00 D4 0C 80 02 8D  |? (. OR .)......|
000004D0: 32 32 39 30 00 F8 0C 8A  02 8B 43 24 B2 22 59 22  |2290......C$."Y"|
000004E0: A7 99 22 93 22 C7 28 31  34 32 29 C7 28 39 29 3A  |..".".(142).(9):|
000004F0: 97 42 4B 2C 32 37 3A 80  00 01 0D 94 02 89 34 38  |.BK,27:.......48|
00000500: 30 00 12 0D 9E 02 8F 20  2A 20 4E 45 57 20 46 49  |0...... * NEW FI|
00000510: 4C 45 00 24 0D A8 02 99  22 93 90 22 3A 97 20 42  |LE.$...."..":. B|
00000520: 4B 2C 35 39 00 40 0D B2  02 99 22 12 D3 D4 C1 D2  |K,59.@....".....|
00000530: D4 20 CE C5 D7 A0 C6 C9  CC C5 22 3A 48 45 B2 31  |. ........":HE.1|
00000540: 00 6A 0D BC 02 99 22 D5  53 45 20 4F 50 54 49 4F  |.j....".SE OPTIO|
00000550: 4E 41 4C 20 48 45 41 44  49 4E 47 53 3F 22 3A 99  |NAL HEADINGS?":.|
00000560: 22 28 D9 20 4F 52 20 CE  29 22 00 94 0D C6 02 8D  |"(. OR .)"......|
00000570: 32 32 39 30 3A 4C 43 B2  31 32 3A 8B 43 24 B2 22  |2290:LC.12:.C$."|
00000580: 4E 22 A7 86 48 24 28 31  29 2C 58 24 28 31 29 3A  |N"..H$(1),X$(1):|
00000590: 89 38 35 30 00 A5 0D D0  02 8B 43 24 B3 B1 22 59  |.850......C$.."Y|
000005A0: 22 A7 32 35 30 00 D5 0D  DA 02 48 45 B2 30 3A 99  |".250.....HE.0:.|
000005B0: 22 C8 4F 57 20 4D 41 4E  59 20 48 45 41 44 49 4E  |".OW MANY HEADIN|
000005C0: 47 53 3F 22 3A 99 22 28  31 20 54 4F 20 38 29 22  |GS?":."(1 TO 8)"|
000005D0: 3B 3A 85 48 45 00 E8 0D  E4 02 8B 48 45 B3 31 B0  |;:.HE......HE.1.|
000005E0: 48 45 B1 38 A7 32 35 30  00 F4 0D EE 02 48 45 B2  |HE.8.250.....HE.|
000005F0: 48 45 AA 31 00 20 0E F8  02 86 48 24 28 48 45 29  |HE.1. ....H$(HE)|
00000600: 2C 58 24 28 48 45 29 3A  99 C7 28 31 34 32 29 22  |,X$(HE):..(142)"|
00000610: 93 49 4E 50 55 54 20 4E  41 4D 45 20 4F 46 3A 22  |.INPUT NAME OF:"|
00000620: 00 2C 0E 02 03 81 49 B2  32 A4 48 45 00 4E 0E 07  |.,....I.2.HE.N..|
00000630: 03 99 22 48 45 41 44 49  4E 47 20 22 49 AB 31 22  |.."HEADING "I.1"|
00000640: 9D 9D 9D 23 1D 22 3B 3A  85 48 24 28 49 29 00 60  |...#.";:.H$(I).`|
00000650: 0E 0C 03 8B 48 24 28 49  29 B2 22 22 A7 32 35 30  |....H$(I)."".250|
00000660: 00 90 0E 11 03 8B C3 28  48 24 28 49 29 29 B1 37  |.......(H$(I)).7|
00000670: A7 99 22 11 54 4F 4F 20  4C 4F 4E 47 2C 20 37 20  |..".TOO LONG, 7 |
00000680: 43 48 52 53 20 4D 41 58  2E 11 22 3A 89 37 37 35  |CHRS MAX..":.775|
00000690: 00 97 0E 16 03 82 49 00  B8 0E 20 03 99 C7 28 31  |......I... ...(1|
000006A0: 34 29 22 93 C9 4E 50 55  54 20 4D 41 58 49 4D 55  |4)"..NPUT MAXIMU|
000006B0: 4D 20 4E 55 4D 42 45 52  00 D3 0E 2A 03 99 22 4F  |M NUMBER...*.."O|
000006C0: 46 20 43 48 41 52 41 43  54 45 52 53 20 49 4E 20  |F CHARACTERS IN |
000006D0: 4F 4E 45 00 F4 0E 34 03  4C 49 B2 B5 28 36 38 AD  |ONE...4.LI..(68.|
000006E0: 28 48 45 AB 31 29 29 3A  8B 4C 49 B1 31 39 A7 4C  |(HE.1)):.LI.19.L|
000006F0: 49 B2 31 39 00 0D 0F 3E  03 99 22 45 4E 54 52 59  |I.19...>.."ENTRY|
00000700: 2E 28 32 20 54 4F 22 4C  49 22 29 22 3B 00 25 0F  |.(2 TO"LI")";.%.|
00000710: 48 03 85 4C 45 3A 8B 4C  45 B3 32 B0 4C 45 B1 4C  |H..LE:.LE.2.LE.L|
00000720: 49 A7 38 33 30 00 4D 0F  52 03 4D 58 B2 B5 28 28  |I.830.M.R.MX..((|
00000730: B8 28 30 29 AB 33 30 30  29 AD 28 28 31 35 29 AA  |.(0).300).((15).|
00000740: 28 28 48 45 AB 31 29 AC  4C 45 29 29 29 00 60 0F  |((HE.1).LE))).`.|
00000750: 66 03 8B 4D 58 B1 35 30  30 A7 4D 58 B2 35 30 30  |f..MX.500.MX.500|
00000760: 00 77 0F 70 03 86 52 24  28 4D 58 2C 48 45 29 2C  |.w.p..R$(MX,HE),|
00000770: 53 42 25 28 4D 58 29 00  9E 0F 75 03 99 22 93 53  |SB%(MX)...u..".S|
00000780: 54 41 4E 44 20 42 59 2E  2E 2E 22 3A 81 49 B2 31  |TAND BY...":.I.1|
00000790: A4 4D 58 3A 53 42 25 28  49 29 B2 49 3A 82 00 AF  |.MX:SB%(I).I:...|
000007A0: 0F 7A 03 48 24 28 31 29  B2 22 43 41 4C 4C 22 00  |.z.H$(1)."CALL".|
000007B0: B9 0F 84 03 89 31 34 38  30 00 D0 0F 8E 03 8F 20  |.....1480...... |
000007C0: 2A 20 4C 4F 41 44 20 54  41 50 45 20 46 49 4C 45  |* LOAD TAPE FILE|
000007D0: 00 E2 0F 98 03 99 22 93  90 22 3A 97 20 42 4B 2C  |......"..":. BK,|
000007E0: 35 39 00 FD 0F A2 03 99  22 12 CC CF C1 C4 A0 C6  |59......".......|
000007F0: C9 CC C5 A0 C6 D2 CF CD  A0 D4 C1 D0 C5 00 16 10  |................|
00000800: AC 03 8D 32 33 33 30 3A  8B 43 24 B3 B1 C7 28 31  |...2330:.C$...(1|
00000810: 33 29 A7 32 35 30 00 38  10 B6 03 9F 31 3A 99 22  |3).250.8....1:."|
00000820: 11 D6 C9 C3 27 53 20 47  45 54 54 49 4E 47 20 4C  |....'S GETTING L|
00000830: 4F 41 44 45 44 2E 2E 22  00 42 10 C0 03 84 31 2C  |OADED..".B....1,|
00000840: 48 45 00 4C 10 CA 03 84  31 2C 52 4E 00 56 10 D4  |HE.L....1,RN.V..|
00000850: 03 84 31 2C 4C 45 00 69  10 DE 03 86 48 24 28 48  |..1,LE.i....H$(H|
00000860: 45 29 2C 58 24 28 48 45  29 00 93 10 E8 03 8B 20  |E),X$(HE)...... |
00000870: 48 45 B2 30 A7 A0 31 3A  99 22 43 48 45 43 4B 20  |HE.0..1:."CHECK |
00000880: 44 49 53 4B 20 44 52 49  56 45 22 3A 8D 32 32 38  |DISK DRIVE":.228|
00000890: 30 3A 8A 00 BB 10 F2 03  4D 58 B2 B5 28 28 B8 28  |0:......MX..((.(|
000008A0: 30 29 AB 33 30 30 29 AD  28 28 31 35 29 AA 28 28  |0).300).((15).((|
000008B0: 48 45 AB 31 29 AC 4C 45  29 29 29 00 D5 10 F6 03  |HE.1).LE))).....|
000008C0: 4C 43 B2 31 32 3A 8B 4D  58 B1 35 30 30 A7 20 4D  |LC.12:.MX.500. M|
000008D0: 58 B2 35 30 30 00 E4 10  F8 03 8B 48 45 B2 31 A7  |X.500......HE.1.|
000008E0: 31 30 33 30 00 05 11 FC  03 4C 49 B2 B5 28 36 38  |1030.....LI..(68|
000008F0: AD 28 48 45 AB 31 29 29  3A 8B 4C 49 B1 31 39 A7  |.(HE.1)):.LI.19.|
00000900: 4C 49 B2 31 39 00 16 11  FE 03 8B 4D 58 B1 B2 52  |LI.19......MX..R|
00000910: 4E A7 31 30 33 30 00 4B  11 00 04 99 22 93 49 4E  |N.1030.K....".IN|
00000920: 53 55 46 46 49 43 49 45  4E 54 20 4D 45 4D 4F 52  |SUFFICIENT MEMOR|
00000930: 59 20 54 4F 20 4C 4F 41  44 20 45 4E 54 49 52 45  |Y TO LOAD ENTIRE|
00000940: 20 44 41 54 41 42 41 53  45 2E 22 00 6A 11 02 04  | DATABASE.".j...|
00000950: 99 22 11 11 43 4F 4E 54  49 4E 55 45 20 4C 4F 41  |."..CONTINUE LOA|
00000960: 44 3F 28 59 20 4F 52 20  4E 29 00 7F 11 03 04 8D  |D?(Y OR N)......|
00000970: 20 32 32 39 30 3A 8B 43  24 B2 22 4E 22 A7 8A 00  | 2290:.C$."N"...|
00000980: 91 11 04 04 8B 43 24 B3  B1 22 59 22 A7 31 30 32  |.....C$.."Y".102|
00000990: 37 00 AA 11 05 04 52 4E  B2 4D 58 3A 99 22 93 4C  |7.....RN.MX:.".L|
000009A0: 4F 41 44 49 4E 47 2E 2E  2E 22 00 C1 11 06 04 86  |OADING..."......|
000009B0: 52 24 28 4D 58 2C 48 45  29 2C 53 42 25 28 4D 58  |R$(MX,HE),SB%(MX|
000009C0: 29 00 CD 11 10 04 81 49  B2 31 A4 48 45 00 DA 11  |)......I.1.HE...|
000009D0: 1A 04 84 31 2C 48 24 28  49 29 00 E0 11 24 04 82  |...1,H$(I)...$..|
000009E0: 00 F4 11 2E 04 81 49 B2  31 A4 52 4E 3A 81 4A B2  |......I.1.RN:.J.|
000009F0: 31 A4 48 45 00 01 12 33  04 53 42 25 28 49 29 B2  |1.HE...3.SB%(I).|
00000A00: 49 00 15 12 38 04 84 31  2C 52 24 28 53 42 25 28  |I...8..1,R$(SB%(|
00000A10: 49 29 2C 4A 29 00 21 12  42 04 82 4A 2C 49 3A A0  |I),J).!.B..J,I:.|
00000A20: 31 00 39 12 47 04 81 49  B2 52 4E A4 4D 58 3A 53  |1.9.G..I.RN.MX:S|
00000A30: 42 25 28 49 29 B2 49 3A  82 00 42 12 4C 04 89 34  |B%(I).I:..B.L..4|
00000A40: 38 30 00 4F 12 56 04 8F  20 2A 20 44 55 4D 50 00  |80.O.V.. * DUMP.|
00000A50: 65 12 60 04 99 22 93 22  3A 97 42 4B 2C 35 39 3A  |e.`..".":.BK,59:|
00000A60: 89 32 35 33 30 00 77 12  6A 04 99 22 12 C4 D5 CD  |.2530.w.j.."....|
00000A70: D0 A0 C6 C9 CC C5 22 00  90 12 74 04 8D 32 33 33  |......"...t..233|
00000A80: 30 3A 8B 43 24 B3 B1 C7  28 31 33 29 A7 34 38 30  |0:.C$...(13).480|
00000A90: 00 AE 12 7E 04 9F 31 2C  31 2C 31 3A 99 22 11 11  |...~..1,1,1:."..|
00000AA0: D3 41 56 49 4E 47 20 4C  4F 47 2E 2E 2E 22 00 B8  |.AVING LOG..."..|
00000AB0: 12 88 04 98 31 2C 48 45  00 C2 12 92 04 98 31 2C  |....1,HE......1,|
00000AC0: 52 4E 00 CC 12 9C 04 98  31 2C 4C 45 00 E3 12 A6  |RN......1,LE....|
00000AD0: 04 81 49 B2 31 A4 48 45  3A 98 31 2C 48 24 28 49  |..I.1.HE:.1,H$(I|
00000AE0: 29 3A 82 00 F7 12 B0 04  81 49 B2 31 A4 52 4E 3A  |):.......I.1.RN:|
00000AF0: 81 4A B2 31 A4 48 45 00  0B 13 BA 04 98 31 2C 52  |.J.1.HE......1,R|
00000B00: 24 28 53 42 25 28 49 29  2C 4A 29 00 17 13 C4 04  |$(SB%(I),J).....|
00000B10: 82 4A 2C 49 3A A0 31 00  20 13 CE 04 89 34 38 30  |.J,I:.1. ....480|
00000B20: 00 2E 13 D8 04 8F 20 2A  20 50 52 49 4E 54 00 3E  |...... * PRINT.>|
00000B30: 13 E2 04 99 22 93 22 3A  97 42 4B 2C 35 39 00 4C  |....".":.BK,59.L|
00000B40: 13 EC 04 8B 52 4E B2 30  A7 34 38 30 00 5E 13 F6  |....RN.0.480.^..|
00000B50: 04 99 22 12 D0 D2 C9 CE  D4 A0 CC CF C7 22 00 84  |..".........."..|
00000B60: 13 00 05 99 22 11 11 11  28 46 31 29 20 D3 43 52  |...."...(F1) .CR|
00000B70: 45 45 4E 22 3A 99 22 28  46 33 29 20 D0 52 49 4E  |EEN":."(F3) .RIN|
00000B80: 54 45 52 22 00 8F 13 0A  05 8D 20 32 32 39 30 00  |TER"...... 2290.|
00000B90: A9 13 14 05 8B 43 24 B2  C7 28 31 33 33 29 A7 50  |.....C$..(133).P|
00000BA0: 52 B2 30 3A 89 31 33 36  30 00 C3 13 1E 05 8B 43  |R.0:.1360......C|
00000BB0: 24 B2 C7 28 31 33 34 29  A7 50 52 B2 31 3A 89 31  |$..(134).PR.1:.1|
00000BC0: 33 33 30 00 CD 13 28 05  89 31 32 39 30 00 FE 13  |330...(..1290...|
00000BD0: 32 05 99 22 93 12 D0 D2  C9 CE D4 C5 D2 3A 92 22  |2..".........:."|
00000BE0: 3A 99 3A 99 22 05 C2 45  20 53 55 52 45 20 50 52  |:.:."..E SURE PR|
00000BF0: 49 4E 54 45 52 20 49 53  20 4F 4E 2E 1F 22 00 0D  |INTER IS ON.."..|
00000C00: 14 3C 05 99 3A 99 3A 8D  20 32 32 38 30 00 20 14  |.<..:.:. 2280. .|
00000C10: 41 05 8B 43 24 B3 B1 C7  28 31 33 29 A7 34 38 30  |A..C$...(13).480|
00000C20: 00 29 14 46 05 9F 34 2C  34 00 38 14 50 05 8B 48  |.).F..4,4.8.P..H|
00000C30: 45 B2 31 A7 31 33 37 30  00 4B 14 5A 05 8B 50 52  |E.1.1370.K.Z..PR|
00000C40: A7 8D 32 36 36 30 3A 89  34 38 30 00 5D 14 64 05  |..2660:.480.].d.|
00000C50: 49 B2 52 4E 3A 97 36 35  30 2C 31 32 38 00 6C 14  |I.RN:.650,128.l.|
00000C60: 6E 05 99 22 93 22 3A 8D  32 33 37 30 00 8D 14 78  |n..".":.2370...x|
00000C70: 05 99 22 50 52 45 53 53  20 12 2B 92 20 12 2D 92  |.."PRESS .+. .-.|
00000C80: 20 4F 52 20 12 52 45 54  55 52 4E 92 22 00 AD 14  | OR .RETURN."...|
00000C90: 82 05 8D 32 32 39 30 3A  8B 43 24 B2 C7 28 31 33  |...2290:.C$..(13|
00000CA0: 29 A7 97 36 35 30 2C 30  3A 89 34 38 30 00 C1 14  |)..650,0:.480...|
00000CB0: 8C 05 8B 20 43 24 B2 22  2B 22 A7 20 49 B2 49 AA  |... C$."+". I.I.|
00000CC0: 31 00 D5 14 96 05 8B 20  43 24 B2 22 2D 22 A7 20  |1...... C$."-". |
00000CD0: 49 B2 49 AB 31 00 E9 14  A0 05 8B 20 49 B3 31 A7  |I.I.1...... I.1.|
00000CE0: 49 B2 31 3A 8D 33 32 30  30 00 FF 14 AA 05 8B 20  |I.1:.3200...... |
00000CF0: 49 B1 52 4E A7 49 B2 52  4E 3A 8D 33 32 30 30 00  |I.RN.I.RN:.3200.|
00000D00: 09 15 B4 05 89 31 33 39  30 00 15 15 BE 05 8F 20  |.....1390...... |
00000D10: 2A 20 41 44 44 00 39 15  C8 05 99 22 93 22 C7 28  |* ADD.9....".".(|
00000D20: 31 34 32 29 3A 97 42 4B  2C 35 39 3A 43 24 B2 22  |142):.BK,59:C$."|
00000D30: 22 3A A0 34 3A 50 52 B2  30 00 4B 15 D2 05 99 22  |":.4:PR.0.K...."|
00000D40: 12 4C 4F 47 20 43 41 4C  4C 53 22 00 87 15 DC 05  |.LOG CALLS".....|
00000D50: 52 4E B2 52 4E AA 31 3A  8B 52 4E B1 4D 58 A7 99  |RN.RN.1:.RN.MX..|
00000D60: 22 12 11 4D 45 4D 4F 52  59 20 46 55 4C 4C 22 3A  |"..MEMORY FULL":|
00000D70: 81 49 B2 31 A4 35 30 30  3A 82 3A 52 4E B2 52 4E  |.I.1.500:.:RN.RN|
00000D80: AB 31 3A 89 34 38 30 00  AA 15 E6 05 99 22 11 11  |.1:.480......"..|
00000D90: 49 4E 50 55 54 20 43 41  4C 4C 28 4F 52 20 52 45  |INPUT CALL(OR RE|
00000DA0: 54 55 52 4E 29 22 3A 85  43 24 00 C2 15 F0 05 8B  |TURN)":.C$......|
00000DB0: 43 24 B2 22 22 A7 52 4E  B2 52 4E AB 31 3A 89 34  |C$."".RN.RN.1:.4|
00000DC0: 38 30 00 F4 15 FA 05 8B  C3 28 43 24 29 B1 4C 43  |80.......(C$).LC|
00000DD0: A7 99 22 54 4F 4F 20 4C  4F 4E 47 2C 20 54 52 59  |.."TOO LONG, TRY|
00000DE0: 20 41 47 41 49 4E 2E 22  3A 43 24 B2 22 22 3A 89  | AGAIN.":C$."":.|
00000DF0: 31 35 31 30 00 06 16 04  06 8B 43 24 B2 22 22 A7  |1510......C$."".|
00000E00: 43 24 B2 22 92 22 00 1B  16 0E 06 52 24 28 53 42  |C$.".".....R$(SB|
00000E10: 25 28 52 4E 29 2C 31 29  B2 43 24 00 25 16 18 06  |%(RN),1).C$.%...|
00000E20: 89 32 39 36 30 00 34 16  22 06 8F 20 2A 20 43 48  |.2960.4.".. * CH|
00000E30: 41 4E 47 45 00 48 16 2C  06 99 22 93 22 3A 97 42  |ANGE.H.,..".":.B|
00000E40: 4B 2C 35 39 3A 49 B2 30  00 5F 16 36 06 99 22 12  |K,59:I.0._.6..".|
00000E50: C3 C8 C1 CE C7 C5 A0 C1  A0 D2 C5 C3 CF D2 C4 00  |................|
00000E60: 7C 16 40 06 99 22 11 11  11 D7 48 49 43 48 20 52  ||.@.."....HICH R|
00000E70: 45 43 4F 52 44 20 23 22  3B 3A 85 49 00 8E 16 4A  |ECORD #";:.I...J|
00000E80: 06 8B 49 B2 30 B0 49 B1  52 4E A7 34 38 30 00 A3  |..I.0.I.RN.480..|
00000E90: 16 54 06 99 22 93 22 C7  28 31 34 32 29 3A 8D 32  |.T..".".(142):.2|
00000EA0: 33 37 30 00 C9 16 5E 06  99 22 43 48 41 4E 47 45  |370...^.."CHANGE|
00000EB0: 20 54 48 49 53 20 4F 4E  45 3F 20 20 20 20 20 20  | THIS ONE?      |
00000EC0: 28 59 20 4F 52 20 4E 29  22 00 D3 16 68 06 8D 32  |(Y OR N)"...h..2|
00000ED0: 32 39 30 00 E4 16 72 06  8B 43 24 B2 22 59 22 A7  |290...r..C$."Y".|
00000EE0: 31 36 38 30 00 F4 16 7C  06 8B 43 24 B2 22 4E 22  |1680...|..C$."N"|
00000EF0: A7 34 38 30 00 FE 16 86  06 89 31 36 34 30 00 10  |.480......1640..|
00000F00: 17 90 06 81 4A B2 31 A4  48 45 3A 43 24 B2 22 22  |....J.1.HE:C$.""|
00000F10: 00 35 17 9A 06 99 22 93  22 48 24 28 4A 29 3A 99  |.5...."."H$(J):.|
00000F20: 22 20 20 22 52 24 28 53  42 25 28 49 29 2C 4A 29  |"  "R$(SB%(I),J)|
00000F30: 3A 99 22 13 22 00 52 17  A4 06 85 43 24 3A 8B 4A  |:.".".R....C$:.J|
00000F40: B1 31 AF C3 28 43 24 29  B3 B2 4C 45 20 A7 31 37  |.1..(C$)..LE .17|
00000F50: 34 30 00 6A 17 AE 06 8B  4A B2 31 AF C3 28 43 24  |40.j....J.1..(C$|
00000F60: 29 B3 B2 4C 43 A7 31 37  34 30 00 74 17 B8 06 89  |)..LC.1740.t....|
00000F70: 31 36 39 30 00 7F 17 C2  06 99 C3 28 43 24 29 00  |1690.......(C$).|
00000F80: 94 17 CC 06 8B 20 43 24  B2 22 22 20 A7 20 43 24  |..... C$."" . C$|
00000F90: B2 22 92 22 00 A8 17 D6  06 52 24 28 53 42 25 28  |.".".....R$(SB%(|
00000FA0: 49 29 2C 4A 29 B2 43 24  00 AF 17 E0 06 82 4A 00  |I),J).C$......J.|
00000FB0: D6 17 EA 06 99 22 93 22  3A 8D 32 33 37 30 3A 99  |.....".":.2370:.|
00000FC0: 22 11 43 48 41 4E 47 45  20 4F 4B 20 28 59 20 4F  |".CHANGE OK (Y O|
00000FD0: 52 20 4E 29 3F 22 00 EC  17 F4 06 8D 32 32 39 30  |R N)?"......2290|
00000FE0: 3A 8B 43 24 B2 22 59 22  A7 34 38 30 00 FD 17 FE  |:.C$."Y".480....|
00000FF0: 06 8B 43 24 B2 22 4E 22  A7 31 36 32 30 00 07 18  |..C$."N".1620...|
00001000: 08 07 89 31 37 38 30 00  16 18 12 07 8F 20 2A 20  |...1780...... * |
00001010: 52 45 4D 4F 56 45 00 2A  18 1C 07 99 22 93 22 3A  |REMOVE.*....".":|
00001020: 97 42 4B 2C 35 39 3A 49  B2 30 00 41 18 26 07 99  |.BK,59:I.0.A.&..|
00001030: 22 12 D2 C5 CD CF D6 C5  A0 C1 A0 D2 C5 C3 CF D2  |"...............|
00001040: C4 00 5E 18 30 07 99 22  11 11 11 D7 48 49 43 48  |..^.0.."....HICH|
00001050: 20 52 45 43 4F 52 44 20  23 22 3B 3A 85 49 00 70  | RECORD #";:.I.p|
00001060: 18 3A 07 8B 49 B2 30 B0  49 B1 52 4E A7 34 38 30  |.:..I.0.I.RN.480|
00001070: 00 85 18 44 07 99 22 93  22 C7 28 31 34 32 29 3A  |...D..".".(142):|
00001080: 8D 32 33 37 30 00 AB 18  4E 07 99 22 52 45 4D 4F  |.2370...N.."REMO|
00001090: 56 45 20 54 48 49 53 20  4F 4E 45 3F 20 20 20 20  |VE THIS ONE?    |
000010A0: 20 20 28 59 20 4F 52 20  4E 29 22 00 B5 18 58 07  |  (Y OR N)"...X.|
000010B0: 8D 32 32 39 30 00 C6 18  62 07 8B 43 24 B2 22 59  |.2290...b..C$."Y|
000010C0: 22 A7 31 39 32 30 00 D6  18 6C 07 8B 43 24 B2 22  |".1920...l..C$."|
000010D0: 4E 22 A7 34 38 30 00 E0  18 76 07 89 31 38 38 30  |N".480...v..1880|
000010E0: 00 FC 18 80 07 99 22 93  22 3A 8D 31 39 32 35 3A  |......".":.1925:|
000010F0: 52 4E B2 52 4E AB 31 3A  89 34 38 30 00 09 19 85  |RN.RN.1:.480....|
00001100: 07 8B 20 49 B2 4D 58 A7  8E 00 20 19 8A 07 58 B2  |.. I.MX... ...X.|
00001110: 53 42 25 28 49 29 3A 81  4A B2 49 A4 52 4E AB 31  |SB%(I):.J.I.RN.1|
00001120: 00 3C 19 8F 07 99 22 13  57 4F 52 4B 49 4E 47 2E  |.<....".WORKING.|
00001130: 2E 20 20 20 20 9D 9D 9D  9D 22 3B 4A 00 50 19 94  |.    ....";J.P..|
00001140: 07 53 42 25 28 4A 29 B2  53 42 25 28 4A AA 31 29  |.SB%(J).SB%(J.1)|
00001150: 00 57 19 9E 07 82 4A 00  65 19 A3 07 53 42 25 28  |.W....J.e...SB%(|
00001160: 52 4E 29 B2 58 00 6B 19  A8 07 8E 00 78 19 B2 07  |RN).X.k.....x...|
00001170: 8F 20 2A 20 53 4F 52 54  00 88 19 BC 07 99 22 93  |. * SORT......".|
00001180: 22 3A 97 42 4B 2C 35 39  00 A6 19 C6 07 99 22 12  |":.BK,59......".|
00001190: D3 CF D2 D4 22 3A 8B 48  45 B2 31 A7 49 B2 48 45  |....":.HE.1.I.HE|
000011A0: 3A 89 32 30 33 30 00 C6  19 D0 07 99 22 11 11 22  |:.2030......".."|
000011B0: 3A 81 49 B2 31 A4 48 45  3A 99 49 22 29 20 22 48  |:.I.1.HE:.I") "H|
000011C0: 24 28 49 29 3A 82 00 E2  19 DA 07 99 22 11 D3 4F  |$(I):......."..O|
000011D0: 52 54 20 42 59 3F 20 28  31 20 54 4F 22 48 45 22  |RT BY? (1 TO"HE"|
000011E0: 29 22 00 F4 19 E4 07 8D  32 32 39 30 3A 49 B2 C5  |)"......2290:I..|
000011F0: 28 43 24 29 00 06 1A EE  07 8B 49 B3 31 B0 49 B1  |(C$)......I.1.I.|
00001200: 48 45 A7 34 38 30 00 0F  1A F8 07 99 22 93 22 00  |HE.480......".".|
00001210: 28 1A 16 08 4B B2 B5 28  52 4E AD 32 29 AA 31 3A  |(...K..(RN.2).1:|
00001220: 4C B2 52 4E 3A 4D B2 30  00 36 1A 20 08 8B 4B B2  |L.RN:M.0.6. ..K.|
00001230: 31 A7 32 31 30 30 00 4F  1A 2A 08 4B B2 4B AB 31  |1.2100.O.*.K.K.1|
00001240: 3A 58 B2 53 42 25 28 4B  29 3A 89 32 31 32 30 00  |:X.SB%(K):.2120.|
00001250: 6A 1A 34 08 58 B2 53 42  25 28 4C 29 3A 53 42 25  |j.4.X.SB%(L):SB%|
00001260: 28 4C 29 B2 53 42 25 28  31 29 00 88 1A 3E 08 4C  |(L).SB%(1)...>.L|
00001270: B2 4C AB 31 3A 8B 4C B3  31 A7 53 42 25 28 4D 29  |.L.1:.L.1.SB%(M)|
00001280: B2 58 3A 89 32 32 30 30  00 90 1A 48 08 4A B2 4B  |.X:.2200...H.J.K|
00001290: 00 9E 1A 52 08 4D B2 4A  3A 4A B2 4A AA 4A 00 BA  |...R.M.J:J.J.J..|
000012A0: 1A 57 08 99 22 13 D3 4F  52 54 49 4E 47 2E 2E 20  |.W.."..ORTING.. |
000012B0: 20 20 20 9D 9D 9D 9D 22  3B 4A 00 D2 1A 5C 08 8B  |   ....";J...\..|
000012C0: 4A B1 4C A7 53 42 25 28  4D 29 B2 58 3A 89 32 30  |J.L.SB%(M).X:.20|
000012D0: 38 30 00 FE 1A 66 08 8B  4A B3 4C A7 8B 52 24 28  |80...f..J.L..R$(|
000012E0: 53 42 25 28 4A 29 2C 49  29 B3 52 24 28 53 42 25  |SB%(J),I).R$(SB%|
000012F0: 28 4A AA 31 29 2C 49 29  A7 4A B2 4A AA 31 00 28  |(J.1),I).J.J.1.(|
00001300: 1B 6B 08 8B 52 24 28 58  2C 49 29 B1 B2 52 24 28  |.k..R$(X,I)..R$(|
00001310: 53 42 25 28 4A 29 2C 49  29 A7 53 42 25 28 4D 29  |SB%(J),I).SB%(M)|
00001320: B2 58 3A 89 32 30 38 30  00 40 1B 70 08 53 42 25  |.X:.2080.@.p.SB%|
00001330: 28 4D 29 B2 53 42 25 28  4A 29 3A 89 32 31 33 30  |(M).SB%(J):.2130|
00001340: 00 5E 1B 8E 08 8F 2D 2D  4D 4F 56 45 53 20 23 20  |.^....--MOVES # |
00001350: 54 4F 20 45 4E 44 20 4F  46 20 46 49 4C 45 00 6B  |TO END OF FILE.k|
00001360: 1B 98 08 8B 49 B1 31 A7  34 38 30 00 7A 1B 9D 08  |....I.1.480.z...|
00001370: 8B 20 52 4E B2 30 A7 34  38 30 00 9A 1B A2 08 8B  |. RN.0.480......|
00001380: C8 28 52 24 28 53 42 25  28 49 29 2C 31 29 2C 31  |.(R$(SB%(I),1),1|
00001390: 29 B1 B2 22 41 22 A7 34  38 30 00 A4 1B B6 08 8D  |).."A".480......|
000013A0: 31 39 33 30 00 AE 1B CA  08 89 32 32 31 30 00 BE  |1930......2210..|
000013B0: 1B D4 08 8F 20 2A 20 47  45 54 20 43 48 52 00 D5  |.... * GET CHR..|
000013C0: 1B DE 08 A1 43 24 3A 8B  50 52 A7 43 24 B2 C7 28  |....C$:.PR.C$..(|
000013D0: 31 33 29 3A 8E 00 F3 1B  E8 08 99 22 50 52 45 53  |13):......."PRES|
000013E0: 53 20 12 52 45 54 55 52  4E 92 20 54 4F 20 43 4F  |S .RETURN. TO CO|
000013F0: 4E 54 2E 00 08 1C F2 08  A1 43 24 3A 8B 43 24 B3  |NT.......C$:.C$.|
00001400: B1 22 22 A7 32 32 39 30  00 1C 1C FC 08 A1 43 24  |."".2290......C$|
00001410: 3A 8B 43 24 B2 22 22 A7  32 33 30 30 00 22 1C 06  |:.C$."".2300."..|
00001420: 09 8E 00 38 1C 10 09 8F  20 2A 20 54 41 50 45 20  |...8.... * TAPE |
00001430: 4D 45 53 53 41 47 45 53  00 53 1C 1A 09 99 22 11  |MESSAGES.S....".|
00001440: C9 4E 53 45 52 54 20 C4  C1 D4 C1 20 54 41 50 45  |.NSERT .... TAPE|
00001450: 20 49 4E 00 6C 1C 24 09  99 22 43 41 53 53 45 54  | IN.l.$.."CASSET|
00001460: 54 45 20 26 20 52 45 57  49 4E 44 2E 00 76 1C 2E  |TE & REWIND..v..|
00001470: 09 89 32 32 37 30 00 8D  1C 38 09 8F 20 2A 20 50  |..2270...8.. * P|
00001480: 52 49 4E 54 20 31 20 52  45 43 4F 52 44 00 B1 1C  |RINT 1 RECORD...|
00001490: 42 09 99 C7 28 31 34 32  29 22 1F 52 45 43 4F 52  |B...(142)".RECOR|
000014A0: 44 20 23 22 49 22 11 90  22 3A 81 4B B2 31 A4 48  |D #"I"..":.K.1.H|
000014B0: 45 00 D0 1C 4C 09 99 22  9C 22 48 24 28 4B 29 3A  |E...L.."."H$(K):|
000014C0: 99 22 90 22 52 24 28 53  42 25 28 49 29 2C 4B 29  |."."R$(SB%(I),K)|
000014D0: 00 D7 1C 56 09 82 4B 00  DD 1C 60 09 8E 00 F0 1C  |...V..K...`.....|
000014E0: 6A 09 8F 20 2D 2D 20 54  41 50 45 2F 44 49 53 4B  |j.. -- TAPE/DISK|
000014F0: 00 02 1D 74 09 99 22 93  CC 4F 41 44 20 46 52 4F  |...t.."..OAD FRO|
00001500: 4D 3A 00 1C 1D 7E 09 99  22 11 12 D4 92 41 50 45  |M:...~.."....APE|
00001510: 20 4F 52 20 12 C4 92 49  53 4B 3F 22 00 27 1D 88  | OR ...ISK?".'..|
00001520: 09 8D 20 32 32 39 30 00  3E 1D 92 09 8B 43 24 B2  |.. 2290.>....C$.|
00001530: 22 54 22 B0 43 24 B2 22  D4 22 A7 39 32 30 00 56  |"T".C$.".".920.V|
00001540: 1D 9C 09 8B 43 24 B2 22  44 22 B0 43 24 B2 22 C4  |....C$."D".C$.".|
00001550: 22 A7 32 34 38 30 00 5F  1D A6 09 89 32 35 30 00  |".2480._....250.|
00001560: 82 1D B0 09 46 49 24 B2  22 22 3A 99 22 11 C9 4E  |....FI$."":."..N|
00001570: 50 55 54 20 46 49 4C 45  4E 41 4D 45 22 3A 85 46  |PUT FILENAME":.F|
00001580: 49 24 00 92 1D BA 09 8B  46 49 24 B2 22 22 A7 32  |I$......FI$."".2|
00001590: 35 30 00 AA 1D C4 09 46  4C 24 B2 22 30 3A 22 AA  |50.....FL$."0:".|
000015A0: 46 49 24 AA 22 2C 53 2C  52 22 00 B9 1D CE 09 9F  |FI$.",S,R"......|
000015B0: 31 2C 38 2C 32 2C 46 4C  24 00 D1 1D D8 09 99 22  |1,8,2,FL$......"|
000015C0: 11 CC 4F 41 44 49 4E 47  2E 2E 2E 22 3A 89 39 36  |..OADING...":.96|
000015D0: 30 00 E1 1D E2 09 99 22  93 C4 55 4D 50 20 54 4F  |0......"..UMP TO|
000015E0: 3A 00 FB 1D EC 09 99 22  11 12 D4 92 41 50 45 20  |:......"....APE |
000015F0: 4F 52 20 12 C4 92 49 53  4B 3F 22 00 05 1E F6 09  |OR ...ISK?".....|
00001600: 8D 32 32 39 30 00 1D 1E  00 0A 8B 43 24 B2 22 54  |.2290......C$."T|
00001610: 22 B0 43 24 B2 22 D4 22  A7 31 31 34 30 00 35 1E  |".C$.".".1140.5.|
00001620: 0A 0A 8B 43 24 B2 22 44  22 B0 43 24 B2 22 C4 22  |...C$."D".C$."."|
00001630: A7 32 35 39 30 00 3E 1E  14 0A 89 34 38 30 00 54  |.2590.>....480.T|
00001640: 1E 1E 0A 99 22 11 C9 4E  50 55 54 20 C6 49 4C 45  |...."..NPUT .ILE|
00001650: 4E 41 4D 45 00 7B 1E 28  0A 99 22 28 4F 52 20 D2  |NAME.{.(.."(OR .|
00001660: C5 D4 D5 D2 CE 29 22 3A  99 22 20 20 22 46 49 24  |.....)":."  "FI$|
00001670: 3A 99 22 91 22 3B 3A 85  46 49 24 00 8B 1E 32 0A  |:.".";:.FI$...2.|
00001680: 8B 46 49 24 B2 22 22 A7  34 38 30 00 A4 1E 3C 0A  |.FI$."".480...<.|
00001690: 46 4C 24 B2 22 40 30 3A  22 AA 46 49 24 AA 22 2C  |FL$."@0:".FI$.",|
000016A0: 53 2C 57 22 00 B4 1E 46  0A 9F 20 31 2C 38 2C 32  |S,W"...F.. 1,8,2|
000016B0: 2C 46 4C 24 00 D1 1E 50  0A 99 22 11 D3 41 56 49  |,FL$...P.."..AVI|
000016C0: 4E 47 20 46 49 4C 45 2E  2E 2E 22 3A 89 31 31 36  |NG FILE...":.116|
000016D0: 30 00 ED 1E 5A 0A 8F 20  2D 2D 20 50 52 49 4E 54  |0...Z.. -- PRINT|
000016E0: 45 52 20 52 4F 55 54 49  4E 45 20 2D 2D 00 FE 1E  |ER ROUTINE --...|
000016F0: 64 0A 98 34 2C 3A 4B B2  31 3A 50 31 B2 30 00 38  |d..4,:K.1:P1.0.8|
00001700: 1F 6E 0A 43 24 B2 22 C3  C3 C3 C3 C3 C3 C3 C3 C3  |.n.C$.".........|
00001710: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00001720: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 22 3A  |..............":|
00001730: 43 24 B2 43 24 AA 43 24  00 74 1F 78 0A 98 34 2C  |C$.C$.C$.t.x..4,|
00001740: C7 28 31 34 29 3B C7 28  31 36 29 22 30 37 22 3B  |.(14);.(16)"07";|
00001750: 22 2A 2A 20 4C 4F 47 20  46 4F 52 20 41 4D 41 54  |"** LOG FOR AMAT|
00001760: 5C 52 20 52 41 44 49 4F  20 53 54 41 54 49 4F 4E  |\R RADIO STATION|
00001770: 20 2A 2A 22 00 AA 1F 82  0A 98 34 2C C7 28 31 36  | **"......4,.(16|
00001780: 29 22 30 37 22 3B 22 2D  2D 2D 2D 2D 2D 2D 2D 2D  |)"07";"---------|
00001790: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000017A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 00 C3 1F 8C 0A 8B  |---------"......|
000017B0: 48 45 B2 31 A7 50 32 B2  B5 28 52 4E AD 31 36 32  |HE.1.P2..(RN.162|
000017C0: 29 AA 31 00 DB 1F 96 0A  8B 48 45 B1 31 A7 50 32  |).1......HE.1.P2|
000017D0: B2 B5 28 52 4E AD 35 34  29 AA 31 00 E7 1F A0 0A  |..(RN.54).1.....|
000017E0: 50 31 B2 50 31 AA 31 00  1F 20 AA 0A 98 34 2C C7  |P1.P1.1.. ...4,.|
000017F0: 28 31 35 29 3A 98 34 2C  22 46 4F 52 20 43 41 4C  |(15):.4,"FOR CAL|
00001800: 4C 3A 20 22 43 39 24 C7  28 31 36 29 22 36 34 22  |L: "C9$.(16)"64"|
00001810: 3B 22 50 41 47 45 22 50  31 22 4F 46 22 50 32 00  |;"PAGE"P1"OF"P2.|
00001820: 31 20 B4 0A 98 34 3A 8B  48 45 B2 31 A7 32 38 39  |1 ...4:.HE.1.289|
00001830: 30 00 3F 20 BE 0A 98 34  2C 48 24 28 31 29 3B 00  |0.? ...4,H$(1);.|
00001840: 4B 20 C8 0A 81 49 B2 32  A4 48 45 00 63 20 D2 0A  |K ...I.2.HE.c ..|
00001850: 41 24 B2 C4 28 28 28 49  AB 32 29 AC 4C 49 29 AA  |A$..(((I.2).LI).|
00001860: 4C 43 29 00 72 20 DC 0A  41 24 B2 C9 28 41 24 2C  |LC).r ..A$..(A$,|
00001870: 32 29 00 8B 20 E6 0A 98  34 2C C7 28 31 36 29 41  |2).. ...4,.(16)A|
00001880: 24 3B 48 24 28 49 29 3B  3A 82 49 00 98 20 F0 0A  |$;H$(I);:.I.. ..|
00001890: 98 34 3A 98 34 2C 43 24  00 B9 20 FA 0A 81 49 B2  |.4:.4,C$.. ...I.|
000018A0: 4B A4 4B AA 35 34 3A 8B  49 B1 52 4E A7 49 B2 4B  |K.K.54:.I.RN.I.K|
000018B0: AA 35 34 3A 89 32 38 37  30 00 CE 20 04 0B 98 34  |.54:.2870.. ...4|
000018C0: 2C 52 24 28 53 42 25 28  49 29 2C 31 29 3B 00 DA  |,R$(SB%(I),1);..|
000018D0: 20 0E 0B 81 4A B2 32 A4  48 45 00 F2 20 18 0B 41  | ...J.2.HE.. ..A|
000018E0: 24 B2 C4 28 28 28 4A AB  32 29 AC 4C 49 29 AA 4C  |$..(((J.2).LI).L|
000018F0: 43 29 00 01 21 22 0B 41  24 B2 C9 28 41 24 2C 32  |C)..!".A$..(A$,2|
00001900: 29 00 21 21 2C 0B 98 34  2C C7 28 31 36 29 41 24  |).!!,..4,.(16)A$|
00001910: 3B 52 24 28 53 42 25 28  49 29 2C 4A 29 3B 3A 82  |;R$(SB%(I),J);:.|
00001920: 4A 00 3A 21 36 0B 98 34  3A 82 49 3A 4B B2 4B AA  |J.:!6..4:.I:K.K.|
00001930: 35 34 3A 8B 4B B1 52 4E  A7 8E 00 51 21 40 0B 81  |54:.K.RN...Q!@..|
00001940: 4A B2 31 A4 34 3A 98 34  3A 82 4A 3A 89 32 36 38  |J.1.4:.4:.J:.268|
00001950: 30 00 7A 21 4A 0B 98 34  2C 48 24 28 31 29 C7 28  |0.z!J..4,H$(1).(|
00001960: 31 36 29 22 32 36 22 48  24 28 31 29 C7 28 31 36  |16)"26"H$(1).(16|
00001970: 29 22 35 32 22 48 24 28  31 29 00 84 21 54 0B 98  |)"52"H$(1)..!T..|
00001980: 34 2C 43 24 00 A9 21 5E  0B 81 49 B2 4B A4 4B AA  |4,C$..!^..I.K.K.|
00001990: 31 35 36 A9 33 3A 8B 49  B1 52 4E A7 49 B2 4B AA  |156.3:.I.RN.I.K.|
000019A0: 31 35 36 3A 89 32 39 33  30 00 EF 21 68 0B 98 34  |156:.2930..!h..4|
000019B0: 2C 52 24 28 53 42 25 28  49 29 2C 31 29 3B C7 28  |,R$(SB%(I),1);.(|
000019C0: 31 36 29 22 32 36 22 3B  52 24 28 53 42 25 28 49  |16)"26";R$(SB%(I|
000019D0: AA 31 29 2C 31 29 3B C7  28 31 36 29 22 35 32 22  |.1),1);.(16)"52"|
000019E0: 3B 52 24 28 53 42 25 28  49 AA 32 29 2C 31 29 00  |;R$(SB%(I.2),1).|
000019F0: 06 22 72 0B 82 49 3A 4B  B2 4B AA 31 35 36 3A 8B  |."r..I:K.K.156:.|
00001A00: 4B B1 52 4E A7 8E 00 1D  22 7C 0B 81 4A B2 31 A4  |K.RN...."|..J.1.|
00001A10: 36 3A 98 34 3A 82 4A 3A  89 32 36 38 30 00 35 22  |6:.4:.J:.2680.5"|
00001A20: 86 0B 8F 20 2D 2D 20 43  48 45 43 4B 20 44 55 50  |... -- CHECK DUP|
00001A30: 45 53 20 2D 2D 00 6B 22  90 0B 44 55 B2 30 3A 81  |ES --.k"..DU.0:.|
00001A40: 49 B2 30 A4 52 4E AB 31  3A 8B 43 24 B2 52 24 28  |I.0.RN.1:.C$.R$(|
00001A50: 53 42 25 28 49 29 2C 31  29 A7 8D 33 31 30 30 3A  |SB%(I),1)..3100:|
00001A60: 44 55 B2 31 3A 49 B2 52  4E AB 31 00 75 22 9A 0B  |DU.1:I.RN.1.u"..|
00001A70: 99 22 13 22 49 00 90 22  A4 0B 82 49 3A 8B 44 55  |."."I.."...I:.DU|
00001A80: B2 35 A7 52 4E B2 52 4E  AB 31 3A 89 31 34 38 30  |.5.RN.RN.1:.1480|
00001A90: 00 BD 22 AE 0B 97 33 36  38 37 38 2C 31 35 3A 97  |.."...36878,15:.|
00001AA0: 33 36 38 37 36 2C 32 33  35 3A 81 49 B2 31 A4 31  |36876,235:.I.1.1|
00001AB0: 30 30 3A 82 3A 97 33 36  38 37 38 2C 30 00 F5 22  |00:.:.36878,0.."|
00001AC0: B8 0B 99 22 93 11 11 11  11 11 11 11 11 11 4F 4B  |..."..........OK|
00001AD0: 20 54 4F 20 57 4F 52 4B  20 22 43 24 3A 99 22 11  | TO WORK "C$:.".|
00001AE0: 43 4F 4D 50 4C 45 54 45  20 51 53 4F 3F 28 59 20  |COMPLETE QSO?(Y |
00001AF0: 4F 52 20 4E 29 00 15 23  C2 0B 8D 32 32 39 30 3A  |OR N)..#...2290:|
00001B00: 8B 43 24 B2 22 4E 22 A7  52 4E B2 52 4E AB 31 3A  |.C$."N".RN.RN.1:|
00001B10: 89 31 34 38 30 00 27 23  CC 0B 8B 43 24 B3 B1 22  |.1480.'#...C$.."|
00001B20: 59 22 A7 33 30 31 30 00  36 23 D6 0B 8B 48 45 B2  |Y".3010.6#...HE.|
00001B30: 31 A7 31 34 38 30 00 54  23 E0 0B 99 22 11 49 4E  |1.1480.T#...".IN|
00001B40: 50 55 54 3A 11 22 3A 81  49 B2 32 A4 48 45 3A 43  |PUT:.":.I.2.HE:C|
00001B50: 24 B2 22 22 00 63 23 EA  0B 99 48 24 28 49 29 3A  |$."".c#...H$(I):|
00001B60: 85 43 24 00 8F 23 F4 0B  8B C3 28 43 24 29 B1 4C  |.C$..#....(C$).L|
00001B70: 45 20 A7 99 22 54 4F 4F  20 4C 4F 4E 47 2C 20 54  |E .."TOO LONG, T|
00001B80: 52 59 20 41 47 41 49 4E  22 3A 89 33 30 35 30 00  |RY AGAIN":.3050.|
00001B90: A1 23 FE 0B 8B 43 24 B2  22 22 A7 43 24 B2 22 92  |.#...C$."".C$.".|
00001BA0: 22 00 BF 23 08 0C 52 24  28 53 42 25 28 52 4E 29  |"..#..R$(SB%(RN)|
00001BB0: 2C 49 29 B2 43 24 3A 82  49 3A 89 31 34 38 30 00  |,I).C$:.I:.1480.|
00001BC0: D0 23 12 0C 8F 20 2D 2D  20 44 55 50 45 20 2D 2D  |.#... -- DUPE --|
00001BD0: 00 DA 23 1C 0C 8D 33 32  30 30 00 F7 23 3A 0C 99  |..#...3200..#:..|
00001BE0: 22 93 11 11 11 11 11 22  43 24 22 20 44 55 50 4C  |"......"C$" DUPL|
00001BF0: 49 43 41 54 45 21 22 00  0E 24 3F 0C 99 22 11 1F  |ICATE!"..$?.."..|
00001C00: 52 45 43 4F 52 44 20 23  22 49 22 90 11 22 00 1D  |RECORD #"I".."..|
00001C10: 24 44 0C 8B 48 45 B2 31  A7 33 31 36 30 00 3C 24  |$D..HE.1.3160.<$|
00001C20: 4E 0C 99 3A 81 4A B2 32  A4 48 45 3A 99 52 24 28  |N..:.J.2.HE:.R$(|
00001C30: 53 42 25 28 49 29 2C 4A  29 3A 82 4A 00 5B 24 58  |SB%(I),J):.J.[$X|
00001C40: 0C 99 22 11 11 50 52 45  53 53 20 52 45 54 55 52  |.."..PRESS RETUR|
00001C50: 4E 2E 22 3A 8D 32 32 39  30 3A 8E 00 74 24 80 0C  |N.":.2290:..t$..|
00001C60: 97 33 36 38 37 38 2C 31  35 3A 97 33 36 38 37 36  |.36878,15:.36876|
00001C70: 2C 31 36 30 00 84 24 8A  0C 81 4A B2 31 A4 32 30  |,160..$...J.1.20|
00001C80: 30 3A 82 4A 00 91 24 94  0C 97 33 36 38 37 36 2C  |0:.J..$...36876,|
00001C90: 30 00 97 24 9E 0C 8E 00  00 00 FF 4B              |0..$.......K    |

....D.. VIC LOG 2.9.".N.. (C) 1982.8.X..
 KINETIC DESIGNS.>.....S.... * INITIAL M
ENU.`...BK.36879.R. .."."G(14)G(8).}....
BK,59......".   << MICRO-LOG >> "......"
.....          A.I.H.."  RADIO LOG SYSTE
M...R.."         FOR......"..       VIC-
20.)........."......       (C)1982":."  
 KINETIC DESIGNS".9....I.1.2000:..H....:
BK.36879.].... --- CALL SIGN:.P...C9$."R
RRRRRRR".Z.... ---..."..".."G(14):. BK,1
10...,..".AMATEUR LOGGING SYSTEM"...1...
....".(C) KINETIC DESIGNS":CM$."LPDCRSQ"
...6.."..LOAD:"...@..".F1) NEW FILE...J.
."F3) EXISTING FILE".8.T.."..PRESS FUNCT
ION KEY..[.^.."......(TURN UP VOLUME ON 
TV).O.H..C$:.C$.."".360.}.R..36878,15...
|..C$:.I:.I..1..:I.0......I.0.I.50:.410.
.....36876,225.X....J.1.I:.J:.36876,0:.J
.1.50:.J......C$."".380......C$.G(133).6
80......C$.G(134).2420.9.B.. 150,50,150,
50,0,150,150,50,150,,0,-1.B.L..360.W.V..
 * COMMAND MENU.V...."."G(14);:. BK,76: 
4:PR.0......".RECORDS:"RN"MAX:"MX......"
..COMMANDS:......".(L) LOG CALLS.L...."(
P) PRINT LOG......"(D) DUMP FILE......"(
C) CHANGE CALL...&.."(R) REMOVE CALL. .0
.."(S) SORT FILE./.:.."(Q) QUIT.M.D.."..
COMMAND ?":. 2290:J.0.P.N..I.1.C(CM$):.J
(CM$,I,1).C$.J.I.V.X.....B..J.0.480...L.
.J.1480,1250,1120,1580,1820,1980,630.J.V
..".ARE YOU SURE? (Y OR N).T....2290....
..C$."Y".."."G(142)G(9):.BK,27:.......48
0...... * NEW FILE.$...."..":. BK,59.@..
..".START NEW FILE":HE.1.J...."USE OPTIO
NAL HEADINGS?":."(Y OR N)"...F..2290:LC.
12:.C$."N"..H$(1),X$(1):.850...P..C$.."Y
".250.U.Z.HE.0:."HOW MANY HEADINGS?":."(
1 TO 8)";:.HE......HE.1.HE.8.250.....HE.
HE.1. ....H$(HE),X$(HE):.G(142)".INPUT N
AME OF:".,....I.2.HE.N...."HEADING "I.1"
...#.";:.H$(I).`....H$(I)."".250......C(
H$(I)).7..".TOO LONG, 7 CHRS MAX..":.775
......I... ..G(14)".INPUT MAXIMUM NUMBER
.S.*.."OF CHARACTERS IN ONE...4.LI..(68.
(HE.1)):.LI.19.LI.19...>.."ENTRY.(2 TO"L
I")";.%.H..LE:.LE.2.LE.LI.830.M.R.MX..((
.(0).300).((15).((HE.1).LE))).`.F..MX.50
0.MX.500.W.P..R$(MX,HE),SB%(MX)...U..".S
TAND BY...":.I.1.MX:SB%(I).I:....Z.H$(1)
."CALL"......1480.P.... * LOAD TAPE FILE
......"..":. BK,59......".LOAD FILE FROM
 TAPE......2330:.C$..G(13).250.8....1:."
.VIC'S GETTING LOADED..".B....1,HE.L.J..
1,RN.V.T..1,LE.I....H$(HE),X$(HE)...... 
HE.0. 1:."CHECK DISK DRIVE":.2280:......
MX..((.(0).300).((15).((HE.1).LE))).U...
LC.12:.MX.500. MX.500......HE.1.1030....
.LI..(68.(HE.1)):.LI.19.LI.19......MX..R
N.1030.K....".INSUFFICIENT MEMORY TO LOA
D ENTIRE DATABASE.".J...."..CONTINUE LOA
D?(Y OR N)..... 2290:.C$."N"........C$.
."Y".1027.....RN.MX:.".LOADING...".A....
R$(MX,HE),SB%(MX).M....I.1.HE.Z....1,H$(
I)...$........I.1.RN:.J.1.HE...3.SB%(I).
I...8..1,R$(SB%(I),J).!.B..J,I: 1.9.G..I
.RN.MX:SB%(I).I:..B.L..480.O.V.. * DUMP.
E.`..".":.BK,59:.2530.W.J..".DUMP FILE".
..T..2330:.C$..G(13).480...~..1,1,1:."..
SAVING LOG..."......1,HE.B....1,RN.L....
1,LE......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.>....".":.BK,59.L
....RN.0.480.^....".PRINT LOG"......"...
(F1) SCREEN":."(F3) PRINTER"...... 2290.
.....C$.G(133).PR.0:.1360.C....C$.G(134)
.PR.1:.1330.M.(..1290...2.."..PRINTER:."
:.:.".BE SURE PRINTER IS ON.."...<..:.:.
 2280. .A..C$..G(13).480.).F..4,4.8.P..H
E.1.1370.K.Z..PR..2660:.480.].D.I.RN:.65
0,128.L.N..".":.2370...X.."PRESS .+. .-.
 OR .RETURN."......2290:.C$.G(13)..650,0
:.480.A.... C$."+". I.I.1.U.... C$."-". 
I.I.1... .. I.1.I.1:.3200...... I.RN.I.R
N:.3200......1390...... * ADD.9.H.."."G(
142):.BK,59:C$."": 4:PR.0.K.R..".LOG CAL
LS".....RN.RN.1:.RN.MX.."..MEMORY FULL":
.I.1.500:.:RN.RN.1:.480......"..INPUT CA
LL(OR RETURN)":.C$.B....C$."".RN.RN.1:.4
80......C(C$).LC.."TOO LONG, TRY AGAIN."
:C$."":.1510......C$."".C$.".".....R$(SB
%(RN),1).C$.%....2960.4.".. * CHANGE.H.,
..".":.BK,59:I.0._.6..".CHANGE A RECORD.
|.@.."...WHICH RECORD #";:.I...J..I.0.I.
RN.480...T.."."G(142):.2370.I.^.."CHANGE
 THIS ONE?      (Y OR N)".S.H..2290...R.
.C$."Y".1680...|..C$."N".480......1640..
....J.1.HE:C$."".5...."."H$(J):."  "R$(S
B%(I),J):.".".R....C$:.J.1.C(C$)..LE .17
40.J....J.1.C(C$)..LC.1740.T....1690..B
..C(C$)...L.. C$."" . C$."."...V.R$(SB%(
I),J).C$......J.V....".":.2370:.".CHANGE
 OK (Y OR N)?"......2290:.C$."Y".480....
..C$."N".1620......1780...... * REMOVE.*
....".":.BK,59:I.0.A.&..".REMOVE A RECOR
D.^.0.."...WHICH RECORD #";:.I.P.:..I.0.
I.RN.480...D.."."G(142):.2370...N.."REMO
VE THIS ONE?      (Y OR N)"...X..2290.F.
B..C$."Y".1920.V.L..C$."N".480...V..1880
......".":.1925:RN.RN.1:.480...... I.MX.
.. ...X.SB%(I):.J.I.RN.1.<....".WORKING.
.    ....";J.P...SB%(J).SB%(J.1).W....J.
E...SB%(RN).X.K.....X.... * SORT......".
":.BK,59...F..".SORT":.HE.1.I.HE:.2030.F
.P.."..":.I.1.HE:.I") "H$(I):....Z..".SO
RT BY? (1 TO"HE")"......2290:I.E(C$)....
..I.1.I.HE.480......".".(...K..(RN.2).1:
L.RN:M.0.6. ..K.1.2100.O.*.K.K.1:X.SB%(K
):.2120.J.4.X.SB%(L):SB%(L).SB%(1)...>.L
.L.1:.L.1.SB%(M).X:.2200...H.J.K...R.M.J
:J.J.J...W..".SORTING..    ....";J.R.\..
J.L.SB%(M).X:.2080...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.^....--MOVES # TO END OF FILE.K
....I.1.480.Z.... RN.0.480......H(R$(SB%
(I),1),1).."A".480......1930...J..2210..
.T.. * GET CHR.U....C$:.PR.C$.G(13):....
..."PRESS .RETURN. TO CONT.......C$:.C$.
."".2290......C$:.C$."".2300.".....8....
 * TAPE MESSAGES.S....".INSERT DATA TAPE
 IN.L.$.."CASSETTE & REWIND..V....2270..
.8.. * PRINT 1 RECORD...B..G(142)".RECOR
D #"I"..":.K.1.HE.P.L.."."H$(K):."."R$(S
B%(I),K).W.V..K...`.....J.. -- TAPE/DISK
...T..".LOAD FROM:...~.."..T.APE OR .D.I
SK?".'.... 2290.>....C$."T".C$."T".920.V
....C$."D".C$."D".2480._....250.....FI$.
"":.".INPUT FILENAME":.FI$......FI$."".2
50...D.FL$."0:".FI$.",S,R"...N..1,8,2,FL
$.Q.X..".LOADING...":.960......".DUMP TO
:......"..T.APE OR .D.ISK?"......2290...
...C$."T".C$."T".1140.5....C$."D".C$."D"
.2590.>....480.T....".INPUT FILENAME.{.(
.."(OR RETURN)":."  "FI$:.".";:.FI$...2.
.FI$."".480...<.FL$."@0:".FI$.",S,W"...F
.. 1,8,2,FL$.Q.P..".SAVING FILE...":.116
0...Z.. -- PRINTER ROUTINE --...D..4,:K.
1:P1.0.8.N.C$."CCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCC":C$.C$.C$.T.X..4,G(14);G(
16)"07";"** LOG FOR AMAT\R RADIO STATION
 **"......4,G(16)"07";"-----------------
-----------------".C....HE.1.P2..(RN.162
).1......HE.1.P2..(RN.54).1... .P1.P1.1.
. ...4,G(15):.4,"FOR CALL: "C9$G(16)"64"
;"PAGE"P1"OF"P2.1 ...4:.HE.1.2890.? ...4
,H$(1);.K H..I.2.HE.C R.A$.D(((I.2).LI).
LC).R ..A$.I(A$,2).. ...4,G(16)A$;H$(I);
:.I.. ...4:.4,C$.. ...I.K.K.54:.I.RN.I.K
.54:.2870.N ...4,R$(SB%(I),1);.Z ...J.2.
HE.. ..A$.D(((J.2).LI).LC)..!".A$.I(A$,2
).!!,..4,G(16)A$;R$(SB%(I),J);:.J.:!6..4
:.I:K.K.54:.K.RN...Q!@..J.1.4:.4:.J:.268
0.Z!J..4,H$(1)G(16)"26"H$(1)G(16)"52"H$(
1)..!T..4,C$..!^..I.K.K.156.3:.I.RN.I.K.
156:.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...."|..J.1.6:.4:.J:
.2680.5"... -- CHECK DUPES --.K"..DU.0:.
I.0.RN.1:.C$.R$(SB%(I),1)..3100:DU.1:I.R
N.1.U"..."."I.."...I:.DU.5.RN.RN.1:.1480
.."...36878,15:.36876,235:.I.1.100:.:.36
878,0.."..."..........OK TO WORK "C$:.".
COMPLETE QSO?(Y OR N)..#B..2290:.C$."N".
RN.RN.1:.1480.'#L..C$.."Y".3010.6#V..HE.
1.1480.T#...".INPUT:.":.I.2.HE:C$."".C#.
..H$(I):.C$..#...C(C$).LE .."TOO LONG, T
RY AGAIN":.3050..#...C$."".C$."."..#..R$
(SB%(RN),I).C$:.I:.1480.P#... -- DUPE --
.Z#...3200..#:.."......"C$" DUPLICATE!".
.$?.."..RECORD #"I".."..$D..HE.1.3160.<$
N..:.J.2.HE:.R$(SB%(I),J):.J.[$X.."..PRE
SS RETURN.":.2290:..T$...36878,15:.36876
,160..$...J.1.200:.J..$...36876,0..$....
...K

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL