MrCBASIC/36/36.TXT

3 DIM SCR(6000)
4 CLS:PRINT"    THIS IS EXERCISE 36"
        CALL MOVETO(20,30):INPUT"    IS IT THE ONE YOU WANTED?  Y/N "; ANS$
        IF ANS$ = "Y" THEN 5
        IF ANS$= "N" THEN RUN "GRAM 1"
        BEEP:GOTO 4

5 CLS
        CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 5
        A=0:SCORE=0:CICI=0
        ON ERROR GOTO 22
        OPEN NOMEN$ FOR INPUT AS #1
19 IF EOF(1) THEN 20
        INPUT #1, N,S
        IF N=36 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=36
        S=SCORE
        PRINT#1,N,S
        CLOSE#1
        GOTO 23
21 PRINT""
        PRINT"    YOU HAVE ALREADY DONE THIS EXERCISE."
        INPUT"    PLEASE PRESS THE 'RETURN' KEY"; V
        CLS
        RUN "GRAM 1"
22 PRINT"":PRINT""
        PRINT"    NAME NOT FOUND."
        INPUT"     PLEASE PRESS THE 'RETURN' KEY"; V
        CLS
        CLEAR
        GOTO 5

23 CALL MOVETO(20,50):PRINT"THANK YOU."
        SOUND 524,1,100:FOR D=1 TO 200:NEXT D
        SOUND 392,4,10
        FOR DL=1 TO 3000:NEXT DL
24 CLS
        PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100
        PRINT"    IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
        PRINT"    CLICK ON THE SCORE BOX.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A"
        PRINT"    CHOICE OF WORDS IN PARENTHESES."
        PRINT"    THERE ARE THREE BUTTONS LOCATED IN THE FRAME OF THE SCREEN."
        PRINT"    CLICK ON THE BUTTON THAT TELLS THE BEST CHOICE. "
        PRINT""
        PRINT"    THE PROGRAM WILL TELL YOU IF YOU ARE RIGHT OR WRONG."
        PRINT"    THEN IT WILL GO ON TO THE NEXT SENTENCE."
        PRINT""
        PRINT"    THERE ARE 25 SENTENCES, AND YOU MAY THEM ONLY ONCE."
        PRINT""
        INPUT"    WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY.", V

5 CLS
        OPEN "RELDR" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (20,20)-(470,270), IMAGE$
        CLOSE
        GET(20,20)-(470,270),SCR
        CLS
        
25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=25
26 TIM$=TIME$
27 TIM=VAL(RIGHT$(TIM$,1))+1
28 ON TIM GOTO 101,103,106,110,113,117,119,123,125,127

30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
        PUT(20,20),SCR
        L=LEN(NOMEN$)
        L=8*(L/2)
        CALL MOVETO(246-L,52):PRINT NOMEN$
        CALL MOVETO(350,202):PRINT SCORE"%"
        CALL MOVETO(128,202):PRINT LEFT
        IF S2$="" THEN 31
        CALL MOVETO(100,110):PRINT S1$
        CALL MOVETO(100,130):PRINT S2$:GOTO 40
31 CALL MOVETO(100,110):PRINT S1$

40 B=0
        B=MOUSE(0)
        IF B=-1 THEN 45 ELSE 40
45 X=MOUSE(1)
        Y=MOUSE(2)
        IF X>420 AND X<460 AND Y>123 AND Y<162 THEN GT=3:GOTO 50
        IF X>30 AND X<68 AND Y>122 AND Y<166 THEN GT=1:GOTO 50
        IF X>206 AND X<280 AND Y>222 AND Y<264 THEN GT=2:GOTO 50
        IF X>300 AND X<410 AND Y>180 AND Y<220 THEN 600
        GOTO 40
        
50 IF GT=1 THEN LINE(31,125)-(64,163),,BF
        IF GT=2 THEN LINE(208,225)-(276,260),,BF
        IF GT=3 THEN LINE(420,124)-(456,161),,BF
        SOUND 117,2,100:FOR D=1 TO 400:NEXT D
        IF GT=T THEN 55 ELSE 60
55 CALL MOVETO(165,52):PRINT"          C O R R E C T       "
        SOUND 466,2,100:FOR D=1 TO 400:NEXT D
        SOUND 350,1,100:FOR D=1 TO 200:NEXT D
        SOUND 350,1,0:FOR D=1 TO 200:NEXT D
        SOUND 294,2,100:FOR D=1 TO 400:NEXT D
        SOUND 233,4,100:FOR D=1 TO 2000:NEXT D
        CORRECT=CORRECT+1:TRY=TRY+1
        GOTO 90
60 CALL MOVETO(165,52):PRINT"           W R O N G           "
        SOUND 58,5,100
        FOR D=1 TO 2600:NEXT D
        TRY=TRY+1
        GOTO 90
        
90 SCORE=INT(100*(CORRECT/TRY))
        S1$="":S2$="":T=0
        RETURN
        
101 S1$="James in the one (who,whom) will be"
        S2$="the first affirmative speaker.":T=1:GOSUB 30
102 S1$="He will hit (whoever,whomever)takes" 
        S2$="his pencil.":T=1:GOSUB 30
103 S1$="Was it she from (who,whom) you received that"
        S2$="beautiful pen and pencil set?":T