10 ON KEY GOSUB 100
20 KEY(1)ON:SCREEN 2
30 LINE(50,50)-(200,150),,B
40 GOTO 30
100 ' Подпрограмма
105 :::
110 BEEP:CLS
120 FOR I=10 TO 90 STEP 10
130 CIRCLE(120,100),I:NEXT I
140 CLS:RETURN 30