1 line
6.6 KiB
Plaintext
1 line
6.6 KiB
Plaintext
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 CALL MOVETO(20,70):PRINT"PLEASE BE PATIENT WHILE I LOAD THE STUFF."
|
|
|
|
|
|
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 C,10:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND G,6:SOUND 0,2:SOUND C,5:SOUND 0,1:SOUND C,5:SOUND 0,3
|
|
213 SOUND A,8:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND CM,4:SOUND 0,2:SOUND C,5:SOUND 0,1:SOUND C,5:SOUND 0,3
|
|
215 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2
|
|
220 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10
|
|
221 GOTO 300
|
|
|
|
230 SOUND F,10:SOUND 0,2:SOUND G,6:SOUND 0,1:SOUND F,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND E,8:SOUND 0,2
|
|
235 SOUND F,6:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND D,6:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND D,8:SOUND 0,2:SOUND E,6:SOUND 0,1:SOUND D,4:SOUND 0,1:SOUND C,6:SOUND 0,1:SOUND BB,4:SOUND 0,1:SOUND C,10
|
|
238 RETURN
|
|
|
|
250 SOUND G,10:SOUND 0,1:SOUND C,4:SOUND 0,1:SOUND C,5:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND CM,10
|
|
251 RETURN
|
|
|
|
270 SOUND CM,5:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND F,5:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND AH,3:SOUND 0,1:SOUND AH,3
|
|
271 RETURN
|
|
|
|
300 CLS:LINE(25,25)-(460,50),,BF:LINE(30,30)-(455,45),30,BF:LINE(300,30)-(320,45),,BF
|
|
305 CALL MOVETO (325,42):PRINT "SCORE"
|
|
310 X=100:Y=110:N=1:GOSUB 330
|
|
312 X=100:Y=225:N=2:GOSUB 330
|
|
315 X=250:Y=162:N=0:GOSUB 330
|
|
317 X=400:Y=110:N=3:GOSUB 330
|
|
319 X=400:Y=225:N=4:GOSUB 330
|
|
|
|
322 GET (10,10)-(480,280),SCR
|
|
325 CLS
|
|
327 GOTO 350
|
|
330 FOR R=45 TO 50:CIRCLE(X,Y),R:NEXT R
|
|
333 CALL MOVETO (X-4,Y+35):PRINT N
|
|
335 RETURN
|
|
350 PRINT"":PRINT"":PRINT" IF YOU NAME DOES NOT REGISTER, CLICK ON THE CURSOR."
|
|
351 PRINT"":INPUT" Please type in your name and press the ENTER key."; NOMEN$
|
|
352 IF NOMEN$="" THEN BEEP:CLS:GOTO 350
|
|
353 GOTO 500
|
|
|
|
400 CLS:PRINT"":PRINT"":GOSUB 230
|
|
401 PRINT" You now have three choices:"
|
|
403 PRINT""
|
|
404 PRINT,"1. QUIT"
|
|
405 PRINT,"2. START OVER"
|
|
406 PRINT,"3. CONTINUE"
|
|
407 PRINT"":PRINT" Press the number key of your choice."
|
|
410 W$ = ""
|
|
411 W$ = INKEY$
|
|
413 IF W$ = "1" THEN 950
|
|
414 IF W$ = "2" THEN RESTORE: SCORE=0:NUM=0:GOTO 500
|
|
415 IF W$ = "3" THEN 500
|
|
420 GOTO 410
|
|
425 CLS:PRINT"":PRINT""
|
|
430 PRINT" That is all the material there is. At this time then, you may:"
|
|
435 PRINT""
|
|
436 PRINT,"1. QUIT"
|
|
437 PRINT,"2. START OVER"
|
|
438 PRINT"":PRINT" Press the number key of your choice."
|
|
440 GOTO 410
|
|
|
|
500 CLS:READ L$,E1$,E2$,E3$,E4$,A
|
|
505 BOOP = 0
|
|
510 IF L$ = "CHOICE" THEN GOTO 400
|
|
511 IF L$ = "END" THEN GOTO 425
|
|
520 PUT (10,10),SCR
|
|
522 NUM = NUM +1
|
|
525 CALL MOVETO (35,42):PRINT NOMEN$
|
|
527 CALL MOVETO (370,42):PRINT SCORE
|
|
528 CALL MOVETO(200,250):PRINT"TO QUIT, PRESS 9"
|
|
530 CALL MOVETO (210,160):PRINT L$
|
|
533 CALL MOVETO (60,108):PRINT E1$
|
|
535 CALL MOVETO (60,223):PRINT E2$
|
|
537 CALL MOVETO (360,108):PRINT E3$
|
|
539 CALL MOVETO (360,223):PRINT E4$
|
|
540 SCORE = SCORE +5
|
|
545 GET (10,10)-(480,300),SCN
|
|
550 A$ = ""
|
|
551 A$ = INKEY$
|
|
552 IF A$ ="9" THEN 950
|
|
555 IF A$ = "1" OR A$ = "2" OR A$ = "3" OR A$ = "4" THEN 560
|
|
556 GOTO 550
|
|
560 IF VAL(A$) = A THEN BOOP =BOOP +1:GOTO 600
|
|
562 SCORE = SCORE -2:SOUND CM,5:BOOP = -5
|
|
563 CALL MOVETO (20,290):PRINT "THAT IS NOT CORRECT, TRY AGAIN"
|
|
564 FOR DLAY = 1 TO 1000:NEXT DLAY:CLS:PUT (10,10), SCN
|
|
567 GOTO 550
|
|
|
|
600 CLS:GOSUB 250
|
|
605 PRINT"":PRINT""
|
|
606 PRINT" That is correct !
|
|
607 IF BOOP = 1 THEN 610 ELSE 615
|
|
610 PRINT" Very good."
|
|
610 CIRCLE (245,150),100
|
|
612 CIRCLE (225,100),10:CIRCLE (265,100),10
|
|
613 LINE(230,175)-(235,180):LINE-(240,182):LINE-(245,183):LINE-(250,182):LINE-(255,180):LINE-(260,175)
|
|
615 FOR DLAY = 1 TO 1000:NEXT DLAY
|
|
618 GOTO 500
|
|
|
|
950 CLS:GOSUB 270
|
|
951 PRINT"":PRINT""
|
|
955 PRINT" "NOMEN$" did "NUM" items "
|
|
956 PRINT""
|
|
957 PRINT" and attained a score of " SCORE
|
|
958 PRINT"":PERC = INT((SCORE/(NUM * 5))* 100)
|
|
959 PRINT " which is "PERC" %."
|
|
960 PRINT"":PRINT""
|
|
965 PRINT" You may go get the teacher to see this score and you might get"
|
|
966 PRINT" some points. When you have finished, press the RETURN key."
|
|
968 PRINT" Please close the disc and return it to the files."
|
|
970 INPUT V
|
|
980 END
|
|
|
|
1000 DATA PUER,GIRL,BOY,TEACHER,STUDENT,2,PUELLA,GIRL,BOY,LADY,MAN,1
|
|
1001 DATA POCULUM,PLATE,FORK,CUP,KNIFE,3,STELLA,GIRL,STAR,BOOK,CUP,2
|
|
1002 DATA LIBER,STAR,CUP,BOOK,PENCIL,3,DUO,BATMAN,ROBIN,TWO,BOOK,3
|
|
1004 DATA ARBOR,STAR,TREE,ONE,GREEN,2,VIRIDIS,GREEN,PENCIL,TREE,CUP,1
|
|
1005 DATA RUBRUM,GREEN,RED,CUP,TREE,2,TRIA,CUPS,TREES,BOYS,THREE,4
|
|
1006 DATA SUNT,IS,ARE,WAS,HERE,2,FLAVA,YELLOW,FOUR,CUPS,FLAVOR,1
|
|
1007 DATA NON,NONE,NO,NOT,NEVER,3,HAEC,THIS,HERE,IS,A,1
|
|
1008 DATA MANUS,MAN,KEY,HAND,FINGER,3,TANGIT,TANGY,DANCES,TAN,TOUCHES,4
|
|
1009 DATA OCULUM,HEAD,HAND,EYE,TOUCHES,3,CUM,COME,WITH,HAND,EYE,2
|
|
1010 DATA HABET,HAS,HAND,BOOK,HABIT,1,VIDET,TELEVISION,SEES,WIDE,WIDEST,2
|
|
1011 DATA GRAPHEM,PAPER,PENCIL,LUNCH,BOOK,2,QUAE,WHAT,WHO,WHEN,WHY,1
|
|
1012 DATA QUINQUE,WHEN,AND,WHO,FIVE,4,SEX,SAKES,SIX,SICK,SOX,2
|
|
1013 DATA UNUS,ONE,UNITED,NIGHT,ONLY,1,CHOICE,O,O,O,O,0,POCULA,POKE,EYES,CUPS,STICK,3
|
|
1014 DATA DAT,SEES,HAS,WANTS,GIVES,4,NUNC,NO,NOT,NEVER,NOW,4
|
|
1015 DATA COCHLEAR,KNIFE,FORK,SPOON,EAR,3,CULTER,CULTURE,CUTTER,KNIFE,CLUTTER,3
|
|
1016 DATA PUERUM,BOYS,BOY'S,BOYS',BOY,4,MENSA,MIND,MESA,MESS,TABLE,4
|
|
1017 DATA CATILLUS,CAT,TILE,CASTLE,PLATE,4,FURCA,FUR,FOUR,FORK,HELP,3
|
|
1018 DATA EDIT,READS,WRITES,EATS,PAPER,3,JUXTA,NEXT TO,JUST,CLOSE,USED TO,1
|
|
1019 DATA PREPARATA,PREPARED,WRONG,TABLE,DISHES,1,QUATTUOR,WHO,WHAT,FOUR,FOR,3
|
|
1020 DATA CATILLI,CATERPILLAR,CATS,PLATES,CUPS,3,EST,IS,ARE,WAS,WERE,1
|
|
1021 DATA PUERO,BOY,BOYS,BOY'S,BOYS',1,MATER,MATTER,MATERIAL,MOTHER,MOTOR,3
|
|
1022 DATA APPELLATUR,IS CALLED,IS SEEN,HOLDS,IS OLD,1,FAMILIA,FAMILIAR,FAMILY,FAMOUS,HUNGRY,2
|
|
1023 DATA FILIUS,FEEL,FEELS,SON,CHILD,3,PATER,NOISE,PATTER,FATHER,HEAD,3
|
|
1024 DATA CONSIDET,SITS,CONSIDERS,SEES,HOLDS,1,LEGIT,SEES,LETS GO,LEGAL,READS,4
|
|
1025 DATA CAERULEA,RULER,SKY,BOOK,BLUE,4,BRACAE,BRACE,BRACES,BRITCHES,SHOES,3,CHOICE,O,O,O,O,0
|
|
1026 DATA SCRINIO,DESK,SCREEN,MOVIES,SCHOOL,1,SCHOLA,SCHOOL,COLA,STUDENT,CHOIR,1
|
|
1027 DATA VESTITUM,VEST,DRESS,SKIRT,WEST,2,CAPILLUS,PLATE,CUP,HAIR,DRESS,3
|
|
1028 DATA NIGER,KNEE,NEAR,CUT,BLACK,4,CULINA,KNIFE,CUTS,KITCHEN,COOL,3
|