home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG026.ARK
/
GALAXY.ASC
< prev
next >
Wrap
Text File
|
1984-04-29
|
485b
|
18 lines
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