546 lines
16 KiB
QBasic
546 lines
16 KiB
QBasic
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
|
||
|
||
|