Microprog

1691 Eason Pontiac, Ml 48054 (313) 673-2224 1-800-392-8881

5110 6th Avenue Sioux City, IA 51106 (712) 274-2348

Computer Prod., Inc.

4877 East Speedway

Tucson, AZ 85712 (602) 323-9391 1-800-528-1149

RO. Box 606 Sunnymead, CA 92388 (714) 653-9429

TRS-80 is a registered trademark of Tandy Corp.

January, 1983 67

The B. T. Enterprises

Computer Connection

^^ New Toll Free Order Number

Printer Stands

End the paper mess on your computer desk. Our printer stand allows your paper to be fed from under the printer, making room for the used paper to stack behind the print out of the way. Available with an optional removable shelf (Shown) for easy computer forms change. Available in Large size also, for MX-I00 and other large printer users also. Also available with center slot for bottom feed printers.

Regular Stand (300010) $29.95

Add $2,00 Shipping and Handling

B.T. Hard Disks

We want you to have all the power that your TRS-TRS-80 is capable, at prices that have other manufacturers cross-eyed! These Five, Ten and Fifteen Megabyte units are easy to use, just plug them into the expansion buss of your Model I or Model III. Comes complete with the fantastic DOS PLUS 4.0 Operating System! Available in configurations: 5 Megabyte Fixed, 10 Megabytes, 15 Megabyte Fixed. Look at the incredible low prices of our systems! SYSTEM PRICING 5 Megabyte Winchester Fixed Disk 201505 Model I Version $2399.95

203505 Model III Version 2399.95

10 Megabyte Winchester Fixed Disk 201510 Model I Version $2549.95

203510 Model III Version $2549.95

15 Megabyte Winchested Fixed Disk 201520 Model I Version $2699.95

203520 Model III Version $2699.95

Add $10.00 shipping and handling

Bar graphs

N.Y.S. Residents Add Tax Dealer Inquires Welcome Prices Subject to Change

Welcome mailable

* Hhz x h*V*bytes under 14000

N.Y.S. Residents Add Tax Dealer Inquires Welcome Prices Subject to Change

= B.T. Enterprises | Dept. 8A J 10B Carlough Rd. | Bohemia, N.Y. 11716 | 800 645 1165 (orders only) | N.Y.S. Residents call 516 567 8155 516 588 58.36 (modem) Enterprises is a division of Bi-Tech Enterprises I

Welcome

= B.T. Enterprises | Dept. 8A J 10B Carlough Rd. | Bohemia, N.Y. 11716 | 800 645 1165 (orders only) | N.Y.S. Residents call 516 567 8155 516 588 58.36 (modem) Enterprises is a division of Bi-Tech Enterprises I

PAINT statements for an attractive display. You will have to add several lines as follows:

535 PAINT(40,179),1,1 565 PAINT(55,179),1,1 595 PAINT(70,179),1,1 625 PAINT(85,179),1,1 655 PAINT(100,179),1,1 685 PAINT(115,179),1,1 715 PAINT(130,179),1,1 745 PAINT(145,179),1,1 775 PAINT(160,179),1,1 805 PAINT(175,179),1,1 835 PAINT(190,179),1,1

865 PAINT(205,179),1,1

The PAINT statements instruct the computer to begin "painting" at screen locations (across,down) and to paint with color #1 (green) and to stop painting at border color #1. Experiment with the "1,1" combinations until you get just what you want. Note that the painting begins at (down 179). This is just above the baseline (180) and could cause a problem if you enter a very small number during data entry (program lines 220-430). Try entering .001 or smaller to see what happens.

No provisions were included to label the printer output. Normally, I print the graph and then boot-up Color Scripsit so a short description can be added. Scripsit will center your label automatically and avoid having to decide how far to tab when using PRINT#-2 statements.

Several remarks have been included in the program to help you find your way around the listing. Hopefully, you will find lots of things to tinker around with and improvements to make. Perhaps this program will inspire you to create (and share) more "business graphics" programs. One improvement that comes to mind would be to permit changing the X-Y labels through input statements. The alphabet (and numbers) could be put into strings and then add a labeling routine to the program. Most of my Bar Graph needs are met by the program as it is.

Program Listing for BAR GRAPH

0 0

Post a comment