home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.9 KB  |  77 lines
  1. 10  REM PROGRAM NAME:MINIMAP2  VEGA AND CORONA BOREALIS
  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 (152,166):PSET (155,169):PSET (160,171):PSET (168,171)
  9. 132  PSET (175,169):PSET(180,163):PSET(175,158):PSET(168,156)
  10. 133  PSET (255,148):PSET (212,148):PSET(210,135):PSET(170,147)
  11. 134  PSET (153,130):PSET (180,125):PSET (270,137):PSET (260,163)
  12. 135  LOCATE 1,1:PRINT "MARCH EAST"
  13. 140  GOSUB 1500
  14. 180  CLS
  15. 190  PSET (251,118):PSET (260,117):PSET (266,120):PSET (265,127)
  16. 200  PSET (260,130):PSET (250,133):PSET (238,129)
  17. 205  PSET (361,91):PSET(356,115):PSET(345,98):PSET(295,93):PSET(296,104)
  18. 206  PSET (255,82):PSET(250,107):PSET(232,90)
  19. 210  LOCATE 1,1:PRINT "APRIL EAST "
  20. 220  GOSUB 1500
  21. 280  CLS
  22. 290  PSET (318,63):PSET (329,64):PSET(338,70):PSET(337,75):PSET(332,79)
  23. 300  PSET (320,81):PSET(309,78)
  24. 310  LOCATE 14,22:PRINT CHR$(4)
  25. 315  PSET(411,25):PSET(396,39):PSET (420,50):PSET(345,38):PSET(355,49)
  26. 317  PSET(315,55):PSET(310,35):PSET(290,43)
  27. 320  LOCATE 1,1:PRINT"MAY EAST"
  28. 410  GOSUB 1500
  29. 460  CLS
  30. 470  PSET (347,10):PSET (358,8):PSET(370,10):PSET(371,16):PSET(371,19)
  31. 480  PSET (363,25):PSET (346,24)
  32. 485  LOCATE 9,30:PRINT CHR$(4)
  33. 487  LOCATE 1,1:PRINT"JUNE EAST"
  34. 490  GOSUB 1500
  35. 600  CLS
  36. 610  PSET (277,3):PSET (268,2):PSET (257,3):PSET (255,8):PSET (254,11)
  37. 612  PSET (257,17):PSET (270,20):PSET(282,17)
  38. 615  PSET (328,27):PSET(286,25):PSET(269,40):PSET(250,60):PSET(255,70)
  39. 617  PSET(295,45):PSET(320,44):PSET(220,58)
  40. 620  LOCATE 1,1:PRINT"JULY WEST"
  41. 640  GOSUB 1500
  42. 680  CLS
  43. 690  PSET (315,59):PSET (303,61):PSET (301,67):PSET (304,73):PSET (307,77)
  44. 695  PSET (315,78):PSET (323,76):PSET (329,73)
  45. 697  PSET(290,115):PSET (325,121):PSET (335,130):PSET(334,98):PSET(362,102)
  46. 698  PSET (351,77):PSET(390,74):PSET (395,88)
  47. 700  LOCATE 1,40:PRINT CHR$(4)
  48. 705  LOCATE 1,1:PRINT"AUGUST WEST"
  49. 750  GOSUB 1500
  50. 760  CLS
  51. 780  PSET (370,110):PSET (357,115):PSET (358,122):PSET (365,125):PSET (372,126)
  52. 785  PSET (388,125):PSET (395,119)
  53. 788  PSET (360,177):PSET (401,168):PSET (410,178):PSET(407,144):PSET(430,147)
  54. 789  PSET (416,123):PSET (448,118):PSET (459,132)
  55. 790  LOCATE 4,41:PRINT CHR$(4)
  56. 795  LOCATE 1,1:PRINT "SEPTEMBER WEST"
  57. 800  GOSUB 1500
  58. 810  CLS
  59. 820  PSET (459,153):PSET (451,157):PSET(452,161):PSET (458,166)
  60. 830  PSET (465,168):PSET (475,167):PSET(482,162)
  61. 840  LOCATE 10,49:PRINT CHR$(4)
  62. 850  LOCATE 1,1:PRINT "OCTOBER WEST"
  63. 860  GOSUB 1500
  64. 870  CLS
  65. 900  LOCATE 15,59:PRINT CHR$(4)
  66. 910  LOCATE 1,1:PRINT "NOVEMBER WEST"
  67. 920  GOSUB 1500
  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.