1 REM Sierpinski's Triangle 2 LET N:32, X:0, Y:N-1 3 CLS 11 LET I:0, X:0 12 PRINT " "; 13 LET I:I+1 14 IF I<Y GOTO 12 16 PRINT #X&Y=0*$a+$20 " "; 17 LET X:X+1 18 IF X+Y<N GOTO 16 19 PRINT "" 29 LET Y:Y-1 30 IF Y GOTO 11 31 END
