Ing. Alejandro A. Hassey (C) 2000-2008 kk22 = 2 - 1 Pi = 3.1415926# c7 = 14 - 14: c14 = 14: K4 = 14: c300 = 4: c100 = 13 k15 = 0: kk15 = 15 K10 = 10 GOSUB minutero GOSUB para GOSUB minuterox: REM igual Horario 'GOSUB horario GOSUB para GOSUB rubrica GOSUB para GOSUB ss GOSUB para GOSUB H24 GOSUB para END minutero: u0 = 1: u1 = 2 ex = kk22: ey = kk22 REM SCREEN 9 , 1 SCREEN 9, 1 kien = 50 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) PAINT (0, 0), 15, 15 c5 = 4 + 7 'cuerpo '''LINE (-c5, 90)-(c5, -20), 0, B 'LINE (-c5, -20)-(c5, -20), 0 ''LINE (0, 90)-(c5, -70), 0 ''LINE (0, 90)-(-c5, -70), 0 ''LINE (-c5, 20)-(-c5, -70), 0 'tip LINE (-c5, 0)-(0, 100), u0 LINE (c5, 0)-(0, 100), u0 LINE (-c5, 0)-(0, -25), u0 LINE (c5, 0)-(0, -25), u0 LINE (-c5 + 4, 0)-(0, 78), u0 LINE (c5 - 4, 0)-(0, 78), u0 LINE (-c5 + 4, 0 + 4)-(c5 - 4, 0 + 4), u0 ''LINE (c5-4, 0)-(0, -40), 0 ''LINE (-c5 + .5, 90)-(c5 - .5, 90), 15 'centro CIRCLE (0, 0), 2, u0 PSET (0, 0), u0 'limite fosforecencia ''''LINE (-c5 + 2, 90)-(c5 - 2, 20), 0, B 'pinta ORO ''''''PAINT (0, 95), 0, 0 'pinta fosforescencia ''''''''''PAINT (0, 50), 10, 0 CIRCLE (-c5, 100), 2, u1 PAINT (-c5, 100), u1, u1 CIRCLE (c5, -100), 2, u1 PAINT (c5, -100), u1, u1 PSET (-c5, 100), 15 PSET (c5, -100), 15 PAINT (0, -10), u0, u0 RETURN minuterox: ex = kk22: ey = kk22 SCREEN 9, 1 kien = 50 + 50 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) PAINT (0, 0), 15, 15 c5 = 4 + 7 'cuerpo 'tip LINE (-c5, 0)-(0, 100 - 20), u0 LINE (c5, 0)-(0, 100 - 20), u0 LINE (-c5, 0)-(0, -20), u0 LINE (c5, 0)-(0, -20), u0 LINE (-c5 + 4, 0)-(0, 78 - 20), u0 LINE (c5 - 4, 0)-(0, 78 - 20), u0 LINE (-c5 + 4, 0 + 4)-(c5 - 4, 0 + 4), u0 ''LINE (c5-4, 0)-(0, -40), u0 ''LINE (-c5 + .5, 90)-(c5 - .5, 90), 15 'centro CIRCLE (0, 0), 2, u0 PSET (0, 0), 4 'limite fosforecencia ''''LINE (-c5 + 2, 90)-(c5 - 2, 20), 0, B 'pinta ORO ''''''PAINT (0, 95), 0, 0 'pinta fosforescencia ''''''''''PAINT (0, 50), 10, 0 CIRCLE (-c5, 100), 2, u1 PAINT (-c5, 100), u1, u1 CIRCLE (c5, -100), 2, u1 PAINT (c5, -100), u1, u1 PSET (-c5, 100), 15 PSET (c5, -100), 15 PAINT (0, -10), u0, u0 RETURN horario: kien = 100 ex = kk22: ey = kk22 SCREEN 9, 1 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) 'cuerpo LINE (-c5, 70)-(c5, -20), 0, B 'LINE (-c5, -20)-(c5, -20), 0 'tip LINE (-c5, 70)-(0, 80), 0 LINE (c5, 70)-(0, 80), 0 LINE (-c5 + .5, 70)-(c5 - .5, 70), 15 'centro CIRCLE (0, 0), 2, 0 PSET (0, 0), 4 'limite fosforecencia LINE (-c5 + 2, 70)-(c5 - 2, 20), 0, B 'pinta ORO ''''''''PAINT (0, 75), 0, 0 'pinta fosforescencia '''''''''PAINT (0, 50), 10, 0 CIRCLE (-5, 80), 2, 1 PAINT (-5, 80), 1, 1 CIRCLE (5, -80), 2, 1 PAINT (5, -80), 1, 1 PSET (-5, 80), 15 PSET (5, -80), 15 RETURN rubrica: c3 = 3 c10 = 10 c14 = 4 'C7 = 7 REM Colores del Logotipo kk3 = 0: kk4 = 0 kk3 = 3: kk4 = 13 ' ahasseye rss = 76 a$ = "AMCMCKAKALELENEKELGLGKIKIIGIGJLJLKJKJLLLNLNMLMLNQNQOOOOMQMQLSLSMSJSLWLWMUMUKWK" Pi = 3.1415926#: CUARENTA = 40 - 25 PIS = Pi / 180 REM Alejandro A. Hassey (C) 1999 DIM x(100), Y(100), xx(100), yy(100) SCREEN 9, 1 escala = 1: e = escala: factor = 3 ex = kk22: ey = kk22 kien = -200 + 200 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) 'PAINT (0, 0), 15, 15 'LINE (-13, 100)-(13, -100), 0, BF factor = 4 ZW$ = a$ ss = rss ii = 1 FOR i = 1 TO 78 STEP 2 ax$ = MID$(ZW$, i, 1) ay$ = MID$(ZW$, i + 1, 1) Y(ii) = ASC(MID$(ax$, 1, 1)) - ss x(ii) = ASC(MID$(ay$, 1, 1)) - ss x(ii) = -x(ii) * factor Y(ii) = Y(ii) * factor ii = ii + 1 NEXT i TI: 'CLS FOR i = 1 TO 19 LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), kk3 LINE (x(i) + 1 / 2, Y(i) + 1 / 2)-(x(i + 1) + 1 / 2, Y(i + 1) + 1 / 2), kk3 LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk3 LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk3 LINE (x(i) + 1, Y(i) + 1)-(x(i + 1) + 1, Y(i + 1) + 1), kk3 LINE (x(i) - 1, Y(i) - 1)-(x(i + 1) - 1, Y(i + 1) - 1), kk3 NEXT i FOR i = 20 TO 38 LINE (x(i), Y(i))-(x(i + 1), Y(i + 1)), kk4 LINE (x(i) + 1 / 2, Y(i) + 1 / 2)-(x(i + 1) + 1 / 2, Y(i + 1) + 1 / 2), kk4 LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk4 LINE (x(i) - 1 / 2, Y(i) - 1 / 2)-(x(i + 1) - 1 / 2, Y(i + 1) - 1 / 2), kk4 LINE (x(i) + 1, Y(i) + 1)-(x(i + 1) + 1, Y(i + 1) + 1), kk4 LINE (x(i) - 1, Y(i) - 1)-(x(i + 1) - 1, Y(i + 1) - 1), kk4 NEXT i CIRCLE (0, 0), 2, 7 PAINT (0, 0), 15, 7 PSET (0, 0), 0 CIRCLE (0, 80), 2, 4 PAINT (0, 80), 10, 4 LINE (0, 97)-(0, 82), 4 'LINE (-1, 97)-(-1, 82), 14 'LINE (1, 97)-(1, 82), 14 'LINE (-1, 97)-(1, 82), 14, BF LINE (0, 100)-(-2, 97), c14 LINE (0, 100)-(2, 97), c14 LINE (-2, 97)-(2, 97), c14 PAINT (0, 98), 10, c14 LINE (0, 78)-(0, 50), c14 LINE (0, -50)-(0, -100), 4 'LINE (-1, -50)-(-1, -100), 0 'LINE (1, -50)-(1, -100), 0 'LINE (-1, -50)-(1, -50), 0 LINE (-2, -70)-(2, -80), 2, BF LINE (-2, -80)-(2, -90), 7, BF LINE (-2, -90)-(2, -100), 4, BF LINE (-2, -70)-(2, -100), 0, B LINE (-2, -70)-(2, -80), 14, B LINE (-2, -80)-(2, -90), 14, B LINE (-2, -90)-(2, -100), 14, B PSET (-13, 100), k15 PSET (13, -100), k15 CIRCLE (-13, 100), 2, u1 CIRCLE (13, -100), 2, u1 PAINT (-13, 100), u1, u1 PAINT (13, -100), u1, u1 PSET (-13, 100), 15 PSET (13, -100), 15 RETURN para: 1 : kk$ = INKEY$ IF kk$ = "" THEN GOTO 1 RETURN ss: kkolor(1) = 10 kkolor(2) = 13 kkolor(3) = 4 FOR kien = 150 TO 250 STEP 50 cc14 = cc14 + 1 ex = kk22: ey = kk22 SCREEN 9, 1 'kien = 150 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) REM Markas Circulares AZul CIRCLE (-5, 11 + 6), 1, u1 PAINT (-5, 11 + 6), u1, u1 PSET (-5, 11 + 6), 15 CIRCLE (5, -11 - 6), 1, u1 PAINT (5, -11 - 6), u1, u1 PSET (5, -11 - 6), 15 z10 = 15 + 2 c14 = 0 c14 = u0 v3 = 3 LINE (0, z10)-(-v3, 0), c14 LINE (0, z10)-(v3, 0), c14 LINE (0, -5)-(-v3, 0), c14 LINE (0, -5)-(v3, 0), c14 PAINT (0, 7), u0, c14 c14 = u0 LINE (0, 6 + 5)-(-2, 0), c14 LINE (0, 6 + 5)-(2, 0), c14 LINE (-2, 0)-(2, 0), c14 PAINT (0, 3), 15, u0 c14 = 0 c14 = 4 LINE (0, 6 + 5)-(-2, 0), c14 LINE (0, 6 + 5)-(2, 0), c14 LINE (-2, 0)-(2, 0), c14 PAINT (0, 3), 15, c14 c14 = u0 LINE (0, 6 + 5)-(-2, 0), c14 LINE (0, 6 + 5)-(2, 0), c14 LINE (-2, 0)-(2, 0), c14 CIRCLE (0, 0), 1, u0 PAINT (0, 0), 15, u0 CIRCLE (0, 0), 1, u0 PSET (0, 0), 4 NEXT kien RETURN H24: ex = kk22: ey = kk22 kien = 300 SCREEN 9, 1 'kien = 150 WINDOW ((-320 - kien) / ex, (240 - cien) / ey)-((320 - kien) / ex, (-240 - cien) / ey) CIRCLE (-5, 110), 1, 1 PAINT (-5, 110), 1, 1 CIRCLE (5, -110), 1, 1 PAINT (5, -110), 1, 1 LINE (-3, 108)-(3, 108), 0 LINE (3, 108)-(0, 102), 0 LINE (0, 102)-(-3, 108), 0 PAINT (0, 105), 10, 0 LINE (-3, 96)-(3, 96), 0 LINE (3, 96)-(0, 102), 0 LINE (0, 102)-(-3, 96), 0 PAINT (0, 98), 13, 0 CIRCLE (0, 0), 2, 0 PAINT (0, 0), 15, 0 PSET (0, 0), 0 RETURN