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 language()

10 Dim pronoun$(80)

20 Dim HOLDNO(90)

30 Dim verb$(8)

40 Dim PRONCASE$(60)

45 Dim np(5), per1p$(5), sgplp$(5), case1p$(5), prp$(5)

46 Dim nnp(20), inf1p$(20), past1p$(5), englp$(20)

47 Dim casep$(80), prepp$(80), mean1p$(80)

50 msg$ = "H:\private\my documents\language\pasttense with .csv and lab\verbs"

response = MsgBox(msg$)

60 Dim CASENO(8)

70 SPACE20$ = Space$(20)

80 SPACE30$ = Space$(30)

100 Dim inf$(80), past$(80), eng$(80)

110 Dim HOLDPREP$(90)

120 Dim HOLDCASE$(90), HOLDMEAN$(90)

160 lang$ = InputBox(prompt:="Language", Title:="Sentence")

170 If VERBFORM$ = "more" Then GoTo 3680

180 If VERBFORM$ = "view" Then GoTo 3680

190 msg$ = "pronouns"

200 Filename$ = "h:\private\my documents" + "\pro.csv"

MsgBox (lang$ & " " & Filename$)

250 Open Filename$ For Input As #1

260 For NUMB = 1 To 2

270 For per = 1 To 5

280 If EOF(1) Then GoTo 820

290 Input #1, n, per1$, sgpl$, PR$, case1$

310 NOM = NOM + 1

320 pronoun$(NOM) = PR$

330 Rem PRONCASE$(NOM)=CASE$

340 PRONC$ = Mid$(case1$, 1, 3)

350 PRONCASE$(NOM) = PRONC$

np(per) = n

per1p$(per) = per1$

sgplp$(per) = sgpl$

case1p$(per) = case1$

prp$(per) = PR$

360 Next per

371 MsgBox (np(1) & " " & per1p$(1) & " " & sgplp$(1) & " " & case1p$(1) & " " & prp$(1)) & Chr(13) & (np(2) & " " & per1p$(2) & " " & sgplp$(2) & " " & case1p$(2) & " " & prp$(2)) & Chr(13) & (np(3) & " " & per1p$(3) & " " & sgplp$(3) & " " & case1p$(3) & " " & prp$(3)) & Chr(13) & (np(4) & " " & per1p$(4) & " " & sgplp$(4) & " " & case1p$(4) & " " & prp$(4)) & Chr(13) & (np(5) & " " & per1p$(5) & " " & sgplp$(5) & " " & case1p$(5) & " " & prp$(5)), Title:="Subject pronouns"

370 Next NUMB

380 ACC = NOM

390 For NUMB = 1 To 2

400 For per = 1 To 5

410 If EOF(1) Then GoTo 590

420 Input #1, n, per1$, sgpl$, PR$, case1$

np(per) = n

per1p$(per) = per1$

sgplp$(per) = sgpl$

case1p$(per) = case1$

prp$(per) = PR$

440 ACC = ACC + 1

450 pronoun$(ACC) = PR$

460 Rem PRONCASE$(ACC)=CASE$

470 PRONC$ = Mid$(case1$, 1, 3)

480 PRONCASE$(ACC) = PRONC$

490 Next per

491 MsgBox (np(1) & " " & per1p$(1) & " " & sgplp$(1) & " " & case1p$(1) & " " & prp$(1)) & Chr(13) & (np(2) & " " & per1p$(2) & " " & sgplp$(2) & " " & case1p$(2) & " " & prp$(2)) & Chr(13) & (np(3) & " " & per1p$(3) & " " & sgplp$(3) & " " & case1p$(3) & " " & prp$(3)) & Chr(13) & (np(4) & " " & per1p$(4) & " " & sgplp$(4) & " " & case1p$(4) & " " & prp$(4)) & Chr(13) & (np(5) & " " & per1p$(5) & " " & sgplp$(5) & " " & case1p$(5) & " " & prp$(5)), Title:="Pronouns " & case1p$(5)

500 Next NUMB

510 GEN = ACC

540 For NUMB = 1 To 2

550 For per = 1 To 5

560 If EOF(1) Then GoTo 590

570 Input #1, n, per1$, sgpl$, PR$, case1$

np(per) = n

per1p$(per) = per1$

sgplp$(per) = sgpl$

case1p$(per) = case1$

prp$(per) = PR$

