_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

TIDY DISK C-64

FILE INFORMATION

FILENAME(S): TIDY DISK C-64

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 19:36:42

APPEARS ON: 1 disk(s)

FILE HASH

3fa71179f54e1d27f6b7b92f5b4c255826d6def54916ca4b7c51f47ea45719ca

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
JBR C64 COPY TIDY DISK C-64 PRG Curtcool, Bo 31 15 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2B 08 64 00 99 22  93 20 20 20 20 20 20 D5  |..+.d..".      .|
00000010: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000020: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C9 00 54 08 65 00  |............T.e.|
00000030: 99 22 20 20 20 20 20 20  DD 20 54 20 49 20 44 20  |."      . T I D |
00000040: 59 20 20 20 44 20 49 20  53 20 4B 20 20 20 43 2D  |Y   D I S K   C-|
00000050: 36 34 20 DD 00 7D 08 66  00 99 22 20 20 20 20 20  |64 ..}.f.."     |
00000060: 20 CA C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  | ...............|
00000070: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 CB 00 97 08  |................|
00000080: 69 00 99 A3 31 32 29 22  11 11 50 52 45 53 53 20  |i...12)"..PRESS |
00000090: 52 45 54 55 52 4E 2E 00  9F 08 8C 00 A1 5A 24 00  |RETURN.......Z$.|
000000A0: B2 08 8D 00 8B 5A 24 B3  B1 C7 28 31 33 29 89 31  |.....Z$...(13).1|
000000B0: 34 30 00 BB 08 A0 00 44  4E B2 38 00 C3 08 A1 00  |40.....DN.8.....|
000000C0: 44 B2 30 00 CC 08 A2 00  43 32 B2 32 00 D6 08 A3  |D.0.....C2.2....|
000000D0: 00 43 43 B2 31 35 00 DF  08 A4 00 54 B2 31 38 00  |.CC.15.....T.18.|
000000E0: E7 08 A5 00 53 B2 30 00  F2 08 A6 00 42 50 B2 31  |....S.0.....BP.1|
000000F0: 34 34 00 05 09 A7 00 9F  43 43 2C 44 4E 2C 43 43  |44......CC,DN,CC|
00000100: 2C 22 49 30 22 00 0F 09  A8 00 8D 31 30 30 30 00  |,"I0"......1000.|
00000110: 21 09 A9 00 9F 43 32 2C  44 4E 2C 43 32 2C 22 23  |!....C2,DN,C2,"#|
00000120: 22 00 2B 09 AA 00 8D 31  30 30 30 00 41 09 AB 00  |".+....1000.A...|
00000130: 98 43 43 2C 22 55 31 3A  22 43 32 3B 44 3B 54 3B  |.CC,"U1:"C2;D;T;|
00000140: 53 00 4B 09 AC 00 8D 31  30 30 30 00 5F 09 AD 00  |S.K....1000._...|
00000150: 98 43 43 2C 22 42 2D 50  3A 22 43 32 3B 42 50 00  |.CC,"B-P:"C2;BP.|
00000160: 6A 09 AE 00 49 44 24 B2  22 22 00 73 09 AF 00 4E  |j...ID$."".s...N|
00000170: B2 32 30 00 7D 09 B0 00  8D 31 30 33 30 00 88 09  |.20.}....1030...|
00000180: B1 00 49 44 24 B2 5A 24  00 A6 09 B2 00 99 22 91  |..ID$.Z$......".|
00000190: 44 49 53 4B 20 4C 4F 41  44 45 44 20 3A 20 20 22  |DISK LOADED :  "|
000001A0: 49 44 24 22 11 22 00 B2  09 36 01 86 53 25 28 31  |ID$"."...6..S%(1|
000001B0: 39 29 00 C0 09 37 01 86  46 54 24 28 31 39 32 29  |9)...7..FT$(192)|
000001C0: 00 CE 09 38 01 86 54 53  24 28 31 39 32 29 00 DC  |...8..TS$(192)..|
000001D0: 09 39 01 86 4E 46 24 28  31 39 32 29 00 EA 09 3A  |.9..NF$(192)...:|
000001E0: 01 86 46 45 24 28 31 39  32 29 00 F8 09 3B 01 86  |..FE$(192)...;..|
000001F0: 53 4B 24 28 31 39 32 29  00 03 0A 3C 01 86 54 24  |SK$(192)...<..T$|
00000200: 28 34 29 00 13 0A 3D 01  54 24 28 31 29 B2 22 53  |(4)...=.T$(1)."S|
00000210: 45 51 22 00 23 0A 3E 01  54 24 28 32 29 B2 22 50  |EQ".#.>.T$(2)."P|
00000220: 52 47 22 00 33 0A 3F 01  54 24 28 33 29 B2 22 55  |RG".3.?.T$(3)."U|
00000230: 53 52 22 00 43 0A 40 01  54 24 28 34 29 B2 22 52  |SR".C.@.T$(4)."R|
00000240: 45 4C 22 00 4F 0A 41 01  81 49 B2 31 A4 33 30 00  |EL".O.A..I.1.30.|
00000250: 60 0A 42 01 5A 30 24 B2  5A 30 24 AA C7 28 30 29  |`.B.Z0$.Z0$..(0)|
00000260: 00 66 0A 43 01 82 00 6E  0A 44 01 53 B2 31 00 76  |.f.C...n.D.S.1.v|
00000270: 0A 45 01 45 B2 31 00 8C  0A 7C 01 98 43 43 2C 22  |.E.E.1...|..CC,"|
00000280: 55 31 3A 22 43 32 3B 44  3B 54 3B 53 00 96 0A 7D  |U1:"C2;D;T;S...}|
00000290: 01 8D 31 30 30 30 00 9F  0A 7E 01 42 50 B2 31 00  |..1000...~.BP.1.|
000002A0: B4 0A 7F 01 98 43 43 2C  22 42 2D 50 3A 22 3B 43  |.....CC,"B-P:";C|
000002B0: 32 3B 42 50 00 BE 0A 80  01 8D 31 31 30 30 00 CA  |2;BP......1100..|
000002C0: 0A 81 01 53 25 28 53 29  B2 41 00 DE 0A 90 01 98  |...S%(S).A......|
000002D0: 43 43 2C 22 42 2D 50 3A  22 43 32 3B 42 50 00 E8  |CC,"B-P:"C2;BP..|
000002E0: 0A 91 01 8D 31 31 30 30  00 F1 0A 92 01 46 54 B2  |....1100.....FT.|
000002F0: 41 00 10 0B 93 01 8B 46  54 B2 30 B0 46 54 B2 31  |A......FT.0.FT.1|
00000300: 32 38 A7 42 50 B2 42 50  AA 33 31 3A 89 35 30 30  |28.BP.BP.31:.500|
00000310: 00 3D 0B A4 01 8B 46 54  B3 31 32 38 A7 99 22 11  |.=....FT.128..".|
00000320: 20 46 49 4C 45 20 45 52  52 4F 52 20 20 4E 4F 54  | FILE ERROR  NOT|
00000330: 20 43 4C 4F 53 45 44 22  3A 89 39 39 39 00 4B 0B  | CLOSED":.999.K.|
00000340: AE 01 46 54 24 28 45 29  B2 41 24 00 53 0B AF 01  |..FT$(E).A$.S...|
00000350: 4E B2 32 00 5D 0B B0 01  8D 31 30 34 30 00 6B 0B  |N.2.]....1040.k.|
00000360: B1 01 54 53 24 28 45 29  B2 5A 24 00 74 0B B2 01  |..TS$(E).Z$.t...|
00000370: 4E B2 31 36 00 7E 0B B3  01 8D 31 30 34 30 00 8C  |N.16.~....1040..|
00000380: 0B B4 01 4E 46 24 28 45  29 B2 5A 24 00 95 0B B5  |...NF$(E).Z$....|
00000390: 01 4E B2 31 31 00 9F 0B  B6 01 8D 31 30 34 30 00  |.N.11......1040.|
000003A0: AD 0B B7 01 46 45 24 28  45 29 B2 5A 24 00 D3 0B  |....FE$(E).Z$...|
000003B0: B8 01 99 2C 22 9D 9D 9D  9D 9D 9D 9D 9D 9D 9D 22  |...,".........."|
000003C0: 4E 46 24 28 45 29 22 3A  22 54 24 28 46 54 AB 31  |NF$(E)":"T$(FT.1|
000003D0: 32 38 29 00 DF 0B B9 01  42 50 B2 42 50 AA 32 00  |28).....BP.BP.2.|
000003E0: E9 0B BA 01 45 B2 45 AA  31 00 F9 0B F4 01 8B 42  |....E.E.1......B|
000003F0: 50 B3 32 35 36 89 34 30  30 00 16 0C FE 01 8B 53  |P.256.400......S|
00000400: 25 28 53 29 B3 B1 32 35  35 A7 53 B2 53 25 28 53  |%(S)..255.S.S%(S|
00000410: 29 3A 89 33 38 30 00 20  0C 08 02 8D 31 31 33 30  |):.380. ....1130|
00000420: 00 2A 0C 09 02 45 B2 45  AB 31 00 37 0C 0A 02 8B  |.*...E.E.1.7....|
00000430: 45 B2 30 89 37 33 30 00  5C 0C 1C 02 99 22 91 47  |E.0.730.\....".G|
00000440: 52 4F 55 50 20 42 59 20  46 49 4C 45 20 54 59 50  |ROUP BY FILE TYP|
00000450: 45 20 3F 20 28 59 2F 4E  29 20 22 3B 00 64 0C 26  |E ? (Y/N) ";.d.&|
00000460: 02 A1 5A 24 00 6F 0C 27  02 46 54 24 B2 5A 24 00  |..Z$.o.'.FT$.Z$.|
00000470: 87 0C 28 02 8B 5A 24 B2  22 59 22 A7 99 22 59 45  |..(..Z$."Y".."YE|
00000480: 53 22 3A 89 35 37 31 00  A3 0C 30 02 8B 5A 24 B3  |S":.571...0..Z$.|
00000490: B1 22 4E 22 AF 5A 24 B3  B1 C7 28 31 33 29 A7 20  |."N".Z$...(13). |
000004A0: 35 35 30 00 AD 0C 3A 02  99 22 4E 4F 22 00 C1 0C  |550...:.."NO"...|
000004B0: 3B 02 99 22 11 53 4F 52  54 49 4E 47 20 2E 2E 2E  |;..".SORTING ...|
000004C0: 22 00 CC 0C 3C 02 81 49  B2 31 A4 45 00 D5 0C 3D  |"...<..I.1.E...=|
000004D0: 02 4B B2 31 36 00 E1 0C  3E 02 81 4A B2 31 A4 31  |.K.16...>..J.1.1|
000004E0: 36 00 06 0D 3F 02 8B CA  28 4E 46 24 28 49 29 2C  |6...?...(NF$(I),|
000004F0: 4A 2C 31 29 B2 C7 28 31  36 30 29 A7 4B B2 4A AB  |J,1)..(160).K.J.|
00000500: 31 3A 4A B2 31 36 00 0D  0D 62 02 82 4A 00 24 0D  |1:J.16...b..J.$.|
00000510: 63 02 53 4B 24 28 49 29  B2 C8 28 4E 46 24 28 49  |c.SK$(I)..(NF$(I|
00000520: 29 2C 4B 29 00 46 0D 64  02 8B 46 54 24 B2 22 59  |),K).F.d..FT$."Y|
00000530: 22 A7 53 4B 24 28 49 29  B2 46 54 24 28 49 29 AA  |".SK$(I).FT$(I).|
00000540: 53 4B 24 28 49 29 00 4D  0D 76 02 82 49 00 55 0D  |SK$(I).M.v..I.U.|
00000550: 77 02 4D B2 45 00 62 0D  80 02 4D B2 B5 28 4D AD  |w.M.E.b...M..(M.|
00000560: 32 29 00 6F 0D 81 02 8B  4D B2 30 89 37 33 30 00  |2).o....M.0.730.|
00000570: 79 0D 8A 02 4B B2 45 AB  4D 00 81 0D 8B 02 4A B2  |y...K.E.M.....J.|
00000580: 30 00 8E 0D 94 02 8B 4A  B1 4B 89 36 34 30 00 96  |0......J.K.640..|
00000590: 0D 9E 02 49 B2 4A 00 A3  0D A8 02 8B 49 B3 30 89  |...I.J......I.0.|
000005A0: 37 30 30 00 BC 0D B2 02  8B 53 4B 24 28 49 AA 4D  |700......SK$(I.M|
000005B0: 29 B3 53 4B 24 28 49 29  89 37 31 30 00 C6 0D BC  |).SK$(I).710....|
000005C0: 02 4A B2 4A AA 31 00 CF  0D BD 02 89 36 36 30 00  |.J.J.1......660.|
000005D0: DD 0D C6 02 41 24 B2 46  54 24 28 49 29 00 F1 0D  |....A$.FT$(I)...|
000005E0: C7 02 46 54 24 28 49 29  B2 46 54 24 28 49 AA 4D  |..FT$(I).FT$(I.M|
000005F0: 29 00 01 0E C8 02 46 54  24 28 49 AA 4D 29 B2 41  |).....FT$(I.M).A|
00000600: 24 00 0F 0E C9 02 41 24  B2 54 53 24 28 49 29 00  |$.....A$.TS$(I).|
00000610: 23 0E CA 02 54 53 24 28  49 29 B2 54 53 24 28 49  |#...TS$(I).TS$(I|
00000620: AA 4D 29 00 33 0E CB 02  54 53 24 28 49 AA 4D 29  |.M).3...TS$(I.M)|
00000630: B2 41 24 00 41 0E CC 02  41 24 B2 4E 46 24 28 49  |.A$.A...A$.NF$(I|
00000640: 29 00 55 0E CD 02 4E 46  24 28 49 29 B2 4E 46 24  |).U...NF$(I).NF$|
00000650: 28 49 AA 4D 29 00 65 0E  CE 02 4E 46 24 28 49 AA  |(I.M).e...NF$(I.|
00000660: 4D 29 B2 41 24 00 B5 0E  CF 02 41 24 B2 46 45 24  |M).A$.....A$.FE$|
00000670: 28 49 29 3A 46 45 24 28  49 29 B2 46 45 24 28 49  |(I):FE$(I).FE$(I|
00000680: AA 4D 29 3A 46 45 24 28  49 AA 4D 29 B2 41 24 3A  |.M):FE$(I.M).A$:|
00000690: 41 24 B2 53 4B 24 28 49  29 3A 53 4B 24 28 49 29  |A$.SK$(I):SK$(I)|
000006A0: B2 53 4B 24 28 49 AA 4D  29 3A 53 4B 24 28 49 AA  |.SK$(I.M):SK$(I.|
000006B0: 4D 29 B2 41 24 00 BF 0E  D0 02 49 B2 49 AB 4D 00  |M).A$.....I.I.M.|
000006C0: C8 0E D1 02 89 36 38 30  00 CE 0E DA 02 3A 00 EC  |.....680.....:..|
000006D0: 0E DB 02 99 22 91 57 52  49 54 49 4E 47 20 2E 2E  |....".WRITING ..|
000006E0: 2E 20 3A 20 20 22 49 44  24 22 11 22 00 FF 0E DC  |. :  "ID$"."....|
000006F0: 02 5A 24 B2 C7 28 30 29  AA C7 28 32 35 35 29 00  |.Z$..(0)..(255).|
00000700: 07 0F DD 02 53 B2 31 00  0F 0F DE 02 4E B2 31 00  |....S.1.....N.1.|
00000710: 25 0F 02 03 98 43 43 2C  22 55 31 3A 22 43 32 3B  |%....CC,"U1:"C2;|
00000720: 44 3B 54 3B 53 00 2F 0F  03 03 8D 31 30 30 30 00  |D;T;S./....1000.|
00000730: 38 0F 04 03 42 50 B2 32  00 45 0F 16 03 8B 4E B1  |8...BP.2.E....N.|
00000740: 45 89 38 39 30 00 55 0F  20 03 8B 42 50 B3 32 35  |E.890.U. ..BP.25|
00000750: 36 89 38 34 30 00 6B 0F  34 03 98 43 43 2C 22 55  |6.840.k.4..CC,"U|
00000760: 32 3A 22 43 32 3B 44 3B  54 3B 53 00 75 0F 35 03  |2:"C2;D;T;S.u.5.|
00000770: 8D 31 30 30 30 00 81 0F  36 03 53 B2 53 25 28 53  |.1000...6.S.S%(S|
00000780: 29 00 8A 0F 37 03 89 37  37 30 00 9F 0F 48 03 98  |)...7..770...H..|
00000790: 43 43 2C 22 42 2D 50 3A  22 3B 43 32 3B 42 50 00  |CC,"B-P:";C2;BP.|
000007A0: CC 0F 49 03 99 2C 22 9D  9D 9D 9D 9D 9D 9D 9D 9D  |..I..,".........|
000007B0: 9D 22 4E 46 24 28 4E 29  22 3A 22 54 24 28 C6 28  |."NF$(N)":"T$(.(|
000007C0: 46 54 24 28 4E 29 29 AB  31 32 38 29 00 F1 0F 4A  |FT$(N)).128)...J|
000007D0: 03 98 43 32 2C 46 54 24  28 4E 29 3B 54 53 24 28  |..C2,FT$(N);TS$(|
000007E0: 4E 29 3B 4E 46 24 28 4E  29 3B 46 45 24 28 4E 29  |N);NF$(N);FE$(N)|
000007F0: 3B 00 FE 0F 4B 03 42 50  B2 42 50 AA 33 32 00 08  |;...K.BP.BP.32..|
00000800: 10 4C 03 4E B2 4E AA 31  00 11 10 4D 03 89 37 39  |.L.N.N.1...M..79|
00000810: 30 00 21 10 7A 03 8B 42  50 B1 32 35 35 89 39 33  |0.!.z..BP.255.93|
00000820: 30 00 36 10 84 03 98 43  43 2C 22 42 2D 50 3A 22  |0.6....CC,"B-P:"|
00000830: 3B 43 32 3B 42 50 00 43  10 85 03 98 43 32 2C 5A  |;C2;BP.C....C2,Z|
00000840: 30 24 3B 00 50 10 86 03  42 50 B2 42 50 AA 33 32  |0$;.P...BP.BP.32|
00000850: 00 59 10 87 03 89 38 39  30 00 62 10 A2 03 42 50  |.Y....890.b...BP|
00000860: B2 30 00 77 10 A3 03 98  43 43 2C 22 42 2D 50 3A  |.0.w....CC,"B-P:|
00000870: 22 3B 43 32 3B 42 50 00  83 10 A4 03 98 43 32 2C  |";C2;BP......C2,|
00000880: 5A 24 3B 00 99 10 A5 03  98 43 43 2C 22 55 32 3A  |Z$;......CC,"U2:|
00000890: 22 43 32 3B 44 3B 54 3B  53 00 A3 10 A6 03 8D 31  |"C2;D;T;S......1|
000008A0: 30 30 30 00 B3 10 A7 03  5A 24 B2 C8 28 5A 30 24  |000.....Z$..(Z0$|
000008B0: 2C 32 29 00 BF 10 A8 03  53 B2 53 25 28 53 29 00  |,2).....S.S%(S).|
000008C0: CE 10 A9 03 8B 53 B2 32  35 35 89 39 39 39 00 E4  |.....S.255.999..|
000008D0: 10 D4 03 98 43 43 2C 22  55 31 3A 22 43 32 3B 44  |....CC,"U1:"C2;D|
000008E0: 3B 54 3B 53 00 EE 10 D5  03 8D 31 30 30 30 00 F7  |;T;S......1000..|
000008F0: 10 D6 03 42 50 B2 32 00  00 11 D7 03 89 39 30 30  |...BP.2......900|
00000900: 00 0E 11 E7 03 A0 43 32  3A A0 43 43 3A 80 00 14  |......C2:.CC:...|
00000910: 11 E8 03 3A 00 29 11 E9  03 84 43 43 2C 45 4E 2C  |...:.)....CC,EN,|
00000920: 45 4D 24 2C 45 54 2C 45  53 00 35 11 EA 03 8B 45  |EM$,ET,ES.5....E|
00000930: 4E B2 30 A7 8E 00 56 11  FC 03 99 22 93 20 44 49  |N.0...V....". DI|
00000940: 53 4B 20 45 52 52 4F 52  20 22 45 4E 3B 45 4D 24  |SK ERROR "EN;EM$|
00000950: 3B 45 54 3B 45 53 00 5F  11 FD 03 89 39 39 39 00  |;ET;ES._....999.|
00000960: 65 11 06 04 3A 00 6F 11  10 04 5A 24 B2 22 22 00  |e...:.o...Z$."".|
00000970: 7A 11 11 04 81 49 B2 31  A4 4E 00 84 11 12 04 8D  |z....I.1.N......|
00000980: 31 31 30 30 00 91 11 13  04 5A 24 B2 5A 24 AA 41  |1100.....Z$.Z$.A|
00000990: 24 00 97 11 14 04 82 00  9D 11 15 04 8E 00 A3 11  |$...............|
000009A0: 4C 04 3A 00 AF 11 4D 04  A1 23 43 32 2C 41 24 00  |L.:...M..#C2,A$.|
000009B0: C2 11 4E 04 8B 41 24 B2  22 22 A7 41 24 B2 C7 28  |..N..A$."".A$..(|
000009C0: 30 29 00 CE 11 60 04 41  B2 C6 28 41 24 29 00 DA  |0)...`.A..(A$)..|
000009D0: 11 61 04 42 50 B2 42 50  AA 31 00 E0 11 62 04 8E  |.a.BP.BP.1...b..|
000009E0: 00 E6 11 6A 04 3A 00 07  12 6B 04 99 22 11 4F 4B  |...j.:...k..".OK|
000009F0: 20 54 4F 20 43 4F 4E 54  49 4E 55 45 20 3F 20 28  | TO CONTINUE ? (|
00000A00: 59 2F 4E 29 20 22 3B 00  0F 12 7E 04 A1 5A 24 00  |Y/N) ";...~..Z$.|
00000A10: 26 12 7F 04 8B 5A 24 B2  22 4E 22 A7 99 22 4E 4F  |&....Z$."N".."NO|
00000A20: 22 3A 89 39 39 39 00 44  12 88 04 8B 5A 24 B2 22  |":.999.D....Z$."|
00000A30: 59 22 B0 5A 24 B2 C7 28  31 33 29 A7 99 22 59 45  |Y".Z$..(13).."YE|
00000A40: 53 22 3A 8E 00 4E 12 92  04 89 31 31 35 30 00 00  |S":..N....1150..|
00000A50: 00                                                |.               |
..+.D..".      U........................
..I.T.E.."      . T I D Y   D I S K   C-
64 ..}.F.."      J......................
....K...I...12)"..PRESS RETURN.......Z$.
.....Z$..G(13).140... .DN.8.C...D.0.L...
C2.2.V...CC.15.....T.18.....S.0.....BP.1
44......CC,DN,CC,"I0"......1000.!....C2,
DN,C2,"#".+....1000.A....CC,"U1:"C2;D;T;
S.K....1000._....CC,"B-P:"C2;BP.J...ID$.
"".S...N.20.}....1030.....ID$.Z$......".
DISK LOADED :  "ID$"."...6..S%(19)...7..
FT$(192).N.8..TS$(192)...9..NF$(192)...:
..FE$(192)...;..SK$(192)...<..T$(4)...=.
T$(1)."SEQ".#.>.T$(2)."PRG".3.?.T$(3)."U
SR".C.@.T$(4)."REL".O.A..I.1.30.`.B.Z0$.
Z0$.G(0).F.C...N.D.S.1.V.E.E.1...|..CC,"
U1:"C2;D;T;S...}..1000...~.BP.1.....CC,
"B-P:";C2;BP......1100.J...S%(S).A......
CC,"B-P:"C2;BP......1100.....FT.A......F
T.0.FT.128.BP.BP.31:.500.=....FT.128..".
 FILE ERROR  NOT CLOSED":.999.K...FT$(E)
