home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP6.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.8 KB  |  93 lines
  1. 5  REM MAP6
  2. 10  KEY OFF
  3. 11  SCREEN 0
  4. 20  DIM X(200),Y(200)
  5. 25  CLS
  6. 30  PRINT "ENTER 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 175
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 4  GOTO 300
  15. 251  IF D = 3  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 39
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="JUN SOUTH"
  23. 342  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  24. 344  LOCATE 1,26:INPUT BB$
  25. 346  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 355
  26. 348  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -JUN SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=40 TO 89
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 462  AA$="JUN WEST"
  34. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  35. 465  LOCATE 1,26:INPUT BB$
  36. 466  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 470
  37. 467  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -JUN WEST-"
  38. 470  LOCATE 1,70: INPUT A$
  39. 480  LOCATE 1,1:RUN
  40. 490  END
  41. 500  FOR I=90 TO 127
  42. 510  PSET (X(I),Y(I))
  43. 520  NEXT I
  44. 540  AA$="JUN NORTH"
  45. 550  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  46. 555  LOCATE 1,26:INPUT BB$
  47. 560  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 580
  48. 570  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -JUN NORTH-"
  49. 580  LOCATE 1,70: INPUT A$
  50. 585  LOCATE 1,1:RUN
  51. 590  END
  52. 600  FOR I=128 TO 175
  53. 610  PSET (X(I),Y(I))
  54. 620  NEXT I
  55. 625  LOCATE 9,30:PRINT CHR$(4)
  56. 630  AA$="JUN 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 -JUN EAST-"
  61. 690  LOCATE 1,70:INPUT A$
  62. 695  LOCATE 1,1:RUN
  63. 1000  REM SUBROUTINE TO DELAY SCREEN LABELS
  64. 1001  FOR I=1 TO 5000
  65. 1002  I=I+1
  66. 1003  NEXT I
  67. 1004  RETURN
  68. 5000  DATA 225,3,232,6,240,7,250,6,256,2,220,17,239,21,230,25,218,32
  69. 5001  DATA 232,33,248,46,238,57,225,61,230,81,202,81,273,93,255,107
  70. 5002  DATA 303,112,287,134,208,120,217,121,225,128,227,136,228,144
  71. 5003  DATA 207,136,195,140,187,145,181,164,184,177,190,176,195,186
  72. 5004  DATA 435,44,442,63,452,75,413,98,392,74,350,135,405,130,508,160
  73. 5005  DATA 368,3,405,7,415,15,427,26,481,33,467,45,425,40,225,30,280,25
  74. 5006  DATA 295,50,288,48,287,50,288,51,291,52,285,48,286,51,285,53
  75. 5007  DATA 280,50,284,53,248,81,271,100,296,92,325,118,335,118,355,120
  76. 5008  DATA 356,122,324,127,305,134,312,150,272,125,359,128,177,148
  77. 5009  DATA 182,158,212,161,251,177,268,165,305,171,325,175,332,181
  78. 5010  DATA 333,190,322,187,345,166,380,161,395,157,418,145,453,183
  79. 5011  DATA 463,165,480,163,495,172,496,194
  80. 5012  DATA 280,3,270,17,255,22,233,32,208,29,195,47,215,54,251,64
  81. 5013  DATA 272,60,304,39,360,27,379,30,380,40,393,52,388,75,415,89
  82. 5014  DATA 425,78,440,35,450,28,470,32,458,40,320,100,340,93
  83. 5015  DATA 348,82,345,70,357,66,340,55,328,63,358,118,405,108
  84. 5016  DATA 407,130,452,133,445,110,335,159,358,165,373,160,388,166,400,156
  85. 5017  DATA 347,10,358,8,370,10,371,16,371,19,363,25,346,24,392,28
  86. 5018  DATA 399,18,409,22,420,29,424,21,448,13,470,18,482,25
  87. 5019  DATA 262,22,292,37,322,42,374,44,393,40,238,52,290,51,320,50
  88. 5020  DATA 340,64,393,74,268,68,160,82,173,102,172,121,180,138
  89. 5021  DATA 138,119,208,120,252,120,325,127,308,150,355,150,311,155
  90. 5022  DATA 320,160,337,175,370,135,415,125,453,123,495,118,505,105
  91. 5023  DATA 485,70,420,73,389,83,411,98
  92. 6000  RUN "RANDOM
  93.