X-Git-Url: http://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FKALKUL-S.BAS;h=b97cf7c3fe1139eeac4686c829e7d38469e81dc1;hb=cde864288fe8e514904a7c05a0d63f2464dd8ea7;hp=9d6b04ec87d0832bacb7990d823d1c9081c06af1;hpb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;p=mirrors%2FPrograms.git diff --git a/turbobasic/KALKUL-S.BAS b/turbobasic/KALKUL-S.BAS old mode 100755 new mode 100644 index 9d6b04e..b97cf7c --- a/turbobasic/KALKUL-S.BAS +++ b/turbobasic/KALKUL-S.BAS @@ -6,14 +6,14 @@ CLS COLOR 0,15 SCREEN 0 LOCATE 2,2 - INPUT " S¬ÖTANEC= " ;S1 + INPUT " SČÍTANEC= " ;S1 LOCATE 23,23 INPUT " " ;K$ IF K$="X" THEN GOTO KONEC LOCATE 3,2 PRINT " + " LOCATE 4,2 - INPUT " S¬ÖTANEC= " ;S2 + INPUT " SČÍTANEC= " ;S2 LOCATE 5,2 PRINT " = " V=S1+S2