' ' © 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