8-Bit Software Online Conversion

Guess the Letter - Listing

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