'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
DECLARE SUB unidad (h!, v!, t!, c!)
DECLARE SUB disquete (h!, v!, t!, cf!, ce!, f!)

SCREEN 12
FOR a = 4 TO 14 STEP 2
   c = (a * 10) + c - 12
   disquete 1 + c, 100 - (a * 5), a, a, a - 1, 0
NEXT

c = 0

FOR a = 4 TO 14 STEP 2
   c = (a * 9.8) + c - 12
   unidad 1 + c, 200 + (c / 2), a, 15
NEXT

c = 0
FOR a = 4 TO 14 STEP 2
   c = (a * 9.8) + c - 12
   unidad 1 + c, 426 - (c / 2), a, 7
NEXT
SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
'             DIBUJA EN LA PANTALLA UN DISQUETTE DE 3.5"
'
'         h/v......Posici¢n de la esquina superior izquierda
'         t........Tama¤o (1t = 10 pixels)
'         cf.......Color del disquette
'         ce.......Color de las lineas de la etiqueta
'         f........Color del fondo donde va a ir el disquette
'
SUB disquete (h, v, t, cf, ce, f)

LINE (h, v)-(h + (t * 10), v + (t * 10)), cf, BF
LINE (h + (t * 2), v)-(h + (t * 8), v + (t * 3.6)), 7, BF
LINE (h + (t * 5.8), v + (.5 * t))-(h + (t * 7), v + (t * 3.3)), cf, BF
LINE (h + t, v + (t * 4.5))-(h + (t * 9), v + (t * 10)), 15, BF
FOR a = v + (t * 5.3) TO v + (t * 9.3) STEP t
   LINE (h + (t * 1.5), a)-(h + (8.5 * t), a), ce
NEXT
LINE (h + (.2 * t), v + (9 * t))-(h + (.7 * t), v + (9.3 * t)), 0, BF
LINE (h + (9.3 * t), v + (9 * t))-(h + (9.8 * t), v + (9.3 * t)), 0, BF
FOR a = 0 TO t / 2
   LINE (h + (10 * t), v + a)-(h + (10 * t) - ((t / 2) - a), v + a), f
NEXT
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'               
'       DIBUJA EN LA PANTALLA UNA UNIDAD DE DISCO DE 3.5"
'
'       h/v.....Posici¢n esquina superior izquierda
'       t.......Tama¤o ( = SUB "disquete" )
'       c.......Color (Normalmente 15 ¢ 7 )
'
SUB unidad (h, v, t, c)
LINE (h, v)-(h + t * 12, v + t * 3), c, BF

LINE (h + (3.8 * t), v + (.2 * t))-(h + (8.2 * t), v + (2.7 * t)), c, BF
LINE (h + (3.8 * t), v + (.2 * t))-(h + (8.2 * t), v + (2.7 * t)), 8, B

LINE (h + (3.8 * t), v + (.6 * t))-(h + (8.2 * t), v + (1.5 * t)), 8, B

LINE (h + (.8 * t), v + (.6 * t))-(h + (11.4 * t), v + 1.4 * t), c, BF
LINE (h + (.8 * t), v + (.6 * t))-(h + (11.4 * t), v + 1.4 * t), 8, B

LINE (h + t + t, v + t + t)-(h + (2.7 * t), v + (2.4 * t)), 10, BF
LINE (h + t + t, v + t + t)-(h + (2.7 * t), v + (2.4 * t)), 2, B

LINE (h + (9 * t), v + (1.8 * t))-(h + (11 * t), v + (2.7 * t)), 8, B
END SUB