1 line
5.1 KiB
Plaintext
1 line
5.1 KiB
Plaintext
10 CLS
|
|
DIM S(25)
|
|
FOR N=1 TO 20
|
|
S(N)=0
|
|
NEXT N
|
|
20 SCORE=0:TRY=0:COR=0:ITEM=-1:N=0
|
|
25 PRINT"":PRINT"":PRINT" Please type in and ENTER your name."
|
|
27 PRINT"":INPUT; NOMEN$
|
|
30 IF NOMEN$ = "" THEN PRINT"YOUR NAME DID NOT REGISTER":BEEP:PRINT"CLICK ON THE CURSOR AND TRY AGAIN.":GOTO 25
|
|
|
|
200 WAVE 0, SIN
|
|
201 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 C,4:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND C,4:SOUND 0,2:SOUND C,3:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12:SOUND 0,1
|
|
211 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1
|
|
212 SOUND F,4:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND G,4:SOUND 0,2:SOUND G,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND A,8:SOUND 0,1:SOUND G,12:SOUND 0,1
|
|
213 SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND F,8:SOUND 0,1:SOUND D,8:SOUND 0,1:SOUND C,12
|
|
214 GOTO 280
|
|
240 IF BOBO = 1 THEN BOBO = 0:GOTO 250
|
|
241 SOUND E,6:SOUND 0,1:SOUND D,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6
|
|
242 BOBO = 1:RETURN
|
|
250 SOUND GB,6:SOUND 0,1:SOUND AB,3:SOUND 0,1:SOUND C,2:SOUND 0,1:SOUND C,6
|
|
251 BOBO=0:RETURN
|
|
|
|
270 SOUND AB,8:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND D,12:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1
|
|
271 SOUND DM,4:SOUND 0,1:SOUND CHM,4:SOUND 0,1:SOUND B,20:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,20:SOUND 0,1
|
|
272 SOUND A,8:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,12:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,20:SOUND 0,1
|
|
273 SOUND E,8:SOUND 0,1:SOUND FH,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND A,20:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND FH,20:SOUND 0,1
|
|
274 SOUND E,8:SOUND 0,1:SOUND E,8:SOUND 0,1:SOUND D,20
|
|
275 RETURN
|
|
|
|
280 CLS
|
|
PRINT""
|
|
PRINT" WHICH SET OF WORDS WOULD YOU LIKE TO STUDY?"
|
|
PRINT""
|
|
PRINT" 1. Pages 2 and 4"
|
|
PRINT" 2. Pages 6 and 12"
|
|
INPUT CHC
|
|
285 IF CHC>2 THEN BEEP:GOTO 280
|
|
IF CHC=1 THEN RESTORE 500:GOTO 290
|
|
IF CHC=2 THEN RESTORE 506:GOTO 290
|
|
|
|
290 N=N+1
|
|
S(N)=CHC
|
|
|
|
|
|
300 CLS
|
|
305 ITEM = ITEM +1
|
|
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" %"
|
|
320 READ LW$,LG$,GEN$
|
|
321 IF LW$ = "CHOICE" THEN 450
|
|
322 IF LW$ = "END" THEN 475
|
|
325 CALL MOVETO(20,100):PRINT" What is the gender of " LW$" - "LG$" ?"
|
|
330 LINE(75,125)-(150,200),,B:LINE(77,127)-(148,198),,B:LINE(100,175)-(100,150):LINE-(113,163):LINE-(125,150):LINE-(125,175)
|
|
331 CIRCLE(250,163),38:CIRCLE(250,163),35:LINE(238,175)-(238,150):LINE-(263,150):LINE(238,163)-(250,163)
|
|
332 LINE(387,125)-(350,163):LINE-(387,200):LINE-(425,163):LINE-(387,125):LINE(387,127)-(352,163):LINE-(387,198):LINE-(423,163):LINE-(387,127):LINE(375,175)-(375,150):LINE-(400,175):LINE-(400,150)
|
|
335 CALL MOVETO(20,250):PRINT"CLICK ON YOUR CHOICE WITH MOUSE ARROW."
|
|
336 LINE (420,220)-(470,240),,BF:CALL MOVETO (426,235):PRINT" QUIT "
|
|
340 BM=0
|
|
341 BM=MOUSE(0)
|
|
342 IF BM <>-1 THEN 340
|
|
343 X=MOUSE(1)
|
|
344 Y=MOUSE(2)
|
|
345 IF Y>125 AND Y< 200 THEN 346 ELSE 351
|
|
346 IF X>75 AND X<150 THEN GDR$ = "M":GOTO 370
|
|
348 IF X>200 AND X<275 THEN GDR$ = "F":GOTO 370
|
|
350 IF X>350 AND X<450 THEN GDR$ = "N":GOTO 370
|
|
351 IF X>420 AND X<470 AND Y>220 AND Y <240 THEN CLS:GOTO 479
|
|
352 GOTO 340
|
|
|
|
370 IF GDR$ = GEN$ THEN 400 ELSE 405
|
|
|
|
375 SCORE = INT((COR/TRY) *100)
|
|
376 RETURN
|
|
|
|
400 PRINT" That is correct, CONGRATULATIONS ! ! ! ":GOSUB 240
|
|
401 COR = COR+1:GOTO 406
|
|
405 PRINT" THAT IS NOT CORRECT ":BEEP
|
|
406 TRY = TRY +1
|
|
407 GOSUB 375
|
|
410 FOR DLAY = 1 TO 3000:NEXT DLAY
|
|
415 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"
|
|
PRINT""
|
|
PRINT" TO GET SOME CREDIT FOR THIS, GET THE TEACHER TO LOOK AT"
|
|
PRINT" THIS BEFORE QUITTING. IF CONTINUING ETC,JUST GO ON."
|
|
PRINT" "NOMEN$" GOT "SCORE" % ON "ITEM" ITEMS--GENDERS"
|
|
PRINT" AND 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)
|