home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / luvsng.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  44 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP:'LUVSNG' <MU-42> 9/1/85
  3. 2 ' * STAN KENDALL * [ 70136,3066 ]
  4. 3 '1945 WASHINGTON AVE * WILMETTE, IL       60091
  5. 10 CALL17001:PRINTSPACE$(40):PRINT@240,SPACE$(40);:CALL17006
  6. 20 FOR A=41TO 240STEP40:PRINT@A,CHR$(158):PRINT@A+37,CHR$(158):NEXT
  7. 60 PRINT@48,"Prog. 'LUVSNG'  <MU-42>":PRINT@125,"<W>hat Now My Love"
  8. 65 PRINT@210,"<S>ome Where My Love"
  9. 70 PRINT@286,"<ENTER> Menu          <P>lay";
  10. 100 CLEAR:DIM Z(24)
  11. 110 FOR N=1 TO 24:READ Z(N):NEXT N
  12. 120 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
  13. 130 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321
  14. 190 A$=INKEY$
  15. 192 IF A$="S"OR A$="s"THEN RESTORE200:GOTO200
  16. 194 IF A$="W"OR A$="w"THEN RESTORE 500:GOTO500
  17. 196 IF A$=CHR$(13)THEN MENU
  18. 198 GOTO190
  19. 199 ' <>Some Where My Love<>
  20. 200 FORN=1TO 104:READS,L:SOUND Z(S),L
  21. 210 IF INKEY$=CHR$(13)THEN100
  22. 220 NEXT N:GOTO100
  23. 230 DATA5,40,8,30,13,10,17,80,11,20,15,20,13,20,8,30,7,10,6,80
  24. 240 DATA6,40,8,30,10,10,11,80,10,20,8,20,7,20,8,30,19,10,17,80,5,40,8,30,13,10
  25. 250 DATA17,80,11,20,15,20,13,20,8,30,7,10,6,80,6,80,8,30,10,10,11,80
  26. 260 DATA10,20,8,20,7,20,8,30,19,10,17,80,10,40,13,80,15,20,13,20,11,20,10,40,6,40
  27. 270 DATA5,80,8,40,11,60,12,10,13,20,11,20,13,20,15,40,17,40,18,80
  28. 280 DATA5,40,8,30,13,10,17,80,11,20,15,20,13,20,8,30,7,10,6,80
  29. 290 DATA6,40,8,30,10,10,11,80,10,20,8,20,7,20,8,30,19,10,17,80,5,40,8,30,13,10
  30. 300 DATA17,80,11,20,15,20,13,20,8,30,7,10,6,80,6,80,8,30,10,10,11,80
  31. 310 DATA10,20,8,20,8,20,6,30,11,10,13,60,0,15,10,20,8,20,8,20,6,80,6,40,13,80
  32. 499 '  <>What Now My Love<>
  33. 500 FORN=1TO 80:READS,L:SOUND Z(S),L
  34. 510 IF INKEY$=CHR$(13)THEN100
  35. 520 NEXT N:GOTO100
  36. 600 DATA13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,20,13,20,13,20,15,100,17,10,15,10,13,20,15,20
  37. 610 DATA17,120,13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,10,13,10,15,100,17,10,15,10,13,20,15,20
  38. 620 DATA17,120,13,20,13,20,22,20,22,100,11,20,11,20,20,20
  39. 630 DATA20,40,13,20,13,20,18,20,18,60,17,10,18,10,20,60,18,20
  40. 640 DATA20,120,13,20,13,20,21,20,21,100,12,20,11,20,20,20
  41. 650 DATA20,120,13,20,13,20,18,20,18,100,16,40
  42. 660 DATA15,90,13,20,13,20,17,20,17,120
  43. 670 DATA13,20,13,20,18,40,17,80,13,20,13,20,13,20,15,120,15,40,17,120
  44.