' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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- ( F Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`02&N24:7:"YOU ALREADY OWN AN OPTION!";:20190g&N24:5:"YOU ALREADY OWN THIS PROPERTY!";:20190&N24:5:"YOU DON'T HAVE ENOUGH EQUITY!";:20190&N24:6:"YOU DON'T OWN ANY OPTIONS!";:20190'N24:4:"YOU DON'T HAVE A SECOND MORTGAGE";:20 IS NOT A VALID REFERENCE NUMBER";:20190\%N24:6:"SORRY YOUR PORTFOLIO IS FULL";:20190%N24:6:"YOU DON'T HAVE ENOUGH MONEY";:20190%N24:5:"SORRY... I CANNOT FIND A BUYER";:20190&N24:1:"YOU DON'T HAVE ENOUGH CASH TO PAY TAXES";:201983,20184,20185,20187,20188 $zNS$N24:5:"MINIMUM INVESTMENT IS $5,000";:20190$N24:4:"YOU ALREADY MADE AN INVESTMENT";:20190$N24:6:"THAT IS NOT A VALID COMMAND";:20190$N24:6:"YOU DON'T OWN ANY REAL ESTATE";:20190)%N24:2:"THAT5)#R?TF%(X,3)((NN)2001)N#\?TF%(X,4)((NN)201)(TF%(X,5)5)20200Z#f?OPOP1a#p?Xi#u?D$o#z?u# N#*NQX14#4NST$ST$(QX)STQX#>NQX#HN#RN$pNER20190,20100,20110,20120,20130,20140,20150,20160,20170,20180,20181,20182,201:L,NA$:TY,C,DN,SE,IN,EX)"?TF$(X)NA$L" ?TF%(X,1)C((NW100000)101)"%?C1.4200((NN)31)3TF%(X,1)850000TF%(X,1)TF%(X,1)3"*?TF%(X,2)DN"4?TF%(X,8)TY:TF%(X,8)1TF%(X,8)(TF%(X,8)5)">?TF%(X,8)TF%(X,8)1#H?TF%(X,5)((NN)5!>X1QT7!>PN((NN)91):TF%(PN,6)2TF%(PN,6)2>!>XD!>T!>OP0OP21_!>X19w!>TF%(X,6)0ī16240!>OF%(OP,2)0OP111OPOP1:16120!>OP11116250!?OF%(OP,2)0:TF%(X,7)OF%(OP,1):TF%(X,6)3" ?RA$"OFFERS.RND,R";TF%(X,7)) :QX : < <@ <"MONEY?";AA$:AA$""MY(AA$)Q <"MONTH=";WEv <"MONTH?";AA$:AA$""WE(AA$) <"STATUS?";AA$:AA$""ST$AA$ < > >D$ >X19 >TF%(X,6)3TF%(X,6)0 >X >QT((NN)61)3:QT1ī16080 GPPT(X,18)2+PT(X,21)PT(X,4)FMSMPT(X,18)CLE+NWNWPT(X,21)d+PT(X,20)FMSMCLPT(X,18)+PT(X,20)PT(X,4)LOPT(X,20):PT(X,20)0PT(X,20)0,X,OWWE,CFMYOF:OFMY,::TC0:QX17 :PT(QX,1)0TCTCPT(QX,19T(X,12)PT(X,13)FASAFPS4O+ST$ST$(2)ST$ST$(3)ST$ST$(4)LO.9:11160Y+LO.8+PT(X,18)(PT(X,14)PT(X,15)PT(X,16)).4+GPPT(X,4)PT(X,5)PT(X,17)CL+PT(X,11)12WERT.15:11180+RT.4+PT(X,18)PT(X,18)GPRT +PT(X,22)WE1PT(X,23)(>+FMPT(X,7):SMPT(X,9)CH+FIPT(X,8):SIPT(X,10)MR+1500_S+OWWEī11100~T+PT(X,14)PT(X,14)PT(X,12)V+PT(X,15)PT(X,15)PT(X,13)X+PT(X,16)PT(X,16)FASA\+WEPT(X,11)FMPT(X,7)f+WEPT(X,23)SMPT(X,9)p+PT(X,19)PS3(X,6)(S3(X,3)S3(X,1))RT6 +NWNWS3(X,3)S3(X,6)= +XH +X17^+PT(X,1)0ī11490 +PT(X,4)(PT(X,3)PR%(WE,PT(X,1))PR%(WE,PT(X,2))10000001)1000*+ST$ST$(3)ST$ST$(4)CLPT(X,4).04:11060/+CLPT(X,4).074+FCWE1PT(X,11):SC:PRUS,("^^.^%",PR%(WE,1)100);:" (";:PRUS,("^^.^%",PR%(WE,1)1004);:").";X'2300^'d*n+NWMY+X13:S3(X,1)Oī11018+S3(X,3)S3(X,1)S3(X,1)(S3(X,2)100(PR%(WE,1)400)10000)1.5+S3(X,5)12WERT.15:11016+RT.4+V'X5:6:SN$(X3(X3.2)1);K`'X5:12:PRUS,("^,^^^,^^$",TR(X,4));ve'TR(X,1)TR(X,4)TR(X,2)TR(X,4)ĺ"*";j'X5:24:PRUS,("^^^,^^^",TR(X,4)TR(X,3));t'X5:32:PRUS,("^,^^^,^^$",TR(X,1));'XN'22:2:"CURRENT INTEREST RATE IS ";CZ1ER1:2100:6020"'('T$'2:6:"***AVERAGE PROPERTY PRICES***";.'4:1:"LOC TYPE CURRENT CHANGE HIGH ";8'5:1:"--- ---- -------- ------ --------";B'X115L'X5:1:((X2)3)(X2)3ĺSN$((X2)34);!4:2100:60202860vMY1000TCS3(1,4)S3(2,4)S3(3,4)0MYMY1000TCS3(1,4)S3(2,4)S3(3,4):WEWE1:5000120023:5:"YOU NEED ";:PRUS,(FT$(6),(TC1000S3(1,4)S3(2,4)S3(3,4))1);24:5:"TO MEET NEXT MONTHS PAYMENTS.";"I"İ1240:6020"CM$"E"ī6082,6102JPT4:1100:Z$"Y"ī6020PT2:1100:Z$"Y"CM$"SA":WEWE1:2860:MYMYSL:MYTCS3(1,4)S3(2,4)S3(3,4)0MYMYTCS3(1,4)S3(2,4)S3(3,4)1800CM$"!"İ1420:6010CM$"M"CM$"Q"EROR":6U12:10:"ERROR ";ER;" AT LINE ";(218)(219)256I6VRR14000Q6VRRl6VWEWE1:MYMYSL:5000r6"V6JV(7);:ZZ$"":"? ";:PZ16TVZ$6hV(Z$)96Z$((Z$)32)6rVZ$(13)Z$ZZ$:NU0:VQ5:6|VZ1(N)17VNU1(Z$)8((Z$)4$"1"5SZ$"R"Z$"2"+5SZ$"B"Z$"3">5SZ$"L"Z$"4"K5SES(Z$)5SES1(ES9ES99)ĺ(7);:23:18:SC$(2);:214505SES99ī215405TCM$"G"GT0:2200:213505T5T2450:213505$T5U5U6UER(222):11:13:"UNKNOWN ERR$"G"ī21444(4ST$"DESCRIPTION":2145074ST$"GRAPH"^4S22:8:"ENTER ";T$;" DESIRED...";o4S2350:Z$MM$4SZ$"X"Z$" "Z$(13)Z$"99"4SZ$"C"Z$"5"4SZ$"T"Z$"6"4SZ$"K"Z$"7"4SZ$"F"Z$"8"4SZ$"N"Z$"9"5SZ$"M"Z" DESC----REAL ESTATE DESCRIPTIONS."]3MS17:2:" PORT----DISPLAY PROPERTY PORTFOLIO.";3NS18:2:" INVEST--ALTERNATE INVESTMENTS.";3\S3fS3S3SX193SX5:15:LN$(X);3SX3S1:3:"ENTER X TO RETURN TO COMMAND MODE"; 4SCM11:2:" SELL----SEE/SELL REAL ESTATE. "Z2S12:2:" OPTION--SEE/EXERCISE OPTIONS."2 S13:2:" LOAN----TAKE OUT OR PAY BACK LOAN."24S14:2:" NEWS----DISPLAY NEWS/PRICE CHANGES."2>S15:2:" END-----SAVE OR QUIT GAME. "'3HS16:2:)TR(X,2)TR(X,4)1RX1R$1R.1R3250L1R5:13:"MENU SELECTION";{1R7:2:" MONTH---ADVANCE TO NEXT MONTH."1R8:2:" QUICK---FAST MONTH ADVANCE."1R9:2:" GRAPH---DISPLAY GRAPHS. "1S10:2:" BUY-----BUY REAL ESTATE."+2 S LAST WEEKS NEWS";0bR2300G0lR(MM$"B"MM$"B")WK2WKWK1:20790M0vRS0R_0RX115s0RTR(X,3)TR(X,4)0RTR(X,4)PR%(WE,(X3.9)4)1000PR%(WE,X3(X3.2)1)1000BS(X3(X3.2))0RTR(X,4)TR(X,1)TR(X,1)TR(X,4)1RTR(X,4)TR(X,21:21030/QZ3811+/QVV$(ME$,Z,1)`/RVV$" "M1$(ME$,Z):LN:2:M1$:LNLN1:21020g/RZ/RME$(ME$,NZ):N(ME$):20970/&RLNLN1/0RX/:RNO0Ģ13:12:"NO NEWS THIS WEEK";/DRCM$"N"İ2300:21110/NR23:50XR"PRESS B TO SEE1#.|QRA$"MESDATA.RND,R";X:L,A$+.QD$:.QY6011L.QVV$(A$,Y,1)`.QVV$" "20910g.QYw.QME$(A$,Y).QN(ME$).QLN20ī20935.Q20970.Q2300.Q.Q1:8:"THE FINANCIAL JOURNAL":.QLN4 /Q(ME$)39ĢLN:2:ME$:LNLNMM$)32)-P-P-P&-PX123.-PD$`-PRA$"DESCRIP.RND,R";X((ES1)23):L,M$:D$o-PX:1:M$;v-PX-Q2300-Q-Q-1QWKWE-6Q-@QNO0-JQ1:10:"THE FINANCIAL JOURNAL":-TQLN4-^QX1216-hQEV%(X)WKī21040.rQNOP1:30:ST$;:, P2:1:"CASH:";:PRUS,("^^,^^^,^^$",MY);h,P2:26:"CHANGE:";:PRUS,("^^^^,^^^",CF);n,(Pt,2P,]G1WEXī23910CH]TT.5CM]CT(((GD(1)GD(X))S7)TT)1:2BN\LN$(T);BX\2:2BB]\GT0T4ĺ"COMPOSITE AVG";:23680cBb\GT0T1ĺ"AVERAGE";:23680vBl\T1ĺLN$(GT);|B\B\21:13B\B\X127:" ";:XB\X13384B\22:X:" ";B\X:B\X12374 C\23:X:T1(X11G):MN$(T1((TA[X A[PA[ES2Ģ1:22:"PRESS SPACE BAR";:2:22:"TO CONTINUE";:23620`A[T5ī23580A[1:25:"AVG RESI BUSI";A[2:25:" LAND MENU";A\23620A\1:25:"AVG CA TX";A&\2:25:"FL NY KS";A0\3:25:" MENU";BD\h[X0@r[GG(5)((GD(1)DP%(T)10).5)10DP%(T)<@|[S7MX8a@[S7((S7DP%(T)10)1)10DP%(T)@[S71DP%(T)10S71DP%(T)10@[@[X411@[GG(5X)GG(5)(S72X):GG(5X)TM(T)GG(5X)TM(T)A[GG(5X)GG(5)(S72X):GG(5X)0GG(5X)0(T1))5?ZX?Z23350 ?[.?[X1GWEl?[T4GD(XG)PR%(X,T)1000PR%(X,GT)1000BS(GT1):23340?"[GD(XG)PR%(X,T)1000PR%(X,GT)1000BS(T1)?,[X?6[?@[MX0?J[X126?T[G1WEXī23410?^[(GD(1)GD(X))MXMX(GD(1)GD(X))@T)1000000BS(2)PR%(X,4)PR%(X,T)1000000BS(3))3:23280>ZGD(XG)PR%(X,5)PR%(X,T)1000000BS(T1)PR%(X,6)PR%(X,T)1000000BS(T1)PR%(X,7)PR%(X,T)1000000BS(T1)?ZGD(XG)(GD(XG)PR%(X,8)PR%(X,T)1000000BS(T1)PR%(X,9)PR%(X,T)1000000BSZES0ī23170=dZX1GWE5=nZGD(XG)PR%(X,10)10<=xZXG=}Z23350M=Z_=ZES1ī23220m=ZX1GWE=ZGD(XG)PR%(X,1)100=ZX=Z23350=Z=ZGT0ī23300=ZX1GWE:>ZT4GD(XG)(PR%(X,2)PR%(X,T)1000000BS(1)PR%(X,3)PR%(X,X20:7:"TIME AND YOUR BARON STATUS"R"CONGRATULATIONS !!!!"@:W13:7:"YOUR STATUS HAS BEEN RAISED"[:W14:14:"TO ";ST$;"."v:W16:14:"YOU MAY NOW":WST22440,22450:W17:10:"TAKE OUT 90% LOANS.";:22470:W17:4:"PAY 4% CLOSING COSTS ON A SALE.":22470;W2300::PZCF:191)0(9WSP(X,1)0SP(X,1)0:SP(X,2)0/9WX>9WST$ST$(1)T9WMY20000:NW20000g9WCFMYOF:OFMYr9WX179&WPT(X,1)0:OT(X,1)090WX9:W23009DW9NW9XW19009bWNWAM(ST1)ST4ī223759eW224809gWST$ST$(ST1)9lW:vW10:12:5:"YOU HAVE BEEN DECLARED BANKRUPT."X8V12:5:"YOUR ASSETS HAVE BEEN SOLD TO"8V13:5:"PAY OFF YOUR CREDITORS. YOU WERE"8V14:5:"ALLOWED TO KEEP $20,000 BUT YOUR"8V15:5:"STATUS HAS BEEN REDUCED TO NOVICE."8WX139WS3(X,6(Z$)57)ĺ(7);:22100A7V((Z$)8)((ZZ$)0)ĺ(7);:22100y7V((Z$)8)((ZZ$)1)ZZ$"":(8);" ";(8);:221007V(Z$)8ZZ$(ZZ$,(ZZ$)1):(8);" ";(8);:221007V(ZZ$)VQĺ(7);:221007VZZ$ZZ$Z$:Z$;:221007V7V'8V11:PRUS,(FT$(10),PT(X,16));\Vd17:7:"TAXES ON INCOME:";:PRUS,(FT$(10),(PT(X,18)GPRT));VdPT(X,18)GPRT0Ģ17:35:"CREDIT";Vd18:6:"==============================";VdIPPT(X,14)PT(X,15)PT(X,16)VdIP0ī25860Wd19:4:"NET GAIN ON 4:"NET LONG TERM ";&UdGP0ī25750;Ud"GAIN:";:25760IUd"LOSS:";jUdPRUS,(FT$(10),(GPGPRT));Ud14:10:"TOTAL INCOME:";:PRUS,(FT$(10),PT(X,14));Ud15:8:"TOTAL EXPENSES:";:PRUS,(FT$(10),PT(X,15));Vd16:3:"TOTAL INTEREST PAID:";:PT(X,5));FTFd9:3:"PURCH CLOSING COSTS:";:PRUS,(FT$(10),PT(X,17));TPd10:17:"TAXES:";:PRUS,(FT$(10),(GPRT));:GP0Ģ10:35:"CREDIT";TZd11:6:"==============================";TddRT.15ī25720Tnd12:3:"NET SHORT TERM ";:25730Uxd12:12WERT.15:25620S dRT.4ASdGPPT(X,4)PT(X,5)PT(X,17)CLhSd4:10:"SELL TRANSACTION REPORT";S(d6:12:"SALE PRICE:";:PRUS,(FT$(10),PT(X,4));S2d7:4:"SALE CLOSING COSTS:";:PRUS,(FT$(10),CL); TbHLHb DISPLAY DETAIL PROPERTY PORTFOLIOpLRb ENTER WITH PORTFOLIO ITEM IN MM$zL\b3250LfbX(MM$):ZX(PT$(X))11:(PT$(X),ZX,1)" "T$(PT$(X),ZX):25210LpbZXLzb4:(40(T$))2:T$;Mb6:12:"LOCATION: CN6KaX17%KaPT(X,1)0ī25140GKaCNCN2:CN:1:PRUS,("^",X);[KbCN:3:PT$(X);vK bCN:39:SN$(PT(X,1));KbCN1:3:"PFT:";:PRUS,(FT$(6),PT(X,22));K bCN1:17:"CASH:";:PRUS,(FT$(6),PT(X,21));L*bCN1:33:"EQ: ";:PRUS,("^^^%",PT(XJa974,LO:975,HI$JaOX025000-JaFIX6JaOV2AJa25890cJa GENERAL PROPERTY PORTFOLIO}Ja3250: CLEAR CENTERJa4:11:"PROPERTY PORTFOLIO";Ja6:1:"R DESCRIPTION";Ka7:1:"- --------------------------------------";:R25000IaOV$"OVERLAY"(UR):IaADDR(970)(971)256BIaD$aIaD$;"BLOAD "OV$",A";ADDRIaOLD(ADDR)(ADDR1)256IaCT0IaX(ADDRCT):X024984IaCTCT1:24980IaOXADDRCTOLD1IaOX0OX65536OXJaHI(OX256):LOOXHI256973)256((970)(971)256)3$H~a?Ha FIND END OF OVERLAYXHaAS(970)(971)256qHaX(AS1):X024966HaAS(AS)(AS1)256:24964HaHI(AS256):LOASHI256:972,LO:973,HI:Ha LOAD OVERLAYHaOV0UR0Ą"OVERLAY? ";UR:3IaOVU100G`Y1SC?GaSA((SMRF5.000001E03)100)100:S4PFSALGaSMSMS4SGaYaG&aFC1:SC1gG0a{Gva SAVE OVERLAYGxaAS0İ3:24960GyaE$(((970)(971)2567))GzaOV$"OVERLAY"E$H|aD$;"BSAVE"OV$" ,A";(970)(971)256;",L";(972)(٠ӠȠĠӠčנԮԠ̠̍ĮϠԠ̠ΠӍ̠Ҡ̠ϮؠӠ͠ŠàҠŭ͠ȠŠӠ٠ȠĭΠ٠ͮ٠ӠŠȠ٠̠ήύԠ Ӡšԍέ٠ҠȠǠӮԭӠȠ͠ӠĠנӮԠرԭӯүҠ٠Ӡ٠ĮҠӠҠ٭ӍǠϠԮ̠Ϡ׮ҠӍŮԠŠ٠ĠƠȮˠŮŠǠ͍ӮҠΡح͠Ġ͠ԠؠΠŠĠԮٍ٠٠Ǡ׮Š٠ԍŠƠӡȠӠō٠ĮѮԮΠԠԮĠĠ͍ȠĠӠ͠Ӯح͠͠נӬӬŬԮҠ̍٠̠ĮҠǠԠƍ٭ĠŮԠҍԠŠҮĠӠӬύŠҠӠΠˠӮҍ̠٠ԠŮحȠ͠ȠŠŠԠϠԠ̮ԠԠɱסԠ̡ΧԠԭ١נέ٠ŮōϠҠǠĠήǠرԠӠԠӮ̠ӭ̠͠ȍҠĠԠ s) XP:)еhpho` ;@ 'Lީ,, P#ʚ$p \,X` ɠ P٥ XP XPHHHHHƭmƍmƅǭƱhhhhh`m8 ȱ,<*^P۩>ʝ ^P ޤ^ P&В!& { ^H hW  ީ %7 ފ " " "@' hpho` {$ P2 4P { ^^. 0쪆 {$0F Ъ8 9 r H #h 4ȹ _x0o  ;Z]^PFdʱE]-,00^ *$,X05nЍNP$POF DEBT!!";:SD3:3450 \f1920&\g,\ g WERWERWERWERWERWERWERERZg WERWERWERWERWERWERWERZg SDFSDFSDFSDFSDFSDF2SD2F ߅ , { ^  u H 9hH R hȥoȥp`oHpH)@  (E )PT(X,9).03E[f24:5:"THE EXTRA MONEY SHOULD HELP!!";:SD3:3450O[f1920Z[f26370o[f MUST BE REPAY[fPT(X,9)0ER15:2100:26370[fMYPT(X,9)ER8:2100:26370[fMYMYPT(X,9)[fPT(X,9)0:PT(X,10)0\f24:5:"IT'S NICE TO BE OUT " "ī263703ZNfMM$"L"MM$"R"ER4:2100:26370GZXfMM$"R"ī26300jZbfPT(X,20)1ER13:2100:26370ZlfMYPT(X,20)(PT(X,20)PT(X,9)).03ER8:2100:26370ZvfPT(X,23)WEZfPT(X,9)PT(X,9)PT(X,20)ZfPT(X,10)PR%(WE,1)1004 [fMYMYPT(X,20"ER4:2100:263708YeLK%(X)1CZ0ER9:2100:26370^YeMYPT(X,21)0ER10:2100:26370nYe1545:2300tYfYfMYMYPT(X,21)YfPT(X,1)0:PT(X,14)0:PT(X,15)0:PT(X,16)0Yf1920Y&f26370Y0f MUST BE LOANY:fPT9:1100 ZDfMM$"X"MM$M$" "ī26370+X|e(MM$)0(MM$)7ī26000FXePT((MM$),1)0ī26020UXeER6:2100`Xe26370{Xe MUST BE GOOD NUMBERXe1515: DETAIL PORTXeCM$"L"ī26160XeCM$"P"İ1200:2300:26370XePT8:1100XeMM$"X"MM$" "ī26370YeMM$"SINCOME:";:258703We19:4:"NET LOSS ON INCOME:";_WePRUS,(FT$(10),(IP(PT(X,18)GPRT)));eWeW"e DO LOAN OR SELL FOR COMMAND MODEW,eTF0W6eZ17W@ePT(Z,1)0TF1WJeZWTeTF0ER5:2100:26380W^e1820WhePT6:1100 XreMM$"X"MԍĠԠϠҠԡԭŠ͠ӠҠǠĭԠ̠ōŠԠӡŠٍΠŠӠƠӡ٠Ӡ٠ҠסŠӠˡҠҠǍĠ̠ԮΧԠԡŠӠ̠͠ԠԮԠΠԍ̮ĠŠȠŠ΍ŮԠԠӠŠ٠ӠŠ͠Ԡ̮ӠŠϠŠΧԠ®̠Ӡ٭Ǡ͠ӮԭŠӠ̠٠ӮčĠĠҠӮҠٮؠΠԠΠȍȠנӮΠŠԍ̠ҠԠŠҮԠԍӠҠȮΧԠšŠͩӠӠҠǠŠŭԠ̮ŠŠ١ǠӠРϠƠҠĠӡŠٍĮԠӠ͠נҍٮΠŠرԮؠӠӠРšԭϠ͠ӠŠ٠ٮԠ̡ŠŮĠȠƠ٠Πԍź٠ҡԠύ٠ŠŠƠҮŭ͠Ƞ٭ԠԠǡԭŠ͠ӠǠΠԠήȠŠԠԠĠŠ٠ŮčҠҠҠŮҠٍĭǠ̠šǠӠ٠ӍȠ͠ǠȮŠͩӠؠΠǠŠϠˡӠŠΠؠΠӍҠŠŠӮ̮ĠԠĠҠӮ٠ӠǠĠϠōԮŠ٠ϠŠҮԭӠ٠ҠǠРȮٍӠҠԠҮ̠ȍРŮҠҠ٠ӠϠŠĠǠӍŠԮ̠ӠŠōӮΧԠԠŮڮŮؠӠĠǠŠӡӠԍȠנΡԠҠԠ̠ԍӠЮĠΠŠԠŠàˠĠǠҍŠӠŠƠĮԠŠġ̠ӠɠԭӠҠ̩Ҡ̠٠ǠġРЭǠĠΠԍҮנԠΠĠԮō̠ΠԠסحȠͯԠԡǠرԮؠŠөҠӠ̡ҠРҍԮ͠ϠĠŠŠԠ΍ҮӠŠ٠ҍŠҠҠҠҮ٠ȮŠŠƍӠŠήΧԠԡԭӠ̠͠ԠǡҠĠύ٠ĠӠŠӠǠōٮӠӠ̠͠ƠΠǠԠŮÍ٠ӠҠӠǠԍĠ٠ӠĠϠ̡ŠͩӠؠԠԡŠӠѠԍĠǠ٠ͮҠŠŠύӠҮԠҠōήΠǠŠԮǍΠ٠ӠŠΧԠԍǡϠΠŠ٠ٮԭҠӠҠҠŭӠƠӮŠҠǠ΍ԠҠŠŮӍŠҠנԬϠԍ̠ҠŠΡԭӠ̠Ӡ٠ǠȠōҮ̠ΠՍԠŠ̡̠Ϡ͍Ӡ٠ŠǠҍ٠Ԡ̠ҠٍӠϠŠ̮Š͠١ԭӨҠҩ٠ӠحӠҠǠϠȠԡԠ̍ȠԠˠϠҠǍӮҠΠӠϠϠōРΠŠӮϠԡԭӠӠ̠ġϠӠӠԨز̠ƠӠɠϭήҠΠǠϮˠϠōĠˠΠŠήŠšΧԍԠӠΠΠŠΠŠР١ԠĠ٠ǍŮŠӭΧԠԡԭӠӯҩӠ٠ӠȠӠҠ̍٠̠ġǠٍĮנƬԠŮĠĠ̠ӮύӠƠš̠Ӡ΍ŠĮŠԠȠӠšԭӨҠҩנάҠ̠٠ĬӍĠȠסנΠՠԠӡҠ٠ӡ̠ӠŠ̠ԠĠҮӠӠӠΠȠΠٍԠҡՠΠ̠ϠӠšؠӠȠŠŠӠ͡ӠԠˍϠĠҠԧӠŠ٠١נӡΠčӡҠԠҍƮԠ̡ҠǠЮ٠ӠǠŠϠǠŠҩӠӠҠΠҠҠӠҠҩ̠ԭӠŠȠύȮҠĠĠύΠŠӠōԮŠ٭ǠҠҡԭϠӠŠġحҠĠҠƠ٠נӠĠӡΠԠĮӠ̠ҍǮŠǬĠӠčǮŠΠŭԠӡԭ٠ҍҠǠҮΧԠ١ԠؠҠӠҩҠϠ٠ŠġٍҠĠנԠˠԠՍĠϡ̠ĠΠˠĠӍӠȠϠŮԠΡҠƠǠΠԍήŠ٠ٮӠ͠ĠͩŠŠ٠Į̠ΠĠŬנŠٮ̠ĠҠӠӬנŬ̠Ӡō͠ӬŬĠҮҠǠӠӮԭӠ̠ͩ٠ĠӡҠ̍٠̠ĠӠנάԠӮΠŠҮ̍ĮȠԠӠĠϠčŠӠĠĮ̠ӠōĠҮϠԠϠԡԭ̠Ӡͩ͠ҠŠӮנƬ׍͠ӠŠԠǠٍ̠ΠƠĠŠšȠԍӠŠŠĠō٠ͮ٠ϠΡŠӠӠĠͩԭӠҠ̠٠ǠĮǠӍΠԠŠĠȠԠӍ̠ҠҮƠōΠŠԮҠح̠ҸŠ̠ԠҠȠҠ͠ƠҠӡӠӠԠΠĮҍǠϠ̠ΠϠŠӍƠĠŮ٠ҠŠĠСŠԯנص٠ϠšנԠȠŠˠӡ̠ҠĠŠΧԍԠӠԮ٠ϠĮٍנĠŠΠӠǠٮΧԠӠҠǠšǠӬčӮĠȠԡ̠طԠ̠ĠԠΠčԠҠΠ٠ ŠĠ̠ӠĠӠҮԠĠҠ΍̠ԮԠΠ׭̠ȮҠ̠٠ԠӠŠŮŠԠҠĠȠӬŬԮĠ٠̍ӬϠҠ̡̠ծӮ٠ӠԠӍĠȡΧԠӠԠΠӍŠȠ١ԭӠ̠өŠ̠ΠŠҠƠōٮӠӠԍǠؠŠӠĠŮӠšŠҠԍԠǠŠήҠԠٍ̠Ӡ͠ԠǮح͠ӠҠĠԠԭԭӠ̠͠Š٠Ǡ̠ԠΠō̠ԠРӠčȮӠ̠ԠǠōԮˠӠŠРСؠȠөǭàӠšŠӠؠŠϠ̠ӠǠōˮԠŠҠŠӠԍŮŠΠŠŠĠԠō̠ŮŠҡǠرԠȠ٠ΠήŠԡح͠ӠˠԠӡȠҠԠĠˍР٠ҡŠĠӍȠǠŠӮϠԠϠ΍ˠƠġŠҍȠ٠ϠĠӠŮō͠ԠˠΠԠӡŭ͠ȠҠҠȠΠ̮ԠҍӠ٠ĠԠԠĠէ̠ōРŠŮΠٍǠŠӮΠӠΠōӠŠ̠ӠΠӍġˠϠӠšԭӨĠҩԠ̡ҠנΠĠҍ̠٠ƠŠ̰ҠҠȠҠΠקĠŮԠ̠ԠӍšԠҠҠҠήԠ̠ŠΠӮحŠ͠ӠŠŠӠŠԠԭӠӠ̠ԠΠŠˠ͍ӠĠӮҠӠȍϠ٠ӠϠΧԠ٠ҠŠ͍̠ԠͮŠŠӠԡŠӠŠԠˠΡŠԠؠȠԠӠŠ̠ĠҠ٠ȠĠӮٍŠŠŠĠϠŮΠōԠԠΠՠΠӠԮϠĠ̠Į̠ӠŠ̠ǠӡԭӠӠ̠Ҡ̠٠ĠϠŠōƠנΡĠӬ٬ҠǮԠӠŠŭĮǠōӠӮ̠ŠŠƍСҠàҮԭӨҠҩŠȠŠٮǍӠΠԠΠȠӍӠԠȠԠŠӠĠ٠ӍנԠŠŠˡĠҠϠҠԮصԠġҠӠԠԡĠԠؠҠӮ׍ΠšԠŠήҠӠ٠ōĠ̠נ٠٠Š٠ҍԡӠӠ̡ŠԠԠҠ٠̠ҠȮנƠŠӮƠՍΧנԠȠ̍Ǡ̠̠ĮΧԠŠύ٠ԠӡԠӠŭȠ٠Π٠ŠŠԭӠŠĠΠȠ٠ҠҍנɠŠԠӭҠ٠ԠҠԍ̠ŮՠנŠǍҠҠҠˠšҍŠ٠¡ӠΡҠ̠ԭàҠ֠ȠŠĭӠԠŠԠΠŠĠȠ̠ӠčǠӮԠ̡ǠҠӠĠšŠرԠŠĮ̠ҡϠŠӠȠӠԠŠĠҮ̠Ġ̠ĮԠˠ٠ǠΠŠ١ҠŠǠŮРϡŮΠàΠ΍ԠԠŠРĠϠȠŮԠ̠ĭŠԠԠӠ͠ӠˮӠӠŮĠӠ̍ĠҮԠҠԠנӍ٬ӬԠōŠԠŮҍӠ̠̠ӮΠҠ̠ԭشǠҠƠԮĠϠέӠϠŠήǠӍ͠ŠӮՠΠǠҠԠҡٍŠԠȠΠӮĠҠˠšàנŠԭرĠסנΠ̍ĮŠǠҠӬŠӬҍҠӡΠ̠ŠàԍҠàҠ̮ҠӍΠŠԡŠԡԠԭطΠƠǠŠԭŠŠԭנŮҍŠˠˠԠҠӮ̠ҠΠ̠ҠҡҠӍ٠̠ĠԠ̠ԮƠŠ̠ԠȠĠӡΠŠԭصӠӠĠԠĠōٮΠŠĠӠĠˍĠҠĠŠٮΧԍӠӠšԠԠԠΡ٠ϠŠϠȠٍ٠٠ĠҡȠ٭Ӡ٠Ӡàנ٠Ӡ͠ήӠӠčĠ٬ԠҠǍŠԮǠϠҮŠ̠ĮƠǍΧԠҠǭԠϡסΠЭŨطӠƠŠנĠٍӡŠ̠נ΍ٮŠӠ͍׮̠Ҡō̠ή٠΍ҠĠŠԮŠԡ͠ĭӠԠ̠ĠȠҠŠԍ٠ŠԠӠǠԠΠΠŠǠԡҠӍΠҠŠϮŠϠŠҍŠŮ٠ΠҠˡĠĠԠѠԠàנȠӠΠΠ٠Š٠Π٠ĠԠĠ̠̠ϠӠΠϠǠǠŠҠŠԠԠҠӮӠ٠ȠΠӠϠӠɠΠϠΠΠԠȠӠӠŠϠ̠ϠˠϠĠΠǠӠӠӠǠȠ٠Ӡɠ٠Ԡ٠͠ŠҠҮŠήŠҮŠٮŠŮӠҮΠϠΠϠŠĠϠΠŠŠήĠԮԠŮΠٮΠӠήӠĮŮ٠ĮŠŮǠŮΠҮԠ٠ҮàˠǮΠŠٍĮԠϠĮύӬŠŠŬĠŠȠĠӮԡ̠ǭѠԠӠҠǠӠӠŠӠŠӠŠҡΠՠԠҠҬŠŬԠĬȠЬĠ΍Ԡ̠ΠŠšŠɠǠҭӠ̠ԠǠΠŠӍŠŠϬԠҬύ٠ЬĠΠŠԮԍ٠ҠŠҮǠҭԍ٠ҠŠРҡ̠ǭӠĠΠȠӠŠōŠàĠ٠ӮčǠĠŠԠӠǍˮΧԠšנԠӡӠӠȍ٠ԠġŠؠԭŠ̠ҠŠӠҠōӬԠԠҠ̠ӠҍԮӠӠҠӠٮؠŠōӠΠٮ̠ӠčĠӡŠԠԠΧԠԡȭӠҠŠϠŠȮ̠̍ӠŠŠȠҠԠĠҠ̍ӠĠӮҠĠԍŠҠϠŠҍŠҮΧԠ١Šȯ͠Ӡ̠ӠӠŠčسŠĠŠ٠ȍԠ׮Ġ̠׍ԮҠԠŠĠ٠̍ǠŮŠĠ١ŠҠŠԭرȠԠԭر٠ԠҠϠԮƠŬǬҬčӠŠҠٮӠŠנƠōԡ٠ΠĠŠԡŠŠԭӠԡҠŠΠϡĠŠԠ̠נƠŠ١ӠӍΠŠȠ̠ӡčŠϠŠ̠ԮԠӍӠĠӠҠ͠ŮǠ͠ӠĠ͠΍ӠРŠŠƠōӠǠԠӮӠŠΠԠ̠ōԠӠ͠à̠ˠԠŠΠō٠ӠӠĠӠӍϠŠԠŠԠΠōĮנŠӠĠŠ΍ҠӡӠōԠ٠ĠӠŠ̮ӠōԠԠàٮҍƠŠӠŠԠōŠŮŠԠΠ٠ΠӠӍŠ٬٠̠ƠŠĮӠΠǠԠРčĠӠӍŠƠŠȠĮĠٍΠŠàĠàӬӠӠԠŠàҠƍȠȠӠӠŠΠ΍ԠάǠŠΠԍ٠ӠԠΠӠǠӠӠӠĠŠčԠƠȠӠӠӍƠΠήŠҠƠӠĠӠӍĮӠӠԠƠϠҠύŠӠŠƠŠϠōӠĠŮӠӠ΍ԠàҠӠҍϠǠŠΠƠŠҠٍȠŠΠԠӠנčϠŠԠҠҠǍŠȠ٠ҠƠŮǠӠŠƠŠƍŠΠŠŮŠɠōԠŠčӠҠӠӠǠӠōĮӠӠȠΠŠčĠԠӠŠƠŠӠԍŠӠƠͮŠōӠҠӠƠŠ̠čΠŠٮĠӠŠ̠̠̍ӮŠҍҠҠȠӠĠ΍Π٧נΠϮӠӠӠŠĠĠ٠ΠŠԠԍĠԠӮŠŠōĠŠŠӠϠԠҍӠϠϠӠŠ̠ĠӍӠӠŠԠٮӬӬӠǠ٠ԠӠōӠΠ٠ҠŠΠŠήԠӠϠҠŠΠŮϬŠҬӠŠԠΠϠŠΠΠŠӍ̠ӠŠŠ΍٠ҠŮŠ͠٠ҍӠҠĠҠ٠ƍŮŠΠӠ͠čӠϠΠӮҠӠ٠ΠŠӠӠנŠҠˠȠ٠ŠΠ٠ŠӠӠΠϠҠΠȠŠԠӠԠǠŠŠĠȠ٠ԠŠӠΠŠ̠ɠĠԠŠΠԠ͠ȠԠŠϠԠĮĠŠӠϠŠȠŠӮΠĠŠĠԠĠЮàӠϠծӮŠΠƠĠӮծӮĠӠנϠŠӠҮŮРӠĠŠΠĠήҠΠĠӠԠΠĮˠƠϠԠΠĮ̠ҠӠǠŠϠԠ٠נӠӠĮŠӠŠƠ̠ǠΠŮĠӠǠήŭŠĠӠЮנĠŠŠĠϠ̠̠ŠӠήӠƠ̠̠ŠŠĮ̠ӠŠٮĠ̠ӠĠϠЮˠŠӠ̠̠ŠӠŠϠŠΠԮ̠ŠԠΠ̠ԠԠҧ̠ӠԠ٠ϠҠӠҮנؠΠӠ̠ӮծӮg [ g MENUoZ g SHOULD HELP!!";:SD3:3450[f1920[f263701[f MUST BE REPAYS[fPT(X,9)0ER15:2100:26370u[fMYPT(X,9)ER8:2100:26370[fMYMYPT(X,9)[fPT(X,9)0:PT(X,10)0[f24:5:"IT'S NICE TO BE OUT OF DEBT!!";:SD3:3450[f1920[g[ 00:26370 ZXfMM$"R"ī26300,ZbfPT(X,20)1ER13:2100:26370fZlfMYPT(X,20)(PT(X,20)PT(X,9)).03ER8:2100:26370vZvfPT(X,23)WEZfPT(X,9)PT(X,9)PT(X,20)ZfPT(X,10)PR%(WE,1)1004ZfMYMYPT(X,20)PT(X,9).03[f24:5:"THE EXTRA MONEY9:2100:26370 YeMYPT(X,21)0ER10:2100:263700Ye1545:23006YfIYfMYMYPT(X,21)xYfPT(X,1)0:PT(X,14)0:PT(X,15)0:PT(X,16)0Yf1920Y&f26370Y0f MUST BE LOANY:fPT9:1100YDfMM$"X"MM$" "ī26370YNfMM$"L"MM$"R"ER4:21ŠǠŠŠӠŬŠŠŮӠōƠŠӠԠ̠Ӯ٠ΠĠנˠҍŠȠΠŠȠčΠĠנͮΠŠΠĠԠ׍ˠĠŠŠԠƠ׍͠éàӍŠԠĠԠԠΠōĮàӠƠŠӍǠĠƠŠˠǮӠӠƠŠčӬàĠŠĠ̠ƍŠġӠҠˠӠĠϠŠōǠҠƠǬŬάĠΠΠōٮנˠӠĠΠ̍ŠĠǠǠӮȠƠŠӠӠӠ΍ǠנˠĠŠ٠čŠӠŠ٠ō̠Ġ٠ΠӍǠŠҮנˠנ̠ӍŠĠŠӠӍŠԠٮΠҠŠŠ΍ĠҠήčĠ̠ΠԠŠԠˍϠΠΠǠŠ̠ҍӠԠǠ΍ӠĠϠǠ̍ΠǠԍӠΠŠŠŮӠӠƠŠӍӠĠԮŠԠԭĠӠΠϠ٠ӠΠӮĠŠӠŠϠ٠ӠĮӠ̠ŠӠŠŠӮӠ٠Ӡ̠ŠԠӠԮӠΠӮӠàĠԠӠӠΠŠƠĮŠӠŠΠӠƠӠҮͮĮîЮϠ٠Р̠Ůծˮ̠Š͠ӠӠΠӮ٠ԠƠӮӠŠӠΠΠ̠ŮΠӠ̠͠ҠӠ̠ŠԮ̠̠ĠӠΠӠҠήӠϠŠΧԠ̠Ԡ٠̠ӠٮӠ̠ԠϠĠŠծӮ٠Ǯˠ̠ŠϠҠӠΠӮΠ̠ŠӠӠΠӠ٠Ů̠ӠӠԠӠ̠ӮΠǠԠԠ٠ϠԠԮΠӠΠԠϠ̠ĠΠӮΠ̠ǠӠΠӠԠ̮ҠҠϮΠΠӠϠ٠Ԡ٠͠ΠήƠ٠ŠРΠӠΠƠΠԠԠӠӮĠ̠ӠϠ٠ӠٮӠӮƮР٠ӠӠΠӠԠخנ̠ĠΠӠӠ̠ŠӮϠӠӠΠӠǠӠԠӮ̠٠ӠӠؠӠĠŮĮΠƮӠŠŭ̠ŠήŠӠĠנԠΠ̠ӮҠŠΠŠҠ̠ŮӠƠ̠ӠҠנӠ٠ӭϠӠ̠ŮˠΠ̠ŠӠŠΠ̠ӠΠ̮ԠϠŠŭέŠӮӠŠȠӠҠǠЮŠӠŠŠϠ٠Р̠͠Π̮ĠԮΠΠԠĠԮŠǠӠΠӠĮŠԠӠǠנΠӠƮҠΠΠ̠ŠӠ٠РԮ̧̠ӠӠĠϠŮՠĠϠРԠΠǠȠƮ̠ӠӠϠ̠ǠԮǠӮΠΠŠӠԠ٠ΠӠŠΠ̠ŠӮƮ̠ŠԠӠԮǠӠŠӠȮРӠϠԠԠΠƮ̠ŮԠŠЮǠϠƮ̠ŮΠҠӠӠؠԠϠϮԠΠ̠ŠǠƮԠŠϠӮծӮ͠ӠŠǠŠԠ͠ĮΠŠӠ٠ĠŮĠ͠ӠŠӠǠҠӮĠӠԠ̠Š׮ΠӠӠϠĠĠٮɠӠӠΠŠƠĠĠӮĠ٠ӠȠנ׮Ԡ̠ԠΠĠǠӠӠЮԠΠĠΠàĠӠΠӠĮŠĠîӠϠŠΠĠӮ٠ЮӠĠΠĠ٠ԮˠƠӠϠŠΠĠήȠٮӠҠĠϠ̠ŠԠŮήٮŠӠӠήΠҠӠϠРŠˠΠήٮĮԮנˠ٠̠Ӡ̠ŠؠԮӠŠŠӠΠήٮĠӠ̠ҠӮǠؠΠΠήٮĠҠΠӮ٠Ԡ̠ӠӠΠӮήˠԮǠ٠ԠȠ̠ ԠĠԮŠԠӠǠΠΠנˮȠ٠Ԡ٠̠ϠӠΠήٮ٠ΧԠ̠נˠԠŠĠ٠ŠƠĮΠӠϠĠנӠΠîԠΠӠήٮǠ̠ҠήŠϮӠϠ̠נˠ٠ӠǮԠŠӠǠΠנ̠ϠԠנҠΠͮӠŠǠΠήٮΠԮ٠Ӡ̠ϠŠ̠ŠήٮԮŠˠƠӠŠנˠԮנˠ̠ŠŠӠˠƠ٠ӠҠ̠ΠŠӮƠ̠ӠԠҠήٮ̠ŠӮ֮٠Ӡ̠ϠĠ٠ŠŭŠԮР̠ӠӠΠנˮנˠԠӮ̠ŠӠƠӠҮҠӠΠԠΠɮ̠ԠӠɠ٠Ҡ٠ӮΠ̠ϠРҠ̠ԠΠɮԠΠԠԠӠΠŠƠԠخ٠Ӡ̠ӠԠԮΠΠȠӠӠǮ̠͠Ƞ٠ӠŠҠϠҠȠήҠ٠ӠȠԠŠήҠˠӠϠ̠٠ΠΠԮԠ٠ĠԠӠΠŠŠӠƠҠӠӠΠΠ̠ŮӠˠԠӠ̠ŠҮĠӠΠϠ̠̠ŠŮ͠ĠӠΠΠŠϠĮΠӠĠàϠ٠ĠΠҠŠŠˮҠ٠ĠԠӠĠŮȠ٠ӮӠ٠ΠҠԮӠϠӠӠԠ̠ŠήΠ٠ˠϠԠ̠ӠΠŠҠϠĠĭĠӠĮӠŠϭӠӠϠήΠŠӠЮԠԮԠӠԠ٠Ġ̮ӠˠԠΠΠǠ̮٠ԠӠ̠ŠӠΠӮРӠΠ̠ԠΠӠȮҠŠҠӠŠƠӠĮԠ٠ƠӠӠҠӠΠԠƮ٠Ġ٠Ӡ̠ŠԮ̠ȠӠӠ̠ŠӠǠԠӠĮӠΠӠРˠΠȠӮΠ٠Р٠̠Š٠ԠؠҠӠàӠӠΠӠӮǠŠҠӦ̠ӠԠ٠ӠΠɠӠ̠ԠӠҠή̠ ԠӠ̠Šٮ̠̠ӠӠ̠ŠҠ̠Ԯ٠z#???    ٵ ԮӠ!, ٮĠٴؠٲĠ5ٱٳ "ϠˠٮӠZӮĠaӮĠЮĠ#ΠǍٮԠҠ̠ԠЍӮ٠ŠӠΠ׍ΧԠӠӠš̠ӠŠ̠ӠΠԍҮĠˠԠԱҠ٠ΠĠŠΠŠҠƍŠٮĠΠ٠٠ԍӠ̠ǠŠӠӍĠŠӠǡҡ̠˭Ӡ٠̠ˠΠǭӠӠĠŠǠǍΠŠΠΠԠҍ٬ԬҠōٮҠ٠͡ǠԭӠŠҡ̯ŠŭѠԠŠ٠ǠĠΠҍǠԠҠ̠ӠӍŠӠӠƠԠî̍ǠĠҠǮŠĠӠčӮŠӠŠϠŠˡ̠Ǡ̠ŠŠԠŠΠҠˠϠΠԠǠ̡ԠӍŠԠЬӬǠӬĠԠōҮĠ̠נōӠΠŠŠحѠԠՠΧԠԠӠŠٍǠŮԠӠōΠƠӠōĠ̠ŮĭčŠҮӡύšΧԠԠҠԡŠǠ̠ǠӠ٠ĠŠǍ̠ǠӠ̠͠ȠҠҮԍ̠ҠŠŠҠٍǠԮĠΠ΍Ԡ̠ӠŠӠҠŠԠƠŠƷӠΠŠԠӠō̠ӮĠǠĠˍϠӮϠӠӠŠӍǠԠҠ٠ӡΠŭѠԠɠŠŠӠŠԠƠĠƮҠѠԍ̮ŠΠҠ٠ҍĠàҮԠҠ̍٠Ҡ̠ҠͮϠԡŠӭĠʦʠ֮Ԡ̡ӠŠؠԠҠ̠ŠȠӬӬح٠ͬĠ΍Π٠ŠȠЍǮŠԡōҮҠѠԠԍ١ӠӠĠҠѠԠǮΠŠčϠˠӮӠŠ΍ӬΠנ٬ѠԠƠ٠ӮԠԍӠǠ͠ŮŠƍСϠůŭӠĠŠŠ؍ΠŠԠɲ gXf21:8:"NET CASH FLOW:";:PRUS,(FT$(11),NF);:" <===";XfFM(PC(100DN%SD%)100):SM(PCSD%100)XfWTz:3050:1400M1200:23:8:"ENTER DESIRED ACTION...";:2350:CM$MM$nCM$"G"CM$"D"İ3150:6010CM$"B"İ2020:6010CM$"S"CM$"L"CM$"P"İ1970:6010CM$"O"CM$"0"İ1720:6010CM$"N"WKWE:2550:1220:6010CM$ING OPTION HAS EXPIRED:";E12:1:OT$(QX);" (";SN$(OT(QX,1));")";O2300^OT(QX,1)0fQXl}NWHMHMNWNW5000İ2000NWAM(4)ST$ST$(4):1700:18001600WE60CM$"QU":1800|CZ0pRUS,("^^^^$",FY%3950);pxMYMYFY%3950:NWNW(FY%3950):CFCF(FY%3950):PT(QX,15)PT(QX,15)(FY%3950)|zD$:D$}23002950:CM$"Q"İ12201920QX17OT(QX,1)0ī5300OT(QX,5)1WEī5300:10:1:"THE FOLLOWYī5247pOL%(FY%)1:Cq8:1:PT$(QX);" (";SN$(PT(QX,1));")";KrD$sRA$"FUNNY.RND,R";(FY%1)31:LF$:10:1:LF$tRA$"FUNNY.RND,R";(FY%1)32:LF$:11:1:LF$uRA$"FUNNY.RND,R";(FY%1)33:LF$:12:1:LF$v14:15:"COST:";:P:X F%P((NN)71)1ī5247/UFY%0;ZQX17ndPT(QX,1)1PT(QX,2)2FY%((NN)251):5226vgQXi5247jQX7ī5229kXQQX17:PT(XQ,1)1PT(XQ,2)2((NN)21)1QXXQ:5229lXQmOL%(FY%)1ī5205nFY%3950M14:7:"CASH RECEIVED:";:PRUS,(FT$(6),CC);\1SP(X,3)0Ģ17:8:"DON'T BE A SORE LOSER!";2SP(X,3)0Ģ17:7:"YOUR LUCKY TO BREAK EVEN!";3SP(X,3)0Ģ17:8:"YOUR A BIG WINNER!!!!";4MYMYCC:NWNWCC:CFCFCC:SP(X,1)0:SP(X,2)052250-11:5:"AMOUNT INVESTED:";:PRUS,(FT$(6),SP(X,1));v.12:14:"RETURN:";:PRUS,(FT$(6),SP(X,1)SP(X,1)SP(X,3));/13:15:"TAXES:";:PRUS,(FT$(6),(SP(X,1)SP(X,3)).4);:SP(X,3)0ĺ" CREDIT";+0CCSP(X,1)SP(X,1)SP(X,3)SP(X,1)SP(X,3).4:200 QX QX17GTF((NN)1513)(PR%(WE,1)10012)XTF24ī5155l!LK%(QX)0:5160z#LK%(QX)1(QX*X13:SP(X,1)0SP(X,2)WEī5178+:6:3:"**SPECULATIVE INVESTMENT REPORT**";,9:(40(SP$(X)))2:SP$(X);6E:2550X115:OD%(X)0:X+QX17APT(QX,1)0ī5090ESPT(QX,1):GTPT(QX,2):OD%(ES4(GT2)5)0OD%(ES4(GT2)5)1:ESES1:2200OT(QX,1)0ī5110ESOT(QX,1):GTOT(QX,2):OD%(ES4(GT2)5)0OD%(ES4(GT2)5)1:ESES1:2 20760 Z 25020 22050) " 21980/ , : 6 15000E 21120P 21200[ N 21350f 20530q  24110| z 24060 1400   ES0:CM$"Q"İ2200 1020 CM$"Q"ī5125 GLGL1:GL10GL5 GT0:ESGL:2200WKW1400:24970 # :UR5:24970) 4 25010: &E 025010K :V l20000\ vg 11000m  :UR2:1400:24970  22210  :UR1:24970  420050 f 22970  20580 . 20610 ` 20660 680  L20260 ~% 20220+ 6 10000< T :UR3:1400:24970Z e 25860k Fv x20370|  15500  24650  25160  25200  25550  @22350 r 22490  :UR4:NU0:OFMY FC1:SC1! OV23 GL4:SL10009 T ,OP$"DESCRIP.RND,L41"o ^OP$"MESDATA.RND,L61" OP$"FUNNY.RND,L41" OP$"OFFERS.RND,L220" OP$"NAMES.RND,L21" 2850 RGD(29),OD%(15) 5000: 16000  25! }HI(ADDR256):LOADDRHI2565 970,LO:971,HI@ D$""F L A$"300:20 EA 03 20 FB DA A9 17 85 51 A9 70 85 50 20 41 D9 4C D2 D7 ND823G":I1(A$):511I,((A$,I,1))128:I:72,0:144 1010,0:1011,3:1012,166 A$"" FL0:X 3:150vAD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256)| 2<ADDR2049FX(ADDR2)PX168120ZX(ADDR3)dX97120n125xADDR(ADDR)(ADDR1)256z70                               РŮҠҠ٠ӠϠŠĠǠӍŠԮ̠ӠŠōӮΧԠԠŮڮŮؠӠĠǠŠӡӠԍȠנΡԠҠԠ̠ԍӠЮĠΠŠԠŠàˠĠǠҍŠӠŠƠĮԠŠġ̠ӠɠԭӠҠ̩Ҡ̠٠ǠġРЭǠĠΠԍҮנԠΠĠԮō̠ΠԠסحȠͯԠԡǠرԮؠŠөҠӠ̡ҠРҍԮ͠ϠĠŠŠԠ΍ҮӠŠ٠ҍŠҠҠҠҮ٠ȮŠŠƍӠŠήΧԠԡԭӠ̠͠ԠǡҠĠύ٠ĠӠŠӠǠōٮӠӠ̠͠ƠΠǠԠŮÍ٠ӠҠӠǠԍĠ٠ӠĠϠ̡ŠͩӠؠԠԡŠӠѠԍĠǠ٠ͮҠŠŠύӠҮԠҠōήΠǠŠԮǍΠ٠ӠŠΧԠԍǡϠΠŠ٠ٮԭҠӠҠҠŭӠƠӮŠҠɠ٠ӠȠĠӠčנԮԠ̠̍ĮϠԠ̠ΠӍ̠Ҡ̠ϮؠӠ͠ŠàҠŭ͠ȠŠӠ٠ȠĭΠ٠ͮ٠ӠŠȠ٠̠ήύԠ Ӡšԍέ٠ҠȠǠӮԭӠȠ͠ӠĠנӮԠرōƧĠԠ҇Π٠Ӡ٠ĮҠӠҠ٭ӍǠϠԮ̠Ϡ׮ҠӍŮԠŠ٠ĠƠȮˠŮŠǠ͍ӮҠΡح͠Ġ͠ԠؠΠŠĠԮٍ٠٬Ǡ׮Š٠ԍŠƠӡȠӠō٠ĮѮԮΠԠԮĠĠ͍ȠĠӠ͠Ӯح͠͠נӬӬŬԮҠ̍٠̠ĮҠǠԠƍ٭ĠŮԠҍԠŠҮĠӠӬύŠҠӠΠˠӮҍ̠٠ԠŮحȠ͠ȠŠŠԠϠԠ̮ԠԠɱסԠ̡ΧԠԭ١נέ٠ŮōϠҠǠĠήǠرԠӠԠӮ̠ӭ̠͠ȍҠĠԠŭ͠ȠҮōϠҠԠӮԠōƠԠԠ٠ΠҠԡĠήȠٮԠήΠŮ̠Ү̠ԮĠٮԠԮ̠ԮŠŠҮŮ̠ήԮŮ٠ĮΠŮàԮŠήĠҮŠŮ̮͠ˠΠŮԮҠҮ͠ҮӠ٠ŠԮΠˠĮ٠ԮӠԮϠ֮ҠŠĮӠ̮ŠŮĠҮήΠŮŠԠԮҠԮҠӠҮΠҮŠԮɠήҠҮ٠ˮΠŠҮΠԮ٠ήɠϠήҠӠĮ̠ԮΠԮԮҠҮӠˠήҠ֮ΠԮŠ ҮΠŠҮŠΠҮ٠Ү̠ŮŠŮϠҮŠҮΠԮĠŮΠƠҮɠĮ٠Ԯ٠ή̮̠ӠήϠ٠Π٠ԠŠ̠Ԯ̠ԮӠŮĠŠ̠ԮˠҠĮ٠ŮŠŮΠΠĮ͠ԮΠԮΠŠȠŮԠΠĮŠ٠ΠԮŠŮĮ̠ŠΠԮΠԮĠӠΠĠٮҠԮĠĮҠŮӠԮ̠ŮΠ٠Ү٠ŮԮΠŮ٠ҠĮҠӠήԠŠԠŠŮ̠ĮנΠŮ̠ˠĮӠ٠̠ŠŠŮΠԮŠĮàĠԮˠŮȠԮĠĮŠҮΠŮ٠ĮĠĮ٠ԮĠĮĠήŠҮĮΠ̮٠ŮŠҮ٠ĠήΠԮǠ٠٠ˠŠĮΠή٠ŠҮŠĮĠŠΠԠҠӠŠΠŠŠŠԮΠԮΠ̮٠ŮĠĮĠԮӠĮŠŮ̠ĠԮΠ֮ҠŮĠҮҠԮΠԮȠŮĠŠҠԮŠĮΠԮҮ٠ΠҮ٠ŮΠ٠Ԯ٠ԮϠήԠĮΠԮĠŮˠĮԮ٠ή             ĠҠנĠčź٠ԠӠǬ٠àŬĠčҠӠҠ̠٠΍ŠǮΠǠΠנč̠ŠԠӠԠčҠĠ̠ŠĠŠŠƍӠ٠̠ŮŠǠӠŠύĠōԠҮΠΠҠ̠ōĠΠȠ̠ҍ̠Ǡ٠ŠԮӠŠĠƠ̠ŠĠύŠŠȠӠǠčԠӠčǠӮĠĠŠĠӠŠ̠ȠƠōȠ͠Ƞ̠ӠŠĬӠŠԠάĠӠ٠ŠŠҍƠӠ٠ӮŠӠ٠ҠӍԠŠ٧ӠŠ̠ōҠŮŠϠӠԠӠō͠Š٠̠ŠҠ΍Š͠ƠӠŠŠӮŠŠč٠Š٠ҠӠ΍Ơ٠ŠĠŠƠōӧӠӠŮĠҠӠ٠Ӎ٠ŠϠàӮΠٍ̠ӠӠϠԠҠ٠ύ٠ӮӠΠŠ̠͠ԠΠǠҠϠԠ٠ǮΠΠҠӠōӠ٠ĠӠԠԠύΠ֠ŮōϠӠԠӠ̠Š̍ŠҠΠŠ͠ƠӠōӠĠǠӮӠ٠Ӡ٠ӠĠ̠٠ӍԠǠ٠àӮԠӠϠРŠōΠ٠ŠϠŠōԮΠҠϠӠ̍٠ӠԠŠŠƠō٠̠ŠҠΠҠӍ̠٠ĠӠō٠ԠϠӠΠٍӮŠ٠ҠӠĠōĮŠŠǠō٠ŠĠӮĠҠӍ̠٠ӠǍԠӠҬԬčΠϠٮ٠Š΍Š̠͠ӠϠōӮΠ٠΍ԠӮ٠٠ŠŠΠōŠԠŮĠō٠ӠҠԠōΠԠŮ̠٠٠ƠŠΠӍԠĮŠԠƠԠĠΠӍΠӠĠŠŠŮ٠ȠŠӠ΍ӠĠҠǠӠԍ٠ӠŠԠ٠ǠΠȍˠҠӠΠ٠ȍӠϠԠƠŠ٠ŮŠΠŠ٠ӠΠӍ٠ҠŠԮŠōӠŠҠŠԠϠŠҍũŠŠ٠ӠϠŠ׍ŠԠҠӠŠӠΠōԠƠŠŮӠ٠ΠōԠ٠                   ĠήȠٮԠήΠŮ̠Ү̠ԮĠٮԠԮ̠ԮŠŠҮŮ̠ήԮŮ٠ĮΠŮàԮŠήĠҮŠŮ̮͠ˠΠŮԮҠҮ͠ҮӠ٠ŠԮΠˠĮ٠ԮӠԮϠ֮ҠŠĮӠ̮ŠŮĠҮήΠŮŠԠԮҠԮҠӠҮΠҮŠԮɠήҠҮ٠ˮΠŠҮΠԮ٠ήɠϠήҠӠĮ̠ԮΠԮԮҠҮӠˠήҠ֮ΠԮŠ ҮΠŠҮŠΠҮ٠Ү̠ŮŠŮϠҮŠҮΠԮĠŮΠƠҮɠĮ٠Ԯ٠ή̮̠ӠήϠ٠Π٠ԠŠ̠Ԯ̠ԮӠŮĠŠ̠ԮˠҠĮ٠ŮŠŮΠΠĮ͠ԮΠԮΠŠȠŮԠΠĮŠ٠ΠԮŠŮĮ̠ŠΠԮΠԮĠӠΠĠٮҠԮĠĮҠŮӠԮ̠ŮΠ٠Ү٠ŮԮΠŮ٠ҠĮҠӠήԠŠԠŠŮ̠ĮנΠŮ̠ˠĮӠ٠̠ŠŠŮΠԮŠĮàĠԮˠŮȠԮĠĮŠҮΠŮ٠ĮĠĮ٠ԮĠĮĠήŠҮĮΠ̮٠ŮŠҮ٠ĠήΠԮǠ٠٠ˠŠĮΠή٠ŠҮŠĮĠ P#ʚ$p \,X` ɠ P٥ XP XPm8 ȱȘe[_Ѹ L㱸 : ;,ȅ ٠eȱe 8HH; X`L__\PRUS\[( 膢 ȱ " <67 L  8ij v vo>SdMYMYCRPSdPT$(Y)OT$(X)dSdPT(Y,1)OT(X,1)xSdPT(Y,2)OT(X,2)SdPT(Y,3)OT(X,3)SdPT(Y,4)CPSdPT(Y,5)OT(X,4)SePT(Y,6)OT(X,6)SePT(Y,7)FMSePT(Y,8)FIS"ePT(Y,9)SMT,ePT(Y,10)SIT6ePT(Y,11)WE%T@ePT(Y,12)OT(X,9);TJePT(Y,180ARQcfQc OPTION ROUTINE FROM COMMAND MODEoQcTF0zQcZ17QcOT(Z,1)0TF1QcZQcTF0ER14:2100:26020Qd DISPLAY PTQ d1840QdPT6:1100QdMM$"X"MM$" "ī26010R(d(MM$)0(MM$)7ī256602R2dOT((MM$),1)0ī256AGE PAYMENTS~Pc19:3:"MORTGAGE PAYMENTS:";:PRUS,(FT$(10),(FPFASAS4));Pc20:2:"OPERATING EXPENSES:";:PRUS,(FT$(10),OT(X,10));PcNF(OT(X,9)FPS4FASAOT(X,10))Qc21:7:"NET CASH FLOW:";:PRUS,(FT$(11),NF);:" <===";8QcFMOT(X,7):SMPRUS,("^^.^%",SI);fOVcPCOT(X,4):CR(PC.03)OT(X,6)O`c15:7:"CLOSING COSTS:";:PRUS,(FT$(10),(PC.03));Ojc16:7:"CASH REQUIRED:";:PRUS,(FT$(10),CR);:" <===";Ptc18:6:"MONTHLY INCOME:";:PRUS,(FT$(10),OT(X,9));bCN1:31:"EX: ";KHbMN$(OT(X,5)((OT(X,5)1)12)12);KRbPRUS,("^^^",((OT(X,5)1)12)YR);K\bXKfbKpb DISPLAY DETAIL OPTION PORTFOLIOLzb ENTER WITH PORTFOLIO ITEM IN MM$Lb3250^LbX(MM$):ZX(OT$(X))1CN2:CN:1:PRUS,("^",X);^JbCN:3:OT$(X);yJ bCN:39:SN$(OT(X,1));JbCP(OT(X,3)PR%(WE,OT(X,1))PR%(WE,OT(X,2))10000001)1000J bOF$FT$(6):CP999000OT(X,4)999000OF$"^^^^^^^^$"K*bCN1:3:"OPT:";:PRUS,(OF$,OT(X,4));EK4bCN1:17:"C3I b LHb DISIIaOV2Ja25890%Ja GENERAL PROPERTY PORTFOLIO?Ja3250: CLEAR CENTERaJa4:11:"PROPERTY PORTFOLIO";Ja6:1:"R DESCRIPTION";Ja7:1:"- --------------------------------------";:CN6JaX17JaPT(X,1)0ī25140 Ka     Ǯ٠ǠԠϠ̠ŠǮҠӠŠ٠Ϡ̠Ӯ̠٠̠ŠӠĮҠ̠̠ŠԠΠĠ̮ԠӠҮǠҠ̠ŠԠԮ̠̠ŠԠΠĠŮ̠ŠӠˠŠŠٮǠ̠ŠĠӠŠӠ̠ӠϠĠӮΠԠϠԠӠΠǠӮԠΠ̠ŠӠĠԠΠӮŠ̠ŠӠРٮǠҠӠԠȠŠӠԠӠԠ٠ӠŠӮԠӠȠנ׮̠ǠԠ٠ŠΠŭӠٮ̠Ӡ٠ԠҠΠؠήŠŠĠҠծӮŠӠŠϠǠ٠ӠҮǠРǠŠ͠ԮǠӠҠԠӠҮŠӠ٠ĠӠ٠ĠϠ٠Ů̠ΠǮԠӠˠƠǠĠŮĠϠРǠǠΠ٠ӮŠӠΠĠӠҮծӮŠӠϠŠРŠŠҮ٠ǠӮĠҠӠ̠ǠΠŠӯנΠӮҠҠΠӠŠӠӠŠԮ٠ĠŭέŠӠ٠ԠŠӮӠŠԠӠ٠ӠӠΠΠӮҠӠŠԠǠԠנҮŠӠΠǠӠήӠĠ٠ϠӠحƠ̠ϠĠǮҠӠƠˠĠϠ٠ΠǠРҠҠӮŠӠРԠŠΠǠӮԠӠР٠ΠǠנؠΠӠРҠǠٮàנӍŠΠˠӠŠӠ̠ŮŠŠӠĠϠŠٮŠŠӠŠϠԠ̠ŠԠҮȠԠӠ٠Ԡ̠ŠԮǠӮҠӦ̠ӠŠӠϠנȮŠӠĠҠӠٮ̠Ӧ̠ӠŠŮΠΠӠ̠ƠԠԭŠЮǮӠΠӠĠԠŠŠήԠ̠ŠӠҠĭŠӮӠŠŠԠӠĮҠӠԠŠŠƠΠŠΠԠӮŠǧ͠٠ŠҠΠ̠ŠԮ ӠŠҠŠӮŠӠˠҠϠĠŠӮԠĠΠŠŠŠǠٮŠӠΠӠŠŮҠӠҠΠĠŠԠӮӠԠРΠԠӮŠŠӠҠˠӠҠŠΠĠӮŠŠРӠ̠ŠԮ ϠҠҠŠӮŠ               E PAYMENTS vWf18:1:"1ST MORTGAGE PAYMENT:";:PRUS,(FT$(10),(FPFA));Wf19:1:"2ND MORTGAGE PAYMENT:";:PRUS,(FT$(10),(S4SA));Wf20:3:"OPERATING EXPENSES:";:PRUS,(FT$(10),(PCEX%1200))+XfNF((PCIN%1200)FPS4FASA(PCEX%1200)),("^^.^%",SI);sVlf14:8:"CLOSING COSTS:";:PRUS,(FT$(10),(PC.03));VvfCR(PC.03)(PCDN%100)Vf15:8:"CASH REQUIRED:";:PRUS,(FT$(10),CR);:" <==="; Wf17:7:"MONTHLY INCOME:";:PRUS,(FT$(10),(PCIN%1200));7Wf1500: CALCULATE MORTGAG100DN%SD%)100):SM(PCSD%100)zU0f12:7:"FIRST MORTGAGE:";:FM0ī26180U:f" N/A"26190UDfPRUS,(FT$(10),FM);:" @ ";:PRUS,("^^.^%",FI);UNf13:6:"SECOND MORTGAGE:";:SM0ī26210VXf" N/A":26220:VbfPRUS,(FT$(10),SM);:" @ ";:PRUSeY14:Y4:1:DS$(Y):YTePC(C%PR%(WE,TY%1)PR%(WE,SZ)10000001)1000:OPC.035Tf10:2:"SALE PRICE (OPTION):";:PRUS,(FT$(10),PC);Tf" (";:PRUS,("^^^^^^",O);:")";Uf11:9:"DOWN PAYMENT:";:PRUS,(FT$(10),(PCDN%100));NU&fFM(PC(,DS$(1):L,DS$(2):L,DS$(3):L,DS$(4)]SeD$hSeTY%TYSeTY%1TY%(TY%5): REVERSE TYPE NUMBERSeC%TF%(LT,1)SeDN%DNSeSD%SESeIN%INSeEX%EXSe1:34:"*";(MY1000);"*";Te2:1:NA$(Te3:1:S8$;", ";CY$;", ";SN$(SZ)FTS8$LC$:Y2011:(S8$,Y,1)" "S8$(S8$,1,Y):25960lR^eYRheRA$"NAMES.RND,R";CY:LC$:CY$LC$:Y2011:(CY$,Y,1)" "CY$(CY$,1,Y):25980RreYR|e(S8$)(CY$)33ī25920%SeRA$"OFFERS.RND,R";TF%(LT,7):L,NA$:TY,C,DN,SE,IN,EXUSeLdCN1:37:SN$(TF%(X,8));MQdXSQdsQe DISPLAY OFFER SUBROUTINEyQeQeFIPR%(WE,1)100:SIFI4Q"eSC1:FC1: SET INITIAL DEFAULT VALUEQ,eXTF%(LT,7)Q6eSZTF%(LT,5)Q@eS8TF%(LT,3)RJeCYTF%(LT,4) ROeD$eRTeRA$"NAMES.RND,R";S8:LC$:830ePdTF%(X,6)1ĢCN1:3:"*****OPTIONED*****":25830PdCP(TF%(X,1)PR%(WE,TF%(X,8))PR%(WE,TF%(X,5))10000001)1000PdOF$FT$(6):CP999000OF$FT$(10)PdCN1:5:"PRICE:";:PRUS,(OF$,CP);(QdCN1:24:"DOWN:";:PRUS,("^^^%",TF%(X,2));FQUOnd2:1:"R DESCRIPTION";Oxd3:1:"- --------------------------------------";:CN2OdX19OdCNCN2:CN:1:PRUS,("^",X);OdCN:3:TF$(X);OdCN:39:SN$(TF%(X,5));/PdTF%(X,6)0TF%(X,6)2ĢCN1:3:"*******SOLD*******":25CNdPT(X,17)(PC.03)SN dPT(X,19)NFcNdPT(X,23)WEsNdTF%(LT,6)0N(d1920: NET WORTH SUBN2d24:1:"YOU ARE NOW A PROUD PROPERTY OWNER!";:SD3:3450NbZ$"O"Z$"0"ī25180JHb25390: MUST BE BUYJRbER4:2100:25120J\b MUST BE OPTIONKfbX17KpbOT(X,1)0ī25220!KzbXbSP(X,2)0ĺ"I/Ii8IaOV3UIa ALTERNATE INVESTMENTS_Ia3250Ia5:1:"A) INVEST IN THE SECOND MORTGAGE MARKET.";Ia6:4:"CURRENT RATE: ";:PRUS,("^^.^%",PR%(WE,1)1004);Ia8:1:"B) SELL SECOND MORTGAGES.";JaX13(Ja8X:6:PRUS,("^",X);:")";>J     E PAYMENTS vWf18:1:"1ST MORTGAGE PAYMENT:";:PRUS,(FT$(10),(FPFA));Wf19:1:"2ND MORTGAGE PAYMENT:";:PRUS,(FT$(10),(S4SA));Wf20:3:"OPERATING EXPENSES:";:PRUS,(FT$(10),(PCEX%1200))+XfNF((PCIN%1200)FPS4FASA(PCEX%1200)),("^^.^%",SI);sVlf14:8:"CLOSING COSTS:";:PRUS,(FT$(10),(PC.03));VvfCR(PC.03)(PCDN%100)Vf15:8:"CASH REQUIRED:";:PRUS,(FT$(10),CR);:" <==="; Wf17:7:"MONTHLY INCOME:";:PRUS,(FT$(10),(PCIN%1200));7Wf1500: CALCULATE MORTGAG100DN%SD%)100):SM(PCSD%100)zU0f12:7:"FIRST MORTGAGE:";:FM0ī26180U:f" N/A"26190UDfPRUS,(FT$(10),FM);:" @ ";:PRUS,("^^.^%",FI);UNf13:6:"SECOND MORTGAGE:";:SM0ī26210VXf" N/A":26220:VbfPRUS,(FT$(10),SM);:" @ ";:PRUSeY14:Y4:1:DS$(Y):YTePC(C%PR%(WE,TY%1)PR%(WE,SZ)10000001)1000:OPC.035Tf10:2:"SALE PRICE (OPTION):";:PRUS,(FT$(10),PC);Tf" (";:PRUS,("^^^^^^",O);:")";Uf11:9:"DOWN PAYMENT:";:PRUS,(FT$(10),(PCDN%100));NU&fFM(PC(,DS$(1):L,DS$(2):L,DS$(3):L,DS$(4)]SeD$hSeTY%TYSeTY%1TY%(TY%5): REVERSE TYPE NUMBERSeC%TF%(LT,1)SeDN%DNSeSD%SESeIN%INSeEX%EXSe1:34:"*";(MY1000);"*";Te2:1:NA$(Te3:1:S8$;", ";CY$;", ";SN$(SZ)FTS8$LC$:Y2011:(S8$,Y,1)" "S8$(S8$,1,Y):25960lR^eYRheRA$"NAMES.RND,R";CY:LC$:CY$LC$:Y2011:(CY$,Y,1)" "CY$(CY$,1,Y):25980RreYR|e(S8$)(CY$)33ī25920%SeRA$"OFFERS.RND,R";TF%(LT,7):L,NA$:TY,C,DN,SE,IN,EXUSeLdCN1:37:SN$(TF%(X,8));MQdXSQdsQe DISPLAY OFFER SUBROUTINEyQeQeFIPR%(WE,1)100:SIFI4Q"eSC1:FC1: SET INITIAL DEFAULT VALUEQ,eXTF%(LT,7)Q6eSZTF%(LT,5)Q@eS8TF%(LT,3)RJeCYTF%(LT,4) ROeD$eRTeRA$"NAMES.RND,R";S8:LC$:d:D$YPe12:10:"WAIT A MOMENT....";_P eyPeD$;"RUN BARINIT.BAS" U :UR NET WORTH"OOd21:5:"BY";YOd1900jOdST4ī25780OdS6$ST$(ST1):25790OdS6$"BARON AGAIN"OdST4ī25810OdMRAM(ST1)NW:25820OdMRAM(ST)NWOdPRUS,(FT$(6),MR);Pd" TO BECOME A ";S6$;'Pd(7);(7);:2300: ANY KEY-Pd7PNET WORTH ";ONJ\bX1216JJfbEV%(X)QJpbX]JzbX115hJbY14uJbTR(X,Y)|JbYJbXJbX17JbY123JbPT(X,Y)JbYJbXJbX17JbY110JbOT(X,Y)JbYJcXJcX17JcOT$(X) KcPT$(X)K$cXK.cX125)K8cOL%(X)0KBcX3IIbWE)JHbSR1JRbH     )60PPd24:1:"GOOD LUCK-----YOU WILL NEED IT!!!";:SD3:3450:1920:1400:25690PZd3050Pdd XO dX3X0ER6:2100:25690OdSP(X,1)0SP(X,2)0ER6:2100:25690OdSP(X,1)0ER3:2100:25690O(dPT1:1100P2d(Z$)5000ER2:2100:256902PNcRT.15QNcRT.15ī25520wNc21:1:"NET SHORT TERM ";:2553:3450:1920:1400:25690Lc 'B' OR 'C'LcZ$"B"ī25580LcX13:S3(X,1)0ī25400L$cXL.cER17:2100:25690M8cPT12:1100:X(Z$)#MBcX3ER6:2100:25690DMLcS3(X,1)0ER6:2100:25690^MVcMYMYS3(X,3)S3(X,6)~M`c18:14:"**SALE REKbPT1:1100Kb(Z$)5000ER2:2100:25690Kb(Z$)MYER8:2100:25690KbMYMY(Z$)KbS3(X,1)(Z$)LbS3(X,2)PR%(WE,1)1004/LbS3(X,4)(PR%(WE,1)400)10000(Z$)12>LbS3(X,5)WELb24:1:"GOOD LUCK WITH YOUR NEW INVESTMENT!";:SD3NVESTMENT CLOSED.";:25180JHbSP(X,1)0ĺSP$(X);:25180JRb"CURRENT INVESTMENT:";:PRUS,(FT$(6),SP(X,1));J\bXJfbPT10:1100KpbZ$" "Z$"X"ī25690(KzbZ$"A"ī25350;Kb MUST BE 'A'XKbX13:S3(X,1)0ī25260_KbXuKbER7:2100:25690aS3(X,1)0ī25110IbPRUS,(FT$(6),S3(X,1));:" @ ";:PRUS,("^^.^%",S3(X,2));I b8X:27:"SELL:";:PRUS,(FT$(6),S3(X,3)S3(X,6));JbX5J b13:1:"C) INVEST IN SPECULATIVE VENTURES.";@J*bX13cJ4b13X:6:PRUS,("^",X);:") ";J>bSP(X,2)0ĺ"IyHcHaOV3Ha ALTERNATE INVESTMENTSHa3250Ha5:1:"A) INVEST IN THE SECOND MORTGAGE MARKET.";Ia6:4:"CURRENT RATE: ";:PRUS,("^^.^%",PR%(WE,1)1004);FIa8:1:"B) SELL SECOND MORTGAGES.";QIaX13rIa8X:6:PRUS,("^",X);:")";IȘe[_Ѹ L㱸 : ;,ȅ ٠eȱe 8HH; X`TL__\PRUS\FIX_N["61) T9SP(X,3)1:3340: T11SP(X,3).5:3340T T13SP(X,3)0:3340i SP(X,3)(T12)2p X RANDOMLY SELECT OFFERSH X190z T((NN)1101) OF%(T,1)0ī3450 OF%(T,1)T:OF%(T,2)XX ********SORT OFFER((NN)21):PO(X)2PO(X)12 T((NN)211)SN T10:Y29:T(PO(Y))T11f Y:T11ī3100x PO(X)TPO(X) X RANDOMLY SELECT SPECPORT PARAMETERS 1=AMOUNT 2=PERIOD 3=RESULT X13 SP(X,2)((NN)84) T((NN)15)-(9) ARE STATES:CA,TX,CO,FL,NY AND THE NUMBER POINTS TO THE TABLEb SET UP MORTGAGE POINTER PO(1)((NN)21):PO(1)2PO(1)1" PO(1)((NN)2641)PO(1)T PO(1)0PO(1)PO(1)88 CALC INVEST AND AREA POINTERS X29 PO(X)TERS IN PONT()L A NEGATIVE NUMBER INDICATED A BACKWARD SELECTION METHOD PONT(1) IS MORTGAGE AND THE NUMBER IS THE STARTING ELEMENT( PONT(2)-(4) ARE INVESTMENT TYPES:RESID,COMMR,LAND AND THE NUMBER CORISPOND TO THE SELECTED TABLEDZ PONT(AR.DTA":RA$"GCHAR.DTA"#X16/GC%(X)6X?CL$VAN$"SAVED"ī5250:9:5:"SIT BACK AND RELAX AS IT WILL TAKE"10:5:"ABOUT 5 MINUTES TO PUT TOGETHER AN". 11:10:"EXCITING GAME FOR YOU." RANDOMLY SET UP TABLE POIN19:" ";:(7);:19006fOP$"RANDOM.DTA"SpRA$"RANDOM.DTA":NN,N1]RDNNtX1N1:T(NN):XNNNN1:N1N11NN32000NN1N1100N12CL$OP$"RANDOM.DTA":WR$"RANDOM.DTA"NN:N1CL$OP$"GCH21:1:"DIRECTORY? TYPE NEW, SAVED, OR CLEAR"XD22:1:" AND PRESS RETURN"rl23:18:13450:AN$Z$AN$"NEW"İ8250:2150AN$"SAVED"İ10300:2150AN$"CLEAR"İ8210:1500 424:1:"YOU MUST TYPE NEW, SAVED, OR CLEAR";:23:5:10:"WRITTEN BY JIM ZUBER";D|16:9:"ASSISTED BY THE HOGENS";10:13:"COPYRIGHT 1983":11:10:"ALL RIGHTS RESERVED":14:14:"VERSION 2.0"19:1:" DO YOU WANT TO PLAY A NEW GAME, A";20:1:" SAVED GAME, OR CLEAR THE PLAYER";.:9:DP%(X)1:X%LTM(0)999:TM(1)99@NX29:TM(X)999999:XmxAM(1)35000:AM(2)99999.9:AM(3)249999.9AM(4)999999.9:AM(5)100000:3:17:"BARON"5:7:"THE REAL ESTATE SIMULATION"@8:19:"BY":9:11:"BLUE CHIP SOFTWARE"r1"RESI":SN$(3)"BUSI"> SN$(4)"LAND":SN$(5)"CA":SN$(6)"TX"f FSN$(7)"KS":SN$(8)"FL":SN$(9)"NY" GFT$(11)"^^,^^^,^^^" HFT$(0)"^^^^^^^.^":FT$(1)"^^^^^^.^%":FT$(10)"^^,^^^,^^$" IX29:FT$(X)"^^^^^,^^$":X JDP%(0)10:DP%(1)10KX2T":MN$(11)"NOV":MN$(12)"DEC"= KLN$(0)"REAL ESTATE INDEX"z LLN$(1)"MORTGAGE":LN$(2)"RESIDENTIAL":LN$(3)"BUSINESS" ~LN$(4)"LAND":LN$(5)"CALIFORNIA":LN$(6)"TEXAS" LN$(7)"KANSAS":LN$(8)"FLORIDA":LN$(9)"NEW YORK" SN$(1)"MORT":SN$(2)"UNCLE HERMAN'S R.E. PROJECT.2 ST$(1)"NOVICE"H ST$(2)"INVESTOR"\ ST$(3)"BROKER"o RST$(4)"BARON" MN$(1)"JAN":MN$(2)"FEB":MN$(3)"MAR" MN$(4)"APR":MN$(5)"MAY":MN$(6)"JUN" MN$(7)"JUL":MN$(8)"AUG":MN$(9)"SEP" MN$(10)"OC000:BS(2)200000:BS(3)40000:BS(4)110000K &YR84: REMEMBER CURRENT YEAR XSC$(1)" " SC$(2)" " FD360:S2180 SP$(1)"LIMITED PARTNERSHIP." SP$(2)"REAL ESTATE INVESTMENT TRUST." SP$(3) CL$D$"CLOSE "% RA$D$"READ "9 WR$D$"WRITE "B ,FL1N 612500 MN$(12),EV%(216),OF%(110,2),PR%(60,10),TR(15,4),OT(7,10),PT(7,23),OL%(25),TF%(9,8),TF$(9),S3(3,6),SP(3,3) FT$(11) VQ5: INITIALIZE MAXIMUM LINE INPUT) BS(1)90*jAD(175)(176)256:OS(AD3)(AD2)256:ADADOS:1013,76:1014,AD(AD256)256:1015,(AD256)2 REAL ESTATE GAME--BARINIT.BASK *******ADD RESET DISABLE*******d THIS IS THE ERROR VECTORD$(4)OP$D$"OPEN "!! ! ! ! ! !!!!!!!!!" " " " " """""""""     S5$ $!D$$!H09050/$."X%3:1:X%;".";B$`"X%3:4:PL$;g$"X%3:9:PRUS,("^^^^^^^^$",LS);$"X%3:19:PRUS,("^^^^^^^^$",H);$"X%3:29:S5$$(#X$Z#20:7:"ENTER PLAYER NUMBER TO START."%#21:3:"IF YOU ARE A NEW PLAYER PRESS REUB FOR NEW GAME#l # D$3# OP$"PLAYER,L40"b#!1:1:" LAST HIGH "#4!2:1:" NAME SCORE SCORE STATUS"#f!3:1:" ----- -------- --------- ------------"#!X115#!X%X$!RA$"PLAYER,R";X:PL$,LS,H,$" X$"Y"ı&" OP$"PLAYER,L40"d" WR$"PLAYER,R1":"BC";",";250000;",";250000;",";"BROKER"p" X215" WR$"PLAYER,R";X"" "E";",";0;",";0;",";"E""$ X"& CL$"( 20:1:"PLAYER DIRECTORY CLEAR COMPLETE""* X11000:X", #: S+!"R.E. INDEX":"MONTH","DATA","INDEX":7!X160U!X,PR%(X,10),PR%(X,10)10\!Xg!(12)m!! END OF DEBUG! CLEAR PLAYER IRECTORY! :2:1:"ARE YOU SURE YOU WANT TO"! 3:1:"CLEAR THE PLAYER DIRECTORY? (Y/N) ";" X$:XA","NEW YORK" @X160p rX,PR%(X,5)10;"%",PR%(X,6)10;"%",PR%(X,7)10;"%",PR%(X,8)10;"%",PR%(X,9)10;"%"w X (12):"TRANSACTION TABLES"::"TYPE","-1-","-2-","-3-","-4-" X115 X,TR(X,1),TR(X,2),TR(X,3),TR(X,4) X (12)X,PR%(X,1)10,PR%(X,1)100;"%"(XoF(12):"INVESTMENT TYPE RATES"::"WEEK","RESID","COMMERC","LAND"{xX160X,PR%(X,2)10;"%",PR%(X,3)10;"%",PR%(X,4)10;"%"X (12):"AREA TYPE RATES"::"WEEK","CALIF","TEXAS","COLO","FLORIDX,PO(X)X(12)B "EVENT TABLES"::"EVENT","WEEK"ORX1216]X,EV%(X)dX(12):"OFFER TABLE"::"OFFER","ORDER"X1110LOF%(X,1),OF%(X,2)yX~(12):"MORTGAGE RATES"::"WEEK","DATA","RATE"X160!ARKERSEV068504 PASS KD,EV,WE TO ROUTINEk WILL STORE WE IN EV%() SUBSCRIPT=EVENT POINTER2MS(((NN)8)1),MS(KD1)24(EV1)8MS^EV%(MS)0ī6450EV%(MS)WE DEBUG ROUTINE&"TABLE POINTERS"XX19 V0*DKD1ĺRA$"MORTGAGE.RND,R";CU:DA^vKD1ĺRA$"DATA.RND,R";((PO(KD))1)90CU:DAwKD1DA(DA10.1)DA9950ī6000 CUCUDR>6200pEV(1000.1DA10)CUCUDR257008j ROUTINE TO DETERMINE EVENT M******$ MANIPULATE DATA.FIN SUBA YOU MUST PASS KD,CU,DRrJ DR MUST BE SET TO 1=FOREWARD -1=BACKWARD| ROUTINE INCREMENTS/DECREMENTS CU RETURNS DATA STORED IN DA RETURNS EVENT NUMBER IN EV 0=NONE 1=GOOD 2=MIXED 3=BADE INITIALIZE TR() X115+Y14}$TR(X,Y)PR%(1,(X3.9)4)1000PR%(1,X3(X3.2)1)1000BS(X3(X3.2))VY:XSRMYWE214110:D$"BLOAD CHAIN,A520":520"BARPLAY.BAS" ***************END OF INITIAL**************1:PO(KD)0DR1'CU1:DR1CU904WE160D05350:6250VbPR%(WE,KD)DA^WEfKDoCL$ CALCULATE RE INDEXX160T0Y24Z59TTPR%(X,Y)PR%(X,Z)1000Z:YPR%(X,10)T15XCL$GAGE DATA IN PR%(X,1)0tOP$"MORTGAGE.RND,L4"YCU(PO(1)):KD1:DR1:PO(1)0DR1{ WE160: WE IS REALLY MONTH<5350:6250nPR%(WE,1)DAWECL$ PUT TY AND AREA DATA IN PR%(2)-PR%(9)6OP$"DATA.RND,L5"KD29:DR D109!D(D2):D1ī3650:$J1110D:IJ1DY)OF%(ID,2)OF%(I,2)ī3642t.TOF%(I,1):T2OF%(I,2)1OF%(I,1)OF%(ID,1):OF%(I,2)OF%(ID,2)5OF%(ID,1)T:OF%(ID,2)T28I:J<3615> END OF SORT ROUTINEB PUT MORT "WRONG SIDE"*"