'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB ficha (h!, v!, d!, ia!, db!)
DIM SHARED punto$(0 TO 6)
punto$(0) = "000000000"
punto$(1) = "000010000"
punto$(2) = "100000001"
punto$(3) = "100010001"
punto$(4) = "101000101"
punto$(5) = "101010101"
punto$(6) = "101101101"

SCREEN 12
FOR h = 20 TO 620 STEP 30
   ficha h, 100, 1, INT(RND * 7), INT(RND * 7)
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB ficha (h, v, d, ia, db)

LINE (h - 12, v - 26)-(h + 12, v + 26), 15, BF
LINE (h - 10, v)-(h + 10, v), 0
CIRCLE (h, v), 2, 6: PAINT (h, v), 14, 6

n = 0
FOR vv = 1 TO 3
   FOR hh = 1 TO 3
      n = n + 1
      IF MID$(punto$(ia), n, 1) = "1" THEN CIRCLE (h - 16 + hh * 8, v - 30 + vv * 8), 2, 0: PAINT (h - 16 + hh * 8, v - 30 + vv * 8), 0, 0
      IF MID$(punto$(db), n, 1) = "1" THEN CIRCLE (h - 16 + hh * 8, v - 2 + vv * 8), 2, 0: PAINT (h - 16 + hh * 8, v - 2 + vv * 8), 0, 0
   NEXT
NEXT
END SUB