Помогите пожалуйста определить язык программирования. Как открыть

[Артур2308]

cls: input "Введите имя с pасширением" Q$: Q$="d:\"+Q$+".rez"
OPEN Q$ FOR OUTPUT AS #1
DATA :rem' Массовая доля в долях масс.
DATA :rem' Плотность компонентов
DATA :rem' Температуры кипения компонентов
DATA :rem' Молекулярная масса компонентов
DATA :rem' Критические температуры компонентов
DATA :rem' Критические давления компонентов
90 DIM C(50),P(50),T(50),K(50),M(50),T1(50 ),G(50)
100 DIM W(50),R(50),X(50),Y(50),F(50),X1(50 ),P1(50)
110 CLS:INPUT "ВВЕДИТЕ КОЛИЧ. КОМПОНЕНТОВ ",N
120 IF N>50 THEN PRINT "КОМПОН. БОЛЬШЕ 50":GOTO 110
130 C(0)=0
140 FOR I=1 TO N:READ C(I):C(0)=C(0)+C(I):NEXT I
FOR I=1 TO N:READ R(I):NEXT I:FOR I=1TO N: READ T(I):NEXT I
170 INPUT "ВВЕДИТЕ КОЛИЧЕСТВО КОМПОНЕНТОВ С ИЗВЕСТ-НОЙ МОЛ.МАССОЙ ",N1
180 IF N1=0 THEN GOTO 210
200 FOR I=1 TO N1:READ M(I):NEXT I: 210 FOR I=N1+1 TO N:T=T(I)+273.2
220 F(I)=1.216*T^.333/(.99486*R(I)+.00914)
230 A=T(I):B=.0003*F(I)-.00245
240 M(I)=(7*F(I)-21.5)+((.76-.04*F(I))+B*A)*A: NEXT I
270 FOR I=1 TO N:T=T(I)+273.2:G(I)=37*(T-273.2)/T
F(I)=1.216*T^.333/(.99486*R(I)+.00914): NEXT I
280 S=0
290 FOR I=1 TO N:S=S+C(I)/M(I):NEXT I:M(0)=1/S
300 FOR I=1 TO N:X1(I)=C(I)/(M(I)*S):NEXT I
310 S4=0:S5=0
320 FOR I=1 TO N
330 S4=S4+X1(I)*M(I):S5=S5+X1(I)*M(I)/R(I): NEXT I
350 R(0)=S4/S5
360 PRINT "ВВЕДИТЕ КОЛИЧ. КОМПОН С ИЗВЕСТНЫМИ"
380 INPUT " КРИТИЧЕСКИМИ ПАРАМЕТРАМИ ",N2

Продолжение

390 IF N2=0 GOTO 440
420 FOR I=1 TO N2:READ T1(I):T1(I)=T1(I)+273.2: NEXT I
440 FOR I=N2+1 TO N:T=T(I)+273.2
450 IF T<70 THEN GOTO 470
460 GOTO 500
470 V5$="ВВЕДИТЕ КРИТИЧ. ПАРАМЕТРЫ ##-ГО КОМП"
480 PRINT USING V5$;I
490 GOTO 2930
500 A1=.634*(LOG(T))/2.3+1.214
510 T1(I)=10^A1-150: NEXT I
530 IF N2=0 GOTO 570
550 FOR I=1 TO N2: READ P1(I): P1(I)=P1(I)*.1: NEXT I
570 FOR I=N2+1 TO N
580 P1(I)=.63*T1(I)/M(I): NEXT I
600 CLS: PRINT "КАКОЙ ПРОЦЕСС ХОТИТЕ РАССЧИТЫВАТЬ"
A$(1)="ДРОССЕЛИРОВАНИЕ"
A$(2)="ОДНОКРАТНОЕ ИСПАРЕНИЕ"
605 GOSUB 3000
IF II=1 THEN GOTO 700
IF II=2 THEN GOTO 670
670 PRINT "ВЫ ХОТИТЕ РАССЧИТЫВАТЬ ОИ"
680 PRINT "ВВЕДЕМ ИСХОДНЫЕ ДАННЫЕ"
690 GOTO 720
700 PRINT "ВЫ ХОТИТЕ РАССЧИТЫВАТЬ ДРОССЕЛИРОВАНИЕ"
710 PRINT "ВВЕДЕМ ИСХОДНЫЕ ДАННЫЕ ДО ДРОССЕЛИРОВАНИЯ"
720 CLS: PRINT "ВЫ ХОТИТЕ РАССЧИТАТЬ:"
A$(1)="ДОЛЮ ОТГОНА"
A$(2)="ТЕМПЕРАТУРУ ОИ"
A$(3)="ДАВЛЕНИЕ ОИ"
IJ=1:Y=20:H=2:X=8:MAX=3
8 FOR I=1 TO 3
IF I=IJ THEN COLOR 0,15
LOCATE Y-(I+1)*H,X
PRINT A$(I):COLOR 15,0:NEXT I
5 F$=INKEY$
IF F$="" THEN 5
IF ASC(F$)=32 THEN 6
IF ASC(F$)=13 THEN 7
6 IF IJ=MAX THEN IJ=1:GOTO 8
IJ=IJ+1:GOTO 8

