MrCBASIC/11/11.TXT

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

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=11 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=11
        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
        SOUND 196,2,100:FOR D=1 TO 400:NEXT D:SOUND 262,6,50:FOR D=1 TO 400:NEXT D
        CLS
        PRINT""
        PRINT"    IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
        PRINT"    INPUT 'QUIT' FOR THE CHOICE OF ENDING.  REMEMBER THIS."
        PRINT""
        PRINT"    IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH SOME"
        PRINT"    WORDS THAT HAVE (#) AFTER THEM."
        PRINT"    THE QUESTION WILL BE: DOES 'S OR ' OR NOTHING GO IN THE ( )."
        PRINT"    AS EACH NUMBER OF THE ( ) IS ASKED, YOU INPUT ONE OF:"
        PRINT"    'S, ', OR 0--I.E. THE ZERO KEY--TO TELL WHAT GOES THERE."
        PRINT""
        PRINT"    EXERCISE HAS 18 SENTENCES, YOU WILL GET TWO TRIES AT IT."
        PRINT""
        INPUT"    WHEN YOU ARE READY TO GO, PRESS THE 'RETURN' KEY", V
        
       

25 CLS:SCORE =0:ITEM=-1:TRY=0:CORRECT=0:TOT=18
        GOTO 130
26 TIM$=TIME$
27 TIM=VAL(RIGHT$(TIM$,1))+1
28 ON TIM GOTO 500,503,506,510,513,517,519,525,529,533

30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
        SOUND 196,1,200:FOR D=1 TO 200:NEXT D:SOUND 131,4,30
        CALL TEXTSIZE(18):CALL MOVETO(20,30)
        PRINT"Name: "NOMEN$"    Left:"LEFT"    Score:"SCORE"%"
        CALL TEXTFONT(CHICAGO):CALL MOVETO(20,70)
        PRINT"Sample sentence:"
        CALL TEXTFONT(12):CALL MOVETO(30,120):PRINT S1$
        IF S2$<>"" THEN CALL MOVETO(40,150):PRINT S2$
        FOR N=1 TO Q
        CALL TEXTFONT(CHICAGO):CALL MOVETO(20,200)
        PRINT"WHAT GOES IN ("N")?"
31  CALL TEXTFONT(12):CALL MOVETO(10,240)
        INPUT CH$
        IF CH$=A$(N) THEN 32
        IF CH$="QUIT" THEN ITEM=ITEM-1:GOTO 600
        SOUND 65,8,70
        CALL MOVETO(20,260):PRINT"That is WRONG.  Try again."
        FOR D=1 TO 4000:NEXT D
        LINE(10,220)-(480,280),30,BF
        TRY=TRY+1
        GOTO 31
32 SOUND 262,1,180:FOR D=1 TO 200:NEXT D:SOUND 262,2,10:FOR D=1 TO 400:NEXT D
        SOUND 175,4,180:FOR D=1 TO 800:NEXT D:SOUND 175,6,0
        TRY=TRY+1:CORRECT=CORRECT+1
        CALL MOVETO(20,260):PRINT"That is CORRECT.   Wonderful !"
        FOR D=1 TO 2000:NEXT D
        LINE(10,220)-(480,280),30,BF
        NEXT N
35 SCORE=INT(100*(CORRECT/TRY))
        RETURN
        
        
100 S1$="James(1), John(2), and Joseph(3) new boat":S2$="was launched yesterday.":A$(1)="0":A$(2)="0":A$(3)="'S":Q=3:GOSUB 30
101 S1$="Maria(1) and Patricia(2) papers are":S2$="always quite neat.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
102 S1$="Frederick(1) and Nelson(2) store":S2$="has closed.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
103 S1$="We shall visit John(1) and Regina(2)":S2$="new house.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
104 S1$="Peter(1), Andrew(2), James(3), and John(4)":S2$="vision of the Lord was astounding.":A$(1)="0":A$(2)="0":A$(3)="0":A$(4)="'S":Q=4:GOSUB 30
105 S1$="I shall employ Dane(1) and Bosworth(2) firm":S2$="as my investors.":A$(1)="0":A$(2)="'S":Q=2:GOSUB 30
106 S1$="John(1) and Luke(2) dogs are the ":S2$="same breed.":A$(1)="'S":A$(2)="'S":Q=2:GOSUB 30
107 S1$="I particularly enjoy Bach(1) and":S2$="Buxtehude(2) works for the organ.":A$(1)=