home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.fahrzeuge (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  178 lines
  1. 5 code=7*4096:vars=5*4096+6*256
  2. 10 sys code,24,1
  3. 11 gr=peek(code+3)+peek(code+4)*256
  4. 12 ag=peek(36862):rem 8ffe act.ground
  5. 20 sys code,3:rem clearnorm scn
  6. 21 b=vars+7+2+((peek(vars+1)-1)*67)
  7. 22 x=peek(b+3) and 128
  8. 23 k=peek(b+0)
  9. 24 k=k+(peek(b+1)*256)
  10. 25 k=k+(peek(b+2)*65536)
  11. 26 k=k+((peek(b+3) and 127)*16777216)
  12. 27 if x=128 then k=-k
  13. 28 gosub 4000
  14. 30 print"[144][214]erkaufen[203]aufen[201]nfo"
  15. 31 sys code,6,5
  16. 40 gosub 500
  17. 45 poke2,0
  18. 50 cl=peek(2):if cl=0 then 50
  19. 55 poke2,0
  20. 60 if cl=99 then 3000
  21. 70 if cl=1 then gosub 100
  22. 71 if cl=2 then gosub 200
  23. 72 if cl=3 then gosub 300
  24. 73 if cl=4 then gosub 400
  25. 74 if cl=6 then gosub 500
  26. 75 if cl=5 then gosub 700
  27. 76 if cl=7 then gosub 800
  28. 99 goto 50
  29. 100 sys code,3
  30. 101 print"[155][208]reis:[160][160][160][160]50000[160][160][160]"
  31. 102 print"[196]ieses[160][193]uto[160]ist[160][160][160]"
  32. 103 print"der[160][215]unschtraum[160][160][160]"
  33. 104 print"jedes[160][193]utofahrers,"
  34. 105 print"denn[160]wer[160]schnell[160][160]"
  35. 106 print"f@hrt,[160]kann[160]mehr[160][160]"
  36. 107 print"liefern...[160][160][160][160][160][160][160][160]"
  37. 108 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  38. 109 print"[155][199]uthaben:";k
  39. 110 print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  40. 111 f=1:sys code,6,3:return
  41. 200 sys code,3
  42. 201 print"[155][208]reis:[160][160][160][160]30000[160][160][160]"
  43. 202 print"[196]ie[160]preiswerte[160][160][160][160]"
  44. 203 print"[193]lternative[160]zum[160][160][160]"
  45. 204 print"[208]orsche[160]und[160]zudem[160]"
  46. 205 print"etwas[160]umwelt-[160][160][160][160][160]"
  47. 206 print"freundlicher...[160][160][160]"
  48. 207 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  49. 208 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  50. 209 print"[155][199]uthaben:";k
  51. 210 print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  52. 211 f=2:sys code,6,3:return
  53. 300 sys code,3
  54. 301 print"[155][208]reis:[160][160][160][160]35000[160][160][160]"
  55. 302 print"[196]er[160][213]mweltfreund[160][160]"
  56. 303 print"ist[160]nun[160]nicht[160]mehr"
  57. 304 print"dem[160][215]etter[160]ausge-[160]"
  58. 305 print"liefert![160][213]nd[160]das[160][160]"
  59. 306 print"bei[160]einer[160][210]eich-[160][160]"
  60. 307 print"weite[160]von[160]400[160][203]m[160]!"
  61. 308 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  62. 309 print"[155][199]uthaben:";k
  63. 310 print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  64. 311 f=4:sys code,6,3:return
  65. 400 sys code,3
  66. 401 print"[155][208]reis:[160][160][160][160]2000[160][160][160][160]"
  67. 402 print"[215]enn[160]alle[160]im [211]tau[160]"
  68. 403 print"stehen,[160]werden[160][160][160][160]"
  69. 404 print"[201]hre[160][193]usfahrer[160][160][160][160]"
  70. 405 print"durch[160]die[160][211]tadt[160][160][160]"
  71. 406 print"flitzen[160]![160][213]nd[160][160][160][160][160]"
  72. 407 print"das[160]v*llig[160]ohne[160][160][160]"
  73. 408 print"[211]pritverbrauch...[160]"
  74. 409 print"[155][199]uthaben:";k
  75. 410 print"[155][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  76. 411 f=8:sys code,6,3:return
  77. 500 sys code,3
  78. 501 print"[155][211]ie[160]haben[160][160][160][160][160][160][160][160][160]"
  79. 502 print"[155][160][160][193]usfahrer[160][160][160][160][160][160][160]"
  80. 503 print"[155]eingestellt[160]und[160][160][160]"
  81. 504 print"[155]besitzen[160][160][160][160][160][160][160][160][160][160]"
  82. 505 print"[155][160][160][208]orsche[160][160][160][160][160][160][160][160][160]"
  83. 506 print"[155][160][160][203]ombi[160][160][160][160][160][160][160][160][160][160][160]"
  84. 507 print"[155][160][160][197]lektroauto/s[160][160][160]"
  85. 508 print"[155][160][160][198]ahrrad/-r@der[160][160]"
  86. 509 print"[155][211]ie[160]ben*tigen[160]max."
  87. 510 print"[155]1[160][198]ahrzeug/e...[160][160][160]"
  88. 511 gosub 600
  89. 512 print"";af
  90. 513 print"";fa and 1
  91. 514 print"";(fa and 2)-(fa and 2)/2
  92. 515 print"";(fa and 4)-int((fa and 4)/1.2)
  93. 516 print"";(fa and 8)-int((fa and 8)/1.1)
  94. 520 sys code,6,3:return
  95. 600 b=gr+(ag-1)*31+(peek(vars+2)-1)*31*6
  96. 610 fa=peek(b+6) and 15:rem fahrz nibble
  97. 620 af=0:rem kein ausfahrer eingest.
  98. 630 for x=17 to 26
  99. 640 z=peek(b+x):if z=255 then 660
  100. 650 if peek(vars+z*7+867)=5 then af=1
  101. 660 next
  102. 670 return
  103. 700 b=gr+(ag-1)*31+(peek(vars+2)-1)*31*6
  104. 701 q=peek(b+6) and 15:if q>0 then 1000
  105. 710 poke(b+6),peek(b+6) or f
  106. 720 if f=1 then k=k-50000:iv=iv+50000
  107. 730 if f=2 then k=k-30000:iv=iv+30000
  108. 740 if f=4 then k=k-35000:iv=iv+35000
  109. 750 if f=8 then k=k-2000:iv=iv+2000
  110. 760 sys code,24,2
  111. 798 gosub 500
  112. 799 return
  113. 800 b=gr+(ag-1)*31+(peek(vars+2)-1)*31*6
  114. 801 q=peek(b+6) and f:if q=0 then 2000
  115. 810 poke(b+6),peek(b+6) and (255-f)
  116. 820 if f=1 then k=k+50000:iv=iv-50000
  117. 830 if f=2 then k=k+30000:iv=iv-30000
  118. 840 if f=4 then k=k+35000:iv=iv-35000
  119. 850 if f=8 then k=k+2000:iv=iv-2000
  120. 860 sys code,24,2
  121. 898 gosub 500
  122. 899 return
  123. 1000 x=0:poke 2,255
  124. 1001 sys code,3:poke1024+24*40+39,96
  125. 1002 print"[211]ie[160]besitzen[160]bereits[160]gen^gend[160][198]ahrzeuge!";
  126. 1003 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  127. 1004 sys code,6,5
  128. 1005 cl=peek(2):if cl<>255 then 1008
  129. 1006 x=x+1
  130. 1007 if x<300 then 1005
  131. 1008 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  132. 1009 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  133. 1010 poke1024+24*40+39,96:sys code,6,5:sys code,15:return
  134. 2000 x=0:poke 2,255
  135. 2001 sys code,3:poke1024+24*40+39,96
  136. 2002 print"[211]ie[160]besitzen[160]kein[160]solches[160][198]ahrzeug[160]![160][160][160][160]";
  137. 2003 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  138. 2004 sys code,6,5
  139. 2005 cl=peek(2):if cl<>255 then 2008
  140. 2006 x=x+1
  141. 2007 if x<300 then 2005
  142. 2008 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  143. 2009 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  144. 2010 poke1024+24*40+39,96:sys code,6,5:sys code,15:return
  145. 3000 b=vars+7+2+((peek(vars+1)-1)*67)
  146. 3020 x=0:if k<0 then k=k-k-k:x=128
  147. 3030 poke(b+3),int(k/16777216)
  148. 3040 k=k-(int(k/16777216)*16777216)
  149. 3050 poke(b+2),int(k/65536)
  150. 3060 k=k-(int(k/65536)*65536)
  151. 3070 poke(b+1),int(k/256)
  152. 3080 k=k-(int(k/256)*256)
  153. 3090 poke(b+0),k
  154. 3100 poke(b+3),peek(b+3) or x
  155. 3110 rem *********************
  156. 3120 gosub 5000
  157. 3190 z=peek(vars+2):a$="l.city"+str$(z):sys code,25,1:sys code,1,a$,8
  158. 4000 rem get invest
  159. 4001 b=vars+1643+((peek(vars+1)-1)*8)
  160. 4002 x=peek(b+3) and 128
  161. 4003 iv=peek(b+0)
  162. 4004 iv=iv+(peek(b+1)*256)
  163. 4005 iv=iv+(peek(b+2)*65536)
  164. 4006 iv=iv+((peek(b+3) and 127)*16777216)
  165. 4007 if x=128 then iv=-iv
  166. 4010 return
  167. 5000 b=vars+1643+((peek(vars+1)-1)*8)
  168. 5020 x=0:if iv<0 then iv=iv-iv-iv:x=128
  169. 5030 poke(b+3),int(iv/16777216)
  170. 5040 iv=iv-(int(iv/16777216)*16777216)
  171. 5050 poke(b+2),int(iv/65536)
  172. 5060 iv=iv-(int(iv/65536)*65536)
  173. 5070 poke(b+1),int(iv/256)
  174. 5080 iv=iv-(int(iv/256)*256)
  175. 5090 poke(b+0),iv
  176. 5100 poke(b+3),peek(b+3) or x
  177. 5120 return
  178.