Da habe ich doch im Spaghetti-Code-Verfahren mal eben einen Koordinatengenerator entwickelt.
Leider ist mir beim Programmieren ein Fehler unterlaufen. Finde den Fehler, ändere das Programm und die Koordinaten werden sichtbar.
Zur Lösung kommt ihr auf verschiedene Wege:
A. Listing abtippen (besser kopieren), Fehler finden und korrigieren, Programm mit C64 oder Emulator ausführen
B. Listing lesen, verstehen, Fehler finden, Koordinaten manuell ermitteln
C. Jemanden fragen, der den Cache schon gefunden hat.
Methode A ist mühselig - Methode B ist nur war für Superprofis - Methode C ist .... na ja.
Wenn bei Programmende keine Koordinaten angezeigt werden, habt ihr den Fehler nicht gefunden !!
Nun das Listing:
Listing Brotsdosen.Koordinaten-Generator:
100 print chr$(147): v=53248: poke v+33, 0:poke 53270,200:poke 657,128
110 for x=12800 to 12927: poke x,0 : next x
120 for x=12800 to 12881: read y: poke x,y : next x
130 poke 2040,200: poke 2041,201: poke 2042,201: poke v+21,7
140 poke v+28,6: poke v+37,15: poke v+38,2
150 poke v+39,7: poke v+40,8 : poke v+41,6
160 poke v+23,7: poke v+29,7 : poke v+16,1
170 poke v+1,133: poke v+2,170: poke v+5,115
180 for x = 200 to 1 step -1: poke v,x:z=z+0.61:poke v+3,z
190 poke v+4,(201-x)/2:next x
200 poke v+16,0: poke v,255: m=peek(v+4)
210 for x=255 to 170 step -1: poke v,x:z=z+0.66: poke v+3,z
220 pokev+4,m+(256-x)/1.2: next :poke v,175:poke v+4,170:poke v+5,120:gosub410
230 poke v+3,175:pokev+1,130: forx=0to5:fory=1to255:poke v+37+x,y:next y,x
240 poke v+38,2: poke v+39,7: poke v+41,6
250 for y=1 to 65: poke v+40,y:pokev+37,y+10
260 for z=0 to 15: poke v+39,y:next z,y
270 for x=1to15:for y=1to15: poke 53270,y:next y:next x: poke 53270,200
280 gosub 490
290 print "koordinaten sind nun generiert":gosub 470
300 for x =0 to 30:next x
310 for x =0 to 32: poke 12832+x,0 : poke 12832-x,0
320 for y=0 to 100: next y,x: poke v+21,0
330 data 0,0,0,0,0,0,0,0,0,32,0,0,32,0,0
340 data 36,0,0,36,0,0,62,0,0,4,0,0,4,0,0
350 data 4,127,0,0,0,0,0,0,0,16,0,0,16,0,0
360 data 119,119,0,149,84,0,85,82,0,55,119,0,0,16,0,0,32,0
370 data 0,255,255,255,170,85,170,170,85,170,85,170,85,85,170,85,255,255,255
380 data 78,79,82,68,58,53,53,51,32,79,83,84,58,57,48,51,17,103
390 for i = 1 to 1000:next i
395 end
400 data 19,137,21,237,23,59,26,20,29,69,32,219,34,207,-1,-1 :REM COORS
410 poke 214,4:poke 211,4:sys58640:print "koordinaten werden nun generiert"
420 poke 214,9:poke 211,14:sys58640
430 for n=1 to 8:read m: print chr$(m);:for y=1to500:next y:next n
440 poke 214,16:poke 211,14:sys58640
450 for n=1 to 8:read m: print chr$(m);:for y=1to500:next y:next n
460 poke 214,23:poke 211,4:sys58640
470 for p=1to100:next p
475 r=m:print chr$(147)
480 return
490 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
500 poke l,15
510 poke a,9
520 read x:ready
530 if y=-1then poke w,0: return
540 poke fh,x:poke fl,y
550 poke w,17
560 fort=1to100:next
570 poke w,0
580 for t=1to 50:next
590 goto 510
600 return
4_dogs was here