'------------------------------------------------------------
*MAIN

WHILE FNB0=0

MAX=320:GOSUB *SUB:X1=RANDO
MAX=320:GOSUB *SUB:X2=RANDO
MAX=240:GOSUB *SUB:Y1=RANDO
MAX=240:GOSUB *SUB:Y2=RANDO

LINE(X1,Y1)-(X2,Y2),PASTEL,[0,0,180],BF

WAIT 5

WEND

SYSTEM