10REM Multi-directional Shadower 20REM By Andrew Snodgrass 30REM v1.1 1st June 1993 40REM  50REM  This is PD software and  60REM  may be distributed freely  70REM  as long it is not for  80REM  profit or commercial gain  90REM  8 Bit Software  100: 110MODE1 115offset=4 120PRINTTAB(0,4)"Type:" 130PROCshadow(160,975,"The MULTI - DIR ECTIONAL SHADOWER",3,1,offset,offset,1) 140PROCshadow(145,971,"``````````````` ``````````````````",3,1,offset,offset,3) 150PROCshadow(190,890,"1) Top-left",2, 1,offset,offset,1) 160PROCshadow(190,855,"2) Top-right",2 ,1,offset,offset,2) 170PROCshadow(190,820,"3) Bottom left" ,1,3,offset,offset,3) 180PROCshadow(190,785,"4) Bottom right ",1,3,offset,offset,4) 190PROCshadow(190,750,"5) Left",1,2,of fset,offset,5) 200PROCshadow(190,715,"6) Right",1,2,o ffset,offset,6) 210PROCshadow(190,675,"7) Top",3,1,off set,offset,7) 220PROCshadow(190,640,"8) Bottom",3,1, offset,offset,8) 230PROCshadow(0,500,"It works with any charcters:",2,3,offset,offset,5) 240PROCshadow(190,410,"  250PROCshadow(190,375,"!#$%&'()=-^÷½|¼ [¾]`£*+><?/",1,2,offset,offset,2) 260END 270: 280DEFPROCshadow(X,Y,text$,FC,BC,OX,OY ,type) 290VDU5 300MOVEX,Y 310GCOL0,BC 320PRINTtext$ 330IF type=1 MOVE X-OX,Y+OY 340IF type=2 MOVE X+OX,Y+OY 350IF type=3 MOVE X-OX,Y-OY 360IF type=4 MOVE X+OX,Y-OY 370IF type=5 MOVE X-OX,Y 380IF type=6 MOVE X+OX,Y 390IF type=7 MOVE X,Y+OY 400IF type=8 MOVE X,Y-OY 410GCOL0,FC 420PRINTtext$ 430VDU4 440ENDPROC