590 GEN = GEN + 1

600 pronoun$(GEN) = PR$

610 Rem PRONCASE$(GEN)=CASE$

620 PRONC$ = Mid$(case1$, 1, 3)

630 PRONCASE$(GEN) = PRONC$

640 Next per

MsgBox (np(1) & " " & per1p$(1) & " " & sgplp$(1) & " " & case1p$(1) & " " & prp$(1)) & Chr(13) & (np(2) & " " & per1p$(2) & " " & sgplp$(2) & " " & case1p$(2) & " " & prp$(2)) & Chr(13) & (np(3) & " " & per1p$(3) & " " & sgplp$(3) & " " & case1p$(3) & " " & prp$(3)) & Chr(13) & (np(4) & " " & per1p$(4) & " " & sgplp$(4) & " " & case1p$(4) & " " & prp$(4)) & Chr(13) & (np(5) & " " & per1p$(5) & " " & sgplp$(5) & " " & case1p$(5) & prp$(5)), Title:="Pronouns " & case1p$(5)

650 Next NUMB

660 REST = GEN

670 For ALLCASE = 1 To 3

680 For NUMB = 1 To 2

690 For per = 1 To 5

700 If EOF(1) Then GoTo 820

710 Input #1, n, per1$, sgpl$, PR$, case1$

730 REST = REST + 1

740 pronoun$(REST) = PR$

750 Rem PRONCASE$(REST)=CASE$

np(per) = n

per1p$(per) = per1$

sgplp$(per) = sgpl$

case1p$(per) = case1$

prp$(per) = PR$

760 PRONC$ = Mid$(case1$, 1, 3)

770 PRONCASE$(REST) = PRONC$

780 Next per

MsgBox (np(1) & " " & per1p$(1) & " " & sgplp$(1) & " " & case1p$(1) & " " & prp$(1)) & Chr(13) & (np(2) & " " & per1p$(2) & " " & sgplp$(2) & " " & case1p$(2) & " " & prp$(2)) & Chr(13) & (np(3) & " " & per1p$(3) & " " & sgplp$(3) & " " & case1p$(3) & " " & prp$(3)) & Chr(13) & (np(4) & " " & per1p$(4) & " " & sgplp$(4) & " " & case1p$(4) & " " & prp$(4)) & Chr(13) & (np(5) & " " & per1p$(5) & " " & sgplp$(5) & " " & case1p$(5) & " " & prp$(5)), Title:="pronouns " & case1p$(5)

790 Next NUMB

800 Next ALLCASE

820 GoTo 840

830 GoTo 700

840 Close #1

850 MsgBox Title:="Open verb file?", prompt:="Open"

860 PAG$ = InputBox(prompt:="page", Title:="end pronouns")

880 FILENAME2$ = "h:\private\my documents" + "\tranp.csv"

890 FILENAME3$ = "h:\private\my documents" + "\past"

900 FILENAME5$ = "h:\private\my documents" + "\prep.csv"

910 Open FILENAME2$ For Input As #2

920 If EOF(2) Then GoTo 1105

930 Input #2, NN, inf1$, past1$, eng1$

950 pge = pge + 1

960 If pge < 16 Then GoTo 1000

970 MsgBox inf$(verbnumb - 15) & Chr(13) & inf$(verbnumb - 14) & Chr(13) & inf$(verbnumb - 13) & Chr(13) & inf$(verbnumb - 12) & Chr(13) & inf$(verbnumb - 11) & Chr(13) & inf$(verbnumb - 10) & Chr(13) & inf$(verbnumb - 9) & Chr(13) & inf$(verbnumb - 8) & Chr(13) & inf$(verbnumb - 7) & Chr(13) & inf$(verbnumb - 6) & Chr(13) & inf$(verbnumb - 5) & Chr(13) & inf$(verbnumb - 4) & Chr(13) & inf$(verbnumb - 3) & Chr(13) & inf$(verbnumb - 2) & Chr(13) & inf$(verbnumb - 1) & Chr(13) & inf$(verbnumb)

