Files
tsvm/assets/disk0/home/basic/oldtri.bas
2020-12-28 11:18:13 +09:00

8 lines
96 B
QBasic

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