home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / MIDI-DELAY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  107 lines

  1. 1 REM ** GRUNT **
  2. 8 POKE53280,12:POKE53281,11:POKE646,1
  3. 10 C$=CHR$(147):M$="  M I D I   D E L A Y"
  4. 20 L$="BE WITH YA IN A SEC..."
  5. 30 D$="[D]ELAY CHANGE":T$="[T]RANSPOSE CHANGE"
  6. 40 V$="[V]ELOCITY ADJUST":Q$="[Q]UIT"
  7. 100 GOSUB1000:PRINTTAB(9);L$:GOSUB2000:GOSUB4000:IFCSM%=757THEN120
  8. 110 GOSUB1000:PRINT" CHECKSUM ERROR! CHECK DATA STAEMENTS":PRINT:END
  9. 120 GOTO800
  10. 130 GOSUB1000
  11. 140 DT=(PEEK(49162)*256+PEEK(49161))/20
  12. 150 GOSUB1000:PRINTTAB(5);D$;TAB(30);"(";DT;")"
  13. 160 S$="+":T=PEEK(49163):IFT>231THENT=T-256:S$=""
  14. 170 PRINT:PRINTTAB(5);T$;TAB(30);"(";S$;T;")"
  15. 180 S$="+":V=PEEK(49164):IFV>128THENV=V-256:S$=""
  16. 190 PRINT:PRINTTAB(5);V$;TAB(30);"(";S$;V;")"
  17. 200 PRINT:PRINTTAB(5);Q$
  18. 210 PRINT:PRINT:PRINT"YOUR CHOICE [?]";
  19. 220 GETA$:IFA$=""THEN220
  20. 230 IFA$="D"THEN500
  21. 240 IFA$="T"THEN600
  22. 250 IFA$="V"THEN700
  23. 260 IFA$="Q"THEN999
  24. 270 GOTO150
  25. 500 GOSUB1000
  26. 510 PRINT"NEW DELAY TIME":PRINT
  27. 520 INPUT"IN MILLISECONDS (1 TO 3000) ";D
  28. 530 D=D*20
  29. 540 DH=INT(D/256):DL=D-(DH*256)
  30. 550 POKE49161,DL:POKE49162,DH
  31. 599 GOTO800
  32. 600 GOSUB1000
  33. 610 PRINT"NEW TRANSPOSE INTERVAL":PRINT:INPUT"IN SEMITONES (-24 TO +24) ";T
  34. 620 IFT<0THENT=256+T
  35. 630 POKE49163,T
  36. 699 GOTO800
  37. 700 GOSUB1000
  38. 710 PRINT"NEW VELOCITY ADJUSTMENT":PRINT:INPUT"(-127 TO +127) ";V
  39. 720 IFV<0THENV=256+V
  40. 730 POKE49164,V
  41. 799 GOTO800
  42. 800 GOSUB1000
  43. 810 PRINTTAB(14);CHR$(18);" DELAY ON ";CHR$(146)
  44. 820 PRINT:PRINTTAB(6);"HIT A KEY TO RETURN TO MENU"
  45. 830 SYSSADRS
  46. 899 GOTO1    
  47. 999 PRINTC$:END
  48. 1000 REM ** MORE GRUNT **
  49. 1010 PRINTC$;TAB(8);M$
  50. 1020 FORI=0TO9:PRINT:NEXTI
  51. 1999 RETURN
  52. 2000 REM ** BLAH **
  53. 2010 SADRS=49152:EADRS=49679
  54. 2020 FORI=SADRSTOEADRS
  55. 2030 READOP$:GOSUB3000
  56. 2040 POKEI,OP
  57. 2050 NEXTI
  58. 2999 RETURN
  59. 3000 REM ** PUKE **
  60. 3010 OH$=LEFT$(OP$,1):OL$=RIGHT$(OP$,1)
  61. 3020 OH=VAL(OH$):IFOH=0ANDOH$<>"0"THENOH=ASC(OH$)-55
  62. 3030 OL=VAL(OL$):IFOL=0ANDOL$<>"0"THENOL=ASC(OL$)-55
  63. 3040 OP=OH*16+OL
  64. 3999 RETURN
  65. 4000 REM ** FART **
  66. 4010 CSM%=0
  67. 4020 FORI=SADRSTOEADRS
  68. 4030 CSM%=CSM%+PEEK(I)
  69. 4040 I=I+1
  70. 4050 CSM%=CSM%-PEEK(I)
  71. 4060 NEXTI
  72. 4999 RETURN
  73. 5000 DATA 4C,0F,C0,00,00,00,00,00,00,E8,03,0C,00,00,00,20
  74. 5001 DATA 2B,C0,20,9F,FF,2    
  75. 5002 DATA A9,03,8D,08,DE,A9,95,8D,08,DE,60,78,20,3D,C0,20
  76. 5003 DATA 52,C0,20,6C,C0,20,83,C0,20,20,C0,58,60,A9,7F,8D
  77. 5004 DATA 0D,DC,A9,31,8D,04,DC,A9,00,8D,05,DC,A9,11,8D,0E
  78. 5005 DATA DC,60,A9,7F,8D,0D,DD,A9,31,8D,04,DD,A9,00,8D,05
  79. 5006 DATA DD,A9,13,8D,0E,DD,A9,82,8D,0D,DD,60,AD,14,03,8D
  80. 5007 DATA 10,C2,AD,15,03,8D,11,C2,A9,9A,8D,14,03,A9,C0,8D
  81. 5008 DATA 15,03,60,AD,18,03,8D,12,C2,AD,19,03,8D,13,C2,A9
  82. 5009 DATA CB,8D,18,03,A9,C0,8D,19,03,60,AD,08,DE,4A,B0,21
  83. 5010 DATA 4A,90,27,AD,06,C0,D0,07,A9,95,8D,08,DE,30,    
  84. 5011 DATA 07,C0,EE,07,C0,CE,06,C0,B9,14,C3,8D,09,DE,4C,C7
  85. 5012 DATA C0,AD,09,DE,20,07,C1,4C,7E,EA,00,48,8A,48,98,48
  86. 5013 DATA AD,0D,DD,20,AA,C1,C9,FF,F0,06,20,B7,C1,4C,D3,C0
  87. 5014 DATA AD,03,C0,F0,1C,20,AA,C1,8D,06,DD,20,AA,C1,8D,07
  88. 5015 DATA DD,A9,80,8D,0D,C0,A9,59,8D,0F,DD,68,A8,68,AA,68
  89. 5016 DATA 40,4E,0D,C0,4C,FB,C0,48,30,34,AD,0E,C0,30,1C,F0
  90. 5017 DATA 1C,2C,0E,C0,70,03,20,5C,C1,CE,0E,C0,AD,0E,C0,29
  91. 5018 DATA 3F,8D,0E,C0,68,20,0B,C2,4C,9D,C1,68,60,A9,01,8D
  92. 5019 DATA 0E,C0,68,20,FA,C1,20,9D,C1,A9,FF,4C,9D,C1,29,F0
  93. 5020 DATA C9,90,F0,0B,C9    
  94. 5021 DATA 5C,C1,68,20,9D,C1,A9,41,8D,0E,C0,60,2C,0D,C0,30
  95. 5022 DATA 18,AD,09,C0,8D,06,DD,AD,0A,C0,8D,07,DD,A9,59,8D
  96. 5023 DATA 0F,DD,A9,80,8D,0D,C0,30,16,AD,06,DC,49,FF,C9,FF
  97. 5024 DATA D0,02,29,FE,20,9D,C1,AD,07,DC,49,FF,20,9D,C1,A9
  98. 5025 DATA FF,8D,06,DC,8D,07,DC,A9,59,8D,0F,DC,60,AC,05,C0
  99. 5026 DATA EE,05,C0,EE,03,C0,99,14,C2,60,AE,04,C0,EE,04,C0
  100. 5027 DATA CE,03,C0,BD,14,C2,60,48,AD,08,DE,29,02,D0,14,AE
  101. 5028 DATA 08,C0,68,9D,14,C3,EE,08,C0,EE,06,C0,A9,B5,8D,08
  102. 5029 DATA DE,30,04,68,8D,09,DE,60,78,AD,10,C2,8D,1    
  103. 5030 DATA 11,C2,8D,15,03,AD,12,C2,8D,18,03,AD,13,C2,8D,19
  104. 5031 DATA 03,A9,03,8D,08,DE,20,84,FF,60,F0,0E,18,6D,0C,C0
  105. 5032 DATA 30,06,D0,06,A9,01,D0,02,A9,7F,60,18,6D,0B,C0,60
  106. 8224                                                                                     
  107.