
---
;
.
...
_,..-
:
..
. . .
.
~
oh
:
i.i)or.n;
'-
:::.::::
: :
::
:
.::
:T-
~:-P.orMmat:i
;q~rph
:~~:~:
.
; .
:
..
::.: : .
..
:
..
:.
:
.:
..
:
.
~
:.:
: -. -.>.
::
.:.:
.
~-
~-
S
--------
.
10
REM
********************************
70
REM
***
Schemat;sche
le;chnung
***
30
REM
***
eine~
Rose
***
420
LINEi65,-200,
145,-205,
133,-205,128,
-
~
40
REM
***
fue~
Ml-731
~*
198,120,-200,90,-185,78,-170
0
50
REM
********************************
430 MOUE60,-125
~
.
.....
60
MODE
GR
4<10
LINE50~-155,68,-195,105,-210,
135,-20
Z
·
70
peOLOR3
5
80
MOUEI00,0:HSET
450
MOUE85,-45
~
90 MOUE38,-80
CU
460
LINE)5,-<15,10,-105,15,-130,18
;
-158
, 6
100
LINE38,-75,40,-65,45,-53,50,-25,50,-
E
3,-218,93,-223,108,-215,125,-225,165,-72
\....
20,55,-20,58,-23,85,-23,100,-18,123,-20,
0,180,-220,185,-215,185,-210,200,-205,20
<lJ
130,-15
0,-198,205,-195,220.-170,220,-145
C)
110
LINEI38,-20,145,-23,158,-25,155,-28,
470
MOUE50,-200
0
163,-28,183,-33,195,-35,208,-33,220.-40,
480
LINE43,-240,90,-~55,]15,-268,
125
1
-2
H
'-.
~
245.-138.220.-155
0,
135,-265,145.~260,165,-258,
195,-2jS,
19
U
Q)
120 MOUE66.-70
5.,
-207
,C
130
LINE95,-35.143,-25,177,-45,195,-68
490
MOUE195,-228
"'
U
CO
(\l
140 MOUE53,-147
500
LINE255,-220,258,-168,263,
-
170,253,-
~<r:
150
LINE48.-1
15,65,-70.113,-53,138,-43,1
130,255,-115,235,-95
.....l
UO
70,-5~,190,-65,205,-75,225,-110,223,-123
510
MOOE
TN
0::0
,225,-128,220,-145,213,-153,208,-165
520
SKIP1'5
llJ
M
16.0
MOUEI13,
-53
Cl
L()
170
LINEI03,-65,80,-83,60,-108,60,-125,6
Z
W
3.~135.80,-83
.
M
3:
180 MOUEI03,-65
Z
10
REM
***
P~imfakto~ze~legung
***
<r:,C
190
LINEI43,-60,
150,-55,193,-80,
190,-65
20
REM
fU~
SHARP
Ml-700
200
MOUEI43,-60
***
***
u
o (\l
30
REM
fidipiet
Dez.
210
LINEI70,-80,180,-90,193,-105,
197.-13
***
by
83
***
0.0
40
REM
z.B.
DIE
lAHLEN
5,203,-128,205,-130,210,-lI0,203,-90,195
***
***
rJJ~
50
REM
648484267
'-.
~
***
***
o (\l
60
REM
78907651
,-88,193,-80
***
1:**
O~
70
CLS
220
MOUE70,-113
1"-'0
8~
PRINT"P~imfakto~ze~legUn9
de~
~Qhl
N"
I
~
230
LINE88,-95,~3,-95
: PRINT
N
CU
240
MDUE170,-80
90
INPUT"B i
He
' N e i
ngeben
..
;N
~rJ)
100 N=INTCABSCNJ) :
W=SQRCN)
)(=0
110 PRINT"N
"jN
: PRINT
E
0
120
IF
N=l
THEN
END
>
130
A=2
140
GOSUB
220
0)
~
150
IF
X=l
THEN
END
;:l
160
IF
B<>INTCBJ
THEN
GOTO
180
0)
170
GO
TO
130
......
180
A=1
E
..c::
190
A=A+2
:
GOSUB
220
<lJ
200
IF
X=1
THEN
END
~
3
210
GO
TO
190
<lJ
220
IFCA>=W)+CN=lJTHEN
X=l
:
GOTO
260
C)
230
B=N/A
'--
240
IF
B=INTCB)
THEN
N=B
: PRINT A .:
GOT
<lJ
.c
o
230
U
250
RETURN
'
r-!
260
IF
~H>
1
THEN
PRINT N
RETURN
~
'0
270
END
C
~
<lJ
~
4.,..
Fur-
den
SHARP
~OOA
~
.
.....
~
F ;
$che
I
GmbH
DM
15,-
(incl.
7%
MWSt.)
250
LINEI55,-70,125,-65,98,-80,85,-122
260
MOUEI50,-15e
270
LINEI60,-155,165,-145,165,-125,153,-
95,165,-105,1?1,-158,17~,-93,163J-80,150
.-75,108,-88,100,-100,138,-88,153,-95
280
MDVEI40,-9~
290
LINEI25,-100,113,-110,
103,-128,106,-
1·1
1,
11
0,
-1
35,
1
20,
- l
33,
1
38,
- 1
30,
1
"5,
- 1
35,
1~0,-118,145,-97,
138,-98,
148,-123
300
MOVEI30,-148
310
LINEl53,-160,170,-155,160,-163,140,-
165,118,-163,95,-143,88,-120,93,-110,
l0
'
,-140,118,-155,153,-160
320
MOUE~78,-158
330
LINEI65,-165,148,-173,110,-173.
100,-
163,95,-1£0,88,-135,80,-120,97,-123
3<10
MOUEI90,-125
350
LINEI93,-140,170,-178,163,-178,155,-
183,128~-183,103,-l75,95,-170,103,-166
360
MOUE127,-183
370
LINEl20,-190,105,-185,78,-170,65,-16
0,65,-153,63,-150,63,
~
135
380
MDUEI20,-190
390
LINEI55,-190,
175,-185,190,-165,200,-
160,195,-145.198,-138,198,-138.197,-135
400
MOUE208,-165:LINEI78,-183
410
f10UEI85,-179
ae.
i Uig,,; .
~
_
~HARP~Co
:-
m
p:
uter
Heft
16
~ei
te
.
34
Comentários a estes Manuais