Addition

   5 LET C$=""
   6 LET R=0
  10 PRINT ,,"FIRST NUMBER?"
  15 INPUT A$
  20 LET A=LEN A$
  24 PRINT ,,A$
  26 PRINT ,,"SECOND NUMBER?"
  30 INPUT B$
  34 PRINT ,,B$
  36 PAUSE 200
  38 FAST 
  40 IF A<LEN B$ THEN LET A=LEN B$
  50 GOSUB 1000
  90 FOR N=A TO 1 STEP -1
 100 LET D$=STR$ (R+VAL A$(N)+VAL B$(N))
 110 IF LEN D$<>1 THEN LET R=1
 120 IF LEN D$=1 THEN LET R=0
 130 LET C$=D$(LEN D$)+C$
 140 NEXT N
 150 FOR N=1 TO A
 160 IF A$(N)="0" THEN LET A$(N)=" "
 170 IF A$(N)<>" " THEN GOTO 190
 180 NEXT N
 190 FOR N=1 TO A
 200 IF B$(N)="0" THEN LET B$(N)=" "
 210 IF B$(N)<>" " THEN GOTO 280
 220 NEXT N
 280 IF R=1 THEN LET C$="1"+C$
 290 IF LEN C$=A THEN LET C$=" "+C$
 300 PRINT ,,,," ";A$
 310 PRINT " +"
 320 PRINT " ";B$
 330 PRINT " ="
 340 PRINT C$
 345 SLOW 
 350 INPUT A$
 360 CLS 
 370 RUN 
 998 SAVE "ADDITIO%N"
 999 RUN 
\n1000 FOR I=1 TO A-LEN A$
\n1010 LET A$="0"+A$
\n1020 NEXT I
\n1030 FOR I=1 TO A-LEN B$
\n1040 LET B$="0"+B$
\n1050 NEXT I
\n1060 RETURN