MrCBASIC/4/4.TXT

5 DIM SCR(8000):DIM BUT(3000)

10 CLS:PRINT"    THIS IS EXERCISE 4"
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=4 THEN A=1
        GOTO 19
20 CLOSE #1
        IF A>0 THEN 21
        OPEN NOMEN$ FOR APPEND AS #1
        N=4
        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
        CLS
        SOUND 196,4,100:FOR DLY=1 TO 800:NEXT DLY
        SOUND 196,2,30:FOR DLY=1 TO 400:NEXT DLY
        SOUND 262,8,50:FOR DLY=1 TO 1000:NEXT DLY
24 PRINT"    IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
        PRINT"    CLICK ON THE SCORE VALUE.  REMEMBER THIS."
        PRINT""
        PRINT"    THE COMPLETE EXERCISE HAS 25 ITEMS."
        PRINT"    YOU WILL BE ALLOWED ONLY TWO TRIES."
        PRINT""
        INPUT"TO GET GOING, PRESS 'RETURN' KEY.", V


30 OPEN "PERSON" FOR INPUT AS #1
31 IMAGE$=INPUT$(LOF(1),1)
32 PICTURE (20,20)-(470,270), IMAGE$
33 CLOSE
34 GET(20,20)-(470,270),SCR:TOT=25
35 SCORE =0:ITEM=0:TRY=0:COR=0
36 TIM$=TIME$
37 TIM=VAL(RIGHT$(TIM$,1))+1

39 ON TIM GOTO 500,507,509,513,519,527,533,542,547,550

50 CLS:ITEM=ITEM+1:LEFT=25-ITEM:IF ITEM>=26 THEN 600
51 PUT(20,20),SCR
52 CALL TEXTSIZE(18)
        CALL MOVETO(120,54):PRINT NOMEN$
        CALL MOVETO(160,254):PRINT LEFT:CALL MOVETO(360,254):PRINT SCORE"%"
    CALL TEXTSIZE(12)::CALL MOVETO(50,100):PRINT S$
53 B=0
54 B=MOUSE(0)
55 IF B=-1 THEN 56 ELSE 53
56 X=MOUSE(1)
57 Y=MOUSE(2)
58 IF Y>154 AND Y<213 THEN 60 ELSE 59
59 IF Y>220 AND Y<280 AND X>360 AND X<480 THEN 600 ELSE 53

60 Y1=156:Y2=213
61 IF X>40 AND X<160 THEN 62 ELSE 64
62 X1=40:X2=146:C$="1"
63 GOTO 80
64 IF X>160 AND X<325 THEN 65 ELSE 67
65 X1=190:X2=295:C$="2"
66 GOTO 80
67 IF X>340 AND X<450 THEN 68 ELSE 53
68 X1=340:X2=445:C$="3"
69 GOTO 80

80 GET(X1,Y1)-(X2,Y2),BUT
81 LINE(X1,Y1)-(X2,Y2),,BF
82 PUT(X1,Y1),BUT
83 SOUND 1760,.5,200:FOR DL=1 TO 100:NEXT DL
84 IF C$=P$ THEN GOSUB 100 ELSE GOSUB 200
85 RETURN

100 SOUND 131,8,200:FOR DL=1 TO 1600:NEXT DL
        SOUND 165,4,0:FOR DL=1 TO 800:NEXT DL
        SOUND 196,4,0:FOR DL=1 TO 800:NEXT DL
        LINE(X1,Y1)-(X2,Y2),,BF
        CALL MOVETO(X1+25,Y1+33):PRINT"CORRECT"
        FOR DL=1 TO 3000:NEXT DL
        TRY=TRY+1:COR=COR+1:SCORE=INT(100*(COR/TRY))
        RETURN
        
200 SOUND 55,8,200:FOR DL=1 TO 1600:NEXT DL
        LINE(X1,Y1)-(X2,Y2),,BF
        CALL MOVETO(X1+25,Y1+33):PRINT" WRONG "
        FOR DL=1 TO 3000:NEXT DL
        TRY=TRY+1:SCORE=INT(100*(COR/TRY))
        RETURN
        
500 S$="JOHN, you may play the organ for Mass.":P$="2":GOSUB 50
501 S$="New York is a major CITY on the east coast.":P$="3":GOSUB 50
502 S$="We, your PARENTS, love you.":P$="1":GOSUB 50
503 S$="We, the JURY, find the defendant guilty.":P$="1":GOSUB 50
504 S$="Winter is my favorite SEASON.":P$="3":GOSUB 50
505 S$="Play in the backyard, CHILDREN.":P$="2":GOSUB 50
506 S$="You PEOPLE are always bugging me.":P$="2":GOSUB 50
507 S$="Fr. Kieran will say MASS at 8:00 today.":P$="3":GOSUB 50
508 S$="DINNER is almost ready.":P$="3":GOSUB 50
509 S$="Return the book to me who am the LIBRARIAN.":P$="1":GOSUB 50
510 S$="Not all who say to me ''LORD, LORD'' will enter.":P$="2":GOSUB 50
511 S$="That was nice of you, SISTER dearest.":P$="2":GOSUB 50
512 S$="The governor will address our CLASS tomorrow.":P$="3":GOSUB 50
513 S$="I am your best FRIEND.":P$="1":GOSUB 50
514 S$="We, the MEMBERS of the team, thank you for this award.":