_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

NO SCRATCH

FILE INFORMATION

FILENAME(S): NO SCRATCH

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-10-20 14:30:49

APPEARS ON: 2 disk(s)

FILE HASH

fcf474c30efe4aa56ad1dd375e85def7ab4cbf8e6e73616dd940bbb0d58b3ecd

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
64 ER SONDERH 83 NO SCRATCH PRG C64er, DuncanTwain, Treasure Chest - Klaus Der Suhler 20 12 DOWNLOAD FILE
64 ER SONDERH 83 NO SCRATCH PRG Treasure Chest - Klaus Der Suhler 20 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 64 00 8F 20  42 45 49 53 50 49 45 4C  |..!.d.. BEISPIEL|
00000010: 20 46 55 45 52 20 45 49  4E 45 20 4B 4C 45 49 4E  | FUER EINE KLEIN|
00000020: 45 00 3F 08 65 00 8F 20  44 49 52 45 43 54 4F 52  |E.?.e.. DIRECTOR|
00000030: 59 2D 4D 41 4E 49 50 55  4C 41 54 49 4F 4E 3A 00  |Y-MANIPULATION:.|
00000040: 64 08 66 00 8F 20 53 43  52 41 54 43 48 2D 53 43  |d.f.. SCRATCH-SC|
00000050: 48 55 54 5A 20 45 49 4E  5A 45 4C 4E 45 52 20 46  |HUTZ EINZELNER F|
00000060: 49 4C 45 53 00 87 08 67  00 8F 20 4E 41 43 48 20  |ILES...g.. NACH |
00000070: 41 4E 5A 45 49 47 45 20  44 45 53 20 46 49 4C 45  |ANZEIGE DES FILE|
00000080: 4E 41 4D 45 4E 53 3A 00  A4 08 68 00 8F 20 4A 20  |NAMENS:...h.. J |
00000090: 3D 20 53 43 48 55 45 54  5A 45 20 44 49 45 53 20  |= SCHUETZE DIES |
000000A0: 46 49 4C 45 00 C8 08 69  00 8F 20 4E 20 3D 20 57  |FILE...i.. N = W|
000000B0: 45 49 54 45 52 20 5A 55  4D 20 4E 41 45 43 48 53  |EITER ZUM NAECHS|
000000C0: 54 45 4E 20 46 49 4C 45  00 D7 08 6A 00 8F 20 45  |TEN FILE...j.. E|
000000D0: 20 3D 20 45 4E 44 45 00  F9 08 6B 00 8F 20 41 43  | = ENDE...k.. AC|
000000E0: 48 54 55 4E 47 20 21 21  21 20 22 53 43 48 55 45  |HTUNG !!! "SCHUE|
000000F0: 54 5A 54 22 20 41 55 43  48 00 1C 09 6C 00 8F 20  |TZT" AUCH...l.. |
00000100: 53 43 48 4F 4E 20 47 45  53 43 52 41 54 43 48 54  |SCHON GESCRATCHT|
00000110: 45 20 46 49 4C 45 53 20  57 45 4E 4E 00 42 09 6D  |E FILES WENN.B.m|
00000120: 00 8F 20 56 45 52 4C 41  4E 47 54 2C 20 53 54 45  |.. VERLANGT, STE|
00000130: 4C 4C 54 20 53 49 45 20  41 42 45 52 20 4E 49 43  |LLT SIE ABER NIC|
00000140: 48 54 00 57 09 6E 00 8F  20 57 49 45 44 45 52 20  |HT.W.n.. WIEDER |
00000150: 48 45 52 20 21 21 21 00  7C 09 6F 00 8F 20 53 43  |HER !!!.|.o.. SC|
00000160: 52 41 54 43 48 2D 53 43  48 55 54 5A 20 57 49 52  |RATCH-SCHUTZ WIR|
00000170: 44 20 49 4D 20 44 49 52  45 43 54 2E 00 9B 09 70  |D IM DIRECT....p|
00000180: 00 8F 20 44 55 52 43 48  20 45 49 4E 20 27 3C 27  |.. DURCH EIN '<'|
00000190: 20 48 49 4E 54 45 52 20  44 45 4D 00 BD 09 71 00  | HINTER DEM...q.|
000001A0: 8F 20 46 49 4C 45 54 59  50 20 41 4E 47 45 5A 45  |. FILETYP ANGEZE|
000001B0: 49 47 54 2E 20 4E 41 45  48 45 52 45 53 00 DD 09  |IGT. NAEHERES...|
000001C0: 72 00 8F 20 53 49 45 48  45 20 54 41 42 45 4C 4C  |r.. SIEHE TABELL|
000001D0: 45 20 46 4F 4C 47 45 20  31 20 21 21 21 00 00 0A  |E FOLGE 1 !!!...|
000001E0: 73 00 8F 20 41 43 48 54  55 4E 47 20 21 21 21 20  |s.. ACHTUNG !!! |
000001F0: 4E 55 52 20 5A 55 53 41  4D 4D 45 4E 20 4D 49 54  |NUR ZUSAMMEN MIT|
00000200: 00 20 0A 74 00 8F 20 44  45 4E 20 55 4E 54 45 52  |. .t.. DEN UNTER|
00000210: 50 52 4F 47 52 41 4D 4D  45 4E 20 31 20 26 20 32  |PROGRAMMEN 1 & 2|
00000220: 00 35 0A 75 00 8F 20 4C  41 55 46 46 41 45 48 49  |.5.u.. LAUFFAEHI|
00000230: 47 20 21 21 21 00 3B 0A  76 00 3A 00 41 0A 77 00  |G !!!.;.v.:.A.w.|
00000240: 3A 00 4A 0A 78 00 4D 4D  B2 30 00 63 0A 82 00 4D  |:.J.x.MM.0.c...M|
00000250: 4D B2 4D 4D AA 31 3A 44  44 24 B2 22 22 3A 8D 31  |M.MM.1:DD$."":.1|
00000260: 30 30 30 00 73 0A 8C 00  8B 20 44 44 24 B2 4E 4E  |000.s.... DD$.NN|
00000270: 24 A7 80 00 89 0A 96 00  99 CA 28 44 44 24 2C 34  |$.........(DD$,4|
00000280: 2C 31 36 29 3A 85 41 41  24 00 9A 0A A0 00 8B 20  |,16):.AA$...... |
00000290: 41 41 24 B2 22 45 22 A7  20 80 00 AD 0A AA 00 8B  |AA$."E". .......|
000002A0: 20 41 41 24 B2 22 4E 22  A7 20 31 33 30 00 BE 0A  | AA$."N". 130...|
000002B0: B4 00 48 48 24 B2 C8 28  44 44 24 2C 31 29 00 D4  |..HH$..(DD$,1)..|
000002C0: 0A BE 00 48 48 24 B2 C7  28 C6 28 48 48 24 29 B0  |...HH$..(.(HH$).|
000002D0: 32 AE 36 29 00 EA 0A C8  00 44 44 24 B2 48 48 24  |2.6).....DD$.HH$|
000002E0: AA C9 28 44 44 24 2C 32  39 29 00 F4 0A D2 00 8D  |..(DD$,29)......|
000002F0: 32 30 30 30 00 FE 0A DC  00 89 20 31 33 30 00 04  |2000...... 130..|
00000300: 0B E6 00 80 00 1A 0B E8  03 8F 20 55 4E 54 45 52  |.......... UNTER|
00000310: 50 52 4F 47 52 41 4D 4D  20 31 00 3E 0B E9 03 8F  |PROGRAMM 1.>....|
00000320: 20 4C 45 53 45 4E 20 45  49 4E 45 53 20 45 49 4E  | LESEN EINES EIN|
00000330: 54 52 41 47 45 53 20 41  55 53 20 44 45 4D 00 62  |TRAGES AUS DEM.b|
00000340: 0B EA 03 8F 20 44 49 52  45 43 54 4F 52 59 20 28  |.... DIRECTORY (|
00000350: 41 4C 4C 45 20 33 30 20  42 59 54 45 53 20 21 21  |ALLE 30 BYTES !!|
00000360: 21 29 00 7C 0B EB 03 8F  20 49 4E 20 44 49 45 20  |!).|.... IN DIE |
00000370: 56 41 52 49 41 42 4C 45  20 44 44 24 00 96 0B EC  |VARIABLE DD$....|
00000380: 03 8F 20 55 45 42 45 52  47 41 42 45 50 41 52 41  |.. UEBERGABEPARA|
00000390: 4D 45 54 45 52 3A 00 B8  0B ED 03 8F 20 4D 4D 3D  |METER:...... MM=|
000003A0: 4E 55 4D 4D 45 52 20 44  45 53 20 45 49 4E 54 52  |NUMMER DES EINTR|
000003B0: 41 47 45 53 20 44 45 52  00 D5 0B EE 03 8F 20 20  |AGES DER......  |
000003C0: 20 20 47 45 4C 45 53 45  4E 20 57 45 52 44 45 4E  |  GELESEN WERDEN|
000003D0: 20 53 4F 4C 4C 00 DB 0B  EF 03 3A 00 E1 0B F0 03  | SOLL.....:.....|
000003E0: 3A 00 E7 0B F1 03 3A 00  04 0C F2 03 9F 20 31 35  |:.....:...... 15|
000003F0: 2C 38 2C 31 35 2C 22 49  22 3A 9F 38 2C 38 2C 38  |,8,15,"I":.8,8,8|
00000400: 2C 22 23 22 00 27 0C FC  03 4E 4E 24 B2 22 22 3A  |,"#".'...NN$."":|
00000410: 81 49 B2 31 A4 33 30 3A  4E 4E 24 B2 4E 4E 24 AA  |.I.1.30:NN$.NN$.|
00000420: C7 28 30 29 3A 82 49 00  3A 0C 06 04 58 58 B2 B5  |.(0):.I.:...XX..|
00000430: 28 28 4D 4D AB 31 29 AD  38 29 00 50 0C 10 04 98  |((MM.1).8).P....|
00000440: 31 35 2C 22 55 31 20 38  20 30 20 31 38 20 30 22  |15,"U1 8 0 18 0"|
00000450: 00 5F 0C 1A 04 81 5A 5A  B2 31 A4 58 58 AA 31 00  |._....ZZ.1.XX.1.|
00000460: 71 0C 24 04 98 31 35 2C  22 42 2D 50 20 38 20 30  |q.$..15,"B-P 8 0|
00000470: 22 00 8C 0C 2E 04 A1 23  38 2C 54 54 24 3A 54 54  |"......#8,TT$:TT|
00000480: B2 C6 28 54 54 24 AA C7  28 30 29 29 00 A7 0C 38  |..(TT$..(0))...8|
00000490: 04 A1 23 38 2C 53 53 24  3A 53 53 B2 C6 28 53 53  |..#8,SS$:SS..(SS|
000004A0: 24 AA C7 28 30 29 29 00  C2 0C 42 04 8B 20 54 54  |$..(0))...B.. TT|
000004B0: B2 30 20 A7 20 44 44 24  B2 4E 4E 24 3A 89 31 31  |.0 . DD$.NN$:.11|
000004C0: 37 30 00 D9 0C 4C 04 98  31 35 2C 22 55 31 20 38  |70...L..15,"U1 8|
000004D0: 20 30 22 3B 54 54 3B 53  53 00 E1 0C 56 04 82 5A  | 0";TT;SS...V..Z|
000004E0: 5A 00 01 0D 60 04 50 50  B2 4D 4D AB 28 58 58 AC  |Z...`.PP.MM.(XX.|
000004F0: 38 29 3A 50 50 B2 28 50  50 AB 31 29 AC 33 32 AA  |8):PP.(PP.1).32.|
00000500: 32 00 14 0D 6A 04 98 31  35 2C 22 42 2D 50 20 38  |2...j..15,"B-P 8|
00000510: 22 3B 50 50 00 2B 0D 74  04 81 5A 5A B2 31 20 A4  |";PP.+.t..ZZ.1 .|
00000520: 20 33 30 3A A1 23 38 2C  5A 5A 24 00 40 0D 7E 04  | 30:.#8,ZZ$.@.~.|
00000530: 8B 5A 5A 24 B2 22 22 A7  5A 5A 24 B2 C7 28 30 29  |.ZZ$."".ZZ$..(0)|
00000540: 00 54 0D 88 04 44 44 24  B2 44 44 24 AA 5A 5A 24  |.T...DD$.DD$.ZZ$|
00000550: 3A 82 5A 5A 00 61 0D 92  04 A0 20 38 3A A0 20 31  |:.ZZ.a.... 8:. 1|
00000560: 35 00 67 0D 9C 04 8E 00  7D 0D D0 07 8F 20 55 4E  |5.g.....}.... UN|
00000570: 54 45 52 50 52 4F 47 52  41 4D 4D 20 32 00 A0 0D  |TERPROGRAMM 2...|
00000580: D1 07 8F 20 53 43 48 52  45 49 42 45 4E 20 45 49  |... SCHREIBEN EI|
00000590: 4E 45 53 20 45 49 4E 54  52 41 47 45 53 20 49 4E  |NES EINTRAGES IN|
000005A0: 00 C3 0D D2 07 8F 20 44  41 53 20 44 49 52 45 43  |...... DAS DIREC|
000005B0: 54 4F 52 59 20 28 33 30  20 42 59 54 45 53 20 21  |TORY (30 BYTES !|
000005C0: 21 21 29 00 DD 0D D3 07  8F 20 55 45 42 45 52 47  |!!)...... UEBERG|
000005D0: 41 42 45 50 41 52 41 4D  45 54 45 52 3A 00 FF 0D  |ABEPARAMETER:...|
000005E0: D4 07 8F 20 4D 4D 3D 4E  55 4D 4D 45 52 20 44 45  |... MM=NUMMER DE|
000005F0: 53 20 45 49 4E 54 52 41  47 45 53 20 44 45 52 00  |S EINTRAGES DER.|
00000600: 20 0E D5 07 8F 20 20 20  20 47 45 53 43 48 52 49  | ....    GESCHRI|
00000610: 45 42 45 4E 20 57 45 52  44 45 4E 20 53 4F 4C 4C  |EBEN WERDEN SOLL|
00000620: 00 3B 0E D6 07 8F 20 44  44 24 3D 44 49 52 45 43  |.;.... DD$=DIREC|
00000630: 54 4F 52 59 45 49 4E 54  52 41 47 00 41 0E D7 07  |TORYEINTRAG.A...|
00000640: 3A 00 47 0E D8 07 3A 00  4D 0E D9 07 3A 00 6A 0E  |:.G...:.M...:.j.|
00000650: DA 07 9F 20 31 35 2C 38  2C 31 35 2C 22 49 22 3A  |... 15,8,15,"I":|
00000660: 9F 38 2C 38 2C 38 2C 22  23 22 00 7D 0E E4 07 58  |.8,8,8,"#".}...X|
00000670: 58 B2 B5 28 28 4D 4D AB  31 29 AD 38 29 00 93 0E  |X..((MM.1).8)...|
00000680: EE 07 98 31 35 2C 22 55  31 20 38 20 30 20 31 38  |...15,"U1 8 0 18|
00000690: 20 30 22 00 A2 0E F8 07  81 5A 5A B2 31 A4 58 58  | 0"......ZZ.1.XX|
000006A0: AA 31 00 B4 0E 02 08 98  31 35 2C 22 42 2D 50 20  |.1......15,"B-P |
000006B0: 38 20 30 22 00 CD 0E 0C  08 A1 23 38 2C 54 24 3A  |8 0"......#8,T$:|
000006C0: 54 54 B2 C6 28 54 24 AA  C7 28 30 29 29 00 E6 0E  |TT..(T$..(0))...|
000006D0: 16 08 A1 23 38 2C 53 24  3A 53 53 B2 C6 28 53 24  |...#8,S$:SS..(S$|
000006E0: AA C7 28 30 29 29 00 F8  0E 20 08 8B 20 54 54 B2  |..(0))... .. TT.|
000006F0: 30 20 A7 20 32 31 35 30  00 0F 0F 2A 08 98 31 35  |0 . 2150...*..15|
00000700: 2C 22 55 31 20 38 20 30  22 3B 54 54 3B 53 53 00  |,"U1 8 0";TT;SS.|
00000710: 17 0F 34 08 82 5A 5A 00  37 0F 3E 08 50 50 B2 4D  |..4..ZZ.7.>.PP.M|
00000720: 4D AB 28 58 58 AC 38 29  3A 50 50 B2 28 50 50 AB  |M.(XX.8):PP.(PP.|
00000730: 31 29 AC 33 32 AA 32 00  4A 0F 48 08 98 31 35 2C  |1).32.2.J.H..15,|
00000740: 22 42 2D 50 20 38 22 3B  50 50 00 56 0F 52 08 98  |"B-P 8";PP.V.R..|
00000750: 38 2C 44 44 24 3B 00 6D  0F 5C 08 98 31 35 2C 22  |8,DD$;.m.\..15,"|
00000760: 55 32 20 38 20 30 22 3B  54 54 3B 53 53 00 7A 0F  |U2 8 0";TT;SS.z.|
00000770: 66 08 A0 20 38 3A A0 20  31 35 00 80 0F 70 08 8E  |f.. 8:. 15...p..|
00000780: 00 00 00 FF                                       |....            |
..!.D.. BEISPIEL FUER EINE KLEINE.?.E.. 
DIRECTORY-MANIPULATION:.D.F.. SCRATCH-SC
HUTZ EINZELNER FILES...G.. NACH ANZEIGE 
DES FILENAMENS:...H.. J = SCHUETZE DIES 
FILE.H.I.. N = WEITER ZUM NAECHSTEN FILE
.W.J.. E = ENDE...K.. ACHTUNG !!! "SCHUE
TZT" AUCH...L.. SCHON GESCRATCHTE FILES 
WENN.B.M.. VERLANGT, STELLT SIE ABER NIC
HT.W.N.. WIEDER HER !!!.|.O.. SCRATCH-SC
HUTZ WIRD IM DIRECT....P.. DURCH EIN '<'
 HINTER DEM...Q.. FILETYP ANGEZEIGT. NAE
HERES...R.. SIEHE TABELLE FOLGE 1 !!!...
S.. ACHTUNG !!! NUR ZUSAMMEN MIT. .T.. D
EN UNTERPROGRAMMEN 1 & 2.5.U.. LAUFFAEHI
G !!!.;.V.:.A.W.:.J.X.MM.0.C...MM.MM.1:D
D$."":.1000.S.... DD$.NN$........J(DD$,4
,16):.AA$... .. AA$."E". ....... AA$."N"
. 130.....HH$.H(DD$,1).T...HH$.G(F(HH$).
2.6)...H.DD$.HH$.I(DD$,29)...R..2000....
.. 130............ UNTERPROGRAMM 1.>....
 LESEN EINES EINTRAGES AUS DEM.B.... DIR
ECTORY (ALLE 30 BYTES !!!).|.... IN DIE 
VARIABLE DD$...... UEBERGABEPARAMETER:..
.... MM=NUMMER DES EINTRAGES DER.U....  
  GELESEN WERDEN SOLL.....:.....:.....:.
..... 15,8,15,"I":.8,8,8,"#".'...NN$."":
.I.1.30:NN$.NN$.G(0):.I.:...XX..((MM.1).
8).P....15,"U1 8 0 18 0"._....ZZ.1.XX.1.
Q.$..15,"B-P 8 0"......#8,TT$:TT.F(TT$.G
(0))...8..#8,SS$:SS.F(SS$.G(0)).B.B.. TT
.0 . DD$.NN$:.1170.Y.L..15,"U1 8 0";TT;S
S...V..ZZ...`.PP.MM.(XX.8):PP.(PP.1).32.
2...J..15,"B-P 8";PP.+.T..ZZ.1 . 30:.#8,
ZZ$.@.~..ZZ$."".ZZ$.G(0).T...DD$.DD$.ZZ$
:.ZZ.A...  8:  15.G.....}.P.. UNTERPROGR
AMM 2. .Q.. SCHREIBEN EINES EINTRAGES IN
.C.R.. DAS DIRECTORY (30 BYTES !!!)...S.
. UEBERGABEPARAMETER:...T.. MM=NUMMER DE
S EINTRAGES DER. .U..    GESCHRIEBEN WER
DEN SOLL.;.V.. DD$=DIRECTORYEINTRAG.A.W.
:.G.X.:.M.Y.:.J.Z.. 15,8,15,"I":.8,8,8,"
#".}...XX..((MM.1).8)......15,"U1 8 0 18
 0"......ZZ.1.XX.1......15,"B-P 8 0".M..
..#8,T$:TT.F(T$.G(0))......#8,S$:SS.F(S$
.G(0))... .. TT.0 . 2150...*..15,"U1 8 0
";TT;SS...4..ZZ.7.>.PP.MM.(XX.8):PP.(PP.
1).32.2.J.H..15,"B-P 8";PP.V.R..8,DD$;.M
.\..15,"U2 8 0";TT;SS.Z.F.  8:  15...P..
....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL