Computer
Graphics
Operation
Manual
-----------TRS-BO
®
----------
5~~
'
5l~
'Input
gross
income,
and
calculate
the
Y-coordinate
52~
'
53~
FOR
I=l
TO
12
54~
CLS
55~
PRINT
"Enter
gross
income
in
millions
(1-9)
for
"iMN$(I)
56~
LINE
INPUT
"$"iGI$
57~
Y(I)=2~5-2~*VAL(GI$)
58~
TTINC=TTINC+VAL(GI$)
59~
NEXT
I
6~~
CLR
61~
SCREEN~
62~
'
63~
'Draw
the
graph
and
bars
64~
'
65~
FOR
I=l
TO
12
66~
CLS
67~
X=X+5~
68~
LINE
(X,Y(I»-(X+2~,2~5),1,BF
69~
LINE
-(X+4~,195)
7~~
LINE
-(X+4~,Y(I)-1~)
7l~
LINE
-(X+2~,Y(I)-1~)
72~
LINE
-(X,Y(I»
73~
LINE
(X+2~,Y(I»-(X+4~,Y(I)-1~)
74~
PAINT(X+21,Y(I)+2),TILE$,1
75~
NEXT
I
76~
GLOCATE(4~,2l5),~
77~
PRINT
#-3,"Jan
Feb
Mar
Apr
May
June
July
Aug
Nov
Dec"
78~
GLOCATE(29~,23~),~
79~
PRINT #-3,BMSG$
8~~
FOR
I=l
TO
l~
81~
IF
I>9
THEN
C=l
ELSE
C=2
82~
GLOCATE«C*1~)-5,(2~-I*2)*1~),~
83~
PRINT
#-3,STR$(I)i"-"
84~
NEXT
I
85~
LINE
(35,~)-(35,2~5)
86~
LINE
-(639,2~5)
87~
GLOCATE(~,18~),3
88~
PRINT #-3,VMSG$
89~
GLOCATE(22~,~),~
9~~
PRINT #-3,TMSG$
9l~
GLOCATE(26~,1~),~
92~
PRINT
#-3,"(Total
income
is''iTTINCi"
million)"
93~
FOR
I=l
TO
l~~~~
94~
NEXT
I
95~
SCREENl
96~
END
Sept
Oct
---------lIadlOlhaell---------
-132-