EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  N  /"-s%1!`yS)"/"1*){2f!"+2k2i!)K!e뇅o0$~#fo*-{%sx}5N 9Ueqv|&0,=!(=! (=! ( =!(!^#V 9!( _N(Y yYȯ29! 9! 02%9!H:02k!o~#(˿y~#(!c, Drive : $ad Datarite Protecto Sectorot Readyo Driveile Lockrive Lock Try Again(Y/N)?$ Unlock(Y/N)?$ Drive No.(0-3)?$ Press any key to abort:$!$~6 ͐  :$   2$>> O> O:#y & !"4 5 5 60 >^O@͐y > O:" ͩ  >#OH:"!!> O~$#͐:"2!*)N# l l 8x(:"2#ͮx(#~y:#(!"2#͡!#5 ( :!!"05͡8 0 ͐#wyx p> O /*y(  : !q&> 2+*)~(~!#8y >23>#+~w:O|^#VS_#"B##"D##"F##H*J>ɯ*Dw#w*Fw#w<2c!"u*u#"u*WR06&:u2t ͭ:cOͲ2cͧQ!u~#<͊ͽ!3454!y[@'ͷ(*ͷ(*u<<"p"w!pN#F*F^#V*D~#foyx0 *PR+*P8 yx8#*]"DM*Ds#r*Fs#rR"DM[_z(N!!RN:n G>O:m (O ^#VIi"p|:R*p)= "r:S_:no"p:T 2m~2l~ 2n:<=<yw#xw:<=!*<ʹE!<*W#*Bs#r ~! ˾`iͣ%!*H:to$ 6[u*B{#z9r+s*w[[R*H#[L*w ( 9w  &OͭͽS@K@KH$y<_W888*N ~ ʹ w& N#Fy(*UB#2go"<">ͣ:f!:f2*>ʹEKU888*N6# x [Y*Ns#r%*B6#6=("&>(: #~$ =2+F!>:T/GyO >2d!hq"'%=(S(90D&:hOy($?(x ( ( N͙ # :u2+!d~0 w6|2+x ͪk&6͖ͼPYy( ʹ0*U{z0BKʹ00>w~#+w#w+ 2+2u2v~ͬ&  '# ! #  8 w ~>2aÓ!+51 F6ͬp w# w F~ɯ2ax~ <w ( G:T!a( !4~(!ͬ :b<(Xx( ͹͞ç!Á  >2e>2b͞!l8 !H ?Copyright (C) 1984/85, Xtal Electronics !8> > _21ͭ;No Fil< 7ȷ!+#N8#z(##~ &G!()%䇇!:2a{_W~˿_#( +!F#x(~2ww! "Ì:_:!(=~W0_> ډ=_.:;<> !~Ʌo$2̀É!2[ISK( /G:(:x85G ~ +# x&ow|g{0_ PXB0 sW*K~ ( (_#>?̀z!6#~  6?#2###^#VS!"!6? :=_|(9xL͒ W*ͫ>k Size,[ͫ>k Free,ͫ>k Tota:=Ͷ ý=!o ~ ~##( [S~ : ͎> ~> (>*ͷ>.ͷ:G)g_~#_!"|!4Fͭ:=_L+\ : >ͽ_A >Y2FY !\w w ~ ( > Unlock(Y/N)ͽY \́\͖<( > Erase! '‰ͳ ( S‰ SI~ͳ (S‰ [I!n( Block(sn̅(%!͚ R8;Mem Ful= . ҉2+zÚ: :(k= 6C#6O#6Ms*I!~2>~22\!!~(#x2W1+z s/ /"-Track-Info  N ͆2n:+ w(̓Ͱ͊>ç  > >2e2b͞0w 1I2g( iDMC| >ç"p :gO s#r:+̓:e 1 .*Hw#ͭ*r"ṕ:SG# "pͧ́:n!l8w4 :e ͆!+~ =2n6:e O:nw :lw2e~!Gx~"GOxGn#,-. Hw y x(..:+<(&q pͳ:+< . (X.:+<(ç6}2+ÁN! ~态O>G~G!~G}! ͪ!6#6#6&͐_y#x#{8s+p+qͼ  ͐q#p#w>2i~=2f0:2j~2kw:w?( ~ ?4 ͬ *' ͼ*H[@ {:dç*>:ç*N*<*J"+:f :ç2*)}/_|/*>W}_*<">}o|g"<:i(6:k( w:j2f*/*1*+}D ^369=AEKHROUX[ϚϛϜyϞyϟyϠϡ϶ϷϸϷϹϺϻ1S!!:0Xs#r Is#rͨ!O!:Ow+> 9!"!"S!"01!OϤ!~8w!BOOT ERROR 0::::(^?P  !"#()*+012389:;@ABCHIJK $%&',-./4567<=>?DEFGLMNOϿ XtalDOS 2.00 (C) Xtal 1983/84/͎i }iʹ *ʹ ԎyTrack-Info  N " }}"515,13::@6,18;" A game of business decision "31,11:::" PRESS 'I' FOR INSTRUCTION"." OR THE 'S' KEY TO START":4,11Z$~$:Z$~"i"{Z$~"I"s40Z$~"s"{Z$~"S"s9021 :90:(40:5:@0,2;" You are the sole newspaper publisher"%*" in a town of 100,000 people.".,:" Your main competitors are the local"+." commercial radio and TV companies."10:" As editor, you will be asked to select"/2" from ten news stories, the 4 headlines"-4" that will make your paper sell well."16:" You also have space for two adverts on"R8" the front page. Try to select the ones that will pay the most for space.":.>" You'll have to settle union problems."/@" These need to be dealt with as quickly",A" possible to reduce lost production."1B:" "CT~0r500::7D15,6:@6,21;" PRESS 'C' KEY TO CONTINUE ":4,11EK$~$:K$}"c"zK$}"C"s 69YF::" Your main functions are to decide the number of papers to publish and then"-G" to calculate the optimum sale price."1H:" Factors affecting price will be shown."YI:" You start with a capital of 50,000 and you continue until you have doubled it"*J" gone bust or published 30 issues."L:/N" "TP" The controls for copy selection are"::" A cursor up Z cursor down".S:" and press 'P' to print an item":0T" ":UI~0r500::@V15,6:@2,22;" PRESS 'S' KEY TO START PUBLICATION ":4,11WK$~$:K$}"s"zK$}"S"s87&Z13:BL~5000000:IC~.1:QU~125:P~22T[A$(100),B$(10),C$(10),V(100),VL(10),D$(25),E$(25),AD(25),RV(10),F$(25),GP(100)%\OH~75000:CN~8000:CI~1200:CD~3000]T1~25:T2~265^IC~ICt((20w((10)x10))x100):QU~(QUt((QUwIC)x2)))_BS~0:LP~0:NI~0:PC~901:TA~0:P2~0:S2~0*a7:W$~"B0RCRBRCRBRCRBRCRBRCRBRCRBRCR"bQU~(QUt((QUwIC)x5))15,4::15&T~0r22:"}}}}}}}}}}}}}}}}}}}}":"}}}}}}}}}}}}}}}}}}}}";#6,15:@0,1;" } } }"@0,2;" } } } }} } }"@0,3;" }}}}} }} } }}}""15,6:@6,0;" DAILY ":15,1)T~5r10:@1,T;"}}":*T~12r17:@1,T;"}}":1T~19r22:@1,T;"}}"::15,4!15:@25,0;"Available News"@25,1;""@25,8;"Editorial"@25,10;"Staff are"@25,12;"gathering"@25,14;"news now"(N~0r99:A$(N):V(N)~(QUw(1))tQU: A~1r10&XSCOOP BSSCOOP BS M10MAIN BS M10MAIN BS#M/FILE BSNEWLOW DATLOADER BSOLDLOW DATTRAIN AT 55000$125,"FF FF FF FF FF FF FF FF"13:6,1140 ::04::" }}}}} }}}}} }}}}} }}}}} }}}}}*" }}}}} }}}}} }}}}} }}}}} }}}}}* " }} }} }} }} }} }} }} }}* " }}}}} }} }} }} }} }} }}}}}* " }}}}} }} }} }} }} }} }}}}}' " }} }} }} }} }} }} }}' " }}}}} }}}}} }}}}} }}}}} }}'" }}}}} }}}}} }}}}} }}}}} }}36,11::" }}"*" } Copyright Solo Software }"*Track-Info  N ~((50w(1)))w2:A$(X)~"XXX"s255D@23,Aw2;A$(X);" ";A$(Xt1):B$(A)~A$(X):C$(A)~A$(Xt1):VL(A)~V(X))@23,(Aw2)t1;"Ed. Cost ";VL(A);".00"A$(X)~"XXX"@27,22;"Select"@27,23;"";:P~20@21,P;">":A~10$K$~$:K$~"a"{K$~"A"sPP~u2:270 K$~"z"{K$~"Z"sPP~2:270 K$~"p"{K$~"P"s280 264PtPP2sPP~0PtPP}20sPP~0,@21,P;" ":P~PtPP:@21,P;">":A~At(PPx2) 264A~11s264B$(A)~"XXX"s2640@22,Aw2;o18):TV~TVtVL(A):@22,(Aw2)t1;o18)H:V:NI~NIt1815,1:@H,V;B$(A):@H,Vt1;C$(A):B$(A)~"XXX":15,4(T~1r250::NI}3s:@21,P;" ":300 :264 ,T~0r21.@23,T;o17)::P~20/@21,P;" "1@25,0;"Adverts offered";2@25,1;"";!6N~0r25:D$(N),E$(N),AD(N): 8A~1r10$9X~((26w(1))):F$(X)~"XXX"s313A;@23,Aw2;D$(X);" ";E$(X):B$(A)~D$(X):C$(A)~E$(X):RV(A)~AD(X)<RV(A)~(RV(A)w(1tIC))=F$(X)~"XXX" >:A~10@@27,22;"Select"A@27,23;"";:P~20B@21,P;">":A~10$CK$~$:K$~"a"{K$~"A"sPP~u2:330DK$~"z"{K$~"Z"sPP~t2:330EK$~"p"{K$~"P"s340 F323JPtPP2sPP~0KPtPP}20sPP~0,L@21,P;" ":P~PtPP:@21,P;">":A~At(PPx2) M323TA~11s323UB$(A)~"XXXX"s323V@22,Aw2;o18):TA~TAtRV(A)WH:V:NI~NIt19X15,1:@H,V;B$(A):@H,Vt1;C$(A):B$(A)~"XXXX":15,4&YT~1r250:: NI}5s@21,P;" ":350 Z:323^:T~0r22_@22,T;o18):`@22,1;" ":a@27,23;" ";c@25,10;"Paper Ready"d@25,11;""e@26,13;"To Print"f@26,14;"";gT~1r3000:hTA~TAw500:BS~1:400j900:ZZ~03kCL}0sLP~LPt(CLwOH)x100:CL~0:LP~(LPx100)w1004l OA~1sOA~0:OH~OHw((RSx300)t1):OH~(OHx100)w100nCL~0:905:ZZ~03oCL}0sLP~LPt(CLwCD)x100:CL~0:LP~(LPx100)w1003pOA~1sOA~0:CD~CDw((RSx100)t1):CD~(CDx100)w100qLP}0sS2~0:400 w500115,4::" Cost of newspaper to date"(" ".:" ITEM COSTS INCOME NETT"0" "%EC~TVw100:EC$~((ECx100))t".00"" Editorial";q13);EC$TA$~((TAx100))t".00"$TC~TAuEC:TC$~((TCx100))t".00""" Adverts";q22);TA$;q31);TC$&FL~(((5w(1))t2)x100)t1:BS}1s425OH~OHwFL:OH~(OHx100)w100OH$~((OHx100))t".00"$TC~TCuOH:TC$~((TCx100))t".00"$" Overheads";q13);OH$;q31);TC$LP~0s435LP$~((LPx100))t".00"$TC~TCuLP:TC$~((TCx100))t".00"(:" Strike Cost";q13);LP$;q31);TC$BS~1s490CP$~((CPx100))t".00"$TC~TCuCP:TC$~((TCx100))t".00"#" Printing";q13);CP$;q31);TC$BS~2s490SF~NSwSP:SF~(SFx100)w100SF$~((SFx100))t".00"$TC~TCtSF:TC$~((TCx100))t".00" " Sales";q22);SF$;q31);TC$ BL~BLtTC0" "(" Number of copies sold ";NS0" Number of copies wasted ";NCuNS:EP~1BL$~((BLx100))t".00"+:" Running ledger balance ";BL$EEP~1sEP~0:15,6:@3,22;" Press 'C' key to publish again ":4952:""'@7,22;"Press 'C' key to continue"K$~$:K$}"c"zK$}"C"s495FL~(((15w(1))t5)x100)t1-CN~CNwFL:CN~(CNx100)w100:CN}9999sT1~24FL~(((15w(1))t5)x100)t1.1,CI~CIwFL:CI~(CIx100)w100:CI}999sT2~25FL~(((15w(1))t5)x100)t1CD~CDwFL:CD~(CDx100)w100(15,12:: o12);"Production Costs" o12);""0:" ITEM COST PER 1000 COPIES"0""5IM$~(CN):LS~(IM$):CN$~(IM$,LSu2)t"."t(IM$,2):" Newsprint";qT1);CN$5 IM$~(CI):LS~(IM$):CI$~(IM$,LSu2)t"."t(IM$,2) :" Printing Ink";qT1);CI$5IM$~(CD):LS~(IM$):CD$~(IM$,LSu2)t"."t(IM$,2) :" Distribution";q24);CD$8&:::" How many are you printing? ";NC$:NC~(NC$)H'NC}100000s:" There are only 100,000 people":W$:T~0r1500::508(NC1000sW$:508)CP~((CNtCItCD)wNC)x1000+CP~(CPx100)w1005.IM$~(CP):LS~(IM$):CP$~(IM$,LSu2)t"."t(IM$,2)>0TC~TCuCP:IM$~(TC):LS~(IM$):TC$~(IM$,LSu2)t"."t(IM$,2)5BS~2:400.X:" Newspaper Circulation Department",Y" "ZLP1s610.[:" Because of bad industrial relations"$\NC~NCu(LPx50):NC1000sNC~1000.]" you have only printed";NC;" copies of"^" your newspaper today"0b:" The paper is about to hit the streets"$dWT~0sWT$~" hot and sunny":SS~4$eWT~1sWT$~" wet and windy":SS~3#fWT~2sWT$~" cold and icy":SS~5%gWT~3sWT$~" warm and humid":SS~2#hWT~4sWT$~" dry but cool":SS~6#j:" The weather today is";WT$lTB~(5w(1))t1:TB}3s625_n:" You have just heard that the local TV station has been off the air all day":SS~SSt3qAO~(6w(1)):AO}3s630Ys:" A local business-man has put a leaflet into every paper offering cheap whisky"3t" if you take the leaflet to his pub":SS~SSt5vSB~(3w(1)):SB}1s640Zw:" There is a jackpot to be won in your Spot-the-Ball competition today":SS~SSt2>@1,22;:" What is the price (in pence) ? ";SP$:SP~(SP$)-STrack-Info  N ng factory":990:CL~CLt100 961G:T~1r7:::" The drivers call an all-out strike":990:CL~CLt100 9616:T~1r7:::" The drivers' resolve strengthens".:" and they stay out!!!":990:CL~CLt250 961-:" What are you going to do about it?"s:" <1> Give in to their demands <2> Negotiate a settlement <3> Turn them down flat"(SL~0s" <4> Sack the ring leader"+" Your printers demand a";RS;"% rise";:" What percentage do you offer? ";OF:DF~(4w(1))t1OF}99s1000OF5s10108OF}(RSuDF)s:" Offer accepted":T~1r2000::OA~1:@TY~TYt1:TY}3s:" Negotiations have been broken off":1058E:" Not enough mate - try again"::RS~RSu((DFt1)x2):RS5sRS~5 TY}3sT~1r1000::TY~2:933T~1r500::10010:" Get lost, you skinflint!!!":TY~3:1005*" Your drivers demand a";RS;"% rise";:" What percentage do you offer? ";OF:DF~(4w(1))t1OF}99s1050OF5s10608OF}(RSuDF)s:" Offer accepted":T~1r2000::OA~1:@ TY~TYt1:TY}3s:" Negotiations have been broken off":1058E!:" Not enough mate - try again"::RS~RSu((DFt1)x2):RS5sRS~5 "TY}3sT~1r1000::TY~2:973#T~1r500::10510$:" Get lost, you skinflint!!!":TY~3:1055 LTV~0VN~0r99:A$(N)~" ":[N~0r25:F$(N)~" ":-`::" Press 'P' to publish again"-e:" or 'G' to see a progress chart"jK$~$:K$~"G"{K$~"g"s1500tK$~"P"{K$~"p"s95 ~1130:T~1r500:\@0,4;" Despite valient efforts to withstand the financial burdens of the newspaper"*" man you have been forced into the"." eager hands of the official reciever."Y::" You managed to publish";IP;" issues"/" ";15,6:@0,22;" Do your want to go through it again ?"K$~$:K$~"N"s40000K$~"Y"s 1216:T~1r500:Y@0,4;" You are obviously a businessman who has a considerable future being able(" to cope with the union problems,Q" rising costs and more than double your original stakes at the same time.W:" You managed to publish";IP;" issues"3:" and ended with";BLx100;" pounds in hand"/" " 12154:::" CONGRATULATIONS - You have managed to"0:" to survive for the required 30 issues"0:" with a closing balance of `";(BLx100)- BL}9500000sZ$~"truly incredible":1320+ BLP1{SP}99sW$:@32,22;" ";:640"NS~((ECwSS)xSP):NS}NCsNS~NC:1,11:::" As the day wearily drifts into evening"/:" you watch with baited breath as your"1:" wonderful publication is bought by the"1:" hopeful, eager public. Maybe today is"/:" the day that you will make your long"0:" sought after fortune or will you, yet"1:" again be forced to admit that the life".:" of a newspaper publisher is forever"+:" shrouded in despair and poverty?"/" "815,6::" If you depress any key now you will be"/" "/" allowed to see the final balance sheet" ~0s670BS~3:400:BL0s1200BL}9999999s1250IP}30s1300T15,4::@5,10;"CLEANING DOWN PRINTING PRESSES":IP~IPt1:GP(IP)~(BLx100):1100SK~(100w(1)):SL~0:P2~1(SK}10)w(SK90)s15,6::910SK~(100w(1)):SL~0:S2~1(SK}10)w(SK90)s 15,6: 9502T~1r30:"'C1R0"::@11,1;"INDUSTRIAL ACTION" TY~0/:" The printers demand higher wages due"-:" to unsocial working hours and your"1:" intention to introduce new technology."RS~(12w(1))t9+:" They want a rise of";RS;"% - NOW" 990#K$~$:K~(K$):(K1)t(K}4)s921/K~1sOH~OHt(1t(RSx100)):OH~(OHx100)w100:K~2s1000(K~4)w(SL~1)s921K~4sSL~1AC~(5w(1));AC~2s :T~1r7:::" The workers' resolve is broken"2AC~2s:" They return to work":T~1r2000::ZZ~ZZt1:ZZ~2s940ZZ}2s945;:T~1r7:::" The workers threaten to stop supplies">" essential ink and paper to the factory":990:CL~CLt100 921G:T~1r7:::" The workers call an all-out strike":990:CL~CLt200 9216:T~1r7:::" The workers' resolve strengthens"," and they stay out!!!":990:CL~CLt250 9212T~1r30:"'C1R0"::@11,1;"INDUSTRIAL ACTION" TY~01:" The drivers have demanded higher wages"1:" due to bad conditions and your refusal"0:" to keep their vans properly serviced."RS~(12w(1))t9+:" They want a rise of";RS;"% - NOW" 990#K$~$:K~(K$):(K1)t(K}4)s961/K~1sCD~CDt(1t(RSx100)):CD~(CDx100)w100:K~2s1050(K~4)w(SL~1)s961K~4sSL~1AC~(5w(1)):AC~2s:T~1r7:::" The drivers' resolve is broken"2AC~2s:" They return to work":T~1r2000::ZZ~ZZt1:ZZ~2s980ZZ}2s985<:T~1r7:::" The drivers threaten to call out their"::" brothers in the printiTrack-Info  N }8000000sZ$~"extremely good":1320,  BL}7000000sZ$~"very impressive":1320/! BL}6000000sZ$~"well above average":13206" BL}5000000sZ$~"a competant performance:goto13209# BL}3500000sZ$~"reasonable but not brilliant":13203$ BL}2500000sZ$~"somewhat below average":13203% BL}1500000sZ$~"a mediocre performance":13200& BL}1000000sZ$~"a considerable loss":1320$'Z$~"a financial disaster":1320(:" which is ";Z$;"."/E" " F1215x:T~1r500:yIP}29s1300Wz@0,4;" You have given up the fight before completing the required 30 issues"Y:::" You managed to publish";IP;"issues" 1308:@13,0;"PROFITABILITY"T~20r1pu1:" ": @0,0;T~20r0pu1:Tw5:" ";("",35)" ";:T~1r30N~TN}9sN~Nu10:1534((N),1);:1" ISSUES 1 2 3";SH~3:TZ~1rIPSH~1sSH~3:1555SH~3sSH~1SL~(GP(TZ)x5000)u1SH~1sAA$~"}"SH~3sAA$~"" HT~19uSLT~20rHTpu1@(4tTZ),T;AA$":='CP$~"CAPITAL":T~4r10:15,6:@0,T;(CP$,Tu3,1)::15,4,T~1r2000:C115,6:@1,23;" Press E to end or P to publish again ";:15,46K$~$:K$~"P"zIP}29s13007K$~"P"s95;K$~"E"s1400 ?1590M NBAD ROAD,ACCIDENT,SEX CASE,IN COURT,NEW DRUG,DISASTER,MAN DEAD,IN RIVERL!NAIRLINER,CRASHES,STREAKER,AT LORDS,FOURTEEN,ARE HURT,BUILDING,COLLAPSEM"NMORTGAGE,RATES UP,ECONOMIC,TROUBLES,NURSE IS,ATTACKED,DR SPOCK,IN COURTI#NHUNDREDS,CRIPPLED,NEW KING,IS DYING,MURDERER,HANGED,FILMSTAR,KILLEDI$NRICH MAN,KIDNAP,HITLER'S,LOVELIFE,ESCAPING,GAS RISK,SEX SHOP,CLOSEDJ%NPOP STAR,SCANDLE,CAT DIES,IN FIRE,NEW TOMB,IN EGYPT,MILLIONS,AT RISKG&NMAGAZINE,BANKRUPT,WIFESWAP,HORROR,FOUND IN,SAHARA,NEW FILM,BANNEDK'NTAKEOVER,IN CITY,VIOLENCE,AT MATCH,BIG BANK,ROBBERY,SHAME OF,GAY LORDC(NGAS T,GOES UP,SURPRISE,BUDGET,WALL ST.,CRASHES,GIRLS ,STRIKEH)NFILMSTAR,IN JAIL,ZOO LION,ESCAPES,CAR HITS,2 JUDGES,MINISTER,SLAINJ*NU.S. SPY,CAUGHT,DEAD RAT,IN CAKE,SURGEONS,ARE SUED,CAR BOSS,HITS OUTL+NFOOTBALL,CLUB OUT,HEATWAVE,FORECAST,NEW YORK,ON FIRE,FLOOD IN,CORNWALL',NMT. ETNA,ERUPTS,FAR EAST,AT PEACEM-NBOMB HIT,OLD LADY,DOG DIES,OF MUMPS,PRINCESS,IN SMASH,HOSTAGES,RELEASEDRN1,5,11,5,1,12,11,12ENGET SOME,MILK NOW,100,DUBONNET,DRINK ME,80,CALL THE,T.V. MAN,35=NGET GOOD,TEA HERE,40,RING ,CAR HIRE,55,FARQUARS, D,50DNDECOR BY,DE BARON,60,NEW SOAP,BY LANOS,80,COTE FOR,PERFUMES,95DNMIX WITH,KENWOODS,75,OUR TEAS,ARE BEST,25,BABYCHAM,FOR A DO,85DNEAT BEEF,AND LAMB,70,CREAM IS,GOLD TOP,65,DOG FOOD,FROM PAL,85DNHAIRCARE,FROM ADA,35,YUNGUN'S,TOY DEPT,45,OUR FOOD,IS GREAT,35DNBUY SOME,WINE NOW,30,DOGGIBIX,ARE GOOD,60,GAS C.H.,FOR HEAT,65DNPORTUGAL,IS SUNNY,75,SAUSAGES,BY WALLS,65,BACON IS,THE BEST,75/NFOX FURS,BY YASIM,55,SUITS BY,RICHARDS,35CNEINSTEIN,FOR YOU,80,BUY SOLO,SOFTWARE,95,FOR HIFI,GET ACME,90N1,19,11,19:@1,15:40:" To see our extensive range of EINSTEIN"1A" software, send for our catalogue today":4B15,6:@3,4;" "-C@3,5;" "-D@3,6;" "-E@3,7;" "-F@3,8;" "-G@3,9;" ".H@3,10;" ".I@3,11;" S O F T W A R E ".J@3,12;" "4L1,7:@3,14;" ".M@3,15;" 95B BLACKPOLE TRADING ESTATE ".N@3,16;" WORCESTER WR3 8TJ ".O@3,17;" ".P@3,18;" TELEPHONE (0905) 58351 ".Q@3,19;" "RT~1r1000:8S1,15::" Hit any key to clear or R to re-start "TK$~$:(K$)~0s40020UK$~"R"{K$~"r"s V4:15,4:40::"M/FILE" 4:15,4:40::"M/FILE">#@u}& xpt=(zzTrack-Info  N hods.:" for these major arithmetical topics.0::" Program 6 demonstrates some graphics.:" power of Einstein, but is also used.:" to illustrate the many definitions &,":" formulae assosciated with circles.6,15,6:@3,22;" Press any key to return to menu "6Z~:Z~0s1590:1000#@6,2:7,119:8,16:12,30:13,0 2790%4::@10,10;"LIGHTNING TABLE"!2030:N$(6):N~1r6:A$(N):Gfunny,silly,sooper-dooper,scrumptious,fabulous,hilarious,pseudo -/1,0:N~1r7:R~(100)t100 :16uN:S~(5)u2]R,191rRt30,154:Rt30,154rRu10,134tSw10:Ru10,134tSw10rRu50wS,1:I~1r400::N~3s2790; :(14):@10,10;"LIGHTNING TABLES":I~1r1000::1:4::T(5),T$(5) :" What is your name?"*:" Type in and press ENTER.4:" > ";N$>NR~(6)t12H:" What a ";A$(NR);" name. Mine's Einstein!=R:" Shall I load previous low times?":" Answer Y or N.;\Z~z223:Z~78sNM$~"OLDLOW.DAT":Z~89sNM$~"NEWLOW.DAT"fNM$~""s2140 pNM$,FD$ z#FD$N~1r5:T(N):T$(N): FD$/:" TYPE THE ANSWERS AS QUICK AS YOU CAN.&:" 15 SECONDS PENALTY IF WRONG!(:" TRY TO BEAT PREVIOUS LOW TIME.!:" Press any key to start.Z~:Z~0s22502:15,4:32:1A(X)~(Mx153w100t.5)x100 M~0:K~0 Q~1r10 A~(9)t4:B~(9)t4 C~AwB:S~((C))u1> A}9s7,40,100,3,49:6,80,100,3,At38:6,80,100,3,At48A$ B}9s5,160,100,3,49:4,200,100,3,Bt38:4,160,100,3,Bt48. @15,12;"X"8 ~"000000"B N~1r1000000 L M~Mt1V Z~:Z48s` Z$~Z$t(Z):N~1000000:j U~Ut1:USs2370:U~0t Z$ ~ V~(Z$)  O V}CsM~Mt2295:" No.Answer should be";A;" times";B;" =";C::" Correct!" V~CsK~Kt1% :" Time so far";A(M);" secs."$ Q}1s:Q;" questions answered. N~1r3000:::Z$~"": & ::" Score was";K;" out of 10."% :" Time was";A(M);" seconds." M~A(M):N~5" MT(N)sT(N)~M:T$(N)~N$:2630 N~0s2580:N~Nu13 T(N)}T(Nt1)sT(N),T(Nt1):T$(N),T$(Nt1):2560 NF$~"NEWLOW.DAT"  NF$,FD$ ( #FD$2 N~1r5:T(N):T$(N) < :FD$F :" LOWSCORES LISTP " +Z N~1r5:N;" ";T(N);"SECS";q20);T$(N):d :" Another one? Y/N)n :" But press C for change player."%x Z~z223:Z~89s2260:Z~78s10003 Z~67s:" New player's name? ";N$:2260:2680 1000 OLDLOW GENERATOR T(5),T$(5)* N~1r5:T(N)~99994tN:T$(N)~"LEIBNIZ": NO$~"OLDLOW.DAT" NO$,FD$ #FD$ N~1r5:T(N):T$(N): FD$ THUNDER 55000 40::q0,32):(44):4 A$(30)N$~"TRAIN.DAT" (N$,FD$ 2#FD$<N~1r30:A$(N): FFD$ PN~1r30Z129tN,A$(N)dn2:15,4:x1N~240r16pu4NN~240rNpu10:3,N,159,1,1324,N,143,1,1335,Nt16,159,1,1346,Nt16,143,1,1357,Nt4,175,14,1388,Nt20,191,14,139 430NN~240rNpu5:9,Nt32,143,10,77 710,Nt48,135,6,6511,Nt64,127,7,8412,Nt80,119,5,7213,Nt96,111,2,69"430:7,Nt4,175,9,138,14,Nt112,103,13,77615,Nt128,95,11,65@16,Nt144,87,6,71J17,Nt160,79,10,73 T7^18,Nt176,71,1,67h r450|N~1r2000:5N~1r1000: 1000#6,2:7,119:8,16:12,30:13,0&6,2:7,119:8,16:12,120:13,0:4:1,10:32015,6:o35)"MATHEMAGIC SELECTION MENU"o36) 1,10&:" (1) Lightning multiplication:" (2) Ton-up Game:" (3) Equation Solver$:" (4) Fractions.:" (5) Decimals8:" (6) CirclesB:" (7) Percentage profit"L:" (8) Program descriptionsV:" (9) End Program1`15,6:@2,22;" Press a key 1 to 9 ";jZ~:Z49{Z}57s1130tZ~56s1230~Z~57s40000Z~49s2000Z~50s3000Z~51s4000Z~52s5000Z~53s7000Z~54s8000Z~55s100004:15,13400:" These programs have been developed for.:" the Einstein from the author's book: 15,6Z:" Maths + Computers = Fun. G.T.Childs. Sigma Press " 15,13." Where needed instructions are given in0:" the programs, and these notes will be0(:" a guide to the aims. The programs are02:" designed for the age range 9-14, but0<:" some deal with more advanced topicsF:" than others.8P15,6:@2,22;" Press M for menu or C to continue ""ZZ~z223:Z~0s1370:Z~77s1000d15,13:.n:" The first two programs are intended.x:" to be an entertaining way to acquire&:" familiarity with the tables..:" They can prove adults may not always,:" be as good as they think they are!2::" Program 3 is an unusual facility, that0:" solves, or checks any simple equation.:" even when entered in algebraic form.815,6:@2,22;" Press M for menu or C to continue ""Z~z223:Z~0s1480:Z~77s100015,13:0:" On the other hand programs 4, 5 and 70:" are teaching programs, since Einstein0:" goes through all the steps and metTrack-Info  N $ 6,31:7,71:8,16:12,100:13,0 N~1r200::6,20 9,16:12,50:13,0 N~1r100: 10,16:12,250:13,0" N~1r600:, T 4::128,160,60,.4:120,160,10:1,10:@16,3;"TON UP GAME ":15,4 :@0,9;V " A number appears on screen and climbs up it. While it is on the screen youV " must type in a number, that goes into the screen number exactly. You scoreV " the lower of your number and the answer to the division, example screen numberV " 56, your number 4 score 4, 3 score 0, 8 score 7. You have ten goes to try toM " score a ton, (over 100). It is nearly impossible except on level 3!( @4,23;" Press a key to continue."; ZZ~:ZZ~0s3070  2: ::" Press 1 for slow." :" Press 2 for medium..& :" Press 3 for fast with hard numbers."0 Z~u48 :Z1{Z}3s3120: J~40uZw13$D 40,42,48,54,56,60,63,64,66,121$N 72,75,80,81,84,88,90,96,100,99+X 108,110,112,120,125,128,132,144,35,36-b 169,104,221,323,117,324,361,289,168,156l W~30:Z~3sW~40v 9:15,4 A(W)::3140 N~1rW:A(N): @10,23 F~23:Z~3sF~12 R~(W)t1::A(R)@ B~1rF:N~1rJ:Z$~"":Z$~$:(Z$)}0sA$~A$tZ$:(A$)}4sA$~"" :" ";A$: C~(A$):A$~"" C~0sS~0:3330! (A(R)xC)}A(R)xCsS~0:3330 D~A(R)xC DCsC~D S~C! :@7,4;" You have scored";S T~TtS:U~Ut1Q U~1s:" That was your first go!":@7,8;" Total score";T; " in";U;" goes." U~10s3400)* ::" Press space bar to continue."4 Z%~:Z%}32s3380 > :3220H T}99s3430!R @7,23;" Another game?. Y/N"A\ Y~z223::Y~89sT~0:U~0:9:15,4::3220:Y~78s1000:3420f 2:1,10:32;p 1:1,60,160,4,84:2,120,160,6,79:3,180,160,13,78)z @3,13;"You scored";T; "! WELL DONE! 0,0,15,0,5,0:1,0,11,0,5,0 3H "+C3A6F5R2+C3A6F5R2C3F5R1A3+C5R1A3#A6R3G3#A6G5R2+C3A6F5R2","R","R"S "A3G5R1D3E5R1C3F6R4","V1F3D5R1-#A3C5R1-#A3-A6R4","V1C3-#A5R1-F3-G5R1-G3-F6R4" 2:::4:15,6: 4300-:" Enter your equation as written but,:" 2X + 1(" write _______ as (2X+1)/4" 4):" Only use X, (no other letters.)/:" The program will only solve equations/:" if they are SIMPLE. It won't solve " 2/" x = 4, but 31(2X-17)-131(5-3X)/7=11 OK!,:" TYPE IN YOUR EQUATION! (and ENTER):" ";A$:C~0"E$~A$:4310:A$~E$B,N~1r(A$):(A$,N,1)~"="sB$~(A$,Nu1):C$~(A$,(A$)uN):C~Ct176:C}1s:" ONE = SIGN NEEDED!":T~1r2000::4000@X~0:G~(B$)u(C$)JX~1:H~(B$)u(C$)TX~7:J~(B$)u(C$)E^(JtGw6u7wH)}.001s:" NOT SIMPLE. TRY AGAIN":T~1r2000::4000;hG~HzG~0s:" ANY SOLUTION POSSIBLE":T~1r2000::40006rG~Hs:" NO SOLUTION POSSIBLE":T~1r2000::4000G|1,10:::" Equation ";B$;" = ";C$:X~Gx(GuH):X~(Xw1000t.5)x1000X}10sX~(Xw10t.5)x10X}100sX~(Xt.5)1X}1000s:" X TOO LARGE TO ENSURE ACCURACY.:" Solution: X = ";X:" Another one? Y/NZ~z223:Z~89s:4000Z~78s1000:4280%,$;" error in equation.":4110 L%~(E$)N~1U~((E$,N,1))U~120sU~88;U~88s4370:U~120sU~88:E$~(E$,Nu1)t"X"t(E$,(E$)uN)&U}64zU91s:" ONLY USE X":4110V~((E$,Nt1,1))V~120sV~88-&U~41{(U}47zU58){U~88{U~120sMH~2:44500U~88zV~80s4450':(U~88{U~85)zV}64zV91s4470:4450%DU}47zU58zV}64zV91s4470:4450NV~40{V~88{V~85s4470XU~41zV}47zV58s4470bN~Nt1:NL% s4330l1vE$~(E$,N)t"*"t(E$,L%uN):L%~L%t1:" ";E$:2:&12E,&FFFE: 0: 25,10:(44): q0,32): 4:2:15,4::" This program will::" 1. ADD:" 2. SUBTRACT:" 3. MULTIPLY:" 4. DIVIDE$:" one fraction with another.-:" Press the number you want.(1 to 4.)Z~:(Zu50.5)}2s5090-::" Enter your fraction in 3 stages.":" FIRST FRACTION. 6320 W1~W:N1~N:D1~D:" SECOND FRACTION. 6320(W2~W:N2~N:D2~D2R$~"+-*/":S$~(R$,Zu48,1) <1,5:F:q7);N1;q27);N2PD~D1:N~N1:6600:U$~D$ZD~D2:N~N2:6600:V$~D$"dW1;q7);U$;q20);S$;W2;q27);V$nq7);D1;q27);D2 xGS~1s ::H$:" Is this correct? Y/N%Y~z223:Y~89s5290: Y}78s5270#::" Let's try again!":5020Zu485320,5320,5900,5900:" Another one? Y/N+Y~z223:Y~89s5000:Y~78s1000:5310)A~D1:B~D2:15,4: 6480::GS~1:5190N1~N1wLxD1:N2~N2wLxD2'B$~" Find the common denominator."MC$~" Multiply each numerator by the common denominator / original one.A$~" the whole numbers."!E$~" Simplify the fraction."Z~50s5480:" Add";A$/W~W1tW2:W::B$:L:C$:5660:E$:N3~N1tN2"N3Ls5460,X~((N1tN2)xL),6" It is top heavy so divide the bottom'@" into the top, add";X;" on to";WJN3~N3uLwX TW3~WtX ^5710:hW2W1s5520rW1W2s5510|N1uN2~0s5520 5870" Subtract";A$W~W1uW2:W"B$:L:C$:5660:E$:N3~N1uN2N3}0s56201" You can't take";N2;" from";N1;" so borrow." a whole number, and mTrack-Info  N R~14:7090:F$~A$:G$~B$%:" ";D$;E$,(Zt41);" ";F$;G$Z~1s7155Z~2{Z~4s7285Z~6s7430:" Another one? Y/NZ~z223:Z~89s7000Z}78s7075 1000L~0:A$~"":B$~"":C$~""@10,R;:K$~$ K~(K$)0K~25s(C$)}0sC$~(C$,(C$)u1):L~Lu2:71350K~25s(A$)}0sA$~(A$,(A$)u1):L~Lu2:7135K~13s7145K~46sA$~C$t".":C$~""K48{K}57s7095 C$~C$tK$@11,R;A$;C$;" "L~Lt1:L6s7095A$~""sA$~C$:B$~C$0:" Count the figures after decimal point. :" There are";(E$)t(G$))(D$,1)~"."sH$~(D$,(D$)u1):H$~D$ H$~H$tE$)(F$,1)~"."sI$~(F$,(F$)u1):I$~F$ I$~I$tG$!:" Multiply ";H$;" by ";I$AA~(H$):AB~(I$) AC~(AAx1000):AD~(ABx1000)! AE~AAu1000wAC :AF~ABu1000wAD)%AG~AEwAF:AH~(AGx1000):AI~AGuAHw1000)*AJ~AEwAD:AK~(AJx1000):AL~AJuAKw1000)/AM~AFwAC:AN~(AMx1000):AO~AMuANw1000,4AU~AHtALtAO:AV~(AUx1000):AW~AUu1000wAV9AX~AVtAKtANtACwAD&>X$~(1000wAWtAI):X$~(X$,(X$)u1)$CAX}0s(X$)6 sX$~"0"tX$:7235HAXsX$~(AX)tX$M:" This comes to";X$RJ~(E$)t(G$)"W(X$,1)~" "sX$~(X$,(X$)u1)\E$~""sD$~"D$+".""aL~(X$):J}~LsX$~"0"tX$:7265 fS$~(X$,J):T$~(X$,(X$)uJ)k:" ANSWER IS ";T$;".";S$puE$~""sD$~D$t"."zG$~""sF$~F$t"."!(E$)(G$)sE$~E$t"0":7295!(G$)(E$)sG$~G$t"0":7300R~(D$):S~(F$),:" Set it out with the decimal points.:" under each other, put 0's until each$:" number is the same length.:q20uR);D$;E$ :q5);(Zt41);q20uS);F$;G$T~R:RSsT~Sq18uT);("-",Tt9)(E$)6sE$~E$t"0":7345(G$)6sG$~G$t"0":7350$D~(D$):E~(E$):F~(F$):G~(G$)Z~4s74150H~DtF:H}999999sH~(Du500000)t(Fu500000):I~10J~EtG:J}999999sJ~(Eu500000)t(Gu500000):M~1M~1sH~Ht1I~1sX$~"1"S$~(H):S$~(S$,(S$)u1)T$~(J):T$~(T$,(T$)u1)((T$,1)~"0"sT$~(T$,(T$)u1):7395 S$~X$tS$:q19u(S$));S$;".";T$?F}D{(F~DzG}E)sD,F:E,G::" Smaller from larger.":X$~"-"'H~DuF:J~EuG:J0sJ~Jt1000000:H~Hu1 7385"G~(G$):P~(D$tE$):Q~(F$tG$)( Q~0s" CAN'T DIVIDE BY 0!"::: G}0sN~1rG:P~Pw10:Q~Qw10:A$~(P):7490:P$~B$A$~(Q):7490:Q$~B$A$~(PxQ):7490:R$~B$0$:" Make second number whole one by moving0):" decimal point. Move the decimal point0.:" in the first number the same distance.3:" ";P$;" ~ ";Q$8:" Divide, giving ";R$=BM~0>GN~1r(A$):(A$,N,1)~"E"sM~((A$,(A$ake it";L;" over% L;" and add it on to the top." W~Wu1 W0sY~2 N3~N3tLN30s5590:W3~WY~1sW$~"-" 5710%6630::D1~L:D2~L:GS~1:5190::&,N1,S$,N2&0W,"----------------------------" :,,LDNA~N3:L1~L:B~L:64801XH}1s" and cancel remaining fraction by";HbN3~N3xH:L1~L1xH lX$~(W3)vW3~0sX$~" "'Y~2sW$~W$t"BAR ":X$~(X$,(X$)u1) 1,10 ,,N3W$~W$tX$:LW~(W$)D~N3:N~L1:6600:U$~D$ " Answer is";q20uLW);W$,U$ ,,L1 15,4gY~2s" About time you learned bar numbers, & stopped playing tricks on innocent computers!,W5~W1:N5~N1:W1~W2:N1~N2:W2~W5:N2~N5:Y~1y" This will be a negative answer. In the working we shall take the smaller from the larger and put - in the answe 15,4::Z~Zu48':" Make the fractions top heavy. U1~D1wW1tN1*U2~D2wW2tN2 46250>Z~4s6290HA~U1:B~D2:6480RH}1sG$~" Cancel."\U1~U1xH:D2~D2xHfA~U2:B~D1:6480pH}1sG$~" Cancel."zU2~U2xH:D1~D1xH Z5sG$ Z5sG$~" Cancel."s6250:" Multiply."U~U1wU2:D~D1wD2 :UN~D:D~U:6600:U$~D$:D~NU$:D:E~(UxD) F~UuEwDF~0s6230E~0s6210#" Make into proper fraction." 1,10 ,,F:N~F:6600:U$~D$:LS~((E)):" Answer is";q19uLS);E,U$ $,,D .15,48B" This is the answer."LV" Answer = ";E`0jD~U1:N~D1:6600:U$~D$:D~U2:N~D2:6600:V$~D$tU1,,U2:U$,S$,V$ ~D1,,D2 U2,D2D2~0s" Impossible.":S$~"*":Z~5:5940+:" Whole number? (Put 0 if none.)";WWOs6450:W~(K),:" Numerator.Put 0 if no fraction.";NN0s6450:N~(K)N~0sD~1:6400:" Denominator?";D"D~0s" It can't be 0.":6460D0s6450:D~(K) D~0sD~1 N~0sA~N:B~D:6480:N~NxH:D~DxH5H}1sH$~" Computer has cancelled where it can."(2" No minus signs please!"<" Enter it again":: F" ";K:PABs6590 ZJ~AwBdJ~0sH~1:nG~AuBw(AxB)xG~0s6560A~BB~G 6510H~B L~JxHC~A:A~B:B~C:'DL~((D)):DM~((N)):DM}DLsDL~DMD$~" "t("-",DLu1)t" "'@4,23;"Press a key to continue.";YY~0:YY~:YY~0s6640:X:2:15,4:1]:" This program will add,subtract,multiply&b" or divide two decimal numbers.g:" Press + - * or /.&lZ~:Z~Zu41:Z~0{Z~3{Z~5{Z}6s7020q:" Enter first number.";vR~10:7090:D$~A$:E$~B$ {:" Enter second number.";Track-Info  N          )uN)):B$~(A$,Nu1)LQM~0sB$~A$:&VL~(B$):L}2sB$~(B$,2)t(B$,Lu3)[B$~(B$,(B$)u1)1`M0sC$~".":N~1ruMu1:C$~C$t"0"::B$~C$tB$:e(B$)Mt1sB$~B$t"0":7525j@:2:(44):15,4: Jq0,32);T:" 1.Circumference.^:" 2.Radius.h:" 3.Diameter.r:" 4.Arc.|:" 5.Chord:" 6.Tangent.:" 7.Sector.:" 8.Segment.:" 9.Area.:" 0.Display all.%:" Press 0 to 9 or E to end.";Z~z223:Z~69s:1000Z16{Z}25s8130 :4-150,96:144,"00 00 7C 28 28 28 44 00"15:0,0,60<Zu158800,8230,8250,8300,8330,8480,8520,8570,8690,8770N~1r1500:( @4,23;" Press a key to continue "; K$~$:(K$)~0s8210  8000L& 1,9:@1,1;"Circumference = 2";(144);"R."::" (R is radius.)":15,40 : 14,13:@0,2;" Radius."D R~(1)w2w:15,4N X~60w(R):Y~80w(R)X 2:0,0rX,Yb $l 1,3:@0,2;" Diameter.":15,4#v R~(1)w2w:X~60w(R):Y~80w(R) 9:uX,uYrX,Y: 6,10:@0,2;" Arc." R~(1)w2w S~(1)w2w R}SsR,S SuR}s8340 T~((SuR)w180xt.5) :" Angle at centre" T$~(T):(T$)}3sT$~(T$,3) " ";T$;" " :" Arc length " " 2";(144);"R *";T$;"/360 1!U~(SuR)x200 !N~RrSpU:60w(N),80w(N):! !1,2:@0,2;" Chord."*!R~(1)w2w:S~(1)w2w+4!13:60w(R),80w(R)r60w(S),80w(S)>!H!9,1:@0,2;" Tangent."R!R~(1)w2wL\!S~60w(R)t45w(R):T~80w(R)u60w(R):U~60w(R)u45w(R):V~80w(R)t60w(R)f!1:S,TrU,Vp!z!1,7:@0,2;" Sector." !R~(1)w!:" Angle at centre!R$~((Rw180xt.5))!(R$)4sR$~" "tR$:8610!" ";R$;" "!:" Sector area "!" 2" !" ";R$;"/360*";(144);"R "%!0,0r60,0:0,0r60w(R),80w(R)!40w(Rx2),40w(Rx2),13!!1,9:@0,2;" Segment. "!R~(1)w2w:S~(1)w2w"(RuS).5{(RuS)}4s8700+"13:60w(R),80w(R)r60w(S),80w(S)"X~55w(Rx2tSx2)$"Y~75w(Rx2tSx2) ."X,Y,28"B"C~(16):C~0{C~4s8770 L"0,0,C[V"1,9:@0,2;" Area = ";(144);"R ";:@1,1;" 2":::" (R is radius.)":15,4: `"8230 j"8980 t"8250 ~"8980 "8300 "8980 "8330 "8980 "8480 "8980 "8520 "8980 "8570 "8980 "8690 "8980 #8770 ##N~1r3000: #,4(#:0,0,602# ':4 '15,2:$'A(X)~(Xw100t.5)x1001.':" Enter details where the cursor flashes.,8'" Put X if you don't know! Then ENTER.5B'1::" What units (e.g `, dollars) do you wantL'" to use?"V':" Cost price?"`':" Selling price?"j':" Profit %?"t'@9,7;:" ";U$~'(U$)}8sU$~(U$,8)'((U$)z223)~88s10150>'U$~"$"{U$~"`"s@18,9;U$:@18,11;U$:@30,9;U$:@30,11;U$'@30,13;"%"'@20,9;:" ";C$:'C$~"X"sA~1:B~Bt1:C~0:C~(C$):C~0s@20,9;o9):10150'@20,11;:" ";C$;'C$~"X"sD~1:B~Bt1:S~0:S~(C$):S~0s@20,11;o9):10170'B~2s102903'B~0sP~(SuC)xCw100:15,1:@20,13;A(P):10260'@20,13;:" ";C$'C$~"X"s102902'P~(C$):P~0{P~u100s(5):@20,13;o9):10210;(A~1s@20,9;o9):10,1:@20,9;A(Sw100x(100tP)):102601 (@20,11;o9):15,6:@20,11;A(Cw(100tP)x100) (15,65(@1,20;"Press W for working / A another / E end">((Z~:Z~Zz223:Z~87s10320:Z~65s10000:Z~69s1000:10280/2(15,11:@1,21;"Insufficient information."'<(:" Press any key to try again.";F(Z~:Z~0s10310:10000P(10:1,7:Z(U$~"$"{U$~"`"sV$~U$:U$~""d(A~1s10520n(D~1s10460x(B~0s10390$(@1,21;"Press A another, E end.-(Z~z223:Z~65s10000:Z~69s1000:10380!(:" Cost price is ";V$;C;U$$(:" Selling price is ";V$;S;U$"(:" So profit is ";V$;SuC;U$!(:" Profit/c.p.is ";(SuC)xC"(:" Profit% is ";(SuC)xCw1005(:" Answer to 2 dec places is ";A((SuC)xCw100)((:" Profit is ";P;" %"!(:" Cost price is ";V$;C;U$)(:" Profit is ";P;"/100 * ";V$;C;U$,(:" Which works out to ";V$;CwPx100;U$3):" So selling price is ";V$;A(CtCwPx100);U$)):" Profit is ";P;" %"$"):" Selling price is ";V$;S;U$),):" Let cost price be ";V$;" x ";U$&6):" Profit will be x *";P;"/100$@):" So x + x *";P;"/100 = ";SJ):" Multiply by 100."!T):" 100 x +";P;"x =";Sw100^):" ";100tP;"x =";Sw100'h):" x =";A(Sw100x(100tP))+r):" THIS IS THE COST PRICE IN ";U$;V$|):@1,15:40:" To see our extensive range of EINSTEIN"1A" software, send for our catalogue today":4B15,6:@3,4;" "-C@3,5;" "-D@3,6;" "-E@3,7;" "-F@3,8;" "-G@3,9;" ".H@3,10;" ".I@3,11;" S O F T W A R E ".J@3,12;" "4L1,7:@3,14;" ".M@3,15;" 95B BLACKPOLE TRADING ESTATE ".N@3,16;" WORCESTER WR3 8TJ ".O@3,17;" Track-Info  N          :3,0:"M/FILE"*$x0":""::"M/FILE"M/FILE BSNEWLOW DATLOADER $$$ ".P@3,18;" TELEPHONE (0905) 58351 ".Q@3,19;" "RT~1r1000:8S1,15::" Hit any key to clear or R to re-start "TK$~$:(K$)~0s40020UK$~"R"{K$~"r"s V4:15,4:40::"M/FILE" 4:15,4:40::"M/FILE">#@u}& xpt=(zz ".M@3,15;" 95B BLACKPOLE TRADING ESTATE ".N@3,16;" WORCESTER WR3 8TJ ".O@3,17;" 14032:1:15,4:15,6:o46)"MENU"o46)"(15,4:@6,8;"(1) Mathemagic"2@6,12;"(2) Scoop",<15,6:@4,16;" Select 1 or 2 "+F1,7:@4,17;" or the E key to END "1PK$~$:K~(K$):K}0zK3s@2,(Kw4)t4;"LOADING"ZK$~"1"s"M10MAIN"dK$~"2"s"SCOOP"*nK$~"E"{K$~"e"s4:15,4::40::x(K$)}0s280 4:15,4:40::"M/FILE"%Track-Info  N           10000 LEIBNIZ 10001 LEIBNIZ 10002 LEIBNIZ 10003 LEIBNIZ 10004 LEIBNIZ M/FILE BSNEWLOW DATLOADER BSOLDLOW $$$ 38 38 39 FF FF FF FF FF FF FF 21 52 8C 52 21 00 00 00 C2 F3 F3 F3 F3 F3 FF FF 08 94 62 94 08 00 00 00 FF 7F 08 14 14 08 00 00 FF FE 10 28 28 10 AE D6 EF DF F9 5D FB 32 04 0C 10 00 40 40 C0 80 TRAIN $$$Track-Info  N          Track-Info  N          Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N  e%$J BTrack-Info  N           崐!@@@@@@@@@@@Track-Info ! N!!!!!!!!!! Track-Info " N""""" """""Track-Info # N########## Track-Info $ N$$$$$ $$$$$Track-Info % N%%%%%%%%%% Track-Info & N&&&&& &&&&&Track-Info ' N''''''''''