home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MINIMAP6.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  1.1 KB  |  50 lines
  1. 10  REM PROGRAM NAME:MINIMAP6  CYGNUS - THE NORTHERN CROSS
  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 (160, 82):PSET (173,102):PSET (172,121):PSET (180,138)
  9. 132  PSET (138,119):PSET(208,120):PSET(252,120)
  10. 135  LOCATE 1,1:PRINT "JUNE EAST"
  11. 140  GOSUB 1500
  12. 180  CLS
  13. 190  PSET (226, 44):PSET (252, 57):PSET (254,77):PSET (220,77):PSET(288,75)
  14. 200  PSET (333, 68):PSET (262, 95):PSET (263,113)
  15. 210  LOCATE 1,1:PRINT "JULY EAST"
  16. 220  GOSUB 1500
  17. 280  CLS
  18. 290  PSET (255,1):PSET (288, 12):PSET(299, 29):PSET(269, 32):PSET(325, 44)
  19. 300  PSET (370, 8)
  20. 320  LOCATE 1,1:PRINT"AUGUST EAST"
  21. 410  GOSUB 1500
  22. 460  CLS
  23. 487  LOCATE 1,1:PRINT"IN SEPTEMBER CYGNUS IS DIRECTLY OVERHEAD"
  24. 490  GOSUB 1500
  25. 500  CLS
  26. 510  PSET (312, 77):PSET (344, 43):PSET(358, 30):PSET(375, 52):PSET(423, 48)
  27. 515  PSET (308, 35):PSET(285, 28)
  28. 520  LOCATE 1,1:PRINT "OCTOBER WEST"
  29. 530  GOSUB 1500
  30. 600  CLS
  31. 610  PSET (388,126):PSET (404,88):PSET (363, 88):PSET(331, 80):PSET(415, 73)
  32. 612  PSET (448, 92):PSET (480, 89)
  33. 620  LOCATE 1,1:PRINT"NOVEMBER WEST"
  34. 640  GOSUB 1500
  35. 680  CLS
  36. 690  PSET (460,171):PSET(461,154):PSET(468,130):PSET(474,117):PSET(509,134)
  37. 695  PSET (430,135):PSET(395,131)
  38. 705  LOCATE 1,1:PRINT"DECEMBER WEST"
  39. 750  GOSUB 1500
  40. 760  CLS
  41. 1400  LOCATE 1,1:PRINT "PRESS ANY KEY "
  42. 1450  LOCATE 1,14:INPUT K$
  43. 1490  RUN"STAR3
  44. 1500  REM SUBROUTINE FOR DELAY
  45. 1505  D=1000
  46. 1520  FOR I=1 TO D
  47. 1530  I=I+1
  48. 1540  NEXT I
  49. 1550  RETURN
  50.