10 DIM P(10),C(10),A$(1)
100 PRINT "========================================"
105 PRINT
110 TAB(12):PRINT "PASCAL'S TRIANGLE"
115 TAB(12):PRINT "BY LANDON J SMITH"
120 PRINT
125 PRINT "========================================"
130 PRINT
140 INPUT "ROWS (1-10)", N
150 IF N<1 THEN 140
160 IF N>10 THEN 140
170 FOR I=1 TO N
180 C(1)=1
190 C(I)=1
200 IF I<3 THEN 240
210 FOR J=2 TO I-1
220 C(J)=P(J-1)+P(J)
230 NEXT J
240 L=(N-I)*2
250 FOR J=1 TO I
260 TAB(L+(J-1)*4+1):PRINT C(J);
270 NEXT J
280 PRINT
290 FOR J=1 TO I
300 P(J)=C(J)
310 NEXT J
320 NEXT I
330 PRINT
340 PRINT "========================================"
350 PRINT
360 INPUT "AGAIN (Y/N)", A$
370 IF A$="Y" THEN 100
380 END