home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.boerse (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  121 lines
  1. 0 co=7*4096:va=5*4096+6*256:ab=va+1627
  2. 10 dimp$(5),a(5,5),au(5),v(5),vz(5):gosub10000:print"[144]"
  3. 55 printtab(7);"[195]omputerb*rse[160][200]auptmenu":printtab(7);"[215]elche[160][194]*rsengesch@fte"
  4. 70 printtab(7);"m*chten[160][211]ie[160][212]@tigen[160]?":printtab(8);"[193]ktien[160]verkaufen"
  5. 80 printtab(8);"[193]ktien[160]kaufen[160][160][160]":printtab(8);"[193]ktien[160]^bersicht":sysco,6,5
  6. 100 gosub40000:ifa=99thengoto47000
  7. 150 onagoto1000,4000,8000
  8. 1000 rem
  9. 1005 mp=1:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]verkaufen"
  10. 1030 printtab(6);"[211]ie[160]haben[160]folgende[160]aktien[160]:":gosub32000:gosub30000:gosub40000
  11. 1090 ifa=99then45000
  12. 1105 b=a:uu=0:mp=2:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]verkaufen"
  13. 1140 printtab(6);"[215]iviele[160][208]rozentpunkte":printtab(6);"m*chten[160][211]ie[160]verkaufen"
  14. 1151 printtab(6);"[144][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]":poke1024+13*40+15,29
  15. 1153 poke1024+13*40+24,27:printtab(6);"[199]esamtsumme[160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160]"
  16. 1155 printtab(15);"[214]erkaufen[160]":sysco,6,6:sysco,3:gosub34000:gosub36000
  17. 1165 print"";tab(17);uu;"[157][160]":printtab(21);"[145]%":printtab(20);"[160][160][160][160][160][160][160][160][160][160][160][196][205][145]"
  18. 1172 printtab(20);uu*vz(b);"[157][160]":sysco,6,6:gosub40000:ifa=1thengosub1500
  19. 1190 ifa=2thengosub1600
  20. 1200 ifa=3then1700
  21. 1210 ifa=99then45000
  22. 1220 goto1165
  23. 1500 uu=uu+1:ifuu>au(b)thenuu=au(b)
  24. 1530 return
  25. 1600 uu=uu-1:ifuu<0thenuu=0
  26. 1620 return
  27. 1700 a(ap,b)=a(ap,b)-uu:v(ap)=v(ap)+(uu*vz(b)):ko=ko+(uu*vz(b)):goto45000
  28. 4000 rem
  29. 4005 mp=1:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]kaufen"
  30. 4030 printtab(6);"[193]ngebotene[160][193]ktien:":gosub33000:gosub30000:gosub40000:ifa=99then45000
  31. 4105 b=a:uu=0:mp=4:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]kaufen"
  32. 4140 printtab(6);"[215]iviele[160][208]rozentpunkte":printtab(6);"m*chten[160][211]ie[160]kaufen"
  33. 4151 printtab(6);"[144][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]":poke1024+13*40+15,29
  34. 4153 poke1024+13*40+24,27:printtab(6);"[199]esamtsumme[160][160]:[160][160][160][160][160][160][160][160][160][160][160][160][160]"
  35. 4155 printtab(17);"kaufen":sysco,6,6:sysco,3:gosub33000:au(1)=au(b):gosub36000
  36. 4165 print"";tab(17);uu;"[157][160]":printtab(21);"[145]%":printtab(20);"[160][160][160][160][160][160][160][160][160][160][160][196][205][145]"
  37. 4172 printtab(20);uu*vz(b);"[157][160]":sysco,6,6:gosub40000:ifa=1thengosub1500
  38. 4190 ifa=2thengosub1600
  39. 4200 ifa=3then4700
  40. 4210 ifa=99then45000
  41. 4220 goto4165
  42. 4700 a(ap,b)=a(ap,b)+uu:v(ap)=v(ap)-(uu*vz(b)):ko=ko-(uu*vz(b)):goto45000
  43. 8000 rem
  44. 8005 mp=5:gosub50000:sysco,3:print"[144]";:printtab(6);"[193]ktien[160][255]bersicht"
  45. 8030 printtab(6);"[194]esitzt[160]folgende[160][193]ktien :":printtab(32);"[215]eiter"
  46. 8032 ad=ap:ap=0:sysco,6,5:gosub56000
  47. 8035 ap=ap+1:ifap=5thenap=1
  48. 8036 print"[144]";:printtab(6);"[160][160][160][160][160][160][160][160][160][160][157][157][157][157][157][157][157][157][157][157]";:sys co,6,5
  49. 8037 printp$(ap)
  50. 8038 gosub32000:gosub31000:gosub55000
  51. 8050 gosub40000:ifa=1thengoto8035
  52. 8080 ifa=99thenap=ad:goto45000
  53. 10000 rem
  54. 10007 nb=peek(co+5)+peek(co+6)*256:fori=0to9:a=peek(nb+0+i):gosub60000:p$(1)=p$(1)+chr$(a)
  55. 10020 a=peek(nb+11+i):gosub60000:p$(2)=p$(2)+chr$(a)
  56. 10030 a=peek(nb+22+i):gosub60000:p$(3)=p$(3)+chr$(a)
  57. 10040 a=peek(nb+33+i):gosub60000:p$(4)=p$(4)+chr$(a):nexti:fori=1to4:forz=1to4
  58. 10080 a(i,z)=peek(ab-1+z+(i-1)*4):nextz,i:ap=peek(va+1):fori=0to3
  59. 10105 du=peek(ab+23+i*8)and128:d=peek(ab+20+i*8):d=d+peek(ab+21+i*8)*256
  60. 10130 d=d+peek(ab+22+i*8)*65536:d=d+(peek(ab+23+i*8)and127)*16777216:ifdu=128thend=-d
  61. 10150 v(i+1)=d:vz(i+1)=int(d/100):nexti:kb=va+7+(ap-1)*67+2:du=peek(kb+3)and128
  62. 10180 d=peek(kb):d=d+peek(kb+1)*256:d=d+peek(kb+2)*65536
  63. 10183 d=d+(peek(kb+3)and127)*16777216:ifdu=128thend=-d
  64. 10199 ko=d:return
  65. 20000 rem
  66. 20060 fori=1to4:forz=1to4:poke(ab-1+z+(i-1)*4),a(i,z):nextz,i:fori=0to3
  67. 20110 d1=int(v(i+1)/16777216):d2=int((v(i+1)-d1*16777216)/65536)
  68. 20130 d3=int((v(i+1)-d1*16777216-d2*65536)/256)
  69. 20140 d4=int(v(i+1)-d1*16777216-d2*65536-d3*256):ifv(i+1)<0thend1=d1+128
  70. 20150 poke(ab+23+i*8),d1:poke(ab+22+i*8),d2:poke(ab+21+i*8),d3:poke(ab+20+i*8),d4
  71. 20190 nexti:kb=va+7+(ap-1)*67+2:d1=int(ko/16777216)
  72. 20210 d2=int((ko-d1*16777216)/65536):d3=int((ko-d1*16777216-d2*65536)/256)
  73. 20230 d4=ko-d1*16777216-d2*65536-d3*256:ifko<0thend1=d1+128
  74. 20250 pokekb,d4:pokekb+1,d3:pokekb+2,d2:pokekb+3,d1:return
  75. 30000 rem
  76. 30005 print"":fori=0to3:printtab(6);"[144][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]"
  77. 30010 nexti:sysco,6,5:print"":fori=1to4:printtab(6);"";au(i)
  78. 30040 printtab(10);"[145]%[160]";p$(i);"[160]1%[160][160][160][160][160][160][160][196][205]":printtab(25);"[145]";vz(i):nexti:sysco,6,5:return
  79. 31000 rem
  80. 31005 print"":fori=0to3:printtab(6);"[144][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]":nexti:sysco,6,5
  81. 31020 print"":fori=1to4:printtab(6);au(i):printtab(10);"[145]%[160]";p$(i);"[160]1%[160][160][160] [160][160][160][196][205]"
  82. 31050 printtab(25);"[145]";vz(i):nexti:sysco,6,5:return
  83. 32000 rem
  84. 32010 fori=1to4:au(i)=a(ap,i):nexti:return
  85. 33000 rem
  86. 33005 au(1)=100:au(2)=au(1):au(3)=au(1):au(4)=au(1):fori=1to4:forz=1to4
  87. 33030 au(i)=au(i)-a(z,i):nextz,i:return
  88. 34000 rem
  89. 34010 au(b)=a(ap,b):return
  90. 36000 rem
  91. 36010 print"[144]":printtab(6);au(b):printtab(10);"[145]%[160]";p$(b);"[160]1%[160][160][160][160][160][160][160][196][205]"
  92. 36040 printtab(25);"[145]";vz(b):sysco,6,6:return
  93. 40000 rem
  94. 40010 poke2,0
  95. 40020 a=peek(2):ifa=0then40020
  96. 40030 return
  97. 45000 rem
  98. 45030 gosub20000:sysco,9:sysco,20,0:sysco,10:run
  99. 47000 rem
  100. 47030 gosub20000:sysco,25,1:sysco,1,"l.portal",8
  101. 50000 rem
  102. 50010 sysco,9:sysco,20,mp:sysco,10:return
  103. 55000 rem
  104. 55010 sysco,3:b1$=" [145][157]":b2$="[144] [145][157]":restore:fori=1to4:readdu
  105. 55031 print"";tab(2+i*6);:printchr$(du);:du=int(au(i)/10)
  106. 55037 ifdu=0thenprint"[144][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160]":goto55080
  107. 55040 forz=0to9:ifz<duthenprintb1$;
  108. 55060 ifz=>duthenprintb2$;
  109. 55070 nextz
  110. 55080 nexti:return
  111. 56000 rem
  112. 56010 sysco,3:b$="[144][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160]":fori=1to4
  113. 56040 print"";tab(2+i*6);b$:nexti:sysco,6,6:return
  114. 60000 rem
  115. 60010 ifa>=0anda=<31thena=a+64:return
  116. 60020 ifa>=64anda<=95thena=a+128:return
  117. 60030 ifa=96thena=160
  118. 60040 return:data 31,30,152,28
  119. 63000 gosub 32000:gosub31000:gosub55000
  120. 63010 return
  121.