Mmash2.BAS

{* Масштаб2 *}

REM basic



SCREEN 9 {масштаб 2
}
CLS
51 n = 80
14 COLOR 9 + INT(RND * 7), 0
LOCATE 1, 1
PRINT " VICTORY{
}
m = 11
h = 20
For j = 0 To 10
For i = 5 To 65
For t = 1 To 100
Next t
x = i * m + h - 100
y = j * m + h + n
LINE (x, y)-(x + m - 10, y + m - 10), POINT(i, j), BF
{n = n + .002
}
Next i
Next j
{
If y > 450 Then CLS : GoTo 51
}
GoTo 14
End