home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / aqaius.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  25 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP'AQAIUS' AUG 85 <MU-35>
  3. 10 PRINT@128,"ADD OPENING  * 'AQAIUS"
  4. 15 PRINT@203,"by S.KENDALL * <ENTER> to exit"
  5. 20 '1945 WASHINGTON AVE * WILMETTE, IL 60091
  6. 400 CLEAR:DIM Z(25)
  7. 410 FOR N=1 TO 25:READ Z(N):NEXT N
  8. 420 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
  9. 430 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134
  10. 500 FORN=1TO 119:READS,L:SOUND Z(S),L
  11. 510 IF INKEY$=CHR$(13)THEN MENU
  12. 520 NEXT N:RESTORE
  13. 530 RUN
  14. 600 DATA15,20,17,20,18,100,20,20,18,10,17,10,15,10,13,10,15,140,13,20,15,20,17,20,17,60
  15. 602 DATA15,20,15,20,13,20,15,140,17,20,18,100,20,20,18,10,17,10,15,10,13,10,13,20,15,100,15,40
  16. 604 DATA17,20,17,20,17,20,17,20,18,20,18,20,20,20,18,20,22,20,20,20,18,20,17,20
  17. 606 DATA16,40,16,20,15,20,16,20,18,20,20,20,18,20,16,40,16,20,15,20
  18. 608 DATA16,20,18,20,20,140,18,20,20,20,23,20,25,140
  19. 610 DATA23,20,25,20,23,20,20,140,18,10,20,10,18,10,16,10,15,20,13,20,16,20,15,20
  20. 612 DATA16,10,18,10,16,10,15,10,13,20,11,20,13,10,11,10,8,20,6,40
  21. 614 DATA18,10,20,10,18,10,16,10,15,20,13,20,16,20,15,20,16,20,15,20
  22. 616 DATA16,20,15,20,18,30,16,10,15,20,13,20,15,20,13,20,15,20,13,20,16,20,15,20
  23. 618 DATA13,20,11,20,13,20,11,20,13,20,11,20,15,20,13,20,11,20,10,20,8,20,6,20
  24. 620 DATA8,20,11,20,13,140,10,20,13,20,11,20,8,200
  25.