5 CLEAR 300
10 INPUT"Слово";A$
15 WAIT &H90,2,255 'Вы включите, наконец, принтер или нет?
20 A$=A$+CHR$(13)+CHR$(10) 'CHR$(13) - код возврата каретки;
21 '                        CHR$(10) - код перевода строки
30 FOR I=1 TO LEN(A$)
35    OUT &H90,0:OUT &H90,137 'Инициализация принтера
40    B=ASC(MID$(A$,I,1))
50    OUT &H91,B
60 NEXT I