.A$.S...N.2.]....1040.K...TS$(E).Z$.T...
N.16.~....1040.....NF$(E).Z$.....N.11...
...1040.....FE$(E).Z$.S....,".........."
NF$(E)":"T$(FT.128).....BP.BP.2.....E.E.
1......BP.256.400......S%(S)..255.S.S%(S
):.380. ....1130.*...E.E.1.7....E.0.730.
\....".GROUP BY FILE TYPE ? (Y/N) ";.D.&
..Z$.O.'.FT$.Z$...(..Z$."Y".."YES":.571.
..0..Z$.."N".Z$..G(13). 550...:.."NO".A.
;..".SORTING ...".L.<..I.1.E.U.=.K.16...
>..J.1.16...?..J(NF$(I),J,1).G(160).K.J.
1:J.16...B..J.$.C.SK$(I).H(NF$(I),K).F.D
..FT$."Y".SK$(I).FT$(I).SK$(I).M.V..I.U.
W.M.E.B...M..(M.2).O....M.0.730.Y...K.E.
M.....J.0......J.K.640.....I.J......I.0.
700......SK$(I.M).SK$(I).710.F...J.J.1.O
....660...F.A$.FT$(I)...G.FT$(I).FT$(I.M
)...H.FT$(I.M).A$...I.A$.TS$(I).#.J.TS$(
I).TS$(I.M).3.K.TS$(I.M).A$.A.L.A$.NF$(I
).U.M.NF$(I).NF$(I.M).E.N.NF$(I.M).A$...
O.A$.FE$(I):FE$(I).FE$(I.M):FE$(I.M).A$:
A$.SK$(I):SK$(I).SK$(I.M):SK$(I.M).A$...
P.I.I.M.H.Q..680.N.Z.:......".WRITING ..
. :  "ID$".".....Z$.G(0).G(255).....S.1.
....N.1.%....CC,"U1:"C2;D;T;S./....1000.
8...BP.2.E....N.E.890.U. ..BP.256.840.K.
4..CC,"U2:"C2;D;T;S.U.5..1000...6.S.S%(S
)...7..770...H..CC,"B-P:";C2;BP.L.I..,".
........."NF$(N)":"T$(F(FT$(N)).128)...J
..C2,FT$(N);TS$(N);NF$(N);FE$(N);...K.BP
.BP.32...L.N.N.1...M..790.!.Z..BP.255.93
0.6....CC,"B-P:";C2;BP.C....C2,Z0$;.P...
BP.BP.32.Y....890.B...BP.0.W....CC,"B-P:
";C2;BP......C2,Z$;......CC,"U2:"C2;D;T;
S......1000.....Z$.H(Z0$,2).....S.S%(S).
N....S.255.999...T..CC,"U1:"C2;D;T;S...U
..1000...V.BP.2...W..900..... C2: CC:...
...:.)....CC,EN,EM$,ET,ES.5....EN.0...V.
...". DISK ERROR "EN;EM$;ET;ES._....999.
E...:.O...Z$."".Z....I.1.N......1100....
.Z$.Z$.A$...............L.:...M..#C2,A$.
B.N..A$."".A$.G(0).N.`.A.F(A$).Z.A.BP.BP
.1...B.....J.:...K..".OK TO CONTINUE ? (
Y/N) ";...~..Z$.&...Z$."N".."NO":.999.D
....Z$."Y".Z$.G(13).."YES":..N....1150..
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL