DISK-DUMP
FILE INFORMATION
FILENAME(S): DISK-DUMP
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-30 01:12:47
APPEARS ON: 4 disk(s)
FILE HASH
f032e49dca6ca13a3c0734934e0b5a03950d14ae5198ef4c9e67b54e5821965c
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST | DISK-DUMP | PRG | C64er | 20 | 5 | DOWNLOAD FILE |
| 64 ER OKT 84 | DISK-DUMP | PRG | DuncanTwain | 20 | 5 | DOWNLOAD FILE |
| C64 HULP 40 1 | DISK-DUMP | PRG | DuncanTwain | 14 | 2 | DOWNLOAD FILE |
| 64 | DISK-DUMP | PRG | hedning, German ebay | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 99 22 93 91 91 91 22 00 29 08 |....d.."....".).|
00000010: 65 00 8F 20 43 4F 50 59 52 49 47 48 54 20 28 43 |e.. COPYRIGHT (C|
00000020: 29 20 31 39 38 34 20 42 59 00 4B 08 66 00 8F 20 |) 1984 BY.K.f.. |
00000030: 48 4F 52 53 54 20 57 49 42 42 49 4E 47 2C 20 36 |HORST WIBBING, 6|
00000040: 32 20 57 49 45 53 42 41 44 45 4E 00 73 08 6E 00 |2 WIESBADEN.s.n.|
00000050: 99 22 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." **********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 22 00 9B 08 78 00 99 22 20 20 20 20 2A 20 |**"...x.." * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 2A 22 00 C3 08 82 00 | *".....|
000000A0: 99 22 20 20 20 20 2A 20 20 20 20 20 20 44 49 53 |." * DIS|
000000B0: 4B 20 2D 20 44 55 4D 50 20 20 56 32 20 20 20 20 |K - DUMP V2 |
000000C0: 20 2A 22 00 EB 08 8C 00 99 22 20 20 20 20 2A 20 | *"......" * |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 2A 22 00 13 09 96 00 | *".....|
000000F0: 99 22 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." **********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 22 00 1D 09 97 00 99 22 11 11 22 00 3E 09 |**"......"..".>.|
00000120: 99 00 99 22 49 53 54 20 44 49 45 20 44 49 53 4B |..."IST DIE DISK|
00000130: 45 54 54 45 20 44 52 49 4E 20 3F 20 22 3B 00 5E |ETTE DRIN ? ";.^|
00000140: 09 9A 00 A1 20 59 24 3A 8B 28 59 24 B3 B1 22 59 |.... Y$:.(Y$.."Y|
00000150: 22 AF 59 24 B3 B1 22 4A 22 29 A7 31 35 34 00 67 |".Y$.."J").154.g|
00000160: 09 9B 00 99 22 93 22 00 7E 09 A0 00 8F 20 2A 2A |....".".~.... **|
00000170: 2A 2A 2A 20 49 4E 49 54 20 2A 2A 2A 2A 2A 00 A2 |*** INIT *****..|
00000180: 09 A1 00 44 B2 30 3A 44 24 28 30 29 B2 22 12 4F |...D.0:D$(0).".O|
00000190: 46 46 92 22 3A 44 24 28 31 29 B2 22 12 4F 4E 20 |FF.":D$(1).".ON |
000001A0: 92 22 00 B1 09 A2 00 54 52 B2 31 38 3A 53 45 B2 |.".....TR.18:SE.|
000001B0: 30 00 BA 09 A3 00 99 22 11 22 00 C7 09 A4 00 86 |0......"."......|
000001C0: 42 24 28 32 35 35 29 00 D0 09 A5 00 89 32 37 30 |B$(255)......270|
000001D0: 00 EF 09 A6 00 8F 20 2A 2A 2A 2A 2A 20 54 52 41 |...... ***** TRA|
000001E0: 43 4B 2F 53 45 43 54 4F 52 20 2A 2A 2A 2A 2A 00 |CK/SECTOR *****.|
000001F0: 12 0A AA 00 99 22 20 20 20 20 57 48 49 43 48 20 |....." WHICH |
00000200: 54 52 41 43 4B 20 28 20 31 20 2D 20 33 35 20 29 |TRACK ( 1 - 35 )|
00000210: 22 3B 00 1A 0A B4 00 85 54 52 00 35 0A BE 00 8B |";......TR.5....|
00000220: 54 52 B3 31 B0 54 52 B1 33 35 A7 99 22 91 91 22 |TR.1.TR.35..".."|
00000230: 3A 89 31 37 30 00 4B 0A C8 00 8B 54 52 B3 31 38 |:.170.K....TR.18|
00000240: A7 53 52 B2 32 30 3A 89 32 34 30 00 61 0A D2 00 |.SR.20:.240.a...|
00000250: 8B 54 52 B3 32 35 A7 53 52 B2 31 38 3A 89 32 34 |.TR.25.SR.18:.24|
00000260: 30 00 78 0A DC 00 3A 8B 54 52 B3 33 31 A7 53 52 |0.x...:.TR.31.SR|
00000270: B2 31 37 3A 89 32 34 30 00 83 0A E6 00 3A 53 52 |.17:.240.....:SR|
00000280: B2 31 36 00 8F 0A EB 00 8F 20 2A 2A 2A 2A 2A 00 |.16...... *****.|
00000290: B6 0A F0 00 99 22 11 20 20 20 20 57 48 49 43 48 |.....". WHICH|
000002A0: 20 53 45 43 54 4F 52 20 28 20 30 20 2D 22 3B 53 | SECTOR ( 0 -";S|
000002B0: 52 3B 22 29 22 3B 00 BE 0A FA 00 85 53 45 00 DA |R;")";......SE..|
000002C0: 0A 04 01 8B 53 45 B3 30 B0 53 45 B1 53 52 A7 99 |....SE.0.SE.SR..|
000002D0: 22 91 91 91 22 3A 89 32 34 30 00 E6 0A 09 01 8F |"...":.240......|
000002E0: 20 2A 2A 2A 2A 2A 00 F8 0A 0E 01 8D 31 30 30 30 | *****......1000|
000002F0: 3A 8F 20 4C 45 53 45 4E 00 0F 0B 18 01 8D 32 30 |:. LESEN......20|
00000300: 30 30 3A 8F 20 41 55 53 44 52 55 43 4B 45 4E 00 |00:. AUSDRUCKEN.|
00000310: 1B 0B 36 01 8F 20 2A 2A 2A 2A 2A 00 49 0B 40 01 |..6.. *****.I.@.|
00000320: 99 22 20 20 31 20 3D 3E 20 4E 45 58 54 20 42 4C |." 1 => NEXT BL|
00000330: 4F 43 4B 20 20 20 20 20 20 32 20 3D 3E 20 53 41 |OCK 2 => SA|
00000340: 4D 45 20 42 4C 4F 43 4B 22 00 78 0B 4A 01 99 22 |ME BLOCK".x.J.."|
00000350: 20 20 33 20 3D 3E 20 50 52 45 56 2E 20 42 4C 4F | 3 => PREV. BLO|
00000360: 43 4B 20 20 20 20 20 34 20 3D 3E 20 4F 54 48 45 |CK 4 => OTHE|
00000370: 52 20 42 4C 4F 43 4B 22 00 AA 0B 54 01 99 22 20 |R BLOCK"...T.." |
00000380: 20 35 20 3D 3E 20 41 45 4E 44 45 52 4E 20 20 20 | 5 => AENDERN |
00000390: 20 20 20 20 20 20 36 20 3D 3E 20 50 52 49 4E 54 | 6 => PRINT|
000003A0: 45 52 20 22 3B 44 24 28 44 29 00 BC 0B 5E 01 99 |ER ";D$(D)...^..|
000003B0: 22 20 20 30 20 3D 3E 20 45 4E 44 22 00 CF 0B 68 |" 0 => END"...h|
000003C0: 01 A1 54 24 3A 8B 54 24 B2 22 22 A7 33 36 30 00 |..T$:.T$."".360.|
000003D0: E6 0B 72 01 8B 54 24 B2 22 31 22 A7 8D 33 30 30 |..r..T$."1"..300|
000003E0: 30 3A 89 32 37 30 00 F7 0B 7C 01 8B 54 24 B2 22 |0:.270...|..T$."|
000003F0: 32 22 A7 89 32 38 30 00 0E 0C 81 01 8B 54 24 B2 |2"..280......T$.|
00000400: 22 33 22 A7 8D 33 35 30 30 3A 89 32 37 30 00 1F |"3"..3500:.270..|
00000410: 0C 86 01 8B 54 24 B2 22 34 22 A7 89 31 37 30 00 |....T$."4"..170.|
00000420: 3C 0C 87 01 8B 54 24 B2 22 35 22 A7 8D 35 30 30 |<....T$."5"..500|
00000430: 30 3A 99 22 93 22 3A 89 20 33 32 30 00 53 0C 88 |0:.".":. 320.S..|
00000440: 01 8B 54 24 B2 22 36 22 A7 8D 32 35 30 30 3A 89 |..T$."6"..2500:.|
00000450: 34 31 30 00 65 0C 90 01 8B 54 24 B2 22 30 22 A7 |410.e....T$."0".|
00000460: 89 39 39 39 39 00 77 0C 9A 01 99 22 91 91 91 91 |.9999.w...."....|
00000470: 91 22 3A 89 33 32 30 00 9B 0C AE 01 8F 20 2A 2A |.":.320...... **|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** |
00000490: 45 4E 44 45 20 2A 2A 2A 2A 2A 2A 00 B5 0C E8 03 |ENDE ******.....|
000004A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000004B0: 2A 2A 2A 2A 2A 00 CF 0C E9 03 8F 20 2A 2A 2A 2A |*****...... ****|
000004C0: 20 53 55 42 20 4C 45 53 45 4E 20 2A 2A 2A 2A 00 | SUB LESEN ****.|
000004D0: E9 0C EA 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 0C F2 03 9F 31 |*********......1|
000004F0: 35 2C 38 2C 31 35 00 05 0D FC 03 9F 38 2C 38 2C |5,8,15......8,8,|
00000500: 38 2C 22 23 22 00 1B 0D 01 04 98 31 35 2C 22 55 |8,"#"......15,"U|
00000510: 31 20 38 20 30 22 54 52 2C 53 45 00 28 0D 06 04 |1 8 0"TR,SE.(...|
00000520: 81 49 B2 30 A4 32 35 35 00 37 0D 10 04 3A A1 23 |.I.0.255.7...:.#|
00000530: 38 2C 42 24 28 49 29 00 3E 0D 2E 04 82 49 00 49 |8,B$(I).>....I.I|
00000540: 0D 38 04 A0 38 3A A0 31 35 00 4F 0D 42 04 8E 00 |.8..8:.15.O.B...|
00000550: 76 0D 4C 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v.L.. **********|
00000560: 2A 20 45 4E 44 45 20 53 55 42 20 4C 45 53 45 4E |* ENDE SUB LESEN|
00000570: 20 2A 2A 2A 2A 2A 00 93 0D D0 07 8F 20 2A 2A 2A | *****...... ***|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 2A 2A 2A 00 B0 0D D1 07 8F 20 2A 2A 2A 2A 20 53 |***...... **** S|
000005A0: 55 42 20 41 55 53 44 52 55 43 4B 20 2A 2A 2A 2A |UB AUSDRUCK ****|
000005B0: 00 CD 0D D2 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 0D |*************...|
000005D0: DA 07 8B 54 52 B3 31 38 A7 42 4C B2 32 31 AC 28 |...TR.18.BL.21.(|
000005E0: 54 52 AB 31 29 AA 53 45 3A 89 32 30 35 30 00 12 |TR.1).SE:.2050..|
000005F0: 0E E4 07 8B 54 52 B3 32 35 A7 42 4C B2 31 39 AC |....TR.25.BL.19.|
00000600: 28 54 52 AB 31 29 AA 53 45 AA 33 34 3A 89 32 30 |(TR.1).SE.34:.20|
00000610: 35 30 00 39 0E EE 07 8B 54 52 B3 33 31 A7 42 4C |50.9....TR.31.BL|
00000620: B2 31 38 AC 28 54 52 AB 31 29 AA 53 45 AA 33 34 |.18.(TR.1).SE.34|
00000630: AA 32 34 3A 89 32 30 35 30 00 56 0E F8 07 42 4C |.24:.2050.V...BL|
00000640: B2 31 37 AC 28 54 52 AB 31 29 AA 53 45 AA 33 34 |.17.(TR.1).SE.34|
00000650: AA 32 34 AA 33 30 00 64 0E 02 08 8B 44 B2 31 A7 |.24.30.d....D.1.|
00000660: 9F 34 2C 34 00 98 0E 03 08 99 22 93 12 20 54 52 |.4,4......".. TR|
00000670: 41 43 4B 3A 22 3B 54 52 3B 22 20 20 53 45 43 54 |ACK:";TR;" SECT|
00000680: 4F 52 3A 22 3B 53 45 3B 22 20 20 42 4C 4F 43 4B |OR:";SE;" BLOCK|
00000690: 3A 22 3B 42 4C 22 92 22 00 D3 0E 07 08 8B 44 B2 |:";BL"."......D.|
000006A0: 31 A7 98 34 2C 22 12 20 54 52 41 43 4B 3A 22 3B |1..4,". TRACK:";|
000006B0: 54 52 3B 22 20 20 53 45 43 54 4F 52 3A 22 3B 53 |TR;" SECTOR:";S|
000006C0: 45 3B 22 20 20 42 4C 4F 43 4B 3A 22 3B 42 4C 22 |E;" BLOCK:";BL"|
000006D0: 92 11 22 00 DC 0E 0C 08 99 22 11 22 00 E8 0E 16 |.."......"."....|
000006E0: 08 81 49 B2 30 A4 31 35 00 F3 0E 17 08 3A 43 24 |..I.0.15.....:C$|
000006F0: B2 22 22 00 0F 0F 18 08 3A 58 B2 38 AC 49 3A 8D |."".....:X.8.I:.|
00000700: 20 36 30 30 30 3A 8F 20 44 45 43 2D 48 45 58 00 | 6000:. DEC-HEX.|
00000710: 23 0F 1B 08 3A 99 22 20 22 3B 58 24 3B 22 20 3A |#...:." ";X$;" :|
00000720: 20 22 3B 00 3E 0F 1C 08 3A 8B 44 B2 31 A7 98 34 | ";.>...:.D.1..4|
00000730: 2C 22 20 22 3B 58 24 3B 22 20 3A 20 22 3B 00 4A |," ";X$;" : ";.J|
00000740: 0F 20 08 3A 81 4A B2 30 A4 37 00 65 0F 28 08 3A |. .:.J.0.7.e.(.:|
00000750: 58 B2 28 C6 28 42 24 28 49 AC 38 AA 4A 29 AA C7 |X.(.(B$(I.8.J)..|
00000760: 28 30 29 29 29 00 7B 0F 29 08 3A 8D 20 36 30 30 |(0))).{.).:. 600|
00000770: 30 3A 8F 20 44 45 43 2D 48 45 58 00 89 0F 2A 08 |0:. DEC-HEX...*.|
00000780: 3A 99 22 20 22 3B 58 24 3B 00 9E 0F 2B 08 3A 8B |:." ";X$;...+.:.|
00000790: 44 B2 31 A7 98 34 2C 22 20 22 3B 58 24 3B 00 B1 |D.1..4," ";X$;..|
000007A0: 0F 2F 08 3A 8D 34 30 30 30 3A 8F 20 43 48 45 43 |./.:.4000:. CHEC|
000007B0: 4B 00 B9 0F 34 08 3A 82 4A 00 C2 0F 3E 08 3A 99 |K...4.:.J...>.:.|
000007C0: 43 24 00 D2 0F 3F 08 3A 8B 44 B2 31 A7 98 34 2C |C$...?.:.D.1..4,|
000007D0: 43 24 00 D9 0F 48 08 82 49 00 ED 0F 4D 08 8F 20 |C$...H..I...M.. |
000007E0: 2A 2A 2A 2A 2A 20 32 2E 53 45 49 54 45 00 FE 0F |***** 2.SEITE...|
000007F0: 52 08 99 22 11 20 20 20 54 41 53 54 45 22 00 12 |R..". TASTE"..|
00000800: 10 5C 08 A1 54 24 3A 8B 54 24 B2 22 22 A7 32 31 |.\..T$:.T$."".21|
00000810: 34 30 00 46 10 66 08 99 22 11 12 20 54 52 41 43 |40.F.f..".. TRAC|
00000820: 4B 3A 22 3B 54 52 3B 22 20 20 53 45 43 54 4F 52 |K:";TR;" SECTOR|
00000830: 3A 22 3B 53 45 3B 22 20 20 42 4C 4F 43 4B 3A 22 |:";SE;" BLOCK:"|
00000840: 3B 42 4C 22 92 22 00 82 10 6B 08 8B 44 B2 31 A7 |;BL"."...k..D.1.|
00000850: 98 34 2C 22 11 12 20 54 52 41 43 4B 3A 22 3B 54 |.4,".. TRACK:";T|
00000860: 52 3B 22 20 20 53 45 43 54 4F 52 3A 22 3B 53 45 |R;" SECTOR:";SE|
00000870: 3B 22 20 20 42 4C 4F 43 4B 3A 22 3B 42 4C 22 92 |;" BLOCK:";BL".|
00000880: 11 22 00 8B 10 70 08 99 22 11 22 00 98 10 7A 08 |."...p.."."...z.|
00000890: 81 49 B2 31 36 A4 33 31 00 A3 10 7B 08 3A 43 24 |.I.16.31...{.:C$|
000008A0: B2 22 22 00 C1 10 7C 08 3A 58 B2 28 38 AC 49 29 |.""...|.:X.(8.I)|
000008B0: 3A 8D 20 36 30 30 30 3A 8F 20 44 45 43 2D 48 45 |:. 6000:. DEC-HE|
000008C0: 58 00 D5 10 7F 08 3A 99 22 20 22 3B 58 24 3B 22 |X.....:." ";X$;"|
000008D0: 20 3A 20 22 3B 00 F0 10 80 08 3A 8B 44 B2 31 A7 | : ";.....:.D.1.|
000008E0: 98 34 2C 22 20 22 3B 58 24 3B 22 20 3A 20 22 3B |.4," ";X$;" : ";|
000008F0: 00 FC 10 84 08 3A 81 4A B2 30 A4 37 00 17 11 8C |.....:.J.0.7....|
00000900: 08 3A 58 B2 28 C6 28 42 24 28 49 AC 38 AA 4A 29 |.:X.(.(B$(I.8.J)|
00000910: AA C7 28 30 29 29 29 00 2D 11 8D 08 3A 8D 20 36 |..(0))).-...:. 6|
00000920: 30 30 30 3A 8F 20 44 45 43 2D 48 45 58 00 3B 11 |000:. DEC-HEX.;.|
00000930: 8E 08 3A 99 22 20 22 3B 58 24 3B 00 50 11 8F 08 |..:." ";X$;.P...|
00000940: 3A 8B 44 B2 31 A7 98 34 2C 22 20 22 3B 58 24 3B |:.D.1..4," ";X$;|
00000950: 00 63 11 93 08 3A 8D 34 30 30 30 3A 8F 20 43 48 |.c...:.4000:. CH|
00000960: 45 43 4B 00 6B 11 98 08 3A 82 4A 00 74 11 A2 08 |ECK.k...:.J.t...|
00000970: 3A 99 43 24 00 84 11 A3 08 3A 8B 44 B2 31 A7 98 |:.C$.....:.D.1..|
00000980: 34 2C 43 24 00 8B 11 AC 08 82 49 00 97 11 B1 08 |4,C$......I.....|
00000990: 8B 44 B2 31 A7 A0 34 00 9D 11 B6 08 8E 00 C5 11 |.D.1..4.........|
000009A0: C0 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 45 |... ***********E|
000009B0: 4E 44 45 20 53 55 42 20 41 55 53 44 52 55 43 4B |NDE SUB AUSDRUCK|
000009C0: 2A 2A 2A 2A 2A 00 E1 11 C4 09 8F 20 2A 2A 2A 2A |*****...... ****|
000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009E0: 2A 00 FD 11 CE 09 8F 20 2A 2A 2A 2A 20 53 55 42 |*...... **** SUB|
000009F0: 20 50 52 49 4E 54 45 52 20 2A 2A 2A 2A 00 19 12 | PRINTER ****...|
00000A00: D8 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 28 12 E2 09 8B 44 |*********.(....D|
00000A20: B2 30 A7 44 B2 31 3A 8E 00 37 12 EC 09 8B 44 B2 |.0.D.1:..7....D.|
00000A30: 31 A7 44 B2 30 3A 8E 00 60 12 F6 09 8F 20 2A 2A |1.D.0:..`.... **|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E 44 45 20 53 |********* ENDE S|
00000A50: 55 42 20 50 52 49 4E 54 45 52 20 2A 2A 2A 2A 2A |UB PRINTER *****|
00000A60: 00 7F 12 B8 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000A80: 9E 12 B9 0B 8F 20 2A 2A 2A 2A 20 53 55 42 20 4E |..... **** SUB N|
00000A90: 45 58 54 20 42 4C 4F 43 4B 20 2A 2A 2A 2A 00 BD |EXT BLOCK ****..|
00000AA0: 12 BA 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 12 |*************...|
00000AC0: C2 0B 53 45 B2 53 45 AA 31 00 E9 12 CC 0B 8B 54 |..SE.SE.1......T|
00000AD0: 52 B3 31 38 AF 53 45 B1 32 30 A7 54 52 B2 54 52 |R.18.SE.20.TR.TR|
00000AE0: AA 31 3A 53 45 B2 30 3A 8E 00 09 13 D6 0B 8B 54 |.1:SE.0:.......T|
00000AF0: 52 B3 32 35 AF 53 45 B1 31 38 A7 54 52 B2 54 52 |R.25.SE.18.TR.TR|
00000B00: AA 31 3A 53 45 B2 30 3A 8E 00 29 13 E0 0B 8B 54 |.1:SE.0:..)....T|
00000B10: 52 B3 33 31 AF 53 45 B1 31 37 A7 54 52 B2 54 52 |R.31.SE.17.TR.TR|
00000B20: AA 31 3A 53 45 B2 30 3A 8E 00 47 13 EA 0B 8B 54 |.1:SE.0:..G....T|
00000B30: 52 B3 33 36 AF 53 45 B1 31 36 A7 54 52 B2 54 52 |R.36.SE.16.TR.TR|
00000B40: AA 31 3A 53 45 B2 30 00 57 13 F4 0B 8B 54 52 B2 |.1:SE.0.W....TR.|
00000B50: 33 36 A7 54 52 B2 30 00 5D 13 FE 0B 8E 00 89 13 |36.TR.0.].......|
00000B60: 08 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |... *********** |
00000B70: 45 4E 44 45 20 53 55 42 20 4E 45 58 54 20 42 4C |ENDE SUB NEXT BL|
00000B80: 4F 43 4B 20 2A 2A 2A 2A 2A 00 A9 13 AC 0D 8F 20 |OCK *****...... |
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 13 B6 0D 8F 20 |*********...... |
00000BB0: 2A 2A 2A 2A 20 53 55 42 20 50 52 45 56 2E 20 42 |**** SUB PREV. B|
00000BC0: 4C 4F 43 4B 20 2A 2A 2A 2A 00 E9 13 C0 0D 8F 20 |LOCK ****...... |
00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F5 13 CA 0D 53 45 |*********.....SE|
00000BF0: B2 53 45 AB 31 00 05 14 D4 0D 8B 53 45 B3 30 A7 |.SE.1......SE.0.|
00000C00: 89 33 36 30 30 00 0B 14 DE 0D 8E 00 17 14 10 0E |.3600...........|
00000C10: 54 52 B2 54 52 AB 31 00 21 14 1A 0E 53 45 B2 31 |TR.TR.1.!...SE.1|
00000C20: 36 00 33 14 24 0E 8B 54 52 B2 30 A7 54 52 B2 33 |6.3.$..TR.0.TR.3|
00000C30: 35 3A 8E 00 46 14 2E 0E 8B 54 52 B3 31 38 A7 53 |5:..F....TR.18.S|
00000C40: 45 B2 32 30 3A 8E 00 59 14 38 0E 8B 54 52 B3 32 |E.20:..Y.8..TR.2|
00000C50: 35 A7 53 45 B2 31 38 3A 8E 00 6A 14 42 0E 8B 54 |5.SE.18:..j.B..T|
00000C60: 52 B3 33 31 A7 53 45 B2 31 37 00 70 14 4C 0E 8E |R.31.SE.17.p.L..|
00000C70: 00 9D 14 56 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...V.. *********|
00000C80: 2A 2A 20 45 4E 44 45 20 53 55 42 20 50 52 45 56 |** ENDE SUB PREV|
00000C90: 2E 20 42 4C 4F 43 4B 20 2A 2A 2A 2A 2A 00 B7 14 |. BLOCK *****...|
00000CA0: A0 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 00 D1 14 A1 0F 8F 20 2A 2A |*******...... **|
00000CC0: 2A 2A 20 53 55 42 20 43 48 45 43 4B 20 2A 2A 2A |** SUB CHECK ***|
00000CD0: 2A 00 EB 14 A2 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 15 AA 0F |***********.....|
00000CF0: 42 B2 C6 28 42 24 28 49 AC 38 AA 4A 29 AA C7 28 |B..(B$(I.8.J)..(|
00000D00: 30 29 29 00 33 15 B4 0F 8B 28 28 42 B3 33 32 29 |0)).3....((B.32)|
00000D10: B0 28 28 42 B1 31 32 37 29 AF 28 42 B3 31 36 30 |.((B.127).(B.160|
00000D20: 29 29 29 A7 43 24 B2 43 24 AA 22 20 22 3A 89 34 |))).C$.C$." ":.4|
00000D30: 30 33 30 00 47 15 B9 0F 43 24 B2 43 24 AA 42 24 |030.G...C$.C$.B$|
00000D40: 28 49 AC 38 AA 4A 29 00 4D 15 BE 0F 8E 00 74 15 |(I.8.J).M.....t.|
00000D50: C8 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |... *********** |
00000D60: 45 4E 44 45 20 53 55 42 20 43 48 45 43 4B 20 2A |ENDE SUB CHECK *|
00000D70: 2A 2A 2A 2A 00 90 15 88 13 8F 20 2A 2A 2A 2A 2A |****...... *****|
00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D90: 00 AC 15 89 13 8F 20 2A 2A 2A 2A 20 53 55 42 20 |...... **** SUB |
00000DA0: 41 45 4E 44 45 52 4E 20 2A 2A 2A 2A 00 C8 15 8A |AENDERN ****....|
00000DB0: 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EA 15 92 13 99 22 41 |********......"A|
00000DD0: 44 44 52 20 28 30 30 2D 46 46 2F 58 3D 45 58 49 |DDR (00-FF/X=EXI|
00000DE0: 54 29 22 3B 3A 85 41 44 52 24 00 FD 15 97 13 8B |T)";:.ADR$......|
00000DF0: 41 44 52 24 B2 22 22 A7 89 35 30 31 30 00 11 16 |ADR$.""..5010...|
00000E00: 9C 13 8B 41 44 52 24 B2 22 58 22 A7 89 35 31 35 |...ADR$."X"..515|
00000E10: 30 00 2E 16 A6 13 8B C3 28 41 44 52 24 29 B3 32 |0.......(ADR$).2|
00000E20: A7 41 44 52 24 B2 22 30 22 AA 41 44 52 24 00 4C |.ADR$."0".ADR$.L|
00000E30: 16 B0 13 8B C3 28 41 44 52 24 29 B1 32 A7 41 44 |.....(ADR$).2.AD|
00000E40: 52 24 B2 C9 28 41 44 52 24 2C 32 29 00 58 16 B5 |R$..(ADR$,2).X..|
00000E50: 13 58 24 B2 41 44 52 24 00 6D 16 B6 13 8D 20 36 |.X$.ADR$.m.... 6|
00000E60: 35 30 30 3A 8F 20 48 45 58 2D 44 45 43 00 75 16 |500:. HEX-DEC.u.|
00000E70: BA 13 49 B2 58 00 8E 16 C4 13 99 22 57 45 52 54 |..I.X......"WERT|
00000E80: 20 28 30 30 2D 46 46 29 22 3B 3A 85 57 24 00 9F | (00-FF)";:.W$..|
00000E90: 16 C9 13 8B 57 24 B2 22 22 A7 89 35 30 36 30 00 |....W$.""..5060.|
00000EA0: B6 16 CE 13 8B C3 28 57 24 29 B3 32 A7 57 24 B2 |......(W$).2.W$.|
00000EB0: 22 30 22 AA 57 24 00 CE 16 D8 13 8B C3 28 57 24 |"0".W$.......(W$|
00000EC0: 29 B1 32 A7 57 24 B2 C9 28 57 24 2C 32 29 00 D8 |).2.W$..(W$,2)..|
00000ED0: 16 DD 13 58 24 B2 57 24 00 ED 16 DE 13 8D 20 36 |...X$.W$...... 6|
00000EE0: 35 30 30 3A 8F 20 48 45 58 2D 44 45 43 00 FC 16 |500:. HEX-DEC...|
00000EF0: E2 13 42 24 28 49 29 B2 C7 28 58 29 00 06 17 EC |..B$(I)..(X)....|
00000F00: 13 89 35 30 30 30 00 12 17 F6 13 8F 20 2A 2A 2A |..5000...... ***|
00000F10: 2A 2A 00 29 17 1E 14 8D 32 30 30 30 3A 8F 20 41 |**.)....2000:. A|
00000F20: 55 53 44 52 55 43 4B 45 4E 00 48 17 28 14 99 22 |USDRUCKEN.H.(.."|
00000F30: 41 55 46 20 44 49 53 4B 20 53 43 48 52 45 49 42 |AUF DISK SCHREIB|
00000F40: 45 4E 22 3B 3A 85 59 24 00 69 17 32 14 8B 28 28 |EN";:.Y$.i.2..((|
00000F50: 59 24 B3 B1 22 4A 22 29 AF 28 59 24 B3 B1 22 59 |Y$.."J").(Y$.."Y|
00000F60: 22 29 29 A7 89 35 33 30 30 00 80 17 37 14 42 31 |"))..5300...7.B1|
00000F70: B2 C6 28 42 24 28 30 29 AA C7 28 30 29 29 AA 31 |..(B$(0)..(0)).1|
00000F80: 00 8D 17 3C 14 9F 31 35 2C 38 2C 31 35 00 9C 17 |...<..15,8,15...|
00000F90: 46 14 9F 38 2C 38 2C 38 2C 22 23 22 00 A9 17 50 |F..8,8,8,"#"...P|
00000FA0: 14 81 49 B2 31 A4 32 35 35 00 C7 17 55 14 3A 8B |..I.1.255...U.:.|
00000FB0: 42 24 28 49 29 B2 22 22 A7 98 38 2C C7 28 30 29 |B$(I).""..8,.(0)|
00000FC0: 3B 3A 89 35 32 32 30 00 D6 17 5A 14 3A 98 38 2C |;:.5220...Z.:.8,|
00000FD0: 42 24 28 49 29 3B 00 DD 17 64 14 82 49 00 F0 17 |B$(I);...d..I...|
00000FE0: 69 14 98 31 35 2C 22 42 2D 50 3A 38 22 2C 42 31 |i..15,"B-P:8",B1|
00000FF0: 00 07 18 6E 14 98 31 35 2C 22 42 2D 57 3A 38 2C |...n..15,"B-W:8,|
00001000: 30 22 54 52 2C 53 45 00 12 18 78 14 A0 38 3A A0 |0"TR,SE...x..8:.|
00001010: 31 35 00 2D 18 B4 14 99 22 57 45 49 54 45 52 20 |15.-...."WEITER |
00001020: 41 45 4E 44 45 52 4E 22 3B 3A 85 59 24 00 4C 18 |AENDERN";:.Y$.L.|
00001030: BE 14 8B 28 28 59 24 B2 22 4A 22 29 B0 28 59 24 |...((Y$."J").(Y$|
00001040: B2 22 59 22 29 29 A7 89 35 30 30 30 00 52 18 C8 |."Y"))..5000.R..|
00001050: 14 8E 00 7B 18 D2 14 8F 20 2A 2A 2A 2A 2A 2A 2A |...{.... *******|
00001060: 2A 2A 2A 2A 20 45 4E 44 45 20 53 55 42 20 41 45 |**** ENDE SUB AE|
00001070: 4E 44 45 52 4E 20 2A 2A 2A 2A 2A 00 97 18 70 17 |NDERN *****...p.|
00001080: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001090: 2A 2A 2A 2A 2A 2A 2A 00 B3 18 7A 17 8F 20 2A 2A |*******...z.. **|
000010A0: 2A 2A 20 53 55 42 20 44 45 43 2D 48 45 58 20 2A |** SUB DEC-HEX *|
000010B0: 2A 2A 2A 00 CF 18 84 17 8F 20 2A 2A 2A 2A 2A 2A |***...... ******|
000010C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000010D0: DD 18 8E 17 58 31 B2 30 3A 58 32 B2 30 00 EC 18 |....X1.0:X2.0...|
000010E0: 98 17 58 31 B2 B5 28 58 AD 31 36 29 00 07 19 A2 |..X1..(X.16)....|
000010F0: 17 58 32 B2 28 28 58 AD 31 36 29 AB B5 28 58 AD |.X2.((X.16)..(X.|
00001100: 31 36 29 29 AC 31 36 00 24 19 D4 17 8B 58 31 B3 |16)).16.$....X1.|
00001110: 31 30 A7 58 24 B2 C7 28 58 31 AA 34 38 29 3A 89 |10.X$..(X1.48):.|
00001120: 36 31 32 30 00 34 19 DE 17 58 24 B2 C7 28 58 31 |6120.4...X$..(X1|
00001130: AA 35 35 29 00 50 19 E8 17 8B 58 32 B3 31 30 A7 |.55).P....X2.10.|
00001140: 58 24 B2 58 24 AA C7 28 58 32 AA 34 38 29 3A 8E |X$.X$..(X2.48):.|
00001150: 00 63 19 F2 17 58 24 B2 58 24 AA C7 28 58 32 AA |.c...X$.X$..(X2.|
00001160: 35 35 29 00 69 19 FC 17 8E 00 91 19 06 18 8F 20 |55).i.......... |
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 |*********** END |
00001180: 53 55 42 20 44 45 43 2D 48 45 58 20 2A 2A 2A 2A |SUB DEC-HEX ****|
00001190: 2A 00 AD 19 64 19 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...d.. ********|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 19 |*************...|
000011B0: 6E 19 8F 20 2A 2A 2A 2A 20 53 55 42 20 48 45 58 |n.. **** SUB HEX|
000011C0: 2D 44 45 43 20 2A 2A 2A 2A 00 E5 19 78 19 8F 20 |-DEC ****...x.. |
000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011E0: 2A 2A 2A 2A 2A 00 F5 19 82 19 58 31 24 B2 C8 28 |*****.....X1$..(|
000011F0: 58 24 2C 31 29 00 05 1A 8C 19 58 32 24 B2 C9 28 |X$,1).....X2$..(|
00001200: 58 24 2C 31 29 00 31 1A 96 19 8B 20 C6 28 58 31 |X$,1).1.... .(X1|
00001210: 24 29 B1 36 34 20 A7 20 58 B2 28 28 C6 28 58 31 |$).64 . X.((.(X1|
00001220: 24 29 AB 35 35 29 AC 31 36 29 3A 89 20 36 35 37 |$).55).16):. 657|
00001230: 30 00 48 1A A0 19 58 B2 28 28 C6 28 58 31 24 29 |0.H...X.((.(X1$)|
00001240: AB 34 38 29 AC 31 36 29 00 6C 1A AA 19 8B 20 C6 |.48).16).l.... .|
00001250: 28 58 32 24 29 B1 36 34 20 A7 20 58 B2 58 AA 28 |(X2$).64 . X.X.(|
00001260: C6 28 58 32 24 29 AB 35 35 29 3A 8E 00 80 1A B4 |.(X2$).55):.....|
00001270: 19 58 B2 58 AA 28 C6 28 58 32 24 29 AB 34 38 29 |.X.X.(.(X2$).48)|
00001280: 00 86 1A BE 19 8E 00 AE 1A C8 19 8F 20 2A 2A 2A |............ ***|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E 44 20 53 55 42 |******** END SUB|
000012A0: 20 48 45 58 2D 44 45 43 20 2A 2A 2A 2A 2A 00 B4 | HEX-DEC *****..|
000012B0: 1A 0F 27 80 00 00 00 59 56 00 AF 81 |..'....YV... |
....D.."....".).E.. COPYRIGHT (C) 1984 B
Y.K.F.. HORST WIBBING, 62 WIESBADEN.S.N.
." ****************************"...X.
." * *".C...
." * DISK - DUMP V2 *".....
." * *".....
." ****************************".....
."..".>...."IST DIE DISKETTE DRIN ? ";.^
.... Y$:.(Y$.."Y".Y$.."J").154.G....".".
~. .. ***** INIT *****.....D.0:D$(0).".O
FF.":D$(1).".ON .".....TR.18:SE.0......"
.".G....B$(255).P....270...... ***** TRA
CK/SECTOR *****......" WHICH TRACK (
1 - 35 )";......TR.5....TR.1.TR.35..".."
:.170.K.H..TR.18.SR.20:.240.A.R..TR.25.S
R.18:.240.X...:.TR.31.SR.17:.240.....:SR
.16...... *****......". WHICH SECTOR
( 0 -";SR;")";......SE.Z....SE.0.SE.SR..
"...":.240...... *****......1000:. LESEN
......2000:. AUSDRUCKEN...6.. *****.I.@.
." 1 => NEXT BLOCK 2 => SAME BLOCK
".X.J.." 3 => PREV. BLOCK 4 => OTHE
R BLOCK"...T.." 5 => AENDERN 6
=> PRINTER ";D$(D)...^.." 0 => END".O.H
..T$:.T$."".360...R..T$."1"..3000:.270..
.|..T$."2"..280......T$."3"..3500:.270..
....T$."4"..170.<....T$."5"..5000:.".":.
320.S....T$."6"..2500:.410.E....T$."0".
.9999.W....".....":.320...... **********
******* ENDE ******...... **************
*****.O.... **** SUB LESEN ****...... **
*****************......15,8,15......8,8,
8,"#"......15,"U1 8 0"TR,SE.(....I.0.255
.7...:.#8,B$(I).>....I.I.8. 8: 15.O.B...
V.L.. *********** ENDE SUB LESEN *****..
.P.. **********************...Q.. **** S
UB AUSDRUCK ****.M.R.. *****************
*****...Z..TR.18.BL.21.(TR.1).SE:.2050..
....TR.25.BL.19.(TR.1).SE.34:.2050.9....
TR.31.BL.18.(TR.1).SE.34.24:.2050.V...BL
.17.(TR.1).SE.34.24.30.D....D.1..4,4....
..".. TRACK:";TR;" SECTOR:";SE;" BLOCK
:";BL".".S....D.1..4,". TRACK:";TR;" SE
CTOR:";SE;" BLOCK:";BL".."......"."....
..I.0.15.....:C$."".....:X.8.I:. 6000:.
DEC-HEX.#...:." ";X$;" : ";.>...:.D.1..4
," ";X$;" : ";.J. .:.J.0.7.E.(.:X.(F(B$(
I.8.J).G(0))).{.).:. 6000:. DEC-HEX...*.
:." ";X$;...+.:.D.1..4," ";X$;.../.:.400
0:. CHECK...4.:.J.B.>.:.C$.R.?.:.D.1..4,
C$.Y.H..I...M.. ***** 2.SEITE...R..".
TASTE"...\..T$:.T$."".2140.F.F..".. TRAC
K:";TR;" SECTOR:";SE;" BLOCK:";BL"."..
.K..D.1..4,".. TRACK:";TR;" SECTOR:";SE
;" BLOCK:";BL".."...P.."."...Z..I.16.31
...{.:C$."".A.|.:X.(8.I):. 6000:. DEC-HE
X.U..:." ";X$;" : ";.....:.D.1..4," ";X
$;" : ";.....:.J.0.7.....:X.(F(B$(I.8.J)
.G(0))).-...:. 6000:. DEC-HEX.;...:." ";
X$;.P...:.D.1..4," ";X$;.C...:.4000:. CH
ECK.K...:.J.T...:.C$.....:.D.1..4,C$....
..I......D.1. 4.......E.... ***********E
NDE SUB AUSDRUCK*****...D.. ************
*********...N.. **** SUB PRINTER ****...
X.. *********************.(....D.0.D.1:.
.7....D.1.D.0:..`.... *********** ENDE S
UB PRINTER *****..... *****************
*******...... **** SUB NEXT BLOCK ****..
.... ************************.I.B.SE.SE.
1...L..TR.18.SE.20.TR.TR.1:SE.0:....V..T
R.25.SE.18.TR.TR.1:SE.0:..)....TR.31.SE.
17.TR.TR.1:SE.0:..G....TR.36.SE.16.TR.TR
.1:SE.0.W....TR.36.TR.0.].......... ****
******* ENDE SUB NEXT BLOCK *****......
*************************.I.... **** SUB
PREV. BLOCK ****...... ****************
*********...J.SE.SE.1...T..SE.0..3600...
........TR.TR.1.!...SE.16.3.$..TR.0.TR.3
5:..F....TR.18.SE.20:..Y.8..TR.25.SE.18:
..J.B..TR.31.SE.17.P.L.....V.. *********
** ENDE SUB PREV. BLOCK *****... .. ****
***************.Q.... **** SUB CHECK ***
*...... *******************.....B.F(B$(I
.8.J).G(0)).3....((B.32).((B.127).(B.160
))).C$.C$." ":.4030.G...C$.C$.B$(I.8.J).
M.....T.H.. *********** ENDE SUB CHECK *
****...... *********************...... *
*** SUB AENDERN ****.H.... *************
********......"ADDR (00-FF/X=EXIT)";:.AD
R$......ADR$.""..5010......ADR$."X"..515
0......C(ADR$).2.ADR$."0".ADR$.L....C(AD
R$).2.ADR$.I(ADR$,2).X...X$.ADR$.M.... 6
500:. HEX-DEC.U...I.X...D.."WERT (00-FF)
";:.W$...I..W$.""..5060...N..C(W$).2.W$.
"0".W$.N.X..C(W$).2.W$.I(W$,2).X...X$.W$
...... 6500:. HEX-DEC.....B$(I).G(X)....
..5000...... *****.)....2000:. AUSDRUCKE
N.H.(.."AUF DISK SCHREIBEN";:.Y$.I.2..((
Y$.."J").(Y$.."Y"))..5300...7.B1.F(B$(0)
.G(0)).1...<..15,8,15...F..8,8,8,"#"...P
..I.1.255.G.U.:.B$(I).""..8,G(0);:.5220.
V.Z.:.8,B$(I);...D..I...I..15,"B-P:8",B1
...N..15,"B-W:8,0"TR,SE...X. 8: 15.-....
"WEITER AENDERN";:.Y$.L....((Y$."J").(Y$
."Y"))..5000.R.H...{.R.. *********** END
E SUB AENDERN *****...P.. **************
*******...Z.. **** SUB DEC-HEX ****.O...
. *********************.....X1.0:X2.0...
..X1..(X.16).....X2.((X.16)..(X.16)).16.
$.T..X1.10.X$.G(X1.48):.6120.4...X$.G(X1
.55).P....X2.10.X$.X$.G(X2.48):..C...X$.
X$.G(X2.55).I.......... *********** END
SUB DEC-HEX *****...D.. ****************
*****.I.N.. **** SUB HEX-DEC ****...X..
*********************.....X1$.H(X$,1)...
..X2$.I(X$,1).1.... F(X1$).64 . X.((F(X1
$).55).16):. 6570.H. .X.((F(X1$).48).16)
.L.... F(X2$).64 . X.X.(F(X2$).55):.....
.X.X.(F(X2$).48).........H.. ***********
END SUB HEX-DEC *****....'....YV...
> CLICK IMAGE PREVIEW FOR FULL MODAL