Addition 1

Source Code

    1 REM TO BE MODIFIED. NOT OPERATING PROPERLY. ALGIS E. GEDRIS
   10 PRINT TAB 10;"ADDITION 1"''
   20 PRINT TAB 2;"To obtain total press ""0"""''
   30 LET M=0
   40 INPUT "ENTER NUMBERS TO BE ADDED: ";p: GO SUB 5000
   45 IF x=0 THEN PRINT TAB 10;m$
   50 LET M=M+VAL m$
   70 IF p=0 THEN PRINT TAB 12;"______"'"Total=";TAB 13;M: STOP 
   80 GO TO 40
 5000 LET x=0: DIM m$(8): LET m$=STR$ p
 5010 IF m$(8)=CHR$ 32 THEN LET m$=CHR$ 32+m$( TO 7): GO TO 5010
 5020 FOR j=1 TO 8
 5030 IF m$(j)="." THEN GO TO 5050
 5040 NEXT j
 5050 IF j=9 THEN LET m$=m$(4 TO )+".00"
 5060 IF j=7 THEN LET m$=m$(2 TO )+"0"
 5070 IF m$(6)<>"." THEN LET x=1
 5080 RETURN 
 9997 STOP 
 9998 SAVE "ADDITION" LINE 1