---
title: "Depreciation Program for the 2068"
type: "article"
slug: "depreciation-program-for-the-2068-2"
url: "http://localhost/article/depreciation-program-for-the-2068-2/"
markdown_url: "http://localhost/article/depreciation-program-for-the-2068-2.md"
published_at: "2022-09-14T02:44:25+00:00"
modified_at: "2024-06-11T13:52:36+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
category:
  - name: "LISTing Newsletter"
    slug: "listing-newsletter"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/listing-newsletter/"
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/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Imre Auersbacher"
    slug: "imre-auersbacher"
    taxonomy: "indiv"
    url: "http://localhost/indiv/imre-auersbacher/"
publication_r:
  id: 38992
  title: "LISTing Newsletter"
  type: "periodical"
  url: "http://localhost/periodical/listing-newsletter/"
authors: "Imre Auersbacher"
issues_articles:
  - id: 40217
    title: "LISTing Newsletter October 1998"
    type: "issue"
    url: "http://localhost/issue/listing-newsletter-october-1998/"
pages: "3"
pubdate: "October 1998"
archive_link: false
article_media:
  - id: 55043
    title: "Depreciation Schedule"
    type: "computer_media"
    url: "http://localhost/computer_media/depreciation-schedule/"
---

# Depreciation Program for the 2068

## Source Code: Depreciation Schedule

```
    2 REM  Depreciation Schedule 
    4 REM  \* 1985 I. Auersbacher 
   10 DEF FN a(x)=INT (k*x+0.5)/k
   14 DEF FN a$(x,c$)=c$+(".00" AND x=INT x)+("0" AND ("0"+c$)(LEN c$)=".")
   16 BORDER 5: PAPER 3: LET k=100: CLS : BEEP 0.07,22: GO TO 50
   20 LET y=FN a(y): LET c$=FN a$(y,STR$ y): RETURN 
   25 LET d=(c-s)/l: RETURN 
   30 LET d=2*(c-s)*(l+1-z)/(l*(l+1)): RETURN 
   35 IF z<t THEN LET d=2*(c-s)/l*(1-2/l)^(z-1): RETURN 
   38 LET d=((c-s)*(1-2/l)^(t-1))/(l-t+1): RETURN 
   50 PRINT PAPER 6;AT 2,2;" Depreciation Calculations "; PAPER 7;AT 6,11;" Options ";AT 8,7;"1. Straight-Line   ";AT 9,7;"2. Sum-of-Years    ";AT 10,7;"3. Double-Declining";AT 11,7;"4. Compare methods "
   52 INPUT ; PAPER 7; FLASH 1;"Enter option (1-4): ";x
   54 LET x=INT x: IF (x<1)+(x>4) THEN BEEP 1,-20: GO TO 52
   56 PAPER 7: PRINT PAPER 6;AT 7+x,4;">>": PAUSE 100: CLS 
   60 IF x=1 THEN PRINT PAPER 6;" 1. Straight-Line Depreciation "
   62 IF x=2 THEN PRINT PAPER 6;" 2. Sum-of-Years Digits Method "
   64 IF x=3 THEN PRINT PAPER 6;" 3. Double-Declining-Balance   "
   66 IF x=4 THEN PRINT PAPER 6;" 4. Comparison of all methods  "
   70 PRINT : PRINT "Original Cost: ";: INPUT c: PRINT c
   72 PRINT "Salvage Value: ";: INPUT s: PRINT s: IF (s>=c)+(s<0) THEN BEEP 1,-20: CLS : GO TO 60
   74 PRINT "Lifetime (yr): ";: INPUT l: LET l=ABS l: PRINT l
   76 IF x=4 THEN GO TO 120
   80 PRINT : PRINT "Year  Depreciation   Book Value ": PRINT "\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   90 LET t=INT ((l+1)/2)+1: LET b=c: FOR z=1 TO l: GO SUB 20+5*x
   95 LET b=b-d: LET y=d: GO SUB 20: LET d$=c$: LET y=b: GO SUB 20: LET b$=c$: PRINT TAB 2;z;
  100 PRINT TAB 15-LEN d$;d$;TAB 29-LEN b$;b$: NEXT z: STOP :
  120 PRINT : PRINT "Yr";TAB 4;"Straight";TAB 14;"Sum-of";TAB 23;"Double-": PRINT "#";TAB 5;"-Line";TAB 14;"-Years";TAB 23;"Declining": PRINT "\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
  130 LET t=INT ((l+1)/2)+1
  140 FOR z=1 TO l: GO SUB 25: LET y=d: GO SUB 20: LET s$=c$: GO SUB 30: LET y=d: GO SUB 20: LET b$=c$: GO SUB 35: LET y=d: GO SUB 20: LET d$=c$: PRINT z;
  150 PRINT TAB 11-LEN s$;s$;TAB 21-LEN b$;b$;TAB 31-LEN d$;d$
  160 NEXT z: STOP : STOP 
  200 SAVE "deprec" LINE 10
```