'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                  
DECLARE SUB loseta (n!)
SCREEN 12
RANDOMIZE TIMER

FOR h = 240 TO 480 STEP 40
   LINE (h + 150, 90)-(h - 210, 450), 1
NEXT

PAINT (1, 1), 11, 1
FOR v = 90 TO 460 STEP 30
   LINE (480 - v, v)-(720 - v, v), 1
NEXT
PAINT (1, 1), 0, 1
LINE (30, 450)-(270, 475), 7, BF
LINE (30, 450)-(270, 475), 1, B
LINE (270, 475)-(630, 115), 1
LINE (630, 115)-(630, 90), 1
PAINT (625, 115), 8, 1

DO
   FOR delay = 1 TO 1000: NEXT
   loseta INT(RND * 72) + 1
LOOP WHILE INKEY$ = ""

SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                  
SUB loseta (n) STATIC
p = 0
h = 350
v = 90
hh = 590

DO
   p = p + 1
   h = h + 40
   IF h > hh THEN : h = h - 270: v = v + 30: hh = h + 200
LOOP UNTIL p = n

LINE (h, v)-(h, v + 25), 1
DRAW "c1ng5r15"
PAINT (h, v + 27), 0, 1
PAINT (h + 5, v + 20), 7, 1
PAINT (h - 5, v + 20), 8, 1

END SUB