home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.9 KB  |  67 lines
  1. 10  REM PROGRAM NAME:MINIMAP3  ORION AND GEMINI
  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 (235,112):PSET (275,112):PSET (245, 95):PSET (230, 72)
  9. 132  PSET (267, 76):PSET(255, 68):PSET(210, 67):PSET(195, 62)
  10. 133  PSET (210,57):PSET (240, 98)
  11. 135  LOCATE 1,1:PRINT "JANUARY SOUTH"
  12. 140  GOSUB 1500
  13. 180  CLS
  14. 190  PSET (382,118):PSET (417,117):PSET (390,99):PSET (400,98):PSET(403,95)
  15. 200  PSET (370, 78):PSET (410, 79):PSET (393, 74):PSET(395,75):PSET(395,73)
  16. 205  PSET (310,60):PSET(320, 55):PSET(332,45):PSET(350,40):PSET(295, 44)
  17. 206  PSET (313,36):PSET(247,23):PSET(265,24):PSET(315,13):PSET(273,39)
  18. 207  PSET(273,55)
  19. 210  LOCATE 1,1:PRINT "FEBRUARY SOUTH"
  20. 220  GOSUB 1500
  21. 280  CLS
  22. 290  PSET (150,108):PSET (175,123):PSET(182,105):PSET(188,107):PSET(195,110)
  23. 300  PSET (206,90):PSET(224,107):PSET(225,92):PSET(225,96):PSET(230,94)
  24. 315  PSET(210,52):PSET(223,58):PSET (241,36):PSET(260,15):PSET(235,30)
  25. 317  PSET(215,31):PSET(285,18):PSET(301,35):PSET(265,43):PSET(250,57)
  26. 318  PSET(265,63)
  27. 320  LOCATE 1,1:PRINT"MARCH WEST"
  28. 410  GOSUB 1500
  29. 460  CLS
  30. 470  PSET (240,166):PSET (269,183):PSET(282,164):PSET(285,165):PSET(288,166)
  31. 480  PSET (300,142):PSET (317,159):PSET(320,153):PSET(325,152):PSET(321,151)
  32. 482  PSET(285,92):PSET(308,85):PSET(315,67):PSET(338,68):PSET(374,82)
  33. 483  PSET(310,96):PSET(308,115):PSET(290,114):PSET(330,114):PSET(347,116)
  34. 487  LOCATE 1,1:PRINT"APRIL WEST"
  35. 490  GOSUB 1500
  36. 500  CLS
  37. 510  PSET (357,170):PSET (380,169):PSET(415,167):PSET(408,165):PSET(380,152)
  38. 515  PSET (405,152):PSET(376,122):PSET(395,120):PSET(435,134):PSET(370,141)
  39. 517  PSET(355,150)
  40. 520  LOCATE 1,1:PRINT "MAY WEST"
  41. 530  GOSUB 1500
  42. 600  CLS
  43. 610  PSET (327,150):PSET (329,147):PSET (331,148):PSET(320,163):PSET(350,147)
  44. 612  PSET (368,156):PSET (367,158):PSET(366,164):PSET(388,178):PSET(395,163)
  45. 617  PSET(405,163):PSET(164,155):PSET(166,167):PSET(206,169):PSET(229,180)
  46. 618  PSET (225,166):PSET (258,166):PSET(259,173):PSET(241,152):PSET(245,143)
  47. 620  LOCATE 1,1:PRINT"NOVEMBER EAST"
  48. 640  GOSUB 1500
  49. 680  CLS
  50. 690  PSET (452,117):PSET(471,98):PSET(432,106):PSET(433,103):PSET(434,97)
  51. 695  PSET (384,104):PSET(410,89):PSET(390,89):PSET (394,91):PSET(391,92)
  52. 697  PSET(375,107):PSET (349,106):PSET (349,107):PSET(302,133):PSET(270,124)
  53. 698  PSET (234,125):PSET(288,120):PSET(327,113):PSET(328,121):PSET(228,115)
  54. 700  PSET (242,96):PSET(312,105):PSET(313,95)
  55. 705  LOCATE 1,1:PRINT"DECEMBER EAST"
  56. 750  GOSUB 1500
  57. 760  CLS
  58. 1400  LOCATE 1,1:PRINT "PRESS ANY KEY "
  59. 1450  LOCATE 1,14:INPUT K$
  60. 1490  RUN"STAR3
  61. 1500  REM SUBROUTINE FOR DELAY
  62. 1505  D=1000
  63. 1520  FOR I=1 TO D
  64. 1530  I=I+1
  65. 1540  NEXT I
  66. 1550  RETURN
  67.