DISKBIBLIOTHEK
FILE INFORMATION
FILENAME(S): DISKBIBLIOTHEK
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:29:18
APPEARS ON: 1 disk(s)
FILE HASH
c8c0e758a4715b9ff5b0bb1ab8d58307df5a7cc1cbd647c707f1290b29f8e4f7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KL | DISKBIBLIOTHEK | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 97 35 32 32 37 32 2C 32 33 3A |....d..52272,23:|
00000010: 86 41 24 28 35 30 30 29 3A 4E B2 31 00 65 08 96 |.A$(500):N.1.e..|
00000020: 00 99 22 93 11 11 11 20 20 20 20 20 20 50 52 4F |..".... PRO|
00000030: 47 52 41 4D 4D 42 49 42 4C 49 4F 54 48 45 4B 22 |GRAMMBIBLIOTHEK"|
00000040: 3A 99 22 11 11 42 49 54 54 45 20 47 45 42 45 4E |:."..BITTE GEBEN|
00000050: 20 53 49 45 20 49 48 52 45 20 44 49 53 4B 45 54 | SIE IHRE DISKET|
00000060: 54 45 20 49 4E 00 80 08 A0 00 99 22 11 45 49 4E |TE IN......".EIN|
00000070: 45 4E 20 44 52 49 56 45 22 3A 44 24 B2 22 30 22 |EN DRIVE":D$."0"|
00000080: 00 A8 08 AA 00 99 22 11 11 11 57 45 4C 43 48 45 |......"...WELCHE|
00000090: 52 20 44 52 49 56 45 20 20 12 22 44 24 22 92 9D |R DRIVE ."D$"..|
000000A0: 9D 9D 22 3B 3A 85 44 24 00 BD 08 B4 00 8F 20 49 |..";:.D$...... I|
000000B0: 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 E9 08 |NITIALISIEREN...|
000000C0: BE 00 9F 31 2C 38 2C 31 35 3A 46 4C 24 B2 22 49 |...1,8,15:FL$."I|
000000D0: 22 AA 44 24 3A 98 31 2C 46 4C 24 3A A0 31 3A 46 |".D$:.1,FL$:.1:F|
000000E0: 4C 24 B2 22 24 22 AA 44 24 00 FD 08 C8 00 9F 32 |L$."$".D$......2|
000000F0: 2C 38 2C 30 2C 46 4C 24 3A 99 22 93 22 00 0C 09 |,8,0,FL$:."."...|
00000100: D2 00 8F 20 45 49 4E 4C 45 53 45 4E 00 29 09 DC |... EINLESEN.)..|
00000110: 00 48 24 B2 22 22 3A 47 47 B2 30 3A 48 4C B2 30 |.H$."":GG.0:HL.0|
00000120: 3A 42 24 28 31 29 B2 22 22 00 55 09 E6 00 42 24 |:B$(1)."".U...B$|
00000130: 28 32 29 B2 22 22 3A 4B B2 32 3A A1 23 32 2C 42 |(2)."":K.2:.#2,B|
00000140: 24 28 4B 29 3A 8B 42 24 28 4B 29 B2 C7 28 33 34 |$(K):.B$(K)..(34|
00000150: 29 A7 33 30 30 00 7B 09 F0 00 8B 42 24 28 4B AB |).300.{....B$(K.|
00000160: 31 29 B2 22 53 22 AF 42 24 28 4B 29 B2 22 45 22 |1)."S".B$(K)."E"|
00000170: A7 49 B2 49 AB 31 3A 89 32 38 30 00 8D 09 FA 00 |.I.I.1:.280.....|
00000180: 8B 42 24 28 4B 29 B2 22 22 A7 32 38 30 00 BB 09 |.B$(K)."".280...|
00000190: 04 01 8B 48 4C B2 31 AF C6 28 42 24 28 4B 29 29 |...HL.1..(B$(K))|
000001A0: B1 34 37 AF C6 28 42 24 28 4B 29 29 B3 35 38 A7 |.47..(B$(K)).58.|
000001B0: 48 24 B2 48 24 AA 42 24 28 4B 29 00 CD 09 0E 01 |H$.H$.B$(K).....|
000001C0: 42 24 28 4B AB 31 29 B2 42 24 28 4B 29 00 DC 09 |B$(K.1).B$(K)...|
000001D0: 18 01 8B 53 54 B3 B1 30 A7 33 36 30 00 E5 09 22 |...ST..0.360..."|
000001E0: 01 89 32 33 30 00 01 0A 2C 01 48 4C B2 30 3A 49 |..230...,.HL.0:I|
000001F0: B2 49 AA 31 3A 41 24 28 49 29 B2 22 22 3A 99 49 |.I.1:A$(I)."":.I|
00000200: 3B 00 22 0A 36 01 A1 23 32 2C 41 24 3A 8B 41 24 |;.".6..#2,A$:.A$|
00000210: B2 C7 28 33 34 29 A7 99 41 24 28 49 29 3A 89 33 |..(34)..A$(I):.3|
00000220: 33 30 00 3A 0A 40 01 41 24 28 49 29 B2 41 24 28 |30.:.@.A$(I).A$(|
00000230: 49 29 AA 41 24 3A 89 33 31 30 00 5D 0A 4A 01 8B |I).A$:.310.].J..|
00000240: 47 47 B2 30 A7 48 24 B2 41 24 28 4E 29 3A 49 B2 |GG.0.H$.A$(N):I.|
00000250: 49 AB 31 3A 47 47 B2 31 3A 48 4C B2 31 00 66 0A |I.1:GG.1:HL.1.f.|
00000260: 54 01 89 32 33 30 00 7E 0A 5E 01 8F 20 53 54 52 |T..230.~.^.. STR|
00000270: 49 4E 47 20 41 55 46 46 55 45 4C 4C 45 4E 00 8C |ING AUFFUELLEN..|
00000280: 0A 68 01 A0 32 3A 81 4B B2 4E A4 49 00 A2 0A 72 |.h..2:.K.N.I...r|
00000290: 01 8B C3 28 41 24 28 4B 29 29 B1 B2 32 35 A7 33 |...(A$(K))..25.3|
000002A0: 39 30 00 BB 0A 7C 01 41 24 28 4B 29 B2 41 24 28 |90...|.A$(K).A$(|
000002B0: 4B 29 AA 22 2E 22 3A 89 33 37 30 00 D7 0A 86 01 |K).".":.370.....|
000002C0: 41 24 28 4B 29 B2 41 24 28 4B 29 AA 48 24 3A 99 |A$(K).A$(K).H$:.|
000002D0: 41 24 28 4B 29 3A 82 00 E6 0A 90 01 8F 20 53 43 |A$(K):....... SC|
000002E0: 48 4C 45 49 46 45 00 30 0B 9A 01 99 22 11 11 53 |HLEIFE.0...."..S|
000002F0: 4F 4C 4C 20 45 49 4E 45 20 57 45 49 54 45 52 45 |OLL EINE WEITERE|
00000300: 20 44 49 53 4B 45 54 54 45 20 44 55 52 43 48 2D | DISKETTE DURCH-|
00000310: 22 3A 99 22 11 53 55 43 48 54 20 57 45 52 44 45 |":.".SUCHT WERDE|
00000320: 4E 3F 20 28 4A 2F 4E 29 22 3A 97 31 35 38 2C 30 |N? (J/N)":.158,0|
00000330: 00 3B 0B 9F 01 97 31 39 38 2C 30 00 56 0B A4 01 |.;....198,0.V...|
00000340: 92 31 39 38 2C 31 3A A1 58 24 3A 8B 58 24 B2 22 |.198,1:.X$:.X$."|
00000350: 4E 22 A7 34 36 30 00 9B 0B AE 01 99 22 11 11 42 |N".460......"..B|
00000360: 49 54 54 45 20 41 4E 44 45 52 45 20 44 49 53 4B |ITTE ANDERE DISK|
00000370: 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 22 3A 99 |ETTE EINLEGEN":.|
00000380: 22 11 44 41 4E 4E 20 45 49 4E 45 20 54 41 53 54 |".DANN EINE TAST|
00000390: 45 20 44 52 55 45 43 4B 45 4E 22 00 AF 0B B8 01 |E DRUECKEN".....|
000003A0: 4E B2 49 AA 31 3A 99 22 93 22 3A 89 31 37 30 00 |N.I.1:.".":.170.|
000003B0: C4 0B C2 01 8F 20 53 4F 52 54 49 45 52 52 4F 55 |..... SORTIERROU|
000003C0: 54 49 4E 45 00 E6 0B CC 01 99 22 93 11 11 45 53 |TINE......"...ES|
000003D0: 20 57 49 52 44 20 53 4F 52 54 49 45 52 54 11 11 | WIRD SORTIERT..|
000003E0: 11 22 3A 41 B2 49 00 F4 0B D6 01 8B 41 B3 B2 31 |.":A.I......A..1|
000003F0: A7 35 35 30 00 07 0C E0 01 41 B2 B5 28 41 AD 32 |.550.....A..(A.2|
00000400: 29 3A 42 B2 49 AB 41 00 0F 0C EA 01 43 B2 30 00 |):B.I.A.....C.0.|
00000410: 38 0C F4 01 81 4C B2 31 A4 42 3A 99 22 91 22 4C |8....L.1.B:."."L|
00000420: 3A 44 B2 41 AA 4C 3A 8B 41 24 28 4C 29 B2 B3 41 |:D.A.L:.A$(L)..A|
00000430: 24 28 44 29 A7 35 32 30 00 5E 0C FE 01 53 24 B2 |$(D).520.^...S$.|
00000440: 41 24 28 4C 29 3A 41 24 28 4C 29 B2 41 24 28 44 |A$(L):A$(L).A$(D|
00000450: 29 3A 41 24 28 44 29 B2 53 24 3A 43 B2 31 00 6D |):A$(D).S$:C.1.m|
00000460: 0C 08 02 82 3A 8B 43 B2 31 A7 34 39 30 00 76 0C |....:.C.1.490.v.|
00000470: 12 02 89 34 37 30 00 89 0C 1C 02 8F 20 5A 41 45 |...470...... ZAE|
00000480: 48 4C 52 4F 55 54 49 4E 45 00 B5 0C 26 02 81 4C |HLROUTINE...&..L|
00000490: B2 31 A4 49 3A 8B C8 28 41 24 28 4C 29 2C 31 36 |.1.I:..(A$(L),16|
000004A0: 29 B2 C8 28 41 24 28 4C AB 31 29 2C 31 36 29 A7 |)..(A$(L.1),16).|
000004B0: 4A B2 4A AA 31 00 C9 0C 30 02 82 3A 41 B2 30 3A |J.J.1...0..:A.0:|
000004C0: 9F 31 2C 34 3A 8D 36 32 30 00 DC 0C 3A 02 8F 20 |.1,4:.620...:.. |
000004D0: 44 52 55 43 4B 52 4F 55 54 49 4E 45 00 EE 0C 44 |DRUCKROUTINE...D|
000004E0: 02 81 4C B2 31 A4 49 3A 99 41 24 28 4C 29 00 1C |..L.1.I:.A$(L)..|
000004F0: 0D 4E 02 98 31 2C 41 24 28 4C 29 3A 41 B2 41 AA |.N..1,A$(L):A.A.|
00000500: 31 3A 8B 41 B2 36 32 A7 81 4A B2 31 A4 34 3A 98 |1:.A.62..J.1.4:.|
00000510: 31 3A 82 3A 41 B2 30 3A 8D 36 32 30 00 3D 0D 58 |1:.:A.0:.620.=.X|
00000520: 02 82 3A 98 31 3A 98 31 2C 49 AB 4A 22 11 50 52 |..:.1:.1,I.J".PR|
00000530: 4F 47 52 41 4D 4D 45 22 3A A0 31 3A 80 00 53 0D |OGRAMME":.1:..S.|
00000540: 62 02 8F 20 20 20 20 54 49 54 45 4C 52 4F 55 54 |b.. TITELROUT|
00000550: 49 4E 45 00 5D 0D 6C 02 98 31 3A 98 31 00 66 0D |INE.].l..1:.1.f.|
00000560: 80 02 98 31 2C 58 00 A0 0D 8A 02 98 31 3A 98 31 |...1,X......1:.1|
00000570: 2C 22 11 50 52 4F 47 52 41 4D 4D 4E 41 4D 45 20 |,".PROGRAMMNAME |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 4B | DISK|
00000590: 45 54 54 45 20 20 20 20 20 20 20 20 2F 52 2E 22 |ETTE /R."|
000005A0: 00 A9 0D 94 02 98 31 3A 8E 00 00 00 |......1:.... |
....D..52272,23:.A$(500):N.1.E...."....
PROGRAMMBIBLIOTHEK":."..BITTE GEBEN
SIE IHRE DISKETTE IN... ..".EINEN DRIVE
":D$."0"......"...WELCHER DRIVE ."D$"..
..";:.D$...... INITIALISIEREN......1,8,1
5:FL$."I".D$:.1,FL$: 1:FL$."$".D$...H..2
,8,0,FL$:."."...R.. EINLESEN.)...H$."":G
G.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):.330.:.@.A$(I).A$(
I).A$:.310.].J..GG.0.H$.A$(N):I.I.1:GG.1
:HL.1.F.T..230.~.^.. STRING AUFFUELLEN..
.H. 2:.K.N.I...R..C(A$(K))..25.390...|.A
$(K).A$(K).".":.370.W...A$(K).A$(K).H$:.
A$(K):....... SCHLEIFE.0...."..SOLL EINE
WEITERE DISKETTE DURCH-":.".SUCHT WERDE
N? (J/N)":.158,0.;....198,0.V....198,1:.
X$:.X$."N".460......"..BITTE ANDERE DISK
ETTE EINLEGEN":.".DANN EINE TASTE DRUECK
EN".....N.I.1:.".":.170.D.B.. SORTIERROU
TINE...L.."...ES WIRD SORTIERT...":A.I..
.V..A..1.550.....A..(A.2):B.I.A.....C.0.
8....L.1.B:."."L:D.A.L:.A$(L)..A$(D).520
.^...S$.A$(L):A$(L).A$(D):A$(D).S$:C.1.M
....:.C.1.490.V....470...... ZAEHLROUTIN
E...&..L.1.I:.H(A$(L),16).H(A$(L.1),16).
J.J.1.I.0..:A.0:.1,4:.620...:.. DRUCKROU
TINE...D..L.1.I:.A$(L)...N..1,A$(L):A.A.
1:.A.62..J.1.4:.1:.:A.0:.620.=.X..:.1:.1
,I.J".PROGRAMME": 1:..S.B.. TITELROUT
INE.].L..1:.1.F....1,X. ....1:.1,".PROGR
AMMNAME DISKETTE /R."
......1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL