home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP9.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.7 KB  |  93 lines
  1. 5  REM MAP9
  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,60: INPUT D
  8. 50  SCREEN 2,,0,0
  9. 125  CLS
  10. 130  RESTORE
  11. 150  FOR I=1 TO 156
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 2  GOTO 300
  15. 251  IF D = 3  GOTO 450
  16. 252  IF D = 1  GOTO 500
  17. 253  IF D = 4  GOTO 600
  18. 254  IF D = 0  GOTO 6000
  19. 300  FOR I= 1 TO 30
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="SEP 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 -SEP SOUTH-"
  27. 355  LOCATE 1,70: INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=31 TO  75
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 461  LOCATE 4,41:PRINT CHR$(4)
  34. 462  AA$="SEP WEST"
  35. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  36. 465  LOCATE 1,26:INPUT BB$
  37. 468  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 470
  38. 469  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -SEP WEST-"
  39. 470  LOCATE 1,70: INPUT A$
  40. 480  LOCATE 1,1:RUN
  41. 490  END
  42. 500  FOR I= 76 TO 109
  43. 510  PSET (X(I),Y(I))
  44. 520  NEXT I
  45. 540  AA$="SEP NORTH"
  46. 550  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION__________"
  47. 555  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 -SEP NORTH-"
  50. 580  LOCATE 1,70: INPUT A$
  51. 585  LOCATE 1,1:RUN
  52. 590  END
  53. 600  FOR I=110 TO 156
  54. 610  PSET (X(I),Y(I))
  55. 620  NEXT I
  56. 630  AA$="SEP 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 -SEP 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 354,77,408,68,426,40,381,47,375,52,415,142,418,150,426,140
  69. 5001  DATA 437,145,455,140,457,155,475,159,451,166,236,116,265,132
  70. 5002  DATA 281,135,299,138,335,110,340,106,345,106,132,133,152,134
  71. 5003  DATA 160,119,157,96,210,77,255,90,308,96,177,75
  72. 5004  DATA 183,77,192,73
  73. 5005  DATA 153,81,145,99,130,120,148,133,193,147,227,149,239,149
  74. 5006  DATA 250,161,278,149,294,151,325,152,321,138,318,133,330,133
  75. 5007  DATA 342,134,340,126,208,95,250,111,240,91,261,99,303,87,338,86
  76. 5008  DATA 354,74,335,54,384,50,313,118,320,111,349,92,381,82,422,80
  77. 5009  DATA 370,110,357,115,358,122,365,125,372,126,388,125,395,119
  78. 5010  DATA 360,167,401,168,410,178,407,144,430,147,416,123,448,118
  79. 5011  DATA 459,132
  80. 5012  DATA 131,126,170,128,180,137,200,147,199,159,230,163,242,152
  81. 5013  DATA 256,134,243,122,203,107,176,82,183,74,200,66,227,61
  82. 5014  DATA 274,63,300,50,285,48,269,46,215,37,197,37,186,32,205,28
  83. 5015  DATA 323,96,305,91,287,87,264,88,245,93,237,88,258,80,435,53
  84. 5016  DATA 453,58,444,68,451,75,440,86
  85. 5017  DATA 179,171,182,172,181,174,178,173,179,169,179,175
  86. 5018  DATA 443,134,462,159,418,163,400,166,395,182,420,185,345,185
  87. 5019  DATA 260,110,265,119,275,119,292,121,307,137,330,166,337,153
  88. 5020  DATA 322,151,350,138,362,133,398,103,415,95,417,89,425,100
  89. 5021  DATA 438,94,437,87,445,77,393,66,358,100,340,55,306,81
  90. 5022  DATA 276,94,288,96,296,106,295,111,240,100,236,91,227,82
  91. 5023  DATA 183,107,231,77,232,78,233,79,234,80,235,80
  92. 6000  RUN"RANDOM
  93.