Skip to content

Instantly share code, notes, and snippets.

@sumoward

sumoward/birthday.bas

Created April 10, 2014 14:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sumoward/10389771 to your computer and use it in GitHub Desktop.
Save sumoward/10389771 to your computer and use it in GitHub Desktop.
Download ZIP
HAPPY BIRTHDAY IN BASIC. Written and compiled in free basic. http://www.freebasic.net/ A little walk down memory lane.
Raw
birthday.bas
'A SUITABLE CELBATORY SONG FOR THE BASIC BIRTHDAY PARTY AT PUBSTANDARDS DUBLIN.
'In 1964, John G. Kemeny and Thomas E. Kurtz designed the original BASIC language at Dartmouth College in New Hampshire.
DIM BDAY AS STRING
DIM BAS AS STRING
DIM I AS INTEGER
DIM Z AS INTEGER
DIM VERSES AS INTEGER
BDAY = "HAPPY BIRTHDAY TO YOU"
BAS = " DEAR BASIC!"
INPUT "HOW MANY VERSUS SHALL WE SING" ; VERSES
PRINT ""
Z = 3
FOR I = 1 TO 4 * VERSES
IF I = Z then PRINT BDAY + BAS : Z= Z + 4 ELSE PRINT BDAY
IF I MOD 4 = 0 THEN PRINT ""
NEXT I
SLEEP
@Mahacking
Copy link

Happy birthday 🎂 🥳 🎉 god bless you 🙏 💓 you gift 🎁 💗 💓 💖 link

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment