+&"d:********* STOCKS *********&Cn:*********** BY ***********&dx:**** LARRY GREENFIELD ****&:********* V4.0.0 *********&:******** 05/21/90 ********&:**************************&:** THIS GAME IS PUBLIC **' :** DOMAIN SOFTWARE. IT **'*:** IS AVAILABLE FREE **'K:** TO EVERYONE. I ASK **'l:** ONLY THAT IT NOT BE **':** ALTERED. THANKS, **':** AND ENJOY! ---LARRY **':**************************''(32,"*");("05/21/90 *stocks* V4.0.0";(*" V4.0.0"(M" THE STOCK MARKET GAME"(^"(32,"*");(,"(C)1982/1990 LARRY GREENFIELD"(6"********************************";(@:** RANDOM MIXER **(JA$():L(A$)1(TT(A$))^ L1 TTT10:370)5hTT(T100):TTTT(TT):TTTT100:TT(TT))Qr RR1 TT:RE():)r|A$"":L0:T0:TT0:RR0:RE0)RR11800:::" SOFTWARE FOR THE BEST PRICE:")RR11300::" free!")RR11400:*::" HIT ";A$*>:(32,"*");:"05/21/90 *stocks* V4.0.0";*" V4.0.0":" THE STOCK MARKET GAME":(32,"*");:"(C)1982/1990 LARRY GREENFIELD":(32,"*");+‡"ARE YOU USING A MONOCHROME ":"MONITOR? (Y/N)";RR$: RR$"Y" 65469,48+ṙ224," "+և@224,"CAN YOUR COCO HANLE: (1)COCO 1&2 HI-SPEED POKE (2)COCO 3 HI-SPEED POKE (3)NO HI-SPEED POKE ","PRESS SELECTION (1-3) ",&A$:A$""490,3A(A$),HA1 A3 490,pA1 65495,0 : A2 65497,0,xV9, P(9),S(9),UD(9),Z(9),M(9),&T100,00:X031:B(7):@X,(16B143);:@X448,(16B143);:-$:X044832:B(7):@X,(B16143);:@X31,(B16143);:-7D@77,"stocks";-QN@138,"instructions";-X:PRINT@173,CHR$(123);CHR$(121);CHR$(124);CHR$(110);CHR$(125);-b1174,63-l 1198,40: 1199,25: 1200,47: 1201,14: 1202,41-vA$-A$"Y"2080.A$"N":670.630. SEARS,IBM,XEROX,FORD,G.E.,RCA,AVCO,TANDY,KODAK,MOBIL,KMART,CASIO,SANYO,WARNER,APPLE,SUNOCO,AT&T,USS,KELLOG,NEC,G.M.,JCPEN.,SHELL,FLOUR,SONY,JVC,MOTRLA,ZENITH/E DAEWOO,WALMRT,T.I.,CHASE,MCA,DISNEY,DIGTAL,INTEL,MCI,ITT,COMSAT,B OF A,GTE,MOTEL6,AAR,AMEX,HILTON,FEDEX,PACTEL,MAYCO,FUJI,SMSUNG,P&G,SHARP/ WOLWTH,WSHPST,DELTA,GANNET,GRACE,PEPBOY,UNITED,NYNEX,ORION,PAN AM,WELLSF,GULF,KLM,MGA,MEAD,FISHER,AMOCO,TOSHBA,CBS,CAPCIT,COMPAQ/ X1 9: S$(X)0 UD(X)(20)((99).01):C(X)(2)03Ѕ (UD(X)10) (UD(X)10) 7100SP(X)(30)20((99).01)0u (P(X)10)(P(X)10) 7300S(X)000OO10 :(31,"-")0"STOCK UP/DOWN PRICE SHARES"0 TTD0*(31,"-")04 X1 91> Z(X)99 18901H M(X)99 197016R@((X2)32)1,X;S$(X)1p\ C(X)1 ((UD(X)))10 @((X2)32)08,"+ "UD(X)1fC(X)1 ((UD(X)))9 @((X2)32)8,"+"UD(X)1p C(X)2 ((UD(X)))10 @((X2)32)8,"- "UD(X)2z C(X)2 ((UD(X)))9 @((X2)32)8,"-"UD(X)2@@((X2)32)17,"";:"$###.##";P(X)2Y@((X2)32)25,S(X)2_2:"DIVIDENDS FOR SESSION"O:"ARE: $#####.##";D2 BB1 1500:2@448," "2@416," "3 ʇ@384," "3.ԇ"YOU NOW HAVE: $#######.##";T3Cހ BB 1 1500:3n@416," "4 TI0: IT1 9:TITI(P(IT)S(IT)):: TTIP(1) TTIP(2) TTIP(3) TTIP(4) TTIP(5) TTIP(6) TTIP(7) TTIP(8) TTIP(9) 25504TI04*@416,"COMMAND?";4AA$: A$""10404OCO(A$)4Z$200,14b.D04t8 CO1 11504B CO2 14004L CO3 15704V CO4 20105` CO5 @416,"";:"YOU NOW HAVE: $#######.##";T;:RR11000::@416," ";:103051j CO6 23305<t10105S~:** MAX OWN CHECK5f:** AND COUNT5GB0: X19: S(X)0 GBGB155:***STOCK ASK5@416,"STOCK TO BUY, '0' TO STOP?";5A$: A$"" 12105Ġ200,15SB(A$)68؅ SB0 @416," ":10106 P(SB)T @416,"NOT ENOUGH MONEY. ": BB1 1000::@416," ":11506:****7u GB4 S(SB)0 @416,"SEC WON'T LET YOU OWN MORE THAN 5 DIFFERENT COMPAINES AT A TIME";:RR13000::@416," ";:11507@416," ":@416,"HOW MANY SHARES";: HS7 200,18 (P(SB)HS)T @416,"NOT ENOUGH MONEY. ": BB1 1000::12808=TT(P(SB)HS):S(SB)S(SB)HS8X(@((SB2)32)25,S(SB)82@416,"YOU BOUGHT"HS"SHARES ":"AT ";:"$###.##";P(SB);:" EACH."8< BB1 1000:8F@384," "9 P"YOU NOW HAVE $#######.##";T90Z" "9Dd BB1 1000:9Pn 11509{x@416,"STOCK TO SELL, '0' TO STOP "9A$: A$"" 14109200,19SS(A$)9 SS0 @416," ":1010:^ S(SS)0 @416,"NO STOCKS HELD. ": BB1 1000::@416," ": 1400:@416," ":@416,"HOW MANY SHARES";: SQ:200,1;*ȅ SQS(SS) @416,"YOU DON'T OWN THAT MANY SHARES.": BB1 1000::@416," ":1460;V҇@416," ";܇@416,"YOU SOLD"SQ"SHARES":"AT ";:"$###.##";P(SS);:" EACH.";TT(SQP(SS)):S(SS)S(SS)SQ;@((SS2)32)25,S(SS); BB1 1000:rQ(50): Q35 Z(X)99>)| P(X)300 (3)2 Z(X)99>G Z(X)99 S(X)0:P(X)0>:KONO HEN NI SEISHIN NO BYOOIN GA ARIMASU KA? OI! KONO JYUU NA GEMU DESU NE! (DEMO, OKANE MO SUKI DESU!)> P(X)250 (35)3 M(X)99:1750? P(X)100 (60)3 M(X)99:1750?, (80)35 M(X)99?3:?::?^̅ P(X)1000 (4)2 Z(X)99?օ M(X)99 P(X)P(X)(.5((P(X))))? S(X)0 1790? M(X)99 S(X)4 S(X)S(X) (3):1800?M(X)99 S(X)S(X)(.5((S(X))))?@  DIVIDENDS@'DD(.03(P(X)S(X)))@7M(D100)@?&D0@K0MM.01@S:DM@[DM0@aN@lX 770@b@((X2)32)1,X;S$(X)@l@((X2)32)10,"**BANKRUPTCY**":@((X2)32)25,S(X)@vEE1: E64 @ E64 E0@ S$(X)A0UD(X)(20)((99).01): UD(X)10(UD(X)10) 1940AnP(X)(30)20((99).01): P(X)10 (P(X)10) 1950AZ(X)0:920A@((X2)32)1,X;S$(X)A@((X2)32)09,"MERGER $";P(X)AƇ@((X2)32)25,S(X)AM(X)0: 920ATI0B X1 9BTITI(P(X)S(X))BBP@416,"TOTAL INVESTED = ";:"$########.##";TIBd BB1 1000:B@416," ":1010B C6*(32,"*");:"THIS GAME SIMULATES THE STOCK":"MARKET. THE OBJECT IS TO BUY":"AND SELL THE STOCKS FOR A":"PROFIT. THERE ARE 9 STOCKS":"OFFERED."C4:"YOU ARE ONLY ALLOWED TO OWN STOCK IN 5 COMPAINES AT A TIME."::"YOU START OFF WITH $100."C>::" HIT ";A$DsH:(32,"*");:"IF A STOCK IS DOING POOR, IT MAY GO BANKRUPT, AND BE REPLACED BY ANOTHER COMPANY. THEN YOU WILL LOSE ALL YOU HAD INVESTED IN THE STOCK."DyRD\"IF A STOCK IS DOING GOOD, THEN":"IT MIGHT MERGE, RAISING THE":"PRICE OF THE STOCK, AND THE":"SHARES YOU OWN IN IT.":Ef:" HIT ";A$Ep:(32,"*");:"BUT BE WARNED: THE STOCK MARKET IS A VOLATILE PLACE! A STOCK CAN GO BANKRUPT EVEN IF IT'S DOING GOOD - OR A STOCK MIGHT MERGE EVEN IF IT'S DOING BAD."Fz"BUT NOTE THAT THE CHANCES OF A BANKRUPTCY INCREASE THE LOWER THE VALUE OF THE STOCK IS, AND THE CHANCES OF A MERGER INCREASE THE HIGHER THE VALUE OF THE STOCK IS... BUT ONLY TO A CERTAIN DEGREE!!"F:" HIT ";A$GL:(32,"*");:"THERE ARE 6 COMMANDS. PLEASE JOT THESE DOWN ON PAPER UNTIL YOU ARE FAMILIAR WITH THEM: "G:"<1> TO BUY STOCK":"<2> TO SELL STOCK":"<3> TO GO TO NEXT SESSION":"<4> TO SEE TOTAL $$ INVESTED":"<5> $$ AVAILABLE TO SPEND":"<6> END GAME"H,"WHEN ASKED 'COMMAND?', ENTER":"THE number OF THE COMMAND (1-6)"HD:"HIT ENTER ";A$H:(32,"*");:"THE STOCKS WILL GO UP OR DOWN":"IN PRICE, CHANGING THEIR VALUE."H:"WHEN ASKED TO INPUT STOCK TO ":"BUY OR SELL, INPUT THE number":"OF THE STOCK (1-9)."Iʇ:"THERE IS NO POINT IN THE GAME WHERE YOU 'BREAK THE BANK'. YOU CAN PLAY UNTIL YOU WANT TO STOP,OR UNTIL YOU GO BANKRUPT. "Iԇ:" HIT ";A$Jޞ:(32,"*");:"A FUN WAY TO PLAY IS TO SEE THE QUICKEST (HOW FEW TURNS) YOU CANMAKE A CERTAIN AMOUNT OF MONEY."JJ"NOW, SIT BACK, RELAX, AND SEE IFyou CAN BECOME A WALL STREET WIZARD!!!"::" GOOD LUCK! ":::J" HIT ";A$J J  670J :ENDJ $:" QUIT GAME? (Y/N) ";K .UI$:UI$""2350K 8UI$"N" 780K- B UI$"Y"2390K9 L 2350K V65494,0:65496,0::"OK...DIVESTING YOU OF YOUR STOCKS AND GIVING YOU BACK YOUR MONEY...":RR12100:LC `A$"YOU HAVE DECIDED TO LEAVE WALL STREET AND PURSUE A NOBLE CAREER AS A CONCERT VIOLINIST.":B$"YOU HAVE LEFT 'THE STREET' WITH: "Ln j:"********************************";L t65496,0:65494,0L ~X1(A$):(A$,X,1);:RR120::L :L :L :L X1 9:UIUI(P(X)S(X))::UIUITL :M RR11000:M0 ĀX1(B$):(B$,X,1);:RR120::MJ ·" $########.##";UI;MW :***ENDM @416,"******************************* (C)1982/1990 LDG FREE SOFTWARE *******************************";:@224,"";M M :*NOT ENOUGH MONEYN 65496,0:65494,0N A$"BECAUSE OF YOUR RECKLESS BEHAVIOR ON WALL STREET, YOU HAVE LOST SO MUCH MONEY THAT YOU NOW CANNOT AFFORD TO BUY ANY OF THE OFFERED STOCKS!"N B$"THEREFORE, YOU ARE NOW FINANCIALLY WIPED OUT... "Op C$"BUT DO NOT DESPAIR! TOMORROW YOU WILL RECEIVE A LARGE ENVELOPE IN THE MAIL FROM SOMEONE NAMED 'ED MCMAHON'..."O (D$"YOU WILL OPEN IT UP, AND FIND OUT THAT YOU HAVE WON ENOUGH MONEY TO BUY OUT SONY CORP.! "O 2E$"RUINED!"P <:"********************************";PJ FX1(A$):(A$,X,1);:RR118:::RR11000:Pu P:"********************************";P ZX1(B$):(B$,X,1);:RR118:::RR1700::X1(E$):(E$,X,1);:RR118:::RR11000:Q d:"********************************";Q3 nX1(C$):(C$,X,1);:RR118::QC xRR1800:Qo :X1(D$):(D$,X,1);:RR118::Q @416,"******************************* (C)1982/1990 LDG FREE SOFTWARE *******************************";:@256,"";Q