names.BAS

{* Имя по строкам *}

REM basic

' Имя по строкам


SCREEN 9 {имя по строкам
}CLS
11 For i = 1 To 25
For j = 1 To 80
COLOR 11, 9
LOCATE i, j
PRINT "A ne poiti li mne za pivom?"
For t = 1 To 7000
Next t
COLOR 0, 9
LOCATE i, j
PRINT "MAXIM"
Next j
Next i
GoTo 11