AlGur_2

DIM XP(1 TO 50) AS INTEGER, YP(1 TO 50) AS INTEGER, I AS INTEGER
DIM K$
RANDOMIZE TIMER
FOR I = 1 TO 50
    XP(I) = INT(RND * 315) + 1
    YP(I) = INT(RND * 195) + 1
NEXT I
SCREEN 13
DO
    WAIT &H3DA, 8
    FOR I = 1 TO 50
        PSET (XP(I), YP(I)), 0
        YP(I) = YP(I) + 1
        IF YP(I) >= 199 THEN YP(I) = 0
        PSET (XP(I), YP(I)), I
    NEXT I
    K$ = INKEY$: IF K$ = "" THEN K$ = "D"
LOOP WHILE ASC(K$) <> 27