10 DEFPROCoutline(x%,y%,bk%,fg%,t$):LOCAL s%:s%=15
20 DEFPROCshadow(x%,y%,bk%,fg%,t$):LOCAL s%:s%=9
30 DEFPROCtext(x%,y%,bk%,fg%,t$,s%)
40 LOCAL x1%,y1%,mx%,xy%:mx%=4:my%=4:IF?&355=2 OR ?&355=5:mx%=8
50 VDU5:GCOL 0,bk%
60 FOR y1%=y%-my%*(s%AND1) TO y%+my%*((s%AND2)DIV2) STEP my%
70 FOR x1%=x%-mx%*((s%AND4)DIV4) TO x%+mx%*((s%AND8)DIV8) STEP mx%
80 MOVE x1%,y1%:PRINTt$;:NEXT:NEXT
90 GCOL 0,fg%:MOVE x%,y%:PRINTt$;:VDU4
100 ENDPROC