+_tM?(h_!6T:\B><|@  @@@ @ < @@ fBBBfBH@B f8x8@Fx8@8<8h8D8DhD8888 DTDDx 8DD DD xDxTTDDx8@D D8xmxa=mx V3mo=mo-a*m(l,2):m(l,7)=m(l,7)+a `l j6l=110 :m(l,7)=01200 t$8200 :"Sell at what price";p ~p=p \ms=((m(l,4)*10 +m(l,8))/m(l,5))*20/p:ms<1ms=1 "ms>m(l,7)ms=m(l,7) W8200 :"Stock=";m(l,7):"Sales=";ms:"Price=";p:"Value=";ms*p:8100 ;m(l,7)=m(l,7)-ms:m(l,4)=ms:mo=mo+ms*p l  9000(# l=110 9m(l,5)>0m(l,5)=m(l,5)+1 ({m(l,6)>0m(l,6)=m(l,6)-1:m(l,6)<1m(l,6)=0:m(l,5)=1 2m(l,8)=0 <l:1000 ?mo<30|"Not enough money for design!":8100: Emx=0:l=10 1-1:m(l,1)=0mx=l l <mx=0"Too many designs already made!":8100: l=mx:8200  ;"name";m$(mx):m$(mx)=m$(mx,110 ):8200 "Standard OS cost =50000":mo=mo-50000P:k=2:m(mx,3)=m(mx,3)+10 :m(mx,1)=m(mx,1)+50000P:m(mx,2)=m(mx,2)+5  J"Built-in BASIC - cost 50000 (y or n)";a$:a$"y"a$"Y"21004 *mo=mo-50000P:k=k+8:m(mx,3)=m(mx,3)+20:m(mx,1)=m(mx,1)+50000P:m(mx,2)=m(mx,2)+5:"Built-in BASIC =50000" 4Vdx=0:"Built-in DOS - cost 50000 (y or n)";a$:a$"y"a$"Y"2120H >dx=1:mo=mo-50000P:k=k+6:m(mx,3)=m(mx,3)+20:m(mx,1)=m(mx,1)+50000P:m(mx,2)=m(mx,2)+10 :"Built-in DOS =50000" HJ"Built-in Assembler - cost 20000 (y or n)";a$:a$"y"a$"Y"2140\ Rmo=mo-20000 N:k=k+4:m(mx,3)=m(mx,3)+10 :m(mx,1)=m(mx,1)+20000 N:m(mx,2)=m(mx,2)+5:"Built-in Assembler =20000" \P"Sound - how many voices (0 to 4)";a$:a$"1"a$"2"a$"3"a$"4"2170z fWa=a$:mo9 2170z Qmo64@-k2270 Vmo<2000*a"Cost of RAM=";2000*a:"money=";mo;" NOT ENOUGH!":2270 mo=mo-2000*a:m(mx,3)=m(mx,3)+1*a:m(mx,1)=m(mx,1)+2000*a:m(mx,2)=m(mx,2)+2*a:a;"k RAM =";a*2000 :"Built-in screen (y or n)";a$:a$"y"a$"Y"23608 :"Green or Colour (g or c)";a$:a$"c"a$"C"2340$ Wmo<10000'"Cost of Colour Screen=10000":"money=";mo;" NOT ENOUGH!":2300 mo=mo-10000':m(mx,3)=m(mx,3)+10 :m(mx,1)=m(mx,1)+10000':m(mx,2)=m(mx,2)+60<:"Colour Screen =10000":23608 $Tmo<5000"Cost of Green Screen=5000":"money=";mo;" NOT ENOUGH!":23608 .mo=mo-5000:m(mx,3)=m(mx,3)+5:m(mx,1)=m(mx,1)+5000:m(mx,2)=m(mx,2)+30:"Green Screen =5000" 8e"Keyboard: 1.Touch; 2.Rubber; 3.Key; 4.Professional.";a$:a=a$:a<1a>423608 LAv1=a*5000:v2=a*5:v3=a*5:a<2v3=v3+a Vv2=10 v2=7 `mo=mo-v1:m(mx,3)=m(mx,3)+v2:m(mx,1)=m(mx,1)+v1:m(mx,2)=m(mx,2)+v3:"Keyboard =";v1 Ćm(mx,4)=m(mx,3):m(mx,5)=0:m(mx,6)=10 :mt=1m(mx,5)=1:m(mx,6)=0 (8100:8000@: Kl=110 :m(l,1)=0m(l,5)=03400H 8200 :"Money=";mo G"Pay how much to advertise";a$:a=a$:a<0a>mo3020 5m(l,8)=(a/m(l,5)):mo=mo-a:8100 Hl: Xa$=:a$=""7000X b"a$<97aa$=(a$+32 ) l @R7:1::0,1;"MICROMAKER":0,22;"Month:";mt T6:0: B1:7:21,8;"Press a key ...":100d a$=:a$=""8110 6:0: \8000@:3:7:"Machine #";l;" ";m$(l,110 ):6:0: #( 8000@:"Money held=";mo: #2Vms=0:l=110 :ms=ms+m(l,7)*m(l,2):l:"Stock cost=";ms #7O:"Q to quit,":"Any other key to continue":7000X:a$"q"mt<502 #FE8000@:"End of Game:"::"Victory Score=";(mo+ms)/50t$ #P"Scores above 1 show that you have made a profit. The amount is shown by the size of the value above 1; below 1 you've failed miserably!" #Z8100:9900& &E4::6:0:10 ,7;"Press PLAY on Tape" &"" & '"micro"10 B\NkaP:p Z   A"" ˧v cro   ' P P M3Q|2|Q|Q|3vQ|3-Q|h_tx>>BB<DHpHDB@~BfZBBBBbRJFB