TAGSORT 64

00000000: 01 08 1F 08 32 00 8F 20  20 2A 2A 2A 20 20 20 54  |....2..  ***   T|
00000010: 41 47 53 4F 52 54 36 34  20 20 20 20 2A 2A 2A 00  |AGSORT64    ***.|
00000020: 3D 08 3C 00 8F 20 20 2A  2A 2A 20 43 4F 50 59 52  |=.<..  *** COPYR|
00000030: 49 47 48 54 20 31 39 38  33 20 2A 2A 2A 00 5B 08  |IGHT 1983 ***.[.|
00000040: 46 00 8F 20 20 2A 2A 2A  20 50 41 55 4C 20 54 48  |F..  *** PAUL TH|
00000050: 4F 4D 50 53 4F 4E 20 20  2A 2A 2A 00 91 08 64 00  |OMPSON  ***...d.|
00000060: 86 46 24 2C 4C 4E 2C 44  2C 53 41 2C 45 41 2C 4A  |.F$,LN,D,SA,EA,J|
00000070: 2C 48 49 2C 4C 4F 2C 41  2C 5A 24 2C 48 24 2C 53  |,HI,LO,A,Z$,H$,S|
00000080: 41 24 2C 45 41 24 2C 50  52 24 2C 42 24 2C 44 56  |A$,EA$,PR$,B$,DV|
00000090: 24 00 BA 08 6E 00 85 22  93 11 11 20 12 44 92 49  |$...n.."... .D.I|
000000A0: 53 4B 20 4F 52 20 12 43  92 41 53 53 45 54 54 45  |SK OR .C.ASSETTE|
000000B0: 20 20 44 9D 9D 9D 22 3B  42 24 00 D1 08 78 00 8B  |  D...";B$...x..|
000000C0: 42 24 B3 22 43 22 B0 42  24 B1 22 44 22 A7 31 31  |B$."C".B$."D".11|
000000D0: 30 00 00 09 82 00 97 32  34 39 2C 30 3A 44 56 24  |0......249,0:DV$|
000000E0: B2 22 44 49 53 4B 22 3A  8B 42 24 B2 22 43 22 A7  |."DISK":.B$."C".|
000000F0: 97 32 34 39 2C 31 3A 44  56 24 B2 22 54 41 50 45  |.249,1:DV$."TAPE|
00000100: 00 32 09 8C 00 49 4E B2  35 32 33 37 34 3A 41 50  |.2...IN.52374:AP|
00000110: B2 49 4E AA 33 33 3A 53  56 B2 49 4E AA 32 33 34  |.IN.33:SV.IN.234|
00000120: 3A 97 31 37 37 2C 30 3A  97 32 2C 30 3A 9E 35 32  |:.177,0:.2,0:.52|
00000130: 32 35 00 65 09 96 00 4C  4E B2 34 36 36 3A 54 4D  |25.e...LN.466:TM|
00000140: B2 C2 28 35 35 29 AA 32  35 36 AC C2 28 35 36 29  |..(55).256..(56)|
00000150: 3A 53 41 B2 54 4D AB 4C  4E AB 31 3A 44 B2 53 41  |:SA.TM.LN.1:D.SA|
00000160: 3A 8D 33 30 30 00 7D 09  A0 00 99 A3 31 30 29 22  |:.300.}.....10)"|
00000170: 93 11 11 12 54 41 47 53  4F 52 54 36 34 00 BE 09  |....TAGSORT64...|
00000180: AA 00 99 22 11 11 20 12  4F 50 54 49 4F 4E 53 3A  |...".. .OPTIONS:|
00000190: 92 22 3A 99 22 11 20 12  54 92 20 20 4C 4F 43 41  |.":.". .T.  LOCA|
000001A0: 54 45 20 49 4E 20 43 55  52 52 45 4E 54 20 12 54  |TE IN CURRENT .T|
000001B0: 92 4F 50 20 4F 46 20 4D  45 4D 4F 52 59 22 00 F3  |.OP OF MEMORY"..|
000001C0: 09 B4 00 99 22 11 20 12  53 92 20 20 59 4F 55 52  |....". .S.  YOUR|
000001D0: 20 4F 57 4E 20 12 53 92  54 41 52 54 20 41 44 44  | OWN .S.TART ADD|
000001E0: 52 45 53 53 20 28 24 48  45 58 20 4F 52 20 44 45  |RESS ($HEX OR DE|
000001F0: 43 29 22 00 17 0A BE 00  99 22 11 20 12 45 92 20  |C)"......". .E. |
00000200: 20 59 4F 55 52 20 4F 57  4E 20 12 45 92 4E 44 20  | YOUR OWN .E.ND |
00000210: 41 44 44 52 45 53 53 00  40 0A C8 00 99 22 11 20  |ADDRESS.@....". |
00000220: 12 41 92 20 20 12 41 92  50 50 45 4E 44 20 54 4F  |.A.  .A.PPEND TO|
00000230: 20 50 52 4F 47 52 41 4D  20 4F 4E 20 22 44 56 24  | PROGRAM ON "DV$|
00000240: 00 77 0A D2 00 99 22 11  11 20 57 48 49 43 48 20  |.w....".. WHICH |
00000250: 4F 50 54 49 4F 4E 20 28  54 2C 53 2C 45 20 4F 52  |OPTION (T,S,E OR|
00000260: 20 41 29 20 20 20 22 C7  28 31 36 32 29 22 9D 9D  | A)   ".(162)"..|
00000270: 9D 22 3B 3A 85 5A 24 00  8A 0A DC 00 8B 5A 24 B2  |.";:.Z$......Z$.|
00000280: C7 28 31 36 32 29 A7 31  33 30 00 9A 0A E6 00 8B  |.(162).130......|
00000290: 5A 24 B2 22 54 22 A7 35  30 30 00 AA 0A F0 00 8B  |Z$."T".500......|
000002A0: 5A 24 B2 22 53 22 A7 36  30 30 00 BA 0A FA 00 8B  |Z$."S".600......|
000002B0: 5A 24 B2 22 45 22 A7 37  30 30 00 D1 0A FF 00 8B  |Z$."E".700......|
000002C0: 5A 24 B2 22 41 22 A7 20  97 32 2C 31 3A 89 34 30  |Z$."A". .2,1:.40|
000002D0: 30 00 DA 0A 04 01 89 31  33 30 00 E4 0A 2C 01 48  |0......130...,.H|
000002E0: 24 B2 22 22 00 25 0B 36  01 8B 44 A7 41 B2 B5 28  |$."".%.6..D.A..(|
000002F0: 44 AD 31 36 29 3A 48 24  B2 CA 28 22 30 31 32 33  |D.16):H$..("0123|
00000300: 34 35 36 37 38 39 41 42  43 44 45 46 22 2C 31 AA  |456789ABCDEF",1.|
00000310: 44 AB 41 AC 31 36 2C 31  29 AA 48 24 3A 44 B2 41  |D.A.16,1).H$:D.A|
00000320: 3A 89 33 31 30 00 3C 0B  40 01 8B C3 28 48 24 29  |:.310.<.@...(H$)|
00000330: B2 33 A7 48 24 B2 22 30  22 AA 48 24 00 4C 0B 4A  |.3.H$."0".H$.L.J|
00000340: 01 48 24 B2 22 24 22 AA  48 24 3A 8E 00 8B 0B 5E  |.H$."$".H$:....^|
00000350: 01 44 B2 30 3A 8B 48 24  B1 22 22 A7 81 4A B2 31  |.D.0:.H$.""..J.1|
00000360: A4 C3 28 48 24 29 3A 41  B2 C6 28 CA 28 48 24 2C  |..(H$):A..(.(H$,|
00000370: 4A 2C 31 29 29 AB 34 38  3A 44 B2 44 AC 31 36 AA  |J,1)).48:D.D.16.|
00000380: 41 AA 28 41 B1 39 29 AC  37 3A 82 00 91 0B 68 01  |A.(A.9).7:....h.|
00000390: 8E 00 9F 0B 90 01 99 22  93 22 3A 9E 20 49 4E 00  |.......".":. IN.|
000003A0: D2 0B A4 01 85 22 93 53  54 52 49 50 20 50 52 4F  |.....".STRIP PRO|
000003B0: 47 52 41 4D 20 4F 46 20  45 58 49 53 54 49 4E 47  |GRAM OF EXISTING|
000003C0: 20 41 50 50 45 4E 44 53  A0 A0 59 9D 9D 9D 22 3B  | APPENDS..Y...";|
000003D0: 5A 24 00 EC 0B A9 01 97  32 35 32 2C 30 3A 8B 5A  |Z$......252,0:.Z|
000003E0: 24 B2 22 4E 22 A7 97 32  35 32 2C 31 00 F7 0B B8  |$."N"..252,1....|
000003F0: 01 9E 20 41 50 3A 80 00  10 0C F4 01 45 41 B2 C2  |.. AP:......EA..|
00000400: 28 35 35 29 AA 32 35 36  AC C2 28 35 36 29 AB 31  |(55).256..(56).1|
00000410: 00 22 0C FE 01 53 41 B2  45 41 AB 4C 4E 3A 89 38  |."...SA.EA.LN:.8|
00000420: 30 30 00 5B 0C 58 02 99  22 93 11 53 54 41 52 54  |00.[.X.."..START|
00000430: 20 41 44 44 52 45 53 53  20 28 24 48 45 58 20 4F  | ADDRESS ($HEX O|
00000440: 52 20 44 45 43 29 20 20  20 22 C7 28 31 36 32 29  |R DEC)   ".(162)|
00000450: 22 9D 9D 9D 22 3B 3A 85  53 41 24 00 6F 0C 62 02  |"...";:.SA$.o.b.|
00000460: 8B 53 41 24 B2 C7 28 31  36 32 29 A7 36 30 30 00  |.SA$..(162).600.|
00000470: 9C 0C 6C 02 8B C8 28 53  41 24 2C 31 29 B2 22 24  |..l...(SA$,1)."$|
00000480: 22 A7 48 24 B2 CA 28 53  41 24 2C 32 29 3A 8D 33  |".H$..(SA$,2):.3|
00000490: 35 30 3A 53 41 B2 44 3A  89 36 35 30 00 D9 0C 76  |50:SA.D:.650...v|
000004A0: 02 81 4A B2 31 A4 C3 28  53 41 24 29 3A 8B CA 28  |..J.1..(SA$):..(|
000004B0: 53 41 24 2C 4A 2C 31 29  B1 22 39 22 A7 99 22 12  |SA$,J,1)."9"..".|
000004C0: 49 4C 4C 45 47 41 4C 20  53 54 41 52 54 20 41 44  |ILLEGAL START AD|
000004D0: 44 52 45 53 53 92 22 3A  80 00 E9 0C 80 02 82 3A  |DRESS.":.......:|
000004E0: 53 41 B2 C5 28 53 41 24  29 00 FB 0C 8A 02 45 41  |SA..(SA$).....EA|
000004F0: B2 53 41 AA 4C 4E 3A 89  38 30 30 00 32 0D BC 02  |.SA.LN:.800.2...|
00000500: 99 22 93 11 45 4E 44 20  41 44 44 52 45 53 53 20  |."..END ADDRESS |
00000510: 28 24 48 45 58 20 4F 52  20 44 45 43 29 20 20 20  |($HEX OR DEC)   |
00000520: 22 C7 28 31 36 32 29 22  9D 9D 9D 22 3B 3A 85 45  |".(162)"...";:.E|
00000530: 41 24 00 46 0D C6 02 8B  45 41 24 B2 C7 28 31 36  |A$.F....EA$..(16|
00000540: 32 29 A7 37 30 30 00 73  0D D0 02 8B C8 28 45 41  |2).700.s.....(EA|
00000550: 24 2C 31 29 B2 22 24 22  A7 48 24 B2 CA 28 45 41  |$,1)."$".H$..(EA|
00000560: 24 2C 32 29 3A 8D 33 35  30 3A 45 41 B2 44 3A 89  |$,2):.350:EA.D:.|
00000570: 37 35 30 00 AE 0D DA 02  81 4A B2 31 A4 C3 28 45  |750......J.1..(E|
00000580: 41 24 29 3A 8B CA 28 45  41 24 2C 4A 2C 31 29 B1  |A$):..(EA$,J,1).|
00000590: 22 39 22 A7 99 22 12 49  4C 4C 45 47 41 4C 20 45  |"9"..".ILLEGAL E|
000005A0: 4E 44 20 41 44 44 52 45  53 53 92 22 3A 80 00 BE  |ND ADDRESS.":...|
000005B0: 0D E4 02 82 3A 45 41 B2  C5 28 45 41 24 29 00 CB  |....:EA..(EA$)..|
000005C0: 0D EE 02 53 41 B2 45 41  AB 4C 4E 00 0A 0E 20 03  |...SA.EA.LN... .|
000005D0: 99 22 93 11 44 4F 20 59  4F 55 20 57 41 4E 54 20  |."..DO YOU WANT |
000005E0: 54 48 45 20 50 52 4F 47  52 41 4D 20 50 52 4F 54  |THE PROGRAM PROT|
000005F0: 45 43 54 45 44 20 20 20  22 C7 28 31 36 32 29 22  |ECTED   ".(162)"|
00000600: 9D 9D 9D 22 3B 3A 85 50  52 24 00 1E 0E 2A 03 8B  |...";:.PR$...*..|
00000610: 50 52 24 B2 C7 28 31 36  32 29 A7 38 30 30 00 4C  |PR$..(162).800.L|
00000620: 0E 34 03 48 49 B2 B5 28  53 41 AD 32 35 36 29 3A  |.4.HI..(SA.256):|
00000630: 4C 4F B2 53 41 AB 32 35  36 AC 48 49 3A 97 32 35  |LO.SA.256.HI:.25|
00000640: 30 2C 4C 4F 3A 97 32 35  31 2C 48 49 00 62 0E 3E  |0,LO:.251,HI.b.>|
00000650: 03 8B C8 28 50 52 24 2C  31 29 B2 22 4E 22 A7 39  |...(PR$,1)."N".9|
00000660: 30 30 00 87 0E 48 03 97  35 31 2C 4C 4F 3A 97 35  |00...H..51,LO:.5|
00000670: 32 2C 48 49 3A 97 35 35  2C 4C 4F 3A 97 35 36 2C  |2,HI:.55,LO:.56,|
00000680: 48 49 3A 97 32 2C 31 00  AD 0E 84 03 44 B2 53 41  |HI:.2,1.....D.SA|
00000690: 3A 8D 33 30 30 3A 53 41  24 B2 48 24 3A 44 B2 45  |:.300:SA$.H$:D.E|
000006A0: 41 3A 8D 33 30 30 3A 45  41 24 B2 48 24 00 E1 0E  |A:.300:EA$.H$...|
000006B0: 8E 03 99 22 93 22 3A 99  22 11 20 12 54 41 47 53  |...".":.". .TAGS|
000006C0: 4F 52 54 92 20 49 53 20  4C 4F 43 41 54 45 44 20  |ORT. IS LOCATED |
000006D0: 41 54 20 22 53 41 24 22  20 54 4F 20 22 45 41 24  |AT "SA$" TO "EA$|
000006E0: 22 00 F5 0E 98 03 99 22  28 22 53 41 22 54 4F 22  |"......"("SA"TO"|
000006F0: 45 41 22 29 22 00 07 0F  A2 03 99 3A 99 22 53 59  |EA")"......:."SY|
00000700: 4E 54 41 58 20 49 53 00  29 0F A4 03 99 22 53 59  |NTAX IS.)...."SY|
00000710: 53 12 22 53 41 22 9D 92  2C 4C 45 41 44 24 28 30  |S."SA"..,LEAD$(0|
00000720: 29 2C 54 41 47 25 28 30  29 00 3E 0F AC 03 9E 20  |),TAG%(0).>.... |
00000730: 53 56 3A 20 8F 20 41 4E  44 20 45 58 49 54 00 54  |SV: . AND EXIT.T|
00000740: 0F 88 13 94 22 40 30 3A  54 41 47 53 4F 52 54 36  |...."@0:TAGSORT6|
00000750: 34 22 2C 38 00 00 00 AA  AA AA AA AA AA AA AA 78  |4",8...........x|
00000760: 20 78 20 FD AE 20 8B B0  A5 0D F0 28 38 A5 47 85  | x .. .....(8.G.|
00000770: BD E9 02 85 B4 A5 48 85  BE E9 00 85 B5 A2 00 86  |......H.........|
00000780: FA 20 79 00 D0 04 E6 FA  D0 17 20 FD AE 20 8B B0  |. y....... .. ..|
00000790: A5 0E D0 05 4C 08 AF 58  60 A5 47 85 C3 A5 48 85  |....L..X`.G...H.|
000007A0: C4 38 A0 01 B1 B4 E9 01  85 61 88 B1 B4 E9 00 85  |.8.......a......|
000007B0: 62 A5 BD 85 B4 A5 BE 85  B5 A0 00 84 FC 84 FD 18  |b...............|
000007C0: A5 B4 69 03 85 B4 90 02  E6 B5 B1 B4 F0 12 E6 FC  |..i.............|
000007D0: D0 02 E6 FD A5 FD C5 62  90 E5 A5 FC C5 61 90 DF  |.......b.....a..|
000007E0: A5 FC 85 B0 A5 FD 85 B1  46 B1 66 B0 D0 04 A5 B1  |........F.f.....|
000007F0: F0 A5 A9 01 85 A7 A9 00  85 A8 38 A5 FC E5 B0 85  |..........8.....|
00000800: A9 A5 FD E5 B1 85 AA A5  A7 85 A5 A5 A8 85 A6 18  |................|
00000810: A5 A5 65 B0 85 AE A5 A6  65 B1 85 AF A9 00 F0 02  |..e.....e.......|
00000820: 90 C6 A5 A5 0A AA A5 A6  2A A8 18 8A 65 A5 AA 98  |........*...e...|
00000830: 65 A6 A8 18 8A 65 BD 85  63 98 65 BE 85 64 A5 AE  |e....e..c.e..d..|
00000840: 0A AA A5 AF 2A A8 18 8A  65 AE AA 98 65 AF A8 18  |....*...e...e...|
00000850: 8A 65 BD 85 65 98 65 BE  85 66 A0 02 B1 63 85 6A  |.e..e.e..f...c.j|
00000860: B1 65 85 6C 88 B1 63 85  69 B1 65 85 6B 88 B1 63  |.e.l..c.i.e.k..c|
00000870: D1 65 90 02 B1 65 AA A0  FF D0 08 90 8A B0 88 90  |.e...e..........|
00000880: 9F D0 8C C8 B1 69 29 7F  85 B4 B1 6B 29 7F C5 B4  |.....i)....k)...|
00000890: F0 0F 08 A5 02 F0 05 28  B0 4C D0 1B 28 90 47 D0  |.......(.L..(.G.|
000008A0: 16 CA D0 DF A0 00 B1 65  D1 63 08 A5 02 F0 05 28  |.......e.c.....(|
000008B0: B0 34 90 03 28 90 2F E6  A7 D0 02 E6 A8 A5 AA C5  |.4..(./.........|
000008C0: A8 90 BC F0 02 B0 B6 A5  A9 C5 A7 B0 B0 90 B0 38  |...............8|
000008D0: A5 A5 E5 B0 85 A5 A5 A6  E5 B1 85 A6 90 D9 D0 A1  |................|
000008E0: A5 A5 F0 D3 D0 9B A0 02  B1 63 AA B1 65 91 63 8A  |.........c..e.c.|
000008F0: 91 65 88 10 F3 A6 FA D0  D6 A5 A5 0A AA A5 A6 2A  |.e.............*|
00000900: A8 18 8A 65 C3 85 8C 98  65 C4 85 8D A5 AE 0A AA  |...e....e.......|
00000910: A5 AF 2A A8 18 8A 65 C3  85 8E 98 65 C4 85 8F A0  |..*...e....e....|
00000920: 01 B1 8C AA B1 8E 91 8C  8A 91 8E 88 10 F3 D0 9F  |................|
00000930: 00 00 00 20 88 CC A9 70  85 B4 A9 CA 85 B5 A2 2C  |... ...p.......,|
00000940: BD 5B CC 9D 00 01 CA 10  F7 4C 00 01 A5 FA 48 A5  |.[.......L....H.|
00000950: FB 48 A0 00 A6 A8 F0 0E  B1 B4 91 FA C8 D0 F9 E6  |.H..............|
00000960: B5 E6 FB CA D0 F2 A6 A7  F0 0E B1 B4 91 FA C8 CA  |................|
00000970: D0 F8 68 85 FB 68 85 FA  60 38 A9 42 E9 70 85 A7  |..h..h..`8.B.p..|
00000980: A9 CC E9 CA 85 A8 60 A9  F9 A0 CD 20 E8 CD A2 00  |......`.... ....|
00000990: 20 CF FF C9 0D F0 06 9D  16 CE E8 D0 F3 8A F0 F0  | ...............|
000009A0: 85 B7 A9 00 9D 16 CE 60  A9 01 A2 08 A0 00 20 BA  |.......`...... .|
000009B0: FF A5 B7 A2 16 A0 CE 20  BD FF A9 00 A2 01 86 FA  |....... ........|
000009C0: A0 08 84 FB 20 D5 FF B0  14 20 E7 FF 20 88 CC A5  |.... .... .. ...|
000009D0: FC F0 19 A5 2D 85 FA A5  2E 85 FB D0 2B 20 E7 FF  |....-.......+ ..|
000009E0: A9 3B A0 CF 20 E8 CD 20  96 CC F0 BC A0 01 B1 FA  |.;.. .. ........|
000009F0: F0 0B AA 88 B1 FA 85 FA  86 FB C8 D0 F1 18 A9 02  |................|
00000A00: 65 FA 85 FA 90 02 E6 FB  18 A5 FA 65 A7 85 2D A5  |e..........e..-.|
00000A10: FB 65 A8 85 2E 20 60 A6  20 45 CC A9 37 A0 CF 20  |.e... `. E..7.. |
00000A20: E8 CD A9 16 A0 CE 20 E8  CD A9 4E A0 CF 20 E8 CD  |...... ...N.. ..|
00000A30: A9 2A A0 CE 20 E8 CD A6  A7 A5 A8 20 CD BD A9 75  |.*.. ...... ...u|
00000A40: A0 CE 20 E8 CD 38 A5 2D  E5 A7 AA A5 2E E5 A8 20  |.. ..8.-....... |
00000A50: CD BD A9 8B A0 CE 20 E8  CD A9 F0 A0 CE 20 E8 CD  |...... ...... ..|
00000A60: A9 13 A0 CE 20 E8 CD A9  F9 A0 CE 20 E8 CD 4C 31  |.... ...... ..L1|
00000A70: A8 20 42 CC A9 8B A0 CE  20 E8 CD A5 02 F0 06 A9  |. B..... .......|
00000A80: B0 A0 CE D0 04 A9 CD A0  CE 20 E8 CD A9 01 A0 CF  |......... ......|
00000A90: 20 E8 CD 20 CF FF C9 0D  F0 F9 A8 20 CF FF C9 0D  | .. ....... ....|
00000AA0: D0 F9 C0 4E F0 C8 C0 59  D0 E9 A9 0D 20 D2 FF A9  |...N...Y.... ...|
00000AB0: 01 A2 08 A0 00 20 BA FF  A9 0D 85 B7 A2 2A A0 CF  |..... .......*..|
00000AC0: 20 BD FF 18 A5 FA 65 A7  AA A5 FB 65 A8 A8 A9 FA  | .....e....e....|
00000AD0: 20 D8 FF 20 E7 FF 4C 31  A8 85 64 84 65 A0 00 B1  | .. ..L1..d.e...|
00000AE0: 64 F0 06 20 D2 FF C8 D0  F6 60 41 50 50 45 4E 44  |d.. .....`APPEND|
00000AF0: 20 54 4F 20 57 48 49 43  48 20 50 52 4F 47 52 41  | TO WHICH PROGRA|
00000B00: 4D 3F 20 00 40 30 3A AA  AA AA AA AA AA AA AA AA  |M? .@0:.........|
00000B10: AA AA AA AA AA AA AA AA  AA AA AA 0D 53 59 4E 54  |............SYNT|
00000B20: 41 58 20 49 53 20 53 59  53 20 58 58 58 58 2C 4C  |AX IS SYS XXXX,L|
00000B30: 45 41 44 24 28 30 29 2C  54 41 47 25 28 30 29 0D  |EAD$(0),TAG%(0).|
00000B40: 0D 57 48 45 52 45 20 58  58 58 58 20 3D 20 12 50  |.WHERE XXXX = .P|
00000B50: 45 45 4B 28 34 35 29 2B  32 35 36 2A 50 45 45 4B  |EEK(45)+256*PEEK|
00000B60: 28 34 36 29 2D 00 0D 0D  58 58 58 58 20 49 53 20  |(46)-...XXXX IS |
00000B70: 43 55 52 52 45 4E 54 4C  59 20 12 00 0D 0D 12 50  |CURRENTLY .....P|
00000B80: 4C 45 41 53 45 20 52 45  41 44 20 49 4E 53 54 52  |LEASE READ INSTR|
00000B90: 55 43 54 49 4F 4E 53 20  46 4F 52 20 55 53 45 0D  |UCTIONS FOR USE.|
00000BA0: 00 0D 50 52 4F 47 52 41  4D 20 48 41 53 20 42 45  |..PROGRAM HAS BE|
00000BB0: 45 4E 20 50 52 4F 54 45  43 54 45 44 0D 00 0D 50  |EN PROTECTED...P|
00000BC0: 52 4F 47 52 41 4D 20 48  41 53 20 12 4E 4F 54 92  |ROGRAM HAS .NOT.|
00000BD0: 20 42 45 45 4E 20 50 52  4F 54 45 43 54 45 44 0D  | BEEN PROTECTED.|
00000BE0: 00 0D 0D 53 41 56 45 20  22 00 22 2C 38 0D 91 91  |...SAVE ".",8...|
00000BF0: 91 00 0D 53 41 56 45 20  41 53 20 12 54 41 47 53  |...SAVE AS .TAGS|
00000C00: 4F 52 54 2E 4D 43 92 20  4F 4E 20 44 49 53 4B 20  |ORT.MC. ON DISK |
00000C10: 28 59 2F 4E 29 3F 00 54  41 50 45 40 30 3A 54 41  |(Y/N)?.TAPE@0:TA|
00000C20: 47 53 4F 52 54 2E 4D 43  93 0D 12 00 0D 12 46 49  |GSORT.MC......FI|
00000C30: 4C 45 20 4E 4F 54 20 46  4F 55 4E 44 92 0D 00 92  |LE NOT FOUND....|
00000C40: 20 48 41 53 20 42 45 45  4E 20 4C 4F 41 44 45 44  | HAS BEEN LOADED|
00000C50: 0D 57 49 54 48 20 12 54  41 47 53 4F 52 54 92 20  |.WITH .TAGSORT. |
00000C60: 41 50 50 45 4E 44 45 44  0D 00 A9 70 85 FA A9 CA  |APPENDED...p....|
00000C70: 85 FB A9 60 85 B4 A9 0F  85 B5 38 A9 79 E9 70 85  |...`......8.y.p.|
00000C80: A7 A9 CF E9 CA 85 A8 A0  00 A6 A8 F0 0E B1 B4 91  |................|
00000C90: FA C8 D0 F9 E6 B5 E6 FB  CA D0 F2 A6 A7 F0 08 B1  |................|
00000CA0: B4 91 FA C8 CA D0 F8 A5  F9 F0 34 A9 01 8D BA CC  |..........4.....|
00000CB0: 8D C1 CD 8D C3 CD A9 0A  8D C8 CD A9 31 8D FB CE  |............1...|
00000CC0: A9 16 A0 CE 8D 70 CD 8C  72 CD A9 2D A0 CF 8D CC  |.....p..r..-....|
00000CD0: CD 8C CE CD A2 03 BD 26  CF 9D 1A CF CA 10 F7 60  |.......&.......`|

....2..  ***   TAGSORT64    ***.=.<..  *
** COPYRIGHT 1983 ***.[.F..  *** PAUL TH
OMPSON  ***...D..F$,LN,D,SA,EA,J,HI,LO,A
,Z$,H$,SA$,EA$,PR$,B$,DV$...N.."... .D.I
SK OR .C.ASSETTE  D...";B$.Q.X..B$."C".B
$."D".110......249,0:DV$."DISK":.B$."C".
.249,1:DV$."TAPE.2...IN.52374:AP.IN.33:S
V.IN.234:.177,0:.2,0:.5225.E...LN.466:TM
.B(55).256.B(56):SA.TM.LN.1:D.SA:.300.}.
 ...10)"....TAGSORT64......".. .OPTIONS:
.":.". .T.  LOCATE IN CURRENT .T.OP OF M
EMORY"......". .S.  YOUR OWN .S.TART ADD
RESS ($HEX OR DEC)"......". .E.  YOUR OW
N .E.ND ADDRESS.@.H..". .A.  .A.PPEND TO
 PROGRAM ON "DV$.W.R..".. WHICH OPTION (
T,S,E OR A)   "G(162)"...";:.Z$......Z$.
G(162).130......Z$."T".500......Z$."S".6
00......Z$."E".700.Q....Z$."A". .2,1:.40
0.Z....130...,.H$."".%.6..D.A..(D.16):H$
.J("0123456789ABCDEF",1.D.A.16,1).H$:D.A
:.310.<.@..C(H$).3.H$."0".H$.L.J.H$."$".
H$:....^.D.0:.H$.""..J.1.C(H$):A.F(J(H$,
J,1)).48:D.D.16.A.(A.9).7:....H........"
.":. IN.R....".STRIP PROGRAM OF EXISTING
 APPENDS  Y...";Z$......252,0:.Z$."N"..2
52,1...... AP:......EA.B(55).256.B(56).1
."...SA.EA.LN:.800.[.X.."..START ADDRESS
 ($HEX OR DEC)   "G(162)"...";:.SA$.O.B.
.SA$.G(162).600...L..H(SA$,1)."$".H$.J(S
A$,2):.350:SA.D:.650.Y.V..J.1.C(SA$):.J(
SA$,J,1)."9"..".ILLEGAL START ADDRESS.":
.......:SA.E(SA$).....EA.SA.LN:.800.2...
."..END ADDRESS ($HEX OR DEC)   "G(162)"
...";:.EA$.F.F..EA$.G(162).700.S.P..H(EA
$,1)."$".H$.J(EA$,2):.350:EA.D:.750...Z.
.J.1.C(EA$):.J(EA$,J,1)."9"..".ILLEGAL E
ND ADDRESS.":.......:EA.E(EA$).K...SA.EA
.LN... .."..DO YOU WANT THE PROGRAM PROT
ECTED   "G(162)"...";:.PR$...*..PR$.G(16
2).800.L.4.HI..(SA.256):LO.SA.256.HI:.25
0,LO:.251,HI.B.>..H(PR$,1)."N".900...H..
51,LO:.52,HI:.55,LO:.56,HI:.2,1.....D.SA
:.300:SA$.H$:D.EA:.300:EA$.H$......".":.
". .TAGSORT. IS LOCATED AT "SA$" TO "EA$
"......"("SA"TO"EA")"......:."SYNTAX IS.
)...."SYS."SA"..,LEAD$(0),TAG%(0).>.... 
SV: . AND EXIT.T...."@0:TAGSORT64",8....
.......X X .. .....(8.G.......H.........
. Y.P...P. .. ....P.L..X`.G.C.H.D8 .....
.A......B........ ........I.............
P.....EB....EA..........F.F.P...........
..8.......................E.....E.......
.F......*...E...E....E..C.E..D......*...
E...E....E..E.E..F ..C.J.E.L..C.I.E.K..C
QE...E. .P.......P.H.I)...K)E........(
.LP.(.GP.JP. ..EQC.....(.4..(./..P.....E
.........E.....8.............YP....SP. .
.C..E.C..E.....PV......*...EC...ED......
..*...EC...ED.. ..............P.... .L.P
...J...,.[L...J..L....H..H .........HP..
...JP.........HJP.H..H..`8.B.P...L.J..`.
. M .M.. O.I.....N.P..........N`.... . .
..... N ........ ... U... .. .L.....-...
...P+ ...; O .M .L.. .............HP....
E..........E..-..E... `. EL.7 O .M.. N .
M.N O .M.* N .M.... M..U N .M8.-....... 
M... N .M.. N .M.. N .M.. N .ML1. BL.. N
 .M...... NP..M N .M.. O .M O.I.... O.I.
P..N.H.YP... R..... . .......* O .....E.
...E.... X. ..L1..D.E ..D.. R.HP.`APPEND
 TO WHICH PROGRAM? .@0:.................
....SYNTAX IS SYS XXXX,LEAD$(0),TAG%(0).
.WHERE XXXX = .PEEK(45)+256*PEEK(46)-...
XXXX IS CURRENTLY .....PLEASE READ INSTR
UCTIONS FOR USE...PROGRAM HAS BEEN PROTE
CTED...PROGRAM HAS .NOT. BEEN PROTECTED.
...SAVE ".",8......SAVE AS .TAGSORT.MC. 
ON DISK (Y/N)?.TAPE@0:TAGSORT.MC......FI
LE NOT FOUND.... HAS BEEN LOADED.WITH .T
AGSORT. APPENDED...P...J...`......8.Y.P.
..O.J.. .........HP.....JP.........HJP..
..4....L.AM.CM...HM.1..N.. N.PM.RM.- O.L
M.NM...&O..OJ..`

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL