CLS
LOCATE 2, 10
COLOR 1
INPUT "enter your name"; n$
CLS
LOCATE 3, 32
COLOR 2
PRINT "WELCOME><"; n$
LOCATE 6, 10
COLOR 14
INPUT "Are you ready for quiz (yes or no)"; f$
IF f$ = "no" THEN GOTO lbl:
LOCATE 8, 10
PRINT n$; "type all letters in lcase"
CLS
LOCATE 8, 33
PRINT "Game Just Begining:"
FOR A = 1 TO 1
LOCATE 10, 40
COLOR 6
PRINT "3"
FOR b = 1 TO 12333
NEXT b
NEXT A
CLS
FOR A = 1 TO 1
LOCATE 10, 40
COLOR 6
PRINT "2"
FOR b = 1 TO 12333
NEXT b
NEXT A
CLS
FOR A = 1 TO 1
LOCATE 10, 40
COLOR 6
PRINT "1"
FOR b = 1 TO 12333
NEXT b
NEXT A
CLS
FOR A = 1 TO 1
LOCATE 10, 40
COLOR 6
PRINT "0"
FOR b = 1 TO 12333
NEXT b
NEXT A
CLS
COLOR 14
LOCATE 5, 27
PRINT "Let's Begin"
LOCATE 6, 18
PRINT "Here is first Easy question For you::"; n$
LOCATE 9, 7
PRINT "Which is the Highest Moutain Peak of the World ?"
LOCATE 11, 15
PRINT "Options:"
LOCATE 13, 7
PRINT "1).MT K2 2).MT Everest 3). MT Kanchangungha"
LOCATE 15, 7
INPUT "Enter your Answer 1,2,or 3"; A
IF A = 2 THEN
c = c + 1
LOCATE 17, 8
PRINT "Congratulation:<"; n$; ">:you gave correct answer"
ELSE
w = w + 1
LOCATE 17, 8
PRINT n$; "You gave wrong answer"
END IF
LOCATE 19, 7
INPUT "Are You Ready for Next Question"; zzz$
CLS
LOCATE 9, 15
PRINT "The Question is "
CLS
LOCATE 7, 7
PRINT "Which is Longest River of the World"
LOCATE 9, 15
PRINT "Option:"
LOCATE 10, 7
PRINT "1).Amazon 2).Sun Koshi 3). Nile"
LOCATE 11, 7
INPUT "Enter your your answer 1,2,or 3"; b
IF b = 3 THEN
c = c + 1
LOCATE 13, 6
PRINT "Congratulation:<"; n$; ">:You gave correct Answer"
ELSE
w = w + 1
LOCATE 14, 9
PRINT n$; "::You Gave Wrong Answer"
END IF
LOCATE 15, 2
INPUT "PRESS ANY KEY TO SEE RESULT"; zzz$
CLS
LOCATE 15, 20
PRINT "**************YOR RESULT***************"
LOCATE 16, 21
PRINT "Total Correct Answer are"; c
LOCATE 18, 22
PRINT "Total Wrong Answer are"; w
IF c = 2 THEN
LOCATE 18, 23
PRINT "Your Intelligence % is 100%"
END IF
IF c = 1 THEN
PRINT 18, 24
PRINT "Your Intelligence % is 50%"
END IF
IF c = 0 THEN
LOCATE 18, 25
PRINT "Your Intelligence % is 0 %"
END IF
INPUT "press any key to exist"; zzz$
CLS
LOCATE 9, 25
PRINT "Good Buy"
LOCATE 11, 10
PRINT "Thanks For Playing:<"; n$; ">: | Have A Nice Journey"
LOCATE 13, 8
PRINT "Keep Visiting (lavkush106.blogspot.com) to Boost your Knowledge"
GOTO pgr:
lbl:
LOCATE 8, 18
PRINT n$
PRINT "You are not Ready to Play"
LOCATE 10, 20
PRINT "Thank You | Have A Nice Journey"
pgr:
END
0 Comments