MrCBASIC/15/15.TXT

5 DIM SCR(8000):DIM BOX(1000)
10 CLS:PRINT"    THIS IS EXERCISE 15"
        CALL MOVETO(20,30):INPUT"    IS IT THE ONE YOU WANTED?  Y/N "; ANS$
        IF ANS$ = "Y" THEN 17
        IF ANS$= "N" THEN RUN "GRAM 1"
        BEEP:GOTO 10

17 CLS
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
        IF NOMEN$="" THEN BEEP:GOTO 18
        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=15 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=15
        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 17

23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL
24 PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,4,100
        PRINT"    IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
        PRINT"    CLICK ON THE LITTLE HAND.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL BE GIVEN A SCREEN WITH BOXES"
        PRINT"    LABELLED 'INTENSIVE' AND 'REFELXIVE'."
        PRINT"    YOU WILL BE GIVEN A SENTENCE WITH A COMPOUND PERSONAL"
        PRINT"    PRONOUN IN IT.  YOU CLICK WITH THE MOUSE ON THE BOX THAT"
        PRINT"    TELLS HOW THE PRONOUN IS USED."
        PRINT""
25    INPUT"    WHEN YOU ARE READY TO GO, 'ENTER' A 'G'.", V$
        IF V$="G" THEN 27
        BEEP:BEEP:CLS:PRINT"":GOTO 25
        

27 CLS
        SOUND 466,4,80:FOR D=1 TO 800:NEXT D
        SOUND 350,4,10:FOR D=1 TO 800:NEXT D
        SOUND 294,4,80:FOR D=1 TO 800:NEXT D
        SOUND 262,4,160:FOR D=1 TO 800:NEXT D
        SOUND 392,2,10:FOR D=1 TO 500:NEXT D
        SOUND 392,6,80
        OPEN "COMP" FOR INPUT AS #1
        IMAGE$=INPUT$(LOF(1),1)
        PICTURE (20,20)-(470,270), IMAGE$
        CLOSE
28 GET(0,0)-(490,290),SCR
        FOR D=1 TO 3000:NEXT D
        PUT(0,0),SCR
       
29 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0:TOT=20
        TIM$=TIME$
        TIM=VAL(RIGHT$(TIM$,1))+1
        ON TIM GOTO 101,106,110,113,117,118,122,125,127,132

30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT<0 THEN 600
        PUT(0,0),SCR
        CALL TEXTFACE(1)
        CALL MOVETO(124,77):PRINT NOMEN$
        CALL MOVETO(250,77):PRINT LEFT
        CALL MOVETO(344,77):PRINT SCORE"%"
        CALL MOVETO(124,116):PRINT S1$
        CALL MOVETO(124,132):PRINT S2$
        
32 B=0
        B=MOUSE(0)
        IF B=-1 THEN 33 ELSE 32
33 X=MOUSE(1)
        Y=MOUSE(2)
        IF X>68 AND X<196 AND Y>173 AND Y<227 THEN G$="I":GOTO 40
        IF X>295 AND X<425 AND Y>173 AND Y<227 THEN G$="R":GOTO 40
        IF X>60 AND X<130 AND Y>100 AND Y<180 THEN ITEM=ITEM-1:GOTO 600
        GOTO 32

40 IF G$="R" THEN 60
        GET(68,173)-(196,227),BOX
        LINE(68,173)-(196,227),,BF
        PUT(68,173),BOX
        SOUND 350,2,100:FOR D=1 TO 400:NEXT D
        SOUND 233,6,10:FOR D=1 TO 1200:NEXT D
        LINE(74,180)-(189,220),,BF
        IF T$="I" THEN 41 ELSE 42
41 CALL MOVETO(96,204):PRINT" CORRECT "
        FOR N=1 TO 7
        SOUND 294,1,30:FOR D=1 TO 200:NEXT D
        NEXT N
        CORRECT=CORRECT+1:TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY))
        RETURN
42 CALL MOVETO(100,204):PRINT"WRONG"
        SOUND 73,8,100:FOR D=1 TO 1600:NEXT D
        TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY))
        RETURN
        

60 GET(295,173)-(425,227),BOX
        LINE(295,173)-(425,227),,BF
        PUT(295,173),BOX
        SOUND 350,2,100:FOR D=1 TO 400:NEXT D
        SOUND 233,6,10:FOR D=1 TO 1200:NEXT D
        LINE(303,180)-(418,220),,BF
        IF T$="R" THEN 61 ELSE 62
61 CALL MOVETO(326,204):PRINT" CORRECT "
        FOR N=1 TO 7
        SOUND 294,1,30:FOR D=1 TO 200:NEXT D
        NEXT N
        CORRECT=CORRECT+1:TRY=TRY+1:SCORE=INT(100*(CORRECT/TRY))
        RETURN
62 CALL MOVETO(332,204)