Banner

    1 PRINT "This program is another banner  generator for the 2040 printer. It will print any character, andwill give you the choice of two sizes of output as well as nor- mal or inverse."
    2 PRINT : PRINT "Turn on your 2040 printer."
    3 PRINT : PRINT : PRINT "Press any key to begin......."
    4 IF INKEY$="" THEN GO TO 4
    5 CLS 
   10 INPUT "Words (max 32 chars)",a$
   11 LET l=LEN (a$): IF l>32 THEN PRINT "sorry, too long": GO TO 10
   15 INPUT "Size (1 or 2)";s
   16 IF s<1 OR s>2 THEN GO TO 15
   17 LET t=1: IF s=2 THEN LET t=.5
   30 INPUT "0=normal and 1=inverse";i
   36 IF i<0 OR i>1 THEN GO TO 30
   37 LET a=2: LET b=0: PRINT AT 0,0; INVERSE i;a$
   40 FOR x=0 TO (l*8)-1 STEP t
   50 FOR Y=166 TO 175 STEP T
   60 IF POINT (x,y)=1 THEN LPRINT AT a,b;"█";
   70 LET b=b+1: NEXT y: LET b=0: LPRINT : LET a=a+1: NEXT x
   80 CLS : GO TO 10
   99 SAVE "banner" LINE 10