Yalnızca Datasette'i Olanlar İçin Kısa Bir Kafa Ayar Programı:

Elle üç beş dakikada yazılabilecek kadar kısa:

http://enthusi.de/oldhp/c64/code/basicload.txt

( http://csdb.dk/release/?id=45413 )

Kod:

0 REM *** VISUAL DATASETTE HEAD ALIGN TOOL BY ENTHUSI/ONS ***
1 D=0: FOR B=0 TO 196: READ A: POKE (4*4096+B),A: D=D+A: NEXT: 
2 PRINT D:IF D=26242 THEN SYS 4*4096
10 DATA 32, 68, 229, 169, 59, 141, 17, 208, 169, 24, 141
11 DATA 24, 208, 138, 41, 7, 10, 10, 133, 252, 138, 74
12 DATA 74, 74, 133, 253, 74, 102, 252, 74, 102, 252, 101
13 DATA 253, 9, 32, 157, 0, 192, 165, 252, 157, 0, 194
14 DATA 189, 0, 194, 157, 0, 194, 144, 3, 254, 0, 192
15 DATA 232, 224, 200, 208, 209, 169, 128, 133, 252, 162, 0
16 DATA 138, 41, 248, 157, 0, 196, 165, 252, 157, 0, 198
17 DATA 74, 144, 2, 169, 128, 133, 252, 232, 208, 235, 88
18 DATA 160, 254, 204, 18, 208, 208, 251, 173, 17, 208, 48
19 DATA 246, 173
20 DATA 173, 13, 220, 41, 16, 240, 249, 173, 13, 220, 162
21 DATA 0, 169, 16, 232, 44, 13, 220, 240, 250, 120, 165
22 DATA 5, 201, 3, 176, 22, 164, 6, 185, 0, 194, 133
23 DATA 20, 185, 0, 192, 133, 21, 188, 0, 196, 177, 20
24 DATA 29, 0, 198, 145, 20, 198, 5, 208, 203, 169, 6
25 DATA 133, 5, 198, 7, 208, 182, 169, 5, 133, 7, 230
26 DATA 6, 165, 6, 201, 200, 208, 170, 169, 0, 133, 6
27 DATA 133, 195, 162, 32, 134, 196, 168, 145, 195, 200, 208
28 DATA 251, 230, 196, 202, 208, 245, 240, 147

Ya da daha kısası ama görsel olarak biraz kısıtlısı: http://csdb.dk/release/?id=110689 O kadar kısa ki kaset kapağının içine katlanıp konan kağıdın tek yüzüne sığıyor kafa ayar programının BASIC kodu: http://csdb.dk/release/download.php?id=138279

Kod:

0 data 32,23,248,120,169,23,133,1
1 data 32,252,230,169,4,133,212,169
2 data 139,141,17,208,173,17,208,16
3 data 251,162,30,160,0,169,16,200
4 data 44,13,220,240,250,173,32,208
5 data 73,14,141,32,208,152,74,168
6 data 202,224,25,176,230,169,81,145
7 data 211,224,0,208,222,142,33,208
8 data 165,211,24,105,40,133,211,144
9 data 2,230,212,165,212,201,8,208
10 data 190,169,155,141,17,208,186,32
11 data 179,238,202,208,250,32,68,229
12 data 80,166
13 for a=0 to 97:read b:poke 256+a,b
14 c=c+b:next:if c=13420 then sys 256
15 print c:rem micro align 0.1 /enthusi