DECLARE SUB ZPlay (m$)
DECLARE FUNCTION GotIt% (NameOfMelody$, Melody$)
DIM i AS INTEGER, j AS INTEGER, k AS INTEGER
DIM D(6, 3) AS STRING: GOSUB BuildD: ' Load songs
DIM Q(6) AS INTEGER: ' Pointer to song to be played
RANDOMIZE TIMER
DIM Song AS INTEGER
DO
GOSUB BuildQ
FOR Song = 1 TO 6
GOSUB Introduction
GOSUB PlaySong: PRINT R$: PRINT
INPUT "Will now play a different song. Proceed"; z$
IF NOT LEFT$(UCASE$(z$), 1) = "Y" THEN EXIT DO
NEXT Song
LOOP
SYSTEM
PlaySong:
R$ = "**You Are Correct**"
N$ = D(Q(Song), 1): ' Name of the melody
m$ = D(Q(Song), 2): 'Melody (beginning)
IF GotIt(N$, m$) THEN RETURN
PRINT "**Sorry Try Again**": PRINT
m$ = m$ + D(Q(Song), 3): 'Melody (entire)
IF GotIt(N$, m$) THEN RETURN
R$ = "**You Are Incorrect**"
RETURN
BuildQ:
FOR i = 1 TO 6: Q(i) = i: NEXT i
DO
FOR i = 1 TO 6
j = 1 + INT(RND * 6)
IF i <> j THEN SWAP Q(i), Q(j): k = k + 1
NEXT i
LOOP WHILE k < 20
RETURN
Introduction:
CLS
PRINT " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT " º NAME THAT TUNE º"
PRINT " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT
PRINT
PRINT "TRY GUESSING THE TUNE THAT IS PLAYING."
PRINT "YOU GET ONLY 2 GUESSES. GOOD LUCK!"
PRINT
RETURN
BuildD:
D(1, 1) = "FUNERAL MARCH"
D(1, 2) = "MNT100L4O1AL8A.L16AL4AL8>C.L16<BL8"
D(1, 3) = "B.L16AL8A.L16AL2AL4>CL8C.L16CL4CL8E.L16DL8D.L16CL8C.L16CL2C"
D(2, 1) = "WEDDING MARCH"
D(2, 2) = "t100o2mnl4g> l8cp16l16c l2c<l4g> l8d<p16l16b> "
D(2, 3) = "l2c <l4g> l8cp16l16f l4fl8ep16l16d l4c<l8bp16l16>cl2d<l4g>l8cp16l16cl2c<l4g>l8dp16l16<b>l2c<l4g>l8cp16l16e l4gl8ep16l16c<l4a> l8dp16l16el2c"
D(3, 1) = "YANKEE DOODLE"
D(3, 2) = "MNT255L4O2GGABGBAD"
D(3, 3) = "GGABL2GF+L4GGAB>C<BAGF+DEF+L2GL4G P4L4EF+EDEF+L2GL4DEDC<L2B>L2DL4EF+EDEF+GEDGF+AL2GL4G"
D(4, 1) = "JINGLE BELLS"
D(4, 2) = "t200l4o2mn eel2el4eel2el4eg"
D(4, 3) = " l3cl8dl1e l4ffl3fl8fl4fel2el8eel4eddel2dgl4eel2el4eel2el4egl3cl8dl1el4ffl3fl8fl4fel2el8efl4ggfdl2c"
D(5, 1) = "MACARENA"
D(5, 2) = "MNT180L4O2CL8CCL4CL8CCCCCCCE<GGL4>C"
D(5, 3) = "L8CCL4CL8CCCCCCL4<A G>CL8CCL4CL8CCCCCCL4EGL2GL8EP8GEP4L2C"
D(6, 1) = "TAKE ME OUT TO THE BALL GAME"
D(6, 2) = "mnt200l4o1cp4>c<agemll2gl4gmnmll2dl4d"
D(6, 3) = "mnl4cp4>c<agemll2gggmnl4ag+aefgl2al4fmll2dl4dmnl2al4aab>cd<bagedcp4>c<agemll2gl4gmnl2dl4dl2cl4defgmll2aamnl4ab>cp4p4cp4p4c<bagf+gmll2al4al2bl4b>l2cc"
RETURN
FUNCTION GotIt% (NameOfMelody$, Melody$)
' ### Play melody until user presses a key
DIM m AS STRING: m = Melody$
DIM y AS INTEGER, t AS STRING * 1
LOCATE , , 1: PRINT "Press key when ready to answer: ";
DO
IF INKEY$ <> "" THEN EXIT DO
IF m <> "" THEN
Notes = 0
FOR i = 1 TO LEN(m)
t = LCASE$(MID$(m, i, 1))
IF INSTR("abcdefg", t) > 0 THEN
Notes = Notes + 1
IF Notes > 1 THEN EXIT FOR
END IF
NEXT i
IF i < LEN(m) THEN
p$ = LEFT$(m, i - 1)
m = RIGHT$(m, LEN(m) - i + 1)
ELSE
p$ = m
m = ""
END IF
PLAY p$
END IF
LOOP
LOCATE , 1: PRINT SPACE$(70); : LOCATE , 1
WHILE INKEY$ <> "": WEND
' ### Evaluate user guess at name of melody
DIM N AS STRING: N = NameOfMelody$
DIM G AS STRING: 'G is the user guess of N
DIM cntB AS INTEGER: 'Count of bad characters in guess
DIM cntG AS INTEGER: 'Count of good ones
LINE INPUT "Name That Tune: "; G: G = UCASE$(G)
FOR i = 1 TO LEN(G)
j = INSTR(N, MID$(G, i, 1))
IF j = 0 THEN
cntB = cntB + 1
ELSE
MID$(G, i, 1) = CHR$(0)
cntG = cntG + 1
END IF
NEXT i
IF cntB > 2 OR cntG + 3 < LEN(N) THEN EXIT FUNCTION
GotIt% = -1
END FUNCTION