100 CLS:KEY OFF
110 A=A+1:READ A$(A):IF A$(A)="*" THEN A=A-1 ELSE A$(A)=CHR$(219)+A$(A)+CHR$(219):SCREEND(A)=79-LEN(A$(A)):BLANK$(A)=SPACE$(LEN(A$(A))):GOTO 110
120 FOR I=1 TO A:COLOR I:COUNT(I)=COUNT(I)+1
130 IF COUNT(I)>J(I) THEN COUNT(I)=0:J(I)=INT(30*RND)+1:XDIR(I)=INT(3*RND)-1:YDIR(I)=INT(3*RND)-1:IF XDIR(I)=0 AND YDIR(I)=0 THEN 130
140 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)
150 Y(I)=Y(I)+YDIR(I):IF Y(I)>23 THEN Y(I)=1 ELSE IF Y(I)<1 THEN Y(I)=23
160 LOCATE Y(I),X(I):PRINT A$(I):NEXT:GOTO 120
1000 DATA IBM,Model 80,With,Micro,Channel,Architecture
1010 DATA *