ZXTape! 0Created with Ramsoft MakeTZXF i&l"k& BE$(5,10 ):F$(5,10 ):B$(5,10 ) -C$(5,1):R(5):G(8) (/S(20):S$(20,1):N1=0 2:236099\,20 <5:2 F 9100# P"N=5:8250: :100d nN=07:U,V x"t"+N,U:"h"+N,V N Z=07 Y=18 G(Y):Y "a"+Z,G(1) "b"+Z,G(2) "c"+Z,G(3) "e"+Z,G(4) "f"+Z,G(5) "g"+Z,G(6) "o"+Z,G(7) "u"+Z,G(8) Z L 7020l `Z=118 j D,P:D,P:Z ~@:1,0;1;"Select A Section Of French Words" .;5;"------ - ------- -- ------ -----" 5,1;"a.Numbers" A,1;"b.Numbers" 3;"& Seasons" #11 ,1;"c.Months/Days" $14,1;"d.Colours/Days" %17,1;"e.Regular Verbs" "5,17;"f.Adjectives" 8,17;"g.Adverbs" #11 ,17;"h.The Family" $14,17;"i.Professions" "17,17;"j.Countries" !"press a letter,then ENTER ";M$ f:1,1;"The program will automatically load the French words.All you have to do is;-" (%8,6;"1.Press any key." 2&11 ,6;"2.Play the tape." 7""13357 <=""1340< A(.05|L,0::" Play the tape." F M$P$() P9100#:200 Z$:2,9 ;"***BONJOUR***" _t6,1;1;"THE COMPTER WILL GIVE YOU FIVE ENGLISH WORDS WHICH YOU HAVE TO TRANSLATE INTO FRENCH." dK11 ,1;3;"TYPE THE FRENCH WORD AND THEN PRESS ENTER." n 9020<# xZ=15 R(Z)=1+(*15) Z18810j" N=2*R(Z) "E$(Z)=P$(N-1):F$(Z)=P$(N) Z :8050r  J=1B 018,O;J;".";E$(J);" " `"the French word ? ";B$(J) j9.25~,0:.25~,2:.25~,4 t18,18;"-";B$(J) y 7410 ~3.25~,B:.25~,7:.25~,9 L=3*J+3 L,2;J;"."; E$(J) L,18;"-";B$(J) J S=0 K=15 L=3*K+3 L,0;"*" L,31;"*" 100d F$(K)=B$(K)3150N & C$(K)="w" 0L,0;" " :L,30;0;"X " D1,-12 I 3350 b C$(K)="r" l S=S+1 vL,0;" " L,30;0;" " Z=1B .125},12 Z K 4220,22;1;4;"TOTAL: ";S >121,22;1;4;"********" H 200 R#N1=N1+1:S(N1)=S:S$(N1)=M$ SB44000 ':B,7;"FIVE OUT OF FIVE !" -10 ,6;"B R I L L I A N T !" -12 ,6;"# @ % ! % & ? ` $ *" N=4:8250: &19,8;"***** WOW ! ****"  200   5500| 59:9 ,5;"REVIEW OF WRONG ANSWERS":150 : M=1B ?C$(M)="r"5450J S X92,0;1;M;".";:8710":100d b 4520 lA,B,O v 10 Z=110 F$(M)(Z)=" "4630  1 .9 ,2*Z+5;3;F$(M)(Z) %10 ,2*Z+5;"-" 502:.125},12  0 .9 ,2*Z+5;1;F$(M)(Z) %10 ,2*Z+5;"-"  10  Z =80P:17,1;"You put ";B$(M):150 42:7,1;"What is the french word for" > I$=E$(M) H 8150 R!11 ,18;4;J$; \" ?" fY=1Z-1 p12 ,17+Y;"-"; uY z" -" "The French word ";B$(M) J=M:7410 B$(M)F$(M)4435S  >2,0;"CORRECT CORRECT CORRECT CORRECT" ?19,0;"CORRECT CORRECT CORRECT CORRECT" A,1;" ";:8700!  150 JM T2:10 ,8;"REVIEW COMPLETE":150 | 5610 U:6,2;"To select a different section":8,20;"press a" _12 ,2;"To do the same section again":14,8;"press any other key" ""5525 =""5530 &="a".05|L,0:1150~ .05|L,0:1400x ::8020T " |";" SECTION"; " |";" SCORE" T1=0:8020T Z=1N1 &3;"|"; 020;"|"; :1;S$(Z); D3;"|"; N4;" "; X Z$=S$(Z) bZ$="a""Numbers"; lZ$="b""No.'s/Seasons"; vZ$="c""Months/Days"; Z$="d""Colours/Days"; Z$="e""Regular Verbs"; Z$="f""Adjectives"; Z$="g""Adverbs"; Z$="h""The Family"; Z$="i""Professions"; Z$="j""Countries"; 20;"|"; 23;S(Z)  T1=T1+S(Z) Z :  " Average score = "; *S2=(T1*10 /N1+.501A7)/10 S2;  " = "; *S2*20;"%" > 9060d# H l:n=219 vn,3;0;"":n y=13 16-y,4;"" 16-y,8;"" y *y=110 /&.01z# =,11 +2*y-1 4 13 -y,4;"" >13 -y,8;"" H16-y,4;"" R16-y,8;"" \ 10 a.01z# =,11 +2*y f13 -y,4;"" p13 -y,8;"" z16-y,4;" " 16-y,8;" "  10 y ,10 ,7;"FRENCH VOCABULARY TEST" %12 ,10 ;"VERBS,ADVERBS," &16,9 ;" I.M.SCOTT 1983" &14,10 ;"ADJECTIVES ETC."  I$=B$(J):8160 N=1Z-1 X=18+N 18,19;B$(J) $18,X;1;J$(N); .!J$(N)"a"J$(N)"e"7600 8"accent ? y or n ";Y$ BY$"y"Y$"n"74808 GY$="n"7600 L#"a-acute,g-grave,c-circumflex";U$ V"U$"a"U$"g"U$"c"74808 ` U$="a"J$(N)="a"B$(J)(N)="" j U$="a"J$(N)="e"B$(J)(N)="" t U$="g"J$(N)="a"B$(J)(N)="" ~ U$="g"J$(N)="e"B$(J)(N)=""  U$="c"J$(N)="a"B$(J)(N)=""  U$="c"J$(N)="e"B$(J)(N)=""  7650 !J$(N)"o"J$(N)"u"7650 "circumflex? y or n ";Y$ Y$"y"Y$"n"7610 Y$="n"7650 J$(N)="o"B$(J)(N)="" J$(N)="u"B$(J)(N)="" 18,X;B$(J)(N) N  T$Z=031:Z;"-";:Z ^ |F1,3;"---------":1,18;"----------" F2,3;"*ANGLAIS*":2,18;"*FRANCAIS*" G3,3;"---------":3,18;"----------":2  Z=210 I$(Z)" "8200 J$=I$(1Z-1)  8210 Z J$=I$  D Z=1N NY=14 X.125},2*Y+10 bY lZ v ""The French word for "; ";3;E$(M) " "$ " is "; ". I$=F$(M) "8 8150 "B;4;J$; "L"." "V "jX=1Z-1 "tR(Z)=R(X)1410 "~X " #( #