home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / BACH.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  32 lines
  1. 10  REM  ***********************    
  2. 20  REM  *        BACH         *  
  3. 30  REM  * BY SCOTT ZIMMERMAN  *   
  4. 40  REM  * COPYRIGHT (C) 1987  *
  5. 50  REM  * BY MICROSPARC, INC  *
  6. 60  REM  * CONCORD, MA  01742  *    
  7. 70  REM  ***********************   
  8. 80  REM 
  9. 90  TEXT : HOME : GOSUB 250
  10. 100  IF  PEEK(1015) < >3  THEN  PRINT  CHR$(4);"BRUN AMPER.MUSIC"
  11. 110 N = 103: DIM P(N),D(N)
  12. 120  FOR I = 1 TO N: READ P(I): NEXT 
  13. 130  FOR I = 1 TO N: READ D(I): NEXT 
  14. 140 NN = 0:DF = 2.5:SF = 1
  15. 150 K =  PEEK( -16384): IF K <128  THEN 220
  16. 160  POKE  -16368,0
  17. 170  IF K = 155  THEN  TEXT : HOME : END 
  18. 180  IF K = 211  THEN  &  STOP :SF =   NOT SF: IF SF  THEN  &  RESUME 
  19. 190  IF K <177  THEN 220
  20. 200  IF K >185  THEN 220
  21. 210 DF = (K -176)/2
  22. 220 NN = NN +1: IF NN >N  THEN  & 0,255:NN = 1
  23. 230  & P(NN),D(NN) *DF
  24. 240  GOTO 150
  25. 250  VTAB 5: INVERSE :A$ = " BACH ": GOSUB 280: NORMAL 
  26. 260  VTAB 7:A$ = "PROGRAMMED WITH AMPER.MUSIC": GOSUB 280: PRINT 
  27. 270 A$ = "BY SCOTT ZIMMERMAN": GOSUB 280:A$ = "COPYRIGHT (C) 1987": GOSUB 280:A$ = "BY MICROSPARC, INC.": GOSUB 280: RETURN 
  28. 280  HTAB (41 - LEN(A$))/2: PRINT A$: RETURN 
  29. 290  DATA 24,28,24,31,24,36,35,33,31,33,31,29,28,29,28,26,24,28,31,28,36,31,40,43,41,43,40,43,41,43,40,43,41,43,36,40,38,40,36,40,38,40,36,40,38,40
  30. 300  DATA 33,36,35,36,33,36,35,36,33,36,35,36,30,26,33,30,36,33,38,40,38,36,35,36,35,33,31,33,31,29,28,33,31,30,31,30,28,26,28,26,24,23,24,23,21,19,31,30,31,23,24,31,23,31,21,30,31
  31. 310  DATA 18,18,18,18,18,18,8,8,8,8,8,8,8,8,8,8,18,18,18,18,18,18,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  32. 320  DATA 8,8,8,8,8,8,8,8,8,8,8,8,18,18,18,18,18,18,8,8,8,8,8,8,8,8,8,8,8,8,18,8,8,8,8,8,8,8,8,8,8,8,8,8,8,18,8,8,18,18,18,18,18,18,18,18,38