Advertisement
rVECTOR ADDITION AND S U B T R A C T I O N - - - - - - - - - - - - - -
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,)';?;
< •,··;' ; ;
~
-·- ·--+ ",~·-'
~
- ,
Advertisement
