12 lines
223 B
Text
12 lines
223 B
Text
100 PROGRAM "PascalTr.bas"
|
|
110 TEXT 80
|
|
120 LET ROW=12
|
|
130 FOR I=0 TO ROW
|
|
140 LET C=1
|
|
150 PRINT TAB(37-I*3);
|
|
160 FOR K=0 TO I
|
|
170 PRINT USING " #### ":C;
|
|
180 LET C=C*(I-K)/(K+1)
|
|
190 NEXT
|
|
200 PRINT
|
|
210 NEXT
|