Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / KALKUL-S.BAS

diff --git a/turbobasic/KALKUL-S.BAS b/turbobasic/KALKUL-S.BAS
new file mode 100755 (executable)
index 0000000..9d6b04e
--- /dev/null
+++ b/turbobasic/KALKUL-S.BAS
@@ -0,0 +1,25 @@
+S1=0\r
+S2=0\r
+V=0\r
+CLS\r
+                     FOR O=1 TO 20\r
+COLOR 0,15\r
+SCREEN 0\r
+LOCATE 2,2\r
+                                      INPUT " S¬ÖTANEC= " ;S1\r
+LOCATE 23,23\r
+                                      INPUT "      " ;K$\r
+IF K$="X" THEN GOTO KONEC\r
+LOCATE 3,2\r
+ PRINT " + "\r
+LOCATE 4,2\r
+                                      INPUT " S¬ÖTANEC= " ;S2\r
+LOCATE 5,2\r
+ PRINT " = "\r
+V=S1+S2\r
+LOCATE 6,2\r
+PRINT V\r
+                     NEXT O\r
+GOTO KONEC\r
+KONEC:\r
+END\1a
\ No newline at end of file