Подскажите . нужно проверить решение в qbasic, но данная программа не идет на windows 7. как быть в этом случае?

Вот так программа больше походит на программу

REM
CLS
Dim X as integer
Dim A as integer
INPUT "Ввод числа X ", X
IF sin(X)>0.3 and cos(X)>0.3 THEN
    A=X^2
ELSE
   A=X^3
END IF
PRINT "A ",A
END

увы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудно
Qbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