10 '     HP Laser Jet Envelope Printing Utility Version 1.0
20 '     Copyright (C), 1985 by T.A. Daneliuk  Chicago, IL
30 '     Last Modified 11/21/85
40 '
50 '
60 '
70 CLEAR 1500:LM=55:TM=22:LINES=5
80 CLS:WIDTH "lpt1:",132
90 PRINT "HP Laser Jet Envelope Printing Utility Version 1.0"
100 PRINT "Copyright (C), 1985 by T.A. Daneliuk Chicago, IL"
110 PRINT:PRINT:PRINT
120 ESC$=CHR$(27)
130 INIT$=ESC$+"&l1O"+ESC$+"&l3H"+ESC$+"(s3B"
140 RES$=ESC$+"E"
150 FOR Y=1 TO LINES
160      PRINT "Input Line ";Y;": ";
170      LINE INPUT A$(Y-1)
180 NEXT Y
190 PRINT:PRINT
200 FOR Y=1 TO LINES
210      PRINT A$(Y-1)
220 NEXT Y
230 PRINT:PRINT:PRINT "Is this correct (Y/N)? ";
240 A$=INKEY$:IF A$="N" OR A$="n" THEN GOTO 70
250 IF A$<>"Y" AND A$<>"y" THEN GOTO 240
260 PRINT:LPRINT INIT$;
270 FOR X=1 TO TM
280     LPRINT TAB(LM)" "
290 NEXT X
300 FOR Y=1 TO LINES
310     LPRINT STRING$(LM," ");A$(Y-1)
320 NEXT Y
330 LPRINT ESC$+"&l1H"+RES$;
340 PRINT:PRINT:PRINT "Print Again (Y/N)? ";
350 B$=INKEY$:IF B$="Y" OR B$="y" THEN GOTO 190
360 IF B$="N" OR B$="n" THEN GOTO 70
370 GOTO 350
380 END