ANTI-SCRATCH

FILE INFORMATION

FILENAME(S): ANTI-SCRATCH

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 19:47:30

APPEARS ON: 1 disk(s)

FILE HASH

6e0cd2e8dc96a9ceb1e1b22d719a59f40c3256202dd0358024201810830eee3e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HJ LPEDISK A5 1	ANTI-SCRATCH	PRG	Curtcool, Frank	20	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 32 08 1F 00 51 51  B2 31 3A 46 54 B2 32 3A  |..2...QQ.1:FT.2:|
00000010: 53 50 B2 31 38 3A 53 45  B2 31 3A 86 42 28 32 35  |SP.18:SE.1:.B(25|
00000020: 35 29 2C 53 50 28 32 35  35 29 2C 53 45 28 32 35  |5),SP(255),SE(25|
00000030: 35 29 00 43 08 23 00 9F  31 35 2C 38 2C 31 35 2C  |5).C.#..15,8,15,|
00000040: 22 49 30 00 63 08 24 00  84 31 35 2C 46 2C 46 24  |"I0.c.$..15,F,F$|
00000050: 2C 46 31 2C 46 32 3A 8B  46 A7 51 51 B2 35 3A 89  |,F1,F2:.F.QQ.5:.|
00000060: 31 33 30 00 71 08 25 00  9F 38 2C 38 2C 38 2C 22  |130.q.%..8,8,8,"|
00000070: 23 00 A6 08 28 00 99 C7  28 31 34 37 29 C7 28 31  |#...(...(147).(1|
00000080: 34 32 29 22 4E 41 4D 45  20 44 45 53 20 47 45 4C  |42)"NAME DES GEL|
00000090: 4F 45 53 43 48 54 45 4E  20 50 52 47 3A 22 3B 3A  |OESCHTEN PRG:";:|
000000A0: 97 32 30 34 2C 30 00 B8  08 29 00 A1 41 24 3A 8B  |.204,0...)..A$:.|
000000B0: 41 24 B2 22 22 A7 34 31  00 C9 08 2A 00 8B 41 24  |A$."".41...*..A$|
000000C0: B2 C7 28 31 37 29 A7 34  31 00 DA 08 2B 00 8B 41  |..(17).41...+..A|
000000D0: 24 B2 C7 28 31 39 29 A7  34 31 00 EB 08 2C 00 8B  |$..(19).41...,..|
000000E0: 41 24 B2 C7 28 32 39 29  A7 34 31 00 FD 08 2D 00  |A$..(29).41...-.|
000000F0: 8B 41 24 B2 C7 28 31 34  35 29 A7 34 31 00 0F 09  |.A$..(145).41...|
00000100: 2E 00 8B 41 24 B2 C7 28  31 34 37 29 A7 34 31 00  |...A$..(147).41.|
00000110: 21 09 2F 00 8B 41 24 B2  C7 28 31 34 38 29 A7 34  |!./..A$..(148).4|
00000120: 31 00 33 09 30 00 8B 41  24 B2 C7 28 31 35 37 29  |1.3.0..A$..(157)|
00000130: A7 34 31 00 51 09 31 00  58 B2 C3 28 53 46 24 29  |.41.Q.1.X..(SF$)|
00000140: 3A 8B 41 24 B2 C7 28 32  30 29 AF 58 B2 30 A7 34  |:.A$..(20).X.0.4|
00000150: 31 00 77 09 32 00 8B 41  24 B2 C7 28 32 30 29 A7  |1.w.2..A$..(20).|
00000160: 99 41 24 3B 3A 53 46 24  B2 C8 28 53 46 24 2C 58  |.A$;:SF$..(SF$,X|
00000170: AB 31 29 3A 89 34 31 00  95 09 33 00 8B 41 24 B2  |.1):.41...3..A$.|
00000180: C7 28 31 33 29 A7 99 22  20 22 3A 97 32 30 34 2C  |.(13).." ":.204,|
00000190: 31 3A 89 35 33 00 AD 09  34 00 53 46 24 B2 53 46  |1:.53...4.SF$.SF|
000001A0: 24 AA 41 24 3A 99 41 24  3B 3A 89 34 31 00 C2 09  |$.A$:.A$;:.41...|
000001B0: 35 00 47 46 24 B2 53 46  24 3A 51 B2 C3 28 47 46  |5.GF$.SF$:Q..(GF|
000001C0: 24 29 00 FE 09 36 00 8B  51 B1 31 36 A7 99 C7 28  |$)...6..Q.16...(|
000001D0: 31 37 29 22 50 52 4F 47  52 41 4D 4D 4E 41 4D 45  |17)"PROGRAMMNAME|
000001E0: 20 49 53 54 20 5A 55 20  4C 41 4E 47 21 22 3A 81  | IST ZU LANG!":.|
000001F0: 4E B2 31 A4 35 30 30 30  3A 82 3A 89 34 30 00 20  |N.1.5000:.:.40. |
00000200: 0A 3D 00 81 4E B2 31 36  AB 51 A4 31 A9 AB 31 3A  |.=..N.16.Q.1..1:|
00000210: 47 46 24 B2 47 46 24 AA  C7 28 31 36 30 29 3A 82  |GF$.GF$..(160):.|
00000220: 00 37 0A 46 00 98 31 35  2C 22 55 31 3A 22 38 3B  |.7.F..15,"U1:"8;|
00000230: 30 3B 53 50 3B 53 45 00  68 0A 78 00 81 49 B2 30  |0;SP;SE.h.x..I.0|
00000240: A4 32 35 35 3A 98 31 35  2C 22 42 2D 50 3A 22 38  |.255:.15,"B-P:"8|
00000250: 2C 49 3A A1 23 38 2C 41  24 3A 8B 41 24 B2 22 22  |,I:.#8,A$:.A$.""|
00000260: A7 41 24 B2 C7 28 30 29  00 79 0A 82 00 42 28 49  |.A$..(0).y...B(I|
00000270: 29 B2 C6 28 41 24 29 3A  82 00 AC 0A F7 03 81 49  |)..(A$):.......I|
00000280: B2 32 A4 32 32 36 A9 33  32 3A 4E 4E 24 B2 22 22  |.2.226.32:NN$.""|
00000290: 3A 81 4E B2 33 A4 31 38  3A 4E 4E 24 B2 4E 4E 24  |:.N.3.18:NN$.NN$|
000002A0: AA C7 28 42 28 49 AA 4E  29 29 3A 82 00 D7 0A F9  |..(B(I.N)):.....|
000002B0: 03 8B 42 28 49 29 B1 31  32 38 AF 42 28 49 29 B3  |..B(I).128.B(I).|
000002C0: 31 33 33 A7 8B 4E 4E 24  B2 47 46 24 A7 51 51 B2  |133..NN$.GF$.QQ.|
000002D0: 34 3A 89 31 33 30 30 00  00 0B FC 03 8B 42 28 49  |4:.1300......B(I|
000002E0: 29 B2 30 B0 42 28 49 29  B2 31 32 38 A7 8B 4E 4E  |).0.B(I).128..NN|
000002F0: 24 B2 47 46 24 A7 51 51  B2 31 3A 89 32 30 31 30  |$.GF$.QQ.1:.2010|
00000300: 00 06 0B 4C 04 82 00 24  0B B0 04 8B 42 28 30 29  |...L...$....B(0)|
00000310: A7 53 50 B2 42 28 30 29  3A 53 45 B2 42 28 31 29  |.SP.B(0):SE.B(1)|
00000320: 3A 89 37 30 00 45 0B 14  05 91 51 51 89 35 30 31  |:.70.E....QQ.501|
00000330: 30 2C 34 30 31 30 2C 36  30 31 30 2C 37 30 31 30  |0,4010,6010,7010|
00000340: 2C 38 30 31 30 00 67 0B  DA 07 9F 34 2C 38 2C 34  |,8010.g....4,8,4|
00000350: 2C 22 23 22 3A 98 31 35  2C 22 55 31 3A 22 34 3B  |,"#":.15,"U1:"4;|
00000360: 30 3B 53 50 3B 53 45 00  91 0B E4 07 98 31 35 2C  |0;SP;SE......15,|
00000370: 22 42 2D 50 3A 22 34 3B  49 AA 31 3A A1 23 34 2C  |"B-P:"4;I.1:.#4,|
00000380: 51 24 3A 8B 51 24 B2 22  22 A7 51 24 B2 C7 28 30  |Q$:.Q$."".Q$..(0|
00000390: 29 00 A1 0B E9 07 53 50  28 4B 29 B2 C6 28 51 24  |).....SP(K)..(Q$|
000003A0: 29 00 CB 0B EE 07 98 31  35 2C 22 42 2D 50 3A 22  |)......15,"B-P:"|
000003B0: 34 3B 49 AA 32 3A A1 23  34 2C 51 24 3A 8B 51 24  |4;I.2:.#4,Q$:.Q$|
000003C0: B2 22 22 A7 51 24 B2 C7  28 30 29 00 DB 0B F3 07  |."".Q$..(0).....|
000003D0: 53 45 28 4B 29 B2 C6 28  51 24 29 00 F7 0B F8 07  |SE(K)..(Q$).....|
000003E0: 98 31 35 2C 22 42 2D 41  3A 22 30 3B 53 50 28 4B  |.15,"B-A:"0;SP(K|
000003F0: 29 3B 53 45 28 4B 29 00  1C 0C 02 08 84 31 35 2C  |);SE(K)......15,|
00000400: 46 2C 46 4D 24 2C 4E 53  2C 4E 42 3A 8B 46 B2 36  |F,FM$,NS,NB:.F.6|
00000410: 35 A7 51 51 B2 32 3A 89  31 33 30 30 00 3F 0C 0C  |5.QQ.2:.1300.?..|
00000420: 08 98 31 35 2C 22 55 31  3A 22 34 3B 30 3B 53 50  |..15,"U1:"4;0;SP|
00000430: 28 4B 29 3B 53 45 28 4B  29 3A 4B B2 4B AA 31 00  |(K);SE(K):K.K.1.|
00000440: 67 0C 16 08 98 31 35 2C  22 42 2D 50 3A 22 34 3B  |g....15,"B-P:"4;|
00000450: 30 3A A1 23 34 2C 51 24  3A 8B 51 24 B2 22 22 A7  |0:.#4,Q$:.Q$."".|
00000460: 51 24 B2 C7 28 30 29 00  77 0C 1B 08 53 50 28 4B  |Q$..(0).w...SP(K|
00000470: 29 B2 C6 28 51 24 29 00  9F 0C 20 08 98 31 35 2C  |)..(Q$)... ..15,|
00000480: 22 42 2D 50 3A 22 34 3B  31 3A A1 23 34 2C 51 24  |"B-P:"4;1:.#4,Q$|
00000490: 3A 8B 51 24 B2 22 22 A7  51 24 B2 C7 28 30 29 00  |:.Q$."".Q$..(0).|
000004A0: AF 0C 25 08 53 45 28 4B  29 B2 C6 28 51 24 29 00  |..%.SE(K)..(Q$).|
000004B0: BF 0C 2A 08 8B 53 50 28  4B 29 A7 32 30 34 30 00  |..*..SP(K).2040.|
000004C0: DF 0C C2 0B 98 31 35 2C  22 42 2D 50 3A 22 38 3B  |.....15,"B-P:"8;|
000004D0: 49 3A 98 38 2C C7 28 31  32 38 B0 46 54 29 3B 00  |I:.8,.(128.FT);.|
000004E0: 01 0D EA 0B 98 31 35 2C  22 55 32 3A 22 38 3B 30  |.....15,"U2:"8;0|
000004F0: 3B 53 50 3B 53 45 3A 51  51 B2 33 3A 89 31 33 30  |;SP;SE:QQ.3:.130|
00000500: 30 00 13 0D AA 0F 98 31  35 2C 22 56 30 22 3A 51  |0......15,"V0":Q|
00000510: 51 B2 32 00 42 0D 04 10  99 C7 28 31 37 29 53 46  |Q.2.B.....(17)SF|
00000520: 24 22 20 49 53 54 20 4E  49 43 48 54 20 5A 55 20  |$" IST NICHT ZU |
00000530: 47 45 4E 45 52 49 45 52  45 4E 2E 22 3A 89 39 30  |GENERIEREN.":.90|
00000540: 31 30 00 6D 0D 92 13 99  C7 28 31 37 29 53 46 24  |10.m.....(17)SF$|
00000550: 22 20 57 41 52 20 4E 49  43 48 54 20 56 4F 52 48  |" WAR NICHT VORH|
00000560: 41 4E 44 45 4E 2E 22 3A  89 39 30 31 30 00 94 0D  |ANDEN.":.9010...|
00000570: 7A 17 99 C7 28 31 37 29  53 46 24 22 20 49 53 54  |z...(17)SF$" IST|
00000580: 20 52 45 47 45 4E 45 52  49 45 52 54 2E 22 3A 89  | REGENERIERT.":.|
00000590: 39 30 31 30 00 CA 0D 62  1B 99 C7 28 31 37 29 53  |9010...b...(17)S|
000005A0: 46 24 22 20 53 54 45 48  54 20 42 45 52 45 49 54  |F$" STEHT BEREIT|
000005B0: 53 20 49 4E 20 44 45 52  20 44 49 52 45 43 54 4F  |S IN DER DIRECTO|
000005C0: 52 59 2E 22 3A 89 39 30  31 30 00 F3 0D 4A 1F 99  |RY.":.9010...J..|
000005D0: C7 28 31 37 29 22 20 44  49 53 4B 45 54 54 45 4E  |.(17)" DISKETTEN|
000005E0: 46 45 48 4C 45 52 20 3A  22 46 3B 46 24 3B 46 31  |FEHLER :"F;F$;F1|
000005F0: 3B 46 32 00 03 0E 32 23  A0 34 3A A0 38 3A A0 31  |;F2...2#.4:.8:.1|
00000600: 35 3A 80 00 00 00 3A FF  40 20                    |5:....:.@       |

