ZXTape! 0Created with Ramsoft MakeTZXSHARE BIZZ``r` W$="":"23607","248":"100"  "63743" W$="" "CODE"64000-256 ("23607","248" d粧:ڲ:ٰ"7":ܰ"1": i93,7;:Z$="~SHARE BIZZ.~":V= 64500 j'502,135:110n,0 k,'''3;"A GAME FOR UP TO 4 PLAYER'S." l<'"OBJECT - TO MAKE MONEY,BUYING AND SELLING SHARES." n'"KEY's - ~1~ - PLAYER 1"';8;"~2~ - PLAYER 2"';8;"~3~ - PLAYER 3"';8;"~4~ - PLAYER 4"';8;"~S~ - SAVE GAME POSITION"';8;"~L~ - LOAD GAME POSITION" o&502,37%:150,0 p*'3;"~B~-BUY;~S~-SELL;~R~-RETURN." x$(23,34") 'g$=" " *A$=17+8+16+8 a="1"̰"23":x$(a):a 17+6+16+1+ "Gold",17+2+16+6+"Oil",17+5+16+0+"Diamonds",17+3+16+7+"Rubber",17+1+16+6+"Cars",17+4+16+0+"Electrical",17+5+16+1+"Aircraft",17+6+16+2+"Whisky",17+3+16+7+"Gas",17+2+16+6+"Bank" JA$+"Insurance", A$+"Papers", A$+"Shipping", A$+"Building", A$+"Printing" IA$+"Chemicals", A$+"Tobacco", A$+"Textiles", A$+"Transport", A$+"Foods" 'A$+"Steel",a$+"Railway",a$+"Garage's" /pla1="1000":pla2=pla1:pla3=pla1:pla4=pla1 ,`a1="10":a2="13":a3="9":a4="6":a5="12":a6="4":a7="3":a8="7":a9="11":a10="15" 6Qba1=:ba2=:ba3=:ba4=:ba5=:ba6=:ba7=:ba8=:ba9=:ba10= @Qca1=:ca2=:ca3=:ca4=:ca5=:ca6=:ca7=:ca8=:ca9=:ca10= JQda1=:da2=:da3=:da4=:da5=:da6=:da7=:da8=:da9=:da10= TQea1=:ea2=:ea3=:ea4=:ea5=:ea6=:ea7=:ea8=:ea9=:ea10= ^set=:n= hLBB=:CB=:DB=:EB=:TAX1="1000":TAX2=TAX1:TAX 3=TAX2:TAX4=TAX1 rdate="1":O="1" |#P$(12 ,5):P(12 ) A="1"̰"12":P$(A),P(A):A "JAN",31,"FEB",28,"MARCH",31,"APRIL",30,"MAY",31,"JUNE",30,"JULY",31,"AUG",31,"SEPT",30,"OCT",31,"NOV",30,"DEC",31 DATE1=DATE:DAY="1" YEAR=1 "23658","8" ].1}L,10 :19,0;:Z$="NEW GAME / LOAD SAVED GAME.N/L?":V=64500 "Press N or L -";z$ z$="N"1000 z$="L"7209) .1}L,10  900  ?"0","16";:Z$="PLAYER'S":0:7:V=64500 5"3","14";:Z$="1 2 3 4":V=64500 0"15","0";:Z$="TOT. ASSETS":V=64500 -"17",;:Z$="TOT. CASH-":V=64500 &a="1"̰"10":"4"+a,"2"; x$(a):a Re$(20):z="1":e="5"̰"14":f="2"̰"3":e$(z)=(e,f):z=z+1:f:e  "8200" 6.1}L,10 :DAY=8DAY=1:"8000" ? PLA1<0PLA2<0PLA3<0PLA4<0"8500" GDATE1=P(O)+1O=O+1:DATE1=1:O=13 O=1 L"2","0";:Z$=DATE1+" "+P$(O)+" ":V="64500":"4","0";"YEAR-";YEAR "0","0";:Z$=("MONDAY "DAY=1)+("TUESDAY "DAY=2)+("WEDNESDAY"DAY=3)+("THURSDAY "DAY=4)+("FRIDAY "DAY=5)+("SATURDAY "DAY=6)+("SUNDAY "DAY=7):V=64500:DAY=8 DAY=7DAY=6"1032" ~"5","0";:a="1"̰"10":z$="a"+a:4+a,0;0;7;1;z$;(" "ư z$<10 ưz$>-1) :a  "6100" date ="30"date="60"date="90"DATE="120"DATE="150"DATE="180"DATE="210"DATE="240"DATE="270"DATE="300""5000"  "DATE="165"DATE="330""6000" kdate =date+1:DATE1=DATE1+1:DAY=DAY+1:DATE=365mDATE=0:YEAR=YEAR+1  "64792" DAY="8"DAY ="7""1015" "64701","135":"64700" "23560","32" A="1"̰"150":c$=:C$=""A  "64730" C$="L""7200"  c$="S""7000" &c$="1"c$="2"c$="3"c$="4""2000" !"64701","7":"64700" %#DAY=6DAY =7"1063" & "8000" ) c$=32 "23607","60": . "1015" 6BB=5CB=5DB=5EB=5"4700" "19","0";:Z$= ("Player 1"c$= "1")+("Player 2"c$= "2")+("Player 3"c$ = "3")+("Player 4"c$="4")+(" B/S/R ? ")+"`"+(pla1c$="1")+(pla2c$="2")+(pla3c$="3")+(pla4c$="4")+" cash":V="64500" d$= *d$="R"19,0;g$'g$:"1041" *d$="B"19,0;g$'g$:"3000" *d$="S"19,0;g$'g$:"4000" 4 "2010" 6BB=5CB=5DB=5EB=5"4700" R19,0;:Z$= "Select Share required-Key 0":V=64500:"64850" A=64891{-4 19,0;G$'G$ K19,0;:Z$= "Select number -keys 0/P":V="64500":"65050" !,number=65098J+256*65099K &cost=(number * a1a=1)+(number * a2a=2)+(number * a3a=3)+(number * a4a=4)+(number *a5a=5)+(number * a6a=6)+(number * a7a=7)+(number * a8a=8)+(number * a9a=9 )+(number * a10a=10 ) 0=tot=(pla1c$="1")+(pla2c$="2")+(pla3c$="3")+(pla4c$="4") 519,0;G$'G$ :`cost>tot19,0;:Z$="NOT ANOTHER MONEY":V=64500:1,1:"2000" ;0c$="1"pla1=pla1-cost:BB=BB+1:"3137" <0c$="2"pla2=pla2-cost:CB=CB+1:"3148" =0c$="3"pla3=pla3-cost:DB=DB+1:"3159" >0c$="4"pla4=pla4-cost:EB=EB+1:"3170" Aa=1ba1=ba1+number Ba=2ba2=ba2+number Ca=3ba3=ba3+number Da=4ba4=ba4+number Ea=5ba5=ba5+number Fa=6ba6=ba6+number Ga=7ba7=ba7+number Ha=8ba8=ba8+number Ia=9 ba9=ba9+number Ja=10 ba10=ba10+number K "3180" La=10 ca10=ca10+number Ma=1ca1=ca1+number Na=2ca2=ca2+number Oa=3ca3=ca3+number Pa=4ca4=ca4+number Qa=5ca5=ca5+number Ra=6ca6=ca6+number Sa=7ca7=ca7+number Ta=8ca8=ca8+number Ua=9 ca9=ca9+number V "3180" Wa=1da1=da1+number Xa=2da2=da2+number Ya=3da3=da3+number Za=4da4=da4+number [a=5da5=da5+number \a=6da6=da6+number ]a=7da7=da7+number ^a=8da8=da8+number _a=9 da9=da9+number `a=10 da10=da10+number a "3180" ba=1ea1=ea1+number ca=2ea2=ea2+number da=3ea3=ea3+number ea=4ea4=ea4+number fa=5ea5=ea5+number ga=6ea6=ea6+number ha=7ea7=ea7+number ia=8ea8=ea8+number ja=9 ea9=ea9+number ka=10 ea10=ea10+number lJc$="1"4+a,13 ;8;8;(ba1BA10a=1)+(ba2a=2BA2>1)+(ba3a=3BA3>1)+(ba4a=4BA4>1)+(ba5a=5BA5>1)+(ba6a=6BA6>1)+(ba7a=7BA7>1)+(ba8a=8BA8>1)+(ba9a=9 BA9>1)+(ba10a=10 BA10>1) mc$="2"4+a,18;8;8;(ca1a=1)+(ca2a=2)+(ca3a=3)+(ca4a=4)+(ca5a=5)+(ca6a=6)+(ca7a=7)+(ca8a=8)+(ca9a=9 )+(ca10a=10 ) nc$="3"4+a,23;8;8;(da1a=1)+(da2a=2)+(da3a=3)+(da4a=4)+(da5a=5)+(da6a=6)+(da7a=7)+(da8a=8)+(da9a=9 )+(da10a=10 ) oc$="4"4+a,28;8;8;(ea1a=1)+(ea2a=2)+(ea3a=3)+(ea4a=4)+(ea5a=5)+(ea6a=6)+(ea7a=7)+(ea8a=8)+(ea9a=9 )+(ea10a=10 ) q[ C$="1"Y$=(4+A,13 ):Y$=04+A,13 ;8;8;" " rZC$="2"Y$=(4+A,18):Y$=04+A,18;8;8;" " sZC$="3"Y$=(4+A,23):Y$=04+A,23;8;8;" " tZC$="4"Y$=(4+A,28):Y$=04+A,28;8;8;" " v "6100" "2000" 6BB=5CB=5DB=5EB=5"4700" J19,0;:Z$= "Select Share -Key 0":V=64500:"64850" a=64891{-4 19,0;G$'G$ ]a=019,0;:Z$="YOU HAVE NONE":V=64500:1,1:"2000" c$="1" (a=1ba1=0)+(a=2ba2=0)+(a=3ba3=0)+(a=4ba4=0)+(a=5ba5=0)+(a=6ba6=0)+(a=7ba7=0)+(a=8ba8=0)+(a=9 ba9=0)+(a=10 ba10=0)A=0:"4020" c$="2" (a=1ca1=0)+(a=2ca2=0)+(a=3ca3=0)+(a=4ca4=0)+(a=5ca5=0)+(a=6ca6=0)+(a=7ca7=0)+(a=8ca8=0)+(a=9 ca9=0)+(a=10 ca10=0)A=0:"4020" c$="3" (a=1da1=0)+(a=2da2=0)+(a=3da3=0)+(a=4da4=0)+(a=5da5=0)+(a=6da6=0)+(a=7da7=0)+(a=8da8=0)+(a=9 da9=0)+(a=10 da10=0)A=0:"4020" c$="4" (a=1ea1=0)+(a=2ea2=0)+(a=3ea3=0)+(a=4ea4=0)+(a=5ea5=0)+(a=6ea6=0)+(a=7ea7=0)+(a=8ea8=0)+(a=9 ea9=0)+(a=10 ea10=0)A=0:"4020" Q19,0;:Z$= "Select number -Keys 0/P":V=64500:65050 ,number=65098J+256*65099K  19,0;G$'G$ cash=(a1*numbera=1)+(a2*numbera=2)+(a3*numbera=3)+(a4*numbera=4)+(a5*numbera=5)+(a6 * numbera=6)+(a7*numbera=7)+(a8*numbera=8)+(a9*numbera=9 )+(a10 * numbera=10 ) !c$="1""4180" "c$="2""4270" #c$="3""4400" $c$="4""4500" 6Fc$="1"pla1=pla1+cash:4+a,13 ;8;8;" " 7Fc$="2"pla2=pla2+cash:4+a,18;8;8;" " ;Fc$="3"pla3=pla3+cash:4+a,23;8;8;" " FFc$="4"pla4=pla4+cash:4+a,28;8;8;" " I "3180" J PLAYER NO.1 T!a=1number > ba1"4600" U!a=2number > ba2"4600" V!a=3number > ba3"4600" W!a=4number > ba4"4600" X!a=5number > ba5"4600" Y!a=6number > ba6"4600" Z!a=7number > ba7"4600" [!a=8number > ba8"4600" \!a=9 number > ba9"4600" ]#a=10 number > ba10"4600" ha=1ba1=ba1-number ia=2ba2=ba2-number ja=3ba3=ba3-number ka=4ba4=ba4-number la=5ba5=ba5-number ma=6ba6=ba6-number na=7ba7=ba7-number oa=8ba8=ba8-number pa=9 ba9=ba9-number qa=10 ba10=ba10-number rBB=BB+1:"4150"  PLAYER NO.2 !a=1number > ca1"4600" !a=2number > ca2"4600" !a=3number > ca3"4600" !a=4number > ca4"4600" !a=5number > ca5"4600" !a=6number > ca6"4600" !a=7number > ca7"4600" !a=8number > ca8"4600" !a=9 number > ca9"4600" #a=10 number > ca10"4600" a=1ca1=ca1-number a=2ca2=ca2-number a=3ca3=ca3-number a=4ca4=ca4-number a=5ca5=ca5-number a=6ca6=ca6-number a=7ca7=ca7-number a=8ca8=ca8-number a=9 ca9=ca9-number a=10 ca10=ca10-number CB=CB+1:"4150" 0!a=1number > da1"4600" 1!a=2number > da2"4600" 2!a=3number > da3"4600" 3!a=4number > da4"4600" 4!a=5number > da5"4600" 5!a=6number > da6"4600" 6!a=7number > da7"4600" 7!a=8number > da8"4600" 8!a=9 number > da9"4600" 9#a=10 number > da10"4600" :a=1da1=da1-number ;a=2da2=da2-number <a=3da3=da3-number =a=4da4=da4-number >a=5da5=da5-number ?a=6da6=da6-number @a=7da7=da7-number Aa=8da8=da8-number Ba=9 da9=da9-number Ca=10 da10=da10-number DDB=DB+1:"4150" !a=1number > ea1"4600" !a=2number > ea2"4600" !a=3number > ea3"4600" !a=4number > ea4"4600" !a=5number > ea5"4600" !a=6number > ea6"4600" !a=7number > ea7"4600" !a=8number > ea8"4600" !a=9 number > ea9"4600" #a=10 number > ea10"4600" a=1ea1=ea1-number a=2ea2=ea2-number a=3ea3=ea3-number a=4ea4=ea4-number a=5ea5=ea5-number a=6ea6=ea6-number a=7ea7=ea7-number a=8ea8=ea8-number a=9 ea9=ea9-number a=10 ea10=ea10-number EB=EB+1:"4150" T19,0;:Z$="TOO MANY SHARES":V=64500:1,1:"4000" \;19,0;:Z$="BROKER'S CHARGES":V=64500 fkM=((SH1/100d)C$="1")+((SH2/100d)C$="2")+((SH3/100d)C$="3")+((SH4/100d)C$="4") p019,17;:Z$="`"+M:V=64500 zy19,22;:Z$=("PLAYER 1"C$="1")+("PLAYER 2"C$="2")+("PLAYER 3"C$="3")+("PLAYER 4"C$="4"):V=64500 !C$="1"PLA1=PLA1-M:BB=0 !C$="2"PLA2=PLA2-M:CB=0 !C$="3"PLA3=PLA3-M:DB=0 !C$="4"PLA4=PLA4-M:EB=0 <M=15:.2~L,10 +M*2:M:"6100" 19,0;G$'G$  a=(5date=30)+(6date=60<)+(7date=90Z)+(8DATE =120x)+(9 DATE=150)+(10 DATE=180)+(11 DATE=210)+(12 DATE=240)+(13 DATE=270)+(14DATE= 300,) f$(10 ) b=211 f$(b-1)=(a,b) b DIV=(A1/10 A=5)+(A2/10 A=6)+(A3/10 A=7)+(A4/10 A=8)+(A5/10 A=9 )+(A6/10 A=10 )+(A7/10 A=11 )+(A8/10 A=12 )+(A9/10 A=13 )+(A10/10 A=14)  a=a-4 da=1pla1=(pla1 +div*ba1):pla2=(pla2+div*ca1):pla3=(pla3+div*da1):pla4=(pla4+div*ea1) da=2pla1=(pla1 +div*ba2):pla2=(pla2+div*ca2):pla3=(pla3+div*da2):pla4=(pla4+div*ea2) da=3pla1=(pla1 +div*ba3):pla2=(pla2+div*ca3):pla3=(pla3+div*da3):pla4=(pla4+div*ea3) da=4pla1=(pla1 +div*ba4):pla2=(pla2+div*ca4):pla3=(pla3+div*da4):pla4=(pla4+div*ea4) da=5pla1=(pla1 +div*ba5):pla2=(pla2+div*ca5):pla3=(pla3+div*da5):pla4=(pla4+div*ea5) da=6pla1=(pla1 +div*ba6):pla2=(pla2+div*ca6):pla3=(pla3+div*da6):pla4=(pla4+div*ea6) da=7pla1=(pla1 +div*ba7):pla2=(pla2+div*ca7):pla3=(pla3+div*da7):pla4=(pla4+div*ea7) da=8pla1=(pla1 +div*ba8):pla2=(pla2+div*ca8):pla3=(pla3+div*da8):pla4=(pla4+div*ea8) da=9 pla1=(pla1 +div*ba9):pla2=(pla2+div*ca9):pla3=(pla3+div*da9):pla4=(pla4+div*ea9) ia=10 pla1=(pla1 +div*ba10):pla2=(pla2+div*ca10):pla3=(pla3+div*da10):pla4=(pla4+div*ea10) D=19,0;2;6;:Z$=F$:V=64500 N919,9 ;:Z$="PAY'S DIVY AT ":V=64500 X.19,23;:Z$=DIV:V=64500 b219,26;:Z$="/SHARE":V=64500 +A=15:.2~L,10 +A:A  200 19,0;G$'G$  6100   p1A=14:.1}L,1:1:A rA=14 uTD=0:TR=0 z19,0;:Z$="TAX DUE "+("PLAYER 1"A=1)+("PLAYER 2"A=2)+("PLAYER 3"A=3)+("PLAYER 4"A=4):V=64500 ZA=1TD=((PLA1+SH1-TAX1)/6):TD<1TR=(TD):TD=0:PLA1=PLA1+TR $A=1TR=0PLA1=PLA1-TD ZA=2TD=((PLA2+SH2-TAX2)/6):TD<1TR=(TD):TD=0:PLA2=PLA2+TR $A=2TR=0PLA2=PLA2-TD ZA=3TD=((PLA3+SH3-TAX3)/6):TD<1TR=(TD):TD=0:PLA3=PLA3+TR $A=3TR=0PLA3=PLA3-TD ZA=4TD=((PLA4+SH4-TAX4)/6):TD<1TR=(TD):TD=0:PLA4=PLA4+TR $A=4TR=0PLA4=PLA4-TD {19,17;:Z$="-`"+(TDTD0)+(TR+" REFUND"TR0)+(" LUCKY"TD=0TR=0):V=64500 .1}L,2:200 19,0;G$'G$  6100 A TAX1=PLA1+SH1 TAX2=PLA2+SH2 TAX3=PLA3+SH3 TAX4=PLA4+SH4  4SH1=ba1*a1+ba2*a2+ba3*a3+ba4*a4+ba5*a5+ba6*a6+ba7*a7+ba8*a8+ba9*a9+ba10*a10:SH2=a1*ca1+a2*ca2+a3*ca3+a4*ca4+a5*ca5+a6*ca6+a7*ca7+a8*ca8+a9*ca9+a10*ca10:SH3=a1*da1+a2*da2+a3*da3+a4*da4+a5*da5+a6*da6+a7*da7+a8*da8+a9*da9+a10*da10:SH4=a1*ea1+a2*ea2+a3*ea3+a4*ea4+a5*ea5+a6*ea6+a7*ea7+a8*ea8+a9*ea9+a10*ea10 _65440,(pla1+sh1)-((pla1+sh1)/256)*256:65441,((pla1+sh1)/256) `65452,(pla2+sh2)-((pla2+sh2)/256)*256:65453,((pla2+sh2)/256 ) _65464,(pla3+sh3)-((pla3+sh3)/256)*256:65465,((pla3+sh3)/256) _65476,(pla4+sh4)-((pla4+sh4)/256)*256:65477,((pla4+sh4)/256) M65438,pla1-(pla1/256)*256:65439,(pla1/256) M65450,pla2-(pla2/256)*256:65451,(pla2/256) M65462,pla3-(pla3/256)*256:65463,(pla3/256) M65474,pla4-(pla4/256)*256:65475,(pla4/256) 65210:65280  A19,0;:Z$="SAVE GAME POSITION Y/N":V=64500 Z$=:Z$=""7101 Z$="Y"7109 19,0;G$'G$  1051 19,0;G$'G$ 'V=23627K\+256*23628L\ 1L=23641Y\+256*23642Z\+2-V 65200,(L/256) &V+1,L-256*(L/256) :23627K\+256*23628L\+2,65200  "DATA"W$()   A19,0;:Z$="LOAD GAME POSITION Y/N":V=64500 !Z$=:Z$=""7201! "Z$="Y"7209) # 7103 ) * "DATA"W$() 4.23627K\+256*23628L\,87W >523627K\+256*23628L\+1,0 H523627K\+256*23628L\+2,0 &0:0:7:1: E0,16;:Z$="PLAYER'S":0:7:V=64500 ;3,14;:Z$="1 2 3 4":V=64500 615,0;:Z$="TOT. ASSETS":V=64500 517,0;:Z$="TOT. CASH-":V=64500 2a=110 :4+a,2; x$(a):a  8200 L&A=110 :4+a,13 ;8;8;(ba1a=1)+(ba2a=2)+(ba3a=3)+(ba4a=4)+(ba5a=5BA5>1)+(ba6a=6BA6>1)+(ba7a=7BA7>1)+(ba8a=8BA8>1)+(ba9a=9 BA9>1)+(ba10a=10 BA10>1) M 4+A,13 ;8;8;(" "BA1=0A=1)+(" "BA2=0A=2)+(" "BA3=0A=3)+(" " BA4=0A=4)+(" " BA5=0A=5) N 4+A,13 ;8;8;(" "BA6=0A=6)+(" "BA7=0A=7)+(" "BA8=0A=8)+(" " BA9=0A=9 )+(" " BA10=0A=10 ) V4+a,18;8;8;(ca1a=1)+(ca2a=2)+(ca3a=3)+(ca4a=4)+(ca5a=5)+(ca6a=6)+(ca7a=7)+(ca8a=8)+(ca9a=9 )+(ca10a=10 ) W 4+A,18;8;8;(" "CA1=0A=1)+(" "CA2=0A=2)+(" "CA3=0A=3)+(" " CA4=0A=4)+(" " CA5=0A=5) X 4+A,18;8;8;(" "CA6=0A=6)+(" "CA7=0A=7)+(" "CA8=0A=8)+(" " CA9=0A=9 )+(" " CA10=0A=10 ) `4+a,23;8;8;(da1a=1)+(da2a=2)+(da3a=3)+(da4a=4)+(da5a=5)+(da6a=6)+(da7a=7)+(da8a=8)+(da9a=9 )+(da10a=10 ) a 4+A,23;8;8;(" "DA1=0A=1)+(" "DA2=0A=2)+(" "DA3=0A=3)+(" " DA4=0A=4)+(" " DA5=0A=5) b 4+A,23;8;8;(" "DA6=0A=6)+(" "DA7=0A=7)+(" "DA8=0A=8)+(" " DA9=0A=9 )+(" " DA10=0A=10 ) j4+a,28;8;8;(ea1a=1)+(ea2a=2)+(ea3a=3)+(ea4a=4)+(ea5a=5)+(ea6a=6)+(ea7a=7)+(ea8a=8)+(ea9a=9 )+(ea10a=10 ) k 4+A,28;8;8;(" "EA1=0A=1)+(" "EA2=0A=2)+(" "EA3=0A=3)+(" " EA4=0A=4)+(" " EA5=0A=5) l 4+A,28;8;8;(" "EA6=0A=6)+(" "EA7=0A=7)+(" "EA8=0A=8)+(" " EA9=0A=9 )+(" " EA10=0A=10 ) ~A  1015 236077\,60<  0 ? @a=110 E Jr=(*100d)+1 O z$= "a"+a Pqz$<1z=0:4+a,2;8;8;1;" ":set=set+1:8030^ Sz=z$ Tr > 90Z z=z$+1 Ur > 95_ z=z$+2 Yr<10 z=z$-1 Zr<5z=z$- 2 ^z$=z ha = 1a1=z$:set =3a1=0x$(1)=x$(11 ):a1=12 :ba1=0:da1=0:ca1=0:ea1=0:8100 ia = 2a2=z$:set =3a2=0x$(2)=x$(11 ):a2=8:ba2=0:ca2=0:da2=0:ea2=0:8100 ja = 3a3=z$:set=3a3=0x$(3)=x$(11 ):a3= 11 :ba3=0:ca3=0:da3=0:ea3=0:8100 ka = 4a4=z$:set=3a4=0x$(4)=x$(11 ):a4= 6:ba4=0:ca4=0:da4=0:ea4=0:8100 la = 5a5=z$:set=3a5=0x$(5)=x$(11 ):a5=13 :ba5=0:ca5=0:da5=0:ea5=0:8100 ma = 6a6=z$:set=3a6=0x$(6)=x$(11 ):a6=9 :ba6=0:ca6=0:da6=0:ea6=0:8100 na = 7a7=z$:set=3a7=0 x$(7)=x$(11 ):a7=5:ba7=0:ca7=0:da7=0:ea7=0:8100 oa = 8a8=z$:set=3a8=0x$(8)=x$(11 ):a8=6:ba8=0:ca8=0:da8=0:ea8=0:8100 pa = 9 a9=z$:set=3a9=0x$(9 )=x$(11 ):a9=11 :ba9=0:ca9=0:da9=0:ea9=0:8100 qa = 10 a10=z$:set =3a10=0x$(10 )=x$(11 ):a10=10 :ba10=0:ca10=0:da10=0:ea10=0:8100 ra | !4+a,2;x$(11 )  8200 ae$(20):z=1:e=514:f=23:e$(z)=(e,f):z=z+1:f:e %set=0:n=n+1N<10 x$(11 )=x$(11 +n)  <12.4Ffff*8,136:0; 0,- 81Q <17.4 333*8,136:0; 0,- 81Q ;22.43333*8,136:0;0,- 81Q &;27.4[333*8,136:0;0,- 81Q : !4:19,0;:Z$="YOU'R IN DEPT! ":V=64500 !>+A=15:.1}L,10 +A:A !H8PLA1<023560\,491:C$="1":8550f! !I8PLA2<023560\,502:C$="2":8550f! !J8PLA3<023560\,513:C$="3":8550f! !K8PLA4<023560\,524:C$="4":8550f! !f64730 ! 2000 'E:"SHARE BIZZ"20:"CODE"63744,65523-63744 CODE a4 666666>h ~1Rd%F00 0 ~fnvf~88<<~f~`~~f f~>>>c ``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nff>``lvf|<```<6nf>>fn6|``lvff8<<``lxlf8<6kkcclvfffff>lv```>`<|~fffn6fff<cckk6f< x~ 0~0p p(**K\~Z`  #~( #^#V#P:\G>!2:\G>2#N#F#x~[# x o&)))<:O:G y >2xg'''''o@w$<!X>p, !0X>p, :\-!mX1(!rX2(!wX3(!|X4(>p, >o>p, !mX>p, !X>p, >z< >̤>`    :{<>< 2{:{2>z< >2{!<͵:{2< >͛Tg>u>̅>(Z L< L< KJ+--͛KJCJTg!KJB CJTg!<͵>>2>< :2   >< K+--< K+--< K+--< K+--< K+--< K+--< K+--< K+-- ```` `````