23 lines
736 B
Plaintext
23 lines
736 B
Plaintext
100 READ UX,UY
|
|
110 DIM SCALARS(UX,UY)
|
|
120 FOR N = 1 TO UX
|
|
130 FOR M = 1 TO UY
|
|
140 READ SCALARS(N,M)
|
|
150 NEXT M,N
|
|
160 DATA10,4
|
|
170 DATA1,2,3,0,0,1,2,3
|
|
180 DATA1,0,3,4,1,2,0,0
|
|
190 DATA0,0,0,0,0,0,0,0
|
|
200 DATA1,1,1,0,-1,-1,-1,0
|
|
210 DATA-1,-2,0,-3,-1,0,0,0
|
|
220 FOR N = 1 TO UX
|
|
230 CADENA$ = ""
|
|
240 FOR M = 1 TO UY
|
|
250 SCALAR = SCALARS(N,M)
|
|
260 IF SCALAR THEN CADENA$ = CADENA$ + CHR$ (44 - SGN (SCALAR)) + MID$ ( STR$ ( ABS (SCALAR)) + "*",1,255 * ( ABS (SCALAR) < > 1)) + "E" + STR$ (M)
|
|
270 NEXT M
|
|
280 IF CADENA$ = "" THEN CADENA$ = "0"
|
|
290 IF LEFT$ (CADENA$,1) = "+" THEN CADENA$ = RIGHT$ (CADENA$, LEN (CADENA$) - 1)
|
|
300 PRINT CADENA$
|
|
310 NEXT N
|