J EQHDEQIMPDFHDDFI1DFI2DFI3DFI4DFI5DFI6DFI7DFINDFFNCRFCCRHDPRCNMSHRCURIRDHDRDH2RDH3RDH4ANSWERDRAWLIRDRDIRDIRDIRDIRDIRDIRDIRDIRDCCASPHLWCYCLECRIINFATSTVACHCHC@@@@@@@ @ @ @ @@@ !"#$%&'()*+,- $$THE NEW OWNER'S COLUMN PART 10BY DAVID PLOTKIN (c) 1987, ANTIC PUBLISHING#C+@%@'-@@C @antic (RR;A,9@,;A,9@,9@,9@,9@,2RR9@,9@,;A,9@,9@,9@,;A,<&&9@,9@,9@,FGG;A,;A,;A,;A,;@,;@,P267@,. #67A,.267@,.QWWLINE 80 IS A VERY QUICK WAY TO DO THIS: FOR LP=1 TO 700:EQHD$(LP,LP)=" ":NEXT LPZ- 6.6.6.6.!6.'6.-6.d6-@n-@@x " 67,.68,-6-%A 6-@-@@"B 67,.68,-68,-'68,-068,-968,-B68,-6-%A 6-@-@@"0 67,.68,-68,-'68,-067,.6-%A 6-BCASH TO START"368@,-@ 3STARTING PRICES OF STOCK,68@,-@0668@,-@p@68@,-@@J68@,-@PT68@,-@@^-@@h68,-r |F6.* FASTERISK,CONTROL-J,INVERSE CONTROL-J,INVERSE ASTERISKU-@@+-@8 @D-@Q @U 1-@@ 1 @ PRESS ANY B-@@0 @ STOCK MARKETBAdAU]6-F:A,'AF:A ,<A F:A,QAF:A,]A:F:Ad,"AU,-@@P0 : A AdAU" +@" MAIN PROGRAM6-%@"@A  A0 A A Ap^ "+%-@F 7$A&@<$A,Z-@A^ -@AP  A PRINT HEADLINES + A$887$A&@<$A&@,4*AP.$$ 7$A&@<$A,8((67$A&@<$A,.*B 6-8,L AV887$A&@<$A&@,4*A`$$ 7$A&@<$A,j((67$A&@<$A,.*t68@,-8,~68@,-8,68@,-8,68@,-8,68@,-8,68@,-8, A887$A&@<$A&@,4*A$$ 7$A&@<$A,((67$A&@<$A,.* 6-8, 6-8, 6-8, 6-$  MENU6--@@(6-%8,$8,2 < A0F_-@""( 4-@#_(% P<-@ < " Z22 1. SHAY-DEE PET 8@,8@,d22 2. LEMON COMP  8@,8@,n22 3. WEAP R US  8@,8@,x22 4. ADMIRAL MOT  8@,8@,22 5. WORLD COMM  8@,8@,22 6. HTKOLD G&E  8@,8@,## CASH ON HAND:  $$ VALUE OF STOCK:    TOTAL WORTH: %$CALCULATE STOCK VALUE-@@68,-8,$$8,  A ! AP 6- A` 6-68,-8,$"$,PURCHASE,SELL6*-@* DO YOU WISH TO: @;-@ ; !٠ ̠ ԠŠJ*-@!* ENTER 1, 2, OR 3T A ^!! @)!@Ah"@Apr"@$|A-@ A 'BUY WHICH NUMBER? A-@!A 'ENTER A NUMBER 1 THROUGH 6. / A / @)!@ApA-@!A 'HOW MANY SHARES? % A % A8,$!AP68,-8,%6-&+8,$,' A `J)  YOU DON'T HAVE ENOUGH MONEY! ;-@"J(  AA-@ A 'SELL WHICH NUMBER? A-@!A 'ENTER A NUMBER 1 THROUGH 6. / A / @)!@AA-@!A 'HOW MANY SHARES?  A!8,A`&68,-8,&06-%$8,:' A `DI)  YOU DON'T HAVE THAT MANY SHARES!;-@"I( N AXRANDOMIZATIONb%%6-P:H:,$@,%@l$v%%6-P:H:,$@,%@$ROUNDING-@@""68,-P:8,$A,'A""68,-P:8,$A,'A 6-P:$A,'A6-P:$A,'A$ CLOSING + A&& YOU HAVE COMPLETED SIX CYCLES!!! YOU STARTED WITH $10,000.!! YOU NOW HAVE $ CASH. "" AND $ WORTH OF STOCK.++ THIS IS A TOTAL VALUE OF $% .   BYE FOR NOW!*/( $4 DATA>INFLATION INCREASING!,.90H00DOLLAR GAINS AGAINST FOREIGN CURRENCY,1.10R00NEW INCOME TAX FAVORS LARGE COMPANIES,1.10\??COUNTRY'S THREE LARGEST BANKS REPORT HEAVY LOSSES!,.95fPRIME RATE DOWN,1.10p##ECONOMIC INDICATORS DOWN!,.85z DUMMY,0FFOIL EMBARGO-LONG GAS LINES-HIGH PRICES!,1.3,1.0,.95,.90,1.10,.8566WAR IN CENTRAL AMERICA!,.95,1.0,1.05,1.0,1.2,1.0@@NEW TRADE AGREEMENT WITH FAR EAST.,1.2,1.3,1.0,1.2,1.1,1.0LLALTERNATE ENERGY SOURCE FOUND BY LOCAL UTILITY,.8,1.0,1.0,1.2,1.1,1.4JJENVIRONMENTALLY SAFE COAL REMOVAL METHODFOUND,.8,1.0,1.1,1.1,1.0,1.2hhPENTAGON GOES ON BUYING SPREE--MOST CONTRACTS AWARDED TO FOREIGN FIRMS!,1.0,.9,.85,1.0,1.2,1.0DUMMY,0,0,0,0,0,0KKSHAY-DEE PETROLEUM TO MERGE WITH VERY PROFITABLE OIL FIRM!,2.0,.4,155SEC DOES NOT APPROVE SHAY-DEE PETRO MERGER.>>NEW CLONE OF LEMON COMPUTER COSTS HALF AS MUCH,.5,2.1,3((CUSTOMS IMPOUNDS ALL LEMON CLONES!GGBIG ARMS SALE BY WEAPONS 'R US TO CENTRAL AMERICA.,1.5,.7,377CENTRAL AMERICAN COUNTRY REFUSES TO PAY FOR ARMS! PPADMIRAL MOTORS SALES HIT ALL-TIME HIGH AS REBATE PLAN ANNOUNCED.,1.8,.5,3 [[NEW KOREAN IMPORT LOOKS AND DRIVES JUST LIKE ADMIRAL MOTORS CARS--COSTS MUCH LESS. 33WORLDWIDE REPORTERS HELD FOR RANSOM.,.8,1.2,2$ 33WORLDWIDE REPORTERS FREED BY COMMANDO RAID!. ))HG&E WINS LARGE RATE HIKE,1.3,.75,28 BBPUC DISALLOWS RATE HIKE DUE TO IMPROPER MARKETING PRACTICES.B DUMMY,0,0,0,DUMMYD1:NEWOWN10.BAS