Fixed DOS encodings using: iconv -f CP852

[mirrors/Programs.git] / turbobasic / SCITANI.BAS

diff --git a/turbobasic/SCITANI.BAS b/turbobasic/SCITANI.BAS
old mode 100755 (executable)
new mode 100644 (file)
index a4b0acd..dd1beac
--- a/turbobasic/SCITANI.BAS
+++ b/turbobasic/SCITANI.BAS
@@ -20,13 +20,13 @@ B(I)=B(I)+1
 \r
 VYP:\r
 IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL\r
-REM pokud je B vØtç¡ ne§ A zmenç¡ se\r
+REM pokud je B větší než A zmenší se\r
 B(I)=INT(B(I)*.9)\r
 B(I)=B(I)+1\r
 GOTO VYP\r
 \r
 VYSL:\r
-REM aby druhì s\9f¡tanec nebyl 0\r
+REM aby druhý sčítanec nebyl 0\r
 IF C(I)=O THEN A(I)=A(I)+2:GOTO VYP\r
 \r
 REM VYSLEDEK JE V A(x)\r