980 MsgBox eng$(verbnumb - 15) & Chr(13) & eng$(verbnumb - 14) & Chr(13) & eng$(verbnumb - 13) & Chr(13) & eng$(verbnumb - 12) & Chr(13) & eng$(verbnumb - 11) & Chr(13) & eng$(verbnumb - 10) & Chr(13) & eng$(verbnumb - 9) & Chr(13) & eng$(verbnumb - 8) & Chr(13) & eng$(verbnumb - 7) & Chr(13) & eng$(verbnumb - 6) & Chr(13) & eng$(verbnumb - 5) & Chr(13) & eng$(verbnumb - 4) & Chr(13) & eng$(verbnumb - 3) & Chr(13) & eng$(verbnumb - 2) & Chr(13) & eng$(verbnumb - 1) & Chr(13) & eng$(verbnumb)

990 pge = 0

1000 verbnumb = verbnumb + 1

1010 For II = 1 To 14

1020 SPCK$ = Mid$(inf1$, II, 1)

1040 Next II

1050 LENINF = II - 1

1060 KEYMATCH$ = Mid$(inf1$, 1, LENINF)

1070 inf$(verbnumb) = KEYMATCH$

1080 past$(verbnumb) = past1$

1090 eng$(verbnumb) = eng1$

1100 GoTo 920

1105 MsgBox inf$(verbnumb - 15) & Chr(13) & inf$(verbnumb - 14) & Chr(13) & inf$(verbnumb - 13) & Chr(13) & inf$(verbnumb - 12) & Chr(13) & inf$(verbnumb - 11) & Chr(13) & inf$(verbnumb - 10) & Chr(13) & inf$(verbnumb - 9) & Chr(13) & inf$(verbnumb - 8) & Chr(13) & inf$(verbnumb - 7) & Chr(13) & inf$(verbnumb - 6) & Chr(13) & inf$(verbnumb - 5) & Chr(13) & inf$(verbnumb - 4) & Chr(13) & inf$(verbnumb - 3) & Chr(13) & inf$(verbnumb - 2) & Chr(13) & inf$(verbnumb - 1) & Chr(13) & inf$(verbnumb)

1110 Close #2

1120 Open FILENAME5$ For Input As #5

1140 If EOF(5) Then GoTo 1455

1150 Input #5, case1$, prep$, mean1$

1170 prep1 = prep1 + 1

1180 If case1$ = CASEHOLD$ Then GoTo 1320

1190 CASEDETERMINE = CASEDETERMINE + 1

1200 On CASEDETERMINE GoTo 1210, 1230, 1250, 1270, 1290, 1460

1210 CASENO(CASEDETERMINE) = prep1

1220 GoTo 1310

1230 CASENO(CASEDETERNINE) = prep1

1240 GoTo 1310

1250 CASENO(CASEDETERMINE) = prep1

1260 GoTo 1310

1270 CASENO(CASEDETERMINE) = prep1

1280 GoTo 1310

1290 CASENO(CASEDETERMINE) = prep1

1300 GoTo 1310

1310 CASEHOLD$ = case1$

1320 HOLDPREP$(prep1) = prep$

1330 HOLDNO(prep1) = CASEDETERMINE

1360 HOLDCASE$(prep1) = case1$

1370 HOLDMEAN$(prep1) = mean1$

1380 pge = pge + 1

casep$(pge) = case1$

prepp$(pge) = prep$

mean1p$(pge) = mean1$

1390 If pge < 16 Then GoTo 1450

1400 pge = 0

MsgBox (casep$(1) & " " & prepp$(1) & " " & mean1p$(1) & Chr(13) & casep$(2) & " " & prepp$(2) & " " & mean1p$(2) & Chr(13) & casep$(3) & " " & prepp$(3) & " " & mean1p$(3) & Chr(13) & casep$(4) & " " & prepp$(4) & " " & mean1p$(4) & Chr(13) & casep$(4) & " " & prepp$(4) & " " & mean1p$(5) & Chr(13) & casep$(6) & " " & prepp$(6) & " " & mean1p$(6) & Chr(13) & casep$(7) & " " & prepp$(7) & " " & mean1p$(7) & Chr(13) & casep$(8) & " " & prepp$(8) & " " & mean1p$(8) & Chr(13) & casep$(9) & " " & prepp$(9) & " " & mean1p$(9) & Chr(13) & casep$(10) & " " & prepp$(10) & " " & mean1p$(10) & Chr(13) & casep$(11) & " " & prepp$(11) & " " & mean1p$(11) & Chr(13) & casep$(12) & " " & prepp$(12) & " " & mean1p$(12) & Chr(13) & casep$(13) & " " & prepp$(13) & " " & mean1p$(13) & Chr(13) & casep$(14) & " " & prepp$(14) & " " & mean1p$(14) & Chr(13) & casep$(15) & " " & prepp$(15) & " " & mean1p$(15) & Chr(13) & casep(16) & " " & prepp$(16) & " " & mean1p$(16))

