---
title: "The Qualifier"
type: "article"
slug: "the-qualifier"
url: "http://localhost/article/the-qualifier/"
markdown_url: "http://localhost/article/the-qualifier.md"
published_at: "2026-01-25T20:35:30+00:00"
modified_at: "2026-01-25T20:54:44+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "This program will let you analyse the range of homes you can afford depending on the data given to the computer. Just enter the maximum down payment, the maximum monthly payment, the interest rate and the term of repayment (years). The computer will then give you the maximum price you can afford for a home."
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: 38577
    title: "Byte Power Spring 1987"
    type: "issue"
    url: "http://localhost/issue/byte-power-7/"
pubdate: "Spring 1987"
archive_link: true
article_media:
  - id: 63125
    title: "The Qualifier"
    type: "computer_media"
    url: "http://localhost/computer_media/the-qualifier/"
---

# The Qualifier

This program will let you analyse the range of homes you can afford depending on the data given to the computer.

Just enter the maximum down payment, the maximum monthly payment, the interest rate and the term of repayment (years). The computer will then give you the maximum price you can afford for a home.

## Source Code: The Qualifier

```
    0 
    1 REM QUALIFIER (HOMES)
    2 REM RESET 1987 BYTE POWER
    3 REM BY K. BOISVERT
    4 
   20 GO SUB 2000
   30 PRINT AT 5,0;"Maximum down payment:";
   40 INPUT "Max:";down: IF down<0 THEN GO TO 40
   41 PRINT "$";down
   60 PRINT AT 7,0;"Max. monthly payment:";
   70 INPUT "Max:";month: IF month<0 THEN GO TO 70
   71 PRINT "$";month
   80 PRINT AT 9,0;"Interest rate:";
   90 INPUT "Interest:";rate: IF rate<.001 OR rate>100 THEN GO TO 90
   91 PRINT rate;"%"
   95 LET rate=rate/100: PRINT AT 11,0;"In how many years (30 max):";
   96 INPUT "Year(s):";ye
   97 LET ye=INT ye: IF ye<1 OR ye>30 THEN GO TO 96
   98 PRINT ye
  100 LET f1=(1-((1+(rate/12))^-(12*ye)))
  110 LET f2=f1/(rate/12)
  120 LET lamount=month*f2: LET lamount=INT (lamount/100)*100
  140 LET price=lamount+down: LET price=INT ((price+.5)*100/100)
  150 CLS : GO SUB 2000: PRINT AT 5,0;"You can afford homes that are   selling for:";
  155 PRINT INVERSE 1;"$";price
  160 PRINT '"Mortgage of $";lamount
  190 PRINT '"Down payment of $";down
  200 PRINT '"Monthly payments of $";month
  220 PRINT '"For a period of ";ye;" year"+("s" AND ye>1)
  230 PRINT '"At an interest of ";rate*100;"%"
  240 PRINT AT 20,0;"'RUN' TO GO BACK TO PROGRAM"
 1999 STOP 
 2000 PLOT 65,156: DRAW 116,0: DRAW 0,14: DRAW -116,0: DRAW 0,-14
 2001 PLOT 68,158: DRAW 110,0: DRAW 0,10: DRAW -110,0: DRAW 0,-10: PRINT AT 1,9;"The Qualifier"
 2010 RETURN 
 9999 SAVE "QUALIFIER" LINE 1
```