Advertisement
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 - , ~
:::;_->:::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
Advertisement
