8%"x11" blank white, tractor feed paper, full box $24.95

8'/2"x11" blank white, tractor feed paper, half box $14.95

14V2"x11" green bar, tractor feed paper, full box $34.95

3VY'x15/16" tractor feed mailing labels $19.95


5V' plastic library case $ 1:95

8" plastic library case $ 4.95

51A" Flip-sort $21.95

8" Flip-sort $31.95

16K memory kits $19.95

UNPRECEDENTED 90% DISCOUNT SALE On MODEL II Commercial Grade Business Software (LIMITED Quantities Available)

LIST PRICE SALE PRICE General Ledger $300.00 $30.00

Accounts Receivable $300.00 $30.00

Accounts Payable $300.00 $30.00

Inventory $300.00 $30.00

Order Entry Processing $300.00 $30.00

Sales Analysis $300.00 $30.00

Word Processing $400.00 $40.00

*AII systems include extensive situation oriented documentation, but is supplied on diskette only.

•Above software sold as is and require a minimum of 64K and two drives.

(Sorry, but at these rediculously low prices our usual software support will not apply.)

ADD $3.00 for postage and handling for these items.

Apparat, Inc.

"On-going Support for Microcomputers"

4401 S Tamarac Pkwy • Denver. CO 80237 • (303) 741-1778 • (800) 525-7674

Si npsii tt T RS 80 .ire registered trademark of Tandy Corporation Freight FOB Denver call for shipping charges Foreign Orders shipped Air Freight for your TRS-80* model Ï and III.

Drives plug directly Into an expansion interface {requires installation of a double density controller) or the model 111 disk bus with our single volume cable so you can now have over 2 megabytes of storage on-line with standard mini-floppy diskettes. Each drive has up to 573 free grans, for a total of 1,719, on a maximum of three 80 track drives, which can be added to a TRS-80 model I. Model Ill's can have up to 4 dual 80's on-line (almost 3 megabytes).

These drives can "read" standard 35 or 40 track diskettes using Hewdos/80 version 2.0 which will allow skipping every other track. Drives come complete with case, power supply and documentation. The drives are priced at only $515 (Cat. Mo. 1-705, specify I or III). Mow, at 1424 bytes per buck, it just might be the answer to your storage problems. Special.— Two dual 80 track drives only $999.

Apparat, Inc.

4401 So. Tamarac Parkway, Denver, CO 80237 (303) 741-1778


For all models

Larry Kresige!? Ekifalmarsi, li lt happened to me again! I couldn't control myself! I awoke at a quarter to five with the answer to the problem, and I didn't want to go back to sleep for fear of forgetting

So kissing my wife upon the cheek Up to my feet I flew in a leap. Down to the hall and onto the stair That program last night had been a bear I'm sure many of you have had the same problem. I had the program conceptualized in my mind. But I spent the whole evening trying to put it together in numbered statements with commas and semicolons in all the right places. But alas... It wouldn't work.

Many think of the computer as intelligent. Well, I'm here to say there're wrong.

I told it what to do It would not go along It was a program that had been hobbling around in my mind. It was for printing mailing labels. Now there are probably hundreds of mailing label programs (I could go out and buy one for $9.95), but this one had a slightly different bent.

I was producing a number of mailing labels for my immediate area. All labels would be in the same state, but they would be in about two dozen different cities. I wanted a program in which I would not have to enter each zip code. I wanted the computer to look up the code for each city.

It sounded simple. Problem- There is some variance in the way that people capitalize names. Is it St. Charles or st. Charles? DuPage or Dupage? Dundee or DunDee? Sometimes one way and sometimes the other.

The answer was simple in afternoon hours as I contemplated a solution while returning from work. But it was not destined to be that simple when I sat at the keyboard. I spent thirty minutes writing the body of the program and three hours trying to write the subroutine that would produce the zip code. I had the concept but it wouldn't gel. So here I sit; its five a.m. Bu t when I'fin ish it will be a gem. I'm excited, nearly out of control Victory over frustration is my goal!

In the wee hours of the morning my brain operates so clearly. It seems so wonderfully simple now. To be perfectly honest, I can't even remember what yesterday's attempt looked like. There is now only one way to solve this problem.

Clears "new name" 20 INPUT "ENTER NAME"; N$

Enters original name 30 LPRINT N$

LPrints original name 40 FOR X = 1 TO LEN(N$)

Sets loop to length of name 50 T = ASC(MID$(N$,X,1)) Develops the ASCII code for the Xth letter of the name 60 IF (T>64) AND (T<91) THEN T=T+32 Decides if code is that of a captial-». if so, by adding 32 it becomes a lower case code. 70 NN$ = NN$ + CHR$(T)

Changes ASCII code back into a letter and assembles the Ipwer case name. 80 NEXT X

Closes the loop 90 LPRINT NN$

LPrints name in lower case 100 GOTO 10

Reruns the program

This little subroutine would change all the names into strings of lower case letters. By entering my data as all lower case I could successfully find the zip codes. Success was mine!

Amazing as it seems, that did the trick.

The knot in my stomach is gone, I'm no longer sick.

But as you all know

Those like us will go

Head first when it is time for another lick!

How to ivy or Sell Computer Equipment and Software

0 0

Post a comment