|
ilkerficicilar
|
 |
« : Mart 07, 2017, 04:05:56 ÖÖ » |
|
Elle üç beş dakikada yazılabilecek kadar kısa: http://enthusi.de/oldhp/c64/code/basicload.txt( http://csdb.dk/release/?id=45413 ) 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=1382790 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
|