REM MODIFICACION DEL PROGRAMA FECHA 19/7/07. 100 REM INTRODUCCION CLS COLOR 10, 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 10 REM SELECCION DE PROGRAMA: 150 REM ========================================================================== REM SELECCION DEL PROGRAMA A EJECUTAR GOSUB 1000 COLOR 10, 0 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, 0 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, 0 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 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 COLOR 10, 0 LOCATE 4, 45: PRINT "PROGRAMA N§ 1" FOR ZZ = 1 TO Z 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); 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, 0 LOCATE 4, 45: PRINT "PROGRAMA N§ 1" NEXT ZZ LOCATE 16, 50: PRINT "PROCESO FINALIZADO" SLEEP 2 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 FOR X = 1 TO 5 COLOR 15, 0 LOCATE 4, 4: PRINT " PROGRAMA N§2" LOCATE 4, 22: PRINT "ACTIVO" FOR A = 1 TO 100000 COLOR 13, 0 LOCATE 4, 50: PRINT "CICLO N§ ": LOCATE 4, 66: PRINT X LPRINT CHR$(1); COLOR 10, 0 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); (0); (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); (0); (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); (0); (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); (0); (0); (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 CHR$(0); (0); (0); (0); (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); (0); (0); (0); (0); (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" GOSUB 1000 NEXT X END 500 REM*********SUBRUTINA DE NO ACTIVOS********************** CLS GOSUB 1000 LOCATE 4, 64: PRINT "PROGRAMA N§ 4" LOCATE 6, 64: PRINT "NO ACTIVO" LOCATE 10, 48: PRINT " PROGRAMA NO ACTIVO" SLEEP 1 GOTO 150 REM CUANDO SE ACTIVEN ESTOS PROGRAMAS ANULAR LA SURUTINA REM********************************************************** REM======================================================================== 1000 REM *************** PANTALLA PRINCIPAL********************************** CLS COLOR 14, 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" SLEEP 1 RETURN END 1100 REM****************PROGRAMA N§ 3 ********************************+*********** GOSUB 1000 COLOR 10, 0 LOCATE 4, 64: PRINT "PROGRAMA N§ 3" COLOR 15, 0 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, 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 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, 0 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:" 1300 REM ENTRADA DE DATOS.................................. 1400 REM AMANECER............................................. COLOR 10, 0 LOCATE 6, 2: INPUT "¨SALIDA 1"; Z LOCATE 10, 2: INPUT "¨TIEMPO 1"; Y LOCATE 14, 4: PRINT "SALIDA 1=": COLOR 12, 0: LOCATE 14, 14: PRINT ; Z COLOR 10, 0 LOCATE 14, 25: PRINT "TIEMPO 1=": COLOR 12, 0: LOCATE 14, 35: PRINT ; Y COLOR 10, 0 LOCATE 14, 48: COLOR 10, 12: PRINT "CONTROL 1.........." COLOR 10, 0 1500 REM DIA ......................................... LOCATE 6, 22: INPUT "¨SALIDA 2"; X LOCATE 10, 22: INPUT "¨TIEMPO 2"; W LOCATE 16, 4: PRINT "SALIDA 2=": COLOR 12, O: LOCATE 16, 14: PRINT ; X COLOR 10, 0 LOCATE 16, 25: PRINT "TIEMPO 2=": COLOR 12, O: LOCATE 16, 35: PRINT ; W LOCATE 16, 48: COLOR 10, 12: PRINT "CONTROL 2.........." COLOR 10, 0 1600 REM TARDE......................................... LOCATE 6, 42: INPUT "¨SALIDA 3"; V LOCATE 10, 42: INPUT "¨TIEMPO 3"; U LOCATE 18, 4: PRINT "SALIDA 3=": COLOR 12, 0: LOCATE 18, 14: PRINT ; V COLOR 10, 0 LOCATE 18, 25: PRINT "TIEMPO 3=": COLOR 12, 0: LOCATE 18, 35: PRINT ; U LOCATE 18, 48: COLOR 10, 12: PRINT "CONTROL 3.........." COLOR 10, 0 1700 REM NOCHE......................................... LOCATE 6, 62: INPUT "¨SALIDA 4"; T LOCATE 10, 62: INPUT "¨TIEMPO 4"; S LOCATE 20, 4: PRINT "SALIDA 4=": COLOR 12, 0: LOCATE 20, 14: PRINT ; T COLOR 10, 0 LOCATE 20, 25: PRINT "TIEMPO 4=": COLOR 12, 0: LOCATE 20, 35: PRINT ; S LOCATE 20, 48: COLOR 10, 12: PRINT "CONTROL 4.........." COLOR 10, 0 REM * Estado Inicial * 1800 REM * EJECUCION DE CONTADORES..................................... COLOR 10, 12 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$(X), NEXT B LPRINT CHR$(0); FOR C = 1 TO U LOCATE 18, 60: PRINT ; C LPRINT CHR$(V); NEXT C LPRINT CHR$(0); FOR D = 1 TO S LOCATE 20, 60: PRINT ; D LPRINT CHR$(T); NEXT D LPRINT CHR$(0); SLEEP 2 GOTO 150 REM * Estado final * ............................................ END