12 lines
285 B
QBasic
12 lines
285 B
QBasic
|
10 REM Diamond pattern using STRING$ and SPACE$
|
||
|
|
20 N% = 7
|
||
|
|
30 REM Top half
|
||
|
|
40 FOR I = 1 TO N%
|
||
|
|
50 PRINT SPACE$(N% - I); STRING$(2 * I - 1, "*")
|
||
|
|
60 NEXT I
|
||
|
|
70 REM Bottom half
|
||
|
|
80 FOR I = N% - 1 TO 1 STEP -1
|
||
|
|
90 PRINT SPACE$(N% - I); STRING$(2 * I - 1, "*")
|
||
|
|
100 NEXT I
|
||
|
|
110 PRINT "Diamond OK"
|