{* Масштаб *}

REM basic

' Масштаб


SCREEN 9 {масштаб
}CLS
62 COLOR 9 + INT(RND * 7), 0
LOCATE 1, 1
PRINT " GOLD"
m = 1
h = 20 + INT(RND * 101)
11 m = m + .4
If x > 1000 Then x = 10: CLS : GoTo 62
For j = 0 To 10
For i = 5 To 45
x = i * m + h - 40
y = j * m + h
LINE (x, y)-(x + m - 10, y + m - 10), POINT(i, j), BF
Next i
Next j
GoTo 11