GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
lamer: fixed stupid typo
[mirrors/Programs.git]
/
turbobasic
/
1998
/
KALKUL-S.BAS
1
S1=0
2
S2=0
3
V=0
4
CLS
5
FOR O=1 TO 20
6
COLOR 0,15
7
SCREEN 0
8
LOCATE 2,2
9
INPUT " SČÍTANEC= " ;S1
10
LOCATE 23,23
11
INPUT " " ;K$
12
IF K$="X" THEN GOTO KONEC
13
LOCATE 3,2
14
PRINT " + "
15
LOCATE 4,2
16
INPUT " SČÍTANEC= " ;S2
17
LOCATE 5,2
18
PRINT " = "
19
V=S1+S2
20
LOCATE 6,2
21
PRINT V
22
NEXT O
23
GOTO KONEC
24
KONEC:
25
END
\1a
This page took
0.253634 seconds
and
4
git commands to generate.