ZXTape! 0Created with Ramsoft MakeTZXtasimeq 2[O22725 0,0;e$  6 x=19 :d$:x $e$ .G6:0:2,4;"Type your name and press" 8*3,8;"theENTERKEY" L|5,3;"PressDELETE(Caps shift 0)";6,8;"if you mistype";1;8,5;" " Vx=0:""1110V Ya$= \a$=""1113Y `a$=13 1220 ja$12 1170 tx=01200 ~gx=x-1:.07}\(,x:8,5+x;1;"";0;" ":n$=n$(x):1200 (a$<32 ůa$>122z1200 _.07}\(,x:8,5+x;a$;1;" ":23297[+x,a$:x=x+1:n$=n$+a$ x=261220 ""1200  1113Y %23296[,x:.5,0 %0:5::"Hello ";n$ &,,"I am going to set you a pair of" $"simultaneous equations. You try" $"to work out the solution (the" "values of x and y)." @&,,"The questions get more difficult" T!"until you have got six right." |&,,"If you get one wrong I will" H"show you how to do it and set":"another - so if you do not know" $"how to do these problems enter" $"any answer and I will show you" "the method.":p1=0 ,1:6:17,0;e$ x=1820 x,0;d$ &x 021,0;e$ DK6:0:19,5;"PressENTERto continue" N""1870N X13 1880X ]15:0:p1=0::4000 b6:0:19,5;" ";1;"Play the tape";0;" ":7:1:"tbsimeq" Print title page  " 5:5:1: d$=" " x=15 d$=d$+d$ x )d$=" "+d$(231)+" " y=020 y,0;d$ y e$=" " x=15 e$=e$+e$ x y=0204 y,0;e$ y  0 2,12 ;"TASIMEQ" +6,5;"SIMULTANEOUS EQUATIONS" #10 ,9 ;"TUTOR VERSION" 414,1;"COPYRIGHT TASMAN SOFTWARE 1982" "F$="" 'X=15 , F$=F$+F$ 1X 6F$=F$(231) @n$="" h6:0 rX=1719 wX,1;F$ |X 518,7;1;"Tasimeq has loaded" x=110 :0.1}L,6:0.1}L,18:x:18,1;1;"Stop the tape then press ENTER":750 =""3870 1:5    1020 13 ,1;"If you have not stopped the";14,1;"tape then it has over-run the";15,1;"start of the next program. " (1;17,1;f$;17,1;"Rewind the tape if you had not";18,1;f$;18,1;"stopped it.";19,1;f$;19,8;"Then press ENTER" -Ax=110 :0.1}L,6:0.1}L,8:x 213 38902 < 3845 "Write down your own working outfor each problem. Then if youget the answer wrong you cancompare your working with mine." T:"If you get an answer wrong seeif you can find the mistake inyour working." / :"When you are typing in youranswers:" %:" Press the J key for a minus." 3:" Press the M key for a decimal":" point." p1=1:1790 D(    E                                FNjkjkjkjkjkjkjkjkjjjjjjjjjA tbsimeq W "1:7,0;e$ <6:1:x=816:x,0;d$:x #1:17,0;e$ 56:0:9 ,14;"x = ?" 411 ,3;"Type your answer and press" ,12 ,10 ;"theENTERkey" :14,3;"If you mistype pressDELETE" 815,1;"(Caps Shift 0)instead of ENTER" T0:5:19,14;"x =";1;"?";0;" " 'pl=19:568:.1}L,i $,i$=12 h$=""h$="-"h$="."30 &g=h$:g$=h$ (9 ,14;"y" *>21,14;"y =";1;"?";0;" " ,'pl=21:568:.1}L,i 0,i$=12 h$=""h$="-"h$="."42* 2h=h$ 4 300, 8i=17:h$="" <i$=:i$=""60< @%i$>47/Ưi$<58:78N Bi>1770F D1i$=45-ůi$=74Jůi$=106ji$="-" F1i$=46.ůi$=77Můi$=109mi$="." Gi$="-"i$="."78N Hi$=12 ůi$=13 I 60< N.07}\(,i:pl,i;i$ Pi=i+1:h$=h$+i$ T""84T V 60< , -xn=gyn=h320@ .323659k\,1:g$>5g$=g$(5) /h$>5h$=h$(5) 0y1:6:0,23;"";1,23;"x= ";1,26;1;g$ 1E2,23;"y= ";2,26;1;h$ 2E3,23;"is not ";4,23;"the " 3#5,23;"correct" 4[6,23;"answer ";7,23;"":5:0 5o$="" 60,0; 7 3840 8P2:17,23;"";18,23;" To try " 9$19,23;" another " :$20,23;" press " ;m21,23;" ENTER ";22,23;"":0:23659k\,2 <13 316< >:5:0: ? 500 @G5:0:q=q+1:"Answer correct. Your score is ";q Hjn=jn+1 Jjna500 T jn=0 Uin<2in=in+1 p9=in "Try this one, ";n$;":"   o$=" "  1700 !p1=an:p2=bn:p3=en:1000 !p1=cn:p2=dn:p3=fn:1000 :  10 x$="x ":y$="y " s=p1:1500 a$=c$ p10a$=v$+a$ $p1<0a$=m$+a$ .p1=0x$=w$ 8s=p2:1500 Lb$=c$ Vp201120` Yp1=0b$=v$+b$ \p10b$=p$+b$ `p2=0b$=v$+b$ jp2<0b$=m$+b$ tp2=0y$=w$ ~s=p3:1500 p3=0c$=" 0" p3=1c$=" 1" p3<100dc$=v$+c$ p30c$=v$+c$ p3<0c$=m$+c$ o$;a$;x$;b$;y$;"= ";c$ dt: t=s t<2c$=w$ t2c$=v$+t t>9 c$=t  @"r()=2*(*2)-1 T!s()=r()*((*8)+2) |!t()=r()*((*7)+3) p7=s():p8=s() $p1=t():p2=t():p3=t():p4=t() p922080  &p901950 0+0.5p1=r():p3=r():2080  vp2=r():p4=r():2080  <0.52030 "0.5p1=r():2080  p2=r():2080  "0.5p3=r():2080   p4=r()  !p1*p4-p2*p3=01740 * p5=p1*p7+p2*p8:p6=p3*p7+p4*p8 >:an=p1:bn=p2:cn=p3:dn=p4:en=p5:fn=p6:xn=p7:yn=p8: p3=p2:p4=p1 p122750 &p2=4p3=2:p4=1: &p2=6p3=3:p4=1: &p2=8p3=4:p4=1: p132780 &p2=6p3=2:p4=1: &p2=9 p3=3:p4=1: p142820 &p2=2p3=1:p4=2: &p2=6p3=3:p4=2: &p2=8p3=2:p4=1: p162880@ &p2=2p3=1:p4=3: &p2=3p3=1:p4=2: "&p2=4p3=2:p4=3: ,&p2=8p3=4:p4=3: 6&p2=9 p3=3:p4=2: @p182920h J&p2=2p3=1:p4=4: T&p2=4p3=1:p4=2: ^&p2=6p3=3:p4=4: hp19 r&p2=3p3=1:p4=3: |$p2=6p3=2:p4=3  Cp1=140:p2=163:p3=20:p4=119w:p5=4 Qp1,p2:p3,0:0,-p4:-p3,0:p5,p5:0,-2*p5:-p5,p5 ?p1+p3-p5,p2-p4/2+p5:p5,-p5:p5,p5:-2*p5,0  !p1=an:p2=bn:p3=en:1000 !p1=cn:p2=dn:p3=fn:1000 dt=200  c=cn:d=dn:f=fn  !m=0:g=1:h=1 in03880( an13870 m=1:4030 m=2:4030 (in13930Z 2an13900< 4g=cn:m=1:3990 <cn13910F >h=an:m=1:3990 Fbn13920P Hg=dn:m=2:3990 Ph=bn:m=2:3990 Zanɽcn3940d \m=1:4030 dbnɽdn3950n fm=2:4030 np1=an:p2=cn:2700 t g=p3:h=p4 xp1=bn:p2=dn:2700 ~ k=p3:l=p4 g+h>k+l3980 m=1:3990 g=k:h=l:m=2 an=g*an:bn=g*bn:en=g*en cn=h*cn:dn=h*dn:fn=h*fn $g1"1st equation times ";g $h1"2nd equation times ";h !h=1g=14080 !p1=an:p2=bn:p3=en:1000 !p1=cn:p2=dn:p3=fn:1000 m=2Ƽbn=dn4060 m=1Ƽan=cn4060  4080 'an=-an:bn=-bn:en=-en:"Change sign" !p1=an:p2=bn:p3=en:1000 !p1=cn:p2=dn:p3=fn:1000 /an=an+cn:bn=bn+dn:en=en+fn:"Add equations" !p1=an:p2=bn:p3=en:1000 #an>0bn>04140, 'an=-an:bn=-bn:en=-en:"Change sign" "!p1=an:p2=bn:p3=en:1000 ,#an=1bn=14170J 6an14160@ 7en=en/an:"Divide by ";an 9+p1=1:p2=0:p3=en:1000 @bn14170J Aen=en/bn:"Divide by ";bn C+p1=0:p2=1:p3=en:1000 J?15,0;"Substitute this solution into":3000 Kcn=c:dn=d:fn=f O!p1=cn:p2=dn:p3=fn:1000 T "To obtain" Um=24230 ^ fn=fn-dn*en _&p1=cn:p2=0:p3=fn:1000 hcn04210r i"Change sign":cn=-cn:fn=-fn l&p1=cn:p2=0:p3=fn:1000 rcn=14260 s"Divide by ";cn:fn=fn/cn u+p1=1:p2=0:p3=fn:1000 | 4260  fn=fn-cn*en &p1=0:p2=dn:p3=fn:1000 dn04250 "Change sign":dn=-dn:fn=-fn &p1=0:p2=dn:p3=fn:1000 dn=14260 "Divide by ";dn:fn=fn/dn +p1=0:p2=1:p3=fn:1000 dt=1: Jx=23296[:n$="":i=0x-1:n$=n$+((23297[+i)):i !v$=" ":w$=" ":m$="-":p$="+" 0dt=1:a=2:in=0:jn=in:q=in `d$=" ":e$=" ":x=15:d$=d$+d$:e$=e$+e$:x:d$=" "+d$(30)+" " ,5:5:0::500  NV W M-P+aqE                                D(     stgG9H-9I hOcd fmXx Yy A- B+ 3C- 22