rem Programa ejecutable en Turbo Basic
screen 12 '639x479 vga=12, acepta: 0,1,2,7,8,9,11,12
call dos
call uno
end

sub dos
 r=0
 c=14
 for y=0 to 450 step 52
  for x=0 to 580 step 52
   line(x,y)-(x+50,y),c
   line-(x+50,y+50),c
   line-(x,y+50),c
   line-(x,y),c
   paint(x+2,y+2),r,c
   r=r+1
  next x
 next y
end sub

sub uno
 locate 15,39
 print "Hola"
 locate 16,38
 print "Amigos"
 for x=0 to 15
  color 14,x   'texto,fondo
  delay 0.5
 next x
 for a=1 to 15
  line(0,0)-(639,479),a
  line(0,479)-(639,0),a-14
  delay 0.1
 next a
end sub