ZXTape! 2French: Tape 2 - Side B Pan Course Tutors/Hill MacGibbon1986English/French EducationalNoneOriginal ReleaseTZXed by Andrew Barker0 Modules EMODULESE h"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. Houses and homes ";11 ,5;" " ;12 ,5;" B. Time ";13 ,5;" ";14,5;" ";16,3;"Choose A or B" =""829= >@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C<i$="a"i$="A"i$="Houses and homes":i=1:838F Di$="Time":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;"";:"mod9" J!20,31;"";:"mod10" K APhysicsordeeadinLodtitlex dgx *a7pi[wPMODULESEE @><Bf8B 8xB8x?B8 B<<8<<8D @9s$(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  "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 ****************************************************************** "" LA MAISON *"  8 G"On y trouve le four et le #cong1lateur.######C'est #______________*" 1"On y garde les vins!#######C'est#___________*" I"On s'en sert pour monter au#premier 1tage.######C'est#______________*" ["On s'y d1contracte en regardant#la t1l1 par exemple.######C'est la salle#_____________*" P"On peut prendre une douche ici#par exemple.######C'est la salle#___________*" I"Une petite pi2ce sous le toit#de la maison.######C'est#_____________*" 0"On s'endort ici.#######C'est# _____________*" R"C'est ici qu'on prend la plupart#des repas.######C'est la salle# ____________*" 18,0,18,0,18,0,18,0,18,0,18,0,18,0,18,0 `"la cuisine","la cave","l'escalier","de s1jour","de bain","le grenier","la chambre","4 manger" F"le four=oven#le cong1lateur=#freezer.*","Translate#'the kitchen'.*" B"This is where#you store the# wine.*","Translate#'the cellar'.*" 8"Used to go#upstairs.*","Translate#'the #staircase'.*" H"You can relax#and watch T.V.#here.*","Translate#'the #living room'.*" G"This is where#you can have#a shower#*","Translate#'the #bathroom'.*" 9"A small room#under the roof*","Translate#'the#attic'*" 8"This is where#you sleep*","Translate#'the#bedroom'.*" N"This is where#you eat most#of your#meals*","Translate#'the# dining room'.*" E10 ,7,10 ,9 ,7,10 ,10 ,8 a7,1,2,7,3,4,7,5,6,7,7,8 h7,9 ,10 ,7,11 ,12 ,7,13 ,14,7,15,16 +++++++++++++++++++++ "*"  8 &"7a sert 4 nettoyer#les assiettes.*" &"7a sert 4 nettoyer#les moquettes.*" &"7a sert 4 nettoyer#les v3tements.*" $"On y met les produits#surgel1s.*"  <"On peut s'en servir #pour jouer des#jeux 1lectroniques.*" !;"Cette machine fait#chauffer les#repas tr2s#rapidement.*" "5"On peut s'en servir #pour enregistrer#des films.*" #%"7a sert 4 faire#cuire les repas.*" (17,0,17,0,17,0,17,0,17,0,17,0,17,0,17,0 )"une lave-vaisselle","un aspirateur","une machine 4 laver","un cong1lateur","un micro-ordinateur","un four micro-onde","un vid1o","une cuisini2re" *#"It's used #for washing#dishes.*" +"It's a #dishwasher.*" ,%"It's used #for cleaning#carpets.*" -"It's a #vacuum-cleaner.*" .%"It's used #for cleaning#clothes.*" /"It's a #washing#machine.*" 0!"You keep#frozen foods#here.#*" 2"It's a #freezer.*" 3-"You can use#it to play#electronic#games.*" 4"It's a #computer.*" 5"It warms up #food quickly.*" 6"It's a #micro-wave.*" 7:"You can record#films on it.*","It's a video#recorder.*" 8/"It's used to#cook meals.*","It's a cooker.*" :H18,13 ,19,14,19,18,8,14 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 X@ 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  ;*********************************************************  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 Ԡ4:7::''" A description of rooms in a house will be given. You have to type in the name of the room concerned.":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  iFclr:f=13 21:f,0;" ":f:subq ke=x(pointer):try=1 z5clr:f=1321: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 50,6;"ELECTRICAL EQUIPMENT" #2,3;"You will see a description and a picture of an article. You have 10 seconds to think of the name for that article. When you know,start typing in the name.If you are wrong or do not start typing in before the 10 seconds are up,a hint will be given." >21,0;" PRESS ANY KEY TO CONTINUE " w$=:w$""2285 w$=:w$=""2286 K87W:clr:f=13 21:f,0;" ":f:  875k 65040 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 8Fclr:f=12 21:f,0;" ":f:subq 9120x+g*10 :-o=100d0-1:oo=o/10 :20,0;" time left ";oo;" ":.01z# =,1:=""o:21,0;" ":v$="******":o=13 20:o,0;"  ":o:2368@ ;V11 ,21;"question 2";20,0;" ": <inp @test B'flag=0right:wait:2488 Ftry2hnt Htry22362: Jtry=3240 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 9 " v03,8;" Houses and homes " 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 9 " 03,8;" Houses and homes " %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:2000 'i$="2":tot=tot+8:2280  i$="0"7500L .2~L,502:7144 L7:0:6: V*3,5;"French module 9" `+5,5;"Houses and homes" 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 '''" For further revision on this topic,revise carefully the section called "''" La maison,l'appartement on page 48-49" 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 #2e1028:l=120:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l '  ' "mod9"2 '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^hiacindgZESȅ`  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>??~@|@@@>BB<DHpHDB BbRJFB9s$(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 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 1Ji$="1"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 2Ji$="2"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 3Ji$="3"y(pointer),x(pointer);"e";y(pointer)-1,x(pointer);"":i$="e" 4Ji$="4"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 5Ji$="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 '"Il est sept heures cinq #du matin.*" 1"Il est une heure moins cinq de#l'apr2s-midi.*" "Il est midi moins cinq.*" %"Il est cinq heures cinq#du soir.*" &"Il est six heures douze #du soir.*" $"Il est onze heures moins vingt.*" )"Il est dix heures quatorze #du soir.*" "Il est minuit.*" '"Il est six heures douze #du matin.*" #"Il est six heures moins douze.*" 18,0,18,0,18,0,18,0,18,0,18,0,18,0,18,0,18,0,18,0 Q"07:05","12:55","11:55","17:05","18:12","22:40","22:14","00:00","06:12","17:48" *"Notice-#'du matin'#is#in the morning.*" )"It's five past#seven in the#morning.*" "'moins cinq'#is#five to.*" ("It's five to #one in the#afternoon.*" "'moins cinq'#is#five to.*" "'midi'#is#midday.*" "'cinq' is five.*" !"'du soir'#is in the#evening.*" &"Remember this#is a 24 hour#clock!*"  &"Remember this#is a 24 hour#clock!*" 3"There are #2 possible#answers-only#one is here*" %"It's twenty to#eleven at #night.*" &"Remember this#is a 24 hour#clock!*" ("It's 14 minutes#past ten #at night.*" "'minuit' is# midnight.*" &"Remember this#is a 24 hour#clock!*" "It's morning.*" o"It's 12 minutes#past 6 #in the morning.*","'moins douze'#is twelve #minutes to.*","It's 12 minutes#to six.*" Q5,5,5,5,5,5,5,5,5,5 a7,1,2,7,3,4,7,5,6,7,7,8 7,9 ,10 ,7,11 ,12 ,7,13 ,14,7,15,16,1,17,18,1,19,20 +++++++++++++++++++++ "*"  12 "Poires belle#H1l2ne*"  "Gruy1re*" "Cassoulet*"  "Crudit1s*"  "ananas au#Kirsch*" !"Croque-monsieur*" ""Boeuf#bourguignone*" #"Roquefort*" $"Caf1 li1gois*" %"Champignons#4 la Grecque*" &"Andouillette*" '"Frites (portion)*" (19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0 )"desserts","fromages","plats garnis","entr1es","desserts","snacks","plats garnis","fromages","desserts","entr1es","plats garnis","snacks" *6"These are pears#in ice cream#and chocolate#sauce.*" + "It is yellow#with holes in!*" ,."This is a stew#of beans,meat#and sausages*" -*"This is a#selection of#raw vegetables*" ."'Ananas' is#pineapple*" /<"This is usually#a toasted#sandwitch with#cheese and ham*" 0&"Basically,a #beef stew#using wine*" 2"It's made from#sheeps milk*" 32"Usually #contains coffee#cream and# ice cream*" 4 "'Champignons'#and mushrooms*" 5"This is a type#of sausage*" 6$"This is just a#portion of#chips*" :d8,8,12 ,7,8,6,12 ,8,8,7,12 ,6 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 ***** pointer=1 udgs: 4Z***************************** screen end ********************************************** :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 Hxd=0:yd=10 :disp aquestion=1 fg=1limit h119w:display  ke=x(pointer):try=1 zAf=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 = END QUESTION 1  >21,0;" PRESS ANY KEY TO CONTINUE "  7110  w$=:w$=""2284 Kclr:87W:f=13 21:f,0;" ":f:  875k 1,0;"Snacks","Entrees";0,0;" "," ";3,0;"Plats garnis","desserts";5,0;"Fromages" 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 3e=x(pointer):try=0 8Af=12 21:f,0;" ":f:subq <inp @test B'flag=0right:wait:2488 Ftry1hnt Htry123608 Jtry=2240 pointer=pointer+1 g [ 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 F 3100 X!******************************* b:5:0:1: l.1,8;"French module 10 " v'3,8;" Time " 36,0;"In this module you must enter " 2"the time which you can select from the list." `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;"You MUST enter the colon :" =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: .1,8;"French module 10 " (3,8;" Time " %5,12 ;"OPTIONS" ''" 1  question " '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 (i$="1":tot=tot+10 :2000  i$="0"7500L .2~L,502:7144 L7:0:6: V+3,5;"French module 10" `#5,5;" Time " 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 >'''"For further help revise carefully the section:-" '" L'heure page 90-91" M#0;"To use this Module again press R to stop press S" i$=:i$""7600 i$=:i$=""7602 i$="r"i$="R" i$="s"i$="S" .2~L,20:7600 ? 7999? @72,4;"FRENCH IMPERFECT TENSE":back:ship S::::;" For Pan Study aids  ":::::"By Bryan Curry" " #(P1008:q=110 ::xd=0:yd=2:q$:disp:0:q #21024:q=110 :t=12::pointer=q:try=t::h$(q):t$=h$(q):hx=17:hy=13 :1097I:0:t:q '  ' "mod10"2: '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^hiacindgZESȅ`  SSӅ` 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>??~@|@@@>BB<DHpHDBBfZBBBBbRJFB@2:0:i$=:i$="A"i$="B"i$="a"i$="b"835C ? 829= C=i$="a"i$="A"i$="Shopping and food":i=1:838F D&i$="Personal information":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;"";:"mod11" J!20,31;"";:"mod12" K APhysicsordeeadinLodtitlex dgx&a7pi[wPMODULESFF @?<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 GOs$(pointer,f)="6"5;sy,sx;"a";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" 6Oi$="6"y(pointer),x(pointer);"a";y(pointer)-1,x(pointer);"":i$="a" 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 ****************************************************************** "*"  8 " croissants#aux amandes#4*" " escalopes de#dinde#4*"  "800g de p6t1 #de campagne#4*" " litres de lait#4*" "8 religieuses#4*" "des comprim1s#4*" "des artichauts#4*" "Une bande #dessin1e#4*" 17,2,17,2,17,2,15,2,15,2,15,2,15,2,17,2 {"la boulangerie","la boucherie","la charcuterie","la cr1merie","la p6tisserie","la pharmacie","l'1picerie","la librairie" )"You want to#buy almond#croissants.*" $"You want to#buy turkey#fillets.*" :"You would not#normally buy#p6t1 in a #butcher's shop.*" +"You could also#buy cream in#this shop.*" &"une religieuse#is a type of#cake.*" ""You want to#buy some#tablets.*" %"You want to#buy some#artichokes.*" "This is a#cartoon 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.*" #"Look at #page 8 #in the book.*" I14,12 ,14,11 ,13 ,12 ,10 ,12 d7,1,9 ,7,2,10 ,7,3,11 ,7,4,12 e7,5,13 ,7,6,14,7,7,15,7,8,16 +++++++++++++++++++++ "*"  12 "Poires Belle#H1l2ne*"  "Gruy2re*" "Cassoulet*"  "Crudit1s*"  "Ananas au#Kirsch*" !"Croque-Monsieur*" ""Boeuf#Bourguignon*" #"Roquefort*" $"Caf1 li1geois*" %"Champignons#4 la Grecque*" &"Andouillette*" '"Frites (portion)*" (19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0,19,0 )"desserts","fromages","plats garnis","entr1es","desserts","snacks","plats garnis","fromages","desserts","entr1es","plats garnis","snacks" *6"These are pears#in ice cream#and chocolate#sauce.*" + "It is yellow#with holes in!*" ,."This is a stew#of beans,meat#and sausages*" -*"This is a#selection of#raw vegetables*" ."'Ananas' is#pineapple*" /;"This is usually#a toasted#sandwich with#cheese and ham*" 0&"Basically,a #beef stew#using wine*" 2 "It's made from#sheep's milk*" 32"Usually #contains coffee#cream and# ice cream*" 4 "'Champignons'#are mushrooms*" 5"This is a type#of sausage*" 6$"This is just a#portion of#chips*" :d8,8,12 ,7,8,6,12 ,8,8,7,12 ,6 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 X@ 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 _@ t$(f)="6"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  ;*********************************************************  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,=,16,6,6,17,7,7,18,8,8,19,9 ,9 ,20 y21,10 ,10 "4:7::65040  ***** set screen ***** udgs: 2*********done now move boat ******************** 4Z***************************** screen end ********************************************** 72#0;" PRESS ANY KEY TO CONTINUE " 9.1,30 :65001,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 Hxd=0:yd=10 :disp aquestion=1 fg=1limit h119w:display  ke=x(pointer):try=1 zAf=12 21:f,0;" ":f:subq {!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  Kclr:87W:f=13 21:f,0;" ":f:  875k 1,0;"snacks","entrees";0,0;" "," ";3,0;"plats garnis","desserts";5,0;"fromages" 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 3e=x(pointer):try=0 8Af=12 21:f,0;" ":f:subq 9!11 ,21;"question 2" <inp @test B'flag=0right:wait:2488 Ftry1hnt Htry123608 Jtry=2240 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 F 3100 X!******************************* b:5:0:1: l-1,8;"French module 11" v/3,8;"Food and Shopping " 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 = a ": 7 = c 8 = i" 610 ,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 11 " /3,8;"Food and Shopping " %5,12 ;"OPTIONS" ''" 1  question 1" '" 2  question 2" '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 0i$="1"tot=tot+8::6:2000 =i$="2"tot=tot+12 ::8000@:6:2290 i$="3":6:  i$="0"7500L .2~L,502:7144 L7:0:6: V+3,5;"French module 11" `,5,5;"Food and Shopping" 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 G'''" For further help,revise carefully the sections called" 9'"La nourriture page 52-53"'"Les magasins page 64-67" 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? @************** B6:6: Dc'"In this section you are the owner of a restaurant,and you are preparing a new menu. You " F#"need to decide which section on" Ht"your menu your dishes are to go under."''"Type in full the section of the menu you will place each dish under." ^118,7;"Press any key" hi$=:i$""8040h ji$=:i$=""8042j l(.1}L,2:7:4:: " #(P1301:q=110 ::xd=0:yd=2:q$:disp:0:q #2e1066*:l=120:hx=17:hy=13 :h$(l):t$=h$(l):1097I:0::l '  ' "mod11"2: '"m/c"65000,600X '65535-7962 oI 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>??~@|@@@>BB<DHpHDBBfZBBBBbRJFB6,0;" Plats ";" Pizzas, spaghettis " 58,0;" Boisson ";" Coca-cola " 1,0;" ";3,0;" ";5,0;" ";7,0;" "  _183,148:34",0:0,-26:-34",0:0,26 180,120x:-15,-10 :70F,0:-15,10 :15,-10 :0,-4:-70F,0:0,4 182,117u:4,0:190,117u:4,0:198,117u:4,0:206,117u:4,0:214,117u:4,0 180,114r:4,0:188,114r:4,0:196,114r:4,0:204,114r:4,0:212,114r:4,0:220,114r:4,0  190,110n:60<,0:0,30:-60<,0:0,-30:194,114r:25,0:0,21:-25,0:0,-21 W240,118v,2:240,134,2:240,126~,2  190,110n:60<,0:0,20:-60<,0:0,-20:194,124|:20,0:0,3:-20,0:0,-3 @p=2142484:p,114r:0,4:p  190,100d:40(,0:0,40(:-40(,0:0,-40(:0,40(:8,0:0,23:24,0:0,-23:0,28:-24,0:0,-5 ʆ190,132:40(,0:195,127:30,0:0,-20:-30,0:0,20 :196,136,2:204,136,2 :216,136,2:224,136,2   give right answer 87W L15,16;"The right answer";17,16;"is"; f=1v(pointer) ia$(pointer,f)="1"18,17+f-1;"";19,17+f-1;"e":a$(pointer,f)="e" ia$(pointer,f)="2"18,17+f-1;"";19,17+f-1;"e":a$(pointer,f)="e" ia$(pointer,f)="3"18,17+f-1;"";19,17+f-1;"e":a$(pointer,f)="e" ia$(pointer,f)="4"18,17+f-1;"";19,17+f-1;"a":a$(pointer,f)="a" ia$(pointer,f)="5"18,17+f-1;"";19,17+f-1;"u":a$(pointer,f)="u" f 119,17;a$(pointer,v(pointer)); "wait: ,zꍍ set up screen ^Z******************************** clear message area *********************************** c'c$=" " h'f=19 :f,0;c$;::f m rz************************************************************************************************************************ |0,5;" ";:1,5;" INTERVIEW AVEC ";2,5;" Gaston Lefric ";3,5;" Milliardaire ";4,5;" Playboy ": 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 &. subq display sub question (`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 I4s$(pointer,f)=""5;sy,sx;"1";:648 J4s$(pointer,f)=""5;sy,sx;"2";:648 K4s$(pointer,f)=""5;sy,sx;"3";:648 L4s$(pointer,f)=""5;sy,sx;"4";:648 M4s$(pointer,f)=""5;sy,sx;"5";:648 N4s$(pointer,f)=""5;sy,sx;"6";:648 O4s$(pointer,f)=""5;sy,sx;"7";:648 P4s$(pointer,f)=""5;sy,sx;"8";: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" > 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": ************************** DATA FOR THE MAIN ROUTINE ****************************************************************** "" LA MAISON *"  8 A"On y trouve le four et le #cong1lateur##C'est ______________*" ,"On y garde les vins!##C'est ___________*" D"On s'en sert pour monter au#premier 1tage##C'est ______________*" V"On s'y decontracte en regardant#la t1t1 par example##C'est la salle _____________*" K"On peut prendre une douche ici#par example##C'est la salle ___________*" D"Une petite pi1ce sous le toit#de la maison##C'est _____________*" )"On s'endort ici##C'est _____________*" L"C'est ici qu'on prend la pluport#des repas##C'est la salle ____________*" 8,6,6,6,8,6,8,15,8,15,8,>,6,6,8,15 `"la cuisine","la cave","l'escalier","de s1jour","de bain","le grenier","la chambre","4 manger" C"le four=oven#le congelateur=#freezer.*","Translate#the kitchen*" ?"This is where#you store the# wine.*","Translate#the cellar*" 4"Used to go#upstairs.*","Translate#the staircase*" D"You can relax#and watch T.V.#here.*","Translate#the living room*" C"This is where#you can have#a shower#*","Translate#the bathroom*" 7"A small room#under the roof*","Translate#the attic*" 5"This is where#you sleep*","Translate#the bedroom*" I"This is where#you eat most#of your#meals*","Translate#the diningroom*" E10 ,7,10 ,9 ,7,10 ,10 ,8 a7,1,2,7,3,4,7,5,6,7,7,8 h7,9 ,10 ,7,11 ,12 ,7,13 ,14,7,15,16 +++++++++++++++++++++ "*"  12 "Sylvie ___#quinze ans.*" '"Elle _________#le 5 janvier#9.*" "Elle _________#m *" "Elle _________#58 kilos *"  !"Sylvie est #fille#_________#*" !*"Son p2re#travaille dans#____________#*" ")"Sa m2re#travaille dans#____________#*" #>"Sylvie esp2re#___________#m1decin 4 la#fin de ses#1tudes.*" $A"Elle prend#beaucoup de#___________#4 1couter la#musique pop.*" %)"Sylvie adore#les sports#___________#*" &/"Elle aime#beaucoup la#cuisine#___________.*" '0"Sa boisson#___________#c'est le coca-#cola.*" (13 ,7,13 ,5,13 ,5,13 ,5,17,0,17,0,17,0,15,0,17,0,17,0,19,0,15,0 )u"a","est n1e","mesure","p2se","unique","une usine","une 1cole","devenir","plaisir","d'hiver","italienne","pr1f1r1e" *i"Remember to#use 'avoir'.*","I am #is 'J'ai#seize ans'.#See page .*","'na6tre' is an#'3tre' verb.*" +$"'I was born'#is 'je suis#n1(e) *" ,"Use the verb#'to measure'.*" -"See page #for help. *" .2"Use the verb#'to weigh'#Remember# the accent!*" /"See page #for help. *" 0"She's an#only daughter.*" 2"See page #for help.*" 3-"He works in#a factory.#He's an#engineer.*" 4"See page 9#for help.*" 55"'Une #institutrice'#is a primary#school#teacher.*" 6"She works in#a school.*" 7b"Use the #French word #for#'to become'.*","see page #for help.*","The word means#'pleasure'.*" 8C"see page #for help.*","Skiing and#skating are#winter sports.*" 9"See page 8#for help.*","What country#do these foods#come from?*","The masculine#form is#'italien'.*","Give the #correct#word for#'favourite'.*","see page #for help.*" :a1,7,6,4,6,9 ,9 ,7,7,7,9 ,7 i3,17,18,2,19,20,4,21,22,6,23,24 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 YA: t$(f)="6"6;hy,hx;"i";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 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  ;*********************************************************  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 = END QUESTION 1  T87W:65040:f=13 21:f,0;" ":f:  130 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 9%g1g<5clr:130 :%g5g<9 clr:140 ;&g9 g<13 clr:150 (g=12 (v$="favori")flag=0 @test A(g=12 (v$="favori")flag=0 B'flag=0right:wait:2488 Ftry2hnt Htry22364< :clr Jtry=3240 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 12 " v43,4;" Personal information " 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;"Write down the keys before you continue" =#0;" PRESS ANY KEY TO CONTINUE " i$=:i$""7104 i$=:i$=""7106 7:0:4: .1,8;"French module 12 " 43,4;" Personal information " %5,12 ;"OPTIONS" ''" 1  question " '''" 0  end" =#0;" Choose now please " i$=:i$=""7144 i$=:i$=""7146 Bi$="1"tot=tot+12 ::65040:7700:2270  i$="0"7500L .2~L,502:7144 L7:0:6: V+3,5;"French module 12" `/5,4;"Personal information" 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 section ~L'identite~ on p.46-47." 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 (6:6:0: 2''" Personal information" <''"You will see information on the screen about a French girl, Sylvie Delalande. You will then see a sentence,based on this information,which you have to complete." F9#0;" PRESS ANY KEY TO CONTINUE " Pi$=:i$""7760P Ri$=:i$=""7762R n7:4:0: x ? 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 '  ' "mod12"2: '"m/c"65000,600X '65535-7962 o ighnGlainraiPointexgecorotaesuson ub&isl^acindgZESȅ `  SSA I m/c XBZD!X6(#!Y6(#!Y6(#!Z6(#!Y60#!Y60#!Y60#!Y60#!Z60#!0Z60#!PZ60#!pZ60#!Z60#!Z60#!Z60#!Z60# P P P 88 MMbXaXL8Wq !v>??~@|@@@>BB<DHpHDB BbRJFB