DISK-RETTER
FILE INFORMATION
FILENAME(S): DISK-RETTER
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-20 14:37:20
APPEARS ON: 1 disk(s)
FILE HASH
e10c97e2f661da23d5cec5babac96a63551ccd5e720c144a4ad5de8e47aa3d97
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC44 | DISK-RETTER | PRG | Treasure Chest - LehrerMIL | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 44 49 53 4B 2D 52 45 54 |..#.... DISK-RET| 00000010: 54 45 52 3D 3D 3D 3D 43 31 36 2F 43 36 34 2F 43 |TER====C16/C64/C| 00000020: 31 32 38 00 3C 08 14 00 8F 20 28 50 29 20 43 4F |128.<.... (P) CO| 00000030: 4D 4D 4F 44 4F 52 45 20 44 49 53 43 00 5E 08 1E |MMODORE DISC.^..| 00000040: 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============| 00000050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 78 |==============.x| 00000060: 08 28 00 8F 20 28 43 29 20 42 59 20 57 45 52 4E |.(.. (C) BY WERN| 00000070: 45 52 20 46 55 43 48 53 00 7E 08 32 00 8F 00 97 |ER FUCHS.~.2....| 00000080: 08 3C 00 8F 20 42 41 53 49 43 20 56 32 2E 30 2F |.<.. BASIC V2.0/| 00000090: 33 2E 35 2F 37 2E 30 00 B8 08 46 00 8F 20 46 4C |3.5/7.0...F.. FL| 000000A0: 4F 50 50 59 20 31 35 34 31 2F 31 35 35 31 2F 31 |OPPY 1541/1551/1| 000000B0: 35 37 30 2F 31 35 37 31 00 D5 08 50 00 8F 20 43 |570/1571...P.. C| 000000C0: 31 36 2F 31 31 36 2F 50 4C 55 53 34 2F 43 36 34 |16/116/PLUS4/C64| 000000D0: 2F 43 31 32 38 00 F7 08 5A 00 8F 20 3D 3D 3D 3D |/C128...Z.. ====| 000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000F0: 3D 3D 3D 3D 3D 3D 3D 00 01 09 64 00 8D 20 38 30 |=======...d.. 80| 00000100: 30 00 0C 09 6E 00 99 C7 28 31 34 29 00 1B 09 78 |0...n...(14)...x| 00000110: 00 8D 36 36 30 3A 52 45 25 B2 30 00 4A 09 82 00 |..660:RE%.0.J...| 00000120: 99 43 4C 24 42 4B 24 22 20 C2 45 47 49 4E 4E 20 |.CL$BK$" .EGINN | 00000130: 44 45 52 20 D3 55 43 48 45 20 D3 50 55 52 20 22 |DER .UCHE .PUR "| 00000140: 44 49 25 22 2C 31 22 43 34 24 00 69 09 8C 00 53 |DI%",1"C4$.i...S| 00000150: 50 25 B2 31 3A 54 52 25 B2 44 49 25 3A 9F 31 35 |P%.1:TR%.DI%:.15| 00000160: 2C 38 2C 31 35 2C 22 49 30 00 7F 09 96 00 9F 38 |,8,15,"I0......8| 00000170: 2C 38 2C 32 2C 22 23 32 22 3A 46 49 25 B2 30 00 |,8,2,"#2":FI%.0.| 00000180: 9D 09 A0 00 98 31 35 2C 22 55 31 3A 22 32 3B 30 |.....15,"U1:"2;0| 00000190: 3B 54 52 25 3B 53 50 25 3A 8D 36 30 30 00 CB 09 |;TR%;SP%:.600...| 000001A0: AA 00 81 49 B2 30 A4 31 3A A1 23 38 2C 41 24 3A |...I.0.1:.#8,A$:| 000001B0: 8D 35 37 30 3A 50 25 28 49 29 B2 C6 28 41 24 29 |.570:P%(I)..(A$)| 000001C0: 3A 82 3A 41 B2 32 3A 8D 35 39 30 00 E5 09 B4 00 |:.:A.2:.590.....| 000001D0: A1 23 38 2C 41 24 3A 8D 35 37 30 3A 41 B2 C6 28 |.#8,A$:.570:A..(| 000001E0: 41 24 29 AF 37 00 10 0A BE 00 48 24 B2 22 22 3A |A$).7.....H$."":| 000001F0: 81 49 B2 30 A4 31 3A A1 23 38 2C 41 24 3A 8D 35 |.I.0.1:.#8,A$:.5| 00000200: 37 30 3A 4C 25 28 49 29 B2 C6 28 41 24 29 3A 82 |70:L%(I)..(A$):.| 00000210: 00 2E 0A C8 00 81 49 B2 33 A4 31 38 3A A1 23 38 |......I.3.18:.#8| 00000220: 2C 41 24 3A 48 24 B2 48 24 AA 41 24 3A 82 00 3D |,A$:H$.H$.A$:..=| 00000230: 0A D2 00 8B 48 24 B2 22 22 A7 32 33 30 00 74 0A |....H$."".230.t.| 00000240: DC 00 99 20 4B 49 24 28 41 29 3B 22 20 22 3B 43 |... KI$(A);" ";C| 00000250: 4F 24 3B 48 24 3B A3 31 31 29 43 4F 24 3B 3B 4C |O$;H$;.11)CO$;;L| 00000260: 25 28 30 29 3B 4C 25 28 31 29 3A 8B 41 B2 30 A7 |%(0);L%(1):.A.0.| 00000270: 89 34 30 30 00 9E 0A E6 00 46 49 25 B2 46 49 25 |.400.....FI%.FI%| 00000280: AA 31 3A 8B 46 49 25 B3 38 A7 41 B2 46 49 25 AC |.1:.FI%.8.A.FI%.| 00000290: 33 32 AA 32 3A 8D 35 39 30 3A 89 31 38 30 00 AF |32.2:.590:.180..| 000002A0: 0A F0 00 8B 50 25 28 30 29 B2 30 A7 32 36 30 00 |....P%(0).0.260.| 000002B0: F6 0A FA 00 99 43 34 24 22 D7 45 43 48 53 45 4C |.....C4$".ECHSEL| 000002C0: 20 41 55 46 20 D3 50 55 52 22 3B 3A 54 52 25 B2 | AUF .PUR";:TR%.| 000002D0: 50 25 28 30 29 3A 53 50 25 B2 50 25 28 31 29 3A |P%(0):SP%.P%(1):| 000002E0: 46 49 25 B2 30 3A 99 54 52 25 3B 53 50 25 43 34 |FI%.0:.TR%;SP%C4| 000002F0: 24 3A 89 31 36 30 00 39 0B 04 01 A0 38 3A 99 52 |$:.160.9....8:.R| 00000300: 4E 24 43 34 24 22 C4 49 52 45 43 54 4F 52 59 20 |N$C4$".IRECTORY | 00000310: C5 4E 44 45 22 52 46 24 2C 3A 8B 52 45 25 A7 99 |.NDE"RF$,:.RE%..| 00000320: 22 C3 4F 4C 4C 45 43 54 20 C4 52 49 56 45 20 31 |".OLLECT .RIVE 1| 00000330: 22 3A 98 31 35 2C 22 56 30 00 48 0B 0E 01 8D 36 |":.15,"V0.H....6| 00000340: 30 30 3A A0 31 35 3A 80 00 64 0B 18 01 8F 2A 2A |00:.15:..d....**| 00000350: 20 20 52 45 54 52 49 45 56 45 20 41 20 46 49 4C | RETRIEVE A FIL| 00000360: 45 20 2A 2A 00 83 0B 22 01 98 31 35 2C 22 55 31 |E **..."..15,"U1| 00000370: 3A 22 32 3B 30 3B 4C 25 28 30 29 3B 4C 25 28 31 |:"2;0;L%(0);L%(1| 00000380: 29 3A 8E 00 A0 0B 2C 01 44 25 B2 32 3A 99 43 34 |):....,.D%.2:.C4| 00000390: 24 22 D3 50 55 52 2C 20 D3 45 4B 54 4F 52 22 3B |$".PUR, .EKTOR";| 000003A0: 00 C8 0B 36 01 8D 32 39 30 3A 81 49 B2 30 A4 31 |...6..290:.I.0.1| 000003B0: 3A A1 23 38 2C 41 24 3A 8D 35 37 30 3A 5A 25 28 |:.#8,A$:.570:Z%(| 000003C0: 49 29 B2 C6 28 41 24 29 00 F2 0B 40 01 99 5A 25 |I)..(A$)...@..Z%| 000003D0: 28 49 29 43 31 24 22 20 22 3B 3A 82 3A 99 3A 99 |(I)C1$" ";:.:.:.| 000003E0: 43 32 24 22 D3 50 55 52 2C 20 D3 45 4B 54 4F 52 |C2$".PUR, .EKTOR| 000003F0: 22 3B 00 03 0C 4A 01 8B 5A 25 28 30 29 B2 30 A7 |";...J..Z%(0).0.| 00000400: 99 3A 8E 00 43 0C 54 01 98 31 35 2C 22 42 2D 46 |.:..C.T..15,"B-F| 00000410: 22 30 3B 5A 25 28 30 29 3B 5A 25 28 31 29 3A 4C |"0;Z%(0);Z%(1):L| 00000420: 25 28 30 29 B2 5A 25 28 30 29 3A 4C 25 28 31 29 |%(0).Z%(0):L%(1)| 00000430: B2 5A 25 28 31 29 3A 5A 25 28 44 25 29 B2 5A 25 |.Z%(1):Z%(D%).Z%| 00000440: 28 30 29 00 5E 0C 5E 01 5A 25 28 44 25 AA 31 29 |(0).^.^.Z%(D%.1)| 00000450: B2 5A 25 28 31 29 3A 44 25 B2 44 25 AA 32 00 6C |.Z%(1):D%.D%.2.l| 00000460: 0C 68 01 8B 44 53 B2 30 A7 33 31 30 00 B8 0C 72 |.h..DS.0.310...r| 00000470: 01 99 3A 99 52 4E 24 22 C4 41 53 20 C6 49 4C 45 |..:.RN$".AS .ILE| 00000480: 20 57 55 52 44 45 20 42 45 52 45 49 54 53 20 55 | WURDE BEREITS U| 00000490: 45 42 45 52 53 43 48 52 49 45 42 45 4E 22 52 46 |EBERSCHRIEBEN"RF| 000004A0: 24 22 21 22 3A 58 25 B2 A8 28 58 25 29 3A 41 B2 |$"!":X%..(X%):A.| 000004B0: 46 49 25 AC 33 32 AA 32 00 E4 0C 7C 01 81 49 B2 |FI%.32.2...|..I.| 000004C0: 32 A4 44 25 AB 34 A9 32 3A 98 31 35 2C 22 42 2D |2.D%.4.2:.15,"B-| 000004D0: 46 3A 22 30 3B 5A 25 28 49 29 3B 5A 25 28 49 AA |F:"0;Z%(I);Z%(I.| 000004E0: 31 29 3A 82 00 06 0D 86 01 4C 25 28 30 29 B2 54 |1):......L%(0).T| 000004F0: 52 25 3A 4C 25 28 31 29 B2 53 50 25 3A 8D 32 39 |R%:L%(1).SP%:.29| 00000500: 30 3A 89 35 39 30 00 29 0D 90 01 99 22 DA 55 52 |0:.590.)....".UR| 00000510: 55 45 43 4B 48 4F 4C 45 4E 3F 20 28 CA 2F CE 29 |UECKHOLEN? (./.)| 00000520: 22 C8 28 51 32 24 2C 34 29 00 40 0D 9A 01 A1 20 |".(Q2$,4).@.... | 00000530: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 34 31 30 |A$:. A$."" . 410| 00000540: 00 52 0D A4 01 8B 20 41 24 B3 B1 22 4A 22 A7 32 |.R.... A$.."J".2| 00000550: 33 30 00 92 0D AE 01 58 25 B2 30 3A 99 43 34 24 |30.....X%.0:.C4$| 00000560: 22 C2 4C 4F 43 4B 53 20 57 49 45 44 45 52 42 45 |".LOCKS WIEDERBE| 00000570: 4C 45 47 45 4E 2E 2E 2E 22 3A 5A 25 28 30 29 B2 |LEGEN...":Z%(0).| 00000580: 4C 25 28 30 29 3A 8D 33 30 30 3A 8B 58 25 A7 32 |L%(0):.300:.X%.2| 00000590: 33 30 00 E5 0D B8 01 99 43 34 24 22 C9 53 54 20 |30......C4$".ST | 000005A0: 44 49 45 53 20 45 49 4E 20 22 52 4E 24 22 D0 22 |DIES EIN "RN$"."| 000005B0: 52 46 24 22 52 4F 47 52 41 4D 4D 2C 22 52 4E 24 |RF$"ROGRAMM,"RN$| 000005C0: 22 D3 22 52 46 24 22 45 51 55 45 4E 49 45 4C 4C |"."RF$"EQUENIELL| 000005D0: 45 53 2C 20 22 52 4E 24 22 D5 22 52 46 24 22 53 |ES, "RN$"."RF$"S| 000005E0: 45 52 2C 22 3B 00 0B 0E C2 01 99 22 4F 44 45 52 |ER,";......"ODER| 000005F0: 20 22 52 4E 24 22 D2 22 52 46 24 22 45 4C 41 54 | "RN$"."RF$"ELAT| 00000600: 49 56 45 53 20 C6 49 4C 45 22 3B 00 3E 0E CC 01 |IVES .ILE";.>...| 00000610: A1 20 4A 41 24 3A 8B 4A 41 24 B3 B1 22 50 22 AF |. JA$:.JA$.."P".| 00000620: 4A 41 24 B3 B1 22 53 22 AF 4A 41 24 B3 B1 22 55 |JA$.."S".JA$.."U| 00000630: 22 AF 4A 41 24 B3 B1 22 52 22 A7 34 36 30 00 46 |".JA$.."R".460.F| 00000640: 0E D6 01 99 3A 99 00 7A 0E E0 01 99 3A 8B 4A 41 |....:..z....:.JA| 00000650: 24 B2 22 50 22 A7 99 52 4E 24 AA 22 D0 52 4F 47 |$."P"..RN$.".ROG| 00000660: 52 41 4D 4D 22 AA 52 46 24 AA 22 2D 22 3A 4B 49 |RAMM".RF$."-":KI| 00000670: 25 B2 31 33 30 3A 89 35 32 30 00 A8 0E EA 01 8B |%.130:.520......| 00000680: 4A 41 24 B2 22 55 22 A7 99 52 4E 24 AA 22 D5 53 |JA$."U"..RN$.".S| 00000690: 45 52 22 AA 52 46 24 AA 22 2D 22 3A 4B 49 25 B2 |ER".RF$."-":KI%.| 000006A0: 31 33 31 3A 89 35 32 30 00 DB 0E F4 01 8B 4A 41 |131:.520......JA| 000006B0: 24 B2 22 52 22 A7 99 52 4E 24 AA 22 D2 45 4C 41 |$."R"..RN$.".ELA| 000006C0: 54 49 56 45 53 22 AA 52 46 24 AA 22 2D 22 3A 4B |TIVES".RF$."-":K| 000006D0: 49 25 B2 31 33 32 3A 89 35 32 30 00 01 0F FE 01 |I%.132:.520.....| 000006E0: 99 52 4E 24 22 D3 45 51 55 45 4E 54 49 45 4C 4C |.RN$".EQUENTIELL| 000006F0: 45 53 22 52 46 24 22 2D 22 3A 4B 49 25 B2 31 32 |ES"RF$"-":KI%.12| 00000700: 39 00 1C 0F 08 02 99 22 C6 49 4C 45 20 57 49 45 |9......".ILE WIE| 00000710: 44 45 52 48 4F 4C 45 4E 2E 2E 2E 22 00 39 0F 12 |DERHOLEN...".9..| 00000720: 02 4C 25 28 30 29 B2 54 52 25 3A 4C 25 28 31 29 |.L%(0).TR%:L%(1)| 00000730: B2 53 50 25 3A 8D 32 39 30 00 58 0F 1C 02 41 B2 |.SP%:.290.X...A.| 00000740: 46 49 25 AC 33 32 AA 32 3A 8D 35 39 30 3A 98 38 |FI%.32.2:.590:.8| 00000750: 2C C7 28 4B 49 25 29 3B 00 80 0F 26 02 42 4C 25 |,.(KI%);...&.BL%| 00000760: B2 28 28 44 25 AB 32 29 AD 32 29 AA 31 3A 99 43 |.((D%.2).2).1:.C| 00000770: 34 24 42 4C 25 22 C2 4C 4F 45 43 4B 45 20 22 3B |4$BL%".LOECKE ";| 00000780: 00 BE 0F 30 02 98 31 35 2C 22 55 32 3A 22 32 3B |...0..15,"U2:"2;| 00000790: 30 3B 54 52 25 3B 53 50 25 3A 99 22 D7 49 45 44 |0;TR%;SP%:.".IED| 000007A0: 45 52 48 45 52 47 45 53 54 45 4C 4C 54 20 21 22 |ERHERGESTELLT !"| 000007B0: 43 34 24 3A 52 45 25 B2 31 3A 89 32 33 30 00 D1 |C4$:RE%.1:.230..| 000007C0: 0F 3A 02 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 |.:..A$."".A$..(0| 000007D0: 29 00 D7 0F 44 02 8E 00 E9 0F 4E 02 98 31 35 2C |)...D.....N..15,| 000007E0: 22 42 2D 50 3A 22 32 3B 41 00 0A 10 58 02 84 31 |"B-P:"2;A...X..1| 000007F0: 35 2C 45 4E 25 2C 45 4D 24 2C 45 54 25 2C 45 53 |5,EN%,EM$,ET%,ES| 00000800: 25 3A 8B 45 4E 25 B2 30 A7 8E 00 29 10 62 02 99 |%:.EN%.0...).b..| 00000810: 43 34 24 43 34 24 52 4E 24 22 44 49 53 4B 20 46 |C4$C4$RN$"DISK F| 00000820: 45 48 4C 45 52 22 52 46 24 00 5E 10 6C 02 99 43 |EHLER"RF$.^.l..C| 00000830: 34 24 22 C6 45 48 4C 45 52 20 CD 45 4C 44 55 4E |4$".EHLER .ELDUN| 00000840: 47 22 52 46 24 22 3A 20 22 45 4E 25 22 20 22 45 |G"RF$": "EN%" "E| 00000850: 4D 24 22 2C 22 45 54 25 22 2C 22 45 53 25 00 78 |M$","ET%","ES%.x| 00000860: 10 76 02 99 22 42 49 54 54 45 20 27 C3 CF CE D4 |.v.."BITTE '....| 00000870: 27 20 47 45 42 45 4E 2E 00 7E 10 80 02 80 00 84 |' GEBEN..~......| 00000880: 10 8A 02 8E 00 AE 10 94 02 86 50 25 28 31 29 2C |..........P%(1),| 00000890: 4C 25 28 31 29 2C 5A 25 28 33 30 30 29 2C 4B 49 |L%(1),Z%(300),KI| 000008A0: 24 28 34 29 3A 43 4F 24 B2 C7 28 33 34 29 00 FB |$(4):CO$..(34)..| 000008B0: 10 9E 02 4B 49 24 28 30 29 B2 52 4E 24 AA 22 C4 |...KI$(0).RN$.".| 000008C0: C5 CC 22 AA 52 46 24 3A 4B 49 24 28 31 29 B2 22 |..".RF$:KI$(1)."| 000008D0: D3 C5 D1 22 3A 4B 49 24 28 32 29 B2 22 D0 D2 C7 |...":KI$(2)."...| 000008E0: 22 3A 4B 49 24 28 33 29 B2 22 D5 D3 D2 22 3A 4B |":KI$(3)."...":K| 000008F0: 49 24 28 34 29 B2 22 D2 C5 CC 22 00 3E 11 A8 02 |I$(4)."...".>...| 00000900: 50 47 24 B2 42 4B 24 AA 43 4C 24 AA 52 4E 24 AA |PG$.BK$.CL$.RN$.| 00000910: 22 20 C4 49 53 4B 20 C6 49 4C 45 20 D2 45 54 54 |" .ISK .ILE .ETT| 00000920: 45 52 20 D6 C3 31 35 35 31 2F 31 35 34 31 2F 31 |ER ..1551/1541/1| 00000930: 35 37 30 2F 31 35 37 31 20 22 AA 52 46 24 00 75 |570/1571 ".RF$.u| 00000940: 11 B2 02 99 50 47 24 43 34 24 3A 99 22 C4 49 45 |....PG$C4$:.".IE| 00000950: 53 45 53 20 D0 52 4F 47 52 41 4D 4D 20 45 52 4D |SES .ROGRAMM ERM| 00000960: 4F 45 47 4C 49 43 48 54 20 44 41 53 20 D7 49 45 |OEGLICHT DAS .IE| 00000970: 44 45 52 2D 22 00 9D 11 BC 02 99 22 48 45 52 53 |DER-"......"HERS| 00000980: 54 45 4C 4C 45 4E 20 56 4F 4E 20 47 45 4C 4F 45 |TELLEN VON GELOE| 00000990: 53 43 48 54 45 4E 20 C6 49 4C 45 53 2E 00 CE 11 |SCHTEN .ILES....| 000009A0: C6 02 99 22 C5 53 20 57 49 52 44 20 56 4F 52 41 |...".S WIRD VORA| 000009B0: 55 53 47 45 53 45 54 5A 54 2C 44 41 53 53 20 44 |USGESETZT,DASS D| 000009C0: 49 45 20 C4 49 53 4B 20 4E 4F 43 48 22 3B 00 F4 |IE .ISK NOCH";..| 000009D0: 11 D0 02 99 22 4E 49 43 48 54 20 57 49 45 44 45 |...."NICHT WIEDE| 000009E0: 52 20 42 45 53 43 48 52 49 45 42 45 4E 20 57 55 |R BESCHRIEBEN WU| 000009F0: 52 44 45 2E 00 25 12 DA 02 99 43 34 24 22 31 30 |RDE..%....C4$"10| 00000A00: 30 25 20 C5 52 46 4F 4C 47 20 49 53 54 20 4E 55 |0% .RFOLG IST NU| 00000A10: 52 20 4E 41 43 48 20 27 D3 C3 D2 C1 D4 C3 C8 27 |R NACH '.......'| 00000A20: 20 47 45 2D 22 00 39 12 E4 02 99 22 57 41 45 48 | GE-".9...."WAEH| 00000A30: 52 4C 45 49 53 54 45 54 2E 00 7D 12 EE 02 99 43 |RLEISTET..}....C| 00000A40: 34 24 22 C2 45 49 4D 20 D3 55 43 48 45 4E 20 57 |4$".EIM .UCHEN W| 00000A50: 45 52 44 45 4E 20 4E 55 52 20 44 49 45 20 47 45 |ERDEN NUR DIE GE| 00000A60: 4C 4F 45 53 43 48 54 45 4E 20 20 C4 41 54 45 49 |LOESCHTEN .ATEI| 00000A70: 45 4E 20 41 42 47 45 46 52 41 47 54 22 00 A1 12 |EN ABGEFRAGT"...| 00000A80: F8 02 99 43 34 24 43 34 24 43 34 24 22 20 20 20 |...C4$C4$C4$" | 00000A90: D4 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 |.ASTE DRUECKEN !| 00000AA0: 22 00 BA 12 02 03 A1 20 54 44 24 3A 8B 20 54 44 |"...... TD$:. TD| 00000AB0: 24 B2 22 22 20 A7 20 37 37 30 00 C7 12 0C 03 44 |$."" . 770.....D| 00000AC0: 49 25 B2 31 38 3A 8E 00 DA 12 16 03 99 C8 28 51 |I%.18:........(Q| 00000AD0: 55 24 2C 34 29 3A 89 37 36 30 00 FA 12 20 03 8F |U$,4):.760... ..| 00000AE0: 20 4E 41 43 48 53 50 41 4E 4E 20 3D 3D 3D 3D 3D | NACHSPANN =====| 00000AF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 1A 13 2A 03 8F |==========...*..| 00000B00: 20 2A 20 46 41 52 42 43 4F 44 45 53 2F 53 54 45 | * FARBCODES/STE| 00000B10: 55 45 52 43 4F 44 45 53 20 2A 00 34 13 34 03 43 |UERCODES *.4.4.C| 00000B20: 34 24 B2 C7 28 30 31 37 29 3A 52 4E 24 B2 C7 28 |4$..(017):RN$..(| 00000B30: 30 31 38 29 00 4E 13 3E 03 42 4B 24 B2 C7 28 30 |018).N.>.BK$..(0| 00000B40: 30 30 29 3A 43 32 24 B2 C7 28 31 34 35 29 00 68 |00):C2$..(145).h| 00000B50: 13 48 03 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C |.H.RF$..(146):CL| 00000B60: 24 B2 C7 28 31 34 37 29 00 77 13 52 03 43 31 24 |$..(147).w.R.C1$| 00000B70: B2 C7 28 31 35 37 29 00 97 13 5C 03 8F 20 2A 2A |..(157)...\.. **| 00000B80: 2A 20 5A 45 49 43 48 45 4E 53 41 54 5A 2F 47 52 |* ZEICHENSATZ/GR| 00000B90: 41 50 48 49 4B 20 2A 00 A6 13 66 03 53 32 24 B2 |APHIK *...f.S2$.| 00000BA0: C7 28 31 36 30 29 00 C6 13 70 03 8F 20 2A 2A 2A |.(160)...p.. ***| 00000BB0: 2A 2A 2A 2A 2A 2A 20 5A 45 49 43 48 45 4E 46 4F |****** ZEICHENFO| 00000BC0: 4C 47 45 4E 20 2A 00 D5 13 7A 03 81 20 51 B2 31 |LGEN *...z.. Q.1| 00000BD0: 20 A4 20 34 30 00 F1 13 84 03 51 32 24 B2 51 32 | . 40.....Q2$.Q2| 00000BE0: 24 AA 53 32 24 3A 51 55 24 B2 51 55 24 AA 43 32 |$.S2$:QU$.QU$.C2| 00000BF0: 24 00 F9 13 8E 03 82 20 51 00 FF 13 98 03 8E 00 |$...... Q.......| 00000C00: 20 14 A2 03 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | .... ==========| 00000C10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000C20: 00 3A 14 B6 03 8F 20 30 33 32 38 32 20 42 59 54 |.:.... 03282 BYT| 00000C30: 45 53 20 50 52 4F 47 52 41 4D 00 56 14 C0 03 8F |ES PROGRAM.V....| 00000C40: 20 30 30 32 31 37 20 42 59 54 45 53 20 56 41 52 | 00217 BYTES VAR| 00000C50: 49 41 42 4C 45 53 00 6F 14 CA 03 8F 20 30 30 36 |IABLES.o.... 006| 00000C60: 35 33 20 42 59 54 45 53 20 41 52 52 41 59 53 00 |53 BYTES ARRAYS.| 00000C70: 89 14 D4 03 8F 20 30 30 35 30 39 20 42 59 54 45 |..... 00509 BYTE| 00000C80: 53 20 53 54 52 49 4E 47 53 00 A9 14 E8 03 8F 20 |S STRINGS...... | 00000C90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000CA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 00 00 |=========... |
..#.... DISK-RETTER====C16/C64/C128.<... . (P) COMMODORE DISC.^.... ============= ==============.X.(.. (C) BY WERNER FUCHS .~.2.....<.. BASIC V2.0/3.5/7.0...F.. FL OPPY 1541/1551/1570/1571.U.P.. C16/116/P LUS4/C64/C128...Z.. ==================== =======...D.. 800...N..G(14)...X..660:RE %.0.J....CL$BK$" BEGINN DER SUCHE SPUR " DI%",1"C4$.I...SP%.1:TR%.DI%:.15,8,15,"I 0.....8,8,2,"#2":FI%.0... ..15,"U1:"2;0 ;TR%;SP%:.600.K....I.0.1:.#8,A$:.570:P%( I).F(A$):.:A.2:.590......#8,A$:.570:A.F( A$).7.....H$."":.I.0.1:.#8,A$:.570:L%(I) .F(A$):....H..I.3.18:.#8,A$:H$.H$.A$:..= .R..H$."".230.T.... KI$(A);" ";CO$;H$;.1 1)CO$;;L%(0);L%(1):.A.0..400.....FI%.FI% .1:.FI%.8.A.FI%.32.2:.590:.180......P%(0 ).0.260......C4$"WECHSEL AUF SPUR";:TR%. P%(0):SP%.P%(1):FI%.0:.TR%;SP%C4$:.160.9 ... 8:.RN$C4$"DIRECTORY ENDE"RF$,:.RE%.. "COLLECT DRIVE 1":.15,"V0.H....600: 15:. .D....** RETRIEVE A FILE **..."..15,"U1 :"2;0;L%(0);L%(1):.. .,.D%.2:.C4$"SPUR, SEKTOR";.H.6..290:.I.0.1:.#8,A$:.570:Z%( I).F(A$)...@..Z%(I)C1$" ";:.:.:.C2$"SPUR , SEKTOR";...J..Z%(0).0..:..C.T..15,"B-F "0;Z%(0);Z%(1):L%(0).Z%(0):L%(1).Z%(1):Z %(D%).Z%(0).^.^.Z%(D%.1).Z%(1):D%.D%.2.L .H..DS.0.310...R..:.RN$"DAS FILE WURDE B EREITS UEBERSCHRIEBEN"RF$"!":X%..(X%):A. FI%.32.2...|..I.2.D%.4.2:.15,"B-F:"0;Z%( I);Z%(I.1):......L%(0).TR%:L%(1).SP%:.29 0:.590.)...."ZURUECKHOLEN? (J/N)"H(Q2$,4 ).@.... A$:. A$."" . 410.R.... A$.."J".2 30.....X%.0:.C4$"BLOCKS WIEDERBELEGEN... ":Z%(0).L%(0):.300:.X%.230......C4$"IST DIES EIN "RN$"P"RF$"ROGRAMM,"RN$"S"RF$"E QUENIELLES, "RN$"U"RF$"SER,";...B.."ODER "RN$"R"RF$"ELATIVES FILE";.>.L.. JA$:.J A$.."P".JA$.."S".JA$.."U".JA$.."R".460.F .V..:..Z....:.JA$."P"..RN$."PROGRAMM".RF $."-":KI%.130:.520......JA$."U"..RN$."US ER".RF$."-":KI%.131:.520......JA$."R"..R N$."RELATIVES".RF$."-":KI%.132:.520..... .RN$"SEQUENTIELLES"RF$"-":KI%.129......" FILE WIEDERHOLEN...".9...L%(0).TR%:L%(1) .SP%:.290.X...A.FI%.32.2:.590:.8,G(KI%); ...&.BL%.((D%.2).2).1:.C4$BL%"BLOECKE "; ...0..15,"U2:"2;0;TR%;SP%:."WIEDERHERGES TELLT !"C4$:RE%.1:.230.Q.:..A$."".A$.G(0 ).W.D.....N..15,"B-P:"2;A...X..15,EN%,EM $,ET%,ES%:.EN%.0...).B..C4$C4$RN$"DISK F EHLER"RF$.^.L..C4$"FEHLER MELDUNG"RF$": "EN%" "EM$","ET%","ES%.X.V.."BITTE 'CONT ' GEBEN..~................P%(1),L%(1),Z% (300),KI$(4):CO$.G(34).....KI$(0).RN$."D EL".RF$:KI$(1)."SEQ":KI$(2)."PRG":KI$(3) ."USR":KI$(4)."REL".>...PG$.BK$.CL$.RN$. " DISK FILE RETTER VC1551/1541/1570/1571 ".RF$.U....PG$C4$:."DIESES PROGRAMM ERM OEGLICHT DAS WIEDER-"......"HERSTELLEN V ON GELOESCHTEN FILES..N.F.."ES WIRD VORA USGESETZT,DASS DIE DISK NOCH";...P.."NIC HT WIEDER BESCHRIEBEN WURDE..%.Z..C4$"10 0% ERFOLG IST NUR NACH 'SCRATCH' GE-".9. ..."WAEHRLEISTET..}....C4$"BEIM SUCHEN W ERDEN NUR DIE GELOESCHTEN DATEIEN ABGEF RAGT"......C4$C4$C4$" TASTE DRUECKEN ! "...... TD$:. TD$."" . 770.G...DI%.18:.. Z....H(QU$,4):.760... .. NACHSPANN ===== ==========...*.. * FARBCODES/STEUERCODES *.4.4.C4$.G(017):RN$.G(018).N.>.BK$.G(0 00):C2$.G(145).H.H.RF$.G(146):CL$.G(147) .W.R.C1$.G(157)...\.. *** ZEICHENSATZ/GR APHIK *...F.S2$.G(160).F.P.. ********* Z EICHENFOLGEN *.U.Z.. Q.1 . 40.....Q2$.Q2 $.S2$:QU$.QU$.C2$...... Q....... .... == ========================.:.... 03282 BYT ES PROGRAM.V.... 00217 BYTES VARIABLES.O .J.. 00653 BYTES ARRAYS...T.. 00509 BYTE S STRINGS...... ======================== =...
> CLICK IMAGE PREVIEW FOR FULL MODAL