280 PRINT "WHAT ARE YOUR LENGTH AND WIDTH (E. G. 13,10)"; 290 INPUT R9,C9 300 DIM W(25,23),V(25,23) 305 DIM D(10) 310 LET N9=R9*C9 320 FOR Q=1 TO R9 321 FOR Z=1 TO C9 322 LET W(Q,Z)=0 323 LET V(Q,Z)=0 324 NEXT Z 325 NEXT Q 340 LET B=0 360 LET F=INT(RND(B)*C9+1) 370 PRINT 380 FOR C=1 TO C9 390 IF C=FGO TO 420 400 PRINT ":--"; 410 GO TO 430 420 PRINT ": "; 430 NEXT C 440 PRINT ":" 450 LET R=1 460 LET C=F 470 LET N=1 480 LET W(R,C)=N 580 LET D=0 600 IF C=1GO TO 650 610 IF W(R,C-1)>0GO TO 650 620 LET D=D+1 630 LET D(D)=1 650 IF C=C9GO TO 700 660 IF W(R,C+1)>0GO TO 750 670 LET D=D+1 680 LET D(D)=2 700 IF R=1GO TO 750 710 IF W(R-1,C)>0GO TO 750 720 LET D=D+1 730 LET D(D)=3 750 IF R0GO TO 820 790 LET D=D+1 800 LET D(D)=4 820 IF D=0GO TO 1100 830 LET X=INT(D*RND(X)+1) 840 IF D(X)=4GO TO 980 841 IF D(X)=3GO TO 940 842 IF D(X)=2GO TO 900 860 LET C=C-1 870 LET V(R,C)=2 880 GO TO 1040 900 LET V(R,C)=V(R,C)+2 910 LET C=C+1 920 GO TO 1040 940 LET R=R-1 950 LET V(R,C)=1 960 GO TO 1040 980 LET V(R,C)=V(R,C)+1 990 LET R=R+1 1000 IF R<=R9GO TO 1040 1010 LET B=1 1020 GO TO 1140 1040 LET N=N+1 1050 LET W(R,C)=N 1060 IF N0GO TO 580 1170 GO TO 1100 1190 FOR R=1 TO R9 1200 PRINT "I"; 1210 FOR C=1 TO C9 1220 IF V(R,C)<2GO TO 1250 1230 PRINT " "; 1240 GO TO 1260 1250 PRINT " I"; 1260 NEXT C 1270 PRINT 1280 FOR C=1 TO C9 1290 IF V(R,C)/2=INT(V(R,C)/2)GO TO 1320 1300 PRINT ": "; 1310 GO TO 1330 1320 PRINT ":--"; 1330 NEXT C 1340 PRINT ":" 1360 NEXT R 1370 STOP 9999 END