home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_03_(08-1984).d64 / niche.p (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  225 lines
  1. 90 REM**********************************
  2. 100 REM  NICHE
  3. 110 REM  FROM CREATIVE COMPUTING P87
  4. 120 REM  DONATED BY JAMES C. DOWNER
  5. 130 REM********************************
  6. 140 AF$=" A[205][207][213][206][212][160][207][198][160][198][207][207][196][160]"
  7. 150 POKE59468,14
  8. 160 T=0:K=0:P=100
  9. 170 PRINT"[147]        NICHE
  10. 180 [153]"   AN ECOLOGICAL GAME"
  11. 190 [161]T$:[139]T$[178]""[167]190
  12. 200 [153]"DO YOU WANT INSTRUCTIONS?"
  13. 210 [161]Q$:[139]Q$[178]""[167]210
  14. 220 [139]Q$[179][177]"Y"[167]430
  15. 230 [153]"LOAD"
  16. 240 [153]"NRIGHT$LENLEFT$VALCLOSE(null)VALASCVAL(null)(null)CLOSE(null)(null)CLOSEATN(null)(null)CLOSE(null)ASCCLOSE(null)LEFT$VALCLOSEVALLEN(null)(null)(null)CHR$RIGHT$LENATN(null)CLOSE(null)ATN(null)RIGHT$ATNPEEK(null)VAL(null)CLOSE(null)LEFT$RIGHT$LENLEFT$CLOSE(null)VAL(null)ATN(null)VALCLOSE(null)(null)CLOSEATNCLOSECHR$RIGHT$(null)VAL(null)CLOSE";
  17. 250 [153]"(null)(null)CHR$ATN(null)RIGHT$(null)(null)-- RIGHT$(null)(null)CLOSELEFT$ATNPEEKRIGHT$(null)ATN(null), (null)RIGHT$(null)RIGHT$(null)CHR$CLOSE(null)(null)ATNLENVAL, ATN(null)STR$  CLOSE(null)(null)(null)VALCLOSERIGHT$(null)CLOSE(null)LEFT$VALCLOSEVALLEN(null)(null)(null)(null)(null)VAL(null)."
  18. 260 [153]"I(null)CLOSE(null)LEFT$VALCLOSECHR$ATN(null)VALCLOSE(null)(null)(null)(null)CLOSEMID$(null)PEEKCLOSERIGHT$(null)CLOSE(null)(null)CLOSEASCRIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)VAL(null)VALLEN(null)VALSTR$CLOSE(null)(null)CHR$ATN(null)RIGHT$(null)(null)CLOSERIGHT$(null)(null)(null)CLOSERIGHT$(null)(null)CLOSE(null)RIGHT$LENLEFT$VAL.
  19. 270 PRINT"Y[207][213][160][211][197][204][197][195][212][160]1 [207][198] 5 [207][210][199][193][206][201][211][205][211]
  20. 280 [153]"Y(null)(null)CLOSE(null)VALLENRIGHT$VAL(null)VALCLOSEATNCLOSE(null)(null)ATN(null)(null)CLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null)(100)
  21. 290 PRINT"Y[207][213][210][160][199][207][193][204][160][201][211][160][212][207][160][205][193][216][201][205][201][218][197][160][212][200][197][160][211][201][218][197][160][207][198][160][212][200][197][160][208][207][208][213][204][193][212][201][207][206][160][194][217][160][208][210][207][214][201][196][201][206][199][160][201][196][197][193][204] "
  22. 300 PRINT"C[207][206][196][201][212][201][207][206][211][160][198][207][210][160][199][210][207][215][212][200].
  23. 310 [153]"EATNLENLEFT$CLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)CLOSE(null)RIGHT$(null)(null)CLOSE(null)VAL(null)VALLEN(null)CLOSE(null)LEFT$VALCLOSEVAL(null)(null)RIGHT$(null)(null)(null)VAL(null)(null),(null)ATN(null)CHR$VAL,ATN(null)STR$CLOSELEN(null)(null)(null)VAL(null)RIGHT$(null)(null)(null).
  24. 320 PRINT:PRINT:PRINT" TO CONTINUE PRESS ANY KEY"
  25. 330 GETQ$:IFQ$=""THEN330
  26. 340 PRINT"[147]I[198][160][212][200][197][160][210][193][206][199][197][160][201][211][160][212][207][207][160][211][205][193][204][204][160][212][200][197][210][197][160][215][201][204][204][160][194][197][160][201][206][211][213][198][198][201][195][197][206][212][160][198][207][207][196](100 [213][206][201][212][211] )
  27. 350 [153]"IASCCLOSE(null)LEFT$VALCLOSE(null)ATN(null)CHR$VALCLOSERIGHT$(null)CLOSE(null)(null)(null) (null)ATN(null)CHR$VALCLOSE(null)LEFT$VAL(null)VALCLOSE(null)RIGHT$(null)(null)CLOSEPEEKVALCLOSE(null)ATN(null)(null)CLOSE(null)(null)VALSTR$ATN(null)(null)(null)CLOSESTR$VALATN(null)LEFT$(null)
  28. 360 PRINT"T[200][197][160][199][193][205][197][160][204][193][211][212][211][160][198][207][210][160]5 [210][207][213][206][196][211]
  29. 370 [153]"EATNLENLEFT$CLOSE(null)(null)(null)(null)STR$CLOSELEN(null)(null)(null)VAL(null)(null)(null)(null)STR$(null)CLOSE(null)(null)CLOSE1 (null)(null) 2 CHR$VAL(null)VAL(null)ATN(null)RIGHT$(null)(null)(null).
  30. 380 PRINT:PRINT
  31. 390 PRINT"M[193][217][160][212][200][197][160][194][197][211][212][160][197][195][207][204][207][199][201][211][212][160][215][201][206]!!!
  32. 400 [153]:[153]:[153]" TO CONTINUE PRESS ANY KEY"
  33. 410 [161]Q$:[139]Q$[178]""[167]410
  34. 420 [153]"LOAD"
  35. 430 [153]"LOAD"
  36. 440 [153]"WHAT ORGANISM-----?"
  37. 450 [153][163]5);"PARAMECIUM CAUDATUM (1)
  38. 460 PRINTTAB(5);"RAINBOW TROUT (2)
  39. 470 [153][163]5);"ANTEATER (3)
  40. 480 PRINTTAB(5);"GRAY SQUIRREL (4)
  41. 490 [153][163]5);"KANGAROO RAT (5)
  42. 500 INPUTO
  43. 510 IFO>5ORO<1THENPRINT"IMPROPER RESPONSE":GOTO500
  44. 520 REM
  45. 530 T=T+1:PRINT"TURN #";T
  46. 540 PRINT"WHAT ENVIRONMENT---?"
  47. 550 PRINTTAB(5);"FRESH WATER POND (P)
  48. 560 [153][163]5);"FRESH WATER LAKE (L)
  49. 570 PRINTTAB(5);"TROPICAL RAIN FOREST (R)
  50. 580 [153][163]5);"BOREAL CONIFEROUS FOREST (C)
  51. 590 PRINTTAB(5);"TEMPERATE DECIDUOUS FOREST (T)
  52. 600 [153][163]5);"NORTH AMERICAN DESERT (D)
  53. 610 PRINTTAB(5);"TEMPERATE GRASSLAND (G)
  54. 620 [133]E$
  55. 630 [141]1630
  56. 640 [153]"WHAT RANGE FOR THE WHOLE POPULATION IN   ";U$;" ---"
  57. 650 [139]U$[178]"HECTARES"[167][153]"(1    HECTARE= 10000SQUARE METERS)"
  58. 660 [139]U$[178]"DEKASTERES"[167][153]"(1 DEKASTERE= 10CUBIC METERS)"
  59. 670 [133]R
  60. 680 [139]R[179][178]0[167]65535
  61. 690 [137]700
  62. 700 [143]***SELECTION OF COMPETITOR
  63. 710 [153]"WHAT COMPETITOR----"
  64. 720 [145] O [137] 1870,1920,1970,2020,2070
  65. 730 [143]***GOSUB ON R1 &R2
  66. 740 [141]2120
  67. 750 [143]
  68. 760 [139]C$[178]"C"[176]C$[178]"E"[176]C$[178]"G"[176]C$[178]"I"[176]C$[178]"K"[176]C$[178]"M"[167]C1[178]0
  69. 770 [139]C$[178]"B"[176]C$[178]"D"[176]C$[178]"L"[176]C$[178]"N"[167]C1[178].2
  70. 780 [139]C$[178]"F"[176]C$[178]"J"[167]C1[178].4
  71. 790 [139]C$[178]"A"[176]C$[178]"H"[176]C$[178]"O"  [167]C1[178].6
  72. 800 [139]K[178]1[167]850
  73. 810 [153]"REDATOR KILL"
  74. 820 [161]K$:[139]K$[178]""[167]820
  75. 830 [139]K$[179][177]"Y"[167]850
  76. 840 K[178]1:D1[178][181](.02[172]P):[137]870
  77. 850 [143] SET D1 NORMAL
  78. 860 D1[178][181]((.25[172][187](7)[170].1)[172]P)[170][181](R2[172]P)
  79. 870 [143]***SET VARIABLE VALUES
  80. 880 R1[178]R[173]R3:F1[178][181](100[172]R1[172]P[170].8):F2[178][181](C1[172]F1[170].8)
  81. 890 F3[178]F1[171]F2:F4[178]F3[173](100[172]P)
  82. 900 [139]F4[177]1[167]F4[178]1
  83. 910 D2[178][181]((1[171]F4[170]E1)[172]P)
  84. 920 [141]2210
  85. 930 B[178][181](F5[172]P)
  86. 940 [139]E1[178]1[167]960
  87. 950 [137]970
  88. 960 B[178]0:D1[178]0:D2[178]P
  89. 970 [143] SET POPULATION
  90. 980 P1[178]P:P[178]P[170]B[171]D1[171]D2
  91. 990 [139]P[179]0[167]1010
  92. 1000 [137]1050
  93. 1010 X[178][187](7):Y[178][187](7)
  94. 1020 [139]P1[170]B[178][181](D1[172]X)[170][181](D2[172]Y)[167]1040
  95. 1030 [137]1010
  96. 1040 D1[178][181](D1[172]X):D2[178][181](D2[172]Y):P[178]P[170]B[171]D1[171]D2
  97. 1050 [143]
  98. 1060 [153]"RESULTS OF TURN #";T
  99. 1070 [153]AF$
  100. 1080 [153]"(null)(null)VAL(null)VAL(null)(null)CLOSERIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)CHR$VALCLOSE:";[163]26);F1"U(null)RIGHT$(null)(null)"
  101. 1090 [153]AF$
  102. 1100 [153]"(null)ATN(null)VAL(null)CLOSEPEEK(null)CLOSELEN(null)(null)(null)VAL(null)RIGHT$(null)(null)(null)(null)CLOSE :";[163]28);F2;"U(null)RIGHT$(null)(null)"
  103. 1110 [153]AF$
  104. 1120 [153]"ASC(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null):";[163]28);F3;"U(null)RIGHT$(null)(null)"
  105. 1130 [153]"DVALATN(null)LEFT$CLOSESTR$(null)VALCLOSE(null)(null)CLOSE"
  106. 1140 [153]"(null)(null)VALSTR$ATN(null)RIGHT$(null)(null):";[163]28);D1
  107. 1150 [153]"DVALATN(null)LEFT$CLOSESTR$(null)VALCLOSE(null)(null)CLOSE(null)(null)ATN(null)(null)ATN(null)RIGHT$(null)(null)"
  108. 1160 [153]"ATN(null)STR$CLOSE(null)(null)LEFT$VAL(null)CLOSELENATN(null)(null)VAL(null):";[163]28);D2
  109. 1170 [153]"BRIGHT$(null)(null)LEFT$(null):";[163]28);B
  110. 1180 [153]"C(null)(null)(null)VAL(null)(null)CLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null):";[163]28);"";P
  111. 1190 [153]:[153]
  112. 1200 [161]Q$:[139]Q$[178]""[167]1200
  113. 1210 [139]T[178]5[167]1350
  114. 1220 [139]P[179]1[167]1260
  115. 1230 [139]P[177]0[175]P[179][178]10[167]1290
  116. 1240 [139]P[177]10[175]P[179][178]50[167]1310
  117. 1250 [137]1340
  118. 1260 [153]"HVAL(null)CLOSE(null)(null)(null)(null)VAL(null), (null)(null)(null)CLOSE(null)ATN(null)ATNCHR$VALSTR$CLOSE(null)(null) (null)VAL(null) (null)LEFT$VALCLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSECHR$(null)CLOSE(null)(null)CLOSE(null)VAL(null)(null)!!";
  119. 1270 [153]"ATN(null)STR$CLOSESTR$RIGHT$STR$CLOSERIGHT$(null)CLOSEATNASC(null)VAL(null)CLOSE(null)(null)(null)(null)CLOSE(null)(null)(null)(null) "T
  120. 1280 [137]1670
  121. 1290 [153]"L(null)(null)(null)CLOSE(null)(null)(null)(null)VAL(null)! Y(null)(null)(null)CLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSERIGHT$(null)CLOSESTR$(null)(null)(null)CLOSE(null)(null)CLOSEATNCLOSE(null)VAL(null)VAL "P"RIGHT$(null)STR$RIGHT$(null)RIGHT$STR$(null)ATN(null)(null)"
  122. 1300 [137]1340
  123. 1310 [153]"Y(null)(null)CLOSELEFT$ATNSTR$CLOSEPEEKVAL(null)(null)VAL(null)(null)ATN(null)LENLEFT$CLOSE(null)(null)(null)!  Y(null)(null)(null)CLOSE(null)(null)(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSERIGHT$(null)CLOSESTR$(null)(null)(null)CLOSE(null)(null)CLOSE";P;"RIGHT$(null)STR$RIGHT$(null)RIGHT$STR$(null)ATN(null)(null)!"
  124. 1320 [153]"T(null)(null)(null)PEEK(null)VALCLOSERIGHT$(null)CLOSEMID$(null)(null)(null)CLOSEATN(null)(null)(null)(null)STR$CLOSE(null)LEFT$VALCLOSELEN(null)(null)(null)VAL(null)."
  125. 1330 [137]530
  126. 1340 [137]530
  127. 1350 [143] FINAL PERFORMANCE
  128. 1360 [153]"   !!!! END OF GAME !!!!
  129. 1370 IFP=0THEN1460
  130. 1380 IF P>0 AND P<=25 THEN 1510
  131. 1390 IF P>25AND P<=100THEN 1520
  132. 1400 IF P>100AND P<=250THEN 1530
  133. 1410 IF P>250AND P<=500THEN 1540
  134. 1420 IF P>500AND P<=1000THEN 1560
  135. 1430 IF P>1000AND P<=5000THEN 1580
  136. 1440 IF P>5000AND P<=10000THEN 1590
  137. 1450 IFP>10000THEN1610
  138. 1460 PRINT"Y[207][213][160][193][210][197][160][193][160][196][201][211][199][210][193][195][197]!.   Y[207][213][160][193][210][197][160][200][197][210][197][194][217][160][196][210][213][205][205][197][196][160][207][213][212][160][207][198] [212][200][197][160]A[205][197][210][201][195][193][206][160]C[207][204][204][197][199][197]
  139. 1470 [153]"CLOSE(null)ASC ELEN(null)(null)(null)CHR$RIGHT$(null)(null)(null)CLOSE(ACE) ATN(null)STR$CLOSE(null)ATNSTR$VAL ATNCLOSE(null)VAL(null)PEEKVAL(null)CLOSE(null)ASCCLOSEA(null)VAL(null)RIGHT$LENATN(null)CLOSES(null)LENRIGHT$VAL(null)(null)CLOSE(null)ASCCLOSES(null)(null)(null)RIGHT$STR$(null)(null)
  140. 1480 STOP
  141. 1490 PRINT"T[200][193][212][211][160][193][215][198][213][204]!   T[200][197][160]W[201][204][196][204][201][198][197][160]M[193][206][193][199][197][210][211] [207][198][160][212][200][197][160]W[207][210][204][196][160][200][193][214][197][160][206][207][212][200][201][206][199][160][194][213][212][160][211][208][201][212]";
  142. 1500 PRINT"[197][160][198][207][210][160][217][207][213]!":STOP
  143. 1510 PRINT"T[200][193][212][211][160][214][197][210][217][160][208][207][207][210]!   I [200][207][208][197][160][217][207][213][160][196][207][206]'[212][160][207][215][206][160][208][197][212][211]":STOP
  144. 1520 PRINT"T[200][193][212]'[211][160][194][193][210][197][204][217][160][208][193][211][211][193][194][204][197]!  A[212][160][204][197][193][211][212][160][217][207][213][160][196][201][196]'[206][212][160][204][207][211][197][160][193][206][217].":STOP
  145. 1530 PRINT"N[207][212][160][194][193][196]!   [217][207][213][160][193][210][197][160][193][208][208][207][201][206][212][197][196][160][193][160]J[213][206][201][207][210][160]E[195][207][204][207][199][201][211][212].":STOP
  146. 1540 PRINT"P[210][197][212][212][217][160][199][207][207][196] [202][207][194][160][198][197][204][204][193] I[160][199][213][197][211][211][160][215][197]'[204][204][160][204][197][212][160][217][207][213][160][202][207][201][206][160][212][200][197][160]E[195][207][204][207][199][201][211][212]'[211][160]C[204][213][194]."
  147. 1550 STOP
  148. 1560 PRINT"Y[207][213][160][202][207][201][206][160][212][200][197][160]E[195][207][204][207][199][201][211][212]'[211][160][195][204][213][194]!!!
  149. 1570 [137]2290
  150. 1580 [153]"G(null)(null)STR$CLOSEMID$(null)PEEK!  Y(null)(null)'(null)VALCLOSEATNCLOSE(null)(null)(null)VALCLOSEPEEK(null)(null)VALCLOSEELEN(null)(null)(null)CHR$RIGHT$(null)(null)":[144]
  151. 1590 [153]"W(null)(null)!!! T(null)VAL(null)VAL(null)STR$(null)(null)(null)CLOSEMID$(null)PEEK!  Y(null)(null)CLOSELENATN(null)CLOSE(null)ATN(null)VALCLOSEMATN(null)(null)RIGHT$(null)CLOSEPVAL(null)(null)RIGHT$(null)(null)CLOSE(null)(null)ATNLENVALCLOSE(null)(null)CLOSEWRIGHT$(null)STR$CLOSEKRIGHT$(null)STR$(null)(null)"
  152. 1600 [144]
  153. 1610 [153]"SUPER!! SUPERB!!!! FANTASTIC!!!!
  154. 1620 STOP
  155. 1630 IFE$="P"THENE=1
  156. 1640 IFE$="L"THENE=2
  157. 1650 IFE$="R"THENE=3
  158. 1660 IFE$ ="C" OR E$="T" THEN E=4
  159. 1670 IFE$ ="D" OR E$="G" THEN E=5
  160. 1680 IF O=1 AND O+E<4 THEN E1=0
  161. 1690 IF O=1 AND O+E>=4 THEN E1=1
  162. 1700 IF O=2 AND O+E =4 THEN E1=0
  163. 1710 IF O=2 AND O+E =3 THEN E1=0.33
  164. 1720 IF O=2 AND O+E >4 THEN E1=1.00
  165. 1730 IF O=3 AND O+E =6 THEN E1=0.00
  166. 1740 IF O=3 AND O+E<>6 THEN E1=1.00
  167. 1750 IF O=4 AND O+E=8THEN E1=0.00
  168. 1760 IF O=4 AND O+E=7THEN E1=0.33
  169. 1770 IF O=4 AND O+E>8THEN E1=1
  170. 1780 IF O=4 AND O+E<7THEN E1=1
  171. 1790 IF O=5 AND O+E=10THEN E1=0
  172. 1800 IF O=5 AND O+E= 9THEN E1=.5
  173. 1810 IF O=5 AND O+E= 8THEN E1=.5
  174. 1820 IF O=5 AND O+E< 8THEN E1=1
  175. 1830 IFO=3ORO=4ORO=5THENU$="HECTARES"
  176. 1840 IFO=2THENU$="DEKASTERES"
  177. 1850 IFO=1THENU$="CUBIC CENTIMETERS"
  178. 1860 RETURN
  179. 1870 PRINTTAB(5);"PARAMECIUM AURELIA (A)"
  180. 1880 PRINTTAB(5);"PARAMECIUM BURSARIA (C)"
  181. 1890 PRINTTAB(5);"AMOEBA (B)"
  182. 1900 INPUTC$
  183. 1910 R3=P:GOTO730
  184. 1920 PRINTTAB(5);"SNAPPING TURTLE (D)
  185. 1930 [153][163]5);"SOCKEYE SALMON (F)
  186. 1940 PRINTTAB(5);"CATFISH (E)
  187. 1950 [133]C$
  188. 1960 R3[178].200[172]P:[137]730
  189. 1970 [153][163]5) ;"PACA (G)
  190. 1980 PRINTTAB(5);"ARMADILLO (H)
  191. 1990 [153][163]5);"TAPIR (I)
  192. 2000 INPUTC$
  193. 2010 R3=.6*P:GOTO730
  194. 2020 PRINTTAB(5);"CHIPMUNK (J)
  195. 2030 [153][163]5);"TURKEY (K)
  196. 2040 PRINTTAB(5);"MOUSE (L)
  197. 2050 [133]C$
  198. 2060 R3[178].05[172]P:[137]730
  199. 2070 [153][163]5);"PECCARY (M)
  200. 2080 PRINTTAB(5);"JACKRABBIT (N)
  201. 2090 [153][163]5);"POCKET MOUSE (O)
  202. 2100 INPUTC$
  203. 2110 R3=.1*P:GOTO730
  204. 2120 R1=R/R3
  205. 2130 IFR1>0AND R1<=1.33 THEN R2=0
  206. 2140 IFR1>1.33AND R1<=1.67 THEN R2=0.5
  207. 2150 IFR1>1.67AND R1<=2.00 THEN R2=0.075
  208. 2160 IFR1>2AND R1<=5.00 THEN R2=0.1
  209. 2170 IFR1>5AND R1<=10.0 THEN R2=0.2
  210. 2180 IFR1>10AND R1<=25.0 THEN R2=0.3
  211. 2190 IFR1>25THENR2=.4
  212. 2200 RETURN
  213. 2210 IF F4>1 THEN F4=1
  214. 2220 IF F4=0 THEN F5=0
  215. 2230 IF F4>0 AND F4<=.25 THEN F5=.1
  216. 2240 IF F4>.25AND F4<=.50 THEN F5=.33
  217. 2250 IF F4>. 5AND F4<=.70 THEN F5=.67
  218. 2260 IF F4>. 7AND F4<=.90 THEN F5=1
  219. 2270 IF F4>. 9AND F4<=1  THEN F5=2
  220. 2280 RETURN
  221. 2290 PRINT"PLAY AGAIN?":INPUTRR$:IFRR$<>"Y"THEN2320
  222. 2300 CLR
  223. 2310 P=100:GOTO420
  224. 2320 END
  225.