Texas Instruments TI-99/4A - Page 187

Graphics Match
These statements define the bar.
Examples:
>370 CALL CHAR(136,"000000000
03F3F3F")
>380 CALL CHAR(137,"000000000
orcrcrc")
>390 CALL CHAR(138,"3F3F3F")
>400 CALL CHAR(139,"FCFCFC")
es
)
o
c
C
C
C
C
C
u
a
o
o
o
Block
odes
Cod
00
OC
00 0
00
00
00
00
ou 00
3F
X
X X
X X X X
X
X
X X X
F
3F
X X
X
X
X X X
X X
X
X X
F
3F
X X X
X
X X X
X X
X
X X
F
3F
X X X
X X X X
X X
X
X X
F
F
X X X X X X X
X
X
X
X X
F
3F
X X
X
X
X X X
X
X X
X
X F
00
u
00 0
00
0
00
0
00 0
3
Block
C
The RANDOMIZE statement insures that a different sequence of
pictures is generated each time the program is run. The variable C
indicates the starting column location fur tht: lIext picture. The 1-
loop generates a random number between 1 and 6, inclusive. The
ON-GOSUB statement (line 460) transfers the program to the
approprjate subroutine to place the picture 011 the SCI eell, The
pictures are displayed according to the following values:
>410 RANDOMIZE
>420 CALL CLEAR
>430 C=14
>440 FOR 1 =1 TO 3
>450 PIC(I)=INT(6*RNO)+1
>460 ON PIC(I) GOSUB 840,900,
960,1020,1080,1140
;.0470 C-C"'2
>480 NEXT I
PIeri) Pjcture
1
Heart
2
Cherry
3
Bell
4
Lemon
5
Diamond
6
Bar
After the picture is placed on the screen, the prOl?;ram returns to the
loop to generate a new number and picture When thn'p pirtllrF.S
are displayed, the program continues to score the results.
User's Reference Guide
IlI·31