DIRECTORY-SORT
FILE INFORMATION
FILENAME(S): DIRECTORY-SORT
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-10-20 14:30:06
APPEARS ON: 1 disk(s)
FILE HASH
b42b1b8581154b8a05e1cbbe6a02b8f2a4925fa6984d6c4a5223d06b097053e2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | DIRECTORY-SORT | PRG | Treasure Chest - Klaus Der Suhler | 19 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |.. .d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 00 3F 08 6E 00 8F 20 2A 20 20 20 20 20 20 20 20 |.?.n.. * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000040: 5E 08 78 00 8F 20 2A 20 44 49 52 45 43 54 4F 52 |^.x.. * DIRECTOR| 00000050: 59 2D 53 4F 52 54 20 56 31 2E 30 20 20 2A 00 7D |Y-SORT V1.0 *.}| 00000060: 08 82 00 8F 20 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |.... * ---------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2A 00 9C 08 |---------- *...| 00000080: 8C 00 8F 20 2A 20 41 55 54 4F 52 3A 20 20 20 20 |... * AUTOR: | 00000090: 20 20 20 20 20 20 20 20 20 20 20 2A 00 BB 08 96 | *....| 000000A0: 00 8F 20 2A 20 45 44 57 49 4E 20 47 4F 45 42 45 |.. * EDWIN GOEBE| 000000B0: 4C 20 20 20 20 20 20 20 20 20 2A 00 DA 08 A0 00 |L *.....| 000000C0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 000000D0: 20 20 20 20 20 20 20 20 20 2A 00 F9 08 AA 00 8F | *......| 000000E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 09 C8 00 89 20 |*********...... | 00000100: 34 33 30 00 29 09 D2 00 8F 20 2A 2A 2A 2A 2A 2A |430.).... ******| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E 09 DC 00 8F 20 |*********.>.... | 00000130: 20 55 4E 54 45 52 52 4F 55 54 49 4E 45 4E 00 64 | UNTERROUTINEN.d| 00000140: 09 E6 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 00 82 09 F0 00 84 31 2C 46 31 2C 46 |****......1,F1,F| 00000170: 24 2C 46 32 2C 46 33 3A 8B 20 46 31 B2 30 20 A7 |$,F2,F3:. F1.0 .| 00000180: 20 8E 00 BE 09 FA 00 99 22 9F 11 22 46 31 3B 46 | .......".."F1;F| 00000190: 24 2C 46 32 3B 46 33 22 90 22 3A 80 3A 8F 20 22 |$,F2;F3".":.:. "| 000001A0: 28 43 59 41 4E 29 22 3D 43 59 41 4E 3B 22 28 42 |(CYAN)"=CYAN;"(B| 000001B0: 4C 41 43 4B 29 22 3D 53 43 48 57 41 52 5A 00 E4 |LACK)"=SCHWARZ..| 000001C0: 09 04 01 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.... -----------| 000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001E0: 2D 2D 2D 2D 00 F7 09 0E 01 8B 20 4E 4F AA 45 4E |----...... NO.EN| 000001F0: B1 B2 43 20 A7 20 8E 00 17 0A 18 01 9E 20 35 33 |..C . ....... 53| 00000200: 30 35 36 2C 30 2C 32 2C 32 2C 32 33 2C 31 38 3A |056,0,2,2,23,18:| 00000210: 4E 4F B2 4E 4F AA 31 00 49 0A 22 01 97 20 32 31 |NO.NO.1.I.".. 21| 00000220: 34 2C 32 33 3A 97 20 32 31 31 2C 32 3A 9E 20 35 |4,23:. 211,2:. 5| 00000230: 38 37 33 32 3A 99 4E 41 24 28 5A 55 28 4E 4F AA |8732:.NA$(ZU(NO.| 00000240: 45 4E AB 31 29 29 3B 3A 8E 00 6F 0A 2C 01 8F 20 |EN.1));:..o.,.. | 00000250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000270: 7E 0A 36 01 8B 20 4E 4F B2 30 20 A7 20 8E 00 9E |~.6.. NO.0 . ...| 00000280: 0A 40 01 9E 20 35 33 30 35 36 2C 31 2C 32 2C 32 |.@.. 53056,1,2,2| 00000290: 2C 32 33 2C 31 38 3A 4E 4F B2 4E 4F AB 31 00 CB |,23,18:NO.NO.1..| 000002A0: 0A 4A 01 97 20 32 31 34 2C 32 3A 97 20 32 31 31 |.J.. 214,2:. 211| 000002B0: 2C 32 3A 9E 20 35 38 37 33 32 3A 99 4E 41 24 28 |,2:. 58732:.NA$(| 000002C0: 5A 55 28 4E 4F AA 31 29 29 3A 8E 00 F1 0A 54 01 |ZU(NO.1)):....T.| 000002D0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002F0: 2D 00 10 0B 5E 01 99 22 93 90 12 22 A3 31 33 29 |-...^.."...".13)| 00000300: 22 44 49 52 45 43 54 4F 52 59 2D 53 4F 52 54 22 |"DIRECTORY-SORT"| 00000310: 00 2D 0B 68 01 99 20 A3 31 32 29 22 2D 2D 2D 2D |.-.h.. .12)"----| 00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 5C 0B |------------".\.| 00000330: 72 01 99 22 9F 11 20 44 49 53 4B 45 54 54 45 20 |r..".. DISKETTE | 00000340: 45 49 4E 4C 45 47 45 4E 20 55 4E 44 20 54 41 53 |EINLEGEN UND TAS| 00000350: 54 45 20 44 52 55 45 43 4B 45 4E 22 00 72 0B 7C |TE DRUECKEN".r.|| 00000360: 01 A1 20 54 24 3A 8B 20 54 24 B2 22 22 A7 20 33 |.. T$:. T$."". 3| 00000370: 38 30 00 A5 0B 86 01 99 22 13 11 11 11 20 20 20 |80......".... | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 22 3A 8E 00 CB 0B 90 01 8F 20 2A 2A 2A 2A | ":....... ****| 000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 0B 9A 01 |***********.....| 000003D0: 8F 20 20 42 45 47 49 4E 4E 20 44 45 53 20 48 41 |. BEGINN DES HA| 000003E0: 55 50 54 50 52 4F 47 52 41 4D 4D 45 53 00 13 0C |UPTPROGRAMMES...| 000003F0: A4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000410: 2A 2A 2A 00 32 0C AE 01 97 20 35 33 32 38 30 2C |***.2.... 53280,| 00000420: 30 3A 97 20 35 33 32 38 31 2C 31 20 3A 8D 20 33 |0:. 53281,1 :. 3| 00000430: 35 30 00 6F 0C B8 01 9F 20 31 2C 38 2C 31 35 2C |50.o.... 1,8,15,| 00000440: 22 49 22 3A 86 20 41 4E 24 28 31 34 35 29 2C 4E |"I":. AN$(145),N| 00000450: 41 24 28 31 34 35 29 2C 52 45 24 28 31 34 35 29 |A$(145),RE$(145)| 00000460: 2C 5A 55 28 31 34 36 29 2C 53 4E 28 31 39 29 00 |,ZU(146),SN(19).| 00000470: 88 0C C2 01 81 20 49 B2 31 20 A4 20 31 38 3A 87 |..... I.1 . 18:.| 00000480: 20 53 4E 28 49 29 3A 82 00 AB 0C CC 01 81 20 49 | SN(I):....... I| 00000490: B2 35 32 39 39 32 20 A4 20 35 33 32 34 32 20 3A |.52992 . 53242 :| 000004A0: 87 20 53 3A 97 20 49 2C 53 3A 82 00 C8 0C D6 01 |. S:. I,S:......| 000004B0: 8D 20 32 34 30 3A 9F 20 32 2C 38 2C 32 2C 22 23 |. 240:. 2,8,2,"#| 000004C0: 22 20 3A 8D 20 32 34 30 00 FE 0C E0 01 53 B2 31 |" :. 240.....S.1| 000004D0: 3A 43 B2 31 3A 4E 24 B2 C7 28 30 29 3A 4E 4E 24 |:C.1:N$..(0):NN$| 000004E0: B2 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA |.N$.N$.N$.N$.N$.| 000004F0: 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 AA 4E 24 00 20 |N$.N$.N$.N$.N$. | 00000500: 0D EA 01 4E 55 24 B2 4E 4E 24 AA 4E 4E 24 AA 4E |...NU$.NN$.NN$.N| 00000510: 4E 24 3A 52 45 24 28 30 29 B2 4E 4E 24 AA 4E 24 |N$:RE$(0).NN$.N$| 00000520: 00 65 0D F4 01 41 4E 24 28 30 29 B2 C7 28 31 32 |.e...AN$(0)..(12| 00000530: 38 29 AA C7 28 31 38 29 AA C7 28 31 29 3A 4E 41 |8)..(18)..(1):NA| 00000540: 24 28 30 29 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |$(0)."----------| 00000550: 2D 2D 2D 2D 2D 2D 22 3A 8F 20 54 52 45 4E 4E 53 |------":. TRENNS| 00000560: 54 52 49 43 48 00 8B 0D FE 01 8F 20 2A 2A 2A 2A |TRICH...... ****| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AA 0D 08 02 |***********.....| 00000590: 8F 20 20 45 49 4E 4C 45 53 45 4E 20 44 45 53 20 |. EINLESEN DES | 000005A0: 44 49 52 45 43 54 4F 52 59 53 00 D0 0D 12 02 8F |DIRECTORYS......| 000005B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 00 04 0E 1C 02 98 31 2C 22 55 31 20 32 20 30 20 |......1,"U1 2 0 | 000005E0: 31 38 22 53 3A 99 22 13 96 22 53 22 9D 20 22 3A |18"S:.".."S". ":| 000005F0: 8F 22 28 4C 49 47 2E 52 45 44 29 22 3D 48 45 4C |."(LIG.RED)"=HEL| 00000600: 4C 52 4F 54 00 21 0E 26 02 A1 23 32 2C 54 24 3A |LROT.!.&..#2,T$:| 00000610: A1 23 32 2C 53 24 3A 53 B2 C6 28 53 24 AA 4E 24 |.#2,S$:S..(S$.N$| 00000620: 29 00 43 0E 30 02 81 20 42 50 B2 30 20 A4 20 37 |).C.0.. BP.0 . 7| 00000630: 3A 98 31 2C 22 42 2D 50 20 32 22 3B 42 50 AC 33 |:.1,"B-P 2";BP.3| 00000640: 32 AA 32 00 76 0E 3A 02 9E 20 35 32 39 39 32 2C |2.2.v.:.. 52992,| 00000650: 32 2C 33 2C 58 24 3A 41 4E 24 28 43 29 B2 58 24 |2,3,X$:AN$(C).X$| 00000660: 3A 8B 20 C8 28 58 24 2C 31 29 B2 4E 24 A7 20 82 |:. .(X$,1).N$. .| 00000670: 3A 89 20 36 30 30 00 AE 0E 44 02 9E 20 35 32 39 |:. 600...D.. 529| 00000680: 39 32 2C 32 2C 31 36 2C 58 24 3A 4E 41 24 28 43 |92,2,16,X$:NA$(C| 00000690: 29 B2 58 24 3A 9E 20 35 32 39 39 32 2C 32 2C 31 |).X$:. 52992,2,1| 000006A0: 31 2C 58 24 3A 52 45 24 28 43 29 B2 58 24 00 D0 |1,X$:RE$(C).X$..| 000006B0: 0E 4E 02 5A 55 28 43 29 B2 43 3A 99 22 13 1D 1D |.N.ZU(C).C:."...| 000006C0: 1D 1D 22 43 22 9D 20 22 3A 43 B2 43 AA 31 3A 82 |.."C". ":C.C.1:.| 000006D0: 00 E2 0E 58 02 8B 20 54 24 B3 B1 22 22 A7 20 35 |...X.. T$.."". 5| 000006E0: 34 30 00 23 0F 62 02 A0 32 3A 97 20 36 35 30 2C |40.#.b..2:. 650,| 000006F0: 31 32 38 3A 99 22 13 11 11 90 3E 9F 91 22 3B 3A |128:."....>..";:| 00000700: 43 50 B2 32 3A 4E 4F B2 30 3A 4E 55 B2 30 3A 45 |CP.2:NO.0:NU.0:E| 00000710: 4E B2 43 3A 8B 20 45 4E B1 32 33 20 A7 20 45 4E |N.C:. EN.23 . EN| 00000720: B2 32 33 00 54 0F 6C 02 99 20 C7 28 31 33 29 A3 |.23.T.l.. .(13).| 00000730: 32 29 4E 41 24 28 4E 55 AA 31 29 3B 3A 4E 55 B2 |2)NA$(NU.1);:NU.| 00000740: 4E 55 AA 31 3A 8B 20 4E 55 B3 45 4E AB 31 20 A7 |NU.1:. NU.EN.1 .| 00000750: 20 36 32 30 00 7A 0F 76 02 8F 20 2A 2A 2A 2A 2A | 620.z.v.. *****| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 0F 80 02 8F |**********......| 00000780: 20 20 54 41 53 54 41 54 55 52 41 42 46 52 41 47 | TASTATURABFRAG| 00000790: 45 00 B7 0F 8A 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |E...... ********| 000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007B0: 2A 2A 2A 2A 2A 2A 2A 00 CF 0F BC 02 A1 20 54 41 |*******...... TA| 000007C0: 24 3A 8B 20 54 41 24 B2 22 22 A7 20 37 30 30 00 |$:. TA$."". 700.| 000007D0: 02 10 C6 02 8B 20 54 41 24 B2 22 86 22 A7 20 8B |..... TA$.".". .| 000007E0: 20 43 50 B1 32 20 A7 20 43 50 B2 43 50 AB 31 3A | CP.2 . CP.CP.1:| 000007F0: 9E 20 35 33 30 35 36 2C 30 2C 32 2C 30 2C 32 33 |. 53056,0,2,0,23| 00000800: 2C 30 00 20 10 D0 02 8B 20 54 41 24 B2 22 86 22 |,0. .... TA$."."| 00000810: A7 20 8B 20 43 50 B2 32 20 A7 20 8D 20 33 31 30 |. . CP.2 . . 310| 00000820: 00 60 10 DA 02 8B 20 54 41 24 B2 22 87 22 A7 20 |.`.... TA$.".". | 00000830: 8B 20 43 50 B3 45 4E 20 A7 20 8B 20 4E 4F AA 43 |. CP.EN . . NO.C| 00000840: 50 B3 43 20 A7 20 43 50 B2 43 50 AA 31 3A 9E 20 |P.C . CP.CP.1:. | 00000850: 35 33 30 35 36 2C 31 2C 32 2C 30 2C 32 33 2C 30 |53056,1,2,0,23,0| 00000860: 00 80 10 E4 02 8B 20 54 41 24 B2 22 87 22 A7 20 |...... TA$.".". | 00000870: 8B 20 43 50 B1 B2 32 33 20 A7 20 8D 20 32 37 30 |. CP..23 . . 270| 00000880: 00 93 10 EE 02 8B 20 54 41 24 B2 22 85 22 A7 20 |...... TA$.".". | 00000890: 38 31 30 00 C8 10 F8 02 8B 20 54 41 24 B2 22 89 |810...... TA$.".| 000008A0: 22 A7 20 8B 20 43 B3 31 34 35 20 A7 20 46 B2 31 |". . C.145 . F.1| 000008B0: 3A 43 B2 43 AA 31 3A 99 22 96 13 1D 1D 1D 1D 22 |:C.C.1:."......"| 000008C0: 43 AB 31 22 9D 20 9F 22 00 E1 10 F9 02 45 4E B2 |C.1". .".....EN.| 000008D0: 45 4E AA 31 3A 8B 45 4E B1 32 33 A7 45 4E B2 32 |EN.1:.EN.23.EN.2| 000008E0: 33 00 12 11 02 03 8B 20 54 41 24 B2 22 89 22 A7 |3...... TA$.".".| 000008F0: 20 8B 20 46 B2 31 20 A7 20 46 B2 30 3A 54 45 B2 | . F.1 . F.0:TE.| 00000900: 30 3A 54 45 24 B2 4E 41 24 28 30 29 3A 89 20 38 |0:TE$.NA$(0):. 8| 00000910: 34 30 00 26 11 0C 03 8B 20 54 41 24 B2 22 8C 22 |40.&.... TA$."."| 00000920: A7 20 31 30 30 30 00 3A 11 16 03 8B 20 54 41 24 |. 1000.:.... TA$| 00000930: B2 22 8B 22 A7 20 31 30 39 30 00 44 11 20 03 89 |.".". 1090.D. ..| 00000940: 20 37 30 30 00 63 11 2A 03 54 45 B2 5A 55 28 4E | 700.c.*.TE.ZU(N| 00000950: 4F AA 43 50 AB 31 29 3A 54 45 24 B2 4E 41 24 28 |O.CP.1):TE$.NA$(| 00000960: 54 45 29 00 9B 11 34 03 9E 20 35 33 30 35 36 2C |TE)...4.. 53056,| 00000970: 30 2C 43 50 2C 32 2C 32 33 2C 31 38 3A 8B 20 43 |0,CP,2,23,18:. C| 00000980: B1 32 33 20 A7 20 45 4E B2 45 4E AA 31 3A 8D 20 |.23 . EN.EN.1:. | 00000990: 32 39 30 3A 45 4E B2 45 4E AB 31 00 C3 11 3E 03 |290:EN.EN.1...>.| 000009A0: 81 20 49 B2 4E 4F AA 43 50 AB 32 20 A4 20 43 AB |. I.NO.CP.2 . C.| 000009B0: 31 3A 5A 55 28 49 AA 31 29 B2 5A 55 28 49 AA 32 |1:ZU(I.1).ZU(I.2| 000009C0: 29 3A 82 00 E1 11 48 03 97 20 32 31 34 2C 43 50 |):....H.. 214,CP| 000009D0: 3A 97 20 32 31 31 2C 31 39 3A 9E 20 35 38 37 33 |:. 211,19:. 5873| 000009E0: 32 00 02 12 52 03 99 22 A3 A3 22 54 45 24 3A 8F |2...R..".."TE$:.| 000009F0: 20 22 54 22 3D 43 4F 4D 4D 4F 44 4F 52 45 2B 22 | "T"=COMMODORE+"| 00000A00: 54 22 00 1B 12 5C 03 A1 20 54 41 24 3A 8B 20 54 |T"...\.. TA$:. T| 00000A10: 41 24 B2 22 22 20 A7 20 38 36 30 00 5C 12 66 03 |A$."" . 860.\.f.| 00000A20: 8B 54 41 24 B2 22 86 22 A7 8B 43 50 B1 32 A7 43 |.TA$."."..CP.2.C| 00000A30: 50 B2 43 50 AB 31 3A 9E 35 33 30 35 36 2C 30 2C |P.CP.1:.53056,0,| 00000A40: 32 2C 31 39 2C 32 34 2C 33 37 3A 9E 35 33 30 35 |2,19,24,37:.5305| 00000A50: 36 2C 30 2C 32 2C 30 2C 32 33 2C 30 00 74 12 70 |6,0,2,0,23,0.t.p| 00000A60: 03 8B 54 41 24 B2 22 86 22 A7 8B 43 50 B2 32 A7 |..TA$."."..CP.2.| 00000A70: 8D 33 31 30 00 B6 12 7A 03 8B 54 41 24 B2 22 87 |.310...z..TA$.".| 00000A80: 22 A7 8B 43 50 B3 45 4E A7 43 50 B2 43 50 AA 31 |"..CP.EN.CP.CP.1| 00000A90: 3A 9E 35 33 30 35 36 2C 31 2C 32 2C 31 39 2C 32 |:.53056,1,2,19,2| 00000AA0: 34 2C 33 37 3A 9E 35 33 30 35 36 2C 31 2C 32 2C |4,37:.53056,1,2,| 00000AB0: 30 2C 32 33 2C 30 00 D4 12 84 03 8B 20 54 41 24 |0,23,0...... TA$| 00000AC0: B2 22 87 22 A7 20 8B 20 43 50 B2 32 33 20 A7 20 |.".". . CP.23 . | 00000AD0: 8D 32 37 30 00 E7 12 8E 03 8B 20 54 41 24 B2 22 |.270...... TA$."| 00000AE0: 85 22 A7 20 39 35 30 00 28 13 98 03 8B 20 54 41 |.". 950.(.... TA| 00000AF0: 24 B2 22 8A 22 A7 20 54 45 24 B2 22 1D 1D 1D 1D |$.".". TE$."....| 00000B00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 43 B2 |............":C.| 00000B10: 43 AB 31 3A 45 4E B2 43 3A 8B 20 45 4E B1 32 33 |C.1:EN.C:. EN.23| 00000B20: 20 A7 20 45 4E B2 32 33 00 4E 13 A2 03 8B 54 41 | . EN.23.N....TA| 00000B30: 24 B2 22 8A 22 A7 20 99 22 13 96 1D 1D 1D 1D 22 |$.".". ."......"| 00000B40: 43 AB 31 22 9D 20 9F 22 3A 89 20 39 37 30 00 58 |C.1". .":. 970.X| 00000B50: 13 AC 03 89 20 38 36 30 00 71 13 B6 03 9E 20 35 |.... 860.q.... 5| 00000B60: 33 30 35 36 2C 31 2C 43 50 2C 32 2C 32 33 2C 31 |3056,1,CP,2,23,1| 00000B70: 38 00 AA 13 C0 03 81 20 49 B2 43 AB 31 20 A4 20 |8...... I.C.1 . | 00000B80: 4E 4F AA 43 50 AB 31 20 A9 AB 31 3A 5A 55 28 49 |NO.CP.1 ..1:ZU(I| 00000B90: AA 31 29 B2 5A 55 28 49 29 3A 82 3A 5A 55 28 4E |.1).ZU(I):.:ZU(N| 00000BA0: 4F AA 43 50 AB 31 29 B2 54 45 00 C7 13 CA 03 97 |O.CP.1).TE......| 00000BB0: 20 32 31 34 2C 43 50 3A 97 20 32 31 31 2C 32 3A | 214,CP:. 211,2:| 00000BC0: 9E 20 35 38 37 33 32 00 E6 13 D4 03 99 20 54 45 |. 58732...... TE| 00000BD0: 24 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$" | 00000BE0: 20 20 20 20 20 22 00 F0 13 DE 03 89 20 37 30 30 | "...... 700| 00000BF0: 00 15 14 E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C10: 2A 2A 2A 2A 2A 00 3A 14 F2 03 8F 20 20 53 43 48 |*****.:.... SCH| 00000C20: 52 45 49 42 45 4E 20 44 45 53 20 53 4F 52 54 49 |REIBEN DES SORTI| 00000C30: 45 52 54 45 4E 20 44 49 52 2E 00 5F 14 FC 03 8F |ERTEN DIR.._....| 00000C40: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000C60: 9A 14 06 04 9F 20 32 2C 38 2C 32 2C 22 23 22 3A |..... 2,8,2,"#":| 00000C70: 54 B2 31 38 3A 81 20 49 B2 30 20 A4 20 B5 28 28 |T.18:. I.0 . .((| 00000C80: 43 AB 32 29 AD 38 29 3A 8B 20 38 AC 49 AA 38 B1 |C.2).8):. 8.I.8.| 00000C90: B2 43 AB 31 20 A7 20 54 B2 30 00 BD 14 10 04 98 |.C.1 . T.0......| 00000CA0: 31 2C 22 42 2D 50 20 32 20 30 22 3A 98 32 2C C7 |1,"B-P 2 0":.2,.| 00000CB0: 28 54 29 C7 28 53 4E 28 49 AA 32 29 29 00 DF 14 |(T).(SN(I.2))...| 00000CC0: 1A 04 81 20 42 50 B2 30 20 A4 20 37 3A 98 31 2C |... BP.0 . 7:.1,| 00000CD0: 22 42 2D 50 20 32 22 3B 42 50 AC 33 32 AA 32 00 |"B-P 2";BP.32.2.| 00000CE0: 02 15 24 04 8B 20 42 50 AA 38 AC 49 AA 31 B1 B2 |..$.. BP.8.I.1..| 00000CF0: 43 A7 98 32 2C 4E 55 24 3B 3A 82 3A 89 20 31 30 |C..2,NU$;:.:. 10| 00000D00: 38 30 00 40 15 2E 04 98 32 2C 41 4E 24 28 5A 55 |80.@....2,AN$(ZU| 00000D10: 28 42 50 AA 38 AC 49 AA 31 29 29 4E 41 24 28 5A |(BP.8.I.1))NA$(Z| 00000D20: 55 28 42 50 AA 38 AC 49 AA 31 29 29 52 45 24 28 |U(BP.8.I.1))RE$(| 00000D30: 5A 55 28 42 50 AA 38 AC 49 AA 31 29 29 3B 3A 82 |ZU(BP.8.I.1));:.| 00000D40: 00 78 15 38 04 98 31 2C 22 55 32 20 32 20 30 20 |.x.8..1,"U2 2 0 | 00000D50: 31 38 22 53 4E 28 49 AA 31 29 3A 99 22 1D 13 22 |18"SN(I.1):.".."| 00000D60: A3 33 36 29 53 4E 28 49 AA 31 29 22 9D 20 9F 22 |.36)SN(I.1)". ."| 00000D70: 3A 8D 20 32 34 30 3A 82 00 8C 15 42 04 A0 20 32 |:. 240:....B.. 2| 00000D80: 3A 8D 20 33 35 30 3A 89 20 34 37 30 00 B1 15 4C |:. 350:. 470...L| 00000D90: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DB0: 2A 00 D6 15 56 04 8F 20 20 53 45 4B 54 4F 52 45 |*...V.. SEKTORE| 00000DC0: 4E 20 44 45 53 20 44 49 52 45 43 54 4F 52 59 20 |N DES DIRECTORY | 00000DD0: 54 52 41 43 4B 53 00 FB 15 60 04 8F 20 2A 2A 2A |TRACKS...`.. ***| 00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2E 16 6A 04 |***********...j.| 00000E00: 83 20 31 2C 34 2C 37 2C 31 30 2C 31 33 2C 31 36 |. 1,4,7,10,13,16| 00000E10: 2C 32 2C 35 2C 38 2C 31 31 2C 31 34 2C 31 37 2C |,2,5,8,11,14,17,| 00000E20: 33 2C 36 2C 39 2C 31 32 2C 31 35 2C 31 38 00 53 |3,6,9,12,15,18.S| 00000E30: 16 74 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.t.. ***********| 00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E50: 2A 2A 2A 00 72 16 7E 04 8F 20 20 49 4E 50 55 54 |***.r.~.. INPUT| 00000E60: 20 4D 41 53 43 48 49 4E 45 4E 2D 52 4F 55 54 49 | MASCHINEN-ROUTI| 00000E70: 4E 45 00 97 16 88 04 8F 20 2A 2A 2A 2A 2A 2A 2A |NE...... *******| 00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000E90: 2A 2A 2A 2A 2A 2A 2A 00 E1 16 92 04 83 20 33 32 |*******...... 32| 00000EA0: 2C 32 35 33 2C 31 37 34 2C 33 32 2C 31 35 38 2C |,253,174,32,158,| 00000EB0: 31 38 33 2C 33 32 2C 33 30 2C 32 32 35 2C 33 32 |183,32,30,225,32| 00000EC0: 2C 32 35 33 2C 31 37 34 2C 33 32 2C 31 35 38 2C |,253,174,32,158,| 00000ED0: 31 38 33 2C 31 33 38 2C 37 32 2C 33 32 2C 32 35 |183,138,72,32,25| 00000EE0: 33 00 28 17 9C 04 83 20 31 37 34 2C 33 32 2C 31 |3.(.... 174,32,1| 00000EF0: 33 39 2C 31 37 36 2C 31 33 33 2C 37 33 2C 31 33 |39,176,133,73,13| 00000F00: 32 2C 37 34 2C 33 32 2C 31 36 33 2C 31 38 32 2C |2,74,32,163,182,| 00000F10: 31 30 34 2C 33 32 2C 31 31 37 2C 31 38 30 2C 31 |104,32,117,180,1| 00000F20: 36 30 2C 32 2C 31 38 35 00 70 17 A6 04 83 20 39 |60,2,185.p.... 9| 00000F30: 37 2C 30 2C 31 34 35 2C 37 33 2C 31 33 36 2C 31 |7,0,145,73,136,1| 00000F40: 36 2C 32 34 38 2C 32 30 30 2C 33 32 2C 31 38 2C |6,248,200,32,18,| 00000F50: 32 32 35 2C 31 34 35 2C 39 38 2C 32 30 30 2C 31 |225,145,98,200,1| 00000F60: 39 36 2C 39 37 2C 32 30 38 2C 32 34 36 2C 33 32 |96,97,208,246,32| 00000F70: 00 8B 17 B0 04 83 20 32 30 34 2C 32 35 35 2C 39 |...... 204,255,9| 00000F80: 36 2C 30 2C 30 2C 30 2C 30 2C 30 00 B0 17 BA 04 |6,0,0,0,0,0.....| 00000F90: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 00000FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000FB0: 00 D0 17 C4 04 8F 20 20 53 43 52 4F 4C 4C 20 4D |...... SCROLL M| 00000FC0: 41 53 43 48 49 4E 45 4E 2D 52 4F 55 54 49 4E 45 |ASCHINEN-ROUTINE| 00000FD0: 00 F5 17 CE 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 00000FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000FF0: 2A 2A 2A 2A 2A 00 26 18 D8 04 83 33 32 2C 32 34 |*****.&....32,24| 00001000: 35 2C 32 30 37 2C 31 33 38 2C 37 32 2C 33 32 2C |5,207,138,72,32,| 00001010: 32 34 35 2C 32 30 37 2C 32 32 34 2C 30 2C 31 37 |245,207,224,0,17| 00001020: 36 2C 33 2C 37 36 00 6E 18 E2 04 83 20 37 32 2C |6,3,76.n.... 72,| 00001030: 31 37 38 2C 32 32 34 2C 32 34 2C 31 37 36 2C 32 |178,224,24,176,2| 00001040: 34 39 2C 31 33 34 2C 32 35 31 2C 33 32 2C 32 34 |49,134,251,32,24| 00001050: 35 2C 32 30 37 2C 32 32 34 2C 30 2C 31 34 34 2C |5,207,224,0,144,| 00001060: 32 34 30 2C 32 32 34 2C 33 39 2C 31 37 36 00 B5 |240,224,39,176..| 00001070: 18 EC 04 83 20 32 33 36 2C 31 33 34 2C 32 35 33 |.... 236,134,253| 00001080: 2C 33 32 2C 32 34 35 2C 32 30 37 2C 32 32 34 2C |,32,245,207,224,| 00001090: 32 35 2C 31 37 36 2C 32 32 37 2C 31 33 34 2C 32 |25,176,227,134,2| 000010A0: 35 32 2C 32 33 32 2C 31 33 38 2C 35 36 2C 32 32 |52,232,138,56,22| 000010B0: 39 2C 32 35 31 00 FD 18 F6 04 83 20 31 34 34 2C |9,251...... 144,| 000010C0: 32 31 38 2C 32 34 30 2C 32 31 36 2C 31 33 33 2C |218,240,216,133,| 000010D0: 32 35 30 2C 33 32 2C 32 34 35 2C 32 30 37 2C 32 |250,32,245,207,2| 000010E0: 32 34 2C 34 30 2C 31 37 36 2C 32 30 37 2C 32 32 |24,40,176,207,22| 000010F0: 38 2C 32 35 33 2C 31 34 34 2C 32 30 33 00 45 19 |8,253,144,203.E.| 00001100: 00 05 83 20 31 33 34 2C 32 35 34 2C 31 30 34 2C |... 134,254,104,| 00001110: 31 37 30 2C 31 36 35 2C 31 37 32 2C 37 32 2C 31 |170,165,172,72,1| 00001120: 36 35 2C 31 37 33 2C 37 32 2C 31 36 35 2C 31 37 |65,173,72,165,17| 00001130: 34 2C 37 32 2C 31 36 35 2C 31 37 35 2C 37 32 2C |4,72,165,175,72,| 00001140: 32 32 34 2C 30 00 8C 19 0A 05 83 20 32 30 38 2C |224,0...... 208,| 00001150: 32 32 2C 31 36 36 2C 32 35 31 2C 31 39 38 2C 32 |22,166,251,198,2| 00001160: 35 30 2C 32 34 30 2C 34 34 2C 33 32 2C 32 34 30 |50,240,44,32,240| 00001170: 2C 32 33 33 2C 32 33 32 2C 31 38 39 2C 32 34 30 |,233,232,189,240| 00001180: 2C 32 33 36 2C 31 33 33 2C 31 37 32 00 D4 19 14 |,236,133,172....| 00001190: 05 83 20 31 38 31 2C 32 31 37 2C 33 32 2C 32 31 |.. 181,217,32,21| 000011A0: 39 2C 32 30 37 2C 34 38 2C 32 33 36 2C 32 30 32 |9,207,48,236,202| 000011B0: 2C 32 34 30 2C 33 2C 37 36 2C 37 32 2C 31 37 38 |,240,3,76,72,178| 000011C0: 2C 31 36 36 2C 32 35 32 2C 31 39 38 2C 32 35 30 |,166,252,198,250| 000011D0: 2C 32 34 30 00 1E 1A 1E 05 83 20 31 36 2C 33 32 |,240...... 16,32| 000011E0: 2C 32 34 30 2C 32 33 33 2C 32 30 32 2C 31 38 39 |,240,233,202,189| 000011F0: 2C 32 34 30 2C 32 33 36 2C 31 33 33 2C 31 37 32 |,240,236,133,172| 00001200: 2C 31 38 31 2C 32 31 37 2C 33 32 2C 32 31 39 2C |,181,217,32,219,| 00001210: 32 30 37 2C 34 38 2C 32 33 36 2C 31 36 34 00 65 |207,48,236,164.e| 00001220: 1A 28 05 83 20 32 35 34 2C 33 32 2C 32 34 30 2C |.(.. 254,32,240,| 00001230: 32 33 33 2C 33 32 2C 33 36 2C 32 33 34 2C 31 36 |233,32,36,234,16| 00001240: 39 2C 33 32 2C 31 34 35 2C 32 30 39 2C 31 33 36 |9,32,145,209,136| 00001250: 2C 31 39 36 2C 32 35 33 2C 31 36 2C 32 34 39 2C |,196,253,16,249,| 00001260: 37 36 2C 38 38 00 AC 1A 32 05 83 20 32 33 33 2C |76,88...2.. 233,| 00001270: 34 31 2C 33 2C 31 33 2C 31 33 36 2C 32 2C 31 33 |41,3,13,136,2,13| 00001280: 33 2C 31 37 33 2C 33 32 2C 32 32 34 2C 32 33 33 |3,173,32,224,233| 00001290: 2C 31 36 34 2C 32 35 34 2C 31 37 37 2C 31 37 32 |,164,254,177,172| 000012A0: 2C 31 34 35 2C 32 30 39 2C 31 37 37 00 EA 1A 3C |,145,209,177...<| 000012B0: 05 83 20 31 37 34 2C 31 34 35 2C 32 34 33 2C 31 |.. 174,145,243,1| 000012C0: 33 36 2C 31 39 36 2C 32 35 33 2C 31 36 2C 32 34 |36,196,253,16,24| 000012D0: 33 2C 39 36 2C 33 32 2C 32 35 33 2C 31 37 34 2C |3,96,32,253,174,| 000012E0: 37 36 2C 31 35 38 2C 31 38 33 00 00 00 |76,158,183... |
.. .D.. ************************.?.N.. *
*.^.X.. * DIRECTOR
Y-SORT V1.0 *.}.... * -----------------
-- *...... * AUTOR: *....
.. * EDWIN GOEBEL *.Z. .. *
*...... ***************
*********...H.. 430.).R.. **************
*****************.>.... UNTERROUTINEN.D
.... *******************************....
..1,F1,F$,F2,F3:. F1.0 . .......".."F1;F
$,F2;F3".":.:. "(CYAN)"=CYAN;"(BLACK)"=S
CHWARZ...... ---------------------------
----...... NO.EN..C . ....... 53056,0,2,
2,23,18:NO.NO.1.I.".. 214,23:. 211,2:. 5
8732:.NA$(ZU(NO.EN.1));:..O.,.. --------
-----------------------.~.6.. NO.0 . ...
.@.. 53056,1,2,2,23,18:NO.NO.1.K.J.. 214
,2:. 211,2:. 58732:.NA$(ZU(NO.1)):....T.
. -------------------------------...^.."
...".13)"DIRECTORY-SORT".-.H.. .12)"----
------------".\.R..".. DISKETTE EINLEGEN
UND TASTE DRUECKEN".R.|.. T$:. T$."". 3
80......"....
":..K.... ********************
***********...... BEGINN DES HAUPTPROGR
AMMES...... ****************************
***.2.... 53280,0:. 53281,1 :. 350.O....
1,8,15,"I":. AN$(145),NA$(145),RE$(145)
,ZU(146),SN(19)...B.. I.1 . 18:. SN(I):.
...L.. I.52992 . 53242 :. S:. I,S:..H.V.
. 240:. 2,8,2,"#" :. 240.....S.1:C.1:N$.
G(0):NN$.N$.N$.N$.N$.N$.N$.N$.N$.N$.N$.
...NU$.NN$.NN$.NN$:RE$(0).NN$.N$.E...AN$
(0).G(128).G(18).G(1):NA$(0)."----------
------":. TRENNSTRICH...... ************
*******************...... EINLESEN DES
DIRECTORYS.P.... ***********************
********......1,"U1 2 0 18"S:.".."S". ":
."(LIG.RED)"=HELLROT.!.&..#2,T$:.#2,S$:S
.F(S$.N$).C.0.. BP.0 . 7:.1,"B-P 2";BP.3
2.2.V.:.. 52992,2,3,X$:AN$(C).X$:. H(X$,
1).N$. .:. 600...D.. 52992,2,16,X$:NA$(C
).X$:. 52992,2,11,X$:RE$(C).X$.P.N.ZU(C)
.C:."....."C". ":C.C.1:....X.. T$.."". 5
40.#.B. 2:. 650,128:."....>..";:CP.2:NO.
0:NU.0:EN.C:. EN.23 . EN.23.T.L.. G(13).
2)NA$(NU.1);:NU.NU.1:. NU.EN.1 . 620.Z.V
.. *******************************......
TASTATURABFRAGE...... ****************
***************.O.... TA$:. TA$."". 700.
..F.. TA$.".". . CP.2 . CP.CP.1:. 53056,
0,2,0,23,0. .P.. TA$.".". . CP.2 . . 310
.`.Z.. TA$.".". . CP.EN . . NO.CP.C . CP
.CP.1:. 53056,1,2,0,23,0...... TA$.".".
. CP..23 . . 270...... TA$.".". 810.H...
. TA$.".". . C.145 . F.1:C.C.1:."......"
C.1". .".....EN.EN.1:.EN.23.EN.23......
TA$.".". . F.1 . F.0:TE.0:TE$.NA$(0):. 8
40.&.... TA$.".". 1000.:.... TA$.".". 10
90.D. .. 700.C.*.TE.ZU(NO.CP.1):TE$.NA$(
TE)...4.. 53056,0,CP,2,23,18:. C.23 . EN
.EN.1:. 290:EN.EN.1.C.>.. I.NO.CP.2 . C.
1:ZU(I.1).ZU(I.2):....H.. 214,CP:. 211,1
9:. 58732...R..".."TE$:. "T"=COMMODORE+"
T"...\.. TA$:. TA$."" . 860.\.F..TA$."."
..CP.2.CP.CP.1:.53056,0,2,19,24,37:.5305
6,0,2,0,23,0.T.P..TA$."."..CP.2..310...Z
..TA$."."..CP.EN.CP.CP.1:.53056,1,2,19,2
4,37:.53056,1,2,0,23,0.T.... TA$.".". .
CP.23 . .270...... TA$.".". 950.(.... TA
$.".". TE$."................":C.C.1:EN.C
:. EN.23 . EN.23.N....TA$.".". ."......"
C.1". .":. 970.X.... 860.Q.... 53056,1,C
P,2,23,18...... I.C.1 . NO.CP.1 ..1:ZU(I
.1).ZU(I):.:ZU(NO.CP.1).TE.G.J.. 214,CP:
. 211,2:. 58732...T.. TE$"
"...... 700...... *****************
*************.:.... SCHREIBEN DES SORTI
ERTEN DIR.._.... ***********************
*******...... 2,8,2,"#":T.18:. I.0 . .((
C.2).8):. 8.I.8..C.1 . T.0......1,"B-P 2
0":.2,G(T)G(SN(I.2))...... BP.0 . 7:.1,
"B-P 2";BP.32.2...$.. BP.8.I.1..C..2,NU$
;:.:. 1080.@....2,AN$(ZU(BP.8.I.1))NA$(Z
U(BP.8.I.1))RE$(ZU(BP.8.I.1));:..X.8..1,
"U2 2 0 18"SN(I.1):."..".36)SN(I.1)". ."
:. 240:....B. 2:. 350:. 470...L.. *****
*************************.V.V.. SEKTORE
N DES DIRECTORY TRACKS...`.. ***********
*******************...J.. 1,4,7,10,13,16
,2,5,8,11,14,17,3,6,9,12,15,18.S.T.. ***
***************************.R.~.. INPUT
MASCHINEN-ROUTINE...... ***************
***************...... 32,253,174,32,158,
183,32,30,225,32,253,174,32,158,183,138,
72,32,253.(.... 174,32,139,176,133,73,13
2,74,32,163,182,104,32,117,180,160,2,185
.P.... 97,0,145,73,136,16,248,200,32,18,
225,145,98,200,196,97,208,246,32...... 2
04,255,96,0,0,0,0,0...... **************
****************.P.D.. SCROLL MASCHINEN
-ROUTINE...N.. *************************
*****.&.X..32,245,207,138,72,32,245,207,
224,0,176,3,76.N.... 72,178,224,24,176,2
49,134,251,32,245,207,224,0,144,240,224,
39,176...... 236,134,253,32,245,207,224,
25,176,227,134,252,232,138,56,229,251...
... 144,218,240,216,133,250,32,245,207,2
24,40,176,207,228,253,144,203.E.... 134,
254,104,170,165,172,72,165,173,72,165,17
4,72,165,175,72,224,0...... 208,22,166,2
51,198,250,240,44,32,240,233,232,189,240
,236,133,172.T.... 181,217,32,219,207,48
,236,202,240,3,76,72,178,166,252,198,250
,240...... 16,32,240,233,202,189,240,236
,133,172,181,217,32,219,207,48,236,164.E
.(.. 254,32,240,233,32,36,234,169,32,145
,209,136,196,253,16,249,76,88...2.. 233,
41,3,13,136,2,133,173,32,224,233,164,254
,177,172,145,209,177...<.. 174,145,243,1
36,196,253,16,243,96,32,253,174,76,158,1
83...
> CLICK IMAGE PREVIEW FOR FULL MODAL