10:
20MODE7
30REM" BY RUSHDEN ROY
40REM" (AN 'L PLATE' PROGRAMMER)
50REM" GUESS THE LETTER "LetGues"
60*FX229,1
70*FX11,200
80VDU23,1,0;0;0;0;
90*KEY 10 "OLD |M RUN |M"
100b$=CHR$(RND(25)+65):CLS:
110PRINT" PROGRAM B
Y ££££££££"
120PRINT"
k 7e757£k"
130PRINT"
s550!5u0£5"
140PRINT"
p5u7t5upp5"
150REM (Thanks to RAFAEL JAY for my
name display.)
160PRINT
170PRINT" A letter guessing ga
me"
180PRINT ''" GUESS THE LETTER
GAME"''" (getting to know the alpha
bet)"''STRING$(20,"+*")'" THE COMPUTER
IS THINKING OF A LETTER"
190PRINT'SPC(4)" SEE IF YOU CAN GUESS
WHICH ONE":g=1
200PRINT SPC(8)"----------------------
--":REPEAT
210REPEAT:INPUT '" PRESS A CAPITAL LET
TER then <RET>:- "a$:UNTIL a$>=CHR$(65)
AND a$<=CHR$(90):
220IF a$=b$ THEN PRINT '"GOT IT!!!"''"
IN ";g;" GUESSES."'''" PRESS
A KEY FOR ANOTHER GO":ENVELOPE 1,10,-8,
8,0,10,0,126,0,0,-126,-126,126,126:SOUND
1,1,150,20:REPEAT UNTIL GET:RUN
230 IF a$<b$ THEN PRINT '" It is AF
TER the letter '"a$"'":SOUND1,-15,5,3
240IFa$>b$ THEN PRINT '" It is BEFO
RE the letter '"a$"'":SOUND1,-15,180,3
250PRINT" -------"
260g=g+1
270UNTIL 0