ZXTape! 0Created with Ramsoft MakeTZXF .l*(. AE$(5,10 ):F$(5,10 ):G$(5,1) UT$(5,3):L$(5,3):A$(5,3):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: :70F 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,2;"a.Upstairs" A,2;"b.Downstairs" #11 ,2;"c.Countryside" " & Seaside" #14,2;"d.Town & City" 17,2;"e.School" 5,17;"f.Fruit &" 19;"Vegatables" !8,17;"g.Groceries"  11 ,17;"h.Animals"  14,17;"i.Clothes" %17,17;"j.Parts Of The"  19;"Body" #"press the 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,A;"***BONJOUR***" _t6,0;1;"THE COMPUTER WILL GIVE YOU FIVE ENGISH WORDS WHICH YOU HAVE TO TRANSLATE INTO FRENCH." dd11 ,0;3;"FIRST YOU HAVE TO ENTER le,la, un or une AND THEN THE FRENCH WORD." n 9020<# xZ=15 R(Z)=1+(*15) Z18810j" N=2*R(Z) Y=310 P$(N)(Y)=" "1480 Y  Y=11 MG$(Z)=P$(N)(Y-1):F$(Z)=P$(N)(1Y-2):E$(Z)=P$(N-1) Z  I=1B >F$(I)(11)="a"F$(I)(11)="e"F$(I)(11)="i"F$(I)(11)="o"F$(I)(11)="u"F$(I)(11)="h"2170z H T$(I)="The" \G$(I)="m"L$(I)="le" fG$(I)="f"L$(I)="la" p 2220 zG$(I)="m"L$(I)="un" G$(I)="f"L$(I)="une" E$(I)(11)="a"E$(I)(11)="e"E$(I)(11)="i"E$(I)(11)="o"E$(I)(11)="u"2210 T$(I)="A":2220  T$(I)="An" I :8050r J=15  18,1;J;".";T$(J); T$(J)="The"" "; $E$(J);" " .1L$(J)(11)="l""le or la ? ";A$(J) 82L$(J)(11)="u""un or une ? ";A$(J) ==A$(J)"le "A$(J)"la "A$(J)"un "A$(J)"une"2350. B9.25~,0:.25~,2:.25~,4 L18,17;"-";A$(J); VA$(J)="une"" "; `"the French word ? ";B$(J) j3.25~,B:.25~,7:.25~,9 tB$(J) y 7410 L=3*J+3 L,1;J;".";T$(J); T$(J)="The"" "; E$(J) L,17;"-";A$(J); A$(J)="une"" "; B$(J) J S=0 K=15 L=3*K+3 L,0;"*" L,31;"*" 100d %L$(K)=A$(K)F$(K)=B$(K)3150N F$(K)=B$(K)3250 & C$(K)="w" 0L,0;" " :L,30;0;"X " D1,-12 I 3350 b C$(K)="r" lS=S+O vL,0;" " L,30;0;" " Z=1B .125},12 Z 3350 C$(K)="g" S=S+1 L,0;" " L,30;0;" " *.125},12 :.125},12 3350 K D$="********" %(T=S/O:T-(T)0D$="**********" *1:4 4 20,22;"TOTAL: ";T 921,22;D$ > 200 H 0:O R#N1=N1+1:S(N1)=S:S$(N1)=M$ TB44000 ':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 DC$(M)="g"5000 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" .6,1;" ";:8700!:150 14,1;" ";  85004!  150 $ 5450J  (3,0;1;M;".";T$(M); T$(M)="The"" "; E$(M) 6,0;" ";  85004! "9 ,2;"You put "; ;2;A$(M); A$(M)="une"" ";  "when you should" $11 ,2;"have put "; ;4;L$(M) < 9020<# JM T2:10 ,8;"REVIEW COMPLETE":150 | 5610 Y: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""Upstairs"; lZ$="b""Downstairs"; vZ$="c""Cntry & Seaside"; Z$="d""Town & City"; Z$="e""School"; Z$="f""Fruit & Veg."; Z$="g""Groceries"; Z$="h""Animals"; Z$="i""Clothes"; Z$="j""Parts Of Body"; 20;"|"; 23;S(Z)/2  T1=T1+S(Z) Z :  " Average score = "; )S2=(T1*5/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 413 -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 ,9 ;"FRENCH NOUNS (48K)" &14,9 ;" I.M.SCOTT 1983"  I$=B$(J):8160 N=1Z-1 X=20+N:X1=21 )A$(J)="une"X=X+1:X1=22 18,X1;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;"----------" J2,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 !> I$=E$(M) !H 8150 !R;2;J$; !\ ","; !f I$=F$(M) !p 8150 !;4;J$;" is "; !G$(M)="m""MASCULINE" !G$(M)="f""FEMININE" ! ""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 " #( #