home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / fade2bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  419b  |  14 lines
  1. 0 rem transactor vol. 9, iss. 2 pg. 7
  2. 100 rem fader example
  3. 110 rem    by sudharshan sathiyamoorthy
  4. 120 rem
  5. 130 rem make sure fader is installed
  6. 140 rem
  7. 150 poke 82,20: poke 83,10: poke 53280,0: poke 53281,0
  8. 160 dim c(12): for  i=1 to 12: read c(i): next i
  9. 170 data 0,9,2,8,10,7,7,10,8,2,9,0
  10. 180 poke 78,0: poke 79,216
  11. 190 for i=1 to 12: poke 87,c(i): sys 49152: for j=1 to 40: next j,i
  12. 200 poke 78,164: poke 79,217
  13. 210 for i=1 to 12: poke 87,c(i): sys 49152: for j=1 to 40: next j,i: goto 180
  14.