10 MODE 1:INK 0,11:INK 1,26:INK 2,0:FOR a=1 TO 7:ORIGIN 0,0,34+a*64,82+a*64,18,270:CLG 1:LOCATE 4+a*4,25:PRINT CHR$(48+a):NEXT:FOR a=140 TO 420 STEP 64:ORIGIN 0,0,a-(a>250)*64,32+a-(a>250)*64,120,272:CLG 2:NEXT:ORIGIN 0,0,100,535,394,280:CLG:LOCATE 9,2
20 PRINT"* JoYeUx AnNiVeRsAiRe *":WINDOW 15,25,4,8:PRINT"1 1 2 1 4 31 1 2 1 5 41 1 6 3 2 27 7 6 4 5 4";:WHILE t<9:a$="":WHILE a$="":a$=INKEY$:WEND:s=ASC(a$)-48:s=MAX(1,MIN(s,7)):SOUND 1,VAL("&"+MID$("EFD5BEB39F8E86",s*2-1,2)),20,15:BORDER RND*28:WEND'P.M.