'* Fractri.pas -fractal triangle
'*
'* Justin Keswick
'* Qbasic Developer
'* Business Consultant
'* 89 Beachview Crescent
'* Toronto, Ontario
'* cell 416-707-8904
'* home 416-691-9956
'* email jkeswick@interlog.com
'* website www.interlog.com/~jkeswick
'*
'* If you require services, please call today.


DEFDBL A-Z

CONST P1X = 1
CONST P1Y = 1
CONST P2X = 630
CONST P2Y = 1
CONST P3X = 315
CONST P3Y = 470

SCREEN 12
RANDOMIZE TIMER
  
   CIRCLE (P1X, P1Y), .5
   CIRCLE (P2X, P2Y), .5
   CIRCLE (P3X, P3Y), .5
  
   X = P3X
   Y = P3Y
  
   DO
     
      Pn = 1 + INT(3 * RND)

      SELECT CASE Pn
      CASE 1
         X = (P1X + X) / 2
         Y = (P1Y + Y) / 2
      CASE 2
         X = (P2X + X) / 2
         Y = (P2Y + Y) / 2
      CASE 3
         X = (P3X + X) / 2
         Y = (P3Y + Y) / 2
      END SELECT

      COLOR (1 + INT(RND * 15)): PSET (X, Y)
  
   LOOP UNTIL INKEY$ = CHR$(27)
END