Play and Learn 2/19941.ZIP/19941/EDUCNOMY/STARMAP/OCTMAP.BAS

GW-BASIC | 1994-02-04 | 2.9 KB | 101 lines

5  REM MAP FOR OCTOBER SKY
10  KEY OFF
11  SCREEN 0
20  DIM X(200),Y(200)
25  CLS
30  PRINT "ENTER DIRECTION YOU ARE FACING (N S E W) OR X FOR NEW MONTH"
32  PRINT "    FOLLOW DIRECTIONAL KEY WITH N OR n TO OMIT LABELS "
35  LOCATE 1,60: INPUT D$
50  SCREEN 2,,0,0
125  CLS
130  RESTORE
150  FOR I=1 TO 169
155  READ X(I),Y(I)
160  NEXT I
250  IF D$="S" OR D$="s" OR D$= "SN" OR D$= "sn" GOTO 300
251  IF D$="W" OR D$="w" OR D$= "WN" OR D$= "wn" GOTO 450
252  IF D$="N" OR D$="n" OR D$= "NN" OR D$= "nn" GOTO 500
253  IF D$="E" OR D$="e" OR D$= "EN" OR D$= "en" GOTO 600
254  IF D$="X" OR D$="x" GOTO 6000
300  FOR I= 1 TO 37
320  PSET (X(I),Y(I))
330  NEXT I
340  GOSUB 1000
342  IF D$= "SN" OR D$= "sn" THEN GOTO 355
344  LOCATE 20,60 :PRINT "CAPRICORNUS"
345  LOCATE 15,27 :PRINT "AQUARIUS"
346  LOCATE 9,22 :PRINT "PISCES"
348  LOCATE 4,50 :PRINT "PEGASUS"
355  LOCATE 25,1: INPUT A$
360  LOCATE 1,1:RUN
440  END
450  FOR I=38 TO  76
455  PSET (X(I),Y(I))
458  NEXT I
460  LOCATE 10,49:PRINT CHR$(4)
461  GOSUB 1000
462  IF D$ = "WN" OR D$= "wn" THEN GOTO 470
463  LOCATE 10,53:PRINT "VEGA"
464  LOCATE 23,56:PRINT "CORONA BOREALIS"
465  LOCATE 15,65:PRINT "HERCULES"
466  LOCATE 23,35:PRINT "OPHIUCHUS"
467  LOCATE 21,20:PRINT "SERPENS"
468  LOCATE 8,20:PRINT "AQUILA"
469  LOCATE 4,53:PRINT "CYGNUS"
470  LOCATE 25,1: INPUT A$
480  LOCATE 1,1:RUN
490  END
500  FOR I= 77 TO 114
510  PSET (X(I),Y(I))
520  NEXT I
540  GOSUB 1000
545  IF D$= "NN" OR D$= "nn" THEN GOTO 580
550  LOCATE 5,55:PRINT "CASSIOPEIA"
551  LOCATE 20,41:PRINT "URSA MAJOR"
552  LOCATE 12,42:PRINT "URSA MINOR"
553  LOCATE 7,19 :PRINT "DRACO"
554  LOCATE 3,25 :PRINT "CEPHEUS"
580  LOCATE 25,1: INPUT A$
585  LOCATE 1,1:RUN
590  END
600  FOR I=115 TO 169
610  PSET (X(I),Y(I))
620  NEXT I
630  GOSUB 1000
635  IF D$= "EN" OR D$= "en" THEN GOTO 690
640  LOCATE 18,54:PRINT "CETUS"
641  LOCATE  5,65:PRINT "PISCES"
642  LOCATE 4,23:PRINT "ANDROMEDA"
643  LOCATE 24,30:PRINT "TAURUS"
644  LOCATE 14,30:PRINT "PLEIADES"
690  LOCATE 25,1: INPUT A$
695  LOCATE 1,1:RUN
1000  REM SUBROUTINE TO DELAY SCREEN LABELS
1001  FOR I=1 TO 5000
1002  I=I+1
1003  NEXT I
1004  RETURN
5000  DATA 367,119,398,134,415,140,427,148,477,119,479,114,484,115,270,125
5001  DATA 285,128,302,118,358,78,396,93,450,100,335,80,330,77,318,78,333,74
5002  DATA 141,44,230,60,244,62,261,59,240,71,256,74,270,70,290,66,220,1
5003  DATA 208,32,296,41,294,9,315,3,306,17,355,14,385,13,317,49,354,62
5004  DATA 384,53,303,95
5005  DATA 459,153,451,157,452,161,458,166,465,168,475,167,482,162
5006  DATA 405,168,410,159,435,140,452,129,463,126,498,122,348,151,385,137
5007  DATA 420,133,432,120,410,106,450,94,243,118,245,149,233,164,216,185
5008  DATA 329,168,293,153,198,125,215,107,269,106,227,89,213,88,170,87
5009  DATA 312,77,344,43,358,30,375,52,423,48,308,35,285,28,328,148
5010  DATA 371,29,393,29,394,43,416,44,414,57,302,22,325,40,332,72,290,57
5011  DATA 271,37,149,75,156,69,170,73,160,78,238,64,256,62,241,79
5012  DATA 204,89,185,104,180,117,182,125,230,123,274,138,295,145,182,166
5013  DATA 209,158,236,164,258,167,261,178,298,177,299,164,318,95,302,93
5014  DATA 278,95,258,103,244,102,242,111,255,111
5015  DATA 359,138,371,131,387,134,415,125,465,120,486,123,470,102,492,100
5016  DATA 484,2,466,8,495,8,469,17,490,18,465,22,456,49,430,71,416,78
5017  DATA 402,94,396,111,386,93,375,78,340,65,325,65,320,60,414,36,346,29
5018  DATA 333,41,355,51,356,53,294,51,242,62,288,39,279,36,276,32,277,33
5019  DATA 278,37,279,35,280,35,323,148,309,165,295,154,265,155,258,153
5020  DATA 254,154,244,153,246,162,257,158,168,160,188,177,244,124,245,126
5021  DATA 244,128,242,129,249,125,248,127
6000  RUN "MAINSTAR