ZXTape! 0Created with Ramsoft MakeTZXGR1 \3Z*\$P(D$)=(31-D$)/2 :FL=0 #I=07:x:"u"+I,x:I 23658j\,72H #i=07:x:"A"+i,x:i Yi=07:x:"O"+i,x:I:I=17:"L"+I,0:I:"L",255 36$,0,66B,66B,66B,66B,60<,0,36$,0,60<,66B,126~,66B,66B,0,36$,0,60<,66B,66B,66B,60<,0 1000 2)#1;" Press ENTER to continue." 7""557 <=""60< >13 557 A d 20: .5,20: ,.#1;"to waitto continue"; 1k$=:k$=""3051 3K$=13 6k$32 3051 8 200 ;6Z=1475:K$=:K$=13 Z=600X =z:200:  500 GET USER ANSWER  C=0 ""510 T=P:SAVE P VALUE /R,P-1;">";R,P:POINTER FOR INPUT LINE    ""522   .1}L,40(  =""525  =13 P=T: 12 540 C=0522  >P=P-1:C=C-1:P=0P=30:R=R-2 'R,P;" ";R+1,P;" ";:522  ="1"R,P;"";:550& ="7"R,P;"";:550& ="0"R,P;"";:550& ! R,P;; &1P=P+1:P=31R=R+2:P=1 +C=C+1:C=C1P=T: D 522  PRINT D$ ON ALTERNATE LINES L=D$ L>124|729 L>93]727 L>62>725 L<32 PP,1;D$: ?PP,1;D$(31);PP+2,1;D$(32 ): iPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?): דPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^): PP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^124|);PP+8,1;D$(124|);: MAIN CONTROL LOOP F5 9000(#:INITIALISE  1300  6000p 1100L:PART 1 2500 :G 1 6500d: GENDERS 6900:P 2 $6600:P 3 .5000:G 3 81700:S 1 B1900l:END Lpart 1 eating Q `M4,13 ;"PART 1";7,12 ;"ANIMALS":200:502 e6I1=1:I2=10 :DATA=9100#:2000 f 1155 i3PRINT INSTRUCTIONS FOR FOREIGN INTO ENGLISH WORDS j:w$=z$:x$=y$:1135o k:w$=y$:x$=z$ oL3,3;"You will now be given the "::(8);"words in ";w$ t#:::" Please type in the ";x$ yD:::" To display the answer simply"::" press ~ENTER~" ~200:502: %2200:PF=16:4000 l:"Note: Another word for 'bull'"::"is STIER (SHTEER) as in "::"Western films.":200:502: 1::4,3;"GENDERS FOR PART 1 WORDS" #502:I1=1:I2=10 DATA=9110# $4300:4500:4600  P3,3;"You will now be given the "::(8);"words in ENGLISH" #:::" Please type in the ";Z$ 200:502  2400` PF=16:4100  GROUP 1 GRAMMAR 2500 : a:6,5;"DO YOU WISH TO REPEAT";8,5;"THIS SECTION (YES/NO)?":200 K$="" K$= K$="Y"K$="y"k$="Y": K$"N"k$"n"1230  k$="N":  H200:502::4,0;"Press if you are using a" #:"black & white TV, if you " #:"are using a colour TV." (=""1320( --="B" Ŧ="b"7:7:0:: 2,="c"Ŧ="C"1:1:7:: 7 1320( xAS INS FOR PRONUNCIATION }*PF=1L,9 ;"[u as in PUT]": *pf=3l,9 ;"[i as in PIE]": ,pf=4l,8;"[ch as in LOCH]": +pf=5l,9 ;"[ow as in COW]": 7pf=6l,3;"[i as in PIE, u as in PUT]": ,pf=7l,8;"[g as in ROUGE]": 8pf=8l,3;"[ow as in COW, u as in PUT]": :pf=9 l,2;"[ow as in COW, ch as in LOCH]":  @ SENTENCES E5DATA=9180#:NS=5:2701 :2705 G J)DATA=9180#:2702 :2705 T sentences 1 e to f,f to e data=9150# "NS=10 :NUMBER OF SENTENCES 2701 :2705 NS=10 :data=9160# 2702 :2705 u:0,9 ;"IMPORTANT NOTE"::"Some of the sentences in this course might strike you as beinga bit odd!" :"However, they have been carefully constructed to make you think more about what you are translating. This helps the memory process and gets away from the idea of learning useful phrases 'parrot fashion'." :"But of course, having learned with the help of these seeminglyodd sentences you can easily construct your own sentences to suit your particular needs.":200:502:  part 4 verbs  T:12 ;"PART 4"::"SOME USEFUL WORDS FOR MAKING UP"::11 ;"SENTENCES" 200:502 I1=31:I2=34" DATA=9130# $2000:2200:4000 &$1130j:2400` :4100 0 : sentences 2 ?ns=5:data=9140# D2701 :2705 I)data=9150#:2702 :2705 JDATA=9160#:2701 :2705 ::4,14;"NOTE"::"A few words like CHAPEAUX end ":"in an X not an S in the plural.":"The X just stands for the S.":200:502: K)DATA=9170#:2702 :2705 N lEND OF PROGRAM q[0,3;"YOU HAVE NOW COMPLETED THE";2,4;"FIRST PART OF THE COURSE" r`4,0;"You should now listen to the audio tape which accompanies the course." t.8,4;"Please enter your choice:" v312 ,1;"1. To run this section again." x214,1;"2. To load the next section." z!16,1;"3. To quit." | 200 K$= K$="1"1007 K$="3"1940 K$"2"1920 5:d$="Ensure tape is in corect":6,p(d$);d$ #d$="position":8,p(d$);d$ u200:502::4,0;"Press PLAY on the tape recorder";6,5;"and then press " ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 \I=1I=11 I=21I=33!8,8;"The first word:":2050 %:8,9 ;"The next word:" 100d:delay  200:sound &:0,9 ;"The German for"; DD$=E$(I,3̰E$(I,2)+2)+" is":2,p(d$);d$ *D$=F$(I,4̰F$(I,2)+3) 4,P(D$);D$ GD$="("+P$(I,4̰P$(I, 2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x *D$ +D$=""2135W ,,PP=12 :D$="Imagine "+d$:700 W 300, \I f D$="": #PRESENT F WORDS & ASK FOR ENGLISH  1130j:PRINT INSTRUCTIONS I=I2I1-1  ,2,3;"What is the English for"  200 *D$=F$(I,4̰F$(I,2)+3) P=P(D$)-1 6,P;D$ c1=30-P 621,0;"press to see the answer";  r=10 P=0P=1:R,P; "400:21,0;b$; ?14,P-1;">";E$(I,3̰E$(I,2)+2) . 502 8I B `GIVE ANSWERS IN FRENCH j 1131k tI=I2I1-1 y ~+4,3;"What is the ";z$;" for" 200 *D$=E$(I,3̰E$(I,2)+2) 1P=(31-D$)/2-2:7,P;D$ "r=10 :p<1p=1 621,0;"press to see the answer"; d$="" c1=25:400 21,0;b$; @13 ,p-1;">";f$(i,4̰f$(i,2)+3); 502 I D$="": GRAMMAR F200::8,5;"SOME ELEMENTARY GRAMMAR":100d: E"The gender for each noun can be":"masculine, feminine or neuter." C:"If the noun is masculine, the":"word for 'the' is DER, as in" !"DER HUMMER for 'the lobster'." w:"If the noun is feminine, the ":"word for 'the' is DIE, as in":"DIE KUH for 'the cow'. DIE is":"pronounced DEE." ^:"If the noun is neuter, the word":"for 'the' is DAS, as in DAS":"SCHWEIN for 'the pig'." 200:502: ܊"The way you can remember genders":"is to use the same imagery":"technique that you have just":"used when learning German ":"words." |:"If the gender in German is":"masculine, always imagine the":"word interacting with a boxer -":"a masculine symbol." "For example, the gender for":"lobster is masculine - DER HUMMER"::"Imagine a boxer tucking into a":"meal of lobster." 200:300,: :"If the gender in German is " :"feminine, always imagine the": "word interacting with a": "beautiful little golden-":"haired girl." l"For example, the gender for":"'cow' is feminine - DIE KUH."::"Imagine a little girl milking a":"cow." 200:300,: k:"If the gender in German is ":"neuter, always imagine the word":"interacting with a blazing":"fire." x"For example, the gender for ":"'pig' is neuter - DAS SCHWEIN.": :"Imagine a pig being roasted in":"an open fire." &200:300,: ' 1220:k$="Y"2500 ( ^:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO GERMAN": _:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO ENGLISH": 200:502 data  I=1NS 200 :D$:pp=0:700 621,0;"press to see the answer"; r=8:p=1 d$:c1=d$+15:400 pp=14:700 +21,0;b$:200:502 I FL=0  :4005:4013: B:6,6;"HERE ARE THE ANSWERS":200:502: f:0,0;"ENGLISH";0,PF;"GERMAN";1,0;"";1,PF;"";:  c=2 i=i2i1-1 2c,0;E$(I,3̰E$(I,2)+2) Ic,PF;:D$=F$(I,4̰F$(I,2)+3):D$:.1}L,40( c=c+2:I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=7D$:4460l `I=1I=11 I=21I=33!8,8;"The first gender:":4350 ':8,9 ;"The next gender:" 100d:200  DG=F$(I,3):6300:GET GENDER IN G$ and def. art. in a$ 8d$=G$+" - "+A$+F$(I,4̰F$(I,2)+3) &:0,9 ;"The gender for"; 7t$="THE "+e$(i,3̰e$(i,2)+2)+" is" &2,p(t$);t$ 04,p(d$);d$ :d$ < pp=10 ?D$="Imagine "+d$:700 b 300, li  d$="": 0present English and ask for French with gender   1131k:print instructions i=i2i1-1  $F$(I,3)=74570 44,0;"What is the gender & GERMAN for"  200 G=F$(I,3):6300 1d$="THE "+e$(i,3̰e$(i,2)+2) 1p=(31-d$)/2-2:7,p;d$ 621,0;"press to see the answer";  r=10 c1=30-P:400 21,0;b$; M13 ,p;8;">";a$;:D$=f$(i,4̰f$(i,2)+3):D$;  502  i:d$="": :LIST ANSWERS ENGLISH TO FOREIGN WITH DEF ART AND GENDERS PF=16:4005  c=2 i=i2i1-1 $F$(I,3)=746571  g=f$(i,3):6300 9c,0;"THE ";e$(i,3̰e$(i,2)+2) 4d$="":d$=a$+f$(i,4̰f$(i,2)+3)  c,PF;d$ / c=c+2:.1}L,40( 1I 4 502 6 9  grammar 3 k:"YOU ARE NOW GOING TO BE GIVEN A"::" FEW IMPORTANT VERBS TO LEARN."::" THEY ARE VERY SIMPLE." 200:502: z"The first verb is the verb 'is'.":"In German this is IST. For":"example, DIE KUH IST MDE is ":"'The cow is tired'." :"What is the English for -" "DER HUND IST LAUT?" +"The answer is - ":"'The dog is noisy'." <:"The verb 'was' is WAR in ":"German. (Pronounced VAHR)" >"For example, DER WURM WAR MDE":"is 'The worm was tired'." 200:502: -:200:1220:k$="Y"5000 2 P grammar 4 Z.:4,4;"MORE ELEMENTARY GRAMMAR" d200:502: 7200:502::1220:k$="Y"5200P   sentences 3 ldata=9190#:ns=5:2701 :2705 :data=9200#:2702 :2705 :FL=0:  sentences 4 "5data=9210#:ns=5:2701 :2705 ')DATA=9220$:2702 :2705 , | grammar 5 .:4,4;"MORE ELEMENTARY GRAMMAR" 200:502:   sentences 5 5data=9220$:ns=5:2701 :2705 +data=9230$:2702 :2705 : pINTRODUCTION r zE0,0;"You will be presented with words like this:" $3,9 ;"The German for" 5,11 ;"GENTLEMEN" ;7,15;"is";9 ,8;"HERREN (HERREN)" 12 ,0;"Imagine a large HERRING ";13 ,0;"dangling from the door of a";14,0;"gentlemen's toilet." k17,0;"What you do is to imagine this picture in your mind's eye as vividly as possible."; 200:502: "After you have read the image you should think about it in your mind's eye for about 10 seconds before pressing to move on to the next word. "; "If you do not spend enough time thinking about the image it willnot stick in your memory as wellas it should. If you want to be sure of having"; " 10 seconds to image, you should press the key immediately AFTER you have read the image. 10 seconds later a new word will be presented automatically." Y:"The word in brackets after the German word shows you how the word is pronounced." 200:502: 0,11 ;"REMEMBER" ]4,0;" = go on immediately";6,0;" = wait 10 seconds" 200:502: 1220:k$="N"  6000p 8 GENDERS 1 B L84,3;"GENDERS FOR GROUP 1 WORDS":502 `I1=1:I2=10 j4300: (g=1g$="MASCULINE":A$="DER ": 'G=2G$="FEMININE":A$="DIE ": %G=3G$="NEUTER":A$="DAS ": (G=4G$="MASCULINE":A$="DIE ": 'G=5G$="FEMININE":A$="DIE ": %G=6G$="NEUTER":A$="DIE ": G=7G$="":A$="DIE":  G$="": test genders 5:4,0;"You will now be given words in" ":"English. Please type in the "  :"gender and word in French" 200:502 I1=1:I2=10 :4500:4600  cGROUP 2 WORDS d 6535 na:4,13 ;"PART 2":7,4;"EMERGENCY & USEFUL WORDS";:200:502 sI1=1:I2=10 xdata=9110# 2000:2200  4000 F:4,3;"GENDERS FOR PART 1 WORDS":200:502: 7data=9110#:4300:4500:4600: ,present and test genders for group 2 words O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 )DATA=9130#:4500:4600  adjectives words 21-28 i1=21:i2=28 Ҁ:4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9140# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=26:i2=32 6X:4,13 ;"PART 3";6,6;"SOME USEFUL WORDS":200:502 ;DATA=9190# @$2000:2200:4000 E2400` :4000 F H200:502: J WORDS WITHOUT GENDERS i1=33!:i2=36$ :4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9220$ $2000:2200:4000 2400` :4000  200:502:  WORDS V:4,13 ;"PART 2":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: !7data=9130#:4300:4500:4600: &,present and test genders for group 2 words 0O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 5)DATA=9130#:4500:4600 : XV:6,2;"PRESS & TURN OFF THE":10 ,9 ;"TAPE RECORDER" Z'200:=""10 :7000X \ ]E5,6;"S I L V E R S O F T";7,12 ;"presents" bP10 ,4;"THE GRUNEBERG LINKWORD";12 ,8;"LANGUAGE SYSTEM" g&15,8;"GERMAN SECTION 1" ha18,1;"1984 SILVERSOFT LTD (PROGRAM)";20,4;"1982 M.GRUNEBERG (TEXT)" l WORDS V:4,13 ;"PART 3":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: 7data=9130#:4300:4500:4600: #(INITIALISE ROUTINE #-"9000(#:I=0:J=0 #21:1::7 #4Bz$="GERMAN":y$="ENGLISH":b$=" " #7 7000X #<6N1=28:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,16):i=1n1:e$(i):i #>)P$(N1,18):I=1N1:P$(I):I #Fo"061HUMMER","062SPINNE","073SCHWEIN","042GANS","042ENTE","051BULLE","032KUH","052MCKE","052MOTTE","052RAUPE" #Gq"041HUND","052KATZE","042MAUS","071ELEFANT","053PFERD","041WURM","052BIENE","061HIRSCH","051LACHS","072FORELLE" #HX"040MDE","070SCHNELL","040LAUT","050GROSS","040LEER","050KLEIN","060SCHWER","040SPT" #Ig"07LOBSTER","06SPIDER","03PIG","05GOOSE","04DUCK","04BULL","03COW","05MIDGE","04MOTH","11CATERPILLAR" #Ja"03DOG","03CAT","05MOUSE","08ELEPHANT","05HORSE","05WORM","03BEE","04DEER","06SALMON","05TROUT" #KN"05TIRED","05QUICK","05NOISY","03BIG","05EMPTY","05SMALL","05HEAVY","04LATE" #Lt"061HuMMER","080SHPINNEH","053SHViN","040GANS","050ENTEH","061BuLLEH","030KOO","060MooKEH","060MOTTEH","065RowPEH" #Mq"041HuNT","060KATSEH","045MowS","070ELEFANT","050PFERT","041VuRM","060BEENEH","050HIRSH","030LAX","080FORELLEH" #N["060MooDEH","060SHNELL","045LowT","060GROHSS","040LAIR","043KLiN","060SHVEHR","060SHPAIT" #j #%"a lobster with a sense of HUMOUR." #"a spider SPINNING its web." #("calling your pet pig a rotten SWINE." #+"GANGS of geese going around together." #/"a duck ENTERing a room,quacking as it goes." # "a BULL on a German flag." #'"a COW standing on the German flag." #-"being MUCKY and attracting midges." #*"your personal MOTTO is 'I like moths'." #7"a caterpillar with a ROPE attached to its middle." #+"a boxer tucking into a meal of lobster." #6"a little girl being frightened by a big spider." #'"a pig being roasted over a fire." #)"a little girl carrying a large goose." #*"a little girl chasing agroup of ducks." #'"a boxer punching a fierce bull." #!"a little girl milking a cow." #%"a little girl swiping at midges." #6"a little girl whacking a moth attached to a light." #6"a little girl putting caterpillars in a matchbox." ##"a HUNT with a whole lotof dogs." #'"a CAT sitting on the German flag." # "a MOUSE on a German flag." #'"an ELEPHANT draped in aGerman flag." #1"asking how your horse FARED in a horse race." #'"an earthWORM on the German flag." #&"a bee alighting on a baked BEAN." #)"loading a dead deer into a HEARSE." #A"thinking 'This salmon LACKS something - it needs a sauce'." #J"having a drunken argument about whether trout isspelt with 4 L's" #%"a dog fighting a boxer in a ring." #:"a black and white cat being stroked by a little girl." #-"a little girl being chased by a mouse." #="a boxer riding an elephant with his boxing gloveson." #*"a horse galloping through a fire." #%"a boxer playing with anearthworm." # "a bee chasing a little girl." #2"a boxer carrying a deaddeer over his shoulder." #9"a boxer tucking into a meal of salmon before a fight." #+"a little girl holding a rainbow trout." #"being MOODY and TIRED." #E"a terrible SMELL as someone rushes by at a very QUICK rate." #"a LOUT being NOISY." #"someone BIG and GROSS." #!"a fox's LAIR completelyEMPTY." #0"that pigmies are inCLINED to be SMALL." #8"SWEARING when you try to lift something very HEAVY." #8"hitting your friend with a SPADE when he is LATE." #2"The spider is quick.","DIE SPINNE IST SCHNELL." #-"The pig is noisy.","DAS SCHWEIN IST LAUT." #."The bull is heavy.","DER BULLE IST SCHWER." #)"The dog is late.","DER HUND IST SPT." #+"The bee was big.","DIE BIENE WAR GROSS." #1"The deer was quick.","DER HIRSCH WAR SCHNELL." #,"The mouse is empty.","DIE MAUS IST LEER." #,"The goose is tired.","DIE GANS IST MDE." #2"The lobster is heavy.","DER HUMMER IST SCHWER." #-"The moth is small.","DIE MOTTE IST KLEIN." #-"DIE MCKE IST LAUT.","The midge is noisy." #,"DAS PFERD IST GROSS.","The horse is big." #+"DIE ENTE IST MDE.","The duck is tired." #,"DIE KATZE IST KLEIN.","The cat is small." #3"DIE RAUPE IST LEER.","The caterpillar is empty." #1"DER HUMMER IST KLEIN.","The lobster is small." #,"DAS SCHWEIN IST GROSS.","The pig is big." #,"DIE GANS IST MDE.","The goose is tired." #-"DER HIRSCH IST LAUT.","The deer is noisy." #1"DER LACHS IST SCHNELL.","The salmon is quick." <#xjZGERMANYENGLISHB 061HUMMER 062SPINNE 073SCHWEIN 042GANS 042ENTE 051BULLE 032KUH 052MCKE 052MOTTE 052RAUPE 041HUND 052KATZE 042MAUS 071ELEFANT \ GR2 2[T 4[$P(D$)=(31-D$)/2  #I=07:x:"u"+I,x:I 23658j\,72H #i=07:x:"A"+i,x:i Yi=07:x:"O"+i,x:I:I=17:"L"+I,0:I:"L",255 36$,0,66B,66B,66B,66B,60<,0,36$,0,60<,66B,126~,66B,66B,0,36$,0,60<,66B,66B,66B,60<,0 1000 2)#1;" Press ENTER to continue." 7""557 <=""60< >13 557 A d 20: .5,20: ,.#1;"to waitto continue"; 1k$=:k$=""3051 3K$=13 6k$32 3051 8 200 ;6Z=1475:K$=:K$=13 Z=600X =z:200:  500 GET USER ANSWER  C=0 ""510 T=P:SAVE P VALUE /R,P-1;">";R,P:POINTER FOR INPUT LINE    ""522   .1}L,40(  =""525  =13 P=T: 12 540 C=0522  >P=P-1:C=C-1:P=0P=30:R=R-2 R,P;" ";:522  ="1"R,P;"";:550& ="7"R,P;"";:550& ="0"R,P;"";:550& ! R,P;; &1P=P+1:P=31R=R+2:P=1 +C=C+1:C=C1P=T: D 522  PRINT D$ ON ALTERNATE LINES L=D$ L>124|729 L>93]727 L>62>725 L<32 PP,1;D$: ?PP,1;D$(31);PP+2,1;D$(32 ): iPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?): דPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^): PP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^124|);PP+8,1;D$(124|);: * MAIN CONTROL LOOP F5 9000(#:INITIALISE  1300 1100L:PART 1 6600: p 2 2620< :g2 1700:S1 $5000:G3 .1600@:S2 86900:P3 :5300:S3 B1900l:END Lpart 1 eating Q `Y4,13 ;"PART 1";7,5;"FURNITURE & FITTINGS":200:502 e6I1=1:I2=10 :DATA=9100#:2000 f 1155 i3PRINT INSTRUCTIONS FOR FOREIGN INTO ENGLISH WORDS jW$=Z$:X$=Y$:1135o kW$=Y$:X$=Z$ oN:3,3;"You will now be given the "::(8);"words in ";w$ t#:::" Please type in the ";x$ yD:::" To display the answer simply"::" press ~ENTER~" ~200:502: %2200:PF=16:4000 /:4,3;"GENDERS FOR PART 1 WORDS" #502:I1=1:I2=10 DATA=9110# 14300:4500:PF=16:4600  R:3,3;"You will now be given the "::(8);"words in ENGLISH" #:::" Please type in the ";Z$ 200:502  2400` PF=16:4100  a:6,5;"DO YOU WISH TO REPEAT";8,5;"THIS SECTION (YES/NO)?":200 K$="" K$= K$="Y"K$="y"k$="Y": K$"N"k$"n"1230  k$="N":  H200:502::4,0;"Press if you are using a" #:"black & white TV, if you " #:"are using a colour TV." (=""1320( --="B" Ŧ="b"7:7:0:: 2,="c"Ŧ="C"1:1:7:: 7 1320( xAS INS FOR PRONUNCIATION }*PF=1L,9 ;"[u as in PUT]": *pf=3l,9 ;"[i as in PIE]": ,pf=4l,8;"[ch as in LOCH]": +pf=5l,9 ;"[ow as in COW]": 7pf=6l,3;"[i as in PIE, u as in PUT]": ,pf=7l,8;"[g as in ROUGE]": 8pf=8l,3;"[ow as in COW, u as in PUT]": :pf=9 l,2;"[ow as in COW, ch as in LOCH]":  @ SENTENCES E5DATA=9150#:NS=5:2701 :2705 J)DATA=9160#:2702 :2705 T sentences 1 e to f,f to e data=9130# !NS=5:NUMBER OF SENTENCES 2701 :2705 NS=5:data=9140# 2702 :2705  part 4 verbs  T:12 ;"PART 4"::"SOME USEFUL WORDS FOR MAKING UP"::11 ;"SENTENCES" 200:502 I1=31:I2=34" DATA=9130# $2000:2200:4000 &$1130j:2400` :4100 0 : sentences 2 ?ns=5:data=9140# D2701 :2705 I)data=9150#:2702 :2705 JDATA=9160#:2701 :2705 ::4,14;"NOTE"::"A few words like CHAPEAUX end ":"in an X not an S in the plural.":"The X just stands for the S.":200:502: K)DATA=9170#:2702 :2705 N lEND OF PROGRAM q^:0,3;"YOU HAVE NOW COMPLETED THE";2,4;"SECOND PART OF THE COURSE" r`4,0;"You should now listen to the audio tape which accompanies the course." t/10 ,4;"Please enter your choice:" v312 ,1;"1. To run this section again." x214,1;"2. To load the next section." z!16,1;"3. To quit." | 200 K$= K$="1"1007 K$="3"1940 K$"2"1920 5:d$="Ensure tape is in corect":6,p(d$);d$ #d$="position":8,p(d$);d$ u200:502::4,0;"Press PLAY on the tape recorder";6,5;"and then press " ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 \I=1I=11 I=19I=33!8,8;"The first word:":2050 %:8,9 ;"The next word:" 100d:delay  200:sound &:0,9 ;"The German for"; DD$=E$(I,3̰E$(I,2)+2)+" is":2,p(d$);d$ *D$=F$(I,4̰F$(I,2)+3) :600 4,P(D$);D$ :5, P(D$);H$ Fd$="("+p$(i,4̰p$(i,2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x *D$ +D$=""2135W ,,PP=12 :D$="Imagine "+d$:700 W 300, \I f D$="": #PRESENT F WORDS & ASK FOR ENGLISH  1130j:PRINT INSTRUCTIONS I=I2I1-1  ,2,3;"What is the English for"  200 *D$=F$(I,4̰F$(I,2)+3) P=P(D$)-1 6,P;D$ c1=30-P 621,0;"press to see the answer";  r=10 P=0P=1:R,P; "400:21,0;b$; ?14,P-1;">";E$(I,3̰E$(I,2)+2) . 502 8I B `GIVE ANSWERS IN FRENCH j 1131k tI=I2I1-1 y ~+4,3;"What is the ";z$;" for" 200 *D$=E$(I,3̰E$(I,2)+2) 1P=(31-D$)/2-2:7,P;D$ "r=10 :p<1p=1 621,0;"press to see the answer"; d$="" c1=25:400 21,0;b$; @13 ,p-1;">";f$(i,4̰f$(i,2)+3); 502 I D$="": GRAMMAR F200::8,5;"SOME ELEMENTARY GRAMMAR":100d: &200:502: '*1220:502:k$="Y"2500 ( 200:502: @?"The German for 'and' is UND.":"(uNT, with the u as in PUT)" B*"UND and 'and' sound quite ":"similar." D:"For example:-" F/:"GRN UND SCHWARZ is":"'green AND black'." H;:"DER HUND UND DAS SCHWEIN is":"'the dog AND the pig'." I200:502: J.:"The German for 'but' is ABER.":"(AHBER)" L7:"Imagine wanting to live":"anywhere BUT ABERdeen." N200:300,: P)"For example:-"::"MDE ABER KLEIN is" R"'tired BUT small'." T/:"SCHWER ABER LEER is":"'heavy BUT empty'." U200:502: V+"The German for 'or' is ODER.":"(OHDER)" X4:"Imagine an ODOUR must come ":"from me OR you." Y200:300,: Z="For example:-"::"GRAU ODER WEISS is":"'grey OR white'." \0:"ORANGE ODER BRAUN is":"'orange OR brown'." 200:502: +200:1220:K$="Y"2620<  ^:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO GERMAN": _:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO ENGLISH": 200:502 data  I=1NS 200 :D$:pp=0:700 621,0;"press to see the answer"; r=8:p=1 d$:c1=d$+15:400 pp=14:700 +21,0;b$:200:502 I FL=0  :4005:4013: B:6,6;"HERE ARE THE ANSWERS":200:502: f:0,0;"ENGLISH";0,PF;"GERMAN";1,0;"";1,PF;"";:  c=2 i=i2i1-1 2c,0;E$(I,3̰E$(I,2)+2) Ic,PF;:D$=F$(I,4̰F$(I,2)+3):D$:.1}L,40( c=c+2:I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=0D$:4460l `I=1I=11 I=19I=33!8,8;"The first gender:":4350 ':8,9 ;"The next gender:" 100d:200  DG=F$(I,3):6300:GET GENDER IN G$ and def. art. in a$ 8d$=G$+" - "+A$+F$(I,4̰F$(I,2)+3) &:0,9 ;"The gender for"; 7t$="THE "+e$(i,3̰e$(i,2)+2)+" is" &2,p(t$);t$ 04,p(d$);d$ :d$ < pp=10 ?D$="Imagine "+d$:700 DI=118,0;"(NB:- DIE MBEL is plural and ":19,0;"'the' when the word is plural":20,0;"is always DIE)" b 300, li  d$="": 0present English and ask for French with gender   1131k:print instructions i=i2i1-1  $F$(I,3)=04570 44,0;"What is the gender & German for"  200 G=F$(I,3):6300 1d$="THE "+e$(i,3̰e$(i,2)+2) 1p=(31-d$)/2-2:7,p;d$ 621,0;"press to see the answer";  r=10 c1=30-P:400 21,0;b$; M13 ,p;8;">";a$;:D$=f$(i,4̰f$(i,2)+3):D$;  502  i:d$="": :LIST ANSWERS ENGLISH TO FOREIGN WITH DEF ART AND GENDERS PF=16:4005  c=2 i=i2i1-1 $F$(I,3)=046571  g=f$(i,3):6300 9c,0;"THE ";e$(i,3̰e$(i,2)+2) 4d$="":d$=a$+f$(i,4̰f$(i,2)+3)  c,PF;d$ / c=c+2:.1}L,40( 1I 4 502 6 9  grammar 3 ):4,7;"ELEMENTARY GRAMMAR" 200:502: h"In German, you can ask questions":"simply by putting the verb at ":"the beginning of the sentence." :"For example:-" D:"The question 'Is the dog white?'":"is IST DER HUND WEISS?" 0:"The question 'Was the piano ":"heavy?' is" "WAR DAS KLAVIER SCHWER?" 200:502: +200:1220:K$="Y"5000 2 P grammar 4 Z.:4,4;"MORE ELEMENTARY GRAMMAR" d200:502: 7200:502::1220:k$="Y"5200P   sentences 3 `data=9190#:ns=5:2701 :2705 :data=9200#:2702 :2705 :  sentences 4 "5data=9210#:ns=5:2701 :2705 ')DATA=9220$:2702 :2705 , | grammar 5 .:4,4;"MORE ELEMENTARY GRAMMAR" 200:502:   sentences 5 5data=9220$:ns=5:2701 :2705 +data=9230$:2702 :2705 : 8 GENDERS 1 B L84,3;"GENDERS FOR GROUP 1 WORDS":502 `I1=1:I2=10 j4300: (g=1g$="MASCULINE":A$="DER ": 'G=2G$="FEMININE":A$="DIE ": %G=3G$="NEUTER":A$="DAS ": (G=4G$="MASCULINE":A$="DIE ": 'G=5G$="FEMININE":A$="DIE ": %G=6G$="NEUTER":A$="DIE ": %G=7G$="PLURAL":A$="DIE ":  G$="": test genders 5:4,0;"You will now be given words in" ":"English. Please type in the "  :"gender and word in French" 200:502 I1=1:I2=10 :4500:4600  cGROUP 2 WORDS d 6535 na:4,13 ;"PART 2":7,4;"EMERGENCY & USEFUL WORDS";:200:502 sI1=1:I2=10 xdata=9110# 2000:2200  4000 F:4,3;"GENDERS FOR PART 1 WORDS":200:502: 7data=9110#:4300:4500:4600: ,present and test genders for group 2 words O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 )DATA=9130#:4500:4600  adjectives words 21-28 i1=11 :i2=18 |:4,13 ;"PART 2";6,10 ;"COLOUR WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9120# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=26:i2=32 6X:4,13 ;"PART 3";6,6;"SOME USEFUL WORDS":200:502 ;DATA=9190# @$2000:2200:4000 E2400` :4000 F H200:502: J WORDS WITHOUT GENDERS i1=33!:i2=36$ :4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9220$ $2000:2200:4000 2400` :4000  200:502:  WORDS X:4,13 ;"PART 3":7,8;"SOME MORE WORDS";:200:502 I1=19:I2=28 data=9170# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 3 WORDS":200:502: !7data=9180#:4300:4500:4600: XV:6,2;"PRESS & TURN OFF THE":10 ,9 ;"TAPE RECORDER" Z'200:=""10 :7000X \ ]E5,6;"S I L V E R S O F T";7,12 ;"presents" bP10 ,4;"THE GRUNEBERG LINKWORD";12 ,8;"LANGUAGE SYSTEM" g&16,8;"GERMAN SECTION 2" l WORDS V:4,13 ;"PART 3":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: 7data=9130#:4300:4500:4600: #' #(INITIALISE ROUTINE #-"9000(#:I=0:J=0 #21:1::7 #4Bz$="GERMAN":y$="ENGLISH":b$=" " #7 7000X #<6N1=28:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,16):i=1n1:e$(i):i #>)P$(N1,18):I=1N1:P$(I):I #Ft"057MBEL","071TEPPICH","072GARDINE","043BETT","071SCHRANK","061SESSEL","053BRETT","073KLAVIER","032UHR","043BILD" #GW"070SCHWARZ","050WEISS","030ROT","040GRN","050BRAUN","040GRAU","040BLAU","060ORANGE" #H{"063ZIMMER","103BADEZIMMER","123SCHLAFZIMMER","052KCHE","043HAUS","073FENSTER","043DACH","042WAND","051BODEN","053LICHT" #Is"09FURNITURE","06CARPET","07CURTAINS","03BED","08CUPBOARD","08ARMCHAIR","05SHELF","05PIANO","05CLOCK","07PICTURE" #JN"05BLACK","05WHITE","03RED","05GREEN","05BROWN","04GREY","04BLUE","06ORANGE" #Kj"04ROOM","08BATHROOM","07BEDROOM","07KITCHEN","05HOUSE","06WINDOW","04ROOF","04WALL","05FLOOR","05LIGHT" #Lw"060MErBEL","074TEPPIch","090GARDEENEH","040BETT","060SHRANK","060ZESSEL","050BRETT","070KLAVEER","040OOHR","040BILT" #MX"070SHVARTS","033ViS","040ROHT","050GRooN","050BROWN","045GRow","045BLow","077ORANgEH" #N"070TSIMMER","140BAH DE TSIMMER","130SHLAHFTSIMMER","074KoochEH","045HowS","070FENSTER","044DAch","040VANT","060BOHDEN","064LEECHT" #j #%"having very MOBILE furniture." #'"TIPPING rubbish onto your carpet." #'"your GARDEN surrounded by curtains." #+"your BED covered with the German flag." #T"your cups and saucers SHRANK in size when they crashed into the cupboard." #C"CECIL B. de Mille, the film director, sitting in an armchair." #!"loaves of BREAD on a shelf." #-"someone very CLEVER playing the piano." #'"someone asking 'Is thatYOUR clock'." #8"being BILLED for a picture you have just bought." #-"a little girl sitting on some furniture." #""a boxer beating a carpet." #("a little girl opening the curtains." #*"someone lighting a fireunder your bed." #$"locking a boxer in yourcupboard." #)"a boxer lounging in your armchair." #&"setting fire to a pile of shelves." #'"a fire on top of a grand piano." #'"a little girl lifting a big clock." #M"throwing a picture by an old master on to the fire ina terrible mistake." #-"someone with BLACK WARTS on his face." #,"a VICE which you spill WHITE paint over." # "a huge ROTating RED blob." #W"going GREEN after working at the GRUNEberg Linkword system for too long." #'"BROWN paint on the German flag." #"a GREY wolf GROWLING." #)"someone BLOWING until he turns BLUE." #+"ORANGES wrapped up in the German flag." #L "The cupboard is red or black.","DER SCHRANK IST ROT ODER SCHWARZ." #D"The piano was white and green.","DAS KLAVIER WAR WEISS UND GRN." #@"The shelf is brown and grey.","DAS BRETT IST BRAUN UND GRAU." #R"The elephant was tired but heavy.","DER ELEFANT WAR MDE ABER SCHWER." #>"The dog is white or green.","DER HUND IST WEISS ODER GRN." #C"DER TEPPICH IST KLEIN UND BLAU.","The carpet is small and blue." #B"DER SESSEL IST ROT UND BRAUN.","The armchair is red and brown." #="DAS BETT IST GROSS ABER LEER.","The bed is big but empty." #9"DIE UHR IS ROT ODER BLAU.","The clock is red or blue." #C"DAS BILD IST ORANGE UND GRAU.","The picture is orange and grey." #)"Is the bed grey?","IST DAS BETT GRAU?" #J"Was the armchair big or small?","WAR DER SESSEL GROSS ODER KLEIN?" #."Is the salmon tired?","IST DER LACHS MDE?" #."Is the picture green?","IST DAS BILD GRN?" #+"Is the dog brown?","IST DER HUND BRAUN?" #="IST DIE GANS GRAU ODER BLAU?","Is the goose grey or blue?" #I"WAR DIE SPINNE SCHWER UND GROSS?","Was the spider heavy and big?" #<"IST DIE MOTTE GRN ODER ROT?","Is the moth green or red?" #B"IST DIE MAUS LAUT UND SCHNELL?","Is the mouse noisy and quick?" #J"WAR DER SCHRANK GROSS ODER KLEIN?","Was the cupboard big or small?" #("a room SHIMMERING in the sunshine." #."a BAD room is where youhave your bathroom." #V"the room where you always laugh - the LAUGH ZIMMER - is where you sleep." ##"you always COOK in the kitchen." #("your HOUSE covered in German flags." #/"a girl, and you FENCED HER in with windows." # "a DUCK sitting on your roof." #?"a fairy waving a WAND at your wall, and it falls down." #!"BOATING on your wet floor." #!"you LICKED an electric light." #&"a fire in a room of your house." #$"a fire in your bathroom." ##"a fire in your bedroom." #5"a little girl helping her mother in the kitchen." #"a house on fire." ##"throwing windows onto abonfire." #6"your roof on fire and crashing through the house." #4"a little girl being hurt by the falling wall." #("a boxer lying flat out on the floor." #"the light from a fire." #A "Is the house white or green?","IST DAS HAUS WEISS ODER GRN?" #@"Is the roof black or blue?","IST DAS DACH SCHWARZ ODER BLAU?" #b"The floor is empty, but the light is big.","DER BODEN IST LEER, ABER DAS LICHT IST GROSS." #^"Is the bathroom or the bedroom small?","IST DAS BADEZIMMER ODER DAS SCHLAFZIMMER KLEIN?" #1"Was the kitchen small?","WAR DIE KCHE KLEIN?" #]"DAS ZIMMER IST ROT, UND DIE WAND IST KLEIN.","The room is red, and the wall is small." #^"DAS HAUS IST GROSS, UND DAS DACH IST SCHWER.","The house is big and the roof is heavy." #6"DAS BADEZIMMER IST KLEIN.","The bathroom is small." #3"DAS FENSTER IST SCHWARZ.","The window is black." #g"DER BODEN IST GROSS, ABER DIE KCHE IST KLEIN.","The floor is big, but the kitchen is small." >#xjat#?l0WGERMANXENGLISHprctK2DpositionZGERMANYENGLISHB 057MBEL 071TEPPICH 072GARDINE 043BETT 071SCHRANK 061SESSEL 053BRETT 073KLAVIER 032UHR 043BILD 070SCHWARZ 050WEISS 030ROT 040GRN 050BRAUN 040GRAU 040BLAU 060ORANGE 063ZIMMER 103BADEZIMMER 123SCHLAFZIMMER 052KCHE 043HAUS 073FENSTER 043DACH 042WAND 051BODEN 053LICHT 09FURNITURE 06CARPET 07CURTAINS 03BED 08CUPBOARD 08ARMCHAIR 05SHELF 05PIANO 05CLOCK 07PICTURE 05BLACK 05WHITE 03RED 05GREEN 05BROWN 04GREY 04BLUE 06ORANGE 04ROOM 08BATHROOM 07BEDROOM 07KITCHEN 05HOUSE 06WINDOW 04ROOF 04WALL 05FLOOR 05LIGHT 060MErBEL 074TEPPIch 090GARDEENEH 040BETT 060SHRANK 060ZESSEL 050BRETT 070KLAVEER 040OOHR 040BILT 070SHVARTS 033ViS 040ROHT 050GRooN 050BROWN N GR3 )g` +g$P(D$})=(31-D$)/2  #I=07:x:"u"+I,x:I 23658j\,72H #i=07:x:"A"+i,x:i Yi=07:x:"O"+i,x:I:I=17:"L"+I,0:I:"L",255 36$,0,66B,66B,66B,66B,60<,0,36$,0,60<,66B,126~,66B,66B,0,36$,0,60<,66B,66B,66B,60<,0 1000 2)#1;" Press ENTER to continue." 7""557 <=""60< >13 557 A d 20: .5,20: ,.#1;"to waitto continue"; 1k$=:k$=""3051 3K$=13 6k$32 3051 8 200 ;6Z=1475:K$=:K$=13 Z=600X =z:200:  500 GET USER ANSWER  C=0 ""510 T=P:SAVE P VALUE /R,P-1;">";R,P:POINTER FOR INPUT LINE    ""522   .1}L,40(  =""525  =13 P=T: 12 540 C=0522  >P=P-1:C=C-1:P=0P=30:R=R-2 'R,P;" ";R+1,P;" ";:522  ="1"R,P;"";:550& ="7"R,P;"";:550& ="0"R,P;"";:550& ! R,P;; &1P=P+1:P=31R=R+2:P=1 +C=C+1:C=C1P=T: D 522  PRINT D$ ON ALTERNATE LINES L=D$ L>124|729 L>93]727 L>62>725 L<32 PP,1;D$: ?PP,1;D$(31);PP+2,1;D$(32 ): iPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?): דPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^): PP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^124|);PP+8,1;D$(124|);:  AI=11 13 :I,6;" ":I % 200 * >:d$="ABDEF" ?8,10 ; @I=16:D$(I); BD$(I)""848P C 8; D"23689\,23689\-2 F 145; H"23689\,23689\+4 PI W I=15  :200 d$:d$="THE "+d$ P=(31-D$)/2 4,P;D$ D$:P=(31-D$)/2 7,P;:600X ';" ":10 ,P;8;">";D$  700 =""945 I: MAIN CONTROL LOOP F5 9000(#:INITIALISE  1300 1100L:PART 1 6600:p2 2500 : g1 6800:p3 2620< :g2 $1700:s1 .5000:g3 81600@:s2 :5200P:g4 <5300:s3 B1900l:END Lpart 1 eating Q `N4,13 ;"PART 1";7,12 ;"CLOTHING":200:502 e6I1=1:I2=10 :DATA=9100#:2000 f 1155 i3PRINT INSTRUCTIONS FOR FOREIGN INTO ENGLISH WORDS jW$=Z$:X$=Y$:1135o kW$=Y$:X$=Z$ oN:3,3;"You will now be given the "::(8);"words in ";w$ t#:::" Please type in the ";x$ yD:::" To display the answer simply"::" press ~ENTER~" ~200:502: %2200:PF=16:4000 /:4,3;"GENDERS FOR PART 1 WORDS" #502:I1=1:I2=10 DATA=9110# 14300:4500:PF=16:4600  R:3,3;"You will now be given the "::(8);"words in ENGLISH" #:::" Please type in the ";Z$ 200:502  2400` PF=16:4100  a:6,5;"DO YOU WISH TO REPEAT";8,5;"THIS SECTION (YES/NO)?":200 K$="" K$= K$="Y"K$="y"k$="Y": K$"N"k$"n"1230  k$="N":  H200:502::4,0;"Press if you are using a" #:"black & white TV, if you " #:"are using a colour TV." (=""1320( --="B" Ŧ="b"7:7:0:: 2,="c"Ŧ="C"1:1:7:: 7 1320( xAS INS FOR PRONUNCIATION }*PF=1L,9 ;"[u as in PUT]": *pf=3l,9 ;"[i as in PIE]": ,pf=4l,8;"[ch as in LOCH]": +pf=5l,9 ;"[ow as in COW]": 7pf=6l,3;"[i as in PIE, u as in PUT]": ,pf=7l,8;"[g as in ROUGE]": 8pf=8l,3;"[ow as in COW, u as in PUT]": :pf=9 l,2;"[ow as in COW, ch as in LOCH]":  @ sentences E5DATA=9160#:NS=5:2701 :2705 J5ns=6:DATA=9170#:2702 :2705 T sentences 1 e to f,f to e data=9140# !NS=5:NUMBER OF SENTENCES 2701 :2705 NS=10 :data=9150# 2702 :2705  part 4 verbs  T:12 ;"PART 4"::"SOME USEFUL WORDS FOR MAKING UP"::11 ;"SENTENCES" 200:502 I1=31:I2=34" DATA=9130# $2000:2200:4000 &$1130j:2400` :4100 0 : sentences 2 ?ns=5:data=9140# D2701 :2705 I)data=9150#:2702 :2705 JDATA=9160#:2701 :2705 ::4,14;"NOTE"::"A few words like CHAPEAUX end ":"in an X not an S in the plural.":"The X just stands for the S.":200:502: K)DATA=9170#:2702 :2705 N lEND OF PROGRAM q]:0,3;"YOU HAVE NOW COMPLETED THE";2,4;"THIRD PART OF THE COURSE" r`4,0;"You should now listen to the audio tape which accompanies the course." t/10 ,4;"Please enter your choice:" v312 ,1;"1. To run this section again." x214,1;"2. To load the next section." z!16,1;"3. To quit." | 200 K$= K$="1"1007 K$="3"1940 K$"2"1920 5:d$="Ensure tape is in corect":6,p(d$);d$ #d$="position":8,p(d$);d$ u200:502::4,0;"Press PLAY on the tape recorder";6,5;"and then press " ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 \I=1I=11 I=21I=33!8,8;"The first word:":2050 %:8,9 ;"The next word:" 100d:delay  200:sound &:0,9 ;"The German for"; DD$=E$(I,3̰E$(I,2)+2)+" is":2,p(d$);d$ *D$=F$(I,4̰F$(I,2)+3) :600 4,P(D$);D$ :5, P(D$);H$ Fd$="("+p$(i,4̰p$(i,2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x *D$ +D$=""2135W ,,PP=12 :D$="Imagine "+d$:700 W 300, \I f D$="": #PRESENT F WORDS & ASK FOR ENGLISH  1130j:PRINT INSTRUCTIONS I=I2I1-1  ,2,3;"What is the English for"  200 *D$=F$(I,4̰F$(I,2)+3) P=P(D$)-1 6,P;D$ c1=30-P 621,0;"press to see the answer";  r=10 P=0P=1:R,P; "400:21,0;b$; ?14,P-1;">";E$(I,3̰E$(I,2)+2) . 502 8I B `GIVE ANSWERS IN FRENCH j 1131k tI=I2I1-1 y ~+4,3;"What is the ";z$;" for" 200 *D$=E$(I,3̰E$(I,2)+2) 1P=(31-D$)/2-2:7,P;D$ "r=10 :p<1p=1 621,0;"press to see the answer"; d$="" c1=25:400 21,0;b$; @13 ,p-1;">";f$(i,4̰f$(i,2)+3); 502 I D$="": GRAMMAR d200::8,5;"SOME ELEMENTARY GRAMMAR":10 ,12 ;"GENDERS":100d: 0"The gender of 'girl' is neuter! DAS MDCHEN." 2:"Imagine a little girl playing with a fire." 200:300,: \"All the other words have genderswhich agree with the sex, so they will be given here." 200:502: !:"The father is DER VATER" ":"The mother is DIE MUTTER" ":"The brother is DER BRUDER" %:"The sister is DIE SCHWESTER" :"The husband is DER MANN" :"The wife is DIE FRAU" :"The son is DER SOHN" #:"The daughter is DIE TOCHTER" !:"The boy is DER JUNGE" #:"The girl is DAS MDCHEN" &200:502: ' 1220:k$="Y"2500 ( 200:502: @"The German for 'I' is ICH." B#"(The I in ICH is pronounced EE)" D&:"The German for 'I am' is ICH BIN" F#:"Imagine thinking 'I am a BIN." H#:"ICH BIN MDE is 'I am tired'." J$:"ICH BIN WEISS is 'I am white'." 200:502: +200:1220:K$="Y"2620<  ^:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO GERMAN": _:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO ENGLISH": 200:502 data  I=1NS 200 :D$:pp=0:700 621,0;"press to see the answer"; r=8:p=1 d$:c1=d$+15:400 pp=14:700 +21,0;b$:200:502 I FL=0  :4005:4013: B:6,6;"HERE ARE THE ANSWERS":200:502: f:0,0;"ENGLISH";0,PF;"GERMAN";1,0;"";1,PF;"";:  c=2 i=i2i1-1 2c,0;E$(I,3̰E$(I,2)+2) Ic,PF;:D$=F$(I,4̰F$(I,2)+3):D$:.1}L,40( c=c+2:I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=0D$:4460l `I=1I=11 I=21I=33!8,8;"The first gender:":4350 ':8,9 ;"The next gender:" 100d:200  DG=F$(I,3):6300:GET GENDER IN G$ and def. art. in a$ 8d$=G$+" - "+A$+F$(I,4̰F$(I,2)+3) &:0,9 ;"The gender for"; 7t$="THE "+e$(i,3̰e$(i,2)+2)+" is" &2,p(t$);t$ 04,p(d$);d$ :d$ < pp=10 ?D$="Imagine "+d$:700 D\I=319,0;"(In fact HOSEN is the plural of the feminine noun DIE HOSE)" E]i=819,0;"(In fact SOCKEN is the plural ofthe feminine noun DIE SOCKE)" b 300, li  d$="": 0present English and ask for French with gender   1131k:print instructions i=i2i1-1  $F$(I,3)=04570 44,0;"What is the gender & German for"  200 G=F$(I,3):6300 1d$="THE "+e$(i,3̰e$(i,2)+2) 1p=(31-d$)/2-2:7,p;d$ 621,0;"press to see the answer";  r=10 c1=30-P:400 21,0;b$; M13 ,p;8;">";a$;:D$=f$(i,4̰f$(i,2)+3):D$;  502  i:d$="": :LIST ANSWERS ENGLISH TO FOREIGN WITH DEF ART AND GENDERS PF=16:4005  c=2 i=i2i1-1 $F$(I,3)=046571  g=f$(i,3):6300 9c,0;"THE ";e$(i,3̰e$(i,2)+2) 4d$="":d$=a$+f$(i,4̰f$(i,2)+3)  c,PF;d$ / c=c+2:.1}L,40( 1I 4 502 6 9  grammar 3 ):4,7;"ELEMENTARY GRAMMAR" 200:502: $"The German for 'you' is DU.(DOO)" /:"Imagine the phrase 'How do you"::"do?'." 300,:200: *"The German for 'are' is BIST. (BIST)" 3:"Imagine telling someone that you ARE BEST." 300,:200: <"So, to say 'You are late' you simply say DU BIST SPT." -:"'You are heavy' is DU BIST SCHWER." :"Please note that the German DU for 'you' is only used when you know someone quite well, for example, when you say to your friend 'You are black'. When youhave met someone for the first time 'you' is SIE in German, pronounced ZEE." >:"The word for 'you are' in this case is SIE SIND. (ZINT)" %:"Imagine YOU are SINNED against." 300,:200: 8"So the German for 'you are' is DU BIST or SIE SIND." B:"Where you do not know someone well, 'you are' is SIE SIND." ;:"Where you do know someone well 'you are' is DU BIST." 200:502: @"You also use the word SIND for 'are' in sentences such as:-" &:"'The dog and the cat are black.'" N:"In German the sentence is - DER HUND UND DIE KATZE SIND SCHWARZ." 0:"The word SIND is the normal wordfor 'are'." 200:502: +200:1220:K$="Y"5000 2 P grammar 4 Z.:4,4;"MORE ELEMENTARY GRAMMAR" d200:502: fw"In the last section you were taught that 'I am' is ICH BIN in German, and DU BIST and SIE SIND are 'you are'." hU:"In this section, you are going to learn about the words 'he', 'she' and 'it'." j&:"The German for 'he' is ER. (AIR)" l6:"Imagine thinking 'HE always ERS when he speaks'." n200:300,: p3"For example:-"::"'He is late' is ER IST SPT." r&:"IST ER SCHWARZ is 'Is he black?'" t200:502: vC"The German for 'she' is SIE.":"(ZEE). So, SIE IST is 'she is'." x5:"For example, SIE IST MDE is 'She is tired'." z$:"The German for 'it' is ES (ES)" |:"Imagine IT is an S-bend." ~200:300,: :"So 'it is' is ES IST." 5:"For example:-"::"ES IST SPT is 'It is late.'" #:"IST ES SPT? is 'Is it late?'" 200:502: 5"In summary:"::"ICH BIN SCHWARZ is 'I am black'." ;:"DU BIST SCHWARZ is 'You are black'. (to a friend)" -:"SIE SIND SCHWARZ is 'You are black'." &:"ER IST SCHWARZ is 'He is black'." (:"SIE IST SCHWARZ is 'She is black'." 6:"SIE SIND is 'you are'."::"SIE IST is 'she is'." 200:502: /"Finally, the German for 'we' is WIR. (VEER)" /:"Imagine WE are VEERING all over the road." 200:300,: ,"'We are black' is WIR SIND SCHWARZ." 7200:502::1220:k$="Y"5200P   sentences 3 `data=9180#:ns=5:2701 :2705 :data=9190#:2702 :2705 :  sentences 4 "5data=9210#:ns=5:2701 :2705 ')DATA=9220$:2702 :2705 , | grammar 5 .:4,4;"MORE ELEMENTARY GRAMMAR" 200:502:   sentences 5 5data=9220$:ns=5:2701 :2705 +data=9230$:2702 :2705 : 8 GENDERS 1 B L84,3;"GENDERS FOR GROUP 1 WORDS":502 `I1=1:I2=10 j4300: (g=1g$="MASCULINE":A$="DER ": 'G=2G$="FEMININE":A$="DIE ": %G=3G$="NEUTER":A$="DAS ": (G=4G$="MASCULINE":A$="DIE ": 'G=5G$="FEMININE":A$="DIE ": %G=6G$="NEUTER":A$="DIE ": %G=7G$="PLURAL":A$="DIE ":  G$="": test genders 5:4,0;"You will now be given words in" ":"English. Please type in the "  :"gender and word in French" 200:502 I1=1:I2=10 :4500:4600  cGROUP 2 WORDS d 6535 na:4,13 ;"PART 2":7,4;"EMERGENCY & USEFUL WORDS";:200:502 sI1=1:I2=10 xdata=9110# 2000:2200  4000 F:4,3;"GENDERS FOR PART 1 WORDS":200:502: 7data=9110#:4300:4500:4600: ,present and test genders for group 2 words O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 )DATA=9130#:4500:4600  adjectives words 21-28 i1=11 :i2=20 T:4,13 ;"PART 2";6,10 ;"FAMILY WORDS":200:502 DATA=9120# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=26:i2=32 6X:4,13 ;"PART 3";6,6;"SOME USEFUL WORDS":200:502 ;DATA=9190# @$2000:2200:4000 E2400` :4000 F H200:502: J WORDS WITHOUT GENDERS i1=21:i2=30 :4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9130# 12000:2200:PF=16:4000 %2400` :PF=16:4000   WORDS X:4,13 ;"PART 3":7,8;"SOME MORE WORDS";:200:502 I1=19:I2=28 data=9170# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 3 WORDS":200:502: !7data=9180#:4300:4500:4600: XV:6,2;"PRESS & TURN OFF THE":10 ,9 ;"TAPE RECORDER" Z'200:=""10 :7000X \ ]E5,6;"S I L V E R S O F T";7,12 ;"presents" bP10 ,4;"THE GRUNEBERG LINKWORD";12 ,8;"LANGUAGE SYSTEM" g&16,8;"GERMAN SECTION 3" l WORDS V:4,13 ;"PART 3":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: 7data=9130#:4300:4500:4600: #' #(INITIALISE ROUTINE #-"9000(#:I=0:J=0 #21:1::7 #4Bz$="GERMAN":y$="ENGLISH":b$=" " #7 7000X #<6N1=30:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,16):i=1n1:e$(i):i #>)P$(N1,18):I=1N1:P$(I):I #Fo"031HUT","051SCHUH","055HOSEN","041ROCK","043HEMD","053KLEID","071SCHLIPS","065SOCKEN","061MANTEL","052BLUSE" #Gv"051VATER","062MUTTER","061BRUDER","092SCHWESTER","041MANN","042FRAU","041SOHN","072TOCHTER","051JUNGE","073MDCHEN" #H`"030NUR","040SEHR","020JA","040NEIN","040AUCH","050NICHT","040GANZ","040DIES","030DAS","020DA" #Ic"03HAT","04SHOE","08TROUSERS","05SKIRT","05SHIRT","05DRESS","03TIE","05SOCKS","04COAT","06BLOUSE" #Ji"06FATHER","06MOTHER","07BROTHER","06SISTER","07HUSBAND","04WIFE","03SON","08DAUGHTER","03BOY","04GIRL" #KY"05ONLY","04VERY","03YES","02NO","04ALSO","03NOT","05QUITE","04THIS","04THAT","05THERE" #Lq"040HOOT","050SHOOH","060HOHSEN","040ROCK","040HEMT","043KLiT","060SHLIPS","060ZOCKEN","060MANTEL","070BLOOSEH" #Mz"070FAHTTER","061MuTTER","070BROODER","080SHVESTER","040MANN","045FRow","040ZOHN","074TOchTER","061YuNGEH","084MAIDchEN" #Nc"040NOOR","040ZAIR","020YA","033NiN","049owch","064NEEchT","050GANTS","040DEES","030DAS","030DAH" #j #5"you give a HOOT when you see your mother's hat." # "a SHOE on the German flag." #$"HOSING down a pair of trousers." #&"a skirt spread over a large ROCK." #5"being HEMMED into a corner by a row of shirts." #!"you COLLIDE with a dress." #O"someone who SLIPS and gets caught up in his tie, so it nearly chokes him." #."your dirty SOCKS lying on the German flag." #/"someone trying to disMANTLE your coat." #'"someone with a big BLUE blouse." #""a boxer boxing with a hat on." #0"a boxer throwing a shoe at his opponent." #'"a little girl trying trousers on." #!"a boxer dressed in a skirt." #$"burning your shirt on the fire." #+"someone throwing a dress on a fire." #8"a boxer putting a tie on before going out to fight." #("a little girl putting her socks on." #&"a boxer draped in a heavy coat." #6"a little girl with a beautiful new party blouse." #-"your father getting FATTER and fatter." #+"your mother MUTTERING away to herself." #/"you have a brother who BROODS a great deal." #""a SWEATER on your sister." #+"the first MAN you see is your husband." #"a FROWN on your wife." #%"your son has SOWN his wild oats." #*"saying 'I TAUGHT HER, your daughter'." #"a group of YOUNG boys." #4"a group of little MAIDENS, girls of course." #$"thinking if ONLY I KNEW HER." ##"feeling VERY keen to SEE HER." #("your mother saying YES,take the JAR." #!"being told 'NO', NINE times." #"you ALSO say 'OW!'" #&"thinking I hope this isNOT NICKED." #&"GANGS make you QUITE frightened." #!"thinking THIS is a TEASE." #!"thinking THAT DUST is thick." #7"a child saying to his father 'THERE, THERE DA DA!'" #"I am green.","ICH BIN GRN." #)"I am very tired.","ICH BIN SEHR MDE." #1"Am I big or empty?","BIN ICH GROSS ODER LEER?" #F"No, I am not very black.","NEIN, ICH BIN NICHT SEHR SCHWARZ." #C"The picture is orange and grey.","DAS BILD IST ORANGE UND GRAU." #+"I am not heavy.","ICH BIN NICHT SCHWER." #."ICH BIN ROT UND GROSS.","I am red and big." #*"ICH BIN NICHT KLEIN.","I am not small." #("ICH BIN AUCH SPT.","I am also late." #3"JA, ICH BIN SEHR WEISS.","Yes, I am very white." #G"NEIN, ICH BIN NICHT LEER ODER LAUT.","No, I am not empty or noisy." #o"DAS KLEID IST NUR GRN, UND DERSCHLIPS IST NUR BLAU.","The dress is only green, and the tie is only blue." #K"IST DER MANTEL SEHR GROSS UND WEISS?","Is the coat very big and white?" #ż"NEIN, DER VATER IST NICHT KLEIN, UND DIE MUTTER IST NICHTGROSS, ABER DER SOHN IST SEHR GROSS.","No, the father is not small, and the mother is not big, but the son is very big." #`"WAR DER MANN LAUT, UND WAR DAS MDCHEN SPT?","Was the husband noisy, and was the girl late?" #h"DIE FRAU IST SCHNELL, ABER DIE TOCHTER IST MDE.","The wife is quick but the daughter is tired." #F"You are not tired. [to a friend]","DU BIST NICHT MDE." #Y"The shirt and the skirt are very blue.","DAS HEMD UND DER ROCK SIND SEHR BLAU." #^"No, the shoe and the hat are not big.","NEIN, DER SCHUH UND DER HUT SIND NICHT GROSS." #n"You are very noisy, and I am very heavy. [not to a friend]","SIE SIND SEHR LAUT, UND ICH BINSEHR SCHWER." #N"Yes, you are also quite late. [to a friend]","JA, DU BIST AUCH GANZ SPT." #,"DU BIST NUR KLEIN.","You are only small." #A"SIE SIND SEHR GROSS UND SCHWER.","You are very big and heavy." #+"DU BIST AUCH SPT.","You are also late." #I"SIE SIND GANZ SCHNELL ABER MDE.","You are quite quick but tired." #C"DU BIST GRAU, BLAU UND ORANGE.","You are grey, blue and orange." #]"DER VATER UND DIE MUTTER SIND SEHR SCHWARZ.","The father and the mother are very black." #4"She is tired and empty.","SIE IST MDE UND LEER." #("He is only green.","ER IST NUR GRN." #."You are very heavy.","DU BIST SEHR SCHWER." #4"It is white and brown.","ES IST WEISS UND BRAUN." #,"You are not late.","SIE SIND NICHT SPT." #+"SIE IST NUR KLEIN.","She is only small." #K"ER IST SEHR GROSS UND SEHR SCHWER.","He is very big and very heavy." #d"ES IST GRN, WEISS UND BLAU ABER NICHT BRAUN.","It is green, white and bluebut not brown." #W"DAS BILD UND DIS GARDINE SIND AUCH ROT.","The picture and the curtain arealso red." #"DAS BETT UND DAS BRETT SIND SCHWER, ABER ER IST GANZ KLEIN.","The bed and the shelf are heavy, but he is quite small." >#xjZGERMANYENGLISHB !031HUT 051SCHUH 055HOSEN 041ROCK 043HEMD 053KLEID 071SCHLIPS 065SOCKEN 061MANTEL 052BLUSE 051VATER 062MUTTER 061BRUDER 092SCHWESTER 041MANN 042FRAU 041SOHN 072TOCHTER 051JUNGE 073MDCHEN 030NUR 040SEHR 020JA 040NEIN 040AUCH 050NICHT 040GANZ 040DIES 030DAS 020DA 03HAT 04SHOE 08TROUSERS 05SKIRT 05SHIRT 05DRESS 03TIE 05SOCKS 04COAT 06BLOUSE 06FATHER 06MOTHER 07BROTHER 06SISTER 07HUSBAND 04WIFE 03SON 08DAUGHTER 03BOY 04GIRL 05ONLY 04VERY 03YES 02NO 04ALSO 03NOT 05QUITE 04THIS 04THAT 05THERE !040HOOT 050SHOOH 060HOHSEN 040ROCK 040HEMT 043KLiT 060SHLIPS 060ZOCKEN 060MANTEL 070BLOOSEH 070FAHTTER 061MuTTER 070BROODER 080SHVESTER 040MANN 045FRow 040ZOHN 074TOchTER 061YuNGEH 084MAIDchEN 040NOOR 040ZAIR 020YA 033NiN 049owch 064NEEchT 050GANTS 040DEES 030DAS 030DAH GR4 vZlS%xZ$P(D$)=(31-D$)/2  #I=07:x:"u"+I,x:I 23658j\,72H #i=07:x:"A"+i,x:i Yi=07:x:"O"+i,x:I:I=17:"L"+I,0:I:"L",255 36$,0,66B,66B,66B,66B,60<,0,36$,0,60<,66B,126~,66B,66B,0,36$,0,60<,66B,66B,66B,60<,0 1000 2)#1;" Press ENTER to continue." 7""557 <=""60< >13 557 A d 20: .5,20: ,.#1;"to waitto continue"; 1k$=:k$=""3051 3K$=13 6k$32 3051 8 200 ;6Z=1475:K$=:K$=13 Z=600X =z:200:  500 GET USER ANSWER  C=0 ""510 T=P:SAVE P VALUE /R,P-1;">";R,P:POINTER FOR INPUT LINE    ""522   .1}L,40(  =""525  =13 P=T: 12 540 C=0522  >P=P-1:C=C-1:P=0P=30:R=R-2 R,P;" ";:522  ="1"R,P;"";:550& ="7"R,P;"";:550& ="0"R,P;"";:550& ! R,P;; &1P=P+1:P=31R=R+2:P=1 +C=C+1:C=C1P=T: D 522  PRINT D$ ON ALTERNATE LINES L=D$ L>124|729 L>93]727 L>62>725 L<32 PP,1;D$: ?PP,1;D$(31);PP+2,1;D$(32 ): iPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?): דPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^): PP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^124|);PP+8,1;D$(124|);: MAIN CONTROL LOOP F5 9000(#:INITIALISE  1300 1100L:PART 1 6500d:p2 6600: p3 1700:s1 2500 :g1 $1600@:s2 B1900l:END Lpart 1 eating Q `R4,13 ;"PART 1";7,9 ;"IN THE GARDEN":200:502 e6I1=1:I2=10 :DATA=9100#:2000 f 1155 i3PRINT INSTRUCTIONS FOR FOREIGN INTO ENGLISH WORDS jW$=Z$:X$=Y$:1135o kW$=Y$:X$=Z$ oN:3,3;"You will now be given the "::(8);"words in ";w$ t#:::" Please type in the ";x$ yD:::" To display the answer simply"::" press ~ENTER~" ~200:502: %2200:PF=16:4000 /:4,3;"GENDERS FOR PART 1 WORDS" #502:I1=1:I2=10 DATA=9110# 14300:4500:PF=17:4600  R:3,3;"You will now be given the "::(8);"words in ENGLISH" #:::" Please type in the ";Z$ 200:502  2400` PF=16:4100  a:6,5;"DO YOU WISH TO REPEAT";8,5;"THIS SECTION (YES/NO)?":200 K$="" K$= K$="Y"K$="y"k$="Y": K$"N"k$"n"1230  k$="N":  H200:502::4,0;"Press if you are using a" #:"black & white TV, if you " #:"are using a colour TV." (=""1320( --="B" Ŧ="b"7:7:0:: 2,="c"Ŧ="C"1:1:7:: 7 1320( xAS INS FOR PRONUNCIATION z9PF=2L,2;"[i as in PIE, ch as in LOCH]": }*PF=1L,9 ;"[u as in PUT]": *pf=3l,9 ;"[i as in PIE]": ,pf=4l,8;"[ch as in LOCH]": +pf=5l,9 ;"[ow as in COW]": 7pf=6l,3;"[i as in PIE, u as in PUT]": ,pf=7l,8;"[g as in ROUGE]": 8pf=8l,3;"[ow as in COW, u as in PUT]": :pf=9 l,2;"[ow as in COW, ch as in LOCH]":  @ sentences E5DATA=9170#:NS=5:2701 :2705 J5ns=5:DATA=9180#:2702 :2705 T sentences 1 e to f,f to e data=9150# !NS=5:NUMBER OF SENTENCES 2701 :2705 NS=5:data=9160# 2702 :2705  part 4 verbs  T:12 ;"PART 4"::"SOME USEFUL WORDS FOR MAKING UP"::11 ;"SENTENCES" 200:502 I1=31:I2=34" DATA=9130# $2000:2200:4000 &$1130j:2400` :4100 0 : sentences 2 ?ns=5:data=9140# D2701 :2705 I)data=9150#:2702 :2705 JDATA=9160#:2701 :2705 ::4,14;"NOTE"::"A few words like CHAPEAUX end ":"in an X not an S in the plural.":"The X just stands for the S.":200:502: K)DATA=9170#:2702 :2705 N lEND OF PROGRAM q^:0,3;"YOU HAVE NOW COMPLETED THE";2,4;"FOURTH PART OF THE COURSE" r`4,0;"You should now listen to the audio tape which accompanies the course." t/10 ,4;"Please enter your choice:" v312 ,1;"1. To run this section again." x214,1;"2. To load the next section." z!16,1;"3. To quit." | 200 K$= K$="1"1007 K$="3"1940 K$"2"1920 5:d$="Ensure tape is in corect":6,p(d$);d$ $d$="position,":8,p(d$);d$ u200:502::4,0;"Press PLAY on the tape recorder";6,5;"and then press " ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 \I=1I=11 I=22I=33!8,8;"The first word:":2050 %:8,9 ;"The next word:" 100d:delay  200:sound &:0,9 ;"The German for"; DD$=E$(I,3̰E$(I,2)+2)+" is":2,p(d$);d$ *D$=F$(I,4̰F$(I,2)+3) :600 4,P(D$);D$ :5, P(D$);H$ Fd$="("+p$(i,4̰p$(i,2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x *D$ +D$=""2135W ,,PP=12 :D$="Imagine "+d$:700 4@i=2021,0;"(MORGEN also means 'tomorrow')" W 300, \I f D$="": #PRESENT F WORDS & ASK FOR ENGLISH  1130j:PRINT INSTRUCTIONS I=I2I1-1  ,2,3;"What is the English for"  200 *D$=F$(I,4̰F$(I,2)+3) P=P(D$)-1 6,P;D$ c1=30-P 621,0;"press to see the answer";  r=10 P=0P=1:R,P; "400:21,0;b$; ?14,P-1;">";E$(I,3̰E$(I,2)+2) . 502 8I B `GIVE ANSWERS IN FRENCH j 1131k tI=I2I1-1 y ~+4,3;"What is the ";z$;" for" 200 *D$=E$(I,3̰E$(I,2)+2) 1P=(31-D$)/2-2:7,P;D$ "r=10 :p<1p=1 621,0;"press to see the answer"; d$="" c1=25:400 21,0;b$; @13 ,p-1;">";f$(i,4̰f$(i,2)+3); 502 I D$="": GRAMMAR g200::8,5;"SOME ELEMENTARY GRAMMAR":10 ,11 ;"WORD ORDER":100d: Ъ"The important thing about word order is that the verb is alwaysthe second idea in a sentence. This means that sometimes you have to change the normal word order." 3:"For example:"::"'that I am' is DAS BIN ICH." <:"'Tomorrow I am the dog' is":"MORGEN BIN ICH DER HUND." 0:"BIN is the second word in both sentences." [:"Another example is:"::"'Today he is tired'":"In German this is HEUTE IST ER MDE." 200:502: "Remember, the verb is the second idea in the sentence. In many cases sentences will be spoken in the same order as in English. Do not worry if you getthe word order wrong to begin with, you will still be understood." :"Please note too that the words 'yes' and 'no' at the beginning of the sentence count as separate sentences, they are notthe first idea." <:"So:"::"'Yes, it is the dog' is JA, ES IST DER HUND." C:"'No, it is not the flower' is NEIN, ES IST NICHT DIE BLUME." &200:502: ' 1220:k$="Y"2500 ( 200:502: 200:502: +200:1220:K$="Y"2620<  ^:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO GERMAN": _:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO ENGLISH": 200:502 data  I=1NS 200 :D$:pp=0:700 621,0;"press to see the answer"; r=8:p=1 d$:c1=d$+15:400 pp=14:700 +21,0;b$:200:502 I FL=0  :4005:4013: B:6,6;"HERE ARE THE ANSWERS":200:502: f:0,0;"ENGLISH";0,PF;"GERMAN";1,0;"";1,PF;"";:  c=2 i=i2i1-1 :I=11 C=2:200:502::4010 2c,0;E$(I,3̰E$(I,2)+2) Ic,PF;:D$=F$(I,4̰F$(I,2)+3):D$:.1}L,40(  c=c+2 I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=0D$:4460l `I=1I=11 I=22I=33!8,8;"The first gender:":4350 ':8,9 ;"The next gender:" 100d:200  DG=F$(I,3):6300:GET GENDER IN G$ and def. art. in a$ 8d$=G$+" - "+A$+F$(I,4̰F$(I,2)+3) &:0,9 ;"The gender for"; 7t$="THE "+e$(i,3̰e$(i,2)+2)+" is" &2,p(t$);t$ 04,p(d$);d$ :d$ < pp=10 ?D$="Imagine "+d$:700 b 300, li  d$="": 0present English and ask for French with gender   1131k:print instructions i=i2i1-1  OI=214,5;"What is the German for":d$="TODAY":4540 $F$(I,3)=04570 44,0;"What is the gender & German for"  200 G=F$(I,3):6300 1d$="THE "+e$(i,3̰e$(i,2)+2) 1p=(31-d$)/2-2:7,p;d$ 621,0;"press to see the answer";  r=10 c1=30-P:400 Mi=2113 ,p-1;">HEUTE":21,0;b$;:4555 21,0;b$; M13 ,p;8;">";a$;:D$=f$(i,4̰f$(i,2)+3):D$;  502  i:d$="": :LIST ANSWERS ENGLISH TO FOREIGN WITH DEF ART AND GENDERS  4005  c=2 i=i2i1-1 :I=11 200:502::C=2:4010 dF$(I,3)=0d$=e$(i,3̰e$(i,2)+2):c,0;d$:A$="":4635  g=f$(i,3):6300 9c,0;"THE ";e$(i,3̰e$(i,2)+2) 4d$="":d$=a$+f$(i,4̰f$(i,2)+3)  c,PF;d$ / c=c+2:.1}L,40( 1I 4 502 6 9  grammar 3 ):4,7;"ELEMENTARY GRAMMAR" 200:502: 200:502: +200:1220:K$="Y"5000 2 P grammar 4 Z.:4,4;"MORE ELEMENTARY GRAMMAR" d200:502: 7200:502::1220:k$="Y"5200P   sentences 3 `data=9180#:ns=5:2701 :2705 :data=9190#:2702 :2705 :  sentences 4 "5data=9210#:ns=5:2701 :2705 ')DATA=9220$:2702 :2705 , | grammar 5 .:4,4;"MORE ELEMENTARY GRAMMAR" 200:502:   sentences 5 5data=9220$:ns=5:2701 :2705 +data=9230$:2702 :2705 : 8 GENDERS 1 B L84,3;"GENDERS FOR GROUP 1 WORDS":502 `I1=1:I2=10 j4300: (g=1g$="MASCULINE":A$="DER ": 'G=2G$="FEMININE":A$="DIE ": %G=3G$="NEUTER":A$="DAS ": (G=4G$="MASCULINE":A$="DIE ": 'G=5G$="FEMININE":A$="DIE ": %G=6G$="NEUTER":A$="DIE ": %G=7G$="PLURAL":A$="DIE ":  G$="": test genders 5:4,0;"You will now be given words in" ":"English. Please type in the "  :"gender and word in French" 200:502 I1=1:I2=10 :4500:4600  cGROUP 2 WORDS d n^:4,13 ;"PART 2":7,5;"WORDS TO DO WITH TIME";:200:502 sI1=11 :I2=21 xdata=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: Ddata=9130#:4300:4500:pf=16:4600: ,present and test genders for group 2 words O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 )DATA=9130#:4500:4600  adjectives words 21-28 @4,6;"ADVERBS & ADJECTIVES":200:502: i1=22:i2=29 DATA=9140# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=26:i2=32 6X:4,13 ;"PART 3";6,6;"SOME USEFUL WORDS":200:502 ;DATA=9190# @$2000:2200:4000 E2400` :4000 F H200:502: J WORDS WITHOUT GENDERS i1=21:i2=30 :4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9130# 12000:2200:PF=16:4000 %2400` :PF=16:4000  200:502:  WORDS X:4,13 ;"PART 3":7,8;"SOME MORE WORDS";:200:502 I1=19:I2=28 data=9170# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 3 WORDS":200:502: !7data=9180#:4300:4500:4600: XV:6,2;"PRESS & TURN OFF THE":10 ,9 ;"TAPE RECORDER" Z'200:=""10 :7000X \ ]E5,6;"S I L V E R S O F T";7,12 ;"presents" bP10 ,4;"THE GRUNEBERG LINKWORD";12 ,8;"LANGUAGE SYSTEM" g&16,8;"GERMAN SECTION 4" l WORDS V:4,13 ;"PART 3":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: 7data=9130#:4300:4500:4600: #' #(INITIALISE ROUTINE #-"9000(#:I=0:J=0 #21:1::7 #4Bz$="GERMAN":y$="ENGLISH":b$=" " #7 7000X #<6N1=29:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,16):i=1n1:e$(i):i #>)P$(N1,18):I=1N1:P$(I):I #Fq"051RASEN","052BEERE","052BLUME","052WESPE","041BAUM","031AST","051SAMEN","051TEICH","052HARKE","102GIESSKANNE" #G{"042ZEIT","072SEKUNDE","062MINUTE","062STUNDE","031TAG","052WOCHE","051MONAT","043JAHR","051ABEND","061MORGEN","050HEUTE" #HU"040BALD","040MEHR","040VIEL","030GUT","080SCHLECHT","050IMMER","040NOCH","040HIER" #Ih"04LAWN","05BERRY","06FLOWER","04WASP","04TREE","06BRANCH","04SEED","04POND","04RAKE","12WATERING CAN" #Jo"04TIME","06SECOND","06MINUTE","04HOUR","03DAY","04WEEK","05MONTH","04YEAR","07EVENING","07MORNING","05TODAY" #KK"04SOON","04MORE","04MUCH","04GOOD","03BAD","06ALWAYS","05STILL","04HERE" #Lw"060RAHSEN","060BEEREH","070BLOOMEH","060VESPEH","045BowM","030AST","060ZAHMEN","042Tich","060HARKEH","100GEESKANNEH" #M"043TSiT","081SEKUNDEH","080MINOOTEH","071STuNDEH","040TAHG","064VOchEH","060MOHNAT","040YAHR","060AHBENT","060MORGEN","060HOITEH" #NU"040BALT","040MAIR","040FEEL","040GOOT","074SHLEchT","050IMMER","044NOch","040HEER" #j #& "RAISINS spread all overyour lawn." #%"dropping a BERRY into your beer." #$"watching a flower BLOOMING." #'"a wasp which WHISPERS in your ear." # "a tree BOWING in the wind." #)"you are ASKED to cut down a branch." #*"a SALMON swallowing a packet of seed." # "washing TIGHTS in a pond." #)"thinking 'HARK, I hear a rake raking!" #A"thinking 'If GEESE CAN use a watering can, then so can I'." #! "a boxer standing on thelawn." #'"a little girl eating red berries." ##"a little girl picking flowers." #'"a wasp stinging a little girl." # "a boxer stuck up a tree." #5"a boxer hitting you with the branch of a tree." #"a boxer sowing seeds." # "a boxer falling into a pond." #%"a little girl raking the earth." #?"a little girl watering the flowers with a watering can." #m"being told not to lose SIGHT of the time.","waving a German flag every time the clock moves one SECOND." #G"shouting 'Wait a MINUTE, I'll just get the German flag'." #Q"feeling STUNNED when you are told there will not be a bus for another hour." #W"someone putting a TAG in the wall of his prison to count every day that goes by." #S"a girl so very tired that you only WOKE HER after she had slept for a week." #("a girl whom you MOAN ATonce a month." #+"you clearing your YARD out once a year." #,"driving round A BEND asevening draws in." #6"meeting a Welshman called MORGAN this morning." #"feeling HAUGHTY today." #7"a little girl taking a long time to get out of bed." #@"a little girl counting the seconds ticking from a watch." #9"a little girl being told to go to bed in a minute." #5"a little girl standing at a bus stop for an hour." #+"a boxer who eats a hugesteak every day." #&"a little girl sleeping for a week." #@"a boxer found drunk because he has a fight once a month." #B"lighting a bonfire once a year to celebrate a holiday." #'"meeting a boxer late one evening." #3"meeting a boxer called Morgan every morning.","" #@"looking in a mirror and thinking 'I shall SOON be BALD'." # "feeding a MARE MORE food." #&"thinking 'That does notFEEL MUCH'." #0"feeling GOOD after waving a German flag." #""being hit by a BAD SLEDGE." #."thinking 'It's always HIM/HER, never me!'" #-"you can STILL hear a KNOCK at the door." #"thinking 'HERE! HERE!'" #9 "The tree is still heavy.","DER BAUM IST NOCH SCHWER." #\"The lawn and the flower are always here.","DER RASEN UND DIE BLUME SIND IMMER HIER." #T"The hour and the day are soon here.","DIE STUNDE UND DER TAG SIND BALD HIER." #1"The month was black.","DER MONAT WAR SCHWARZ." #J"The branch and the rake are there.","DER AST UND DIE HARKE SIND DA." #>"DER TEICH IST NICHT MEHR HIER.","The pond is no more here." #r"DIE WOCHE WAR NICHT GUT, UND DAS JAHR WAR SEHR SCHLECHT.","The week was not good, and the year was very bad." #x"DIE BEERE ODER DER SAMEN IST HEUTE ROT.","The berry or the seed is red today. [note the word order for HEUTE]" #<"DIE WESPE IST IMMER SCHNELL.","The wasp is always quick." #Y"DER MORGEN UND DER ABEND SIND BALD HIER.","The morning and the evening aresoon here." #8"No, it is not the day.","NEIN, ES IST NICHT DER TAG." #*"Today it is here.","HEUTE IST ES HIER." #,"That is more green.","DAS IST MEHR GRN." #0"Yes, it is not good.","JA, ES IST NICHT GUT." #8"The pond is not bad.","DER TEICH IST NICHT SCHLECHT." #\"IST DAS SEHR GUT, UND IST DIES SEHR SCHLECHT?","Is that very good, and is this very bad?" #?"DER JUNGE IST HEUTE SEHR GUT.","The boy is very good today." #_"DER BRUDER UND DIE SCHWESTER SIND BALD MDE.","The brother and the sister are soon tired." #P"WAR DIE BLUSE NICHT BLAU ODER GRN?","Was the blouse not blue or green?" #5"DU BIST NOCH SEHR GUT.","You are still very good." <#xjat#'lprctgTTHE MORNING isGFEMININEADIE WENGLISHXGERMANDYou are still very good.K04LAWN 05BERRY 06FLOWER 04WASP 04TREE 06BRANCH 04SEED 04POND 04RAKE 12WATERING CAN 04TIME 06SECOND 06MINUTE 04HOUR 03DAY 04WEEK 05MONTH 04YEAR 07EVENING 07MORNING 05TODAY 04SOON 04MORE 04MUCH 04GOOD 03BAD 06ALWAYS 05STILL 04HERE 060RAHSEN 060BEEREH 070BLOOMEH 060VESPEH 045BowM 030AST 060ZAHMEN 042Tich 060HARKEH 100GEESKANNEH 043TSiT 081SEKUNDEH 080MINOOTEH 071STuNDEH 040TAHG 064VOchEH 060MOHNAT 040YAHR 060AHBENT 060MORGEN 060HOITEH 040BALT 040MAIR 040FEEL 040GOOT 074SHLEchT 050IMMER 044NOch 040HEER ZGERMANYENGLISHB 051RASEN 052BEERE 052BLUME 052WESPE 041BAUM 031AST 051SAMEN 051TEICH 052HARKE 102GIESSKANNE 042ZEIT 072SEKUNDE 062MINUTE 062STUNDE 031TAG 052WOCHE 051MONAT 043JAHR 051ABEND 061MORGEN 050HEUTE 040BALD 040MEHR 040VIEL 030GUT 080SCHLECHT [ GR5 l6l'l$P(D$)=(31-D$)/2  #I=07:x:"u"+I,x:I 23658j\,72H #i=07:x:"A"+i,x:i Yi=07:x:"O"+i,x:I:I=17:"L"+I,0:I:"L",255 36$,0,66B,66B,66B,66B,60<,0,36$,0,60<,66B,126~,66B,66B,0,36$,0,60<,66B,66B,66B,60<,0 1000 2)#1;" Press ENTER to continue." 7""557 <=""60< >13 557 A d 20: .5,20: ,.#1;"to waitto continue"; 1k$=:k$=""3051 3K$=13 6k$32 3051 8 200 ;6Z=1475:K$=:K$=13 Z=600X =z:200:  500 GET USER ANSWER  C=0 ""510 T=P:SAVE P VALUE /R,P-1;">";R,P:POINTER FOR INPUT LINE    ""522   .1}L,40(  =""525  =13 P=T: 12 540 C=0522  >P=P-1:C=C-1:P=0P=30:R=R-2 R,P;" ";:522  ="1"R,P;"";:550& ="7"R,P;"";:550& ="0"R,P;"";:550& ! R,P;; &1P=P+1:P=31R=R+2:P=1 +C=C+1:C=C1P=T: D 522  PRINT D$ ON ALTERNATE LINES L=D$ L>124|729 L>93]727 L>62>725 L<32 PP,1;D$: ?PP,1;D$(31);PP+2,1;D$(32 ): iPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?): דPP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^): PP,1;D$(31);PP+2,1;D$(32 62>);PP+4,1;D$(63?93]);PP+6,1;D$(94^124|);PP+8,1;D$(124|);:  AI=11 13 :I,6;" ":I % 200 * >:d$="ABDEF" ?8,10 ; @I=16:D$(I); BD$(I)""848P C 8; D"23689\,23689\-2 F 145; H"23689\,23689\+4 PI W I=15  :200 d$:d$="THE "+d$ P=(31-D$)/2 4,P;D$ D$:P=(31-D$)/2 7,P;:600X ';" ":10 ,P;8;">";D$  700 =""945 I: MAIN CONTROL LOOP F5 9000(#:INITIALISE  1300 1100L:PART 1 6900:p2 1700: S1 2500 :G1 1600@:S2 $6500d:P3 .6600:P4 85300:S3 :6700,:P5 <2620< :G2 >5400:S4 B1900l:END Lpart 1 eating Q `\4,13 ;"PART 1";7,3;"RESTAURANT & FOOD WORDS":200:502 e6I1=1:I2=10 :DATA=9100#:2000 f 1155 i3PRINT INSTRUCTIONS FOR FOREIGN INTO ENGLISH WORDS jW$=Z$:X$=Y$:1135o kW$=Y$:X$=Z$ oN:3,3;"You will now be given the "::(8);"words in ";w$ t#:::" Please type in the ";x$ yD:::" To display the answer simply"::" press ~ENTER~" ~200:502: %2200:PF=16:4000 /:4,3;"GENDERS FOR PART 1 WORDS" #502:I1=1:I2=10 DATA=9110# 14300:4500:PF=17:4600  R:3,3;"You will now be given the "::(8);"words in ENGLISH" #:::" Please type in the ";Z$ 200:502  2400` PF=16:4100  a:6,5;"DO YOU WISH TO REPEAT";8,5;"THIS SECTION (YES/NO)?":200 K$="" K$= K$="Y"K$="y"k$="Y": K$"N"k$"n"1230  k$="N":  H200:502::4,0;"Press if you are using a" #:"black & white TV, if you " #:"are using a colour TV." (=""1320( --="B" Ŧ="b"7:7:0:: 2,="c"Ŧ="C"1:1:7:: 7 1320( xAS INS FOR PRONUNCIATION z9PF=2L,2;"[i as in PIE, ch as in LOCH]": }*PF=1L,9 ;"[u as in PUT]": *pf=3l,9 ;"[i as in PIE]": ,pf=4l,8;"[ch as in LOCH]": +pf=5l,9 ;"[ow as in COW]": 7pf=6l,3;"[i as in PIE, u as in PUT]": ,pf=7l,8;"[g as in ROUGE]": 8pf=8l,3;"[ow as in COW, u as in PUT]": :pf=9 l,2;"[ow as in COW, ch as in LOCH]":  @ sentences E5DATA=9150#:NS=5:2701 :2705 J5ns=5:DATA=9160#:2702 :2705 T sentences 1 e to f,f to e data=9130# !NS=5:NUMBER OF SENTENCES 2701 :2705 NS=5:data=9140# 2702 :2705  part 4 verbs  T:12 ;"PART 4"::"SOME USEFUL WORDS FOR MAKING UP"::11 ;"SENTENCES" 200:502 I1=31:I2=34" DATA=9130# $2000:2200:4000 &$1130j:2400` :4100 0 : sentences 2 ?ns=5:data=9140# D2701 :2705 I)data=9150#:2702 :2705 JDATA=9160#:2701 :2705 ::4,14;"NOTE"::"A few words like CHAPEAUX end ":"in an X not an S in the plural.":"The X just stands for the S.":200:502: K)DATA=9170#:2702 :2705 N lEND OF PROGRAM q]:0,3;"YOU HAVE NOW COMPLETED THE";2,4;"FIFTH PART OF THE COURSE" r`4,0;"You should now listen to the audio tape which accompanies the course." t/10 ,4;"Please enter your choice:" v312 ,1;"1. To run this section again." x214,1;"2. To load the next section." z!16,1;"3. To quit." | 200 K$= K$="1"1007 K$="3"1940 K$"2"1920 5:d$="Ensure tape is in corect":6,p(d$);d$ $d$="position,":8,p(d$);d$ u200:502::4,0;"Press PLAY on the tape recorder";6,5;"and then press " ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 gI=1I=11 I=16I=26I=36$8,8;"The first word:":2050 %:8,9 ;"The next word:" 100d:delay  200:sound &:0,9 ;"The German for"; DD$=E$(I,3̰E$(I,2)+2)+" is":2,p(d$);d$ *D$=F$(I,4̰F$(I,2)+3) :600 4,P(D$);D$ :5, P(D$);H$ Fd$="("+p$(i,4̰p$(i,2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x *D$ +D$=""2135W ,,PP=12 :D$="Imagine "+d$:700 W 300, \I f D$="": #PRESENT F WORDS & ASK FOR ENGLISH  1130j:PRINT INSTRUCTIONS I=I2I1-1  ,2,3;"What is the English for"  200 *D$=F$(I,4̰F$(I,2)+3) P=P(D$)-1 6,P;D$ c1=30-P 621,0;"press to see the answer";  r=10 P=0P=1:R,P; "400:21,0;b$; ?14,P-1;">";E$(I,3̰E$(I,2)+2) . 502 8I B `GIVE ANSWERS IN FRENCH j 1131k tI=I2I1-1 y ~+4,3;"What is the ";z$;" for" 200 *D$=E$(I,3̰E$(I,2)+2) 1P=(31-D$)/2-2:7,P;D$ "r=10 :p<1p=1 621,0;"press to see the answer"; d$="" c1=25:400 21,0;b$; @13 ,p-1;">";f$(i,4̰f$(i,2)+3); 502 I D$="": GRAMMAR c200::8,5;"SOME ELEMENTARY GRAMMAR";12 ,12 ;"PLURALS":100d: "Because plurals are very complicated in German, you will now be given a few simple rules which will be correct in the majority of cases. Don't worry about being wrong, however, as you will still be understood even if you make a mistake." ҍ:"The first rule is that the word for 'the' is always DIE when thenoun is plural, whether the nounis masculine, feminine or neuter." d:"So 'the dogs' is DIE HUNDE 'the cats' is DIE KATZEN 'the knives' is DIE MESSER" 200:502: ֪"The second rule is this: For masculine and neuter nouns, if the word is short, add an E at the end to make it plural. Ifit is a long word, leave it alone." A:"So DER HUND is 'the dog' DIE HUNDE is 'the dogs'" D:" DER TELLER is 'the plate' DIE TELLER is 'the plates'" 200:502: a"The third rule is this: If the word is feminine, make itend with an EN in the plural." B:"So DIE KATZE is 'the cat' DIE KATZEN is 'the cats'" :"As was said at the beginning, you will make mistakes using these rules, but you will almostalways be understood, and you will usually be right in any case." 200:502: :"To summarise:" o:"For feminine words, make sure the words end in EN in the plural - e.g. DIE KATZEN, DIE FLASCHEN." :"For masculine and neuter words, if the word is short add an E to make it plural, e.g. DIE HUNDE. If the word is long, leave it alone, e.g. DIE TELLER." &200:502: ' 1220:k$="Y"2500 ( 200:502: @g"To ask the time in German, you ask 'How much clock is it?'. In German this is WIE VIEL UHR IST ES?" Bj:"To say 'It is two o'clock' you simply say 'It is two clock'. In German this is ES IST ZWEI UHR." DA:"To say 'It is five o'clock', yousimply say ES IST FNF UHR." Fw:"To say 'It is five past two' or 'It is ten past three' you say 'It is five afer two' or 'It is ten after three'." HK:"In German this is ES IST FNF NACH ZWEI or ES IST ZEHN NACH DREI." I200:502: J\:"How do you say in German 'It is ten past four'? The answer is ES IST ZEHN NACH VIER." L:"To say 'It is quarter past four'you simply say 'It is quarter after four'. In German this is ES IST VIERTEL NACH VIER." Nr:"To say 'It is ten to five' or 'five to six' you simply say 'Itis ten before five' or 'five before six'." PL:"In German this is ES IST ZEHN VOR FNF or ES IST FNF VOR SECHS." Q200:502: RO:"To say 'It is quarter to five' you simply say ES IST VIERTEL VOR FNF." T:"The only tricky time is half past the hour. To say 'It is half past eight' you say 'It is half NINE' - in German ES IST HALB NEUN." V:"In other words, the Germans takehalf an hour from the next hour.So HALB ZEHN is 'half past nine', HALB ZWLF is 'half past eleven', and so on." 200:502: +200:1220:K$="Y"2620<  ^:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO GERMAN": _:0,2;"NOW TRANSLATE THE FOLLOWING":2,5;"SENTENCES INTO ENGLISH": 200:502 data  I=1NS 200 :D$:pp=0:700 621,0;"press to see the answer"; r=8:p=1 d$:c1=d$+15:400 pp=14:700 +21,0;b$:200:502 I FL=0  :4005:4013: B:6,6;"HERE ARE THE ANSWERS":200:502: f:0,0;"ENGLISH";0,PF;"GERMAN";1,0;"";1,PF;"";:  c=2 i=i2i1-1 2c,0;E$(I,3̰E$(I,2)+2) Ic,PF;:D$=F$(I,4̰F$(I,2)+3):D$:.1}L,40(  c=c+2 I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=0D$:4460l `I=1I=16I=26I=33!8,8;"The first gender:":4350 ':8,9 ;"The next gender:" 100d:200  DG=F$(I,3):6300:GET GENDER IN G$ and def. art. in a$ 8d$=G$+" - "+A$+F$(I,4̰F$(I,2)+3) &:0,9 ;"The gender for"; 7t$="THE "+e$(i,3̰e$(i,2)+2)+" is" &2,p(t$);t$ 04,p(d$);d$ :d$ < pp=10 ?D$="Imagine "+d$:700 b 300, li  d$="": 0present English and ask for French with gender   1131k:print instructions i=i2i1-1  $F$(I,3)=04570 44,0;"What is the gender & German for"  200 G=F$(I,3):6300 1d$="THE "+e$(i,3̰e$(i,2)+2) 1p=(31-d$)/2-2:7,p;d$ 621,0;"press to see the answer";  r=10 c1=30-P:400 21,0;b$; M13 ,p;8;">";a$;:D$=f$(i,4̰f$(i,2)+3):D$;  502  i:d$="": :LIST ANSWERS ENGLISH TO FOREIGN WITH DEF ART AND GENDERS  4005  c=2 i=i2i1-1 dF$(I,3)=0d$=e$(i,3̰e$(i,2)+2):c,0;d$:A$="":4635  g=f$(i,3):6300 9c,0;"THE ";e$(i,3̰e$(i,2)+2) 4d$="":d$=a$+f$(i,4̰f$(i,2)+3)  c,PF;d$ / c=c+2:.1}L,40( 1I 4 502 6 9  grammar 3 ):4,7;"ELEMENTARY GRAMMAR" 200:502: "If you want to say 'he does' something or other, for example,'He loves a dog', or 'You love acat', then the word for 'a' is exactly the same as in the previous section - EIN for a neuter word and EINE for a feminine word." c:"For feminine:"::"'I eat a cat' has the same ending on EIN(E).":"ICH ESSE EINE KATZE." f:"For neuter:"::"'I eat a pig' has the same ending on EIN (EIN)."::"ICH ESSE EIN SCHWEIN." 200:502: ::"But if the word is masculine then EIN ends in EN." 1:"So 'I eat a dog' is ICH ESSE EINEN HUND." _:"The words dog, pig and cat in the previous sentences are the objects of the sentences." :"In summary:" 7:"'I have a pig' is ICH HABE EIN SCHWEIN. (neuter)" ::"'You have a cow' is SIE HABEN EINE KUH. (feminine)" =:"'You give a dog' is SIE GEBEN EINEN HUND. (masculine)" 200:502: :"To tell whether a word is the object of a sentence is very simple. If a word is having something done to it, then it isthe object of the sentence." :"So being loved, eaten, had, called, taken, given, and so on,means that the word coming afteris the object of the sentence." 200:502: G"I have a dog.":"I love a dog.":"He eats a dog.":"She eats a dog." A:"All these mean that 'a dog' is the object of the sentence." ::"'I have a dog' is therefore ICH HABE EINEN HUND." :"The only exception to worry about now is the word 'is'. For the word 'is' you simply stick to the endings you used before. So 'It is a dog' is ES IST EIN HUND. 'It is a cat' is ES IST EINE KATZE, etc." 200:502: :"You must not worry about this. You can only make a mistake for masculine words in any case. You will be understood even if you make a mistake." 200:502: +200:1220:K$="Y"5000 2 P grammar 4 Z.:4,4;"MORE ELEMENTARY GRAMMAR" d200:502: 7200:502::1220:k$="Y"5200P   sentences 3 ldata=9200#:ns=5:2701 :2705 :NS=5:data=9210#:2702 :2705 :  sentences 4 "7data=9230$:ns=6:2701 :2705 : ')DATA=9220$:2702 :2705 , | grammar 5 .:4,4;"MORE ELEMENTARY GRAMMAR" 200:502:   sentences 5 5data=9220$:ns=5:2701 :2705 +data=9230$:2702 :2705 : 8 GENDERS 1 B L84,3;"GENDERS FOR GROUP 1 WORDS":502 `I1=1:I2=10 j4300: (g=1g$="MASCULINE":A$="DER ": 'G=2G$="FEMININE":A$="DIE ": %G=3G$="NEUTER":A$="DAS ": (G=4G$="MASCULINE":A$="DIE ": 'G=5G$="FEMININE":A$="DIE ": %G=6G$="NEUTER":A$="DIE ": %G=7G$="PLURAL":A$="DIE ":  G$="": test genders 5:4,0;"You will now be given words in" ":"English. Please type in the "  :"gender and word in French" 200:502 I1=1:I2=10 :4500:4600  cGROUP 2 WORDS d nb:4,13 ;"PART 3":7,3;"MORE FOOD AND DRINK WORDS";:200:502 sI1=16:I2=25 xdata=9170# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: Bdata=9180#:4300:4500:pf=16:4600 G:"Note that SALAT can also mean 'lettuce'.":200:502:  ,present and test genders for group 2 words O:4,3;"GENDERS FOR PART 2 WORDS":100d:200:502 )DATA=9130#:4500:4600  adjectives words 21-28 Q:2,13 ;"PART 4";4,12 ;"NUMBERS":200:502: i1=26:i2=35# DATA=9190# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=36$:i2=43+ 6a:4,13 ;"PART 3";6,2;"WORDS FOR TELLING THE TIME":200:502 ;DATA=9220$ @12000:2200:PF=16:4000 E2400` :4000 F J WORDS WITHOUT GENDERS i1=21:i2=30 :4,13 ;"PART 3";6,6;"SOME USEFUL WORDS";8,5;"THEY HAVE NO GENDERS":200:502 DATA=9130# 12000:2200:PF=16:4000 %2400` :PF=16:4000  200:502:  WORDS W:4,13 ;"PART 2":7,9 ;"QUESTION WORDS";:200:502 I1=11 :I2=15 data=9120# 12000:2200:PF=16:4000 !'2400` :PF=16:4000: XV:6,2;"PRESS & TURN OFF THE":10 ,9 ;"TAPE RECORDER" Z'200:=""10 :7000X \ ]E5,6;"S I L V E R S O F T";7,12 ;"presents" bP10 ,4;"THE GRUNEBERG LINKWORD";12 ,8;"LANGUAGE SYSTEM" g&16,8;"GERMAN SECTION 5" l WORDS V:4,13 ;"PART 3":7,10 ;"MORE ANIMALS";:200:502 I1=11 :I2=20 data=9120# 2000:2200 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: 7data=9130#:4300:4500:4600: #' #(INITIALISE ROUTINE #-"9000(#:I=0:J=0 #21:1::7 #4Bz$="GERMAN":y$="ENGLISH":b$=" " #7 7000X #<6N1=43+:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,16):i=1n1:e$(i):i #>)P$(N1,20):I=1N1:P$(I):I #F}"103RESTAURANT","051TISCH","041OBER","052TASSE","102UNTERTASSE","072FLASCHE","061TELLER","063MESSER","052GABEL","061LFFEL" #G/"050WARUM","030WER","030WIE","030WAS","020WO" #Hu"073FLEISCH","061KAFFEE","031TEE","061KUCHEN","052SAHNE","051SALAT","112SPEISEKARTE","052SUPPE","043OBST","043HUHN" #Ih"040EINS","040ZWEI","040DREI","040VIER","040FNF","050SECHS","060SIEBEN","040ACHT","040NEUN","040ZEHN" #J`"030ELF","050ZWLF","070ZWANZIG","140FNFUNDZWANZIG","070VIERTEL","040HALB","040NACH","030VOR" #Kj"10RESTAURANT","05TABLE","06WAITER","03CUP","06SAUCER","06BOTTLE","05PLATE","05KNIFE","04FORK","05SPOON" #L,"03WHY","03WHO","03HOW","04WHAT","05WHERE" #Mb"04MEAT","06COFFEE","03TEA","04CAKE","05CREAM","05SALAD","04MENU","04SOUP","05FRUIT","07CHICKEN" #NZ"03ONE","03TWO","05THREE","04FOUR","04FIVE","03SIX","05SEVEN","05EIGHT","04NINE","03TEN" #O\"06ELEVEN","06TWELVE","06TWENTY","11TWENTY-FIVE","07QUARTER","04HALF","05AFTER","06BEFORE" #P"090RESTORANT","040TISH","050OHBER","060TASSEH","111uNTERTASSEH","070FLASHEH","060TELLER","060MESSER","060GAHBEL","070LErFFEL" #Q1"050VARUM","040VAIR","030VEE","030VAS","030VOH" #Ry"053FLiSH","050KAFAY","030TAY","074KOOchEN","060ZAHNEH","060ZALAHT","123SPiZEHKARTEH","061ZuPPEH","050OHBST","050HOOHN" #Sf"033iNS","043TSVi","033DRi","040FEER","050FooNF","030ZEX","060ZEEBEN","044AchT","040NOIN","050TSAIN" #Th"030ELF","070TSVErLF","104TSVANTSIch","171FooNFuNTSVANTSIch","070FEERTEL","040HALB","044NAch","030FoR" #j #@"a RESTAURANT with the German flag draped over the front." #%"TISSUES spread all overthe table." #/"a waiter carrying a plate of AUBERgines." #/"a TASSLE hanging from the handle of a cup." #9"a tassle under a cup, and a saucer UNDER the TASSLE." #%"a bottle FLASHING past your head." #B"bank TELLERS at your bank - all have plates in frontof them." #9"someone making a MESS cutting the meat with a knife." #W"a group of women GABBLING away to each other, poking each other with forks." #`"watching whilst the wall of a gentlemen's LOO FELL and the men inside are holding spoons." #&"a fire gutting a restaurant." #-"a boxer banging his fist on the table." #%"a waiter with boxing gloves on." #("a little girl throwing a cup at you." #I"a little girl throwing the saucer at you after she hasthrown the cup." #0"a little girl drinking out of a milk bottle." #3"a boxer smashing a plate over his opponent." #("someone poking the firewith a knife." #+"a little girl poking you with a fork." #L"a boxer with boxing gloves on trying to sup his soup with a spoon." #!"asking 'WHY is it so WARM?'" #&"asking 'WHO would WEAR that?'" #)"asking HOW you make the'V' in Vienna." #!"asking WHAT the FUSS isabout." #"asking WHERE the FOE is." #5"Where is the restaurant?","WO IST DAS RESTAURANT?" #*"Why is she here?","WARUM IST SIE HIER?" #,"How was the spoon?","WIE WAR DIE LFFEL?" #"What is it?","WAS IST ES?" #*"Who is the waiter?","WER IST DER OBER?" # "WAS IST DAS?","What is that?" #,"WER IST DIE MUTTER?","Who is the mother?" #5"WARUM WAR DIE GANS DA?","Why was the goose there?" #?"WO IST ER, UND WO IST SIE?","Where is he, and where is she?" #%"WIEVIEL IST ES?","How much is it?" #="The plates are very heavy.","DIE TELLER SIND SEHR SCHWER." #0"The cats are white.","DIE KATZEN SIND WEISS." #-"The dogs are late.","DIE HUNDE SIND SPT." #0"The tables are big.","DIE TISCHE SIND GROSS." #`"The cups and the saucers are very white.","DIE TASSEN UND DIE UNTERTASSEN SIND SEHR WEISS." #6"DIE UNTERTASSEN SIND GROSS.","The saucers are big." #5"DIE FLASCHEN SIND WEISS.","The bottles are white." #\"DIE SCHWEINE UND DIE HUMMER SIND SEHR ROT.","The pigs and the lobsters are very red." #3"DIE MDCHEN SIND SCHWER.","The girls are heavy." #S"DIE RASEN UND DIE GARDINEN SINDSCHWARZ.","The lawns and the curtains are black." # "eating raw FLESH for meat." # "drinking coffee in a CAFE." #'"spilling TEA onto a German flag." #!"COOKING beautiful cakes." #&"dropping sand into your cream." #+"spilling SALAD all overthe German flag." #c"spies in a restaurant disguising their secrets so they look like menus, they are SPY CARDS." #'"spilling SOUP on a German flag." #&"someone who HOPES TO grow fruit." ##"asking WHO NOW wants chicken." # "heating meat over a fire." #4"a boxer drinking a cup of coffee between rounds." #*"a boxer drinking tea between rounds." #."a boxer baking a cake with his gloves on." #:"a beautiful little girleating a bowl of whipped cream." #*"a boxer trying to diet on green salad." #:"a little girl trying tochoose something from the menu." #:"a little girl spilling soup all down her pretty dress." # "throwing fruit onto thefire." #""roasting a chicken overa fire." #!"one tin of HEINZ baked beans." #"thinking 'WHY TWO?'" #."seeing THREE shirts DRYing on the line." # "you FEAR the number FOUR." #"thinking 'FIVE is FUN'." #"SIX German flags." #9"seven German flags, onefor each of SEVEN deadly sins." #3"you ACT in a play whichstarts at EIGHT o'clock." #?"waving German flags as you listen to the NINE o'clock news." #A"someone asking if you are SANE to visit TEN Downing Street." #m"The meat is very red, but five plates are white.","DAS FLEISCH IST SEHR ROT, ABER FNF TELLER SIND WEISS." #\"Where is the coffee, and where is the cream?","WO IST DER KAFFEE, UND WO IST DIE SAHNE?" #r"No, the soup is not good, but nine cups are good.","NEIN, DIE SUPPE IST NICHT GUT, ABER NEUN TASSEN SIND GUT." #"Why is the cake blue, and why are three menus green?","WARUM IST DER KUCHEN BLAU, UND WARUM SIND DREI SPEISEKARTEN GRN?" #x"The salad is very bad and the chicken is also bad.","DER SALAT IST SEHR SCHLECHT, UND DAS HUHN IST AUCH SCHLECHT." #["ZWEI FLASCHEN UND DREI TELLER SIND SCHWER.","Two bottles and three plates are heavy." #^"VIER MESSER UND SECHS LFFEL SIND SEHR GUT.","Four knives and six spoons are very good." #Y"DA SIND SIEBEN TISCHE UND ACHT MDCHEN.","There are seven tables and eight girls." #9"WARUM IST DER OBER SCHLECHT?","Why is the waiter bad?" #N"DAS RESTAURANT IST IMMER SEHR GUT.","The restaurant is always very good." $$"ELEVEN ELFS playing football." $)"TWELVE rolls SWELL whenyou bake them." $ "making TWENTY SWANS SICK." $8"you add five and twentytogether to give TWENTY-FIVE." $!"a FERTILE QUARTER of a field." $ 0"shouting HELP he has cut the lady in HALF." $ ?"someone has the KNACK OF arriving AFTER everybody hasgone." $ 5"shouting 'FOUR' BEFORE hitting the ball at golf." $;"It is quarter past twelve.","ES IST VIERTEL NACH ZWLF." $5"It is twenty to eleven.","ES IST ZWANZIG VOR ELF." $G"It is twenty-five past six.","ES IST FNFUNDZWANZIG NACH SECHS." $-"It is half past four.","ES IST HALB FNF." $6"It is quarter to three.","ES IST VIERTEL VOR DREI." $H"It is twenty-five to seven.","ES IST FNFUNDZWANZIG VOR SIEBEN." xjZGERMANYENGLISHB M