{* Прыгающий НЛО *}

REM basic

' Прыгающий НЛО


30 SCREEN 0: COLOR 7,0: WIDTH 80: CLS: Key Off

40 For I=1TO 100

50 X=INT(RND(l)*74)+1

60 Y=INT(RND(1)*20)+1

70 COLOR I Mod 16,0 

80 LOCATE Y,X: PRINT "  /";

90 LOCATE Y+1,X: PRINT "==";

100 LOCATE Y+2,X  PRINT  "/  ";

110 If X Mod 12 = 0 Then BEEP 

120 For Z=0 To 100:  Next 

130 COLOR 0,0

140 LOCATE Y,X: PRINT  " ";

150 LOCATE Y+1,X:  PRINT  "  ";

160 LOCATE Y+2,X: PRINT "   ";

170 Next

180 COLOR 7,0