The Day You Were Born

2 CLS : PRINT AT 8,5;"The Day You Were Born";AT 10,2;"Written by KRISTIAN BOISVERT";AT 12,8;"©1986 BYTE POWER"
    3 IF PEEK 23681=0 THEN PRINT AT 15,0;: LIST 9999: STOP 
   10 INPUT "Day of birth:";j: IF j>31 OR j<1 THEN GO TO 10
   11 INPUT "Month of birth:";ms: IF ms<1 OR ms>12 THEN GO TO 11
   12 LET m=ms-2: IF ms<=2 THEN GO TO 2000
   15 INPUT "Year of birth:"; LINE a$: IF LEN a$<>4 THEN GO TO 15
   16 GO TO 3000
   20 CLS 
   30 PRINT AT 5,0;"Your sign is:";: GO TO ms*100+j
  119 PRINT TAB 13;"Capricorn"
  217 PRINT TAB 13;"Aquarius"
  320 PRINT TAB 13;"Pisces"
  419 PRINT TAB 13;"Aries"
  520 PRINT TAB 13;"Taurus"
  620 PRINT TAB 13;"Gemini"
  722 PRINT TAB 13;"Cancer"
  822 PRINT TAB 13;"Leo"
  922 PRINT TAB 13;"Virgo"
 1022 PRINT TAB 13;"Libra"
 1121 PRINT TAB 13;"Scorpio"
 1221 PRINT TAB 13;"Sagittarius"
 1250 PRINT TAB 13;"Capricorn"
 1300 FOR x=6 TO 17: PRINT AT x,13;"           ": PAUSE 10: NEXT x
 1310 PRINT AT 7,0;"And you were born on a ";
 1320 IF z=0 THEN PRINT "SUNDAY"
 1321 IF z=1 THEN PRINT "MONDAY"
 1322 IF z=2 THEN PRINT "TUESDAY"
 1323 IF z=3 THEN PRINT "WEDNESDAY"
 1324 IF z=4 THEN PRINT "THURSDAY"
 1325 IF z=5 THEN PRINT "FRIDAY"
 1326 IF z=6 THEN PRINT "SATURDAY"
 1330 INPUT "Another? "; LINE q$: IF q$="n" OR q$="N" THEN STOP 
 1340 RUN 
 2000 LET m=ms+10
 2010 INPUT "Year of birth -1:"; LINE a$: IF LEN a$<>4 THEN GO TO 2010
 3000 CLS 
 3010 LET c=VAL a$(1 TO 2)
 3020 LET a=VAL a$(3 TO 4)
 3030 LET x=INT (2.6*m-.199)+j+a+INT (a/4)+INT (c/4)-2*c
 3040 LET z=INT x-7*INT (x/7)
 3060 GO TO 18
 9999 SAVE "THE DAY" LINE 1: VERIFY "THE DAY"