10 DELAY = 100
20 CLS : SCREEN 9: KEY OFF
30 LINE (0, 0)-(0, 199)
40 LINE (0, 199)-(319, 199)
50 FOR I = 1 TO 10
60 LINE (0, 200 - (I * (50 / 3)))-(2, 200 - (I * (50 / 3)))
70 LINE (I * 25, 199)-(I * 25, 197)
80 NEXT I
90 FOR T = 1 TO 10
100 D = 50 * T
110 PSET (T * 25, 200 - D / 3)
120 FOR I = 1 TO DELAY
130 NEXT I
140 NEXT T
150 FOR T = 1 TO 10
160 D1 = (T - 1) * 50
170 D2 = T * 50
180 LINE ((T - 1) * 25, 200 - D1 / 3)-(T * 25, 200 - D2 / 3)
190 FOR I = 1 TO DELAY
200 NEXT I
210 NEXT T
220 A$ = INPUT$(1)