10 REM
20 REM     Данная программа определяет сумму чисел.
30 REM
40 REM 
50 PRINT CHR$(14);"Сумматор...";CHR$(15)
54 PRINT
60 PRINT CHR$(14);"Сумма = ";STR$(S),,CHR$(15);"+ ";CHR$(27); \ INPUT L$
64 IF L$="." THEN S=S+D \ GOTO 60
70 IF L$<>"" THEN D=VAL(L$) \ S=S+D \ GOTO 60
80 PRINT
90 PRINT CHR$(14);"Итого  ";CHR$(15);S
100 END