Procedure WriteSymbol(x,y:Word; Symbol:Byte; Color:Boolean; Up,Down:Byte;BufferTo:Word); Var A,B: Word; Begin Case Symbol of 1: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,0,A,31,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,0,A,31,B,Buffer[2],BufferTo); End; End; 2: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,32,A,63,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,32,A,63,B,Buffer[2],BufferTo); End; End; 3: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,64,A,95,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,64,A,95,B,Buffer[2],BufferTo); End; End; 4: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,96,A,127,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,96,A,127,B,Buffer[2],BufferTo); End; End; 5: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,128,A,159,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,128,A,159,B,Buffer[2],BufferTo); End; End; 6: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,160,A,191,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,160,A,191,B,Buffer[2],BufferTo); End; End; 7: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,192,A,223,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,192,A,223,B,Buffer[2],BufferTo); End; End; 8: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,224,A,255,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,224,A,255,B,Buffer[2],BufferTo); End; End; 9: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,256,A,287,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,256,A,287,B,Buffer[2],BufferTo); End; End; 0: Begin If Color=True then Begin A:=24+Up; B:=47-Down; If B>A then WriteBlok(x,y,288,A,319,B,Buffer[2],BufferTo) End else Begin A:=0+Up; B:=23-Down; If B>A then WriteBlok(x,y,288,A,319,B,Buffer[2],BufferTo); End; End; End; {Case End} End; Procedure KresliValce2; Begin HideMouse; WriteSymbol(108,54,Valec[0].Symbol[0],False,24-Valec[0].Scroll,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll,Valec[0].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll+24,Valec[0].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(108,54+Valec[0].Scroll+48,Valec[0].Symbol[3],False,0,Valec[0].Scroll,Buffer[4]); WriteSymbol(144,54,Valec[1].Symbol[0],False,24-Valec[1].Scroll,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll,Valec[1].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll+24,Valec[1].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(144,54+Valec[1].Scroll+48,Valec[1].Symbol[3],False,0,Valec[1].Scroll,Buffer[4]); WriteSymbol(180,54,Valec[2].Symbol[0],False,24-Valec[2].Scroll,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll,Valec[2].Symbol[1],False,0,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll+24,Valec[2].Symbol[2],False,0,0,Buffer[4]); WriteSymbol(180,54+Valec[2].Scroll+48,Valec[2].Symbol[3],False,0,Valec[2].Scroll,Buffer[4]); ShowMouse; End; Procedure KresliValce; Begin WriteSymbol(108,54,Valec[0].Symbol[0],False,24-Valec[0].Scroll,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll,Valec[0].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll+24,Valec[0].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(108,54+Valec[0].Scroll+48,Valec[0].Symbol[3],False,0,Valec[0].Scroll,Buffer[3]); WriteSymbol(144,54,Valec[1].Symbol[0],False,24-Valec[1].Scroll,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll,Valec[1].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll+24,Valec[1].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(144,54+Valec[1].Scroll+48,Valec[1].Symbol[3],False,0,Valec[1].Scroll,Buffer[3]); WriteSymbol(180,54,Valec[2].Symbol[0],False,24-Valec[2].Scroll,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll,Valec[2].Symbol[1],False,0,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll+24,Valec[2].Symbol[2],False,0,0,Buffer[3]); WriteSymbol(180,54+Valec[2].Scroll+48,Valec[2].Symbol[3],False,0,Valec[2].Scroll,Buffer[3]); End;