INICIO:
CLS
LOCATE 4
PRINT TAB(19); "JS (JOANSOFT) TUTOR JOAN VERSION 1.1"
PRINT TAB(16); "UN CURSO DE MS-DOS DE LA CASA JOANSOFT (JS)"
PRINT TAB(7); "PROGRAMA CREADO CON MS-DOS QBASIC V.1.1 POR JOAN ALBA MALDONADO"
PRINT TAB(4); "RECORDAR QUE EL CREADOR DE LA CASA JOANSOFT ES JOAN A.M. Y NADIE MAS"
PRINT TAB(8); "ESTE ES UN CURSO DE MS-DOS 6.0 PARA APRENDER MUY FACILMENTE"
MENU1:
PRINT
PRINT "MENU PRINCIPAL"
PRINT
PRINT "1.-"; : COLOR 25: PRINT " C"; : COLOR 7: PRINT "URSO DE MS - DOS 6.2"
PRINT "2.- VER "; : COLOR 25: PRINT "L"; : COLOR 7: PRINT "EEME.TXT (INSTRUCCIONES)"
PRINT "3.-"; : COLOR 25: PRINT " S"; : COLOR 7: PRINT "ALIR DEL PROGRAMA JS TUTORJOAN V.1.1"
PRINT
INPUT "ELIGE UNA OPCION DE LA UNA A LA TRES (TAMBIEN CON LAS LETRAS RESALTADAS)"; OP1$
SELECT CASE OP1$
CASE "C", "c", "1": GOTO EMPEZAR
CASE "L", "l", "2": GOTO LEEME
CASE "S", "s", "3": GOTO SALIR
END SELECT

EMPEZAR:
CLS
LOCATE 3
PRINT "BUENO, HAS DECIDIDO ENTRAR EN EL CURSO, AHORA HAS DE ELEGIR EL NIVEL"
PRINT
PRINT TAB(10); "1.- CURSO CON ORDENES DE INICIACION"
PRINT TAB(10); "4.- CURSO CON ORDENES DE ARCHIVOS .BAT"
PRINT TAB(10); "6.- PEQUE¥O LISTADO Y RESUMEN DE ORDENES COMENTADAS"
PRINT TAB(10); "7.- VOLVER AL MENU PRINCIPAL"
PRINT
INPUT "ELIGE UN NIVEL DE ORDENES DE MS-DOS"; NIVEL
ON NIVEL GOTO ORD, BAT, RESUMEN, INICIO

ORD:
CLS
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "³                                                                 ³"
PRINT "³ 1.CAMBIO DE UNIDAD ACTIVA | 2.DIR | 3.CHDIR | 4.MD | 5.RD       ³"
PRINT "³ 6.COPY | 7.XCOPY | 8.DEL | 9.CLS | 10.FORMAT | 11.FC            ³"
PRINT "³ 12.FIND | 13.DISKCOPY | 14.DISKCOMP | 15.DELTREE                ³"
PRINT "³ 16.UNDELETE | 17.ATTRIB | 19.PRINT | 20.HELP | 21.FASTHELP      ³"
PRINT "³ 22.PRN | 23.REPLACE | 24.RENAME | 25.TREE | 26.TIME | 27.DATE   ³"
PRINT "³ 28.MOE | 29.TYPE | 30.VER | 31.VOL | 32.LABEL | 33.MENU ANTERIOR³"
PRINT "³                                                                 ³"
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
PRINT
INPUT "ELIGE UNA ORDEN A APRENDER"; EL1
ON EL1 GOTO UNIDAD, DIR, CD, MD, RD, COPY, XCOPY, DEL, CLEAN, FORMAT, FC, FIND, DISKCOPY, DISKCOMP, DELTREE, UNDELETE, ATTRIB, RENAME, TREE, TIME, DATE, MOVE, TYPEI, VER, VOL, LABEL

