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)