بازی برای محاسبات ریاضی
کد:
CLS
SCREEN 12
RANDOMIZE TIMER
PAINT (5, 6), 6
        w% = 46
        LOCATE 15, 36
        COLOR 14
        PRINT "V a s n e"
        COLOR 15
        qw = TIMER
        DO
                IF qw + 3 < TIMER THEN EXIT DO
        LOOP
        CLS
        PAINT (10, 80), 6
        DO
                p% = RND * 39 + 10
                q% = RND * 39 + 10
                r% = RND * 39 + 10
                s% = RND * 39 + 10
                t% = RND * 39 + 10
                IF p% <> q% AND p% <> r% AND p% <> s% AND p% <> t% AND q% <> r% AND q% <> s% AND q% <> t% AND r% <> s% AND r% <> t% AND s% <> t% THEN EXIT DO
        LOOP
        DO
                v1% = RND * 4 + 1
                v2% = RND * 4 + 1
                v3% = RND * 4 + 1
                IF v1% <> v2% AND v1% <> v3% AND v2% <> v3% THEN EXIT DO
        LOOP
        LOCATE 22, 16
        PRINT p%
        LOCATE 22, 28
        PRINT q%
        LOCATE 22, 39
        PRINT r%
        LOCATE 22, 51
        PRINT s%
        LOCATE 22, 62
        PRINT t%
        LINE (230, 223)-(420, 230), 7, BF
        LINE (420, 260)-(430, 190), v1%, BF
        LINE (230, 260)-(220, 190), v1%, BF
        LINE (219, 250)-(210, 200), v2%, BF
        LINE (431, 250)-(440, 200), v2%, BF
        LINE (209, 240)-(200, 210), v3%, BF
        LINE (441, 240)-(450, 210), v3%, BF
        CIRCLE (w% * 3, 410), 45, 1
        CIRCLE (w% * 5, 410), 45, 2
        CIRCLE (w% * 7, 410), 45, 3
        CIRCLE (w% * 9, 410), 45, 4
        CIRCLE (w% * 11, 410), 45, 5
        FOR f1 = 3 TO 11 STEP 2
                x = x + 1
                PAINT (w% * f1, 410), x
        NEXT
        DO
                qw = TIMER
                DO
                        IF qw + 1 < TIMER THEN EXIT DO
                LOOP
                u = u + 1
                LOCATE 1, 1
                PRINT "Timer:"; 11 - u
                IF u = 11 THEN EXIT DO
        LOOP
        CLS
        IF v1% = 1 THEN
                m = p%
        ELSEIF v1% = 2 THEN
                m = q%
        ELSEIF v1% = 3 THEN
                m = r%
        ELSEIF v1% = 4 THEN
                m = s%
        ELSEIF v1% = 5 THEN
                m = t%
        END IF
        IF v2% = 1 THEN
                ac = p%
        ELSEIF v2% = 2 THEN
                ac = q%
        ELSEIF v2% = 3 THEN
                ac = r%
        ELSEIF v2% = 4 THEN
                ac = s%
        ELSEIF v2% = 5 THEN
                ac = t%
        END IF
        IF v3% = 1 THEN
                ab = p%
        ELSEIF v3% = 2 THEN
                ab = q%
        ELSEIF v3% = 3 THEN
                ab = r%
        ELSEIF v3% = 4 THEN
                ab = s%
        ELSEIF v3% = 5 THEN
                ab = t%
        END IF
        l = 2 * (ab + ac + m)
        LOCATE 13, 37
        INPUT "Your number:"; va%
        IF va% = l THEN
        s = s + 25
        qr = 25
        ELSEIF va% = l - 1 OR va% = l + 1 THEN
        s = s + 20
        qr = 20
        ELSEIF va% = l - 2 OR va% = l + 2 THEN
        s = s + 15
        qr = 15
        ELSEIF va% = l - 3 OR va% = l + 3 THEN
        s = s + 10
        qr = 10
        ELSEIF va% = l - 4 OR va% = l + 4 THEN
                s = s + 5
                qr = 5
        ELSE
                va% = 0
                s = s + 0
                qr = 0
        END IF
        CLS
        LOCATE 15, 36
        PRINT "your score:"; qr
        u = 0
        x = 0
        qw = TIMER
        DO
                IF qw + 6 < TIMER THEN EXIT DO
        LOOP