UNIDAD:
CLS
PRINT
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "³ORDEN : '':'' MISION: CAMBIAR UNIDAD ACTIVA                      ³"
PRINT "³                                                                 ³"
PRINT "³MEDIANTE LA ORDEN '':'' (DOS PUNTOS), PODREMOS CAMBIAR DE UNIDAD ³"
PRINT "³ACTIVA, PONIENDO LA LETRA DE LA UNIDAD CORRESPONDIENTE LA QUAL   ³"
PRINT "³CON LA QUE QUERAMOS TRABAJAR (POR EJEMPLO LAS LETRAS DE LAS      ³"
PRINT "³UNIDADES PODRIAN SER: LOS DE DISCOS DE 5 ¬ LA LETRA ''B'' Y LA   ³"
PRINT "³DE 3 « PULGADAS UQE SERIA NORMALMENTE LA LETRA ''A'', Y LA DEL   ³"
PRINT "³DISCO DURO: LA ''C''.                                            ³"
PRINT "³SI QUEREMOS CAMBIAR POR EJEMPLO DE UNIDAD DESDE EL SIMBOLO DEL   ³"
PRINT "³DOS (C:\> (NOMALMENTE)), TECLEAREMOS LA LETRA DE LA UNIDAD (POR  ³"
PRINT "³EJEMPLO ''A'') , Y SEGUIDO DE DOS PUNTOS (:), POR EJEMPLO: A:    ³"
PRINT "³EN EL SIMBOLO DE SISTEMA SALDRIA EN LA PANTALLA: C:\>A: (INTRO)  ³"
PRINT "³Y EL SIMBOLO DEL DOS CAMBIARIA A SER A:\>, ESO QUERRA DECIR QUE  ³"
PRINT "³HEMOS CAMBIADO DE LA UNIDAD ''C'' A LA UNIDAD ''A''.             ³"
PRINT "³EN ESTE CURSOLAS LETRAS CORRESPONDIENTES SON: LA ''C''DISCO DURO,³"
PRINT "³LA ''A'' UNIDAD DE 3 « Y LA ''B'' UNIDAD DE 5 ¬ .                ³"
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
INPUT "PULSA INTRO PARA CONTINUAR"; J

PREGUNTA1U:
CLS
PRINT
PRINT "C:\>"
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³INTENTA CAMBIAR DE LA UNIDAD ACTIVA (C:\) A LA UNIDAD A:\³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 3.5: INPUT ; E1U$
SELECT CASE E1U$
CASE "A:", "a:", "A:\", "a:\: GOTO PREGUNTA2U"
CASE ELSE: GOTO PREGUNTA1U
END SELECT

PREGUNTA2U:
CLS
PRINT
PRINT "C:\>"
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³INTENTA CAMBIAR DE LA UNIDAD ACTIVA (A:\) A LA UNIDAD B:\³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 3.5: INPUT ; E2U$
SELECT CASE E2U$
CASE "A:", "a:", "A:\", "a:\: GOTO PREGUNTA3U"
CASE ELSE: GOTO PREGUNTA2U
END SELECT

PREGUNTA3U:
CLS
PRINT
PRINT "C:\>"
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³INTENTA CAMBIAR DE LA UNIDAD ACTIVA (B:\) A LA UNIDAD C:\³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 3.5: INPUT ; E3U$
SELECT CASE E3U$
CASE "C:", "c:", "C:\", "c:\: GOTO FELIZ"
CASE ELSE: GOTO PREGUNTA3U
END SELECT

FELIZ:
CLS
PRINT
PRINT TAB(12); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(12); "³             ­FELICIDADES!                ³"
PRINT TAB(12); "³HAS CONSEGUIDO HACABAR LOS EJERCICIOS,    ³"
PRINT TAB(12); "³BUENO, YA SABES UN POCO DE MS-DOS, SIGUE  ³"
PRINT TAB(12); "³CON LAS PRACTICAS QUE NO SEPAS, PARA APR- ³"
PRINT TAB(12); "³ENDERLAS, O SIMPLEMENTE PARA REPASARLAS   ³"
PRINT TAB(12); "³COMO UN LIBRO DE CONSOLTA, O PARA PRACTI- ³"
PRINT TAB(12); "³CAR CON LAS ORDENES QUE NO TE ACUERDAS MUY³"
PRINT TAB(12); "³BIEN.                                     ³"
PRINT TAB(12); "³BUENO, ASTA LUEGO.                        ³"
PRINT TAB(12); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
INPUT "PRESIONA INTRO PARA CONTINUAR"; O
GOTO ORD

