home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / GALAXY.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  512 b   |  19 lines
  1. 10 REM        << GALAXY >>
  2. 20 WIDTH 79
  3. 30 A$="*":B$="+":C$=".":D$="*"
  4. 40 FOR I=1 TO 100
  5. 50 GOSUB 90
  6. 60 PRINT TAB(A);A$; TAB(B);B$; TAB(C);C$
  7. 70 NEXT
  8. 80 GOTO 40
  9. 90 A=INT(RND(1)*28) : B=INT(RND(1)*25)+28 : C=INT(RND(1)*25)+55
  10. 100 X=RND(1)
  11. 110 IF X<.15 THEN SWAP A$,B$ : GOTO 170
  12. 120 IF X<.3 THEN SWAP B$,C$ : GOTO 170
  13. 130 IF X<.45 THEN SWAP A$,C$ : GOTO 170
  14. 140 IF X<.6 THEN SWAP A$,D$ : GOTO 170
  15. 150 IF X<.75 THEN SWAP B$,D$ : GOTO 170
  16. 160 IF X<.9 THEN SWAP C$,D$
  17. 170 RETURN
  18. 170
  19. 140 IF X<.6 THEN SWAP