{* Блуждающая звезда *}

REM basic

' Блуждающая звезда


40 COLOR 9,0

50 For 1=1 To 500

60 X=INT(RND(1)*319) 

70 Y=INT(RND(1)*199) 

80 PSET (X,Y),2: PSET (Х+1,У+1),2

90 PSET (X, Y+1),2: PSET (Х+1,Y),2 

100 PSET (X,Y),0: PSET (Х+1,У+1),0

110 PSET (X+X,Y),0: PSET (Х,У+1),0

120 Next