home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  92 lines
  1. 5  REM MAP2
  2. 10  KEY OFF
  3. 11  SCREEN 0
  4. 20  DIM X(200),Y(200)
  5. 25  CLS
  6. 30  PRINT "ENTER A NUMBER FROM 1 TO 4 (0 TO RETURN TO MENU) "
  7. 35  LOCATE 1,50:INPUT D
  8. 50  SCREEN 2,,0,0
  9. 125  CLS
  10. 130  RESTORE
  11. 150  FOR I=1 TO 160
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D= 3 GOTO 300
  15. 251  IF D = 4 GOTO 450
  16. 252  IF D=1 GOTO 500
  17. 253  IF D=2 GOTO 600
  18. 254  IF D = 0 GOTO 6000
  19. 300  FOR I= 1 TO 32
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 335  AA$="FEB SOUTH"
  23. 340  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  24. 342  LOCATE 1,26:INPUT BB$
  25. 344  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 350
  26. 346  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -FEB SOUTH-"
  27. 350  LOCATE 1,70: INPUT A$
  28. 355  LOCATE 1,1:RUN
  29. 360  END
  30. 450  FOR I=33 TO 86
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 465  AA$="FEB WEST"
  34. 468  LOCATE 1,1:PRINT"ENTER MONTH AND DIRECTION___________"
  35. 470  LOCATE 1,26:INPUT BB$
  36. 472  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 478
  37. 474  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -FEB WEST-"
  38. 478  LOCATE 1,70:INPUT A$
  39. 480  LOCATE 1,1:RUN
  40. 490  END
  41. 500  FOR I=87 TO 120
  42. 510  PSET (X(I),Y(I))
  43. 520  NEXT I
  44. 530  AA$="FEB NORTH"
  45. 540  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  46. 545  LOCATE 1,26:INPUT BB$
  47. 550  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 580
  48. 560  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -FEB NORTH-"
  49. 580  LOCATE 1,70: INPUT A$
  50. 585  LOCATE 1,1:RUN
  51. 590  END
  52. 600  FOR I=121 TO 160
  53. 610  PSET (X(I),Y(I))
  54. 620  NEXT I
  55. 630  AA$="FEB EAST"
  56. 640  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  57. 645  LOCATE 1,26:INPUT BB$
  58. 650  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 690
  59. 660  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -FEB EAST-"
  60. 690  LOCATE 1,70: INPUT A$
  61. 695  LOCATE 1,1:RUN
  62. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  63. 1001  FOR I=1 TO 5000
  64. 1002  I=I+1
  65. 1003  NEXT I
  66. 1004  RETURN
  67. 5000  DATA 340,165,305,169,295,164,290,160,289,157,280,161
  68. 5001  DATA 270,165,295,147,298,130,313,133,330,131
  69. 5002  DATA 382,118,417,117,390,99,400,98,403,95,370,78,410,79
  70. 5003  DATA 393,74,395,75,395,73
  71. 5004  DATA 310,60,320,55,332,45,350,40,295,44,313,36,247,23,265,14
  72. 5005  DATA 315,13,273,39,273,55,225,194,205,180,242,180,220,169
  73. 5006  DATA 233,146,232,133,241,128,232,118,340,193,315,177,315,169,292,160
  74. 5007  DATA 280,155,267,149,295,149,332,149,363,147,374,139,375,130
  75. 5008  DATA 385,133,393,134,320,130,331,125,333,119,230,98,228,92,225,82
  76. 5009  DATA 224,78,195,85,228,70,227,58,245,60,235,17,270,22,275,79
  77. 5010  DATA 277,76,280,80,281,78,282,76,285,78,380,180,482,182,440,161
  78. 5011  DATA 425,142,410,142,395,150,386,148,425,126,445,125,415,95
  79. 5012  DATA 465,125,168,120,473,119,471,122
  80. 5013  DATA 195,76,175,80,180,92,160,98,169,106,310,95,317,104
  81. 5014  DATA 330,110,350,115,355,125,373,124,373,114,495,133,475,118
  82. 5015  DATA 472,104,460,90,475,82,455,62,433,68,400,77,400,90,420,115
  83. 5016  DATA 422,130,417,148,400,149,385,151,350,151,317,136,280,140
  84. 5017  DATA 295,147,340,163,340,183,356,180,353,170
  85. 5020  DATA 215,172,170,155,200,135,205,138,204,140,205,142,209,145
  86. 5021  DATA 212,145,214,142,212,140,210,139,210,140,212,142
  87. 5022  DATA 488,188,445,155,453,133,465,105,435,104,437,82,435,70
  88. 5023  DATA 440,62,450,60,455,64,445,66,394,73,385,60,375,52,340,50
  89. 5024  DATA 325,78,310,81,315,92,316,95,322,100,345,97,362,102
  90. 5025  DATA 383,92,365,115,290,120,310,125,285,142
  91. 6000  RUN"RANDOM"
  92.