5 RANDOMIZE TIMER
6 DIM A$(20),SCREEND(20),COUNT(20),XDIR(20),YDIR(20),J(20),X(20),Y(20)
100 CLS
105 KEY OFF
110 A = A + 1
120 READ A$(A)
125 COLOR A
126 PRINT A$(A)
130 IF A$(A) = "Zordon" THEN A = A - 1                                              ELSE A$(A) = CHR$(219)+A$(A)+CHR$(219):SCREEND(A) = 79-LEN(A$(A))  :            BLANK$ = SPACE$(LEN(A$(A))) : GOTO 110
134 CLS
135 FOR X = 1 TO 50
140 FOR I = 1 TO A
150 COLOR I : COUNT(I) = COUNT(I) + 1
160 IF COUNT(I) > J(I) THEN COUNT(I) = 0 : J(I) = INT(RND*30)+1 :                   XDIR(I) = INT(RND*3)-1 : YDIR(I) = INT(RND*3)-1 :                               IF XDIR(I) = 0 AND YDIR(I) = 0 THEN 160
170 X(I) = X(I) + XDIR(I) :                                                         IF X(I) > SCREEND(I) THEN X(I) = 1 ELSE                                         IF X(I) < 1 THEN X(I) = SCREEND(I)
180 Y(I) = Y(I) + YDIR(I) :                                                         IF Y(I) > 23 THEN Y(I) = 1 ELSE                                                 IF Y(I) < 1 THEN Y(I) = 23
190 LOCATE Y(I),X(I)
200 PRINT A$(I)
210 NEXT
220 NEXT X
230 PRINT
998 'WHEELMUFASABARBABILEDDIE SZAZU REPULSACARSKIMBERLY JOHNSONly YostÛÛKwameÛ
999 BARBARA DOLGINS   :   BILLY YOST   :   EDDIE SEGOURA
1000 DATA Kwame,Barbara Dolgins,Eddie Segoura,Wheeler,Alpha,Mate,                         Rita Repulsa,Scar,Simba,Billy Yost,Mufasa,Zazu,                                 Kimberly Johnson,Linka,Professor Hart
1001 DATA Zordon