2389,195,136,7 d‘ 2970"n I~1 r 6:CA(I)~540u(SLw40):›$xX~1:CC$~" " ‚„:ÿ 8,0Œ1250:¤ DIMS & READ NA$:–¢@0,3,"DO YOU WISH THE COMPUTER TO PLAY (Y/N)":ÿ 8,0 A$~ä$:ÿ 8,0!ª“ A$~"Y" { A$~"N" s 180 160´“ A$~"Y" s YX~1@¾¢:¢"ENTER NO. OF PLAYERS";:“ YX~1 s ¢" (INC. THE COMPUTER)" Èÿ 8,0 ÒA$~ä$Ü“ Ü(A$)}6 s 210 æNP~Ü(A$) ðÿ 8,0/ú¢@0,7,"HOW MANY TRANSACTIONS PER GO (1-5)"ÿ 8,0:A$~ä$“ Ü(A$)1 { Ü(A$)}5 s 260 NT~Ü(A$) "ÿ 8,0),¢:¢"HOW MANY ROUNDS (MAX 99)":ÿ 8,06” A@“ A1 { A}99 s 310 JNR~AT¢@0,8," "^ I~1 r NP+h“ I~1 z YX~1 s PN$(1)~"EINSTEIN":‘ 410 rÿ 8,0<|¢:¢"ENTER THE NAME OF PLAYER";I;"(MAX 8 CHARS)";:ÿ 8,0 †” PN$(I)'“ Ï(PN$(I))}8 s PN$(I)~Ý(PN$(I),8)š›&¤ I~1 r 12:BK(I)~Î((NPw80)t500):› ®„:ÿ 2,0<¸ÿ 6,0:¢" SHARE BID OFFER BANK DIV DUE":ÿ 2,0 Â1350©Ìÿ1*Ö¢@0,12,"PLAYERS CASH STOCKS TOTAL"; àÿ15!ê I~1 r NP:¢@0,It12,PN$(I):› ôÿ10,0þ¤ *** START OF LOOP *** 970:¤ PRINT OP/BP 1000:¤ PRINT BK 1030:¤ PRINT DV& 1060:¤ PRINT DD01090:¤ PRINT ASSETS:¤ *** GAME LOOP *** DHM~0;N“ NG~NT s NG~0:X~Xt1:I~1r6:¢@29,It12," ";:›)X“ X}NP s X~1: 2020:¤ *** UPDATE ***bÿƒ4:ÿ7:“ NR1 s 27406l¢@0,19,"PLAYER NO.";X;" ";PN$(X);" TO PLAY ";vÿ4:¢@39,19," ";h€¢@0,21," ";:¢@0,22," ";6Š¢@0,23," ";&”ÿ7:¢@29,12,"PL";X;"STOCKS";:ÿ14(ž I~1 r 6:¢@31,It12," ";:› I=¨I~1 r6:X$~Ý(NA$(PS(X,I,I)),4):¢@31,It12,X$;PS(X,I,0);:›²ÿ1¼¤ *** GAME LOOP ***"1Æ“ YX~1 z X~1 s 2400: ¤ ***COMPUTER PLAYS ***'Т@0,21,"BUY SELL OR PASS(B-S-P)?";Ú¢@39,21," ";äÿ’ îA$~ä$*ø“ A$~"B" { A$~"S" { A$~"P" s 770 750G“ A$~"P" s ¢@0,23,"PASS ";: M~1 r 400:› M:NG~0:X~Xt1: 1160:‘ 570 ¢@0,23,"WHICH STOCK?";“ A$~"S" s ¢@0,22,"SELL "; “ A$~"B" s ¢@0,22,"BUY "; *C$~ä$i4“ C$~"G" { C$~"S" { C$~"N" { C$~"U" { C$~"C" { C$~"L" { C$~"D" { C$~"W" { C$~"B" { C$~"M" s 830 810(> 1410:¤ *** MAKE FULL WORD(B$) ***H¢B$4R¢@0,23," ";;\“ A$~"B" s ¢@0,21,"HOW MUCH DO YOU WISH TO SPEND ";=f“ A$~"S" s ¢@0,21,"HOW MANY SHARES DO YOU WISH TO SELL"; p” YCz“ A$~"B" s HM~YC„“ A$~"S" s BQ~YC ŽYC~0 ˜NG~NGt1!¢“ A$~"B" s 1530:¤ *** BUY **"¬“ A$~"S" s 1850:¤ *** SELL ** ¶‘ 570 À‘960)ʤ *** PRINT BID & OFFER PRICES *****JÔÿ1: I~1 r 10:¢@9,I,BP(I);" ";:OP(I)~BP(I)w1.1:¢@16,I,OP(I);:› IÞ¨è¤ *** PRINT BANK (BK) ***#òÿ1: I~1 r 10:¢@ 24,I,BK(I):›ü¨¤ *** PRINT DIV (DV) ***,ÿ1: I~1 r 10:¢@ 29,I," ";DV(I);" ";:›¨"$¤ *** PRINT DUE DATE (DD) ****.ÿ1: I~1 r 10:¢@34,I," ";DD(I);" ":›8¨#B¤ *** PRINT PLAYERS ASSETS ***L I~1 r NP:ST(I)~0:› IV P~1 r NP` I~1 r 6*jST(P)~ST(P)t(PS(P,I,0)wBP(PS(P,I,I)))t› I~› Pˆÿ1’ I~1 r NPœ“ X~I s ÿ 7W¦¢@9,It12,CA(I);" ";:¢@15,It12,ST(I);" ";:PA(I)~CA(I)tST(I):¢@21,It12,PA(I); °ÿ 1º› I&Ä¢@21,20," ";NR;"ROUNDS LEFT";" "; Îÿ13ب⤠*** SET UP VARIABLES ***8ìŠ NA$(12),OP(12),BP(12),BK(12),DD(12),DV(12),PN$(6)(öŠ PS(6,6,6),PS$(6,6):¤ PLAYERS OCKS,Š PP(6):¤ *** PRICE PAID BY COMPUTER **  I~1 r 10:BP(I)~1.0:› Iv¤ NA$=STOCK NAMES,OP=OFFER PRICE,BP=BID PRICE,BK=QTY. OF SHARES IN BANK,DD=DUE DATE,DV=DIVIDEND,PN$=PLAYERS NAMES I~1 r 10:DD(I)~Î(NRw1.5)(“ DD(I)15 s DD(I)~152› I<¨%F¤ *** PRINT STOCK NAMES (NA$)*** P§ 1380Z I~1 r 10:£ NA$(I):›Id‡ GOLD,SILVER,NICKEL,URANIUM,COPPER,LEAD,DIAMONDS,WHEAT,BARLEY,MAIZEn I~1 r 10:¢@0,I,NA$(I):›x¨‚¤ *** MAKE FULL WORD ***Œ“ C$~"G" s B$~"GOLD":B~1–“ C$~"S" s B$~"SILVER":B~2 “ C$~"N" s B$~"NICKEL":B~3 ª“ C$~"U" s B$~"URANIUM":B~4´“ C$~"C" s B$~"COPPER":B~5¾“ C$~"L" s B$~"LEAD":B~6!È“ C$~"D" s B$~"DIAMONDS":B~7Ò“ C$~"W" s B$~"WHEAT":B~8Ü“ C$~"B" s B$~"BARLEY":B~9æ“ C$~"M" s B$~"MAIZE":B~10ð¨"ú¤ ***COMPLETE TRANSACTION ***E“ A$~"B" z CA(X)HM s ¢@0,23,"YOU DON'T HAVE ENOUGH ";:‘ 570“ A$~"B" s 1570 ‘ 1560"¤ *** BUY STOCK *** ,BS~06“ HM}CA(X) s BS~1@“ HMOP(B) s BS~1!J“ (Î(HMxOP(B)))}BK(B) s BS~1OT“ BS~1 s ¢@0,23,"TRANSACTION NOT POSSIBLE ";: L~1 r 700:› L^“ BS~1 s ‘ 570%h I~1 r 6:“ PS(X,I,I)~B s ‘ 1790r› I%| I~1 r 6:“ PS(X,I,I)~0 s ‘ 1790†› IW~1r6:ST(X)~0:›W8š W~1 r 6:ST(X)~ST(X)t(PS(X,W,0)wBP(PS(X,W,W))):› W ¤ÿ 10$®¢@10,Xt12," ";M¸¢@9,B,BP(B);" ":OP(B)~BP(B)w1.1:¢@16,B,OP(B);:¢@23,B," ";BK(B);" "; Âÿ 7.Ì¢@9,Xt12,CA(X)," ";:¢@15,Xt12,ST(X);'ÖPA(X)~CA(X)tST(X):¢@21,Xt12,PA(X); àÿ 10 êPT~0 ô‘ 570þ¤ CHANGE AFTER BUY*****bPS(X,I,I)~B:PS(X,I,0)~PS(X,I,0)tÎ(HMxOP(B)):CA(X)~CA(X)uHM:CA(X)~Î(CA(X)w100):CA(X)~CA(X)x100“ X~1 z YX~1 s PP(I)~OP(B)>BK(B)~BK(B)uÎ(HMxOP(B)):BP(B)~BP(B)tÎ((HMx10000)w100)x100&I~6 0‘ 1670:¤ *** SELL *** DOK~0N J~1 r 6-X“ PS(X,J,J)~B z PS(X,J,0)}~BQ s OK~J:J~6b› JHl“ OK~0 s ¢@0,23," YOU DO NOT HAVE THAT MANY";: I~1 r 500:› I:‘ 570 vPS(X,OK,0)~Î(PS(X,OK,0)uBQ)0€“ PS(X,OK,0)~0 s PS(X,OK,OK)~0:PS$(X,OK)~""ŠBK(B)~BK(B)tÎ(BQ)”CA(X)~CA(X)t(BP(B)wÎ(BQ))%žBP(B)~BP(B)uÎ((BP(B)x10000)w100)¨W~1r6:ST(X)~0:›W4²W~1r6:ST(X)~ST(X)t(PS(X,W,0)wBP(PS(X,W,W))):›W¼PA(X)~CA(X)tST(X)UÆÿ11:¢@24,B,BK(B);:ÿ7:¢@9,Xt12,CA(X);" ":¢@15,Xt12,ST(X);:¢@21,Xt12,PA(X);:ÿ10QТ@9,B,BP(B);" ";:OP(B)~BP(B)w1.1:OP(B)~(Î(OP(B)w100)x100):¢@16,B,OP(B); Ú‘570ä¤ ***UPDATE***îÿ1 øNR~NRu1 ÿ’ 51  W~1 r 10:DV(W)~0:¢@29,W," ";DV(W);" ";:› W% I~1 r 10:DD(I)~DD(I)uÎ(Õ(1)w6): “ DD(I)1 s DD(I)~(Î(NRw1.5)t8): 2280:¤ ADD DIV *****¢@34,I," ";DD(I);" ";4› IF>QB~(Î((Õ(1)w(95u(SLw2)))))t1:“ QB11 s BP(QB)~BP(QB)x2:ÿ’10:3250#H“ QB}10 z QB16 s ÿ’ 20: 3660R I~1 r 10'\AS~(Î(Õ(15)))x100:AW~(Î(Õ(9)))x100fBP(I)~BP(I)tAS+pBP(I)~BP(I)uAW:“ BP(I).22 s BP(I)~.22z“ ASuAW}.12 s 3350„“ AWuAS}.06 s 3510'ŽBP(I)~Î(BP(I)w100):BP(I)~BP(I)x100˜¢@8,I," ";*¢¢@9,I,BP(I);" ";:OP(I)~BP(I)w1.1?¬OP(I)~BP(I)w1.1:OP(I)~(Î(OP(I)w100))x100:¢@16,I,OP(I);" ";¶› IÀ¤*** CHANGE ASSETS *** Ê 1030 Ô 1090Þ¨è¤ *** ADD DIV ***òÿ’1ü“ DD(I)}21 s DD(I)~21# DV(I)~(Î((BP(I)w10))tÕ(8))x100 BP(I)~BP(I)u(DV(I)x2)a ¢@9,I;BP(I);" ";:OP(I)~BP(I)w1.1:OP(I)~Î(OP(I)w1000):OP(I)~OP(I)x1000:¢@16,I,OP(I);" "; $ FF~1rNP . PL~1 r698 “ PS(FF,PL,PL)~I s CA(FF)~CA(FF)t(DV(I)wPS(FF,PL,0)) B › PL L › FFV ¨` ¤ +++ COMPUTER PLAYS +++ j WS~0t U~1 r 6p~ “BP(PS(1,U,U))(PP(U)w.7)zDD(PS(1,U,U))}7 s A$~"S":B~PS(1,U,U):C$~NA$(B):¢@0,22,"SELL ";C$;:WS~U:U~6:‘ 2450gˆ “ BP(PS(1,U,U))}PP(U) z DD(PS(1,U,U))}7 s A$~"S":B~PS(1,U,U):C$~NA$(B):¢@0,22,"SELL ";C$;:WS~U:U~6’ “ WS}0 s YC~PS(1,WS,0)œ › U¦ “ WS}0 s ‘ 890 ° WS~0#º U~1r6:“ PS(1,U,U)}0 s WS~WSt1Ä › UÎ “WS~6 s WS~0:A$~"P":‘ 770Ø “ NR~1 s A$~"P":‘ 770â “ CA(1)1 s A$~"P":‘ 770 ì WS~0@ö C~1 r10:“DD(C)2zCA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 2680 › CB C~1 r10:“DD(C)3 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 26809 “ DD(C)2 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 2650 › CB( C~1 r10:“DD(C)4 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 26802 › CB< C~1 r10:“DD(C)5 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 2680F › CBP C~1 r10:“DD(C)6 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 2680Z › CBd C~1 r10:“DD(C)7 z CA(1)}OP(C) z BK(C)}0 s WS~C:C~10:‘ 2680n › Cx “ WS}0 s › C:‘ 2700‚ A$~ "P":‘ 7706Œ A$~"B":C$~NA$(WS):B~WS:¢@0,22,"BUY ";C$;:YC~CA(1)&– “ YC}BK(B)wOP(B) s YC~BK(B)wOP(B)   ‘ 890 ª ‘ 570´ ¤ **** END OF GAME ***¾ ¢@20,20,"MARKET CLOSED " È WW~0Ò GG~1 r NPÜ I~1 r NPu1\æ “ PA(It1)}PA(I) s X~PA(I):X$~PN$(I):PN$(I)~PN$(It1):PN$(It1)~X$:PA(I)~PA(It1):PA(It1)~Xð › I ú › GG  ÿ 87 ¢@0,12,"FINAL POSITIONS ";  ÿ 14" I~13 r 235, ¢@0,I," ";6 › I@ I~1 r NPJ ¢@0,It12,PN$(I);T ¢@9,It12,PA(I);^ › I h ÿ 7,r ¢@0,23," TO PLAY AGAIN PRESS SPACE"; | A$~ä$† “A$~" " s © ‘2940š ¤ *** MUSIC ***¤ „ ® ÿ 6J¸ ¢@14,2," STOCK TYCOON";:¢@3,22,"COPYRIGHT SCREENS DISTRIBUTION 1985";  ÿ 65Ì ¢@1,23," MAIN AVENUE,MOOR PARK,NORTHWOOD,MIDDX." Ö 3720à Á5Eê A$~"D5+D9D5C-BAG8#F5EG+CDE9D8-G5GG+C7C5-BAGG#FRAE7G5#FE8#F5D9R5"Eô B$~"R5R5G5#FGBAG#FGED7C5R5R5R5R5EAG#FAGDE9#D5E#FED7D5#C9#C9B9R5"Mþ C$~"R5R5-B5+CDE7D5C-B8A5GRRRRR+C7C7-B7+C5-BA7A5B+C-BA7R5#FG7B5AGEAGG9R5" · A$,B$,C$- „:¢:¢" ENTER SKILL LEVEL (1-9)";  A$~ä$ & “ Ü(A$)}9 { Ü(A$)1 s 16004 0 SL~Ü(A$) : ‘ 110D ¤ *** SCROLL MESSAGE *** N ÿÕ(9)t6X GD$~CC$tSM$b NN~1 r Ï(GD$)t1l ¢@15,23,Ý(GD$,15);v LL$~Ý(GD$,1)€ GD$~ß(GD$,Ï(GD$)u1)Š GD$~GD$tLL$ ” › NNž ÿ1¨ ¨ ² ¤ DROP¼ LG~(Î(Õ(1)w5))t1$Æ LG ‘ 3280,3290,3300,3310,3320FÐ SM$~"THERE HAS BEEN A SUDDEN DROP IN THE PRICE OF "tNA$(QB):‘3330FÚ SM$~"THERE HAS BEEN A SLUMP IN THE WORLD PRICE OF "tNA$(QB):‘3330:ä SM$~"THE WORLD MARKET HAS SLUMPED FOR "tNA$(QB):‘3330Gî SM$~"THERE HAS BEEN PANIC SELLING ON WALLSTREET OF "tNA$(QB):‘3330Nø SM$~"MASSIVE STOCKS HAVE CAUSED A SHARP DECLINE IN THE PRICE OF "tNA$(QB)  3140 ¨ ¤ SM INCREASE QQ~FRE(0)* QQ$~FRE$(0)4 LG~(Î(Õ(9)))t1:“LG~10s3380$> LG ‘ 3400,3410,3420,3430,3440JH SM$~"THERE HAS BEEN A DECREASE IN THE WORLD STOCKS OF "tNA$(I):‘ 34908R SM$~"WORLD DEMAND IS INCREASING FOR "tNA$(I):‘ 3490Q\ SM$~"WORLD MARKETS CAREFULLY AWAIT NEWS ABOUT HIGH STOCKS OF "tNA$(I):‘ 3490Gf GF$~"SUPPLIES OF "tNA$(I):SM$~GF$t" ARE QUICKLY DECREASING":‘ 3490Mp GF$~"STOCKS OF "tNA$(I):SM$~GF$t" ARE REPORTED TO BE RUNNING OUT":‘ 3490Bz GF$~"STOCKS OF "tNA$(I):SM$~GF$t" ARE IN SHORT SUPPLY":‘ 3490M„ GF$~"STOCKS OF "tNA$(I):SM$~GF$t" ARE REPORTED TO BE RUNNING LOW":‘ 3490GŽ GF$~"SUPPLIES OF "tNA$(I):SM$~GF$t" ARE RAPIDLY DECREASING":‘ 3490G˜ SM$~"WORLD MARKETS AWAIT NEWS ABOUT HIGH STOCKS OF "tNA$(I):‘ 3490 ¢ 3140¬ ¨¶ ¤ SM DECREASEÀ QQ~FRE(0)Ê LG~(Î(Õ(9)))t1:“LG~10s3530$Ô LG ‘ 3550,3560,3570,3580,3590KÞ SM$~"THERE HAS BEEN AN INCREASE IN THE WORLD STOCKS OF "tNA$(I):‘ 36408è SM$~"WORLD DEMAND IS DECREASING FOR "tNA$(I):‘ 3640Rò SM$~"WORLD MARKETS CAUTIOUSLY AWAIT NEWS ABOUT HIGH STOCKS OF "tNA$(I):‘ 3640Gü GF$~"SUPPLIES OF "tNA$(I):SM$~GF$t" ARE QUICKLY INCREASING":‘ 3640DGF$~"STOCKS OF "tNA$(I):SM$~GF$t" ARE REPORTED TO BE VERY HIGH"@SM$~"WORLD DEMAND IS DECREASING RAPIDLY FOR "tNA$(I):‘ 3640SSM$~"WORLD MARKETS CAUTIOUSLY AWAIT NEWS ABOUT LARGE STOCKS OF "tNA$(I):‘ 3640G$GF$~"SUPPLIES OF "tNA$(I):SM$~GF$t" ARE RAPIDLY INCREASING":‘ 3640@.GF$~"STOCKS OF "tNA$(I):SM$~GF$t" ARE SAID TO BE VERY HIGH" 8 3140B¨L¤ BIG RISEVQB~(Î(Õ(1)w10))t1K`SM$~"PRICES OF ":SM$~SM$tNA$(QB):SM$~SM$t" HAVE GONE THROUGH THE ROOF")jBP(QB)~(BP(QB)w1.5)t(Î(Õ(1)w50)x100) t 3140~¨ˆ¤ PICTURE ’§ 4000 œZ1~4:X~0¦ÿ€ 80,118 r 82,112,Z1 °X~Xt1 º£ X1,Y1ÄY1~200uY1Îÿ€ r X1,Y1,Z1Ø“ X~18 s 3820 â‘ 3760ìX~0öÿ€ 110,132 r 112,120,Z1 § 4020 X~Xt1 £ X1,Y1Y1~200uY1(ÿ€ r X1,Y1,Z12“ X~8 s 3910 <‘ 3850FX~0:§ 4030Pÿ€ 114,115 r 117,100,Z1 ZX~Xt1d£ X1,Y1:Y1~200uY1nÿ€ r X1,Y1,Z1x“ X~18 s 3980 ‚‘ 3930Œÿ€ 110,85 r110,112,Z1–¨Z ‡ 120,60,130,50,135,40,130,27,120,28,110,30,108,40,105,50,105,60,106,65,109,62,109,50/ª‡ 112,40,120,32,128,33,130,38,109,62,80,82>´‡ 109,82,107,70,109,82,100,85,100,93,135,80,130,75,112,80Q¾‡115,115,110,130,100,140,90,138,80,130,85,120,90,114,100,115,110,115,140,130Bȇ 138,140,110,120,95,118,90,120,88,130,90,132,100,132,110,120ȃ¸…¸\‡À ‡;Úš ;ŸšC\špæ#h/ z‰z‰