home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  92 lines
  1. 5  REM MAP1
  2. 10  KEY OFF
  3. 11  SCREEN 0
  4. 20  DIM X(200),Y(200)
  5. 22  DIM AA$(12),BB$(12)
  6. 25  CLS
  7. 30  PRINT "ENTER A NUMBER FROM 1 TO 4 (0 TO RETURN TO MENU)"
  8. 35  LOCATE 1,50:INPUT D
  9. 50  SCREEN 2,,0,0
  10. 125  CLS
  11. 130  RESTORE
  12. 150  FOR I=1 TO 156
  13. 155  READ X(I),Y(I)
  14. 160  NEXT I
  15. 250  IF D= 2 GOTO 300
  16. 251  IF D= 1 GOTO 450
  17. 252  IF D= 4 GOTO 500
  18. 253  IF D= 3 GOTO 600
  19. 254  IF D= 0 GOTO 6000
  20. 300  FOR I= 1 TO 37
  21. 320  PSET (X(I),Y(I))
  22. 330  NEXT I
  23. 340  AA$="JAN SOUTH"
  24. 360  LOCATE  1,1:PRINT "ENTER MONTH AND DIRECTION___________"
  25. 370  LOCATE  1,26:INPUT BB$
  26. 380  IF BB$= AA$ THEN LOCATE  1,50:PRINT "CORRECT": GOTO 415
  27. 410  IF AA$ <> BB$ THEN LOCATE  1,50:PRINT "SORRY - JAN SOUTH -"
  28. 415  LOCATE 1,70:INPUT A$
  29. 420  LOCATE 1,1:RUN
  30. 440  END
  31. 450  FOR I=38 TO 91
  32. 455  PSET (X(I),Y(I))
  33. 460  NEXT I
  34. 462  AA$="JAN WEST"
  35. 464  LOCATE 1 ,1:PRINT "ENTER MONTH AND DIRECTION __________"
  36. 466  LOCATE  1,26:INPUT BB$
  37. 468  IF BB$=AA$ THEN LOCATE  1,50:PRINT "CORRECT":GOTO 475
  38. 470  IF BB$<>AA$ THEN LOCATE  1,50:PRINT "SORRY -JAN WEST-"
  39. 475  LOCATE  1,70: INPUT A$
  40. 480  LOCATE 1,1:RUN
  41. 490  END
  42. 500  FOR I=91 TO 123
  43. 510  PSET (X(I),Y(I))
  44. 520  NEXT I
  45. 530  AA$="JAN NORTH"
  46. 540  LOCATE  1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  47. 550  LOCATE  1,26:INPUT BB$
  48. 560  IF BB$=AA$ THEN LOCATE  1,50:PRINT "CORRECT":GOTO 580
  49. 570  IF BB$<>AA$ THEN LOCATE  1,50:PRINT "SORRY -JAN NORTH"
  50. 580  LOCATE 1,70:INPUT A$
  51. 585  LOCATE 1,1:RUN
  52. 590  END
  53. 600  FOR I=124 TO 156
  54. 610  PSET (X(I),Y(I))
  55. 620  NEXT I
  56. 630  AA$="JAN EAST"
  57. 640  LOCATE  1,1:PRINT "ENTER MONTH AND DIRECTION _________"
  58. 650  LOCATE  1,26:INPUT BB$
  59. 660  IF BB$=AA$ THEN LOCATE  1,50:PRINT "CORRECT":GOTO 690
  60. 670  IF BB$<>AA$ THEN LOCATE 1 ,50:PRINT "SORRY -JAN EAST-"
  61. 690  LOCATE 1 ,70:INPUT A$
  62. 695  LOCATE 1,1:RUN
  63. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS FOR SPECIFIED TIME
  64. 1001  FOR I=1 TO 5000
  65. 1002  I=I+1
  66. 1003  NEXT I
  67. 1004  RETURN
  68. 5000  DATA 150,125,175,131,195,135,170,140,165,150,160,160
  69. 5001  DATA 140,170,170,170,180,175,200,165
  70. 5002  DATA 235,112,275,112,245,95,265,95,230,72,267,76,255,68
  71. 5003  DATA 210,67,195,62,210,57,240,98
  72. 5004  DATA 245,38,268,20,325,52,335,45,335,55,345,50,348,60,360,65
  73. 5005  DATA 360,75,415,70,380,30,382,29,384,28,382,33,386,32,388,30
  74. 5006  DATA 210,165,150,160,160,137,122,128,165,128,135,115,140,98,145,85
  75. 5007  DATA 165,82,160,72,315,185,300,175,273,172,273,165,311,155,303,163
  76. 5008  DATA 285,155,235,128,235,103,205,100,180,95,222,97,250,98,290,100
  77. 5009  DATA 305,95,310,87,320,70,250,82,260,80,265,72,345,188,350,172
  78. 5010  DATA 345,165,390,150,388,162,425,169,410,152,445,155,305,140,355,125
  79. 5011  DATA 345,103,330,105,315,108,310,105,345,85,350,55,365,90,385,88
  80. 5012  DATA 388,90,390,88,392,86,394,84,396,82
  81. 5013  DATA 169,68,160,52,200,58,200,50,225,50,262,184,250,182
  82. 5014  DATA 286,175,255,172,240,140,238,128,270,135,285,155,310,165
  83. 5015  DATA 332,170,355,170,375,145,390,120,405,110,332,137,310,135
  84. 5016  DATA 340,130,315,128,305,120,300,110,300,95,425,170,420,155
  85. 5017  DATA 435,147,440,133,465,130,465,110,440,107
  86. 5020  DATA 208,195,235,183,213,172,287,156,272,151,248,151,242,147
  87. 5021  DATA 244,135,260,132,330,130,320,118,310,110,284,107
  88. 5022  DATA 400,193,396,170,355,167,365,150,360,135,370,129,375,133
  89. 5023  DATA 380,131,375,125,315,45,310,63,325,75,363,70,375,80
  90. 5024  DATA 370,63,415,52,419,60,350,52,388,45,386,34
  91. 6000  RUN "RANDOM
  92.