home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / RANDOM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  684 b   |  42 lines
  1. 5  REM PROGRAM NAME: RANDOM
  2. 10  REM PROGRAM TO GENERATE RANDOM STARMAPS
  3. 20  CLS
  4. 100  SCREEN 0
  5. 101  LOCATE 8,15:PRINT "ENTER X TO RETURN TO MENU OR <CR> TO CONTINUE"
  6. 102  LOCATE 8,65: INPUT A$
  7. 103  IF A$="X" THEN  RUN"STARMAP
  8. 104  ELSE CLS
  9. 105  LOCATE 12,30
  10. 106  PRINT "CHALLENGE MAPS"
  11. 107  LOCATE 14,23
  12. 110  PRINT "ENTER A NUMBER FROM 1 TO 1000"
  13. 120  COLOR 0
  14. 150  RANDOMIZE
  15. 155  COLOR 7
  16. 250  X=INT( RND*(11+1))
  17. 275  REM PRINT X
  18. 300  IF X=0 THEN 700
  19. 305  IF X=1 THEN 705
  20. 310  IF X=2 THEN 710
  21. 315  IF X=3 THEN 715
  22. 320  IF X=4 THEN 720
  23. 325  IF X=5 THEN 725
  24. 330  IF X=6 THEN 730
  25. 335  IF X=7 THEN 735
  26. 340  IF X=8 THEN 740
  27. 345  IF X= 9 THEN 745
  28. 350  IF X=10 THEN 750
  29. 355  IF X=11 THEN 755
  30. 700  RUN "MAP1
  31. 705  RUN "MAP2
  32. 710  RUN "MAP3
  33. 715  RUN "MAP4
  34. 720  RUN "MAP5
  35. 725  RUN "MAP6
  36. 730  RUN "MAP7
  37. 735  RUN "MAP8
  38. 740  RUN "MAP9
  39. 745  RUN "MAP10
  40. 750  RUN "MAP11
  41. 755  RUN "MAP12
  42.