1 line
4.3 KiB
Plaintext
1 line
4.3 KiB
Plaintext
3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800)
|
|
DIM SIGN(800)
|
|
10 CLS:PRINT" THIS IS EXERCISE 23"
|
|
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
|
|
CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|
|
IF NOMEN$="" THEN BEEP:GOTO 17
|
|
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=23 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=23
|
|
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
|
|
PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100
|
|
CLS
|
|
PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
|
|
PRINT" CLICK ON THE 'QUIT' SQUARE. REMEMBER THIS."
|
|
PRINT""
|
|
PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH ONE OR"
|
|
PRINT" MORE POSSESSIVE WORDS IN IT."
|
|
PRINT" YOU WILL ENTER A POSSIBLE POSSESSIVE WORD."
|
|
PRINT" YOU WILL BE TOLD IF YOU ARE RIGHT OR WRONG, AND BE GIVEN"
|
|
PRINT" ADDITIONAL CHANCES AS NEEDED. YOU WILL NOT GO ON UNTIL YOU"
|
|
PRINT" GET IT RIGHT."
|
|
PRINT" THEN YOU WILL CLICK ON THE BOX TO TELL IF IT IS"
|
|
PRINT" AN ADJECTIVE OR A PRONOUN."
|
|
PRINT" EXERCISE HAS 15 SENTENCES; YOU MAY DO IT TWICE, MAXIMUM."
|
|
24 PRINT""
|
|
INPUT" WHEN YOU ARE READY, INPUT A 'G'.", V$
|
|
IF V$="G" THEN 25 ELSE BEEP:BEEP:CLS:GOTO 24
|
|
|
|
25 CLS
|
|
OPEN "AQP" FOR INPUT AS #1
|
|
IMAGE$=INPUT$(LOF(1),1)
|
|
PICTURE (30,26)-(445,265), IMAGE$
|
|
CLOSE
|
|
LINE(90,110)-(232,146),,BF:LINE(92,112)-(230,144),30,BF
|
|
GET(90,110)-(232,146),BOX
|
|
PUT(90,110),BOX
|
|
GET (58,170)-(84,208),SMFC
|
|
PUT(58,170),SMFC
|
|
GET(390,170)-(418,208),FFC
|
|
PUT(390,170),FFC
|
|
GET(30,26)-(445,265),SCR
|
|
GET(203,34)-(272,74),SIGN
|
|
27 CLS:SCORE =100:ITEM=-1:TRY=0:CORRECT=0:TOT=15
|
|
TIM$=TIME$
|
|
TIM=VAL(RIGHT$(TIM$,1))+1
|
|
ON TIM GOTO 101,103,106,110,113,115,119,121,125,127
|
|
|
|
30 ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=0 THEN 600
|
|
J1$="":J2$=""
|
|
31 CLS:PUT(30,26)-(445,265),SCR
|
|
PUT(203,34)-(272,74),SIGN
|
|
CALL TEXTFONT(CHICAGO):CALL TEXTSIZE(9):CALL MOVETO(153,180):PRINT"POSSESSIVE WORD: "
|
|
CALL TEXTFONT(12):CALL TEXTSIZE(12):CALL TEXTFACE(1)
|
|
CALL MOVETO(100,248):PRINT NOMEN$
|
|
CALL MOVETO(304,248):PRINT LEFT
|
|
CALL MOVETO(370,248):PRINT SCORE"%"
|
|
IF S2$="" THEN 32
|
|
CALL MOVETO(60,120):PRINT S1$
|
|
CALL MOVETO(60,140):PRINT S2$
|
|
GOTO 33
|
|
32 CALL MOVETO(60,130):PRINT S1$
|
|
33 GET(330,188)-(460,203),PIECE
|
|
CALL MOVETO(170,200):INPUT GW$
|
|
PUT(330,188),PIECE
|
|
IF GW$=W1$ AND J1$="" THEN J1$="YOU ALREADY DID ":GOTO 50
|
|
IF GW$=W2$ AND J2$="" THEN J2$="YOU ALREADY DID ":GOTO 50
|
|
IF GW$=W1$ AND J1$<>"" THEN CALL MOVETO(20,280):PRINT J1$ W1$:FOR D=1 TO 3000:NEXT D:GOTO 33
|
|
IF GW$=W2$ AND J2$<>"" THEN CALL MOVETO(20,280):PRINT J2$ W2$:FOR D=1 TO 3000:NEXT D:GOTO 33
|
|
LINE(203,34)-(272,74),,BF
|
|
CALL MOVETO(210,60):PRINT"WRONG"
|
|
SOUND 55,8,100:FOR D=1 TO 2000:NEXT D
|
|
LINE(203,34)-(272,74),,BF
|
|
TRY=TRY+1
|
|
CALL MOVETO(210,46):PRINT"TRY"
|
|
CALL MOVETO(210,58):PRINT"AGAIN?"
|
|
CALL MOVETO(210,71):PRINT" Y/N "
|
|
35 A$=""
|
|
A$=INKEY$
|
|
IF A$="Y" THEN LINE(203,34)-(272,74),30,BF:PUT (203,34), SIGN:GOTO 33
|
|
IF A$="N" THEN 99
|
|
GOTO 35
|
|
50 LINE(203,34)-(272,74),,BF
|
|
CALL MOVETO(210,60):PRINT" RIGHT "
|
|
SOUND 196,4,100:FOR D=1 TO 800:NEXT D
|
|
SOUND 196,2,0:FOR D=1 TO 400:NEXT D
|
|
SOUND 262,6,50:FOR D=1 TO 1200:NEXT D
|
|
TRY=TRY+1:CORRECT=CORRECT+1
|
|
60 LINE(203,34)-(272,74),,BF
|