For Clear = 1 To 16

casep$(Clear) = " "

prepp$(Clear) = " "

mean1p$(Clear) = " "

Next Clear

1450 GoTo 1140

1455 MsgBox (casep$(1) & " " & prepp$(1) & " " & mean1p$(1) & Chr(13) & casep$(2) & " " & prepp$(2) & " " & mean1p$(2) & Chr(13) & casep$(3) & " " & prepp$(3) & " " & mean1p$(3) & Chr(13) & casep$(4) & " " & prepp$(4) & " " & mean1p$(4) & Chr(13) & casep$(4) & " " & prepp$(4) & " " & mean1p$(5) & Chr(13) & casep$(6) & " " & prepp$(6) & " " & mean1p$(6) & Chr(13) & casep$(7) & " " & prepp$(7) & " " & mean1p$(7) & Chr(13) & casep$(8) & " " & prepp$(8) & " " & mean1p$(8) & Chr(13) & casep$(9) & " " & prepp$(9) & " " & mean1p$(9) & Chr(13) & casep$(10) & " " & prepp$(10) & " " & mean1p$(10) & Chr(13) & casep$(11) & " " & prepp$(11) & " " & mean1p$(11) & Chr(13) & casep$(12) & " " & prepp$(12) & " " & mean1p$(12) & Chr(13) & casep$(13) & " " & prepp$(13) & " " & mean1p$(13) & Chr(13) & casep$(14) & " " & prepp$(14) & " " & mean1p$(14) & Chr(13) & casep$(15) & " " & prepp$(15) & " " & mean1p$(15) & Chr(13) & casep(16) & " " & prepp$(16) & " " & mean1p$(16))

1460 CASEDETERMINE = CASEDETERMINE + 1

1480 CASENO(CASEDETERMINE) = prep1

1490 Close #5

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

1530 X = 1

1540 Y = 7

1570 MsgBox LAN$ & " " & FILENAME3$

1600 SENTENCECASE$ = ""

1620 X = 15

1630 Y = 10

1710 subj$ = InputBox(prompt:="Enter subject:", Title:=" Exercise")

1720 For s = 1 To 10

1730 If subj$ = pronoun$(s) Then GoTo 1800

1740 Next s

1780 MsgBox "test"

1790 GoTo 1620

1800 X = 16

1810 If s = 10 Then GoTo 1925

1820 Y = 10

1830 If s = 1 Then GoTo 1920

1840 If s = 2 Then GoTo 1921

1850 If s = 3 Then GoTo 1922

1860 If s = 4 Then GoTo 1922

1870 If s = 5 Then GoTo 1922

1880 If s = 6 Then GoTo 1923

1890 If s = 7 Then GoTo 1924

1900 If s = 8 Then GoTo 1925

1910 If s = 9 Then GoTo 1925

1920 per = 1

GoTo 1950

1921 per = 2

GoTo 1950

1922 per = 3

GoTo 1950

1923 per = 4

GoTo 1950

1924 per = 5

GoTo 1950

1925 per = 6

1950 VERBFORM$ = InputBox(prompt:="enter verb")

1960 If VERBFORM$ = "end" Then GoTo 3580

1970 If VERBFORM$ = "view" Then GoTo 3620

1980 For VE = 1 To 80

1990 If inf$(VE) = VERBFORM$ Then GoTo 2090

2000 Next VE

2060 MsgBox "miss: " & VERBFORM$

2070 MISS = MISS + 1

2080 GoTo 1800

2090 X = 7 + SENTENCE2

2100 Y = 1

2140 MsgBox eng$(VE), Title:="Eng"

2150 X = 9

2160 Y = 1

2170 GoTo 2210

2180 X = 11

2190 Y = 1

2210 sentencepreposition$ = InputBox(prompt:="enter preposition:")

2220 If Len(sentencepreposition$) = 0 Then GoTo 2700

2230 If sentencepreposition$ = "inf" Then GoTo 2620

2240 If sentencepreposition$ = "view" Then GoTo 4100

