home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / faderbas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  409b  |  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 for i=1 to 10: read c(i): next i
  9. 170 data 0,11,12,15,1,1,15,12,11,0
  10. 180 poke 78,0: poke 79,216
  11. 190 for i=1 to 10: 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 10: poke 87,c(i): sys 49152: for j=1 to 40: next j,i: goto 180
  14.