1 REM:BLKLETTER 4/2/82 BY J.R.HIND, ENTERED BY BOB ROSENFELD
5 CLS
10 GOSUB 40
20 LINE INPUT "Enter up to 10 characters: ";BLKL$
30 TIME$="00:00:00":GOSUB 50:PRINT TIME$
35 END
40 PL$=SPACE$(80):BLK$=CHR$(&HDF):RETURN
50 MM%=LEN(BLKL$)-1:FOR LL%=1 TO 8:LSET PL$=" ":DEF SEG=&HFFA6
60 FOR II%=0 TO MM%:JJ%=PEEK(&HD+LL%+ASC(MID$(BLKL$,II%+1,1))*8)
70 FOR KK%=8 TO 1 STEP -1:IF JJ%AND &H1 THEN MID$(PL$,II%*8+KK%,1)=BLK$
80 JJ%=JJ%\2:NEXT KK%:NEXT II%:LPRINT PL$; :NEXT LL%
90 DEF SEG :RETURN