RE: need help debugging old school BASIC program

10 rem hanshan
20 gosub 250 : rem initialize
30 rem choose pattern
40 r = int(rnd(1)*3)+1
50 on r gosub 90,140,190
60 for t = 1 to 2500 : next t
70 print : print : print
80 goto 40
90 rem ** pattern one **
100 color 14 : print w$(int(rnd(1)*20+1));"...";w$(int(rnd(1)*20+1))
110 print tab (5);"...";w$(int(rnd(1)*20+1))
120 print tab (8);s$(int(rnd(1)*20+1))
130 return
140 rem ** pattern two **
150 color 10 : print s$(rnd(1)*20+1))
160 print tab (3);s$(int(rnd(1)*20+1));"..."
170 print tab (6);s$(int(rnd(1)*20+1))
180 return
190 rem ** pattern three **
200 color 15 : print tab (3);w$(int(rnd(1)*20+1))
210 print s$(int(rnd(1)*20+1))
220 print tab (3);w$(int(rnd(1)*20+1));",";s$(int(rnd(1)*20+1))
230 return
240 rem ****************
250 rem initialization
260 width 40
270 randomize val(right$(time$,2))
280 dim w$(20),s$(20)
290 for j = 1 to 20
300 read w$(j)
310 next j
320 for j = 1 to 20
330 read s$(j)
340 next j
350 return
360 rem ** data **
370 rem ** single words **
380 data "scurrying","trading","gazing","withered","chiselled"
390 data "muffled","flanked","writhed","bending","twisting"
400 data "hammered","hanging","winding","clearest","weary"
410 data "earthworld","cataract","sacrificial","slippery","assunder"
420 rem ** short phrases **
430 data "in" "the" "cool" "stream"
440 data "nodded in clustered grace"
450 data "waves" "of" "coolness"
460 data "out from the deepest"
470 data "sullen","sullen"
480 data "in the black darkness"
490 data "i take your poems"
500 data "i put out the lamp"
510 data "my short span runs out"
520 data "those that are left"
530 data "men or learning"
540 data "men of action"
550 data "i hurry forward"
560 data "why should you waste"
570 data "when shall we meet"
580 data "little sleeping"
590 data "and much grieving"
600 data "for thos few steps"
610 data "now at dusk"
620 data "i have done with profit"