''RUN 990: ''This line displays the contents of data statements for checking ''ger230e.bas by Harold Eddleman 1998 Sep 7 N = 24: BN = N: GOSUB 901: ''BN = the beginning number of items. DIM V(N), GV$(N), EV$(N), GN$(N), EN$(N) FOR J = 1 TO N: V(J) = 1: NEXT: ''initialize the Verb Counter to 1 time CLS : PRINT "Welcome to ger230e.bas ": PRINT PRINT "This program copyright by Harold Eddleman and placed in the public" PRINT "domain. It only accepts one answer, but many words have many meanings." PRINT "I would appreciate your comments and criticisms indbio@disknet.com" PRINT "More at http://www.disknet.com/indiana_biolab/ger.htm": PRINT PRINT : PRINT "begleiten = to accompany (as a companion)" PRINT "der Begleiter = the companion [could also mean the accompanist but" PRINT "this program does not offer multiple answers.]" PRINT "You must use der, die, das and >>to<< and >>the<< as shown above." PRINT " ": INPUT "Press Enter to continue."; z 100 CLS : REM *** read data into strings 110 FOR J = 1 TO N 112 READ GV$(J) 114 READ EV$(J) 116 READ GN$(J) 118 READ EN$(J) NEXT ''PRINT GV$(1): PRINT GV$(2): PRINT GV$(N): PRINT GN$(V) 200 PRINT "line 200": GOSUB 920: ''Select the next verb to quiz student 400 GOSUB 910: REM *** query for English Verb 405 PRINT " " 410 PRINT "The GERMAN VERB is ===============================> "; GV$(V%) ''415 PRINT "the English noun is "; EN$(V%) 420 INPUT "Enter the correct spelling of the ENGLISH VERB ==>"; SA$: ''student answer 422 IF SA$ = EV$(V%) THEN GOTO 423 ELSE GOTO 450 423 PRINT " ": PRINT "C O R R E C T"; 424 NR = NR + 1: SCORE = (100 * NR) / (NR + NW) 426 PRINT " Your Score ===>"; SCORE: '' INPUT "Press to continue"; z% 428 GOTO 500 450 REM *** Service error response 452 PRINT " ": NW = NW + 1: PRINT "SORRY, "; : PRINT GV$(V%); " = "; EV$(V%) 454 SCORE = (100 * NR) / (NR + NW) 456 PRINT "Your Score ===>"; SCORE: INPUT "Press to continue"; z% 458 CLS : V(V%) = V(V%) + 1: GOTO 410 500 PRINT " ": ''GOSUB 910: REM *** query for German Noun 510 PRINT "The GERMAN VERB is ======================================> "; GV$(V%) 520 INPUT "Enter the correct spelling of the GERMAN -er NOUN ==>"; SA$: ''student answer 522 IF SA$ = GN$(V%) THEN GOTO 523 ELSE GOTO 550 523 PRINT " ": PRINT "C O R R E C T"; 524 NR = NR + 1: SCORE = (100 * NR) / (NR + NW) 526 PRINT " Your Score ===>"; SCORE: '' INPUT "Press to continue"; z% 528 GOTO 600 550 REM *** Service error response 552 PRINT " ": NW = NW + 1: PRINT "SORRY, "; : PRINT GV$(V%); " forms German Noun ==> "; GN$(V%) 554 SCORE = (100 * NR) / (NR + NW) 556 PRINT "Your Score ===>"; SCORE: INPUT "Press to continue"; z% 558 CLS : V(V%) = V(V%) + 1: CLS : GOTO 510 600 PRINT " ": ''GOSUB 910: REM *** query for English Noun 610 PRINT "The GERMAN NOUN is ===================================> "; GN$(V%) 620 INPUT "Enter the correct spelling of the ENGLISH NOUN ===>"; SA$: ''student answer 622 IF SA$ = EN$(V%) THEN GOTO 623 ELSE GOTO 650 623 PRINT " ": PRINT "C O R R E C T"; 624 NR = NR + 1: SCORE = (100 * NR) / (NR + NW) 626 PRINT " Your Score ===>"; SCORE: '' INPUT "Press to continue"; z% 628 GOTO 700 650 REM *** Service error response 652 PRINT " ": NW = NW + 1: PRINT "SORRY, "; : PRINT GN$(V%); " = "; EN$(V%) 654 SCORE = (100 * NR) / (NR + NW) 656 PRINT "Your Score ===>"; SCORE: INPUT "Press to continue"; z% 659 V(V%) = V(V%) + 1: CLS : GOTO 610 700 REM *** discard the item which is correct. 710 V(V%) = V(V%) - 1 715 IF V(V%) <> 0 GOTO 200 760 REM *** replace completed verb with the Nth verb 762 GV$(V%) = GV$(N) 764 EV$(V%) = EV$(N) 766 GN$(V%) = GN$(N) 768 EN$(V%) = EN$(N) N = N - 1 IF N = 0 THEN PRINT "You have completed all the words": INPUT z: END 750 PRINT "You have completed "; BN - N 752 PRINT "You have "; N; " German Verbs to go. You are "; (100 * (BN - N)) / BN; "% done" 759 INPUT "Press to continue"; z% 769 GOTO 200 900 END: REM store subroutines here 901 H1$ = "German Nouns can be formed from many verbs by using the suffix -er." H2$ = " " H3$ = "When the suffix -er is added to a German infinitive stem," H4$ = "a masculine noun is formed, which denotes the agent." H5$ = "Given the verb >> arbeiten <<, the verb stem is >> arbeit <<," H6$ = "adding -er, we get ==> der Arbeiter." H7$ = "The Arbeiter is the agent that does work." H8$ = "The ------er is the agent that does what the verb indicates." H9$ = "Remember to capitalize all German Nouns and use der, die, or das." RETURN 910 REM *** Select random number which will determine German Verb for quiz. 912 RANDOMIZE TIMER 914 V% = INT(RND * N) + 1: ''PRINT "Verb selected ist "; V% 916 RETURN 920 CLS : REM *** installs header 922 PRINT H1$: PRINT H2$: PRINT H3$: PRINT H4$: PRINT H5$: PRINT H6$: PRINT H7$: PRINT H8$: PRINT H9$ ''924 PRINT "Remember to capitalise all German Nouns; otherwise use lowercase." 926 PRINT "======================================================" 928 RETURN 990 CLS : REM *** list the data statements 992 FOR J = 1 TO 20 993 READ GV$: PRINT GV$; 994 READ EV$: PRINT TAB(17); EV$; 995 READ GN$: PRINT TAB(34); GN$; 996 READ EN$: PRINT TAB(51); EN$ 997 NEXT 999 INPUT "Press for the next batch"; z: GOTO 992 DATA arbeiten,to work,der Arbeiter,the worker ''Data bac,to bake,der Bcker,the baker ''data Bauen, to ???,der Buer???,the farmer DATA begleiten,to accompany,der Begleiter,the companion DATA besuchen,to visit,der Besucher,the visitor DATA dienen,to serve,der Diener,the servant DATA drucken,to print,der Drucker,the printer ''data ????,????,der Einwohner,the ???? ''data erzhlen, ''DATA fiegen,,, ''DATA forschen,to search???,der Forscher,the researcher DATA fragen,to ask,der Frager,the questioner DATA fhren,to lead,der Fhrer,the leader DATA hren,to listen,der Hrer,the listener DATA jagen,to hunt,der Jger,the hunter DATA kmpfen,to fight,der Kmpfer,the fighter DATA kaufen,to buy,der Kufer, the buyer ''DATA klagen,??,Klgen,?? DATA lehren,to teach,der Lehrer,the teacher DATA leiten,to conduct,der Leiter,the conductor DATA malen,to paint,der Maler,the painter DATA rauchen,to smoke,der Raucher,the smoker DATA rechnen,to calculate,der Rechner,the computer ''DATA retten,,, DATA spielen,to play,der Spieler,the player DATA sprechen,to speak,der Sprecher,the speaker DATA schneiden,to cut,der Schneider,the tailor ''data schreiben,to write,der Schreiber,the writer???? ''DATA ????,????,der Streiter,???? DATA tanzen,to dance,der Tnzer,the dancer DATA verkaufen,to sell,der Verkufer,the salesman DATA whlen,to choose,der Whler,the voter DATA wandern,to wander,der Wanderer,the wanderer DATA zeichnen,to draw??,der Zeichner,the draftsman ''34 der er so far ''top of page 17 is a list of potential der -er verbs