1 line
7.5 KiB
Plaintext
1 line
7.5 KiB
Plaintext
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=3:GOSUB 30
|
|
104 S1$="(Whoever,Whosever) eraser this is"
|
|
S2$="better come and get it.":T=2:GOSUB 30
|
|
105 S1$="Are those the relatives (who,whom) are"
|
|
S2$="visiting you this week?":T=1:GOSUB 30
|
|
106 S1$="It was Alexander Graham Bell (who,whom)"
|
|
S2$="invented the telephone.":T=1:GOSUB 30
|
|
107 S1$="And Alexander Graham Kowalski (who,whom)"
|
|
S2$="they made the first telephone pole.":T=3:GOSUB 30
|
|
108 S1$="(Whoever, Whomever) sticks by you in time"
|
|
S2$="of need is the true friend.":T=1:GOSUB 30
|
|
109 S1$="Return the book to me (who,whom) am"
|
|
S2$="the librarian.":T=1:GOSUB 30
|
|
110 S1$="He is the man (who,whom) I gave the box."
|
|
S2$="":T=3:GOSUB 30
|
|
111 S1$="That is the boy (who,whose) house this is."
|
|
S2$="":T=2:GOSUB 30
|
|
112 S1$="Maria is a student in (who,whom) I have"
|
|
S2$="great confidence.":T=3:GOSUB 30
|
|
113 S1$="Any boy (who,whom) reads this book"
|
|
S2$="will enjoy it.":T=1:GOSUB 30
|
|
114 S1$="He was a messenger (who,whom) all"
|
|
S2$="could trust.":T=3:GOSUB 30
|
|
115 S1$="(Whoever, Whomever) wants some candy"
|
|
S2$="should just come and ask for some.":T=1:GOSUB 30
|
|
116 S1$="Give the candy to (whoever,whomever)"
|
|
S2$="asks for some.":T=1:GOSUB 30
|
|
117 S1$="There goes the woman with (who,whom)"
|
|
S2$="I had that interesting conversation.":T=3:GOSUB 30
|
|
118 S1$="He is the type (who,whose) every move"
|
|
S2$="is well thought out.":T=2:GOSUB 30
|
|
119 S1$="Mr. Cantwell encourages "
|
|
S2$="(whoever, whomever) really tries hard.":T=1:GOSUB 30
|
|
120 S1$="The Lord is the One in (Who,Whom)"
|
|
S2$="I place my trust.":T=3:GOSUB 30
|
|
121 S1$="Regina is the person (who,whom) you"
|
|
S2$="gave the best grade in penmanship":T=3:GOSUB 30
|
|
122 S1$="Open to (whoever,whomever) knocks."
|
|
S2$="":T=1:GOSUB 30
|
|
123 S1$="Everyone voted for the girl (who,whom)"
|
|
S2$="they wished to see elected.":T=3:GOSUB 30
|
|
124 S1$="Are you the one for (who,whom) the"
|
|
S2$="police are searching?":T=3:GOSUB 30
|
|
125 S1$="Patricia is the girl (who,whose) brother"
|
|
S2$="you helped.":T=2:GOSUB 30
|
|
126 S1$="I am always the one (who,whom)"
|
|
S2$="everybody appreciates.":T=3:GOSUB 30
|
|
127 S1$="It is he upon (whom,whose) words we"
|
|
S2$="pondered for hours.":T=2:GOSUB 30
|
|
128 S1$="Are you the man (who,whom) owns"
|
|
S2$="this dog?":T=1:GOSUB 30
|
|
129 S1$="TJ is one boy about (who,whom) I"
|
|
S2$="have no worries.":T=3:GOSUB 30
|
|
130 S1$="My brother is the type who speaks easily"
|
|
S2$="to (whoever,whomever) he meets.":T=3:GOSUB 30
|
|
131 S1$="Give (whoever,whomever) arrives first"
|
|
S2$="this message.":T=1:GOSUB 30
|
|
132 S1$="(Whover,Whosever) mess this is better"
|
|
S2$="admit making it.":T=2:GOSUB 30
|
|
133 S1$="We studied about Fr. Hylebos (who,whom)"
|
|
S2$="was an early priest in this area.":T=1:GOSUB 30
|
|
134 S1$="Was it Cardinal Gibbons about (who,whom)"
|
|
S2$="you wrote?":T=3:GOSUB 30
|
|
135 S1$="It is he about (who,whose) hair we"
|
|
S2$="were recently talking.":T=2:GOSUB 30
|
|
|
|
190 GOTO 101
|
|
|
|
600 CLS
|
|
601 CALL TEXTSIZE(24)
|
|
602 CALL MOVETO(20,30):PRINT NOMEN$
|
|
603 CALL MOVETO(20,60):PRINT"DID "ITEM" ITEMS OF "TOT
|
|
605 CALL MOVETO(20,90):PRINT"EX. #36 FOR A"
|
|
607 CALL MOVETO(20,120):PRINT"SCORE = "SCORE"%"
|
|
610 CALL TEXTSIZE(12)
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=36:S=SCORE
|
|
PRINT #1, N,S
|
|
CLOSE #1
|
|
|
|
630 CALL MOVETO(20,180):PRINT"THAT IS ALL YOU GET TO DO."
|
|
CALL MOVETO(20,210):INPUT"GET YOUR SCORE RECORDED AND THEN PRESS 'RETURN' KEY."; V
|
|
RUN "GRAM 1"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|