home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / EDUCNOMY / STARMAP / MAP5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-04  |  2.5 KB  |  90 lines
  1. 5  REM MAP5
  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 147
  12. 155  READ X(I),Y(I)
  13. 160  NEXT I
  14. 250  IF D = 2 GOTO 300
  15. 251  IF D = 1 GOTO 450
  16. 252  IF D = 4 GOTO 500
  17. 253  IF D = 3 GOTO 600
  18. 254  IF D = 0 GOTO 6000
  19. 300  FOR I= 1 TO 35
  20. 320  PSET (X(I),Y(I))
  21. 330  NEXT I
  22. 340  AA$="MAY SOUTH"
  23. 344  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  24. 346  LOCATE 1,26:INPUT BB$
  25. 348  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 355
  26. 350  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -MAY SOUTH-"
  27. 355  LOCATE 1,70:INPUT A$
  28. 360  LOCATE 1,1:RUN
  29. 440  END
  30. 450  FOR I=36 TO 66
  31. 455  PSET (X(I),Y(I))
  32. 460  NEXT I
  33. 462  AA$="MAY WEST"
  34. 464  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  35. 466  LOCATE 1,26:INPUT BB$
  36. 468  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 470
  37. 469  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -MAY WEST-"
  38. 470  LOCATE 1,70:INPUT A$
  39. 480  LOCATE 1,1:RUN
  40. 490  END
  41. 500  FOR I=67 TO 101
  42. 510  PSET (X(I),Y(I))
  43. 520  NEXT I
  44. 540  AA$="MAY 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 -MAY NORTH-"
  49. 580  LOCATE 1,70: INPUT A$
  50. 585  LOCATE 1,1:RUN
  51. 590  END
  52. 600  FOR I=102 TO 147
  53. 610  PSET (X(I),Y(I))
  54. 620  NEXT I
  55. 625  LOCATE 14,22:PRINT CHR$(4)
  56. 630  AA$="MAY EAST"
  57. 640  LOCATE 1,1:PRINT "ENTER MONTH AND DIRECTION_________"
  58. 645  LOCATE 1,26:INPUT BB$
  59. 650  IF BB$=AA$ THEN LOCATE 1,50:PRINT "CORRECT":GOTO 690
  60. 660  IF BB$<>AA$ THEN LOCATE 1,50:PRINT "SORRY -MAY 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 153,142,165,121,130,106,121,123,212,138,268,133,377,151
  69. 5001  DATA 441,115,466,119,482,108,509,107,255,103,245,75,290,67,283,48
  70. 5002  DATA 305,75,335,75,368,70,368,38,410,33,409,17,465,13,466,3
  71. 5003  DATA 490,15,496,22,475,40,268,30,270,3,320,5,317,9,319,9
  72. 5004  DATA 321,9,318,11,320,11,319,13
  73. 5005  DATA 357,190,380,169,415,167,408,165,380,152,405,152,376,122
  74. 5006  DATA 395,120,435,134,370,141,355,150,135,105,174,118,189,105
  75. 5007  DATA 224,110,250,117,258,121,257,127,246,128,243,124,233,89
  76. 5008  DATA 229,74,194,61,245,70,255,60,271,60,290,66,289,74
  77. 5009  DATA 211,31,241,29,203,10
  78. 5010  DATA 278,160,285,168,305,167,314,178,331,170,312,97,340,98
  79. 5011  DATA 358,93,362,80,377,80,358,69,374,67,290,51,315,53,362,43
  80. 5012  DATA 419,46,435,54,430,63,427,78,396,97,405,115,425,110,472,88
  81. 5013  DATA 469,76,490,77,495,84,505,75,510,82,374,8,368,19,329,20
  82. 5014  DATA 301,21,285,15,257,25,267,38
  83. 5015  DATA 302,193,346,185,390,184,428,180,445,167,444,144,433,128
  84. 5016  DATA 432,124,444,110,415,104,413,96,403,88,379,88,365,88,353,88
  85. 5017  DATA 375,96,360,82,353,135,345,156,324,141,242,100,325,101
  86. 5018  DATA 278,93,266,103,278,115,264,90,247,85,225,63,237,101,208,115
  87. 5019  DATA 182,96,318,63,329,64,338,70,337,75,332,79,320,81,309,78
  88. 5020  DATA 411,25,396,39,420,50,345,38,355,49,315,55,310,35,290,43
  89. 6000  RUN "RANDOM
  90.