X-Git-Url: https://git.harvie.cz/?a=blobdiff_plain;f=turbobasic%2FSCITANI2.BAS;h=e661931055342f329e3dcf139396ad5528622d5a;hb=3921785ce17fca77a9bba36662699f8ef6155271;hp=0680b8d4f4b4080e3c4f7b713e33ea34ed8fd9b0;hpb=0f95cc4b3314aff66038b3bf60ff6db6790bc15c;p=mirrors%2FPrograms.git diff --git a/turbobasic/SCITANI2.BAS b/turbobasic/SCITANI2.BAS old mode 100755 new mode 100644 index 0680b8d..e661931 --- a/turbobasic/SCITANI2.BAS +++ b/turbobasic/SCITANI2.BAS @@ -20,10 +20,10 @@ B(I)=INT(RND*V+1) B(I)=B(I)+1 VYP: -REM pokud je A vetsi ne§ 100 zmençit +REM pokud je A vetsi než 100 zmenÅ¡it IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP C(I)=A(I)+B(I) -REM pokud je souŸet vØtç¡ ne§ 100 zmençit B +REM pokud je součet větší než 100 zmenÅ¡it B IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP LOCATE I+5,1