25 lines
1009 B
Plaintext
25 lines
1009 B
Plaintext
100 DIM SKLS(10, 4)
|
|
110 SKLS(1, 1) = 1: SKLS(1, 2) = 2: SKLS(1, 3) = 3
|
|
120 SKLS(2, 1) = 0: SKLS(2, 2) = 1: SKLS(2, 3) = 2: SKLS(2, 4) = 3
|
|
130 SKLS(3, 1) = 1: SKLS(3, 2) = 0: SKLS(3, 3) = 3: SKLS(3, 4) = 4
|
|
140 SKLS(4, 1) = 1: SKLS(4, 2) = 2: SKLS(4, 3) = 0
|
|
150 SKLS(5, 1) = 0: SKLS(5, 2) = 0: SKLS(5, 3) = 0
|
|
160 SKLS(6, 1) = 0
|
|
170 SKLS(7, 1) = 1: SKLS(7, 2) = 1: SKLS(7, 3) = 1
|
|
180 SKLS(8, 1) = -1: SKLS(8, 2) = -1: SKLS(8, 3) = -1
|
|
190 SKLS(9, 1) = -1: SKLS(9, 2) = -2: SKLS(9, 3) = 0: SKLS(9, 4) = -3
|
|
200 SKLS(10, 1) = -1
|
|
210 CLS
|
|
220 FOR N = 1 TO 10
|
|
230 CAD$ = ""
|
|
240 SCL = 0
|
|
250 FOR M = 1 TO 4
|
|
260 SCL = SKLS(N, M)
|
|
270 IF SCL <> 0 THEN IF SCL = 1 THEN CAD$ = CAD$ + "+e" + STR$(M) ELSE IF SCL = -1 THEN CAD$ = CAD$ + "-e" + STR$(M) ELSE IF SCL > 0 THEN CAD$ = CAD$ + CHR$(43) + STR$(SCL) + "*e" + STR$(M) ELSE CAD$ = CAD$ + STR$(SCL) + "*e" + STR$(M)
|
|
280 NEXT M
|
|
290 IF CAD$ = "" THEN CAD$ = "0"
|
|
300 IF LEFT$(CAD$, 1) = "+" THEN CAD$ = RIGHT$(CAD$, LEN(CAD$) - 1)
|
|
310 PRINT CAD$
|
|
320 NEXT N
|
|
330 END
|