ZXTape!èMillionairodoRèqÿd ù:í500ô ngí1500Ü:í2000Ð:í2500Ä :í3500¬ :î"Press ENTER to continue ";Êz$:í1000è:ì110n þ&ç0:Ù7:Ü1:Ú0:û ‚éc$(5,3):éd$(5,11 ):ép(5,20):éd(5):ée(5):éq(5):ñday=1:ñcsh=10000' Xä"M&S","Minerals","GKN","Catering","BR","Electronics","ICL","Transport","BL","Textiles" Qën=1Ì5:ãc$(n),d$(n):ñp(n,1)=100d+º(20*¥-20*¥) &ón 0þ ò6û:õ¬0,5;Ú1;" Display Price Graphs " üvõ''Ú2;"1-5 Display a Graph";Ú0''"1= M&S"'"2= GKN"'"3= BR"'"4= ICL"'"5= BL"'Ù6'"6= Show Stock Table" 8î"Enter 1 to 6 ";Êz$:úz$È"1"Æz$Ç"6"Ëñco=°z$:ì1050  ì1030 úco=6Ëþ $Eû:õ¬0,0;Ú1;" Share Price Movements ";c$(co)'d$(co) .Aën=0Ì360hÍ20:õ¬20-n/20,0;n:ón 8bö8,12 :ü245õ,0:ën=3Ì30:ön*8,12 :ü0,-6:ón B‘údayÇ20Ëën=1Ìday-1:ö24+n*8,12 +p(co,n)/2.5‚ :ü8,-(p(co,n)-p(co,n+1))/2.5‚ :ón:ì1130j LXën=2Ì20:ñday1=day-21+n:ñnrot=day1-20*º((day1-1)/20) VŽñnrot1=nrot+1-20*(nrot=20):ö24+n*8,12 +p(co,nrot)/2.5‚ :ü8,(p(co,nrot1)-p(co,nrot))/2.5‚ :ón j,î"Press ENTER to continue ";Êz$:ì1000è æ6û:õ¬0,4;Ú1;" Table of Stocks Held " ðYñnrot=day-20*º((day-1)/20):ñnrot1=nrot-1+20*(nrot=1) ú>õ¬3,0;Ú2;"Stock Price Change Qty Value" Kën=1Ì5:õ¬4+n,0;c$(n);­7;p(n,nrot);­14; )ñcn=(p(n,nrot)-p(n,nrot1))*(dayÉ1) úcn>0Ëõ"+";cn; "úcn<0Ëõcn; ,úcn=0Ëõ"nil"; 6.õ­21;:úq(n)=0Ëõ"nil";:ì1610J @õq(n); Jõ­26;q(n)*p(n,nrot) Tón ^õ'Ù5;"Cash in hand ";csh h‹õ¬13 ,0;Ú2;"1-5= Buy or Sell Shares";Ú0'"1= M&S"'"2= GKN"'"3= BR"'"4= ICL"'"5= BL"'Ù6'"6= No Further Trading" rþ Ú>î"Enter a number 1-6 ";Êz$:úz$È"1"Æz$Ç"6"Ëñco=°z$:ì2030î ä ì2010Ú îúco=6Ëþ ø1ën=13 Ì21:õ¬n,0;" ";­0:ón {õ¬13 ,0;"How many ";c$(co);" shares do you"'"wish to buy or sell"'"Enter a +ve number to buy or"'"-ve to sell."  îq:ñq=ºq cúq<-q(co)Ëî¬0,0;("You only have ";q(co);" shares"'"to sell, try again ");q:ì2070  múq+q(co)>999çËî¬0,0;"You may only hold 999 shares of"'"any stock, try again ";q:ì2070 *Uúq*p(co,nrot)>cshËî¬0,0;"You can't afford it. Try again ";q:ì2070 4ñq(co)=q(co)+q >ñcsh=csh-q*p(co,nrot) H í1500Ü R ì2000Ð Îlû:ñday=day+1:ñnrot=day-20*º((day-1)/20):ñnrot1=nrot-1+20*(nrot=1) Øën=1Ì5 âñd(n)=d(n)-1 ì4ñp(n,nrot)=p(n,nrot1)+º(e(n)*(.7€3333+.6€™™™*¥)) ö6úd(n)Ç0Ëñd(n)=1+º(¥*10 ):í3000¸ (úp(n,nrot)<20Ëñp(n,nrot)=20 *úp(n,nrot)>340TËñp(n,nrot)=240ð ón þ Â:ñco=n:ñde=¼(¥-¥):ñden=º(¥*10 +2)*de:ñe(co)=den Ì"ì3030Ö +10 *º(8*¥) ÖAõ"Major ";d$(co);" industry"'"strike ";:úde>0Ëõ"averted":þ Û õ"planned":þ àKõd$(co);" industry affected"'"by import duty ";:úde>0Ëõ"reduction":þ åõ"increase":þ êEõ"World Trade Conference predicts"'d$(co);" ";:úde>0Ëõ"boom":þ ï õ"slump":þ ôLõ"Senior ";c$(co);" manager ";:úde>0Ëõ"wins award"'"for efficiency":þ ùõ"named in"'"fraud case":þ þiõ"Scientists announce discovery"'"that could make ";d$(co)'"industry ";:úde>0Ëõ"more profitable":þ õ"redundant":þ =õ"Government announce new"'d$(co);:úde>0Ëõ" subsidy":þ õ" tax":þ =õc$(co);" chairman predicts":úde>0Ëõ"higher profits":þ õ"more layoffs":þ þ ¶ú¥<.6€™™™Ëþ ÀEñde=¼(¥-¥):ën=1Ì5:ú¼(p(n,nrot)-180´)=deËì3540Ô Ê=ñp(n,nrot)=p(n,nrot)+de*(5+º(6*¥)):ñe(n)=e(n)+de Ôón Þ.úde>0Ëì3570ò +10 *º(¥*5) è"ì3620$+10 *º(¥*5) ò"õ"Chancellor promises less tax":þ ü>õ"Trade Secretary announces major"'"deals with Arab states":þ ?õ"""Fall in interest rates soon"""'"says Treasury spokesman":þ  õ"New trade links with China":þ 3õ"Tory popularity grows as"'"unemployment falls":þ $3õ"Employment secretary predicts"'"gloomy future":þ ."õ"Interest rates rise by 3/4 %":þ 8:õ"CBI chairman has little hope for"'"industrial growth":þ B%õ"TUC talk of general strike soon":þ L&õ"Labour party win key by-election":þ t