home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / matrix (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  496b  |  17 lines
  1. 100 rem *******************************
  2. 110 rem *
  3. 120 rem * matrix- umrechnungsprogramm *
  4. 130 rem *                             *
  5. 140 rem *******************************
  6. 150 input"basis (x*8192) ";basis
  7. 160 input"zeile (0-24)   ";zeile
  8. 170 input"block (0-39)   ";block
  9. 180 dim byte(7)
  10. 190 for i=0 to 7
  11. 200 byte(i)=peek(basis+zeile*320+block*8+i)
  12. 210 next i:print:print"ausgabe der berechneten werte:":print
  13. 220 for i=0 to 7:rem 7 bytes vertikal
  14. 230 output=0:for i0=0 to 7
  15. 240 output=output-((byte(i0)and 2^(7-i))>0)*2^(7-i0):next i0
  16. 250 print output:next i
  17.