Radio Shack TRS-80 Operation Manual page 135

Computer Graphics Operation Manual
- - - - - - - - - - - T R S · B O
® - - - - - - - - - -
19 , "THREEDEE/GRA"
2g ,
3g , Object
4g'
The object of this program is to produce a three
sg , dimensional bar graph representation of the gross
6g , income for a company over a one year period.
7g ,
sg , Variables
9g'
A Vertical alphanumeric character
199' BMSG$ Bottom message
l l g ' CHAR$ Disk file input field
l2g' GI$ Gross income
l3g' I Counter
l4g' J Counter
lSg' MN$ Month
16g' REC Record number of vertical character
l7g' Sl$ Single character of vertical message
lSg' TILE$ Tile pattern for painting
199' TTINC Total income for the year
2gg'
X X-coordinate of bar
2lg' Y(i) Y-coordinate of bar
22g ,
23g
'Input/output
24g'
The program prompts you to enter the gross income, in millions.
/~
2Sg 'for each month. The program requires these values to be between one
26g 'and nine.
27g ,
2Sg 'Set initial values
29g ,
3gg
CLS
3lg DIM Y(12),A(S),MN$(12)
32g
DEFINT A
33g
VMSG$=" Millions of dollars "
34g
TMSG$="G r
0
s s I n com e For 1 9 S g "
3Sg BMSG$="M
0
nth"
36g
MN$(l)="January"
37g
MN$(2)="February"
3Sg MN$(3)="March"
39g
MN$(4)="April"
4gg
MN$(S)="May"
4lg MN$(6)="June"
42g
MN$(7)="July"
43g
MN$(S)="August"
44g
MN$(9)="September"
4Sg MN$
<1g)=
"October"
46g
MN$ <11 )="November"
47g
MN$(12)="December"
4Sg TILE$=CHR$(&H99)+CHR$(&H66)
49g X=-lg
----------lIadlelhaeli - - - - - - - - - -
-131-