all text files
This commit is contained in:
Stephen MacKenzie
GitHub
parent
e644f25b52
commit
cb12a1e195
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 1"
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=1 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=1
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" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
PRINT""
PRINT" THE COMPLETE EXERCISE HAS 25 ITEMS, AND"
PRINT" YOU WILL BE ABLE TO DO IT ONLY TWICE, IF YOU DO IT OVER"
PRINT" RIGHT AWAY AT THE CHOICE AT THE END."
PRINT""
INPUT"TO GET GOING, PRESS THE 'RETURN' KEY.", V
TOT=25
25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0
26 TIM$=TIME$
27 TIM=VAL(RIGHT$(TIM$,1))+1
28 ON TIM GOTO 500,503,506,510,513,517,519,525,530,537
30 ITEM=ITEM+1:IF ITEM>=26 THEN 600
31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1
32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "25-ITEM" SCORE "SCORE"%"
33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:"
34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$
40 CALL MOVETO(20,100):INPUT"TYPE IN A NOUN FROM THE SENTENCE."; N$
41 IF N$="" THEN BEEP:GOTO 40
42 IF N$="QUIT" THEN 600
43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50
44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT A NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL
45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY))
46 CLS:GOTO 32
50 IF N$=N1$ AND J1$<>"" THEN GOTO 62
51 IF N$=N1$ THEN J1$="YOU"
52 IF N$=N2$ AND J2$<>"" THEN GOTO 62
53 IF N$=N2$ THEN J2$="YOU"
54 IF N$=N3$ AND J3$<>"" THEN GOTO 62
55 IF N$=N3$ THEN J3$="YOU"
56 IF N$=N4$ AND J4$<>"" THEN GOTO 62
57 IF N$=N4$ THEN J4$="YOU"
58 IF N$=N5$ AND J5$<>"" THEN GOTO 62
|
||||
|
|
@ -0,0 +1,75 @@
|
|||
9 SCREEN 12
|
||||
10 CLS: PRINT " THIS IS EXERCISE 1"
|
||||
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=1 THEN A=1
|
||||
GOTO 19
|
||||
20 CLOSE #1
|
||||
IF A>0 THEN 21
|
||||
OPEN NOMEN$ FOR APPEND AS #1
|
||||
N=1
|
||||
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" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
|
||||
PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
|
||||
PRINT""
|
||||
PRINT" THE COMPLETE EXERCISE HAS 25 ITEMS, AND"
|
||||
PRINT" YOU WILL BE ABLE TO DO IT ONLY TWICE, IF YOU DO IT OVER"
|
||||
PRINT" RIGHT AWAY AT THE CHOICE AT THE END."
|
||||
PRINT""
|
||||
INPUT"TO GET GOING, PRESS THE 'RETURN' KEY.", V
|
||||
TOT=25
|
||||
|
||||
25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0
|
||||
26 TIM$=TIME$
|
||||
27 TIM=VAL(RIGHT$(TIM$,1))+1
|
||||
28 ON TIM GOTO 500,503,506,510,513,517,519,525,530,537
|
||||
|
||||
30 ITEM=ITEM+1:IF ITEM>=26 THEN 600
|
||||
31 J1$="":J2$="":J3$="":J4$="":J5$="":AT=1
|
||||
32 CLS:CALL MOVETO(20,20):PRINT NOMEN$" SENTENCES LEFT "25-ITEM" SCORE "SCORE"%"
|
||||
33 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,50):PRINT"Exercise Sentence:"
|
||||
34 CALL TEXTFONT(12):CALL MOVETO(20,70):PRINT S$
|
||||
40 CALL MOVETO(20,100):INPUT"TYPE IN A NOUN FROM THE SENTENCE."; N$
|
||||
41 IF N$="" THEN BEEP:GOTO 40
|
||||
42 IF N$="QUIT" THEN 600
|
||||
43 IF N$=N1$ OR N$=N2$ OR N$=N3$ OR N$=N4$ OR N$=N5$ THEN 50
|
||||
44 CALL MOVETO(20,150):PRINT"SORRY, THAT IS NOT A NOUN. TRY ANOTHER WORD.":SOUND 60,5,0:FOR DL=1 TO 2000:NEXT DL
|
||||
45 TRY=TRY+1:SCORE = INT(100*(CORRECT/TRY))
|
||||
46 CLS:GOTO 32
|
||||
|
||||
50 IF N$=N1$ AND J1$<>"" THEN GOTO 62
|
||||
51 IF N$=N1$ THEN J1$="YOU"
|
||||
52 IF N$=N2$ AND J2$<>"" THEN GOTO 62
|
||||
53 IF N$=N2$ THEN J2$="YOU"
|
||||
54 IF N$=N3$ AND J3$<>"" THEN GOTO 62
|
||||
55 IF N$=N3$ THEN J3$="YOU"
|
||||
56 IF N$=N4$ AND J4$<>"" THEN GOTO 62
|
||||
57 IF N$=N4$ THEN J4$="YOU"
|
||||
58 IF N$=N5$ AND J5$<>"" THEN GOTO 62
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 10"
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=10 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=10
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
24 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" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
PRINT""
PRINT" IN THIS EXERCISE YOU WILL HAVE A SENTENCE WITH A BLANK."
PRINT" YOU WILL BE GIVEN A WORD; YOU ARE TO INPUT THE"
PRINT" APPROPRIATE FORM OF THE POSSESSIVE OF THAT WORD AS IT"
PRINT" WOULD GO INTO THAT BLANK--SINGULAR OR PLURAL."
PRINT" BE AWARE, TOO, THE PROGRAM WILL NOT GO ON UNTIL YOU"
PRINT" GET THE ITEM RIGHT. GET HELP, IF NEEDED."
PRINT" THE EXERCISE HAS 18 ITEMS AND YOU WILL GET AT MOST 2 TRIES."
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
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
CALL TEXTSIZE(18):CALL MOVETO(20,30)
PRINT"NAME: "NOMEN$" LEFT: "LEFT" SCORE="SCORE"%"
CALL TEXTFONT(CHICAGO):CALL MOVETO(20,80):PRINT"Sentence:"
CALL TEXTFONT(12):CALL MOVETO(30,100):PRINT S1$
IF S2$<>"" THEN CALL MOVETO(40,124):PRINT S2$
31 CALL TEXTFONT(CHICAGO):CALL MOVETO(20,180):PRINT"Word for the blank: "W$
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 14"
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=14 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=14
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 1000:NEXT DL
24 SOUND 196,1,100:FOR D=1 TO 200:NEXT D:SOUND 262,5,50
CLS
PRINT""
PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
PRINT" INPUT 'QUIT' FOR THE CHOICE OF PRONOUN. REMEMBER THIS."
PRINT""
PRINT" IN THIS EXERCISE, YOU WILL BE GIVEN A SENTENCE."
PRINT" YOU WILL 'ENTER' A POSSIBLE PERSONAL PRONOUN."
PRINT" IF YOU ARE WRONG, YOU WILL GET TO TRY AGAIN."
PRINT" IF YOU ARE RIGHT, YOU WILL BE ASKED TO TELL, IN ORDER,"
PRINT" THE PERSON, NUMBER, GENDER, AND CASE OF THAT PRONOUN."
PRINT" NOTE * * GENDER CHOICE 'C' IS 'COMMON'= MASC. OR FEM."
PRINT""
PRINT" THE EXERCISE HAS 12 ITEMS AND YOU MAY HAVE ONLY 2 TRIES AT IT."
25 PRINT""
INPUT" WHEN YOU ARE READY TO GO, 'ENTER' THE 'G' KEY."; V$
IF V$="G" THEN 27
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 DIM SCR(6000):DIM BOX(800)
10 CLS:PRINT" THIS IS EXERCISE 19"
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=19 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=19
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
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 NAME BOX. REMEMBER THIS."
PRINT""
PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH A"
CALL TEXTFACE(1):PRINT" COMPOUND RELATIVE PRONOUN"
CALL TEXTFACE(0):PRINT" IN IT. YOU ARE TO CLICK ON THE BOX THAT BEST TELLS"
PRINT" THE SYNTAX OF THAT PRONOUN."
PRINT""
PRINT" EXERCISE HAS 17 SENTENCES. YOU MAY HAVE TWO TRIES."
24 PRINT""
INPUT" WHEN YOU ARE READY TO GO, ENTER A 'G'.", V$
IF V$="G" THEN 25 ELSE BEEP:BEEP:CLS:GOTO 24
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 2"
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=2 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=2
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 330,2,100:FOR DLY=1 TO 400:NEXT DLY
SOUND 262,8,30:FOR DLY=1 TO 2000:NEXT DLY
24 PRINT" IF YOU WILL WANT TO QUIT BEFORE THE EXERCISE ENDS, "
PRINT" INPUT 'QUIT' FOR THE CHOICE OF NOUN. REMEMBER THIS."
PRINT""
PRINT" THE COMPLETE EXERCISE HAS 20 ITEMS."
PRINT" YOU WILL BE ALLOWED ONLY TWO TRIES AT IT."
PRINT""
INPUT"TO GET GOING, PRESS THE 'RETURN' KEY."; V
TOT=20
25 CLS:SCORE =0:ITEM=0:TRY=0:CORRECT=0
|
||||
|
|
@ -0,0 +1 @@
|
|||
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 20"
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
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|
||||
|
|
@ -0,0 +1 @@
|
|||
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
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 CLS:DIM BUT(2000):DIM COR(800)
DIM WRG(800):DIM SCR(6000)
DIM PIECE(500)
10 CLS:PRINT" THIS IS EXERCISE 28"
CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
IF ANS$ = "Y" THEN 15
IF ANS$= "N" THEN RUN "GRAM 1"
BEEP:GOTO 10
15 CLS
CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
IF NOMEN$="" THEN BEEP:GOTO 15
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=28 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=28
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 15
23 CALL MOVETO(20,50):PRINT"THANK YOU."
SOUND 523,2,100:FOR D=1 TO 500:NEXT D:SOUND 350,4,50:FOR D=1 TO 2000:NEXT D
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 BUTTON. REMEMBER THIS."
PRINT""
PRINT" IN THIS EXERCISE YOU WILL BE GIVEN A SENTENCE WITH"
PRINT" A BLANK IN IT."
PRINT" TWO CHOICES OF PRONOUN(S) TO GO IN THE BLANK WILL BE"
PRINT" DISPLAYED IN BUTTONS."
PRINT" YOU WILL CLICK ON THE BUTTON TO INDICATE YOUR CHOICE OF"
PRINT" PRONOUN TO GO INTO THE BLANK."
PRINT""
PRINT" EXERCISE HAS 15 SENTENCES, YOU MAY HAVE TWO TRIES AT IT."
24 PRINT""
INPUT" WHEN YOU ARE READY TO GO, INPUT 'GO'.", V$
IF V$="GO" THEN 25
CLS:BEEP:BEEP
GOTO 24
25 CLS
OPEN "UOC" FOR INPUT AS #1
IMAGE$=INPUT$(LOF(1),1)
PICTURE (30,20)-(456,260), IMAGE$
CLOSE
LINE(30,20)-(456,20):LINE-(456,260)
LINE-(30,260):LINE-(30,20)
GET(63,99)-(184,137),BUT
LINE(63,99)-(184,137),30,BF
GET(318,101)-(415,136),WRG
PUT(318,101),WRG
GET(207,101)-(305,136),COR
PUT(207,101),COR
GET(347,223)-(429,251),PIECE
GET(30,20)-(456,260),SCR
CLS
27 ITEM=0:CORRECT=0:TRY=0:TOT=15
TIM$=TIME$
TIM=VAL(RIGHT$(TIM$,1))+1
ON TIM GOTO 101,103,106,110,113,117,119,123,125,127
30 CLS:ITEM=ITEM+1:LEFT=TOT-ITEM:IF LEFT=-1 THEN ITEM=ITEM-1:GOTO 600
PUT(30,20),SCR
CALL TEXTFACE(1):CALL MOVETO(200,242):PRINT NOMEN$
CALL MOVETO(50,54):PRINT LEFT" LEFT"
CALL MOVETO(320,54):PRINT SCORE"%"
SOUND 110,2,80:FOR D=1 TO 400:NEXT D
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 CLS:DIM BUT(2000):DIM COR(800)
DIM WRG(800):DIM SCR(6000)
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 3"
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=3 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=3
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."
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 DIM SCR(6000):DIM COR(500)
DIM WRG(500):DIM CLK(1000)
DIM BUT(800)
10 CLS:PRINT" THIS IS EXERCISE 32"
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: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=32 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=32
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
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 33"
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$
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 DIM SCR(6000):DIM COR(500)
DIM WRG(500):DIM CLK(1000)
DIM BUT(800)
10 CLS:PRINT" THIS IS EXERCISE 34"
CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
IF ANS$ = "Y" THEN 12
IF ANS$= "N" THEN RUN "GRAM 1"
|
||||
|
|
@ -0,0 +1 @@
|
|||
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
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
10 CLS:PRINT" THIS IS EXERCISE 5"
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$
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
5 DIM SCR(8000):DIM BUT(2000)
10 CLS:PRINT" THIS IS EXERCISE 7"
12 CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 N1$="A":T1$="B":N2$="C":T2$="D":N3$="E":T3$="F":N4$="G":T4$="H":N5$="I":T5$="J"
6 CALL TEXTFONT(3)
10 CLS:PRINT" THIS IS EXERCISE 8"
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=8 THEN A=1
GOTO 19
20 CLOSE #1
IF A>0 THEN 21
OPEN NOMEN$ FOR APPEND AS #1
N=8
S=SCORE
PRINT#1,N,S
CLOSE#1
GOTO 27
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
|
||||
|
|
@ -0,0 +1 @@
|
|||
5 DIM SCR(5000):DIM BOX(500)
10 CLS:PRINT" THIS IS EXERCISE 9"
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"
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
15 WAVE 0, SIN
20 SCORE = 0:ITEM=0:TRY=0:COR=0:SKP=0
30 DIM ANS(1000):DIM A$(10):DIM B$(10)
190 CLS:PRINT"":PRINT""
191 PRINT" Please type in your name and press the ENTER key."
192 PRINT"":PRINT"":INPUT; NOMEN$
200 CLS
PRINT""
PRINT" THE PROGRAM RUNS AUTOMATICALLY. IF A WORD IS PRESENTED THAT"
|
||||
|
|
@ -0,0 +1 @@
|
|||
10
20 CLS:GOSUB 370
30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100)
31 DIM DOT(100):DIM MTN(100):DIM SCR(5000)
40 GPA=0:MISS=0:TEMPU$=TIME$
100 LINE(316,96)-(312,96):LINE-(311,95):LINE-(307,95):LINE-(305,96):LINE-(297,96):LINE-(286,91):LINE-(282,93):LINE-(284,95):LINE-(281,97):LINE-(273,94):LINE-(270,90):LINE-(267,89):LINE-(264,90):LINE-(260,87):LINE-(260,86):LINE-(262,84):LINE-(262,80)
101 LINE(262,80)-(264,78):LINE-(262,79):LINE-(261,78):LINE-(257,78):LINE-(255,79):LINE-(253,78):LINE-(249,79):LINE-(246,78):LINE-(242,78):LINE-(232,81):LINE-(226,81):LINE-(224,78):LINE-(222,80):LINE-(220,83):LINE-(213,87):LINE-(212,92):LINE-(206,97)
102 LINE(206,97)-(203,98):LINE-(189,115):LINE-(190,120):LINE-(190,124):LINE-(187,131):LINE-(183,135):LINE-(185,137):LINE-(185,140):LINE-(192,150):LINE-(192,154):LINE-(197,159):LINE-(200,160):LINE-(205,164):LINE-(210,165):LINE-(216,163):LINE-(219,163)
103 LINE(219,163)-(222,164):LINE-(225,164):LINE-(237,160):LINE-(240,160):LINE-(242,165):LINE-(245,165):LINE-(249,167):LINE-(249,165):LINE-(254,169):LINE-(251,181):LINE-(251,184):LINE-(261,201):LINE-(260,204):LINE-(262,210):LINE-(261,212):LINE-(257,223)
104 LINE(257,223)-(257,229):LINE-(258,229):LINE-(258,234):LINE-(263,240):LINE-(262,243):LINE-(265,252):LINE-(272,265):LINE-(272,267):LINE-(271,268):LINE-(271,269):LINE-(272,270):LINE-(272,272):LINE-(275,272):LINE-(276,274):LINE-(279,272):LINE-(282,272)
105 LINE(282,272)-(284,271):LINE-(286,272):LINE-(290,272):LINE-(291,271):LINE-(293,271):LINE-(302,265):LINE-(309,256):LINE-(310,250):LINE-(316,247):LINE-(318,239):LINE-(316,236):LINE-(334,221):LINE-(332,219):LINE-(333,214):LINE-(334,211):LINE-(334,209)
106 LINE(334,209)-(330,203):LINE-(330,198):LINE-(329,196):LINE-(336,186):LINE-(339,186):LINE-(341,183):LINE-(343,179):LINE-(355,169):LINE-(365,152):LINE-(364,151):LINE-(364,148):LINE-(361,148):LINE-(358,151):LINE-(356,151):LINE-(348,152):LINE-(344,152)
107 LINE(344,152)-(344,150):LINE-(340,150):LINE-(342,148):LINE-(334,138):LINE-(332,138):LINE-(332,136):LINE-(329,130):LINE-(326,130):LINE-(326,120):LINE-(321,117):LINE-(321,113):LINE-(313,100):LINE-(314,100):LINE-(318,104):LINE-(318,100):LINE-(316,96)
108 LINE(355,215)-(355,219):LINE-(351,219):LINE-(351,223):LINE-(342,226):LINE-(340,232):LINE-(340,237):LINE-(337,242):LINE-(336,245):LINE-(337,250):LINE-(339,252):LINE-(345,250):LINE-(350,240):LINE-(354,228):LINE-(354,226):LINE-(355,224):LINE-(357,228)
109 LINE(357,228)-(358,226):LINE-(357,217):LINE-(355,215)
110 IF TITLE>0 THEN 264
160 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
161 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
162 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
163 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
166 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
167 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
3 DIM WF%(256)
FOR I=0 TO 127
WF%(I)= 127
WF%(255-I)=-128
NEXT I
WAVE 0, WF%
60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133)
69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139)
70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146)
71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143)
|
||||
|
|
@ -0,0 +1 @@
|
|||
3 DIM MAP(9000):DIM BUT(200):DIM DET(9000)
DIM QMRK(200):DIM QSHD(200):DIM ANSM(200):DIM ASHD(200)
DIM MAGG(200):DIM MSHD(200):DIM DEMK(200):DIM DESH(200)
DIM RARR(200):DIM RSHD(200):DIM LARR(200):DIM LSHD(200)
DIM UARR(200):DIM USHD(200):DIM DARR(200):DIM DSHD(200)
DIM UNDO(200)
DIM Wf%(255):DIM Wg%(255)
FOR I=0 TO 127
Wf%(I)=127
Wf%(255-I)=-128
NEXT I
FOR I=255 TO 0 STEP -1
Wg%(I)=I-128
NEXT I
Q1=1:Q2=1:Q3=1:Q4=1:Q5=1:Q6=1:Q7=1:Q8=1:Q9=1:Q10=1:Q11=1:Q12=1:Q13=1:Q14=1
WAVE 0,Wf%
WAVE 1,Wg%
WAVE 2,Wg%
WAVE 3,Wg%
GOTO 19
4 OPEN "Mr.C" FOR INPUT AS #1
MUS = 0
CALL TEXTSIZE(24)
5 SOUND WAIT
SOUND 698,12,,0
SOUND (8/5)*698,12,,1
SOUND (8/7)*698,12,,2
SOUND 2*698,12,,3
SOUND RESUME
SOUND WAIT
SOUND 698,12,,0
SOUND (4/3)*698,12,,1
SOUND 2*698,12,,2
SOUND RESUME
SOUND WAIT
SOUND 698,12,,0
SOUND (8/5)*698,12,,1
SOUND (8/7)*698,12,,2
SOUND 2*698,12,,3
SOUND RESUME
SOUND WAIT
SOUND 587,6,,0
SOUND (8/5)*587,6,,1
SOUND (8/7)*587,6,,2
SOUND 2*587,6,,3
SOUND RESUME
SOUND WAIT
SOUND 523,6,,0
SOUND (8/5)*523,6,,1
SOUND (8/7)*523,6,,2
SOUND 2*523,6,,3
SOUND RESUME
SOUND WAIT
SOUND 587,12,,0
SOUND (4/3)*587,12,,1
SOUND 2*587,12,,2
SOUND RESUME
SOUND WAIT
SOUND 523,6,,0
SOUND (8/7)*523,6,,1
SOUND (8/5)*523,6,,2
SOUND 2*523,6,,3
SOUND RESUME
SOUND WAIT
SOUND 445,6,,0
SOUND (8/7)*445,6,,1
SOUND (8/5)*445,6,,2
SOUND 2*445,6,,3
SOUND RESUME
SOUND WAIT
SOUND 445,16,,0
SOUND (8/7)*445,16,,1
SOUND (4/3)*445,16,,2
SOUND 2*445,16,,3
SOUND RESUME
IF MUS=1 THEN 7
6 IMAGE$=INPUT$(LOF(1),1)
PICTURE (40,30), IMAGE$
CLOSE
SOUND WAIT
SOUND 587,12,,0
SOUND (8/7)*587,12,,1
SOUND (8/5)*587,12,,2
SOUND 2*587,12,,3
SOUND RESUME
SOUND WAIT
SOUND 587,12,,0
SOUND (4/3)*587,12,,1
SOUND 2*587,12,,2
SOUND RESUME
SOUND WAIT
SOUND 587,12,,0
SOUND (8/7)*587,12,,1
SOUND (8/5)*587,12,,2
SOUND 2*587,12,,3
SOUND RESUME
SOUND WAIT
SOUND 523,6,,0
SOUND (8/7)*523,6,,1
SOUND (8/5)*523,6,,2
SOUND 2*523,6,,3
SOUND RESUME
SOUND WAIT
SOUND 445,6,,0
SOUND (8/7)*445,6,,1
SOUND (5/7)*445,6,,2
SOUND 2*445,6,,3
SOUND RESUME
SOUND WAIT
SOUND 523,6,,0
SOUND (8/7)*523,6,,1
SOUND (8/5)*523,6,,2
SOUND 2*523,6,,3
SOUND RESUME
SOUND WAIT
SOUND 445,6,,0
SOUND (8/7)*445,6,,1
SOUND (8/5)*445,6,,2
SOUND 2*445,6,,3
SOUND RESUME
SOUND WAIT
SOUND 392,6,,0
SOUND (8/7)*392,6,,1
SOUND (8/5)*392,6,,2
SOUND 2*392,6,,3
SOUND RESUME
SOUND WAIT
SOUND 392,16,,0
SOUND 400,16,,1
SOUND (4/3)*392,16,,2
SOUND 2*396,16,,3
SOUND RESUME
MUS=1:GOTO 5
7 SOUND WAIT
SOUND 392,12,,0
SOUND (16/12)*392,12,,1
SOUND (19/12)*392,12,,2
SOUND 2*392,12,,3
SOUND RESUME
SOUND WAIT
SOUND 587,12,,0
SOUND (16/12)*587,12,,1
SOUND (19/12)*587,12,,2
SOUND 2*587,12,,3
SOUND RESUME
SOUND WAIT
SOUND 445,12,,0
SOUND (16/12)*445,12,,1
SOUND (19/12)*445,12,,2
SOUND 2*445,12,,3
SOUND RESUME
SOUND WAIT
SOUND 392,12,,0
SOUND (16/12)*392,12,,1
SOUND (19/12)*392,12,,2
SOUND 2*392,12,,3
SOUND RESUME
SOUND WAIT
SOUND 445,12,,0
SOUND (16/12)*445,12,,1
SOUND (19/12)*445,12,,2
SOUND 2*445,12,,3
SOUND RESUME
SOUND WAIT
SOUND 349,12,,0
SOUND (16/12)*349,12,,1
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
11 DIM ANSY (100):DIM A(3000)
12 GA=0:TRY=0:CORRECT=0
13 DIM WF%(256)
FOR I=0 TO 127
WF%(I)=127
WF%(255-I)=-128
NEXT I
WAVE 0, WF%
18 PSET(326,32):PSET(327,32):PSET(328,32):PSET(325,33):PSET(328,33):PSET(248,34):PSET(249,34):PSET(280,34):PSET(325,34):PSET(328,34):PSET(247,35):PSET(249,35):PSET(279,35):PSET(280,35):PSET(325,35):PSET(328,35):PSET(228,36):PSET(244,36)
19 PSET(245,36):PSET(246,36):PSET(248,36):PSET(279,36):PSET(281,36):PSET(324,36):PSET(328,36):PSET(227,37):PSET(230,37):PSET(242,37):PSET(243,37):PSET(249,37):PSET(279,37):PSET(281,37):PSET(324,37):PSET(328,37):PSET(227,38):PSET(230,38)
20 PSET(232,38):PSET(233,38):PSET(234,38):PSET(241,38):PSET(250,38):PSET(276,38):PSET(277,38):PSET(278,38):PSET(281,38):PSET(324,38):PSET(330,38):PSET(331,38):PSET(332,38):PSET(333,38):PSET(227,39):PSET(229,39):PSET(232,39):PSET(234,39)
21 PSET(242,39):PSET(250,39):PSET(276,39):PSET(281,39):PSET(324,39):PSET(332,39):PSET(227,40):PSET(230,40):PSET(232,40):PSET(235,40):PSET(240,40):PSET(250,40):PSET(273,40):PSET(281,40):PSET(323,40):PSET(332,40):PSET(227,41):PSET(229,41)
22 PSET(232,41):PSET(234,41):PSET(240,41):PSET(250,41):PSET(273,41):PSET(281,41):PSET(323,41):PSET(332,41):PSET(226,42):PSET(227,42):PSET(228,42):PSET(232,42):PSET(239,42):PSET(250,42):PSET(251,42):PSET(252,42):PSET(267,42):PSET(273,42)
23 PSET(274,40):PSET(279,42):PSET(323,42):PSET(332,42):PSET(224,43):PSET(228,43):PSET(240,43):PSET(255,43):PSET(266,43):PSET(268,43):PSET(273,43):PSET(278,43):PSET(323,43):PSET(332,43):PSET(226,44):PSET(240,44):PSET(256,44):PSET(257,44)
24 PSET(258,44):PSET(259,44):PSET(260,44):PSET(261,44):PSET(262,44):PSET(263,44):PSET(267,44):PSET(270,44):PSET(271,44):PSET(272,44):PSET(274,44):PSET(277,44):PSET(323,44):PSET(332,44):PSET(233,45):PSET(238,45):PSET(263,45):PSET(265,45)
25 PSET(270,45):PSET(273,45):PSET(277,45):PSET(280,45):PSET(323,45):PSET(332,45):PSET(333,45):PSET(334,45):PSET(232,46):PSET(239,46):PSET(263,46):PSET(264,46):PSET(266,46):PSET(267,46):PSET(268,46):PSET(269,46):PSET(270,46):PSET(273,46)
26 PSET(277,46):PSET(279,46):PSET(280,46):PSET(332,46):PSET(334,46):PSET(230,47):PSET(281,47):PSET(321,47):PSET(334,47):PSET(320,48):PSET(281,48):PSET(321,48):PSET(334,48):PSET(229,49):PSET(281,49):PSET(321,49):PSET(334,49):PSET(228,50)
27 PSET(281,50):PSET(320,50):PSET(334,50):PSET(227,51):PSET(278,51):PSET(279,51):PSET(320,51):PSET(334,51):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,52):PSET(278,52):PSET(320,52):PSET(335,52):PSET(227,53):PSET(278,53)
28 PSET(320,53):PSET(336,53):PSET(227,54):PSET(276,54):PSET(278,54):PSET(320,54):PSET(336,54):PSET(226,55):PSET(274,55):PSET(320,55):PSET(336,55):PSET(225,56):PSET(275,56):PSET(320,56):PSET(336,56):PSET(225,57):PSET(276,57):PSET(319,57)
29 PSET(234,44):PSET(235,44):PSET(236,44):PSET(237,44):PSET(238,44):PSET(336,57):PSET(202,58):PSET(224,58):PSET(274,58):PSET(275,58):PSET(279,58):PSET(280,58):PSET(282,58):PSET(319,58):PSET(336,58):PSET(201,59):PSET(203,59):PSET(223,59)
30 PSET(274,59):PSET(278,59):PSET(280,59):PSET(318,59):PSET(336,59):PSET(200,60):PSET(204,60):PSET(222,60):PSET(274,60):PSET(277,60):PSET(281,60):PSET(318,60):PSET(336,60):PSET(199,61):PSET(205,61):PSET(222,61):PSET(274,61):PSET(277,61)
|
||||
File diff suppressed because one or more lines are too long
Binary file not shown.
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
5 DIM GP$(75):DIM SP$(75):DIM IP$(75)
FOR N=1 TO 75
GP$(N)=""
NEXT N
FOR N=1 TO 75
SP$(N)=""
NEXT N
15 WAVE 0, SIN
10 SOUND 524,6,80:FOR DL=1 TO 1100:NEXT DL
SOUND 392,3,50:FOR DL=1 TO 500:NEXT DL
SOUND 330,2,30:FOR DL=1 TO 300:NEXT DL
SOUND 262,3,10:FOR DL=1 TO 700:NEXT DL
SOUND 330,2,10:FOR DL=1 TO 300:NEXT DL
SOUND 444,2,80:FOR DL=1 TO 300:NEXT DL
SOUND 392,2,10:FOR DL=1 TO 500:NEXT DL
SOUND 524,3,80:FOR DL=1 TO 800:NEXT DL
SOUND 392,8,50:FOR DL=1 TO 1400:NEXT DL
SOUND 524,12,180:FOR DL=1 TO 2400:NEXT DL
12 CLS:PRINT""
PRINT""
INPUT" WHAT IS YOUR NAME"; NOMEN$
IF NOMEN$="" THEN SOUND 1500,1,100:FOR DL=1 TO 200:NEXT DL:GOTO 12
PRINT""
PRINT" THANK YOU."
FOR DL=1 TO 3000:NEXT DL
15 CLS
PRINT""
PRINT" FIRST THING YOU WILL BE ASKED IS TO INPUT A LIST OF"
PRINT" ADJECTIVES YOU WANT TO DRILL ON."
PRINT" MINIMUM NUMBER IS 10; MAXIMUM IS 70"
PRINT""
PRINT" YOU WILL THEN BE PRESENTED AN ADJECTIVE."
PRINT" YOU MUST TELL THE COMPARATIVE AND SUPERLATIVE."
PRINT""
PRINT" IF YOU ARE CORRECT, FINE; BUT IF YOU ARE WRONG"
PRINT" THAT WRONG ONE WILL BE SAVED AND PRESENTED"
PRINT" AGAIN AT A LATER TIME IN THE DRILL."
PRINT""
PRINT" SUCCESS IN THE DRILL IS HAVING NONE LEFT TO DO."
PRINT""
PRINT" WHEN YOU UNDERSTAND THIS AND ARE READY TO GO, PRESS 'RETURN'."
INPUT V
FOR DL=1 TO 200:NEXT DL
AM=0:TRY=0:CORRECT=0:SCORE=0
CHK=1
MES1$="INPUT YOUR FIRST CHOICE OF ADJECTIVE."
MES2$="INPUT ANOTHER ADJECTIVE"
MES3$="INPUT ANOTHER ADJECTIVE. IF YOU HAVE NO MORE, INPUT 'K'."
20 CLS
WHILE CHK=1
AM=AM+1
IF AM=1 THEN MES$=MES1$
IF AM>1 AND AM<11 THEN MES$=MES2$
IF AM>10 THEN MES$=MES3$
IF AM=71 THEN CHK=1
CALL MOVETO(20,50):PRINT MES$
SOUND 523,1,50:FOR DL=1 TO 200:NEXT DL
CALL MOVETO(50,80):INPUT GP$(AM)
AN=AM-1
FOR Q=1 TO AN
IF GP$(AM)=IP$(Q) THEN CALL MOVETO(20,100):PRINT"YOU DID THAT ALREADY, TRY ANOTHER":FOR DL=1 TO 2000:NEXT DL:AM=AM-1:KL=1
NEXT Q
IF GP$(AM)="K" AND AM>10 THEN CHK=0:GOTO 25
21 READ P$,C$,S$
IF P$="YOU PUT IN SOMETHING THAT IS NOT ON THE LIST" THEN 24
IF P$=GP$(AM) THEN 25 ELSE 21
24 CALL MOVETO(20,180):PRINT P$
AM=AM-1
SOUND 50,1,100:FOR DL=1 TO 2000:NEXT DL
25 IP$(AM)=GP$(AM)
RESTORE 100
CLS
WEND
MM=0
F=AM-1
26 FOR MM=1 TO AM
SP$(MM)=GP$(MM)
NEXT MM
MM=0
GOTO 28
27 FOR MM=1 TO AM
GP$(MM)=SP$(MM)
NEXT MM
MM=0
28 MM=MM+1
IF GP$(MM)="" AND MM<AM THEN 28
IF GP$(MM)="K" THEN 60
29 READ P$,C$,S$
IF P$=GP$(MM) THEN 30
IF P$="PPP" THEN RESTORE 100
GOTO 29
30 CLS
SOUND 32,1,100:FOR DL=1 TO 200:NEXT DL
SOUND 523,3,30:FOR DL=1 TO 600:NEXT DL
CALL MOVETO(30,70):PRINT P$
CALL MOVETO(30,110):PRINT"WHAT IS ITS COMPARATIVE AND SUPERLATIVE?"
32 CALL MOVETO(50,150):PRINT"COMPARATIVE: "
CALL MOVETO(150,150):INPUT GC$
CALL MOVETO(50,200):PRINT"SUPERLATIVE: "
CALL MOVETO(150,200):INPUT GS$
IF GC$=C$ AND GS$=S$ THEN 35 ELSE 45
35 TRY=TRY+1:CORRECT=CORRECT+1
SCORE=INT(100*(CORRECT/TRY))
GP$(MM)=""
CALL MOVETO(30,250):PRINT"THAT IS CORRECT. SCORE = "SCORE"%"
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
20 SCORE = 0:ITEM=0:TRY=0:COR=0:SK=0
25 WAVE 0, SIN
30 DIM ANS(1000):DIM A$(10):DIM B$(10)
190 CLS:PRINT"":PRINT""
PRINT" Please type in your name and press the ENTER key."
PRINT"":PRINT"":INPUT; NOMEN$
IF NOMEN$="" THEN BEEP:GOTO 190
193 CLS
PRINT"":PRINT" Which do you want to study?"
PRINT""
PRINT,"1. Pages 64 and 68, ALL -us,-a, or -um"
PRINT,"2. Page 77, ONLY the -is, -e type"
PRINT,"3. Page 26"
PRINT,"4. Page 51"
PRINT""
PRINT" Press the numbered key for your choice"
PRINT"":PRINT"NOTE: Program runs until preset breaks. If you stop"
PRINT" before a break, you get no score screen."
200 A$=""
A$=INKEY$
IF A$="1" THEN SEC=1:RESTORE 500:GOTO 300
IF A$="2" THEN SEC=2:RESTORE 520:GOTO 300
GOTO 200
300 ITEM = ITEM +1
CLS
LINE(10,20)-(470,50),,BF:LINE(12,22)-(468,48),30,BF:LINE(300,22)-(302,48),,BF
CALL MOVETO(15,40):PRINT NOMEN$
CALL MOVETO(307,40):PRINT"SCORE = "SCORE" %"
305 FOR N=1 TO 10:READ A$(N):NEXT N
318 IF A$(1) = "CHOICE" THEN 450
319 IF A$(1) = "END" THEN 475
322 LINE(0,55)-(490,290),30,BF
323 LINE(165,80)-(230,80)
324 CALL MOVETO(175,75):PRINT A$(1)
325 CALL MOVETO(20,100):INPUT"NOMINATIVE ",B$(1)
326 IF B$(1) = "SKIP" THEN SK=SK+1:GOTO 305
327 CALL MOVETO(20,130):INPUT"GENITIVE ",B$(2)
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
DIM S(25)
FOR N=1 TO 20
S(N)=0
NEXT N
20 SCORE = 0:ITEM=-1:TRY=0:COR=0:N=0:RPT=0
25 WAVE 0, SIN
30 DIM ANS(1000):DIM A$(10):DIM B$(10)
50 CLS:PRINT""
PRINT" Please type in your name and press the ENTER key."
PRINT"":PRINT"":INPUT; NOMEN$
90 CLS
PRINT""
PRINT" Which do you want to study?"
PRINT,"1. Pages 2 and 4-- ONLY -a or -um ending nouns."
PRINT,"2. Pages 6, 12, and 22-- ONLY -us, -a, or -um ending nouns."
PRINT,"3. Pages 2 to 26--only --,-is ending nouns."
PRINT,"4. Pages 51 and 55"
PRINT""
PRINT" Press the numbered key for your choice"
205 S$ = ""
210 S$ = INKEY$
IF S$ = "1" THEN S = 1:GOTO 250
IF S$ = "2" THEN S = 2:GOTO 250
IF S$ = "3" THEN S = 3:GOTO 250
IF S$ = "4" THEN S=4:GOTO 250
220 GOTO 205
250 N=N+1
S(N)=S
CLS
PRINT"":PRINT"NOTE: Program runs until preset breaks. If you want to"
PRINT" stop before a break, input QUIT for the nominative singular."
PRINT""
PRINT" If you want to skip over a particular noun,"
PRINT" input SKIP for the nominative singular."
PRINT""
INPUT" To get going, press 'RETURN'", v
270 IF S=1 THEN RESTORE 500
IF S=2 THEN RESTORE 516
IF S=3 THEN RESTORE 544
IF S=4 THEN RESTORE 555
300 ITEM = ITEM +1
305 CLS
310 LINE(10,20)-(470,50),,BF:LINE(12,22)-(468,48),30,BF:LINE(300,22)-(302,48),,BF
312 CALL MOVETO(15,40):PRINT NOMEN$
315 CALL MOVETO(307,40):PRINT"SCORE = "SCORE" %"
317 FOR NM=1 TO 10:READ A$(NM):NEXT NM
318 IF A$(1) = "CHOICE" THEN 450
319 IF A$(1) = "END" THEN 475
322 LINE(0,55)-(490,290),30,BF
323 LINE(165,80)-(230,80)
324 CALL MOVETO(175,75):PRINT A$(1)
325 CALL MOVETO(20,100):INPUT"NOMINATIVE ",B$(1)
IF B$(1)="QUIT" THEN 450
IF B$(1)="SKIP" THEN 305
327 CALL MOVETO(20,130):INPUT"GENITIVE ",B$(2)
328 CALL MOVETO(20,160):INPUT"DATIVE ",B$(3)
329 CALL MOVETO(20,190):INPUT"ACCUSATIVE ",B$(4)
330 CALL MOVETO(20,220):INPUT"ABLATIVE ",B$(5)
IF A$(6)="O" THEN 342
335 CALL MOVETO(250,100):INPUT"NOMINATIVE ",B$(6)
337 CALL MOVETO(250,130):INPUT"GENITIVE ",B$(7)
338 CALL MOVETO(250,160):INPUT"DATIVE ",B$(8)
339 CALL MOVETO(250,190):INPUT"ACCUSATIVE ",B$(9)
340 CALL MOVETO(250,220):INPUT"ABLATIVE ",B$(10)
342 X=20:NN=1
345 FOR Y = 85 TO 205 STEP 30
350 GET(X,Y)-(X+200,Y+30),ANS:LINE(X,Y)-(X+200,Y+30),,BF:PUT(X,Y),ANS
350 IF B$(NN) <> A$(NN) THEN BEEP:FOR DLAY=1 TO 2000:NEXT DLAY:CALL MOVETO(X+100,Y+30):PRINT A$(N):TRY=TRY+1:GOTO 370
351 SOUND 1100,1:FOR DLAY=1 TO 2000:NEXT DLAY
353 COR=COR+1:TRY=TRY+1
355 LINE(X,Y)-(X+200,Y+30),30,BF:PUT(X,Y),ANS
370 NN=NN+1
375 NEXT Y
380 IF A$(6)="O" THEN 390
IF X=20 THEN X=250:GOTO 345
390 SOUND 300,2,30:FOR DL=1 TO 400:NEXT DL
SOUND 220,2,30:FOR DL=1 TO 400:NEXT DL
SOUND 150,3,30:FOR DL=1 TO 600:NEXT DL
CALL MOVETO(20,260):PRINT"TO GO TO NEXT WORD, PRESS '2', TO REPEAT SAME WORD, PRESS '1'."
391 RY$=""
RY$=INKEY$
IF RY$="1" THEN RPT=RPT+1:GOTO 322
IF RY$="2" THEN 400
GOTO 391
400 SCORE = INT((COR/TRY) *100)
405 GOTO 300
450 CLS:PRINT"":PRINT""
PRINT" AT THIS TIME YOU HAVE THE FOLLOWING CHOICES:"
PRINT""
PRINT,"1. QUIT--GO TO MAIN MENU"
PRINT,"2. CONTINUE"
PRINT""
PRINT" PRESS THE NUMBER KEY FOR YOUR CHOICE"
457 PRINT""
PRINT" TO GET SOME CREDIT FOR THIS, GET THE TEACHER TO LOOK AT"
PRINT" THIS BEFORE QUITTING. IF CONTINUING, JUST GO ON."
PRINT" "NOMEN$" GOT "SCORE" % ON "ITEM" ITEMS"
PRINT" DECLENSION OF NOUNS"
PRINT" HE DID THE FOLLOWING SECTIONS:"
PRINT" "S(1) S(2) S(3) S(4) S(5) S(6) S(7) S(8) S(9) S(10)
PRINT" "S(11) S(12) S(13) S(14) S(15) S(16) S(17) S(18) S(19) S(20)
PRINT" AND REPEATED ANY "RPT" TIMES."
462 CHC$ = ""
CHC$ = INKEY$
IF CHC$ = "1" THEN RUN "PARTIBUS"
IF CHC$ = "2" THEN RESTORE:GOTO 90
470 GOTO 462
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
10 CLS
20 SCORE = 0:ITEM=0:TRY=0:COR=0:SK=0
30 DIM ANS(1000):DIM A$(10):DIM B$(10)
90 CLS:PRINT"":PRINT""
91 PRINT" Please type in your name and press the ENTER key."
92 PRINT"":PRINT""
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
5 DIM BUT(200):DIM SCN(10000)
DIM Q1$(5,4):DIM Q2$(5,4):DIM Q3$(5,4)
DIM A1$(5,4):DIM A2$(5,4):DIM A3$(5,4):DIM A4$(5,4):DIM A5$(5,4)
DIM ANS(5,4)
DIM WF%(255):DIM WS%(255)
FOR I=255 TO 0 STEP -1
WF%(I)=I-128
NEXT I
FOR I=0 TO 127
WS%(I)=127
WS%(255-I)=-128
NEXT I
MUS = 0
OPEN "HIST:title" FOR INPUT AS #1
IMAGO$=INPUT$(LOF(1),1)
CLOSE #1
10 OPEN "HIST:Mr.C" FOR INPUT AS #1
IMAGE$=INPUT$(LOF(1),1)
PICTURE (40,30)-(455,269), IMAGE$
CLOSE
11 WAVE 0,WF%
WAVE 1,SIN
WAVE 2 ,SIN
WAVE 3,WS%
12 SOUND 784,4,,0
SOUND WAIT
SOUND 784,6,,0
SOUND 880,2,,0
SOUND 784,4,,0
SOUND 262,4,,1
SOUND 330,4,,1
SOUND 392,4,,1
SOUND 49,2,,3
SOUND RESUME
SOUND WAIT
SOUND 659,4,,0
SOUND 523,4,,0
SOUND 659,4,,0
SOUND 262,4,,1
SOUND 330,4,,1
SOUND 392,4,,1
SOUND 65,2,,3
SOUND RESUME
SOUND WAIT
SOUND 784,6,,0
SOUND 880,2,,0
SOUND 784,4,,0
SOUND 262,4,,1
SOUND 330,4,,1
SOUND 392,4,,1
SOUND 49,2,,3
SOUND RESUME
SOUND WAIT
SOUND 659,7.5,,0
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
20 CLS
30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100)
40 GPA=0:MISS=0
41 CALL TEXTFONT(3)
100 LINE(105,5)-(250,5):LINE-(250,12):LINE-(250,40):LINE-(258,41):LINE-(262,50):LINE-(260,54):LINE-(266,64):LINE-(274,64):LINE-(284,78):LINE-(295,85):LINE-(295,120):LINE-(300,122):LINE-(304,116)
101 LINE(305,116)-(310,116):LINE-(336,156):LINE-(344,150):LINE-(356,150):LINE-(362,148):LINE-(366,144):LINE-(372,138):LINE-(378,146):LINE-(380,149):LINE-(380,240):LINE-(54,240):LINE-(52,235):LINE-(54,230):LINE-(50,220):LINE-(55,195):LINE-(60,187)
102 LINE(60,187)-(59,178):LINE-(62,166):LINE-(61,160):LINE-(70,120):LINE-(70,100):LINE-(90,103):LINE-(89,100):LINE-(79,100):LINE-(75,97):LINE-(70,97):LINE-(70,84):LINE-(72,84):LINE-(72,93):LINE-(75,93):LINE-(75,86):LINE-(78,86):LINE-(78,84):LINE-(74,84)
103 LINE(74,84)-(74,82):LINE-(70,83):LINE-(70,72):LINE-(74,74):LINE-(74,71):LINE-(68,72):LINE-(60,40):LINE-(54,28):LINE-(58,20):LINE-(72,30):LINE-(84,32):LINE-(90,34):LINE-(95,34):LINE-(98,32):LINE-(101,32):LINE-(101,40):LINE-(94,52):LINE-(92,58)
104 LINE(92,58)-(96,60):LINE-(98,58):LINE-(94,56):LINE-(102,44):LINE-(104,44):LINE-(102,50):LINE-(104,56):LINE-(102,62):LINE-(98,62):LINE-(98,66):LINE-(105,66):LINE-(106,64):LINE-(106,59):LINE-(108,54):LINE-(106,44):LINE-(108,38):LINE-(105,38)
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
|
||||
|
|
@ -0,0 +1 @@
|
|||
10 CLS
300 CLS
301 PRINT""
302 PRINT" WHICH DO YOU WANT TO DO NOW?"
303 PRINT""
304 PRINT,"0. QUIT"
305 PRINT,"1. DECLENSION ENDINGS--NOUN"
306 PRINT,"2. DECLENSION ENDINGS--ADJECTIVE"
307 PRINT,"3. GENDER OF NOUNS"
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
10 CLS
12 VERS=0:BOBO=0:GPA=0:ZULU = 0
20 DIM MAP(5000):DIM ANSY(1000):DIM IC(50):DIM MTN(50):DIM SCN(5000)
21 DIM BOX(500):DIM DOT(50):DIM SAM(5000)
59 GOSUB 300
60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
|
||||
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
10 CLS
20 SCORE = 0:ITEM=0:TRY=0:COR=0
25 WAVE 0, SIN
30 DIM ANS(1000):DIM A$(10):DIM B$(10)
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
|
|
@ -0,0 +1 @@
|
|||
10 CLS
20 DIM SCR(5000):DIM SCN(5000)
23 DIM WF%(256)
FOR I= 0 TO 127
WF%(I)=127
WF%(255-I)=-128
NEXT I
25 WAVE 0, WF%
30 SCORE = 0:NUM = 0
31 PRINT"":PRINT"":PRINT" PLEASE LISTEN TO THE TUNE"
32 PRINT" AND THE BAND PLAYED ON"
33 PRINT" WHILE I LOAD THE PROGRAM."
200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5
210 SOUND GH,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,4:SOUND 0,1
|
||||
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
Loading…
Reference in New Issue