10 'Выравнивание слов по правому краю.
20 FOR I=1 TO 3:READ A$
30 PRINTTAB(20-LEN(A$));A$:NEXTI
40 DATA "Хакер-","фанатичный","программист"