Sub compound()
Dim HEVERB$(15)
Dim pronoun$(10), pronoung$(10), pronouna$(10)
Dim verb$(8)
HEVERB$(1) = "durfen"
HEVERB$(2) = "konnen"
HEVERB$(3) = "mogen"
HEVERB$(4) = "mussen"
HEVERB$(5) = "sollen"
HEVERB$(6) = "wollen"
lang$ = InputBox(prompt:="enter language;", Title:="compound ")
MsgBox prompt:="pronouns" & " " & "j:\book\language\"
Filename$ = "C:\Documents and Settings\Darrell Stasik\My Documents\" + lang$ + "\lab\" + "\pro.txt"
20 SENT = 20
40 Dim HEVERB1$(15), HEVERB2$(15), HEVERB3$(15), HEVERB4$(15)
50 Dim HEVERB5$(15), HEVERB6$(15), HEVERB7$(15), HEVERB8$(15)
100 FILENAME3$ = "C:\Documents and Settings\Darrell Stasik\My Documents\" + lang$ + "\lab\" + "\helpverb"
110 Open FILENAME3$ For Random As #3 Len = 122
130 i = i + 1
140 Get #3, i, verbrecord
150 If EOF(3) Then GoTo 270
160 HEVERB1$(i) = verbrecord.verb1
170 HEVERB2$(i) = verbrecord.verb2
180 HEVERB3$(i) = verbrecord.verb3
190 HEVERB4$(i) = verbrecord.verb4
200 HEVERB5$(i) = verbrecord.verb5
210 HEVERB6$(i) = verbrecord.verb6
220 HEVERB7$(i) = verbrecord.verb7
230 HEVERB8$(i) = verbrecord.verb8
240 GoTo 130
270 MsgBox HEVERB1$(1) & " " & HEVERB8$(1) & Chr(13) & " " & HEVERB1$(2) & " " & HEVERB8$(2) & Chr$(13) & HEVERB1$(3) & " " & HEVERB8$(3) & Chr$(13) & HEVERB1$(4) & " " & HEVERB8$(4) & Chr$(13) & HEVERB1$(5) & " " & HEVERB8$(5) & Chr$(13) & HEVERB1$(6) & " " & HEVERB8$(6) & Chr$(13) & HEVERB1$(7) & " " & HEVERB8$(7) & Chr$(13) & HEVERB1$(8) & " " & HEVERB8$(8)
280 MsgBox HEVERB1$(9) & " " & HEVERB8$(9) & Chr(13) & " " & HEVERB1$(10) & " " & HEVERB8$(10) & Chr$(13) & HEVERB1$(11) & " " & HEVERB8$(11) & Chr$(13) & HEVERB1$(12) & " " & HEVERB8$(12) & Chr$(13) & HEVERB1$(13) & " " & HEVERB8$(13) & Chr$(13) & HEVERB1$(14) & " " & HEVERB8$(14) & Chr$(13) & HEVERB1$(15) & " " & HEVERB8$(15) & Chr$(13)
290 Dim INF$(80), PAST$(80), ENG$(80)
300 MsgBox prompt:="continue pronouns" & " " & L$
320 Filename$ = "C:\Documents and Settings\Darrell Stasik\My Documents\" + lang$ + "\lab\" + "\pro" + ".txt"
330 Open Filename$ For Input As #1
340 For NUMB = 1 To 2
350 For PER = 1 To 5
360 If EOF(1) Then GoTo 630
370 Input #1, N, PERS$, SGPL$, PR$, case1$
390 NOM = NOM + 1
400 pronoun$(NOM) = PR$
410 Next PER
420 Next NUMB
425 MsgBox pronoun$(1) & " " & pronoun$(6) & Chr$(13) & pronoun$(2) & " " & pronoun$(7) & Chr$(13) & pronoun$(3) & " " & pronoun$(8) & Chr$(13) & pronoun$(4) & " " & pronoun$(9) & Chr$(13) & pronoun$(5) & " " & pronoun$(10) & Chr$(13)
430 For NUMB = 1 To 2
440 For PER = 1 To 5
450 If EOF(1) Then GoTo 630
460 Input #1, N, PERS$, SGPL$, PR$, case1$
480 ACC = ACC + 1
490 pronouna$(ACC) = PR$
500 Next PER
510 Next NUMB
520 MsgBox pronouna$(1) & " " & pronouna$(6) & Chr$(13) & pronouna$(2) & " " & pronouna$(7) & Chr$(13) & pronouna$(3) & " " & pronouna$(8) & Chr$(13) & pronouna$(4) & " " & pronouna$(9) & Chr$(13) & pronouna$(5) & " " & pronouna$(10)
530 For NUMB = 1 To 2
540 For PER = 1 To 5
550 If EOF(1) Then GoTo 630
560 Input #1, N, PERS$, SGPL$, PR$, case1$
580 GEN = GEN + 1
590 pronoung$(GEN) = PR$
600 Next PER
610 Next NUMB
611 MsgBox pronoung$(1) & " " & pronoung$(6) & Chr(13) & pronoung$(2) & " " & pronoung$(7) & Chr(13) & pronoung$(3) & " " & pronoung$(8) & Chr(13) & pronoung$(4) & " " & pronoung$(9) & Chr(13) & pronoung$(5) & " " & pronoung$(10)
630 FILENAME2$ = "C:\Documents and Settings\Darrell Stasik\My Documents\" + lang$ + "\lab" + "\transr" + ".csv"
640 Open FILENAME2$ For Input As #2
650 If EOF(2) Then GoTo 770
660 Input #2, NN, INFin$, PASTve$, ENG1$
680 PGE = PGE + 1
690 If PGE < 40 Then GoTo 720
695 MsgBox INF$(1) & " " & INF$(2) & " " & INF$(3) & " " & INF$(4) & " " & INF$(5) & " " & Chr$(13) & INF$(6) & " " & INF$(7) & " " & INF$(8) & " " & INF$(9) & " " & INF$(10) & " " & Chr$(13) & INF$(11) & " " & INF$(12) & " " & INF$(13) & " " & INF$(14) & " " & INF$(15) & " " & Chr$(13) & INF$(16) & " " & INF$(17) & " " & INF$(18) & " " & INF$(19) & " " & INF$(20)
700 MsgBox INF$(21) & " " & INF$(22) & " " & INF$(23) & " " & INF$(24) & " " & INF$(25) & " " & Chr$(13) & INF$(26) & " " & INF$(27) & " " & INF$(28) & " " & INF$(29) & " " & INF$(30) & " " & Chr$(13) & INF$(31) & " " & INF$(32) & " " & INF$(33) & " " & INF$(34) & " " & INF$(35) & " " & Chr$(13) & INF$(36) & " " & INF$(37) & " " & INF$(38) & " " & INF$(39) & " " & INF$(40)
710 PGE = 0
720 VERBNUMB = VERBNUMB + 1
730 INF$(VERBNUMB) = INFin$
740 PAST$(VERBNUMB) = PASTve$
750 ENG$(VERBNUMB) = ENG1$
760 GoTo 650
770 Close #2
780 Close #1
840 SUBJ$ = InputBox("enter subject:")
850 If SUBJ$ = "end" Then GoTo 2160
860 For PR1 = 1 To 10
870 If SUBJ$ = pronoun$(PR1) Then GoTo 920
880 Next PR1
910 GoTo 840
920 GoTo 1580
930 On PERS1 GoSub 950, 980, 1020, 1060, 1100, 1140
940 GoTo 1180
950 For HOL = 1 To 15
960 HEVERB$(HOL) = HEVERB2$(HOL)
970 Next HOL
980 For HOL = 1 To 15
990 HEVERB$(HOL) = HEVERB3$(HOL)
1000 Next HOL
1010 Return
1020 For HOL = 1 To 15
1030 HEVERB$(HOL) = HEVERB4$(HOL)
1040 Next HOL
1050 Return
1060 For HOL = 1 To 15
1070 HEVERB$(HOL) = HEVERB5$(HOL)
1080 Next HOL
1090 Return
1100 For HOL = 1 To 15
1110 HEVERB$(HOL) = HEVERB6$(HOL)
1120 Next HOL
1130 Return
1140 For HOL = 1 To 15
1150 HEVERB$(HOL) = HEVERB7$(HOL)
1160 Next HOL
1170 Return
1180 VERBFORM$ = InputBox("enter helping verb")
1190 For i = 1 To 15
1200 Rem PRINT HEVERB$(I);" ";
1210 Next i
1220 If VERBFORM$ = "end" Then GoTo 2160
1230 If VERBFORM$ = "aid" Then GoTo 1790
1240 If VERBFORM$ = "being" Then GoTo 1767
1250 If VERBFORM$ = "action" Then GoTo 1761
1260 LENVERB = Len(VERBFORM$)
1270 For AUX = 1 To 15
1280 COMPARE$ = Mid$(HEVERB$(AUX), 1, LENVERB)
1290 If VERBFORM$ = COMPARE$ Then GoTo 1330
1300 Next AUX
1310 MsgBox "miss helping"
1320 GoTo 1180
1330 PARTICIP$ = InputBox("enter verb:")
1340 If PARTICIP$ = "end" Then GoTo 2160
1350 If PARTICIP$ = "aid" Then GoTo 1450
1360 For VE = 1 To 80
1370 If INF$(VE) = PARTICIP$ Then GoTo 1540
1380 Next VE
1390 MsgBox "miss helping"
1400 MISS = MISS + 1
1410 GoTo 1180
1450 MsgBox INF$(1) & " " & INF$(2) & " " & INF$(3) & " " & INF$(4) & " " & INF$(5) & " " & INF$(6) & " " & INF$(7) & " " & INF$(8) & " " & INF$(9) & " " & INF$(10) & " " & INF$(11) & " " & INF$(12) & " " & INF$(13) & " " & INF$(14) & " " & INF$(15) & " " & INF$(16) & " " & INF$(17) & " " & INF$(18) & " " & INF$(19) & " " & INF$(20)
1460 MsgBox INF$(21) & " " & INF$(22) & " " & INF$(23) & " " & INF$(24) & " " & INF$(25) & " " & INF$(26) & " " & INF$(27) & " " & INF$(28) & " " & INF$(29) & " " & INF$(30) & " " & INF$(31) & " " & INF$(32) & " " & INF$(33) & " " & INF$(34) & " " & INF$(35) & " " & INF$(36) & " " & INF$(37) & " " & INF$(38) & " " & INF$(39) & " " & INF$(40)
1500 PAG = PAGE + 1
1510 MsgBox "continue " & " " & CONTIN$
1530 GoTo 1330
1540 MsgBox ENG$(VE) & " " & INF$(VE)
1560 OBJ$ = InputBox(prompt:="pronoun object:")
1570 GoTo 1940
1580 MsgBox pronoun$(PR1) & " "
1590 If PR1 = 1 Then GoTo 1750
1600 If PR1 = 2 Then GoTo 1750
1610 If PR1 = 3 Then GoTo 1750
1620 If PR1 = 4 Then GoTo 1650
1630 If PR1 = 5 Then GoTo 1650
1640 GoTo 1670
1650 PERS1 = 3
1660 GoTo 930
1670 If PR1 > 7 Then GoTo 1730
1680 If PR1 = 7 Then GoTo 1710
1690 PERS1 = 4
1700 GoTo 1760
1710 PERS1 = 5
1720 GoTo 1760
1730 PERS1 = 6
1740 GoTo 1760
1750 PERS1 = PR1
1760 GoTo 930
1761 If VERBFORM$ = "action" Then GoTo 1762
1762 WIND = 0
1763 MsgBox HEVERB$(1) & " " & HEVERB8$(1) & Chr$(13) & HEVERB$(2) & " " & HEVERB8$(2) & Chr$(13) & HEVERB$(3) & " " & HEVERB8$(3) & Chr$(13) & HEVERB$(4) & " " & HEVERB8$(4) & Chr$(13) & HEVERB$(5) & " " & HEVERB8$(5) & Chr$(13) & HEVERB$(6) & " " & HEVERB8$(6) & Chr$(13) & HEVERB$(7) & " " & HEVERB8$(7)
1764 GoTo 1790
1766 If VERBFORM$ = "being" Then GoTo 1767
1767 WIND = 7
1768 MsgBox HEVERB$(8) & " " & HEVERB8$(8) & Chr$(13) & HEVERB$(9) & " " & HEVERB8$(9) & Chr$(13) & HEVERB$(10) & " " & HEVERB8$(10) & Chr$(13) & HEVERB$(11) & " " & HEVERB8$(11) & Chr$(13) & HEVERB$(12) & " " & HEVERB8$(12) & Chr$(13) & HEVERB$(13) & " " & HEVERB8$(13) & Chr$(13) & HEVERB$(14) & " " & HEVERB8$(14)
1790 For DIS = 1 To 15
1800 WIND = WIND + 1
1810 MsgBox HEVERB$(WIND) & " " & HEVERB8$(WIND)
1820 If WIND = 7 Then GoTo 1890
1830 If WIND = 14 Then GoTo 1850
1840 GoTo 1870
1850 WIND = 0
1860 GoTo 1890
1870 Next DIS
1890 GoTo 1180
1900 MsgBox HEVERB$(AUX) & " " & "pers" & PERS1 & " " & PARTICIP$ & " "
1940 For OB = 1 To 10
1950 If OBJ$ = pronouna$(OB) Then GoTo 2040
1960 Next OB
1970 For OB = 1 To 10
1980 MsgBox pronouna$(OB) & " "
1990 Next OB
2010 MsgBox "miss obj"
2020 OBJ$ = InputBox(prompt:="object: ")
2030 GoTo 1940
2040 MsgBox OBJ$
2060 SENT = SENT + 1
2070 If SENT > 23 Then GoTo 2090
2080 GoTo 2120
2090 SENT = 21
2120 MsgBox SUBJ$ & " " & COMPARE$ & " " & PARTICIP$ & " " & pronouna$(OB)
2130 HIT = HIT + 1
2150 GoTo 840
2160 Close #3
2170 MsgBox "hits: " & HIT
2180 MsgBox "miss " & MISS
2200 End
End Sub