home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / GALAXY2.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  1.8 KB  |  48 lines
  1. 100 REM        << GALAXY >>
  2. 101 WIDTH 79
  3. 102 DIM G$(15)
  4. 103 FOR X=1 TO 15 : READ G$(X) : NEXT
  5. 104 A$="*":B$="+":C$=".":D$="*"
  6. 105 FOR I=1 TO 40
  7. 106 GOSUB 113
  8. 107 PRINT TAB(A);A$; TAB(B);B$; TAB(C);C$
  9. 108 NEXT
  10. 109 Z1=INT(RND(1)*15)+1
  11. 110 Z$=G$(Z1)
  12. 111 PRINT TAB(20) Z$
  13. 112 GOTO 105
  14. 113 A=INT(RND(1)*28) : B=INT(RND(1)*25)+28 : C=INT(RND(1)*25)+55
  15. 114 X=RND(1)
  16. 115 IF X<.15 THEN SWAP A$,B$ : GOTO 121
  17. 116 IF X<.3 THEN SWAP B$,C$ : GOTO 121
  18. 117 IF X<.45 THEN SWAP A$,C$ : GOTO 121
  19. 118 IF X<.6 THEN SWAP A$,D$ : GOTO 121
  20. 119 IF X<.75 THEN SWAP B$,D$ : GOTO 121
  21. 120 IF X<.9 THEN SWAP C$,D$
  22. 121 RETURN
  23. 122 DATA YOU ARE A TRAVELLER LOST IN SPACE
  24. 123 DATA I AM BUT A TRAVELLER LOST IN SPACE
  25. 124 DATA ALL MANKIND BUT EXPLORERS LOST IN SPACE
  26. 125 DATA CAN WE FIND EACH OTHER IN SPACE ?
  27. 126 DATA HOW DOES LIFE SEEM FROM UP THERE ?
  28. 127 DATA I CAN SEE YOU CLEARLY NOW FROM HERE
  29. 128 DATA THE YEARS SEEM TO PASS SO QUICKLY
  30. 129 DATA WE'LL MEET HERE IN A MILLION YEARS
  31. 130 DATA GREETINGS FROM WHERE THE RATS CRAWL
  32. 131 DATA GREETINGS FROM THE CRACKS IN THE WALL
  33. 132 DATA I SEE ALL THAT YOU EVER ARE DOING
  34. 133 DATA THE SKY IS FALLING ON US ALL !!!
  35. 134 DATA I'M AFRAID THAT THE END IS COMING
  36. 135 DATA IN WHICH REMOTE PLACE CAN GOD BE MET ?
  37. 136 DATA WE'LL MEET AGAIN DON'T KNOW WHERE OR WHEN
  38. 137 DATA TIME RUNS QUITE SHORT FOR YOU AND ME
  39. 138 DATA YOU GROW OLD AT THE SPEED OF LIGHT
  40. 139 DATA HAVE YOU MADE PEACE WITH YOUR MAKER ?
  41. 140 DATA HAVE YOU EXISTED AS A GIVER OR A TAKER ?
  42. 141 DATA WILL YOU BE ABLE TO MEET ME OUT HERE ?
  43. 142 DATA REMEMBER ALL THE GREAT TIMES WE HAD ?
  44. 143 DATA WE SHALL NEVER LEAVE THIS PLACE TILL WE DIE
  45. 144 DATA ETERNAL ENERGY BEYOND THE DREAMS OF MAN
  46. 145 DATA SOME PEOPLE WILL ALWAYS BE FREE FOREVER
  47. 146 DATA SOME PEOPLE WILL NEVER TASTE FREEDOM
  48.