home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40b.dsk / BLUE.DANUBE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  32 lines
  1. 10  REM  ***********************
  2. 20  REM  *     BLUE.DANUBE     *
  3. 30  REM  *  by Eric Shepherd   *
  4. 40  REM  *    (C) 1991 by      *
  5. 50  REM  * MindCraft Publ.Corp.*
  6. 60  REM  * Concord, MA  01742  *
  7. 70  REM  ***********************
  8. 80  REM 
  9. 90  PRINT  CHR$(21): TEXT : HOME : PRINT  CHR$(4)"BRUN AMPERSOUND.GS": HIMEM: 32768
  10. 100  PRINT  TAB( 9)"THE BLUE DANUBE WALTZ": PRINT  TAB( 11)"BY JOHANN STRAUSS": PRINT "========================================";
  11. 110  PRINT  TAB( 5)"AmperSound GS by Eric Shepherd": PRINT  TAB( 2)"(C) 1991 by MindCraft Publishing Corp.": FOR I = 16384 TO 16640: READ J: POKE I,J: NEXT : &  LOAD 16384
  12. 120  DATA 125,123,121,119,118,116,114,112,110,109,107,106,105,104,103,102,101,100,99,98,97,96,95,94,94,93,93,93,92,92
  13. 130  DATA 92,91,91,91,90,90,90,90,90,90,91,91,91,91,91,91,92,92,92,93,93,94,95,95,96,97,97,97,98,98
  14. 140  DATA 98,99,99,99,100,100,100,100,100,100,100,100,100,99,99,99,98,98,98,97,97,97,96,96,95,95,94,93,92,91
  15. 150  DATA 90,89,88,87,86,85,84,83,81,80,78,76,75,74,73,73,72,72,71,71,70,70,70,70,70,70,70,70,70,71
  16. 160  DATA 71,72,73,74,75,76,78,79,81,83,85,87,90,91,93,94,96,98,100,102,104,106,108,110,113,115,117,120,122,125
  17. 170  DATA 128,129,131,132,135,137,140,143,146,149,151,153,155,157,159,162,164,167,170,172,174,176,178,180,182,184,186,189,191,192
  18. 180  DATA 193,195,197,199,200,202,203,204,205,206,206,207,208,208,208,209,209,209,209,209,209,209,209,209,208,208,208,208,207,207
  19. 190  DATA 206,206,205,204,203,201,200,199,197,196,194,192,191,189,187,185,184,183,182,180,178,176,174,171,169,168,167,166,164,162
  20. 200  DATA 160,159,157,155,153,151,149,147,144,142,140,138,135,133,131,130,5
  21. 210  READ N: FOR I = 1 TO N: READ F,D: IF F = 0  THEN  &  WAIT D +1
  22. 220  IF F < >0  THEN  &  EXP0,F,10,D,20
  23. 230  NEXT : &  STOP 0: END : DATA  89: REM  Length in notes
  24. 240  DATA   1303.5,1,1642.5,1,1952.5,1,1952.5,1,0,1,3905,1,3905,1,0,1,3285,1   
  25. 250  DATA  3285,1,0,1,1303.5,1,1303.5,1,1642.5,1,1952.5,1,1952.5,1,0,1,3905,1
  26. 260  DATA  3905,1,0,1,3480,1,3480,1,0,1,1230.625,1,1230.625,1,1462.5,1,2192.5,1
  27. 270  DATA  2192.5,1,0,1,4385,1,4385,1,0,1,3480,1,3480,1,0,1,1230.625,1,1230.625,1,1462.5,1,2192.5,1
  28. 280  DATA   2192.5,1,0,1,4385,1,4385,1,0,1,3285,1,3285,1,0,1,1303.5,1,1303.5,1,1642.5,1,1952.5,1
  29. 290  DATA  2607,1,0,1,5214,1,5214,1,0,1,3905,1,3905,1,0,1,1303.5,1,1303.5,1,1642.5,1,1952.5,1
  30. 300  DATA  2607,1,0,1,5214,1,5214,1,0,1,4385,1,4385,1,0,1,1462.5,1,1462.5,1,1740,1,2192.5,1
  31. 310  DATA  2192.5,4,1843.75,1,1952.5,1,3285,4,2607,1,1642.5,1
  32. 320  DATA    1642.5,2,1462.5,1,2192.5,2,1952.5,,0,0,2607,0,2607,1,2607,1