DIR:
CLS
PRINT
PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "³ORDEN: DIR  SIGNIFICADO: DIRECTORY (DIRECTORIO) MISION: LISTADO  ³"
PRINT "³DE ARCHIVOS.                                                     ³"
PRINT "³LA ORDEN DIR MUESTRA UN LISTADO DE LOS DIRECTORIOS Y LOS ARCHIVOS³"
PRINT "³DEL DIRECTORIO RAIZ DE LA UNIDAD DESEADA Y CON ALGUNOS PARAMETROS³"
PRINT "³LA ORDEN DIR SE PUEDE COMBERTIR EN OPERADORA DE ARCHIVOS OCULTOS,³"
PRINT "³CON ATTRIBUTOS, ARBOLES DE DIRECTORIOS Y ARCHIVOS, ETC...        ³"
PRINT "³SI EN LA UNIDAD C:\ (POR PONER UN EJEMPLO), EXISTEN DOS ARCHIVOS ³"
PRINT "³LLAMADOS JOAN.TXT Y TUTOR.BAS, PARA QUE TE MUESTRE EL MS-DOS LOS ³"
PRINT "³ARCHIVOS, SOLO TENDREMOS QUE TECLEAR DESDE LA UNIDAD DESEADA     ³"
PRINT "³LA ORDEN ''DIR'', POR EJEMPLO: C:\>DIR (INTRO), Y NOS HARIA UN   ³"
PRINT "³LISTADO DE LOS ARCHIVOS QUE HAYA, SI BIEN HEMOS DE HACER UN LIS- ³"
PRINT "³TADO DE OTRA UNIDAD, CAMBIAREMOS A LA UNIDAD CORRESPONDIENTE (PO-³"
PRINT "³R EJEMPLO: SI LA LETRA DE LA UNIDAD ES LA A, TECLEAREMOS A: PARA ³"
PRINT "³ENTRAR EN LA UNIDAD DESEADA (EN ESTE CASO LA A), Y EJECUTAR LA   ³"
PRINT "³ORDEN DIR, O SI NO EJECUTAR DESDE LA UNIDAD QUE SEA LA ORDEN DIR ³"
PRINT "³SEGUIDA DE LA UNIDAD QUE QUERAMOS HACER UN LISTADO, EJEMPLO:     ³"
PRINT "³DIR A: (SI QUEREMOS HACER UN LISTADO DE LOS ARCHIVOS Y DE LOS    ³"
PRINT "³DIRECTORIOS  EXISTENTES EN DICHA UNIDAD.                         ³"
PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
INPUT "PULSA INTRO PARA CONTINUAR"; P

PREGUNTA1DIR:
CLS
PRINT
PRINT "C:\>"
PRINT
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³HAZ UN LISTADO DE LOS ARCHIVOS QUE HAY EN EL³"
PRINT TAB(14); "³DIRECTORIO RAIZ DE LA UNIDAD C, CON UNA SOLA³"
PRINT TAB(14); "³ORDEN, Y NO CON MAS DE UNA.                 ³"
PRINT TAB(14); "³                                            ³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 2.5: INPUT ; E1DIR
SELECT CASE E1DIR
CASE "DIR", "dir": GOTO PREGUNTA2DIR
CASE ELSE: GOTO PREGUNTA1DIR

PREGUNTA2DIR:
GOSUB LISTADOC
CLS
PRINT
PRINT "A:\>"
PRINT
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³HAZ UN LISTADO DE LOS ARCHIVOS QUE HAY EN EL³"
PRINT TAB(14); "³DIRECTORIO RAIZ DE LA UNIDAD C, CON DOS     ³"
PRINT TAB(14); "³SOLAS ORDENES, Y NO CON MAS.                ³"
PRINT TAB(14); "³                                            ³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 2.5: INPUT ; E2.1DIR
SELECT CASE E2.1DIR
CASE "C:", "c", "C:\", "c:\": GOTO PREGUNTA2.2DIR
CASE ELSE: GOTO PREGUNTA2DIR

PREGUNTA2.2DIR:
CLS
PRINT
PRINT "C:\>"
PRINT
COLOR 26
PRINT TAB(14); "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT TAB(14); "³HAZ UN LISTADO DE LOS ARCHIVOS QUE HAY EN EL³"
PRINT TAB(14); "³DIRECTORIO RAIZ DE LA UNIDAD C, CON DOS     ³"
PRINT TAB(14); "³SOLAS ORDENES, Y NO CON MAS.                ³"
PRINT TAB(14); "³(AHORA YA HAS EJECUTADO EL PRIMERO, HAZ EL 2³"
PRINT TAB(14); "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 7
LOCATE 2.5: INPUT ; E2.2DIR
SELECT CASE E2.1DIR
CASE "DIR", "dir": GOTO PREGUNTA3DIR
CASE ELSE: GOTO PREGUNTA2DIR



































