DISKBIBLIOTHEK
FILE INFORMATION
FILENAME(S): DISKBIBLIOTHEK
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-12-02 23:08:25
APPEARS ON: 1 disk(s)
FILE HASH
e86c8b0c2f72d474f8ec1e3ee63843a4fc480b4768a2a1d434e9b27e988d52b7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ROLANDO DISK | DISKBIBLIOTHEK | PRG | swasti, misc | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 6E 00 8F 20 44 49 45 53 45 53 20 50 |..@.n.. DIESES P|
00000010: 52 4F 47 52 41 4D 4D 20 44 55 52 43 48 53 55 43 |ROGRAMM DURCHSUC|
00000020: 48 54 20 44 49 53 4B 45 54 54 45 4E 20 4E 41 43 |HT DISKETTEN NAC|
00000030: 48 20 50 52 4F 47 52 41 4D 4D 4E 41 4D 45 4E 2C |H PROGRAMMNAMEN,|
00000040: 00 62 08 78 00 8F 20 53 4F 52 54 49 45 52 54 20 |.b.x.. SORTIERT |
00000050: 55 4E 44 20 44 52 55 43 4B 54 20 53 49 45 20 41 |UND DRUCKT SIE A|
00000060: 55 53 00 88 08 82 00 8F 20 2A 2A 2A 2A 2A 2A 2A |US...... *******|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 00 AE 08 8C 00 8F 20 2A |********...... *|
00000090: 20 20 20 20 20 20 20 44 49 53 4B 42 49 42 4C 49 | DISKBIBLI|
000000A0: 4F 54 48 45 4B 20 20 20 20 20 20 20 20 2A 00 D4 |OTHEK *..|
000000B0: 08 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 00 F4 08 99 00 97 35 32 32 37 32 2C |****......52272,|
000000E0: 32 33 3A 3A 86 41 24 28 35 30 30 29 3A 4E B2 31 |23::.A$(500):N.1|
000000F0: 3A 58 B2 30 00 3D 09 9D 00 99 22 93 11 11 11 20 |:X.0.=....".... |
00000100: 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 42 49 42 | PROGRAMMBIB|
00000110: 4C 49 4F 54 48 45 4B 22 3A 99 22 11 11 42 49 54 |LIOTHEK":."..BIT|
00000120: 54 45 20 47 45 42 45 4E 20 53 49 45 20 49 48 52 |TE GEBEN SIE IHR|
00000130: 45 20 44 49 53 4B 45 54 54 45 20 49 4E 00 58 09 |E DISKETTE IN.X.|
00000140: A0 00 99 22 11 45 49 4E 45 4E 20 44 52 49 56 45 |...".EINEN DRIVE|
00000150: 22 3A 44 24 B2 22 30 22 00 80 09 AA 00 99 22 11 |":D$."0"......".|
00000160: 11 11 57 45 4C 43 48 45 52 20 44 52 49 56 45 20 |..WELCHER DRIVE |
00000170: 20 12 22 44 24 22 92 9D 9D 9D 22 3B 3A 85 44 24 | ."D$"....";:.D$|
00000180: 00 86 09 AF 00 8F 00 A3 09 B4 00 8F 20 2A 2A 2A |............ ***|
00000190: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 | INITIALISIEREN |
000001A0: 2A 2A 2A 00 A9 09 B9 00 8F 00 D5 09 BE 00 9F 31 |***............1|
000001B0: 2C 38 2C 31 35 3A 46 4C 24 B2 22 49 22 AA 44 24 |,8,15:FL$."I".D$|
000001C0: 3A 98 31 2C 46 4C 24 3A A0 31 3A 46 4C 24 B2 22 |:.1,FL$:.1:FL$."|
000001D0: 24 22 AA 44 24 00 E9 09 C8 00 9F 32 2C 38 2C 30 |$".D$......2,8,0|
000001E0: 2C 46 4C 24 3A 99 22 93 22 00 EF 09 CD 00 8F 00 |,FL$:.".".......|
000001F0: 06 0A D2 00 8F 20 2A 2A 2A 20 45 49 4E 4C 45 53 |..... *** EINLES|
00000200: 45 4E 20 2A 2A 2A 00 0C 0A D7 00 8F 00 29 0A DC |EN ***.......)..|
00000210: 00 48 24 B2 22 22 3A 47 47 B2 30 3A 48 4C B2 30 |.H$."":GG.0:HL.0|
00000220: 3A 42 24 28 31 29 B2 22 22 00 55 0A E6 00 42 24 |:B$(1)."".U...B$|
00000230: 28 32 29 B2 22 22 3A 4B B2 32 3A A1 23 32 2C 42 |(2)."":K.2:.#2,B|
00000240: 24 28 4B 29 3A 8B 42 24 28 4B 29 B2 C7 28 33 34 |$(K):.B$(K)..(34|
00000250: 29 A7 33 30 30 00 7B 0A F0 00 8B 42 24 28 4B AB |).300.{....B$(K.|
00000260: 31 29 B2 22 53 22 AF 42 24 28 4B 29 B2 22 45 22 |1)."S".B$(K)."E"|
00000270: A7 49 B2 49 AB 31 3A 89 32 38 30 00 8D 0A FA 00 |.I.I.1:.280.....|
00000280: 8B 42 24 28 4B 29 B2 22 22 A7 32 38 30 00 BB 0A |.B$(K)."".280...|
00000290: 04 01 8B 48 4C B2 31 AF C6 28 42 24 28 4B 29 29 |...HL.1..(B$(K))|
000002A0: B1 34 37 AF C6 28 42 24 28 4B 29 29 B3 35 38 A7 |.47..(B$(K)).58.|
000002B0: 48 24 B2 48 24 AA 42 24 28 4B 29 00 CD 0A 0E 01 |H$.H$.B$(K).....|
000002C0: 42 24 28 4B AB 31 29 B2 42 24 28 4B 29 00 DC 0A |B$(K.1).B$(K)...|
000002D0: 18 01 8B 53 54 B3 B1 30 A7 33 36 30 00 E5 0A 22 |...ST..0.360..."|
000002E0: 01 89 32 33 30 00 01 0B 2C 01 48 4C B2 30 3A 49 |..230...,.HL.0:I|
000002F0: B2 49 AA 31 3A 41 24 28 49 29 B2 22 22 3A 99 49 |.I.1:A$(I)."":.I|
00000300: 3B 00 22 0B 36 01 A1 23 32 2C 41 24 3A 8B 41 24 |;.".6..#2,A$:.A$|
00000310: B2 C7 28 33 34 29 A7 99 41 24 28 49 29 3A 89 33 |..(34)..A$(I):.3|
00000320: 33 30 00 3A 0B 40 01 41 24 28 49 29 B2 41 24 28 |30.:.@.A$(I).A$(|
00000330: 49 29 AA 41 24 3A 89 33 31 30 00 5D 0B 4A 01 8B |I).A$:.310.].J..|
00000340: 47 47 B2 30 A7 48 24 B2 41 24 28 4E 29 3A 49 B2 |GG.0.H$.A$(N):I.|
00000350: 49 AB 31 3A 47 47 B2 31 3A 48 4C B2 31 00 66 0B |I.1:GG.1:HL.1.f.|
00000360: 54 01 89 32 33 30 00 6C 0B 59 01 8F 00 8B 0B 5E |T..230.l.Y.....^|
00000370: 01 8F 20 2A 2A 2A 20 53 54 52 49 4E 47 20 41 55 |.. *** STRING AU|
00000380: 46 46 55 45 4C 4C 45 4E 20 2A 2A 00 91 0B 63 01 |FFUELLEN **...c.|
00000390: 8F 00 A2 0B 68 01 A0 32 3A 59 B2 C3 28 48 24 29 |....h..2:Y..(H$)|
000003A0: AB 31 00 B1 0B 6A 01 48 24 B2 C8 28 48 24 2C 59 |.1...j.H$..(H$,Y|
000003B0: 29 00 BC 0B 6C 01 81 4B B2 4E A4 49 00 D2 0B 72 |)...l..K.N.I...r|
000003C0: 01 8B C3 28 41 24 28 4B 29 29 B1 B2 32 35 A7 33 |...(A$(K))..25.3|
000003D0: 39 30 00 EB 0B 7C 01 41 24 28 4B 29 B2 41 24 28 |90...|.A$(K).A$(|
000003E0: 4B 29 AA 22 2E 22 3A 89 33 37 30 00 07 0C 86 01 |K).".":.370.....|
000003F0: 41 24 28 4B 29 B2 41 24 28 4B 29 AA 48 24 3A 99 |A$(K).A$(K).H$:.|
00000400: 41 24 28 4B 29 3A 82 00 0D 0C 8B 01 8F 00 24 0C |A$(K):........$.|
00000410: 90 01 8F 20 2A 2A 2A 20 53 43 48 4C 45 49 46 45 |... *** SCHLEIFE|
00000420: 20 2A 2A 2A 00 2A 0C 95 01 8F 00 72 0C 9A 01 99 | ***.*.....r....|
00000430: 22 11 11 53 4F 4C 4C 20 45 49 4E 45 20 57 45 49 |"..SOLL EINE WEI|
00000440: 54 45 52 45 20 44 49 53 4B 45 54 54 45 20 44 55 |TERE DISKETTE DU|
00000450: 52 43 48 2D 22 3A 99 22 11 53 55 43 48 54 20 57 |RCH-":.".SUCHT W|
00000460: 45 52 44 45 4E 3F 20 4A 2F 4E 22 3A 97 31 35 38 |ERDEN? J/N":.158|
00000470: 2C 30 00 7D 0C 9F 01 97 31 39 38 2C 30 00 98 0C |,0.}....198,0...|
00000480: A4 01 92 31 39 38 2C 31 3A A1 58 24 3A 8B 58 24 |...198,1:.X$:.X$|
00000490: B2 22 4E 22 A7 34 36 30 00 DC 0C AE 01 99 22 11 |."N".460......".|
000004A0: 11 42 49 54 54 45 20 41 4E 44 45 52 45 20 44 49 |.BITTE ANDERE DI|
000004B0: 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 22 |SKETTE EINLEGEN"|
000004C0: 3A 99 22 11 44 41 4E 4E 20 45 49 4E 45 20 54 41 |:.".DANN EINE TA|
000004D0: 53 54 45 20 44 52 55 45 43 4B 45 4E 00 F0 0C B8 |STE DRUECKEN....|
000004E0: 01 4E B2 49 AA 31 3A 99 22 93 22 3A 89 31 37 30 |.N.I.1:.".":.170|
000004F0: 00 F6 0C BD 01 8F 00 13 0D C2 01 8F 20 2A 2A 2A |............ ***|
00000500: 20 53 4F 52 54 49 45 52 52 4F 55 54 49 4E 45 20 | SORTIERROUTINE |
00000510: 2A 2A 2A 00 19 0D C7 01 8F 00 3B 0D CC 01 99 22 |***.......;...."|
00000520: 93 11 11 45 53 20 57 49 52 44 20 53 4F 52 54 49 |...ES WIRD SORTI|
00000530: 45 52 54 11 11 11 22 3A 41 B2 49 00 49 0D D6 01 |ERT...":A.I.I...|
00000540: 8B 41 B3 B2 31 A7 35 35 30 00 5C 0D E0 01 41 B2 |.A..1.550.\...A.|
00000550: B5 28 41 AD 32 29 3A 42 B2 49 AB 41 00 64 0D EA |.(A.2):B.I.A.d..|
00000560: 01 43 B2 30 00 8D 0D F4 01 81 4C B2 31 A4 42 3A |.C.0......L.1.B:|
00000570: 99 22 91 22 4C 3A 44 B2 41 AA 4C 3A 8B 41 24 28 |."."L:D.A.L:.A$(|
00000580: 4C 29 B2 B3 41 24 28 44 29 A7 35 32 30 00 B3 0D |L)..A$(D).520...|
00000590: FE 01 53 24 B2 41 24 28 4C 29 3A 41 24 28 4C 29 |..S$.A$(L):A$(L)|
000005A0: B2 41 24 28 44 29 3A 41 24 28 44 29 B2 53 24 3A |.A$(D):A$(D).S$:|
000005B0: 43 B2 31 00 C2 0D 08 02 82 3A 8B 43 B2 31 A7 34 |C.1......:.C.1.4|
000005C0: 39 30 00 CB 0D 12 02 89 34 37 30 00 D1 0D 17 02 |90......470.....|
000005D0: 8F 00 EC 0D 1C 02 8F 20 2A 2A 2A 20 5A 41 45 48 |....... *** ZAEH|
000005E0: 4C 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 F2 0D 21 |LROUTINE ***...!|
000005F0: 02 8F 00 1E 0E 26 02 81 4C B2 31 A4 49 3A 8B C8 |.....&..L.1.I:..|
00000600: 28 41 24 28 4C 29 2C 31 36 29 B2 C8 28 41 24 28 |(A$(L),16)..(A$(|
00000610: 4C AB 31 29 2C 31 36 29 A7 4A B2 4A AA 31 00 32 |L.1),16).J.J.1.2|
00000620: 0E 30 02 82 3A 41 B2 30 3A 9F 31 2C 34 3A 8D 36 |.0..:A.0:.1,4:.6|
00000630: 32 30 00 38 0E 35 02 8F 00 53 0E 3A 02 8F 20 2A |20.8.5...S.:.. *|
00000640: 2A 2A 20 44 52 55 43 4B 52 4F 55 54 49 4E 45 20 |** DRUCKROUTINE |
00000650: 2A 2A 2A 00 59 0E 3F 02 8F 00 6B 0E 44 02 81 4C |***.Y.?...k.D..L|
00000660: B2 31 A4 49 3A 99 41 24 28 4C 29 00 9F 0E 4E 02 |.1.I:.A$(L)...N.|
00000670: 98 31 2C 41 24 28 4C 29 3A 41 B2 41 AA 31 3A 8B |.1,A$(L):A.A.1:.|
00000680: 41 B2 36 32 A7 81 4A B2 31 A4 34 3A 98 31 3A 82 |A.62..J.1.4:.1:.|
00000690: 3A 41 B2 30 3A 58 B2 58 AA 31 3A 8D 36 32 30 00 |:A.0:X.X.1:.620.|
000006A0: C0 0E 58 02 82 3A 98 31 3A 98 31 2C 49 AB 4A 22 |..X..:.1:.1,I.J"|
000006B0: 11 50 52 4F 47 52 41 4D 4D 45 22 3A A0 31 3A 80 |.PROGRAMME":.1:.|
000006C0: 00 C6 0E 5D 02 8F 00 E1 0E 62 02 8F 20 2A 2A 2A |...].....b.. ***|
000006D0: 20 54 49 54 45 4C 52 4F 55 54 49 4E 45 20 2A 2A | TITELROUTINE **|
000006E0: 2A 00 E7 0E 67 02 8F 00 F1 0E 6C 02 98 31 3A 98 |*...g.....l..1:.|
000006F0: 31 00 19 0F 76 02 98 31 2C C7 28 31 34 29 22 11 |1...v..1,.(14)".|
00000700: 50 52 4F 47 52 41 4D 4D 42 49 42 4C 49 4F 54 48 |PROGRAMMBIBLIOTH|
00000710: 45 4B 22 C7 28 31 35 29 3B 00 31 0F 7B 02 98 31 |EK".(15);.1.{..1|
00000720: 2C C7 28 31 36 29 22 33 38 53 45 49 54 45 22 3B |,.(16)"38SEITE";|
00000730: 3A 00 3A 0F 80 02 98 31 2C 58 00 74 0F 8A 02 98 |:.:....1,X.t....|
00000740: 31 3A 98 31 2C 22 11 50 52 4F 47 52 41 4D 4D 4E |1:.1,".PROGRAMMN|
00000750: 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |AME |
00000760: 44 49 53 4B 45 54 54 45 20 20 20 20 20 20 20 20 |DISKETTE |
00000770: 4E 52 2E 22 00 7A 0F 94 02 8E 00 00 00 00 FF FF |NR.".z..........|
..@.N.. DIESES PROGRAMM DURCHSUCHT DISKE
TTEN NACH PROGRAMMNAMEN,.B.X.. SORTIERT
UND DRUCKT SIE AUS...... ***************
****************...... * DISKBIBLI
OTHEK *.T.... *******************
************......52272,23::.A$(500):N.1
:X.0.=....".... PROGRAMMBIBLIOTHEK"
:."..BITTE GEBEN SIE IHRE DISKETTE IN.X.
..".EINEN DRIVE":D$."0"......"...WELCHE
R DRIVE ."D$"....";:.D$............ ***
INITIALISIEREN ***.......U....1,8,15:FL
$."I".D$:.1,FL$: 1:FL$."$".D$...H..2,8,0
,FL$:."."...M.....R.. *** EINLESEN ***..
.W...)...H$."":GG.0:HL.0:B$(1)."".U...B$
(2)."":K.2:.#2,B$(K):.B$(K).G(34).300.{.
...B$(K.1)."S".B$(K)."E".I.I.1:.280.....
.B$(K)."".280......HL.1.F(B$(K)).47.F(B$
(K)).58.H$.H$.B$(K).M...B$(K.1).B$(K)...
...ST..0.360..."..230...,.HL.0:I.I.1:A$(
I)."":.I;.".6..#2,A$:.A$.G(34)..A$(I):.3
30.:.@.A$(I).A$(I).A$:.310.].J..GG.0.H$.
A$(N):I.I.1:GG.1:HL.1.F.T..230.L.Y.....^
.. *** STRING AUFFUELLEN **...C.....H. 2
:Y.C(H$).1...J.H$.H(H$,Y)...L..K.N.I.R.R
..C(A$(K))..25.390...|.A$(K).A$(K).".":.
370.....A$(K).A$(K).H$:.A$(K):........$.
... *** SCHLEIFE ***.*.....R...."..SOLL
EINE WEITERE DISKETTE DURCH-":.".SUCHT W
ERDEN? J/N":.158,0.}....198,0......198,1
:.X$:.X$."N".460......"..BITTE ANDERE DI
SKETTE EINLEGEN":.".DANN EINE TASTE DRUE
CKEN.....N.I.1:.".":.170.........B.. ***
SORTIERROUTINE ***...G...;.L.."...ES WI
RD SORTIERT...":A.I.I.V..A..1.550.\...A.
.(A.2):B.I.A.D...C.0......L.1.B:."."L:D.
A.L:.A$(L)..A$(D).520.....S$.A$(L):A$(L)
.A$(D):A$(D).S$:C.1.B....:.C.1.490.K....
470.Q.......... *** ZAEHLROUTINE ***...!
.....&..L.1.I:.H(A$(L),16).H(A$(L.1),16)
.J.J.1.2.0..:A.0:.1,4:.620.8.5...S.:.. *
** DRUCKROUTINE ***.Y.?...K.D..L.1.I:.A$
(L)...N..1,A$(L):A.A.1:.A.62..J.1.4:.1:.
:A.0:X.X.1:.620...X..:.1:.1,I.J".PROGRAM
ME": 1:..F.].....B.. *** TITELROUTINE **
*...G.....L..1:.1...V..1,G(14)".PROGRAMM
BIBLIOTHEK"G(15);.1.{..1,G(16)"38SEITE";
:.:....1,X.T....1:.1,".PROGRAMMNAME
DISKETTE NR.".Z..........
> CLICK IMAGE PREVIEW FOR FULL MODAL