kb 0.0.1

K's BASIC
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66

import a.other

fn foo(a, x=22, *rest)
    PRINT ["foo", x, rest]
end

fn* gen()
    yield 1
    yield 2 + 3
    yield 'hi'
end

FUNCTION F(A, B) = A + B
fn k(a, b) = a * b

fn[test] sanity()
    PRINT "Hello world!"

    other.foo()

    foo(2, 32, 1, 2, 3)
    foo(4)
    foo(4, 'hi')


    DIM i = 0
    DIM total = 0

    10 if i < 100
        i = i + 1
        total = total + i
        GOTO 10
    else
        PRINT '** Finishing loop **'
    end

    PRINT total
    PRINT -25 % 19
    PRINT -25 * 19
    PRINT -25 - 19

    i = 0
    total = 0
    while i < 1000
        i = i + 1
        total = total + i
    end
    PRINT total

    DIM g = gen()
    PRINT g
    PRINT NEXT(g)
    PRINT NEXT(g)
    PRINT NEXT(g)
    PRINT NEXT(g)

    [a, b, [c, [d]]] = [1, 2, ['cc', ['ddd']]]
    PRINT ['a', a, 'b', b, 'c=', c, 'd=', d]

    aa = [xx, yy] = [1, 'hi']

    PRINT ['aa=', aa, 'xx=', xx, 'yy=', yy]

    PRINT ['F(12, 5)=', F(12, 5)]
    PRINT ['k(12, 5)=', k(12, 5)]
end