10 REM		<< GALAXY >>
20 WIDTH 79
30 A$="*":B$="+":C$=".":D$="*"
40 FOR I=1 TO 100
50 GOSUB 90
60 PRINT TAB(A);A$; TAB(B);B$; TAB(C);C$
70 NEXT
80 GOTO 40
90 A=INT(RND(1)*28) : B=INT(RND(1)*25)+28 : C=INT(RND(1)*25)+55
100 X=RND(1)
110 IF X<.15 THEN SWAP A$,B$ : GOTO 170
120 IF X<.3 THEN SWAP B$,C$ : GOTO 170
130 IF X<.45 THEN SWAP A$,C$ : GOTO 170
140 IF X<.6 THEN SWAP A$,D$ : GOTO 170
150 IF X<.75 THEN SWAP B$,D$ : GOTO 170
160 IF X<.9 THEN SWAP C$,D$
170 RETURN
170
140 IF X<.6 THEN SWAP