home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / matrix (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.