1 line
4.1 KiB
Plaintext
1 line
4.1 KiB
Plaintext
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.":P$="1":GOSUB 50
|
|
515 S$="Can you CHILDREN see this picture all right?":P$="2":GOSUB 50
|
|
516 S$="The TELEVISION isn't working right.":P$="3":GOSUB 50
|