ocr: TeKCT nporpaMMbl. Dim I As Integer LE B general Sub Form Load () IFO 0 End Sub Sub Timerl Timer () Dim Dx, Dxl As Single Dx' = - 1# 'war nepemeueHma napoxona Dxl = 3 'uar nepeMeueHMa BOJIHBI Scale (0, 100)-(50, -3) 'sanahue KOOpIMHaT DrawMode = 16 MHBepcHa JIMHMM pucyHka If I >> 0 Then Line (0# + Dx*(I-1),08)-(0H + Dx*(I-1),3) ynaneHne Line (0# + Dx* (I-1),3#)-(16# + Dx*(I-1),3) M300paxeHMR Line (14# + DX*(1-1),08)-(16F + Dx*(I-1),3) napoxona Line (0# + Dx* (I-1),0#)-(14 + Dx* (I-1),0) MHBepcien Line (3# + Dx* (I-1),5#)-(11* + Dx* (I-1),3),,B M30opaxeHMR Line (5# + Dx - (I-1),7#)-(6# + Dx* (I- ...
