Visual Basic: различия между версиями
Нет описания правки |
|||
| Строка 36: | Строка 36: | ||
Считается, что идея названия языка была заимствована у языка '''sun-script'''. Язык [[VBScript]] оказался неспособным удовлетворить естесственные потребности представителей [[NecroSoft]]. | Считается, что идея названия языка была заимствована у языка '''sun-script'''. Язык [[VBScript]] оказался неспособным удовлетворить естесственные потребности представителей [[NecroSoft]]. | ||
==== Пример программы на Basic ранних версий ==== | |||
Как видно, программа даже не дописана по причине полного охуения автора. | |||
<pre> | |||
30 GOSUB 170: GOSUB 300 | |||
40 GOSUB 730: GOSUB 1410: GOSUB 840 | |||
50 GOSUB 950 | |||
60 IF F$=" " THEN GOSUB 860: GOSUB 380: GOSUB 840: GOTO 50 | |||
70 ON VAL(F$) GOTO 80,110,130 | |||
80 GOSUB 990: IF T=1 THEN 50 | |||
90 GOSUB 860: GOSUB 910: GOSUB 840 | |||
100 GOTO 50 | |||
110 GOSUB 1000: IF T=1 THEN GOSUB 1080: GOSUB 1120: NG=0: GOTO 40 | |||
120 GOSUB 860: GOSUB 900: GOSUB 840: GOTO 50 | |||
130 GOSUB 980: IF T=1 THEN 50 | |||
140 GOSUB 860: GOSUB 920: GOSUB 840: GOTO 50 | |||
</pre> | |||