start tok64 d64-OSDymj 0 REM"{delete*6}{R*39} 1 REM"{delete*6}{space*6}kapitalspelet (c) 1986,1990 2 REM"{delete*6}{E*39}"{delete}OFF 3 DIMar(20),o$(20),r$(20,10),w$(12):POKE53280,.:POKE53281,. 4 FORi=1TO12:READw$(i):NEXTi 5 PRINT"{yellow}{clear}{down}{space*7}{reverse on}{space*2}kapital spelet{space*2}{reverse off}{space*2}{reverse on}(c)1986,90{reverse off} 6 a=19:DIM a$(a),k(a+2),as(a),f(a),t$(a),v$(a) 7 INPUT"{down}{light blue}vilket ]r [r det nu";ar 8 DIM ut(a),at(5,a),kx(a),a%(a),m(a),ny(a) :s=1:ts=1 10 FORi=1TOa:READa$(i),k(i),as(i),m(i):a%(i)=as(i) 12 NEXT:sp=11:ha=10:ck=1:s1=1 14 FORi=1TOha:READar(i):READo$(i) 15 FORj=1TOar(i):READr$(i,j):NEXTj,i 50 GOTO2000 200 REM ******************************* 201 REM visa aktie kurserna 202 REM ******************************* 203 POKE 53281,0:POKE53280,0:POKE646,4 204 PRINT"{clear}{up}{cm a}{C*11}{cm r}{C*8}{cm r}{C*5}{cm r}{C*5}{cm r}{C*4}{cm s} 206 PRINT"B{yellow}aktie namn {156}B{green}s[ljkurs{156}B{gray}[ndr.{156}B{light blue}f{pound}rs.{156}B{cyan}utd.{156}B 208 PRINT"{cm q}{C*11}{sh +}{C*8}{sh +}{C*5}{sh +}{C*5}{sh +}{C*4}{cm w} 209 FORi=1TOa:PRINT"{156}B{space*11}B{space*8}B{space*5}B{space*5}B{space*4}B 210 PRINT"{yellow}{up}"TAB(7-LEN(a$(i))/2)a$(i)"{green}"TAB(14)k(i)TAB(28)"{light blue}"as(i):NEXT 248 PRINT"{156}{cm z}{C*11}{cm e}{C*8}{cm e}{C*5}{cm e}{C*5}{cm e}{C*4}{cm x} 254 PRINT"{home}{down*3}"; 256 FORi=1TOa:f$=t$(i)+v$(i):IFf$=""THENf$="{space*2}-" 266 ut(i)=INT(k(i)/20)+m(i):PRINT"{gray}"TAB(23)f$TAB(34)"{cyan}"ut(i):NEXT 294 PRINT"{white}{down}{right*3}{reverse on}return{reverse off} 296 WAIT197,13 298 RETURN 300 REM ******************************* 301 REM slumpar kurser 302 REM ******************************* 303 IFbk=1THEN340 304 FORi=1TOa:r=RND(1) 305 tt$=t$(i):t$(i)="":v$(i)="":kk=k(i) 306 IFr>.60THENt$(i)="+" 308 IFr<.40THENt$(i)="-" 310 IFr<.60ANDr>.40 THEN t$(i)="" 312 IFt$(i)=""THEN326 314 r=INT(20*RND(1))+1 315 GOSUB 1104 316 IFt$(i)="-"THENk(i)=k(i)-r 318 IFt$(i)="+"THENk(i)=k(i)+r 319 IFk(i)=rTHENk(i)=k(i)+50:r=r+50 320 IFk(i)<0THENk(i)=0:r=kk 324 IFkk=.ANDt$(i)="-"THENt$(i)="":v$(i)="" 325 IFr>.THENv$(i)=STR$(r) 326 REM 328 IFk(i)>0THEN338 330 FORj=1TOts:at(j,i)=0:NEXT 332 as(i)=a%(i) 338 NEXTi 340 RETURN 350 REM ******************************* 351 REM spelar ordning 352 REM ******************************* 354 p=p+1:IFp=ts+1THENp=1 356 rr=p:FORi=1TOts 358 ns(i)=rr:rr=rr+1 360 IFrr=ts+1THENrr=1 362 NEXTi:RETURN 400 REM ******************************* 401 REM huvud rutin 402 REM ******************************* 403 IFck=1THENGOSUB350:ck=0 404 POKE53281,11:POKE53280,5:POKE646,. 405 s=ns(s1) 407 PRINT"{yellow}{clear}{down}{space*7}{reverse on}{space*2}kapital spelet{space*2}{reverse off}{space*2}{reverse on}(c)1986,90{reverse off} 408 PRINT"{156}{down} datum "w$(sp)ar 409 IFca(s)<0THENca(s)=ca(s)-500:PRINT" {down}spelaren erl[gger straffavgift.500:-" 410 IFca(s)<0THENPRINT" p.g.a underskott i kapital." 411 PRINT"{down} nuvarande spelare: "nm$(s) 412 PRINT"{down} nuvarande spelares kapital: "ca(s)"kr 413 PRINT"{green}{down}{space*9}spelmeny 414 PRINT"{space*8}{cm y*10} 416 PRINT"{space*4}1.{space*5}visar aktiekurserna 418 PRINT"{space*4}2.{space*5}visar din ekonomi 420 PRINT"{space*4}3.{space*5}f{pound}r att k{pound}pa eller s[lja 422 PRINT"{space*4}4.{space*5}visar din placering 423 PRINT"{space*4}5.{space*5}ans{pound}ker om bankl]n 424 PRINT"{space*4}6.{space*5}avbetalning p] ev. l]n 426 PRINT"{space*4}7.{space*5}avslutar omg]ng 428 PRINT"{down}{space*2}v[lj alternativ! 430 GETin$:IFin$>"7"ORin$<"1"THEN430 432 ax=VAL(in$) 434 ONaxGOSUB200,500,600,700,900,972 436 IFax=7THEN440 438 GOTO400 440 s1=s1+1 442 IFs1<=tsTHEN400 444 IFsp=seANDar=a1THEN1000 446 GOSUB800:s1=1:GOSUB 300:sp=sp+1:ck=1 448 IFsp=13THENar=ar+1:sp=1 450 GOSUB200:GOTO400 500 REM ******************************* 501 REM visar spelares ekonomi 502 REM ******************************* 504 POKE 53280,2:POKE 53281,0:POKE646,1 506 PRINT"{clear}{down*2}{right*9}{reverse on}"nm$(s)"s{space*2}ekonomi{reverse off} 507 IFsl(s)=1THENsk=11000-ab(s):GOTO509 508 sk=. 509 PRINT"{156}{down}{space*3}datum "w$(sp)ar 510 PRINT"{down}{space*3}tillg]ngar i kapital:";ca(s) 511 PRINT"{down}{space*3}obetalda skulder:";sk(s) 512 PRINT"{down}{space*8}aktier{space*6}antal 513 PRINT "{space*7}{cm y*8}{space*3}{cm y*8} 514 FORi=1TOa:IFat(s,i)>0THEN520 516 NEXT:GOTO596 520 PRINT"{space*6}";a$(i) 524 PRINT"{up}"TAB(20)at(s,i) 530 GOTO516 596 WAIT197,13 598 RETURN 600 REM ******************************* 601 REM k{pound}p/s[lj rutin 602 REM ******************************* 604 POKE53280,9:POKE53281,0:POKE646,9 605 PRINT"{clear}{down}{space*10}{reverse on}{space*2}aktie b{pound}rsen{space*2}{reverse off} 606 PRINT"{down}{space*3}vill du k{pound}pa eller s[lja (k/s)" 607 PRINT"{space*4}(tryck 'x' f{pound}r att avbryta)" 608 GETin$:IFin$<>"k"ANDin$<>"s"ANDin$<>"x"THEN 608 609 IFin$="x"THENRETURN 610 IFin$="s"THEN660 612 PRINT"{clear}{down*2}{space*9}{reverse on}aktie k{pound}p{reverse off} 614 PRINT"{down*3}{space*2}i vilket f{pound}retag vill du k{pound}pa aktier?" 616 xx=0:ii=0:INPUTo$:FORi=1TOa:IFo$=a$(i)THENii=i:xx=1 617 NEXTi:i=ii:IFo$="x"THENRETURN 618 IFxx<>1THENPRINT"{down} f{pound}retaget finns ej p] b{pound}rslistan.":GOTO616 620 PRINT"{down*3}{space*2}hur m]nga aktier vill du k{pound}pa?":aa=.:i$="" 622 INPUTi$:aa=VAL(i$):IFi$="x"THENRETURN 624 IFaa>999ORaa<.THENPRINT"{down} ogiltigt":GOTO 622 626 IFaa>as(i)THENPRINT"{down} det finns inte s] m]nga aktier till salu.":GOTO622 627 IFk(i)=.THENPRINT"aktien [r v[rdel{pound}s och kan ej k{pound}pas.":GOTO 634 628 ks=(k(i)*aa):ca(s)=ca(s)-ks:IF ca(s)<0 THEN 642 630 at(s,i)=at(s,i)+aa:as(i)=as(i)-aa 632 PRINT"{down} k{pound}pet avklarat.":PRINT" (tryck 3 eller return)" 634 GETi$:IFi$=""THEN634 636 IFi$="3"THEN600 638 IFi$<>CHR$(13)THEN634 640 RETURN 642 PRINT"{down*3} du har {pound}verstigit dina tillg]ngar, 643 PRINT" k{pound}pet h[vs och du f]r b{pound}ta 500 kr. 644 ca(s)=ca(s)+ks:ca(s)=ca(s)-500 645 GET in$:IFin$<>CHR$(13)THEN645 646 RETURN 660 PRINT"{clear}{down*2}{space*7}{reverse on}aktie f{pound}rs[ljning{reverse off} 662 PRINT"{down*3}{space*4}vilka aktier vill du s[lja?" 664 xx=0:ii=0:INPUTo$:FORi=1TOa:IFo$=a$(i)ANDat(s,i)>.THENii=i:xx=1 666 NEXT:i=ii:IFo$="x"THENRETURN 667 IFxx<>1THENPRINT"{down} f{pound}retaget finns ej p] b{pound}rslistan.":GOTO 664 668 PRINT"{down*3}{space*2}hur m]nga aktier vill du s[lja?":aa=0:i$="" 670 INPUTi$:aa=VAL(i$):IFi$="x"THENRETURN 671 IFaa>999ORaa<0THENPRINT"{down} ogiltigt!":GOTO670 672 IFaa>at(s,i)THENPRINT"{down} du innehar ej s] m]nga aktier.":GOTO670 674 ks=(k(i)*aa):ca(s)=ca(s)+ks 676 at(s,i)=at(s,i)-aa:as(i)=as(i)+aa 680 PRINT"{down} f{pound}rs[ljning avklarad.":PRINT" (tryck 3 eller return)" 682 GETi$:IFi$=""THEN682 684 IFi$="3"THEN600 686 IFi$<>CHR$(13)THEN682 688 RETURN 700 REM ******************************* 701 REM visar spelarnas placering 702 REM ******************************* 704 PRINT"{clear}":POKE 53280,.:POKE53281,5:POKE646,0 706 FORi=1TOts:m$(i)=nm$(i):z9(i)=i:NEXT 708 FORi=1TOts:kz(i)=ca(i) 710 FORj=1TOa:IFat(i,j)>0THENkz(i)=(kz(i)+(at(i,j)*k(j))) 712 NEXT:NEXT 714 FOR i=1 TO ts-1 716 FORj=1+iTOts 718 IFkz(i)>=kz(j)THEN722 720 x=kz(i):kz(i)=kz(j):kz(j)=x:x=z9(i):z9(i)=z9(j):z9(j)=x 721 x$=m$(i):m$(i)=m$(j):m$(j)=x$ 722 NEXTj,i 726 PRINT"{clear}{down*3} {cm a}{C*36}{cm s} 728 PRINT" B{space*10}placerings-listan{space*9}B 730 PRINT" {cm z}{C*36}{cm x} 731 PRINT"{down*3}{space*3}datum{space*2}"w$(sp)ar 732 PRINT"{down} placering{space*4}namn{space*5}totalt kapital" 733 PRINT"{down}":FORi=1TOts 734 PRINT"{space*2}"i".{space*3}"m$(i):PRINTTAB(23)"{up}"kz(i) 736 PRINTTAB(31)"{up}kr" 737 IFsl(z9(i))=1THENPRINT"{up}*" 738 NEXT 739 PRINT"{down}{space*3}'*'= spelaren har tagit ett l]n." 740 PRINT"{down*2}{space*2}(tryck return) 742 WAIT197,13 744 RETURN 750 REM ******************************* 751 REM slumpar h[ndelse kort 752 REM ******************************* 754 r=RND(1):IFr>.00ANDr<=.1THENii=1 755 IFr>.1ANDr<=.2THENii=2 756 IFr>.2ANDr<=.3THENii=3 757 IFr>.3ANDr<=.4THENii=4 758 IFr>.4ANDr<=.5THENii=5 759 IFr>.5ANDr<=.6THENii=6 760 IFr>.6ANDr<=.7THENii=7 761 IFr>.7ANDr<=.8THENii=8 762 IFr>.8ANDr<=.9THENii=9 763 IFr>.9ANDr<=1THENii=10 789 IFii=ijTHEN750 790 rr$=r$(ii,1):IFii<>9ANDii<>10THEN794 791 ss=1:IFts>1THENss=INT(ts*RND(1))+1 792 r$(ii,1)=" "+nm$(ss)+r$(ii,1) 794 IFii<>2ANDii<>5ANDii<>6ANDii<>7THEN 799 796 rr=INT(a*RND(1))+1:r$(ii,1)=" "+a$(rr)+r$(ii,1) 799 ij=ii:RETURN 800 REM ******************************* 801 REM b{pound}rsnyheter 802 REM ******************************* 804 PRINT"{clear}":POKE 53280,0:POKE 53281,0:POKE646,1 806 bk=0:d=0:GOSUB 750:IFii=0THENRETURN 807 IFii=7ANDny(rr)=1THEN 818 808 PRINT"{clear}{down*2}{cyan}{space*12}b{pound}rsnyheter 809 PRINT"{space*10}{cm y*16} 810 PRINT"{down*2}"TAB(12)o$(ii):PRINTTAB(6)"{cm y*34} 812 FORi=1TOar(ii):PRINTTAB(7)r$(ii,i) 814 NEXTi 816 ONiiGOSUB830,850,840,844,852,856,858,866,870,872 817 r$(ii,1)=rr$ 818 PRINT"{down*3}{space*4}{reverse on}return{reverse off}" 820 GETin$:IFin$=""THEN820 822 r$(ii,1)=rr$:PRINT"{up}{space*4}{reverse on}{space*6}{reverse off}":GOTO350 830 FORi=1TOa:k(i)=INT(k(i)*0.9):NEXTi:RETURN 840 FORi=1TOts:FORj=1TOa:IFat(i,j)>0THENca(i)=ca(i)+(ut(j)*at(i,j)) 842 NEXTj,i:RETURN 844 FORi=1TOa:k(i)=INT(k(i)*1.15):NEXT:RETURN 850 r=INT(15*RND(1))+15:k(rr)=k(rr)+r:PRINT"{space*7}med"r"kr.":RETURN 852 FORi=1TOts:IFat(i,rr)>0THENca(i)=(ca(i)+(k(rr)*at(i,rr))) 854 NEXTi:RETURN 856 r=INT(15*RND(1))+15:k(rr)=k(rr)-r:PRINT"{space*7}minskar med"r"kr." 857 RETURN 858 ny(rr)=ny(rr)+1:a%(rr)=a%(rr)*2 860 as(rr)=as(rr)*2:k(rr)=INT(k(rr)/2) 862 FORi=1TOts:IFat(i,rr)>.THENat(i,rr)=at(i,rr)*2 864 NEXT:RETURN 866 FORi=1TOts:FORj=1TOa 867 IFat(i,j)>0THENca(i)=ca(i)-INT(0.05*(k(j)*at(i,j))) 868 NEXTj,i:RETURN 870 r=INT(10*RND(1))+1:r=1000+r*100:PRINTTAB(7)r"kronor":ca(ss)=ca(ss)+r:RETURN 872 r=INT(5*RND(1))+5:r=r*100:PRINTTAB(7)r"kronor":ca(ss)=ca(ss)-r 874 RETURN 900 REM ******************************* 901 REM * bank l]n * 902 REM ******************************* 904 POKE53281,5:POKE53280,5:POKE646,6 906 IFft(s)<1THENRETURN 909 PRINT"{clear}{down*3}{space*8}*** bank l]n *** 910 PRINT"{space*3}du befinner dig inne p] bankens 911 PRINT"{space*3}kontor tillsammans med bankchefen. 912 PRINT"{down}{space*2}-goddag! herr bankchef." 913 PRINT"{space*3}jag {pound}nskar g{pound}ra ett bankl]n." 914 PRINT"{down}{space*2}-goddag sj[lv,l]ntagare!" 915 PRINT"{down}{space*3}hur mycket vill ni l]na";:INPUTfr: 916 IFfr>1000ANDfr<10000ANDfr/100=INT(fr/100) THEN z=0 917 IFfr<1000 OR fr>10000THEN PRINT"{down}{space*3}ni behagar sk[mta,m[rker jag!":z=z+1 918 IFfr/100<>INT(fr/100)THENPRINT"{down}{space*2}var inte dum nu!":z=z+1 919 IFz<2ANDz>0THENGOTO915 920 IFz=2THENPRINT"{down}{space*2}ni har f{pound}rspillt er tid och kan g] nu.":ft(s)=0 921 IFft(s)<1THENWAIT197,42:RETURN 922 IF(fr/1000)>ft(s) THENz=2 923 IFz=2THENPRINT"{down}{space*2}-tyv[rr kan jag inte bevilja ett s]dant l]n till er!" 924 IFz=2THEN915 926 rt=.43:ry=rt*100 928 PRINT"{down}{space*2}-ni har blivit beviljad er l]n," 930 PRINT"{space*3}mot en r[nta p] "ry"%" 932 PRINT"{space*4}]ngrar ni er?" 933 GETa$:IFa$=""THEN933 934 IFa$="n"THEN936 935 PRINT"{down}{space*2}-ja!":PRINT"{down}{space*2}-adj{pound} d]!":FORi=1TO1000:NEXTi:RETURN 936 ft(s)=ft(s)-INT(fr/1000) 938 PRINT"{down}{space*2}-nej!":PRINT"{down}{space*2}-bra! d] registrerar vi ert l]n." 939 PRINT"{down}{space*2}-tack s] mycket!" 940 ca(s)=ca(s)+fr:sk(s)=sk(s)+fr+INT(fr*rt) 942 ab(s)=0:su(s)=su(s)+fr+INT(fr*rt) 944 sl(s)=1:FORi=1TO1000:NEXTi:RETURN 972 REM ******************************* 973 REM * ]terbetalning * 974 REM ******************************* 975 IFsl(s)=.THENRETURN 976 PRINT"{clear}":POKE53280,0:POKE53281,0 978 PRINT"{down*3}{space*3}hur mycket vill du ]terbetala?" 980 INPUTin$:v=VAL(in$):IFv<1ORv>ca(s)THEN980 982 ca(s)=ca(s)-v:ab(s)=ab(s)+v:sk(s)=sk(s)-v 983 c=0:IF ab(s)>su(s)THENcc=ab(s)-su(s):ca(s)=ca(s)+cc:su(s)=0:c=1 984 IFsu(s)=.THENPRINT"{down}{space*2}l]net [r ]terbetalat.":sl(s)=0 985 IFc=1THENPRINT"{down}{space*2}du f]r tillbaka "cc"kr." 986 GOTO294 998 RETURN 1000 REM ****************************** 1001 REM avslutning 1002 REM ****************************** 1010 FORi=1TOts:IFsl(i)=1THENca(i)=ca(i)-5000 1011 NEXTi 1020 POKE53281,.:POKE53280,.:POKE646,4 1024 PRINT"{clear}{down*3}{space*9}*** kapitalspelet *** 1026 PRINT"{down*4}{space*6}spelet [r nu slut. 1028 PRINT"{down*3}{space*7}(tryck return)" 1029 GETi$:IFi$<>CHR$(13) THEN 1029 1030 FORi=1TOts:m$(i)=nm$(i):NEXT 1032 FORi=1TOts:kz(i)=ca(i) 1033 FORj=1TOa:IFat(i,j)>.THENkz(i)=(kz(i)+(at(i,j)*k(j))) 1034 NEXT:NEXT 1035 FORi=1TOts-1 1036 FORj=i+1TOts 1037 IFkz(i)>=kz(j)THEN1040 1038 x=kz(i):kz(i)=kz(j):kz(j)=x 1039 x$=m$(i):m$(i)=m$(j):m$(j)=x$ 1040 NEXTj,i 1041 PRINT"{clear}{down*3} {cm a}{C*36}{cm s} 1042 PRINT" B{space*10}placerings listan{space*9}B 1043 PRINT" {cm z}{C*36}{cm x} 1044 PRINT"{down*3}{space*5}datum{space*2}"w$(sp)" "ar 1076 PRINT"{down} placering{space*4}namn{space*5}totalt kapital" 1078 PRINT"{down}":FOR i=1TOts 1080 PRINT"{space*2}";i".{space*3}";m$(i):PRINTTAB(23)"{up}"kz(i) 1082 PRINTTAB(31)"{up}kr" 1084 NEXTi 1086 PRINT"{down*4}{space*4}{pound}nskar du ett nytt spel? 1088 GETa$:IFa$<>"j"ANDa$<>"n"THEN1088 1089 IFa$="n"THENSYS64738 1090 RUN 1100 REM ****************************** 1101 REM slumpar special f{pound}r[ndringar 1102 REM ****************************** 1104 rr=RND(1) 1106 IFrr<.15ANDr>16THENr=r*2 1108 IFrr>.85ANDk(i)<15THENt$(i)="-" 1110 IFrr>=.15ANDrr<.25ANDtt$="+"THENt$(i)="+" 1112 IFrr>=.15ANDrr<.25ANDtt$="-"THENt$(i)="-" 1114 IFrr>=.30ANDrr<.60ANDr<8THENr=INT(r/2) 1198 RETURN 2000 REM ****************************** 2001 REM inledning 2002 REM ****************************** 2004 a1=ar+4:se=12 2006 POKE53281,6:POKE53280,6:POKE646,1 2010 PRINT"{clear}{down*2}{space*10}** kapitalspelet ** 2012 PRINT"{down*3}"; 2014 PRINT"{space*3}v[lkommen att spela kapitalspelet. 2016 PRINT"{space*3}{pound}nskar ni instuktioner (j/n)" 2018 GETin$:IFin$=""THEN2018 2019 IFin$<>"n"ANDin$<>"j"THEN 2018 2020 IFin$="j"THENGOSUB2100 2022 PRINT"{down}{space*3}hur m]nga vill delta i spelet? (1-4) 2024 GETin$:IFin$=""THEN2024 2026 ts=VAL(in$):IFts<1ORts>4THEN2024 2028 IFts<2THEN PRINT"{down}{space*2}var sn[ll och skriv ert namn,spelare!" 2030 IFts>1THEN PRINT"{down}{space*2}var sn[ll och skriv era namn,spelare!" 2032 FORi=1TOts 2034 INPUTnm$(i):IFnm$(i)=""THEN2034 2036 ca(i)=15000:ft(i)=10:NEXTi 2040 PRINT"{down}{space*3}vill ni [ndra antalet spelomg]ngar?" 2042 GETin$:IFin$<>"n"ANDin$<>"j"THEN2042 2044 IFin$="n"THEN2060 2046 INPUT"{down} ange det nya antalet ]r(1-20) ";a1:IFa1<1THEN2046 2047 a1=a1+ar:IFa1>ar+20THENPRINT"f{pound}r m]nga":a1=.:GOTO2046 2048 INPUT"ange vilken m]nad som spelet slutar";m$ 2049 FORi=1TO12:IFm$=w$(i)THENse=i:x=1 2050 NEXTi 2052 IFx=.THENm$="januari":GOTO2048 2054 PRINT"{space*2}spelet slutar nu "w$(se)" "a1 2058 PRINT"{down*2}{space*2}return!":WAIT197,13 2060 GOTO400 2100 PRINT"{clear}{down*3}{space*11}instruktioner" 2102 PRINT"{space*2}aktiespelet [r p] intet s[tt n]got 2104 PRINT"{space*2}f{pound}rs{pound}k att efterlikna den verkliga 2106 PRINT"{space*2}aktiemarknaden. det [r ist[llet ett 2108 PRINT"{space*2}aff[rsspel precis som tex. monopol. 2110 PRINT"{space*2}spelet g]r ut p] att genom att k{pound}pa 2112 PRINT"{space*2}och s[lja aktier p] s] s[tt att den 2114 PRINT"{space*2}b[sta m{pound}jliga vinsten uppn]s, tj[na 2116 PRINT"{space*2}s] mycket pengar som m{pound}jligt. 2120 PRINT 2122 PRINT"{space*2}det [r inte till]tet att k{pound}pa mera 2124 PRINT"{space*2}aktier [n vad du har r]d med. g{pound}r 2126 PRINT"{space*2}du [nd] det, kommer banken att ta 2128 PRINT"{sh space} en straffavgift p] 500:-. 2130 PRINT:PRINT"{space*2}tryck p] return n[r du l[st klart 2132 WAIT 197,13 2134 PRINT"{clear}{down*3}" 2135 PRINT"{space*2}spelet slutar i december ]r"a1"{down*2} 2136 PRINT"{space*2}om en aktiekurs g]r ner p] noll och 2138 PRINT"{space*2}blir v[rdel{pound}s, ]tertar banken alla 2140 PRINT"{space*2}aktier i det f{pound}retaget. 2142 PRINT 2144 PRINT"{space*2}aktiek{pound}p g]r till s] att du, d] du 2146 PRINT"{sh space} befinner dig i huvud menyn, trycker 2148 PRINT"{space*2}p] 3. sedan trycker du p] 'k' och 2150 PRINT"{space*2}nu kan du g{pound}ra ditt k{pound}p. 2152 PRINT"{space*2}vid aktie f{pound}rs[ljning trycker du 2154 PRINT"{space*2}ist[llet p] 's' n[r du tryckt p] 3. 2156 PRINT:PRINT"{space*2}tryck p] return n[r du l[st klart 2158 WAIT 197,13 2160 PRINT"{clear}{down*3}" 2162 PRINT"{space*2}efter varje spelomg]ng visar datorn" 2164 PRINT"{space*2}en b{pound}rsnyhet. denna kan inneh]lla 2166 PRINT"{space*2}lite av varje. b]de goda och mindre 2168 PRINT"{space*2}goda nyheter. 2170 PRINT:PRINT"{space*2}du kan ans{pound}ka om l]n hos banken, 2172 PRINT"{space*2}men kom ih]g att det kan bli dyrt 2174 PRINT"{space*2}att l]na f{pound}r mycket och ju mer du 2176 PRINT"{space*2}l]nar, ju mindre f{pound}rtroende f]r 2178 PRINT"{space*2}du av bankchefen. om du inte 2180 PRINT"{space*2}hinner betala l]net innan spelet 2182 PRINT"{space*2}spelet [r slut, s] f]r du b{pound}ta 2184 PRINT"{space*2}5{0*3}:-. 2196 PRINT:PRINT"{space*2}tryck p] return n[r du l[st klart" 2198 WAIT 197,13 2200 PRINT"{clear}{down*3}":RETURN 9900 DATAjanuari,februari,mars 9902 DATAapril,maj,juni,juli 9904 DATAaugusti,september,oktober 9906 DATAnovember,december 10000 REM ***************************** 10001 REM aktie kurser vid start 10002 REM ***************************** 10005 DATAaga,174,200,0 10010 DATAasea,157,200,0 10015 DATAastra,169,200,0 10020 DATAatlas copco,237,200,0 10025 DATAboliden,180,200,0 10030 DATAdn,140,200,0 10035 DATAelectrolux,157,200,0 10040 DATAericsson,147,200,0 10045 DATAellos,135,200,0 10050 DATAfermenta,242,200,0 10055 DATAiggesund,172,200,0 10060 DATAlkab,167,200,0 10065 DATAmarabou,143,200,0 10070 DATAmodo,212,200,0 10075 DATApharmacia,175,200,0 10080 DATAscandia,215,200,0 10085 DATAskf,273,200,1 10090 DATAsydkraft,163,200,0 10095 DATAvolvo,300,200,1 10100 REM ***************************** 10101 REM h[ndelse kort 10102 REM ***************************** 10110 DATA 3,"kursras" 10112 DATA "alla aktie kurser rasar" 10114 DATA "med 10% (avrundat till" 10116 DATA "hela kronor)" 10120 DATA 5,"stororder" 10121 DATA " har tagit" 10122 DATA "hem en stor order." 10124 DATA "f{pound}rtoendet f{pound}r " 10126 DATA "f{pound}retaget {pound}kar och" 10128 DATA "aktie kurserna stiger " 10130 DATA 3,"aktieutdelning" 10132 DATA "samtliga aktiebolag ger" 10134 DATA "sina aktie[gare utdelning" 10136 DATA "p] deras aktier." 10140 DATA 3,"kursuppg]ng" 10142 DATA "alla aktiekurser" 10144 DATA "stiger med 15% (avrundat " 10146 DATA "till hela kronor)" 10150 DATA 2,"aktieutdelning" 10152 DATA " ger sina aktie-" 10154 DATA " [gare aktie utdelning." 10155 DATA 4,"ordermiss" 10156 DATA " har tappat" 10157 DATA " en stor order och" 10158 DATA " f{pound}rtroendet sjunker" 10159 DATA " och aktie kursen " 10164 DATA 5," nyemmision" 10165 DATA " f{pound}rdubblar sitt" 10166 DATA "aktieantal och alla" 10167 DATA "aktie[gare f]r fler" 10168 DATA "aktier till en l[gre" 10169 DATA "kurs." 10174 DATA 3," aktieskatt " 10175 DATA"alla spelare m]ste" 10176 DATA"betala 5% i skatt p] sitt" 10177 DATA"totala aktie kapital." 10180 DATA 3," tipsvinst " 10182 DATA" har vunnit p] tipset" 10184 DATA" och har f{pound}rm]nen att" 10186 DATA" {pound}ka sitt kapital med" 10190 DATA 3," avbetalning" 10192 DATA" tvingas g{pound}ra en " 10194 DATA" avbetalning p] sin" 10196 DATA" lyxvilla med " 10198 REM 10200 REM 12000 REM ***************************** 12002 REM * * 12004 REM * av christer eriksson * 12006 REM * * 12008 REM * oktober 1986 * 12010 REM * * 12012 REM ***************************** 12020 REM modified by mr.p of soft- 12022 REM wolves in 1990 (c). stop tok64 (bastext 1.0)