GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Manualy fixed encoding of few files...
[mirrors/Programs.git]
/
turbobasic
/
SCITANI2.BAS
diff --git
a/turbobasic/SCITANI2.BAS
b/turbobasic/SCITANI2.BAS
old mode 100755
(executable)
new mode 100644
(file)
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
\r
\r
VYP:
\r
B(I)=B(I)+1
\r
\r
VYP:
\r
-REM pokud je A vetsi ne
§ 100 zmenç
it
\r
+REM pokud je A vetsi ne
ž 100 zmenš
it
\r
IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP
\r
C(I)=A(I)+B(I)
\r
IF A(I)>=100 THEN A(I)=INT(A(I)*.9)+1: GOTO VYP
\r
C(I)=A(I)+B(I)
\r
-REM pokud je sou
\9f
et vØtç¡ ne§ 100 zmenç
it B
\r
+REM pokud je sou
čet větší než 100 zmenš
it B
\r
IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP
\r
\r
LOCATE I+5,1
\r
IF C(I)>100 THEN B(I)=INT(B(I)*.9)+1: GOTO VYP
\r
\r
LOCATE I+5,1
\r
This page took
0.114843 seconds
and
4
git commands to generate.