home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.5 KB  |  59 lines
  1. 10  REM PROGRAM NAME:MINIMAP5  ANDROMEDA
  2. 20  SCREEN 2,,0,0
  3. 70  CLS
  4. 101  REM DELAY TO ELIMINATE SCREEN PERSISTANCE
  5. 102  FOR I=1 TO 3000
  6. 103  I=I+1
  7. 104  NEXT I
  8. 105  GOTO 290
  9. 120  PSET (355,125):PSET (345,103):PSET (330,105):PSET (315,108)
  10. 132  PSET (310,105):PSET(345, 85):PSET(350, 55):PSET(365, 90):PSET(385,88)
  11. 133  PSET (388,90):PSET (390,88):PSET(392,86):PSET(394,84):PSET(396,82)
  12. 135  LOCATE 1,1:PRINT "JANUARY WEST "
  13. 140  GOSUB 1500
  14. 180  CLS
  15. 190  PSET (395,150):PSET (386,148):PSET (425,126):PSET (445,125):PSET(415,95)
  16. 200  PSET (465,125):PSET (468,120):PSET (473,119)
  17. 205  PSET (465,124):PSET(467,123):PSET(469,122):PSET(471,121):PSET(473,120)
  18. 210  LOCATE 1,1:PRINT "FEBRUARY WEST"
  19. 220  GOSUB 1500
  20. 280  CLS
  21. 285  GOTO 1400
  22. 290  PSET (218,163):PSET (220,158):PSET(212,149):PSET(205,140):PSET(169,142)
  23. 300  PSET (123,148):PSET(166,134):PSET(161,126):PSET(163,122):PSET(164,123)
  24. 315  PSET(165,124):PSET(166,125):PSET (167,126)
  25. 320  LOCATE 1,1:PRINT"AUGUST EAST"
  26. 410  GOSUB 1500
  27. 460  CLS
  28. 470  PSET (276, 94):PSET (288, 96):PSET(296,106):PSET(295,111):PSET(240,100)
  29. 480  PSET (236, 91):PSET (227, 82):PSET(183,107):PSET(231, 77):PSET(232, 78)
  30. 482  PSET(233,79):PSET(234,80):PSET(235,80)
  31. 487  LOCATE 1,1:PRINT"SEPTEMBER EAST"
  32. 490  GOSUB 1500
  33. 500  CLS
  34. 510  PSET (414, 36):PSET (346, 29):PSET(326,39):PSET(333, 41):PSET(355, 51)
  35. 515  PSET (356, 53):PSET(294, 51):PSET(242, 62):PSET(288, 39):PSET(279, 36)
  36. 517  PSET(276, 32):PSET(277,33):PSET(278,34):PSET(279,35):PSET(280,35)
  37. 520  LOCATE 1,1:PRINT "OCTOBER EAST"
  38. 530  GOSUB 1500
  39. 600  CLS
  40. 620  LOCATE 1,1:PRINT"IN NOVEMBER ANDROMEDA IS DIRECTLY OVERHEAD"
  41. 640  GOSUB 1500
  42. 680  CLS
  43. 690  PSET (228,69):PSET(298,59):PSET(296,42):PSET(251, 34):PSET(300,25)
  44. 695  PSET (319,29):PSET(332,31):PSET(324,2):PSET (336,29):PSET(335,30)
  45. 697  PSET (334,31):PSET (333,32):PSET (332,31)
  46. 705  LOCATE 1,1:PRINT"DECEMBER WEST"
  47. 750  GOSUB 1500
  48. 760  CLS
  49. 800  GOTO 120
  50. 1400  LOCATE 1,1:PRINT "PRESS ANY KEY "
  51. 1450  LOCATE 1,14:INPUT K$
  52. 1490  RUN"STAR3
  53. 1500  REM SUBROUTINE FOR DELAY
  54. 1505  D=1000
  55. 1520  FOR I=1 TO D
  56. 1530  I=I+1
  57. 1540  NEXT I
  58. 1550  RETURN
  59.