REM MODIFICACION DEL PROGRAMA FECHA 20/7/07. 100 REM INTRODUCCION CLS COLOR 2, 9 PRINT "********** ********** **** ************ ****** " PRINT "********** ********** ******** ********** ******** " PRINT "********** ********** **** **** ******** **** **** " PRINT "********** ********** **** **** ****** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** **** **** " PRINT " ****************** **** **** **** ****************** " PRINT " ****************** **** **** **** ****************** " PRINT " ****************** **** **** **** ****************** " PRINT " **** **** **** **** **** **** **** " PRINT " **** **** **** **** **** *** **** " PRINT " **** **** **** **** **** *** * **** " PRINT " **** **** **** **** **** *** ** **** " PRINT " **** **** **** **** * **** *** *** **** " PRINT " **** **** **** **** ** **** *** **** **** " PRINT "********** ********** **** **** ****************** ****** " PRINT "********** ********** **** **** ****************** ******** " PRINT "********** ********** ******** ****************** ********** " PRINT "********** ********** **** ****************** ************" SLEEP 3 REM SELECCION DE PROGRAMA: 150 REM ========================================================================== REM SELECCION DEL PROGRAMA A EJECUTAR GOSUB 1000 COLOR 10, 9 LOCATE 4, 45: PRINT "PROGRAMA N§ 1" LOCATE 6, 45: PRINT "PROGRAMA N§ 2" LOCATE 4, 64: PRINT "PROGRAMA N§ 3" LOCATE 6, 64: PRINT "PROGRAMA N§ 4" COLOR 15, 9 LOCATE 8, 50: INPUT "ELIGE UN PROGRAMA"; M IF M = 1 THEN 200 IF M = 2 THEN 300 IF M = 3 THEN 1100 IF M = 4 THEN 500 ELSE GOTO 150 LOCATE 8, 67: PRINT M$ REM PROGRAMA 1.................. REM COMIENZA EL ROGRAMA CON TODAS LAS SALIDAS ENCENDIDAS, SE VAN REM APAGANDO PROGRESIVAMENTE UNA TRAS OTRA 200 REM 1-------------------------------------------------- GOSUB 1000 COLOR 15, 9 LOCATE 4, 4: PRINT " PROGRAMA N§1" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 10, 48: PRINT "ELEGIDO EL PROGRAMA N§ 1" LOCATE 12, 46: PRINT "Todas las salidas encendidas" LOCATE 13, 46: PRINT "se van apagando progresivamente" LOCATE 14, 46: PRINT "una tras otra comenzando " LOCATE 15, 46: PRINT " por la n§1" LOCATE 16, 44: PRINT "_________________________________" LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO" LOCATE 18, 55: INPUT "Aceptas "; N$ IF N$ = "S" THEN 250 ELSE GOTO 150 250 LOCATE 18, 46: PRINT " " LOCATE 12, 46: PRINT " " LOCATE 13, 46: PRINT " " LOCATE 14, 46: PRINT " " LOCATE 15, 46: PRINT " " LOCATE 12, 46: PRINT " ESCRIBE EL N§ DE CICLOS " LOCATE 12, 71: INPUT ""; Z LOCATE 12, 46: PRINT " " LOCATE 20, 46: PRINT " " LOCATE 4, 45: PRINT "PROGRAMA N§ 1" FOR ZZ = 1 TO Z LOCATE 4, 4: PRINT " PROGRAMA N§1" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 6, 50: PRINT "CICLOS N§": LOCATE 6, 66: PRINT ZZ LOCATE 6, 69: PRINT "DE"; Z FOR A = 1 TO 100000 LPRINT CHR$(255); COLOR 10, 9 NEXT A LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT "ENCENDIDA" LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT "ENCENDIDA" LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT "ENCENDIDA" LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT "ENCENDIDA" LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT "ENCENDIDA" LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT "ENCENDIDA" LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT "ENCENDIDA" LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT "ENCENDIDA" SLEEP 3 LPRINT CHR$(0); LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT " " LOCATE 6, 31: PRINT "APAGADA" REM-2-------------------------------------------------------- REM tiempo de iluminacion FOR B = 1 TO 100000 LPRINT CHR$(254); NEXT B LPRINT CHR$(0); LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT " " LOCATE 8, 31: PRINT "APAGADA" REM-4-------------------------------------------------------------------- FOR C = 1 TO 100000 LPRINT CHR$(252); NEXT C LPRINT CHR$(0); LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT " " LOCATE 10, 31: PRINT "APAGADA" REM-5--------------------------------------------------------------------- FOR dc = 1 TO 100000 LPRINT CHR$(248); NEXT dc LPRINT CHR$(0); LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT " " LOCATE 12, 31: PRINT "APAGADA" REM-6--------------------------------------------------------------------- FOR D = 1 TO 100000 LPRINT CHR$(240); NEXT D LPRINT CHR$(0); LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT " " LOCATE 16, 31: PRINT "APAGADA" REM tiempo de iluminacion REM-7--------------------------------------------------------------------- FOR E = 1 TO 100000 LPRINT CHR$(224); NEXT E LPRINT CHR$(0); LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT " " LOCATE 18, 31: PRINT "APAGADA" REM-8--------------------------------------------------------------------- FOR F = 1 TO 100000 LPRINT CHR$(192); NEXT F LPRINT CHR$(0); LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT " " LOCATE 20, 31: PRINT "APAGADA" REM-9--------------------------------------------------------------------- FOR G = 1 TO 100000 LPRINT CHR$(128); NEXT G LPRINT CHR$(0); LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT " " LOCATE 22, 31: PRINT "APAGADA" REM-10--------------------------------------------------------------------- FOR Gg = 1 TO 100000 LPRINT CHR$(0); NEXT Gg LPRINT CHR$(0); CLS GOSUB 1000 COLOR 10, 9 LOCATE 4, 45: PRINT "PROGRAMA N§ 1" SLEEP 2 NEXT ZZ LOCATE 16, 50: PRINT "PROCESO FINALIZADO" SLEEP 4 GOTO 150 END REM========================================================================== REM ***********************PROGRAMA 2************************************** 300 REM COMIENZA EL PROGRAMA CON TODAS LAS SALIDAS APAGADAS REM SE ENCIENDEN DE DOS EN DOS APAGANDO LA ANTERIOR REM 1------------------------CABECERA-------------------------------------- GOSUB 1000 COLOR 15, 9 LOCATE 4, 4: PRINT " PROGRAMA N§2" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 10, 48: PRINT "ELEGIDO PROGRAMA N§ 2" LOCATE 12, 46: PRINT "Comienza el programa" LOCATE 13, 46: PRINT "con todas las salidas apagadas" LOCATE 14, 46: PRINT "se encienden de dos en dos" LOCATE 15, 46: PRINT "apagando la anterior" LOCATE 16, 44: PRINT "__________________________________" LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO" LOCATE 18, 53: INPUT "Aceptas"; N$ IF N$ = "S" THEN 350 ELSE GOTO 150 350 REM LOCATE 12, 48: PRINT "PROGRAMA N§ 2" LOCATE 4, 4: PRINT " PROGRAMA N§2" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 12, 46: PRINT " " LOCATE 13, 46: PRINT " " LOCATE 14, 46: PRINT " " LOCATE 15, 46: PRINT " " LOCATE 12, 46: PRINT "ESCRIBIR EL N§ DE CICLOS" LOCATE 12, 71: INPUT ""; ZA LOCATE 18, 46: PRINT " " LOCATE 20, 46: PRINT " " FOR X = 1 TO ZA LOCATE 12, 48: PRINT "PROGRAMA N§ 2" LOCATE 4, 4: PRINT " PROGRAMA N§2" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 8, 50: PRINT "CICLOS N§": LOCATE 8, 66: PRINT X: LOCATE 8, 69: PRINT "DE"; ZA LOCATE 10, 46: PRINT "Programa realizado por: " LOCATE 12, 46: PRINT "jbr belenes " LOCATE 4, 45: PRINT " " LOCATE 6, 45: PRINT "PROGRAMA N§ 2" FOR A = 1 TO 100000 COLOR 13, 9 LOCATE 4, 50: PRINT "CICLO N§ ": LOCATE 4, 66: PRINT X LPRINT CHR$(1); COLOR 10, 9 LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT "ENCENDIDA" NEXT A REM-2-------------------------------------------------------- REM tiempo de iluminacion FOR B = 1 TO 100000 LPRINT CHR$(3); LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT "ENCENDIDA" NEXT B LPRINT CHR$(0); LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT " " LOCATE 6, 31: PRINT "APAGADA" REM-4-------------------------------------------------------------------- FOR C = 1 TO 100000 LPRINT CHR$(6); LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT "ENCENDIDA" NEXT C LPRINT CHR$(0); LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT " " LOCATE 8, 31: PRINT "APAGADA" REM-5--------------------------------------------------------------------- FOR Z = 1 TO 100000 LPRINT CHR$(12); LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT "ENCENDIDA" NEXT Z LPRINT CHR$(0), LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT " " LOCATE 10, 31: PRINT "APAGADA" REM-6--------------------------------------------------------------------- FOR D = 1 TO 100000 LPRINT CHR$(24); LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT "ENCENDIDA" NEXT D LPRINT CHR$(0); LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT " " LOCATE 12, 31: PRINT "APAGADA" REM-7--------------------------------------------------------------------- FOR E = 1 TO 100000 LPRINT CHR$(48); LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT "ENCENDIDA" NEXT E LPRINT CHE$(0); LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT " " LOCATE 16, 31: PRINT "APAGADA" REM-8--------------------------------------------------------------------- FOR F = 1 TO 100000 LPRINT CHR$(96); LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT "ENCENDIDA" NEXT F LPRINT CHR$(0); LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT " " LOCATE 18, 31: PRINT "APAGADA" REM-9--------------------------------------------------------------------- FOR G = 1 TO 100000 LPRINT CHR$(192); LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT "ENCENDIDA" NEXT G LPRINT CHR$(0); LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT " " LOCATE 20, 31: PRINT "APAGADA" REM-10--------------------------------------------------------------------- FOR H = 1 TO 100000 LPRINT CHR$(129); NEXT H LPRINT CHR$(0); LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT " " LOCATE 22, 31: PRINT "APAGADA" SLEEP 2 CLS GOSUB 1000 COLOR 10, 9: LOCATE 4, 45: PRINT "PROGRAMA N§ 2" SLEEP 2 NEXT X LPRINT CHR$(0) LOCATE 16, 50: PRINT "PROCESO FINALIZADO" SLEEP 4 LOCATE 16, 50: PRINT " ADIOS " SLEEP 2 FOR M = 1 TO 20000 LPRINT CHR$(0); NEXT GOTO 150 END REM========================================================================== REM ***********************PROGRAMA 4************************************** 500 REM COMIENZA EL PROGRAMA CON TODAS LAS SALIDAS APAGADAS REM SE ENCIENDEN UNA A UNA DEJANDO LA ANTERIOR ENCENDIDA REM 1------------------------CABECERA-------------------------------------- GOSUB 1000 COLOR 15, 9 LOCATE 4, 4: PRINT " PROGRAMA N§ 4" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 10, 48: PRINT "ELEGIDO PROGRAMA N§ 4" LOCATE 12, 46: PRINT "Comienza el programa" LOCATE 13, 46: PRINT "con todas las salidas apagadas" LOCATE 14, 46: PRINT "se encienden de dos en dos" LOCATE 15, 46: PRINT "apagando la anterior" LOCATE 16, 44: PRINT "__________________________________" LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO" LOCATE 18, 53: INPUT "Aceptas"; N$ IF N$ = "S" THEN 550 550 REM LOCATE 12, 48: PRINT "PROGRAMA N§ 4" LOCATE 4, 4: PRINT " PROGRAMA N§ 4" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 12, 46: PRINT " " LOCATE 13, 46: PRINT " " LOCATE 14, 46: PRINT " " LOCATE 15, 46: PRINT " " LOCATE 12, 46: PRINT "ESCRIBIR EL N§ DE CICLOS" LOCATE 12, 71: INPUT ""; ZA LOCATE 18, 46: PRINT " " LOCATE 20, 46: PRINT " " FOR X = 1 TO ZA LOCATE 12, 48: PRINT "PROGRAMA N§ 4" LOCATE 4, 4: PRINT " PROGRAMA N§ 4" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 8, 50: PRINT "CICLOS N§": LOCATE 8, 66: PRINT X: LOCATE 8, 69: PRINT "DE"; ZA LOCATE 10, 46: PRINT "Programa realizado por: " LOCATE 12, 46: PRINT "jbr belenes " COLOR 10, 9 LOCATE 4, 45: PRINT " " LOCATE 6, 65: PRINT "PROGRAMA N§ 4" LOCATE 4, 50: PRINT "CICLO N§ ": LOCATE 4, 66: PRINT X COLOR 10, 9 600 REM 1------ FOR A = 1 TO 100000 LOCATE 6, 25: PRINT "ENCENDIDA" LPRINT CHR$(1); COLOR 10, 9 LOCATE 6, 4: PRINT "SALIDA 1......." NEXT A REM-2-------------------------------------------------------- FOR B = 1 TO 100000 LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 25: PRINT "ENCENDIDA" LPRINT CHR$(3); NEXT B REM-4-------------------------------------------------------------------- FOR C = 1 TO 100000 LPRINT CHR$(7); LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 25: PRINT "ENCENDIDA" NEXT C REM 5---------------------------------------------------------------- FOR D = 1 TO 100000 LPRINT CHR$(15); LOCATE 12, 4: PRINT "SALIDA 4......." LOCATE 10, 25: PRINT "ENCENDIDA" NEXT D REM-6--------------------------------------------------------------------- FOR E = 1 TO 100000 LPRINT CHR$(31); LOCATE 16, 4: PRINT "SALIDA 5......." LOCATE 12, 25: PRINT "ENCENDIDA" NEXT E REM-7--------------------------------------------------------------------- FOR F = 1 TO 100000 LPRINT CHR$(63); LOCATE 18, 4: PRINT "SALIDA 6......." LOCATE 16, 25: PRINT "ENCENDIDA" NEXT F REM-8--------------------------------------------------------------------- FOR G = 1 TO 100000 LPRINT CHR$(127); LOCATE 20, 4: PRINT "SALIDA 7......." LOCATE 18, 25: PRINT "ENCENDIDA" NEXT G REM-9--------------------------------------------------------------------- FOR H = 1 TO 100000 LPRINT CHR$(255); LOCATE 22, 4: PRINT "SALIDA 8......." LOCATE 20, 25: PRINT "ENCENDIDA" NEXT H REM-10--------------------------------------------------------------------- FOR I = 1 TO 100000 LPRINT CHR$(0); LOCATE 6, 22: PRINT "TODAS APAGADAS" LOCATE 8, 22: PRINT "TODAS APAGADAS" LOCATE 10, 22: PRINT "TODAS APAGADAS" LOCATE 12, 22: PRINT "TODAS APAGADAS" LOCATE 14, 22: PRINT "TODAS APAGADAS" LOCATE 16, 22: PRINT "TODAS APAGADAS" LOCATE 18, 22: PRINT "TODAS APAGADAS" LOCATE 20, 22: PRINT "TODAS APAGADAS" LOCATE 22, 22: PRINT "TODAS APAGADAS" NEXT I CLS GOSUB 1000 COLOR 10, 9: LOCATE 6, 66: PRINT "PROGRAMA N§ 4" NEXT X LOCATE 16, 50: PRINT "PROCESO FINALIZADO" SLEEP 2 LOCATE 16, 50: PRINT " ADIOS " SLEEP 2 GOTO 150 END REM======================================================================== 1000 REM *************** PANTALLA PRINCIPAL********************************** CLS COLOR 14, 9 LOCATE 22, 72: PRINT TIME$ LPRINT CHR$(0); LOCATE 1, 1: PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»" LOCATE 2, 1: PRINT "Ί Ί" LOCATE 3, 1: PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ" FOR A = 4 TO 22 LOCATE A, 1: PRINT "Ί Ί" NEXT A FOR A = 2 TO 79 LOCATE 5, A: PRINT "Δ" NEXT A FOR A = 2 TO 43 LOCATE 15, A: PRINT "Δ" NEXT A FOR A = 4 TO 22 LOCATE A, 20: PRINT "³" NEXT A FOR A = 4 TO 22 LOCATE A, 43: PRINT "Ί" NEXT A FOR A = 4 TO 7 LOCATE A, 62: PRINT "³" NEXT A FOR A = 2 TO 42 LOCATE 13, A: PRINT "Ν" NEXT A FOR A = 44 TO 79 LOCATE 7, A: PRINT "Ν" NEXT A FOR A = 44 TO 79 LOCATE 9, A: PRINT "Δ" NEXT A LOCATE 23, 1: PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ" LOCATE 2, 22: PRINT " PROGRAMA PARA BELEN CON T-9 CENTRONIC" LOCATE 22, 72: PRINT TIME$ SLEEP 1 RETURN END 1100 REM****************PROGRAMA N§ 3 ********************************+*********** GOSUB 1000 COLOR 10, 9 LOCATE 22, 72: PRINT TIME$ LOCATE 4, 64: PRINT "PROGRAMA N§ 3" COLOR 15, 9 LOCATE 4, 4: PRINT "PROGRAMA N§ 3" LOCATE 4, 22: PRINT "ACTIVO" LOCATE 10, 48: PRINT "ELEGIDO EL PROGRAMA N§ 3" LOCATE 11, 44: PRINT "____________________________________" LOCATE 12, 44: PRINT "Debes introducir el n§ de la salida" LOCATE 13, 44: PRINT "y el tiempo de duraci’n" LOCATE 15, 44: PRINT "____________________________________" LOCATE 20, 46: PRINT "; ESCRIBE; S = SI; N = NO; "; LOCATE 18, 55: INPUT "Aceptas "; N$ IF N$ = "S" THEN 1200 ELSE GOTO 150 1200 REM CABECERA........................................................ CLS REM PANTALLA 2 COMIENZO................................. CLS COLOR 14, 9 LOCATE 1, 1: PRINT "ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»" LOCATE 2, 1: PRINT "Ί Ί" LOCATE 3, 1: PRINT "ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ" FOR A = 4 TO 22 LOCATE A, 1: PRINT "Ί Ί" NEXT A FOR A = 2 TO 79 LOCATE 5, A: PRINT "Δ" NEXT A FOR A = 2 TO 43 LOCATE 15, A: PRINT "" NEXT A FOR A = 4 TO 12 LOCATE A, 21: PRINT "³" NEXT A FOR A = 4 TO 12 LOCATE A, 41: PRINT "Ί" NEXT A FOR A = 4 TO 12 LOCATE A, 61: PRINT "³" NEXT A FOR A = 2 TO 79 LOCATE 13, A: PRINT "Ν" NEXT A FOR A = 2 TO 79 LOCATE 8, A: PRINT "Ν" NEXT A FOR A = 44 TO 79 LOCATE 9, A: PRINT "" NEXT A LOCATE 23, 1: PRINT "ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ" COLOR 10, 9 LOCATE 2, 25: PRINT "*** C I C L O S ***" COLOR 14, 0 LOCATE 4, 4: PRINT "AMANECER:" LOCATE 4, 28: PRINT "DIA:" LOCATE 4, 45: PRINT "TARDE:" LOCATE 4, 64: PRINT "NOCHE:" LOCATE 22, 72: PRINT TIME$ 1300 REM ENTRADA DE DATOS.................................. 1400 REM AMANECER............................................. COLOR 10, 9 LOCATE 6, 2: INPUT "¨SALIDA 1"; Z LOCATE 14, 4: PRINT "SALIDA 1=": COLOR 10, 9: LOCATE 14, 14: PRINT ; Z LOCATE 10, 2: INPUT "¨TIEMPO 1"; Y COLOR 10, 9 LOCATE 14, 25: PRINT "TIEMPO 1=" COLOR 10, 9: LOCATE 14, 35: PRINT ; Y COLOR 10, 9 LOCATE 14, 48: COLOR 10, 12: PRINT "CONTROL 1.........." 1500 REM DIA ......................................... COLOR 10, 9 LOCATE 6, 22: INPUT "¨SALIDA 2"; P LOCATE 16, 4: PRINT "SALIDA 2=" COLOR 10, 9: LOCATE 16, 14: PRINT ; P LOCATE 10, 22: INPUT "¨TIEMPO 2"; W COLOR 10, 9 LOCATE 16, 25: PRINT "TIEMPO 2=" COLOR 10, 9: LOCATE 16, 35: PRINT ; W LOCATE 16, 48: COLOR 10, 12: PRINT "CONTROL 2.........." 1600 REM TARDE......................................... COLOR 10, 9 LOCATE 6, 42: INPUT "¨SALIDA 3"; N LOCATE 18, 4: PRINT "SALIDA 3=" COLOR 10, 9: LOCATE 18, 14: PRINT ; N LOCATE 10, 42: INPUT "¨TIEMPO 3"; U COLOR 10, 9 LOCATE 18, 25: PRINT "TIEMPO 3=" COLOR 10, 9: LOCATE 18, 35: PRINT ; U LOCATE 18, 48: COLOR 10, 12: PRINT "CONTROL 3.........." 1700 REM NOCHE......................................... COLOR 10, 9 LOCATE 6, 62: INPUT "¨SALIDA 4"; T LOCATE 20, 4: PRINT "SALIDA 4=" COLOR 10, 9: LOCATE 20, 14: PRINT ; T LOCATE 10, 62: INPUT "¨TIEMPO 4"; S COLOR 10, 9 LOCATE 20, 25: PRINT "TIEMPO 4=" COLOR 10, 9: LOCATE 20, 35: PRINT ; S LOCATE 20, 48: COLOR 10, 12: PRINT "CONTROL 4.........." REM * Estado Inicial * 1800 REM * EJECUCION DE CONTADORES..................................... COLOR 10, 9 FOR A = 1 TO Y LOCATE 14, 60: PRINT ; A LPRINT CHR$(Z); NEXT A: LPRINT CHR$(0); FOR B = 1 TO W LOCATE 16, 60: PRINT ; B LPRINT CHR$(P), NEXT B: LPRINT CHR$(0); FOR C = 1 TO U LOCATE 18, 60: PRINT ; C LPRINT CHR$(N); NEXT C: LPRINT CHR$(0); FOR D = 1 TO S LOCATE 20, 60: PRINT ; D LPRINT CHR$(T); NEXT D: FOR M = 1 TO S LPRINT CHR$(0) LPRINT CHR$(0) NEXT M SLEEP 2 CLS : GOSUB 1000 COLOR 10, 9: LOCATE 4, 45: PRINT "PROGRAMA N§ 3" LOCATE 16, 50: PRINT "PROCESO FINALIZADO" SLEEP 2 GOTO 150 REM * Estado final * ............................................ END