10 CLEAR 1000:CLS:WIDTH "lpt1:",132
20 I1=3:I2=30:I3=60:B=4:XYZ=B-2
30 A$="T.A. Daneliuk"
40 B$="4927 N. Rockwell"
50 C$="Chicago, IL  60625"
60 FOR X=1 TO 12
70      LPRINT TAB(I1)A$TAB(I2)A$TAB(I3)A$
80      LPRINT TAB(I1)B$TAB(I2)B$TAB(I3)B$
90      LPRINT TAB(I1)C$TAB(I2)C$TAB(I3)C$
100     WHILE ((XYZ > 0) AND (X <> 12))
110             LPRINT:XYZ = XYZ-1
120     WEND
130 XYZ=B
140 NEXT X
150 LPRINT CHR$(12);