..2...QQ.1:FT.2:SP.18:SE.1:.B(255),SP(25
5),SE(255).C.#..15,8,15,"I0.C.$..15,F,F$
,F1,F2:.F.QQ.5:.130.Q.%..8,8,8,"#...(..G
(147)G(142)"NAME DES GELOESCHTEN PRG:";:
.204,0...)..A$:.A$."".41.I.*..A$.G(17).4
1.Z.+..A$.G(19).41...,..A$.G(29).41...-.
.A$.G(145).41......A$.G(147).41.!./..A$.
G(148).41.3.0..A$.G(157).41.Q.1.X.C(SF$)
:.A$.G(20).X.0.41.W.2..A$.G(20)..A$;:SF$
.H(SF$,X.1):.41...3..A$.G(13).." ":.204,
1:.53...4.SF$.SF$.A$:.A$;:.41.B.5.GF$.SF
$:Q.C(GF$)...6..Q.16..G(17)"PROGRAMMNAME
 IST ZU LANG!":.N.1.5000:.:.40. .=..N.16
.Q.1..1:GF$.GF$.G(160):..7.F..15,"U1:"8;
0;SP;SE.H.X..I.0.255:.15,"B-P:"8,I:.#8,A
$:.A$."".A$.G(0).Y...B(I).F(A$):.......I
.2.226.32:NN$."":.N.3.18:NN$.NN$.G(B(I.N
)):..W....B(I).128.B(I).133..NN$.GF$.QQ.
4:.1300......B(I).0.B(I).128..NN$.GF$.QQ
.1:.2010...L...$....B(0).SP.B(0):SE.B(1)
:.70.E....QQ.5010,4010,6010,7010,8010.G.
Z..4,8,4,"#":.15,"U1:"4;0;SP;SE......15,
"B-P:"4;I.1:.#4,Q$:.Q$."".Q$.G(0).....SP
(K).F(Q$).K....15,"B-P:"4;I.2:.#4,Q$:.Q$
."".Q$.G(0).....SE(K).F(Q$)......15,"B-A
:"0;SP(K);SE(K)......15,F,FM$,NS,NB:.F.6
5.QQ.2:.1300.?....15,"U1:"4;0;SP(K);SE(K
):K.K.1.G....15,"B-P:"4;0:.#4,Q$:.Q$."".
Q$.G(0).W...SP(K).F(Q$)... ..15,"B-P:"4;
1:.#4,Q$:.Q$."".Q$.G(0)...%.SE(K).F(Q$).
..*..SP(K).2040...B..15,"B-P:"8;I:.8,G(1
28.FT);......15,"U2:"8;0;SP;SE:QQ.3:.130
0......15,"V0":QQ.2.B....G(17)SF$" IST N
ICHT ZU GENERIEREN.":.9010.M....G(17)SF$
" WAR NICHT VORHANDEN.":.9010...Z..G(17)
SF$" IST REGENERIERT.":.9010.J.B..G(17)S
F$" STEHT BEREITS IN DER DIRECTORY.":.90
10...J..G(17)" DISKETTENFEHLER :"F;F$;F1
;F2...2# 4: 8: 15:....:.@

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL