Visual Basic: различия между версиями
>DimonSoft |
|||
| Строка 13: | Строка 13: | ||
В ноябре [[1992]] г. [[NecroSoft]] представила усовершенствованное психотропное оружие массового поражения: '''Visual Basic 0.0'''. Русифицированный программный продукт по ошибке переводчика назывался '''Вислоухий Васька - два нуля''' или '''Visual Basic 2.0'''. | В ноябре [[1992]] г. [[NecroSoft]] представила усовершенствованное психотропное оружие массового поражения: '''Visual Basic 0.0'''. Русифицированный программный продукт по ошибке переводчика назывался '''Вислоухий Васька - два нуля''' или '''Visual Basic 2.0'''. | ||
==== Пример программы на 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> | |||
Вторая версия принесла [[NecroSoft]] существенные убытки: после употребления этого мощного наркотика программисты ворвались в объединённый штаб [[Ктулху]] и [[NecroSoft]], посадили на трон вселенский хаос и чуть было не уничтожили находившихся на очередной заседании [[Ктулху]] и [[Билл Гейтс|Билла Гейтса]]/ | Вторая версия принесла [[NecroSoft]] существенные убытки: после употребления этого мощного наркотика программисты ворвались в объединённый штаб [[Ктулху]] и [[NecroSoft]], посадили на трон вселенский хаос и чуть было не уничтожили находившихся на очередной заседании [[Ктулху]] и [[Билл Гейтс|Билла Гейтса]]/ | ||