Program

10 REM ** VIDEO WEAVER ** By D.A. GOLDMAN 20 DEFINT A-Z : RANDOM

30

CLS

: XA-0

: XB=127

: YA-0

: YB-47

40

DX»SGN(RND(2)-1.5)

: DY«SGN(RND(2)-1

5)

50

X«RND(XB - XA) + XA

: Y=RND(YB - YA) + YA

60

IF X ♦ DX > XB OR X

♦ DX

< XA THEN DX—DX

70

IF Y + DY > YB OR Y

♦ DY

< YA THEN DY — DY

80

X»X ♦ DX

: Y-Y + DY

90

IF POINT(X, Y) THEN

RESET(X, Y)

100 IF INKEY$-"" THEN 60 ELSE 30

Was this article helpful?

0 0

Post a comment