多位数加法运算程序

Author: 北京蒙广平 Date: 1992-05-08

        10 INPUT "A，B=";A$，B$
        20 A=LEN (A$):B=LEN(B$):IF A>B THEN K=A:GOTO 35
        30 K=B
        35 PRINT A$;"+";B$"=";
        400 DIM A(K)，B(K)，C(K+1)
        50 FOR I=1 TO A:A (I)=VAL (MID$ (A$，A-I+1，1)):NEXT I
        52 FOR I=1 TO B:B(I)=VAL (MID$(B$，B-I+1，1)):NEXT I
        60 FOR I=1 TO K:C(I)=A(I)+B(I)+C(I):IF C(I)>=10 THEN C   (I+1)=1:C(I)=C(I)-10
        70 NEXT I
        80 IF C(K+1)=0 THEN M=K:GOTO 90
        85 M=K+1
        90 FOR I=M TO 1 STEP-1:PRINT C(I);:NEXT I:END