Type record

v1 As String * 14

v2 As String * 14

v3 As String * 14

v4 As String * 14

v5 As String * 14

v6 As String * 14

v7 As String * 14

v8 As String * 14

End Type

Dim verbrecord As record

Sub verblist()

10 MsgBox "list random file", Title:="verblis "

30 Dim verb$(8)

Dim pageverb$(10)

lang$ = InputBox(prompt:="ENTER: Language ")

44 TENSE$ = InputBox(prompt:="ENTER: past or verbsr:", Title:="Language Verbs")

50 Filename$ = "h:\private\my documents\" + lang$ + "\" + TENSE$

60 Open Filename$ For Random As #2 Len = 122

80 MsgBox prompt:=("infin" & "1st per " & "2nd per " & "3rd per" & "past "), Title:=lang$

100 J = J + 1

101 If EOF(2) Then GoTo 280

110 Get #2, J, verbrecord

v1$ = verbrecord.v1

v2$ = verbrecord.v2

v3$ = verbrecord.v3

v4$ = verbrecord.v4

v5$ = verbrecord.v5

v6$ = verbrecord.v6

v7$ = verbrecord.v7

v8$ = verbrecord.v8

140 MsgBox Title:=lang$ & " infin " & "1st per " & "2nd per " & "3rd per " & "past", prompt:=(v1$ & " " & v2$ & " " & v3$ & " " & v4$) & " " & (v5$ & " " & v6$ & " " & v7$ & " " & v8$)

180 x = x + 1

pageverb$(x) = v1$

190 If x < 10 Then GoTo 100

MsgBox prompt:=pageverb$(1) & Chr$(13) & pageverb$(2) & Chr$(13) & pageverb$(3) & Chr$(13) & pageverb$(4) & Chr$(13) & pageverb$(5) & Chr$(13) & pageverb$(6) & Chr$(13) & pageverb$(7) & Chr$(13) & pageverb$(8) & Chr$(13) & pageverb$(9) & Chr$(13) & pageverb$(10) & Chr$(13)

200 x = 0

210 ED$ = InputBox(prompt:="next page?")

220 MsgBox Title:=lang$, prompt:=("infin " & "1st per " & "2nd per " & "3rd per " & "past")

250 If ED$ = "999" Then GoTo 290

260 GoTo 100

280 MsgBox prompt:="cnt " & J - 1

290 Close #2

300 End

End Sub