Увеличение букв

Маленький пример, показывающий как работает связка операторов Point+Line для увеличения букв в ~10 раз 

Автор: Mad Max

sizeletters.png

Dim As Short j,i,x,y,t,m,h,n=80
Screen 9
n = 80
Do
    Color Int(Rnd*15), 0
    Locate 1, 1
    Print " VICTORY"
    m = 11
    h = 20
    For j = 1 To 10
        For i = 5 To 65
            For t = 1 To 100
            Next t
            x = i * m + h - 88
            y = j * m + h + n
            Line (x, y)-(x + m - 10, y + m - 10), Point(i, j), BF
        Next i
    Next j
    Sleep(30)
Loop Until Multikey(1) 'Esc для выхода