home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / bigspn.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  40 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP:'BIGSPN' <MU-34> 7/6/85
  3. 2 ' by STAN KENDALL 1945 WASHINGTON AVE             WILMETTE, IL 60091
  4. 10 CALL17001:PRINTSPACE$(40):PRINT@240,SPACE$(40);
  5. 20 FOR A=41TO 240STEP40:PRINT@A,CHR$(171):PRINT@A+37,CHR$(171):NEXT:CALL17006
  6. 30 LINE(30,10)-(30,45),1:LINE(31,10)-(31,45),1:LINE(34,10)-(34,45),1
  7. 31 LINE(35,10)-(35,45),1
  8. 40 LINE(40,14)-(25,14),1:LINE-(25,26):LINE-(40,25)
  9. 50 LINE-(40,38):LINE-(25,38)
  10. 60 PRINT@90,"Prog. 'BIGSPN'  <MU-34>":PRINT@170,"Song $ BIG SPENDER $"
  11. 70 PRINT@287,"<ENTER> Menu   $$$   <P> lay";
  12. 80 A$=INKEY$:IF A$=""THEN80
  13. 90 IF A$="P"OR A$="p"THEN400
  14. 92 IF A$=CHR$(13)THEN MENU
  15. 94 GOTO 80
  16. 96 ''''''
  17. 400 DIM Z(60)
  18. 410 FOR N=1 TO 60:READ Z(N):NEXT N
  19. 420 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
  20. 430 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321
  21. 440 DATA 3134,2959,2793,2636,2484,2348,2216,2092,1975,1864,1758,1660
  22. 450 DATA 1567,1479,1396,1318,1244,1174,1108,1046,987,932,879,830
  23. 460 DATA 783,739,698,659,622,587,554,523,493,466,439,415
  24. 500 FORN=1TO 128:READS,L:SOUND Z(S),L
  25. 510 IF INKEY$=CHR$(13)THEN MENU
  26. 520 NEXT N
  27. 530 GOTO40
  28. 600 DATA3,20,5,10,6,10,7,10,8,20,11,10,10,10,11,20,0,20
  29. 610 DATA0,20,11,10,10,10,11,10,10,10,8,10,7,10,4,20,8,10,4,10,10,20,11,10,13,10
  30. 620 DATA14,20,14,20,13,20,11,20,0,20,14,20,14,20,15,20,11,20,10,20,8,20,4,20
  31. 630 DATA10,10,10,10,8,10,6,10,4,10,10,10,8,10,6,10,4,10,10,10,9,10,10,10,11,10,3,10,5,10,6,10,7,10
  32. 640 DATA8,20,11,10,10,10,11,20,0,20,0,20,11,10,10,10,11,10,10,10,8,10,7,10
  33. 650 DATA4,20,8,20,11,20,13,20,14,80,15,20,20,20,15,20,20,20
  34. 660 DATA16,40,13,20,11,10,8,10,16,10,13,10,11,20,8,20,0,20
  35. 670 DATA3,10,3,10,4,10,5,10,6,10,3,20
  36. 680 DATA12,20,0,20,12,20,0,20,12,20,3,10,4,10,5,10,6,10,3,20
  37. 690 DATA0,20,13,20,13,20,0,20,3,10,4,10,5,10,6,10,3,20,14,20,15,20
  38. 700 DATA15,20,3,10,4,10,5,10,6,10,3,20,14,20,15,100,3,20,5,10,6,10,7,10
  39. 710 DATA16,10,13,10,11,10,8,10,16,10,13,10,11,20,8,100
  40.