---
title: "2068 Tape Labels"
type: "article"
slug: "2068-tape-labels-2"
url: "http://localhost/article/2068-tape-labels-2/"
markdown_url: "http://localhost/article/2068-tape-labels-2.md"
published_at: "2024-07-05T13:40:49+00:00"
modified_at: "2025-01-25T20:45:29+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "Program for printing J-cards for cassettes."
category:
  - name: "The Data Expansion"
    slug: "the-data-expansion"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/the-data-expansion/"
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: "James DuPuy"
    slug: "james-dupuy"
    taxonomy: "indiv"
    url: "http://localhost/indiv/james-dupuy/"
publication_r:
  id: 50143
  title: "The Data Expansion"
  type: "periodical"
  url: "http://localhost/periodical/the-data-expansion/"
authors: "James Dupuy"
volume: "4"
issue: "12"
issues_articles:
  - id: 50240
    title: "The D/FW Data Expansion v4 n12"
    type: "issue"
    url: "http://localhost/issue/the-data-expansion-v4-n12/"
pages: "12-14"
pubdate: "December 1987"
archive_link: false
article_media:
  - id: 53852
    title: "Tape Label"
    type: "computer_media"
    url: "http://localhost/computer_media/tape-label/"
---

# 2068 Tape Labels

Program for printing J-cards for cassettes.

## Source Code: Tape Label

```
   10 REM TAPE LABEL by James G.          Dupuy 02-05-85   FROM           ZX-APPEAL Oct/Nov '87           Entered into library            and programming                 finished from                   incomplete listing by           Anthony Willing
   12 PRINT AT 10,0;" STOP TAPE AND TURN ON PRINTER!!"
   13 BEEP .5,30
   14 PRINT AT 14,0;" Press ENTER to Start."
   15 POKE 23609,20
   16 PRINT AT 16,0;"To skip to side B or to skip    side B, just enter ""STOP"" by    holding the Sym.Shift and press the ""A"" key at the program      title prompts."
   17 INPUT Z$
   20 BORDER 6: BRIGHT 1: CLS 
   30 DIM N$(10)
   35 PRINT AT 0,0;"\ .\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\. ";AT 1,0;"\ :";TAB 31;"\ :"
   40 PRINT AT 2,0;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::";AT 20,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   50 FOR N=3 TO 19
   60 PRINT AT N,0;"\: ";AT N,15;"\ :";AT N,31;"\ :"
   70 NEXT N
   80 PRINT AT 3,4;"Side:A";AT 3,20;"Side:B"
   85 FOR n=5 TO 19
   90 PRINT AT n,1;"______________";AT n,16;"_______________"
  100 NEXT n
  120 PRINT AT 21,2; FLASH 1;"Enter Tape Title or Number."
  130 INPUT a$: IF a$="" THEN GO TO 130
  135 PRINT AT 1,2;a$
  140 LET o=1
  150 FOR n=5 TO 19
  155 PRINT AT 21,0;"                                "
  160 PRINT AT 21,0; FLASH 1;"Enter Title for Side A #:";o
  170 INPUT n$: IF n$=" STOP          " THEN GO TO 210
  178 PRINT AT n,1; OVER 1;n$
  180 PRINT AT 21,0; FLASH 1;"Enter Index Number for #:";o
  185 INPUT i$
  190 PRINT AT n,11; OVER 1;">";i$
  192 INPUT "OK (ENT/N)  ";Z$: IF Z$="N" OR Z$="n" THEN PRINT AT N,1; OVER 1;N$;AT N,11; OVER 1;">";I$: GO TO 155
  195 LET o=o+1
  200 NEXT n
  210 LET o=1
  215 FOR n=5 TO 19
  220 PRINT AT 21,0;"                                "
  230 PRINT AT 21,0; FLASH 1;"Enter Title for Side B #:";o
  240 INPUT n$: IF n$=" STOP          " THEN GO TO 295
  245 PRINT AT n,16; OVER 1;n$
  250 PRINT AT 21,0; FLASH 1;"Enter Index Number for #:";o
  260 INPUT i$
  270 PRINT AT n,27; OVER 1;">";i$
  272 INPUT "OK (ENT/N)  ";Z$: IF Z$="N" OR Z$="n" THEN PRINT AT N,16; OVER 1;N$;AT N,27; OVER 1;">";I$: GO TO 220
  280 LET o=o+1
  290 NEXT n
  300 PRINT AT 21,0;"                                "
  310 STOP 
  320 SAVE "TapeLabel" LINE 1
```