> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 64 00 97 35 33 32 37 32 2C 32 33 3A |....d..53272,23:|
00000010: 8D 36 32 30 3A 52 45 25 B2 30 00 42 08 6E 00 99 |.620:RE%.0.B.n..|
00000020: 22 93 05 C2 45 47 49 4E 4E 20 44 45 52 20 D3 55 |"...EGINN DER .U|
00000030: 43 48 45 20 D3 50 55 52 20 22 44 49 25 22 2C 31 |CHE .PUR "DI%",1|
00000040: 11 22 00 61 08 78 00 53 50 25 B2 31 3A 54 52 25 |.".a.x.SP%.1:TR%|
00000050: B2 44 49 25 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 |.DI%:.15,8,15,"I|
00000060: 30 00 77 08 82 00 9F 38 2C 38 2C 32 2C 22 23 32 |0.w....8,8,2,"#2|
00000070: 22 3A 46 49 25 B2 30 00 95 08 8C 00 98 31 35 2C |":FI%.0......15,|
00000080: 22 55 31 3A 22 32 3B 30 3B 54 52 25 3B 53 50 25 |"U1:"2;0;TR%;SP%|
00000090: 3A 8D 35 36 30 00 C3 08 96 00 81 49 B2 30 A4 31 |:.560......I.0.1|
000000A0: 3A A1 23 38 2C 41 24 3A 8D 35 33 30 3A 50 25 28 |:.#8,A$:.530:P%(|
000000B0: 49 29 B2 C6 28 41 24 29 3A 82 3A 41 B2 32 3A 8D |I)..(A$):.:A.2:.|
000000C0: 35 35 30 00 DD 08 A0 00 A1 23 38 2C 41 24 3A 8D |550......#8,A$:.|
000000D0: 35 33 30 3A 41 B2 C6 28 41 24 29 AF 37 00 08 09 |530:A..(A$).7...|
000000E0: AA 00 48 24 B2 22 22 3A 81 49 B2 30 A4 31 3A A1 |..H$."":.I.0.1:.|
000000F0: 23 38 2C 41 24 3A 8D 35 33 30 3A 4C 25 28 49 29 |#8,A$:.530:L%(I)|
00000100: B2 C6 28 41 24 29 3A 82 00 27 09 B4 00 81 49 B2 |..(A$):..'....I.|
00000110: 33 A4 31 38 3A A1 23 38 2C 41 24 3A 48 24 B2 48 |3.18:.#8,A$:H$.H|
00000120: 24 AA 41 24 3A 82 3A 00 36 09 BE 00 8B 48 24 B2 |$.A$:.:.6....H$.|
00000130: 22 22 A7 32 31 30 00 6D 09 C8 00 99 20 4B 49 24 |"".210.m.... KI$|
00000140: 28 41 29 3B 22 20 22 3B 43 4F 24 3B 48 24 3B A3 |(A);" ";CO$;H$;.|
00000150: 31 31 29 43 4F 24 3B 3B 4C 25 28 30 29 3B 4C 25 |11)CO$;;L%(0);L%|
00000160: 28 31 29 3A 8B 41 B2 30 A7 89 33 38 30 00 97 09 |(1):.A.0..380...|
00000170: D2 00 46 49 25 B2 46 49 25 AA 31 3A 8B 46 49 25 |..FI%.FI%.1:.FI%|
00000180: B3 38 A7 41 B2 46 49 25 AC 33 32 AA 32 3A 8D 35 |.8.A.FI%.32.2:.5|
00000190: 35 30 3A 89 31 36 30 00 A8 09 DC 00 8B 50 25 28 |50:.160......P%(|
000001A0: 30 29 B2 30 A7 32 34 30 00 ED 09 E6 00 99 22 11 |0).0.240......".|
000001B0: D7 45 43 48 53 45 4C 20 41 55 46 20 D3 50 55 52 |.ECHSEL AUF .PUR|
000001C0: 22 3B 3A 54 52 25 B2 50 25 28 30 29 3A 53 50 25 |";:TR%.P%(0):SP%|
000001D0: B2 50 25 28 31 29 3A 46 49 25 B2 30 3A 99 54 52 |.P%(1):FI%.0:.TR|
000001E0: 25 3B 53 50 25 22 11 22 3A 89 31 34 30 00 2A 0A |%;SP%".":.140.*.|
000001F0: F0 00 A0 38 3A 99 22 12 11 C4 49 52 45 43 54 4F |...8:."...IRECTO|
00000200: 52 59 20 C5 4E 44 45 92 22 2C 3A 8B 52 45 25 A7 |RY .NDE.",:.RE%.|
00000210: 99 22 C3 4F 4C 4C 45 43 54 20 C4 52 49 56 45 20 |.".OLLECT .RIVE |
00000220: 31 22 3A 98 31 35 2C 22 56 30 00 39 0A FA 00 8D |1":.15,"V0.9....|
00000230: 35 36 30 3A A0 31 35 3A 80 00 55 0A 04 01 8F 2A |560:.15:..U....*|
00000240: 2A 20 20 52 45 54 52 49 45 56 45 20 41 20 46 49 |* RETRIEVE A FI|
00000250: 4C 45 20 2A 2A 00 74 0A 0E 01 98 31 35 2C 22 55 |LE **.t....15,"U|
00000260: 31 3A 22 32 3B 30 3B 4C 25 28 30 29 3B 4C 25 28 |1:"2;0;L%(0);L%(|
00000270: 31 29 3A 8E 00 8F 0A 18 01 44 25 B2 32 3A 99 22 |1):......D%.2:."|
00000280: 11 D3 50 55 52 2C 20 D3 45 4B 54 4F 52 22 3B 00 |..PUR, .EKTOR";.|
00000290: B7 0A 22 01 8D 32 37 30 3A 81 49 B2 30 A4 31 3A |.."..270:.I.0.1:|
000002A0: A1 23 38 2C 41 24 3A 8D 35 33 30 3A 5A 25 28 49 |.#8,A$:.530:Z%(I|
000002B0: 29 B2 C6 28 41 24 29 00 DD 0A 2C 01 99 5A 25 28 |)..(A$)...,..Z%(|
000002C0: 49 29 22 9D 20 22 3B 3A 82 3A 99 3A 99 22 91 D3 |I)". ";:.:.:."..|
000002D0: 50 55 52 2C 20 D3 45 4B 54 4F 52 22 3B 00 EE 0A |PUR, .EKTOR";...|
000002E0: 36 01 8B 5A 25 28 30 29 B2 30 A7 99 3A 8E 00 2E |6..Z%(0).0..:...|
000002F0: 0B 40 01 98 31 35 2C 22 42 2D 46 22 30 3B 5A 25 |.@..15,"B-F"0;Z%|
00000300: 28 30 29 3B 5A 25 28 31 29 3A 4C 25 28 30 29 B2 |(0);Z%(1):L%(0).|
00000310: 5A 25 28 30 29 3A 4C 25 28 31 29 B2 5A 25 28 31 |Z%(0):L%(1).Z%(1|
00000320: 29 3A 5A 25 28 44 25 29 B2 5A 25 28 30 29 00 49 |):Z%(D%).Z%(0).I|
00000330: 0B 4A 01 5A 25 28 44 25 AA 31 29 B2 5A 25 28 31 |.J.Z%(D%.1).Z%(1|
00000340: 29 3A 44 25 B2 44 25 AA 32 00 57 0B 54 01 8B 44 |):D%.D%.2.W.T..D|
00000350: 53 B2 30 A7 32 39 30 00 9D 0B 5E 01 99 3A 99 22 |S.0.290...^..:."|
00000360: 12 C4 41 53 20 C6 49 4C 45 20 57 55 52 44 45 20 |..AS .ILE WURDE |
00000370: 42 45 52 45 49 54 53 20 55 45 42 45 52 53 43 48 |BEREITS UEBERSCH|
00000380: 52 49 45 42 45 4E 92 21 22 3A 58 25 B2 A8 28 58 |RIEBEN.!":X%..(X|
00000390: 25 29 3A 41 B2 46 49 25 AC 33 32 AA 32 00 C9 0B |%):A.FI%.32.2...|
000003A0: 68 01 81 49 B2 32 A4 44 25 AB 34 A9 32 3A 98 31 |h..I.2.D%.4.2:.1|
000003B0: 35 2C 22 42 2D 46 3A 22 30 3B 5A 25 28 49 29 3B |5,"B-F:"0;Z%(I);|
000003C0: 5A 25 28 49 AA 31 29 3A 82 00 EB 0B 72 01 4C 25 |Z%(I.1):....r.L%|
000003D0: 28 30 29 B2 54 52 25 3A 4C 25 28 31 29 B2 53 50 |(0).TR%:L%(1).SP|
000003E0: 25 3A 8D 32 37 30 3A 89 35 35 30 00 09 0C 7C 01 |%:.270:.550...|.|
000003F0: 99 22 DA 55 52 55 45 43 4B 48 4F 4C 45 4E 3F 20 |.".URUECKHOLEN? |
00000400: 28 CA 2F CE 29 A0 A0 A0 A0 00 20 0C 81 01 A1 20 |(./.)..... .... |
00000410: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 38 35 |A$:. A$."" . 385|
00000420: 00 32 0C 86 01 8B 20 41 24 B3 B1 22 4A 22 A7 32 |.2.... A$.."J".2|
00000430: 31 30 00 70 0C 90 01 58 25 B2 30 3A 99 22 11 C2 |10.p...X%.0:."..|
00000440: 4C 4F 43 4B 53 20 57 49 45 44 45 52 42 45 4C 45 |LOCKS WIEDERBELE|
00000450: 47 45 4E 2E 2E 2E 22 3A 5A 25 28 30 29 B2 4C 25 |GEN...":Z%(0).L%|
00000460: 28 30 29 3A 8D 32 38 30 3A 8B 58 25 A7 32 31 30 |(0):.280:.X%.210|
00000470: 00 A8 0C 9A 01 99 22 11 C9 53 54 20 44 49 45 53 |......"..ST DIES|
00000480: 20 45 49 4E 20 12 D0 92 52 4F 47 52 41 4D 4D 2C | EIN ...ROGRAMM,|
00000490: 12 D3 92 45 51 55 45 4E 49 45 4C 4C 45 53 2C 20 |...EQUENIELLES, |
000004A0: 12 D5 92 53 45 52 2C 22 00 C6 0C A4 01 99 22 4F |...SER,"......"O|
000004B0: 44 45 52 20 12 D2 92 45 4C 41 54 49 56 45 53 20 |DER ...ELATIVES |
000004C0: C6 49 4C 45 22 3B 00 F9 0C AE 01 A1 20 4A 41 24 |.ILE";...... JA$|
000004D0: 3A 8B 4A 41 24 B3 B1 22 50 22 AF 4A 41 24 B3 B1 |:.JA$.."P".JA$..|
000004E0: 22 53 22 AF 4A 41 24 B3 B1 22 55 22 AF 4A 41 24 |"S".JA$.."U".JA$|
000004F0: B3 B1 22 52 22 A7 34 33 30 00 01 0D B3 01 99 3A |.."R".430......:|
00000500: 99 00 2C 0D B8 01 99 3A 8B 4A 41 24 B2 22 50 22 |..,....:.JA$."P"|
00000510: A7 99 22 12 D0 52 4F 47 52 41 4D 4D 92 2D 22 3A |.."..ROGRAMM.-":|
00000520: 4B 49 25 B2 31 33 30 3A 89 34 38 30 00 51 0D C2 |KI%.130:.480.Q..|
00000530: 01 8B 4A 41 24 B2 22 55 22 A7 99 22 12 D5 53 45 |..JA$."U".."..SE|
00000540: 52 92 2D 22 3A 4B 49 25 B2 31 33 31 3A 89 34 38 |R.-":KI%.131:.48|
00000550: 30 00 7B 0D CC 01 8B 4A 41 24 B2 22 52 22 A7 99 |0.{....JA$."R"..|
00000560: 22 12 D2 45 4C 41 54 49 56 45 53 92 2D 22 3A 4B |"..ELATIVES.-":K|
00000570: 49 25 B2 31 33 32 3A 89 34 38 30 00 9B 0D D6 01 |I%.132:.480.....|
00000580: 99 22 12 D3 45 51 55 45 4E 54 49 45 4C 4C 45 53 |."..EQUENTIELLES|
00000590: 92 2D 22 3A 4B 49 25 B2 31 32 39 00 B6 0D E0 01 |.-":KI%.129.....|
000005A0: 99 22 C6 49 4C 45 20 57 49 45 44 45 52 48 4F 4C |.".ILE WIEDERHOL|
000005B0: 45 4E 2E 2E 2E 22 00 D3 0D EA 01 4C 25 28 30 29 |EN...".....L%(0)|
000005C0: B2 54 52 25 3A 4C 25 28 31 29 B2 53 50 25 3A 8D |.TR%:L%(1).SP%:.|
000005D0: 32 37 30 00 F2 0D F4 01 41 B2 46 49 25 AC 33 32 |270.....A.FI%.32|
000005E0: AA 32 3A 8D 35 35 30 3A 98 38 2C C7 28 4B 49 25 |.2:.550:.8,.(KI%|
000005F0: 29 3B 00 1A 0E FE 01 42 4C 25 B2 28 28 44 25 AB |);.....BL%.((D%.|
00000600: 32 29 AD 32 29 AA 31 3A 99 22 11 22 42 4C 25 22 |2).2).1:."."BL%"|
00000610: C2 4C 4F 45 43 4B 45 20 22 3B 00 56 0E 08 02 98 |.LOECKE ";.V....|
00000620: 31 35 2C 22 55 32 3A 22 32 3B 30 3B 54 52 25 3B |15,"U2:"2;0;TR%;|
00000630: 53 50 25 3A 99 22 D7 49 45 44 45 52 48 45 52 47 |SP%:.".IEDERHERG|
00000640: 45 53 54 45 4C 4C 54 20 21 11 22 3A 52 45 25 B2 |ESTELLT !.":RE%.|
00000650: 31 3A 89 32 31 30 00 69 0E 12 02 8B 41 24 B2 22 |1:.210.i....A$."|
00000660: 22 A7 41 24 B2 C7 28 30 29 00 6F 0E 1C 02 8E 00 |".A$..(0).o.....|
00000670: 81 0E 26 02 98 31 35 2C 22 42 2D 50 3A 22 32 3B |..&..15,"B-P:"2;|
00000680: 41 00 A2 0E 30 02 84 31 35 2C 45 4E 25 2C 45 4D |A...0..15,EN%,EM|
00000690: 24 2C 45 54 25 2C 45 53 25 3A 8B 45 4E 25 B2 30 |$,ET%,ES%:.EN%.0|
000006A0: A7 8E 00 B8 0E 3A 02 99 22 11 11 12 44 49 53 4B |.....:.."...DISK|
000006B0: 20 46 45 48 4C 45 52 92 00 E7 0E 44 02 99 22 11 | FEHLER....D..".|
000006C0: C6 45 48 4C 45 52 20 CD 45 4C 44 55 4E 47 92 3A |.EHLER .ELDUNG.:|
000006D0: 20 22 45 4E 25 22 20 22 45 4D 24 22 2C 22 45 54 | "EN%" "EM$","ET|
000006E0: 25 22 2C 22 45 53 25 00 01 0F 4E 02 99 22 42 49 |%","ES%...N.."BI|
000006F0: 54 54 45 20 27 C3 CF CE D4 27 20 47 45 42 45 4E |TTE '....' GEBEN|
00000700: 2E 00 07 0F 58 02 80 00 0D 0F 62 02 8E 00 37 0F |....X.....b...7.|
00000710: 6C 02 86 50 25 28 31 29 2C 4C 25 28 31 29 2C 5A |l..P%(1),L%(1),Z|
00000720: 25 28 33 30 30 29 2C 4B 49 24 28 34 29 3A 43 4F |%(300),KI$(4):CO|
00000730: 24 B2 C7 28 33 34 29 00 4C 0F 76 02 81 49 B2 30 |$..(34).L.v..I.0|
00000740: A4 34 3A 87 4B 49 24 28 49 29 3A 82 00 71 0F 80 |.4:.KI$(I):..q..|
00000750: 02 83 22 12 C4 C5 CC 92 22 2C 22 D3 C5 D1 22 2C |..".....","...",|
00000760: 22 D0 D2 C7 22 2C 22 D5 D3 D2 22 2C 22 D2 C5 CC |"...","...","...|
00000770: 22 00 A8 0F 8A 02 50 47 24 B2 22 05 93 12 20 20 |".....PG$."... |
00000780: 20 20 20 20 C4 49 53 4B 20 C6 49 4C 45 20 D2 45 | .ISK .ILE .E|
00000790: 54 54 45 52 20 D6 C3 31 35 34 30 2F 31 35 34 31 |TTER ..1540/1541|
000007A0: 20 20 20 20 20 20 92 22 00 DF 0F 94 02 99 50 47 | ."......PG|
000007B0: 24 22 11 22 3A 99 22 C4 49 45 53 45 53 20 D0 52 |$".":.".IESES .R|
000007C0: 4F 47 52 41 4D 4D 20 45 52 4D 4F 45 47 4C 49 43 |OGRAMM ERMOEGLIC|
000007D0: 48 54 20 44 41 53 20 D7 49 45 44 45 52 2D 22 00 |HT DAS .IEDER-".|
000007E0: 07 10 9E 02 99 22 48 45 52 53 54 45 4C 4C 45 4E |....."HERSTELLEN|
000007F0: 20 56 4F 4E 20 47 45 4C 4F 45 53 43 48 54 45 4E | VON GELOESCHTEN|
00000800: 20 C6 49 4C 45 53 2E 00 38 10 A8 02 99 22 C5 53 | .ILES..8....".S|
00000810: 20 57 49 52 44 20 56 4F 52 41 55 53 47 45 53 45 | WIRD VORAUSGESE|
00000820: 54 5A 54 2C 44 41 53 53 20 44 49 45 20 C4 49 53 |TZT,DASS DIE .IS|
00000830: 4B 20 4E 4F 43 48 22 3B 00 5E 10 B2 02 99 22 4E |K NOCH";.^...."N|
00000840: 49 43 48 54 20 57 49 45 44 45 52 20 42 45 53 43 |ICHT WIEDER BESC|
00000850: 48 52 49 45 42 45 4E 20 57 55 52 44 45 2E 00 8D |HRIEBEN WURDE...|
00000860: 10 BC 02 99 22 11 31 30 30 25 20 C5 52 46 4F 4C |....".100% .RFOL|
00000870: 47 20 49 53 54 20 4E 55 52 20 4E 41 43 48 20 27 |G IST NUR NACH '|
00000880: D3 C3 D2 C1 D4 C3 C8 27 20 47 45 2D 22 00 A1 10 |.......' GE-"...|
00000890: C6 02 99 22 57 41 45 48 52 4C 45 49 53 54 45 54 |..."WAEHRLEISTET|
000008A0: 2E 00 E3 10 D0 02 99 22 11 C2 45 49 4D 20 D3 55 |......."..EIM .U|
000008B0: 43 48 45 4E 20 57 45 52 44 45 4E 20 4E 55 52 20 |CHEN WERDEN NUR |
000008C0: 44 49 45 20 47 45 4C 4F 45 53 43 48 54 45 4E 20 |DIE GELOESCHTEN |
000008D0: 20 C4 41 54 45 49 45 4E 20 41 42 47 45 46 52 41 | .ATEIEN ABGEFRA|
000008E0: 47 54 22 00 01 11 E4 02 99 22 11 11 11 20 20 20 |GT"......"... |
000008F0: D4 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 |.ASTE DRUECKEN !|
00000900: 22 00 1A 11 E9 02 A1 20 54 44 24 3A 8B 20 54 44 |"...... TD$:. TD|
00000910: 24 B2 22 22 20 A7 20 37 34 35 00 27 11 EE 02 44 |$."" . 745.'...D|
00000920: 49 25 B2 31 38 3A 8E 00 38 11 F8 02 99 22 91 91 |I%.18:..8...."..|
00000930: 91 91 22 3A 89 37 34 30 00 00 00 |..":.740... |
....D..53272,23:.620:RE%.0.B.N.."..BEGIN
N DER SUCHE SPUR "DI%",1.".A.X.SP%.1:TR%
.DI%:.15,8,15,"I0.W....8,8,2,"#2":FI%.0.
.....15,"U1:"2;0;TR%;SP%:.560.C....I.0.1
:.#8,A$:.530:P%(I).F(A$):.:A.2:.550... .
.#8,A$:.530:A.F(A$).7.....H$."":.I.0.1:.
#8,A$:.530:L%(I).F(A$):..'....I.3.18:.#8
,A$:H$.H$.A$:.:.6....H$."".210.M.H.. KI$
(A);" ";CO$;H$;.11)CO$;;L%(0);L%(1):.A.0
..380...R.FI%.FI%.1:.FI%.8.A.FI%.32.2:.5
50:.160......P%(0).0.240......".WECHSEL
AUF SPUR";:TR%.P%(0):SP%.P%(1):FI%.0:.TR
%;SP%".":.140.*... 8:."..DIRECTORY ENDE.
",:.RE%.."COLLECT DRIVE 1":.15,"V0.9....
560: 15:..U....** RETRIEVE A FILE **.T.
...15,"U1:"2;0;L%(0);L%(1):......D%.2:."
.SPUR, SEKTOR";..."..270:.I.0.1:.#8,A$:.
530:Z%(I).F(A$)...,..Z%(I)". ";:.:.:.".S
PUR, SEKTOR";...6..Z%(0).0..:....@..15,"
B-F"0;Z%(0);Z%(1):L%(0).Z%(0):L%(1).Z%(1
):Z%(D%).Z%(0).I.J.Z%(D%.1).Z%(1):D%.D%.
2.W.T..DS.0.290...^..:.".DAS FILE WURDE
BEREITS UEBERSCHRIEBEN.!":X%..(X%):A.FI%
.32.2.I.H..I.2.D%.4.2:.15,"B-F:"0;Z%(I);
Z%(I.1):....R.L%(0).TR%:L%(1).SP%:.270:.
550...|.."ZURUECKHOLEN? (J/N) . ....
A$:. A$."" . 385.2.... A$.."J".210.P...X
%.0:.".BLOCKS WIEDERBELEGEN...":Z%(0).L%
(0):.280:.X%.210......".IST DIES EIN .P.
ROGRAMM,.S.EQUENIELLES, .U.SER,".F...."O
DER .R.ELATIVES FILE";...... JA$:.JA$.."
P".JA$.."S".JA$.."U".JA$.."R".430......:
..,....:.JA$."P"..".PROGRAMM.-":KI%.130:
.480.Q.B..JA$."U"..".USER.-":KI%.131:.48
0.{.L..JA$."R"..".RELATIVES.-":KI%.132:.
480...V..".SEQUENTIELLES.-":KI%.129.....
."FILE WIEDERHOLEN...".S...L%(0).TR%:L%(
1).SP%:.270.....A.FI%.32.2:.550:.8,G(KI%
);.....BL%.((D%.2).2).1:."."BL%"BLOECKE
";.V....15,"U2:"2;0;TR%;SP%:."WIEDERHERG
ESTELLT !.":RE%.1:.210.I....A$."".A$.G(0
).O.......&..15,"B-P:"2;A...0..15,EN%,EM
$,ET%,ES%:.EN%.0.....:.."...DISK FEHLER.
...D..".FEHLER MELDUNG.: "EN%" "EM$","ET
%","ES%...N.."BITTE 'CONT' GEBEN....X...
..B...7.L..P%(1),L%(1),Z%(300),KI$(4):CO
$.G(34).L.V..I.0.4:.KI$(I):..Q....".DEL.
","SEQ","PRG","USR","REL".....PG$."...
DISK FILE RETTER VC1540/1541 ."
......PG$".":."DIESES PROGRAMM ERMOEGLIC
HT DAS WIEDER-"......"HERSTELLEN VON GEL
OESCHTEN FILES..8...."ES WIRD VORAUSGESE
TZT,DASS DIE DISK NOCH";.^...."NICHT WIE
DER BESCHRIEBEN WURDE.......".100% ERFOL
G IST NUR NACH 'SCRATCH' GE-"...F.."WAEH
RLEISTET....P..".BEIM SUCHEN WERDEN NUR
DIE GELOESCHTEN DATEIEN ABGEFRAGT".....
."... TASTE DRUECKEN !"...... TD$:. TD
$."" . 745.'...DI%.18:..8...."....":.740
...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL