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
1000 FOR I=1 TO A-LEN A$
1010 LET A$="0"+A$
1020 NEXT I
1030 FOR I=1 TO A-LEN B$
1040 LET B$="0"+B$
1050 NEXT I
1060 RETURN
People
No people associated with this content.