D..base-1 for TOS

See all articles from Update July 1990

REVISED BY EARL DUNNINGTON FROM THE LKDOS VERSION BY BILL JONES, PUBLISHED IN THE JULY 89 ISSUE, PAGE 27. THIS VERSION REQUIRES THE TOS DISK OPERATING SYSTEM, THE OLIGER OR AERCO CENTRONICS INTERFACE, AND THE ZEBRA OS-64 CARTRIDGE.

At this point, you should read the article by Bill Jones that accompanied his program.

Due to the many options available in this program, I have spent a great deal of time debugging it. I hope that I have removed all of them, but this I cannot guarantee. In some cases only use by many people over a long period of time, can uncover all of the bugs. This version of the program was designed for a Smith-Corona Fastex 80 dot matrix printer using Pica pitch. I do not think that this program will require any changes due to the use of a different printer.

In order to conserve memory all REM statements have been removed and several sections were reprogrammed. The same series of line numbers for each task were used. Hidden variables and strings are used. Due to reprogramming of the ADD A RECORD section, there is no longer any prohibition against having more than 12 lines in a record. This version of the program will handle a 80,7,31 file, however the number of records in the file must be evenly divisable by four. This is so that the file can be divided into four parts for use in other programs such as DAISY.B6.

All screen displays are 32 character and are switched to 64 characters for LPRINT operations using Bill Jone’s switching subroutines in lines 9920 and 9922.

The hidden variables are assigned in line 6800 and the hidden string variables in line 6802. These lines are deleted in the working copy of this version of the program. An alphabetical list of the hidden variables is as follows:

AB=2          INT PI=3
AD=4          M1=6804
AE=5          M2=7020
AF=6          SGN PI=1
AG=7          SIN PI=0
BO=10         TS=9920
D1=7232       YF=256
D2=7256       ZB=9922
DH=48

You will note my use of the CAPS LOCK when programming. This makes it easier to determine, in dot matrix printouts, if a letter is a lower case L, a lower case I, or a numerical one. The larger capitalized program printout is also much easier on the eyesight when typing programs into the computer. With my printer, this is an upper case o (O) and this is a zero (0).

After typing in the program be sure to SAVE it as your Master Copy before attempting to RUN it.

When you RUN the program the first time, you will be asked to supply the data for a letter heading and signature block. This is for use in making out invoices or even using the program as a simple word prosessor with which to write a note or letter. I used it to write and print this article.

When the DBASE 1 Menu appears on the screen, chose option 8. This puts you back in BASIC in the 64 character mode so that you can SAVE the program this time as your working copy. As this now contains hidden variables and strings, you must not use RUN or CLEAR. Save the program on a different disk using SAVE*”DBASE1″ LINE 6804. This then becomes your working copy. Be sure that any changes are also made in your Master Copy.

D..base-1 for TOS listing, lines 6800-6876 (listing, type later)
D..base-1 for TOS listing, lines 6800-6876 (listing, type later)
D..base-1 for TOS listing, lines 6880-7142 (listing, type later)
D..base-1 for TOS listing, lines 6880-7142 (listing, type later)
D..base-1 for TOS listing, lines 7146-7294 (listing, type later)
D..base-1 for TOS listing, lines 7146-7294 (listing, type later)
D..base-1 for TOS listing, lines 7300-7440 (listing, type later)
D..base-1 for TOS listing, lines 7300-7440 (listing, type later)
D..base-1 for TOS listing, lines 7440-7517 (listing, type later)
D..base-1 for TOS listing, lines 7440-7517 (listing, type later)
D..base-1 for TOS listing, lines 7518-9999 (listing, type later)
D..base-1 for TOS listing, lines 7518-9999 (listing, type later)