' +JJJJ ?\>m0M='+l> /+l  ӍԠ٠Ġٮčɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJIЅ֠],LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷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,&"ԠĠٮ  !"#$%&'()*+,-./0123456789:;<=>?+ 0+ 0+824+82<<+ 0+ 0*#8*!6*?!5*#<"0#<)#=*4!5(.-:::20 $=-/"0(,&#:-#=-"**'>' -*-#<-*#8- -/"0 +9-+9---+;-"(::3;-#;-3<-38-47!)("4?94=9/,  +-#<-*#<-+--?#:-**$24>:-->--?;680^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCFG8`0($ p,&" L鷭  d@LҦ{|LFBBbL`y".Q`pNФbptťܥm2<(-Py0\|66e< L鷭巬 췌`x (`(8`z𷭷I`B` ` `Ӝu`y".Q`pNФbptťܥm2<(-Py0\|66e<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 yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`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-XϠٿԠŠˠĠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`  d̠֠Y)xꪽ)' `LV0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++` VALID NUMBER.";:(7);:22:22:" ";:9050:&$D$^&$RA$"PLAYER,R";Q:PL$,LS,H,S5$g&%NMQs&N%ST$S5$&%GG1211&%(ST$,GG,1)" "ST$(ST$,GG):9750&%GG&&HMH&H&LSAM(4)1ī9825&\&MYLS:9850&a&MYAM(5)&z&CL$:'(Q$)g%"$Q$""ĭX%15Ģ23:1:" YOU MAY NOT ADD ANY NEW PLAYERS.";:(7);:22:22:" ";:9050w%T$Q$""9900%$(Q$)1Ģ23:1:" YOU MUST ENTER A VALID NUMBER.";:(7);:22:22:" ";:90502&$QX%1Ģ23:1:" YOU MUST ENTER APL$;)$"X%3:9:PRUS,("^^^^^^^^$",LS);N$"X%3:19:PRUS,("^^^^^^^^$",H);a$"X%3:29:S5$h$(#X$Z#20:7:"ENTER PLAYER NUMBER TO START."$#21:3:"IF YOU ARE A NEW PLAYER PRESS RETURN."$#22:1:" ";:13450:Q$Z$%#Q" LAST HIGH "V#4!2:1:" NAME SCORE SCORE STATUS"#f!3:1:" ----- -------- --------- ------------"#!X115#!X%X#!RA$"PLAYER,R";X:PL$,LS,H,S5$#!D$#!H09050#."X%3:1:X%;".";$`"X%3:4:$" X$"Y"ı&" OP$"PLAYER,L40"2" X115H" WR$"PLAYER,R";Xe"" "E";",";0;",";0;",";"E"l"$ Xu"& CL$"( 20:1:"PLAYER DIRECTORY CLEAR COMPLETE""* X11000:X", ": SUB FOR NEW GAME"l " D$" OP$"PLAYER,L40"$#!1:1:+!"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 XPm8 ȱȘe[_Ѹ L㱸 : ;,ȅ ٠eȱe 8HH; X`L__\PRUS\[L8 ȱȘe[_Ѹ LW  ީ %7 ފ " " "@' hpho` {$ P2 4P s) XP:)еhpho` ;@ 'Lީ,, P#ʚ$p \,X` ɠ P٥ XP0o  ;Z]^PFdʱE]-,00^ *$,X05nЍNP$P,<*^P۩>ʝ ^P ޤ^ P&В!& { ^H hNT....": ߅ , { ^  u H 9hH R hȥoȥp`oHpH)@  (E { ^^. 0쪆 {$0F Ъ8 9 r H #h 4ȹ _xISK FROM"9.<713:4:"THE DRIVE AND TURN IT OVER SO THE"q.F714:13:"LABEL IS FACING"::16:16:"DOWNWARDS":.K724:6:"PRESS SPACE BAR TO CONTINUE";.P7MM$:D$;:OP$"CHECK":RA$"CHECK":A.Z7CL$"CHECK":A214110 /d7:12:10:"WAIT A MOMEĺ(7);:13650B-~6((Z$)8)((ZZ$)1)ZZ$"":Z$;" ";Z$;:13650v-6(Z$)8ZZ$(ZZ$,(ZZ$)1):Z$;" ";Z$;:13650-6(ZZ$)VQĺ(7);:13650-7ZZ$ZZ$Z$:Z$;:13650-7:(7);(7);(7);-(710:18:"STOP !!!!" .2712:7:"PLEASE REMOVE THE D324:9:"PRESS ANY KEY TO RESUME GAME";2,3WT$;,&4CL$E,X48250Y,4 INPUT ROUTINEw, 5(7);:ZZ$"":"? ";:PZ1,R5Z$,5(Z$)96Z$((Z$)32),5Z$(13)Z$ZZ$:VQ5:,6Z1(N)1: REM CURRENT POSITION LESS ONE-L6((Z$)8)((ZZ$)0):12800 +j1*+111:13:"UNKNOWN ERROR"a+112:10:"ERROR ";ER;" AT LINE ";(218)(219)256p+2RR14000x+22RR+d2CL$+2+2100+2:(7);:(7);:(7);:(7);:+,312:9:"REMOVE WRITE PROTECT TAB"+^313:12:"FROM BARON DISKETTE"),25*x0OL%(X)*z0X!*0X19-*0TF$(X)8*0Y18F*0TF%(X,Y)P*0Y:X[*0X13f*0Y16s*0S3(X,Y)z*0Y*0Y13*0SP(X,Y)*0Y:X*0CL$:*0ER(222):ER7013050*1ER5312650+81:(7);:12:10:"NO SAVED GAME FOUND"*+X)p+MY,ST$,NM,WE,SR,HM)),X12165),EV%(X)<),XH)-X115S)P-Y14`)-TR(X,Y)g)-Yn)-Xy).X17)J.Y123).PT(X,Y)).Y).X)/X17)D/Y110)/OT(X,Y))/Y)/X) 0X17)R0OT$(X),PT$(X))\0X*p0X1 LOADING1(( IF FLAG=1 THEN DATA WILL BE LOADEDY(( IF FLAG=0 THEN DATA WILL BE SAVED}():12:10:"WAIT A MOMENT....";()D$()OP$"SAVE"()RA$"SAVE"()X160()Y110(D*PR%(X,Y)(b*Y(*X(*X1110( +OF%(X,1),OF%(X,2))&9'&1:1:"PLEASE ENTER YOUR INITIALS";:13450:IN$Z$W''MYAM(1):HMY:HMMY:LSMYc'B'PL$IN$z't'ST$ST$(1):S5$ST$''D$:WR$"PLAYER,R";X:PL$;",";LS;",";H;",";ST$''NMX' (9850'<( SUB FOR SAVED GAME(n( CAN BE USED FOR BOTH SAVING AND̠ǭѠԠàנŠԭر̠ӠҠ̠ԭàŠԯנصح͠ӠؠӠ͠Šح͠͠԰ŭ͠Ƞz!#?????     ˠҠĠ!ŮĠٵ ԮӠ-Ġ&ŠͮҮϠ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:"CRACKED BY THE WHIP":14:14:"VERSION 1.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 "                         ҍ          i!"LOADING BARON....."- D$(4)BD$;"MAXFILES 6"MD$""gD$;"RUN BARINIT.BAS"2     ŬōŬōŬōŬōŬōŬōŬōŬōŬōìҍҍӬōōŬōōŬōŬōŬō  㱸 : ;,ȅ ٠eȱe 8HH; X`L__\PRUS\[US\[\[S