Multiple names: TEXT WINDOW.SRC, TEXT WINDOW .SRC
FILE INFORMATION
FILENAME(S):
• TEXT WINDOW.SRC<br>• TEXT WINDOW .SRC
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-10-20 14:32:12
APPEARS ON: 2 disk(s)
FILE HASH
86b47108bda772d918809e7ccc743e007f3428b86e46e9b7bd91ac2b500baed1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | TEXT WINDOW.SRC | PRG | Treasure Chest - Klaus Der Suhler | 33 | 0 | DOWNLOAD FILE |
| PUBLICATION 6 | TEXT WINDOW .SRC | PRG | Xii | 3 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 86 20 5A 24 28 33 31 29 3A 97 |.. .... Z$(31):.| 00000010: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0| 00000020: 00 56 08 03 00 99 22 05 0E 93 11 11 20 C6 CF D2 |.V...."..... ...| 00000030: 20 C1 A0 D0 D2 C9 CE D4 C5 C4 20 C3 CF D0 D9 22 | ......... ...."| 00000040: 3A 99 22 20 CF C6 A0 D4 C8 C5 A0 C4 CF C3 D3 2C |:." ...........,| 00000050: 20 D4 D5 D2 CE 22 00 84 08 05 00 99 22 20 D9 CF | ...."......" ..| 00000060: D5 D2 A0 D0 D2 C9 CE D4 C5 D2 A0 CF CE 22 3A 99 |.............":.| 00000070: 22 20 C1 CE C4 A0 C8 C9 D4 20 3C D2 C5 D4 D5 D2 |" ....... <.....| 00000080: CE 3E 2E 22 00 C9 08 07 00 99 22 11 11 20 D4 CF |.>."......".. ..| 00000090: 20 D0 D2 C9 CE D4 20 C4 CF C3 D3 20 D4 CF 22 3A | ..... .... ..":| 000000A0: 99 22 20 D9 CF D5 D2 20 D3 C3 D2 C5 C5 CE 2C 20 |." .... ......, | 000000B0: C8 C9 D4 22 3A 99 22 20 D4 C8 C5 20 3C D3 D0 C1 |...":." ... <...| 000000C0: C3 C5 3E A0 C2 C1 D2 2E 22 00 F9 08 0A 00 99 A3 |..>.....".......| 000000D0: 33 29 22 11 11 11 11 D5 D3 C5 A0 C3 D5 D2 D3 CF |3)".............| 000000E0: D2 A0 CB C5 D9 D3 A0 D4 CF A0 C3 CF CE D4 D2 CF |................| 000000F0: CC A0 D7 C9 CE C4 CF D7 2E 00 20 09 0D 00 99 22 |.......... ...."| 00000100: 13 11 22 3B 3A 99 A3 32 30 29 22 12 B0 C0 C0 C0 |..";:..20)".....| 00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."| 00000120: 00 4D 09 0F 00 81 52 B2 31 A4 39 3A 99 A3 32 30 |.M....R.1.9:..20| 00000130: 29 22 12 DD 92 20 20 20 20 20 20 20 20 20 20 20 |)"... | 00000140: 20 20 20 20 20 20 12 DD 92 22 3A 82 52 00 6D 09 | ...":.R.m.| 00000150: 14 00 99 A3 32 30 29 22 12 AD C0 C0 C0 C0 C0 C0 |....20)"........| 00000160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 8F 09 |............"...| 00000170: 19 00 81 52 B2 31 A4 33 31 3A 87 5A 24 28 52 29 |...R.1.31:.Z$(R)| 00000180: 3A 82 52 3A 52 B2 31 3A 41 B2 31 3A 42 B2 31 00 |:.R:R.1:A.1:B.1.| 00000190: 98 09 1B 00 89 20 34 35 00 B2 09 1E 00 43 B2 30 |..... 45.....C.0| 000001A0: 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |:.198,0:.198,1:.| 000001B0: 41 24 00 D4 09 23 00 8B 41 24 B2 22 1D 22 A7 41 |A$...#..A$.".".A| 000001C0: B2 41 AA 31 3A 8B 41 B1 32 33 A7 41 B2 41 AB 31 |.A.1:.A.23.A.A.1| 000001D0: 3A 89 33 30 00 E4 09 24 00 8B 20 41 24 B2 22 20 |:.30...$.. A$." | 000001E0: 22 A7 37 30 00 05 0A 25 00 8B 41 24 B2 22 9D 22 |".70...%..A$."."| 000001F0: A7 41 B2 41 AB 31 3A 8B 41 B3 31 A7 41 B2 41 AA |.A.A.1:.A.1.A.A.| 00000200: 31 3A 89 33 30 00 17 0A 27 00 8B 20 41 24 B2 C7 |1:.30...'.. A$..| 00000210: 28 31 33 29 A7 36 30 00 39 0A 28 00 8B 41 24 B2 |(13).60.9.(..A$.| 00000220: 22 11 22 A7 42 B2 42 AA 31 3A 8B 42 B1 32 33 A7 |".".B.B.1:.B.23.| 00000230: 42 B2 42 AB 31 3A 89 33 30 00 5A 0A 2B 00 8B 41 |B.B.1:.30.Z.+..A| 00000240: 24 B2 22 91 22 A7 42 B2 42 AB 31 3A 8B 42 B3 31 |$.".".B.B.1:.B.1| 00000250: A7 42 B2 42 AA 31 3A 89 33 30 00 83 0A 2D 00 99 |.B.B.1:.30...-..| 00000260: 22 13 11 11 22 3B 3A 81 54 B2 30 A4 38 3A 42 24 |"...";:.T.0.8:B$| 00000270: 28 43 29 B2 CA 28 5A 24 28 42 AA 54 29 2C 41 2C |(C)..(Z$(B.T),A,| 00000280: 31 37 29 00 98 0A 32 00 99 A3 32 31 29 42 24 28 |17)...2...21)B$(| 00000290: 43 29 3A 82 3A 89 33 30 00 AD 0A 3C 00 9C 3A 86 |C):.:.30...<..:.| 000002A0: 41 24 28 32 38 29 3A 9F 34 2C 34 2C 37 00 D0 0A |A$(28):.4,4,7...| 000002B0: 41 00 81 52 B2 31 A4 32 38 3A 87 41 24 28 52 29 |A..R.1.28:.A$(R)| 000002C0: 3A 98 34 2C 41 24 28 52 29 3A 82 3A A0 34 3A 8A |:.4,A$(R):.:.4:.| 000002D0: 00 E5 0A 46 00 9C 3A 86 41 24 28 32 38 29 3A 99 |...F..:.A$(28):.| 000002E0: 22 93 11 22 3B 00 01 0B 4B 00 81 52 B2 31 A4 32 |"..";...K..R.1.2| 000002F0: 30 3A 87 41 24 28 52 29 3A 99 41 24 28 52 29 3A |0:.A$(R):.A$(R):| 00000300: 82 00 1A 0B 50 00 99 A3 31 34 29 22 11 C8 C9 D4 |....P...14)"....| 00000310: A0 C1 CE D9 A0 CB C5 D9 11 22 00 36 0B 53 00 97 |.........".6.S..| 00000320: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 42 24 |198,0:.198,1:.B$| 00000330: 3A 42 24 B2 22 22 00 53 0B 55 00 81 52 B2 31 39 |:B$."".S.U..R.19| 00000340: A4 32 38 3A 87 41 24 28 52 29 3A 99 41 24 28 52 |.28:.A$(R):.A$(R| 00000350: 29 3A 82 00 6B 0B 57 00 99 A3 31 34 29 22 11 C8 |):..k.W...14)"..| 00000360: C9 D4 A0 C1 CE D9 A0 CB C5 D9 22 00 83 0B 5A 00 |.........."...Z.| 00000370: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 42 |.198,0:.198,1:.B| 00000380: 24 3A 8A 00 B3 0B E6 03 83 20 22 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 22 00 E3 0B E7 03 83 20 22 20 20 C3 C5 CC | "...... " ...| 000003C0: C5 D3 D4 C9 C1 CC D7 C1 D2 C5 20 50 52 45 53 45 |.......... PRESE| 000003D0: 4E 54 53 3A 20 20 20 20 20 20 20 20 20 20 20 20 |NTS: | 000003E0: 20 20 22 00 13 0C E8 03 83 20 22 20 20 20 20 20 | "...... " | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000410: 20 20 22 00 43 0C E9 03 83 20 22 20 20 20 20 20 | ".C.... " | 00000420: 20 20 20 20 20 20 20 20 20 20 20 D4 C5 D8 D4 A0 | .....| 00000430: D7 C9 CE C4 CF D7 D3 20 20 20 20 20 20 20 20 20 |....... | 00000440: 20 20 22 00 73 0C EA 03 83 20 22 20 20 20 20 20 | ".s.... " | 00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000470: 20 20 22 00 A3 0C EB 03 83 20 22 20 20 20 20 20 | "...... " | 00000480: D4 48 49 53 20 49 53 20 54 48 45 20 C2 C1 D3 C9 |.HIS IS THE ....| 00000490: C3 20 56 45 52 53 49 4F 4E 20 4F 46 20 20 20 20 |. VERSION OF | 000004A0: 20 20 22 00 D3 0C EC 03 83 20 22 20 D4 C5 D8 D4 | "...... " ....| 000004B0: A0 D7 C9 CE C4 CF D7 D3 2E 20 C9 54 20 57 41 53 |......... .T WAS| 000004C0: 20 50 52 4F 47 52 41 4D 4D 45 44 20 4F 4E 20 20 | PROGRAMMED ON | 000004D0: 20 20 22 00 03 0D ED 03 83 20 22 20 CE 4F 56 45 | "...... " .OVE| 000004E0: 4D 42 45 52 20 35 54 48 2C 20 31 39 38 37 20 42 |MBER 5TH, 1987 B| 000004F0: 59 20 C7 45 4F 46 46 20 D4 41 59 4C 4F 52 2E 20 |Y .EOFF .AYLOR. | 00000500: 20 20 22 00 33 0D EE 03 83 20 22 20 20 20 20 20 | ".3.... " | 00000510: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 43 41 4E |.HIS PROGRAM CAN| 00000520: 20 45 41 53 49 4C 59 20 42 45 20 41 44 44 45 44 | EASILY BE ADDED| 00000530: 20 20 22 00 63 0D EF 03 83 20 22 20 54 4F 20 59 | ".c.... " TO Y| 00000540: 4F 55 52 20 4F 57 4E 20 50 52 4F 47 52 41 4D 53 |OUR OWN PROGRAMS| 00000550: 2E 20 C9 46 20 41 4C 4C 20 59 4F 55 20 57 41 4E |. .F ALL YOU WAN| 00000560: 54 20 22 00 93 0D F0 03 83 20 22 20 54 4F 20 43 |T "...... " TO C| 00000570: 48 41 4E 47 45 20 49 53 20 54 48 45 20 D4 C5 D8 |HANGE IS THE ...| 00000580: D4 20 54 48 45 4E 20 53 49 4D 50 4C 59 20 20 20 |. THEN SIMPLY | 00000590: 20 20 22 00 C3 0D F1 03 83 20 22 20 43 48 41 4E | "...... " CHAN| 000005A0: 47 45 20 54 48 45 20 54 45 58 54 20 49 4E 20 54 |GE THE TEXT IN T| 000005B0: 48 45 20 C4 C1 D4 C1 20 20 20 20 20 20 20 20 20 |HE .... | 000005C0: 20 20 22 00 F3 0D F2 03 83 20 22 20 53 54 41 54 | "...... " STAT| 000005D0: 45 4D 45 4E 54 53 2E 20 C2 C5 A0 D3 D5 D2 C5 20 |EMENTS. ....... | 000005E0: CE CF D4 20 D4 CF 20 C3 C8 C1 CE C7 C5 20 D4 C8 |... .. ...... ..| 000005F0: C5 20 22 00 23 0E F3 03 83 20 22 20 D3 C9 DA C5 |. ".#.... " ....| 00000600: 20 CF C6 A0 D4 C8 C5 A0 C4 C1 D4 C1 A0 CC C9 CE | ...............| 00000610: C5 D3 21 21 21 21 20 20 20 20 20 20 20 20 20 20 |..!!!! | 00000620: 20 20 22 00 53 0E F4 03 83 20 22 20 20 20 20 20 | ".S.... " | 00000630: 20 C9 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | .F YOU WANT TO | 00000640: 43 48 41 4E 47 45 20 57 49 4E 44 4F 57 20 53 49 |CHANGE WINDOW SI| 00000650: 5A 45 22 00 83 0E F5 03 83 20 22 20 59 4F 55 20 |ZE"...... " YOU | 00000660: 4D 55 53 54 20 43 48 41 4E 47 45 20 54 48 45 20 |MUST CHANGE THE | 00000670: 4C 45 4E 47 54 48 20 4F 46 20 54 48 45 20 20 20 |LENGTH OF THE | 00000680: 20 20 22 00 B3 0E F6 03 83 20 22 20 57 49 4E 44 | "...... " WIND| 00000690: 4F 57 20 49 4E 20 4C 49 4E 45 53 20 31 35 20 41 |OW IN LINES 15 A| 000006A0: 4E 44 20 32 30 2E 20 C1 4C 53 4F 2C 20 54 4F 20 |ND 20. .LSO, TO | 000006B0: 20 20 22 00 E3 0E F7 03 83 20 22 20 43 48 41 4E | "...... " CHAN| 000006C0: 47 45 20 54 48 45 20 48 45 49 47 48 54 20 4F 46 |GE THE HEIGHT OF| 000006D0: 20 54 48 45 20 57 49 4E 44 4F 57 20 59 4F 55 20 | THE WINDOW YOU | 000006E0: 20 20 22 00 13 0F F8 03 83 20 22 20 4E 45 45 44 | "...... " NEED| 000006F0: 20 54 4F 20 4D 4F 44 49 46 59 20 54 48 45 20 C6 | TO MODIFY THE .| 00000700: CF D2 2F CE C5 D8 D4 20 CC CF CF D0 20 49 4E 20 |../.... .... IN | 00000710: 20 20 22 00 43 0F F9 03 83 20 22 20 4C 49 4E 45 | ".C.... " LINE| 00000720: 20 31 37 2E 20 20 20 20 20 20 20 20 20 20 20 20 | 17. | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 22 00 73 0F FA 03 83 20 22 20 20 20 20 20 | ".s.... " | 00000750: 20 D4 4F 20 43 48 41 4E 47 45 20 54 48 45 20 44 | .O CHANGE THE D| 00000760: 49 4D 45 4E 53 49 4F 4E 53 20 4F 46 20 54 48 45 |IMENSIONS OF THE| 00000770: 20 20 22 00 A3 0F FB 03 83 20 22 20 57 49 4E 44 | "...... " WIND| 00000780: 4F 57 20 41 53 20 41 20 57 48 4F 4C 45 20 59 4F |OW AS A WHOLE YO| 00000790: 55 20 4E 45 45 44 20 54 4F 20 4D 4F 44 49 46 59 |U NEED TO MODIFY| 000007A0: 20 20 22 00 D3 0F FC 03 83 20 22 20 54 48 45 20 | "...... " THE | 000007B0: 44 49 4D 45 4E 53 49 4F 4E 45 44 20 5A 24 20 49 |DIMENSIONED Z$ I| 000007C0: 4E 20 4C 49 4E 45 20 31 20 54 4F 20 54 48 45 20 |N LINE 1 TO THE | 000007D0: 20 20 22 00 03 10 FD 03 83 20 22 20 4E 55 4D 42 | "...... " NUMB| 000007E0: 45 52 20 4F 46 20 4C 49 4E 45 53 20 59 4F 55 20 |ER OF LINES YOU | 000007F0: 57 41 4E 54 20 54 4F 54 41 4C 2E 20 C1 4C 53 4F |WANT TOTAL. .LSO| 00000800: 2C 20 22 00 33 10 FE 03 83 20 22 20 59 4F 55 20 |, ".3.... " YOU | 00000810: 4E 45 45 44 20 54 4F 20 4D 4F 44 49 46 59 20 54 |NEED TO MODIFY T| 00000820: 48 45 20 C6 CF D2 2F CE C5 D8 D4 A0 CC CF CF D0 |HE .../.........| 00000830: 20 20 22 00 63 10 FF 03 83 20 22 20 49 4E 20 4C | ".c.... " IN L| 00000840: 49 4E 45 20 32 35 20 54 4F 20 4D 41 54 43 48 20 |INE 25 TO MATCH | 00000850: 54 48 45 20 53 49 5A 45 20 4F 46 20 54 48 45 20 |THE SIZE OF THE | 00000860: 20 20 22 00 93 10 00 04 83 20 22 20 C4 C9 CD 20 | "...... " ... | 00000870: 5A 24 2E 20 D7 49 54 48 20 54 48 41 54 2C 20 4C |Z$. .ITH THAT, L| 00000880: 49 4E 45 53 20 33 35 20 2D 20 34 33 20 41 4C 53 |INES 35 - 43 ALS| 00000890: 4F 20 22 00 C3 10 01 04 83 20 22 20 4E 45 45 44 |O "...... " NEED| 000008A0: 20 54 4F 20 42 45 20 4D 4F 44 49 46 49 45 44 2E | TO BE MODIFIED.| 000008B0: 20 CC 41 53 54 4C 59 2C 20 4C 49 4E 45 20 34 35 | .ASTLY, LINE 45| 000008C0: 20 20 22 00 F3 10 02 04 83 20 22 20 4E 45 45 44 | "...... " NEED| 000008D0: 53 20 54 4F 20 42 45 20 53 45 54 20 54 4F 20 45 |S TO BE SET TO E| 000008E0: 51 55 41 4C 20 54 48 45 20 53 49 5A 45 20 4F 46 |QUAL THE SIZE OF| 000008F0: 20 20 22 00 23 11 03 04 83 20 22 20 54 48 45 20 | ".#.... " THE | 00000900: 57 49 4E 44 4F 57 2E 20 20 20 20 20 20 20 20 20 |WINDOW. | 00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000920: 20 20 22 00 53 11 04 04 83 20 22 20 20 20 20 20 | ".S.... " | 00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000950: 20 20 22 00 5D 11 D0 07 99 22 93 22 3B 00 9B 11 | ".]....".";...| 00000960: D3 07 81 52 B2 31 A4 32 34 3A 99 22 12 90 20 20 |...R.1.24:.".. | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000990: 20 20 20 20 20 20 92 22 3B 3A 82 00 CC 11 D5 07 | .";:......| 000009A0: 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009C0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 D2 11 DA | ";....| 000009D0: 07 8E 00 00 00 |..... |
.. .... Z$(31):.53280,0:.53281,0.V....".
.... FOR A PRINTED COPY":." OF THE DOCS,
TURN"......" YOUR PRINTER ON":." AND HI
T <RETURN>.".I....".. TO PRINT DOCS TO":
." YOUR SCREEN, HIT":." THE <SPACE> BAR.
".......3)"....USE CURSOR KEYS TO CONTRO
L WINDOW.. ...."..";:..20)".............
.......".M....R.1.9:..20)"...
...":.R.M.....20)"................
...."......R.1.31:.Z$(R):.R:R.1:A.1:B.1.
..... 45.....C.0:.198,0:.198,1:.A$.T.#..
A$.".".A.A.1:.A.23.A.A.1:.30...$.. A$."
".70...%..A$.".".A.A.1:.A.1.A.A.1:.30...
'.. A$.G(13).60.9.(..A$.".".B.B.1:.B.23.
B.B.1:.30.Z.+..A$.".".B.B.1:.B.1.B.B.1:.
30...-.."...";:.T.0.8:B$(C).J(Z$(B.T),A,
17)...2...21)B$(C):.:.30...<..:.A$(28):.
4,4,7.P.A..R.1.28:.A$(R):.4,A$(R):.: 4:.
...F..:.A$(28):."..";...K..R.1.20:.A$(R)
:.A$(R):....P...14)".HIT ANY KEY.".6.S..
198,0:.198,1:.B$:B$."".S.U..R.19.28:.A$(
R):.A$(R):..K.W...14)".HIT ANY KEY"...Z.
.198,0:.198,1:.B$:....... "
"...... " CEL
ESTIALWARE PRESENTS: ".....
. "
".C.... " TEXT WINDOWS
".S.... "
"...... " THIS IS
THE BASIC VERSION OF ".S.... " TEXT
WINDOWS. IT WAS PROGRAMMED ON ".....
. " NOVEMBER 5TH, 1987 BY GEOFF TAYLOR.
".3.... " THIS PROGRAM CAN EASILY
BE ADDED ".C.... " TO YOUR OWN PROGRAMS
. IF ALL YOU WANT "...... " TO CHANGE IS
THE TEXT THEN SIMPLY ".C.... " CHAN
GE THE TEXT IN THE DATA ".....
. " STATEMENTS. BE SURE NOT TO CHANGE TH
E ".#.... " SIZE OF THE DATA LINES!!!!
".S.... " IF YOU WANT TO
CHANGE WINDOW SIZE"...... " YOU MUST CHA
NGE THE LENGTH OF THE "...... " WIND
OW IN LINES 15 AND 20. ALSO, TO ".....
. " CHANGE THE HEIGHT OF THE WINDOW YOU
"...... " NEED TO MODIFY THE FOR/NEXT
LOOP IN ".C.... " LINE 17.
".S.... " TO CHAN
GE THE DIMENSIONS OF THE "...... " WIND
OW AS A WHOLE YOU NEED TO MODIFY ".S...
. " THE DIMENSIONED Z$ IN LINE 1 TO THE
"...... " NUMBER OF LINES YOU WANT TOT
AL. ALSO, ".3.... " YOU NEED TO MODIFY T
HE FOR/NEXT LOOP ".C.... " IN LINE 25 T
O MATCH THE SIZE OF THE "...... " DIM
Z$. WITH THAT, LINES 35 - 43 ALSO ".C...
. " NEED TO BE MODIFIED. LASTLY, LINE 45
"...... " NEEDS TO BE SET TO EQUAL THE
SIZE OF ".#.... " THE WINDOW.
".S.... "
".].P..".";...
S..R.1.24:."..
.";:..L.U..".
";.R.Z.....
> CLICK IMAGE PREVIEW FOR FULL MODAL