3 SYMBOL 255,&7E,&F8,&F0,&F8,&DC,&8E,&87,3:INK 1,26:a$=CHR$(255):MODE 1:PRINT"[Note] [Exit]":FOR c=0 TO 65:v=c>21:MOVE 366+c*3,136-d:DRAWR 0,76+d,2-v:MOVER 0,2:DRAWR 0,76+d,1-v:d=d+1:NEXT:TAG:CALL &BC59,1:c=35:l=26:WHILE 1:WHILE INKEY(47):FOR a=1 TO 2
5 PLOT c*8,l*8,1:PRINT a$;:NEXT:c=MAX(0,MIN(c+INKEY(1)-INKEY(8),79)):l=MAX(0,MIN(l+INKEY(0)-INKEY(2),49)):t=8:WEND:WHILE t>0 AND l>47 AND c<11:t=t-1:MOVE 108,370:SOUND 3,l*t:PRINT"HAPPY BIRTHDAY AMSTRAD.EU";:WEND:WHILE l>47 AND c>15 AND c<25:END:WEND:WEND