Casio FP-200 - Page 123

MATHEMATICS AND GEOMETRY.J
'
i
L
r
10·CLEAR:CLS:iS~l
2!2l INIT< 127 ,-31); 1, 1
30 GOSUB 480:LOCATE 12,0:PRINT"now"
4(2) PRINT-
0
,X ·-31 •• 0 •• 31°,"Y -31 .. 0 •• 31"
50 INPUT
0
Scale=•~,S:U=S: IF S<.1 'THEN 50
60 GOSUB 480
,_ · -7(2) .PR I NT __ -·''-X· "• -·~ 1 i!-S-~ -" · 0 " • ~ 1 *S" "Y
•~ ,· ' ·-· !I . . • . • • • !' .. _. ,
-• ;-•· ; 3 1 * S
80 PRINT "Hit ~ny key"
9!2l IF INKEY$="" THEN 9!2l
-
100 CLS
110 DRAW(-32,0)-(31,0)
120 QUAD(-32,-31)-(32,31>
130 DRAW(0,-31)-<0,31)
140 INTT(l27,31) ,11s,11s -
• 150 LOCAT-£121 , 0: GOSUB ;480. - · . ~
!· 160 -_LOCATE0,1: INF;UT"X==_~,H-~;LQCATE2 1:PRI
:~i;~~i-,~ :::;_->:::t,J 7'._0.i~F:-;¼~4:.'.',H;!?fO~'$r~s_Zl *S)·THfij,,r~'rlf ~ _
_ :}::="4 ;_ > "' -:·1s0"l1:ocATE121,-1: INPUT"Y=-~· ·;·v: Y=_.:.y:_L-OCATE2-,_ 1: _ 'R!N
..
· - · 19121 IF -'1'>31*5 OR -Y<-31*S THEN 180 -
.
20121 IF X=0 AND Y=0 THEN 330
_J--- 210 LOCATEIZl,l: INPUT"+ OR~- ",F"$:LOGATE0,_f:PRINT;,.
J 220 IF F$="~" .- THEN F:e::::-1 ELSE F=l--
l . 230 DRAW < 121 , 0) --- < X , Y)
i
1 _ 240 XT=XT+,X*F
250 YT=YT+Y*F
260 X<I>=X
270 Y<I>=Y
280 IF F$="-" THEN LOCATE0,II+2:PRINT F$
290 LOCATEl, I I+2: PRINT US ING" (###@tttttt > "; X,",", -Y;
300 I=I+1:II=II+1
310 IF II=5 THEN II=0
320 GOTO 160
330 If ABS(XT>>ABS(YT) THEN T=ABS(XT> ELSE T=ABS<
YT>
340 IF T>31*S THEN S=S+.2: IF (S*l0)MOD2=1 THENS=
S+.1:GOTO 340
350
FOR H=CZI TO I
127