include "inc/cmdsys.plh"
include "inc/conio.plh"

byte i, j

conio:home()
for i = 1 to 13
  for j = 1 to i
    conio:gotoxy(j+4,  i);    putc('*')
    conio:gotoxy(14-j, i);    putc('*')
    conio:gotoxy(j+4,  18-i); putc('*')
    conio:gotoxy(14-j, 18-i); putc('*')
  next
next
conio:gotoxy(0,20)