---
title: "Inventory"
type: "article"
slug: "inventory-2"
url: "http://localhost/article/inventory-2/"
markdown_url: "http://localhost/article/inventory-2.md"
published_at: "2026-01-25T21:18:47+00:00"
modified_at: "2026-01-30T21:40:22+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "This program will keep track of what is valuable in your house. Up to 60 items, their value, how many you have and a comment. Data can be printed on full-size printer or TS2040. Load driver at around 64000."
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: 38576
    title: "Byte Power Feb 1987"
    type: "issue"
    url: "http://localhost/issue/byte-power-6/"
pubdate: "February 1987"
archive_link: true
article_media:
  - id: 63199
    title: "Inventory"
    type: "computer_media"
    url: "http://localhost/computer_media/inventory-2/"
---

# Inventory

This program will keep track of what is valuable in your house. Up to 60 items, their value, how many you have and a comment.

Data can be printed on full-size printer or TS2040. Load driver at around 64000.

## Source Code: Inventory

```
 0 REM                                                         INVENTORY                       WRITTEN BY KRISTIAN BOISVERT    ©1986 BYTE POWER                     
    1 
    2 REM                                                         PRINT DRIVER SHOULD BE BETWEEN  30000 & 49999 OR BETWEEN 58000  & 65535!                            
    9 CLEAR 49999
   10 PRINT AT 0,0;: RANDOMIZE USR 50900
   20 GO TO PEEK 65535
   50 REM LOAD
   55 GO SUB 8000
   60 LOAD A$CODE 55213
   70 CLS : PRINT AT 0,0;: RANDOMIZE USR 51903
   75 GO TO PEEK 65535
  100 REM SAVE
  110 GO SUB 8000
  120 IF A$="" THEN GO TO 110
  130 SAVE A$CODE 55213,2738
  140 PRINT AT 21,0;"REWIND TAPE TO VERIFY ";A$: VERIFY A$CODE 
  150 GO TO 70
  200 REM QUIT
  210 CLEAR 65535: NEW 
 8000 REM GET STRING
 8010 INPUT "FILE NAME:"; LINE A$: IF LEN A$>10 THEN GO TO 8010
 8020 RETURN 
 9000 INK 0: PAPER 7: BORDER 7: CLS : PRINT AT 8,11;"INVENTORY";AT 10,2;"WRITTEN BY KRISTIAN BOISVERT";AT 12,8;"©1986 BYTE POWER";AT 20,0;"STILL LOADING...": INK 7: PRINT AT 15,0;: LOAD ""CODE : INK 0
 9010 IF PEEK 23681=0 THEN PRINT AT 15,0;: LIST 9999: STOP 
 9020 GO TO 10
 9999 SAVE "INVENTORY" LINE 9000: SAVE "INVENTORY"CODE 5E4,5213: VERIFY "INVENTORY": VERIFY "INVENTORY"CODE
```