// โปรแกรมพิมพ์ชื่อตนเอง 10 ครั้ง บนพื้นแดง มีเงาสีดำ ตัวอักษรสีขาว
set color to "n/b"
cls
@0,0 to 24,79
set color to "/n"
@ 5,7 clear to 18,60
set color to "w/r"
@ 4,5 clear to 17,58
for n = 1 to 10
   @5+n,20 say "ning"
next
inkey(0)