Tandy 1000 Basic Reference Manual

Chapter 10 I BASIC Ke-ywords
Sample Program
The program below uses INSTR to search through the addresses
contained in the program's DATA statements.
It counts the num-
ber
of addresses with a specified county zip code (761--) and re-
turns that number. The zip code
is preceded by an asterisk to
distinguish it from the other numeric data found in the address.
360 RESTORE
370 COUNTER = 0
390 READ ADDRESS$
395 IF ADDRESS$ = "SEND" THEN 410
400 IF INSTRCADDRESSS, "*761") <> 0 THEN COUNTER
= COUNTER + 1 ELSE 390
405 GOT0 390
410 PRINT "NUMBER OF TARRANT COUNTY, TX
ADDRESSES IS" COUNTER : END
420 DATA "5950 GORHAM DRIVE, BURLESON, TX
*761 48"
430 DATA "71 FIRSTFIELD ROAD, GAITHERSBURG, MD
* 2 0 76 0 'I
440 DFlTA "1000 TWO TANDY CENTER, FORT WORTH, TX
*761 02"
450 DATA "16633 SOUTH CENTRAL EXPRESSWAY,
RICHARDSON, TX ~75080"
460 DATA ."$END"
186

Tandy 1000 Specifications

General

Processor	Intel 8088
Processor Speed	4.77 MHz
RAM	128 KB (expandable to 640 KB)
Operating System	MS-DOS 2.11
Manufacturer	Tandy Corporation
Release Year	1984
Storage	Single or double 5.25" floppy disk drive (360 KB), optional hard drive
Sound	Tandy 3-voice sound
Ports	Parallel, Serial
Graphics	CGA (Color Graphics Adapter)
Graphics Modes	320x200, 640x200