Бейсик. 
Языки программирования

Этот замечательный язык был создан в Англии в 1964 г. для обучения программированию людей всех возрастных категорий. Отсюда и его расшифровка: «Beginner's All-purpose Symbolic Instruction Code» перевести это можно как «Многоцелевой Символический Код для начинающих».

Позже программисты авторы и новички заметили, что BASIC может делать все, что делал и такой язык программирования как Фортран.

Но Бейсик был лучше чем Фортан, программы на нем писались очень быстро и легко. Бейсик так же можно было найти почти на любом компьютере, в отличие от Фортрана. Таким образом, он быстро завоевал огромную популярность. И даже до сих пор спустя много времени он остается самым простым и быстрым языком программирования для новичков и любителей и справляется с огромным количеством работы.

В наше время Бейсик далеко не идеальный язык программирования, но он достиг основной цели: Бейсик вывел программирование на новый уровень, для того чтобы программирование было доступнее для огромного количества людей.

Изначально бейсик хотели сделать как интерпретатор. Но позже решили перевести его с любительского уровня на более лучший профессиональный уровень и добавили огромное количество функционала. И так Бейсик стал одним из самых лучших языков, и даже сейчас его используют для обучения студентов в университетах и для написания некоторых программ.

Пример простой программы на языке программирования BASIC:

Option Explicit.

Declare Function AllocConsole Lib «kernel32» () As Long.

Declare Function FreeConsole Lib «kernel32» () As Long.

Declare Function CloseHandle Lib «kernel32» (ByVal hObject As Long) As Long.

Declare Function GetStdHandle Lib «kernel32» (ByVal nStdHandle As Long) As Long.

Declare Function WriteConsole Lib «kernel32» Alias «WriteConsoleA» _.

(ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _.

nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _.

lpReserved As Any) As Long.

Declare Function Sleep Lib «kernel32» (ByVal dwMilliseconds As Long) As Long.

Private Sub Main ().

'create a console instance.

AllocConsole.

'get handle of console output.

Dim hOut As Long.

hOut = GetStdHandle (-11&).

'output string to console output.

Dim s As String.

s = «Hello, World!» & vbCrLf.

WriteConsole hOut, ByVal s, Len (s), vbNull, vbNull.

'make a pause to look at the output.

Sleep 2000.

'close the handle and destroy the console.

CloseHandle hOut.

FreeConsole.

End Sub.