100 REM *******************************
110 REM *
120 REM * MATRIX- UMRECHNUNGSPROGRAMM *
130 REM *                             *
140 REM *******************************
150 INPUT"BASIS (X*8192) ";BASIS
160 INPUT"ZEILE (0-24)   ";ZEILE
170 INPUT"BLOCK (0-39)   ";BLOCK
180 DIM BYTE(7)
190 FOR I=0 TO 7
200 BYTE(I)=PEEK(BASIS+ZEILE*320+BLOCK*8+I)
210 NEXT I:PRINT:PRINT"AUSGABE DER BERECHNETEN WERTE:":PRINT
220 FOR I=0 TO 7:REM 7 BYTES VERTIKAL
230 OUTPUT=0:FOR I0=0 TO 7
240 OUTPUT=OUTPUT-((BYTE(I0)AND 2^(7-I))>0)*2^(7-I0):NEXT I0
250 PRINT OUTPUT:NEXT I