Абсурдопедия

Visual Basic: различия между версиями

← Предыдущая правкаСледующая правка →
Строка 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]], посадили на трон вселенский хаос и чуть было не уничтожили находившихся на очередной заседании [[Ктулху]] и [[Билл Гейтс|Билла Гейтса]]/
Источник — https://absurdopedia.wiki/Visual_Basic