Texas Instruments TI-99/4A User Reference Guide

Graphics Match
These statements determine the score you receive, as outlined in
the table below. The line number indicates the line to which the
program transfers to award the points.
Match
All pictures alike
First two pictures. a
cherry. lemon, or bar
First two pictures a
heart. bell. or diamond
First and last pictures alike
No match or last two pictures alike
Points
Win 75
Win 40
Win 10
Win 10
Lose 10
Line
Number
700
550
650
650
610
Examples:
>490 REM SCORING
>500 IF PIC(1)<>PICl2) THEN 5
20
>510 IF PIc(2)-PIC(3) THEN 70
o ELSE 540
>520 IF PIC(1)<>PIC(3) THEN 6
10
:>530 GOTO 650
>540 IF PIC(1)/20INT(PIC(1J1
2) THEN 650
These statements add 40 points to the accumulated score. Three
tones sound and a message is displayed on the screen to indicate
you have won a
bonus worth 40 points. The program then transfers
to line 770 to display the total points accumulated.
In line 610, ten points are subtracted from the total score. A tone
sounds and a message is displayed to indicate you have lost tcn
points. The program then transfers to line 770 to display the new
score.
In these
statements, ten points are added to the total score. To
indicate
that you have won ten points. two tones sound and a
message is displayed. Then the program transfers to line 770 to
display
the new score.
These statements add 75 points to the total sCore, Five tones sound
and a message indicating that you have won the jackpot is
displayed.
The PRIN T statemcrlt in line 770 )11 illl~ your cunelll score. The
other statements offer you the choice of playing again or stopping
the program. The CALL KEY statement (line 800) accepts an
arlswcr without yUUI 11<lviu/:!.lu )1Iess I!:NTER. Pressing the Y key
instructs
the program to transfer back to line 410 to generate three
new pictures.
Pressing any other key stops the program.
III-32
>550 TOTAL=TOTAL+40
>560
CAll SOUND(100,440,2)
>570 CALL SOUND{100,660,2)
>580 CALL SOUND{100,550,2)
>590 PRINT "BONUS--40 POINTS"
>600
GOTO 770
>610 TOTAL=TOTAL-10
>620 CALL SOUND(100,110,1)
>630 PRINT "LOSE 10 POINTS"
>640
GOTO 770
>650 TOTAL=TOTAL+10
>660 CALL SOUND(100,660,2)
:>670 CALL SOUND(100,770,2)
>680 PRINT "wIN 10 POINTS"
>690 GOTO 770
>700 TOTAL=TOTAL+75
>710
CALL SQUND(100,440,2)
~720 CALL SOUND(100,550,2)
>730 CALL SOUND(100,440,2)
>740 CALL SOUND(100,660,2)
>750 CALL SOUND(100,880,2)
~760 PRINT "JACKPOT~--7~ POIN
T S"
>770 PRINT "CURRENT TOTAL pal
NTS: ";TOTAL
>780 PRINT
"WANT TO PLAY AGAI
N'?"
:>790 PRINT "PRESS Y fOR YES"
>800 CALL KEY(O,KEY,STATUS)
>810 IF
STATUS=O THEN 800
>820 IF KEY=89 THEN 410
>830 END
User's Reference Guide

Texas Instruments TI-99/4A Specifications

General

Brand	Texas Instruments
Model	TI-99/4A
Category	Desktop
Language	English