Banner3

Source Code

    1 REM Banner3                     S.L.U.G. Newsletter             Nov. 85  Louisville, Ky.  
    2 CLS : INPUT                     "Type In Message (Max 32 Char)",A$
    3 LET L=LEN (A$): IF L>32 THEN PRINT "Sorry 32 Max": PAUSE 120: CLS : GO TO 2
    4 INPUT "Size (1-Small Or 2-Large) ";S$
    5 IF CODE S$<49 OR CODE S$>50 THEN GO TO 4
    6 LET T=1: IF S$="2" THEN LET T=.5
    7 INPUT "0 >Normal or 1 >Inverse ";I$
    8 IF CODE I$<48 OR CODE I$>49 THEN GO TO 7
    9 LET A=2: LET B=0
   10 IF CODE I$=48 THEN PRINT AT 0,0; A$
   11 IF CODE I$=49 THEN PRINT AT 0,0; INVERSE 1;A$
   12 FOR X=0 TO (L*8)-1 STEP T
   13 FOR Y=166 TO 175 STEP T
   14 IF POINT (X,Y)=1 THEN LPRINT AT A,B;"\::";
   15 LET B=B+1: NEXT Y: LET B=0: LPRINT : LET A=A+1: NEXT X
   16 CLS : GO TO 2
 9999 SAVE "banner3" LINE 1