
   10CLS:DIM A$(8):FORI=1TO8:READA,B,C:IFI<5D=32ELSED=42
   20A$(I)=STRING$(A," ")+STRING$(B,"*")+STRING$(C," ")+CHR$(D)+STRING$(C," ")+STRING$(B,"*")+STRING$(A," ")
   30PRINTA$(I):NEXT:PRINT "    ";STRING$(9,"*"):FORI=8TO1STEP-1:PRINTA$(I):NEXT
   40DATA4,1,3,4,2,2,4,3,1,4,4,0,0,8,0,1,7,0,2,6,0,3,5,0
