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