1000 PRINT"[147][154]":d 6,6:dz:LZ$=dU(" ",40)
1010 DIM FE(18),X(18),Y(18),MX(18),MY(18),BX(18),BY(18),M$(15),L$(15),R(15)
1020 FOR S=61440 TO 61475:POKE S,255:NEXT:FOR S=61476 TO 61543:POKE S,0:NEXT
1030 :
1040 d1 TITEL
1050 PRINTd(11,7)"* DIETMAR LINHART *"
1060 PRINTd(6,10)"* SCHWAEBISCH GMUEND * 1988 *":PRINTd(17,13)"* * *"
1070 PRINTd(0,18)"";:d#"SELEKTION DURCH DEN TARN-EFFEKT"
1080 PRINTd(6,21)"[154]BEI B[154]IRKENSPANNER ODER M[154]AUS ?"
1090 POKE 198,0:d :GET B$:d) B$="B" OR B$="M" OR B$="E"
1100 IF B$="E" THEN d2 ENDE
1110 IF B$="B" THEN d0 3000:dG:d0 3500:REM DATA FALTER ODER DATA MAUS
1120 PRINTd(0,21)LZ$:READ V$,T$:PRINTd(0,21)"";:d# V$
1130 PRINTd(0,24)"[154]";:d#"MOMENT BITTE!":d3 PARAMETER
1140 :
1150 d1 BEGINN
1160 SZ=RND(-TI):SE=0:DM=0:HM=0:S=1:FOR I=1 TO 18:FE(I)=0:NEXT:d3 BILDAUFBAU
1170 :
1180 d1 SELEKTION
1190 SE=SE+1:PRINTd(17,18)""SE:P=PEEK(203):IF P=64 THEN d2 AUSLESE
1200 IF P=14 THEN d2 ENDE
1210 PRINTd(10,24)"";:IF P=31 THEN S=-S
1220 IF S=1 THEN PRINT EIN$;:dG:PRINT AUS$;:d :d) PEEK(203)<>31
1230 :
1240 d1 AUSLESE
1250 Z1=INT(RND(1)*N)+1:C=FE(Z1):ZQ=INT(RND(1)*(Q+1))
1260 IF C=TF AND ZQ<Q THEN d2 AUSLESE
1270 IF S=1 THEN d3 GREIFEN
1280 PRINTd(X(Z1),Y(Z1))L$(H):IF C=11 THEN DM=DM+1:dG:HM=HM+1
1290 PRINTd(23-LEN(STR$(DM)),21)DM:PRINTd(33-LEN(STR$(HM)),21)HM
1300 :
1310 d1 VERMEHRUNG
1320 d :Z2=INT(RND(1)*N)+1:d) Z2<>Z1
1330 C=FE(Z2):FE(Z1)=C:POKE 646,C:IF S=1 THEN d3 ERSETZEN
1340 PRINTd(X(Z1),Y(Z1))M$(H)
1350 :
1360 d1 VERGLEICH
1370 FOR V=1 TO N-1:V1=FE(V):V2=FE(V+1):IF V1<>V2 THEN d2 SELEKTION
1380 NEXT V:PRINTd(0,24)" [154][W]IEDERHOLUNG  [E]NDE  [A]NDERE BEUTE";
1390 d :P=PEEK(203):d) P=9 OR P=14 OR P=10:IF P=14 THEN d2 ENDE
1400 POKE 53269,0:PRINT"[147]":IF P=10 THEN d2 TITEL
1410 POKE198,0:d2 BEGINN
1420 :
1430 d1 GREIFEN
1440 d 1,100,0,100,0,3,0:d 1,194,0,0,0:dc 1,BX(Z1),BY(Z1),3,20
1450 FOR T=1 TO 100:NEXT:d 1,195,0,0,0:PRINTd(X(Z1),Y(Z1))L$(H)
1460 dc 1,350,0,3,40:d4
1470 :
1480 d1 ERSETZEN
1490 df1:d 2,MX(Z2),MY(Z2),MX(Z2),MY(Z2),0,0:d 2,193,C,0,0
1500 dc 2,MX(Z1),MY(Z1),0,40:PRINTd(X(Z1),Y(Z1))M$(H):dh 2:d4
1510 :
1520 d1 BILDAUFBAU
1530 PRINT"[147]";LZ$;"  **  TARNUNG ALS SELEKTIONSFAKTOR  **  ";LZ$;
1540 PRINT" [151]"M$M$M$" 1 BLOCK = 6 "T$"[155] "M$M$M$" [154]";LZ$
1550 PRINTd(2,7)"UNTERGRUNDFARBE ?":PRINTd(3,9)"H[146][154]ELL / D[146][154]UNKEL"
1560 PRINTd(2,12)"[1,2,3] BLOECKE ?":PRINTd(2,15)"TARNWIRKUNG 0-9 ?"
1570 PRINTd(2,18)" SELEKTIONEN : [146]":PRINTd(2,21)" BEUTEBILANZ : [146]";
1580 FOR I=3 TO 4:d I,192,0,1,0:NEXT:d 3,216,216,216,216,0,0
1590 d 4,296,216,296,216,0,0:PRINTTAB(22)"[154]0 [151]"M$;TAB(32)"[154]0 [152]"M$
1600 d 7,20:PRINTd(18,7)IN$;:REM BEGINN DER EINGABEN
1610 POKE 198,0:d :GET C$:d) C$="D" OR C$="H" OR C$="E"
1620 PRINT C$:IF C$="E" THEN d2 ENDE
1630 IF C$="H"THEN H=F1:TF=12:dG:H=F3:TF=11
1640 d Y-1,X-1,15,13,R(H),12:PRINTd(18,12)IN$;
1650 POKE 198,0:d :GET N$:d) N$="E" OR N$="1" OR N$="2" OR N$="3"
1660 PRINT N$:N=VAL(N$)*6:IF N$="E" THEN d2 ENDE
1670 POKE 646,11:FOR I=1 TO N/2:d :Z=INT(RND(1)*N)+1:d) FE(Z)=0
1680 FE(Z)=11:PRINTd(X(Z),Y(Z))M$(H):NEXT
1690 POKE 646,12:FOR I=1 TO N:IF FE(I)=0 THEN PRINTd(X(I),Y(I))M$(H):FE(I)=12
1700 NEXT:PRINTd(18,15)IN$;:POKE 198,0:d :GET Q$
1710 d) Q$>CHR$(47)AND Q$<CHR$(58) OR Q$="E":IF Q$="E" THEN d2 ENDE
1720 Q=VAL(Q$):PRINTd(14,15)"[154]... "Q$
1730 PRINTd(0,24)"";:d#"STARTEN MIT DER SPACE-TASTE !"
1740 d :GET A$:d) A$=CHR$(32)OR A$="E":di:IF A$="E" THEN d2 ENDE
1750 PRINTd(0,24)"[154]    VOGEL EIN[154]/AUS MIT DER [V]-TASTE   ";:d4
1760 :
1770 d1 PARAMETER
1780 READ X :Z=0:FORI=1TO6:FORJ=0TO2:Z=Z+1:X(Z)=X+J*5:NEXT:NEXT
1790 READ Y :Z=0:FORI=YTOY+10STEP2:FORJ=0TO2:Z=Z+1:Y(Z)=I:NEXT:NEXT
1800 READ MX:Z=0:FORI=1TO6:FORJ=0TO2:Z=Z+1:MX(Z)=MX+J*40:NEXT:NEXT
1810 READ MY:Z=0:FORI=MYTOMY+80STEP16:FORJ=0TO2:Z=Z+1:MY(Z)=I:NEXT:NEXT
1820 READ BX:Z=0:FORI=1TO6:FORJ=0TO2:Z=Z+1:BX(Z)=BX+J*40:NEXT:NEXT
1830 READ BY:Z=0:FORI=BYTOBY+80STEP16:FORJ=0TO2:Z=Z+1:BY(Z)=I:NEXT:NEXT
1840 FOR AD=57624 TO 57655:READ B:POKE AD,B:NEXT
1850 FOR AD=61544 TO 61695:READ B:POKE AD,B:NEXT
1860 F0=6:F1=15:F2=14:F3=9:de F0,F1,F2,F3:R(F1)=99:R(F3)=227:M$="$%&"
1870 M$(F1)=CHR$(164)+CHR$(165)+CHR$(166):M$(F3)=CHR$(18)+M$(F1)
1880 L$(F1)=dU(CHR$(160),3):L$(F3)=CHR$(18)+L$(F1)
1890 EIN$="EIN[154]/AUS":AUS$="[154]EIN/AUS":IN$="[158]?[157]":d4
1900 :
1910 d1 ENDE
1920 POKE 53269,0:PRINT"[147]":PRINTd(11,9)"[154]PROGRAMM BEENDET"
1930 df 1:POKE 198,0:d 14,6:PRINT"[147]":dg:di:END
1940 :
3000 REM **** DATA FALTER ********
3010 :
3020 DATA"BEIM BIRKENSPANNER","FALTER"
3030 DATA 24,8,216,101,185,78,0,0,0,24,24,0,0,0
3040 DATA 1,2,0,1,6,15,26,15,235,28,127,221,255,190,255,156
3050 DATA 192,32,0,192,176,248,172,248,235,192,2,28,32,0,127,0
3060 DATA 1,221,192,6,255,176,15,190,248,26,255,172,15,156,248,0
3070 DATA 248,0,0,126,0,63,63,128,254,31,193,252,143,227,248,199
3080 DATA 247,240,255,255,224,255,255,192,255,255,128,255,255,192,255,255
3090 DATA 224,199,255,240,131,255,248,1,255,252,1,128,254,3,0,58
3100 DATA 1,128,30,2,64,12,0,0,4,0,0,4,0,0,0,0
3110 DATA 255,128,0,127,224,240,63,241,216,31,243,254,15,255,224,7
3120 DATA 255,192,3,255,192,1,255,224,1,255,248,3,255,254,7,255
3130 DATA 255,31,231,255,63,192,255,31,128,63,15,0,63,7,0,31
3140 DATA 2,0,31,0,0,15,0,0,7,0,0,3,0,0,1,0
3150 :
3500 REM **** DATA MAUS **********
3510 :
3520 DATA "AM BEISPIEL VON MAEUSEN","MAEUSE"
3530 DATA 24,8,216,101,201,76,0,0,0,24,24,0,0,0
3540 DATA 0,22,13,31,39,127,193,3,0,126,255,255,255,255,128,1
3550 DATA 48,12,130,193,225,242,204,128,0,48,22,126,12,13,255,130
3560 DATA 31,255,193,39,255,225,127,255,242,193,128,204, 3, 1,128, 0
3570 DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3580 DATA 0,255,0,31,255,192,7,125,240,27,222,248,60,246,252,15
3590 DATA 25,254,31,231,254,62,126,26,126,60,14,252,60,12, 0,24
3600 DATA 24,0,62,0,0,69,0,0,255,128,0,127,224,240,63,241
3610 DATA 216,31,243,252,15,255,228,7,255,192,3,255,192,1,255,224
3620 DATA 1,255,248,3,255,254,7,255,255,31,231,255,63,192,255,31
3630 DATA 128,63,15,0,63,7,0,31,2,0,31,0,0,15,0,0,7,0,0,3,0,0,1,0