GR1 \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,60cA,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 BGR2 2[T4[$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<,0cA6$,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 sGR3 )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 vZlSxZ$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 l6ll$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 MGR6 ea:e$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 2500 :G1 1700:S1 $2620< :G2 .1600@:S2 85000:G3 :5300:S3 B1900l:END Lpart 1 eating Q `Y4,13 ;"PART 1";7,6;"FOOD AND DRINK 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=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 T:"Note that to say 'I go there' you say ICH GEHE DAHIN.":200:502: 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;"SIXTH 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 F200::8,5;"SOME ELEMENTARY GRAMMAR":100d: _"The words you have just been given all end in E when they areused with the word for 'I'." /:"So 'I go' or 'I am going' is ICH GEHE." 0:"'I love' or 'I am loving' is ICH LIEBE." ":"'I love it' is ICH LIEBE ES." $:"'I am doing it' is ICH TUE ES." 200:502: |"If, however, you want to say 'you' using SIE for 'you', then 'you go' is SIE GEHEN. 'you have' is SIE HABEN." ::"In other words, you add EN to the end of the word." 7:"For example"::"'You have that' is SIE HABEN DAS" 200:502: `"If you want to say, for example,'The dog and the cat HAVE it', you also use the word HABEN." N:"So"::"'The dog and the cat have it'is DER HUND UND DIE KATZE HABEN ES." F:"'The dog and the cat love it' isDER HUND UND DIE KATZE LIEBEN ES" ":"'They do it' is SIE TUEN ES." &:"'They make it' is SIE MACHEN ES." &200:502: ' 1220:k$="Y"2500 ( <):4,7;"ELEMENTARY GRAMMAR" >200:502: @"The German for 'a' or 'an' as in'a dog' or 'an apple' is EIN. (The EI is pronounced like 'eye'. EIN is pronounced as in Albert EINstein.)" B6:"For masculine and neuter words 'a' is EIN as in" Dh:"EIN HUND for 'a dog'":"EIN APFEL for 'an apple'":"EIN SCHWEIN for 'a pig'":200:502: Ec:"For feminine words, EIN has an E on the end EINE, and the E is pronounced like the E in HEN." F6:"EINE FRAU is 'a wife'.":"EINE KATZE is 'a cat'." HU:"The sentence EIN HUND UND EINE KATZE SIND LAUT is 'A dog and a cat are noisy.'" 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 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 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 afterthe verb is 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 mdata=9190#:ns=5:2701 :2705 :NS=10 :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 nb:4,13 ;"PART 2":7,3;"MORE FOOD AND DRINK WORDS";:200:502 sI1=11 :I2=20 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 K4,0;"SOME COMMON WORDS USED WITH ICH":200:502: i1=21:i2=28 DATA=9140# 12000:2200:PF=16:4000 2400` :4000  F"NOTE"::"In German you often use MACHE for 'do' instead of TUE." 4:"For example"::" 'I do it' is ICH MACHE ES." 200:502  ,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 6" 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"023EI","051SPECK","043BROT","062BUTTER","092MARMELADE","052WURST","041KSE","063WASSER","041WEIN","052MILCH" #Gu"041KOHL","052BOHNE","062TOMATE","052ERBSE","072ZWIEBEL","092KARTOFFEL","063GEMSE","041PILZ","052BIRNE","051APFEL" #HS"050LIEBE","040GEBE","050NEHME","030TUE","040ESSE","040GEHE","040HABE","050MACHE" #Ic"03EGG","05BACON","05BREAD","06BUTTER","03JAM","07SAUSAGE","06CHEESE","05WATER","04WINE","04MILK" #Jl"07CABBAGE","04BEAN","06TOMATO","03PEA","05ONION","06POTATO","09VEGETABLE","08MUSHROOM","04PEAR","05APPLE" #KD"04LOVE","04GIVE","04TAKE","02DO","03EAT","02GO","04HAVE","04MAKE" #Lr"013i","050SHPEK","050BROHT","061BuTTER","110MARMELAHDEH","051VuRST","060KAISEH","060VASSER","033ViN","054MILch" #M~"040KOHL","060BOHNEH","080TOMAHTEH","060ERBSEH","080TSVEEBEL","090KARTOFFEL","080GEMooZEH","050PILTS","060BIRNEH","050APFEL" #N`"060LEEBEH","060GAIBEH","060NAIMEH","060TOO EH","050ESSEH","060GAI EH","060HAHBEH","064MAchEH" #j #+"an EYE painted on the shell of an egg." #&"tiny SPECKS all over your bacon." #@"a BROAD loaf of bread which spreads all over the table." #+"BUTTER spread all over the German flag." #3"MARMALADE mixed with strawberry and plum jam." #8"eating the WORST sausage you have ever tasted." #:"a CASE filled with a whole lot of different cheeses." #'"a glass of WATER on theGerman flag." #A"a VINE with bottles of wine hanging down instead of grapes." #F"a bottle of MILK standing at your door on a German flag." # "cooking an egg over a fire." #*"a boxer tucking into a plate of bacon." #'"throwing stale bread onto a fire." #+"a little girl carrying packs of butter." #C"a little girl spreadingthick strawberry jam all over her face." #5"a little girl tucking into a huge jumbo sausage." #:"a boxer holding lumps of cheese in his boxing gloves." #."pouring water onto a fire to put it out." #L"a boxer drinking a bottle of wine between rounds, and getting tipsy." #1"a little girl drinking from a bottle of milk." #B"a huge pile of COAL with cabbages growing out of the top." #'"a BONE covered in baked beans." #9"a TOMATO which has beensquashed into the German flag." #:"a plate of peas with mixed HERBS mixed in with them." #W"a WEE BELL in the shapeof an onion. When you pick it up the bell smells of onions." #f"someone CARTING off a huge load of potatoes. Imagine some of the potatoes falling off the cart." #G"a cook AMUSING people by cutting vegetables into funny shapes." #N"the doctor giving you large PILLS which taste and feel like mushrooms." #"BURNING a pear." # "an APPLE on the German flag." #3"a boxer throwing a cabbage at his opponent." #:"a little girl tucking into a plateful of baked beans." #?"a mighty little girl squashing tomatoes with her shoe." #5"a little girl firing a pea through a pea shooter." #,"a little girl crying asshe peels onions." #C"a little girl helping mum to peel a large bowl of potatoes." #8"a fire being pelted with all sorts of vegetables." #W"a boxer eating magic mushrooms because he thinks it will give him extra strength." #&"a little girl with a large pear." #L"a boxer with a large apple in his mouth to stop his teeth falling out." #/"you LEAP into the arms of the one you LOVE." #."someone GIBBERing away,'GIVE me, GIVE me'." #-"a policeman who wants to TAKE your NAME." #"saying 'I DO TOO'." #("saying 'YES, SIR. I want to EAT'." #"GOING GAY." #"I HAVE a HARBour." #"you MAKE a German flag." #H"The goose and the duck love it.","DIE GANS UND DIE ENTE LIEBEN ES." #*"You make it. (formal)","SIE MACHEN ES." #!"I go there.","ICH GEHE DAHIN." #7"You and I have it. (formal)","SIE UND ICH HABEN ES." #F"The bread and the jam do it.","DAS BROT UND DIE MARMELADE TUENES." # "ICH ESSE HIER.","I eat here." #E"DER HUND UND DIE KATZE LIEBEN ES.","The dog and the cat love it." #K"DAS PFERD UND DIE MAUS MACHEN ES.","The horse and the mouse make it." #K"DER APFEL UND DIE BIRNEN HABEN ES.","The apple and the pears have it." #!"SIE LIEBEN ES.","You love it." #J"A pear and an apple are brown.","EINE BIRNE UND EIN APFEL SIND BRAUN." #Y"A potato and an onion are very big.","EINE KARTOFFEL UND EINE ZWIEBELSIND SEHR GROSS." #T"A cabbage and a bean are only green.","EIN KOHL UND EINE BOHNE SIND NUR GRN." #8"A mushroom is very white.","EIN PILZ IST SEHR WEISS." #I"An egg and a sausage are here.","EIN EI UND EINE WURST SIND HIER." #%"EIN EI IST GUT.","An egg is good." #-"EINE WURST IST GROSS.","A sausage is big." #1"EINE SPINNE IST SCHNELL.","A spider is quick." #,"EIN KOHL IST GRN.","A cabbage is green." #,"EINE ZWIEBEL IST ROT.","An onion is red." #_"I have a tomato, an apple and apear.","ICH HABE EINE TOMATE, EINEN APFEL UND EINE BIRNE." #["You love bacon, an egg and beans. (formal)","SIE LIEBEN SPECK, EIN EI UND BOHNEN." #"The bread, the butter and the jam are very good, but very heavy.","DAS BROT, DIE BUTTER UND DIE MARMELADE SIND SEHR GUT, ABER SEHR SCHWER." #("I love it here.","ICH LIEBE ES HIER." #m"The water is good and the cheese is always red.","DAS WASSER IST GUT UND DER KSE IST IMMER ROT." #Y"ICH LIEBE EINE SPINNE, UND ICH HABE EINE ENTE.","I love a spider, and I have a duck." #e"ICH MACHE EINE BLUSE, UND ICH MACHE EINEN ROCK.","I am making a blouse, and I am making a skirt." #["ICH LIEBE EIN BETT, ABER ICH MACHE EIN BRETT.","I love a bed but I am making a shelf." #p"SIE MACHEN EINEN TEPPICH, ABER ICH MACHE EINE GARDINE.","You are making a carpet, but I am making a curtain." #u"ICH ESSE ZWEI KARTOFFELN, UND SIE ESSEN VIER BOHNEN.","I am eating two potatoes and you are eating four beans." #-"ICH LIEBE EINEN KOHL.","I love a cabbage." #5"SIE MACHEN EINEN SCHRANK.","They make a cupboard." #["ICH HABE EINE WURST, SIE HABEN NEUN TOMATEN.","I have a sausage, you have ninetomatoes." #"ICH TUE ES.","I do it." #W"DER WEIN UND DIE MILCH SIND SEHR SCHLECHT.","The wine and the milk are very bad." =#xjZGERMANYENGLISHB 023EI 051SPECK 043BROT 062BUTTER 092MARMELADE 052WURST 041KSE 063WASSER 041WEIN 052MILCH 041KOHL 052BOHNE 062TOMATE 052ERBSE 072ZWIEBEL 092KARTOFFEL 063GEMSE 041PILZ 052BIRNE 051APFEL 050LIEBE 040GEBE 050NEHME 030TUE 040ESSE 040GEHE 040HABE 050MACHE 03EGG 05BACON !GR7 pphrp$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 6500d:p2 6600: P3 2500 :G1 1700:S1 $2620< :G2 .1600@:S2 B1900l:END Lpart 1 eating Q `S4,13 ;"PART 1";7,9 ;"BUSINESS 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=9170#:NS=5:2701 :2705 J5ns=5:DATA=9180#:2702 :2705 T sentences 1 e to f,f to e data=9150# "NS=10 :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;"SEVENTH 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=21I=31I=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 F200::8,5;"SOME ELEMENTARY GRAMMAR":100d: I"In the last section on elementary grammar, you learned that:" ;:"'A dog is big' is EIN HUND IST GROSS. " <:"'A cat is big' is EINE KATZE ISTGROSS. " ;:"'A pig is big' is EIN SCHWEIN IST GROSS. " 200:502: :"You also learned that:" K:"'I love a dog' is ICH LIEBE EINEN HUND. " D"'I love a cat' is ICH LIEBE EINEKATZE. " E:"'I love a pig' is ICH LIEBE EIN SCHWEIN. " 200:502: c"In this section we will look at the word 'the'. You have alreadylearned that the word 'the' is:" 8:"DER if the noun is masculine - DER HUND IST MDE." 9:"DIE if the noun is feminine - DIE KATZE IST MDE." ;:"DAS if the noun is neuter - DAS SCHWEIN IST MDE." :"If you want to say 'I love the dog' or 'cat', etc., the word 'the' is DIE for feminine and DAS for neuter words as usual, but for masculine words the wordfor 'the' becomes DEN." 200:502: \:"'I love the dog' is ICH LIEBE DEN HUND. " S"('I love a dog' is ICH LIEBE EINEN HUND.) " <:"'I love the cat' is ICH LIEBE DIE KATZE." U:"('I love a cat' is ICH LIEBE EINE KATZE.) " S:"'I love the pig' is ICH LIEBE DAS SCHWEIN. " Q"('I love a pig' is ICH LIEBE EIN SCHWEIN.) " 200:502: n"In other words, the thing to remember is that the word 'the' is only different in the masculine." 4:"ICH LIEBE DEN HUND."::"ICH LIEBE EINEN HUND." 200:502: "REMEMBER that if you say 'It is the dog', then 'is' is not a doing word, so the sentence is ES IST DER HUND. 'It is a dog' is ES IST EIN HUND." T:"But do not worry if you don't get it right, you will still be understood." &200:502: ' 1220:k$="Y"2500 ( <.:4,5;"MORE ELEMENTARY GRAMMAR" >200:502: @D"You will remember that in an earlier section you learned that" BN:"'I have' (or 'am having') is ICH HABE. " DM"'You have' (or 'are having') is SIE HABEN. " FN"'The dog and the cat have' is also HABEN. " H200:502: JB"If you want to say he, she or itloves, has, makes, etc., then " L8:"'He has' is ER HAT. " N>:"'She loves' is SIE LIEBT. " P)"In other words, the words end in T." R:"For example" T!:"'She has it' is SIE HAT ES." V :"'He does it' is ER TUT ES." W200:502: X5:"If you want to use the word DU for 'you', then" Z:"'You have' is DU HAST." \:"'You make' is DU MACHST." ^,:"In other words, the word ends in ST." 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 :I=2"Note that the word for a female worker is DIE ARBEITERIN, and the gender is feminine.":200:502: {:i=4"Note that the word for a female boss is DIE CHEFIN and the gender is feminine.":200:502: (f$(i,3)=0D$:4460l UI=1i=11 I=218,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 DpI=1419,0;"(DIE FERIEN is in fact plural, and DIE is used before all plural nouns.)" 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=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,6;"MORE BUSINESS WORDS";:200:502 sI1=11 :I2=20 xdata=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: Bdata=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 g:4,7;"MORE USEFUL WORDS";6,6;"THEY HAVE NO GENDERS":200:502: i1=21:i2=30 DATA=9140# 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 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 7" 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,20):I=1N1:P$(I):I #F"081ARBEITER","051BERUF","041CHEF","101HANDWERKER","081BESITZER","102AUSBILDUNG","052FIRMA","063GEHALT","073PRODUKT","061SCHECK" #Gu"082QUITTUNG","052SACHE","062FABRIK","067FERIEN","051PREIS","061FEHLER","061LEITER","051MARKT","052KASSE","043BRO" #H{"050BITTE","050DANKE","090NATRLICH","050SCHN","140ENTSCHULDIGUNG","040KURZ","060BILLIG","050TEUER","040NETT","050EKLIG" #It"06WORKER","10PROFESSION","04BOSS","09TRADESMAN","05OWNER","08TRAINING","04FIRM","06SALARY","07PRODUCT","06CHEQUE" #Jv"07RECEIPT","05THING","07FACTORY","08HOLIDAYS","05PRICE","07MISTAKE","07MANAGER","06MARKET","09CASH TILL","06OFFICE" #Kh"06PLEASE","06THANKS","09OF COURSE","04FINE","05SORRY","05SHORT","05CHEAP","04DEAR","04NICE","05NASTY" #L"073ARBiTER","060BEROOF","040SHEF","100HANTVERKER","080BEZITSER","108owSBILDuNG","060FEERMA","060GEHALT","071PRODUKT","040SHEK" #My"081QVITTuNG","064SAchEH","070FABREEK","070FAIRYEN","043PRiS","060FAILER","053LiTER","050MARKT","060KASSEH","060BooROH" #N"060BITTEH","060DANKEH","104NATooRLIch","050SHErN","131ENTSHuLDIGuNG","051KuRTS","074BILLIch","060TOI ER","040NETT","074EHKLIch" #j #+"selecting HARD BITERS as your workers." #8"a meeting of professional men on the ROOF." #G"your boss is a spare time CHEF, preparing meals for a restaurant." #9"a tradesman working with his hands - a HANDWORKER." #,"the owner of a businesslives BESIDE HER." #N"putting trainees to HOUSE BUILDING is how they do training in Germany." #B"the FIRM you are visiting has German flags outside." #."your firm tries to haltpaying your SALARY." #9"covering a number of PRODUCTS with the German flag." #+"a CHEQUE book lying on the German flag." #O"a boxer working as a worker on a building site to build up his muscles." #n"a boxer punching members of the professions, oneafter the other, a doctor, a lawyer and a teacher." #P"a boxer trying his bestat being a chef, with a chef's hat and boxing gloves." #B"a boxer keeping fit by working as a tradesman during the day." #0"a boxer who is the owner of a nightclub." #7"a little girl training very hard to become a nurse." #E"a little girl going through the security gate of a large firm." #""putting your salary on a fire." #F"throwing products straight from a production lineonto a fire." #7"a boxer being presentedwith a cheque after a fight." #2"saying 'I'm QUITTING ifI don't get a receipt'." #5"putting a whole lot of different things in SACKS." #8"FABRICS of different kinds being made in a facory." #0"FAIRIES getting ready to go off on holiday." #)"asking for the PRICE ofa German flag." #3"being told 'FAIL HER. She has made a mistake'." #2"giving a LIGHTER as a present to the manager." #("goods being MARKED to go to market." # "CASH being put in the till." #9"an old fashioned writing BUREAU in your office." #F"a little girl writing on a receipt for a doll she hasjust bought." #9"a little girl playing with lots of different things." #3"a little girl working hard in a dirty factory." #O"a little girl going offfor her summer holiday and doing work excitedly." #."a boxer asking the price of his prize." #>"a boxer making a big mistake and getting knocked out." #@"a boxer's manager advising his boxer about a fight." #9"a boxer fighting a boutin a ring at the local market." #1"a little girl trying tooperate the cash till." #%"a fire sweeping throughan office." #A"feeling BITTER because someone did not say PLEASE nicely." #R"a little boy being put into a DANK dungeon because he would not say THANK YOU." #O"doing what comes NATURALLY, it comes as a matterof course, OF COURSE." #O"a doctor who SHONE a torch into your eyes had pronounced them FINE." #@"someone being SORRY that he was IN SCHOOL TOO YOUNG." #."someone being very CURTand SHORT with you." # "buying a CHEAP BILLY Goat." #+"TIRING out an EXPENSIVE horse." #>"putting a NET over someone who is being NICE to you." #G"someone giving A CLICK every time he is about to be NASTY to you." #"Of course I am very tired, but the owner is a pig.","NATRLICH BIN ICH SEHR MDE, ABER DER BESITZER IST EIN SCHWEIN." #p"The worker is cheap, and the boss is very nasty.","DER ARBEITER IST BILLIG, UND DER CHEF IST SEHR EKLIG." #e"I love the firm, and the factory is nice.","ICH LIEBE DIE FIRMA, UND DIE FABRIK IST NETT." #H"The receipt is not very big.","DIE QUITTUNG IST NICHT SEHR GROSS." #)"It is a mistake.","ES IST EIN FEHLER." #="The holidays are very short.","DIE FERIEN SIND SEHR KURZ." #."I have two things.","ICH HABE ZWEI SACHEN." #S"Where are the till and the cheque?","WO SIND DIE KASSE UND DER SCHECK?" #4"Today it was very good.","HEUTE WAR ES SEHR GUT." #4"Yes, it is the owner.","JA, ES IST DER BESITZER." #?"DIE AUSBILDUNG IST SEHR KURZ.","The training is very short." #R"DER BERUF IST SEHR SCHN, DANKE.","The profession is very fine, thanks." #ʃ"DAS PRODUKT IST SEHR TEUER, ABER NATRLICH IST ES SEHR NETT.","The product is very dear, but naturally it is very nice." #q"DIE FERIEN SIND SPT, UND DAS GEHALT IST SEHR SCHLECHT.","The holidays are late, and the salary is very bad." #n"WO IST DIE FABRIK UND WO IST DER LEITER, BITTE?","Where is the factory and where is the manager, please?" #4"You have a dog. (familiar)","DU HAST EINEN HUND." #)"I love a cat.","ICH LIEBE EINE KATZE." #"It goes.","ES GEHT." #9"You make a table. (familiar)","DU MACHST EINEN TISCH." #1"They have a mushroom.","SIE HABEN EINEN PILZ." #/"DU HAST EINE KASSE.","You have a cash till." #("ER HAT EIN BRO.","He has an office." #<"DER PREIS IST SEHR TEUER.","The price is very expensive." #q"DER MARKT IST BILLIG, UND DIE SACHEN SIND SEHR SCHN.","The market is cheap, and the things are very fine." #-"ICH HABE EINEN SCHECK.","I have a cheque." xj!081ARBEITER 051BERUF 041CHEF 101HANDWERKER 081BESITZER 102AUSBILDUNG 052FIRMA 063GEHALT 073PRODUKT 061SCHECK 082QUITTUNG 052SACHE 062FABRIK 067FERIEN 051PREIS 061FEHLER 061LEITER 051MARKT 052KASSE 043BRO 050BITTE 050DANKE 090NATRLICH 050SCHN 140ENTSCHULDIGUNG 040KURZ 060BILLIG 050TEUER 040NETT 050EKLIG 06WORKER 10PROFESSION 04BOSS 09TRADESMAN 05OWNER 08TRAINING 04FIRM 06SALARY 07PRODUCT 06CHEQUE 07RECEIPT 05THING 07FACTORY 08HOLIDAYS 05PRICE 07MISTAKE 07MANAGER 06MARKET 09CASH TILL 06OFFICE 06PLEASE 06THANKS 09OF COURSE 04FINE 05SORRY 05SHORT 05CHEAP 04DEAR 04NICE 05NASTY ]073ARBiTER 060BEROOF 040SHEF 100HANTVERKER 080BEZITSER 108owSBILDuNG 060FEERMA 060GEHALT 071PRODUKT 040SHEK 081QVITTuNG 064SAchEH 070FABREEK 070FAIRYEN 043PRiS 060FAILER 053LiTER 050MARKT 060KASSEH 060BooROH 060BITTEH 060DANKEH 104NATooRLIch 050SHErN 131ENTSHuLDIGuNG 051KuRTS 074BILLIch 060TOI ER 040NETT 074EHKLIch at#lprctgT THE OFFICE isGFEMININEADIE WENGLISHXGERMANDI have a cheque.KZGERMANYENGLISHB \GR8 g4`-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;" ";: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 2500 :G1 1700:S1 B1900l:END Lpart 1 eating Q `U4,13 ;"PART 1";7,8;"TRAVELLING 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# ?4300:1166:4500:PF=17:4600: ^:"NOTE that the words 'gentlemen' and 'ladies' are plural - DIE." :200:502::  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=10 :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;"EIGHTH 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 QI=1I=11 I=218,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 4HI=2220,0;"(Use this when you know someone well.)" 5Ii=2320,0;"(SEIN is also the German for 'its'.)" 7i=2419,0;"(IHR is also the German for 'their' and 'your' when you are not familiar with the person.)" 8>i=2620,0;"(Use when 'your' is plural.)" 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: m"To use the words MEIN, DEIN, andso on, you change the end of theword exactly as you did for the word EIN." %:"E.g., you say in the masculine:" .:"EIN VATER IST GROSS (A father is big)." .:"MEIN VATER IST GROSS (My father is big)." 5:"DEIN VATER IST GROSS (Your father is big)." 200:502: :"Similarly " ;:"'It loves a father' is ES LIEBT EINEN VATER." <:"'It loves my father' is ES LIEBT MEINEN VATER." 200:502: :"In the feminine" ::"'A duck is big' is EINE ENTE IST GROSS." ;:"'My duck is big' is MEINE ENTE IST GROSS." 9:"'It loves a duck' is ES LIEBT EINE ENTE." ::"'It loves my duck' is ES LIEBT MEINE ENTE." 200:502: "In the neuter" <:"'A pig is big' is EIN SCHWEIN IST GROSS." =:"'My pig is big' is MEIN SCHWEIN IST GROSS." ;:"'It loves a pig' is ES LIEBT EIN SCHWEIN." <:"'It loves your pig' is ES LIEBT DEIN SCHWEIN." &200:502: ' 1220:k$="Y"2500 ( <.:4,5;"MORE ELEMENTARY GRAMMAR" >200:502: @D"You will remember that in an earlier section you learned that" BN:"'I have' (or 'am having') is ICH HABE. " DM"'You have' (or 'are having') is SIE HABEN. " FN"'The dog and the cat have' is also HABEN. " H200:502: JB"If you want to say he, she or itloves, has, makes, etc., then " L8:"'He has' is ER HAT. " N>:"'She loves' is SIE LIEBT. " P)"In other words, the words end in T." R:"For example" T!:"'She has it' is SIE HAT ES." V :"'He does it' is ER TUT ES." W200:502: X5:"If you want to use the word DU for 'you', then" Z:"'You have' is DU HAST." \:"'You make' is DU MACHST." ^,:"In other words, the word ends in ST." 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 %I=6I=7D$:4460l (f$(i,3)=0D$:4460l kI=1I=11 I=21I=31I=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=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;"MORE TRAVELLING WORDS";:200:502 sI1=11 :I2=20 xdata=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: Bdata=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 g:4,7;"MORE USEFUL WORDS";6,6;"THEY HAVE NO GENDERS":200:502: i1=21:i2=26 DATA=9140# 12000:2200:PF=16:4000 ޫ:"Please remember that IHR is the German for 'her' and 'their', and for 'your' in the plural and when you are not familiar with a person.":200:502: 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 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 8" 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=26:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,17):i=1n1:e$(i):i #>)P$(N1,20):I=1N1:P$(I):I #Fu"091REISEPASS","043GELD","101HANDKOFFER","041ZOLL","082TOILETTE","067HERREN","057DAMEN","031BUS","043AUTO","031ZUG" #Gs"052KARTE","061BAHNOF","062GARAGE","071AUSPUFF","052PANNE","033RAD","061REIFEN","082KUPPLUNG","023L","063BENZIN" #H<"040MEIN","040DEIN","040SEIN","030IHR","050UNSER","030IHR" #Io"08PASSPORT","05MONEY","08SUITCASE","07CUSTOMS","06TOILET","09GENTLEMEN","06LADIES","03BUS","03CAR","05TRAIN" #Jj"03MAP","07STATION","06GARAGE","07EXHAUST","08PUNCTURE","05WHEEL","04TYRE","06CLUTCH","03OIL","06PETROL" #KF"02MY","15YOUR (singular)","03HIS","03HER","03OUR","13YOUR (plural)" #L{"093RiZEHPASS","040GELT","100HANTKOFFER","050TSOLL","090TWALETTEH","060HERREN","060DAHMEN","031BuS","055owTOH","050TSOOG" #My"060KARTEH","080BAHNHOHF","077GARAHgE","068owSPuF","060PANNEH","040RAHT","053RiFEN","071KuPLuNG","030ErL","080BENTSEEN" #N9"033MiN","033DiN","033ZiN","030EER","051uNSER","030EER" #j #X"sitting down with your passport when an official shouts at you 'RISE AND PASS'." #B"feeling GUILT because you have no money to pay someone." #P"someone sitting on a suitcase coughing through his hand - a HAND COUGHER." #V"King SAUL from the Bible, spear in hand, checking your luggage at the customs." #?"a TOILET with a German flag draped over the toilet seat." #M"a huge HERRING danglingfrom the door of the gentlemen's toilet." #`"someone shouting at you'DAMN AND blast' when you ask politely for directions to the ladies." #-"a BUS draped with a large German flag." #N"a policeman yelling 'OUT OH' in order to make you get out of your car." #"you TOOK a train." #X"a boxer being asked by the referee for his passport before he is allowed to fight." #*"throwing piles of moneyonto a bonfire." #9"a boxer putting his boxing gloves into a suitcase." #>"a boxer punching a customs officer who challenges him." #,"a little girl sitting on a toilet seat." #,"","","a boxer jumping onto a moving bus." #"a car on fire." #!"a boxer boarding a train." #F"throwing products straight from a production lineonto a fire." #7"a boxer being presentedwith a cheque after a fight." #0"ex-president Jimmy CARTER reading a map." #i"a BARN with HOOF marks at the entrance. As you watch, a train comes out and you see it is a station." #0"a GARAGE with German flags flying from it." #3"PUFFING out dirty smoke from your exhaust." #C"running over a PAN in the road which causes a puncture." #*"a RAT squashed under your car wheel." #,"someone with a RIFLE poking your tyre." #E"the COUPLING between the engine and the gearbox - the clutch." #."a tin of OIL standing on the German flag." #*"BENZINE for sale in a petrol station." #8"a little girl trying tofollow directions with a map." #0"a boxer buying a ticketat a railway station." #""a little girl at a garage." #1"a boxer tying a broken exhaust back on a car." #4"a little girl trying tomend a puncture on a car." #""a wheel driving througha fire." #,"a boxer with a tyre around his waist." #5"a little girl trying topress in the clutch pedal." #L"throwing thick black oil onto a fire and causing thick black smoke." #9"throwing petrol on a fire and watching it flare up." #"thinking 'That is MY MINE.'" #8"telling your mother 'I will not DINE at YOUR table'." #B"being told by someone to wait for HIS SIGN before morning." ##"having to whisper in HER EAR." #*"wishing that OUR house was in WINDSOR." #@"telling a group of people 'Put your hands on YOUR EARS'." #+"My money is here.","MEIN GELD IST HIER." #J"Your sister is not very white.","DEINE SCHWESTER IST NICHT SEHR WEISS." #="Your cow has a suitcase.","IHRE KUH HAT EINEN HANDKOFFER." #3"His toilet is empty.","SEINE TOILETTE IST LEER." #("It has your car.","ES HAT DEIN AUTO." #ȁ"MEIN VATER LIEBT SEIN AUTO, ABER MEINE MUTTER LIEBT IHR PFERD.","My father loves his car, but mymother loves her horse." #Ʌ"MEIN REISEPASS IST SEHR NETT, ABER DEINE TOILETTE IST SEHR SCHLECHT.","My passport is very nice, but your toilet is very bad." #ʭ"DAS RAD UND DER AUSPUFF SIND BILLIG, ABER DEINE KUPPLUNG UNDDEIN REIFEN SIND TEUER.","The wheel and the exhaust are cheap, but your clutch and yourtyre are expensive." #\"ER HAT ZWEI PANNEN, UND DER ZUGIST SPT.","He has two punctures, and the train is late." #*"UNSER BUS IST SPT.","Our bus is late." #x"MEINE FORELLE HAT ZWEI REIFEN, FNF TOMATEN UND EINE WURST.","MY trout has two tyres, five tomatoes and a sausage." #4"WARUM IST DER ZUG SPT?","Why is the train late?" #"MEIN BRUDER IST SEHR GROSS, ABER MEINE SCHWESTER IST SEHR KLEIN.","My brother is very big, but my sister is very small." #u"DER JUNGE LIEBT SEINEN SCHECK, UND DU LIEBST DEINEN VATER.","The boy loves his cheque, and you love your father." #ч"DAS MDCHEN UND DER JUNGE ESSENZWEI EIER, UND ICH ESSE SIEBEN BIRNEN.","The girl and the boy eat two eggs, and I eat seven pears." >#xjat#Jl;prctgT THE PETROL isGFEMININEADIE WENGLISHXGERMAN D;The girl and the boy eat two eggs, and I eat seven pears.KZGERMANYENGLISHB 091REISEPASS 043GELD 101HANDKOFFER 041ZOLL 082TOILETTE 067HERREN 057DAMEN 031BUS 043AUTO 031ZUG 052KARTE 061BAHNOF 062GARAGE 071AUSPUFF 052PANNE 033RAD 061REIFEN 082KUPPLUNG 023L 063BENZIN 040MEIN 040DEIN 040SEIN 030IHR 050UNSER 030IHR ſ08PASSPORT 05MONEY 08SUITCASE 07CUSTOMS 06TOILET 09GENTLEMEN 06LADIES 03BUS 03CAR 05TRAIN 03MAP 07STATION 06GARAGE 07EXHAUST 08PUNCTURE 05WHEEL 04TYRE 06CLUTCH 03OIL 06PETROL 02MY 15YOUR (singular)03HIS 03HER 03OUR 13YOUR (plural) 093RiZEHPASS 040GELT 100HANTKOFFER 050TSOLL 090TWALETTEH 060HERREN 060DAHMEN 031BuS 055owTOH 050TSOOG 060KARTEH 080BAHNHOHF 077GARAHgE 068owSPuF 060PANNEH 040RAHT 053RiFEN 071KuPLuNG 030ErL 080BENTSEEN 033MiN 033DiN 033ZiN 030EER 051uNSER 030EER GR9 spRg;up$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;" ";: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 2500 :G1 1700:S1 $2620< :g2 .1600@:s2 86700,:p4 :5300:s3 B1900l:END Lpart 1 eating Q `[4,13 ;"PART 1";7,5;"ON THE BEACH & LEISURE":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# 34300: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=6: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;"NINTH 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=318,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: k"When you use the words on, in, under, over, etc., then these words indicate the place of an object." d:"E.g. A dog is on the table. A dog is under the table. A dog is over the table." P:"When this happens, the word 'the' after on, under, etc., is often DEM." :"E.g." A:"'A dog is on the table' is EIN HUND IST AUF DEM TISCH." C:"'A dog is under the table' is EIN HUND IST UNTER DEM TISCH." &:"Imagine a dog on a DAMNED table." 200:300,: *"The same is true for neuter words." &:"'On the pig' is AUF DEM SCHWEIN." .:"'Under the pig' is UNTER DEM SCHWEIN." 200:502: I"For feminine words, perversely, the word 'the' is DER in this case." ,:"'Under the cat' is UNTER DER KATZE." ,:"'Over the cat' is BER DER KATZE." 200:502: U:"Words like MEIN, DEIN, and so on, take the same ending as the word for 'the'." >:"So"::"'On my dog' (masculine) is AUF MEINEM HUND." 7:"'On my cat' (feminine) is AUF MEINER KATZE." 9:"'On my pig' is AUF MEINEM SCHWEIN." &200:502: ' 1220:k$="Y"2500 ( <.:4,5;"MORE ELEMENTARY GRAMMAR" >200:502: @"A big confusion arises because whether or not you use DEM usually depends on whether the previous verb is active or not." B:"Where something is standing still, e.g. 'the dog IS on the table', 'the river IS under the forest', then you use DEM as youhave just been shown." D:"However, if the verb is active, such as in the sentences 'The dog GOES under the table' and 'The river GOES under the forest', then you use DEN, just as you normally do." F`:"The DEM in AUF DEM TISCH, therefore, only occurs when the verb before is not active." H200:502: JX"Do not worry about this. If you do make a mistake you will still be understood." LL:"Please note that the same rule is true for feminine and neuter words." N :"There are exceptions to what hasbeen said, but you will be understood even if you make mistakes. So do not worry about making mistakes - it is important only to understand at this stage why there are differences between DEM and DEN,etc." 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 ^FL=1I=319,0;"(N.B. The word for 'cold' as an adjective is KALT)" +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=318,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  FL=1 ndata=9200#:ns=5:2701 :2705 ::NS=5:data=9210#:2702 :2705 :  sentences 4 "7data=9230$: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 nV:4,13 ;"PART 2":7,10 ;"USEFUL WORDS";:200:502 sI1=11 :I2=20 xdata=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: Odata=9130#:4300:4500:pf=19:4600:PF=16  ,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 g:4,7;"MORE USEFUL WORDS";6,6;"THEY HAVE NO GENDERS":200:502: i1=21:i2=30 DATA=9140# 12000:2200:PF=16:4000 2400` :4000   ,GENDERLESS WORDS 1i1=31:i2=37% 6W:4,13 ;"PART 4";6,8;"DAYS OF THE WEEK":200:502 7:"All but one of the days of the week end with TAG - the German word for 'day'. The images you will be given will therefore concentrate on the first part ofthe word." 8200:502: ;DATA=9190# @12000:2200:PF=16:4000 E2400` :4000 F G"Please note that the word 'on' when used with a day of the weekis AM. So 'on Tuesday' is AM DIENSTAG.":200: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 9" 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=37%:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,17):i=1n1:e$(i):i #>)P$(N1,20):I=1N1:P$(I):I #Fp"061STRAND","052HITZE","052KLTE","051FLUSS","041WALD","041BERG","062KAMERA","051BRIEF","072ZEITUNG","043BUCH" #Gu"041ARZT","081ZAHNARZT","072POLIZEI","082APOTHEKE","071FRISEUR","042POST","042BANK","053HOTEL","063MUSEUM","031DOM" #Hd"030MIT","040OHNE","050DURCH","050GEGEN","030AUF","030FR","040BER","050UNTER","050NEBEN","020IN" #I`"060MONTAG","080DIENSTAG","080MITTWOCH","100DONNERSTAG","070FREITAG","070SAMSTAG","070SONNTAG" #Jl"05BEACH","04HEAT","04COLD","05RIVER","06FOREST","08MOUNTAIN","06CAMERA","06LETTER","09NEWSPAPER","04BOOK" #K"06DOCTOR","07DENTIST","06POLICE","14CHEMIST'S SHOP","11HAIRDRESSER","11POST OFFICE","04BANK","05HOTEL","06MUSEUM","09CATHEDRAL" #Lc"04WITH","07WITHOUT","07THROUGH","07AGAINST","02ON","03FOR","05ABOVE","05UNDER","06BESIDE","02IN" #MV"06MONDAY","07TUESDAY","09WEDNESDAY","08THURSDAY","06FRIDAY","08SATURDAY","06SUNDAY" #Nt"070SHTRANT","060HITSEH","060KELTEH","051FLuSS","040VALT","040BERG","060KAMERA","050BREEF","076TSiTuNG","054BOOch" #O|"050ARTST","100TSAHNARTST","073POLITSi","090APOTAIKEH","071FREESuR","040POST","040BANK","050HOTEL","081MOOSAIuM","040DOHM" #Pi"030MIT","050OHNEH","051DuRch","060GAIGEN","035owF","040FooR","050ooBER","050UNTER","060NAIBEN","020IN" #Qd"070MOHNTAG","090DEENSTAHG","070MITVOCH","110DONNERSTAHG","073FRiTAHG","080ZAMSTAHG","080ZONNTAHG" #j #!"being STRANDED on a beach." #M"someone so demented by the heat that he goes up to a woman and HITS HER." #."that it is so cold that it KILLED HER." ##"candy-FLOSS floating ona river." #""running WILD through a forest." #$"an iceBERG on top of a mountain." #'"a CAMERA placed on a German flag." #"writing a BRIEF letter." #g"you SIGH 'TONGUE' as you see your favourite cold tongue salad spilled all over the newspaper." #'"a BOOK lying on the German flag." #%"two boxers fighting on the beach." #>"a little girl collapsing as the heat hits her." #'"a little girl freezing in the cold." #="a boxer swimming in a river with his boxing gloves on." #4"a boxer training by running through a forest." #-"a boxing match on the top of a mountain." #5"a little girl taking photographs with a camera." #2"a boxer stuffing a letter down his briefs." #%"a little girl reading anewspaper." #9"throwing a book onto the fire and watching it burn." #P"a doctor operating in the middle of a room with worksof ART all around him." #5"a dentist drilling a hole in a work of ZEN ART." #1"a German POLICEMAN holding a German flag." #?"the old chemist sign 'APOTHECARY' above a chemist shop." #."your hair dresser FRIZZING your hair." #6"a POST office with a German flag flying outside." #."your local BANK draped in the German flag." #4"German flags all round the HOTEL where you stay." #@"the Imperial War MUSEUMwith an exhibition of German flags." #/"looking at the huge DOME of a cathedral." #:"a doctor examining a boxer who has been knocked out." #3"a dentist trying to puta boxer's teeth back in." #k"a little girl talking to the police.","a little girl going to the chemist to buy aspirin for her head." #2"a hair dresser giving aboxer a very short cut." #A"a little girl going to the local post office to buy stamps." #S"a little girl trying toreach up to a bank counter to put money in her account." #V"a fire sweeping througha hotel, with guests jumping out of upper storey windows." #U"a fire in a big museum,destroying the priceless Egyptian mummies and vases." #1"a boxing match inside Westminster Cathedral." #%"your hand WITH a MITTEN on." ##"an OWNER without what he OWNS." #"going THROUGH DOORS." #1"someone holding a GAY GUN AGAINST your head." #8"someone going 'OWF' when you hit him ON the head." #+"being FOR FUR and against plastic." # "a HOOVER ABOVE your head." #'"crawling UNDER the German flag." #*"thinking 'There's NO BIN BESIDE me'." #"being IN an INN." #@"The spider is on the letter.","DIE SPINNE IST AUF DEM BRIEF." #e"The dog and the cat are under the newspaper.","DER HUND UND DIE KATZE SIND UNTER DER ZEITUNG." #G"The piano is on my mother.","DAS KLAVIER IST AUF MEINER MUTTER." #C"The money is with my brother.","DAS GELD IST MIT MEINEM BRUDER." #A"The money is under the horse.","DAS GELD IST UNTER DEM PFERD." #:"DAS BUCH IST IN DEM WALD.","The book is in the forest." #_"DAS MUSEUM UND DAS HOTEL SIND AUF DEM BERG.","The museum and the hotel are onthe mountain." #ʅ"DIE BANK IST OHNE GELD, UND DERFRISEUR IST SEHR TEUER.","The bank is without money, and the hairdresser is very expensive." #d"DER ARZT UND DER ZAHNARZT SIND IN EINEM BERUF.","The doctor and the dentist are in a profession." #t"DIE POLIZEI IST MIT MEINER MUTTER UND MIT MEINEM VATER.","The police are with my mother and with my father." #="The boy goes in the river.","DER JUNGE GEHT IN DEN FLUSS." #="The girl is in the river.","DAS MDCHEN IST IN DEM FLUSS." #A"The horse goes over the book.","DAS PFERD GEHT BER DAS BUCH." #>"The horse is on the beach.","DAS PFERD IST AUF DEM STRAND." #:"The letter is on the cow.","DER BRIEF IST AUF DER KUH." #R"DAS MDCHEN GEHT DURCH DEN ZOLL.","The girl goes through the customs." #r"DAS L UND DAS BENZIN SIND IN DEM AUTO IN DER GARAGE.","The oil and the petrol are in the car in the garage." #]"DIE HITZE GEHT DURCH DIE APOTHEKE.","The heat goes through the chemist's shop." #<"DIE KAMERA IST AUF DEM BETT.","The camera is on the bed." #k"DIE POST UND DER DOM SIND AUF DEM STRAND.","The post office and the cathedral are on the beach." #["ER WAR FNF MINUTEN IN DEM RESTAURANT.","He was five minutes in the restaurant." #?"MOANING because Monday is here and you have to go to work." #P"Tuesday is when the DEANS of the University faculties always meet." ##"that Wednesday is MIDWEEK." #R"every Thursday at DAWN you watch a stag drinking - at DAWN A STAG on Thursday." #k"after the last day of the week you have a FRY UP for tea because you are tired - Friday is FRY TAG." #F"a friend called Sam always visits on Saturday - 'SAM'S TAG'." #-"the sun shines on Sundays - SUN TAG." #^"It is Tuesday, and tomorrow it is Wednesday.","ES IST DIENSTAG, UND MORGEN ISTES MITTWOCH." #U"On Thursday the dog goes in theriver.","AM DONNERSTAG GEHT DER HUND IN DEN FLUSS." #O"On Friday and Saturday it was cold.","AM FREITAG UND SAMSTAG WAR ES KALT." #Q"On Sunday I am going in the forest.","AM SONNTAG GEHE ICH IN DEN WALD." #>"On Monday I was very tired.","AM MONTAG WAR ICH SEHR MDE." xj%Ɵ%061STRAND 052HITZE 052KLTE 051FLUSS 041WALD 041BERG 062KAMERA 051BRIEF 072ZEITUNG 043BUCH 041ARZT 081ZAHNARZT 072POLIZEI 082APOTHEKE 071FRISEUR 042POST 042BANK 053HOTEL 063MUSEUM 031DOM 030MIT 040OHNE 050DURCH 050GEGEN 030AUF 030FR 040BER 050UNTER 050NEBEN 020IN 060MONTAG 080DIENSTAG 080MITTWOCH 100DONNERSTAG 070FREITAG 070SAMSTAG 070SONNTAG z%05BEACH 04HEAT 04COLD 05RIVER 06FOREST 08MOUNTAIN 06CAMERA 06LETTER 09NEWSPAPER 04BOOK 06DOCTOR 07DENTIST 06POLICE 14CHEMIST'S SHOP 11HAIRDRESSER 11POST OFFICE 04BANK 05HOTEL 06MUSEUM 09CATHEDRAL 04WITH 07WITHOUT 07THROUGH 07AGAINST 02ON 03FOR 05ABOVE 05UNDER 06BESIDE 02IN 06MONDAY 07TUESDAY 09WEDNESDAY 08THURSDAY 06FRIDAY 08SATURDAY 06SUNDAY %070SHTRANT 060HITSEH 060KELTEH 051FLuSS 040VALT 040BERG 060KAMERA 050BREEF 076TSiTuNG 054BOOch 050ARTST 100TSAHNARTST 073POLITSi 090APOTAIKEH 071FREESuR 040POST 040BANK 050HOTEL 081MOOSAIuM 040DOHM 030MIT 050OHNEH 051DuRch 060GAIGEN 035owF 040FooR 050ooBER 050UNTER 060NAIBEN 020IN 070MOHNTAG 090DEENSTAHG 070MITVOCH 110DONNERSTAHG 073FRiTAHG 080ZAMSTAHG 080ZONNTAHG %at#+lprctgTTHE CATHEDRAL isG MASCULINEADER WENGLISHXGERMANDAM MONTAG WAR ICH SEHR MDE.K ZGERMANYENGLISHB HGR10 Ps&iyRs$P(D$0 )=(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;" ";: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 6900: P3 1700:S1 2500 :G1 $1600@:S2 .2620< :G2 85300:S3 :6600:P4 <5000:G3 >5400:S4 B1900l:END Lpart 1 eating Q `T4,13 ;"PART 1";7,8;"AT THE DOCTOR'S":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# 34300: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=9180#:NS=5:2701 :2705 J5ns=5:DATA=9190#:2702 :2705 T sentences 1 e to f,f to e data=9160# !NS=5:NUMBER OF SENTENCES 2701 :2705 NS=5:data=9170# 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;"LAST 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." x!14,1;"2. To quit." | 200 K$= K$="1"1007 K$"2"1920  ""  6,12 ;"BYE BYE!"  1950  DISPLAY FOREIGN WORDS :DATA:C1=15  I=I1I2 \I=1I=11 I=21I=318,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$ Fd$="("+p$(i,4̰p$(i,2)+3)+")":6,p(d$);d$ %6pf=p$(i,3):pf0l=8:1400x 'FL=12135W *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 o!FL=1I=I1I2:2425y 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: Ф"This final section on grammar will deal with adjective endings. It is very important that you do not worry about endings to begin with. They are"; " given at this stage so you will understand why adjective endingsare different in different sentences. Whilst they are a bitcomplicated, they do follow strict rules so they can be learned quite easily." 200:502: T:"When you have the definite article 'the' before an adjective like" ^:"'The white dog is green' 'The black cat is green' 'The green pig is green'" 0:"then the adjective always ends with an E." 200:502: G:"So"::"'the white dog is green' is DER WEISSE HUND IST GRN." R:"'The black cat is green' is DIE SCHWARZE KATZE IST GRN. " O:"'The green pig is green' is DAS GRNE SCHWEIN IST GRN. " 200:502: 6"When the noun is the object of the sentence, e.g." ^:"'It loves the black dog' 'It loves the white cat' 'It loves the green pig'" d:"then for the masculine and feminine, the adjective has the same ending as the word 'the'." N:"For example:"::"ES LIEBT DEN SCHWARZEN HUND " 9:"ES LIEBT DIE WEISSE KATZE. " 200:502: 3:"But for neuter the adjective only is an E." 8:"ES LIEBT DAS GRNE SCHWEIN. " 200:502: "The rule is, therefore, that with the word 'the', when the noun is the subject or the object of the sentence, an adjective will always end in E, except when the object is a masculine noun, in which case it ends in EN." &200:502: ' 1220:k$="Y"2500 ( <):4,6;"ELEMENTARY GRAMMAR" >200:502: @"When you use the word 'a' as in"::"A white dog is green A black cat is green A green sheep is green" BL:"then the adjective ending is thesame as the ending of the word 'the'." DQ:"'A white dog is green' is EIN WEISSER HUND IST GRN. " FS:"'A black cat is green' is EINE SCHWARZE KATZE IST GRN. " Ja:"'A green pig is green' is EIN GRNES SCHWEIN IST GRN. " K200:502: L9:"When the noun is the object of the sentence, as in" NZ:"It loves a white dog It loves a black cat It loves a green pig" PT:"then again the adjective takes the same ending as the definite article 'the'." R\:"'It loves a white dog' becomes ES LIEBT EINEN WEISSEN HUND. " T\:"'It loves a black cat' becomes ES LIEBT EINE SCHWARZE KATZE. " U200:502: VY:"'It loves a green pig' becomes ES LIEBT EIN GRNES SCHWEIN. " W200:502: X:"DO NOT WORRY ABOUT THE ADJECTIVEENDINGS TO BEGIN WITH." Z:"Provided you understand what hasbeen written above, you will be able to understand spoken German. As you use German, you will come to use the adjective endings correctly, and it would " \"be a great pity if you stopped to think too much about adjective endings before you spoke. The odd mistake to begin with will not stop you being understood when you speak." ]200:502: ^`"Please note that the words MEIN,DEIN, SEIN, IHR, UNSER and IHR, all end the same way as EIN." `:"So" b@:"'A white dog is green' is EIN WEISSER HUND IST GRN." dA:"'My white dog is green' is MEIN WEISSER HUND IST GRN." fA:"'Your white gog is green' is DEIN WEISSER HUND IST GRN." h:"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 !FL=1I=I1I2:4018 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 EFL=1C=20C=2:200:502::4010 I 200:502  DISPLAY GENDERS :DATA  200:  I=I1I2 (f$(i,3)=0D$:4460l `I=1I=11 I=21I=318,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  "When you say 'in December' or 'in January', etc., then the word for 'in' is IM. So 'in December' is IM DEZEMBER, 'in March' is IM MRZ." 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=9200#:ns=5:2701 :2705 ::"Please do not worry if you did not get the adjective endings correct. You will always be understood even if you get the endings wrong.":200:502::NS=5:data=9210#:2702 :2705 :  sentences 4 "5data=9230$:ns=5:2701 :2705 ')DATA=9240$: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 nX:4,13 ;"PART 2":7,8;"EMERGENCY WORDS";:200:502 sI1=11 :I2=20 xdata=9120# 2000:2200 pf=16:4000 F:4,3;"GENDERS FOR PART 2 WORDS":200:502: data=9130#:4300::"Please note that the word for 'dead' is TOT.":200:502::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,7;"MONTHS OF THE YEAR":200:502: v"The months of the year are similar in English and German, so no images will be given.":200:502: i1=31:i2=42*  FL=1 32000:2400` :PF=16:4000: 2400` :4000   ,GENDERLESS WORDS 1i1=31:i2=37% 6W:4,13 ;"PART 4";6,8;"DAYS OF THE WEEK":200:502 7:"All but one of the days of the week end with TAG - the German word for 'day'. The images you will be given will therefore concentrate on the first part ofthe word." 8200:502: ;DATA=9190# @12000:2200:PF=16:4000 E2400` :4000 F G"Please note that the word 'on' when used with a day of the weekis AM. So 'on Tuesday' is AM DIENSTAG.":200: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 Z:4,13 ;"PART 3":7,7;"MORE USEFUL WORDS";:200:502 I1=21:I2=30 data=9140# 2000:2200 pf=16:4000 e:2400` :4000:: ::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,7;"GERMAN SECTION 10" 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=42*:f$(n1,18):i=1n1:f$(i):i #=)e$(n1,17):i=1n1:e$(i):i #>)P$(N1,20):I=1N1:P$(I):I #Fl"050KRANK","071SCHMERZ","071KNOCHEN","043HERZ","052BLASE","043AUGE","033OHR","042NASE","042HAND","043BLUT" #Gt"053FEUER","041DIEB","121KRANKENWAGEN","073TELEFON","051REGEN","051NEBEL","031TOD","032TR","052REISE","065TREPPE" #H}"070ACHTUNG","100GEFHRLICH","080VORSICHT","050LINKS","060RECHTS","040FREI","070BESETZT","060FALSCH","040NASS","070TROCKEN" #I"060JANUAR","070FEBRUAR","040MRZ","050APRIL","030MAI","040JUNI","040JULI","060AUGUST","090SEPTEMBER","070OKTOBER","080NOVEMBER","080DEZEMBER" #J]"03ILL","04PAIN","04BONE","05HEART","07BLADDER","03EYE","03EAR","04NOSE","04HAND","05BLOOD" #Kk"04FIRE","05THIEF","09AMBULANCE","09TELEPHONE","04RAIN","03FOG","05DEATH","04DOOR","07JOURNEY","06STAIRS" #Ln"07CAUTION","09DANGEROUS","10BE CAREFUL","04LEFT","05RIGHT","06VACANT","07ENGAGED","05WRONG","03WET","03DRY" #M"07JANUARY","08FEBRUARY","05MARCH","05APRIL","03MAY","04JUNE","04JULY","06AUGUST","09SEPTEMBER","07OCTOBER","08NOVEMBER","08DECEMBER" #Ns"050KRANK","070SHMERTS","074KNOchEN","050HERTS","070BLAHSEH","055owGEH","030OHR","060NAHSEN","040HANT","050BLOOT" #O|"060FOI ER","040DEEP","130KRANKENVAHGEN","080TELEFOHN","060RAIGEN","060NAIBEL","040TOHT","040TooR","053RiZEH","070TREPPEH" #P}"071AchTuNG","104GEFAIRLIch","104FOHRSEEchT","050LINKS","064REchTS","033FRi","070BESETST","050FALSH","040NASS","070TROCKEN" #Q"080YANOO AR","090FEBROO AR","050MERTS","050APRIL","023Mi","060YOONEE","060YOOLEE","068owGuST","090ZEPTEMBER","080OKTOHBER","080NOVEMBER","100DEETSEMBER" #j #>"having a CRANK as a neighbour who is always feelingill." #5"seeing someone who SMARTS with a severe pain." #$"KNOCKING two bones together." #?"a HERTZ rent-a-car witha big heart painted on the side." #S"feeling BLASE when you find out that your bladder has stopped working properly." #2"a horrible OGRE with one eye staring at you." #:"an OAR from a rowing boat sticking out of both ears." #K"someone with a very NASAL voice when he speaks through his nose." #'"your HAND holding up a German flag." # "BLOOD on the German flag." ##"","a boxer writhing in pain." #6"a boxer hits his opponent with a large bone." #0"feeling that your heart is on the fire." #/"a little girl who can'tcontrol her bladder." #?"a huge eye staring at you from the middle of the fire." #6"burning your ear when you go too close to a fire." #0"a little girl giving her nose a huge blow." #0"giving a little girl a smack with your hand." #8"pouring blood onto a fire to try to extinguish it." #$"a fire in the FOYER of a cinema." #@"catching a thief and holding him in a bath of DEEP water." #c"trying to CRANK up an old WAGON which has a red crosson the side and was an old ambulance." #+"a TELEPHONE placed on the German flag." #3"Ronald REAGAN standing in the rain getting wet." #1"looking for your NAVEL on a very foggy night." #"finding a dead TOAD." #&"making a TOUR of your front door." ##"RISING early to go on ajourney." #""TRIPPING over the stairs." #A"a fire, it is the symbol of a neuter word in thiscourse." #C"a thief robbing a boxerwhile he is in the ring fighting." #B"taking a boxer to hospital in an ambulance after a fight." #'"throwing a telephone into a fire." #H"a boxer getting soaking wet from rain in an outdoor fight." #4"two boxers who fail to find each other in a fog." #!"a boxer going to his death." #4"a little girl reaching up to try to open a door." #I"a little girl becoming very excited as she sets out ona long journey." #,"a little girl tripping down some stairs." #7"being told that you should be ACTING cautiously." #U"you GO A FAIR LICK in your car, and your passenger shouts 'This is DANGEROUS'." #4"someone shouting 'Be CAREFUL, have FORESIGHT'." #S"driving past LINKS of a chain on your LEFT hand side as you turn to your left." #Q"seeing a whole lot of WRECKED cars on your RIGHT, as you turn to your right." #3"trying to FRY an egg outside a vacant toilet." #N"someone who has POSSESSED a toilet and has put the ENGAGED sign on." #1"accusing someone of being FALSE and WRONG." #"it being WET and NASTY." #"TRUCKING home on a DRY day." #F"The pain is in my bladder.","DER SCHMERZ IST IN MEINER BLASE." #"I am ill.","ICH BIN KRANK." #n"The rain is very wet, and the fog is very cold.","DER REGEN IST SEHR NASS, UND DER NEBEL IST SEHR KALT." #ː"Caution! The journey is always dangerous, and the cats are bad.","ACHTUNG! DIE REISE IST IMMER GEFHRLICH, UND DIE KATZEN SINDSCHLECHT." #x"The telephone is in the ambulance with the thief.","DAS TELEFON IST IN DEM KRANKENWAGEN MIT DEM DIEB." #L"DAS IST LINKS UND DAS IST RECHTS.","That is left and that is right." #@"ER MACHT DAS FEUER SEHR GROSS.","He makes the fire very big." #y"ER HAT EINE KLEINE NASE, UND SIE HAT EIN OHR UND EIN HERZ.","He has a small nose, and she has an ear and a heart." #`"DIE KNOCHEN SIND NASS, ABER DIEAUGEN SIND TROCKEN.","The bones are wet, but the eyesare dry." #Z"DIE TOILETTE IST FREI ABER GEFHRLICH.","The toilet is free but dangerous." #3"The big nose is red.","DIE GROSSE NASE IST ROT." #<"The empty heart was black.","DAS LEERE HERZ WAR SCHWARZ." #C"The big pain is bad.","DER GROSSE SCHMERZ IST SCHLECHT." #>"She loves the small bladder.","SIE LIEBT DIE KLEINE BLASE." #4"I love the red blood.","ICH LIEBE DAS ROTE BLUT." #8"DIE WEISSE HAND WAR KALT.","The white hand was cold." #4"DAS GROSSE OHR IST GRN.","The big ear is green." #7"ICH ESSE DAS SCHWERE HERZ.","I eat the heavy heart." #9"ER LIEBT DAS SCHWARZE AUGE.","He loves the black eye." #F"SIE LIEBEN DIE KLEINE NASE.","You (or they) love the little nose." #|"The big duck was dead, but the white horse is not dead.","DIE GROSSE ENTE WAR TOT, ABER DAS WEISSE PFERD IST NICHT TOT." #U"It is a wet rain and a dry fog.","ES IST EIN NASSER REGEN UND EINTROCKENER NEBEL." #P"My big bank has much (a lot of)money.","MEINE GROSSE BANK HAT VIEL GELD." #."Why is it engaged?","WARUM IST ES BESETZT?" #G"The wife loves a little door.","DIE FRAU LIEBT EINE KLEINE TR." #:"ICH MACHE EINE WEISSE TR.","I am making a white door." #>"ICH ESSE EINE KLEINE TOMATE.","I am eating a small tomato." #A"SIE HABEN EINEN GROSSEN HUND.","You (or they) have a big dog." #;"ER MACHT EINE KLEINE KATZE.","He is making a small cat." #/"ER IST EIN GROSSER SOHN.","He is a big son." $X"In January, February and March it is cold.","IM JANUAR, FEBRUAR UND MRZ ISTES KALT." $["In April, May and June the blood is red.","IM APRIL, MAI UND JUNI IST DAS BLUT ROT." $`"In July and September my motherhas holidays.","IM JULI UND SEPTEMBER HAT MEINEMUTTER FERIEN." $d"My father is heavy in August and October.","MEIN VATER IST SCHWER IM AUGUST UND OKTOBER." $_"The doctor was ill in November and December.","DER ARZT WAR KRANK IM NOVEMBER UND DEZEMBER." $A"AM DONNERSTAG MACHE ICH WEIN.","On Thursday I am making wine." $3"HEUTE IST ES MITTWOCH.","Today it is Wednesday." $:"ICH WAR MDE AM DONNERSTAG.","I was tired on Thursday." $Q"AM DIENSTAG GEHE ICH IN DEN FLUSS.","On Tuesday I am going in the river." $5"AM SAMSTAG WAR ES GUT.","On Saturday it was good." *<#xj**03ILL 04PAIN 04BONE 05HEART 07BLADDER 03EYE 03EAR 04NOSE 04HAND 05BLOOD 04FIRE 05THIEF 09AMBULANCE 09TELEPHONE 04RAIN 03FOG 05DEATH 04DOOR 07JOURNEY 06STAIRS 07CAUTION 09DANGEROUS 10BE CAREFUL 04LEFT 05RIGHT 06VACANT 07ENGAGED 05WRONG 03WET 03DRY 07JANUARY 08FEBRUARY 05MARCH 05APRIL 03MAY 04JUNE 04JULY 06AUGUST 09SEPTEMBER 07OCTOBER 08NOVEMBER 08DECEMBER M*050KRANK 070SHMERTS 074KNOchEN 050HERTS 070BLAHSEH 055owGEH 030OHR 060NAHSEN 040HANT 050BLOOT 060FOI ER 040DEEP 130KRANKENVAHGEN 080TELEFOHN 060RAIGEN 060NAIBEL 040TOHT 040TooR 053RiZEH 070TREPPEH 071AchTuNG 104GEFAIRLIch 104FOHRSEEchT 050LINKS 064REchTS 033FRi 070BESETST 050FALSH 040NASS 070TROCKEN 080YANOO AR 090FEBROO AR 050MERTS 050APRIL 023Mi 060YOONEE 060YOOLEE 068owGuST 090ZEPTEMBER 080OKTOHBER 080NOVEMBER 100DEETSEMBER *at$'lprctgT THE STAIRS isGNEUTERADAS WENGLISHXGERMANDOn Saturday it was good.K ZGERMANYENGLISHB *050KRANK 071SCHMERZ 071KNOCHEN 043HERZ 052BLASE 043AUGE 033OHR 042NASE 042HAND 043BLUT 053FEUER 041DIEB 121KRANKENWAGEN 073TELEFON 051REGEN 051NEBEL 031TOD 032TR /