2250 For SP = 1 To prep1

2260 If sentencepreposition$ = HOLDPREP$(SP) Then GoTo 2280

2270 GoTo 2330

2280 PREPCNT = PREPCNT + 1

2290 X = 10

2300 Y = 6 + PREPCNT

2320 MsgBox HOLDCASE$(SP) & " " & HOLD & " " & HOLDMEAN$(SP) & " " & HOLDNO(SP)

2330 Next SP

2340 If PREPCNT > 0 Then GoTo 2410

2350 X = 3

2360 Y = 2

2380 MsgBox "miss preposition:" & sentencepreposition$

2390 MISSPREP = MISSPREP + 1

2400 GoTo 2180

2410 X = 17

2420 Y = 10

2440 If HOLDCASE$(SP) = "acc" Then GoTo 3020

2450 If lang$ = "french" Then GoTo 3020

2460 If lang$ = "english" Then GoTo 3020

2470 If lang$ = "spanish" Then GoTo 3020

2480 SENTENCECASE$ = InputBox(prompt:="enter case:")

2490 GoTo 2930

2500 X = 18

2510 Y = 10

2550 obj$ = InputBox(prompt:="enter preposition obj: ")

2560 X = 18

2570 Y = 10

2610 GoTo 2780

2620 INFIN$ = InputBox(prompt = "enter infinitive")

2630 If INFIN$ = "view" Then GoTo 3620

2640 For v = 1 To 80

2650 If inf$(v) = INFIN$ Then GoTo 2681

2660 Next v

2670 MsgBox "miss infinitive"

2680 GoTo 3020

2681 sentencepreposition$ = "to " + eng$(v)

2682 GoTo 3020

2690 SENTENCECASE$ = "acc"

2700 obj$ = InputBox(prompt:="enter obj:")

2710 BEGIN = 11

2720 GoTo 2780

2740 obj$ = InputBox(prompt:="enter pos obj")

2750 BEGIN = 21

2780 SENTENCECASE$ = ""

2790 If obj$ = "view" Then GoTo 3840

2800 For I = BEGIN To BEGIN + 9

2810 If obj$ = pronoun$(I) Then GoTo 3120

2820 Next I

2830 X = 3

2840 Y = 10

2860 MsgBox "miss " & " " & obj$ & " try again"

2870 obj$ = InputBox(prompt:="enter pronoun objective ")

2880 GoTo 2790

2900 MsgBox "pronoun obj miss: " & obj$

2910 MISSOBJ = MISSOBJ + 1

2920 GoTo 1620

2930 If SENTENCECASE$ = PRONCASE$(1) Then GoTo 3000

2940 If SENTENCECASE$ = PRONCASE$(11) Then GoTo 3020

2950 If SENTENCECASE$ = PRONCASE$(21) Then GoTo 3040

2960 If SENTENCECASE$ = PRONCASE$(31) Then GoTo 3060

2970 If SENTENCECASE$ = PRONCASE$(41) Then GoTo 3080

2980 If SENTENCECASE$ = PRONCASE$(51) Then GoTo 3100

2990 GoTo 2500

3000 BEGIN = 1

3010 GoTo 2500

3020 BEGIN = 11

3030 GoTo 2500

3040 BEGIN = 21

3050 GoTo 2500

3060 BEGIN = 31

3070 GoTo 2500

3080 BEGIN = 41

3090 GoTo 2500

3100 BEGIN = 51

3110 GoTo 2500

3120 X = 20 + SENTENCE2

3130 Y = 3

3170 MsgBox subj$, Title:="exercise"

3180 X = 20 + SENTENCE2

3190 Y = 10

3210 per = per + 1

3220 s = per

3230 Get #3, VE, verbrecord

3240 If EOF(3) Then GoTo 3600

verb1$ = verbrecord.v1

verb2$ = verbrecord.v2

verb3$ = verbrecord.v3

verb4$ = verbrecord.v4

verb5$ = verbrecord.v5

verb6$ = verbrecord.v6

verb7$ = verbrecord.v7

verb8$ = verbrecord.v8

3250 verb$(1) = verb1$

3260 verb$(2) = verb2$

3270 verb$(3) = verb3$

3280 verb$(4) = verb4$

3290 verb$(5) = verb5$

3300 verb$(6) = verb6$

3310 verb$(7) = verb7$

3320 verb$(8) = verb8$

