First commit ~0,10
This commit is contained in:
545
BAS/PRECATA2.BAS
Normal file
545
BAS/PRECATA2.BAS
Normal file
@ -0,0 +1,545 @@
|
||||
principiodelprincipio:
|
||||
REM Versi<73>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<45> "
|
||||
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<63>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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
LPRINT "<22><> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
LPRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>"
|
||||
LPRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20>"
|
||||
LPRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>"
|
||||
LPRINT "<22><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||||
LPRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
LPRINT "<22>J.D Guill<6C>n s.u '92<39>"
|
||||
LPRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||||
LPRINT "El n<>mero que sigue al nombre del programa, indica"
|
||||
LPRINT "la cantidad de diskettes que est<73> ocupa. Diskett de 3 <20>"
|
||||
LPRINT "Disponible el 75% de los programas en diskettes de 5 <20>"
|
||||
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<6F> David Guill<6C>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 "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><> ";
|
||||
PRINT "<22> Juegos <20><> <20> <20> <20><> <20><> Catalogo v3.0 <20><> ";
|
||||
PRINT "<22> <20><> <20> <20> <20><> <20><> <20><> ";
|
||||
PRINT "<22> Musica <20><> <20> <20> <20> <20><> F1 Help <20><> ";
|
||||
PRINT "<22> <20><> <20> <20> <20> <20><> <20><> F2 Exit to DOS <20><> ";
|
||||
PRINT "<22> Procesadores de textos <20><> <20> <20> <20> <20><> ܳ<> <20><><EFBFBD> ";
|
||||
PRINT "<22> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
PRINT "<22> Pgr. Contabilidad <20><> <20><><EFBFBD><EFBFBD>on<6F>line۰<65>lf۰<66><DBB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
PRINT "<22> <20><> Jos<6F> David Guill<6C>n '93 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
PRINT "<22> Pgr. Electronica <20><> "
|
||||
PRINT "<22> <20><>"
|
||||
PRINT "<22> Graficos <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ";
|
||||
PRINT "<22> <20><> <20> <20><>";
|
||||
PRINT "<22> Utilidades <20><> <20> <20><>";
|
||||
PRINT "<22> <20><> <20> <20><>";
|
||||
PRINT "<22> Copiones <20><> <20> <20><>";
|
||||
PRINT "<22> <20><> <20> <20><>";
|
||||
PRINT "<22> Lenguajes <20><> <20> <20><>";
|
||||
PRINT "<22> <20><> <20> <20><>";
|
||||
PRINT "<22> Anti_virus <20><> <20> <20><>";
|
||||
PRINT "<22> <20><> <20> <20><>";
|
||||
PRINT "<22> - MEN<45> PRINCIPAL - <20><> <20> <20><>";
|
||||
PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٱ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٱ";
|
||||
PRINT " <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
RETURN
|
||||
|
||||
menu2:
|
||||
COLOR 7, 1, 1
|
||||
LOCATE 2, 32: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD>";
|
||||
LOCATE 3, 32: PRINT "<22> Men<65> actual: MEN<45> PRINCIPAL <20><>";
|
||||
LOCATE 4, 32: PRINT "<22> <20><>";
|
||||
LOCATE 5, 32: PRINT "<22> Imprimir Lista <20><>";
|
||||
LOCATE 6, 32: PRINT "<22> Grabar programas elegidos <20><>";
|
||||
LOCATE 7, 32: PRINT "<22> <20><>";
|
||||
LOCATE 8, 32: PRINT "<22> Creditos <20><>";
|
||||
LOCATE 9, 32: PRINT "<22> <20><>";
|
||||
LOCATE 10, 32: PRINT "<22> Men<65> de Datos ( JD ) <20><>";
|
||||
LOCATE 11, 32: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
LOCATE 1, 32: PRINT " <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
COLOR 9, 1, 1
|
||||
LOCATE 10, 39: PRINT "Men<65> de Datos ( JD )"
|
||||
COLOR 7, 1, 1
|
||||
RETURN
|
||||
|
||||
menu3:
|
||||
COLOR 7, 1, 1
|
||||
LOCATE 2, 32: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD>";
|
||||
LOCATE 3, 32: PRINT "<22> Men<65> actual: Men<65> de Datos ( JD ) <20><>";
|
||||
LOCATE 4, 32: PRINT "<22> <20><>";
|
||||
LOCATE 5, 32: PRINT "<22> Introducir nuevos programas <20><>";
|
||||
LOCATE 6, 32: PRINT "<22> Borrar programas <20><>";
|
||||
LOCATE 7, 32: PRINT "<22> <20><>";
|
||||
LOCATE 8, 32: PRINT "<22> Introducir mensaje <20><>";
|
||||
LOCATE 9, 32: PRINT "<22> <20><>";
|
||||
LOCATE 10, 32: PRINT "<22> Visionar / Borrar pedidos <20><>";
|
||||
LOCATE 11, 32: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ";
|
||||
LOCATE 1, 32: PRINT " <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>";
|
||||
COLOR 7, 1, 1
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
cargachar:
|
||||
lec$(1) = "<22> JUEGOS "
|
||||
lec$(2) = "<22> MUSICA "
|
||||
lec$(3) = "<22> PROCESADORES DE TEXTOS"
|
||||
lec$(4) = "<22> PGRS. CONTABILIDAD "
|
||||
lec$(5) = "<22> PGRS. ELECTRONICA "
|
||||
lec$(6) = "<22> GRAFICOS "
|
||||
lec$(7) = "<22> UTILIDADES "
|
||||
lec$(8) = "<22> COPIONES "
|
||||
lec$(9) = "<22> LENGUAJES "
|
||||
lec$(10) = "<22> ANTI_VIRUS "
|
||||
lec$(11) = " - Men<65> 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<45> PRINCIPAL - "
|
||||
|
||||
lec2$(1) = "<22> IMPRIMIR LISTA "
|
||||
lec2$(2) = "<22> GRABAR PROGRAMAS ELEGIDOS "
|
||||
lec2$(3) = "<22> CREDITOS "
|
||||
lec2$(4) = "<22> MEN<45> DE DATOS ( JD ) "
|
||||
lot2$(1) = "Imprimir Lista "
|
||||
lot2$(2) = "Grabar programas elegidos "
|
||||
lot2$(3) = "Creditos "
|
||||
lot2$(4) = "Men<65> de Datos ( JD ) "
|
||||
|
||||
lec3$(1) = "<22> INTRODUCIR NUEVOS PROGRAMAS"
|
||||
lec3$(2) = "<22> BORRAR PROGRAMAS "
|
||||
lec3$(3) = "<22> INTRODUCIR MENSAJE "
|
||||
lec3$(4) = "<22> 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 "<22>"
|
||||
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 "<22> ": 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 "<22>" ELSE GOTO X
|
||||
NEXT A
|
||||
|
||||
finsec:
|
||||
texto$ = "": FOR I = 1 TO lon
|
||||
IF CHR$(SCREEN(lin, col + I - 1)) = "<22>" 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<65>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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user