Внимание!!! Все программы интерпритируются в средах Quick Basic и QBasic (!!!). Если у тебя не работает ты быдло и мудло!!! Програмы написаны gelo в качестве разминки перед кодингом.
Хуйня первая
Надеюсь все знают зачем сочетание клавишь ctrl + Pause Break
Code
DECLARE SUB fac ()
CLS
fac
DO
a$ = INKEY$
IF a$ <> "" THEN
CLS
PRINT "объебись ублюдок: выхода нет"
SLEEP 1
CLS
fac
a$ = ""
END IF
LOOP
SUB fac
PRINT " _-_"
PRINT " | |"
PRINT " |---|"
PRINT " | |"
PRINT " | |"
PRINT " | |"
PRINT " | |"
PRINT " | |"
PRINT " _-_._-_.| |._-_"
PRINT "| |"
PRINT "| |"
PRINT "| |"
PRINT " | |"
PRINT " _______________"
END SUB
Хуйня вторая
Code
DATA "хуй","пиздюк","пидарюга","уебок","гандон","хуесос","блядина","хуйлоног","и всё это ты:)","пиздабол"
DIM i AS INTEGER
DIM col AS INTEGER ' цвет
DIM str(10) AS STRING ' массив со словеми
DIM s AS STRING
DIM x AS INTEGER
DIM y AS INTEGER
FOR i = 1 TO 10 ' загуржаем в массив слова из блока днных
READ s: str(i) = s
NEXT i
'//-------------------------------------------------------
CLS
DO
col = INT(RND(1) * 16)
x = 1 + INT(RND(1) * 80)
y = 1 + INT(RND(1) * 23)
i = INT(RND(1) * 11)
COLOR col
LOCATE y, x
PRINT str(i)
SLEEP 1
a$ = INKEY$
LOOP UNTIL a$ <> ""
FOR i = 1 TO 10 * 80
col = INT(RND(1) * 16)
COLOR col
PRINT "ты"; " ";
NEXT i
SLEEP 1
CLS
FOR i = 1 TO 10 * 80
col = INT(RND(1) * 16)
COLOR col
PRINT "всё"; " ";
NEXT i
SLEEP 1
CLS
LOCATE 10, 35
PRINT "ты всё!!!"
Помни все рабочее, если ты считаешь иначе ты быдло и мудло!!!
",,,,,,,,,,,,,,,,,,,,,,,,,,,,,," марш по местам.
Этис атис аниматис, коректор арфографикс автоматикс