Files
tsvm/assets/tri.bas
2020-11-27 16:55:36 +09:00

8 lines
113 B
QBasic

10 FOR I = 1 TO 20
20 PRINT SPC(20-I);
30 FOR J = 1 TO I*2
40 PRINT "*";
50 NEXT
60 PRINT ""
70 NEXT