' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' CHIPS DECLARE SUB chip (H!, v!, L!, a!) SCREEN 12 chip 200, 300, 30, 20 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' CHIP TIPO SUPAPLEX ' ' H, V ... POSICION EN PIXELS ' L, A ... LARGO Y ALTO NUMERO DE PATILLAS ' ' SUB chip (H, v, L, a) IF L = 0 THEN L = 4 FOR n = 1 TO a LINE (H + 1, v + n + n + 2)-STEP(L + L + 4, 0), 14 PSET STEP(1, 0), 6 PSET (H, v + n + n + 2), 15 NEXT IF a = 0 THEN a = 4 FOR n = 1 TO L LINE (H + n + n + 2, v + 1)-STEP(0, a + a + 4), 14 PSET STEP(0, 1), 6 PSET (H + n + n + 2, v), 15 NEXT PSET (H + L + L + 4, v + 2), 0 aa$ = STR$((a * 2) + 2) ll$ = STR$((L * 2) + 2) DRAW "d" + aa$ + "l" + ll$ + "c7u" + aa$ + "r" + ll$ LINE (H + 3, v + 3)-STEP(L + L, a + a), 8, BF END SUB