Haben Sie ein gutes Gedächtnis?
Mit diesem Spiel, das dem bekannten Memory ähnelt, können Sie Ihr Gedächtnis testen. Es wird einiges gefordert, wenn Sie die schwierigste Spielstufe mit 72 Bildpaaren wählen. Spielen können Sie gegen den Computer oder gegen bis zu drei Mitspieler.
Sie kennen bestimmt das Spiel »Memory«. Bilder von verschiedenen Gegenständen werden verdeckt oder umgedreht ausgelegt. Und zwar von jedem Gegenstand zwei. Ihre Aufgabe ist es, möglichst schnell viele Bildpaare herauszufinden.
Ein Spieler beginnt und deckt zwei beliebige Karten auf. Jeder Spieler sieht das Motiv. Haben beide Karten das gleiche Motiv, werden sie vom Spieltisch genommen und mit dem nächsten Kartenpaar weitergemacht. Sind die Bilder verschieden, werden die Karten wieder verdeckt und der nächste Spieler versucht sein Glück.
Es kommt bei diesem Spiel darauf an, daß Sie sich die Lage von möglichst vielen Motiven merken. Denn nur so finden Sie mit Bestimmtheit die Zwillingskarte.
Mit diesem Programm können Sie Memory gegen den Computer spielen oder gegen menschliche Mitspieler. Im letzten Fall übernimmt der Computer die Funktion als Spielfeld.
Es können bis zu 36 Bildpaare in zwei verschiedenen Farbkombinationen ausgelegt werden oder eben maximal 144 Motive. Spielen Sie nur gegen den Computer, können Sie bestimmen, wieviele Bilder sich der Computer »merken« kann. Es kann zwischen 1/4 und allen der jemals aufgedeckten Bilder gewählt werden. Stellen Sie ruhig 1/4 ein. Sie sind schließlich kein Computer.
72 Bildpaare
Nach dem Programmstart müssen Sie etwa 40 Sekunden warten, bis alle Motive (Sprites) definiert sind. Danach entscheidet der Computer per Zufall wer beginnt. Sie sind am Zug, wenn »SP« (für Spieler und »COM« für Computer) in schwarzer Schrift erscheint. Sie können dann das gewünschte Feld mit dem Joystick oder den Cursor-Tasten anfahren und mit dem Feuerknopf oder mit RETURN auswählen. Der Computer zeigt Ihnen dann für kurze Zeit das Motiv.
Sind schließlich alle Bildpaare vom Spielfeld »verschwunden«, erfolgt eine kleine Spielauswertung.
Tips zum Programm
Die Multicolour-Sprites für die Motive sind als DATAs in den Programmzeilen ab 2400 abgelegt. In den DATA-Zeilen stehen 36x63 Byte Bild- und 2x3 Byte Farbinformationen. Dieses Format sollten Sie einhalten, wollen Sie eigene Sprites entwerfen oder vorhandene umdefinieren. Beachten Sie bitte, daß das Programm dabei nicht viel länger werden darf, da ab Adresse 14080 die Sprite-Daten im Speicher beginnen. Die Anfangs-Zeilennummer eines Sprites ergibt sich aus Zeilennummer=2400+10xSpritenummer.
(Holger Weber / hm)| Programmaufbau | |
|---|---|
| Zeile | Bedeutung |
| 20-26 | Anlegen des Stack für die gemerkten Karten |
| 30-38 | Hat ein Spieler ein Bildpaar entdeckt? |
| 40-44 | Bildposition schon bekannt? |
| 50-58 | Bildpaar von Spielfeld nehmen und löschen |
| 100-380 | a) einlesen der Sprites b) Variablen dimensionieren c) Spielparameter festlegen: Anzahl der Spieler etc. |
| 385-400 | Größe des »Computer-Gedächtnisses« |
| 410-580 | Aufbau des Spielfeldes |
| 590-1030 | Sie spielen |
| 1040-1250 | Computer spielt |
| 1260-2240 | verschiedene Unterroutinen |
| 2250-2390 | Endauswertung |
| 2400-2762 | Daten der Sprites |
|
10 goto 100
20 fl=1:fori=prto1step-1:ifmc(i)=0thenfl=i:goto24
22 nexti
24 iffl<prthenfori=fltopr-1:mc(i)=mc(i+1):nexti:mc(pr)=0
26 return
30 x7=0:y7=0:fori=c2topr-1:ifmc(i)=0then36
32 forii=i+1topr:ifint(mc(ii))=int(mc(i))then x7=i:y7=mc(ii):c2=i:goto38
34 nextii
36 nexti
38 return
40 fori=prto1step-1:ifmc(i)=hvthenhv=0:goto44
42 ifmc(i)<>0thennexti
44 return
50 hv=0:fori=prto1step-1:ifi<hv+1then58
52 mc(i)=mc(i-hv):if(mc(i-1))=0then58
54 ifint(mc(i))=bb(sn)thenhv=hv+1:mc(i)=mc(i-hv):i=i+1
56 nexti
58 fori=0tohv:mc(i)=0:next:return
100 rem:(c)holger weber
110 rem:6238 hofheim
120 rem:am forsthaus 27
130 rem
140 rem:sprites,parameter & menu
150 rem
160 poke46,69:clr:v=53248:pokev+21,4:fori=32to41:pokev+i,6:next
170 pokev+29,4:pokev+23,4:poke646,1:pokev+4,160:pokev+5,160:pokev+28,4
180 print"{clr}":print:print:print" ca. 40 sekunden warten , bitte"
190 fori=1to36:forj=0to62:readq:poke(219+i)*64+j,q:nextj:hv=17000+3*i:readf
200 pokehv+1,f:pokev+41,f:readf:pokehv+2,f:pokev+37,f:readf:pokehv+3,f
210 pokev+38,f:fork=1to3:readf:pokehv+500+k,f:nextk:poke2042,219+i:nexti
220 dimbb(145):dimsp(8):dimf(8):dimmc(145):dimss(8):fori=1to300:next
230 pc=0:qz=2:v=53248:print"{clr}":pokev+21,0:pokev+23,0:pokev+29,0
240 print:print:printtab(10);"1 - joystick port 1"
250 print:printtab(10);"2 - joystick port 2"
260 print:printtab(10);"3 - tastatur (cursortasten)"
270 geta$:tj=val(a$):iftj<1ortj>3then270
280 ontjgosub1340,1350,1360
290 print"{clr}":print:print:print" soll der rechner mitspielen ? j"
300 jn=10:nj=14:x=1180:gosub1720:pc=0:ifpeek(x)=10thenpc=1
310 print:print" wieviele andere spieler ? 4"
320 min=1:max=5:x=1260:gosub1770:hm=hv
330 print:print" wieviele bildpaare sollen"
340 print" ausgelegt werden ? 72"
350 min=4:max=73:x=1380:gosub1770:bp=hv:ifpc=0then390
360 print:print" wieviele bilder darf der"
370 print" rechner sich merken ? ";2*bp
380 min=int(bp/2):max=2*bp+1:x=1500:gosub1770:pr=hv:qz=0
385 ic=bp+1:ic=ic-(ic/2=int(ic/2))
390 if qz*qz<2*bpthenqz=qz+1:goto390
400 deffnin(x)=int((x-int(x))*1000+.5)
402 deffnb(x)=986+2*rl+80*uo
404 deffnbb(x)=986+2*int((x+qz-1)/qz)+80*(x-qz*(int((sn+qz-1)/qz)-1))
406 deffnr(x)=int((x+qz-1)/qz)
408 deffnu(x)=x-qz*(rl-1)
410 rem spielbeginn
420 print"{clr}":forrl=1toqz:foruo=1toqz
430 c1=c1+1:a9=24:ifc1>2*bpthena9=96
440 pokefnb(0),a9:poke54272+fnb(0),0:nextuo,rl
450 fori=0to24:forii=30to39:poke55296+40*i+ii,1:nextii,i
460 z=1
470 x$="sp "+str$(z)+" ":x=z*120+1057:gosub1680:z=z+1:ifz<=hmthen470
480 ifpc=1thenx$="com":x=1857:gosub1680
490 x=rnd(-ti)
500 for i=1tobp:zz=int(rnd(0)*2*bp)+1:z2=int(rnd(0)*2*bp)+1
510 ifbb(zz)=0thenbb(zz)=i:goto540
520 zz=zz+1:ifzz>2*bpthenzz=zz-2*bp
530 goto510
540 ifbb(z2)=0thenbb(z2)=i:goto570
550 z2=z2+1:ifz2>2*bpthen z2=z2-2*bp
560 goto540
570 next i
580 rem
590 rem:spielbeginn
600 rem
610 an=rnd(0)*2:ifan>1then1060
620 sp=1
630 for n=1to7:poke 55328+n+120*sp,0:nextn:rl=1:uo=1
640 aa=0:a1=0:hv=fnb(0):pokehv,peek(hv)or128:m1=hv
650 rem
660 rem:tasten-od.jst.abfrage
670 rem
680 ontjgosub1440,1440,1540
690 ifre=1then780
700 iflr+ou=0then680
710 rl=rl+lr:uo=uo+ou
720 ifrl>qzthenrl=rl-qz:goto720
730 ifrl<1thenrl=rl+qz:goto730
740 ifuo<1thenuo=uo+qz:goto740
750 ifuo>qzthenuo=uo-qz:goto750
760 hv=fnb(0):pokehv,peek(hv)or128
770 pokem1,peek(m1)and127:m1=hv:goto680
780 if(peek(hv)and24)<>24then680
790 sn=(rl-1)*qz+uo:gosub860
800 ifa1<>2thenpokem1,peek(m1)or128:goto680
810 ifa1=2thenforn=1to7:poke55328+n+120*sp,1:nextn:sp=sp+1:ifsp>hmthen1060
820 goto630
830 rem
840 rem:sprite wird gezeigt
850 rem
860 ifsn=aathen680
870 ifbb(sn)<>bb(aa)then890
880 goto990
890 bs=bb(sn):hv=0:ifbs>36thenhv=500:bs=bs-36
900 poke2042,219+bs:for i=1 to 3:f(i)=peek(17000+3*bs+hv+i):nexti
910 pokev+28,4:pokev+41,f(1):pokev+37,f(2):pokev+38,f(3):pokev+27,4
920 pokev+5,36+16*uo:pokev+4,31+16*rl:pokev+21,4:aa=sn:pokefnb(0),32
930 pokev+23,0:pokev+29,0:form=1to900:nextm:pokev+21,0:pokefnb(0),24
940 hv=bb(sn)+sn/1000:gosub40:ifhv<>0thengosub20:mc(pr)=hv
950 a1=a1+1:aa=sn:return
960 rem
970 rem:richtig geraten
980 rem
990 hh=sn:hi=aa:sn=aa:gosub890:sn=hh:aa=hi
995 ss(sp)=ss(sp)+1:x$=str$(ss(sp)):x=120*sp+1097
1000 gosub1680:gosub2220:ifq=1then2270
1010 hv=sn:sn=aa:pokefnbb(sn),32
1020 sn=hv:pokefnbb(sn),32:a1=0:gosub50:return
1030 rem
1040 rem:computer spielt
1050 rem
1060 if pc=0then620
1070 fori=56129to56131:pokei,0:next:a1=0:sp=6:aa=0:c2=1:f1=0
1080 gosub30:hv=mc(x7):ifx7=0then1120
1090 sn=fnin(hv):rl=fnr(sn):uo=fnu(sn)
1100 gosub870:ifa1=1thenhv=y7:goto1090
1110 goto1080
1120 gosub1170:gosub870
1130 fori=1topr-1:ifint(mc(i))<>bb(sn)thennexti:gosub1170:goto1150
1140 sn=fnin(mc(i)):rl=fnr(sn):uo=fnu(sn)
1150 gosub870:ifa1<>2then1120
1160 fori=56129to56131:pokei,1:next:goto620
1170 sn=int(rnd(0)*2*bp)+1
1180 rl=fnr(sn):uo=fnu(sn)
1190 if(peek(fnb(0))and24)=24then1220
1200 sn=sn+ic
1205 ifsn>2*bpthensn=sn-2*bp:goto 1205
1210 goto1180
1220 fori=prto1step-1:iffnin(mc(i))=snthen1200
1230 ifmc(i)<>0thennexti
1235 return
1240 rem
1250 rem
1260 rem - unterroutinen
1270 rem
1310 rem
1320 rem:init v.cia
1330 rem
1340 js=56321:poke56322,224:goto1360
1350 js=56320:poke56322,224
1360 return
1370 rem
1410 rem
1420 rem:j.stickabfrage
1430 rem
1440 jo=peek(js):re=0:ou=0:lr=0
1450 if(joand1)=0thenou=-1
1460 if(joand2)=0thenou=1
1470 if(joand4)=0thenlr=-1
1480 if(joand8)=0thenlr=1
1490 if(joand16)=0thenre=1
1500 return
1510 rem
1520 rem:tastaturabfrage
1530 rem
1540 re=0:ou=0:lr=0:geta$:if a$=""then1540
1550 if a$=chr$(157)then lr=lr-1
1560 if a$=chr$(29)then lr=lr+1
1570 if a$=chr$(17)then ou=ou+1
1580 if a$=chr$(145)then ou=ou-1
1590 if a$=chr$(13)thenre=1
1600 return
1610 rem
1620 rem:alternierendes ja/nein
1630 rem
1640 hv=peek(x):jn=nj:nj=hv:pokex,jn:return
1650 rem
1660 rem:bildschirmpoke
1670 rem
1680 fori=1tolen(x$):pokex+i-1,asc(mid$(x$,i,1))and63:nexti:return
1690 rem
1700 rem:menu-steuerung
1710 rem
1720 gosub1640
1730 ontjgosub1440,1440,1540
1740 if ou+lr<>0thengosub1640
1750 if re=0then1730
1760 return
1770 hv=max-1
1780 x$=mid$(str$(hv),2)+" ":gosub1680
1790 ontjgosub1440,1440,1540
1800 ifou+lr<>0thenhv=hv+1:ifhv=maxthenhv=min
1810 ifre=1thenreturn
1820 goto1780
1830 rem
2200 rem:ende j/n
2210 rem
2220 q=0:ee=0:fori=1tohm:ee=ee+ss(i):next:ee=ee+ss(6):ifee=bpthenq=1
2230 return
2240 rem
2250 rem:ende
2260 rem
2270 print"{clr}":print:print:print" spielstaende:":print
2280 fori=1tohm
2290 print i;". spieler - ";ss(i);" paare":print
2300 next
2310 print:print" computer - ";ss(6);" paare":print:print:print
2320 print" druecken sie eine taste"
2330 poke56322,255
2340 geta$:if a$=""then2340
2350 fori=0to145:bb(i)=0:mc(i)=0:nexti
2360 fori=0to8:ss(i)=0:sp(i)=0:nexti
2370 print"{clr}":clr:goto220
2380 rem
2390 rem
2400 rem:sprite-data
2410 data,,,,,,,,,,,,,,252,,,252,,,252,,,252,,,252,,,252,255,255,252
2411 data221,221,220,221,221,220,221,221,220,221,221,220,221,221,220
2412 data255,255,252,170,170,168,170,170,168,170,170,168,,,,5,1,9,,1,15
2420 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2421 data,,,,,42,160,,191,224,2,255,232,234,170,170
2422 data165,170,90,101,170,89,5,,80,,,,5,,15,2,,1
2430 data,,,,,,,,,,,,,,,,,,,,,,,,,,,85,85,84,
2431 data192,,3,240,3,15,255,255,59,187,191,63,191
2432 data255,63,191,252,15,255,192,,,,,,,,,,,,,1,,5,1,,7
2440 data,,,,,,,,,,,,,,,,,,,,,,,,,,
2441 data 40,,,42,,161,42,2,169,42,170,169,254,170,169,42,170,169,,63,241
2442 data,255,192,,,,,,,,,,,,,2,,15,3,,15
2450 data2,170,160,10,170,168,10,105,168,42,170,168,106,106,168,166,169,166,106
2451 data170,170,170,154,154,166,170,169,170,60,154,104,60,170,168,60,42,,60,10
2452 data,60,8,,60,,,60,,,60,,,255,252,15,255,255,48,255,12,,192,,5,4,9,3,2,9
2460 data,,,,,,,85,64,,85,64,,85,64,,89,64,,85,64,,85,64,,85,64
2461 data,,,,,,,1,85,,1,153,,1,85,85,65,101,102,65,85,85,65,153
2462 data102,65,85,85,64,,102,64,,85,64,,,1,6,1,,
2470 data,60,,,16,,5,20,,5,21,,5,21,64,5,21,64,21,21,80,21,21,80,21,21
2471 data84,85,21,84,85,21,84,85,21,85,85,21,85,,128,,170,170,170,42
2472 data170,170,10,170,168,2,170,168,,,,,,,,,,9,1,2,1,15,5
2480 data,,,,,,,,,4,,,4,,,4,,,40,,,40,,,40,,,42,,,10
2481 data128,2,10,128,42,10,170,170,2,170,168,2,170,168,,170,128,,,
2482 data,,,,,,,,,,,,7,,6,3,,6
2490 data,,,2,170,128,10,170,160,43,255,232,47,255,248,46,170,184,42,190
2491 data168,46,190,184,47,255,248,47,255,248,45,255,120,47,85,248,15,255,240
2492 data3,255,192,,255,,,60,,,,,,,,,,,,,,,,,,2,10,,2,9
2500 data,48,,,184,,,136,,10,118,128,60,204,240,10,118,128,,136,,,184
2501 data,,184,,4,48,,4,16,,4,16,,4,16,,5,16,,5,16,,1,80,,0,80,
2502 data,64,,,64,,,64,,,,,2,5,10,7,5,8
2510 data,,,3,200,,3,234,,3,170,128,3,170,160,10,170,168,42,170,170
2511 data42,170,170,5,85,84,5,85,84,4,16,4,4,16,4,4,16,4,4,21,84,4,21,84
2512 data4,21,84,5,85,84,,,,,,,,,,,,,2,1,,,15,12
2520 data,,,68,64,10,85,64,10,85,64,1,85,64,1,68,64,1,85,68,69
2521 data85,85,85,68,81,21,68,85,85,85,85,85,68,81,17,127,81,17,127,85,81
2522 data127,85,85,127,85,85,127,85,85,,,,,,,,,,,,,2,15,,5,15,9
2530 data,10,170,,42,168,,42,,,85,,1,85,64,5,85,80,5,85,80
2531 data21,85,84,21,85,84,21,85,84,21,85,84,21,85,84,21,85,84,5,85,80
2532 data5,85,80,1,85,64,,85,,,,,,,,,,,,,,5,10,6,3,2,6
2540 data,,,,,,,,,,,,12,,,15,192,,15,255,255,15,255,255,,63
2541 data255,63,63,255,59,63,255,59,63,255,59,127,255,255,127,255,191,85,87
2542 data191,213,87,255,255,255,84,241,69,212,241,69,20,1,69,,,,1,,15,1,,5
2550 data,,,,,,,,,,,,,,,,,,4,,,23,,,81,192,,85,112,
2551 data81,85,92,65,85,95,1,85,87,5,85,87,4,64,23,4,64,87,4,64,68
2552 data 4,32,68,4,,68,8,,130,,,,,9,12,,1,
2560 data,,,,,,,,,,,,,,,,85,1,1,85,65,5,85,81,20,255,209
2561 data85,95,213,21,86,169,21,167,213,85,135,209,5,43,81,1,125,65
2562 data,85,,,,,,,,,,,,,,,,,11,15,12,6,14,3
2570 data,2,128,,10,128,,42,128,,40,,,48,,,48,,,240,
2571 data,204,,,207,,3,3,,3,3,,3,3,,12,3,192,12,,192,20,,192
2572 data85,,80,85,1,84,85,1,84,20,1,84,,,80,,,,5,2,,5,10,
2580 data,16,,,84,,,16,,,84,,1,17,,,16,0,1,85,,4,16,64
2581 data,84,,5,85,64,4,16,64,,84,,21,85,80,16,16,16,1,85,,21,85,80
2582 data84,32,84,,32,,,168,,2,130,128,,,,9,5,3,9,3,5
2590 data,,,,,,,170,160,2,,8,2,,8,2,,8,2,,8,2,5,8,2,21,72
2591 data1,85,85,85,85,85,85,85,85,21,85,85,21,85,85,5,85,85,5,85,85
2592 data5,85,85,5,85,85,1,85,84,1,85,84,,,,1,9,6,15,14,6
2600 data,,,,,,,,,,,,,,,,,,,,,,48,,,192,,3,,
2601 data3,,,35,193,64,43,48,195,35,,254,3,,,20,192,20
2602 data65,240,65,65,63,241,65,48,65,65,4,65,20,,20,2,,15,9,,14
2610 data,,,4,,,20,,,20,,,20,,,22,170,170,22,170,170,20,,
2611 data20,,,20,,,20,,,,,,,,,252,,,48,,,48,,,48,,
2612 data48,,,48,,,48,,,48,,,9,,1,9,,
2620 data,,,,,,,,,,21,64,,85,80,,69,16,1,85,84,1,85,84
2621 data10,175,170,1,111,148,2,149,184,8,85,82,,21,64,,149,96,1,106,148
2622 data9,85,86,6,170,169,5,85,85,5,85,85,21,64,21,55,,55,12,7,,12,14,
2630 data,,,,15,,,15,192,,15,240,,15,240,,15,208,,15,208,,15,208
2631 data,13,84,,21,85,,21,85,,21,85,,85,85,,85,149,,90,149,1,106,149
2632 data1,170,149,5,170,169,42,169,169,170,149,170,170,170,170,5,15,1,15,15,1
2640 data1,17,16,1,85,80,1,101,80,1,69,80,,85,64,,85,64,,85,64,,101,64
2641 data,69,64,,86,64,,84,64,,85,64,,85,64,,85,64,,85,64,,85,64
2642 data,85,64,,125,64,,125,64,,125,64,,125,64,,15,9,9,12,12
2650 data2,170,0,2,170,64,2,170,80,2,170,84,2,170,84,2,170,84,2,170,84
2651 data2,170,84,2,170,84,2,190,84,2,174,84,2,174,84,2,170,84,2,170,84,2,170
2652 data84,2,170,84,2,170,84,2,170,84,2,170,84,2,170,84,2,170,84,1,,9,9,,
2660 data238,238,238,187,187,187,238,238,238,187,187,187,238,238,238,187,187
2661 data187,238,238,238,187,187,187,238,238,238,187,187,187,238,238,238,187
2662 data187,187,238,238,238,187,187,187,238,238,238,187,187,187,238,238,238
2663 data187,187,187,238,238,238,187,187,187,238,238,238,1,,,2,10,6
2670 data,80,,5,64,,5,2,,21,10,128,21,2,,85,,,84,,,84,,,84,,
2671 data84,,,84,0,8,84,,42,84,,8,21,,,21,,,5,,32,5,64,168
2672 data1,64,32,0,80,,,,,,,,1,7,,6,1,
2680 data,,,192,,,192,,,252,,,252,,,252,,3,255,255,,253,95,,149
2681 data39,,85,167,,85,165,,49,165,,241,165,91,49,85,90,61,85,86,253,127
2682 data86,61,,214,61,255,215,61,15,215,253,207,95,50,207,176,,1,6,,9,6
2690 data,,,,,,,,,,,,,,,,,,,,,,,,,84,,1,85,,5,85,64
2691 data21,85,152,37,86,154,33,85,85,32,1,221,8,1,85,2,,84,,168,16,,2,
2692 data,8,,,,,,12,2,,14,3
2700 data,16,,,16,,,16,,,16,,,84,,,68,,,84,,,84,,,84,,,84,
2701 data,84,,,84,,,84,,,84,,1,117,,5,117,64,5,117,64,21,85,80
2702 data20,168,80,20,168,80,20,136,80,2,12,,8,1,1
2710 data,40,40,,168,42,2,128,2,10,,,10,,,20,,,20,,85,20,,64,85,20
2711 data64,85,85,64,85,85,84,85,85,101,21,85,85,21,85,85,85,85,85,169,85,85
2712 data171,252,84,168,79,68,95,255,252,84,84,84,85,85,85,1,,9,15,,15
2720 data,,,,,,,,,,,,,,3,,,252,,3,48,,,48,,7,48,,203,252
2721 data3,255,252,63,255,84,215,255,84,215,255,84,20,0,84,170,170,170
2722 data170,170,170,,,,,,,,,,,,,12,,7,12,,2
2730 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,170,,2,170,,42
2731 data85,42,165,65,127,212,1,95,64,1,21,,1,,,,,,,,,,,,,,,,,12,9,7,,
2740 data,86,,1,86,128,5,150,160,22,149,160,22,149,84,86,149,86,86,149,86
2741 data86,149,86,85,149,86,85,85,86,85,85,85,37,85,164,41,86,144,2,86,128
2742 data,86,,,,,,,,,,,,,,,,,,,,,1,6,3,3,3
2750 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
2751 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
2752 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
2753 data255,255,255,255,255,255,255,255,255,255,255,255,2,2,2,7,7,7
2760 data,15,,,122,192,,122,192,1,122,192,5,15,,4,,,4,,,4,,,4,,
2761 data4,64,,4,64,,4,64,,5,,,68,,,68,,,84,,,20,,,20,,
2762 data4,,,4,,,4,,,1,5,2,7,3,8
10 GOTO 100 20 FL=1:FOR I=PR TO1STEP -1:IF MC(I)=0 THENFL=I:GOTO 24 22 NEXT I 24 IF FL<PR THENFOR I=FL TOPR-1:MC(I)=MC(I+1):NEXT I:MC(PR)=0 26 RETURN 30 X7=0:Y7=0:FOR I=C2 TOPR-1:IF MC(I)=0 THEN36 32 FOR II=I+1 TOPR:IF INT (MC(II))=INT (MC(I)) THEN X7=I:Y7=MC(II):C2=I:GOTO 38 34 NEXT II 36 NEXT I 38 RETURN 40 FOR I=PR TO1STEP -1:IF MC(I)=HV THENHV=0:GOTO 44 42 IF MC(I)<>0 THENNEXT I 44 RETURN 50 HV=0:FOR I=PR TO1STEP -1:IF I<HV+1 THEN58 52 MC(I)=MC(I-HV):IF (MC(I-1))=0 THEN58 54 IF INT (MC(I))=BB(SN) THENHV=HV+1:MC(I)=MC(I-HV):I=I+1 56 NEXT I 58 FOR I=0 TOHV:MC(I)=0:NEXT :RETURN 100 REM :(C)HOLGER WEBER 110 REM :6238 HOFHEIM 120 REM :AM FORSTHAUS 27 130 REM 140 REM :SPRITES,PARAMETER & MENU 150 REM 160 POKE 46,69:CLR :V=53248:POKE V+21,4:FOR I=32 TO41:POKE V+I,6:NEXT 170 POKE V+29,4:POKE V+23,4:POKE 646,1:POKE V+4,160:POKE V+5,160:POKE V+28,4 180 PRINT"{CLR}":PRINT:PRINT:PRINT"{SPACE,3SPACE}CA. 40 SEKUNDEN WARTEN , BITTE" 190 FOR I=1 TO36:FOR J=0 TO62:READ Q:POKE (219+I)*64+J,Q:NEXT J:HV=17000+3*I:READ F 200 POKE HV+1,F:POKE V+41,F:READ F:POKE HV+2,F:POKE V+37,F:READ F:POKE HV+3,F 210 POKE V+38,F:FOR K=1 TO3:READ F:POKE HV+500+K,F:NEXT K:POKE 2042,219+I:NEXT I 220 DIM BB(145):DIM SP(8):DIM F(8):DIM MC(145):DIM SS(8):FOR I=1 TO300:NEXT 230 PC=0:QZ=2:V=53248:PRINT"{CLR}":POKE V+21,0:POKE V+23,0:POKE V+29,0 240 PRINT:PRINT:PRINTTAB( 10);"1 - JOYSTICK PORT 1" 250 PRINT:PRINTTAB( 10);"2 - JOYSTICK PORT 2" 260 PRINT:PRINTTAB( 10);"3 - TASTATUR (CURSORTASTEN)" 270 GET A$:TJ=VAL (A$):IF TJ<1OR TJ>3 THEN270 280 ON TJGOSUB 1340,1350,1360 290 PRINT"{CLR}":PRINT:PRINT:PRINT"{SPACE,2SPACE}SOLL DER RECHNER MITSPIELEN ?{4SPACE}J" 300 JN=10:NJ=14:X=1180:GOSUB 1720:PC=0:IF PEEK (X)=10 THENPC=1 310 PRINT:PRINT"{3SPACE}WIEVIELE ANDERE SPIELER ?{8SPACE}4" 320 MIN=1:MAX=5:X=1260:GOSUB 1770:HM=HV 330 PRINT:PRINT"{3SPACE}WIEVIELE BILDPAARE SOLLEN" 340 PRINT"{3SPACE}AUSGELEGT WERDEN ?{15SPACE}72" 350 MIN=4:MAX=73:X=1380:GOSUB 1770:BP=HV:IF PC=0 THEN390 360 PRINT:PRINT"{3SPACE}WIEVIELE BILDER DARF DER" 370 PRINT"{3SPACE}RECHNER SICH MERKEN ?{11SPACE}";2*BP 380 MIN=INT (BP/2):MAX=2*BP+1:X=1500:GOSUB 1770:PR=HV:QZ=0 385 IC=BP+1:IC=IC-(IC/2=INT (IC/2)) 390 IF QZ*QZ<2*BP THENQZ=QZ+1:GOTO 390 400 DEF FN IN(X)=INT ((X-INT (X))*1000+.5) 402 DEF FN B(X)=986+2*RL+80*UO 404 DEF FN BB(X)=986+2*INT ((X+QZ-1)/QZ)+80*(X-QZ*(INT ((SN+QZ-1)/QZ)-1)) 406 DEF FN R(X)=INT ((X+QZ-1)/QZ) 408 DEF FN U(X)=X-QZ*(RL-1) 410 REM SPIELBEGINN 420 PRINT"{CLR}":FOR RL=1 TOQZ:FOR UO=1 TOQZ 430 C1=C1+1:A9=24:IF C1>2*BP THENA9=96 440 POKE FN B(0),A9:POKE 54272+FN B(0),0:NEXT UO,RL 450 FOR I=0 TO24:FOR II=30 TO39:POKE 55296+40*I+II,1:NEXT II,I 460 Z=1 470 X$="SP "+STR$ (Z)+"{5SPACE}":X=Z*120+1057:GOSUB 1680:Z=Z+1:IF Z<=HM THEN470 480 IF PC=1 THENX$="COM":X=1857:GOSUB 1680 490 X=RND (-TI) 500 FOR I=1 TOBP:ZZ=INT (RND (0)*2*BP)+1:Z2=INT (RND (0)*2*BP)+1 510 IF BB(ZZ)=0 THENBB(ZZ)=I:GOTO 540 520 ZZ=ZZ+1:IF ZZ>2*BP THENZZ=ZZ-2*BP 530 GOTO 510 540 IF BB(Z2)=0 THENBB(Z2)=I:GOTO 570 550 Z2=Z2+1:IF Z2>2*BP THEN Z2=Z2-2*BP 560 GOTO 540 570 NEXT I 580 REM 590 REM :SPIELBEGINN 600 REM 610 AN=RND (0)*2:IF AN>1 THEN1060 620 SP=1 630 FOR N=1 TO7:POKE 55328+N+120*SP,0:NEXT N:RL=1:UO=1 640 AA=0:A1=0:HV=FN B(0):POKE HV,PEEK (HV)OR 128:M1=HV 650 REM 660 REM :TASTEN-OD.JST.ABFRAGE 670 REM 680 ON TJGOSUB 1440,1440,1540 690 IF RE=1 THEN780 700 IF LR+OU=0 THEN680 710 RL=RL+LR:UO=UO+OU 720 IF RL>QZ THENRL=RL-QZ:GOTO 720 730 IF RL<1 THENRL=RL+QZ:GOTO 730 740 IF UO<1 THENUO=UO+QZ:GOTO 740 750 IF UO>QZ THENUO=UO-QZ:GOTO 750 760 HV=FN B(0):POKE HV,PEEK (HV)OR 128 770 POKE M1,PEEK (M1)AND 127:M1=HV:GOTO 680 780 IF (PEEK (HV)AND 24)<>24 THEN680 790 SN=(RL-1)*QZ+UO:GOSUB 860 800 IF A1<>2 THENPOKE M1,PEEK (M1)OR 128:GOTO 680 810 IF A1=2 THENFOR N=1 TO7:POKE 55328+N+120*SP,1:NEXT N:SP=SP+1:IF SP>HM THEN1060 820 GOTO 630 830 REM 840 REM :SPRITE WIRD GEZEIGT 850 REM 860 IF SN=AA THEN680 870 IF BB(SN)<>BB(AA) THEN890 880 GOTO 990 890 BS=BB(SN):HV=0:IF BS>36 THENHV=500:BS=BS-36 900 POKE 2042,219+BS:FOR I=1 TO 3:F(I)=PEEK (17000+3*BS+HV+I):NEXT I 910 POKE V+28,4:POKE V+41,F(1):POKE V+37,F(2):POKE V+38,F(3):POKE V+27,4 920 POKE V+5,36+16*UO:POKE V+4,31+16*RL:POKE V+21,4:AA=SN:POKE FN B(0),32 930 POKE V+23,0:POKE V+29,0:FOR M=1 TO900:NEXT M:POKE V+21,0:POKE FN B(0),24 940 HV=BB(SN)+SN/1000:GOSUB 40:IF HV<>0 THENGOSUB 20:MC(PR)=HV 950 A1=A1+1:AA=SN:RETURN 960 REM 970 REM :RICHTIG GERATEN 980 REM 990 HH=SN:HI=AA:SN=AA:GOSUB 890:SN=HH:AA=HI 995 SS(SP)=SS(SP)+1:X$=STR$ (SS(SP)):X=120*SP+1097 1000 GOSUB 1680:GOSUB 2220:IF Q=1 THEN2270 1010 HV=SN:SN=AA:POKE FN BB(SN),32 1020 SN=HV:POKE FN BB(SN),32:A1=0:GOSUB 50:RETURN 1030 REM 1040 REM :COMPUTER SPIELT 1050 REM 1060 IF PC=0 THEN620 1070 FOR I=56129 TO56131:POKE I,0:NEXT :A1=0:SP=6:AA=0:C2=1:F1=0 1080 GOSUB 30:HV=MC(X7):IF X7=0 THEN1120 1090 SN=FN IN(HV):RL=FN R(SN):UO=FN U(SN) 1100 GOSUB 870:IF A1=1 THENHV=Y7:GOTO 1090 1110 GOTO 1080 1120 GOSUB 1170:GOSUB 870 1130 FOR I=1 TOPR-1:IF INT (MC(I))<>BB(SN) THENNEXT I:GOSUB 1170:GOTO 1150 1140 SN=FN IN(MC(I)):RL=FN R(SN):UO=FN U(SN) 1150 GOSUB 870:IF A1<>2 THEN1120 1160 FOR I=56129 TO56131:POKE I,1:NEXT :GOTO 620 1170 SN=INT (RND (0)*2*BP)+1 1180 RL=FN R(SN):UO=FN U(SN) 1190 IF (PEEK (FN B(0))AND 24)=24 THEN1220 1200 SN=SN+IC 1205 IF SN>2*BP THENSN=SN-2*BP:GOTO 1205 1210 GOTO 1180 1220 FOR I=PR TO1STEP -1:IF FN IN(MC(I))=SN THEN1200 1230 IF MC(I)<>0 THENNEXT I 1235 RETURN 1240 REM 1250 REM 1260 REM - UNTERROUTINEN 1270 REM 1310 REM 1320 REM :INIT V.CIA 1330 REM 1340 JS=56321:POKE 56322,224:GOTO 1360 1350 JS=56320:POKE 56322,224 1360 RETURN 1370 REM 1410 REM 1420 REM :J.STICKABFRAGE 1430 REM 1440 JO=PEEK (JS):RE=0:OU=0:LR=0 1450 IF (JOAND 1)=0 THENOU=-1 1460 IF (JOAND 2)=0 THENOU=1 1470 IF (JOAND 4)=0 THENLR=-1 1480 IF (JOAND 8)=0 THENLR=1 1490 IF (JOAND 16)=0 THENRE=1 1500 RETURN 1510 REM 1520 REM :TASTATURABFRAGE 1530 REM 1540 RE=0:OU=0:LR=0:GET A$:IF A$="" THEN1540 1550 IF A$=CHR$ (157) THEN LR=LR-1 1560 IF A$=CHR$ (29) THEN LR=LR+1 1570 IF A$=CHR$ (17) THEN OU=OU+1 1580 IF A$=CHR$ (145) THEN OU=OU-1 1590 IF A$=CHR$ (13) THENRE=1 1600 RETURN 1610 REM 1620 REM :ALTERNIERENDES JA/NEIN 1630 REM 1640 HV=PEEK (X):JN=NJ:NJ=HV:POKE X,JN:RETURN 1650 REM 1660 REM :BILDSCHIRMPOKE 1670 REM 1680 FOR I=1 TOLEN (X$):POKE X+I-1,ASC (MID$ (X$,I,1))AND 63:NEXT I:RETURN 1690 REM 1700 REM :MENU-STEUERUNG 1710 REM 1720 GOSUB 1640 1730 ON TJGOSUB 1440,1440,1540 1740 IF OU+LR<>0 THENGOSUB 1640 1750 IF RE=0 THEN1730 1760 RETURN 1770 HV=MAX-1 1780 X$=MID$ (STR$ (HV),2)+"{2SPACE}":GOSUB 1680 1790 ON TJGOSUB 1440,1440,1540 1800 IF OU+LR<>0 THENHV=HV+1:IF HV=MAX THENHV=MIN 1810 IF RE=1 THENRETURN 1820 GOTO 1780 1830 REM 2200 REM :ENDE J/N 2210 REM 2220 Q=0:EE=0:FOR I=1 TOHM:EE=EE+SS(I):NEXT :EE=EE+SS(6):IF EE=BP THENQ=1 2230 RETURN 2240 REM 2250 REM :ENDE 2260 REM 2270 PRINT"{CLR}":PRINT:PRINT:PRINT"{SPACE,2SPACE}SPIELSTAENDE:":PRINT 2280 FOR I=1 TOHM 2290 PRINT I;". SPIELER{2SPACE}-{2SPACE}";SS(I);" PAARE":PRINT 2300 NEXT 2310 PRINT:PRINT"{4SPACE}COMPUTER{2SPACE}-{2SPACE}";SS(6);" PAARE":PRINT:PRINT:PRINT 2320 PRINT"{8SPACE}DRUECKEN SIE EINE TASTE" 2330 POKE 56322,255 2340 GET A$:IF A$="" THEN2340 2350 FOR I=0 TO145:BB(I)=0:MC(I)=0:NEXT I 2360 FOR I=0 TO8:SS(I)=0:SP(I)=0:NEXT I 2370 PRINT"{CLR}":CLR :GOTO 220 2380 REM 2390 REM 2400 REM :SPRITE-DATA 2410 DATA ,,,,,,,,,,,,,,252,,,252,,,252,,,252,,,252,,,252,255,255,252 2411 DATA 221,221,220,221,221,220,221,221,220,221,221,220,221,221,220 2412 DATA 255,255,252,170,170,168,170,170,168,170,170,168,,,,5,1,9,,1,15 2420 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2421 DATA ,,,,,42,160,,191,224,2,255,232,234,170,170 2422 DATA 165,170,90,101,170,89,5,,80,,,,5,,15,2,,1 2430 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,85,85,84, 2431 DATA 192,,3,240,3,15,255,255,59,187,191,63,191 2432 DATA 255,63,191,252,15,255,192,,,,,,,,,,,,,1,,5,1,,7 2440 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,, 2441 DATA 40,,,42,,161,42,2,169,42,170,169,254,170,169,42,170,169,,63,241 2442 DATA ,255,192,,,,,,,,,,,,,2,,15,3,,15 2450 DATA 2,170,160,10,170,168,10,105,168,42,170,168,106,106,168,166,169,166,106 2451 DATA 170,170,170,154,154,166,170,169,170,60,154,104,60,170,168,60,42,,60,10 2452 DATA ,60,8,,60,,,60,,,60,,,255,252,15,255,255,48,255,12,,192,,5,4,9,3,2,9 2460 DATA ,,,,,,,85,64,,85,64,,85,64,,89,64,,85,64,,85,64,,85,64 2461 DATA ,,,,,,,1,85,,1,153,,1,85,85,65,101,102,65,85,85,65,153 2462 DATA 102,65,85,85,64,,102,64,,85,64,,,1,6,1,, 2470 DATA ,60,,,16,,5,20,,5,21,,5,21,64,5,21,64,21,21,80,21,21,80,21,21 2471 DATA 84,85,21,84,85,21,84,85,21,85,85,21,85,,128,,170,170,170,42 2472 DATA 170,170,10,170,168,2,170,168,,,,,,,,,,9,1,2,1,15,5 2480 DATA ,,,,,,,,,4,,,4,,,4,,,40,,,40,,,40,,,42,,,10 2481 DATA 128,2,10,128,42,10,170,170,2,170,168,2,170,168,,170,128,,, 2482 DATA ,,,,,,,,,,,,7,,6,3,,6 2490 DATA ,,,2,170,128,10,170,160,43,255,232,47,255,248,46,170,184,42,190 2491 DATA 168,46,190,184,47,255,248,47,255,248,45,255,120,47,85,248,15,255,240 2492 DATA 3,255,192,,255,,,60,,,,,,,,,,,,,,,,,,2,10,,2,9 2500 DATA ,48,,,184,,,136,,10,118,128,60,204,240,10,118,128,,136,,,184 2501 DATA ,,184,,4,48,,4,16,,4,16,,4,16,,5,16,,5,16,,1,80,,0,80, 2502 DATA ,64,,,64,,,64,,,,,2,5,10,7,5,8 2510 DATA ,,,3,200,,3,234,,3,170,128,3,170,160,10,170,168,42,170,170 2511 DATA 42,170,170,5,85,84,5,85,84,4,16,4,4,16,4,4,16,4,4,21,84,4,21,84 2512 DATA 4,21,84,5,85,84,,,,,,,,,,,,,2,1,,,15,12 2520 DATA ,,,68,64,10,85,64,10,85,64,1,85,64,1,68,64,1,85,68,69 2521 DATA 85,85,85,68,81,21,68,85,85,85,85,85,68,81,17,127,81,17,127,85,81 2522 DATA 127,85,85,127,85,85,127,85,85,,,,,,,,,,,,,2,15,,5,15,9 2530 DATA ,10,170,,42,168,,42,,,85,,1,85,64,5,85,80,5,85,80 2531 DATA 21,85,84,21,85,84,21,85,84,21,85,84,21,85,84,21,85,84,5,85,80 2532 DATA 5,85,80,1,85,64,,85,,,,,,,,,,,,,,5,10,6,3,2,6 2540 DATA ,,,,,,,,,,,,12,,,15,192,,15,255,255,15,255,255,,63 2541 DATA 255,63,63,255,59,63,255,59,63,255,59,127,255,255,127,255,191,85,87 2542 DATA 191,213,87,255,255,255,84,241,69,212,241,69,20,1,69,,,,1,,15,1,,5 2550 DATA ,,,,,,,,,,,,,,,,,,4,,,23,,,81,192,,85,112, 2551 DATA 81,85,92,65,85,95,1,85,87,5,85,87,4,64,23,4,64,87,4,64,68 2552 DATA 4,32,68,4,,68,8,,130,,,,,9,12,,1, 2560 DATA ,,,,,,,,,,,,,,,,85,1,1,85,65,5,85,81,20,255,209 2561 DATA 85,95,213,21,86,169,21,167,213,85,135,209,5,43,81,1,125,65 2562 DATA ,85,,,,,,,,,,,,,,,,,11,15,12,6,14,3 2570 DATA ,2,128,,10,128,,42,128,,40,,,48,,,48,,,240, 2571 DATA ,204,,,207,,3,3,,3,3,,3,3,,12,3,192,12,,192,20,,192 2572 DATA 85,,80,85,1,84,85,1,84,20,1,84,,,80,,,,5,2,,5,10, 2580 DATA ,16,,,84,,,16,,,84,,1,17,,,16,0,1,85,,4,16,64 2581 DATA ,84,,5,85,64,4,16,64,,84,,21,85,80,16,16,16,1,85,,21,85,80 2582 DATA 84,32,84,,32,,,168,,2,130,128,,,,9,5,3,9,3,5 2590 DATA ,,,,,,,170,160,2,,8,2,,8,2,,8,2,,8,2,5,8,2,21,72 2591 DATA 1,85,85,85,85,85,85,85,85,21,85,85,21,85,85,5,85,85,5,85,85 2592 DATA 5,85,85,5,85,85,1,85,84,1,85,84,,,,1,9,6,15,14,6 2600 DATA ,,,,,,,,,,,,,,,,,,,,,,48,,,192,,3,, 2601 DATA 3,,,35,193,64,43,48,195,35,,254,3,,,20,192,20 2602 DATA 65,240,65,65,63,241,65,48,65,65,4,65,20,,20,2,,15,9,,14 2610 DATA ,,,4,,,20,,,20,,,20,,,22,170,170,22,170,170,20,, 2611 DATA 20,,,20,,,20,,,,,,,,,252,,,48,,,48,,,48,, 2612 DATA 48,,,48,,,48,,,48,,,9,,1,9,, 2620 DATA ,,,,,,,,,,21,64,,85,80,,69,16,1,85,84,1,85,84 2621 DATA 10,175,170,1,111,148,2,149,184,8,85,82,,21,64,,149,96,1,106,148 2622 DATA 9,85,86,6,170,169,5,85,85,5,85,85,21,64,21,55,,55,12,7,,12,14, 2630 DATA ,,,,15,,,15,192,,15,240,,15,240,,15,208,,15,208,,15,208 2631 DATA ,13,84,,21,85,,21,85,,21,85,,85,85,,85,149,,90,149,1,106,149 2632 DATA 1,170,149,5,170,169,42,169,169,170,149,170,170,170,170,5,15,1,15,15,1 2640 DATA 1,17,16,1,85,80,1,101,80,1,69,80,,85,64,,85,64,,85,64,,101,64 2641 DATA ,69,64,,86,64,,84,64,,85,64,,85,64,,85,64,,85,64,,85,64 2642 DATA ,85,64,,125,64,,125,64,,125,64,,125,64,,15,9,9,12,12 2650 DATA 2,170,0,2,170,64,2,170,80,2,170,84,2,170,84,2,170,84,2,170,84 2651 DATA 2,170,84,2,170,84,2,190,84,2,174,84,2,174,84,2,170,84,2,170,84,2,170 2652 DATA 84,2,170,84,2,170,84,2,170,84,2,170,84,2,170,84,2,170,84,1,,9,9,, 2660 DATA 238,238,238,187,187,187,238,238,238,187,187,187,238,238,238,187,187 2661 DATA 187,238,238,238,187,187,187,238,238,238,187,187,187,238,238,238,187 2662 DATA 187,187,238,238,238,187,187,187,238,238,238,187,187,187,238,238,238 2663 DATA 187,187,187,238,238,238,187,187,187,238,238,238,1,,,2,10,6 2670 DATA ,80,,5,64,,5,2,,21,10,128,21,2,,85,,,84,,,84,,,84,, 2671 DATA 84,,,84,0,8,84,,42,84,,8,21,,,21,,,5,,32,5,64,168 2672 DATA 1,64,32,0,80,,,,,,,,1,7,,6,1, 2680 DATA ,,,192,,,192,,,252,,,252,,,252,,3,255,255,,253,95,,149 2681 DATA 39,,85,167,,85,165,,49,165,,241,165,91,49,85,90,61,85,86,253,127 2682 DATA 86,61,,214,61,255,215,61,15,215,253,207,95,50,207,176,,1,6,,9,6 2690 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,84,,1,85,,5,85,64 2691 DATA 21,85,152,37,86,154,33,85,85,32,1,221,8,1,85,2,,84,,168,16,,2, 2692 DATA ,8,,,,,,12,2,,14,3 2700 DATA ,16,,,16,,,16,,,16,,,84,,,68,,,84,,,84,,,84,,,84, 2701 DATA ,84,,,84,,,84,,,84,,1,117,,5,117,64,5,117,64,21,85,80 2702 DATA 20,168,80,20,168,80,20,136,80,2,12,,8,1,1 2710 DATA ,40,40,,168,42,2,128,2,10,,,10,,,20,,,20,,85,20,,64,85,20 2711 DATA 64,85,85,64,85,85,84,85,85,101,21,85,85,21,85,85,85,85,85,169,85,85 2712 DATA 171,252,84,168,79,68,95,255,252,84,84,84,85,85,85,1,,9,15,,15 2720 DATA ,,,,,,,,,,,,,,3,,,252,,3,48,,,48,,7,48,,203,252 2721 DATA 3,255,252,63,255,84,215,255,84,215,255,84,20,0,84,170,170,170 2722 DATA 170,170,170,,,,,,,,,,,,,12,,7,12,,2 2730 DATA ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,170,,2,170,,42 2731 DATA 85,42,165,65,127,212,1,95,64,1,21,,1,,,,,,,,,,,,,,,,,12,9,7,, 2740 DATA ,86,,1,86,128,5,150,160,22,149,160,22,149,84,86,149,86,86,149,86 2741 DATA 86,149,86,85,149,86,85,85,86,85,85,85,37,85,164,41,86,144,2,86,128 2742 DATA ,86,,,,,,,,,,,,,,,,,,,,,1,6,3,3,3 2750 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 2751 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 2752 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 2753 DATA 255,255,255,255,255,255,255,255,255,255,255,255,2,2,2,7,7,7 2760 DATA ,15,,,122,192,,122,192,1,122,192,5,15,,4,,,4,,,4,,,4,, 2761 DATA 4,64,,4,64,,4,64,,5,,,68,,,68,,,84,,,20,,,20,, 2762 DATA 4,,,4,,,4,,,1,5,2,7,3,8
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen