CLS
PRINT "Microsoft Sharepoint es..."
PRINT "1.una plataforma web de trabajo colaborativo y gestion documental 2.Un procesador de texto 3. una hoja de calculo"
INPUT "pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Fue desarrolador por"
PRINT "1. Bill Gates 2.Richard Brodie 3. Scott Jonson"
INPUT "pulse el numero y enter...", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "En que a¤o se desarrollo..."
PRINT " 1. 2004 2. 2005 3. 2007"
INPUT " pulse el numero y enter...", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT " incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Cuantas versiones existe"
PRINT " 1. 2 2.1 3.3"
INPUT " pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "A que version reemplazo Microsoft Sharepoint"
PRINT "1. Excel 2. Publisher 3. Frontpage"
INPUT "pulse el numero y enter...", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Cual es la pagina mas famosa en la cual se publica estos archivos"
PRINT "1. Angelfire 2. Lycos 3. Gooogle"
INPUT "pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "De que color es el icono de Sharepoint"
PRINT "1. Naranja 2.Verde 3. Azul"
INPUT " pulse el numero y enter...", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Cual es su abreviatura"
PRINT " 1. SP 2.SHP 3. SHPT"
INPUT " pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Que compa¤ia lo creo"
PRINT " 1. Microsoft 2. Apple 3. Otra"
INPUT " pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "Cuantas versiones hay para Apple Macintosh"
PRINT "1.2 2.3 3.1"
INPUT "pulse el numero y enter...", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "La extension que usa Sharepoint es"
PRINT " 1.DOC 2. WMP 3. MP4"
INPUT "pulse el numero y enter...", R
IF R = 1 THEN
PRINT " correcto"
LET TB = TB + 1
ELSE
PRINT " incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT "La letra N significa"
PRINT "1. subrayado 2. negrita 3. cursiva"
INPUT "pulse el numero y enter...", R
IF R = 2 THEN
PRINT " correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT " Su version mas moderna es"
PRINT " 1. 2007 2.2008 3.2009"
INPUT "pulse el numero y enter...", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

CLS
PRINT " En SP puedes hacer paginas web"
PRINT " 1 . SI 2 . NO 3 .Con un hack si"
INPUT "pulse el numero y enter...", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF