home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503a.d64 / wator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  7KB  |  220 lines
  1. 10 REM ********************************
  2. 11 REM *                              *
  3. 12 REM *  WATOR VERSION 1.0           *
  4. 13 REM *   8.4.1985                   *
  5. 14 REM *                              *
  6. 15 REM *  COPYRIGHT BY                *
  7. 16 REM *                              *
  8. 17 REM *      SIEGMAR KUTSCHKER       *
  9. 18 REM *      SACHSENHEIMER WEG 5     *
  10. 19 REM *      7122 BESIGHEIM          *
  11. 20 REM *                              *
  12. 21 REM *  NACH EINER IDEE AUS         *
  13. 22 REM *                              *
  14. 23 REM *  SPEKTRUM DER WISSENSCHAFT   *
  15. 24 REM *                              *
  16. 25 REM *     2/85                     *
  17. 26 REM *                              *
  18. 30 REM ********************************
  19. 40 POKE 56,112:POKE 55,0:REM BASIC BEREICH EINSCHRAENKEN
  20. 45 :
  21. 50 IF PEEK(2) = 0 THEN POKE 2,1: LOAD "WATOR MSP",8,1
  22. 60 REM DEFINITIONEN DER ADRESSEN
  23. 70 HP = 34816 :REM PROGRAMM-START
  24. 75 ZP = 36608 :REM ERSATZZEROPAGE
  25. 80 FA = ZP + 116:REM FISCHE ANZAHL
  26. 85 HA = ZP + 118:REM HAIE ANZAHL
  27. 90 VF = ZP + 120:REM VERMEHRUNGSALTER FISCH
  28. 95 VH = ZP + 121:REM VERMEHRUNGSALTER HAIE
  29. 100 HU = ZP + 122:REM ALTER IN DEM HAIE VERHUNGERN
  30. 105 ZU = ZP + 6:REM ZUFALLSGENERATOR
  31. 115 HU%=1:VH%=1:VF%=1:REM ANFANGSWERTE SETZEN
  32. 120 POKE 53280,0:POKE 53281,0 :POKE 646,1:REM FARBE SETZEN
  33. 130 PRINT CHR$(147):REM BILDSCHIRM LOESCHEN
  34. 140 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  35. 150 PRINT"           [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
  36. 160 PRINT"           [180]                  [170] "
  37. 170 PRINT"           [180]    W A T O R     [170] "
  38. 180 PRINT"           [180]                  [170] "
  39. 190 PRINT"           [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  40. 200 PRINT:PRINT:PRINT:PRINT:PRINT TAB(3) "WOLLEN SIE EINE ANLEITUNG LESEN?"
  41. 210 PRINT:PRINT TAB(3) "(J/N)"
  42. 220 GET T$:IF T$ = "" THEN 220
  43. 230 IF T$ =  "J" THEN GOSUB 16000:GOTO250
  44. 240 IF T$ <> "N" THEN 220
  45. 250 GOSUB 10200
  46. 300 REM MENUE
  47. 301 POKE 53280,0:POKE 53281,0 :POKE 646,8:REM FARBE SETZEN
  48. 305 PRINTCHR$(147);:PRINT TAB(11)"ZYKLENANZAHL:  " AZ:POKE 646,1:PRINT
  49. 310 PRINT"FISCHE VERMEHREN SICH NACH      JAHR(EN)"
  50. 315 PRINT:POKE 646,7
  51. 320 PRINT" HAIE  VERMEHREN SICH NACH      JAHR(EN)
  52. 325 [153]:[153]:[151] 646,1
  53. 330 [153]"      WIR HABEN DERZEIT         FISCH(E)
  54. 335 POKE 646,7
  55. 340 PRINT"                    UND         HAI(E)
  56. 345 [153]:[151] 646,7
  57. 350 [153]"  DIE HAIE VERHUNGERN NACH      JAHR(EN)
  58. 355 PRINT:POKE 646,5
  59. 360 PRINT"          BITTE WAEHLEN SIE:
  60. 365 [153]:[153]: [151] 646,14
  61. 370 [153]"    <1> ANLEITUNG
  62. 375 PRINT:POKE 646,3
  63. 380 PRINT"    <2> AENDERN DER PARAMETER
  64. 385 [153]:[151] 646,4
  65. 390 [153]"    <3> FORTFAHREN IM PROGRAMM
  66. 400 PRINTCHR$(19):PRINT:POKE 646,10
  67. 410 PRINT TAB(26) VF%
  68. 420 PRINT:PRINTTAB(26) VH%
  69. 430 PRINT:PRINT:PRINTTAB(26) FA%
  70. 440 PRINTTAB(26) HA%
  71. 450 PRINT:PRINTTAB(26) HU%
  72. 460 POKE 646,1
  73. 500 GET T$:IF T$ = "" THEN 500
  74. 510 IF T$ = "1" THEN GOSUB 16000:GOTO300
  75. 520 IF T$ = "2" THEN GOSUB 10000:GOTO300
  76. 530 IF T$ = "H" THEN GOSUB 18650:GOTO300
  77. 540 IF T$<> "3"THEN 500
  78. 1000 POKE ZU,256*RND(1)
  79. 1010 POKE ZU+1,256*RND(1)
  80. 1020 IF AZ=0 THEN SYS HP
  81. 1030 SYS HP+3
  82. 1040 IF PEEK(ZP+128)=0 THEN AZ=AZ+65536:GOTO 1030
  83. 1050 AZ = AZ + PEEK(ZP+129) + PEEK(ZP+130)*256+1
  84. 1060 FA% = PEEK(FA)+PEEK(FA+1)*256
  85. 1070 HA% = PEEK(HA)+PEEK(HA+1)*256
  86. 1100 GOTO 300
  87. 9000 STOP
  88. 10000 PRINTCHR$(147):POKE 646,1:UG =0:OG=512:I=FA%:
  89. 10005 PRINT"OHNE EINGABE BLEIBEN DIE ALTEN WERTE    ERHALTEN":PRINT:PRINT:PRINT
  90. 10010 PRINT"BISHER HATTEN WIR "I "FISCHE":PRINT
  91. 10020 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000
  92. 10030 PRINT:FA% = I
  93. 10040 UG = 0:OG = 512 -FA%:I = HA%
  94. 10050 PRINT"BISHER HATTEN WIR "I "HAIE":PRINT
  95. 10060 PRINT"WIEVIELE IN ZUKUNFT":GOSUB15000
  96. 10070 PRINT:HA% = I
  97. 10080 UG = 1:OG = 255
  98. 10090 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH FISCHE NACH"
  99. 10100 PRINT"DEM "VF%" TEN JAHR"
  100. 10110 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT"
  101. 10120 I = VF%:GOSUB 15000:VF%=I
  102. 10130 PRINT:PRINT:PRINT"BISHER VERMEHRTEN SICH HAIE NACH"
  103. 10140 PRINT"DEM "VH%" TEN JAHR"
  104. 10150 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT"
  105. 10160 I = VH%:GOSUB 15000:VH%=I
  106. 10170 PRINT:PRINT:PRINT"BISHER VERHUNGERTEN  HAIE NACH"
  107. 10180 PRINT"DEM "HU%" TEN JAHR"
  108. 10190 PRINT"NACH WIEVIELEN JAHREN IN ZUKUNFT":I=HU%:GOSUB15000:HU%=I
  109. 10200 POKE VH,VH%-1:W = VH%-1:GOSUB 11000:POKE VH+3,W1
  110. 10210 POKE VF,VF%-1:W = VF%-1:GOSUB 11000:POKE VF+3,W1
  111. 10220 POKE HU,HU%-1:W = HU%-1:GOSUB 11000:POKE HU+3,W1
  112. 10240 POKE HA+1,INT(HA%/256)
  113. 10250 POKE HA,HA%-INT(HA%/256)*256
  114. 10260 POKE FA+1,INT(FA%/256)
  115. 10270 POKE FA,FA%-INT(FA%/256)*256
  116. 10280 AZ = 0
  117. 10300 RETURN
  118. 11000 W1=0
  119. 11010 IF W1<W THEN W1 = W1+W1+1:GOTO11010
  120. 11020 RETURN
  121. 14500 STOP
  122. 15000 INPUT I
  123. 15100 I=INT(I)
  124. 15200 IF UG <= I AND OG >=I THEN RETURN
  125. 15300 PRINT:PRINT"WERT ZWISCHEN " UG" UND "OG "EINGEBEN!":GOTO 15000
  126. 16000 REM  ANLEITUNG
  127. 16050 PRINT CHR$ (147):PRINT:PRINT:PRINT
  128. 16100 PRINT TAB(12) "*********"
  129. 16150 PRINT TAB(12) "* WATOR *"
  130. 16200 PRINT TAB(12) "*********"
  131. 16250 PRINT:PRINT
  132. 16300 PRINT TAB(5) "IST EIN SEHR INTERESSANTES":PRINT
  133. 16350 PRINT TAB(5) "SIMULATIONSPROGRAMM.":PRINT
  134. 16400 PRINTTAB(5)"SIMULIERT WIRD EIN OEKOSYSTEM, IN":PRINT
  135. 16450 PRINTTAB(5)"DEM SICH ZWEI VERSCHIEDENE ARTEN":PRINT
  136. 16500 PRINTTAB(10)"VON TIEREN TUMMELN:":PRINT
  137. 16550 PRINTTAB(11)"HAIE UND FISCHE.":PRINT:PRINT:PRINT
  138. 16600 GOSUB 21000:PRINT
  139. 16650 PRINTTAB(5)"JEDES TIER KANN SICH BEWEGEN UND":PRINT
  140. 16700 PRINTTAB(5)"SICH VERMEHREN, WOBEI DIE":PRINT
  141. 16750 PRINTTAB(5)"HAIE VERSUCHEN, DIE FISCHE ZU":PRINT
  142. 16800 PRINTTAB(5)"FRESSEN. NAHRUNG FUER DIE FISCHE":PRINT
  143. 16850 PRINTTAB(5)"GIBT ES IM UEBERFLUSS.":PRINT
  144. 16900 PRINTTAB(5)"FINDET EIN HAI EINE ZEIT LANG":PRINT
  145. 16950 PRINTTAB(5)"KEINEN FISCH, SO VERHUNGERT ER.":PRINT
  146. 17000 PRINTTAB(5)"LEBENSRAUM IST EIN SEE, DER IN":PRINT
  147. 17050 PRINTTAB(5)"DER FORM EINES TORUSSES GEKRUEMMT":PRINT
  148. 17100 PRINTTAB(5)"IST. DAHER DER NAME 'WATOR'.":PRINT
  149. 17110 PRINT:PRINT:GOSUB 21000
  150. 17120 FORI=0TO10:PRINT:NEXT
  151. 17200 PRINTTAB(5)"MEHR ZU DIESEM THEMA FINDEN SIE":PRINT
  152. 17230 PRINTTAB(5)"IM SPEKTRUM DER WISSENSCHAFT":PRINT
  153. 17260 PRINTTAB(15)"2/85.":FORI=0TO10:PRINT:NEXT:GOSUB 21000:
  154. 17265 FOR I=1TO 20:PRINT:NEXT
  155. 17270 PRINTTAB(5)"VON IHNEN KOENNEN 5 VERSCHIEDENE":PRINT
  156. 17300 PRINTTAB(5)"PARAMETER EINGESTELLT WERDEN.":PRINT
  157. 17310 PRINTTAB(10)"UND ZWAR:":FORI=0TO10:PRINT:NEXT:GOSUB 21000
  158. 17320 FOR I=0TO 30:PRINT:NEXT
  159. 17330 PRINTTAB(5)"DIE VARIABLE":PRINT
  160. 17350 PRINTTAB(5)"'ANZAHL DER FISCHE'.":PRINT
  161. 17370 PRINTTAB(5)"DIESE VARIABLE WIRD AM ANFANG":PRINT
  162. 17400 PRINTTAB(5)"EINES DURCHLAUFS GESETZT UND":PRINT
  163. 17420 PRINTTAB(5)"WAEHREND DES DURCHLAUFS STAENDIG":PRINT
  164. 17450 PRINTTAB(5)"AKTUALISIERT.":PRINT
  165. 17470 PRINTTAB(5)"MAN FINDET IHREN WERT AM BILD-":PRINT
  166. 17500 PRINTTAB(5)"SCHIRM UNTEN LINKS."
  167. 17530 PRINT:PRINT:PRINT:PRINT:GOSUB 21000
  168. 17550 FORI=1TO30:PRINT:NEXT
  169. 17570 PRINTTAB(5)"'ANZAHL DER HAIE' IST DIE":PRINT
  170. 17600 PRINTTAB(5)"ENTSPRECHENDE VARIABLE FUER DIE":PRINT
  171. 17630 PRINTTAB(5)"HAIE.":PRINT
  172. 17650 PRINTTAB(5)"MAN FINDET SIE UNTEN RECHTS.":PRINT
  173. 17670 PRINTTAB(5)"IST DIE ANZAHL DER HAIE = 0, SO":PRINT
  174. 17680 PRINTTAB(5)"KEHRT DAS PROGRAMM IN DAS GRUND-":PRINT
  175. 17690 PRINTTAB(5)"MENUE ZURUECK, EBENSO, WENN":PRINT
  176. 17693 PRINTTAB(5)"WAEHREND DES PROGRAMMLAUFS DIE":PRINT
  177. 17695 PRINTTAB(5)"RESTORE-TASTE GEDRUECKT WIRD."
  178. 17700 PRINT:PRINT:PRINT:PRINT:PRINT:GOSUB 21000:FORI=0TO30:PRINT:NEXT
  179. 17720 PRINTTAB(5)"DIE VARIABLE":PRINT
  180. 17730 PRINTTAB(5)"'VERMEHRUNG FISCHE' GIBT AN,NACH":PRINT
  181. 17750 PRINTTAB(5)"WIEVIELEN JAHREN SICH DIE FISCHE":PRINT
  182. 17770 PRINTTAB(5)"VERMEHREN;":PRINT
  183. 17800 PRINTTAB(5)"OB NACH DEM ERSTEN, ZWEITEN":PRINT
  184. 17830 PRINTTAB(5)"DRITTEN.....":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  185. 17850 GOSUB 21000:FORI=0TO30:PRINT:NEXT
  186. 17870 PRINTTAB(5)"'VERMEHRUNG HAIE' ERFUELLT DENSEL-":PRINT
  187. 17900 PRINTTAB(5)"BEN ZWECK BEI DEN HAIEN.":PRINT
  188. 17920 FOR I=0TO 10:PRINT:NEXT:GOSUB 21000
  189. 17950 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  190. 17970 PRINTTAB(5)"DIE VARIABLE 'HUNGER' GIBT AN,":PRINT
  191. 18000 PRINTTAB(5)"NACH WIEVIELEN JAHREN EIN HAI":PRINT
  192. 18030 PRINTTAB(5)"STIRBT, WENN ER IN DIESER ZEIT":PRINT
  193. 18050 PRINTTAB(5)"KEINEN FISCH ZUM FRESSEN FINDET.":PRINT
  194. 18070 PRINTTAB(5)"OB NACH EIN, ZWEI, DREI.....":PRINT
  195. 18100 PRINTTAB(5)"JAHREN."
  196. 18130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  197. 18150 GOSUB21000
  198. 18170 FORI=1TO20:PRINT:NEXT
  199. 18200 PRINTTAB(5)"ZUSAETZLICH FINDEN SIE IN DER ":PRINT
  200. 18230 PRINTTAB(5)"MITTE OBEN DIE ANZAHL DER ZYKLEN,":PRINT
  201. 18250 PRINTTAB(5)"DIE SEIT DEM START DIESER":PRINT
  202. 18270 PRINTTAB(5)"KOMBINATION VERGANGEN SIND."
  203. 18300 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  204. 18330 GOSUB 21000:FORI=1TO15:PRINT:NEXT
  205. 18350 PRINTTAB(5)"DIES KLINGT JETZT ALLES":PRINT
  206. 18370 PRINTTAB(5)"FURCHTBAR KOMPLIZIERT, UND SIE ":PRINT
  207. 18400 PRINTTAB(5)"WERDEN AM ANFANG SCHWIERIGKEITEN":PRINT
  208. 18430 PRINTTAB(5)"HABEN, EIN OEKOSYSTEM ZU ENTWER-":PRINT
  209. 18450 PRINTTAB(5)"FEN, DAS NICHT SCHON NACH WENIGEN":PRINT
  210. 18470 PRINTTAB(5)"HUNDERT JAHREN ZUSAMMENBRICHT.   ":PRINT:PRINT
  211. 18500 PRINTTAB(5)"DRUECKEN SIE 'H' UND DER COMPUTER":PRINT
  212. 18530 PRINTTAB(5)"STELLT IHNEN EINE KOMBINATION EIN,":PRINT
  213. 18550 PRINTTAB(5)"DIE SICHER LAUEFT!":PRINT
  214. 18600 GETT$:IFT$=""THEN 18600
  215. 18630 IFT$<>"H"THEN RETURN
  216. 18650 VH%=15:VF%=3:HU%=2:FA%=400:HA%=20:GOTO 10200
  217. 21000 PRINTTAB(7)"WEITER MIT RETURN[146]"
  218. 21020 GETT$:IF T$ <> CHR$(13) THEN 21020
  219. 21030 GETT$:RETURN
  220.