Продолжение
7 CLS
950 PRINT "ИМЕЕМ ВВИДУ,ЧТО:"
960 PRINT "Р-ДАВЛЕНИЕ, МПА"
970 PRINT "Т-ТЕМПЕРАТУРА , ГРАДУСАХ ЦЕЛЬСИЯ"
980 PRINT "Е-ДОЛЯ ОТГОНА, МОЛЬНАЯ ДОЛЯ"
990 PRINT "L-КОЛИЧ. УГЛЕВОДОРОДНОГО СЫРЬЯ, КГ/С"
1000 PRINT "Z-КОЛИЧЕСТВО ВОДЯНОГО ПАРА, КГ/С"
IF IJ=1 THEN INPUT;"T= ",T :INPUT " P= ",P :GOTO 1170
IF IJ=2 THEN INPUT;"P= ",P :INPUT " E= ",E :GOTO 1170
IF IJ=3 THEN INPUT;"T= ",T :INPUT " E= ",E :GOTO 1170
1080 GOTO 720
1170 INPUT; "Z= ",Z : INPUT " L= ",L
1190 K(0)=(Z/18)/(L/M(0)):T=T+273.2
1200 IF II=2 THEN GOTO 1230
1210 INPUT "ВВЕДИТЕ P ПОСЛЕ ДРОССЕЛИРОВАНИЯ ",P2
1230 GOSUB 1920
1240 Q1=Q
1250 GOSUB 2750
1260 IF II=2 THEN GOTO 2925
1270 P=P2:A3=10:V$="E"
1280 T=T+273.2
1290 GOSUB 1920
1300 Q2=Q
1310 IF Q1-Q2<0 THEN 1330
1320 T=T+A3:A3=A3/2
1330 T=T-A3
1340 IF A3-.1>0 THEN 1280
1350 GOSUB 2890
1360 GOTO 2925
1370 F1=0
1380 G(0)=37*(T-273.2)/T
1390 FOR I=1 TO N
1400 IF P>10 THEN 1580
1410 W3=10.4*(G(0)-G(I))/(31.6-G(I))+.1: A33=.7944*W3
1420 P(I)=.098068*EXP(A33)
1430 GOTO 1440
1440 K(I)=(P(I)/P)*(1+K(0)/(E+1/10^20))
1450 X(I)=X1(I)/(1-E*(1-K(I))+1/10^20):Y(I)=X(I)*K(I)
1460 F1=F1+X1(I)*(1-K(I))/((1-E*(1-K(I)))+1/10^20):1470 NEXT I
1480 locate 20,10:PRINT USING "#### ##.### #.####^^^^ -#.####^^^^";T;P;E;F1
Продолжение
1490 RETURN
1500 P=.000001:A=.5
1510 GOSUB 1370
1520 IF F1
<0 THEN 1540
1530 P=P-A:A=A/2
1540 P=P+A
1550 IF P>10 THEN 1580
1560 IF A>.000001 THEN 1510
1570 RETURN
1580 PRINT TAB(5)"ДАВЛЕНИЕ БОЛЬШЕ 10 МПА"
1600 GOTO 2930
1610 T=101:A=100
1620 GOSUB 1370

[GreenWizard]

QBasic))))))) аж прослезился, первый язык))))
хотя есть новые элементы, может что-то новее QBasic 6

[Stilet]

Да. Похоже бейсик из древних.

[Артур2308]

А где скачать

[p51x]

Вы настолько обленились, что не можете открыть ссылки с вики?

[Utkin]

А где скачать

Ждите продолжение сериала - А как установить и Как же его запустить.

ЗЫ. Скорее всего да это QBasic - PRINT USING специфичный оператор.

[Smitt&Wesson]

Ну вот Вам QBasic. Правда довольно старенький, но думаю на первое время пойдёт.

[Vapaamies]

Сообщение от Utkin

ЗЫ. Скорее всего да это QBasic - PRINT USING специфичный оператор.

Это может быть даже GW-BASIC. QBasic его продолжатель? После GW-BASIC я стал писать на Паскале, и QBasic уже прошел мимо меня.

[Utkin]

QBasic его продолжатель?

Не знаю, но производитель вроде как один - империя зла