Centre Text

УГОЛ начинающих

Джонатан Arden

Просто быстрый секс в этом месяце, рутина одна строка, которая центры текст. Это

явно имеет огромное количество полезных приложений, таких как, ну, меню и прочее. Маленькая демонстрационная программа показывает вам, как использовать его в своих программах. Просто установите значение Y к тому, что линия, которую Вы хотите, чтобы ваш текст напечатан на, Затем перейдите SUB 9999. Один быстрый немного легкого-Peasy математика позже и ваши Текст уронено художественно в центре линии. Простота Сама. Джонатан также сообщает мне, что я сделал его из года в печати это. Это всегда приятно сделать кого-то счастливым.

  10 REM-центр Текст

  20 REM Автор Джон А   30 ГРАНИЦА 0: PAPER 0: INK 7: CLS   40 Пусть $ = “приговор”: Пусть у = 10: GO SUB 9999   50 СТОП 9998 REM-центр Регулярное

9999 Пусть X = 15- (LEN $ / 2): PRINT AT Y, X; $: ВОЗВРАЩЕНИЕ