kolodec.BAS

{* Колодец *}

REM basic

' Колодец


30 SCREEN  1: Key Off: CLS

40 X=160: Y=100 

50 For 1=1 ТО 30

60 XL=X-I*3: YL=Y-I*3

70 XR=X+I*3: YR=Y+I*3

80 LINE (XL,YL)-(XR,YR),1,B

90 Next