12 lines
519 B
Plaintext
12 lines
519 B
Plaintext
10 BH = PEEK(37)
|
|
20 INPUT ""; A$ : I$ = A$ : VTAB BH : A = PEEK(40) + PEEK(41) * 256 : FOR S = 0 TO 39 : IF PEEK(A + S) = 160 THEN NEXT S : S = 0
|
|
40 IF LEN(I$) THEN IF MID$(I$, LEN(I$), 1) = " " THEN I$ = MID$(I$, 1, LEN(I$) - 1) : GOTO 40RTRIM
|
|
50 IF LEN(I$) < 3 THEN 10"TRY AGAIN
|
|
60 FOR WHERE = 1 TO LEN(I$) : IF MID$(I$, WHERE, 1) <> " " THEN NEXT WHERE : GOTO 10"TRY AGAIN
|
|
70 A% = VAL(LEFT$(I$, WHERE - 1))
|
|
80 B% = VAL(MID$(I$, WHERE + 1, LEN(I$)))
|
|
90 C% = A% + B%
|
|
100 VTAB BH
|
|
110 HTAB LEN(A$) + 2 + S
|
|
120 PRINT C%
|