---
title: "Mailing List"
type: "article"
slug: "mailing-list-2"
url: "http://localhost/article/mailing-list-2/"
markdown_url: "http://localhost/article/mailing-list-2.md"
published_at: "2026-01-25T21:21:49+00:00"
modified_at: "2026-06-21T23:26:54+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "This program will let you keep names of members of your user group, friends, etc and allow you to print them on labels (FULL-SIZE PRINTERS) To control MAIN MENU cursor, use 6-DOWN, 7-UP and ENTER-select option MAIN MENU ENTER NAME: Lets you enter a name, if the name you entered was already in file then…"
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: "Full Text"
    slug: "fulltext"
    taxonomy: "post_tag"
    url: "http://localhost/tag/fulltext/"
  - 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: "Eric Boisvert"
    slug: "boisvert-eric"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-eric/"
publication_r:
  id: 38570
  title: "Byte Power 1st Class Magazine"
  type: "periodical"
  url: "http://localhost/periodical/byte-power-1st-class/"
authors_r:
  - name: "Eric Boisvert"
    slug: "boisvert-eric"
    taxonomy: "indiv"
    url: "http://localhost/indiv/boisvert-eric/"
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: 63203
    title: "Mailing List"
    type: "computer_media"
    url: "http://localhost/computer_media/mailing-list/"
---

# Mailing List

This program will let you keep names of members of your user group, friends, etc and allow you to print them on labels (FULL-SIZE PRINTERS)

To control MAIN MENU cursor, use 6-DOWN, 7-UP and ENTER-select option

MAIN MENU

ENTER NAME: Lets you enter a name, if the name you entered was already in file then the computer will edit it so you can modify whatever you want. You have 8 topics (NAME, ADDRESS, CITY, STATE, ZIP CODE, PHONE NUMBER, a blank line and NOTE)–

These topics can be modified by choosing option E of FILES MENU.

PRINT LABELS: This option will let you print one or more names on the screen or on the printer.

- A. Print all: will print all names in file.
- B. Print one name: will let you print a selected name.
- C. Print by selection: will let you print any name with a certain string in them (ie: only the members from FLORIDA, or the members of a certain city, etc)
- D. Select lines: will let you choose the lines to be printed (up to 8). (ie: say you don’t want the phone number to appear on the label, then when the computer asks you if it is to be printed, enter NO or N)

FILES

- D. Delete name: will let you delete a name from the file.
- E. Change data (topics): will let you change the data in the program. (see ENTER NAME)
- F. Break program: will allow you to load your print driver. You should load it in the printer buffer or at 64000. This option is also used to readjust printer parameters to fit your labels (SPACING, CHARACTER SIZE, etc…)
- G. Save program: will let you save the program with the new topics (data)

BASIC NOTES:

LINE 215 can be used to set your printer

LINE 220 is where the program prints the data (can be modified to suit your driver)

LINE 240 is used for the SPACING between labels.

## Source Code: Mailing List

```
 1 REM  MAILING LIST ©1987 
   10 CLEAR 29000: DIM a$(8,32): LET go=65535
   20 INK 0: RANDOMIZE USR 30851: GO TO PEEK go
   50 REM F. BREAK PROGRAM
   60 GO TO 10000
   80 REM Q. QUIT PROGRAM
   90 PAUSE 60: CLEAR 65535: NEW 
  100 REM B. LOAD  FILE
  110 GO SUB 300: LOAD n$CODE 39342: RUN 
  150 REM A. SAVE FILE
  160 GO SUB 300: SAVE n$CODE 39342,PEEK 65534*256+560: GO SUB 9050: VERIFY n$CODE : RUN 
  200 REM LPRINT STRING            
  210 REM Driver at 64000 or              Printer Buffer.         
  215 REM This line may be used           to set your printer.     
  220 FOR x=1 TO 8: IF a$(x,1)<>"█" THEN LPRINT a$(x)
  230 NEXT x
  240 LPRINT '': REM             THIS LINE IS USED TO SEPARATE   EACH LABEL (ADJUST FOR YOUR OWN LABELS
  250 PRINT #2;: RANDOMIZE USR 37068: GO TO PEEK go
  255 REM SAVE PROGRAM
  260 GO TO 9900
  300 REM FIND FILE NAME
  310 LET n$="": FOR x=39759 TO 39750 STEP -1: IF PEEK x=32 THEN NEXT x
  320 FOR x=39750 TO x: LET n$=n$+CHR$ PEEK x: NEXT x: RETURN 
 9000 REM LOADER
 9010 INK 7: CLEAR 29000: DIM a$(8,32): LET go=65535: PRINT AT 10,0; INK 0;"STILL LOADING...": LOAD ""CODE : INK 0: IF PEEK 23681<>0 THEN RANDOMIZE USR 30140: GO TO PEEK go
 9020 CLS : LIST 9900: STOP 
 9050 PRINT AT 10,0;" Please Rewind Tape To Verify..."''': INK 7: RETURN 
 9900 REM SAVE PROGRAM
 9910 SAVE "MAILING" LINE 9e3: SAVE "MAILING C"CODE 29000,10300: GO SUB 9050: VERIFY "": VERIFY ""CODE 
 9920 INK 0: IF PEEK 65535=255 THEN RUN
```