home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 34 / 64er_Magazin_Sonderheft_34_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / tarnwirkung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  126 lines
  1. 1000 print"[147][154]":D 6,6:DZ:lz$=Du(" ",40)
  2. 1010 dim fe(18),x(18),y(18),mx(18),my(18),bx(18),by(18),m$(15),l$(15),r(15)
  3. 1020 for s=61440 to 61475:poke s,255:next:for s=61476 to 61543:poke s,0:next
  4. 1030 :
  5. 1040 D1 titel
  6. 1050 printD(11,7)"* dietmar linhart *"
  7. 1060 printD(6,10)"* schwaebisch gmuend * 1988 *":printD(17,13)"* * *"
  8. 1070 printD(0,18)"";:D#"selektion durch den tarn-effekt"
  9. 1080 printD(6,21)"[154]bei b[154]irkenspanner oder m[154]aus ?"
  10. 1090 poke 198,0:D :get b$:D) b$="b" or b$="m" or b$="e"
  11. 1100 if b$="e" then D2 ende
  12. 1110 if b$="b" then D0 3000:Dg:D0 3500:rem data falter oder data maus
  13. 1120 printD(0,21)lz$:read v$,t$:printD(0,21)"";:D# v$
  14. 1130 printD(0,24)"[154]";:D#"moment bitte!":D3 parameter
  15. 1140 :
  16. 1150 D1 beginn
  17. 1160 sz=rnd(-ti):se=0:dm=0:hm=0:s=1:for i=1 to 18:fe(i)=0:next:D3 bildaufbau
  18. 1170 :
  19. 1180 D1 selektion
  20. 1190 se=se+1:printD(17,18)""se:p=peek(203):if p=64 then D2 auslese
  21. 1200 if p=14 then D2 ende
  22. 1210 printD(10,24)"";:if p=31 then s=-s
  23. 1220 if s=1 then print ein$;:Dg:print aus$;:D :D) peek(203)<>31
  24. 1230 :
  25. 1240 D1 auslese
  26. 1250 z1=int(rnd(1)*n)+1:c=fe(z1):zq=int(rnd(1)*(q+1))
  27. 1260 if c=tf and zq<q then D2 auslese
  28. 1270 if s=1 then D3 greifen
  29. 1280 printD(x(z1),y(z1))l$(h):if c=11 then dm=dm+1:Dg:hm=hm+1
  30. 1290 printD(23-len(str$(dm)),21)dm:printD(33-len(str$(hm)),21)hm
  31. 1300 :
  32. 1310 D1 vermehrung
  33. 1320 D :z2=int(rnd(1)*n)+1:D) z2<>z1
  34. 1330 c=fe(z2):fe(z1)=c:poke 646,c:if s=1 then D3 ersetzen
  35. 1340 printD(x(z1),y(z1))m$(h)
  36. 1350 :
  37. 1360 D1 vergleich
  38. 1370 for v=1 to n-1:v1=fe(v):v2=fe(v+1):if v1<>v2 then D2 selektion
  39. 1380 next v:printD(0,24)" [154][w]iederholung  [e]nde  [a]ndere beute";
  40. 1390 D :p=peek(203):D) p=9 or p=14 or p=10:if p=14 then D2 ende
  41. 1400 poke 53269,0:print"[147]":if p=10 then D2 titel
  42. 1410 poke198,0:D2 beginn
  43. 1420 :
  44. 1430 D1 greifen
  45. 1440 D 1,100,0,100,0,3,0:D 1,194,0,0,0:DC 1,bx(z1),by(z1),3,20
  46. 1450 for t=1 to 100:next:D 1,195,0,0,0:printD(x(z1),y(z1))l$(h)
  47. 1460 DC 1,350,0,3,40:D4
  48. 1470 :
  49. 1480 D1 ersetzen
  50. 1490 DF1:D 2,mx(z2),my(z2),mx(z2),my(z2),0,0:D 2,193,c,0,0
  51. 1500 DC 2,mx(z1),my(z1),0,40:printD(x(z1),y(z1))m$(h):DH 2:D4
  52. 1510 :
  53. 1520 D1 bildaufbau
  54. 1530 print"[147]";lz$;"  **  tarnung als selektionsfaktor  **  ";lz$;
  55. 1540 print" [151]"m$m$m$" 1 block = 6 "t$"[155] "m$m$m$" [154]";lz$
  56. 1550 printD(2,7)"untergrundfarbe ?":printD(3,9)"h[146][154]ell / d[146][154]unkel"
  57. 1560 printD(2,12)"[1,2,3] bloecke ?":printD(2,15)"tarnwirkung 0-9 ?"
  58. 1570 printD(2,18)" selektionen : [146]":printD(2,21)" beutebilanz : [146]";
  59. 1580 for i=3 to 4:D i,192,0,1,0:next:D 3,216,216,216,216,0,0
  60. 1590 D 4,296,216,296,216,0,0:printtab(22)"[154]0 [151]"m$;tab(32)"[154]0 [152]"m$
  61. 1600 D 7,20:printD(18,7)in$;:rem beginn der eingaben
  62. 1610 poke 198,0:D :get c$:D) c$="d" or c$="h" or c$="e"
  63. 1620 print c$:if c$="e" then D2 ende
  64. 1630 if c$="h"then h=f1:tf=12:Dg:h=f3:tf=11
  65. 1640 D y-1,x-1,15,13,r(h),12:printD(18,12)in$;
  66. 1650 poke 198,0:D :get n$:D) n$="e" or n$="1" or n$="2" or n$="3"
  67. 1660 print n$:n=val(n$)*6:if n$="e" then D2 ende
  68. 1670 poke 646,11:for i=1 to n/2:D :z=int(rnd(1)*n)+1:D) fe(z)=0
  69. 1680 fe(z)=11:printD(x(z),y(z))m$(h):next
  70. 1690 poke 646,12:for i=1 to n:if fe(i)=0 then printD(x(i),y(i))m$(h):fe(i)=12
  71. 1700 next:printD(18,15)in$;:poke 198,0:D :get q$
  72. 1710 D) q$>chr$(47)and q$<chr$(58) or q$="e":if q$="e" then D2 ende
  73. 1720 q=val(q$):printD(14,15)"[154]... "q$
  74. 1730 printD(0,24)"";:D#"starten mit der space-taste !"
  75. 1740 D :get a$:D) a$=chr$(32)or a$="e":DI:if a$="e" then D2 ende
  76. 1750 printD(0,24)"[154]    vogel ein[154]/aus mit der [v]-taste   ";:D4
  77. 1760 :
  78. 1770 D1 parameter
  79. 1780 read x :z=0:fori=1to6:forj=0to2:z=z+1:x(z)=x+j*5:next:next
  80. 1790 read y :z=0:fori=ytoy+10step2:forj=0to2:z=z+1:y(z)=i:next:next
  81. 1800 read mx:z=0:fori=1to6:forj=0to2:z=z+1:mx(z)=mx+j*40:next:next
  82. 1810 read my:z=0:fori=mytomy+80step16:forj=0to2:z=z+1:my(z)=i:next:next
  83. 1820 read bx:z=0:fori=1to6:forj=0to2:z=z+1:bx(z)=bx+j*40:next:next
  84. 1830 read by:z=0:fori=bytoby+80step16:forj=0to2:z=z+1:by(z)=i:next:next
  85. 1840 for ad=57624 to 57655:read b:poke ad,b:next
  86. 1850 for ad=61544 to 61695:read b:poke ad,b:next
  87. 1860 f0=6:f1=15:f2=14:f3=9:DE f0,f1,f2,f3:r(f1)=99:r(f3)=227:m$="$%&"
  88. 1870 m$(f1)=chr$(164)+chr$(165)+chr$(166):m$(f3)=chr$(18)+m$(f1)
  89. 1880 l$(f1)=Du(chr$(160),3):l$(f3)=chr$(18)+l$(f1)
  90. 1890 ein$="ein[154]/aus":aus$="[154]ein/aus":in$="[158]?[157]":D4
  91. 1900 :
  92. 1910 D1 ende
  93. 1920 poke 53269,0:print"[147]":printD(11,9)"[154]programm beendet"
  94. 1930 DF 1:poke 198,0:D 14,6:print"[147]":DG:DI:end
  95. 1940 :
  96. 3000 rem **** data falter ********
  97. 3010 :
  98. 3020 data"beim birkenspanner","falter"
  99. 3030 data 24,8,216,101,185,78,0,0,0,24,24,0,0,0
  100. 3040 data 1,2,0,1,6,15,26,15,235,28,127,221,255,190,255,156
  101. 3050 data 192,32,0,192,176,248,172,248,235,192,2,28,32,0,127,0
  102. 3060 data 1,221,192,6,255,176,15,190,248,26,255,172,15,156,248,0
  103. 3070 data 248,0,0,126,0,63,63,128,254,31,193,252,143,227,248,199
  104. 3080 data 247,240,255,255,224,255,255,192,255,255,128,255,255,192,255,255
  105. 3090 data 224,199,255,240,131,255,248,1,255,252,1,128,254,3,0,58
  106. 3100 data 1,128,30,2,64,12,0,0,4,0,0,4,0,0,0,0
  107. 3110 data 255,128,0,127,224,240,63,241,216,31,243,254,15,255,224,7
  108. 3120 data 255,192,3,255,192,1,255,224,1,255,248,3,255,254,7,255
  109. 3130 data 255,31,231,255,63,192,255,31,128,63,15,0,63,7,0,31
  110. 3140 data 2,0,31,0,0,15,0,0,7,0,0,3,0,0,1,0
  111. 3150 :
  112. 3500 rem **** data maus **********
  113. 3510 :
  114. 3520 data "am beispiel von maeusen","maeuse"
  115. 3530 data 24,8,216,101,201,76,0,0,0,24,24,0,0,0
  116. 3540 data 0,22,13,31,39,127,193,3,0,126,255,255,255,255,128,1
  117. 3550 data 48,12,130,193,225,242,204,128,0,48,22,126,12,13,255,130
  118. 3560 data 31,255,193,39,255,225,127,255,242,193,128,204, 3, 1,128, 0
  119. 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
  120. 3580 data 0,255,0,31,255,192,7,125,240,27,222,248,60,246,252,15
  121. 3590 data 25,254,31,231,254,62,126,26,126,60,14,252,60,12, 0,24
  122. 3600 data 24,0,62,0,0,69,0,0,255,128,0,127,224,240,63,241
  123. 3610 data 216,31,243,252,15,255,228,7,255,192,3,255,192,1,255,224
  124. 3620 data 1,255,248,3,255,254,7,255,255,31,231,255,63,192,255,31
  125. 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
  126.