Bermain Bintang Turbo Basic

Code Source :

CLS
FOR C=1 TO 5
FOR D= 1 TO C
LOCATE C,1+D
PRINT "*"
NEXT D
NEXT C

Hasilnya adalah :

*
**
***
****
*****

Code Source :

CLS
FOR C=1 TO 5
FOR D= 5 TO C step -1
LOCATE C,1+D
PRINT "*"
NEXT D
NEXT C

Hasilnya adalah :

*****
****
***
**
*

Code Source :

CLS
FOR C=1 to 5
FOR D= 1 TO 6-c
LOCATE C,D
PRINT "*"
NEXT D
NEXT C

Hasilnya adalah :

*****
****
***
**
*

Code Source :

CLS
FOR C=1 to 5
FOR D= 5 TO 6-c step -1
LOCATE C,D
PRINT "*"
delay 0.09
NEXT D
NEXT C

Hasilnya adalah :

*
**
***
****
*****