Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (9 sloc) 552 Bytes
10 FOR n=0 TO 2
20 PRINT "QUE TENGAS FELICES FIESTAS"
30 IF n=0 THEN BEEP 0.5,2: BEEP 0.5,7: BEEP 0.25,7: BEEP 0.25,9: BEEP 0.25,7: BEEP 0.25,6: BEEP 0.5,4: BEEP 0.5,4
40 IF n=1 THEN BEEP 0.5,4: BEEP 0.5,9: BEEP 0.25,9: BEEP 0.25,11: BEEP 0.25,9: BEEP 0.25,7: BEEP 0.5,6: BEEP 0.5,2
50 IF n=2 THEN BEEP 0.5,2: BEEP 0.5,11: BEEP 0.25,11: BEEP 0.25,12: BEEP 0.25,11: BEEP 0.25,9: BEEP 0.5,7: BEEP 0.5,4
60 NEXT n
70 PRINT "FELIZ NAVIDAD!"
80 BEEP 0.25,2: BEEP 0.25,2: BEEP 0.5,4: BEEP 0.5,9: BEEP 0.5,6: BEEP 1,7
90 PRINT " ALFONSO"