home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas41.lzh / bday.bas < prev    next >
BASIC Source File  |  1990-11-25  |  555b  |  28 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " You're too damn old !"
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 99
  11. read a
  12. read b
  13. if b=999then goto 2000
  14. if a=999 then goto 2000
  15. c = b/2 'the "2" controls tempo
  16. sound a,c
  17. next I
  18. 400data 52,25,52,25,54,50,52,50
  19. 410data 57,50,56,200
  20. 420data 52,25,52,25,54,50,52,50
  21. 430data 41,50,57,200
  22. 440data 52,25,52,25,62,50,60,50
  23. 450data 57,50,56,50,54,150
  24. 460data 61,25,61,25,60,50
  25. 470data 57,50,41,50,57,200
  26. 480data 999,999
  27. 2000system=
  28.