Простейшая программа/игра по qbasic

Язык QBasic сначала нужно выучить. Возьми какой-нибудь учебник. Там и примеров хватает.
Например, вот простая программа перемножения матриц A(N, M) * B(M, L) = C(N, L)
Dim N As Integer, M As Integer, L As Integer, i As Integer, j As Integer, k As Integer
Dim A(), B(), C()
Input "Введите количество строк первой матрицы", N
Input "Введите количество столбцов первой матрицы", M
Print "Количество строк второй матрицы должно быть равно количеству столбцов первой матрицы"
Input "Введите количество столбцов второй матрицы", L
Print "Количество строк итоговой матрицы равно количеству строк первой матрицы"
Print "Количество столбцов итоговой матрицы равно количеству столбцов второй матрицы"
ReDim A(N, M) As Double, B(M, L) As Double, C(N, L) As Double
For i = 1 To N
For j = 1 To L
C(i, j) = 0
For k = 1 To M
C(i, j) = C(i, j) + A(i, k)*B(k, j)
Next k
Next j
Next i
For i = 1 To N
For j = 1 To L
Print C(i, j) & " ";
Next j
Print
Next i
End

Используй лучше современный диалект бейсика, например PureBasic http://rutracker.org/forum/viewtopic.php?t=3232116
Это позволит полностью использовать ресурсы компа, а не как в случае с qbasic только на 10 процентов.