ZXTape! 2French: Tape 2 - Side A Pan Course Tutors/Hill MacGibbon1986English/French EducationalNoneOriginal ReleaseTZXed by Andrew Barker0 Modules CMODULESC *"7:0::"":5 *1,40(:17,9 ;"STOP THE TAPE":300,:7:0:n=520:n,1;" ":n 9Z6,3;"Please select the module";7,3;"you wish to work through." :8,5;" ";9 ,5;" A. Adjectives and ";10 ,5;" agreements ";11 ,5;" " ;12 ,5;" B. Negatives and ";13 ,5;" interrogatives ";14,5;" ";16,3;"Choose A or B" =""829= >@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C6i$="a"i$="A"i$="Adjectives":i=1:838F Di$="Negatives":i=2 H.5,45-:19,9 ;"START THE TAPE";20,0;" Loading: ";20,10 ;1;7;1;i$;20,31;:7:1:840H+i I 20,31;"";:"mod5" J 20,31;"";:"mod6" APhysicsordeeadinLodtitlex dgx*a7pi[wPMODULESCC @S<Bf8B 8xB8x?B8 B<<8<<8D @9s$(pointer,f)="#"sy=sy+2:sx=0:650 @Os$(pointer,f)="1"5;sy,sx;"e";5;sy-1,sx;"":648 A4s$(pointer,f)=""5;sy,sx;"4";:648 BOs$(pointer,f)="2"5;sy,sx;"e";5;sy-1,sx;"":648 C4s$(pointer,f)=""5;sy,sx;"2";:648 DOs$(pointer,f)="3"5;sy,sx;"e";5;sy-1,sx;"":648 FOs$(pointer,f)="4"5;sy,sx;"a";5;sy-1,sx;"":648 GFs$(pointer,f)="6"5;sy,sx;"i";sy-1,sx;"":648 HOs$(pointer,f)="7"5;sy,sx;"c";1;sy+1,sx;"":648 MOs$(pointer,f)="8"5;sy,sx;"o";1;sy+1,sx;"":648  5;sy,sx;s$(pointer,f); sx=sx+1 f  [ inp INPUT SUB  "plen=0:x(pointer)=e:y(pointer),x(pointer);"_";y(pointer)-1,x(pointer);" ":65040:v$="" %.2~L,10 ''y(pointer),x(pointer);;"?";: )i$=:i$""809) *i$=:i$=""810* +.07}\(,1 , i$=13 ;8;" ";: -i$=12 x(pointer)1len1len=len-1:v$=v$(len):x(pointer)=x(pointer)-1:y(pointer),x(pointer);" ";y(pointer)-1,x(pointer);" ":807' .Fv$v(pointer)+4.25~,40(:8;" ";:807' /v$=v$+i$:len=len+1 0v$="@"7105 1Oi$="1"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 2Oi$="2"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 3Oi$="3"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 4Oi$="4"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 5Oi$="5"y(pointer),x(pointer);"u";y(pointer)-1,x(pointer);"":i$="u" > v$=v$+i$ R;y(pointer),x(pointer);i$;:x(pointer)=x(pointer)+1 \ 807' f9------------------------------------------------------- o \ test test the answer v$=""v$=" " 7v$=a$(pointer,v(pointer))try=0sc=sc+1 ?v$=a$(pointer,1v(pointer))fl=0:flag=0: vv=v$:question=1(v$(vv)"e")try=0fl=1:flag=1:try=try+1:vv=v$:v$(vv)"e"15,16;"missing ~e~":: v$<2920 vv=v$:question=2(v$(((vv)-1))"es")try=0fl=1:flag=1:try=try+1:vv=v$:v$(((vv)-1))"es"15,16;"missing ~es~": Pv$a$(pointer,1v(pointer))fl=0:flag=1:try=try+1: Z****************************** right *********************************************** .21,0;"CORRECT answer": ************************** DATA FOR THE MAIN ROUTINE ******************************************************************  4 ;"It's small# pretty# economical# blue*" "Ma voiture#est ______.*" "Ma voiture#est ______.*" "Ma voiture#est ______.*"  "Ma voiture#est ______.*" (E15,4,15,4,15,4,15,4 )'"petite","jolie","1conomique","bleue" +&"The French#for small#is ~petite~.*" ,%"The French#for pretty#is ~joli~.*" -/"The French#for#economical#is#~1conomique~.*" .#"The French#for blue#is ~bleu~.*" ?"6,5,10 ,5 @a1,2,2,2,4,5,3,6,8,4,8,8 Gy****************************** print hint hnt ********************************************************************** H1hy=13 :hx=17:t$=h$(h(pointer,try)) I=f=12 21:f,16;" ";:f Lf=170F T t$(f)="*" V3t$(f)="#"hx=17:hy=hy+2:1139s XA: t$(f)="1"6;hy,hx;"e";hy-1,hx;"":1137q Z@ t$(f)="2"6;hy,hx;"e";hy-1,hx;"":1137q \@ t$(f)="3"6;hy,hx;"e";hy-1,hx;"":1137q ]@ t$(f)="4"6;hy,hx;"a";hy-1,hx;"":1137q ^6;hy,hx;t$(f); f. t$(f)=""6;hy,hx;"1";:1137q g. t$(f)=""6;hy,hx;"2";:1137q h. t$(f)=""6;hy,hx;"3";:1137q qhx=hx+1 sf : f=116 46;20,16;t$(65A82R): f 65040  ;*********************************************************  "*",6 ;"Combien de fr1res avez vous#####Vous _______#avez deux*" I"Tu as ma cassette de# Culture Club#####Non! Je _______#ai rendu hier*" 4"Je viendrai chez demain######Je _______#promets*" G"Tu as 1crit 4 Marc?######Oui,je _______#ai 1crit une#longue lettre*" L"Vous 3tes jamais all1 au#Portugal####Non,je n'_______#suis jamais#all1e*" A"Tu as piqu1 son ballon,Luc#######Donne-_______#tout de suite*" "g14,5,16,8,16,3,16,7,14,9 ,18,6 $+"en","te l'","vous le","lui","y","le-lui" &"Have you got#two of them*" '$"I gave it back#to you#yesterday*" ("I promise#~it~ to you*" )"Translate#~to him~*" *"i've never#been there* " +)"~Give it to#him~ remember#the hyphen*" ,12,5,7,3,1,6 .1,1,12 ,2,2,13 ,3,3,14,4,4,15,5,5,16,6,6,17,7,7,18,8,8,19,9 ,9 ,20 021,10 ,10 z 4 |:"They're new# quick# comfortable# green*" "Mes voitures#sont _____.*" "Mes voitures#sont _____.*" "Mes voitures#sont _____.*" "Mes voitures#sont _____.*" E15,5,15,5,15,5,15,5 ,"neuves","rapides","confortables","vertes" 3"The French#for 'new',#in this case,#is 'neuf'.*" 7"The French#for 'quick',#in this case,#is 'rapide'.*" 3"The French#for#'comfortable'#is#'confortable'.*" &"The French#for 'green'#is 'vert'.*" "6,7,12 ,6 a1,2,2,2,4,5,3,6,8,4,8,8 М start of program  "4:7::65040  ***** set screen ***** udgs: 4Z***************************** screen end ********************************************** 77#0;" PRESS ANY KEY TO CONTINUE " 8 .2,30:0 9.1}L,30 :165001,2:65000:65040 < 1300 =%q$,limit:f=1limit:s$(f):f >f=1limit:y(f),x(f):f @f=1limit:a$(f):f Af=1limit:h$(f):f Bf=1limit:v(f):f Cq=1limit Dt=13 Eh(q,t) Ft Gq Hxd=0:yd=0:disp a0pointer=1:try=1:question=1 fg=1limit gclr ke=x(pointer):try=1 zFclr:f=13 21:f,0;" ":f:subq inp test 'flag=0right:wait:2250 try2hnt try22170z try=3245 pointer=pointer+1 π0,0;:f=17:" ":f:f=14:" ":f:clear box g Ff=010 :f,0;" ":f 65040 K87W:clr:f=13 21:f,0;" ":f: +0,0;"Voici ma voiture" 1,0;"You will see a picture and a short description of it in English. You must type in the correct French adjective as eachword is highlighted. " >21,0;" PRESS ANY KEY TO CONTINUE " w$=:w$""2285 w$=:w$=""2286 65040 B21,0;" PLEASE WAIT "  875k A65040:11 ,21;"question 1";0,0; +question=1:ink=1:1000  limit,q$ f=1limit:s$(f):f  i=1limit:y(i):x(i):i f=1limit:a$(f):f f=1limit:h$(f):f f=1limit:v(f):f q=1limit t=13 h(q,t) t q pointer=1 $0,0;c$;c$:clr .!g=1limit:yd=1 2hclr:21,16;" ":f=12 21:f,0;" ":f::subq 3e=x(pointer):try=0 4190+(10 *question) 7xd=11 :disp 87g=11;1,20;" " 98g=21;3,20;" " :=g=31;5,20;" " ;7g=41;7,20;" " =A65040:11 ,21;"question 1";0,0; >fl=0:inp @test:fl=12376H B'flag=0right:wait:2488 Ftry1hnt Htry123608 :clr Jtry=2245 pointer=pointer+1 g question=27110 +ink=4:question=2:1400x 2300 :65040 0,0;"Complete these sentences comparing different objects witheach other.":h(1,1)=1:try=1:#0;" PRESS ANY KEY TO CONTINUE ":0:7: 65010:40(,120x:4,8:1,0:4,8:7;1,0:7;4,8:7;4,-8:7;4,-8:7;1,0:4,-8:1,0:4,-8 8,3;"Mont Blanc";8,18;"Everest":160,120x:4,8:1,0:4,8:7;1,0:7;4,8:7;1,0:7;4,8:7;1,0:7;4,8:7;4,-8:7;4,-8:7;1,0:4,-8:1,0:4,-8 3jump=1:question=1:pointer=1 As$(1)="Le mont Everest#est plus _______#que Mont#Blanc.*" 9h$(1)="Use the#usual word#for 'high'#or 'tall'.*" ke=9 :a$(1)="haut or blanc":v(1)=5:x(1)=9 :y(1)=15:subq !11 ,21;"question 2" inp wv$="haut"v$="grand"flag=0:f=12 20:f,16;" ":right:wait:2590 ;jump=1flag=1:hnt:jump=2:2562 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";18,16;"haut or grand" Y65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 ZQXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX [7::40(,120x:-10 ,30:40(,120x:10 ,30:c=2142:6;40(,160,c:c:40(,120x \I160,120x:-10 ,30:160,120x:10 ,30:c=2142:2;160,160,c:c:7,2;"glace au";8,2;"citron";7,20;"glace a la";8,20;"fraise";6,26;"";9 ,4;"5f00 5f00" ]3jump=1:question=1:pointer=1 ^Ps$(1)="Une glace au#citron est aussi# _______qu'une#glace 4 la #fraise*" `3h$(1)="Use the#usual word#for 'expensive'*" dce=0:a$(1)="ch2re":v(1)=5:x(1)=0:y(1)=17:subq finp hov$="ch2re"flag=0:f=12 20:f,16;" ":f:right:wait:2690 i;jump=1flag=1:hnt:jump=2:2662f jf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"chere";18,18;"" n65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 QXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 7::1;20,160:1;30,3:1;20,-4:1;20,5:1;30,-2:1;20,3:6,23;"La Loire" 1;20,120x:1;30,3:10 ,-2:20,4:1;20,-4:1;20,5:1;30,-2:1;20,3:1,20;"La Seine" 3jump=1:question=1:pointer=1 :s$(1)="La Loire est#plus _________#que la Seine.*" <h$(1)="The adjective#'long' has an#irregular form.*" de=5:a$(1)="longue":v(1)=6:x(1)=0:y(1)=15:subq inp pv$="longue"flag=0:f=12 20:f,16;" ":f:right:wait:2790 ;jump=1flag=1:hnt:jump=2:2762 Ψf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"longue" ҕ65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 $[f=12 21:f,0;"  ":f:65040 %3jump=1:question=1:pointer=1 &:s$(1)="La Seine est#plus _________#que la Loire.*" (*h$(1)="Use the word#for 'short'.*" ,de=5:a$(1)="courte":v(1)=6:x(1)=0:y(1)=15:subq .inp 0pv$="courte"flag=0:f=12 20:f,16;" ":f:right:wait:2890J 1;jump=1flag=1:hnt:jump=2:2862. 2f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"courte" 665040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 ``````````````` Sh(1,1)=1:7::65010:c=24100d18:c,140:4,16:7;4,8:7;4,-8:7;1,-1:4,-16:c:c=20120x:4;c,c+140:c:3,22;"La Norvege";2,29;"" 6;502,104h:6;5,-4:6;30,104h:6;-5,-4:6;30,116t:6;-5,4:6;502,116t:6;5,4:7,15;"L'Arabie Saoudite":f=18:6;40(,110n,f:f:28,110n:6;-6,0:524,110n:6;6,0:40(,120x:6;0,6:40(,90Z:6;0,6 3jump=1:question=1:pointer=1 Es$(1)="La Norv2ge est#plus _________#que l'Arabie#Saoudite.*" )h$(1)="Use the word#for 'cold'.*" de=5:a$(1)="froide":v(1)=6:x(1)=0:y(1)=15:subq inp pv$="froide"flag=0:f=12 20:f,16;" ":f:right:wait:2990 ;jump=1flag=1:hnt:jump=2:2962 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"froide" 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 [f=12 21:f,0;"  ":f:65040 3jump=1:question=1:pointer=1 Es$(1)="L'Arabie#Saoudite est#plus _________#que la Norv2ge.*" (h$(1)="Use the word#for 'hot'.*" de=5:a$(1)="chaude":v(1)=6:x(1)=5:y(1)=17:subq inp pv$="chaude"flag=0:f=12 20:f,16;" ":f:right:wait:3090 ;jump=1flag=1:hnt:jump=2:3062 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"chaude" 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 D 7: N37%,130:2;20,2:2;15,-1,2:2;20,-2:2;-2,-8:2;-7,0:2;0,-20:2;-36$,0:2;0,20:2;-7,0:2;-2,8:f=122z100d-1:2;480,f:2;34",0:f OXf=106j126~:1;173,f:1;6,0:1;162,f:1;6,0:f:1;160,130:1;20,0:1;0,4:1,-20,0:1;0,-4:1;-2,-24:1;25,0:1,-2,24 P*3,3;" 25f00 30f00" Q3jump=1:question=1:pointer=1 R>s$(1)="La jupe est#plus _________#que le #tee-shirt.*" T/h$(1)="Use the word#for #'expensive'.*" Xce=5:a$(1)="ch2re":v(1)=6:x(1)=5:y(1)=15:subq Zinp \ov$="ch2re"flag=0:f=12 20:f,16;" ":f:right:wait:3190v ];jump=1flag=1:hnt:jump=2:3162Z ^f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"chere";18,18;"" b 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 [f=12 21:f,0;"  ":f:65040 3jump=1:question=1:pointer=1 <s$(1)="Le tee-shirt#est moins#_______ que#la jupe.*" 2h$(1)="Note the#subject is#LE tee-shirt.*" be=0:a$(1)="ch2r":v(1)=6:x(1)=0:y(1)=17:subq inp nv$="cher"f=12 20:f,16;" ":f:flag=0:right:wait:3290 ;jump=1flag=1:hnt:jump=2:3262 ˜f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"cher" ƙ 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 7::9 ,3;"5f le kilo 4f le kilo":r=14:2;68D,120x,r:r:r=14:2;40(,120x,r:r:r=14:2;546,134,r:r 2,3;"ORANGES MELONS":r=17:4;178,120x,r:r:r=17:4;140,120x,r:r:r=17:4;154,134,r:r 3jump=1:question=1:pointer=1 >s$(1)="Les oranges#sont plus#_______ que#les melons.*" /h$(1)="Use the word#for #'expensive'.*" de=0:a$(1)="ch2res":v(1)=6:x(1)=5:y(1)=17:subq "inp $pv$="ch2res"f=12 20:f,16;" ":f:flag=0:right:wait:3390> %;jump=1flag=1:hnt:jump=2:3362" &f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"cheres";18,18;"" * 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040 |[f=12 21:f,0;"  ":f:65040 }of=12 20:f,16;" ":f:jump=1:question=1:pointer=1 ~?s$(1)="Les melons#sont moins#_______ que#les oranges.*" 0h$(1)="Note the#subject is#'LE melon'.*" ce=0:a$(1)="ch2rs":v(1)=6:x(1)=0:y(1)=17:subq inp 3v$="ch2rs"flag=0:right:wait:3490 ;jump=1flag=1:hnt:jump=2:3462 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"chers" 65040:21,0;" PRESS ANY KEY TO CONTINUE ":0:0:21,0;" ":65040  7110 X!******************************* b:5:0:1: l-1,8;"French module 5 " v*3,8;" Adjectives " E6,0;"The following keys will give youaccented letters"  49 ,0;" 1 = e 2 = e 3 = e 4 = a" 48,0;" " 811 ,0;" 5 = u ": 6 = o 7 = c 8 = i" 510 ,0;" " `21,140:218,0:0,30:-218,0:0,-30 `19,138:222,0:0,34":-222,0:0,-34" 013 ,0;"To edit your input press -" ,15,6;"{CAPS} {0}" :17,0;"Please write these down to help you." =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: -1,8;"French module 5 " *3,8;" Adjectives " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 5i$="1"tot=tot+8::65040:2280 6i$="2"tot=tot+12 ::65040:2549  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 5" `%5,5;"Adjectives" j,10 ,8;"You have managed" t+11 ,8;sc;" out of ";tot ~*12 ,8;"without a hint" _524,568:148,0:0,58::-148,0:0,-58: _502,546:152,0:0,62>:-152,0:0,-62> _480,524:156,0:0,66B:-156,0:0,-66B _46.,502:160,0:0,70F:-160,0:0,-70F V''''"For further revision,refer to the section 'Adjectives' on pages 33 - 35." M#0;"To use this Module again press R to stop press S" i$=:i$""7610 i$=:i$=""7612 i$="r"i$="R" i$="s"i$="S" .2~L,20:7610 ? 7999? #2e1430:l=114:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l ' "mod5"2 '"m/c"65000,600X '&(65535-7962)/1024 H9LL CA@OLC@3 Lμ^L^YLIY\CI8IE@>ۛ[ȲIÇ>]͍L :?@ I@=MMLC? p MoC n ighnGlainraiPointexgecorotaesuson ub&isl,acindgZe S `  SSӽ  I wm/c X9'ZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>'H$!A|89s$(pointer,f)="#"sy=sy+2:sx=0:650 @=s$(pointer,f)="1"sy,sx;"e";sy-1,sx;"":648 A+s$(pointer,f)=""sy,sx;"4";:648 B=s$(pointer,f)="2"sy,sx;"e";sy-1,sx;"":648 C+s$(pointer,f)=""sy,sx;"2";:648 D=s$(pointer,f)="3"sy,sx;"e";sy-1,sx;"":648 F=s$(pointer,f)="4"sy,sx;"a";sy-1,sx;"":648 G=s$(pointer,f)="6"sy,sx;"i";sy-1,sx;"":648 H=s$(pointer,f)="7"sy,sx;"a";sy-1,sx;"":648 sy,sx;s$(pointer,f); sx=sx+1 f  [ inp INPUT SUB  "len=0:x(pointer)=e:y(pointer),x(pointer);"_________";y(pointer)-1,x(pointer);" ":65040:v$="" %.2~L,10 ''y(pointer),x(pointer);;"?";: )i$=:i$""809) *i$=:i$=""810* +.07}\(,1 , i$=13 ;8;" ";: -i$=12 x(pointer)1len1len=len-1:v$=v$(len):x(pointer)=x(pointer)-1:y(pointer),x(pointer);" ";y(pointer)-1,x(pointer);" ":807' .Fv$v(pointer)+4.25~,40(:8;" ";:807' /v$=v$+i$:len=len+1 0v$="@"7105 1Oi$="1"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 2Oi$="2"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 3Oi$="3"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 4Oi$="4"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 5Oi$="5"y(pointer),x(pointer);"u";y(pointer)-1,x(pointer);"":i$="u" > v$=v$+i$ R;y(pointer),x(pointer);i$;:x(pointer)=x(pointer)+1 \ 807' f9------------------------------------------------------- o \ test test the answer 7v$=a$(pointer,v(pointer))try=1sc=sc+1 4v$=a$(pointer,1v(pointer)):flag=0: Dv$a$(pointer,1v(pointer))flag=1:try=try+1: Z****************************** right *********************************************** .21,0;"CORRECT answer": ************************** DATA FOR THE MAIN ROUTINE ****************************************************************** "*"  10 U"Bonjour Monsieur Lefric. ____#habitez-vous?##J'habite un ch7teau pr2s de #Paris.*" B"________ quand y habitez-vous?##J'y habite depuis quatre ans.*" ]"Et ____________ argent gagnez-#vous par an?##Je n'ai aucune id1e.Une#fortune,je suppose.*" K"___________ heure vous levez-#vous le matin?##Je ne me l2ve qu'4 midi.*" t"___________ est-ce que vous#vous levez si tard?#Parce que je ne me couche #jamais avant trois heures du #matin.*" @"Et apr2s,qu'_____________ vous#faites?##Je vais 4 mon club.*" Q"__________ est-ce que vous y#allez?##J'y vais toujours dans ma #Rolls-Royce.*" J"_____________ vous y d1jeunez?##Mais oui. J'y d1jeune tous les#jours.*" ="_______ est votre plat pr1f1r1?##J'adore le saumon fum1.*" Y"Et enfin, qui _____________ vous#accompagne?##Personne! Je veux rester# c1libataire!*" 17,0,17,0,17,0,17,0,17,0,17,0,17,0,17,0,17,0,17,0 j"o5","depuis","combien d'","A quelle","Pourquoi","est-ce que","comment","Est-ce que","Quel","est-ce qui" 5"Give the word#for 'where'.#Remember the #accent.*" '"Translate#'how long'.#See page .*" '"Translate#'how much'.#See page .*" :"Translate#'at what time'.#Remember it is#'une heure'.*" 6"The interviewer#is asking why#he gets up so#late.*" #"Translate#'what'.#See page .*" ;"The interviewer#wants to know#how he gets to#his club.*" 8"This is simply#turning a#statement into#a question.*" ;"The interviewer#is asking which#his favourite#food is.*"  ""Translate#'who'.#See page .*" U2,6,10 ,8,8,10 ,7,10 ,4,10 a7,1,2,7,2,4,7,3,6,7,4,8 7,5,10 ,7,6,12 ,7,7,14,7,8,16,1,9 ,18,1,10 ,20 +++++++++++++++++++++ "*"  10 B"Tu as beaucoup travaill1 ce #soir?##Non. Je n'ai _______ fait*" W"Est-ce qu'il y a des chocolats#dans la bo6te?##Oui,mais il n'en reste _____ #deux.*" W"Y a-t-il des chocolats dans#la bo6te?##Non. Malheureusment il n'en #reste _______.*" F"Qui 1tait chez toi hier soir?#Il n'y avait ___________ #chez moi!*"  V"Vous vous 3tes r1veill2 4 quelle#heure?##Je ne me suis r1veill2 _____#4 9 heures.*" !V"Pourquoi est-ce qu'il n'est pas#venu ce soir?##Parce qu'il n'a _________# argent.*" "a"Vous allez souvent au cin1ma,#Michelle?##Non.Je n'y vais _________. Je#n'aime pas les films.*" #S"Je peux avoir encore du vin,#s'il vous pla6t?##D1sol1,il n'y a __________ vin.*" $S"Tu as des fr2res ou des soeurs?##Je n'ai _________ fr2res,mais#j'ai une soeur.*" %a"Il y a quelqu'un dans la classe#qui parle allemand?##Non. __________ ne parle #allemand ici.*" (18,0,18,0,18,0,18,0,18,0,18,0,18,0,18,0,17,0,17,0 )V"rien","que","plus","personne","qu'","pas d'","jamais","plus de","pas de","personne" *!"Find the word#for#'nothing'.*" +*"There are only#two left.#See page #0*" ,8"The answer is#that there are #no more.#See page#0 *" - "Find the word#for#'nobody'.*" ./"The word needed#is the same as#for 'only'.*" /%"He hasn't any#money.#See page *" 03"Michelle never#goes to the#cinema.#See page 0*" 2)"You need two#words to say#'no more'.*" 3>"You need two#words to say#'not any'#See page #for help.*" 45"Use the word#for 'nobody'.#See page #for help.*" :Q4,3,4,8,3,6,6,7,6,8 f9 ,10 ,2,10 ,11 ,4,11 ,5,6,12 ,7,8 Gy****************************** print hint hnt ********************************************************************** H1hy=13 :hx=17:t$=h$(h(pointer,try)) I=f=12 21:f,16;" ";:f Lf=170F T t$(f)="*" V3t$(f)="#"hx=17:hy=hy+2:1139s X0: t$(f)="1"6;hy,hx;"e";hy-1,hx;"":1137 Z/ t$(f)="2"6;hy,hx;"e";hy-1,hx;"":1137 \/ t$(f)="3"6;hy,hx;"e";hy-1,hx;"":1137 ]/ t$(f)="4"6;hy,hx;"a";hy-1,hx;"":1137 ^6;hy,hx;t$(f); f. t$(f)=""6;hy,hx;"1";:1137q g. t$(f)=""6;hy,hx;"2";:1137q h. t$(f)=""6;hy,hx;"3";:1137q qhx=hx+1 sf : f=116 46;20,16;t$(65A82R): f 65040  ;*********************************************************  10 1"L'arc de Triumphe se trouve# ________ Paris.*" 3"Mon appartment se trouve# ____ deuxi2me 1tage.*"  "Je vais 4 l'1cole ___ pied.*" *"Le train _____ Grenoble# part d'ici?.*" )"Le voleur a pris le sac# _____ dame.*" /"Nous sommes all1s en# vacances ____ avion.*" 0"Le weekend, j'aime bien# jouer ____ tennis.*" ."Il est trop petit _____# jouer au basket.*" *"Je voudrais bien aller# _____ Italie.*" )"Vous 3tes jamais all2# _____ Japan?.*" "4,1,4,1,2,18,2,10 ,4,1,4,1,4,0,4,1,4,1,4,1 $7"4","au","4","pour","4 la","en","au","pour","en","au" &"4 #en #4 la*" '"4 #au #4 la*" ("4 #aux #en*" )"4 #pour# au*" *"4 #4 la #pour* " +"4 #en #4 l' *" ,"4 #au #4 la *" -"4 #pour# 4 la *" ."4 #4 l' #en* " /"4# au #en *" 5 "look at #page 7 #for help.*" 6 "look at #page 7 #for help.*" 7 "look at #page 7 #for help.*" 8 "look at #page 7 #for help.*" 9 "look at #page 7 #for help.*" : "look at #page 8 #for help.*" ; "look at #page 7 #for help.*" < "look at #page 7 #for help.*" = "look at #page 7 #for help.*" > "look at #page 7 #for help.*" wQ1,2,1,4,4,2,2,4,2,2 x1,1,12 ,2,2,13 ,3,3,14,4,4,15,5,5,16,6,6,17,7,7,18,8,8,19,9 ,9 ,20 y21,10 ,10 М start of program  "4:7::65040  ***** set screen ***** udgs:  380| 4Z***************************** screen end ********************************************** 77#0;" PRESS ANY KEY TO CONTINUE " 8.2~L,30:0 9.1}L,30 :165001,2:65000:65040 =11000:q$,limit:f=1limit:s$(f):f >f=1limit:y(f),x(f):f @f=1limit:a$(f):f Af=1limit:h$(f):f Bf=1limit:v(f):f Cq=1limit Dt=13 Eh(q,t) Ft Gq Hxd=0:yd=1:disp aquestion=1 fg=1limit gclr h119w:display  jFclr:f=13 21:f,0;" ":f:subq ke=x(pointer):try=1 z<f=13 21:f,0;" ":f: {!11 ,21;"question 1" inp test 'flag=0right:wait:2250 try2hnt try22170z try=3240 pointer=pointer+1 π0,0;:f=17:" ":f:f=14:" ":f:clear box g Ff=010 :f,0;" ":f  7110 = END QUESTION 1  *4,8;"Negatives" 90,0;"Complete the following sentences" >21,0;" PRESS ANY KEY TO CONTINUE " w$=:w$""2285 w$=:w$=""2286 K87W:clr:f=13 21:f,0;" ":f: 90,0;"Complete the following sentences"  875k $65040:1050:q$,limit f=1limit:s$(f):f f=1limit:y(f),x(f):f f=1limit:a$(f):f f=1limit:h$(f):f f=1limit:v(f):f q=1limit t=13 h(q,t) t q #pointer=1:question=1 .g=1limit 0xd=0:disp 2Fclr:f=12 21:f,0;" ":f:subq 3e=x(pointer):try=0 85clr:f=1221:f,0;" ":f:subq ;Z11 ,21;"question 2";10 ,0;"Complete the following sentences" <inp @test B'flag=0right:wait:2488 Ftry1hnt Htry123608 :clr Jtry=2240 pointer=pointer+1 g [ END QUESTION 2 >21,0;" PRESS ANY KEY TO CONTINUE " 7110 w$=:w$=""2554 Rclr:e$;e$:87W:f=13 21:f,0;" ":f:  875k (clr 2 wait:clr i$="1" @i$="2"502 B i$="3" D""3140D F 3100 X!******************************* b:5:0:1: l-1,8;"French module 6 " v73,3;" Interrogatives/Negatives " E6,0;"The following keys will give youaccented letters"  49 ,0;" 1 = e 2 = e 3 = e 4 = a" 48,0;" " 811 ,0;" 5 = u ": 6 = o 7 = c 8 = i" 510 ,0;" " `21,140:218,0:0,30:-218,0:0,-30 `19,138:222,0:0,34":-222,0:0,-34" 013 ,0;"To edit your input press -" ,15,6;"{CAPS} {0}" :17,0;"Please write these down to help you." =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: -1,8;"French module 6 " 73,3;" Interrogatives/Negatives " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 (i$="1"tot=tot+10 ::2000 (i$="2":tot=tot+10 :2270  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 6" `73,3;" Interrogatives/Negatives " j,10 ,8;"You have managed" t+11 ,8;sc;" out of ";tot ~*12 ,8;"without a hint" _524,568:148,0:0,58::-148,0:0,-58: _502,546:152,0:0,62>:-152,0:0,-62> _480,524:156,0:0,66B:-156,0:0,-66B _46.,502:160,0:0,70F:-160,0:0,-70F t17,0;"For further revision,refer to the sections ~Interrogatives~ p.32-33 and ~Negatives~ p.30-31." M#0;"To use this Module again press R to stop press S" i$=:i$""7610 i$=:i$=""7612 i$="r"i$="R" i$="s"i$="S" .2~L,20:7610 ? 7999? @72,4;"FRENCH IMPERFECT TENSE":back:ship S::::;" For Pan Study aids  ":::::"By Bryan Curry" " #(P1301:q=110 ::xd=0:yd=2:q$:disp:0:q #2e1066*:l=112 :hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l '  ' "mod6"2: '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^acindgZESȅ`  SSӽ  I m/c XH?ZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>??~@|@@@>BB<DHpHDBBfZBBBBbRJFB@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C8i$="a"i$="A"i$="Prepositions":i=1:838F Di$="Pronouns":i=2 H.5,45-:19,9 ;"START THE TAPE";20,0;" Loading: ";20,10 ;1;7;1;i$;20,31;:7:1:840H+i I 20,31;"";:"mod7" J 20,31;"";:"mod8" APhysicsordeeadinLodtitlex dgx &a7pi[wPMODULESD]D @I<Bf8B 8xB8x?B8 B<<8<<8D @,144:30,0:20,20:-30,0:-20,-20:0,-20:30,0:0,20:0,-20:20,20:0,20:-30,0:0,-20: ~5,10 ;"":70F,155:30,0:20,20:-30,0:-20,-20:0,-20:30,0:0,20:0,-20:20,20:0,20:-30,0:0,-20: 1,6;"";2,6;"":20,128:30,0:20,20:-30,0:-20,-20:0,-20:30,0:0,20:0,-20:20,20:0,20: '2,10 ;"";3,10 ;"":40(,154:30,0:20,20:-30,0:-20,-20:0,-20:30,0:0,20:0,-20:20,20:0,20:-30,0:0,-20: 8,4;"";9 ,4;"":24,140:30,0:20,20:-30,0:-20,-20:0,-20:30,0:0,20:0,-20:20,20:0,20:  I give right answer 87W K15,16;"The right answer";17,16;"is "; f=1v(pointer) ma$((pointer),f)="1"18,17+f-1;"";19,17+f-1;"e":a$((pointer),f)="e" ma$((pointer),f)="2"18,17+f-1;"";19,17+f-1;"e":a$((pointer),f)="e" ma$((pointer),f)="3"18,17+f-1;"";19,17+f-1;"e":a$((pointer),f)="e" ma$((pointer),f)="4"18,17+f-1;"";19,17+f-1;"a":a$((pointer),f)="a" f /19,17;a$((pointer),v(pointer)); "wait: ,zꍍ set up screen ^Z******************************** clear message area *********************************** c'c$=" " h'f=05:f,0;c$;::f m rz************************************************************************************************************************ |0,3;" ";:1,3;" INTERVIEWS AVEC LES ";2,3;" SURVIVANTS ": f=03:1;f,0;" ":f:4,0;" ": }  :f=170F xd=xd+1 3q$(f)="#"yd=yd+2:xd=0:f=f+1  q$(f)="*" yd,xd;q$(f); +q$(f)="1"yd-1,xd;"";yd,xd;"e": +q$(f)="2"yd-1,xd;"";yd,xd;"e": +q$(f)="3"yd-1,xd;"";yd,xd;"e": +q$(f)="4"yd-1,xd;"";yd,xd;"a": +q$(f)="5"yd-1,xd;"";yd,xd;"u": f :insetred nov  f=130 q$(30+f)="*" 3,f;q$(30+f); 4q$(f+30)="1"2,f;"";3,f;"e": 4q$(f+30)="2"2,f;"";3,f;"e": 4q$(f+30)="4"2,f;"";3,f;"a": 4q$(f+30)="3"2,f;"";3,f;"e": 4q$(f+30)="5"2,f;"";3,f;"u": f f=130 q$(60<+f)="*" 4q$(f+60<)="1"4,f;"";5,f;"e": 4q$(f+60<)="4"4,f;"";5,f;"a": 4q$(f+60<)="3"4,f;"";5,f;"e": 4q$(f+60<)="2"4,f;"";5,f;"e": 4q$(f+60<)="5"4,f;"";5,f;"u": f  A &Yꈈ subq display sub question (`11 ,16;"HINT ": 11 ,0;"WORKSPACE ":65040 :/sy=13 :sx=0:f=170F <s$(pointer,f)="*" >9s$(pointer,f)="#"sy=sy+2:sx=0:650 @Os$(pointer,f)="1"5;sy,sx;"e";5;sy-1,sx;"":648 BOs$(pointer,f)="2"5;sy,sx;"e";5;sy-1,sx;"":648 DOs$(pointer,f)="3"5;sy,sx;"e";5;sy-1,sx;"":648 FOs$(pointer,f)="4"5;sy,sx;"a";5;sy-1,sx;"":648 GOs$(pointer,f)="6"5;sy,sx;"i";5;sy-1,sx;"":648  5;sy,sx;s$(pointer,f); sx=sx+1 f  [ inp INPUT SUB  "len=0:x(pointer)=e:y(pointer),x(pointer);"_________";y(pointer)-1,x(pointer);" ":65040:v$="" %.2~L,10 ''y(pointer),x(pointer);;"?";: )i$=:i$""809) *i$=:i$=""810* +.07}\(,1 , i$=13 ;8;" ";: -i$=12 x(pointer)1len1len=len-1:v$=v$(len):x(pointer)=x(pointer)-1:y(pointer),x(pointer);" ";y(pointer)-1,x(pointer);" ":807' .Fv$v(pointer)+4.25~,40(:8;" ";:807' /v$=v$+i$:len=len+1 0v$="@"7105 1Oi$="1"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 2Oi$="2"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 3Oi$="3"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 4Oi$="4"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 5Oi$="5"y(pointer),x(pointer);"u";y(pointer)-1,x(pointer);"":i$="u" R;y(pointer),x(pointer);i$;:x(pointer)=x(pointer)+1 \ 807' f9------------------------------------------------------- o \ test test the answer 7v$=a$(pointer,v(pointer))try=1sc=sc+1 4v$=a$(pointer,1v(pointer)):flag=0: cv$a$(pointer,1v(pointer))flag=1:try=try+1:21,0;"Try again": Z****************************** right *********************************************** .7,14;"CORRECT answer": ************************** DATA FOR THE MAIN ROUTINE ****************************************************************** "O5 est le ballon? *"  8  "Il est #_________#la bo6te.*"  "Il est #_________#la bo6te.*"  "Il est #_________#la bo6te.*"  "Il est #_________#la bo6te.*"  "Il est #_________#la bo6te.*" #"Il est #____________#la bo6te.*"  "Il est #_________#la bo6te.*" $"Il est #_____________#la bo6te.*" 15,0,15,0,15,0,15,0,15,0,15,0,15,0,15,0 Q"sur","devant","dans","derri2re","sous","au-dessus de","contre","au-dessous de" '"The English #translation is# 'on'.*" 0"The English #translation is# 'in front of'.*" '"The English #translation is# 'in'.*" +"The English #translation is# 'behind'.*" *"The English #translation is# 'under'.*" *"The English #translation is# 'above'.*" ,"The English #translation is# 'against'.*" *"The English #translation is# 'below'.*"  #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" #"Look at #page 8 #in the book.*" C3,6,4,8,4,12 ,6,13 d7,1,9 ,7,2,10 ,7,3,11 ,7,4,12 e7,5,13 ,7,6,14,7,7,15,7,8,16 +++++++++++++++++++++ "O5 est le cin1ma? *"  6 2"Il est #____________ #la poste et #la banque.*" %"Il est #____________ #la banque.*"  &"Elle est #______________# cin1ma.*" !&"Elle est #______________# cin1ma.*" "&"Elle est #______________# cin1ma.*" $%"Il est #______________# la gare.*" &g15,0,15,0,15,0,15,0,15,0,15,0 (M"entre","4 gauche de","4 droite du","en face du","4 gauche du","en face de" *;"The cinema is #between the #post office and# the bank.*" +-"The cinema is #on the left of #the bank.*" ,."The bank is on #the right of #the cinema.*" -*"The station #is opposite #the cinema.*" .3"The post office#is on the left #of the cinema.*" 0("The cinema is#opposite the#station.*" 2@"MAKE SURE THAT#you have only#used one word #in your answer.*" 3;"MAKE SURE THAT#you have used # words in your# answer.*" 4<"MAKE SURE THAT #you have used # words in your# answer.*" 5<"MAKE SURE THAT #you have used # words in your# answer.*" 6<"MAKE SURE THAT #you have used # words in your# answer.*" 7<"MAKE SURE THAT #you have used # words in your# answer.*" :65,11 ,11 ,10 ,11 ,10  "look at #page 7 #for help.*" wQ1,2,1,4,4,2,2,4,2,2 x1,1,12 ,2,2,13 ,3,3,14,4,4,15,5,5,16,6,6,17,7,7,18,8,8,19,9 ,9 ,20 y10 ,10 ,20 М start of program  "4:7::65040  ***** set screen ***** udgs: 2*********done now move boat ******************** 4Z***************************** screen end ********************************************** 72#0;" PRESS ANY KEY TO CONTINUE " 9.2,30 :165001,2:65000:65040 <clr =11000:q$,limit:f=1limit:s$(f):f >f=1limit:y(f),x(f):f @f=1limit:a$(f):f A#f=1limit*2:h$(f):f Bf=1limit:v(f):f Cq=1limit Dt=13 Eh(q,t) Ft Gq Hdisp aquestion=1 fg=1limit h(106j+(4*g):display box ke=x(pointer):try=1 zAf=13 21:f,0;" ":f:subq |!11 ,21;"question 1" inp test 'flag=0right:wait:2250 try3hnt try32170z try=4240 pointer=pointer+1 π0,0;:f=17:" ":f:f=14:" ":f:clear box g Ff=010 :f,0;" ":f = END QUESTION 1   7110 Kclr:87W:f=13 21:f,0;" ":f:  875k /2,2;"__________________________" /4,2;"__________________________" 2,10 ;"S.N.C.F.";0,10 ;" ";1,2;"" `5,4;"P.T.T";5,11 ;"cinema";5,20;"banque" 1050:q$,limit f=1limit:s$(f):f f=1limit:y(f),x(f):f f=1limit:a$(f):f #f=1limit*2:h$(f):f f=1limit:v(f):f q=1limit t=13 h(q,t) t q #pointer=1:question=1 .g=1limit 0xd=0:disp 3e=x(pointer):try=0 8Af=13 21:f,0;" ":f:subq :!11 ,21;"question 2" <inp @test B'flag=0right:wait:2488 Ftry2hnt Htry223608 Jtry=3240 pointer=pointer+1 (g=1q$="O5 est le cin1ma? *" (g=2q$="O5 est la banque? *" 'g=3q$="O5 est la gare? *" (g=4q$="O5 est la poste? *" (g=5q$="O5 est le cin1ma? *" g 7110 [ END QUESTION 2 'e$=" " Rclr:e$;e$:87W:f=13 21:f,0;" ":f:  875k (clr 2 wait:clr i$="1" @i$="2"502 B i$="3" D""3140D F 3100 X!******************************* Y 6 b:5:0:1: l-1,8;"French module 7 " v-3,8;" Prepositions " E6,0;"The following keys will give youaccented letters"  49 ,0;" 1 = e 2 = e 3 = e 4 = a" 48,0;" " 811 ,0;" 5 = u ": 6 = o 7 = c 8 = i" 510 ,0;" " `21,140:218,0:0,30:-218,0:0,-30 `19,138:222,0:0,34":-222,0:0,-34" 013 ,0;"To edit your input press -" ,15,6;"{CAPS} {0}" ?17,0;"Please write these keys down to help you." =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: -1,8;"French module 7 " ,3,8;" Prepositions " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '" 3  question 3" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 i$="1"pointer=1:sx=16:tot=tot+8:xd=10 :yd=9 :hx=17:hy=13 ::65040:2000 Ai$="2":yd=9 :65040:tot=tot+6:2275 6i$="3"tot=tot+10 ::65040:2550  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 7" `'5,5;"Prepositions" j,10 ,8;"You have managed" t+11 ,8;sc;" out of ";tot ~*12 ,8;"without a hint" _524,568:148,0:0,58::-148,0:0,-58: _502,546:152,0:0,62>:-152,0:0,-62> _480,524:156,0:0,66B:-156,0:0,-66B _46.,502:160,0:0,70F:-160,0:0,-70F e17,0;"For further revision,refer to the section ~Prepositions~ on pages 37 - 39." M#0;"To use this Module again press R to stop press S" i$=:i$""7610 i$=:i$=""7612 i$="r"i$="R" i$="s"i$="S" .2~L,20:7610 ? 7999? @72,4;"FRENCH IMPERFECT TENSE":back:ship S::::;" For Pan Study aids  ":::::"By Bryan Curry" " #(P1301:q=110 ::xd=0:yd=2:q$:disp:0:q #2e1318&:l=120:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l ' 7:0:7 '  ' "mod7"2: '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^hiacindgZESȅ`  SSӅ` I m/c XLZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>??~@|@@@>BB<DHpHDBBfZBBBBbRJFB9s$(pointer,f)="#"sy=sy+2:sx=0:650 @=s$(pointer,f)="1"sy,sx;"e";sy-1,sx;"":648 A+s$(pointer,f)=""sy,sx;"4";:648 B=s$(pointer,f)="2"sy,sx;"e";sy-1,sx;"":648 C+s$(pointer,f)=""sy,sx;"2";:648 D=s$(pointer,f)="3"sy,sx;"e";sy-1,sx;"":648 F=s$(pointer,f)="4"sy,sx;"a";sy-1,sx;"":648 G=s$(pointer,f)="6"sy,sx;"i";sy-1,sx;"":648 H=s$(pointer,f)="7"sy,sx;"c";sy+1,sx;"":648 M=s$(pointer,f)="8"sy,sx;"o";sy+1,sx;"":648 sy,sx;s$(pointer,f); sx=sx+1 f  [ inp INPUT SUB  "rlen=0:x(pointer)=e:y(pointer),x(pointer);"_";y(pointer)-1,x(pointer);" ":65040:v$="" %.2~L,10 ''y(pointer),x(pointer);;"?";: )i$=:i$""809) *i$=:i$=""810* +.07}\(,1 , i$=13 ;8;" ";: -i$=12 x(pointer)1len1len=len-1:v$=v$(len):x(pointer)=x(pointer)-1:y(pointer),x(pointer);" ";y(pointer)-1,x(pointer);" ":807' .Fv$v(pointer)+4.25~,40(:8;" ";:807' /v$=v$+i$:len=len+1 0v$="@"7105 1Oi$="1"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 2Oi$="2"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 3Oi$="3"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 4Oi$="4"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 5Oi$="5"y(pointer),x(pointer);"u";y(pointer)-1,x(pointer);"":i$="u" 6Oi$="8"y(pointer),x(pointer);"o";y(pointer)-1,x(pointer);"":i$="o" > v$=v$+i$ R;y(pointer),x(pointer);i$;:x(pointer)=x(pointer)+1 \ 807' f9------------------------------------------------------- o \ test test the answer 7v$=a$(pointer,v(pointer))try=0sc=sc+1 4v$=a$(pointer,1v(pointer)):flag=0: Dv$a$(pointer,1v(pointer))flag=1:try=try+1: Z****************************** right *********************************************** .21,0;"CORRECT answer": ************************** DATA FOR THE MAIN ROUTINE ******************************************************************  9 "*" _"Est-ce que ce magn1tophone #appartient 4 #Th1r2se?###Non, ce n'est#pas _____#magn1tophone.*" ""#####C'est ______!#de Denise.*" "#####C'est ______!*"  C"C'est la maison#des Marin?#####Non, ce n'est#pas _____#maison.*"  $"#####C'est _____!#des Legrange.*"  "#####C'est ______!*"  W"Ces perruches appartiennent#4 Georges?####Non. Ce ne#sont pas# ________#perruches.*"  0"#####Ce sont# ______ qui#nous#appartiennent*" "#####Ce sont# _______!*" (16,4,14,6,14,6,18,4,14,6,14,6,18,0,16,0,16,0 )N"son","celui","le sien","leur","celle","la leur","ses","celles","les n8tres" +"Choose from#son#sa#ses*" ,"It is UN#'magn1tophone'.*" -("Choose from#celui#celle#ceux#celles*" .!"'Magn1tophone'#is masculine.*" /4"Choose from#le sien#le sienne#la sien#la sienne*" 0!"'Magn1tophone'#is masculine.*" 1"It's not their#house.*" 2("With 'leur'#there is no#extra 'e'.*" 3("Choose from#celui#celle#ceux#celles*" 4"It's#feminine.*" 52"Choose from#le leur#la leur#la leure#la leurs*" 6("With 'leur'#there is no#extra 'e'.*" 7*"Use the word#for 'his'#in the#plural.*" 8""Choose from#leur#leurs#sa#ses*" 9("Choose from#celui#celle#ceux#celles*" :)"~Les perruches~#is a feminine#plural*" ;"Say ~They're#ours~*" <"Remember#the accent*" ?J3,5,7,4,5,7,3,6,10 @a1,2,3,3,4,5,5,6,8,7,8,8 A9 ,10 ,11 ,11 ,12 ,13 ,13 ,14,15,15,16,17,17,18,19 Gy****************************** print hint hnt ********************************************************************** H1hy=13 :hx=17:t$=h$(h(pointer,try)) I=f=12 21:f,16;" ";:f Lf=170F T t$(f)="*" V3t$(f)="#"hx=17:hy=hy+2:1139s XA: t$(f)="1"6;hy,hx;"e";hy-1,hx;"":1137q Z@ t$(f)="2"6;hy,hx;"e";hy-1,hx;"":1137q \@ t$(f)="3"6;hy,hx;"e";hy-1,hx;"":1137q ]@ t$(f)="4"6;hy,hx;"a";hy-1,hx;"":1137q ^6;hy,hx;t$(f); f. t$(f)=""6;hy,hx;"1";:1137q g. t$(f)=""6;hy,hx;"2";:1137q h. t$(f)=""6;hy,hx;"3";:1137q qhx=hx+1 sf : f=116 46;20,16;t$(65A82R): f 65040  ;*********************************************************  "*",6 ="Combien de fr2res avez-vous?#####Vous _______#avez deux?*" K"Tu as ma cassette de# Culture Club?#####Non! Je _______#ai rendu hier.*" ;"Je viendrai chez vous demain.######Je _______#promets.*" H"Tu as 1crit 4 Marc?######Oui,je _______#ai 1crit une#longue lettre.*" M"Vous 3tes jamais all1 au#Portugal?####Non,je n'_______#suis jamais#all1e*" C"Tu as piqu1 son ballon,Luc!#######Donne-_______#tout de suite!*" "g14,5,16,8,16,3,16,7,14,9 ,18,6 $+"en","te l'","vous le","lui","y","le lui" &"Have you got#two of them?*" '%"I gave it back#TO YOU#yesterday.*" (6"~I promise#IT to you~.#Remember vous#comes first.*" )-"It is ~1crire#4~.So #translate#~to him~.*" *"I've never#been there.* " +"~Give it to#him~!*" w12,5,7,3,1,6 x1,1,12 ,2,2,13 ,3,3,14,4,4,15,5,5,16,6,6,17,7,7,18,8,8,19,9 ,9 ,20 y21,10 ,10 М start of program  "4:7::65040  ***** set screen ***** udgs: 4Z***************************** screen end ********************************************** 77#0;" PRESS ANY KEY TO CONTINUE " 8 .2,30:0 9.1}L,30 :165001,2:65000:65040 =11300:q$,limit:f=1limit:s$(f):f >f=1limit:y(f),x(f):f @f=1limit:a$(f):f Af=1limit:h$(f):f Bf=1limit:v(f):f Cq=1limit Dt=13 Eh(q,t) Ft Gq Hxd=0:yd=0:disp a0pointer=1:try=1:question=1 fg=1limit gclr ke=x(pointer):try=1 zFclr:f=13 21:f,0;" ":f:subq {!11 ,21;"question 2" inp test 'flag=0right:wait:2250 try2hnt try22170z try=3245 pointer=pointer+1 π0,0;:f=17:" ":f:f=14:" ":f:clear box g Ff=010 :f,0;" ":f 65040  7110 {65040:1,5;"Choose the correct";2,5;"pronoun in the following examples" >21,0;" PRESS ANY KEY TO CONTINUE " w$=:w$""2285 w$=:w$=""2286 65040 B21,0;" PLEASE WAIT "  875k 1000:limit,q$ f=1limit:s$(f):f  i=1limit:y(i):x(i):i f=1limit:a$(f):f #f=1limit*2:h$(f):f f=1limit:v(f):f q=1limit t=13 h(q,t) t q #pointer=1:question=1 $0,0;c$;c$:clr .!g=1limit:yd=1 2hclr:21,16;" ":f=12 21:f,0;" ":f::subq 3e=x(pointer):try=0 4Bg=1g=2g=3q$="C'est 4 Denise !*":130 5Jg=4g=5g=6q$=" La maison des Legrange.*":140 6Kg=7g=8g=9 q$=" Ce sont 4 nous! *":160 7xd=0:disp 9!11 ,21;"question 1" <inp @test B'flag=0right:wait:2488 Ftry2hnt Htry223608 :clr Jtry=3245 pointer=pointer+1 g 7110 [ END QUESTION 2 >21,0;" PRESS ANY KEY TO CONTINUE "  w$=:w$=""2554 Rclr:e$;e$:87W:f=13 21:f,0;" ":f:  875k (clr 2 wait:clr i$="1" @i$="2"502 B i$="3" D""3140D F3100 X!******************************* Y 6 b:5:0:1: l-1,8;"French module 8 " v73,3;" Possessives and Pronouns " E6,0;"The following keys will give youaccented letters"  49 ,0;" 1 = e 2 = e 3 = e 4 = a" 48,0;" " $11 ,0;" 5 = u 8 = o" 310 ,0;" " `21,140:218,0:0,30:-218,0:0,-30 `19,138:222,0:0,34":-222,0:0,-34" 013 ,0;"To edit your input press -" ,15,6;"{CAPS} {0}" :17,0;"Please write these down to help you." =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: -1,8;"French module 8 " 73,3;" Possessives and Pronouns " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 'i$="1"tot=tot+9 ::2280 i$="2"tot=tot+6::65040:0,0;"Complete the sentences by typingin the correct pronoun or pronouns.":#0;" PRESS ANY KEY TO CONTINUE ":0:2000  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 8" `75,3;" Possessives and Pronouns " j,10 ,8;"You have managed" t+11 ,8;sc;" out of ";tot ~*12 ,8;"without a hint" _524,568:148,0:0,58::-148,0:0,-58: _502,546:152,0:0,62>:-152,0:0,-62> _480,524:156,0:0,66B:-156,0:0,-66B _46.,502:160,0:0,70F:-160,0:0,-70F P17,0;"For further revision,refer to ~Pronouns~ on pages 40-42." M#0;"To use this Module again press R to stop press S" i$=:i$""7610 i$=:i$=""7612 i$="r"i$="R" i$="s"i$="S" .2~L,20:7610 ? 7999? #2e1318&:l=123:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l ' "mod8"2 '"m/c"65000,600X H9LL CA@OLC@3 Lμ^L^YLIY\CI8IE@>ۛ[ȲIÇ>]͍L :?@ I@=MMLC? p Mo C ighnGlainraiPointexgecorotaesuson ub&isl^acindgZe S `  SSӽ  I m/c X ZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>343