home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / SOUND.COMPARE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  980b  |  19 lines
  1. 10  REM  **********************
  2. 20  REM  *   SOUND.COMPARE    *
  3. 30  REM  * BY SCOTT ZIMMERMAN *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC.*
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM 
  9. 90  HOME : VTAB 3:A$ = " SOUND.COMPARE ": INVERSE : GOSUB 150: NORMAL : VTAB 1: PRINT "** COPYRIGHT 1985, MICROSPARC, INC.**": GOSUB 180
  10. 100  VTAB 8: CALL  -958: PRINT "BASIC OR MACHINE SOUND? (B/M/Q) ";: GET A$: PRINT A$
  11. 110  IF A$ = "B"  THEN  GOSUB 160: GOTO 100
  12. 120  IF A$ = "M"  THEN  GOSUB 170: GOTO 100
  13. 130  IF A$ = "Q"  THEN  HOME : END 
  14. 140  GOTO 100
  15. 150  HTAB (40 - LEN(A$))/2: PRINT A$: RETURN 
  16. 160  FOR J = 1 TO 20:K =  RND(1) *20 +1: FOR L = 1 TO K:X =  PEEK(S) - PEEK(S): NEXT L: FOR M = 1 TO 40: NEXT M: NEXT J: RETURN 
  17. 170  FOR J = 1 TO 30: POKE 7, RND(1) *30 +1: POKE 8,50: CALL 768: NEXT J: RETURN 
  18. 180  FOR J = 768 TO 781: READ X: POKE J,X: NEXT J:S =  -16336: RETURN 
  19. 190  DATA  166,8,173,48,192,165,7,32,168,252,202,208,245,96