3330 MsgBox subj$ & " " & verb$(s) & " ", Title:="verb conjugated"

3350 If Len(sentencepreposition$) = 0 Then GoTo 3490

3360 Y = 18

3370 X = 20 + SENTENCE2

3390 MsgBox subj$ & " " & verb$(s) & " " & sentencepreposition$ & " " & Chr(13) & "2. " & subjsent$ & " " & verbsent$ & " " & prepsent$ & " " & objsent$

3400 I = 1

3410 For OB = BEGIN To BEGIN + 10

3420 If obj$ = pronoun$(OB) Then GoTo 3490

3430 Next OB

3440 X = 3

3450 Y = 2

3470 MsgBox msg$ = "miss obj"

3480 GoTo 3840

3490 SENTENCE2 = SENTENCE2 + 1

3500 MsgBox subj$ & " " & verb$(s) & " " & sentencepreposition$ & " " & obj$

subjsent$ = subj$

verbsent$ = verb$(s)

prepsent$ = sentencepreposition$

objsent$ = obj$

3511 s = 0

3510 HIT = HIT + 1

3520 If SENTENCE2 > 1 Then GoTo 3550

3530 holdcnt = 0

3540 GoTo 1600

3550 SENTENCE2 = 0

3570 GoTo 1600

3580 Close #3

3590 MsgBox "hits: " & HIT

3600 MsgBox "miss " & MISS

3610 End

3620 Y = 25

3630 X = 5

3680 For v = 1 To 5

3690 holdcnt = holdcnt + 1

3700 X = 5 + v

3710 Y = 25

3740 Next v

3750 MsgBox holdcnt & " " & inf$(holdcnt) & " " & inf$(holdcnt - 4) & " " & inf$(holdcnt - 3) & " " & inf$(holdcnt - 2) & " " & inf$(holdcnt - 1)

X = 11

3760 Y = 25

3780 If holdcnt >= verbnumb Then GoTo 3810

3790 YES$ = InputBox(prompt:=" enter ok ")

3800 If YES$ = "" Then GoTo 3680

3810 holdcnt = 0

3830 GoTo 1800

3840 X = 5

3850 Y = 25

3900 For v = 1 To 5

3910 holdcnt = holdcnt + 1

3920 X = 5 + v

3930 Y = 25

3960 Next v

3961 MsgBox PRONCASE$(holdcnt - 4) & " " & pronoun$(holdcnt - 4) & Chr(13) & PRONCASE$(holdcnt - 3) & " " & pronoun$(holdcnt - 3) & Chr(13) & PRONCASE$(holdcnt - 2) & " " & pronoun$(holdcnt - 2) & Chr(13) & PRONCASE$(holdcnt - 1) & " " & pronoun$(holdcnt - 1) & Chr(13) & PRONCASE$(holdcnt) & " " & pronoun$(holdcnt), Title:="pronon case"

3970 X = 11

3980 Y = 25

4000 If holdcnt = 60 Then GoTo 4030

4010 NO$ = InputBox(prompt:=" enter ok ")

4020 If NO$ <> "ok" Then GoTo 3900

4030 holdcnt = 0

4050 X = 18

4060 Y = 10

4080 obj$ = InputBox(prompt:="pronoun object:")

4090 GoTo 2790

4100 Y = 25

4110 X = 5

4160 For v = 1 To 5

4170 holdcnt = holdcnt + 1

4180 X = 5 + v

4190 Y = 25

4200 Next v

4210 MsgBox HOLDCASE$(holdcnt - 4) & " " & HOLDPREP$(holdcnt - 4) & Chr(13) & HOLDCASE$(holdcnt - 3) & " " & HOLDPREP$(holdcnt - 3) & Chr(13) & HOLDCASE$(holdcnt - 2) & " " & HOLDPREP$(holdcnt - 2) & Chr(13) & HOLDCASE$(holdcnt - 1) & " " & HOLDPREP$(holdcnt - 1) & Chr(13) & HOLDCASE$(holdcnt) & " " & HOLDPREP$(holdcnt)

4230 X = 11

4240 Y = 25

4260 If holdcnt >= 90 Then GoTo 4290

4270 YES$ = InputBox(prompt:="enter ok:")

4280 If YES$ = "" Then GoTo 4100

4290 holdcnt = 0

4310 GoTo 2180

End Sub