wx3BINCODPSXPIXMAPBANRBANNRROWMAPHCCCRVAOFSESTARPIXPOFSVPOLSHPOSPRPIXHPIVPIVPIROWSUDIN@@@@  !"#BANNERTIZERBY JOHN BAUMANANTIC MAGAZINE ]]9@,;@,;@,;@,9@d,9AU,;AU,9@,TITLE SCREEN A@( @@2GET BANNER<' +'0@AM' INPUT 0 FOR A HORIZONTAL BANNERI INPUT 1 FOR A VERTICAL BANNERMF#*@# @P @Zt +'0@p DENTER VALUE FROM 1 (SMALL) TO 10 (BIG) TO DETERMINE CHARACTER SIZE. td# @)!@# @n Ax\ +'0@E INPUT LINE TO BANNERTIZE.\(THEN PRESS RETURN.( 6-B:,A-@@'( נǺ9-@@A( -@6-@:7<,,ADJUST CHARACTER VALUE AiiCALCULATE OFFSET OF CHAR FROM START OF CHARACTER SET AND THEN CALCULATE ACTUAL START OF CHAR IN SET6-$@6-BsD%??STORE THE BINARY VALUES FOR THE CHARACTER IN ARRAY BINCOD-@@68,-F:%&@, ))CREATE A PIXEL MAP OF THE CHARACTER A0PRINT OUT THE CHARACTER" (7<,, A 6 @ @@((CHARACTER VALUE ADJUCTMENT ROUTINE56-!A')6-&A(56-@3+@2* @,)6-&@23 A@)+* @2,)6-%@d$$PRINTING ROUTINE'6-+$@&@,'6-@ --@@bbIF THE BIT IS A 1 THEN STORE 10 ASTERISKS IN ARRAY S$, OTHERWISE STORE 10 BLANKS IN ARRAY S$(+8,%"@,6.*( A ` 6.  --LOOP TO STORE ASTERISKS OR BLANKS IN S$  -%@ 67,. 6-%@6-%@  *-@3 46-@> H$ 44ROUTINE TO CREATE A PIXEL MAP OF THE CHARACTER ]]INITIALIZE POSITION POINTER FOR PIXMAP ARRAY AND SET PIXL TO VALUE OF FIRST BIT TO TEST 6-@6-A( //LOOP TO GET VALUES OF PIXELS HORIZONTALLY -@@ --LOOP TO GET VALUES OF PIXELS VERTICALLY -@@6@ +"@+6-++&@,$@%, ddTEST PIXEL: IF THE BIT IS A ONE, THEN STORE A ONE IN PIXMAP; OTHERWISE, STORE A ZERO IN PIXMAP ;8,&"68,-8,&168,-@; A0` 68,- INCREMENT PIXPOS 6-%@   SET PIXL VALUE TO NEXT BIT 6-'@   ;;DETERMINE IF EACH 8 BIT ROW IN PIXMAP IS BLANK OR NOT -@! 6-& 2-@@.6-%8%+$@,,2 0 0!&68%@,-@0 A1@: 68%@,-D  I SSDETERMINE WHERE THE CHARACTER'S FIRST AND LAST ROWS TO BE PRINTED ARE LOCATEDN 1"6-@'6-@1 A1S *-@@&8,@* X 6-&+@,b 3 -@@6@/8,@3 l 6-v $] +@'0@I6-F:A`,%F:Aa,$AV]%@@-@@2(@THE BANNERTIZERD-@@a(@by john baumans-@@ (@ 蠠/F:B2y,"@,+B2y,@/$ A@  D:BANNER.BAS