DIRECTORY
FILE INFORMATION
FILENAME(S): DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-12-01 01:09:56
APPEARS ON: 1 disk(s)
FILE HASH
4f1fec1a4f14a07dbc22cc65a872ac197f639f4db81346f2a6ba18fa883518bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIERINGSDISK | DIRECTORY | PRG | hedning, Martin L0fgren | 14 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |..?....53280,0:.|
00000010: 35 33 32 38 31 2C 36 3A 86 46 24 28 31 32 38 29 |53281,6:.F$(128)|
00000020: 2C 49 28 32 39 29 3A 9F 31 2C 38 2C 31 35 3A 81 |,I(29):.1,8,15:.|
00000030: 54 B2 30 A4 34 3A 87 54 59 24 28 54 29 3A 82 00 |T.0.4:.TY$(T):..|
00000040: 66 08 14 00 8D 31 30 30 30 3A 99 22 13 90 11 11 |f....1000:."....|
00000050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000060: 1D 4D 45 4E 55 22 00 85 08 1E 00 99 22 11 11 20 |.MENU"......".. |
00000070: 31 2E 20 20 43 48 41 4E 47 45 20 44 49 53 4B 20 |1. CHANGE DISK |
00000080: 4E 41 4D 45 22 00 A1 08 28 00 99 22 11 20 32 2E |NAME"...(..". 2.|
00000090: 20 20 43 48 41 4E 47 45 20 44 49 53 4B 20 49 44 | CHANGE DISK ID|
000000A0: 22 00 C8 08 32 00 99 22 11 20 33 2E 20 20 52 45 |"...2..". 3. RE|
000000B0: 54 52 49 45 56 45 20 41 20 53 43 52 41 54 43 48 |TRIEVE A SCRATCH|
000000C0: 45 44 20 46 49 4C 45 22 00 DF 08 3C 00 99 22 11 |ED FILE"...<..".|
000000D0: 20 34 2E 20 20 44 49 52 45 43 54 4F 52 59 22 00 | 4. DIRECTORY".|
000000E0: FD 08 46 00 99 22 11 20 35 2E 20 20 4D 4F 44 49 |..F..". 5. MODI|
000000F0: 46 59 20 44 49 52 45 43 54 4F 52 59 22 00 21 09 |FY DIRECTORY".!.|
00000100: 50 00 99 22 11 20 36 2E 20 20 52 45 4D 4F 56 45 |P..". 6. REMOVE|
00000110: 20 53 43 52 41 54 43 48 45 44 20 46 49 4C 45 53 | SCRATCHED FILES|
00000120: 22 00 39 09 5A 00 99 22 11 11 59 4F 55 52 20 43 |".9.Z.."..YOUR C|
00000130: 48 4F 49 43 45 3F 20 22 3B 00 56 09 64 00 8D 32 |HOICE? ";.V.d..2|
00000140: 30 30 30 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 22 |000:.A$."1".A$."|
00000150: 36 22 A7 31 30 30 00 7D 09 6E 00 99 41 24 3A 91 |6".100.}.n..A$:.|
00000160: C5 28 41 24 29 89 32 30 30 2C 33 30 30 2C 34 30 |.(A$).200,300,40|
00000170: 30 2C 35 30 30 2C 37 30 30 2C 36 30 30 00 B9 09 |0,500,700,600...|
00000180: C8 00 8D 31 31 30 30 3A 99 22 93 11 11 11 11 11 |...1100:."......|
00000190: 43 55 52 52 45 4E 54 20 44 49 53 4B 20 4E 41 4D |CURRENT DISK NAM|
000001A0: 45 3A 20 22 3B 3A 99 22 12 22 3B CA 28 4E 24 2C |E: ";:.".";.(N$,|
000001B0: 31 2C 31 36 29 3B 22 92 22 00 D6 09 D2 00 99 22 |1,16);"."......"|
000001C0: 11 1D 1D 1D 1D 4E 45 57 20 44 49 53 4B 20 4E 41 |.....NEW DISK NA|
000001D0: 4D 45 3A 20 22 3B 00 FC 09 DC 00 44 24 B2 22 22 |ME: ";.....D$.""|
000001E0: 3A 81 54 B2 31 A4 31 36 3A 8D 32 30 30 30 3A 8B |:.T.1.16:.2000:.|
000001F0: 41 24 B2 C7 28 31 33 29 A7 32 35 30 00 12 0A E6 |A$..(13).250....|
00000200: 00 8B 41 24 B2 C7 28 32 30 29 A7 54 B2 54 AB 31 |..A$..(20).T.T.1|
00000210: 3A 82 00 29 0A F0 00 44 24 B2 44 24 AA 41 24 3A |:..)...D$.D$.A$:|
00000220: 99 22 12 22 41 24 3B 3A 82 00 51 0A FA 00 4E 24 |."."A$;:..Q...N$|
00000230: B2 44 24 AA CA 28 4E 24 2C C3 28 44 24 29 AA 31 |.D$..(N$,.(D$).1|
00000240: 2C C3 28 4E 24 29 29 3A 8D 31 32 30 30 3A 89 32 |,.(N$)):.1200:.2|
00000250: 30 00 8B 0A 2C 01 8D 31 31 30 30 3A 99 22 93 11 |0...,..1100:."..|
00000260: 11 11 11 11 43 55 52 52 45 4E 54 20 44 49 53 4B |....CURRENT DISK|
00000270: 20 49 44 3A 20 22 3B 3A 99 22 12 22 3B CA 28 4E | ID: ";:.".";.(N|
00000280: 24 2C 31 39 2C 35 29 3B 22 92 22 00 A6 0A 36 01 |$,19,5);"."...6.|
00000290: 99 22 11 1D 1D 1D 1D 4E 45 57 20 44 49 53 4B 20 |.".....NEW DISK |
000002A0: 49 44 3A 20 22 3B 00 CB 0A 40 01 49 24 B2 22 22 |ID: ";...@.I$.""|
000002B0: 3A 81 54 B2 31 A4 35 3A 8D 32 30 30 30 3A 8B 41 |:.T.1.5:.2000:.A|
000002C0: 24 B2 C7 28 31 33 29 A7 33 35 30 00 E1 0A 4A 01 |$..(13).350...J.|
000002D0: 8B 41 24 B2 C7 28 32 30 29 A7 54 B2 54 AB 31 3A |.A$..(20).T.T.1:|
000002E0: 82 00 F8 0A 54 01 49 24 B2 49 24 AA 41 24 3A 99 |....T.I$.I$.A$:.|
000002F0: 22 12 22 41 24 3B 3A 82 00 2C 0B 5E 01 4E 24 B2 |"."A$;:..,.^.N$.|
00000300: CA 28 4E 24 2C 31 2C 31 38 29 AA 49 24 AA CA 28 |.(N$,1,18).I$..(|
00000310: 4E 24 2C C3 28 49 24 29 AA 31 39 2C C3 28 4E 24 |N$,.(I$).19,.(N$|
00000320: 29 29 3A 8D 31 32 30 30 3A 89 32 30 00 49 0B 90 |)):.1200:.20.I..|
00000330: 01 8D 31 31 30 30 3A 99 22 93 1D 1D 1D 1D 1D 1D |..1100:.".......|
00000340: 1D 12 20 22 4E 24 22 11 22 00 5B 0B 9A 01 54 52 |.. "N$".".[...TR|
00000350: B2 31 38 3A 53 B2 31 3A 58 B2 30 00 69 0B 9F 01 |.18:S.1:X.0.i...|
00000360: 8D 31 33 30 30 3A 50 B2 32 00 7B 0B A4 01 8D 31 |.1300:P.2.{....1|
00000370: 34 30 30 3A 54 59 B2 49 28 30 29 00 A8 0B A9 01 |400:TY.I(0).....|
00000380: 81 51 B2 31 A4 C3 28 46 24 28 58 29 29 3A 8B CA |.Q.1..(F$(X)):..|
00000390: 28 46 24 28 58 29 2C 51 2C 31 29 B2 C7 28 30 29 |(F$(X),Q,1)..(0)|
000003A0: A7 82 51 3A 89 34 38 30 00 E0 0B AE 01 8B 54 59 |..Q:.480......TY|
000003B0: B3 31 32 38 A7 99 22 90 1D 1D 1D 1D 1D 1D 1D 22 |.128.."........"|
000003C0: 3B CA 28 46 24 28 58 29 2C 34 2C 31 36 29 3B 22 |;.(F$(X),4,16);"|
000003D0: 20 20 20 59 2F 4E 9D 9D 9D 22 3B 3A 89 34 34 30 | Y/N...";:.440|
000003E0: 00 E9 0B B3 01 89 34 37 30 00 18 0C B8 01 8D 32 |......470......2|
000003F0: 30 30 30 3A 8B 41 24 B2 22 59 22 A7 99 22 12 59 |000:.A$."Y"..".Y|
00000400: 45 53 92 22 3B 22 20 20 20 54 59 50 45 9D 9D 9D |ES.";" TYPE...|
00000410: 9D 22 3B 3A 89 34 35 30 00 32 0C BB 01 8B 41 24 |.";:.450.2....A$|
00000420: B2 22 4E 22 A7 99 22 20 12 4E 4F 92 22 3A 89 34 |."N".." .NO.":.4|
00000430: 37 30 00 3B 0C BD 01 89 34 34 30 00 58 0C C2 01 |70.;....440.X...|
00000440: 8D 32 30 30 30 3A 8B 41 24 B3 22 31 22 B0 41 24 |.2000:.A$."1".A$|
00000450: B1 22 34 22 A7 34 35 30 00 6F 0C C7 01 45 B2 C5 |."4".450.o...E..|
00000460: 28 41 24 29 3A 99 22 20 22 54 59 24 28 45 29 00 |(A$):." "TY$(E).|
00000470: A2 0C CC 01 41 24 B2 C7 28 31 32 38 AA 45 29 3A |....A$..(128.E):|
00000480: 46 24 28 58 29 B2 41 24 AA CA 28 46 24 28 58 29 |F$(X).A$..(F$(X)|
00000490: 2C 32 2C C3 28 46 24 28 58 29 29 29 3A 8D 31 35 |,2,.(F$(X))):.15|
000004A0: 30 30 00 CF 0C D6 01 50 B2 50 AA 33 32 3A 58 B2 |00.....P.P.32:X.|
000004B0: 58 AA 31 3A 8B B5 28 58 AD 38 29 B2 58 AD 38 A7 |X.1:..(X.8).X.8.|
000004C0: 54 52 B2 4E 54 3A 53 B2 4E 53 3A 89 34 31 35 00 |TR.NT:S.NS:.415.|
000004D0: DC 0C DB 01 89 34 32 30 3A 89 32 30 00 0C 0D E0 |.....420:.20....|
000004E0: 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000004F0: 1D 4E 4F 57 20 56 41 4C 49 44 41 54 49 4E 47 22 |.NOW VALIDATING"|
00000500: 3A 98 31 2C 22 56 22 3A 89 35 39 35 00 29 0D F4 |:.1,"V":.595.)..|
00000510: 01 8D 31 31 30 30 3A 99 22 93 1D 1D 1D 1D 1D 1D |..1100:.".......|
00000520: 1D 12 20 22 4E 24 22 11 22 00 3F 0D FE 01 54 52 |.. "N$".".?...TR|
00000530: B2 31 38 3A 53 B2 31 3A 58 B2 30 3A 52 B2 30 00 |.18:S.1:X.0:R.0.|
00000540: 4D 0D 03 02 8D 31 33 30 30 3A 50 B2 32 00 6A 0D |M....1300:P.2.j.|
00000550: 08 02 8D 31 34 30 30 3A 54 59 B2 49 28 30 29 3A |...1400:TY.I(0):|
00000560: 8B 52 B2 32 30 A7 8D 35 38 30 00 97 0D 0D 02 81 |.R.20..580......|
00000570: 51 B2 31 A4 C3 28 46 24 28 58 29 29 3A 8B CA 28 |Q.1..(F$(X)):..(|
00000580: 46 24 28 58 29 2C 51 2C 31 29 B2 C7 28 30 29 A7 |F$(X),Q,1)..(0).|
00000590: 82 51 3A 89 35 39 35 00 CB 0D 12 02 99 22 90 1D |.Q:.595......"..|
000005A0: 1D 1D 1D 1D 1D 1D 22 3B CA 28 46 24 28 58 29 2C |......";.(F$(X),|
000005B0: 34 2C 31 36 29 3B 22 20 20 20 22 3B 3A 8B 54 59 |4,16);" ";:.TY|
000005C0: B3 31 32 38 A7 99 22 9D 2A 22 3B 00 EC 0D 1C 02 |.128..".*";.....|
000005D0: 54 59 B2 28 54 59 AF 31 32 37 29 3A 99 54 59 24 |TY.(TY.127):.TY$|
000005E0: 28 54 59 29 3B 3A 50 B2 50 AA 33 32 00 03 0E 26 |(TY);:P.P.32...&|
000005F0: 02 4C B2 4C 4F AA 48 49 AC 32 35 36 3A 99 22 20 |.L.LO.HI.256:." |
00000600: 20 22 4C 00 2F 0E 30 02 58 B2 58 AA 31 3A 52 B2 | "L./.0.X.X.1:R.|
00000610: 52 AA 31 3A 8B B5 28 58 AD 38 29 B2 58 AD 38 A7 |R.1:..(X.8).X.8.|
00000620: 54 52 B2 4E 54 3A 53 B2 4E 53 3A 89 35 31 35 00 |TR.NT:S.NS:.515.|
00000630: 38 0E 3A 02 89 35 32 30 00 78 0E 44 02 99 22 11 |8.:..520.x.D..".|
00000640: 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 53 20 41 4E 59 |.......PRESS ANY|
00000650: 20 4B 45 59 20 46 4F 52 20 4E 45 58 54 20 50 41 | KEY FOR NEXT PA|
00000660: 47 45 22 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C |GE":.198,0:.198,|
00000670: 31 3A 97 31 39 38 2C 30 00 95 0E 4E 02 52 B2 30 |1:.198,0...N.R.0|
00000680: 3A 99 22 93 1D 1D 1D 1D 1D 1D 1D 12 20 22 4E 24 |:."......... "N$|
00000690: 22 11 22 3A 8E 00 D3 0E 53 02 99 22 11 1D 1D 1D |".":....S.."....|
000006A0: 1D 1D 1D 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 |....PRESS ANY KE|
000006B0: 59 20 54 4F 20 53 45 45 20 4D 45 4E 55 22 3A 97 |Y TO SEE MENU":.|
000006C0: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 |198,0:.198,1:.19|
000006D0: 38 2C 30 00 DB 0E 55 02 89 32 30 00 21 0F 58 02 |8,0...U..20.!.X.|
000006E0: 99 22 93 11 11 42 45 57 41 52 45 21 20 54 48 45 |."...BEWARE! THE|
000006F0: 53 45 20 46 49 4C 45 53 20 43 41 4E 20 4E 4F 54 |SE FILES CAN NOT|
00000700: 20 42 45 20 52 45 54 52 45 49 56 45 44 22 3A 99 | BE RETREIVED":.|
00000710: 22 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 22 |"ARE YOU SURE? "|
00000720: 3B 00 57 0F 5D 02 8D 32 30 30 30 3A 8B 41 24 B2 |;.W.]..2000:.A$.|
00000730: 22 59 22 A7 99 41 24 3A 99 22 11 54 48 49 53 20 |"Y"..A$:.".THIS |
00000740: 57 49 4C 4C 20 54 41 4B 45 20 41 20 57 48 49 4C |WILL TAKE A WHIL|
00000750: 45 22 3A 89 36 32 30 00 66 0F 62 02 8B 41 24 B2 |E":.620.f.b..A$.|
00000760: 22 4E 22 A7 32 30 00 6F 0F 67 02 89 36 31 30 00 |"N".20.o.g..610.|
00000770: 81 0F 6C 02 54 52 B2 31 38 3A 53 B2 31 3A 58 B2 |..l.TR.18:S.1:X.|
00000780: 30 00 8F 0F 71 02 8D 31 33 30 30 3A 50 B2 32 00 |0...q..1300:P.2.|
00000790: C6 0F 76 02 8D 31 34 30 30 3A 81 51 B2 31 A4 C3 |..v..1400:.Q.1..|
000007A0: 28 46 24 28 58 29 29 3A 8B CA 28 46 24 28 58 29 |(F$(X)):..(F$(X)|
000007B0: 2C 51 2C 31 29 B2 C7 28 30 29 A7 82 51 3A 45 B2 |,Q,1)..(0)..Q:E.|
000007C0: 58 3A 89 36 34 35 00 F3 0F 7B 02 58 B2 58 AA 31 |X:.645...{.X.X.1|
000007D0: 3A 50 B2 50 AA 33 32 3A 8B B5 28 58 AD 38 29 B2 |:P.P.32:..(X.8).|
000007E0: 58 AD 38 A7 54 52 B2 4E 54 3A 53 B2 4E 53 3A 89 |X.8.TR.NT:S.NS:.|
000007F0: 36 32 35 00 FC 0F 80 02 89 36 33 30 00 1F 10 85 |625......630....|
00000800: 02 81 54 B2 30 A4 58 3A 8B CA 28 46 24 28 54 29 |..T.0.X:..(F$(T)|
00000810: 2C 31 2C 31 29 B2 C7 28 30 29 A7 8D 36 39 30 00 |,1,1)..(0)..690.|
00000820: 4C 10 8A 02 82 54 3A 81 54 B2 31 A4 C3 28 46 24 |L....T:.T.1..(F$|
00000830: 28 30 29 29 3A 46 24 28 31 32 38 29 B2 46 24 28 |(0)):F$(128).F$(|
00000840: 31 32 38 29 AA C7 28 30 29 3A 82 54 00 69 10 8F |128)..(0):.T.i..|
00000850: 02 81 54 B2 58 AA 31 A4 45 3A 46 24 28 54 29 B2 |..T.X.1.E:F$(T).|
00000860: 46 24 28 31 32 38 29 3A 82 00 7B 10 94 02 54 52 |F$(128):..{...TR|
00000870: B2 31 38 3A 53 B2 31 3A 58 B2 30 00 89 10 99 02 |.18:S.1:X.0.....|
00000880: 8D 31 33 30 30 3A 50 B2 32 00 A9 10 9E 02 8D 31 |.1300:P.2......1|
00000890: 35 30 30 3A 58 B2 58 AA 31 3A 50 B2 50 AA 33 32 |500:X.X.1:P.P.32|
000008A0: 3A 8B 58 B1 45 A7 36 38 35 00 C9 10 A3 02 8B B5 |:.X.E.685.......|
000008B0: 28 58 AD 38 29 B2 58 AD 38 A7 54 52 B2 4E 54 3A |(X.8).X.8.TR.NT:|
000008C0: 53 B2 4E 53 3A 89 36 36 35 00 D2 10 A8 02 89 36 |S.NS:.665......6|
000008D0: 37 30 00 E0 10 AD 02 8D 31 36 30 30 3A 89 32 30 |70......1600:.20|
000008E0: 00 0A 11 B2 02 81 51 B2 54 A4 58 3A 46 24 28 51 |......Q.T.X:F$(Q|
000008F0: 29 B2 46 24 28 51 AA 31 29 3A 82 51 3A 54 B2 54 |).F$(Q.1):.Q:T.T|
00000900: AB 31 3A 58 B2 58 AB 31 3A 8E 00 35 11 E8 03 99 |.1:X.X.1:..5....|
00000910: 22 93 90 92 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000920: 11 11 11 11 11 11 11 11 44 49 53 4B 20 45 52 52 |........DISK ERR|
00000930: 4F 52 3A 22 3B 00 5D 11 F2 03 84 31 2C 41 24 2C |OR:";.]....1,A$,|
00000940: 42 24 2C 43 24 2C 44 24 3A 99 41 24 22 20 22 42 |B$,C$,D$:.A$" "B|
00000950: 24 22 20 22 43 24 22 2C 22 44 24 3A 8E 00 8D 11 |$" "C$","D$:....|
00000960: 4C 04 9F 35 2C 38 2C 35 2C 22 23 22 3A 98 31 2C |L..5,8,5,"#":.1,|
00000970: 22 42 2D 52 3A 35 2C 30 2C 31 38 2C 30 22 3A 98 |"B-R:5,0,18,0":.|
00000980: 31 2C 22 42 2D 50 3A 35 2C 31 34 34 22 00 BA 11 |1,"B-P:5,144"...|
00000990: 56 04 4E 24 B2 22 22 3A 81 54 B2 31 34 34 A4 31 |V.N$."":.T.144.1|
000009A0: 36 37 3A A1 23 35 2C 41 24 3A 4E 24 B2 4E 24 AA |67:.#5,A$:N$.N$.|
000009B0: 41 24 3A 82 54 3A A0 35 3A 8E 00 D8 11 B0 04 9F |A$:.T:.5:.......|
000009C0: 35 2C 38 2C 35 2C 22 23 22 3A 98 31 2C 22 42 2D |5,8,5,"#":.1,"B-|
000009D0: 50 3A 35 2C 31 34 34 22 00 F8 11 BA 04 98 35 2C |P:5,144"......5,|
000009E0: 4E 24 3A 98 31 2C 22 55 32 3A 35 2C 30 2C 31 38 |N$:.1,"U2:5,0,18|
000009F0: 2C 30 22 3A A0 35 3A 8E 00 28 12 14 05 9F 35 2C |,0":.5:..(....5,|
00000A00: 38 2C 35 2C 22 23 22 3A 98 31 2C 22 42 2D 52 3A |8,5,"#":.1,"B-R:|
00000A10: 35 2C 30 2C 22 54 52 22 2C 22 53 3A 98 31 2C 22 |5,0,"TR","S:.1,"|
00000A20: 42 2D 50 3A 35 2C 30 22 00 5B 12 1E 05 A1 23 35 |B-P:5,0".[....#5|
00000A30: 2C 41 24 3A 4E 54 B2 C6 28 41 24 AA C7 28 30 29 |,A$:NT..(A$..(0)|
00000A40: 29 3A A1 23 35 2C 41 24 3A 4E 53 B2 C6 28 41 24 |):.#5,A$:NS..(A$|
00000A50: AA C7 28 30 29 29 3A A0 35 3A 8E 00 8B 12 78 05 |..(0)):.5:....x.|
00000A60: 9F 35 2C 38 2C 35 2C 22 23 22 3A 98 31 2C 22 42 |.5,8,5,"#":.1,"B|
00000A70: 2D 52 3A 35 2C 30 2C 22 54 52 22 2C 22 53 3A 98 |-R:5,0,"TR","S:.|
00000A80: 31 2C 22 42 2D 50 3A 35 2C 22 50 00 B7 12 82 05 |1,"B-P:5,"P.....|
00000A90: 46 24 28 58 29 B2 22 22 3A 81 54 B2 30 A4 32 39 |F$(X)."":.T.0.29|
00000AA0: 3A A1 23 35 2C 41 24 3A 49 28 54 29 B2 C6 28 41 |:.#5,A$:I(T)..(A|
00000AB0: 24 AA C7 28 30 29 29 00 D7 12 8C 05 8B 53 54 B3 |$..(0))......ST.|
00000AC0: B1 30 A7 57 B2 50 AA 54 AA 31 3A 98 31 2C 22 42 |.0.W.P.T.1:.1,"B|
00000AD0: 2D 50 2C 35 2C 22 57 00 04 13 96 05 82 54 3A 81 |-P,5,"W......T:.|
00000AE0: 54 B2 30 A4 32 39 3A 46 24 28 58 29 B2 46 24 28 |T.0.29:F$(X).F$(|
00000AF0: 58 29 AA C7 28 49 28 54 29 29 3A 82 54 3A 57 B2 |X)..(I(T)):.T:W.|
00000B00: 50 AA 32 38 00 3F 13 A0 05 98 31 2C 22 42 2D 50 |P.28.?....1,"B-P|
00000B10: 3A 35 2C 22 57 3A A1 23 35 2C 41 24 3A 4C 4F B2 |:5,"W:.#5,A$:LO.|
00000B20: C6 28 41 24 AA C7 28 30 29 29 3A A1 23 35 2C 41 |.(A$..(0)):.#5,A|
00000B30: 24 3A 48 49 B2 C6 28 41 24 AA C7 28 30 29 29 00 |$:HI..(A$..(0)).|
00000B40: 48 13 AA 05 A0 35 3A 8E 00 78 13 DC 05 9F 35 2C |H....5:..x....5,|
00000B50: 38 2C 35 2C 22 23 22 3A 98 31 2C 22 42 2D 52 3A |8,5,"#":.1,"B-R:|
00000B60: 35 2C 30 2C 22 54 52 22 2C 22 53 3A 98 31 2C 22 |5,0,"TR","S:.1,"|
00000B70: 42 2D 50 3A 35 2C 22 50 00 9E 13 E6 05 98 35 2C |B-P:5,"P......5,|
00000B80: 46 24 28 58 29 3B 3A 98 31 2C 22 55 32 3A 35 2C |F$(X);:.1,"U2:5,|
00000B90: 30 2C 22 54 52 22 2C 22 53 3A A0 35 3A 8E 00 CE |0,"TR","S:.5:...|
00000BA0: 13 40 06 9F 35 2C 38 2C 35 2C 22 23 22 3A 98 31 |.@..5,8,5,"#":.1|
00000BB0: 2C 22 42 2D 52 3A 35 2C 30 2C 22 54 52 22 2C 22 |,"B-R:5,0,"TR","|
00000BC0: 53 3A 98 31 2C 22 42 2D 50 3A 35 2C 30 22 00 E7 |S:.1,"B-P:5,0"..|
00000BD0: 13 4A 06 41 24 B2 C7 28 30 29 3A 41 24 B2 41 24 |.J.A$..(0):A$.A$|
00000BE0: AA C7 28 32 35 35 29 00 0A 14 54 06 98 35 2C 41 |..(255)...T..5,A|
00000BF0: 24 3B 3A 98 31 2C 22 55 32 3A 35 2C 30 2C 22 54 |$;:.1,"U2:5,0,"T|
00000C00: 52 22 2C 22 53 3A A0 35 3A 8E 00 1E 14 D0 07 A1 |R","S:.5:.......|
00000C10: 41 24 3A 8B 41 24 B2 22 22 A7 32 30 30 30 00 24 |A$:.A$."".2000.$|
00000C20: 14 DA 07 8E 00 48 14 B8 0B 9F 31 2C 38 2C 31 35 |.....H....1,8,15|
00000C30: 3A 54 52 B2 31 38 3A 53 B2 31 3A 58 B2 30 3A 50 |:TR.18:S.1:X.0:P|
00000C40: B2 30 3A 8D 31 34 30 30 00 74 14 BD 0B 81 54 B2 |.0:.1400.t....T.|
00000C50: 31 A4 C3 28 46 24 28 58 29 29 3A 99 C6 28 CA 28 |1..(F$(X)):..(.(|
00000C60: 46 24 28 58 29 2C 54 2C 31 29 29 2C 3A 82 3A A0 |F$(X),T,1)),:.:.|
00000C70: 31 3A A0 35 00 7A 14 C2 0B 80 00 99 14 CC 0B 99 |1:.5.z..........|
00000C80: 54 52 2C 53 3A 92 31 39 37 2C 36 30 3A 97 31 39 |TR,S:.197,60:.19|
00000C90: 38 2C 30 3A 89 33 30 30 30 00 BC 14 10 27 83 22 |8,0:.3000....'."|
00000CA0: 44 45 4C 22 2C 22 53 45 51 22 2C 22 50 52 47 22 |DEL","SEQ","PRG"|
00000CB0: 2C 22 55 53 52 22 2C 22 52 45 4C 22 00 00 00 |,"USR","REL"... |
..?....53280,0:.53281,6:.F$(128),I(29):.
1,8,15:.T.0.4:.TY$(T):..F....1000:."....
.................MENU"......".. 1. CHAN
GE DISK NAME"...(..". 2. CHANGE DISK ID
".H.2..". 3. RETRIEVE A SCRATCHED FILE"
...<..". 4. DIRECTORY"...F..". 5. MODI
FY DIRECTORY".!.P..". 6. REMOVE SCRATCH
ED FILES".9.Z.."..YOUR CHOICE? ";.V.D..2
000:.A$."1".A$."6".100.}.N..A$:.E(A$).20
0,300,400,500,700,600...H..1100:."......
CURRENT DISK NAME: ";:.".";J(N$,1,16);".
".V.R..".....NEW DISK NAME: ";.....D$.""
:.T.1.16:.2000:.A$.G(13).250......A$.G(2
0).T.T.1:..)...D$.D$.A$:."."A$;:..Q...N$
.D$.J(N$,C(D$).1,C(N$)):.1200:.20...,..1
100:."......CURRENT DISK ID: ";:.".";J(N
$,19,5);"."...6..".....NEW DISK ID: ";.K
.@.I$."":.T.1.5:.2000:.A$.G(13).350...J.
.A$.G(20).T.T.1:....T.I$.I$.A$:."."A$;:.
.,.^.N$.J(N$,1,18).I$.J(N$,C(I$).19,C(N$
)):.1200:.20.I....1100:."......... "N$".
".[...TR.18:S.1:X.0.I....1300:P.2.{....1
400:TY.I(0)......Q.1.C(F$(X)):.J(F$(X),Q
,1).G(0)..Q:.480......TY.128.."........"
;J(F$(X),4,16);" Y/N...";:.440......47
0......2000:.A$."Y"..".YES.";" TYPE...
.";:.450.2....A$."N".." .NO.":.470.;....
440.X.B..2000:.A$."1".A$."4".450.O.G.E.E
(A$):." "TY$(E)...L.A$.G(128.E):F$(X).A$
.J(F$(X),2,C(F$(X))):.1500.O.V.P.P.32:X.
X.1:..(X.8).X.8.TR.NT:S.NS:.415......420
:.20......"..............NOW VALIDATING"
:.1,"V":.595.)....1100:."......... "N$".
".?...TR.18:S.1:X.0:R.0.M....1300:P.2.J.
...1400:TY.I(0):.R.20..580......Q.1.C(F$
(X)):.J(F$(X),Q,1).G(0)..Q:.595.K...."..
......";J(F$(X),4,16);" ";:.TY.128..".
*";.....TY.(TY.127):.TY$(TY);:P.P.32...&
.L.LO.HI.256:." "L./.0.X.X.1:R.R.1:..(X
.8).X.8.TR.NT:S.NS:.515.8.:..520.X.D..".
.......PRESS ANY KEY FOR NEXT PAGE":.198
,0:.198,1:.198,0...N.R.0:."......... "N$
".":..S.S.."........PRESS ANY KEY TO SEE
MENU":.198,0:.198,1:.198,0...U..20.!.X.
."...BEWARE! THESE FILES CAN NOT BE RETR
EIVED":."ARE YOU SURE? ";.W.]..2000:.A$.
"Y"..A$:.".THIS WILL TAKE A WHILE":.620.
F.B..A$."N".20.O.G..610...L.TR.18:S.1:X.
0...Q..1300:P.2.F.V..1400:.Q.1.C(F$(X)):
.J(F$(X),Q,1).G(0)..Q:E.X:.645...{.X.X.1
:P.P.32:..(X.8).X.8.TR.NT:S.NS:.625.....
.630......T.0.X:.J(F$(T),1,1).G(0)..690.
L....T:.T.1.C(F$(0)):F$(128).F$(128).G(0
):.T.I....T.X.1.E:F$(T).F$(128):..{...TR
.18:S.1:X.0......1300:P.2......1500:X.X.
1:P.P.32:.X.E.685.I.....(X.8).X.8.TR.NT:
S.NS:.665.R....670......1600:.20......Q.
T.X:F$(Q).F$(Q.1):.Q:T.T.1:X.X.1:..5....
".......................DISK ERROR:";.].
...1,A$,B$,C$,D$:.A$" "B$" "C$","D$:....
L..5,8,5,"#":.1,"B-R:5,0,18,0":.1,"B-P:5
,144"...V.N$."":.T.144.167:.#5,A$:N$.N$.
A$:.T: 5:..X....5,8,5,"#":.1,"B-P:5,144"
......5,N$:.1,"U2:5,0,18,0": 5:..(....5,
8,5,"#":.1,"B-R:5,0,"TR","S:.1,"B-P:5,0"
.[....#5,A$:NT.F(A$.G(0)):.#5,A$:NS.F(A$
.G(0)): 5:....X..5,8,5,"#":.1,"B-R:5,0,"
TR","S:.1,"B-P:5,"P.....F$(X)."":.T.0.29
:.#5,A$:I(T).F(A$.G(0)).W....ST..0.W.P.T
.1:.1,"B-P,5,"W......T:.T.0.29:F$(X).F$(
X).G(I(T)):.T:W.P.28.?. ..1,"B-P:5,"W:.#
5,A$:LO.F(A$.G(0)):.#5,A$:HI.F(A$.G(0)).
H... 5:..X....5,8,5,"#":.1,"B-R:5,0,"TR"
,"S:.1,"B-P:5,"P......5,F$(X);:.1,"U2:5,
0,"TR","S: 5:..N.@..5,8,5,"#":.1,"B-R:5,
0,"TR","S:.1,"B-P:5,0"...J.A$.G(0):A$.A$
.G(255)...T..5,A$;:.1,"U2:5,0,"TR","S: 5
:....P..A$:.A$."".2000.$.Z...H....1,8,15
:TR.18:S.1:X.0:P.0:.1400.T....T.1.C(F$(X
)):.F(J(F$(X),T,1)),:.: 1: 5.Z.B.....L..
TR,S:.197,60:.198,0:.3000....'."DEL","SE
Q","PRG","USR","REL"...
> CLICK IMAGE PREVIEW FOR FULL MODAL