Q ********************************* * "BAY STREET" * * FROM * * ROGER D. BURGE **BASED ON THE COMMODORE PET 2001* * PROGRAM "STOCK" *> * REVISED AND UPGRADED BY * * ROGER D. BURGE * * CONVERTED TO THE COMMODORE 64 * * BY * * ROGER D. BURGE * * #2667 *+ #* JULY,1984 * * FOR *z (* TORONTO PET USERS GROUP INC. * * TORONTO, CANADA * -* CLASSIFICATION: * * RECREATIONAL,EDUCATIONAL * 2********************************* 753280,3:53281,.1 <K(TI):X$""i ASN$(6),SA(6),PN$(6),PS(6,6),PA(6),DN(3),C$(6),C(6)r F150~ KR1NR PD1(6(1))1 UD2(3(1))1 ZD3(3(1))1:D352(D31) _X$" " dX$SN$(D1);DN$(D2);D3 iD2695,730,765 n1075:U sIX21:ML1:X$"ONE MORE ROUND Y/N ? ";:1150p xWK$"N"WK$"Y"115 }WK$"N"790:1220 I1N2:475: N1.Z.:910 "";:340 75 "SILVER"," IND ","GRAIN "," OIL ","GOLD ","BONDS " I16:SA(I)100:SN$(I):> " UP "," DOWN"," DIV "S I13:DN$(I):p "","","","","","" I16:C$(I): 1,10,7,6,9,13 I16:C(I): 1135 IX20:ML1:"INSTRUCTIONS? (Y/N)";:1150 WK$"Y"1265:210WK$"N"190DIX24:"HOW MANY PLAYERS? (1-6) ";:1150RN2(WK$)eN21N26210yN21N1.:245IX29:"MAY YOUR 64 PLAY TOO? (Y/N) ";1150:WK$"N"WK$"Y"230N1.:WK$"N"N11I1N2J16:PS(I,J).:PA(I)5000^"PLAYER ";I;"WHAT IS YOUR NAME? ":ML24 " "IX.:1150:PN$(I)WK$(WK$).(WK$,1)" "260PN$(.)"YOUR 64":PA(.)2000"I16:PS(.,I)500:'425,N1.I.:545"1N11135X6(X$,16)"HOW MANY COMPLETE ROUNDS BEFORE BUYING;"AND SELLING STOCKS (1-3)? ";:IX26:ML1:1150@NR(WK$)ENR1NR3310JNRNR(1N1N2):"";:340OT" BAY STREET ";>Y" FROM ROGER D. BURGE "d^K.19:"":218,132::"";ucI190.10hG$"":I100G$""mGN$" "(I):GN$(GN$,3):GN$""GN$G$""rJ16:WK$""wSA(J)IWK$C$(J)" "|SA(J)IWK$C$(J)""4WK$WK$G$"":J6WK$WK$""FGN$GN$WK$:_I$((I),((I))1)(I$)3K(I$)2:I$I$" ":GN$""I$;" ";SN$(1);SN$(2);SN$(3);SN$(4);SN$(5);SN$(6)I1N2545"YOU MUST BUY SOME STOCK":BS11030"645ZSN7"INSUFFICIENT FUNDS":K.2000::545:440c475wPA(I)5000430}545BS.:IX28:ML1:"BUY, SELL OR NOTHING B/S/N? ";:1150WK$"N"WK$"S"WK$"B":"":480 WK$"B"BS1WK$"N"+SB$WK$::"51030GSB$"S"670YSB$"B"645gSN7475 SB$"S""YOU DON'T OWN ENOUGH STOCK"SB$"B""YOU DON'T HAVE ENOUGH MONEY"K12000:475!" BAY STREET ";B&" FROM ROGER D. BURGE ";+WK$" PORTFOLIO - "PN$(I):WK((40(WK$))2):K1WK:WK$" "WK$0:WK40(WK$):K1WK:WK$WK$" "::""WK$5" # DESC VALUE HOLDINGS":" " ?K16/DWK$" "(SA(K)):V$(WK$,3)QIWKPS(I,K):WK$" "(WK)cN:WK$(WK$,7){SWK1000H$" "WK$XWK500H$(WK$,4)","(WK$,3)]WK$" "(K)" "bWK$;g(SN$(K),1)" "(SN$(K),(SN$(K))1)" ";:625lSN$(K);q" ";V$;" ";H$vA{:"CASH ON HAND --- ";PA(I):GaWKSA(SN)SQ100:PT1vWKPA(I)SN7:PA(I)PA(I)WKPS(I,SN)PS(I,SN)SQPT1SQPS(I,SN)SN7:PA(I)PA(I)SA(SN)SQ100PS(I,SN)PS(I,SN)SQSA(D1)SA(D1)D3-SA(D1)200<SA(D1)100IIN1N2aPS(I,D1)PS(I,D1)2gmSA(D1)SA(D1)D3SA(D1).SA(D1)100IN1N2PS(I,D1).SA(D1)100IN1N2 :PA(I)PA(I)PS(I,D1)D3100 I1135:"PLAYER NAME CASH VALUE"w" " KN1N2%J16*::PA(K)PA(K)SA(J)PS(K,J)100/49KN1N2>:WK1CJN1N2HPA(J)WKWKPA(J):IJM:#RWK$" "(PA(I))@WWK$(WK$,8):V$(WK$,2)X\V$" "V$V$","paV$ " "V$V$" "f:V$V$(WK$,3,3)k(V$,1)" "V$V$","p(V$,1)" "V$V$" "u:V$V$(WK$,3)z" "PN$(I);28);V$:""!:PA(I)1'-EI.:PT.:545:"";]SN16:SQPS(.,SN)SA(SN)95SQ."SELL";SQ;SN$(SN):ZZ1:670Z10"K11500:PA(.)6001005:WK0:SQ999999J16SA(J)105PS(.,J)SQWKJ:SQPS(.,J)"SNWK4WK.1005:DSQ500:645VSN71005:dZ10""BUY 500 ";SN$(SN):ZZ1K11000:945K1300:PT1545PT.:"NO TRANSACTIONS"K12000:"STOCK#? ";  IX8:ML1:1150:SN(WK$)>SN1SN6:"":1030LBS1250a:"QUANTITY? ";ML6:IX10:1150:SQ(WK$)$WKSQ(SQ500)500)WK" ";:1055.3S11024764(D11)6:C1S1542728K.19010=WK64BSA(D1)KWK1601GSA(D1)KWK98hLS1,WK:S11,WK:WK64C1,C(D1):C11,C(D1):1115QK100C1,2:C11,2:1115VC1,12:C11,12[S1S140:C1C140`eK1500:jo" BAY STREET ";3t" FROM ROGER D. BURGE ":E~WK$"":198,.X211,IX:204,.u207,.:IT$:IT$""1160IT(IT$):IT131210IT201190IT31IT961160(WK$)ML1160IT$;:WK$WK$IT$:1160(WK$).1160 WK$(WK$,(WK$)1). (207)." ";:11608 1200T (207).204,1:" ":^ 1210 X$"WOULD YOU LIKE TO PLAY AGAIN? (Y/N) ";:IX36:1150 WK$"Y" WK$"N"1240 1220 53280,3:53281,1:"" !PU((PA(I)100SA(SN))500)500H!"YOU CAN BUY UP TO"PU"SHARES":"IN UNITS OF 5OO":N!!53280,.:"":1395:" WELCOME TO BAY STREET.!"HEART OF CANADA'S WORLD OF HIGH FINANCE!":1395"" A GAME FOR 1 TO 6 PEOPLE....":"AND YOUR 64 LIKES TO PLAY TOO.K"" HE'S THE BANKER AS WELL, BUT DON'T WORRY, HE NEVER CHEATS."" NOTE: IN ONE PLAYER GAMES YOU MUST PLAYAGAINST YOUR 64. IN MULTI-";" " PLAYER GAMES YOU CHOOSE WHETHER OR NOT TO LET HIM PLAY.%#" THE OBJECT OF THE GAME IS TO PLAY THE STOCK MARKET SUCCESSFULLY.";m#" YOU BUY AND SELL STOCKS (IN BLOCKS OF 500 SHARES) FROM SIX ";#"CATEGORIES.":" THEN WATCH THE STOCKS RISE, FALL AND PAY ";#"DIVIDENDS ON THE TORONTO STOCK EXCHANGE.$#" PRESS ANY KEY TO CONTINUE... ":198,.0$(A$:A$""1320@$-1135:1395$2" IF A STOCK'S VALUE REACHES THE TOP IT 'SPLITS' AND YOU DOUBLE";$7" ANY SHARES YOU HAVE IN IT.$<" IF A STOCK'S VALUE DROPS BELOW ZERO THEN IT 'CRASHES' AND YOU ";%A"LOSE ANY STOCKYOU HAVE IN IT.f%F"DIVIDENDS ARE BASED ON THE MARKET VALUEOF THE STOCK AND HOW MUCH";w%K" YOU HAVE.%P" WHEN BUYING OR SELLING, PRICES ARE BASED STRICTLY ON MARKET";%U" VALUE.%Z" YOUR 64 WILL HANDLE ALL THE DETAILS.$&_" DON' BE AFRAID TO TAKE CHANCES!X&d" PRESS ANY KEY TO PLAY. ":198,.&iA$:A$""1385 &n53280,3:1135:&s"----------------------------------------";: