' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( #  @@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ō͍֍Ǎ֍͍͍͍Ǎ͍Ǎ֍ǍǍ֍͍Ǎ֍Ǎ֍ǍǍ֍Ǎ֍ǍǍ͍͍֍ǍǍ֍ǍǍ֍͍ǍǍǍ֍Ǎ֍Ǎ֍Ǎ֍Ǎ͍֍Ǎ͍͍͍֍֍Ǎ֍͍֍͍Ǎ֍ǍǍ͍͍֍͍Ǎ֍֍֍͍ǍǍǍٮĠ٠ȠŠΠ٧ӠԮӠŠƠŠԠ٠ĠӠٮĠ̠ҠǠٮӠĠĠϠŠŮӠĠؠӠ٠ӠٮӠԠҠҠĮĠ̠Ǡ٠ٮĠĠǠŠΠӠ̠ԠŠӠԮנ̠ӠŠĠҠӠҮӠΠŠŠΠԠɭԠήǠӠŠ̠РӮӠĠԠŠӠΠĮӠŠĠϠŠР٠ӠҮӠ̠ԠĠӠŠǠٮӠԠĠӠĮӠŠŠҠԠӮӠԠǠ٠̠ҠӮӠԠԠĠӠ̠ŠӮӠԠԠӠɠӠҠӠΠӠΠ٠ӮӠҠҠӠ̠ԠӮԠΠ̠РӮӠԠĠӠĮӠŠĠǠٮנ̠ӠŠǠٮӠ̠ŠϠŠ̠ԠŠٮ٠ӠŠǠٮӠԠҠנ̠Ӡ̠РӮӠԠĠ٠Ӡ̠РӮӠԠŠԠ̠ؠԠӮΠӠԠԠŠӠԮӠŠĠΠӠҮӠԠĠӠҮԠΠĠŠٮӠԠĠӠ̠ŠӠԠŠĠҠ̠ԠӮӠԠ٠ӠӠӮӠԠԠԠӠ̠РӮΠӠԠԠŠ٠ŠΠӠŠ̠ŠԠҧӠ̮ӠԠҠҠĮӠԠǠӠǠΠԠΠӮӠ̠ŠӠŠ̠ԠӮŠӠĠӠȮӠԠĠӠӠҮӠ̠ŠΠ̠ԠӮ̠ŠҠӠΠΠӮɱ͍֍֍ǍǍ֍͍Ǎ֍֍͍͍ǍĠӠӠҮĠŠŠƠϠŠŠӠٮӠԠҠ̠Š٠ҮĠԠŠϠԠԠԠӠǮĠԠҠΠҠŮĠŠȠؠ͠Ӡ̠ȠԮĠŠҠҠ٠ӠٮĠĠҠĮŠΠĠҮĠŠˠҠ͠ŠԮӠԠӠҠҠנӮĠԠϭ٠ӠŠРٮĠРӠŠנӠҮĠŠΠӠˠӠҮӠϠΠŠϠˠӠΠҮĠӠϠĠϠΠӮĠĠ٠ӠӠ٠ӠŠ̠ŠӠӠҮӠĠǠ̠ŠӮӠĠӠϠŠҠԠŮĠӭҠӠ̠ҠӠĠӠԠҮĠǠ̠͠Š٠ӮĠӠϠĠϠŠΠӮǠӠŠРٮĮ̠ŠӠŠĠ٠ӠҮĠ̠̠ӠΠӠԮӠԠĠӠӠҮĠӠ̠ŠĠӠҮĠŠ̠ӠΠӠȠŮĠŠŠƠŠàٮĠԠӠȠӠРŠҮĠԠ٠ĠӠˠ٠ǠĠӠϠĠǠ٠ΠĠҠΠΠ̠ӠӠȮĠŠ͠ӠΠ٠ĠĮĠŠӠӠҮĠǠԠȠĠٮĠĠӠ͠ŠŠӠȮĠȠΠҠ٠ٮĠנ̠ĠΠĠŠŠ͠ƠŠŠٮĠԠӠŠӠ͠ӠǮӠҠŠΠҠӮĠҠӠŠРٮĠŠӠƠӠϠҠήĠԠԠĠĠŠԠԮĠԠŠǠӠŠЮӠŠԠŠ̠ҠӠӮҠŠĠӠĠĠӠĠŠĠ٠Ġ̠ԠӠŠРӠҮĠӠҠŠĠӠĠŠĠӠĠ٠ӠĠӠĠŠĠŠӠӠĠӠҠŠĠӠĠӠŠӠŠנӠҮ̠ӠԠ̠ӠȮҠӠŠԠԠΠĮӠԠӠƠԠŮӠӠҠӠҮԠӠ̠ŠԠӠӠҮĠԠ͠ӠĠ̠ŠΠӮĠנԠĠΠĠԠҠ̠ĠנӠҠϠԠҧӮĠŠҠӠӠҮĠԠΠӠŠΠӠҮĠӠ͠͠ӠΠŠĮĠŠǠƠנӮŠӠ̠ŠĠӠȮĠŠԠƠҠΠҮĠĠӠŠԮĠנĠҠҠ̠ɠӮ̠ĠנŠƠӠϠӠӮĠŠΠƠנΠƠŠĮĠԠϠˠӠΠĠנŠӮ̠ԠŠӠǠΠӠҮӠĠҠӠ٠ǠӮĠנŠӮĠŠŠƠҧӠĠŠӠӠҮĠנƠŠҮĠӠҠנӠǮĠנ٠ȠǠǠήĠҠԠŠΠΠ̠ҠŠҠΠӠҮӠҠЮӠŠԮĠԠҠŠӠŠԮĠԠŠӠĠϠӮŠӠ̠ŠĠŠԠήĠΠϠà֮ĠŠŠƠӠΠŠӮӠԠŠӮĠԠӠӠ̠٠ԠȮĠŠӠΠĠԠȠҠӠŠԮĠŠΠƠנΠƠŠĮĠĠϠ̠ӠҠӮԠРנӠŠΠǠǠӠҮӠӠĠ٠ӠҮӠĠӠΠȠҠӮӠӠĠҠ̠ŠϠŠĮĠǠӠȠŠ٠®ԠΠӠΠϠȠӠҮĠӠРȠҠϠ̠ˠӮĠӠϠŠӠȠ٠ŮӠԠԠӠĠǠƠӮȠĠϠԠ̠ӮӠԠĠҠĮĠŠԠ͠ŠҮĠӠϠŠΠٮĠӠ̠ŠԠҮĠ̠ȠΠ̠ǮӠ׭ǠӠĠϠŠĠӮĠӠϠĠנ̠ԠΠĠӠ̠̠ӠŠРٮĠ̠ԠӠŠРӠҮӠԠĠҠĮĠӠҠנĠӮӠӠ٠נٮԠΠ̠ӠŠǠŠӠԮĠ̠̠٠ŠĠӮĠŠŠŠ̠ԠӮӠԠȠӮӠԠԠЮĠԠנϠӠŠǠ̠ӮԠŠŠ٠Ԡ̠ӮӠŠĠϠŠǠȠ׮ĠŠΠԠӠĠҠˠŠϠ׮ԠԠ٠ԮĠ٠ĠΠԠ٠ŠԠӮĠ̠ƠŠŠРĠ̠ƠҠԠҠҠ̮ĠΠӠŠǠӮĠΠˠӠŠǠЮĠŠԠŠӠРĠԠΠŠĠӠҠԮĠΠӠŠǠӮĠέŠŠĠٮĠҠӠŠĮӠŠҠӠΠŮӠĠԠǠ̠͠ҠӮĠ̠ӠȠӠנϠŮĠӠƠ̠̮ӮӠԠŠĮӠԠŠӠƠҠԠŮĠӠӠҮӠԠӠӠΠҠȠǮӠŠĠƠ̠ΠӮĠҠנǠΠӠǠŮӠΠРǠϠ̠ԠĠӮӠΠӠŠǠŠԠ͠ŠΠӠ٠נӮ̠ΠӠӠŠήӠԠԠӠŠҠ̠ӮӠŠӠŠΠٮĠҠΠҠԠ̠ŮĠŠĠŠƠҠΠŠԮĠΠ̠ǠҠΠŠƠƠϮĠŠؠӠŠŠ٠ӮӠԠԠҠӠŠԠǠ̮ĠԠҠΠ̠ӠŠΠٮĠŠǠƠŠӮĠŠŠȠӠȠ̠Ů٠ԠԠƠŠҠԠӠҮĠӠĠҠԠΠήĠŠƠƠŮ٠ŠΠŠҠŠϠͧӠנǮĠ٠ϠΠٮӠŠӠƠĠӠΠӠנˠŮӠϠĠҠҠԮĠϠ̠ҠנҠӮ٠Ġ٠ӠҮӠΠӠŠƠٮӠӠנҠ̠Ӡ٠ӮӠԠԠŠ٠ԠӮԠԠŠԠŠԮĠŠҠ̠ӠҮӠĠ̠ǮӠǠŠԠҠӮӠ÷Ƞ٠ٮĠנŠƠΠР̠ŠĮӠӠ̠ŠĠϠŠĠƠӮĠԠàǠӠŠǮĠҠ٠Ӡ΍٠Ġ̠ӮΠΠŭԠȠԠŠΠ̍͠ŠРР٠ŠҠ͠ӠĠΠΠϠӬȠĠάĮΠӍӠҠƠŠϠͩΠĠ٠ΠӬӠ٠ӠӠҠήŠԠǠŠ̠ӠҠ٠Š͠ӮŠ٧ӍҠ̠ŠРӠԠō٠ΠŠĠҠŠԠŮ͠ϠӠӠĠӠ͠ӠΠŠծӮĠ͠ӠҠƠŠϠ٠ЮΠӠŠŠΠԠӬȠӠŠӬ̍ӬĠ̠ӠҍĠӮͧӠŠӠōҠǬԧӠĠҠ̍ӠӠĠҠŠ٢ǍŠȠƠŠŮ͠Ӎ̠ӠͩȠΠΠӬ̍ӠĠҠƠŠӠčΠŠĠӮͧӠӠӍǠϠϠˠӠٍٮȠϠˠ٠ӍҠΠŬӠԍŠРȠϠĠӠԍϠРŠӠǮ٠ӍҠƠŠ̠ӠٍЮӬ٠ӍҠŠΠȠŠӠčҠӮŠ̠ӍҠŠϠˠŠΠ٠ҍΠŠĠȠӮӍ٠Ġ٠ҠŠύǠԠԠ٠ǠŠ٠ƠӮӠӠҍƠŠ̠Ӡ٠Ю٠٩ȠΠΠӠŠ̠ǠӍȠӠǠ΍ӠٮŠŠō͠ƠӠĠƠԠӍӮӠĠԠΠǍӠƠӠΠ٠ӍǠӠӠǬӠөӠӠŠҠŠҍȠΠΠӠԠҮŠԠƠ٠ŠĠ΍ŠĠӠӠҠӮǮΠӠ٠ҬǠӠӠϠ̍ԠĠǠϠƠӠӍϠŠ͠ҠӮԧӍ̠ӠϠҠŠӠĠōҠŮԠӠҠƠō̠Ӡ٠ЮҠȠΠΠ̍ӮԧӠӠōԠӬŠӬčҠԠӮԠӍĠΠ٠ΠŮ̠Š٠ӠΠӠōӮӮŠ٠ЮԠԩԠӠŠĠԠΠčŮ̠ϠӍàӠȠӠ٠ȍӠĠԠӠŠ٠č̠ή̧Ӡ̠ōӠŠ͠؍ΠǠǠԠӠŮ̠ӠҠƠŠ̠ĠӍנԠӮĠҠӠĠΠήӠĮӠĠϠŠǠŠӠϠŠҠԮĠǠӠΠϠԠҠԮԠŠԠϠ̠ҮĠ٠Π115:X%X:RA$"PLAYER,R";X%:PL$,LA,HI,ST$:D$:HI044+X%3:1:X%;".";:X%3:4:PL$;:X%3:9:PRUS,("^^^^^^^^$",LA);:X%3:19:PRUS,("^^^^^^^^$",HI);:X%3:29:ST$:X,D$-20:7:"ENTER PLAYER NUMBER TO START.":X15ī47$.21:3:"IFŬōōŬōōŬōҍìō®®ìҍìōŬōōōŬōҍŬōҍìҍō̮ìōìō¬ҍҍìҍì   ƍŠ٠٠ЮǠРϠȮԠӠΠҠΠԠōΠԠŮƠŠŠЍԠӠ٬٠ŠӠ΍ϠŮ٠ӠΧԠԍҠȠԠԮΠŠ ǍӮҠҠӠҠҠԩϠΠӠԬӠٍĠҠΠΠӍԠҮԠӠԠƠōΠħӠԠҠٍΠԮԠӠōӠǠĠҠɮנӠĠύŠŠƠŠԠĠӠ΍ŠĮנ̠ӠҠƍŠ٠٠ЮΠӠӠǍӠϠҠ̠č̠ӮҠӍŠΠЬɭЬÍӬĠŠŠƠҠÍӮŠƠקӠӠҍӠӠĠӠȠ٠ōήӠӠҠƍŠ٠٠Юנ̠שנӠҠϠΠӠčĠΠΠӠԍҮקӠɍͬĠԠŠٍĠϠŠ٠ӮĠˠ΍ĠӠϠŠӬǠӠԠƠˮŠʮЮΠ٠ӠŠčԠҬŠԠӠōŠΠĠӠ̠өŠŠԠҠΠōĠӬӠӠԠ٠ƍӠ٧Ӡ̠ӮȠŠΠ٠ӍĠΠŠŠ̍ΠӠ٠ŠРì̠Ǡ͠ҍΠӠĠŠؠҍŠĠŠĠҠĠˍӮؠӠҠƠŠύ٠Ю͍ǬŠŠӬŭРӬҠҠӬĠ٬ĠƠŠ̍ӮؠӠǠӍΠӠĠӠӠΠӮؠĠŠԍŠҠŠЮؠЮةӠҠŠΠϠӬ؍ĠΠΠӠԍҮҠӠŠ̠Ю©̠ӠΠ΍ӠԠҠˠԠӠŠčԠ̠Ġٮ̠ӍŠ٠ȠӍӠōԠĠҧӠ٠ōΠРϠŠӍǠŠ̠ĠĠ̠ƍΠӠҠƠŠ̍ĠӠ٠ЮŠΠ̬̍ӬĠ̠ŠӮΠӍ̠ӠĠӠӍΠӮĠΠ٠΍ĮҬ٠ӠčΠԠӠԠĠƍŠΧӠ̮ΠŠĠӠٍЮΠةȠΠΠӠԍҬΠӠҠҠΠŠˠ̠ΠčĠ٠ŠŠӠΠӠĠƠӠˠčȮϠӠϠŠҠƍ̠ŠĠϠŠӍҠŠàٮϠӠҠƠŠ̠ϠîϩϠӠӠҠΠ̍ȠԠӠӠǠήȠΠӠƠ̍ӬϠӠҠŠΠӍϠӠĠ٠ΠٮҠΠ΍ĠΠӠӠǍĠӬŠĠ̬ӍӬĠǠӮҠӠҠƠŠҠ٠ЮΠӠԠҮҠנӠĠΠŠҍ٬ǠҠϠƍӮҠӠĠ͠ԍΠΠΠ٠͍ήŠĠŠ٬ĠƬĠĠΠҍŠҠ٠ЮҍҬŠΠӠ̠ȍҬӠҠŠΠӍȠΠҠٍϠŠ̠ҠԮȍ̠Ӡ٠ϠōĠΠ͠ӠĠҍӮ͠ӠŠԠΠ΍٠ΠŠĬӠԠӠҍΠŠŠԮ͠ӠҠƠ͍ͧӠӠčΠӠΠŬǍԠҠŠΠӮĠ΍٠Ӡά͠ӠΠōҠΠΠ٠ҍŮΠ͠ĠŮΠ͠ĠΠԠԍ٠ǠŠՠЮȍάϠ̠Ҡή̠ӠҠƠōҠ٠ЮĠȠ΍ĠԠŬ΍ŠǠŬĠ̍ԠĠΠ̍Ӯ̠ӠĠ΍٠͠ӬĠ٠ԍҠŠǠҠԠ̠Юé̠ӠҠΠōŠƠŠŠÍӮӍ                       ӠŠĠϠŠנ̠ӮӠ̠ŠŠϠŠŠƠҮӠӠŠĠϠŠ̠ŠԠҮӠԠĠҠĮԠɭԠήӠ̠Š٠Ġ٠נӠӠԠĠӠŠϠŠǠٮӠԠǠŠŠϠȠήɠԠנԠӠΠӠӮӠԠҠ̠ϠӠԮӠƠΠàŠŠŠŠԮΠԠӠȠ̠ǠҮӠҠҠӠŠϠĠӮӠ̠ŠŠϠҠҧӠŮӠƠנ̠ĠĠԠΠԮӠŠԠԠנԠӠΠ̠ӮӠŠƠӠӮӠԠŠ̠Ԡ̠Ҡà̠ӮӠŠĠԠàΧԠԠŠԮӠĠŠĠƠɭԠӮӠԠҠӠ̠Ů٠ӠŠĠԠϠРӮӠĠŠ٠ƠנҠ̠ĮĠŠ̠Ơ̠ӮĠŠ̠ԠԠӮǠ̠נŠϠԠ٠ӮӠҠΠΠ̠ԠϠӮӠԠנ٠ӠĠϠǠϠԮӠԠŠΠϠРӮҠĠҀŠנӠҠӠΠҠӮӠŠˠΠΠԠӮӠŠĠϠŠŠ̠ӮӠŠĠ٠̠ӮӠԠĠҠӮ̠ΠĠРŠԠӮӠԠàҠӠӮӠԠǠӠŠƠŮӠӠƠŠҠӠŠԮӠĠנ̠ȠٮӠĠԠΠǠŠӠĮӠŠĠϠŠנ̠͠ŠĠ٠ӠҮРؠӠŠǠàȮŠԠӠĠРРΠŠЮŠԠĠΠŠàҠԠӠŠǠàٮԠĠ٠ӠҮΠӠŠΧӠҠŠàͮȠԠӠŠǠΠŠٮŠ̠ŠĠŠԠŠٮ̠̠ΠŠӠҮԠĠϠŠԠӠӠȮΠĠנŠˠӠҮŠԠӠĠӠΠϠӮĠǠƠӠΠӠŠԮŠԠӠΠӠҠٮĠŠӠŠĠӠҮ̠ŠŠ٠ӠҮŠؠӠŠǠҠǮŠӠ̠ԠĠӠҮ                                   ֍ǍǍǍǍ֍ǍǍǍ͍͍Ǎ͍֍͍Ǎ͍͍֍֍͍֍͍֍֍͍ǍǍǍǍǍǍǍ֍͍͍Ǎ֍Ǎ͍Ǎ͍͍֍ǍǍǍǍǍǍ֍͍Ǎ͍ǍǍ֍͍Ǎ͍͍ǍǍ֍            ǍǍǍǍǍǍǍǍǍǍǍǍ     1)12AVA$"IG"ĭZ1EV%(P1,2)21:EV%(P1,3)(((RD)8)1)20|WA$"IB"ĭZ1EV%(P1,2)21:EV%(P1,3)(((RD)8)1)28XA$"IG"ĭZ2EV%(P1,2)22:EV%(P1,3)(((RD)8)1)36YA$"IB"ĭZ2EV%(P1,2)22:EV%(P1,3)(((RD)8)1)44-ZA$"IG"R(X,Y).NY:X:X145:Y16:FL0ĺPO(X,Y)AOFL1ĄPO(X,Y)`PY:X:X115:FL0ĺDS(X)qQFL1ĄDS(X)RX:CL$"SAVE":SP1P11:EV%(P1,1)XTA$"CG"EV%(P1,2)0:EV%(P1,3)(((RD)12)1)UA$"CB"EV%(P1,2)0:EV%(P1,3)(((RD)8)FL1ĄNA@FL0ĺP1$AFL1ĄP12BFL0ĺLO@CFL1ĄLONDFL0ĺWE\EFL1ĄWEjFFL0ĺSTxGFL1ĄSTHFL0ĺHIIFL1ĄHIJX1P1:Y13:FL0ĺEV%(X,Y)KFL1ĄEV%(X,Y)LY:X:X115:Y14:FL0ĺTR(X,Y)MFL1ĄTWR$"PLAYER,R";X%:PL$;",";LA;",";HI;",";ST$:NAX%:52^6CL$:OP$"SAVE":FL0ĺWR$"SAVE"t7FL1ĺRA$"SAVE"8X191:Y121:FL0ĺPR%(X,Y)9FL1ĄPR%(X,Y):Y:X:FL0ĺMO;FL1ĄMO<FL0ĺST$=FL1ĄST$>FL0ĺNA? NUMBER.";:(7);:22:22:" ";:45h2RA$"PLAYER,R";Q:PL$,LA,HI,ST$:NAQ:LA999999MO50000~3LA999999MOLA4CL$"PLAYER":75:"PLEASE ENTER YOUR INITIALS";:122:IP$Z$:IP$(IP$,5):MO10000:HIMO:LAMO:PL$IP$:ST$"NOVICE":FL3: YOU ARE A NEW PLAYER PRESS RETURN."/22:1:" ";:W91:VQ2:122:Q$Z$:Q(Q$):Q$""ĭX%15ĺ" YOU MAY NOT ADD ANY NEW PLAYERS.";:(7);:22:22:" ";:450Q$""53*1(((Q$)1)(QX%1))ĺ" YOU MUST ENTER A VALIDǍǍǍǍǍǍǍǍǍǍǍǍǍ     z#?     ԠӠ# N Р) Ҡ ̠" ٠OΠÃĄɉɉΎÃ ͮ!Š0"ΠΠ 15:Y14E(TR(X,Y)PR%(1,X)25:Y:X:WE213:110:WE:WE14:STMOk)D$"BLOAD CHAIN,A520":520"PLAY"8*:OP$"PLAYER,L40":" LAST HIGH ":" NAME SCORE SCORE STATUS":" ----- -------- --------- ------------":X&A$"B"İ83:32 'PR%(X,F)(((A$)100)DA(X,(((Z1)3)1))DA(X,6)RD(Z))25:X:F:CL$"STOCKS":X191:PR%(X,21)0:Z115:PR%(X,21)PR%(X,21)PR%(X,Z):Z:X:X191:W1620:PR%(X,W)0:Z13:PR%(X,W)PR%(X,W)PR%(X,((W16)3)Z):Z:W:X:X129DA(X,F)(A$)100:X:F:CL$"INDUST":OP$"STOCKS,L400":F115:ZF:RMA(F):RA$;"STOCKS,R";R:RD(Z)((RD)10)35:X191 A$:A$"EG"İ83:32!A$"EM"İ83:32"A$"EB"İ83:32#A$"V"İ83:32$A$"G"İ83:32%A$"M"İ83:325:DS(X)0:X:P10:OP$"COMMON,L400":RA$;"COMMON,R";CO:X191XA$:A$"CG"İ83:26mA$"CB"İ83:26DA(X,6)(A$)100:X:CL$"COMMON":OP$"INDUST,L400":F15:ZF:RM1(F):RA$;"INDUST,R";R:X191A$:A$"IG"İ83:29A$"IB"İ83:10:"EXCITING GAME FOR YOU.":CO(((RD)5)1):Y15^P(((RD)10)1):X15:M1(X)P22xX:M1(Y)P:Y:Y115P(((RD)21)1):X115:MA(X)P24?X:MA(Y)P:Y:X1200:Y13:EV%(X,Y)0:Y:X:X145:Y16:PO(X,Y)0:Y:X:LO0:X11DNN:X1N1:T(NN):X:NNNN1:N1N11:NN32000NN1GN1100N12UCL$:FL1OP$"RANDOM.DTA":WR$"RANDOM.DTA":NN:N1:CL$:AN$"SAVED"ī415:9:5:"SIT BACK AND RELAX AS IT WILL TAKE":10:5:"ABOUT 6 MINUTES TO PUT TOGETHER AN":11:AN$"NEW"AN$"NEW", AN$"NEW"İ42:17jAN$"SAVED"Ģ23:7:"** RECALLING SAVED GAME **":54:17AN$"CLEAR"İ131:9" YOU MUST TYPE NEW, SAVED, OR CLEAR";:23:19:" ";:(7);:116OP$"RANDOM.DTA":RA$"RANDOM.DTA":NN,N1:RITTEN BY JIM ZUBER";:19:1:" DO YOU WANT TO PLAY A NEW GAME, A"; 20:1:" SAVED GAME, OR CLEAR THE PLAYER";:21:1:" DIRECTORY? TYPE NEW,SAVED, OR CLEAR";:22:1:" AND PRESS RETURN"; 23:18:122:AN$Z$:AN$"SAVED"AN$"SAVED" 3$"SPECULATOR":Z4$"PROFESSIONAL":Z5$"BROKER":Z6$"MILLIONAIRE"J FL1C :6:15:"MILLIONAIRE":8:5:"THE STOCK MARKET SIMULATION(TM)":11:19:"BY":12:11:"BLUE CHIP SOFTWARE":13:10:"COPYRIGHT 1982,83,84":15:14:"VERSION 2.00":17:10:"WRIL OIL":LN$(7)"KMART":LN$(8)"SEARS":LN$(9)"TANDY":LN$(10)"GENERAL MOTORS":LN$(11)"AMERICAN MOTORS":LN$(12)"BENDIX":LN$(13)"UNITED STATES STEEL":LN$(14)"DOW CHEMICAL":LN$(15)"CATERPILLAR TRACTOR"A CO$"STOCK MARKET":Z1$"NOVICE":Z2$"INVESTOR":ZSN$(4)"CNO":SN$(5)"EXX":SN$(6)"MOB":SN$(7)"KMT":SN$(8)"SRS":SN$(9)"TDY":SN$(10)"GM ":SN$(11)"AM ":SN$(12)"BDX":SN$(13)"USS":SN$(14)"DOW":SN$(15)"CAT":LN$(1)"CONTROL DATA":LN$(2)"IBM":LN$(3)"NCR" LN$(4)"CONOCO":LN$(5)"EXXON":LN$(6)"MOB),EV%(200,3),TR(15,4),PO(45,6),DS(15),RD(15),SN$(15),LN$(15):VQ5:W90:INAME$(1)"COMPUTER INDUSTRY":INAME$(2)"OIL & GAS INDUSTRY":INAME$(3)"RETAIL INDUSTRY":INAME$(4)"AUTO INDUSTRY":INAME$(5)"HEAVY INDUSTRY" SN$(1)"CDC":SN$(2)"IBM":SN$(3)"NCR":~ AD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256)::D$(4):OP$D$"OPEN":CL$D$"CLOSE":RA$D$"READ":WR$D$"WRITE":115:X(0):X0X65536XX20000113 PR%(91,21),MA(15),DA(91,6         ? (4);"BLOADCON"!16384=2(4);"RUNCDI I NC" C ȱȘe[_Ѹ L㱸 : ;,ȅ ٠eȱe 8HH; X`PRUS[F" " "@' hpho` {$ P2 4P s) XP:)еhpho` ;@ 'Lީ,, P#ʚ$p \,X` ɠ P٥ XP XPm8FdʱE]-,00^ *$,X05nЍNP$P,<*^P۩>ʝ ^P ޤ^ P&В!& { ^H hW  ީ %7 ފ MPLETE":24:1:"PRESS SPACE BAR TO CONTINUE";:MM$:oHpH)@  (E { ^^. 0쪆 {$0F Ъ8 9 r H #h 4ȹ _x0o  ;Z]^P YOU WANT TO":3:1:"CLEAR THE PLAYER DIRECTORY? (Y/N) ";:X$:X$:X$"Y"ı5%FL2:OP$"PLAYER,L40":WR$"PLAYER,R1":"BC";",";100000;",";100000;",";"BROKER":X215:WR$"PLAYER,R";X:"E";",";0;",";0;",";"E":X:CL$:20:1:"PLAYER DIRECTORY CLEAR COĺ(7);:1232#}((Z$)8)((ZZ$)0)ĺ(7);:123d#~((Z$)8)((ZZ$)1)ZZ$"":Z$;" ";Z$;:123#(Z$)8ZZ$(ZZ$,(ZZ$)1):Z$;" ";Z$;:123#(Z$)21ĺ(7);:123#(ZZ$)VQĺ(7);:123#ZZ$ZZ$Z$:Z$;:123M$:2:1:"ARE YOU SURE9:"FROM MILLIONAIRE DISKETTE":24:9:"PRESS ANY KEY TO RESUME GAME";:WA$:D$:CL$::FL1AN$"SAVED"Ģ12:12:"WAIT A MOMENT...";:D$"yFL20,15,13"zZZ$"":"? ";"{Z$:Z$(13)Z$ZZ$:W90:VQ5:(13);: #|W91(Z$)8((Z$)46(Z$)57)R4120!tERR5118G!u:(7):12:10:"NO SAVED GAME FOUND":119!v:11:13:"UNKNOWN ERROR":12:10:"ERROR ";ERR;" AT LINE ";(218)(219)256!wRR14000:RR:CL$:8"x:(7);:(7);:(7);:(7);:12:9:"REMOVE WRITE PROTECT TAB":13:X)25 pX: q12:9:"YOU DO NOT HAVE ENOUGH":13:6:"MEMORY TO PLAY MILLIONAIRE.":14:7:"VERIFY YOU HAVE 48K RAM IN":15:6:"IN YOUR SYSTEM. REMOVE":16:5:"YOUR MILLIONAIRE DISKETTE FROM":17:12:"YOUR DISK DRIVE." r114!sERR(222):ERhP1101075iMM1P11:EV%(P1,3)EV%(MM,3)84BjMM:109lkMMP19P11:EV%(P1,3)EV%(MM,3)84tlMMzmnX115:TR(X,3)TR(X,4):TR(X,4)PR%(WE,X)25:PR%(WE,X)25TR(X,1)TR(X,1)PR%(WE,X)25 oPR%(WE,X)25TR(X,2)TR(X,2)PR%(WE,A$"EB"EV%(P1,2)30Z:EV%(P1,3)(((RD)5)1)115sdA$"G"EV%(P1,2)Z:EV%(P1,3)(((RD)4)1)((Z1)4)120eA$"M"EV%(P1,2)Z:EV%(P1,3)(((RD)4)1)((Z1)4)180fA$"B"EV%(P1,2)Z:EV%(P1,3)(((RD)4)1)((Z1)4)240gP11109%(P1,3)(((RD)8)1)84T_A$"IB"ĭZ5EV%(P1,2)25:EV%(P1,3)(((RD)8)1)92`A$"V"EV%(P1,2)Z:EV%(P1,3)(((RD)5)1)100aA$"EG"EV%(P1,2)30Z:EV%(P1,3)(((RD)5)1)105bA$"EM"EV%(P1,2)30Z:EV%(P1,3)(((RD)5)1)1104cZ3EV%(P1,2)23:EV%(P1,3)(((RD)8)1)52h[A$"IB"ĭZ3EV%(P1,2)23:EV%(P1,3)(((RD)8)1)60\A$"IG"ĭZ4EV%(P1,2)24:EV%(P1,3)(((RD)8)1)68]A$"IB"ĭZ4EV%(P1,2)24:EV%(P1,3)(((RD)8)1)76^A$"IG"ĭZ5EV%(P1,2)25:EV@@L>`-ȍ.ō/̍01ύ2 Ѥ -@@` XݍۍL@ ȩ    HL@`<=>?`# (@ L@ L@ L@LA@@g@h@ (@@ G11:G215:A$"YOUR STOCK PORTFOLIO IS EMPTY."k:CM$"PC"G116:G230:A$"YOUR CALL PORTFOLIO IS EMPTY.";CM$"PP"G131:G245:A$"YOUR PUT PORTFOLIO IS EMPTY."<362:AD1İ234:G21587,93,93:364:232:229:49=234:24:1((40(A$))2):28:21328:"? ";:CM$:CM$"G"CM$"D"İ71:49G2CM$"N"İ84:49p3CM$"C"İ328:85:364:232:229:494CM$"E"İ105:495CM$"B"İ109:232:229:496CM$"P"İ360:CM$CM$A$7CM$"PE"İ232:628(CM$,1)"P"ī62.9CM$"PS"^",PR);:13:16:"COST:";:CSAMPR:PRUS,("^^^^^^^^$",CS);:14:10:"COMMISSION: ";:COCS.015:PRUS,("^^^^^^$",CO);:15:14:"MARGIN: ";:PRUS,("^^^^^^^$",MR);:16:9:"------------------------";017:12:"NET COST: ";:PRUS,("^^^^^^^$",CSCOMR);:3E:";:A$"C"ĺ"CALL OPTION";9)A$"S"ĺ"COMMON STOCK";T*A$"P"ĺ"PUT OPTION";+11:12:"QUANTITY: ";:PRUS,("^^^^^^^",AM);:X15ĺ" LOTS";,X15AMAM100-X15PRPO(X,4).X15PRTR(X,4)/12:15:"PRICE: ";:PRUS,("^^^^$0.0"YOU MUST SELL STOCKS OR OPTIONS":16:7:"TO COVER INTEREST CHARGES.";:328:154:MO034b$38p%232:230x&49'WEWE1:4(233:6:10:"BUY TRANSACTION REPORT":7:10:"----------------------";:9:15:"STOCK:";LN$(PO(X,1));:10:16:"TYPAS BEEN SOLD:";:364:200:364:233:INMODE0833 9:15:"MARGIN CALL";:JW$"^^^^^^^$":14:1:PRUS,(JW$,RE);:" DOLLARS HAS BEEN USED TO BRING";:15:7:"YOUR ";SN$(X);" ACCOUNT BACK INTO LINE.";:364:233!X"DE037Z#233:15:4:NE1000000ST$Z6$:235,WE91237P228:233:X115:PO(X,1)033d219:EQ3033233:RE((50EQ)100)TR(X,4)PO(X,3):MOREMOMORE:PO(X,6)PO(X,6)RE:228:320AMPO(X,3):9:15:"MARGIN CALL";:14:4:"THE FOLLOWING STOCK HVICE.":ST$Z1$:MO7500:IN0:NE7500Z LO0:DE0:X145:Y16:PO(X,Y)0:Y:X:IN0:364 ST$Z1$ĭNE12000ST$Z2$:223:26 ST$Z2$ĭNE18000ST$Z3$:223:26 ST$Z3$ĭNE40000ST$Z4$:223:26 ST$Z4$ĭNE100000ST$Z5$:223:26MOMOIN:220:NEHIHINE, NE100021# :11:5:"YOU HAVE BEEN DECLARED BANKRUPT.":12:6:"YOUR ASSETS HAVE BEEN SOLD TO":13:5:"PAY OFF YOUR CREDITORS.YOU WERE":14:5:"ALLOWED TO KEEP $7,500 BUT YOUR":15:4:"STATUS HAS BEEN REDUCED TO NOX,1));".";:XV1:35:X31ĺ"(CALL)"8 X31ĺ"(PUT)"u MOMO(PO(X,3)100PO(X,4)1.015.3):Y16:PO(X,Y)0:Y X:XV0 364:XV23XV4::2:10:"MORE EXPIRED OPTIONS:":10 TM0:X115:TMTMPO(X,6):X:IN(TMLO).00346:INMODE1 )B9(PO(Z,1))15 Z:Z8115:B9(Z8)0FIZ8:268a Z8:260:SS0:X1645:WEPO(X,5)SS1q X:SS016 :2:3:"THE FOLLOWING OPTIONS HAVE EXPIRED:":XV4:X1645:XV2315 WEPO(X,5)14$ XV:2:XVXV1:PO(X,3);" LOTS OF ";LN$(PO(2,166:346Y OPT(15),RF%(15),B9(15):R115:XZ0:OP$"MESDATA,L65":OP$"DESCRIP,L650" DE0::257:TE26:X115:OPT(X)TR(X,4).00115TE:X:FI21:268:R1R11:R121R116 FIR1:268:296:Z115:B9(Z)PO(Z,1):Z:Z1645:PO(Z,1)0B9(PO(Z,1)MAD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256):A$"300:20 EA 03 20 FB DA A9 04 85 51 A9 6A 85 50 20 41 D9 4C D2 D7 ND823G":I1(A$):511I,((A$,I,1))128::72,0:144 1010,0:1011,3:101                        DBD$(4)::12:9:"LOADING MILLIONAIRE...":D$;"RUN INITIAL"LS BE A PROFESSIONAL";:(7);.$365:328:110U$ZW0:XG1G2:PO(X,1)0ZW1:135\$Xp$ZW1PTX:137$328:24:3:"NO ROOM IN PORTFOLIO";:(7);:365:328:110!%328:24:3:"ENTER STOCK NAME(EXAMPLE:CDC)";:349:TP$Z$:TP$TP$" ":TP$(6):MOMO(AMTR(X,4)1.015)MR:220:NE100019C#228:40:364:~#(G116)((ST$Z3$)(ST$Z4$)(ST$Z5$)(ST$Z6$))133#(G131)((ST$Z4$)(ST$Z5$)(ST$Z6$))133#328:24:3:G116ĺ"YOU MUST BE A SPECULATOR";:(7);$G131ĺ"YOU MUST124"{328:(7);:110R"|MRAMTR(X,4)(AN100):MO(AMTR(X,4)1.015)MR126"}328:(7);:24:3:"YOU DON'T HAVE ENOUGH MONEY";:365:328:110/#~PO(X,1)X:PO(X,4)((PO(X,4)PO(X,3))(AMTR(X,4)))(AMPO(X,3)):PO(X,3)AMPO(X,3):PO(X,6)MRPO(X,Y NOT EXCEED 50%";:365:328:110!xMX(MO(TR(X,4)1.015)):ST$"NOVICE"MX(MO((TR(X,4)(1(AN100)))(TR(X,4)1.015TR(X,4))))!yMX99999MX99999"z328:24:1:"ENTER # OF ";SN$(X);" SHARES (MAX=";MX;")";:349:AM$Z$:AM(AM$):AM.9899999"ENTER STOCK NAME(EXAMPLE:CDC)";:349:TP$Z$:TP$TP$" ":TP$(TP$,3):329:X0İ328:(7);:110w tST$Z1$AN0:120 u328:24:3:"ENTER MARGIN PERCENTAGE";:XZ1:349:A1$Z$:AN(A1$):A1$""AN50 vAN50.1120!!w328:(7);:24:3:"MARGIN MAO)?";:A$:A$"Y"CM$"SA":18:10:"** SAVING THIS GAME **":237SkCM$"QU":237^l229:pm85:328:MR0n24:1:MR0:360:A$"S"115oA$"C"G116:G230:128pA$"P"G131:G245:128qA$"E"ır328:(7);:110` s328:24:3:S,("^0.^",OT);SgLN:35:PRUS,("^^^^^^",(PO(X,3)100OT)(PO(X,3)100PO(X,4)));\hX:i233:15:7:"ARE YOU SURE(Y/N)? ";:A$:A$"Y"ī108AjWEWE1:16:1:"(PREVIOUS SAVED GAME WILL BE DESTROYED.)":15:3:"SHOULD I SAVE THIS GAME (YES OR NRUS,("^",XY11);:101'd(56XY1);eLN:3:SN$(PO(X,1));:LN:7:PRUS,("^^^^",PO(X,3));:LN:12:PRUS,("^^^",PO(X,5));:LN:16:PRUS,("^^0.0^",PO(X,2));:LN:23:PRUS,("^^0.0^",TR(PO(X,1),4));:LN:30:249:OT9.95įPRUS,("0.00",OT);:103fPRUONS"_TY1ĺ"CALL OPTIONS"`6:1:"R STK QTY EX STRIKE STOCK CUR PROFIT";:7:1:"- --- ---- --- ------ ------ ---- ------";:TY0Y116:Y230:Y315aTY0Y131:Y245:Y330bLN7:XY1Y2:PO(X,1)0104cLNLN1:LN:1:XY1110įPUS,("^^^^^",PO(X,3));:LN:14:PRUS,("^^0.0^",PO(X,4));:LN:21:PRUS,("^^0.0^",TR(X,4));:219:LN:29:PRUS,("^^^",EQ);:PS(PO(X,3)TR(X,4))(PO(X,3)PO(X,4)):LN:33:PRUS,("^^^^^^^^",PS);\X:]233:TY0:CM$"PP"TY1^5:15:TY1ĺ"PUT OPTI1:"RF STK QTY PURCH CURNT EQ% POSITION";:7:1:"-- --- ----- ------ ------ ---- --------";:LN7:X115:RF%(X)0:PO(X,1)0LNLN1XPO(X,1)0ī92YRF%(LN7)X:LN710įPRUS,("^^",LN7);:91Z" ";(LN48);N:4:SN$(X);:LN:8:PR:7:3:"--- ------ ------ ------ ------";:JW$"^^^$0.0^":X115:X7:3:SN$(X);:X7:6:PRUS,(JW$,TR(X,4));:X7:14:PRUS,(JW$,OPT(X));VX7:22:PRUS,(JW$,TR(X,4)5);:X7:30:PRUS,(JW$,TR(X,4)5);:X:W233:5:14:"COMMON STOCKS";:6:(7);:77ONBU2CM$"":835PCM$"D"XNB:291MQCM$"G"FINB:268UR71vS232:228:233:229:CM$"":T296:260:232:228:233:229:U233:23:1:40);:5:9:"STOCK AND OPTION PRICES";:6:3:"STK STOCK OPTION CALL PUT ";6"KLN$(X);35);"(";SN$(X);")";mLX:U2U1:11:(55U2);"--RETURN TO MENU":24:1((40(A$))2):A$;M24:1((40(A$))2)(A$):NB$:NB(NB$):(NB$)13(NB$)32NBU2NNB0NB(NB$)55:NBU2NB10Ģ24:1((40(A$))2)(A$):" ";U216:A$"ENTER LETTER OF DESCRIPTION DESIRED:":73fHU10:U222:A$"ENTER LETTER OF GRAPH DESIRED:"IX19:XU1:11:(X);"--";LN$(X);35);"(";SN$(X);")";:X:X10U21:XU1:11:(55X);"--";:X15X21ĺIN$(X15):76JX21ĺ"STOCK MARKET":7(7);A$;:365:232:49,>CM$"S"İ154:49B?CM$"L"İ184:49Q@CM$"W"ıbACM$"!"ī67qB(7);:49C:"MONEY?";A$:A$""MO(A$)D"WEEK=";WE:"WEEK?";A$:A$""WE(A$)E"STATUS?";A$:A$""ST$A$F393G:CM$"D"U13::4HOLDX:T10:T20:CS0:TM0:X115:T1T1(PO(X,3)TR(X,4)):TMTMPO(X,6):CSCS(PO(X,3)PO(X,4)):X:X1645:PO(X,1)02224249:T2T2(OTPO(X,3)100):CSCS(PO(X,3)PO(X,4)100)&5X:T3T1T2TMLO((T1T2).015):TLT1T2((T1T2).015):TL(---------------------------------";:21:4:"NET PROFIT(LOSS):";:PF0ĺ"(";]3PF0ĺ" ";3PRUS,("^^^^^^^^$",(PFTX));:PF0ĺ")";3PO(X,3)02183Y16:PO(X,Y)0:Y3228:4EQ(TR(X,4)PO(X,3))PO(X,6):EQ(EQ(TR(X,4)PO(X,3)))100:"TAXES: ";:PF(SUMN(AMPO(X,4)1.015)):TXPF.3:P2SUTX:MOMOP2:TX0ĺ"(";b2TX0ĺ" ";2PRUS,("^^^^^^^$",(TX));:TX0ĺ")";L318:4:"------------------------------------";:19:6:"CASH RECEIVED: ";:PRUS,("^^^^^^^^^$",P2):20:4:"---US,("^^^$0.0^",PC):13:9:"SALE AMOUNT:";:SAAMPC:PRUS,("^^^^^^^^^$",SA);:14:10:"COMMISSION: ";:CMSA.015:PRUS,("^^^^^^^$",CM);::15:14:"MARGIN: ";:PRUS,("^^^^^^^$",MN);:16:12:"SUBTOTAL:";:SUSACMMN:PRUS,("^^^^^^^^^$",SU);:Q217:1510:16:"TYPE:";:X30ĺ"PUT OPTIONS":205D0X15ĺ"CALL OPTIONS"_0X15ĺ"COMMON STOCK"011:12:"QUANTITY: ";:PRUS,("^^^^^^^^",AM);:X15ĺ" LOTS"012:15:"PRICE: ";:X15AMAM1000X15İ249:PCOT0X15PCTR(X,4)1PR:199 /LOLOL3:MOMOL3:228-/CM$"":/234:233:MN(PO(X,6)PO(X,3))AM:PO(X,6)PO(X,6)MN:PO(X,3)PO(X,3)AM:6:10:"SELL TRANSACTION REPORT";:7:10:"-----------------------";:9:15:"STOCK:";:X15ĺLN$(PO(X,1));/X15ĺLN$(X);*0)197".L3.9899999ĺ(7);:199k.L3LO500000ĺ(7);:24:3:"INDEBTEDNESS MAY NOT EXCEED $500,000";.L3LO500000196.365:328:199.L3(NE.8)LOī198/328:(7);:24:3:"YOU MAY BORROW UP TO:";:PRUS,("^^^^^^^$",A1);:365:328" CAN NOT MAKE LOANS";:(7);:365:199-24:3:"ENTER LOAN AMOUNT OR MAX";:349:LO$Z$:((NE.8)LO)LO500000A1500000LO-((NE.8)LO)LO500000A1(NE.8)LO-A10A10-LO$"MAX"L3A1:191-L3(LO$).(L3.9899999)(LO$"MAX";:XZ1:349:AM$Z$:AM(AM$):AM.9899999180G,(7);:328:233:154\,AMPO(Z,3)182,328:24:3:(7);:"YOU DON'T HAVE THAT MANY";:365:328:233:154,XZ:200:234:364:MO0İ232:229,,(ST$Z5$)(ST$Z6$)186'-24:3:ST$;P$)65(TP$)70)İ234:(7);:233:154I+(TP$)0Z(TP$)G11:176\+Z(TP$)56G1q+PO(Z,1)0ī178+328:24:5:(7);:"THERE IS NO '";TP$;"' STOCK REFERENCE.";:365:328:233:154-,328:24:1:"ENTER AMT OF RF# ";TP$;" LOTS TO SELL"3:"YOU DON'T OWN THAT MANY";:(7);:365:328:233:154]*200:234:364:MO0İ232:229c*v*362:AD1173*234:(7);:24:3:"YOU DO NOT OWN ANY";:365:328:154'+233:94:234:24:3:"ENTER STOCK REFERENCE (1-F)";:TP$:(TP$)0((T0ī165\)234:24:5:(7);"THERE IS NO '";TP$;"' STOCK REFERENCE.";:365:328:233:154)328:XRF%(X):24:1:"ENTER AMOUNT OF ";SN$(X);" TO SELL";:349:AM$Z$:AM(AM$):AM.9899999167)(7);:328:233:154)AMPO(X,3)1699*328:24::(328:(7);:154*(362:AD1161g(234:(7);:24:3:"YOU DO NOT OWN ANY";:365:328:154(87:234:24:3:"ENTER STOCK REFERENCE (1-F)";:TP$:(TP$)0((TP$)65(TP$)70)İ234:(7);:233:154(X(TP$):X0X(TP$)55)RF%(X)(PT,3)AMl'PO(PT,4)OPT(X):PO(PT,6)0:PO(PT,5)WE26:MOMO(PO(PT,4)PO(PT,3)1001.015):220:NE100019'228:XPT:40:364:'360:A$"S"G11:G215:159'A$"C"TY0:G116:G230:171'A$"P"TY1:G131:G245:171(A$"E"İ232:2293:"YOU DON'T HAVE ENOUGH MONEY";:365:328:110:&YG1H&YG2147n&(PO(Y,1)XPO(Y,5)WE26)147}&YY1:144&YG2PTY&PO(PT,1)X:G116PO(PT,2)TR(X,4)5&G116PO(PT,2)TR(X,4)5&YPTPO(PT,3)PO(PT,3)AM:152 'POTP$,3):329:X0İ328:(7);:110W%328:MX(MO(OPT(X)1.015100)):MX9999MX9999%24:1:"ENTER NO. OF ";SN$(X);" LOTS(MAX=";MX;")";:349:AM$Z$:AM(AM$):AM.9899999141%328:(7);:110%MOOPT(X)AM1.0151001431&328:(7);:24:;:".":364:9D :21:7::X132:" ";:X:WE31W1LD WE31WWE30DX8363::22:X:" ";::23:X:W;:WW3:X:X221::X:7:" ";:X:WE31274DL1PR%(1,FI)25:H1L1:X2WE:PR%(X,FI)25H1H1PR%(X,FI)25 EPR%(X,FI)25L1L1P4DD$"GAINED"$C T5T4DD$"LOST" D 19:6:"THERE WERE ";L2;" LOSERS THIS WEEK.":20:6:"THERE WERE ";GA;" WINNERS THIS WEEK.":21:6:"THE MARKET ";DD$;" ";((T5T41));" POINTS.":22:6:"AN AVERAGE SHARE ";DD$;" ";:PRUS,("^$0.0^",((T5T4)15))---";:2:33:"------";:JW$"^^0.0^":X115:X2:2:PRUS,(JW$,TR(X,1));BX2:10:PRUS,(JW$,TR(X,2));:X2:19:SN$(X);:X2:25:PRUS,(JW$,TR(X,4));:TR(X,4)TR(X,1)ĺ"*";BTR(X,4)TR(X,2)ĺ"*";C X2:33:PRUS,(JW$,TR(X,4)TR(X,3)):X:T5T0:L20:GA0:X115:T4T4TR(X,3):T5T5TR(X,4):TR(X,4)TR(X,3)GAGA1fATR(X,4)TR(X,3)L2L21IBX:1:3:"HIGH";:1:11:"LOW";:1:18:"STOCK";:1:26:"CLOSE";:1:33:"CHANGE";:2:2:"------";:2:10:"------";:2:18:"-----";:2:25:"---Y):Y:X:X115:Y14:TR(X,Y):Y:X:X145:Y16:PO(X,Y):Y:X:X115:DS(X):X:CL$:@X115:TR(X,3)TR(X,4):TR(X,4)PR%(WE,X)25:PR%(WE,X)25TR(X,1)TR(X,1)PR%(WE,X)25@PR%(WE,X)25TR(X,2)TR(X,2)PR%(WE,X)25@X:IA:T40:T5(X,1),4))((PO(X,2)5TR(PO(X,1),4)PO(X,2)5).00115TE)?PO(X,2)TR(PO(X,1),4)OT(PO(X,2)5TR(PO(X,1),4)PO(X,2)5).00115TE?]@OP$"SAVE":WR$"SAVE":X191:Y121:PR%(X,Y):Y:X:MO:ST$:NA:P1:LO:WE:ST:HI:X1P1:Y13:EV%(X, GAME";:AB$:(1);:D$;"RUN INITIAL":C>TEPO(X,5)WE:X30253>PO(X,2)TR(PO(X,1),4)OT(TR(PO(X,1),4)PO(X,2))(TR(PO(X,1),4).00115TE)>PO(X,2)TR(PO(X,1),4)OTTR(PO(X,1),4).00115TE>2559?PO(X,2)TR(PO(X,1),4)OT(PO(X,2)TR(POZ3$:M218000NE1=ST$Z3$S1$Z4$:M240000NES=ST$Z4$S1$Z5$:M2100000NEv=ST$Z5$S1$Z6$:M21000000NE=ST$Z6$S1$"MILLIONAIRE++":M21000000NE=PRUS,("^^^^^^^$",M2);:" TO BECOME A ";S1$;'>24:4:"PRESS ANY KEY TO START A NEWNESTĺ"DECREASED";<PRUS,("^^^^^^^^$",(NEST));:".":12:9:"YOUR STATUS IS ";ST$;:".":16:7:"YOUR HIGH SCORE IS";:PRUS,("^^^^^^^^$",HI);:".":20:5:"YOU MUST INCREASE YOUR NET WORTH":21:5:"BY";:ST$Z1$S1$Z2$:M212000NE=ST$Z2$S1$$;"OPEN PLAYER,L40":RA$"PLAYER,R";NA:PL$,J1,J2,J1$:D$:WR$"PLAYER,R";NA:PL$;",";(NE);",";(HI);",";ST$:CL$:NE1000000248;:4:5:"YOUR ENDING NET WORTH WAS";:PRUS,("^^^^^^^^$",NE);:".":8:5:"YOUR NET WORTH ";:NESTĺ"INCREASED";<"YOU ARE NOW A MILLIONAIRE.":20:4:"YOU GET $50,000 TO START WITH THIS":21:5:"TIME AND YOUR MILLIONAIRE STATUS":22:6:"STAYS WITH YOU.SEE HOW QUICKLY":23:6:"YOU CAN REACH A MILLION AGAIN.":237::D$:CL$:CM$"SA"FL0:256::248;D:"WEEK---ADVANCE TO NEXT WEEK":18:2:"END----LEAVE MILLIONAIRE SESSION":x9234:23:8:"ENTER ACTION DESIRED:";:9HOLDX:X522:X:1:40);:X:XHOLD:923:1:40);:24:1:39);:::5:19:"YOU":8:19:"DID":11:19:"IT!":15:7:"NEWS---DISPLAY JOURNAL/STOCK CHANGES":12:2:"COST---DISPLAY STOCK/OPTION PRICES":13:2:"PORT---DISPLAY A PORTFOLIO"L914:2:"BUY----START A BUY TRANSACTION":15:2:"SELL---START A SELL TRANSACTION":16:2:"LOAN---BORROW AGAINST NET WORTH":17:2EST:";:PRUS,(JW$,IN);:2:25:"LOANS:";:PRUS,(JW$,LO):3:2:"NET WORTH:";:PRUS,(JW$,NE):3:26:"CASH:";:PRUS,(JW$,MO):XHOLD:7233x87:13:"MENU SELECTION":9:2:"DESC---DISPLAY COMPANY DESCRIPTIONS":10:2:"GRAPH--DISPLAY GRAPHS":11:2:17:12:"BUY PUT OPTIONS.":227X6NE18000ST$Z3$Ģ17:11:"BUY CALL OPTIONS.":2276NE12000ST$Z2$Ģ17:9:"BUY STOCKS ON MARGIN.":2276364:7JW$"^^^^^^^^^$":HOLDX:X14:X:1:40);:X:1:11:"WEEK:";WE;:1:23:ST$:2:3:"INTERTL(CS1.015)).3:NET3TLMO:XHOLD:5:10:12:"CONGRATULATIONS !!!!":13:7:"YOUR STATUS HAS BEEN RAISED":14:14:"TO ";ST$;".":16:14:"YOU MAY NOW":NE100000ST$Z5$Ģ17:4:"BORROW UP TO 80% OF YOUR NET WORTH.":2276NE40000ST$Z4$Ģ^P ޤ^ P&В!& { ^H hW  ީ %7 ފ " " "@' hpho` {$ P2 4P s) XP:)еhpho` ;@ 'L޾ {$0F Ъ8 9 r H #h 4ȹ _x0o  ;Z]^PFdʱE]-,00^ *$,X05nЍNP$P,<*^P۩>ʝ A$:A$"S"A$"C"A$"P"A$"E"İ328:(7);:360:RicRjAD0:XG1G2:PO(X,1).9899999AD1lRkX:Rl24:8:"PRESS ANY KEY TO CONTINUE";:A$:RmV11300:V:oHpH)@  (E { ^^. 0쪆 (Z$)8ZZ$(ZZ$,(ZZ$)1):Z$;" ";Z$;:350GQb(Z$)21ĺ(7);:350^QcVQ5:CM$"L"VQ6pQdCM$"G"VQ4Qe(ZZ$)VQĺ(7);:350QfXZ1((Z$)48(Z$)57)ĺ(7);:350QgZZ$ZZ$Z$:Z$;:3504Rh24:1:"ENTER TYPE(STOCK,CALL,PUT,EXIT)";:9:"REMOVE WRITE PROTECT TAB":13:9:"FROM MILLIONAIRE DISKETTE":24:9:"PRESS ANY KEY TO GOTO GAME";:WA$:237P]ZZ$"":"? ";P^Z$:Z$(13)Z$ZZ$:XZ0:P_((Z$)8)((ZZ$)0)ĺ(7);:350P`((Z$)8)((ZZ$)1)ZZ$"":Z$;" ";Z$;:350-QaX13:345"OVTP$"DOW"X14:345;OWTP$"CAT"X15:345COXX0IOYgOZD$:ERR(222):ERR4348O[:12:13:"UNKNOWN ERROR":(7);:(7);:(7);:(7);:13:10:"ERROR ";ERR;" AT LINE ";(218)(219)256:qP\:(7);:(7);:(7);:(7);:12:KTP$"NCR"X3:345-NLTP$"CNO"X4:345ENMTP$"EXX"X5:345]NNTP$"MOB"X6:345uNOTP$"KMT"X7:345NPTP$"SRS"X8:345NQTP$"TDY"X9:345NRTP$"GM "X10:345NSTP$"AM "X11:345NTTP$"BDX"X12:345 OUTP$"USS" MC327,MDCM$"N"ZQU(TP):TPTP1:326WMEZ(((RD)15)10.5):QU(TP)Z:TPTP1qMFME$ME$" "(Z)"%."wMGMH23:29:" ";:24:1:" ";:23:29:MITP$"CDC"X1:345MJTP$"IBM"X2:345NLAST WEEK'S NEWS">L;D$:364:CM$"N"A$"B"W14WW1:297DL<kL=(EV%(X,3)105)(EV%(X,3)111)319tL>322L?CM$"N"ZQU(TP):TPTP1:321L@Z(((RD)5)1):QU(TP)Z:TPTP1LAME$ME$" "(Z)"%."MB(EV%(X,3)105)(EV%(X,3)111)3244)K4(ME$)39ĢLN:2:ME$:LNLN1:312vK5Z3811:VV$(ME$,Z,1):VV$" "MZ$(ME$,Z):LN:2:MZ$:LNLN1:311}K6ZK7ME$(ME$,NZ):N(ME$):308K8LNLN1K9X:NO0Ģ13:12:"NO NEWS THIS WEEK";L:CM$"N"W14Ģ23:5:"PRESS B TO SEE )E$IN$(EV%(X,2)20):304IJ.EV%(X,2)30E$LN$(EV%(X,2)30):317:304^J/E$LN$(EV%(X,2))yJ0E$""ME$E$" "ME$J1N(ME$):LN21Ģ24:8:"PRESS ANY KEY TO CONTINUE";J2LN21308K3D$:D$:H$:::" ****THE FINANCIAL JOURNAL****":LNWWEdI):TP1:NO0:X(0)::" ****THE FINANCIAL JOURNAL****"::LN4:X1P1:EV%(X,1)W313I*NO1:RA$"MESDATA,R";EV%(X,3):A$:Y6011:VV$(A$,Y,1):VV$" "300I+YI,ME$(A$,Y):EV%(X,2)0E$"":304J-(EV%(X,2)20)(EV%(X,2)26:XH"1:40:M$::H#D$::RA$"DESCRIP,R";X:A$:B(A$):B(40B)2:4:B:A$:::W114:W6:1:W$:(1):W5(W$):W5292,293,294H$W$:W$:295H%W$,W5$:W$;",";W5$:295H&W$,W5$,W6$:W$;",";W5$;",";W6$:295H'W:(13);:D$:364:I(PRESS ANY KEY TO CONTINUE";::Y8:ZZ1:YY1:WE31288GX1WE:YYYYZZ:Z(((PR%(X,FI)25)Z1)2FA):Z(Z.5)2:Z:Y:PY:YY0YY1G"*";:X:290G XWE30WE:YYYYZZ:Z(((PR%(X,FI)25)Z1)2FA):Z(Z.5)2:Z:Y:PY:YY0YY1H!"*";F(Z1)(Z1000)ĝ:Z;5F(Z1)(Z1000)ĺ"";{F:X:6:" ";:ZZ(4FA):X::24:21:"WEEKS";:FI16F$LN$(FI)FFI15ĭFI21F$IN$(FI15)FFI20F$CO$6GA(F$):X(22A)2A((22A)2):X:1:(F$,X(((22A)2)1),1);:X:1:11:"R%(X,FI)25EX:277bEL1PR%(WE31,FI)25:H1L1:XWE30WE:PR%(X,FI)25H1H1PR%(X,FI)25EPR%(X,FI)25L1L1PR%(X,FI)25EXEFA(((H1L1)30)1):Z((H1((H1L1).12)).5):Z1Z:X2212:Z99ĢX:3EZ99ĢX:4EZ10ĢX:5ǍǍǍǍǍǍǍǍǍǍǍǍ,, P#ʚ$p \,X` ɠ P٥ XP XPm8 ȱȘe[_Ѹ L㱸 : ;,ȅ ٠eȱe 8HH; X`PRUS[֍ǍǍǍǍ֍ǍǍǍ͍͍Ǎ͍֍͍Ǎ͍͍֍֍͍֍͍֍֍͍ǍǍǍǍǍǍǍ֍͍͍Ǎ֍Ǎ͍Ǎ͍͍֍ǍǍǍǍǍǍ֍͍Ǎ͍ǍǍ֍͍Ǎ͍͍ǍǍ֍            ӠŠĠϠŠנ̠ӮӠ̠ŠŠϠŠŠƠҮӠӠŠĠϠŠ̠ŠԠҮӠԠĠҠĮԠɭԠήӠ̠Š٠Ġ٠נӠӠԠĠӠŠϠŠǠٮӠԠǠŠŠϠȠήɠԠנԠӠΠӠӮӠԠҠ̠ϠӠԮӠƠΠàŠŠŠŠԮΠԠӠȠ̠ǠҮӠҠҠӠŠϠĠӮӠ̠ŠŠϠҠҧӠŮӠƠנ̠ĠĠԠΠԮӠŠԠԠנԠӠΠ̠ӮӠŠƠӠӮӠԠŠ̠Ԡ̠Ҡà̠ӮӠŠĠԠàΧԠԠŠԮӠĠŠĠƠɭԠӮӠԠҠӠ̠Ů٠ӠŠĠԠϠРӮӠĠŠ٠ƠנҠ̠ĮĠŠ̠Ơ̠ӮĠŠ̠ԠԠӮǠ̠נŠϠԠ٠ӮӠҠΠΠ̠ԠϠӮӠԠנ٠ӠĠϠǠϠԮӠԠŠΠϠРӮҠĠҀŠנӠҠӠΠҠӮӠŠˠΠΠԠӮӠŠĠϠŠŠ̠ӮӠŠĠ٠̠ӮӠԠĠҠӮ̠ΠĠРŠԠӮӠԠàҠӠӮӠԠǠӠŠƠŮӠӠƠŠҠӠŠԮӠĠנ̠ȠٮӠĠԠΠǠŠӠĮӠŠĠϠŠנ̠͠ŠĠ٠ӠҮРؠӠŠǠàȮŠԠӠĠРРΠŠЮŠԠĠΠŠàҠԠӠŠǠàٮԠĠ٠ӠҮΠӠŠΧӠҠŠàͮȠԠӠŠǠΠŠٮŠ̠ŠĠŠԠŠٮ̠̠ΠŠӠҮԠĠϠŠԠӠӠȮΠĠנŠˠӠҮŠԠӠĠӠΠϠӮĠǠƠӠΠӠŠԮŠԠӠΠӠҠٮĠŠӠŠĠӠҮ̠ŠŠ٠ӠҮŠؠӠŠǠҠǮŠӠ̠ԠĠӠҮ                              ̠Ю©̠ӠΠ΍ӠԠҠˠԠӠŠčԠ̠Ġٮ̠ӍŠ٠ȠӍӠōԠĠҧӠ٠ōΠРϠŠӍǠŠ̠ĠĠ̠ƍΠӠҠƠŠ̍ĠӠ٠ЮŠΠ̬̍ӬĠ̠ŠӮΠӍ̠ӠĠӠӍΠӮĠΠ٠΍ĮҬ٠ӠčΠԠӠԠĠƍŠΧӠ̮ΠŠĠӠٍЮΠةȠΠΠӠԍҬΠӠҠҠΠŠˠ̠ΠčĠ٠ŠŠӠΠӠĠƠӠˠčȮϠӠϠŠҠƍ̠ŠĠϠŠӍҠŠàٮϠӠҠƠŠ̠ϠîϩϠӠӠҠΠ̍ȠԠӠӠǠήȠΠӠƠ̍ӬϠӠҠŠΠӍϠӠĠ٠ΠٮҠΠ΍ĠΠӠӠǍĠӬŠĠ̬ӍӬĠǠӮҠӠҠƠŠҠ٠ЮΠӠԠҮҠנӠĠΠŠҍ٬ǠҠϠƍӮҠӠĠ͠ԍΠΠΠ٠͍ήŠĠŠ٬ĠƬĠĠΠҍŠҠ٠ЮҍҬŠΠӠ̠ȍҬӠҠŠΠӍȠΠҠٍϠŠ̠ҠԮȍ̠Ӡ٠ϠōĠΠ͠ӠĠҍӮ͠ӠŠԠΠ΍٠ΠŠĬӠԠӠҍΠŠŠԮ͠ӠҠƠ͍ͧӠӠčΠӠΠŬǍԠҠŠΠӮĠ΍٠Ӡά͠ӠΠōҠΠΠ٠ҍŮΠ͠ĠŮΠ͠ĠΠԠԍ٠ǠŠՠЮȍάϠ̠Ҡή̠ӠҠƠōҠ٠ЮĠȠ΍ĠԠŬ΍ŠǠŬĠ̍ԠĠΠ̍Ӯ̠ӠĠ΍٠͠ӬĠ٠ԍҠŠǠҠԠ̠Юé̠ӠҠΠōŠƠŠŠÍӮӍ                   ŬōōŬōōŬōōŬōōŬōōŬōōŬōōŬōōŬōōìҍōŬōҍŬōōŬōōŬōōŬō  A NEW PLAYER PRESS RETURN.".22:1:" ";:W91:VQ2:120:Q$Z$:Q(Q$):Q$""ĭX%15ĺ" YOU MAY NOT ADD ANY NEW PLAYERS.";:(7);:22:22:" ";:44/Q$""52!0(((Q$)1)(QX%1))ĺ" YOU MUST ENTER A VALID NUMBER.":RA$"PLAYER,R";X%:PL$,LA,HI,ST$:D$:HI043*X%3:1:X%;".";:X%3:4:PL$;:X%3:9:PRUS,("^^^^^^^^$",LA);:X%3:19:PRUS,("^^^^^^^^$",HI);:X%3:29:ST$:X+D$,20:7:"ENTER PLAYER NUMBER TO START.":X15ī46-21:3:"IF YOU ARE <'TR(X,Y)PR%(1,X)25:Y:X:WE213:109:WE:WE14:STMOb(D$"BLOAD CHAIN,A520":520"PLAY"/):OP$"PLAYER,L40":" LAST HIGH ":" NAME SCORE SCORE STATUS":" ----- -------- --------- ------------":X115:X%X"B"İ82:31&PR%(X,F)(((A$)100)DA(X,(((Z1)3)1))DA(X,6)RD(Z))25:X:F:CL$"STOCKS":X191:PR%(X,21)0:Z115:PR%(X,21)PR%(X,21)PR%(X,Z):Z:X:X191:W1620:PR%(X,W)0:Z13:PR%(X,W)PR%(X,W)PR%(X,((W16)3)Z):Z:W:X:X115:Y14(X,F)(A$)100:X:F:CL$"INDUST":OP$"STOCKS,L400":F115:ZF:RMA(F):RA$;"STOCKS,R";R:RD(Z)((RD)10)35:X191A$:A$"EG"İ82:31 A$"EM"İ82:31!A$"EB"İ82:31"A$"V"İ82:31#A$"G"İ82:31$A$"M"İ82:31 %A$:X:P10:OP$"COMMON,L400":RA$;"COMMON,R";CO:X191OA$:A$"CG"İ82:25dA$"CB"İ82:25DA(X,6)(A$)100:X:CL$"COMMON":OP$"INDUST,L400":F15:ZF:RM1(F):RA$;"INDUST,R";R:X191A$:A$"IG"İ82:28A$"IB"İ82:28xDATING GAME FOR YOU.":CO(((RD)5)1):Y15UP(((RD)10)1):X15:M1(X)P21oX:M1(Y)P:Y:Y115P(((RD)21)1):X115:MA(X)P236X:MA(Y)P:Y:X1200:Y13:EV%(X,Y)0:Y:X:X145:Y16:PO(X,Y)0:Y:X:LO0:X115:DS(X)0DNN:X1N1:T(NN):X:NNNN1:N1N11:NN32000NN1GN1100N12CL$:OP$"RANDOM.DTA":WR$"RANDOM.DTA":NN:N1:CL$:AN$"SAVED"ī40,:9:5:"SIT BACK AND RELAX AS IT WILL TAKE":10:5:"ABOUT 6 MINUTES TO PUT TOGETHER AN":11:10:"EXCIAN$"NEW"AN$"NEW", AN$"NEW"İ41:17jAN$"SAVED"Ģ23:7:"** RECALLING SAVED GAME **":53:17AN$"CLEAR"İ129:9" YOU MUST TYPE NEW, SAVED, OR CLEAR";:23:19:" ";:(7);:116OP$"RANDOM.DTA":RA$"RANDOM.DTA":NN,N1:RITTEN BY JIM ZUBER";:19:1:" DO YOU WANT TO PLAY A NEW GAME, A"; 20:1:" SAVED GAME, OR CLEAR THE PLAYER";:21:1:" DIRECTORY? TYPE NEW,SAVED, OR CLEAR";:22:1:" AND PRESS RETURN"; 23:18:120:AN$Z$:AN$"SAVED"AN$"SAVED" 3$"SPECULATOR":Z4$"PROFESSIONAL":Z5$"BROKER":Z6$"MILLIONAIRE"J FL1C :6:15:"MILLIONAIRE":8:5:"THE STOCK MARKET SIMULATION(TM)":11:19:"BY":12:11:"BLUE CHIP SOFTWARE":13:10:"COPYRIGHT 1982,83,84":15:14:"VERSION 2.00":17:10:"WRIL OIL":LN$(7)"KMART":LN$(8)"SEARS":LN$(9)"TANDY":LN$(10)"GENERAL MOTORS":LN$(11)"AMERICAN MOTORS":LN$(12)"BENDIX":LN$(13)"UNITED STATES STEEL":LN$(14)"DOW CHEMICAL":LN$(15)"CATERPILLAR TRACTOR"A CO$"STOCK MARKET":Z1$"NOVICE":Z2$"INVESTOR":ZSN$(4)"CNO":SN$(5)"EXX":SN$(6)"MOB":SN$(7)"KMT":SN$(8)"SRS":SN$(9)"TDY":SN$(10)"GM ":SN$(11)"AM ":SN$(12)"BDX":SN$(13)"USS":SN$(14)"DOW":SN$(15)"CAT":LN$(1)"CONTROL DATA":LN$(2)"IBM":LN$(3)"NCR" LN$(4)"CONOCO":LN$(5)"EXXON":LN$(6)"MOB),EV%(200,3),TR(15,4),PO(45,6),DS(15),RD(15),SN$(15),LN$(15):VQ5:W90:INAME$(1)"COMPUTER INDUSTRY":INAME$(2)"OIL & GAS INDUSTRY":INAME$(3)"RETAIL INDUSTRY":INAME$(4)"AUTO INDUSTRY":INAME$(5)"HEAVY INDUSTRY" SN$(1)"CDC":SN$(2)"IBM":SN$(3)"NCR":$ AD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256)::D$(4):OP$D$"OPEN":CL$D$"CLOSE":RA$D$"READ":WR$D$"WRITE":114:X(0):X0X65536XX20000112 PR%(91,21),MA(15),DA(91,6                 H:CM$"D"U13:U216:A$"ENTER LETTER OF DESCRIPTION DESIRED:":74yIU10:U222:A$"ENTER LETTER OF GRAPH DESIRED:"JX19:XU1:11:(X);"--";LN$(X);35);"(";SN$(X);")";:X:X10U21:XU1:11:(55X);"--";:X15X21ĺIN$(X15):77KX211((40(A$))2):(7);A$;:359:226:50??CM$"S"İ148:50U@CM$"L"İ178:50dACM$"W"ıuBCM$"!"ī68C(7);:50D:"MONEY?";A$:A$""MO(A$)E"WEEK=";WE:"WEEK?";A$:A$""WE(A$)F"STATUS?";A$:A$""ST$A$G40Fī63A:CM$"PS"G11:G215:A$"YOUR STOCK PORTFOLIO IS EMPTY."~;CM$"PC"G116:G230:A$"YOUR CALL PORTFOLIO IS EMPTY."<CM$"PP"G131:G245:A$"YOUR PUT PORTFOLIO IS EMPTY."=356:AD1İ228:G21588,94,94:358:226:223:50)>228:24:^^^$",CSCOMR);:322:E2322:"? ";:CM$:CM$"G"CM$"D"İ72:50Z3CM$"N"İ85:504CM$"C"İ322:86:358:226:223:505CM$"E"İ106:506CM$"B"İ110:226:223:507CM$"P"İ354:CM$CM$A$8CM$"PE"İ226:639(CM$,1)"P"";:PRUS,("^^^^$0.0^",PR);:13:16:"COST:";:CSAMPR:PRUS,("^^^^^^^^$",CS);:14:10:"COMMISSION: ";:COCS.015:PRUS,("^^^^^^$",CO);:15:14:"MARGIN: ";:PRUS,("^^^^^^^$",MR);:16:9:"------------------------";117:12:"NET COST: ";:PRUS,("^^^^,1));:10:16:"TYPE:";:A$"C"ĺ"CALL OPTION";L*A$"S"ĺ"COMMON STOCK";g+A$"P"ĺ"PUT OPTION";,11:12:"QUANTITY: ";:PRUS,("^^^^^^^",AM);:X15ĺ" LOTS";-X15AMAM100.X15PRPO(X,4)/X15PRTR(X,4)012:15:"PRICE: 8m$227:15:4:"YOU MUST SELL STOCKS OR OPTIONS":16:7:"TO COVER INTEREST CHARGES.";:322:148:MO035u%39&226:224'50(WEWE1:4/)227:6:10:"BUY TRANSACTION REPORT":7:10:"----------------------";:9:15:"STOCK:";LN$(PO(XE FOLLOWING STOCK HAS BEEN SOLD:";:358:194:358:227:INMODE0K 34!9:15:"MARGIN CALL";:JW$"^^^^^^^$":14:1:PRUS,(JW$,RE);:" DOLLARS HAS BEEN USED TO BRING";:15:7:"YOUR ";SN$(X);" ACCOUNT BACK INTO LINE.";:358:227"X#DE030ST$Z5$:217:270NE1000000ST$Z6$:229?WE91231c222:227:X115:PO(X,1)034w213:EQ3034227:RE((50EQ)100)TR(X,4)PO(X,3):MOREMOMORE:PO(X,6)PO(X,6)RE:222:33CAMPO(X,3):9:15:"MARGIN CALL";:14:4:"TH BEEN REDUCED TO NOVICE.":ST$Z1$:MO7500:IN0:NE7500m LO0:DE0:X145:Y16:PO(X,Y)0:Y:X:IN0:358 ST$Z1$ĭNE12000ST$Z2$:217:27 ST$Z2$ĭNE18000ST$Z3$:217:27 ST$Z3$ĭNE40000ST$Z4$:217:27ST$Z4$ĭNE100000346:INMODE1/ MOMOIN:214:NEHIHINE? NE1000226 :11:5:"YOU HAVE BEEN DECLARED BANKRUPT.":12:6:"YOUR ASSETS HAVE BEEN SOLD TO":13:5:"PAY OFF YOUR CREDITORS.YOU WERE":14:5:"ALLOWED TO KEEP $7,500 BUT YOUR":15:4:"STATUS HAS;" LOTS OF ";LN$(PO(X,1));".";:XV1:35:X31ĺ"(CALL)"L X31ĺ"(PUT)" MOMO(PO(X,3)100PO(X,4)1.015.3):Y16:PO(X,Y)0:Y X:XV0 358:XV23XV4::2:10:"MORE EXPIRED OPTIONS:":11 TM0:X115:TMTMPO(X,6):X:IN(TMLO).0O(Z,1)0B9(PO(Z,1))B9(PO(Z,1))1I Z:Z8115:B9(Z8)0FIZ8:262u Z8:254:SS0:X1645:WEPO(X,5)SS1 X:SS017 :2:3:"THE FOLLOWING OPTIONS HAVE EXPIRED:":XV4:X1645:XV2316 WEPO(X,5)158 XV:2:XVXV1:PO(X,3)2,166:340Y OPT(15),RF%(15),B9(15):R115:XZ0:OP$"MESDATA,L65":OP$"DESCRIP,L650" DE0::251:TE26:WE65TE91WE X115:OPT(X)TR(X,4).00115TE:X:FI21:262:R1R11:R121R116# FIR1:262:290:Z115:B9(Z)PO(Z,1):Z:Z1645:P]MAD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256):A$"300:20 EA 03 20 FB DA A9 04 85 51 A9 6A 85 50 20 41 D9 4C D2 D7 ND823G":I1(A$):511I,((A$,I,1))128::72,0:144 1010,0:1011,3:101                                  <;;=?4<<8<;:9  >?845?>=94;9!! ! ! ! ! !!!!!!!!!           膢 ȱ " <67 L  8ij v vo>