Примеры программ на языке QBASIC

CLS
PRINT "Введите строку, содержащую не более 20 символов"
FOR I = 1 TO 8: PRINT "1234567890"; : NEXT I
INPUT "", A$
PRINT "Вывод, начиная с 10-й позиции :"
FOR I = 1 TO 8: PRINT "1234567890"; : NEXT I
PRINT TAB(10); A$
PRINT "Вывод по центру между 10-й и 50-й позициями :"
FOR I = 1 TO 8: PRINT "1234567890"; : NEXT I
PRINT TAB(10 + (50 - 10) / 2 - LEN(A$) / 2); A$
PRINT "Вывод с прижимом к 50-й позиции :"
FOR I = 1 TO 8: PRINT "1234567890"; : NEXT I
PRINT TAB(51 - LEN(A$)); A$
END