home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.8 KB  |  77 lines
  1. 10  REM PROGRAM NAME:MINIMAP6  TAURUS/PLEIADES
  2. 20  SCREEN 2,,0,0
  3. 50  DIM X(120),Y(120)
  4. 70  CLS
  5. 101  REM DELAY TO ELIMINATE SCREEN PERSISTANCE
  6. 102  FOR I=1 TO 3000
  7. 103  I=I+1
  8. 104  NEXT I
  9. 120  FOR I=1 TO 113
  10. 125  READ X(I),Y(I)
  11. 127  NEXT I
  12. 130  FOR I=1 TO 17
  13. 132  PSET (X(I),Y(I))
  14. 133  NEXT I
  15. 135  LOCATE 1,1:PRINT "OCTOBER EAST"
  16. 140  GOSUB 1500
  17. 180  CLS
  18. 200  FOR I=18 TO 34
  19. 203  PSET(X(I),Y(I))
  20. 205  NEXT I
  21. 210  LOCATE 1,1:PRINT "NOVEMBER EAST"
  22. 220  GOSUB 1500
  23. 280  CLS
  24. 300  FOR I=35 TO 50
  25. 305  PSET (X(I),Y(I))
  26. 310  NEXT I
  27. 320  LOCATE 1,1:PRINT"DECEMBER EAST"
  28. 410  GOSUB 1500
  29. 460  CLS
  30. 470  FOR I=51 TO 66
  31. 475  PSET (X(I),Y(I))
  32. 480  NEXT I
  33. 487  LOCATE 1,1:PRINT"JANUARY WEST"
  34. 490  GOSUB 1500
  35. 500  CLS
  36. 505  FOR I=67 TO 82
  37. 510  PSET (X(I),Y(I))
  38. 515  NEXT I
  39. 520  LOCATE 1,1:PRINT "FEBRUARY WEST
  40. 530  GOSUB 1500
  41. 600  CLS
  42. 605  FOR I=83 TO 98
  43. 610  PSET (X(I),Y(I))
  44. 615  NEXT I
  45. 620  LOCATE 1,1:PRINT"MARCH WEST    "
  46. 640  GOSUB 1500
  47. 680  CLS
  48. 690  FOR I=99 TO 113
  49. 695  PSET (X(I),Y(I))
  50. 700  NEXT I
  51. 705  LOCATE 1,1:PRINT"APRIL WEST  "
  52. 750  GOSUB 1500
  53. 760  CLS
  54. 1400  LOCATE 1,1:PRINT "PRESS ANY KEY "
  55. 1450  LOCATE 1,14:INPUT K$
  56. 1490  RUN"STAR3
  57. 1500  REM SUBROUTINE FOR DELAY
  58. 1505  D=1000
  59. 1520  FOR I=1 TO D
  60. 1530  I=I+1
  61. 1540  NEXT I
  62. 1550  RETURN
  63. 2000  DATA 323,148,309,165,295,154,265,155,258,153,254,154,244,153,246,162
  64. 2001  DATA 257,158,168,160,188,177,244,124,245,126,244,128,242,129,249,125
  65. 2002  DATA 248,127,260,117,279,130,334,103,343,104,347,102,360,105,352,108
  66. 2003  DATA 341,111,378,101,410,89,402,111,335,76,333,72,329,73,326,74,332,74
  67. 2004  DATA 330,75,318,64,371,77,381,43,390,50,391,43,399,46,408,41,394,40
  68. 2005  DATA 432,33,469,32,450,10,365,17,361,19,358,21,371,20,370,21,245,38
  69. 2006  DATA 268,20,325,52,335,45,335,50,345,50,348,60,360,65,360,75,415,70
  70. 2007  DATA 380,30,302,29,384,28,382,33,386,32,388,30,230,98,228,92,225,82
  71. 2008  DATA 224,78,195,85,228,70,227,58,245,60,235,17,270,22,275,79,277,76
  72. 2009  DATA 280,80,281,78,282,76,285,78,273,145,310,158,302,138,304,132,300,124
  73. 2010  DATA 315,124,295,116,320,118,280,81,315,80,355,126,355,128,359,125
  74. 2011  DATA 360,129,362,128,366,128,345,175
  75. 2012  DATA 350,168,385,168,393,173,399,179,398,186,405,172,406,168
  76. 2013  DATA 405,126,365,135,446,168,445,170,443,172,451,169,453,170
  77.