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 >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
121 lines
0 co=7*4096:va=5*4096+6*256:ab=va+1627
10 dimp$(5),a(5,5),au(5),v(5),vz(5):gosub10000:print"[144]"
55 printtab(7);"[195]omputerb*rse[160][200]auptmenu":printtab(7);"[215]elche[160][194]*rsengesch@fte"
70 printtab(7);"m*chten[160][211]ie[160][212]@tigen[160]?":printtab(8);"[193]ktien[160]verkaufen"
80 printtab(8);"[193]ktien[160]kaufen[160][160][160]":printtab(8);"[193]ktien[160]^bersicht":sysco,6,5
100 gosub40000:ifa=99thengoto47000
150 onagoto1000,4000,8000
1000 rem
1005 mp=1:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]verkaufen"
1030 printtab(6);"[211]ie[160]haben[160]folgende[160]aktien[160]:":gosub32000:gosub30000:gosub40000
1090 ifa=99then45000
1105 b=a:uu=0:mp=2:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]verkaufen"
1140 printtab(6);"[215]iviele[160][208]rozentpunkte":printtab(6);"m*chten[160][211]ie[160]verkaufen"
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
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]"
1155 printtab(15);"[214]erkaufen[160]":sysco,6,6:sysco,3:gosub34000:gosub36000
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]"
1172 printtab(20);uu*vz(b);"[157][160]":sysco,6,6:gosub40000:ifa=1thengosub1500
1190 ifa=2thengosub1600
1200 ifa=3then1700
1210 ifa=99then45000
1220 goto1165
1500 uu=uu+1:ifuu>au(b)thenuu=au(b)
1530 return
1600 uu=uu-1:ifuu<0thenuu=0
1620 return
1700 a(ap,b)=a(ap,b)-uu:v(ap)=v(ap)+(uu*vz(b)):ko=ko+(uu*vz(b)):goto45000
4000 rem
4005 mp=1:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]kaufen"
4030 printtab(6);"[193]ngebotene[160][193]ktien:":gosub33000:gosub30000:gosub40000:ifa=99then45000
4105 b=a:uu=0:mp=4:gosub50000:sysco,3:print"[144]":printtab(6);"[193]ktien[160]kaufen"
4140 printtab(6);"[215]iviele[160][208]rozentpunkte":printtab(6);"m*chten[160][211]ie[160]kaufen"
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
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]"
4155 printtab(17);"kaufen":sysco,6,6:sysco,3:gosub33000:au(1)=au(b):gosub36000
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]"
4172 printtab(20);uu*vz(b);"[157][160]":sysco,6,6:gosub40000:ifa=1thengosub1500
4190 ifa=2thengosub1600
4200 ifa=3then4700
4210 ifa=99then45000
4220 goto4165
4700 a(ap,b)=a(ap,b)+uu:v(ap)=v(ap)-(uu*vz(b)):ko=ko-(uu*vz(b)):goto45000
8000 rem
8005 mp=5:gosub50000:sysco,3:print"[144]";:printtab(6);"[193]ktien[160][255]bersicht"
8030 printtab(6);"[194]esitzt[160]folgende[160][193]ktien :":printtab(32);"[215]eiter"
8032 ad=ap:ap=0:sysco,6,5:gosub56000
8035 ap=ap+1:ifap=5thenap=1
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
8037 printp$(ap)
8038 gosub32000:gosub31000:gosub55000
8050 gosub40000:ifa=1thengoto8035
8080 ifa=99thenap=ad:goto45000
10000 rem
10007 nb=peek(co+5)+peek(co+6)*256:fori=0to9:a=peek(nb+0+i):gosub60000:p$(1)=p$(1)+chr$(a)
10020 a=peek(nb+11+i):gosub60000:p$(2)=p$(2)+chr$(a)
10030 a=peek(nb+22+i):gosub60000:p$(3)=p$(3)+chr$(a)
10040 a=peek(nb+33+i):gosub60000:p$(4)=p$(4)+chr$(a):nexti:fori=1to4:forz=1to4
10080 a(i,z)=peek(ab-1+z+(i-1)*4):nextz,i:ap=peek(va+1):fori=0to3
10105 du=peek(ab+23+i*8)and128:d=peek(ab+20+i*8):d=d+peek(ab+21+i*8)*256
10130 d=d+peek(ab+22+i*8)*65536:d=d+(peek(ab+23+i*8)and127)*16777216:ifdu=128thend=-d
10150 v(i+1)=d:vz(i+1)=int(d/100):nexti:kb=va+7+(ap-1)*67+2:du=peek(kb+3)and128
10180 d=peek(kb):d=d+peek(kb+1)*256:d=d+peek(kb+2)*65536
10183 d=d+(peek(kb+3)and127)*16777216:ifdu=128thend=-d
10199 ko=d:return
20000 rem
20060 fori=1to4:forz=1to4:poke(ab-1+z+(i-1)*4),a(i,z):nextz,i:fori=0to3
20110 d1=int(v(i+1)/16777216):d2=int((v(i+1)-d1*16777216)/65536)
20130 d3=int((v(i+1)-d1*16777216-d2*65536)/256)
20140 d4=int(v(i+1)-d1*16777216-d2*65536-d3*256):ifv(i+1)<0thend1=d1+128
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
20190 nexti:kb=va+7+(ap-1)*67+2:d1=int(ko/16777216)
20210 d2=int((ko-d1*16777216)/65536):d3=int((ko-d1*16777216-d2*65536)/256)
20230 d4=ko-d1*16777216-d2*65536-d3*256:ifko<0thend1=d1+128
20250 pokekb,d4:pokekb+1,d3:pokekb+2,d2:pokekb+3,d1:return
30000 rem
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]"
30010 nexti:sysco,6,5:print"":fori=1to4:printtab(6);"";au(i)
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
31000 rem
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
31020 print"":fori=1to4:printtab(6);au(i):printtab(10);"[145]%[160]";p$(i);"[160]1%[160][160][160] [160][160][160][196][205]"
31050 printtab(25);"[145]";vz(i):nexti:sysco,6,5:return
32000 rem
32010 fori=1to4:au(i)=a(ap,i):nexti:return
33000 rem
33005 au(1)=100:au(2)=au(1):au(3)=au(1):au(4)=au(1):fori=1to4:forz=1to4
33030 au(i)=au(i)-a(z,i):nextz,i:return
34000 rem
34010 au(b)=a(ap,b):return
36000 rem
36010 print"[144]":printtab(6);au(b):printtab(10);"[145]%[160]";p$(b);"[160]1%[160][160][160][160][160][160][160][196][205]"
36040 printtab(25);"[145]";vz(b):sysco,6,6:return
40000 rem
40010 poke2,0
40020 a=peek(2):ifa=0then40020
40030 return
45000 rem
45030 gosub20000:sysco,9:sysco,20,0:sysco,10:run
47000 rem
47030 gosub20000:sysco,25,1:sysco,1,"l.portal",8
50000 rem
50010 sysco,9:sysco,20,mp:sysco,10:return
55000 rem
55010 sysco,3:b1$=" [145][157]":b2$="[144] [145][157]":restore:fori=1to4:readdu
55031 print"";tab(2+i*6);:printchr$(du);:du=int(au(i)/10)
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
55040 forz=0to9:ifz<duthenprintb1$;
55060 ifz=>duthenprintb2$;
55070 nextz
55080 nexti:return
56000 rem
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
56040 print"";tab(2+i*6);b$:nexti:sysco,6,6:return
60000 rem
60010 ifa>=0anda=<31thena=a+64:return
60020 ifa>=64anda<=95thena=a+128:return
60030 ifa=96thena=160
60040 return:data 31,30,152,28
63000 gosub 32000:gosub31000:gosub55000
63010 return