home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.3 KB  |  93 lines
  1. 10  REM URSA MAJOR-DYNAMIC MAP
  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. 120  PSET (425,170):PSET (420,155):PSET (435,147):PSET (440,133)
  9. 130  PSET (465,130):PSET (465,110):PSET (440,107)
  10. 132  PSET (169,68):PSET(160,52):PSET(200,58):PSET(200,50):PSET(225,50)
  11. 135  LOCATE 1,1:PRINT "JANUARY"
  12. 140  GOSUB 1500
  13. 180  CLS
  14. 190  PSET (495,133):PSET (475,118):PSET (472,104):PSET (460,90)
  15. 200  PSET (475,82):PSET (455,62):PSET (433,68)
  16. 205  PSET (195,76):PSET (175,80):PSET(180,92):PSET (160,98)
  17. 206  PSET (169,106)
  18. 210  LOCATE 1,1:PRINT "FEBURARY"
  19. 220  GOSUB 1500
  20. 280  CLS
  21. 290  PSET (505,76):PSET (470,74):PSET(460,70):PSET(450,60)
  22. 300  PSET (435,51):PSET(385,42):PSET(400,29):PSET(445,32)
  23. 310  PSET (197,140):PSET (180,137):PSET (190,128):PSET (177,123)
  24. 312  PSET (185,113)
  25. 320  LOCATE 1,1:PRINT"MARCH"
  26. 330  GOSUB 1500
  27. 380  CLS
  28. 390  PSET (335,20):PSET(332,35):PSET (376,20):PSET(385,30)
  29. 400  PSET(412,33):PSET(430,39):PSET(468,28)
  30. 405  PSET (230,139):PSET(230,151):PSET(247,153):PSET(248,167)
  31. 406  PSET (267,166):LOCATE 1,1:PRINT"APRIL"
  32. 410  GOSUB 1500
  33. 460  CLS
  34. 470  PSET(374,8):PSET(368,19):PSET(329,20):PSET(301,21)
  35. 480  PSET(285,15):PSET(257,25):PSET(267,38)
  36. 485  PSET(278,160):PSET(285,168):PSET(305,167):PSET(314,178):PSET(331,170)
  37. 487  LOCATE 1,1:PRINT"MAY"
  38. 490  GOSUB 1500
  39. 600  CLS
  40. 610  PSET (280,3):PSET(270,17):PSET(255,22):PSET(233,32):PSET(208,29)
  41. 612  PSET (195,47):PSET(215,54):PSET(335,159):PSET(358,165)
  42. 614  PSET(373,160):PSET(388,166):PSET(400,156)
  43. 620  LOCATE 1,1:PRINT"JUNE"
  44. 640  GOSUB 1500
  45. 680  CLS
  46. 690  PSET(194,22):PSET(205,44):PSET(193,51):PSET(179,64):PSET(152,71)
  47. 695  PSET(161,89):PSET(189,91):PSET (398,149):PSET(417,149)
  48. 700  PSET(427,141):PSET(448,143):PSET(447,133)
  49. 705  LOCATE 1,1:PRINT"JULY"
  50. 710  GOSUB 1500
  51. 750  CLS
  52. 760  PSET(150,70):PSET(170,80):PSET(165,94):PSET(175,110):PSET(160,120)
  53. 765  PSET(185,135):PSET(209,127):PSET(447,121):PSET(465,115)
  54. 769  PSET(464,106):PSET(481,103):PSET(471,91)
  55. 770  LOCATE 1,1:PRINT"AUGUST"
  56. 780  GOSUB 1500
  57. 800  CLS
  58. 820  PSET(131,126):PSET(170,128):PSET(180,137):PSET(200,147):PSET(199,159)
  59. 830  PSET (230,163):PSET(242,152):PSET(435,53):PSET(453,58):PSET(444,68)
  60. 840  PSET (451,75):PSET(440,86)
  61. 850  LOCATE 1,1:PRINT"SEPTEMBER"
  62. 860  GOSUB 1500
  63. 900  CLS
  64. 920  PSET(182,166):PSET(209,158):PSET(236,164):PSET(258,167):PSET(261,178)
  65. 930  PSET (298,177):PSET(299,164):PSET (371,29):PSET(393,29):PSET(394,43)
  66. 940  PSET (416,44):PSET(414,57)
  67. 950  LOCATE 1,1:PRINT"OCTOBER"
  68. 960  GOSUB 1500
  69. 1000  CLS
  70. 1010  PSET (255,183):PSET(274,179):PSET(297,179):PSET(324,171):PSET(340,181)
  71. 1020  PSET (362,157):PSET(382,169):PSET (291,27):PSET(310,17):PSET(321,31)
  72. 1030  PSET (340,28):PSET(351,38)
  73. 1035  LOCATE 1,1:PRINT"NOVEMBER"
  74. 1040  GOSUB 1500
  75. 1100  CLS
  76. 1110  PSET (370,194):PSET(376,177):PSET(392,170):PSET(414,163):PSET(435,165)
  77. 1120  PSET (453,149):PSET(437,137):PSET(241,39):PSET(252,28):PSET(272,36)
  78. 1130  PSET (283,32):PSET(302,39)
  79. 1140  LOCATE 1,1:PRINT "DECEMBER"
  80. 1145  FOR I=1 TO 1000
  81. 1150  I=I+1
  82. 1160  NEXT I
  83. 1200  LOCATE 1,1:PRINT "PRESS ANY KEY"
  84. 1210  LOCATE 1,14:INPUT B$
  85. 1300  CLOSE:RUN"STAR3
  86. 1490  END
  87. 1500  REM SUBROUTINE FOR DELAY
  88. 1505  D=1000
  89. 1520  FOR I=1 TO D
  90. 1530  I=I+1
  91. 1540  NEXT I
  92. 1550  RETURN
  93.