Нужен интерпретатор - QBasic

Формулировка задачи:

Уважаемые нужен срочно интерпретатор для написания программы QBasik1.0 ...я знаю его везде навалом ...но мне нужен что бы в него можно было забивать кирилицу ...а те что предлагают ...там тока транслитом ...а это не катит ...прошу у кого есть скиньте на мыло removed@mail.ru

Решение задачи: «Нужен интерпретатор»

textual
                            Листинг программы 
                        

                            DEFINT A-Z
DIM D(150), N$(7), M(12), T$(12)
WIDTH 80, 43   ' 43 ??? ?? *QBASIC-e
DATA "?","a","?","?","Т","?","a"
FOR K = 1 TO 7: READ N$(K): NEXT K
DATA "?*?,"?a+?"??,"/??"??,"??"
DATA "??",""g?,"????"???,"???"h?*?
FOR K = 1 TO 12: READ T$(K): NEXT K
DATA 31,28,31,30,31,30,31,31,30,31,30,31
FOR K = 1 TO 12: READ M(K): NEXT K
ASK:
     INPUT "? ???iG[ 1901 - 2099 ] "; G
     IF G <= 1900 OR G >= 2100 THEN GOTO ASK
COLOR 14, 1: CLS
PRINT : PRINT TAB(16); "? ?S?G ?   ?   "; G; "   a?G
G = G - 1900: K = (((G - 1) \ 4 + G) MOD 7) + 1
IF (G MOD 4) = 0 THEN M(2) = 29
FOR L1 = 1 TO 3: L = L1 * 4: PRINT : PRINT
PRINT TAB(12); T$(L - 3); TAB(27); T$(L - 2);
PRINT TAB(44); T$(L - 1); TAB(59); T$(L): PRINT
FOR I = 1 TO 150: D(I) = 0: NEXT I
FOR I = L1 * 4 - 3 TO L1 * 4
FOR J = 1 TO M(I): D(K) = J: K = K + 1: NEXT J
IF I < L1 * 4 THEN K = K + 7
NEXT I
FOR I = 1 TO 7
IF I = 7 OR I = 6 THEN COLOR 12, 1
IF I < 6 THEN COLOR 14, 1
PRINT "  "; N$(I); "  ";
FOR J = I TO K - 1 STEP 7
IF D(J) > 0 THEN PRINT USING " ##"; D(J);
IF D(J) = 0 THEN PRINT "   ";
NEXT J: PRINT : NEXT I: COLOR 14, 1
K = (K - 1) MOD 7 + 1
NEXT L1
                        