home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP7.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.7 KB  |  77 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 (332,137):PSET (310,135):PSET (340,130):PSET (315,128)
  9. 132  PSET (305,120):PSET(300,110):PSET(300,95)
  10. 135  LOCATE 1,1:PRINT "JANUARY NORTH"
  11. 140  GOSUB 1500
  12. 180  CLS
  13. 190  PSET (300,95 ):PSET (315,104):PSET (327,110):PSET (350,115):PSET(355,125)
  14. 200  PSET (373,124):PSET (373,114)
  15. 210  LOCATE 1,1:PRINT "FEBRUARY NORTH"
  16. 220  GOSUB 1500
  17. 280  CLS
  18. 290  PSET (300,95 ):PSET (320,100):PSET(343,104):PSET(367,100):PSET(373,108)
  19. 300  PSET (390,104):PSET(385,96 )
  20. 320  LOCATE 1,1:PRINT"MARCH NORTH"
  21. 410  GOSUB 1500
  22. 460  CLS
  23. 470  PSET (315,100):PSET (330,100):PSET(358, 98):PSET(375, 93):PSET(385, 96)
  24. 480  PSET (380,81):PSET (395,85)
  25. 487  LOCATE 1,1:PRINT"APRIL NORTH"
  26. 490  GOSUB 1500
  27. 500  CLS
  28. 510  PSET (312, 97):PSET (340,98):PSET(358,93):PSET(362, 80):PSET(377, 80)
  29. 515  PSET(358, 69):PSET(374, 67)
  30. 520  LOCATE 1,1:PRINT "MAY NORTH"
  31. 530  GOSUB 1500
  32. 600  CLS
  33. 610  PSET (320,100):PSET (340, 93):PSET (348, 82):PSET(345, 70):PSET(357, 66)
  34. 612  PSET (340, 55):PSET (328, 63)
  35. 620  LOCATE 1,1:PRINT"JUNE NORTH "
  36. 640  GOSUB 1500
  37. 680  CLS
  38. 690  PSET(317,100):PSET(324, 91):PSET(325, 78):PSET(310,69)
  39. 695  PSET (285, 64):PSET(313,62):PSET(290,58)
  40. 705  LOCATE 1,1:PRINT"JULY NORTH "
  41. 750  GOSUB 1500
  42. 760  CLS
  43. 800  PSET (325,100):PSET(321,91):PSET(305,80):PSET(285,76):PSET(266,77)
  44. 810  PSET(264,70):PSET(285,68)
  45. 820  LOCATE 1,1:PRINT "AUGUST NORTH"
  46. 830  GOSUB 1500
  47. 840  CLS
  48. 850  PSET (323,96):PSET(305,91):PSET(287,87):PSET(264,88):PSET(245,93)
  49. 860  PSET (237,88):PSET(258,80)
  50. 870  LOCATE 1,1:PRINT "SEPTEMBER NORTH"
  51. 880  GOSUB 1500
  52. 890  CLS
  53. 900  PSET (318,95):PSET(302,93):PSET(278,95):PSET(258,103):PSET (244,102)
  54. 910  PSET (242,111):PSET (252,112)
  55. 920  LOCATE 1,1:PRINT "OCTOBER NORTH"
  56. 930  GOSUB 1500
  57. 940  CLS
  58. 950  PSET (325,94):PSET (289,98):PSET (273,107):PSET (267,118):PSET(251,119)
  59. 960  PSET (258,127):PSET (274,124)
  60. 970  LOCATE 1,1:PRINT "NOVEMBER NORTH"
  61. 980  GOSUB 1500
  62. 990  CLS
  63. 1000  PSET (311,138):PSET (320,134):PSET(297,133):PSET(308,127):PSET(307,115)
  64. 1010  PSET (312,105):PSET(325,94)
  65. 1020  LOCATE 1,1:PRINT "DECEMBER NORTH"
  66. 1030  GOSUB 1500
  67. 1040  CLS
  68. 1400  LOCATE 1,1:PRINT "PRESS ANY KEY "
  69. 1450  LOCATE 1,14:INPUT K$
  70. 1490  RUN"STAR3
  71. 1500  REM SUBROUTINE FOR DELAY
  72. 1505  D=1000
  73. 1520  FOR I=1 TO D
  74. 1530  I=I+1
  75. 1540  NEXT I
  76. 1550  RETURN
  77.