rVECTOR
ADDITION AND
SUBTRACTION--------------
360
DRAWCC0,0)-(XCH>
,Y<H))
370
NEXT
H
380
INITC127,31),1/S,1/S
390
LOCATE
0,0:GOSUB
480
400
FOR
H=0
TO I
410~DRAWC0,0)~(X(H>,Y<H>>
-420
NEXTH
. . .
..
.
43121
LOCATE1,
1:PRINT
USING"
<tttttt@tHt#>
";
XT, ",.''.,-:-'l'T.
440
LOCATE121,7:PRINT
"Hit
any
key";
.
450
DRAW(0
1
0)-CXT,YT>:LOCATE0,1:PRINT
".-IE"
460
IF
.tN•(EY$=""
THEN
DRAWC(0,0)-CXT,YT>:LOCATE0,
1:PRINT"
":GOTO
450
470
GOTO
10
480
IF
5)=10
THEN
490
ELSE
PRINT
USING"Scale
tt.tt/
d";S:RETURN
490
PRINT
USING"Scale
##tt/d";S:RETURN
!DEBUG!
When· moving from this program
to
another
·program using PROG,-.be sure
to.;,
e2<ecute.'I NITJ0,0),
l,1'
beforehand. Otherwise,
an
error may'
occur
with a
pr;o::
·
;i . grarh~
tJsi
ng~rapn
ics:·"Sca'pab
H
ity~~J
Note};<
;alsofftha
r-;'
excessiv~t y)llt.irge.~'scal~c,ii9[
componenfvalues
may
deformthe
display
on·
the-screen..
..
·.
:c:~ic,)';?;
<
•,··;';;
~
-·-
·--+
",~·-'
~
- ,
128
To Next Page
Loading...
