Private Type record

verb1 As String * 14

verb2 As String * 14

verb3 As String * 14

verb4 As String * 14

verb5 As String * 14

verb6 As String * 14

verb7 As String * 14

verb8 As String * 14

End Type

Dim verbrecord As record

Sub Lissp4()

4 Dim HEVERB1$(15), HEVERB2$(15), HEVERB3$(15), HEVERB4$(15)

5 Dim HEVERB5$(15), HEVERB6$(15), HEVERB7$(15), HEVERB8$(15)

7 MsgBox prompt:="list random file" & Chr(13) & "lis Sp4" & Chr(13) & "enter language"

lang$ = InputBox(prompt:="enter language;", Title:="compound ")

MsgBox prompt:="pronouns" & " " & "j:\book\language\ aid"

Filename$ = "C:\Documents and Settings\Darrell\My Documents\" + lang$ + "\lab\" + "\pro.txt"

TENSE$ = InputBox(prompt:="ENTER: fut; impsub; or cond or verbs:")

9 FILENAME3$ = "C:\documents and settings\darrell\My Documents\" + lang$ + "\lab\" + "\helpverb"

10 Open FILENAME3$ For Random As #3 Len = 122

11 Filename$ = "c:\" + lang$ + "4\lab\" + TENSE$

12 i = i + 1

13 If EOF(3) Then GoTo 270

14 Get #3, i, verbrecord

 

16 HEVERB1$(i) = verbrecord.verb1

17 HEVERB2$(i) = verbrecord.verb2

18 HEVERB3$(i) = verbrecord.verb3

19 HEVERB4$(i) = verbrecord.verb4

20 HEVERB5$(i) = verbrecord.verb5

21 HEVERB6$(i) = verbrecord.verb6

22 HEVERB7$(i) = verbrecord.verb7

23 HEVERB8$(i) = verbrecord.verb8

27 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)

28 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)

60 j = 1

70 MsgBox lang$

80 MsgBox "infin" & " " & "1st per" & " " & "2nd per" & " " & "3rd per" & " " & "past"

100 j = j + 1

101 If EOF(3) Then GoTo 270

110 Get #3, j, verbrecord

 

140 MsgBox j

150 MsgBox HEVERB1$(j) & " " & HEVERB2$(j) & " " & HEVERB3$(j) & " " & HEVERB4$(j)

160 MsgBox " " & HEVERB5$(j) & " " & HEVERB6$(j) & " " & HEVERB7$(j) & " " & HEVERB8$(j)

180 X = X + 1

190 If X < 10 Then GoTo 100

200 X = 0

210 MsgBox "next page?" & " " & ED$

220 MsgBox lang$

230 MsgBox "infin" & " " & "1st per" & " " & "2nd per" & " " & "3rd per" & " " & "past"

250 If ED$ = "999" Then GoTo 290

260 GoTo 100

270 MsgBox "cnt " & j & "- 1"

290 Close #2

300 End

 

End Sub