principiodelprincipio: REM Versi¢n 3.0 en Qbasic de Catalogo (c) KEY OFF pp: CLEAR ON ERROR GOTO corrector DIM lec$(12), lot$(12), T$(50), fet$(50), A$(50), tele$(50) KEY(1) ON KEY(2) ON ON KEY(1) GOSUB help ON KEY(2) GOSUB finp CLS GOSUB menu1 GOSUB cargachar COLOR 1, 7 l = 1 GOSUB secuencia espera: KEY(11) ON KEY(14) ON ON KEY(11) GOSUB sube ON KEY(14) GOSUB baja espera3: I$ = INKEY$ IF I$ = "" THEN GOTO espera3 IF I$ = CHR$(13) THEN GOTO ejecuta IF I$ = CHR$(27) THEN GOSUB help GOTO espera3 sube: ant = l IF l = 1 THEN l = 11 ELSE l = l - 1 GOSUB secuencia RETURN baja: ant = l IF l = 12 THEN l = 1 ELSE l = l + 1 GOSUB secuencia RETURN secuencia: IF l = -1 THEN l = 11 IF l = 12 THEN l = 1 IF ant = 0 THEN ant = 1 COLOR 7, 1, 1 LOCATE 2 * ant, 2: PRINT lot$(ant) COLOR 1, 7 LOCATE 2 * l, 2: PRINT lec$(l): RETURN END ejecuta: KEY(11) OFF KEY(14) OFF COLOR 7, 1, 1 IF l < 6 THEN arc$ = "copy-1.dat" ELSE arc$ = "copy-2.dat" IF l = 1 THEN arc$ = "copy-3.dat" ON l GOTO lp, lp, lp, lp, lp, lp, lp, lp, lp, lp, mm END lp: f = l IF f = 10 THEN f = 0 GOSUB tipodeficha REM LISTA DE PROGRAMAS IF Tf$ = "0" THEN arc$ = "copy-1.dat" OPEN "R", #1, arc$, 14 contador = 13: COLUMNA = 34 FOR A = 1 TO LOF(1) / 14 + 1 FIELD #1, 1 AS fichero$, 10 AS T$, 3 AS DISK$ GET #1, A IF fichero$ = Tf$ THEN GOTO imprime ELSE GOTO continua imprime: COLOR 12, 1, 1 LOCATE contador, COLUMNA: IF T$ = " " THEN GOTO continua ELSE PRINT T$ contador = contador + 1 IF COLUMNA = 60 AND contador = 22 THEN GOSUB contimpre IF contador = 22 THEN contador = 13: COLUMNA = COLUMNA + 13 continua: NEXT A CLOSE #1 COLOR 14, 1, 1 LOCATE 4, 60: PRINT "PULSE UNA TECLA" COLOR 15, 1, 1 LOCATE 5, 60: PRINT "Para ir al MENé " p: IF INKEY$ = "" THEN GOTO p COLOR 7, 1, 1 FOR brr = 13 TO 22: LOCATE brr, 34: PRINT STRING$(37, " "): NEXT brr LOCATE 4, 60: PRINT " F1 HELP " LOCATE 5, 60: PRINT " F2 Exit to DOS" GOTO espera contimpre: COLOR 14, 1, 1 LOCATE 4, 60: PRINT "Pulse una tecla" LOCATE 5, 60: PRINT "para continuar." COLOR 7, 1, 1 p2: IF INKEY$ = "" THEN GOTO p2 LOCATE 4, 60: PRINT " " LOCATE 5, 60: PRINT " " contador = 13: COLUMNA = 34 FOR ba = 13 TO 22: LOCATE ba, 34: PRINT STRING$(37, " "): NEXT ba RETURN END mm: GOSUB menu2 l2 = 1 GOSUB secuencia2 espera2: KEY(11) ON KEY(14) ON ON KEY(11) GOSUB sube2 ON KEY(14) GOSUB baja2 espera4: I$ = INKEY$ IF I$ = "" THEN GOTO espera4 IF I$ = CHR$(13) THEN GOTO ejecuta2 IF I$ = CHR$(27) THEN KEY(11) OFF: KEY(14) OFF: GOSUB menu1: GOSUB secuencia: COLOR 1, 7: GOTO espera GOTO espera4 sube2: ant2 = l2 IF l2 = 1 THEN l2 = 3 ELSE l2 = l2 - 1 IF ant2 = 0 THEN ant2 = 1 GOSUB secuencia2 RETURN baja2: ant2 = l2 IF l2 = 3 THEN l2 = 1 ELSE l2 = l2 + 1 GOSUB secuencia2 RETURN secuencia2: IF l2 = -1 THEN l2 = 3 IF l2 = 4 THEN l2 = 1 COLOR 7, 1, 1 IF ant2 = 1 THEN LOCATE 5, 39: PRINT lot2$(ant2) IF ant2 = 2 THEN LOCATE 6, 39: PRINT lot2$(ant2) IF ant2 = 3 THEN LOCATE 8, 39: PRINT lot2$(ant2) COLOR 1, 7 IF l2 = 1 THEN LOCATE 5, 39: PRINT lec2$(l2): RETURN IF l2 = 2 THEN LOCATE 6, 39: PRINT lec2$(l2): RETURN IF l2 = 3 THEN LOCATE 8, 39: PRINT lec2$(l2): RETURN END ejecuta2: KEY(11) OFF KEY(14) OFF ON l2 GOTO il, gp, C GOTO espera2 END il: ON ERROR GOTO corrector REM FICHERO PARA IMPRIMIR COLOR 14, 1, 1 LOCATE 14, 34: PRINT "Esta usd. en la secci¢n de impresion." LOCATE 15, 34: PRINT "Cerciorese de que la impresora este" LOCATE 16, 34: PRINT "encendida y de que tenga papel." LOCATE 18, 34: PRINT " Pulse una tecla..." N: Q$ = INKEY$: IF Q$ = "" THEN GOTO N IF Q$ = CHR$(27) THEN FOR A = 14 TO 18: LOCATE A, 34: PRINT STRING$(38, " "): NEXT: GOTO subbrutinas FOR A = 14 TO 18: LOCATE A, 34: PRINT STRING$(38, " "): NEXT pagina = 1 CLOSE #3: OPEN "lpt1:" FOR OUTPUT AS #3: PRINT #3, CHR$(27); "!"; CHR$(20) LPRINT "ßßÛÛÛÛÛÛßßßßßÛÛÛßßßßß" LPRINT "ßß Ü ßßßßÜ Ûßßß" LPRINT "ßßßßßßßÜ ßßßßÜ ßß Üßß" LPRINT "ßßÛßßßßÜ ßßßßÜ ßßÛ ß" LPRINT "ßßÜÜÛÛÛÜ ßßßßÜÜÛß ßß" LPRINT "ßß ßßßß ßßßß" LPRINT "ÛßßßßßßßßßßßßßßßßßßßÛ" LPRINT "ÛJ.D Guill‚n s.u '92Û" LPRINT "ßßßßßßßßßßßßßßßßßßßßß" LPRINT "El n£mero que sigue al nombre del programa, indica" LPRINT "la cantidad de diskettes que est‚ ocupa. Diskett de 3 «" LPRINT "Disponible el 75% de los programas en diskettes de 5 ¬" contador = 12 sleep=15 f = 1 nf: ' EMPIEZA LA ETAPA f=A IF contador > 50 THEN GOSUB finlista CLOSE #1: OPEN "LPT1:" FOR OUTPUT AS #1: PRINT #1, CHR$(27); "!"; CHR$(97) IF f = 1 THEN LPRINT "JUEGOS" IF f = 2 THEN LPRINT "MUSICA" IF f = 3 THEN LPRINT "PROCESADORES DE TEXTO" IF f = 4 THEN LPRINT "PROGRAMAS DE CONTABILIDAD" IF f = 5 THEN LPRINT "PROGRAMAS DE ELECTRONICA" IF f = 6 THEN LPRINT "GRAFICOS" IF f = 7 THEN LPRINT "UTILIDADES" IF f = 8 THEN LPRINT "COPIONES" IF f = 9 THEN LPRINT "LENGUAJES" IF f = 10 THEN f = 0: LPRINT "ANTIVIRUS" contador = contador + 2 CLOSE #1: CLOSE #2: OPEN "LPT1:" FOR OUTPUT AS #2: PRINT #2, CHR$(27); "!"; CHR$(1) IF f < 6 THEN arc$ = "copy-1.dat" ELSE arc$ = "copy-2.dat" IF l = 1 THEN arc$ = "copy-3.dat" IF f = 0 THEN arc$ = "copy-1.dat" OPEN "R", #1, arc$, 14 GOSUB tipodeficha FOR A = 1 TO LOF(1) / 14 FIELD #1, 1 AS fichero$, 10 AS T$, 3 AS DISK$ GET #1 IF fichero$ <> Tf$ THEN GOTO sinsuerte IF T$ <> " " THEN GOSUB guarda IF G = 0 THEN PRINT #2, CHR$(27): contador = contador + 1 IF contador > 55 THEN GOSUB finlista sinsuerte: NEXT A CLOSE #1 IF EF$ <> "" THEN LPRINT EF$; TAB(13); EFD$; TAB(20); EL$; TAB(33); ELD$; TAB(40); EO$; TAB(53); EOD$; TAB(60); EO4$; TAB(73); EOD4$ EF$ = "": EL$ = "": EO$ = "": EO4$ = "" EFD$ = "": ELD$ = "": EOD$ = "": EOD4$ = "": G = 0 IF contador > 50 THEN GOSUB finlista IF f <> 0 THEN f = f + 1: GOTO nf CLOSE #2: OPEN "lpt1:" FOR OUTPUT AS #2: PRINT #2, CHR$(27); "!"; CHR$(33) OPEN "r", #1, "MENSAJES", 30 FOR A = 1 TO 5 FIELD #1, 30 AS MENSAJE$ GET #1 LPRINT TAB(5); MENSAJE$ NEXT A CLOSE #1 COLOR 14, 1, 1 LOCATE 14, 34: PRINT "Lista terminada..." LOCATE 15, 34: PRINT "PULSE UNA TECLA PARA VOLVER AL MENU" d: IF INKEY$ = "" THEN GOTO d COLOR 7, 1, 1 LOCATE 14, 34: PRINT " " LOCATE 15, 34: PRINT " " GOTO subbrutinas finlista: COLOR 14, 1, 1 LOCATE 14, 34: PRINT "Cuando deje de imprimir ponga papel" LOCATE 15, 34: PRINT " Pulse entonces una tecla para " LOCATE 16, 34: PRINT " continuar listando." COLOR 7, 1, 1 m: IF INKEY$ = "" THEN GOTO m LOCATE 14, 34: PRINT " " LOCATE 15, 34: PRINT " " LOCATE 16, 34: PRINT " " CLOSE #2: OPEN "LPT1:" FOR OUTPUT AS #2: PRINT #2, CHR$(27); "!"; CHR$(1) contador = 0: RETURN guarda: G = G + 1 IF G = 1 THEN EF$ = T$: EFD$ = DISK$ IF G = 2 THEN EL$ = T$: ELD$ = DISK$ IF G = 3 THEN EO$ = T$: EOD$ = DISK$ IF G = 4 THEN EO4$ = T$: EOD4$ = DISK$: GOTO imprimelinea RETURN END imprimelinea: LPRINT EF$; TAB(13); EFD$; TAB(20); EL$; TAB(33); ELD$; TAB(40); EO$; TAB(53); EOD$; TAB(60); EO4$; TAB(73); EOD4$; EF$ = "": EL$ = "": EO$ = "": EO4$ = "" EFD$ = "": ELD$ = "": EOD$ = "": EOD4$ = "": G = 0 RETURN gp: ' GRABAR DATOS DE PEDIDOS COLOR 14, 1, 1 LOCATE 14, 34: PRINT "SIGUA LAS INDICACIONES PERTINENTES" p4: I$ = INKEY$ IF I$ = "" THEN GOTO p4 IF I$ = CHR$(27) THEN LOCATE 14, 34: PRINT STRING$(37, " "): GOTO subbrutinas LOCATE 14, 34: PRINT "Nombre del programa/s... " COLOR 12, 1, 1 PL = 15: TCOL = 34 FOR zA = 1 TO 21 PL = PL + 1 COLOR 12, 1, 1 lin = PL: col = TCOL: lon = 10: tipo$ = " ..z": GOSUB limlin: A$(zA) = texto$ IF PL = 22 THEN PL = 15: TCOL = TCOL + 13 CREO = CREO + 1: IF A$(zA) = " " THEN GOTO cont NEXT zA cont: COLOR 14, 1, 1 LOCATE 13, 34: PRINT "INTRODUCE TU NOMBRE: " LOCATE 14, 34: PRINT " " COLOR 15, 1, 1 lin = 15: col = 34: lon = 8: tipo$ = "0..Z": GOSUB limlin: nombre$ = texto$ fil$ = nombre$ + ".JD" OPEN "R", #2, "commun_d.jd", 8 FIELD #2, 8 AS nom$ LSET nom$ = nombre$ PUT #2, LOF(2) / 8 + 1 CLOSE #2 OPEN "R", #1, fil$, 10 FOR b = 1 TO CREO + 1 FIELD #1, 10 AS tele$ LSET tele$ = A$(b) PUT #1, LOF(1) / 10 + 1 NEXT b CLOSE #1 FOR e = 13 TO 22: LOCATE e, 33: PRINT STRING$(38, " "): NEXT GOTO subbrutinas END C: COLOR 7, 1, 1 LOCATE 3, 49: PRINT "Creditos " LOCATE 14, 33: PRINT " (c) C A T A L O G O v3.0 " LOCATE 16, 33: PRINT " Pantallas y programa ... " COLOR 12 LOCATE 18, 33: PRINT " Jos‚ David Guill‚n " LOCATE 19, 33: PRINT " Tlf. 561-XX-XX " COLOR 7, 1, 1 LOCATE 21, 33: PRINT " 1993, 1§BTI " pause: IF INKEY$ = "" THEN GOTO pause FOR Q = 14 TO 22: LOCATE Q, 33: PRINT SPC(37); : NEXT Q GOTO subbrutinas subbrutinas: GOSUB secuencia GOSUB menu2 GOSUB secuencia2 GOTO espera2 END menu1: COLOR 7, 1, 1 CLS PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ßßßßßßßÛ ÛßßÜ ³ø ø³ "; PRINT "³ Juegos ³± Û Û ßÜ ³ø Catalogo v3.0 ø³ "; PRINT "³ ³± Û Û ßÜ ³ø ø³ "; PRINT "³ Musica ³± Û Û Û ³ø F1 Help ø³ "; PRINT "³ ³± Û Û Û Üß ³ø F2 Exit to DOS ø³ "; PRINT "³ Procesadores de textos ³± Û Û Û Üß Ü³ø ø³Ü "; PRINT "³ ³± ßÜÜÜÜß ÛÜÜß ÛÛ ÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜ"; PRINT "³ Pgr. Contabilidad ³± ÛÛÛÛonÛlineÛ°ÛlfÛ°ÛÛÛÛÛÛ"; PRINT "³ ³± Jos‚ David Guill‚n '93 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"; PRINT "³ Pgr. Electronica ³± " PRINT "³ ³±" PRINT "³ Graficos ³± ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"; PRINT "³ ³± ³ ³±"; PRINT "³ Utilidades ³± ³ ³±"; PRINT "³ ³± ³ ³±"; PRINT "³ Copiones ³± ³ ³±"; PRINT "³ ³± ³ ³±"; PRINT "³ Lenguajes ³± ³ ³±"; PRINT "³ ³± ³ ³±"; PRINT "³ Anti_virus ³± ³ ³±"; PRINT "³ ³± ³ ³±"; PRINT "³ - MENé PRINCIPAL - ³± ³ ³±"; PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ± ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±"; PRINT " ±±±±±±±±±±±±±±±±±±±±±±±±±±± ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"; RETURN menu2: COLOR 7, 1, 1 LOCATE 2, 32: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±"; LOCATE 3, 32: PRINT "³ Men£ actual: MENé PRINCIPAL ³±"; LOCATE 4, 32: PRINT "³ ³±"; LOCATE 5, 32: PRINT "³ Imprimir Lista ³±"; LOCATE 6, 32: PRINT "³ Grabar programas elegidos ³±"; LOCATE 7, 32: PRINT "³ ³±"; LOCATE 8, 32: PRINT "³ Creditos ³±"; LOCATE 9, 32: PRINT "³ ³±"; LOCATE 10, 32: PRINT "³ Men£ de Datos ( JD ) ³±"; LOCATE 11, 32: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ "; LOCATE 1, 32: PRINT " ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"; COLOR 9, 1, 1 LOCATE 10, 39: PRINT "Men£ de Datos ( JD )" COLOR 7, 1, 1 RETURN menu3: COLOR 7, 1, 1 LOCATE 2, 32: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±"; LOCATE 3, 32: PRINT "³ Men£ actual: Men£ de Datos ( JD ) ³±"; LOCATE 4, 32: PRINT "³ ³±"; LOCATE 5, 32: PRINT "³ Introducir nuevos programas ³±"; LOCATE 6, 32: PRINT "³ Borrar programas ³±"; LOCATE 7, 32: PRINT "³ ³±"; LOCATE 8, 32: PRINT "³ Introducir mensaje ³±"; LOCATE 9, 32: PRINT "³ ³±"; LOCATE 10, 32: PRINT "³ Visionar / Borrar pedidos ³±"; LOCATE 11, 32: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ "; LOCATE 1, 32: PRINT " ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±"; COLOR 7, 1, 1 RETURN cargachar: lec$(1) = "þ JUEGOS " lec$(2) = "þ MUSICA " lec$(3) = "þ PROCESADORES DE TEXTOS" lec$(4) = "þ PGRS. CONTABILIDAD " lec$(5) = "þ PGRS. ELECTRONICA " lec$(6) = "þ GRAFICOS " lec$(7) = "þ UTILIDADES " lec$(8) = "þ COPIONES " lec$(9) = "þ LENGUAJES " lec$(10) = "þ ANTI_VIRUS " lec$(11) = " - Men£ Principal - " lot$(1) = " Juegos " lot$(2) = " Musica " lot$(3) = " Procesadores de textos " lot$(4) = " Pgr. Contabilidad " lot$(5) = " Pgr. Electronica " lot$(6) = " Graficos " lot$(7) = " Utilidades " lot$(8) = " Copiones " lot$(9) = " Lenguajes " lot$(10) = " Anti_virus " lot$(11) = " - MENé PRINCIPAL - " lec2$(1) = "þ IMPRIMIR LISTA " lec2$(2) = "þ GRABAR PROGRAMAS ELEGIDOS " lec2$(3) = "þ CREDITOS " lec2$(4) = "þ MENé DE DATOS ( JD ) " lot2$(1) = "Imprimir Lista " lot2$(2) = "Grabar programas elegidos " lot2$(3) = "Creditos " lot2$(4) = "Men£ de Datos ( JD ) " lec3$(1) = "þ INTRODUCIR NUEVOS PROGRAMAS" lec3$(2) = "þ BORRAR PROGRAMAS " lec3$(3) = "þ INTRODUCIR MENSAJE " lec3$(4) = "þ VISIONAR / BORRAR PEDIDOS " lot3$(1) = "Introducir nuevos programas " lot3$(2) = "Borrar programas " lot3$(3) = "Introducir mensaje " lot3$(4) = "Visionar / Borrar pedidos " RETURN END limlin: '(LIM)ite -de- (LIN)ea 'Lon=longitud lin=linea col=columna tipo$=" ..z" LOCATE lin, col: PRINT "þ" FOR A = 1 TO lon X: A$ = INKEY$: IF A$ = "" THEN GOTO X IF A$ = CHR$(13) THEN GOTO finsec IF A$ = CHR$(27) THEN GOTO limlin IF A$ = CHR$(8) THEN GOTO borra ELSE GOTO ponchar borra: A = A - 1: IF A < 1 THEN A = 1 LOCATE lin, col + A - 1: PRINT " ": LOCATE lin, col + A - 1: PRINT "þ ": GOTO X ponchar: IF A$ < LEFT$(tipo$, 1) OR A$ > RIGHT$(tipo$, 1) THEN GOTO X IF A = 1 THEN origen$ = STRING$(lon, " "): LOCATE lin, col: PRINT origen$ LOCATE lin, col + A - 1: PRINT A$; : IF A <> lon THEN PRINT "þ" ELSE GOTO X NEXT A finsec: texto$ = "": FOR I = 1 TO lon IF CHR$(SCREEN(lin, col + I - 1)) = "þ" THEN texto$ = texto$ + " " ELSE texto$ = texto$ + CHR$(SCREEN(lin, col + I - 1)) NEXT LOCATE lin, col: COLOR 1, 7: PRINT texto$: COLOR 7, 1, 1 PLAY "b64": RETURN corrector: IF ERR = 52 OR ERR = 53 THEN fallo = 1: GOTO contrif IF ERR = 27 THEN GOTO nohaypapel GOTO fallonoloc contrif: RESUME NEXT END nohaypapel: COLOR 14, 1, 1 BEEP LOCATE 13, 34: PRINT "No hay papel." sleep=20 LOCATE 13, 34: PRINT " " GOTO il fallonoloc: COLOR 15, 1, 1 LOCATE 13, 33: PRINT "Fallo:", ERR; "RESET PROGRAM" LOCATE 14, 33: PRINT "PULSE UNA TECLA: ..(JD).." rti: IF INKEY$ = "" THEN GOTO rti GOTO principiodelprincipio tipodeficha: IF f = 1 THEN Tf$ = "1" IF f = 2 THEN Tf$ = "2" IF f = 3 THEN Tf$ = "3" IF f = 4 THEN Tf$ = "4" IF f = 5 THEN Tf$ = "5" IF f = 6 THEN Tf$ = "6" IF f = 7 THEN Tf$ = "7" IF f = 8 THEN Tf$ = "8" IF f = 9 THEN Tf$ = "9" IF f = 0 THEN Tf$ = "0" IF f = 10 THEN Tf$ = "0" RETURN help: COLOR 7, 1, 1 LOCATE 14, 34: PRINT "Ayuda basica, JD." LOCATE 16, 34: PRINT "Use los cursores, para acceder a" LOCATE 17, 34: PRINT "los men£s." LOCATE 18, 34: PRINT "Presione intro para 'entrar'." LOCATE 19, 34: PRINT "Pulse ESC para retroceder en un Menu." LOCATE 21, 34: PRINT " Pulse una tecla" retorico: IF INKEY$ = "" THEN GOTO retorico COLOR 7, 1, 1: FOR wq = 13 TO 21: LOCATE wq, 34: PRINT STRING$(37, " "): NEXT RETURN END finp: COLOR 7, 1, 1 CLS PRINT " JD, Catalogo vú3.1 " PRINT : PRINT "Gracias por utilizar este sofware." PRINT : PRINT "Devuelveme este disco cuando acabes." PRINT " Gracias..." END