CIT-BASIC

CIT stands for "Computer and Information Technologies" (department of NTU "KhPI"). Project was crafted as a part of my course project few years ago.

Here are some sample programs that can be executed by CIT-BASIC:

10 N% = RND 100
20 INPUT "Guess the number in range from 0 to 100?", G%
25 T% = T% + 1
30 IF G% = N% GOTO 70
40 IF G% > N% THEN PRINT "My number is less!"
50 IF G% < N% THEN PRINT "My number is greater!"
60 GOTO 20
70 PRINT "Wow, you did it in ";T%;" attempts!"
80 END

' Quadratic equation solver:
? "a*x^2 + b*x + c = 0"
Input "a b c >", a, b, c
Let d = b^2 - 4 * a * c

If d < 0 Then &
  ? "There are no real roots!" &
Else &
  If d = 0 GoSub SingleSolution Else GoSub TwoSolutions
End

SingleSolution:
? "x =";-b / (2 * a)
Return

TwoSolutions:
? "x1 =";(-b + sqr(d))/(2 * a)
? "x2 =";(-b - sqr(d))/(2 * a) 
Return