13 FOR a = 0 TO 100 STEP 100 / dia
\r
14 LINE (0, 100 + a)-(319, 100 + a), 2
\r
15 LINE (0, 100 - a)-(319, 100 - a), 2
\r
18 LINE (0, 100)-(319, 100), 10
\r
19 ste = (p2 - p1) / 319
\r
21 FOR x = p1 TO p2 STEP ste / 20
\r
26 IF u >= lu THEN su = 1 ELSE su = 0
\r
28 rx = (x - p1) * (1 / ste)
\r
29 IF lsu > su THEN tl = 1
\r
32 IF y > tli THEN y = tli
\r
33 IF y < bli THEN y = bli
\r
36 IF ry > 199 THEN ry = 199
\r
37 IF ry < 0 THEN ry = 0
\r
41 IF tl = 1 THEN LINE (rx, 0)-(rx, 199), 4: tl = 0
\r
42 LINE (rx, 100)-(rx, ry), 15
\r
46 PRINT s / (1 / ste) / 20
\r