---
title: "The Day You Were Born"
type: "article"
slug: "the-day-you-were-born"
url: "http://localhost/article/the-day-you-were-born/"
markdown_url: "http://localhost/article/the-day-you-were-born.md"
published_at: "2026-01-25T14:58:05+00:00"
modified_at: "2026-01-30T20:59:22+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "You enter your date of birth and the computer will tell you on what day of the week you were born and under what sign."
category:
  - name: "Byte Power"
    slug: "byte-power"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/byte-power/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Kristian Boisvert"
    slug: "boisvert-kristian"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-kristian/"
publication_r:
  id: 38570
  title: "Byte Power 1st Class Magazine"
  type: "periodical"
  url: "http://localhost/periodical/byte-power-1st-class/"
authors_r:
  - name: "Kristian Boisvert"
    slug: "boisvert-kristian"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-kristian/"
issues_articles:
  - id: 38572
    title: "Byte Power Sept 1986"
    type: "issue"
    url: "http://localhost/issue/byte-power-2/"
pubdate: "September 1986"
archive_link: true
article_media:
  - id: 63164
    title: "The Day You Were Born"
    type: "computer_media"
    url: "http://localhost/computer_media/the-day-you-were-born/"
---

# The Day You Were Born

You enter your date of birth and the computer will tell you on what day of the week you were born and under what sign.

## Source Code: 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"
```