home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / bthday.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  70 lines
  1. 0 'BTHDAY.BA Modified for the Model 200    CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 ' HAPPY BIRTHDAY
  3. 2 '   BY EIJI MIURA [71216,1564]
  4. 3 '   03/03/84
  5. 4 ' ----------------------------
  6. 10 CLS
  7. 20 LINE(0,0)-(239,63),1,B
  8. 30 LINE(2,2)-(237,61),1,B
  9. 40 FORT=1TO400:NEXT
  10. 50 RESTORE100
  11. 60 FORN=1TO58
  12. 70 READA,B,C,D
  13. 80 LINE(A,B)-(C,D),1,BF
  14. 90 NEXT
  15. 100 DATA11,19,13,39,14,28,22,30,23,19
  16. 110 DATA25,39,28,25,30,39,31,22,33,24
  17. 120 DATA34,19,36,21,37,22,39,24,40,25
  18. 130 DATA42,39,31,28,39,30,45,19,47,39
  19. 140 DATA48,19,56,21,57,22,59,27,48,28
  20. 150 DATA56,30,62,19,64,39,65,19,73,21
  21. 160 DATA74,22,76,27,65,28,73,30,79,19
  22. 170 DATA81,24,82,25,84,27,91,19,93,24
  23. 180 DATA88,25,90,27,85,28,87,39,102,19
  24. 190 DATA104,39,105,19,113,21,114,22
  25. 200 DATA116,27,105,28,113,30,114,31
  26. 210 DATA116,36,105,37,113,39,119,19
  27. 220 DATA127,21,122,22,124,36,119,37
  28. 230 DATA127,39,130,19,132,39,131,19
  29. 240 DATA141,21,142,22,144,27,133,28
  30. 250 DATA141,30,136,31,138,33,139,34
  31. 260 DATA141,36,142,37,144,39,147,19
  32. 270 DATA161,21,153,22,155,39,164,19
  33. 280 DATA166,39,167,28,175,30,176,19
  34. 290 DATA178,39,181,19,183,39,184,19
  35. 300 DATA192,21,193,22,195,36,181,37
  36. 310 DATA192,39,198,25,200,39,201,22
  37. 320 DATA203,24,204,19,206,21,207,22
  38. 330 DATA209,24,210,25,212,39,201,28
  39. 340 DATA211,30,215,19,217,24,218,25
  40. 350 DATA220,27,227,19,229,24,224,25
  41. 360 DATA226,27,221,28,223,39
  42. 370 FORT=1TO300:NEXT:GOSUB500
  43. 380 FORT=1TO300:NEXT
  44. 390 M$="HAVE A WONDERFUL YEAR..."
  45. 400 ML=LEN(M$)
  46. 410 PRINT@243,"";
  47. 420 FORI=1TOML
  48. 430 PRINTMID$(M$,I,1);
  49. 440 FORT=1TO25:NEXT
  50. 450 NEXT
  51. 460 LINE(0,0)-(239,63),1,BF
  52. 470 FORT=1TO500:NEXT:MENU
  53. 500 R=2
  54. 510 RESTORE600
  55. 520 FORN=1TO32
  56. 530 READA,B
  57. 540 B=INT(B/R)
  58. 550 SOUNDA,B
  59. 560 NEXT
  60. 570 RETURN
  61. 600 DATA4976,25,0,5,4976,10,4433,50
  62. 610 DATA4976,50,3718,50,3950,75,0,25
  63. 620 DATA4976,25,0,5,4976,10,4433,50
  64. 630 DATA4976,50,3321,50,3718,75,0,25
  65. 640 DATA4976,25,0,5,4976,10,2484,50
  66. 650 DATA3134,50,3950,50,4184,50
  67. 660 DATA4697,75,0,75,2950,25,0,5
  68. 670 DATA2950,10,3134,50,3950,50
  69. 680 DATA3516,50,3950,100,100,100
  70.