home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.computer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  124 lines
  1. 1 code=7*4096:vars=5*4096+6*256:syscode,24,39:syscode,24,39
  2. 4 syscode,24,39:poke53265,peek(53265)and(255-16):code=7*4096:vars=5*4096+6*256
  3. 8 i=vars+7+(peek(vars+1)-1)*67+55:pokei,peek(i)+3:uu=90
  4. 10 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
  5. 16 ac=peek(36848+(peek(vars+1)-1))-1:in=0:af=0:ziel=peek(36852+peek(vars+1)-1)
  6. 21 b=vars+7+2+((peek(vars+1)-1)*67):x=peek(b+3)and128:k=peek(b+0)
  7. 24 k=k+(peek(b+1)*256):k=k+(peek(b+2)*65536):k=k+((peek(b+3)and127)*16777216)
  8. 27 ifx=128thenk=-k
  9. 31 b=vars+7+4*67+5*16+16*32+7*80+4*50+16+4+((peek(vars+1)-1)*8)
  10. 32 x=peek(b+3)and128:vm=peek(b+0):vm=vm+(peek(b+1)*256):vm=vm+(peek(b+2)*65536)
  11. 36 vm=vm+((peek(b+3)and127)*16777216)
  12. 37 ifx=128thenvm=-vm:print"negatives vermoegen !!!"vm
  13. 41 b=vars+7+4*67+5*16+16*32+7*80+4*50+16+((peek(vars+1)-1)*8):x=peek(b+3)and128
  14. 43 in=peek(b+0):in=in+(peek(b+1)*256):in=in+(peek(b+2)*65536)
  15. 46 in=in+((peek(b+3)and127)*16777216)
  16. 47 ifx=128thenin=-in:print"negative investitionen!"in
  17. 49 ifziel<1orziel>3thenziel=1
  18. 50 ifziel=1then1000
  19. 60 ifziel=2then3000
  20. 70 ifziel=3then6000
  21. 80 print"error !!!":end
  22. 100 print"ziel..:"ziel:print"konto.:"k:print"vermoe:"vm:print"invest:"in:print"preis.:"pr
  23. 120 print"qm....:"qm:print"city..:"city:print"place.:"ac+1:print"ben.items:"bn:return
  24. 1000 ef=1:q=0
  25. 1005 city=int(rnd(1)*9)+1:pokevars+7+(peek(vars+1)-1)*67,city:pokevars+2,city
  26. 1020 pl=int(rnd(1)*6)+1:poke36848+peek(vars+1)-1,pl:ac=pl-1
  27. 1040 w=gr+ac*31+(peek(vars+2)-1)*31*6:x=peek(w+2)and15:ifx=0then1100
  28. 1070 q=q+1:ifq=6thenef=0:print"kein grundstueck gefunden !":goto10000
  29. 1080 goto1005
  30. 1100 x=(peek(w+3)and240)/16:ifx=1thenqm=250
  31. 1120 ifx=2thenqm=500
  32. 1130 ifx=3thenqm=500
  33. 1140 ifx=4thenqm=750
  34. 1150 ifx=5thenqm=750
  35. 1160 ifx=6thenqm=1000
  36. 1170 ifx=7thenqm=1250
  37. 1180 ifx=8thenqm=1250
  38. 1190 ifx<1orx>8thengosub100:print"qm error !!!!":goto1005
  39. 1200 pr=peek(w+5)*10*qm:ifpr>kthenef=0:gosub2000:goto10000
  40. 1250 k=k-pr:in=in+pr:poke(w+2),peek(vars+1)*16+1:poke(w+3),peek(w+3)and240:poke(w+6),0
  41. 1290 forx=0to9:poke(w+7),0:next:forx=0to9:poke(w+17),255:next:gosub100
  42. 1340 print"grundstueck gekauft !!!":goto10000
  43. 1996 end
  44. 2000 print"nicht genug geld ! aktien verkaufen!!!":ifaf=1thenreturn
  45. 2020 af=1:pz=int(rnd(1)*3)+4
  46. 2040 pb=vars+7+67*4+16*5+16*32+7*80+4*50+(peek(vars+1)-1)*4+(peek(vars+1)-1)
  47. 2050 if(peek(pb)-pz)<51thenreturn
  48. 2060 pokepb,peek(pb)-pz:k=k+pz*vm/100:vm=vm+pz*vm/100:gosub100:print"aktien verkauft"
  49. 2090 return
  50. 3000 ef=1:w=gr+ac*31+(peek(vars+2)-1)*31*6:city=peek(vars+2)
  51. 3020 x=(peek(w+3)and240)/16:ifx=1thentyp=1
  52. 3040 ifx=2thentyp=2
  53. 3050 ifx=3thentyp=2
  54. 3060 ifx=4thentyp=3
  55. 3070 ifx=5thentyp=3
  56. 3080 ifx=6thentyp=4
  57. 3090 ifx=7thentyp=4
  58. 3100 ifx=8thentyp=4
  59. 3110 ifx<1orx>8thenprint"[147]typ error !!!!":end
  60. 3115 iftyp=0thenef=0:gosub2000:goto10000
  61. 3120 iftyp=1thenpr=500000:qm=250
  62. 3130 iftyp=2thenpr=900000:qm=500
  63. 3140 iftyp=3thenpr=1300000:qm=750
  64. 3150 iftyp=4thenpr=1600000:qm=1000
  65. 3160 ifk<prthentyp=typ-1:goto3115
  66. 3170 k=k-pr:in=in+pr:poke(w+2),peek(w+2)and240or2:poke(w+3),peek(w+3)and240ortyp
  67. 3210 poke(w+6),peek(w+6)and15or112:gosub100:print"restaurant gekauft !":goto10000
  68. 6000 ef=1:w=gr+ac*31+(peek(vars+2)-1)*31*6:city=peek(vars+2)
  69. 6020 rt=peek(vars+7+1+(peek(vars+1)-1)*67):rb=vars+7+4*67+rt*16+6:x=0
  70. 6060 ifpeek(w+12+x)=peek(rb+x)then6180
  71. 6080 bn=(peek(rb+x)):ifx=0thenpr=20000*bn
  72. 6110 ifx=1thenpr=1250*bn
  73. 6120 ifx=2thenpr=15000*bn
  74. 6130 ifx=3thenpr=60000*bn
  75. 6140 ifx=4thenpr=10000*bn
  76. 6150 ifk<prthenef=0:gosub100:print"zu wenig geld f.einrichtung":goto10000
  77. 6160 k=k-pr:in=in+pr:poke(w+12+x),bn:poke(w+7),7:poke(w+8),2:poke(w+9),1
  78. 6178 poke(w+10),6:poke(w+11),8
  79. 6180 x=x+1:ifx<5then6060
  80. 6195 gosub100:print"alle benoetigten items gekauft !":x=0:q=0
  81. 6310 bn=peek(rb+5+x):ifbn=0then6350
  82. 6330 poke(w+17+q),x:bn=bn-1:q=q+1
  83. 6350 ifbn>0then6330
  84. 6360 x=x+1:ifx<5then6310
  85. 6390 print"benoetigte arbeiter eingestellt !":if(peek(w+6)and15)=4then6420
  86. 6405 k=k-35000:poke(w+6),peek(w+6)and240or4
  87. 6420 rem
  88. 6430 print"auto ist vorhanden !!!
  89. 10000 [139]ef[178]1[167]ziel[178]ziel[170]1:[151]36852[170][194](vars[170]1)[171]1,ziel
  90. 10010 [141]11000:[141]10100:[137]20000
  91. 10100 qk[178]k:b[178]vars[170]7[170]2[170](([194](vars[170]1)[171]1)[172]67):x[178]0:[139]k[179]0[167]k[178]k[171]k[171]k:x[178]128
  92. 10130 [151](b[170]3),[181](k[173]16777216):k[178]k[171]([181](k[173]16777216)[172]16777216):[151](b[170]2),[181](k[173]65536)
  93. 10160 k[178]k[171]([181](k[173]65536)[172]65536):[151](b[170]1),[181](k[173]256):k[178]k[171]([181](k[173]256)[172]256):[151](b[170]0),k
  94. 10200 [151](b[170]3),[194](b[170]3)[176]x:k[178]qk
  95. 10300 qk[178]vm:b[178]vars[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170]4[170](([194](vars[170]1)[171]1)[172]8)
  96. 10320 x[178]0:[139]vm[179]0[167]vm[178]vm[171]vm[171]vm:x[178]128
  97. 10330 [151](b[170]3),[181](vm[173]16777216):vm[178]vm[171]([181](vm[173]16777216)[172]16777216)
  98. 10350 [151](b[170]2),[181](vm[173]65536):vm[178]vm[171]([181](vm[173]65536)[172]65536):[151](b[170]1),[181](vm[173]256)
  99. 10380 vm[178]vm[171]([181](vm[173]256)[172]256):[151](b[170]0),vm:[151](b[170]3),[194](b[170]3)[176]x:vm[178]qk
  100. 10500 qk[178]in:b[178]vars[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170](([194](vars[170]1)[171]1)[172]8)
  101. 10520 x[178]0:[139]in[179]0[167]in[178]in[171]in[171]in:x[178]128
  102. 10530 [151](b[170]3),[181](in[173]16777216):in[178]in[171]([181](in[173]16777216)[172]16777216)
  103. 10550 [151](b[170]2),[181](in[173]65536):in[178]in[171]([181](in[173]65536)[172]65536):[151](b[170]1),[181](in[173]256)
  104. 10580 in[178]in[171]([181](in[173]256)[172]256):[151](b[170]0),in:[151](b[170]3),[194](b[170]3)[176]x:in[178]qk
  105. 10700 [153]"vars stored !!!!!!!":[142]
  106. 11000 [139]k[179]1500000[167][142]
  107. 11010 [139][181]([187](1)[172]2)[178]0[167][142]
  108. 11020 op[178][181]([187](1)[172]4)[170]1:pz[178]4:[139]op[178][194](vars[170]1)[167]pz[178]8
  109. 11040 pb[178]vars[170]7[170]67[172]4[170]16[172]5[170]16[172]32[170]7[172]80[170]4[172]50
  110. 11050 eh[178]100[171]([194](pb[170]op[171]1)[170][194](pb[170]op[171]1[170]4)[170][194](pb[170]op[171]1[170]8)[170][194](pb[170]op[171]1[170]12))
  111. 11060 [139]eh[179]pz[167]pz[178]eh
  112. 11080 b[178]vars[170]7[170]4[172]67[170]5[172]16[170]16[172]32[170]7[172]80[170]4[172]50[170]16[170]4[170]((op[171]1)[172]8):x[178][194](b[170]3)[175]128
  113. 11083 vo[178][194](b[170]0):vo[178]vo[170]([194](b[170]1)[172]256):vo[178]vo[170]([194](b[170]2)[172]65536)
  114. 11086 vo[178]vo[170](([194](b[170]3)[175]127)[172]16777216)
  115. 11087 [139]x[178]128[167]vo[178][171]vo:[153]"negatives opfer vermoegen !!!"vo
  116. 11090 [139]k[179]pz[172]vo[173]100[167][142]
  117. 11100 [139]([194](pb[170](op[171]1)[172]4[170]op[171]1)[171]pz)[179]51[167][142]
  118. 11140 pp[178]pb[170]([194](vars[170]1)[171]1)[172]4[170]op[171]1:[151]pp,[194](pp)[170]pz:k[178]k[171]pz[172]vo[173]100
  119. 11170 vm[178]vm[171]pz[172]vo[173]100:[153]"aktien gekauft !!!"pz"%":[153]"von opfer:"op
  120. 11210 [153]"op. verm.:"vo:[153]"own verm.:"vm:[153]"own konto:"k:[142]
  121. 20000 ch[178][181]([187](1)[172]100):[139]uu[178]90[175]ch[179][178]uu[175]ch[177][178]0[167]uu[178]50:[153]"again !!! uu:"uu:[137]10
  122. 20020 [139]uu[178]50[175]ch[179][178]uu[175]ch[177][178]0[167]uu[178]00:[153]"again !!! uu:"uu:[137]10
  123. 21000 [153]"ende +exit  !!!!!!!!!!":[158]code,1,"l.abrech",8
  124.