BUILDER } ! = \ JERRYBUILDER  Ron Ridge 1984 1:1:7: 645688 &f=65338:65365U:a:f,a:f 65338: 33!,0,61=,17,579,252,1,0,3,126~,203,47/,182,18,19,35#,11 ,121y,176,32 ,244,33!,579,251,34",546,92\,201 H#1;2;7;1;" STILL LOADING LET THE TAPE RUN " =i=118:x$:n=07:a:x$+n,a:n:i (K"a",0,0,0,0,31,63?,127,255 2Q"b",0,32 ,32 ,112p,248,252,254,255 ,34",34",35#,224,128,128 P"l",28,24,25,17,255,184,184,568 Q"m",28,25,25,18,124|,184,184,184 O"n",28,24,24,16,60<,58:,119w,184 S"o",136,200,200,480,568,120x,184,184 R"p",128,192,224,16,248,252,254,3 M"q",255,0,255,0,255,0,255,0 M"r",568,568,480,32 ,32 ,32 ,32 ,480 >0,6;1;1,9 ;" JERRYBUILDER " '3,7;"(for tycoons only)"  6 x=4:5,x;"With authentic building";6,x;"opportunities & hazards";7,x;"control your land buying,";8,x;"materials, marketing etc";9 ,x;"to turn `300000 into `1m";10 ,x;"over ten years or less." 12 ,x;"On screen instructions at";13 ,x;"every stage of the game.";15,x;"Printout facilities for";16,x;"the annual accounts, site";17,x;"purchases,bar charts and";18,x;"annual profit summary etc" "(20,x;"Assessment at 10th year." ,oy=1206:6;Y,1;"";Y+1,1;"";0;Y+2,1;"" 6V6;Y,29;"";Y+1,29;"";0;Y+2,29;"" @T.05|L,Y:.05|L,-Y:.05|L,Y:.05|L,-Y:.02{# =,Y:.02{# =,-Y:Y r'2,4;"":1:"B.BAS" VU a0Xrx,B.BAS ~ 9 JERRYBUILDER  Ron Ridge 1984 %0:ڰ"7":"7":ܰ"1": 4236099\,100d:23658j\,8 xinv="0":pg="1":gr="0":dup="0":invopt="1":option="1":wht="0":wh="0":yr="1":c="300000":sc=c:u="10" ( 0 < a(u):b(u) F>ls="0":mp="0":pr="1":z="1000":stock=z*"120":l="0" P "3850" ZB ٰ"7";ڰ"1";"0","0";" AREA SELECTION " doption="1":f="1"̰"7" n\F,0;ܰ"1";ڰ"6";" ";:.02{# =,F:.02{# =,-f:F xٰ"1";ڰ"6";ܰ"1";ް"1";"2","0";" LOCATION 1 ";"3","0";ٰ"0";" A CITY SUBURB. Choice of 120 building sites. Sizes from 6 to 11 plots. Selling prices `30000 - `50000 " G="8"̰"14" SG,0;ڰ"5";" ":.02{# =,g:.02{# =,-g:G ٰ"0";ڰ"5";ܰ"1";ް"1";"9","0";" LOCATION 2 ";"10","0";0;" A TOWN CENTRE. Choice of 40 building sites. Sizes from 8 to 11 plots. Selling prices `20000 - `30000 " H="15"̰"21" YH,0;ܰ"1";ڰ"4";" ":.02{# =,h:.02{# =,-h:H ٰ"0";ܰ"1";ڰ"4";ް"1";"16","0";" LOCATION 3 ";"17","0";ٰ"0";" A SEMI RURAL AREA. Choice of 160 building sites. Sizes from 4 to 8 plots. Selling prices `45000 - `65000 " '"  WHICH AREA INTERESTS YOU? ";a a<"1"a>"3""200" "0":ڰ"0":ٰ"2":ܰ"1": y="21"̰"0"-1 Hٰ"2";ڰ"6";y,"0";"":.02{# =,y:y X="2"̰"18" <ڰ"7";X,"3";" ":.01z# =,X:X a="1"aa="9000":"300" a="2"aa="8000":"320" "a="3"aa="10000":"340" ,3np=(*6)+6:s=(*21)+30 6"350" @3np=(*4)+8:s=(*11 )+20 J"350" T3np=(*5)+4:s=(*21)+41- ^9 S=S*Z:f=(s*.15~):b=(s*.2~L):r=(s*.1}L) h4dl="1"pc=(s*.2~L):up=(s*.353333):"390" r4dl="2"pc=(s*.3):up=(s*.25~):"390" |#pc=(s*.353333):up=(s*.2~L) ڰ"7" 7ٰ"0";"3","4";np;" PLOTS EACH";"3","21";"`";pc "5","4";"Each foundation `";f;"7","4";"Each building `";b;"9","4";"Each roof `";r;"11","4";"________________________";3;13 ,4;"Selling prices `";s;"15","4";"Profit per unit `";up  "3375" option="2"a$="Y":"460" /"DO YOU WANT PLOTS HERE (Y/N)";A$ a$"N"a$"Y""440" a$="N":"90" 9ٰ"1";ڰ"7";۰"1";" HOW MANY PLOTS WANTED? ";pb pb<"0""460" pb*pc>c"3040":"460" Opb>np#1;1;" ONLY ";np;" PLOTS FOR SALE ":"100":"460"  c=c-(pb*pc)  "3377" R"50":#1;" Press C for copy to printer or any other key to continue"  0 & ="C" 0ٰ"0" :)yr="4"pg="1"yr="7"pg="1""590" ?)yr="2"yr="6"invopt<2"2930" D"670" N:"2","5";ٰ"2";۰"1";" POOR GROUND WARNING ";۰"0";ٰ"0";"4","2";"A survey shows that this is ""made up"" land and special foundations will be needed.";"8","2";"You can continue to build but each foundation will cost an additional ";10 *dl;"% to lay." Xh"12","1";"Alternatively you can sell the land for 75% of the price paid and select another site." b7"15","1";"______________________________":"3375" l<ٰ"2";"20","1";"Press S to sell or B to build":0 v"S"Ʀ"B""620" {t="B"f=f+(f*dl/10 ):f=f:2;1;"20","0";"FOUNDATIONS NOW COST `";f;" EACH":"150":"710" ="S"pg="2":ls=ls+pb*pc*.25~:c=c+pb*pc*.75@:c=c:"3377":"30":ٰ"2";ݰ"1";"20","1";" LAND SOLD FOR `";(pb*pc*.75@);" ":"100" ?option="2".05|L,20:.05|L,40(::"250" "90" pg="1":option="1": EX="0"̰"2":ٰ"5";X,0;"":X cڰ"5";"1","1";n$;" HOMES";"1","24";"YEAR ";YR;"2","0";"________________________________" ,Q=PB*3+1:O=PB*3-1 G$(Q):T$(O) )G$="1 2 3 4 5 6 7 8 9 1011" ٰ"4";"20","0";G$ 'T$="" &.2~L,20:.2~L,40(  ٰ"4";"21","0";T$ ٰ"0"  R"4","3";"O.K. You now have ";pb;" plots";"5","5";"at `";pc;" each and the" *!mc="3"m=(*3)+1 4!mc="2"m=(*2)+1 >mc="1"m="1" HCm="1"0;6;"7","3";" MARKET CONDITION IS GOOD " RCm>"1"0;6;"7","3";" MARKET CONDITION IS POOR " \"10","5";"How much will you spend ";"11","9";"on marketing?";"12","3";"(Min. `";pb*200;" Max. `";pb*2000;")" f."14","1";"______________________________" p "3375" zad *adpb*2000"890" ad>c"3040":"890" c=c-ad  "3377" ?x="3"̰"18":x,0;" ":x 3"7":#1;" " 9.1}L,20:.1}L,40(:.2~L,10 &ٰ"2";"4","6";" BRICK ALLOCATION" "6","3";" Each house on this site"''" needs ";aa;" bricks."''" Bricks in stock ";stock;''" --------------------------"''" The correct number of bricks"''" must be allocated now."''" HOW MANY HOUSES TO BE BUILT? " hb hb<1"990" Qhb*aa>stock#1;۰"1";" YOU DON'T HAVE ENOUGH STOCK! ":"100":"990" Rhb>pb#1;1;" ONLY ";pb;" PLOTS AVAILABLE! ":"100":"990" stock=stock-hb*aa Eٰ"1";ݰ"1";"12","2";" ";" STOCK REDUCED BY ";hb*AA;" ":"50" "10","20";stock;" " $Bٰ"2";۰"1";"18","1";" Press any key to continue ":0 . "3370" 3&.2~L,20:.2~L,10 83"7":#1;" " Ba="2"yr="3""3660" La="3"yr="7""3690" Vwٰ"7";ڰ"1";"4","1";" FOUNDATIONS ":2;6;"10","4";"";"11","3";"";"12","2";"" `4ٰ"4";"13","1";"" j204,88X:8,8:8,0:4,-8:-5,-8:218,80P:-10 ,-4:-4,10 :218,80P:-6,13 tC216,76L,4:238,76L,4:220,76L:14,0:220,80P:21,0:222,83S:19,0:242,80P:0,16:244,80P:0,8:244,96`:-12 ,0:232,96`:0,-12 ~216,76L:238,76L:240,90Z:-4,0:0,4:232,87W:-6,0 E6:204,76L:204,74J:204,72H ,X="25"̰"16"-1:ٰ"6";"13",X;"" ٰ"0":"12",X-2;" ";"11",X-2;" ":.02{# =,10 :"2":"12",X-2;" ";"11",X-2;" ":.02{# =,10 :"2":X 5"11","14";"";"12","14";"":1,10 F"6","1";"Foundations cost `";F;" each"''" How many will you lay?" 0"14","0";"________________________________"  "3375" j Pj>pb#1;1;" YOU ONLY HAVE ";pb;" PLOTS! ":"100":"1230" f*j>c"3040":"1230"  c=c-j*f  "3377"  k=j*3-1 f$(k) 'f$=" " (4d=1k1:ڰ"4";ٰ"6";"21","0";f$:d 2@x="3"̰"13":x,2;" ":x <yr="3""1370" F*yr="5"pr="1"yr="8"pr="1""1440" P "1530" Z.2~L,15:.2~L,20:.2~L,25:rep=(b/2)*dl:hire=(b/25)*dl:2;1;"4","8";" PLANT BREAKDOWN " d"6","1";"Your machines are overdue for repair & delay in building will increase bank interest charges."''" Full repairs will cost `";rep;''" Hire charges to complete this site will cost `";hire; " per house" n=ٰ"2";"15","1";"Press R to repair or H to hire":0 x"R"Ʀ"H""1390" ="R""1480" ="H""1490" .1}L,10 :.1}L,15:.1}L,20:rep=(b/1.5@)*dl:hire=(b/20)*dl:2;1;"5","3";" ANOTHER PLANT BREAKDOWN " "7","1";"Your site machines are giving trouble again and delays will again incur bank interest."''" Repairs will now cost `";rep;"."'" Hire charges to complete this site will cost `";hire;" per house." =ٰ"2";"15","1";"Press R to repair or H to hire":0 "R"Ʀ"H""1460" ="R"PR="2":C=C-rep:mp=mp+rep:"3377":"50":ٰ"1";"15","1";" PLANT REPAIRED AND OPERATING ":"100":"1510" M="H"b=b+hire:ٰ"2";۰"1";"15","1";"EACH BUILDING NOW COSTS `";b;" " "200" 0"18","0";" "  "3370" .2~L,25:.2~L,15:1;7;"4","1";" BUILDINGS ";2;6;"8","29";"";"9","28";"";"10","21";"";"11","21";"";"12","21";"";"10","18";"";"11","17";"";"12","16";"" Mٰ"4";"13","1";"";6;"13","20";"" G"11","22";"";"11","27";"";"11","25";"";"12","25";""  ڰ"7":ٰ"0" "Jٰ"4";"13","1";"";"13","20";ٰ"6";"" ,X="27"̰"22"-1 6"9",X;" ";"8",X;" ";ٰ"2";ڰ"6";"9",X+1;"":.02{# =,10 :"2":"9",X-1;" ";"8",X-1;" ";ٰ"2";ڰ"6";"9",X;"":"5":.02{# =,10 :X @!"8","21";"";"9","21";"" JH"6","1";"Houses cost `";B;" each "''" How many will"''" you build?" T."14","1";"______________________________" ^ "3375" hG rJg>hb#1;1;" NOT ENOUGH BRICKS ON SITE! ":"100":"1640" |Ng>j#1;1;" ONLY ";j;" FOUNDATIONS LAID! ":"100":"1640" b*g>c"3040":"1600"  c=c-(b*g)  "3377" k=g*7-1 b$(k) eb$="":"20","0";b$ @X="3"̰"13":X,2;" ":X yr="6"yr="9""1770"  "1870" st=(*3)+dl 8.2~L,10 :.2~L,20:.2~L,5 =ٰ"4";ڰ"0";۰"1";"4","4";" STRIKE  STRIKE  STRIKE " "6","1";"The roof tile manufacturers have a strike."'" Buying elsewhere will increase each roof cost by `";st*(r/502);'" Or you can ""sweat it out"" with production losses of `";(up/20);'" for each week the strike lasts." 0"13","0";" ------------------------------ " ?ٰ"2";"14","0";" KEY 1 to buy ... KEY 2 to wait ":0 "1"Ʀ"2""1810" &W="1"r=r+st*(r/502):2;"14","0";" EACH ROOF NOW COSTS `";r;" " 0="2"mp=mp+(st*(up/20)):mp=mp:2;"14","1";" THE STRIKE RAN FOR ";st; " WEEKS! "st>1;" WEEK! "st=1;'" Production losses total `";st*(up/20);" ":100d:c=c-(st*(up/20)):33771 :"300" D "3370" N.2~L,25:.2~L,15:ڰ"1";ٰ"7";"4","1";" ROOFS ";ڰ"6";ٰ"2";"5","26";"";ڰ"7";ٰ"1";"6","25";"";"7","23";"";0;"8","22";" ";"11","22";" ";"12","25";"" X ڰ"6";ٰ"2";"8","21";"";"8","24";"";"8","26";"";"8","29";"";"11","21";"";"11","24";"";"11","26";"";"11","29";"" bfٰ"2";ڰ"6";"9","21";"";"10","21";"";"12","21";"";"12","26";"" lLٰ"4";"13","1";"";ٰ"6";"13","20";"" v*ٰ"1";"11","19";"";"12","18";"" 1:164,112p:79O,0:0:168,115s:13 ,0:172,119w:11 ,0:176,123{:22,0:180,127:19,0:161,111o:16,16 "5","22";"" X="1"̰"14" .02{# =,10 :"12",X+1;" ";"11",X+1;" ":.02{# =,10 :"12",X+2;" ";"11",X+2;" ":.02{# =,10 :X "30":"11","17";"";"12","17";"";"10","18";1;"":3:"10","18";" ";"10","18";"";"10","18";" ":.05|L,10 sv="19":uc="7":t="1"̰"4":ٰ"1";uc,v;"";uc,v;"";uc+1,v-1;" ":uc=uc-1:v=v+1:t Wٰ"1";"4","22";" ";"4","23";"";"4","23";"";"4","23";" ";"5","23";"" :"5","23";" ";"5","22";"";"6","23";1;"" А"6","1";"Roofs on this site"'" cost `";R;" each";"9","1";"How many roofs"'" will you tile?";"14","1";"______________________________"  "3375" i Oi>g#1;1;" ONLY ";g;" HOUSES HAVE BEEN BUILT!":"100":"2020" r*i>c"3040":"2020" yr="3"i>1yr=7i>1"3720":"8","7";"Roofs ordered ";i:i=i-1:"10","7";"Roofs tiled ";i:"3375":"100"  k=i*3-1 r$(k)  @r$=" ":1;"19","0";r$ * c=c-(r*i) 4 "3377" R!yr="9"a="2"yr="6""3380" \?X="3"̰"16":X,1;" ":X ^yr="10""2300" bbricks=30*dl+100d d8.2~L,10 :.2~L,15:.2~L,5 f"4","1";"You must now order your stock of bricks for next year."'" Your supplier can offer up to 100,000 at `";bricks;" per thousand."''" (Each house needs 8 to 10000)"'" ______________________________"'';2;" PRESENT BRICK STOCK ";stock p3ٰ"1";'" Do you want to buy more? (Y/N)":0 z"Y"Ʀ"N""2170" ="N"stock<10 *z2;1;"14","1";" Not enough stock for 1 house!":"100":"15","0";" ":"2150" ="N""2290" H="Y"ٰ"3";1;"14","1";" HOW MANY 1000's WANTED? " bb bb>100d"2200" bb*z+stock<8*z;2;1;"14","1";" Not enough stock for 1 house!":"100":"15","0";" ":"2150" Lbb*bricks>c#1;1;" YOU DON'T HAVE ENOUGH CAPITAL! ":"2180" 8stock=stock+(bb*z):c=c-(bb*bricks):mp=mp+(bb*bricks) 9"13","0";" ":"3377" "12","23";stock Bٰ"1";ݰ"1";"14","1";" STOCK INCREASED AND PAID FOR ":"100"  "3370" 30;4;"3","12";" SALES ":502 -m="1"e=i:k=(e*3)-1:"2360" .m>1sm=(ad-(pb*200))/1000 iz=sm/2+1:iz=iz $ iz>iiz=i .e=iz:k=(e*3)-1 8 "3375" B@.05|L,20:"5","6";"Houses completed ";i:502 L,sv=e*s:.05|L,20:ac=sv/502 Vq$(k) `'q$=" " jٰ"0";ڰ"4";"21","0";q$ t.05|L,20:"7","6";"Houses sold ";e:502:.05|L,20:"9","10"-S;"Selling prices `";s:502:.05|L,20:"11","8"-SV;"Total sales value `";sv ~K"50":.05|L,20:"13","6"-AC;"Agents commission 2% `";ac c=c+sv-ac "3377" >ٰ"2";"15","2";" Press any key to continue ":0 @x="3"̰"21":x,0;" ":x gٰ"1";ڰ"6";۰"1";"10","4";" PREPARING ANNUAL A/Cs ";0;"12","11";" Year ";yr;" ":"100" $x="10"̰"50"Ͱ"2":.05|L,x:x :wh=((pb-e)*pc)+((j-e)*f)+((g-e)*b)+((i-e)*r):wht=wht+wh bc=e*(pc+f+b+r):bc=bc +p=(dup+sv+gr)-(bc+mp+ad+ac+ls):cc=sc+p $pp=p*100d/(sv+gr+dup):pp=pp M7;1;0;"10","2";" ANNUAL ACCOUNTS COMPLETED ":"50" 7"50":"10","0";" " 0 "3","1";"Sales value";"24"-sv;sv;" "'" Ground rents";"24"-gr;gr;';" Prev.Year Profit ";"24"-dup;dup;';"31"-(sv+gr+dup);sv+gr+dup ٰ"2":" Building costs";"24"-bc;bc;'" Misc. Debits";"24"-mp;mp;'" Marketing";"24"-ad;ad;'" Agents fees";"24"-ac;ac;'" Land sale loss";"24"-ls;ls;'" Cost of sales";"31"-(bc+mp+ad+ac+ls);bc+mp+ad+ac+ls  "12","25";1;"______" wٰ"1":"18";"Profit";"31"-p;p:0:" Starting Capital";"31"-sc;sc;"14","25";1;"______" 31-cc;cc Rٰ"2":" Cost of Investments";"31"-inv;inv;"16","25";1;"______" $ct=cc-inv:0:"31"-ct;ct Uٰ"2":"2";"Work in hand this year ";"31"-wh;wh;"18","25";1;"______" <cib=(ct-wh):ٰ"1":"12";"Cash in bank ";19,31-cib;cib:c=cib:"200","15":"45","0":"200","13":"45","0":dup=0 Fc40(3;1;"21","4";" EXCELLENT PROFIT YEAR!":300, Zpp>25pp<40(1;1;"21","4";" A GOOD PROFIT YEAR ":300, Zpp>15pp<251;1;"21","4";" A FAIR PROFIT YEAR ":300, Xpp<15pp>10 2;1;"21","4";" A POOR PROFIT YEAR! ":"300" Ppp<10 2;1;"21","4";" A DISASTEROUS YEAR !!":300, 0"21","0";" " 6#1;1;"Press C for copy - X to continue" 0 ="C" :d="1"̰"21"Ͱ"2" Eٰ"5";d,0;"":.02{# =,d:d a(u)=p:b(u)=pp /"0","1";n$;" HOMES ";"0","23";"PROFITS"  "2","1";"Year 1 `";a(10 );"27";b(10 );"%"''" Year 2 `";a(9 );"27";b(9 );"%"''" Year 3 `";a(8);"27";b(8);"%"''" Year 4 `";a(7);"27";b(7);"%"''" Year 5 `";a(6);"27";b(6);"%" '" Year 6 `";a(5);"27";b(5);"%"''" Year 7 `";a(4);"27";b(4);"%"''" Year 8 `";a(3);"27";b(3);"%"''" Year 9 `";a(2);"27";b(2);"%"''" Year 10 `";a(1);"27";b(1);"%" "2#1;" PRESS ANY KEY TO CONTINUE":0 , u=u-1 6yr="5""3080" @ yr="10"profit=a(1)+a(2)+a(3)+a(4)+a(5)+a(6)+a(7)+a(8)+a(9 )+a(10 ):7;1;"21","0";"10 YEARS PROFIT TOTAL `";profit;" ":200:"3080" Jwhryr<10 :"4040" h "2990" ra:gr=(c/120x):inv=(c/20):1;1;"2","4";" INVESTMENT OPPORTUNITY " |"5","3";"You have been offered some leasehold property with ground rents that will give an income of `";gr;" p.a."''" This will cost `";inv "3375" "11","1";"______________________________";3;"13","3";"Press key ""I"" to invest or any other key to continue.":0 2="I"c=c-inv:invopt="2":"3377":"200":: P"I"gr="0":inv="0":ٰ"2";۰"1";"20","8";" O.K. NO SALE ":"100":: option="2":inv=0:sc=c:yr=yr+1:mp=0:1;6;1;"8","11";" YEAR ";yr;" ";0;0;7;"10","6";"Returning to Area ";a;"14","3";"STARTING CAPITAL `";sc:200:"250" ֳ:inv=0:sc=c:yr=yr+1:mp=0:1;6;1;"10","11";" YEAR ";yr;" ";7;0;"12","4";"STARTING CAPITAL `";sc:200: "90" J#1;1;" YOU DON'T HAVE ENOUGH CAPITAL ":100d:0 "c<1000c=0:"2680"  ٰ"5":ܰ"1":ڰ"0":"0": ?ٰ"6";0,0;" ANNUAL PROFIT GRAPH " In="1":q="2"̰"30"Ͱ"3":ٰ"7";"2",q;n:n=n+1:.05|L,q:q &=q="20"̰"3"-1:ٰ"5";q,0;"-":n=n+1:q :66;"21","0";" EACH GRADUATION = `10,000 " D%12 ,9 :236,0 N8u="10":x="16":q="1"̰"10":y=a(u):y=y/1200 Xy>140y=140 lٰ"5" vy02 w="1"̰"16" 'x,11 :0,y:x=x+1:w yr="5"q="5""3250" q="10""3250" x=x+8 u=u-1 ;.1}L,5:.1}L,20:.1}L,10 :q >"100":#0;"Press C for Copy - X to continue":0 ="C" yr="10""3290" *ڰ"7":ٰ"0":"7"::U=U-1:"2890" Y7;1;21,0;" PRESS ANY KEY FOR ASSESSMENT ":0 ڰ"1":"1":ٰ"7": /avp=((profit/10 )+(wht*(.03{u\/dl))) "1","3";"WORK IN HAND TOTAL `";wht;6;''3;"SALE VALUE OF ABOVE `";wht*(.3/dl);''" 10 YEARS PROFIT `";profit;''2;" AVERAGE PROFIT P.A. `";avp:7 avpȰ"45000""10","11";"VERY GOOD!"''" You are obviously just"''" a natural house builder."''" Why don't you start"''" a real building company?":"3350" avpȰ"30000"avp<"45000""9","12";"NOT BAD"''" You show promise as a builder"''" but you could do with a little"''" more experience or some advice"''" before you start thinking about"''" making it a full time career.":"3350" avp<"30000""11","12";"OH DEAR!";'';" Have you ever considered "''" opening a greengrocery shop"''" or perhaps"''" starting a milk round?.":"3350" F "300":ٰ"1";ڰ"6";"21","4";" PRESS 'A' TO TRY AGAIN ":0 "A" %ڰ"7":"7":ٰ"0"::"30" *Cx="3"̰"18":x,0;" ":x : /80;"17","4";" CASH IN BANK  `";C;" ": 1w2;1;1;"17","22";" ":100d:0;0;"17","22";" ";"17","22";C: 4 "3370" >&"3","5";"IT'S STARTING TO RAIN!!" H;"16","1";"_______________________________":3375/ R[0;;"15","2";" ";"14","2";" ";"13","2";" " \H0;"15","26";"";"14","26";"";"13","25";"" f?W="1"̰"50":xs=(*26)+4:ys=(*5)+5 p ٰ"5":ڰ"7" z01;ys,xs;"/";ys+1,xs-1;"/" %1;ys+2,xs-2;"/" 07;ys,xs;"/";ys+1,xs-1;"/" %7;ys-1,xs+1;"/" w U7;2;1;"3","0";" JERRY DOESN'T WORK IN THE RAIN!":100d /"3","0";" " rs="10":js="15" w="10"̰"25":ٰ"0":ڰ"7" ԡ0;js,rs;" ";js-1,rs;" ":.01z# =,15:js,rs+1;" ";js-1,rs+1;" ";js,rs;" ";js-1,rs;" ":.01z# =,15 rs=rs+1:w )"5":"20","25";" ";"19","25";" " @0;"14","26";"";"15","26";"":.1}L,5 ="5","1";"LOST PRODUCTION COST YOU `";pb*300,*dl 0mp=mp+(pb*300,*dl):c=c-pb*300,*dl "300"  "3377" . "2140" 8.2~L,30:.5,10 :"3","4";"      " B L"3640":"6","14";"Jerry the foreman";"7","14";"says-";"9","14";"This site is";"10","14";"too congested.";"11","14";"The scaffolders";"12","14";"want a bonus of";"13","14";"`";pb*150*dl V3375/ :"300" `Ec=c-(pb*150*dl):mp=mp+(pb*150*dl):33771 :"3830" j"3640":"6","14";"Jerry the foreman";"7","14";"says-";"9","14";"This site is";"10","14";pb*2*dl;" miles";"11","14";"from the town";"13","14";"The men want";"14","14";"petrol expenses";"15","14";"that total `";pb*300,*dl tS3375/ :300,:c=c-(pb300,*dl):mp=mp+(pb*300,*dl):33771 ~ "3830" "3640":"16","3";" ":222,58::10 ,0:0,70F:-10 ,0:0,-70F Ix="73"̰"130"Ͱ"6":234,x:3,0:"13","29";"0c":x 6ٰ"2":yx="60":d="226"̰"228":d,yx:0,yx:d U"80":ٰ"7":x="135"̰"78"-1:224,x:.02{# =,x/10 :x:0 3"10","14";1;1;" Brrr!":75K ]ٰ"1":x="91"̰"88"-1:x,92\:0,8:.03{u\,X/10 :5:x ^ٰ"1":x="87"̰"83"-1:x,92\:0,12 :.03{u\,X/10 :5:x "10","14";"-------------" ٰ"0" ؄"4","14";"Jerry";"5","14";"the foreman";"6","14";"says";"7","14";"It's";"8","14";"too cold";"9","14";"to build!" 2;"11","14";"One house was";"12","14";"not roofed";"13","14";"and now";"14","14";"becomes";"15","14";"work in hand" "300":"3370":"50":  Vڰ"7":ٰ"0":"5"::"3","3";"SELECT"''" DIFFICULTY"''" LEVEL"''" 1,2, or 3" Gx="17"̰"21":ٰ"4";x,0;"":x H2;"16","12";" ";"15","13";" ";"14","14";" ";"13","15";" ";"12","16";" ";"11","17";" ";"10","19";"";"9","20";"";1;"10","21";"3=V.Hard";"12","19";"2=Hard";"14","17";"1=Easy" #."19","1";" CHOOSE 1 FOR A QUICK MILLION " (xm="16":ym="2" 2xm,ym;"";xm-1,ym;"" <dl F dl<1dl>3"3900" Px="1"̰"8":"16",x+1;" ";"15",x+1;" ":.02{# =,x*2:"16",x+2;" ";"15",x+2;" ":.02{# =,x:x Z4"15",X+2;" ";"16",X+2;" ":Y="16" dy-1,x+3;" ";y-2,x+3;" ":.05|L,X:y-1,x+4;" ";y-2,x+4;"";y-3,x+4;"" ny=y-1:x=x+1 xdl="1"y="15""4000" dl="2"y="13""4000" dl="3"y="11""4000"  "3940" _y,x+3;" ";y-2,x+3;" ";y-1,x+3;" ";y-2,x+3;" " K7;1;"19","0";" Do you want to change this Y/N ":0 ="Y""3850" "5": Tv=16244:x=7154:.02{# =,V:.02{# =,-X /1;x,v;"";x+1,v;2;"" x:v T0;6;"9","16";" ";"13","16";" ";"17","16";"" R"8","6";"1 BOOMING";"12","6";"2 AVERAGE";"16","6";"3 TOUGH" L"2","4";"DEFINE MARKET CONDITION":8,140:240,0 )mc:X=2030:.05|L,X:X #mc<0mc>34018 +mc="1"2;1;"8","4";">" ,mc="2"2;1;"12","4";">" ,mc="3"2;1;"16","4";">" P502:1;"21","0";" Do you want to change this Y/N ":0 f="Y"x=715:x,4;" ";"21","0";" ":x:"4020" 9.1}L,10 :.1}L,20:.1}L,30 :0;4;"3","8";" COMPANY NAME ";''''';7;" Enter your surname"'' " or any other name"''" which you choose"''" to call your company."''''" (Maximum length 15 characters)" K8,128:236,0:8,40(:236,0 n$ 7:7:1:   "3370" per=5*dl:3;"2","1";"WORK IN HAND OPTION FOR YEAR ";yr+1;'';0;" Work in hand at this site can be completed next year. Anycosts will be taken now but profit will not be credited until the end of next year." ܰ:" Any additional building needed and marketing costs will be increased by ";per;"% and you must"'" return to the same development area if you take this option." l:" Work in hand carried forward will be sold in year ten to give a profit of ";(30/dl);"%." '" Press any key ":0  "3370" o"4","2";"WORK NEEDED TO COMPLETE SITE"''" ";pb-j;" FOUNDATIONS"'" ";pb-g;" HOUSES"'" ";pb-i;" ROOFS" Lper=1+(per/100d):bopt=((pb-e)*(pc+f+b+r))-wh:bopt=(bopt*per) bopt0bopt=0 61;"10","1";"Building costs `";bopt "%mopt=(pb-e)*(ad*per/pb):mopt=mopt 6aopt=(pb-e)*(s/502) @1;"11","1";"Marketing `osts `";mopt;"12","1";"Agents commission `";aopt;"12","24";1;1;"______" J@2;"13","1";"Total cost to complete `";mopt+bopt+aopt T 3375/ ^U"19","0";"PRESS Key 1 To complete the work Key 2 to just carry on":0 c"1"Ʀ"2"4190^ h="2"dup=0: rT="1"c=c-(bopt+mopt+aopt):dup=up*(pb-e):dup=(dup):option=2:wht=wht-wh | 33771  502 :3;"5 ","5";"WORK IN HAND COMPLETED";0;"8","3";" The profit of `";dup;'" will be credited next year as 'Previous year Profit'"'''" Development next year will be returned automatically to"''" AREA ";a 8100d:#1;" PRESS ANY KEY":0:  2:  X=3 b1;6;"10","4";" J E R R Y B U I L D E R ";1;"21","8";" STOP THE TAPE " [z=140(:254,x-z:254,z+x-x*z:254,x*x+x-z+x:.02{# =,Z:z &1:1:6:0:  502 /0:5:5:0:0:  71G,0:0,152:184,0:0,152:68D,144:119w,0:68D,108l:119w,0:68D,92\:119w,0 *70;"21","2";" " 4 bb=20 >f=3015-1 HOf=0bb,1;" ";bb-1,1;" ":bb=bb-1:4670> R bb,f;"";8;6;2;"";5;bb-1,f;" ":.02{# =,15:bb,f;"";bb-1,f;" ":.02{# =,20:bb,f;"";bb-1,f;" ":.02{# =,25:f \Y.5,25:.5,10 :20:bb-1,f;" ";bb,f;" ":30 fbb=20a=57:a,9 ;6;" ":a:"6","10";1;6;"JERRYBUILDER":30 pibb=19"9","9";7;"";"9","10";1;7;" Ron Ridge":30 zBB=19J=110 :KK=15:18,KK;"";17,KK;"";19,KK;" ";:.02{# =,KK:19,KK;"";18,KK;"";17,KK;" ";16,KK;" ":.02{# =,30:J:"4780" )f=140-1:4680H 6#1;"  PRESS ANY KEY TO BEGIN ":0  10 x)(>F