NEW.SORT
FILE INFORMATION
FILENAME(S): NEW.SORT
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 19:47:21
APPEARS ON: 1 disk(s)
FILE HASH
879df519d8fc4e10da20c3d21d447eea4f3f2b47be9b63774d2d568435420111
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK B1 2 | NEW.SORT | PRG | Curtcool, Frank | 21 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 8B 5A 5A B2 31 A7 32 37 30 00 |.......ZZ.1.270.| 00000010: 2A 08 14 00 97 35 33 32 38 30 2C 36 3A 97 35 33 |*....53280,6:.53| 00000020: 32 38 31 2C 36 3A 99 22 93 05 00 70 08 1E 00 45 |281,6:."...p...E| 00000030: 44 24 28 31 29 B2 22 43 48 41 4E 47 45 44 22 3A |D$(1)."CHANGED":| 00000040: 45 44 24 28 32 29 B2 22 44 45 4C 45 54 45 44 22 |ED$(2)."DELETED"| 00000050: 3A 45 44 24 B2 22 45 4E 44 20 4F 46 20 4C 49 53 |:ED$."END OF LIS| 00000060: 54 22 3A 53 43 B2 38 32 38 3A 53 50 B2 38 35 38 |T":SC.828:SP.858| 00000070: 00 95 08 28 00 45 44 24 28 34 29 B2 22 11 11 48 |...(.ED$(4)."..H| 00000080: 49 54 20 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 |IT ANY KEY WHEN | 00000090: 52 45 41 44 59 00 E2 08 32 00 42 4C 24 B2 22 20 |READY...2.BL$." | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 22 3A 86 41 41 24 28 31 30 | ":.AA$(10| 000000D0: 30 30 29 3A 5A 5A B2 31 3A 8D 31 35 30 3A 89 32 |00):ZZ.1:.150:.2| 000000E0: 37 30 00 F4 08 3C 00 A1 41 24 3A 8B 41 24 B2 22 |70...<..A$:.A$."| 000000F0: 22 A7 36 30 00 FF 08 46 00 8B 43 B2 30 A7 8E 00 |".60...F..C.0...| 00000100: 17 09 50 00 41 B2 C5 28 41 24 29 3A 8B 41 B3 31 |..P.A..(A$):.A.1| 00000110: B0 41 B1 43 A7 36 30 00 21 09 5A 00 43 B2 30 3A |.A.C.60.!.Z.C.0:| 00000120: 8E 00 3E 09 64 00 9F 31 35 2C 38 2C 31 35 3A 84 |..>.d..15,8,15:.| 00000130: 31 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 7D |15,A$,B$,C$,D$.}| 00000140: 09 6E 00 8B 42 24 B3 B1 22 4F 4B 22 A7 99 22 93 |.n..B$.."OK"..".| 00000150: 11 11 11 45 52 52 4F 52 3A 20 20 12 20 23 22 3B |...ERROR: . #";| 00000160: 41 24 3B 22 20 22 3B 42 24 3B 22 20 22 3A 99 45 |A$;" ";B$;" ":.E| 00000170: 44 24 28 34 29 3A 43 B2 30 3A 8D 36 30 00 87 09 |D$(4):C.0:.60...| 00000180: 78 00 A0 31 35 3A 8E 00 A7 09 82 00 81 49 B2 31 |x..15:.......I.1| 00000190: A4 31 30 30 30 3A 8B 41 41 24 28 49 29 B2 22 22 |.1000:.AA$(I).""| 000001A0: A7 49 B2 31 30 30 30 00 C2 09 8C 00 41 41 24 28 |.I.1000.....AA$(| 000001B0: 49 29 B2 22 22 3A 82 3A 4E 4E B2 30 3A 4E B2 30 |I)."":.:NN.0:N.0| 000001C0: 3A 8E 00 01 0A 96 00 99 22 93 11 1D 12 D5 22 3B |:.......".....";| 000001D0: 3A 81 49 B2 31 A4 33 35 3A 99 22 C0 22 3B 3A 82 |:.I.1.35:.".";:.| 000001E0: 3A 99 22 C9 22 3A 81 49 B2 31 A4 32 30 3A 99 22 |:.".":.I.1.20:."| 000001F0: 12 1D DD 92 22 3B A6 33 35 29 3B 22 12 DD 22 3A |....";.35);"..":| 00000200: 82 00 49 0A A0 00 99 22 1D 12 CA 22 3B 3A 81 49 |..I...."...";:.I| 00000210: B2 31 A4 33 35 3A 99 22 C0 22 3B 3A 82 3A 99 22 |.1.35:.".";:.:."| 00000220: CB 22 3A 99 22 91 91 1D 1D 1D 20 20 20 20 20 20 |.":."..... | 00000230: 20 20 20 45 4E 54 45 52 20 53 45 4C 45 43 54 49 | ENTER SELECTI| 00000240: 4F 4E 22 3A 9E 53 43 3A 8E 00 64 0A AA 00 49 4E |ON":.SC:..d...IN| 00000250: 24 B2 22 22 3A 43 51 24 B2 22 A4 20 22 3A 97 31 |$."":CQ$.". ":.1| 00000260: 39 38 2C 30 00 7A 0A B4 00 99 22 91 1D 1D 1D 3A |98,0.z...."....:| 00000270: 20 22 3B 49 4E 24 3B 43 51 24 00 8D 0A BE 00 A1 | ";IN$;CQ$......| 00000280: 43 24 3A 8B 43 24 B2 22 22 A7 31 39 30 00 AC 0A |C$:.C$."".190...| 00000290: C8 00 43 B2 C6 28 43 24 29 3A 4C B2 C3 28 49 4E |..C..(C$):L..(IN| 000002A0: 24 29 3A 8B 43 B2 31 33 A7 32 35 30 00 CD 0A D2 |$):.C.13.250....| 000002B0: 00 8B 43 B2 32 30 A7 8B 4C A7 49 4E 24 B2 C8 28 |..C.20..L.IN$..(| 000002C0: 49 4E 24 2C 4C AB 31 29 3A 89 31 38 30 00 E0 0A |IN$,L.1):.180...| 000002D0: DC 00 8B 43 B3 33 32 B0 43 B1 39 30 A7 31 38 30 |...C.32.C.90.180| 000002E0: 00 EE 0A E6 00 8B 4C B1 33 30 A7 31 38 30 00 02 |......L.30.180..| 000002F0: 0B F0 00 49 4E 24 B2 49 4E 24 AA 43 24 3A 89 31 |...IN$.IN$.C$:.1| 00000300: 38 30 00 12 0B FA 00 8B 49 4E 24 B2 22 22 A7 31 |80......IN$."".1| 00000310: 38 30 00 26 0B 04 01 49 4E B2 C5 28 49 4E 24 29 |80.&...IN..(IN$)| 00000320: 3A 43 B2 30 3A 8E 00 65 0B 0E 01 9E 53 50 3A 5A |:C.0:..e....SP:Z| 00000330: 58 B2 30 3A 4C 44 B2 30 3A 46 4C B2 30 3A 99 22 |X.0:LD.0:FL.0:."| 00000340: 13 11 11 11 1D 1D 1D 1D 1D 1D 05 20 20 20 20 20 |........... | 00000350: 46 49 4C 45 20 53 4F 52 54 20 4F 50 54 49 4F 4E |FILE SORT OPTION| 00000360: 53 20 20 20 11 00 9B 0B 18 01 99 22 11 1D 1D 1D |S ......."....| 00000370: 1D 1D 31 2E 20 43 52 45 41 54 45 22 3A 99 22 1D |..1. CREATE":.".| 00000380: 1D 1D 1D 1D 32 2E 20 4C 4F 41 44 22 3A 99 22 1D |....2. LOAD":.".| 00000390: 1D 1D 1D 1D 33 2E 20 53 41 56 45 00 CF 0B 22 01 |....3. SAVE...".| 000003A0: 99 22 1D 1D 1D 1D 1D 34 2E 20 45 44 49 54 22 3A |.".....4. EDIT":| 000003B0: 99 22 1D 1D 1D 1D 1D 35 2E 20 53 4F 52 54 22 3A |.".....5. SORT":| 000003C0: 99 22 1D 1D 1D 1D 1D 36 2E 20 50 52 49 4E 54 00 |.".....6. PRINT.| 000003D0: F6 0B 2C 01 99 22 1D 1D 1D 1D 1D 37 2E 20 41 50 |..,..".....7. AP| 000003E0: 50 45 4E 44 22 3A 99 22 1D 1D 1D 1D 1D 38 2E 20 |PEND":.".....8. | 000003F0: 4D 4F 44 49 46 59 00 24 0C 36 01 99 22 1D 1D 1D |MODIFY.$.6.."...| 00000400: 1D 1D 39 2E 20 44 49 53 4B 20 4D 41 49 4E 54 45 |..9. DISK MAINTE| 00000410: 4E 41 4E 43 45 22 3A 99 22 1D 1D 1D 1D 1D 30 2E |NANCE":.".....0.| 00000420: 20 45 4E 44 00 37 0C 40 01 A1 41 24 3A 8B 41 24 | END.7.@..A$:.A$| 00000430: B2 22 22 A7 33 32 30 00 50 0C 4A 01 41 B2 C5 28 |."".320.P.J.A..(| 00000440: 41 24 29 3A 8B 41 B3 30 B0 41 B1 39 A7 33 32 30 |A$):.A.0.A.9.320| 00000450: 00 65 0C 54 01 8B 41 B2 30 AF 41 24 B3 B1 22 30 |.e.T..A.0.A$.."0| 00000460: 22 A7 33 32 30 00 72 0C 5E 01 8B 41 B2 30 A7 33 |".320.r.^..A.0.3| 00000470: 39 30 00 80 0C 68 01 8B 41 B2 39 A7 31 30 32 30 |90...h..A.9.1020| 00000480: 00 B5 0C 72 01 8B 41 B1 32 AF 46 24 B2 22 22 A7 |...r..A.2.F$."".| 00000490: 99 22 93 11 11 4E 4F 20 46 49 4C 45 20 4C 4F 41 |."...NO FILE LOA| 000004A0: 44 45 44 22 3A 81 49 B2 31 A4 31 30 30 30 3A 82 |DED":.I.1.1000:.| 000004B0: 3A 89 32 37 30 00 DF 0C 7C 01 91 41 89 34 36 30 |:.270...|..A.460| 000004C0: 2C 35 30 30 2C 31 30 33 30 2C 36 34 30 2C 34 30 |,500,1030,640,40| 000004D0: 30 2C 31 30 30 30 2C 35 30 30 2C 31 30 31 30 00 |0,1000,500,1010.| 000004E0: F4 0C 86 01 99 22 93 11 11 47 4F 4F 44 2D 42 59 |....."...GOOD-BY| 000004F0: 45 22 3A 80 00 27 0D 90 01 8B 4E B2 30 A7 99 22 |E":..'....N.0.."| 00000500: 93 11 11 4E 4F 20 45 4E 54 52 49 45 53 20 54 4F |...NO ENTRIES TO| 00000510: 20 53 4F 52 54 22 3A 81 49 B2 31 A4 31 30 30 30 | SORT":.I.1.1000| 00000520: 3A 82 3A 89 32 37 30 00 46 0D 9A 01 99 22 93 11 |:.:.270.F...."..| 00000530: 11 11 11 53 4F 52 54 49 4E 47 22 3B 4E 3B 22 45 |...SORTING";N;"E| 00000540: 4E 54 52 49 45 53 00 88 0D A4 01 9E 34 39 31 35 |NTRIES......4915| 00000550: 32 2C 4E 2C 41 41 24 28 31 29 3A 8B 41 41 24 28 |2,N,AA$(1):.AA$(| 00000560: 31 29 B2 22 22 A7 41 41 24 28 31 29 B2 41 41 24 |1)."".AA$(1).AA$| 00000570: 28 4E 29 3A 41 41 24 28 4E 29 B2 22 22 3A 4E B2 |(N):AA$(N)."":N.| 00000580: 4E AB 31 3A 89 34 32 30 00 C8 0D AE 01 8B 41 41 |N.1:.420......AA| 00000590: 24 28 31 29 B3 B1 22 22 AF C6 28 41 41 24 28 31 |$(1)..""..(AA$(1| 000005A0: 29 29 B2 33 32 A7 41 41 24 28 31 29 B2 41 41 24 |)).32.AA$(1).AA$| 000005B0: 28 4E 29 3A 41 41 24 28 4E 29 B2 22 22 3A 4E B2 |(N):AA$(N)."":N.| 000005C0: 4E AB 31 3A 89 34 32 30 00 D4 0D B8 01 8B 46 4C |N.1:.420......FL| 000005D0: B2 31 A7 8E 00 DD 0D C2 01 89 32 37 30 00 11 0E |.1........270...| 000005E0: CC 01 9E 53 50 3A 99 22 13 11 11 11 1D 1D 1D 20 |...SP:."....... | 000005F0: 20 20 20 20 20 20 43 52 45 41 54 45 20 4E 45 57 | CREATE NEW| 00000600: 20 46 49 4C 45 22 3A 8B 46 24 B2 22 22 A7 34 39 | FILE":.F$."".49| 00000610: 30 00 4E 0E D6 01 99 22 11 11 1D 1D 1D 54 48 45 |0.N....".....THE| 00000620: 20 43 55 52 52 45 4E 54 20 46 49 4C 45 20 49 4E | CURRENT FILE IN| 00000630: 20 4D 45 4D 4F 52 59 20 49 53 3A 22 3A 99 22 11 | MEMORY IS:":.".| 00000640: 1D 1D 1D 12 20 20 22 3B 46 24 3B 22 20 20 00 83 |.... ";F$;" ..| 00000650: 0E E0 01 99 22 11 11 1D 1D 1D 43 4C 45 41 52 20 |....".....CLEAR | 00000660: 54 48 49 53 20 46 49 4C 45 20 20 28 59 2F 4E 29 |THIS FILE (Y/N)| 00000670: 3F 22 3A 8D 36 30 3A 8B 41 24 B3 B1 22 59 22 A7 |?":.60:.A$.."Y".| 00000680: 32 37 30 00 CF 0E EA 01 8D 31 33 30 3A 99 22 11 |270......130:.".| 00000690: 11 1D 1D 1D 45 4E 54 45 52 20 4E 45 57 20 46 49 |....ENTER NEW FI| 000006A0: 4C 45 20 4E 41 4D 45 11 11 22 3A 8D 31 37 30 3A |LE NAME..":.170:| 000006B0: 46 24 B2 49 4E 24 3A 41 41 24 28 30 29 B2 46 24 |F$.IN$:AA$(0).F$| 000006C0: 3A 46 4C B2 31 3A 4E 46 B2 31 3A 89 36 34 30 00 |:FL.1:NF.1:.640.| 000006D0: F9 0E F4 01 5A 58 B2 31 3A 4C 44 B2 31 3A 4C 44 |....ZX.1:LD.1:LD| 000006E0: 24 B2 22 4C 4F 41 44 22 3A 8B 41 B2 37 A7 4C 44 |$."LOAD":.A.7.LD| 000006F0: 24 B2 22 41 50 50 45 4E 44 00 27 0F FE 01 9E 53 |$."APPEND.'....S| 00000700: 50 3A 99 22 13 11 11 11 1D 1D 1D 1D 1D 20 20 20 |P:."......... | 00000710: 20 20 20 20 20 22 3B 4C 44 24 3B 22 20 4F 50 54 | ";LD$;" OPT| 00000720: 49 4F 4E 53 20 20 20 00 61 0F 08 02 99 22 11 11 |IONS .a...."..| 00000730: 1D 1D 1D 1D 1D 20 31 2E 20 42 59 20 46 49 4C 45 |..... 1. BY FILE| 00000740: 20 4E 41 4D 45 22 3A 99 22 11 1D 1D 1D 1D 1D 20 | NAME":."...... | 00000750: 32 2E 20 46 52 4F 4D 20 44 49 52 45 43 54 4F 52 |2. FROM DIRECTOR| 00000760: 59 00 92 0F 12 02 99 22 11 1D 1D 1D 1D 1D 20 33 |Y......"...... 3| 00000770: 2E 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 43 B2 33 |. MAIN MENU":C.3| 00000780: 3A 41 41 B2 41 3A 8D 36 30 3A 42 B2 41 3A 41 B2 |:AA.A:.60:B.A:A.| 00000790: 41 41 00 CB 0F 1C 02 8B 41 B2 37 AF 42 B2 32 A7 |AA......A.7.B.2.| 000007A0: 99 22 93 11 43 41 4E 4E 4F 54 20 55 53 45 20 44 |."..CANNOT USE D| 000007B0: 49 52 45 43 54 4F 52 59 20 4C 4F 41 44 20 44 55 |IRECTORY LOAD DU| 000007C0: 52 49 4E 47 20 41 50 50 45 4E 44 00 0C 10 26 02 |RING APPEND...&.| 000007D0: 8B 41 B2 37 AF 42 B2 32 A7 99 22 11 46 4F 52 20 |.A.7.B.2..".FOR | 000007E0: 49 54 20 57 49 4C 4C 20 45 52 41 53 45 20 43 55 |IT WILL ERASE CU| 000007F0: 52 52 45 4E 54 20 46 49 4C 45 22 3A 81 49 B2 31 |RRENT FILE":.I.1| 00000800: A4 32 30 30 30 3A 82 3A 89 32 37 30 00 20 10 30 |.2000:.:.270. .0| 00000810: 02 91 42 89 35 37 30 2C 31 30 32 30 2C 32 37 30 |..B.570,1020,270| 00000820: 00 67 10 3A 02 99 22 11 11 1D 1D 1D 45 4E 54 45 |.g.:..".....ENTE| 00000830: 52 20 46 49 4C 45 20 4E 41 4D 45 20 54 4F 20 42 |R FILE NAME TO B| 00000840: 45 20 22 3B 4C 44 24 3B 22 45 44 22 3A 99 22 11 |E ";LD$;"ED":.".| 00000850: 22 3A 8D 31 37 30 3A 46 24 B2 49 4E 24 3A 41 41 |":.170:F$.IN$:AA| 00000860: 24 28 30 29 B2 46 24 00 A4 10 44 02 44 46 B2 30 |$(0).F$...D.DF.0| 00000870: 3A 9F 31 2C 38 2C 32 2C 46 24 3A 99 22 11 1D 1D |:.1,8,2,F$:."...| 00000880: 1D 22 3B 4C 44 24 3B 22 49 4E 47 3A 20 20 12 22 |.";LD$;"ING: ."| 00000890: 3B 46 24 3A 41 5A B2 31 3A 8B 41 B2 37 A7 41 5A |;F$:AZ.1:.A.7.AZ| 000008A0: B2 4E AA 31 00 D5 10 4E 02 81 49 B2 41 5A A4 31 |.N.1...N..I.AZ.1| 000008B0: 30 30 30 3A 84 31 2C 50 24 3A 41 41 24 28 49 29 |000:.1,P$:AA$(I)| 000008C0: B2 50 24 3A 8B 53 54 B3 B1 30 A7 4E B2 49 3A 49 |.P$:.ST..0.N.I:I| 000008D0: B2 31 30 30 30 00 FE 10 58 02 82 3A A0 31 3A 8D |.1000...X..:.1:.| 000008E0: 31 30 30 3A 8B 42 24 B3 B1 22 4F 4B 22 AF 5A 24 |100:.B$.."OK".Z$| 000008F0: B2 22 2F 22 A7 4E B2 4E 4E 3A 89 36 34 30 00 10 |."/".N.NN:.640..| 00000900: 11 62 02 8B 42 24 B3 B1 22 4F 4B 22 A7 32 37 30 |.b..B$.."OK".270| 00000910: 00 3A 11 6C 02 8B 41 41 24 28 4E AA 31 29 B3 B1 |.:.l..AA$(N.1)..| 00000920: 22 22 A7 81 49 B2 4E AA 31 A4 31 30 30 30 3A 41 |""..I.N.1.1000:A| 00000930: 41 24 28 49 29 B2 22 22 3A 82 00 43 11 76 02 89 |A$(I)."":..C.v..| 00000940: 32 37 30 00 51 11 80 02 4E 4E B2 4E 3A 4E B2 31 |270.Q...NN.N:N.1| 00000950: 30 00 97 11 8A 02 99 22 93 11 20 20 20 20 20 20 |0......".. | 00000960: 20 20 20 20 12 20 20 20 20 45 44 49 54 20 4F 50 | . EDIT OP| 00000970: 54 49 4F 4E 53 20 20 20 20 22 3A 99 22 11 46 4F |TIONS ":.".FO| 00000980: 52 20 46 49 4C 45 3A 20 20 12 20 20 22 3B 46 24 |R FILE: . ";F$| 00000990: 3B 22 20 20 22 3A 99 00 A6 11 94 02 8B 4E B3 31 |;" ":.......N.1| 000009A0: 30 A7 4E B2 31 30 00 B9 11 9E 02 8B 4E B1 31 30 |0.N.10......N.10| 000009B0: 30 30 A7 4E B2 31 30 30 30 00 E3 11 A8 02 81 4A |00.N.1000......J| 000009C0: B2 28 4E AB 39 29 A4 4E 3A 4A 24 B2 C4 28 4A 29 |.(N.9).N:J$..(J)| 000009D0: 3A 8B C3 28 4A 24 29 B2 32 A7 4A 24 B2 22 20 22 |:..(J$).2.J$." "| 000009E0: AA 4A 24 00 23 12 B2 02 99 4A 24 3B 22 20 2D 20 |.J$.#....J$;" - | 000009F0: 22 3B 41 41 24 28 4A 29 3A 82 3A 99 3A 99 22 50 |";AA$(J):.:.:."P| 00000A00: 52 45 53 53 11 9D 9D 9D 9D 9D 12 4E 92 20 46 4F |RESS.......N. FO| 00000A10: 52 20 4E 45 58 54 20 53 43 52 45 45 4E 22 3B A6 |R NEXT SCREEN";.| 00000A20: 33 29 3B 00 48 12 BC 02 99 22 12 4C 92 20 46 4F |3);.H....".L. FO| 00000A30: 52 20 4C 41 53 54 20 53 43 52 45 45 4E 22 3A 8B |R LAST SCREEN":.| 00000A40: 46 4C B2 31 A7 37 34 30 00 7E 12 C6 02 99 22 12 |FL.1.740.~....".| 00000A50: 41 92 20 54 4F 20 41 44 44 20 20 20 20 20 20 20 |A. TO ADD | 00000A60: 20 20 22 3B A6 33 29 3B 3A 99 22 12 44 92 20 54 | ";.3);:.".D. T| 00000A70: 4F 20 44 45 4C 45 54 45 20 20 20 20 20 20 00 B4 |O DELETE ..| 00000A80: 12 D0 02 99 22 12 43 92 20 54 4F 20 43 48 41 4E |....".C. TO CHAN| 00000A90: 47 45 20 20 20 20 20 20 22 3B A6 33 29 3B 3A 99 |GE ";.3);:.| 00000AA0: 22 12 2F 92 20 54 4F 20 4C 4F 41 44 20 20 20 20 |"./. TO LOAD | 00000AB0: 20 20 20 20 00 D4 12 DA 02 99 22 12 53 92 20 54 | ......".S. T| 00000AC0: 4F 20 53 4F 52 54 20 20 20 20 20 20 20 20 22 3B |O SORT ";| 00000AD0: A6 33 29 3B 00 F9 12 E4 02 99 22 12 58 92 20 54 |.3);......".X. T| 00000AE0: 4F 20 45 58 49 54 20 20 20 20 20 20 20 20 22 3A |O EXIT ":| 00000AF0: 8B 46 4C B2 31 A7 37 38 30 00 0F 13 EE 02 8B 45 |.FL.1.780......E| 00000B00: 44 B2 31 A7 5A 24 B2 22 43 22 3A 89 38 33 30 00 |D.1.Z$."C":.830.| 00000B10: 25 13 F8 02 8B 45 44 B2 32 A7 5A 24 B2 22 44 22 |%....ED.2.Z$."D"| 00000B20: 3A 89 38 34 30 00 3E 13 02 03 5A 24 B2 22 22 3A |:.840.>...Z$."":| 00000B30: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 37 37 30 00 4E |.Z$:.Z$."".770.N| 00000B40: 13 0C 03 8B 46 4C B2 31 A7 5A 24 B2 22 41 00 6C |....FL.1.Z$."A.l| 00000B50: 13 16 03 8B 5A 24 B2 22 41 22 A7 4E 4E B2 4E 4E |....Z$."A".NN.NN| 00000B60: AA 31 3A 46 4C B2 31 3A 89 38 38 30 00 84 13 20 |.1:FL.1:.880... | 00000B70: 03 8B 5A 24 B2 22 4E 22 A7 4E B2 4E AA 31 30 3A |..Z$."N".N.N.10:| 00000B80: 89 36 35 30 00 9C 13 2A 03 8B 5A 24 B2 22 4C 22 |.650...*..Z$."L"| 00000B90: A7 4E B2 4E AB 31 30 3A 89 36 35 30 00 BE 13 34 |.N.N.10:.650...4| 00000BA0: 03 8B 5A 24 B2 22 53 22 A7 9E 34 39 31 35 32 2C |..Z$."S"..49152,| 00000BB0: 4E 4E 2C 41 41 24 28 31 29 3A 89 36 35 30 00 D4 |NN,AA$(1):.650..| 00000BC0: 13 3E 03 8B 5A 24 B2 22 43 22 A7 45 44 B2 31 3A |.>..Z$."C".ED.1:| 00000BD0: 89 39 33 30 00 EA 13 48 03 8B 5A 24 B2 22 44 22 |.930...H..Z$."D"| 00000BE0: A7 45 44 B2 32 3A 89 39 33 30 00 2E 14 52 03 8B |.ED.2:.930...R..| 00000BF0: 5A 24 B2 22 2F 22 A7 99 22 11 4C 4F 41 44 20 57 |Z$."/"..".LOAD W| 00000C00: 48 49 43 48 20 46 49 4C 45 20 23 11 11 22 3A 8D |HICH FILE #..":.| 00000C10: 31 37 30 3A 46 24 B2 41 41 24 28 49 4E 29 3A 4C |170:F$.AA$(IN):L| 00000C20: 44 24 B2 22 4C 4F 41 44 22 3A 89 35 38 30 00 49 |D$."LOAD":.580.I| 00000C30: 14 5C 03 8B 5A 24 B2 22 58 22 A7 4E B2 4E 4E 3A |.\..Z$."X".N.NN:| 00000C40: 45 44 B2 30 3A 89 32 37 30 00 52 14 66 03 89 37 |ED.0:.270.R.f..7| 00000C50: 37 30 00 94 14 70 03 5A 24 B2 22 22 3A 99 22 11 |70...p.Z$."":.".| 00000C60: 45 4E 54 52 59 20 4E 55 4D 42 45 52 22 3B 4E 4E |ENTRY NUMBER";NN| 00000C70: 3A 99 22 11 22 3A 8D 31 37 30 3A 5A 24 B2 49 4E |:.".":.170:Z$.IN| 00000C80: 24 3A 8B 5A 24 B2 22 22 A7 99 22 91 91 91 22 3A |$:.Z$."".."...":| 00000C90: 89 38 38 30 00 B2 14 7A 03 8B 5A 24 B2 22 58 22 |.880...z..Z$."X"| 00000CA0: A7 4E 4E B2 4E 4E AB 31 3A 4E B2 4E 4E 3A 89 32 |.NN.NN.1:N.NN:.2| 00000CB0: 37 30 00 CB 14 84 03 8B 5A 24 B2 22 4E 22 A7 4E |70......Z$."N".N| 00000CC0: 4E B2 4E 4E AB 31 3A 89 38 30 30 00 E4 14 8E 03 |N.NN.1:.800.....| 00000CD0: 8B 5A 24 B2 22 4C 22 A7 4E 4E B2 4E 4E AB 31 3A |.Z$."L".NN.NN.1:| 00000CE0: 89 38 31 30 00 F8 14 98 03 41 41 24 28 4E 4E 29 |.810.....AA$(NN)| 00000CF0: B2 5A 24 3A 89 36 35 30 00 3D 15 A2 03 99 22 11 |.Z$:.650.=....".| 00000D00: 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 54 4F 20 |ENTER NUMBER TO | 00000D10: 42 45 20 22 3B 45 44 24 28 45 44 29 3B 3A 85 5A |BE ";ED$(ED);:.Z| 00000D20: 24 3A 43 48 B2 C5 28 5A 24 29 3A 8B 43 48 B1 4E |$:CH..(Z$):.CH.N| 00000D30: 4E A7 99 22 91 91 91 22 3A 89 39 33 30 00 5B 15 |N.."...":.930.[.| 00000D40: AC 03 8B 5A 24 B2 22 4E 22 B0 5A 24 B2 22 4C 22 |...Z$."N".Z$."L"| 00000D50: B0 5A 24 B2 22 53 22 A7 38 30 30 00 71 15 B6 03 |.Z$."S".800.q...| 00000D60: 8B 43 48 B2 30 A7 5A 24 B2 22 58 22 3A 89 38 36 |.CH.0.Z$."X":.86| 00000D70: 30 00 7F 15 C0 03 8B 45 44 B2 32 A7 39 39 30 00 |0......ED.2.990.| 00000D80: AD 15 CA 03 99 22 20 20 22 3B 41 41 24 28 43 48 |....." ";AA$(CH| 00000D90: 29 3A 85 22 91 22 3B 43 48 24 3A 8B 43 48 24 B2 |):.".";CH$:.CH$.| 00000DA0: 22 22 A7 99 22 91 91 22 3A 89 39 37 30 00 CE 15 |"".."..":.970...| 00000DB0: D4 03 41 41 24 28 43 48 29 B2 43 48 24 3A 43 48 |..AA$(CH).CH$:CH| 00000DC0: 24 B2 22 22 3A 43 48 B2 30 3A 89 36 35 30 00 FF |$."":CH.0:.650..| 00000DD0: 15 DE 03 41 41 24 28 43 48 29 B2 41 41 24 28 4E |...AA$(CH).AA$(N| 00000DE0: 4E 29 3A 41 41 24 28 4E 4E 29 B2 22 22 3A 43 48 |N):AA$(NN)."":CH| 00000DF0: B2 30 3A 4E 4E B2 4E 4E AB 31 3A 89 36 35 30 00 |.0:NN.NN.1:.650.| 00000E00: 13 16 E8 03 93 22 53 4F 52 54 2E 50 52 49 4E 54 |....."SORT.PRINT| 00000E10: 22 2C 38 00 25 16 F2 03 93 22 53 4F 52 54 2E 4D |",8.%...."SORT.M| 00000E20: 4F 44 22 2C 38 00 38 16 FC 03 93 22 53 4F 52 54 |OD",8.8...."SORT| 00000E30: 2E 44 49 53 4B 22 2C 38 00 4B 16 06 04 93 22 53 |.DISK",8.K...."S| 00000E40: 4F 52 54 2E 53 41 56 45 22 2C 38 00 00 00 |ORT.SAVE",8... |
.......ZZ.1.270.*....53280,6:.53281,6:."
...P...ED$(1)."CHANGED":ED$(2)."DELETED"
:ED$."END OF LIST":SC.828:SP.858...(.ED$
(4)."..HIT ANY KEY WHEN READY...2.BL$."
"
:.AA$(1000):ZZ.1:.150:.270...<..A$:.A$."
".60...F..C.0.....P.A.E(A$):.A.1.A.C.60.
!.Z.C.0:..>.D..15,8,15:.15,A$,B$,C$,D$.}
.N..B$.."OK".."....ERROR: . #";A$;" ";B
$;" ":.ED$(4):C.0:.60...X. 15:.......I.1
.1000:.AA$(I)."".I.1000.B...AA$(I)."":.:
NN.0:N.0:......."....U";:.I.1.35:.".";:.
:."I":.I.1.20:."....";.35);"..":..I. .."
..J";:.I.1.35:.".";:.:."K":.".....
ENTER SELECTION":.SC:..D...IN$."":CQ$
.". ":.198,0.Z...."....: ";IN$;CQ$......
C$:.C$."".190...H.C.F(C$):L.C(IN$):.C.13
.250.M.R..C.20..L.IN$.H(IN$,L.1):.180...
...C.32.C.90.180......L.30.180.....IN$.I
N$.C$:.180......IN$."".180.&...IN.E(IN$)
:C.0:..E....SP:ZX.0:LD.0:FL.0:."........
... FILE SORT OPTIONS ......."....
..1. CREATE":.".....2. LOAD":.".....3. S
AVE.O."..".....4. EDIT":.".....5. SORT":
.".....6. PRINT...,..".....7. APPEND":."
.....8. MODIFY.$.6..".....9. DISK MAINTE
NANCE":.".....0. END.7.@..A$:.A$."".320.
P.J.A.E(A$):.A.0.A.9.320.E.T..A.0.A$.."0
".320.R.^..A.0.390...H..A.9.1020...R..A.
2.F$."".."...NO FILE LOADED":.I.1.1000:.
:.270...|..A.460,500,1030,640,400,1000,5
00,1010......"...GOOD-BYE":..'....N.0.."
...NO ENTRIES TO SORT":.I.1.1000:.:.270.
F....".....SORTING";N;"ENTRIES......4915
2,N,AA$(1):.AA$(1)."".AA$(1).AA$(N):AA$(
N)."":N.N.1:.420.H....AA$(1).."".F(AA$(1
)).32.AA$(1).AA$(N):AA$(N)."":N.N.1:.420
.T....FL.1.....B..270...L..SP:.".......
CREATE NEW FILE":.F$."".490.N.V.."
.....THE CURRENT FILE IN MEMORY IS:":.".
.... ";F$;" ......".....CLEAR THIS FIL
E (Y/N)?":.60:.A$.."Y".270.O....130:.".
....ENTER NEW FILE NAME..":.170:F$.IN$:A
A$(0).F$:FL.1:NF.1:.640.....ZX.1:LD.1:LD
$."LOAD":.A.7.LD$."APPEND.'....SP:."....
..... ";LD$;" OPTIONS .A...."..
..... 1. BY FILE NAME":."...... 2. FROM
DIRECTORY......"...... 3. MAIN MENU":C.3
:AA.A:.60:B.A:A.AA.K....A.7.B.2.."..CANN
OT USE DIRECTORY LOAD DURING APPEND...&.
.A.7.B.2..".FOR IT WILL ERASE CURRENT FI
LE":.I.1.2000:.:.270. .0..B.570,1020,270
.G.:..".....ENTER FILE NAME TO BE ";LD$;
"ED":.".":.170:F$.IN$:AA$(0).F$...D.DF.0
:.1,8,2,F$:."....";LD$;"ING: .";F$:AZ.1
:.A.7.AZ.N.1.U.N..I.AZ.1000:.1,P$:AA$(I)
.P$:.ST..0.N.I:I.1000...X..: 1:.100:.B$.
."OK".Z$."/".N.NN:.640...B..B$.."OK".270
.:.L..AA$(N.1)..""..I.N.1.1000:AA$(I).""
:..C.V..270.Q...NN.N:N.10......"..
. EDIT OPTIONS ":.".FOR FILE:
. ";F$;" ":.......N.10.N.10......N.10
00.N.1000......J.(N.9).N:J$.D(J):.C(J$).
2.J$." ".J$.#....J$;" - ";AA$(J):.:.:."P
RESS.......N. FOR NEXT SCREEN";.3);.H...
.".L. FOR LAST SCREEN":.FL.1.740.~.F..".
A. TO ADD ";.3);:.".D. TO DELETE
...P..".C. TO CHANGE ";.3);:.
"./. TO LOAD .T.Z..".S. TO SORT
";.3);......".X. TO EXIT ":
.FL.1.780......ED.1.Z$."C":.830.%....ED.
2.Z$."D":.840.>...Z$."":.Z$:.Z$."".770.N
....FL.1.Z$."A.L....Z$."A".NN.NN.1:FL.1:
.880... ..Z$."N".N.N.10:.650...*..Z$."L"
.N.N.10:.650...4..Z$."S"..49152,NN,AA$(1
):.650.T.>..Z$."C".ED.1:.930...H..Z$."D"
.ED.2:.930...R..Z$."/"..".LOAD WHICH FIL
E #..":.170:F$.AA$(IN):LD$."LOAD":.580.I
.\..Z$."X".N.NN:ED.0:.270.R.F..770...P.Z
$."":.".ENTRY NUMBER";NN:.".":.170:Z$.IN
$:.Z$."".."...":.880...Z..Z$."X".NN.NN.1
:N.NN:.270.K....Z$."N".NN.NN.1:.800.....
.Z$."L".NN.NN.1:.810.....AA$(NN).Z$:.650
.=....".ENTER NUMBER TO BE ";ED$(ED);:.Z
$:CH.E(Z$):.CH.NN.."...":.930.[....Z$."N
".Z$."L".Z$."S".800.Q....CH.0.Z$."X":.86
0.....ED.2.990...J.." ";AA$(CH):.".";C
H$:.CH$."".."..":.970.N.T.AA$(CH).CH$:CH
$."":CH.0:.650.....AA$(CH).AA$(NN):AA$(N
N)."":CH.0:NN.NN.1:.650......"SORT.PRINT
",8.%...."SORT.MOD",8.8...."SORT.DISK",8
.K...."SORT.SAVE",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL