10a=2858:b=2602:FORX=4TO16STEP6:FORY=6TO18STEP6:VDU31,X,Y,a;a;a;b;b;b;7978;X+1,Y+1,b;b;a;a;42:NEXT,