LISTADOC:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: HOLA,"
PRINT "EL NUMERO DE SERIE ES EL: 12533425325"
PRINT "EN EL DIRECTORIO RAIZ DE C:\..."
PRINT
PRINT "PESADOC               [DIR]                         12/04/97, 17:34:28.a."
PRINT "JOCS                  [DIR]                         01/01/96, 01:01:01.a."
PRINT "MEMMAKER         BAT             7.34 BYTES         13/05/98, 17:34:48.p."
PRINT "MEMMAKER         TXT             3.78 BYTES         13/05/98, 17:36:38.p."
PRINT
INPUT "PRESIONE CUALQUIER TECLA PARA CONTINUAR"; A
RETURN

PESADOC:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: HOLA,"
PRINT "EL NUMERO DE SERIE ES EL: 12533425325"
PRINT "EN EL DIRECTORIO DE C:\PESADOCS..."
PRINT
PRINT "DOCUME           NTO            999.001 BYTES       16/04/95, 16:23:45.a."
INPUT "PRESINE CUALQUIER TECLA PARA CONTINUAR"; D

JOCSC:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: HOLA,"
PRINT "EL NUMERO DE SERIE ES EL: 12533425325"
PRINT "EN EL DIRECTORIO DE C:\JOCS..."
PRINT
PRINT "SAMNMAX          EXE            45.455 BYTES        15/09/96,24:34:45.a."
PRINT "THEDIG           EXE            67.789 BYTES        31/07/99,23:34:12.p."
PRINT "TENTACLE         EXE            45.788 BYTES        19/25/89,17:30:45.a."
PRINT "INDIANA          EXE            23.245 BYTES        31/07/99,14:34:45.p."
PRINT "SIMON2           EXE            23.567 BYTES        31/07/99,19:45:34.p."
INPUT "PRESINE CUALQUIER TECLA PARA CONTINUAR"; F
RETURN

LISTADOA:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: CURSH,"
PRINT "EL NUMERO DE SERIE ES EL: 12325"
PRINT "EN EL DIRECTORIO RAIZ DE A:\..."
PRINT
PRINT "PESADOC               [DIR]                         12/04/97, 17:34:28.a."
PRINT "JOCS                  [DIR]                         01/01/96, 01:01:01.a."
PRINT "MEMMAKER         BAS             0.34 BYTES         13/05/98, 17:34:48.p."
PRINT "MEMMAKER         TNT             1.78 BYTES         13/05/98, 17:36:38.p."
PRINT
INPUT "PRESIONE CUALQUIER TECLA PARA CONTINUAR"; A
RETURN

PESADOA:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: CURSH,"
PRINT "EL NUMERO DE SERIE ES EL: 12325"
PRINT "EN EL DIRECTORIO DE A:\PESADOCS..."
PRINT
PRINT "DOCUME           NTO            3.001 BYTES       16/04/95, 16:23:45.a."
INPUT "PRESINE CUALQUIER TECLA PARA CONTINUAR"; T

JOCSC:
PRINT
PRINT "EL VOLUMEN DE LA UNIDAD C ES DE: HOLA,"
PRINT "EL NUMERO DE SERIE ES EL: 12533425325"
PRINT "EN EL DIRECTORIO DE C:\JOCS..."
PRINT
PRINT "SAMNMAX          EXE            0.455 BYTES        15/09/96,24:34:45.a."
PRINT "THEDIG           EXE            0.789 BYTES        31/07/99,23:34:12.p."
PRINT "TENTACLE         EXE            0.788 BYTES        19/25/89,17:30:45.a."
PRINT "INDIANA          EXE            0.245 BYTES        31/07/99,14:34:45.p."
PRINT "SIMON2           EXE            0.567 BYTES        31/07/99,19:45:34.p."
INPUT "PRESINE CUALQUIER TECLA PARA CONTINUAR"; Q
RETURN


