LIBEDITOR
FILE INFORMATION
FILENAME(S): LIBEDITOR
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:15:11
APPEARS ON: 1 disk(s)
FILE HASH
b4ce516354c5f5b0206c1d2b6b057cd34a92a21d725511169ad1978727f42682
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | LIBEDITOR | PRG | DuncanTwain | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 43 2D 50 4F 57 45 52 20 |....... C-POWER | 00000010: 4C 49 42 52 41 52 59 20 45 44 49 54 4F 52 00 24 |LIBRARY EDITOR.$| 00000020: 08 14 00 8F 00 3A 08 1E 00 8F 20 42 59 20 45 52 |.....:.... BY ER| 00000030: 49 43 20 47 49 47 55 45 52 45 00 40 08 28 00 8F |IC GIGUERE.@.(..| 00000040: 00 5C 08 32 00 97 20 35 33 32 38 30 2C 20 31 34 |.\.2.. 53280, 14| 00000050: 3A 20 97 20 35 33 32 38 31 2C 20 31 00 84 08 3C |: . 53281, 1...<| 00000060: 00 4D 41 58 20 B2 20 32 30 30 3A 20 86 20 46 43 |.MAX . 200: . FC| 00000070: 24 28 20 4D 41 58 20 29 2C 20 46 4C 24 28 20 4D |$( MAX ), FL$( M| 00000080: 41 58 20 29 00 93 08 46 00 4E 55 24 B2 C7 28 20 |AX )...F.NU$..( | 00000090: 30 20 29 00 A1 08 50 00 9F 20 31 35 2C 38 2C 31 |0 )...P.. 15,8,1| 000000A0: 35 00 DA 08 64 00 99 20 C7 28 31 34 29 22 93 1F |5...d.. .(14)"..| 000000B0: C3 20 CC 49 42 52 41 52 59 20 CD 41 49 4E 54 45 |. .IBRARY .AINTE| 000000C0: 4E 41 4E 43 45 20 2D 2D 20 42 59 20 C5 52 49 43 |NANCE -- BY .RIC| 000000D0: 20 C7 49 47 55 45 52 45 22 3B 00 0C 09 6E 00 99 | .IGUERE";...n..| 000000E0: 20 22 1C C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..............| 000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 28 09 78 |...........".(.x| 00000110: 00 99 20 22 11 20 90 5B C1 5D 44 44 20 41 20 46 |.. ". .[.]DD A F| 00000120: 55 4E 43 54 49 4F 4E 22 00 46 09 82 00 99 20 22 |UNCTION".F.... "| 00000130: 11 20 5B C4 5D 45 4C 45 54 45 20 41 20 46 55 4E |. [.]ELETE A FUN| 00000140: 43 54 49 4F 4E 22 00 61 09 8C 00 99 20 22 11 20 |CTION".a.... ". | 00000150: 5B CC 5D 4F 41 44 20 41 20 4C 49 42 52 41 52 59 |[.]OAD A LIBRARY| 00000160: 22 00 7E 09 96 00 99 20 22 11 20 5B D3 5D 41 56 |".~.... ". [.]AV| 00000170: 45 20 54 48 45 20 4C 49 42 52 41 52 59 22 00 8F |E THE LIBRARY"..| 00000180: 09 A0 00 99 20 22 11 20 5B D1 5D 55 49 54 22 00 |.... ". [.]UIT".| 00000190: AC 09 AA 00 99 20 22 11 20 5B D6 5D 49 45 57 20 |..... ". [.]IEW | 000001A0: 54 48 45 20 4C 49 42 52 41 52 59 22 00 E3 09 B4 |THE LIBRARY"....| 000001B0: 00 99 20 22 11 20 D0 4C 45 41 53 45 20 53 45 4C |.. ". .LEASE SEL| 000001C0: 45 43 54 3A 20 22 3B 3A 20 8D 20 31 30 30 30 3A |ECT: ";: . 1000:| 000001D0: 20 99 20 43 24 3A 20 8B 20 43 24 B2 22 51 22 20 | . C$: . C$."Q" | 000001E0: A7 20 80 00 F7 09 BE 00 8B 20 43 24 B3 B1 22 4C |. ....... C$.."L| 000001F0: 22 20 A7 20 33 35 30 00 1A 0A C8 00 99 20 22 93 |" . 350...... ".| 00000200: 11 20 CC 49 42 52 41 52 59 20 4E 41 4D 45 3A 20 |. .IBRARY NAME: | 00000210: 22 3B 3A 20 8D 20 31 30 31 30 00 41 0A D2 00 4C |";: . 1010.A...L| 00000220: 49 42 24 B2 C8 28 20 49 4E 24 2C 20 31 32 20 29 |IB$..( IN$, 12 )| 00000230: AA 22 2E 4C 22 3A 20 4E B2 30 3A 20 41 24 B2 22 |.".L": N.0: A$."| 00000240: 22 00 5F 0A DC 00 9F 20 32 2C 38 2C 35 2C 20 22 |"._.... 2,8,5, "| 00000250: 30 3A 22 AA 4C 49 42 24 AA 22 2C 53 2C 52 22 00 |0:".LIB$.",S,R".| 00000260: 76 0A E6 00 8D 20 31 35 30 30 3A 20 8B 20 45 20 |v.... 1500: . E | 00000270: A7 20 31 35 35 30 00 94 0A F0 00 99 20 22 11 20 |. 1550...... ". | 00000280: 4C 4F 41 44 49 4E 47 20 22 3B 4C 49 42 24 3B 22 |LOADING ";LIB$;"| 00000290: 2E 2E 2E 22 00 C2 0A FA 00 A1 23 32 2C 42 24 3A |..."......#2,B$:| 000002A0: 20 8B 20 42 24 B3 B1 22 22 20 AF 20 53 54 B2 30 | . B$.."" . ST.0| 000002B0: 20 A7 20 41 24 B2 41 24 AA 42 24 3A 20 89 20 32 | . A$.A$.B$: . 2| 000002C0: 35 30 00 D4 0A 04 01 8B 20 53 54 B3 B1 30 20 A7 |50...... ST..0 .| 000002D0: 20 33 30 30 00 F2 0A 0E 01 4E B2 4E AA 31 3A 20 | 300.....N.N.1: | 000002E0: 46 43 24 28 20 4E 20 29 B2 41 24 3A 20 41 24 B2 |FC$( N ).A$: A$.| 000002F0: 22 22 00 20 0B 18 01 A1 23 32 2C 42 24 3A 20 8B |"". ....#2,B$: .| 00000300: 20 42 24 B3 B1 22 22 20 AF 20 53 54 B2 30 20 A7 | B$.."" . ST.0 .| 00000310: 20 41 24 B2 41 24 AA 42 24 3A 20 89 20 32 38 30 | A$.A$.B$: . 280| 00000320: 00 45 0B 22 01 46 4C 24 28 20 4E 20 29 B2 41 24 |.E.".FL$( N ).A$| 00000330: 3A 20 41 24 B2 22 22 3A 20 8B 20 53 54 B2 30 20 |: A$."": . ST.0 | 00000340: A7 20 32 35 30 00 54 0B 2C 01 A0 20 32 3A 20 89 |. 250.T.,.. 2: .| 00000350: 20 31 30 30 00 68 0B 5E 01 8B 20 43 24 B3 B1 22 | 100.h.^.. C$.."| 00000360: 53 22 20 A7 20 34 35 30 00 78 0B 68 01 8B 20 4E |S" . 450.x.h.. N| 00000370: B2 30 20 A7 20 31 30 30 00 B2 0B 72 01 99 20 22 |.0 . 100...r.. "| 00000380: 93 11 20 C1 52 45 20 59 4F 55 20 53 55 52 45 3F |.. .RE YOU SURE?| 00000390: 20 28 59 2F 4E 29 20 22 3B 3A 20 8D 20 31 30 30 | (Y/N) ";: . 100| 000003A0: 30 3A 20 8B 20 43 24 B3 B1 22 59 22 20 A7 20 31 |0: . C$.."Y" . 1| 000003B0: 30 30 00 D5 0B 7C 01 99 20 43 24 3A 20 99 20 22 |00...|.. C$: . "| 000003C0: 11 20 D3 41 56 49 4E 47 20 22 3B 4C 49 42 24 3B |. .AVING ";LIB$;| 000003D0: 22 2E 2E 2E 22 00 E8 0B 86 01 98 31 35 2C 22 53 |"..."......15,"S| 000003E0: 30 3A 22 AA 4C 49 42 24 00 19 0C 90 01 9F 20 32 |0:".LIB$...... 2| 000003F0: 2C 38 2C 35 2C 22 30 3A 22 AA 4C 49 42 24 AA 22 |,8,5,"0:".LIB$."| 00000400: 2C 53 2C 57 22 3A 20 8D 20 31 35 30 30 3A 20 8B |,S,W": . 1500: .| 00000410: 20 45 20 A7 20 31 35 35 30 00 27 0C 9A 01 81 20 | E . 1550.'.... | 00000420: 49 B2 31 20 A4 20 4E 00 49 0C A4 01 98 32 2C 46 |I.1 . N.I....2,F| 00000430: 43 24 28 20 49 20 29 3B 4E 55 24 3B 46 4C 24 28 |C$( I );NU$;FL$(| 00000440: 20 49 20 29 3B 4E 55 24 3B 00 5B 0C AE 01 82 3A | I );NU$;.[....:| 00000450: 20 A0 20 32 3A 20 89 20 31 30 30 00 6F 0C C2 01 | . 2: . 100.o...| 00000460: 8B 20 43 24 B3 B1 22 56 22 20 A7 20 35 35 30 00 |. C$.."V" . 550.| 00000470: 7F 0C CC 01 8B 20 4E B2 30 20 A7 20 31 30 30 00 |..... N.0 . 100.| 00000480: A3 0C D6 01 99 20 22 93 11 20 C6 55 4E 43 54 49 |..... ".. .UNCTI| 00000490: 4F 4E 20 20 20 20 20 20 20 20 C6 49 4C 45 4E 41 |ON .ILENA| 000004A0: 4D 45 22 00 C5 0C E0 01 99 20 22 20 B8 B8 B8 B8 |ME"...... " ....| 000004B0: B8 B8 B8 B8 20 20 20 20 20 20 20 20 B8 B8 B8 B8 |.... ....| 000004C0: B8 B8 B8 B8 22 00 D3 0C EA 01 81 20 49 B2 31 20 |...."...... I.1 | 000004D0: A4 20 4E 00 F6 0C F4 01 99 20 22 20 22 3B 46 43 |. N...... " ";FC| 000004E0: 24 28 20 49 20 29 3B A3 20 31 37 20 29 3B 46 4C |$( I );. 17 );FL| 000004F0: 24 28 20 49 20 29 00 06 0D FE 01 92 20 31 39 37 |$( I )...... 197| 00000500: 2C 36 34 3A 20 82 00 30 0D 08 02 99 20 22 11 20 |,64: ..0.... ". | 00000510: D0 52 45 53 53 20 41 20 4B 45 59 2E 2E 2E 20 22 |.RESS A KEY... "| 00000520: 3B 3A 20 8D 20 31 30 30 30 3A 20 89 20 31 30 30 |;: . 1000: . 100| 00000530: 00 44 0D 26 02 8B 20 43 24 B3 B1 22 41 22 20 A7 |.D.&.. C$.."A" .| 00000540: 20 36 35 30 00 54 0D 30 02 8B 20 4E B2 30 20 A7 | 650.T.0.. N.0 .| 00000550: 20 31 30 30 00 6E 0D 3A 02 99 20 22 93 11 20 C1 | 100.n.:.. ".. .| 00000560: 44 44 20 41 20 46 55 4E 43 54 49 4F 4E 22 00 91 |DD A FUNCTION"..| 00000570: 0D 44 02 99 20 22 11 20 C6 55 4E 43 54 49 4F 4E |.D.. ". .UNCTION| 00000580: 20 4E 41 4D 45 3A 20 22 3B 3A 20 8D 20 31 30 31 | NAME: ";: . 101| 00000590: 30 00 AF 0D 4E 02 4E B2 4E AA 31 3A 20 46 43 24 |0...N.N.N.1: FC$| 000005A0: 28 4E 29 B2 C8 28 20 49 4E 24 2C 20 38 20 29 00 |(N)..( IN$, 8 ).| 000005B0: CD 0D 58 02 99 20 22 11 20 C6 49 4C 45 4E 41 4D |..X.. ". .ILENAM| 000005C0: 45 3A 20 22 3B 3A 20 8D 20 31 30 31 30 00 EE 0D |E: ";: . 1010...| 000005D0: 62 02 46 4C 24 28 20 4E 20 29 B2 C8 28 20 49 4E |b.FL$( N )..( IN| 000005E0: 24 2C 20 31 32 20 29 AA 22 2E 4F 42 4A 22 00 F8 |$, 12 ).".OBJ"..| 000005F0: 0D 6C 02 89 20 31 30 30 00 0C 0E 8A 02 8B 20 43 |.l.. 100...... C| 00000600: 24 B3 B1 22 44 22 20 A7 20 31 30 30 00 1C 0E 8F |$.."D" . 100....| 00000610: 02 8B 20 4E B2 30 20 A7 20 31 30 30 00 39 0E 94 |.. N.0 . 100.9..| 00000620: 02 99 20 22 93 11 20 C4 45 4C 45 54 45 20 41 20 |.. ".. .ELETE A | 00000630: 46 55 4E 43 54 49 4F 4E 22 00 5C 0E 9E 02 99 20 |FUNCTION".\.... | 00000640: 22 11 20 C6 55 4E 43 54 49 4F 4E 20 4E 41 4D 45 |". .UNCTION NAME| 00000650: 3A 20 22 3B 3A 20 8D 20 31 30 31 30 00 75 0E A8 |: ";: . 1010.u..| 00000660: 02 46 43 24 B2 C8 28 20 49 4E 24 2C 20 38 20 29 |.FC$..( IN$, 8 )| 00000670: 3A 20 4A B2 30 00 A0 0E B2 02 81 20 49 B2 31 20 |: J.0...... I.1 | 00000680: A4 20 4E 3A 20 8B 20 46 43 24 B2 46 43 24 28 20 |. N: . FC$.FC$( | 00000690: 49 20 29 20 A7 20 4A B2 49 3A 20 49 B2 4E AA 31 |I ) . J.I: I.N.1| 000006A0: 00 B3 0E BC 02 82 3A 20 8B 20 4A B2 30 20 A7 20 |......: . J.0 . | 000006B0: 31 30 30 00 CC 0E C6 02 8B 20 4A B2 4E 20 A7 20 |100...... J.N . | 000006C0: 4E B2 4E AB 31 3A 20 89 20 31 30 30 00 0E 0F D0 |N.N.1: . 100....| 000006D0: 02 81 20 49 B2 4A AA 31 20 A4 20 4E 3A 20 46 43 |.. I.J.1 . N: FC| 000006E0: 24 28 20 49 AB 31 20 29 B2 46 43 24 28 20 49 20 |$( I.1 ).FC$( I | 000006F0: 29 3A 20 46 4C 24 28 49 AB 31 29 B2 46 4C 24 28 |): FL$(I.1).FL$(| 00000700: 20 49 20 29 3A 20 82 3A 20 4E B2 4E AB 31 00 18 | I ): .: N.N.1..| 00000710: 0F DA 02 89 20 31 30 30 00 1E 0F E7 03 80 00 54 |.... 100.......T| 00000720: 0F E8 03 97 20 31 39 38 2C 30 3A 20 97 20 32 30 |.... 198,0: . 20| 00000730: 34 2C 20 30 3A 20 92 20 31 39 37 2C 36 34 2C 36 |4, 0: . 197,64,6| 00000740: 34 3A 20 A1 20 43 24 3A 20 97 20 32 30 34 2C 20 |4: . C$: . 204, | 00000750: 31 3A 20 8E 00 71 0F F2 03 9F 20 31 2C 30 3A 20 |1: ..q.... 1,0: | 00000760: 84 31 2C 20 49 4E 24 3A 20 A0 31 3A 20 99 3A 20 |.1, IN$: .1: .: | 00000770: 8E 00 8C 0F DC 05 84 31 35 2C 45 2C 45 24 3A 20 |.......15,E,E$: | 00000780: 8B 20 45 B3 32 30 20 A7 20 45 B2 30 00 92 0F E6 |. E.20 . E.0....| 00000790: 05 8E 00 AF 0F 0E 06 99 20 22 93 11 20 C4 49 53 |........ ".. .IS| 000007A0: 4B 20 45 52 52 4F 52 20 2D 2D 20 23 22 3B 45 00 |K ERROR -- #";E.| 000007B0: CC 0F 18 06 99 20 22 20 20 20 20 20 20 20 20 20 |..... " | 000007C0: 20 20 20 20 20 20 20 20 22 3B 45 24 00 DD 0F 22 | ";E$..."| 000007D0: 06 A0 20 32 3A 20 A0 20 31 35 3A 20 80 00 00 00 |.. 2: . 15: ....|
....... C-POWER LIBRARY EDITOR.$.....:.. .. BY ERIC GIGUERE.@.(...\.2.. 53280, 14 : . 53281, 1...<.MAX . 200: . FC$( MAX ) , FL$( MAX )...F.NU$.G( 0 )...P.. 15,8,1 5.Z.D.. G(14)"..C LIBRARY MAINTENANCE -- BY ERIC GIGUERE";...N.. ".............. ...........................".(.X.. ". .[ A]DD A FUNCTION".F.... ". [D]ELETE A FUN CTION".A.... ". [L]OAD A LIBRARY".~.... ". [S]AVE THE LIBRARY"... .. ". [Q]UIT". ..... ". [V]IEW THE LIBRARY"...... ". PL EASE SELECT: ";: . 1000: . C$: . C$."Q" . ....... C$.."L" . 350...H.. ".. LIBRAR Y NAME: ";: . 1010.A.R.LIB$.H( IN$, 12 ) .".L": N.0: A$.""._.... 2,8,5, "0:".LIB$ .",S,R".V.... 1500: . E . 1550...... ". LOADING ";LIB$;"...".B....#2,B$: . B$.." " . ST.0 . A$.A$.B$: . 250.T.... ST..0 . 300.....N.N.1: FC$( N ).A$: A$."". .... #2,B$: . B$.."" . ST.0 . A$.A$.B$: . 280 .E.".FL$( N ).A$: A$."": . ST.0 . 250.T. ,. 2: . 100.H.^.. C$.."S" . 450.X.H.. N .0 . 100...R.. ".. ARE YOU SURE? (Y/N) " ;: . 1000: . C$.."Y" . 100.U.|.. C$: . " . SAVING ";LIB$;"..."......15,"S0:".LIB$ ...... 2,8,5,"0:".LIB$.",S,W": . 1500: . E . 1550.'.... I.1 . N.I....2,FC$( I ); NU$;FL$( I );NU$;.[....: 2: . 100.O.B. . C$.."V" . 550..L.. N.0 . 100...V.. ". . FUNCTION FILENAME".E.... " .... .... ........".S.... I.1 . N..... . " ";FC$( I );. 17 );FL$( I )...... 197 ,64: ..0.... ". PRESS A KEY... ";: . 100 0: . 100.D.&.. C$.."A" . 650.T.0.. N.0 . 100.N.:.. ".. ADD A FUNCTION"...D.. ". FUNCTION NAME: ";: . 1010...N.N.N.1: FC$ (N).H( IN$, 8 ).M.X.. ". FILENAME: ";: . 1010...B.FL$( N ).H( IN$, 12 ).".OBJ".. .L.. 100...... C$.."D" . 100...... N.0 . 100.9.... ".. DELETE A FUNCTION".\.... ". FUNCTION NAME: ";: . 1010.U...FC$.H( IN$, 8 ): J.0. .... I.1 . N: . FC$.FC$( I ) . J.I: I.N.1......: . J.0 . 100.L.F. . J.N . N.N.1: . 100...P.. I.J.1 . N: FC $( I.1 ).FC$( I ): FL$(I.1).FL$( I ): .: N.N.1...Z.. 100.......T.... 198,0: . 20 4, 0: . 197,64,64: . C$: . 204, 1: ..Q.. .. 1,0: .1, IN$: 1: .: .......15,E,E$: . E.20 . E.0............ ".. DISK ERROR -- #";E.L.... " ";E$..." . 2: 15: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL