turbobasic/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