Tandy 1000 Basic Reference Manual

Chawter 10 I BASIC Kevwords
Sample Program
5 STRIG(0) ON: STRIG(2) ON
10 ON STRIGC0) GOSUB 1000
20 ON STRIGC2) GOSUB 2000
30 PRINT "Press one of the joystick buttons."
40 FOR I = 1 TO 3000:NEXT I
50 GOTO 30
1000 PRINT "You pressed the left button."
:RETURN
2000 PRINT "You pressed the right button."
: RETURN
Lines 10 and 20 turn on joystick trapping. Line 30 instructs you
to press one
of the buttons. Line 40 waits for you to press a but-
ton. If you press the left button, BASIC transfers program control
to the subroutine at Line 1000. If you press the right button,
BASIC transfers program control
to the subroutine at Line 2000.
If you
do not press a button, Line 50 returns to print the mes-
sage again. This program is
a continuous loop. To end the pro-
gram, press
[CTRL]m].
239

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