private Type record

id As Integer

v1 As String * 14

v2 As String * 14

v3 As String * 14

v4 As String * 14

v5 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 vista"

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$ = "c:\users\todd\darrell\ctools\" + TENSE$

60 Open FILENAME$ For Random As #2 Len = 128

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

v7$ = verbrecord.v7

v8$ = verbrecord.v8

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

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