ZXTape! 2French: Tape 1 - Side B Pan Course Tutors/Hill MacGibbon1986English/French EducationalNoneOriginal ReleaseTZXed by Andrew Barker0 Modules AMODULESA c "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." :9 ,5;" ";10 ,5;" A. Perfect tense ";11 ,5;" ";12 ,5;" " ;}13 ,5;" B. Imperfect tense ";14,5;" ";16,3;"Choose A or B" =""829= >@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C9i$="a"i$="A"i$="Perfect tense":i=1:838F D!i$="Imperfect tense":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;"";:"mod1" J 20,31;"";:"mod2" *IImperfect tenseiA @hQ<Bf8B 8xB8x?B8 B<<8<<8D @9s$(1,f)="#"sy=sy+2:sx=0:650 @Os$(1,f)="1"5;sy,sx;"e";5;sy-1,sx;"":648 BOs$(1,f)="2"5;sy,sx;"e";5;sy-1,sx;"":648 DOs$(1,f)="3"5;sy,sx;"e";5;sy-1,sx;"":648 FOs$(1,f)="4"5;sy,sx;"a";5;sy-1,sx;"":648 GFs$(1,f)="6"5;sy,sx;"i";sy-1,sx;"":648  5;sy,sx;s$(1,f); sx=sx+1 f   inp INPUT SUB  !av(pointer)=1y(pointer),x(pointer);"(Y/N)":.2~L,10 :v$="":870f "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;" ";:x(pointer)=e: -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 0i$="@"7110 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' fv$=:v$""870f hv$=:v$=""872h jv$="@"7110 l3v$="y"v$="Y"20,13 ;"yes":v$="y": n2v$="n"v$="N"20,14;"no":v$="n": x.2~L,10 :870f test test the answer 7v$=a$(1,v(pointer))try=0sc=sc+1 4v$=a$(1,1v(pointer)):flag=0: Dv$a$(1,1v(pointer))flag=1:try=try+1: ****** right ******** ,21,0;"CORRECT answer": G****** print hint hnt** H*hy=13 :hx=16:t$=h$(1) I=f=12 21:f,16;" ";:f Lf=180P T t$(f)="*" V3t$(f)="#"hx=16:hy=hy+2:1139s XI t$(f)="1"6;hy,hx;"e";6;hy-1,hx;"":1137q ZI t$(f)="2"6;hy,hx;"e";6;hy-1,hx;"":1137q \I t$(f)="3"6;hy,hx;"e";6;hy-1,hx;"":1137q ]I t$(f)="4"6;hy,hx;"a";6;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 i. t$(f)=""6;hy,hx;"4";:1137q j. t$(f)=""6;hy,hx;"5";:1137q k. t$(f)=""6;hy,hx;"6";:1137q l. t$(f)=""6;hy,hx;"7";:1137q m. t$(f)=""6;hy,hx;"8";:1137q qhx=hx+1 sf :: f=116 46;20,16;t$(65A82R): f 65040   start of program  C502:#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""2002 i$=:i$=""2003 "4:7::65040  875k  ***** set screen ***** ryd=1:xd=0:q$="La journ1e de Nicole.# An account of a typical day# for a French schoolgirl.*":disp 77#0;" PRESS ANY KEY TO CONTINUE " 8.2~L,30:0 9.2~L,30 :165001,2:65000:65040 <clr = 2111? >!f=18:y(f),x(f):f ?16,0,20,6,8,8,8,8,10 ,8,10 ,1,10 ,1,10 ,0 Bf=18:v(f):f CC1,1,15,15,1,1,2,2 Hpointer=1 RKxd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:122z \Ea$(1)="y":s$(1)="Is this verb#reflexive?#(Y/N)*":subq ae=x(pointer):inp dtest f]flag=1h$(1)="A verb with#'se' in front#of it is a#reflexive verb*":hnt:wait hflag=0right:wait opointer=2 pna$(1)="y":s$(1)="Do you need any#letters added to#make the past# participle#agree?(Y/N)*":subq re=x(pointer):inp:test tnflag=1h$(1)="Nicole is a girl#The subject is#feminine and it#is a reflexive# verb*":hnt:wait vflag=0right:wait xJa$(1)="s'est r1veill1e":s$(1)="Now complete#the sentence.*" y8q$="Nicole ________________ 4 sept #heures et quart.*" z$subq:xd=0:yd=8:disp |*pointer=3:e=x(pointer):inp:test ~oflag=1h$(1)="HAVE YOU: used #3tre as an #auxiliary?#made the past#participle agree*":hnt:wait 'flag=0right:wait:2186 Nsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test Oflag=1h$(1)="The correct#past participle#is#'r1veill1e'.*":hnt 'flag=0right:wait:2186 Nsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test flag=1240 wait clr  2220 !f=18:y(f),x(f):f 16,0,20,6,8,6,8,8,10 ,8,10 ,1,10 ,1,10 ,0 f=18:v(f):f C1,1,11 ,15,1,1,2,2 pointer=1 Txd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:132:pic Ea$(1)="y":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp test ]flag=1h$(1)="A verb with#'se' in front#of it is a#reflexive verb*":hnt:wait flag=0right:wait pointer=2 na$(1)="y":s$(1)="Do you need any#letters added to#make the past# participle#agree?(Y/N)*":subq e=x(pointer):inp:test nflag=1h$(1)="Nicole is a girl#The subject is#feminine and it#is a reflexive# verb*":hnt:wait flag=0right:wait Fa$(1)="s'est lev1e":s$(1)="Now complete#the sentence.*" 1q$="Elle _____________ minutes#plus tard.*" $subq:xd=0:yd=8:disp *pointer=3:e=x(pointer):inp:test hflag=1h$(1)="HAVE YOU: used #the right form#of '3tre' and#past participle.#*":hnt:wait 'flag=0right:wait:2336 Nsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test Kflag=1h$(1)="The correct#past participle#is#'lev1e'.*":hnt 'flag=0right:wait:2324 Osubq:xd=0:yd=8:disp:pointer=4:e=x(pointer)::inp:test flag=1240 wait `clr d 2412l h!f=18:y(f),x(f):f l16,0,16,0,10 ,5,8,8,10 ,8,10 ,1,10 ,1,10 ,0 pf=18:v(f):f tB1,1,6,15,1,1,2,2 xpointer=1 |Txd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:142:pic Ea$(1)="n":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp test fflag=1h$(1)="A verb without#'se' in front#of it is not#a reflexive #verb.*":hnt:wait flag=0right:wait pointer=2 Ba$(1)="n":s$(1)="Is it an#3tre verb ?#(Y/N)*":subq e=x(pointer):inp:test eflag=1h$(1)="Look on page# of your#book to find a #list of# 3tre verbs*":hnt:wait flag=0right:wait Aa$(1)="a pris":s$(1)="Now complete#the sentence.*" Fq$="@ huit heures moins le quart,#elle _________le petit d1jeuner.*" $subq:xd=0:yd=8:disp *pointer=3:e=x(pointer):inp:test flag=1h$(1)="HAVE YOU: used #the right form#of AVOIR for#ELLE and right #past participle*#see P *":hnt:wait 'flag=0right:wait:2516 Nsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test Jflag=1h$(1)="The correct#past participle#is#'pris'.*":hnt 'flag=0right:wait:2520 Nsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test flag=1240 :wait clr 2562 !f=18:y(f),x(f):f 16,0,16,0,8,8,8,8,10 ,8,10 ,1,10 ,1,10 ,0 f=18:v(f):f B1,1,8,15,1,1,2,2 pointer=1 Txd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:152:pic Ea$(1)="n":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp test "dflag=1h$(1)="A verb without#'se' in front#of it is not a#reflexive verb*":hnt:wait &flag=0right:wait *pointer=2 .Aa$(1)="n":s$(1)="Is it an#3tre verb?#(y/n)*":subq 2e=x(pointer):inp:test 6aflag=1h$(1)="Look on page #of your book#for a list of #3tre verbs.*":hnt:wait :flag=0right:wait >Ca$(1)="a quitt1":s$(1)="Now complete#the sentence.*" B3q$="Nicole __________ la maison 4 #8 heures 0.*" F$subq:xd=0:yd=8:disp J*pointer=3:e=x(pointer):inp:test Nrflag=1h$(1)="HAVE YOU: used #right form AVOIR#for ELLE#past participle#agree P *":hnt:wait R'flag=0right:wait:2666j VNsubq:xd=0:yd=8:disp:pointer=3:e=x(pointer):inp:test ZKflag=1h$(1)="The correct#past participle#is#'quitt1'*":hnt ^'flag=0right:wait:2666j bOsubq:xd=0:yd=8:disp:pointer=4:e=x(pointer)::inp:test fflag=1240 jwait clr 3012 !f=18:y(f),x(f):f Ą16,0,16,0,20,6,8,8,8,8,8,8,8,8,8,8 f=18:v(f):f A1,1,1,9 ,9 ,9 ,9 ,9 pointer=1 Txd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:162:pic Fa$(1)="n":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp:test dflag=1h$(1)="A verb without#'se' in front#of it is not a#reflexive verb*":hnt:wait flag=0right:wait pointer=2 Aa$(1)="y":s$(1)="Is it an#3tre verb?#(y/n)*":subq e=x(pointer):inp:test ^flag=1h$(1)="Look on page #of your book#for list of #3tre verbs*":hnt:wait flag=0right:wait  pointer=3:a$(1)="y":s$(1)="Do you need any#letters added to#make the past# participle#agree?(Y/N)*":subq e=x(pointer):inp:test jflag=1h$(1)="Nicole is a girl#The subject is#feminine and it#is an 3tre# verb*":hnt:wait flag=0right:wait E:a$(1)="est all1e":s$(1)="Now complete#the sentence.*" -q$="Nicole ____________ 4#l'1cole 4 pied.*" $subq:xd=0:yd=8:disp *pointer=4:e=x(pointer):inp:test rflag=1h$(1)="HAVE YOU: used #the right form #of 3tre? Does#the past #participle agree*":hnt:wait (flag=0right:wait::3116, o:subq:xd=0:yd=8:disp:pointer=4:e=x(pointer):inp:test Rflag=1h$(1)="The correct#past participle#is#'all1e'*":hnt 7flag=0right:wait:3116, $Nsubq:xd=0:yd=8:disp:pointer=4:e=x(pointer):inp:test (flag=1240 , wait:clr clr  4030 !f=18:y(f),x(f):f 16,0,16,0,20,6,8,6,10 ,8,10 ,1,10 ,1,10 ,0 f=18:v(f):f B1,1,1,11 ,1,1,2,2 pointer=1 Txd=2:yd=1:q$="Qu'est-ce qu'elle a fait ?*":disp:172:pic Ea$(1)="n":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp:test dflag=1h$(1)="A verb without#'se' in front#of it is not a#reflexive verb*":hnt:wait flag=0right:wait "pointer=2 ,Aa$(1)="y":s$(1)="Is it an#3tre verb?#(y/n)*":subq 6e=x(pointer):inp:test @^flag=1h$(1)="Look at P.#of your book #for a list of# 3tre verbs*":hnt:wait Jflag=0right:wait T~pointer=3:a$(1)="y":s$(1)="Do you need any#letters added to#make the past#participle#agree?(Y/N)*":subq Ve=x(pointer):inp:test Wjflag=1h$(1)="Nicole is a girl#The subject is#feminine and it#is an 3tre# verb*":hnt:wait Yflag=0right:wait [Fa$(1)="est arriv1e":s$(1)="Now complete#the sentence.*" ^8q$="Elle _______________# 4 neuf heures moins vingt.*" hDsubq:xd=0:yd=8:disp rRpointer=4:e=x(pointer):inp:test |flag=1h$(1)="HAVE YOU: used #the right form#of 3tre for#ELLE.*":hnt:wait Oflag=0right:wait:4290 subq:xd=0:yd=8:disp:pointer=4:e=x(pointer):inp:test `flag=1h$(1)="The correct#past participle#is#'arriv1e'*":hnt Oflag=0right:wait:4290 subq:xd=0:yd=8:disp:pointer=4:e=x(pointer):inp:test flag=1240  wait:clr  5030 !f=18:y(f),x(f):f 16,0,16,0,10 ,0,10 ,0,10 ,8,10 ,1,10 ,1,10 ,0 f=18:v(f):f C1,1,13 ,15,1,1,2,2 pointer=1 Uxd=2:yd=1:q$="Qu'est-ce qu'ils ont fait ?*":disp:212:pic Ea$(1)="n":s$(1)="Is this verb#reflexive?#(Y/N)*":subq e=x(pointer):inp test dflag=1h$(1)="A verb without#'se' in front#of it is not a#reflexive verb*":hnt:wait flag=0right:wait  pointer=2 Aa$(1)="n":s$(1)="Is it an#3tre verb?#(Y/N)*":subq e=x(pointer):inp:test (`flag=1h$(1)="Look at page #in your book for#a list of 3tre#verbs.*":hnt:wait 2flag=0right:wait :-152,0:0,-62> _480,524:156,0:0,66B:-156,0:0,-66B _46.,502:160,0:0,70F:-160,0:0,-70F 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? @ 8000@ J#f=07:a:""+f,a:f KK0,255,128,64@,32 ,16,15,255 O#f=07:a:""+f,a:f PK0,252,15,17,63?,64@,240,255 T#f=07:a:""+f,a:f UD0,4,0,10 ,0,33!,29,0 #2Yl=112 :hx=17:hy=13 ::t$=h$(1):1097I:0::l ' ' "mod1"2 ' "m/c"65000,600X ' "m/c2""a",21*8 '7:7: '&(65535-7962)/1024 o ighnGlainrE eaiPointexgesuson ub&isl^dgZV+` - ++` I "m/c XZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>343"The imperfect ending for 'elles' is '___aient'" :"7,7,8,14 "Remember the 'nous' form of 'dormir' is 'dormons'." (>"The imperfect ending for 'vous' is '___iez'." )>"Remember the 'nous' form of 'dormir' is 'dormons'." *1"The imperfect ending for 'je' is '___ais'." ,>"Remember the 'nous' form of 'prendre' is 'prenons'." -1"The imperfect ending for 'je' is '___ais'." .="Remember the 'nous' form of 'jouer' is 'jouons'." 0?"The imperfect ending for 'nous' is '___ions'." 2T"Remember the 'nous' form of 'se promener' is 'nous promenons'." 3?"The imperfect ending for 'nous' is '___ions'." 6C7,7,7,7,6,7,14,15 89 ,1,2,9 ,4,4,9 ,5,2,9 ,6,6,9 ,7,2,9 ,8,8,9 ,2,2,9 ,8,8 М start of program   x=25 "4:7::65040  875k  ***** set screen ***** udgs:200: e1,0;"Le Titanic voyageait sur l'Ocean Atlantique,vers New York.";0,29;"" 2*********done now move boat ******************** Nf=120:x=x-1:ship:f,86V+f:f+20,86V+f 0f+40(,86V+f:f+60<,86V+f ;f+240<255f+240,46.+(40(+f) 2f+220,86V+f:f+180,86V+f <f+80P,46.+(40(+f):f+120x,86V+f =f+140,46.+(40(+f):f+160,86V+f =f+200,46.+(40(+f):f+220,86V+f @f+100d,46.+(40(+f):f+140,86V+f:f K1;5;2;9 ,x;" ";8,x+2;" ": clr /f=14:.1}L,f:.1}L,-f:f 1,0;"Tout a coup, CRAC! Le Titanic a ";3,9 ;" heurte un iceberg. ";0,5;"";2,15;"" K0;5;0;9 ,x;" ";8,x+2;" ": 4Z***************************** screen end ********************************************** 77#0;" PRESS ANY KEY TO CONTINUE " 8.2~L,30:0 9.2~L,30 :165001,2:65000:65040 <clr =31000:q$,limit:f=14:s$(f):f >!f=14: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 ke=x(pointer):try=1 zAf=13 21:f,0;" ":f:subq {*1;11 ,21;"question 1" inp test 'flag=0right:wait:2250 try3hnt try32170z try=4240 pointer=pointer+1 g = END QUESTION 1  >21,0;" PRESS ANY KEY TO CONTINUE " ""2280 w$=:w$=""2284 Yclr:65040:87W:f=13 21:f,0;" ":f: Xd=255-1:5;9 ,d;" ";8,d+2;" ":d  875k 1,0;"Et que faisaient les passagers ";3,0;"quand le Titanic a heurte ";5,0;"l'iceberg?";2,24;"" 1050:q$,limit f=14:s$(f):f !f=14: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 3e=x(pointer):try=1 8Af=13 21:f,0;" ":f:subq ;!11 ,21;"question 2" <inp @test B'flag=0right:wait:2488 Ftry3hnt Htry323608 Jtry=4240 pointer=pointer+1  g [ END QUESTION 2 Kclr:87W:f=13 21:f,0;" ":f:  875k  130 2f=112 :sink:f:.02{# =,-20 s1,0;" Quelques minutes plus tard,";3,0;" le Titanic a coule.";2,20;"" 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 clr 2f=112 :sink:f:.02{# =,-20 2f=112 :sink:f:.02{# =,-20 (clr 2380|:wait:clr <@q$=" Le reporter a demand1 4 Monsieur Lacombe: * ":disp Z-1300:f=18:s$(f):f \!f=18:y(f),x(f):f ^f=18:a$(f):f `f=110 :h$(f):f bf=18:v(f):f dq=18 ft=13 hh(q,t) jt lq yBquestion=1:pointer=1:try=1:e=x(pointer) }Af=12 21:f,0;" ":f:subq ~!11 ,21;"question 3" inp test 'flag=0right:wait:2710 try3hnt try32685} try=4240 pointer=pointer+1 question=question+1 Vquestion<3e=x(pointer):try=1:q$=" Et il a r1pondu : * ":clr:disp:: question<32685} :try=1:e=x(pointer) clr:wait:clr Dq$=" Le reporter a demand1 4 Mademoiselle Gerard: * ":disp Af=12 21:f,0;" ":f:subq inp test 'flag=0right:wait:2820 try3hnt try32750 try=4240 4question=question+1:pointer=pointer+1 Uquestion<5e=x(pointer):try=1:q$=" Et elle a r1pondu:*":clr:disp:: question<52750 " :try=1:e=x(pointer) 'clr::wait:clr ,Fq$=" Le reporter a demand1 4 Monsieur et Madame Dutan:*":disp 1Af=12 21:f,0;" ":f:subq 6inp ;test @'flag=0right:wait:2900T Etry3hnt Jtry328651 Otry=4240 T4question=question+1:pointer=pointer+1 YUquestion<7e=x(pointer):try=1:q$="Et ils ont r1pondu:*":clr:disp:: ^question<728651 :try=1:e=x(pointer) clr::wait:clr Iq$=" Le reporter a demand1 4 Madame Leclerc et Paulette: *":disp Af=12 21:f,0;" ":f:subq inp test 'flag=0right:wait:3000 try3hnt try32965 try=4240 4question=question+1:pointer=pointer+1 Xquestion<9 e=x(pointer):try=1:q$=" Et elles ont r1pondu:*":clr:disp:: question<9 2965 7000X ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ END +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ &4:5: 0+:;" OPTIONS AVAILABLE " 2":6;"THE IMPERFECT TENSE" 4#:"(1) To run the program again" 6:"(2) To see Instructions" 8:"(3) To end" 92:::" CHOOSE NOW PLEASE (1-3) " :""3130: <i$=:i$=""3132< > i$="1" @i$="2"502 B i$="3" D""3140D X!******************************* ] 10 b:5:0:1: l-1,8;"French module 2 " v-3,8;"Imperfect tense " 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}" 517,0;"Please write these down to you." =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: -1,8;"French module 2 " -3,8;"Imperfect tense " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '" 3  question 3" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 Ai$="1"tot=tot+4::10 :udgs:10 :2000 |i$="2"tot=tot+4::udgs::back:5;8,5;" ";7;9 ,5;" ":2290 >i$="3"tot=tot+8::x=5:udgs:back:2550  i$="0"7500L .2~L,502:7144 L:7:6: V(3,5;"French module 2" `(5,5;"Imperfect tense" j&10 ,8;"You have managed" t%11 ,8;sc;" out of ";tot ~$12 ,8;"without a hint" 17,0;"For further revision refer to the section ~The Imperfect Tense~ on pages 19 - 20. Also refer to the verb tables on pages,183 - 187." _46.,502:160,0:0,70F:-160,0:0,-70F _480,524:156,0:0,66B:-156,0:0,-66B _502,546:152,0:0,62>:-152,0:0,-62> _524,568:148,0:0,58::-148,0:0,-58: 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" " #2e1050:l=112 :hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l '  ' "mod2"2 '"m/c"65000,600X '65535-7962 oighnGlainraiPointexgecorotaesuson ub&isl^hiacindgZ%5  `   5 5  p 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>?"|8@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C8i$="a"i$="A"i$="Future tense":i=1:838F Di$="Present tense":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;"";:"mod3" J 20,31;"";:"mod4" APhysicsordeeadinLodtitlex dgx &a7pi[wPMODULESBdB @BS<Bf8B 8xB8x?B8 B<<8<<8D @C ߜt(s)=65237:k(l=64l)=649DDDDDDD:c(lm)=l,m=64m)=64863_:i(s$r$)=$,r$=64$)=64633y:s(os$)=o,s$=64$)=64390:b(sf,n)s,fn)=f,n=64n)=64229:d(s ,f)=64183:r(s ,f ,nT ,i)=63441:h(os)=o,s=63s)=6xxxxxxx:l(l=62l)=62832p:v(o)=62904:m(o)=62536H  4 &7:0:64999:"": 5:1:0::6,4;" ";8,4;" ";7,0;"1 = e 2 = e 3 = e 4 = a";9 ,0;"5 = u 6 = o" 0,0;"French module 3"''"Future tense"''"The following keys will give accented leters.";11 ,0;"Select the Zodiac sign of your choice and answer the questions.":80P: i=2000:yy=1:xx=0:c$=" ":hx=17:hy=13 :sx=0:sy=13 :yd=9 :xd=10 Jright=930:hnt=1095G:flag=0:hint=0:try=0 Be=0:wait=80P:pointer=1:x=25:g=0 Otest=900:inp=800 :subq=550&:disp=400:clr=300,: fl=0:h(2,1):v(3):h$(1,96`):a$(1,20):y(2):x(2):s$(1,150) ( 4999 765040:21,0;"Press any key":0:0:21,0;" ":65040: 9_f=12 21:f,0;"  ":f:65040: Quf=13:l=13:.02{# =,(*502):l:f:21,16;"PRESS ANY KEY" R""82R Tw$=:w$=""84T V.3,-6:21,0;" ";21,16;" ":f=12 21:f,16;" ":f: W@f=12 21:f,16;" ":f: 87W h(f=110 :f,0;c$;::f m f=03:1;f,0;" ":f:4,0;" ": :f=170F yd-1,xd+1;" " xd=xd+1 4q$(f)="#"yd=yd+2:xd=14: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  (`11 ,16;"HINT ": 11 ,0;"WORKSPACE ":65040 :0sy=13 :sx=0:f=1150 <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 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 "rx(pointer)=e:y(pointer),x(pointer);"_______";y(pointer)-1,x(pointer);" ":65040:v$="" '+y(pointer),x(pointer);;"?";: )i$=:i$""809) *i$=:i$=""810* +.07}\(,1 ,/i$=13 ;8;" ";:x(pointer)=e:: -i$=12 802" .Fv$v(pointer)+4.25~,40(:8;" ";:807' / v$=v$+i$ 0i$="@"5000 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' .21,0;"CORRECT answer": 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)="7"6;hy,hx;"c";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 i. t$(f)=""6;hy,hx;"7";:1137q j. t$(f)=""6;hy,hx;"6";:1137q k. t$(f)=""6;hy,hx;"5";:1137q qhx=hx+1 sf : )h(1,1)=1:try=1 Ҙ7:1::2,0;"Sign : Verseau (Aquarius)";4,0;"Date : 21 jan-18 fev";6,0;"Sign :" ]3,18;"";7,18;"Use -";8,18;"gagner,perdre" M60<,115s:f=16:4,4:4,-4:f M60<,105i:f=16:4,4:4,-4:f 3jump=1:question=1:pointer=1 5s$(1)="Vous# ___________#beaucoup#d'argent.*" @h$(1)="~gagner~ is a#regular ~er~#verb like #~donner~.*" je=0:a$(1)="gagnerez":v(1)=8:x(1)=0:y(1)=15:subq inp Qjump=2h$(1)="The future of#~donner~ is#~donnerez~.#See page .*" flag=1:v$="gagnerez"flag=0:f=12 20:f,16;" ":f:right:wait 5jump2flag=1hnt: jump=jump+1 'flag=1jump32030 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"gagnerez" 557:2,2  579 3jump=1:question=1:pointer=1 4s$(1)="Mais vous le#___________#plus tard.*" @h$(1)="~perdre~ is a#regular ~re~#verb like #~vendre~.*" fe=0:a$(1)="perdrez":v(1)=6:x(1)=0:y(1)=15:subq: inp Pjump=2h$(1)="The future of#~vendre~ is#~vendrez~.#See page .*" flag=1:v$="perdrez"flag=0:f=12 20:f,16;"  ":f:right:wait:  4jump2flag=1hnt  jump=jump+1  'flag=1jump32052  f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"perdrez"  557 * 5000 4)h(1,1)=1:try=1 67:1::2,0;"Sign : Poissons (Pisces)";4,0;"Date : 19 fev-20 mars";6,0;"Sign :" 7]3,12 ;"";7,18;"Use -";8,18;"faire,revenir" :~60<,115s:-4,4:2,0:3,-3:8,4:4,-2:2,-2 ;n-2,-2:-4,-2:-8,4:-3,-3:-2,0:4,4 <~60<,100d:-4,4:2,0:3,-3:8,4:4,-2:2,-2 =n-2,-2:-4,-2:-8,4:-3,-3:-2,0:4,4 J3jump=1:question=1:pointer=1 L2s$(1)="Vous# ___________#un long#voyage.*" N<h$(1)="~faire~ is an#irregular verb#in the future.*" Pke=0:a$(1)="ferez":v(1)=5:x(1)=0:y(1)=15:subq Rinp TCjump=2h$(1)="Look at the#verb tables on#page 85.*" Vflag=1:v$="ferez"flag=0:f=12 20:f,16;" ":f:right:wait W8jump2flag=1hnt Xjump=jump+1 Y'flag=1jump32130R Zf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"ferez" \ 557 ^2,2:579 `3jump=1:question=1:pointer=1 b0s$(1)="Mais vous #___________#bient8t.*" d6h$(1)="~revenir~ is#irregular in#the future.*" fe=0:a$(1)="reviendrez":v(1)=10 :x(1)=0:y(1)=15:subq hinp jCjump=2h$(1)="Look at the#verb tables on#page 8.*" lflag=1:v$="reviendrez"flag=0:f=12 20:f,16;"  ":f:right:wait m flag=1jump2hnt njump=jump+1 o'flag=1jump32152h pf=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"reviendrez" r 557  5000 )h(1,1)=1:try=1 7:1::1,8;"";2,0;"Sign : Belier (Aries)";4,0;"Date : 21 mars-20 avril";6,0;"Sign :" ^3,12 ;"";7,18;"Use -";8,18;"donner,etre"  60<,90Z:-3,3:-2,8:2,8:8,0:2,-8:-2,-8:-3,-3 p63?,102f:59;,102f:59;,110n:-8,8,2:4,-4,2 r63?,102f:59;,102f:61=,110n:8,8,-2:-4,-4,-2 3jump=1:question=1:pointer=1 6s$(1)="Un 1tranger#vous ________#un message.*" 6h$(1)="Notice the#subject is #'un 1tranger'.*" qe=5:a$(1)="donnera":v(1)=7:x(1)=0:y(1)=15:subq !inp Jjump=2h$(1)="'donner' is an#irregular verb.#See page .*" flag=1:v$="donnera"flag=0:f=12 20:f,16;" ":f:right:wait <jump2flag=1hnt jump=jump+1 'flag=1jump32230 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"donnera"  557 2,2:579 3jump=1:question=1:pointer=1 ,s$(1)="Vous ________#tr2s content.*" 3h$(1)="~3tre~ is#irregular in#the future.*" e=5:a$(1)="serez":v(1)=5:x(1)=0:y(1)=13 :subq !inp Cjump=2h$(1)="Look at the#verb tables on#page 8.*" Щflag=1:v$="serez"flag=0:f=12 20:f,16;"  ":f:right:wait <jump2flag=1hnt jump=jump+1 'flag=1jump32252 ԛf=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"serez"  557  5000 )h(1,1)=1:try=1 7:1::2,0;"Sign : Taureau (Taurus)";4,0;"Date : 21 avril-21 mai";6,0;"Sign :" `3,12 ;"";7,18;"Use- ";8,18;"rester,etre"  k63?,95_:-2,2:-1,8:-4,6:4,4:6,0 j63?,95_:2,2:1,8:4,6:-4,4:-6,0 K60<,115s:-4,4:66B,115s:4,4 (61=,110n:65A,110n 3jump=1:question=1:pointer=1 4s$(1)="Vous# ________#calme cette#semaine.*" ;h$(1)="~rester~ is#a regular #verb like#~donner~.*" ve=0:a$(1)="resterez":v(1)=8:x(1)=0:y(1)=15:subq %inp Djump=2h$(1)="The future of#~donner~ is#~donnerez~.*" flag=1:v$="resterez"flag=0:f=12 20:f,16;" ":f:right:wait @jump2flag=1hnt jump=jump+1 !'flag=1jump32330 "f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"resterez" $ 557 &2,2:579 (3jump=1:question=1:pointer=1 *6s$(1)="Mais le#vendredi# ________#difficile.*" ,5h$(1)="Notice the#subject is#~le vendredi~.*" .e=0:a$(1)="sera":v(1)=5:x(1)=0:y(1)=17:subq 0%inp 2Ijump=2h$(1)="~3tre~ is an#irregular verb.#See page 8.*" 4flag=1:v$="sera"flag=0:f=12 20:f,16;"  ":f:right:wait 5@jump2flag=1hnt 6jump=jump+1 7'flag=1jump323520 8f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"sera" : 557 > 5000 `)h(1,1)=1:try=1 b7:1::1,8;"";2,0;"Sign : Gemeaux (Gemini)";4,0;"Date : 22 mai-21 juin";6,0;"Sign :" c`3,12 ;"";7,18;"Use- ";8,18;"avoir,aller" d60<,118v,4:579,115s:0,-2:-4,-2:0,-12 :3,0:0,9 e59;,118v:62>,118v:63?,115s:0,-2:4,-2:0,-12 :-3,0:0,9 f76L,118v,4:73I,115s:0,-2:-4,-2:0,-12 :3,0:0,9 g78N,118v:75K,118v:80P,115s:0,-2:4,-2:0,-12 :-3,0:0,9 h[513,94^:35#,0:0,4:-35#,0:0,-4 v3jump=1:question=1:pointer=1 x4s$(1)="Vous _______#une semaine#difficile.*" z<h$(1)="~avoir~ is an#irregular#verb in the#future.*" |we=5:a$(1)="aurez":v(1)=5:x(1)=0:y(1)=13 :subq ~)inp Cjump=2h$(1)="Look at#the verb tables#on page 85.*" flag=1:v$="aurez"flag=0:f=12 20:f,16;" ":f:right:wait Djump2flag=1hnt jump=jump+1 'flag=1jump32430~ f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"aurez" 557 579 3jump=1:question=1:pointer=1 Cs$(1)="Mais tout#_______ mieux#vers la fin#de la semaine.*" .h$(1)="Notice the#subject is#~tout~.*" e=0:a$(1)="ira":v(1)=3:x(1)=0:y(1)=15:subq )inp Xjump=2h$(1)="~aller~ is an#irregular verb#in the future.#See page 85.*" flag=1:v$="ira"flag=0:f=12 20:f,16;"  ":f:right:wait Ejump2flag=1hnt: jump=jump+1 'flag=1jump32452 f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"ira" 557 5000 )h(1,1)=1:try=1 ƛ7:1::2,0;"Sign : Cancer (Cancer)";4,0;"Date : 22 juin- 22 juillet";6,0;"Sign :" e3,12 ;"";7,15;"Use- ";8,15;"apprendre,passer" X65A,115s:-15,-5:502,110n:15,-15,2 ɭ502,111o:-8,-1:-2,-4:502,105i:-8,-1:-2,-4:513,99c:-8,-1:-2,-4  Y65A,115s:15,-5:80P,110n:-15,-15,-2 ͧ80P,111o:8,-1:2,-4:80P,105i:8,-1:2,-4:79O,99c:8,-1:2,-4 K64@,115s:-3,3:66B,115s:3,3 \535,111o:-3,8:6,2:-3,-3:1,-7 \76L,111o:3,8:-6,2:3,-3:-1,-7 3jump=1:question=1:pointer=1 >s$(1)="Vous# __________#des nouvelles#int1ressantes.*" <h$(1)="~apprendre~#is like#~vendre~ in the#future.*" e=0:a$(1)="apprendrez":v(1)=10 :x(1)=0:y(1)=15:subq -inp Cjump=2h$(1)="The future of#~vendre~ is#~vendrez~.*" flag=1:v$="apprendrez"flag=0:f=12 20:f,16;" ":f:right:wait: Fjump2flag=1hnt jump=jump+1 'flag=1jump32530 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"apprendrez" 557 579 3jump=1:question=1:pointer=1 9s$(1)="Et vous #__________#un weekend#agr1able.*" Hh$(1)="~passer~ is a#regular verb#in the future#like ~donner~.*" e=0:a$(1)="passerez":v(1)=8:x(1)=0:y(1)=15:subq -inp Djump=2h$(1)="The future of#~donner~ is#~donnerez~.*" flag=1:v$="passerez"flag=0:f=12 20:f,16;"  ":f:right:wait Hjump2flag=1hnt jump=jump+1 'flag=1jump32552 f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"passerez"  557  5000 ()h(1,1)=1:try=1 *7:1::2,0;"Sign : Lion (Leo)";3,24;"";4,0;"Date : 23 juillet- 24 aout";6,0;"Sign :" +b3,12 ;"";7,15;"Use- ";8,15;"donner,finir" ,60<,100d:-1,0:-3,2:0,4:-4,3:0,4:2,2:7,0 .60<,100d:1,0:3,2:0,4:4,3:0,4:-2,2:-6,0 0r60<,115s:-1,-8:-3,-2:60<,115s:1,-8:3,-2 2n535,99c:7,4:7,-4:579,110n,1:62>,110n,1 460<,120x:2,2:2,2:2,-4:2,2:2,-4:2,-6:-3,2:2,-8:-3,-2:2,-6:-9 ,-4 660<,120x:-2,2:-2,2:-2,-4:-2,2:-2,-4:-2,-6:3,2:-2,-8:3,-2:-2,-6:9 ,-4 >3jump=1:question=1:pointer=1 @3s$(1)="Lundi, 7a# ________#des probl2mes.*" B-h$(1)="Notice the#subject is #~7a~.*" De=0:a$(1)="donnera":v(1)=7:x(1)=0:y(1)=15:subq F1inp HIjump=2h$(1)="~donner~ is an#irregular verb.#See page *" Jflag=1:v$="donnera"flag=0:f=12 20:f,16;" ":f:right:wait: KLjump2flag=1hnt Ljump=jump+1 M'flag=1jump32630F Nf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"donnera" P 557 R 579 T3jump=1:question=1:pointer=1 V)s$(1)="Mais tout#________#bien.*" X?h$(1)="~finir~ is a#regular ~ir~#verb in the #future.*" Ze=0:a$(1)="finira":v(1)=6:x(1)=0:y(1)=15:subq \1inp ^=jump=2h$(1)="Look at #page #and page 8.*" `flag=1:v$="finira"flag=0:f=12 20:f,16;"  ":f:right:wait: a flag=1jump2hnt bjump=jump+1 c'flag=1jump32652\ df=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"finira" f 557 5000 )h(1,1)=1:try=1 7:1::1,9 ;""::2,0;"Sign : Vierge (Virgo)";3,12 ;"";4,0;"Date : 24 aout- 23 sept";6,0;"Sign :" b3,12 ;"";7,15;"Use- ";8,15;"inviter,voir" 3l=98b106j2:524,l:-3,-3:-3,2:-3,-3:70F,l:3,3:3,-2:l:60<,106j:-2,-8:4,0:-2,8:60<,104h,12 :546,108l,2:66B,108l,2 3jump=1:question=1:pointer=1 3s$(1)="Une amie vous# ________#au cin1ma.*" @h$(1)="~inviter~ is a#regular ~er~#verb like#~donner~.*" e=0:a$(1)="invitera":v(1)=8:x(1)=0:y(1)=15:subq 5inp 7jump=2h$(1)="The subject#is une amie.*" flag=1:v$="invitera"flag=0:f=12 20:f,16;" ":f:right:wait jump2flag=1hnt jump=jump+1 'flag=1jump32730 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"invitera" 557 579 3jump=1:question=1:pointer=1 5s$(1)="Vous y ________#un film#passionnant.*" 3h$(1)="~voir~ is#irregular in#the future.*" e=7:a$(1)="verrez":v(1)=6:x(1)=6:y(1)=13 :subq 5inp Djump=2h$(1)="Look at #the verb tables#on page 8.*" flag=1:v$="verrez"flag=0:f=12 20:f,16;"  ":f:right:wait Pjump2flag=1hnt jump=jump+1 'flag=1jump32752 Ȝf=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"verrez" 557 5000 )h(1,1)=1:try=1 7:1::2,0;"Sign : Balance (Libra)";4,0;"Date : 24 sept- 23 oct";6,0;"Sign :" f3,12 ;"";7,15;"Use- ";8,15;"recevoir,trouver" 502,100d:2,-5:6,0:2,5:-5,10 :0,-10 :5,0:-10 ,0:4,10 74J,100d:2,-5:6,0:2,5:-5,10 :0,-10 :5,0:-10 ,0:4,10 6-24,0:12 ,0:0,5 3jump=1:question=1:pointer=1 3s$(1)="Vous ________#une lettre d'un#ami.*" @h$(1)="~recevoir~ is#an irregular#verb in the #future.*" e=5:a$(1)="recevrez":v(1)=8:x(1)=0:y(1)=13 :subq 9inp Cjump=2h$(1)="Look at the#verb tables#on page 8.*" flag=1:v$="recevrez"flag=0:f=12 20:f,16;" ":f:right:wait Tjump2flag=1hnt jump=jump+1 'flag=1jump32830 f=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"recevrez"  557  579 3jump=1:question=1:pointer=1 9s$(1)="Et vous y# ________#de bonnes#nouvelles.*" ;h$(1)="~trouver~ is a#regular verb in#the future.*" "e=0:a$(1)="trouverez":v(1)=9 :x(1)=0:y(1)=15:subq $9inp &Kjump=2h$(1)="Look at #page #for the future#of ~donner~.*" (flag=1:v$="trouverez"flag=0:f=12 20:f,16;"  ":f:right:wait )Tjump2flag=1hnt *jump=jump+1 +'jump3flag=12852$ ,f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"trouverez" . 557 J 5000 T)h(1,1)=1:try=1 V7:1::2,0;"Sign : Scorpion (Scorpio)";4,0;"Date : 24 oct- 22 nov";6,0;"Sign :" Wh3,12 ;"";7,15;"Use- ";8,15;"travailler,etre" XW68D,100d:-15,15,2:f=13:546-f,103g:-2,4:546-f,100d:-2,-4:f:-8,0:502,108l:-8,0:p=5185:c=13:502+p,100d,c:502+p,100d:0,10 :0,-20:c:p j3jump=1:question=1:pointer=1 l7s$(1)="Vous# ___________#bien cette #semaine.*" n>h$(1)="~travailler~ is#a regular verb#in the future.*" pe=0:a$(1)="travaillerez":v(1)=12 :x(1)=0:y(1)=15:subq rMinp tCjump=2h$(1)="Look at the#verb tables#on page 8.*" v flag=1:v$="travaillerez"flag=0:f=12 20:f,16;" ":f:right:wait wijump2flag=1hnt: xjump=jump+1 y'flag=1jump32930r zf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"travaillerez" | 557 ~ 579 3jump=1:question=1:pointer=1 9s$(1)="Vos professeurs#________ tr2s# contents!*" 3h$(1)="~3tre~ is#irregular in#the future.*" e=0:a$(1)="seront":v(1)=6:x(1)=0:y(1)=15:subq Minp Cjump=2h$(1)="Look at the#verb tables on#page 8.*" flag=1:v$="seront"flag=0:f=12 20:f,16;"  ":f:right:wait hjump2flag=1hnt jump=jump+1 'flag=1jump32952 f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"seront" 557 5000 )h(1,1)=1:try=1 7:1::2,0;"Sign : Sagittaire (Sagittarius)";4,0;"Date : 23 nov-21 dec";3,18;"";6,0;"Sign :" `3,12 ;"";7,15;"Use- ";8,15;"lire,sortir" 480,105i:22,0:-2,2:0,-4:2,2:f=13:60<+f,105i:-8,10 ,2:60<+f,105i:-8,-10 ,-2:f:-8,10 :8,10 3jump=1:question=1:pointer=1 ;s$(1)="Vous ________#un gros livre#cette semaine.*" ;h$(1)="~lire~ is an#irregular verb#in the future.*" ԗe=5:a$(1)="lirez":v(1)=5:x(1)=0:y(1)=13 :subq Iinp Fjump=2h$(1)="Look at the #verb tables #on #page 86.*" flag=1:v$="lirez"flag=0:f=12 20:f,16;" ":f:right:wait djump2flag=1hnt jump=jump+1 'jump3flag=13030 ޛf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"lirez" 557 579 3jump=1:question=1:pointer=1 >s$(1)="Vous ne #________#pas beaucoup#cette semaine!*" 3h$(1)="~sortir~ is#regular in#the future.*" e=0:a$(1)="sortirez":v(1)=8:x(1)=0:y(1)=15:subq Iinp Cjump=2h$(1)="Look at the#verb tables on#page 86.*" flag=1:v$="sortirez"flag=0:f=12 20:f,16;"  ":f:right:wait djump2flag=1hnt jump=jump+1 'flag=1jump33052 f=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"sortirez" 557 5000 )h(1,1)=1:try=1 7:1::2,0;"Sign : Capricorne (Capricorn)";4,0;"Date : 21 dec- 20 jan";3,11 ;"";6,0;"Sign :" d3,12 ;"";7,15;" Use- ";8,15;"ecrire,mettre" $f=12:70F-f,110n:-10 ,10 ,2:f:68D,104h,1:502,90Z:20,0:3,8:-3,3:9 ,-9 :6,4:-15,15:-6,0:-3,-15:-8,-4 &Df=118:76L+(*8),92\+(*4):f 23jump=1:question=1:pointer=1 47s$(1)="Vous ________#une lettre 4#votre amie.*" 6Oh$(1)="~1crire~ is#irregular,but#regular in#the future like#~vendre~.*" 8e=5:a$(1)="1crirez":v(1)=7:x(1)=0:y(1)=13 :subq :Einp flag=1:v$="1crirez"flag=0:f=12 20:f,16;" ":f:right:wait ?`jump2flag=1hnt @jump=jump+1 A'flag=1jump33130: Bf=12 20:f,16;" ":f:16,16;"The correct"; 17,16;"answer is";19,16;"ecrirez";18,16;"" D 557 F 579 H3jump=1:question=1:pointer=1 J:s$(1)="Mais vous ne la#__________pas 4#la poste.*" LAh$(1)="~mettre~ is#irregular,but#regular in#the future.*" Ne=0:a$(1)="mettrez":v(1)=7:x(1)=0:y(1)=15:subq PEinp R?jump=2h$(1)="See #pages / #and page 8.*" Tflag=1:v$="mettrez"flag=0:f=12 20:f,16;"  ":f:right:wait U`jump2flag=1hnt Vjump=jump+1 W'flag=1jump33152P Xf=12 20:f,16;"  ":f:16,16;"The correct"; 17,16;"answer is";19,16;"mettrez" Z 557 v 5000  6:6::4,1;"";2,18;"";8,1;"";1,16;"Lion";3,16;"Vierge";5,16;"Balance";7,16;"Scorpion";9 ,16;"Sagittaire";11 ,16;"Capricorne";1,0;"Verseau";3,0;"Poissons";5,0;"Belier";7,0;"Taureau";9 ,0;"Gemeaux";11 ,0;"Cancer" W15,0;"Press {ENTER} to select";17,0;"Press {SPACE} to move" &19,0;"Press {0} to end" 81;yy,xx;" ":.2~L,2 &1;yy,xx;" " i$=:i$=""5005 9i$=13 7:4::i:i$="*":4999 Bi$=" "yy=yy+2:i=i+100d:i>3300 i=2000 i>3100 i=2000 1yy>11 xx=0yy=1:xx=16 1yy>11 xx=16yy=1:xx=0 i$="0"7000X  5005 XD7:1::'"French module 3"''"The future tense" bV'''"For further revision see pages 21 - 22 also the verb tables on pages 183 - 187" lM#0;"To use this module again press R to stop press S" v 0 ="R"Ŧ="r" ="S"Ŧ="s"  7030v QQWEm/c XZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>3439s$(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 sy,sx;s$(pointer,f); sx=sx+1 f  [ inp INPUT SUB  "wlen=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=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 ******************************************************************  12 "*" I"Que fait-on avec#un couteau?#####On ________#du steack, par#exemple.*" @"Qu'est-ce qu'on#fait avec une chaise?#####On s'y ________.#*" I"Que faites-vous #avec une tasse?#####Vous en _______,#naturellement.*"  Z"Jean est derri2re #le volant de #sa voiture.#Que fait-il?####Il _________#sa voiture.*"  E"Est-ce que Nadine#est au lit?#####Oui. Elle y #______#maintenant*"  H"Que fais-tu l4 Alain?######Je ________.#Je m'y int1resse#beaucoup.#*"  W"Vous aimez les journaux#du dimanche?######Oui ! Nous les# ________#chaque semaine.*"  C"Vous aimez le fromage?######Non. Nous ne#le __________#jamais.*" ?"Que fait-on quand on#voit ce panneau?######On ___________!*" V"Que fais-tu avec #cet aspirateur, Marc?######Je __________#cette #moquette sale.#*" S"Que fait-on avec une#tondeuse 4 gazon?######On ______ le#gazon,#naturellement.*" O"Qu'est-ce qu'elle fait#4 la poissonnerie?######Elle y#________#du saumon.#*" (14,3,14,7,14,8,16,3,16,0,14,3,18,0,16,3,16,3,16,3,16,3,18,0 )m"coupe","assied","buvez","conduit","dort","peins","lisons","mangeons","s'arrette","nettoie","tond","ach2te" *"Use the word#for 'cut'#*","Use 'couper' #a regular#'er' verb.#See page 18*","Use the word#for 'sit down'*","Use#'s'asseoir'#an irregular#verb*","Use the verb#'to drink'*" +2"Use 'boire',#an irregular#verb.#See page 187 *" ,"Use the verb#'to drive'*.*" -5"Use 'conduire',#an irregular#verb.#See page 185 *" ."Use the verb#'to sleep'*.*" /3"Use 'dormir',#an irregular#verb.#See page 186 *" 0"Use the verb#'to paint'*.*" 1&"Use 'peindre',#an irregular#verb.*" 2"Use the verb#'to read'.*" 3>"Use 'lire',#an irregular#verb like#'dire'.#See page 187 *" 4"Use the verb#'to eat'.*" 52"Use 'manger'#but be careful#of the #spelling.*" 6"Use the verb#'to stop'.*" 7J"'Arretter' is#the verb 'to#stop',remember#here it is # reflexive.*" 8I"Use the verb#'to clean'.*","Use 'nettoyer',#which goes like#'payer'.*" 9_"Use the phrase#'to cut the#lawn'.#See page 48*","'Tondre' goes#like 'vendre'.#See page 184*" :I"Use the verb#'to buy'.*","Use 'acheter',#be carefull of#the accents.*" ;a5,6,5,7,4,5,6,8,9 ,7,4,6 i17,18,2,19,20,4,21,22,6,23,24,8 Gy****************************** print hint hnt ********************************************************************** H1hy=13 :hx=17:t$=h$(h(pointer,try)) I=f=12 21:f,16;" ";:f Lf=175K 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;"":1137q ]/ 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  C502:#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""2002 i$=:i$=""2003 "4:7::65040  ***** set`screen ***** udgs: 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 A#f=1limit*2:h$(f):f Bf=1limit:v(f):f Cq=1limit Dt=13 Eh(q,t) Ft Gq Hxd=0:yd=0:disp aquestion=1 fg=1limit gclr h119w:display  ke=x(pointer):try=1 zFclr:f=13 21:f,0;" ":f:subq 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 I1,0;"Complete the sentences by typingin the correct verb." >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 .g=1limit 0xd=0:disp 3e=x(pointer):try=0 8gclr:21,16;" ":f=12 21:f,0;" ":f:subq 9120x+g*10 <inp =test @&g=2v$="assoit"flag=0: B'flag=0right:wait:2488 Ftry2hnt Htry223608 :clr Jtry=3245 pointer=pointer+1 g [ END QUESTION 2 >21,0;" PRESS ANY KEY TO CONTINUE " 0 w$=:w$=""2554 7110 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 4 " v-3,8;" Present tense " 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 4 " -3,8;" Present tense " %5,12 ;"OPTIONS" '" 1  question " '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 (i$="1"tot=tot+12 ::2270  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 4" `(5,5;"Present tense" 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 z17,0;"For further revision,refer to ~The Present tense~ p.23-24.Alsorefer to the verb tables p.183- 187." 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" #(|1066*:pointer=1:try=2:q=10 15::h$(pointer,try):hnt:0:pointer=pointer+1:q #2e10753:l=130:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l '  ' "mod4"2: '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^hiacindgZe 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