How to make fake linux like programme using QBASIC
code:
declare sub b()
CLS
COLOR 9
INPUT "Press enter to start linux v1.2.1"; a$
CALL b
INPUT "Press enter to start engine or exit"; z$
IF LCASE$(z$) = "admin" THEN
CALL d
INPUT "continue"; o$
ELSEIF LCASE$(z$) = "exit" THEN
SYSTEM
ELSE
CALL c
END IF
CLS
SLEEP 2
CALL b
INPUT "exit?"; e$
SYSTEM
END
SUB d
CLS
INPUT "see records"; q$
IF UCASE$(q$) = "Y" THEN
OPEN "linux.apc" FOR INPUT AS #1
DO WHILE NOT EOF(1)
INPUT #1, w$, e$
PRINT w$, e$
LOOP
END IF
INPUT "delete record?"; y$
IF LCASE$(y$) = "yes" THEN
CLOSE #1
KILL "linux.apc"
END IF
CLOSE #1
FILES
SLEEP 1.5
END SUB
SUB b
COLOR 10
LOCATE 13, 10: PRINT "********** Starting linux **********"
SLEEP 2
COLOR 11
FOR a = 8 TO 13
LOCATE 20, 1: PRINT "Loading"
LOCATE 20, a: PRINT "."
SLEEP 1
NEXT
END SUB
SUB c
CLS
LOCATE 13, 1: PRINT "******************************** Creating system files *************************"
SLEEP 2
COLOR 2
OPEN "linux.apc" FOR APPEND AS #1
WRITE #1, DATE$, TIME$
FOR a = 8 TO 13
LOCATE 20, 1: PRINT "Loading"
LOCATE 20, a: PRINT "."
SLEEP 1
NEXT
FILES
SLEEP 1.5
CHDIR "linux"
SHELL
SYSTEM
CLOSE #1
END SUB
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «How to make fake linux like programme using QBASIC», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.