' +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`" YOU MUST ENTER A VALID NUMBER.";:(7);:22:22:" ";:9050&$QX%1Ģ23:1:" YOU MUST ENTER A VALID NUMBER.";:(7);:22:22:" ";:9050&$D$&$RA$"PLAYER,R";Q:PL$,LS,H,S5$&%NMQ&N%ST$S5$&%GG1211 '%(ST5ī9150;%#21:3:"IF YOU ARE A NEW PLAYER PRESS RETURN."k%#22:1:" ";:13450:Q$Z$w%#Q(Q$)%"$Q$""ĭX%15Ģ23:1:" YOU MAY NOT ADD ANY NEW PLAYERS.";:(7);:22:22:" ";:9050%T$Q$""9900H&$(Q$)1Ģ23:1:%X'$!RA$"PLAYER,R";X:PL$,LS,H,S5$/$!D$=$!H09050S$."X%3:1:X%;".";f$`"X%3:4:PL$;$"X%3:9:PRUS,("^^^^^^^^$",LS);$"X%3:19:PRUS,("^^^^^^^^$",H);$"X%3:29:S5$$(#X$Z#20:7:"ENTER PLAYER NUMBER TO START."%n#X%1LETE"#* X11000:X#, 3#: SUB FOR NEW GAME9#l A# D$W# OP$"PLAYER,L40"#!1:1:" LAST HIGH "#4!2:1:" NAME SCORE SCORE STATUS"#f!3:1:" ----- -------- --------- ------------"#!X115$!XRY? (Y/N) ";" X$:X$/" X$"Y"X$"y"ıE" OP$"PLAYER,L40"" JR2:WR$"PLAYER,R1":"BC";",";250000;",";250000;",";"BROKER"" X215" WR$"PLAYER,R";X"" "E";",";0;",";0;",";"E""$ X"& CL$#( 20:1:"PLAYER DIRECTORY CLEAR COMPX,4) !X!(12)B!"R.E. INDEX":"MONTH","DATA","INDEX":N!X160l!X,PR%(X,10),PR%(X,10)10s!X~!(12)!! END OF DEBUG! CLEAR PLAYER IRECTORY! :2:1:"ARE YOU SURE YOU WANT TO" " 3:1:"CLEAR THE PLAYER DIRECTO,"TEXAS","COLO","FLORIDA","NEW YORK"0 @X160 rX,PR%(X,5)10;"%",PR%(X,6)10;"%",PR%(X,7)10;"%",PR%(X,8)10;"%",PR%(X,9)10;"%" X (12):"TRANSACTION TABLES"::"TYPE","-1-","-2-","-3-","-4-" X115!X,TR(X,1),TR(X,2),TR(X,3),TR(","RATE"X1608X,PR%(X,1)10,PR%(X,1)100;"%"?XF(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"POINTERS"XX19!X,PO(X)(X3(12)Y "EVENT TABLES"::"EVENT","WEEK"fRX1216tX,EV%(X){X(12):"OFFER TABLE"::"OFFER","ORDER"X1110LOF%(X,1),OF%(X,2)yX~(12):"MORTGAGE RATES"::"WEEK","DATANE TO DETERMINE EVENT MARKERS,EV06850K PASS KD,EV,WE TO ROUTINE 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 D 2=MIXED 3=BADEV0ADKD1ĺRA$"MORTGAGE.RND,R";CU:DAuvKD1ĺRA$"DATA.RND,R";((PO(KD))1)90CU:DAKD1DA(DA10.1)DA9950ī6000 CUCUDR>6200pEV(1000.1DA10)CUCUDR257008j ROUTIF INITIAL********************; MANIPULATE DATA.FIN SUBX YOU MUST PASS KD,CU,DRJ 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=GOOT15 XCL$+ INITIALIZE TR()7X115BY14$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 ORND,L5"(KD29:DR1:PO(KD)0DR1>CU1:DR1CU90KWE160[05350:6250mbPR%(WE,KD)DAuWE}KDCL$ CALCULATE RE INDEXX160T0Y24Z59TTPR%(X,Y)PR%(X,Z)1000Z:YPR%(X,10) ROUTINE,B PUT MORTGAGE DATA IN PR%(X,1)GtOP$"MORTGAGE.RND,L4"pCU(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. ********SORT OFFER D1098D(D2):D1ī3650Q$J1110D:IJ1Dp)OF%(ID,2)OF%(I,2)ī3642.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 SORTeȱe 8HH; X`L__\PRUS\[L__\PRUS\[US\[\[SP s) XP:)еhpho` ;@ 'Lީ,, P#ʚ$p \,X` ɠ P٥ XP XPm8 ȱȘe[_Ѹ L㱸 : ;,ȅ NP$P,<*^P۩>ʝ ^P ޤ^ P&В!& { ^H hW  ީ %7 ފ " " "@' hpho` {$ P2 4  (E { ^^. 0쪆 {$0F Ъ8 9 r H #h 4ȹ _x0o  ;Z]^PFdʱE]-,00^ *$,X05nЍ:6:"PRESS SPACE BAR TO CONTINUE";N/P7MM$:D$;:OP$"CHECK":RA$"CHECK":Ak/Z7CL$"CHECK":A214110/d7:12:10:"WAIT A MOMENT....": ߅ , { ^  u H 9hH R hȥoȥp`oHpH)@6(ZZ$)VQĺ(7);:136506.7ZZ$ZZ$Z$:Z$;:13650M.7:(7);(7);(7);f.(710:18:"STOP !!!!".2712:7:"PLEASE REMOVE THE DISK FROM".<713:4:"THE DRIVE AND TURN IT OVER SO THE".F714:13:"LABEL IS FACING"::16:16:"DOWNWARDS":#/K724-R5Z$#-5(Z$)96Z$((Z$)32)?-5Z$(13)Z$ZZ$:VQ5:m-6Z1(N)1: REM CURRENT POSITION LESS ONE-L6((Z$)8)((ZZ$)0)ĺ(7);:13650-~6((Z$)8)((ZZ$)1)ZZ$"":Z$;" ";Z$;:13650-6(Z$)8ZZ$(ZZ$,(ZZ$)1):Z$;" ";Z$;:13650.2100),2:(7);:(7);:(7);:(7);:P,,312:9:"REMOVE WRITE PROTECT TAB"s,^313:12:"FROM BARON DISKETTE",323:7:"PRESS ANY KEY TO RESUME GAME";,3WT$,&4D$:CL$,X4JR2201,2010,1950,4 INPUT ROUTINE, 5(7);:ZZ$"":"? ";:PZ10SP(X,Y)+0Y:X+0CL$:9+0ER(222):ER413050J+1ER512650}+81:(7);:12:10:"NO SAVED GAME FOUND":12800+j1+111:13:"UNKNOWN ERROR"+112:10:"ERROR ";ER;" AT LINE ";(218)(219)256+2RR14000+22RR+d2CL$+2,.PT(X,Y)*.Y*.X#*/X17/*D/Y110<*/OT(X,Y)C*/YJ*/XU* 0X17h*R0OT$(X),PT$(X)o*\0X{*p0X125*x0OL%(X)*z0X*0X19*0TF$(X)*0Y18*0TF%(X,Y)*0Y:X*0X13*0Y16*0S3(X,Y)*0Y*0Y13 +)OP$"SAVE"))RA$"SAVE")))X1605))Y110C)D*PR%(X,Y)J)b*YQ)*X^)*X1110u) +OF%(X,1),OF%(X,2)|)*+X)p+MY,ST$,NM,WE,SR,HM),X1216),EV%(X)),X)-X115)P-Y14)-TR(X,Y))-Y)-X).X17)J.Y123 *"PLAYER,R";X:PL$;",";LS;",";H;",";ST$/('NMX9( (9850R(<( SUB FOR SAVED GAME(n( CAN BE USED FOR BOTH SAVING AND LOADING(( IF FLAG=1 THEN DATA WILL BE LOADED(( IF FLAG=0 THEN DATA WILL BE SAVED():12:10:"WAIT A MOMENT....";()D$ )$,GG,1)" "ST$(ST$,GG):9750('%GG1'&HMHG'H&LSAM(4)1ī9825W'\&MYLS:9850d'a&MYAM(5)o'z&CL$:u'&'&1:1:"PLEASE ENTER YOUR INITIALS";:13450:IN$Z$''MYAM(1):HMY:HMMY:LSMY'B'PL$IN$'t'ST$ST$(1):S5$ST$:JR3&('D$:WR$ȳŭԭӠӠ̠ϠӠӠԨزԭӠ̠͠Ƞ٭ӠӨҠҩԠؠҠӠҩح͠Ġ͠حҠĠҠԭӠ̠͠Š̠ŠԯנصԭӠ̠ӠԭȠ٭Ӡ:s];»݈0]: (?X"D<B;wn];wpX:ujL~}{wo_?߿Aؠ`݃];»݈7߿,] `P\:uT8`];wn];' qjU A<jU+W.ٻ"];"( U;a}`];wn];T(d0(eT(ժ0 8*s9rsOOy?GOpO|'~@|~`00@P"ܻ*߿`wo_?~@??psc];q<`?`~p@p@ٻ"];"( ;@hpn];wn]P 0K*ހĈY;GB(`a`n]`@'1"lxwnwxp~0@ ?@U"?bp\ vTCfcOgp:C];ݻ߿~} o|a n];wn]s8M{wo_?݃];ݻ7U @f~} UJywn];wne *y{w#E<KgcYx{wo_?|3Ly`` Y x@p~8` p@ٻ"]; ( Dpl];wn]K@`ݳf\;G<aDx"pvC ߼|x~x@?@@waD@?`>ws9~r`xy|<pL\spyy<Ncܿ:Ϊ];ݻd߿A+W":uB+W.\:u*8wos9~}{w@;wne:݃];ݻ7⑾߿U U Up(@+W.Tpvn];wn(Q.]"q̠ǭѠԠàנŠԭر̠ӠԭӠҠ̩͠ȠŠԯנصح͠ӠؠӠ͠ŠԠԭر̙ϙ߿:~];ݻ⑾߿U+A U8a W.\|aRan];wn]P#W.]: p{wo߿݃];7jU Ury7tbU+W"Un8wn];wneO*Q.](eF.]:ujt}߿x];"8Ղ0w~߿8;wn];wn U*`<Ĉ%ժgn7s~@N8|y?pN$O|'~@w"ϪՂ߿߿3"\<(~T3fpO`Cz #?????     ҮˠҠŮĠ٠Үà!ΠÃĄɉɉΎÃԮӠ-Ġ&Šͮ? (4);"BLOADCON"!16384=2(4);"RUNCDI I NC" C@@L>`-ȍ.ō/̍01ύ2 Ѥ @@ Xݍۍ`@ ȩ    HL@`<=>?`# (@ L@ L@ L@LA@@g@h@ (@@ @D$(4):230,64:3086::D$;"BLOAD PICTR.BOPENERC,A$4000"QI13200:IfD$;"MAXFILES 6" (4);"RUN BARINIT.BAS"2S"2N)84) T((NN)161)5 T9SP(X,3)1:3340Q T11SP(X,3).5:3340k T13SP(X,3)0:3340 SP(X,3)(T12)2 X RANDOMLY SELECT OFFERSH X190z T((NN)1101) OF%(T,1)0ī3450 OF%(T,1)T:OF%(T,2)XXS  X295 PO(X)((NN)21):PO(X)2PO(X)1I T((NN)211)jN T10:Y29:T(PO(Y))T11} Y:T11ī3100 PO(X)TPO(X) X RANDOMLY SELECT SPECPORT PARAMETERS 1=AMOUNT 2=PERIOD 3=RESULT X13 SP(X,2)((NECTED TABLE[Z PONT(5)-(9) ARE STATES:CA,TX,CO,FL,NY AND THE NUMBER POINTS TO THE TABLEy 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 POINTERDOMLY SET UP TABLE POINTERS IN PONT()c 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 SEL CL$/OP$"GCHAR.DTA":RA$"GCHAR.DTA":X16FGC%(X)MXVCL$mAN$"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."% RAN, OR CLEAR";:23:19:" ";:(7);:1900HfOP$"RANDOM.DTA"epRA$"RANDOM.DTA":NN,N1oRDNNX1N1:T(NN):XNNNN1:N1N11NN32000NN1N1100N12CL$JR1:OP$"RANDOM.DTA":WR$"RANDOM.DTA"NN:N1 THE PLAYER";@:21:1:"DIRECTORY? TYPE NEW, SAVED, OR CLEAR"jD22:1:" AND PRESS RETURN"l23:18:13450:AN$Z$AN$"NEW"İ8250:2150AN$"SAVED"İ10300:2150AN$"CLEAR"İ8210:15002424:1:"YOU MUST TYPE NEW, SAVEDTWARE"+r15:10:"WRITTEN BY JIM ZUBER";Q|16:9:"ASSISTED BY THE HOGENS";10:10:"COPYRIGHT1983,84,85":11:10:"ALL RIGHTS RESERVED":14:14:"VERSION 2.1"19:1:" DO YOU WANT TO PLAY A NEW GAME, A"; 20:1:" SAVED GAME, OR CLEARKX29:DP%(X)1:X-LTM(0)999:TM(1)99HNX29:TM(X)999999:XuxAM(1)35000:AM(2)99999.9:AM(3)249999.9AM(4)999999.9:AM(5)100000:3:17:"BARON"5:5:"THE REAL ESTATE SIMULATION (TM)"@8:19:"BY":9:11:"BLUE CHIP SOF:SN$(2)"RESI":SN$(3)"BUSI"F SN$(4)"LAND":SN$(5)"CA":SN$(6)"TX"n 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)10(10)"OCT":MN$(11)"NOV":MN$(12)"DEC"E KLN$(0)"REAL ESTATE INDEX" 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"SP$(3)"UNCLE HERMAN'S R.E. PROJECT.: ST$(1)"NOVICE"P ST$(2)"INVESTOR"d ST$(3)"BROKER"w 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$BS(1)90000:BS(2)200000:BS(3)40000:BS(4)110000S &YR84: REMEMBER CURRENT YEAR XSC$(1)" " SC$(2)" " FD360:S2180 SP$(1)"LIMITED PARTNERSHIP." SP$(2)"REAL ESTATE INVESTMENT TRUST."& OPEN " CL$D$"CLOSE "- RA$D$"READ "A WR$D$"WRITE "J ,FL1V 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 INPUT1 =+ :rAD(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$"                          ō          ŬōōŬōōŬōҍҍŬōҍŬōҍŬōҍҍŬōōŬōōŬōōҍŬٍìҍҍҍŬōōҍŬōҍҍŬōҍŬōōҍŬō       Ң      "];"8Ղ0w߿߿n~=`n];wn] BXé #n] x ?9~@>@opLxO|_0g?w}߿:Ϊ];"8Ղ0w߿`];wn];wNaO ժ(a8D@];wr~xA~`8@w"|Ղ߿߿_?~ Xpa|a@L3"pNYxx~`p@߿"@!8Ղ0߿Pown];w.@܋B ܐF;w߇߿߿߿3a ~Á"0@C)~||@@?@v"ϪՂ߿߿_Gp"X셁J|?r.@B]s9rssOOsy|<gI 3f|yyI O|s|H$O||~}{wOߏc;wn];x̙ρ:];»݈7w/P"D@U"8`v0`%C~T0Ĉ@aC K3w|~|@`p @"*t;wn];p@@8~=`@ρ݃\;°݈쟼Pp~ 8@p q`>x2`n]            Šԯנصŭ͠ȠŠͩӠӠ