
--
.~----
.
...
,
"
" .
~#
-
,- ,
~
'_IW
",,,,,,_,
_"
___
IW
___
.
300:0ATA
0,50,~8,54,91,56,85,0,55,84,54
,74,50,54
61~~
~~tE
310:DATA
10,64,50,77,40,90,34,O,93,35,1
fu~
den
SHARP
PC-2500
10,43,124,52
(C)
320:0ATA
O,42,98,24,120,30,140,10,38,14
7,45,153,54,158,10,70,172,88,181,11
1,180
330:DATA
0,116,179,134,182,150,174,10,1
Ch~i$tian
5amoticha
Oas
P~o9~amm
GIRLS
FACt
Plollel
ein
fa~
58,158,170,147,173,118,10,172,100,1
biges
Madchengesicht
auf
dem
Plolle~
des
73,54
SHARP
PC-2500.
340:0ATA
175,27,O,167,18,152,54,164,91,
LISTING
GIRLS
FACE
O,147,76,145,60,144,42,O,127,39,128
,53,133
10:REM
GIRLS
FACE
350:0ATA
65,0,137,65,144,74,146i86,10,1
20:RESTORE
300
46,88,144,90,140,87,O,130,67,136,80
30:LPRINT
CHR$
27j"b"
,137
40:LPRINT
"M120,-220":
LPRINT
"1"
350:0ATA
92,O,141,95,135,110,126,133,O,
50:REAO
CO
117,135,120,120,132,103,0,118,106,1
50:
IF
C0>13
LPRINT
"M0,-100)":
LPRINT
08,120
CHR$
2/i"a":
END
370:0ATA
104,134,O,81,136,90,118,105,10
70:RE~D
X1,Y1,X2,Y2,X3,Y3
5,0,78,139,66,120,67,104~0,54,104,4
80:
IF
CO>9
LET
CO=CO-10:
GOSUB
270
6,120,55
90:A=X1*X1:B=X2*X2:C=X3*X3
380:0ATA
134,0,42,136,33,120,47,103,O,5
100:0=Y1*Y1:E=Y2*Y2:F=Y3*Y3
6,97,62,104,69,100,10,72,94,73,84,7
110:G=A-B+0-E
O,75,10
120:Y=(G/(X1-X2)-(B-C+E-F)/(X2-X3))/2/(
390:0ATA
71,74,73,71,76,70,0,69,80,52,8
(Y1-Y2)/(X1-X2)-(Y2-Y3)/(X2-X3))
8,63,100,O,66,97,65,90,69,85,10,70,
130:X=(G-2*(Yl-Y2)*Y)/2/(X1-X2)
87,71,92
140:R=
SQR
«X-X1)*CX-X1)+(Y-Y1)*(Y-Y1)
400:DATA
66,97,O,123,87,122,100,110,104
)
,10,107,102,104,93,106,83,10,110,82
150:X4=(X1+X2)/2:Y4=CY1+Y2)/2
,115,92
150:S=
SQR
«X-X4)*(X-X4)+(Y-Y4)*(Y-Y4)
410:0ATA
107,102,O,110,99,107,94,109,87
,10,111,87,112,93,110,99,0,62,50,57
170:T=R/S
,35,54
180:X4=T*{X4~X)+X:Y4=T*(Y4-Y)+Y
420:DATA
18,0,62,18,54,32,67,45,0,73,41
190:X5=(X2+X3)/2:Y5=(Y2+Y3)/2
,
72
,
30
,
71
,
18
, 3 ,
98
,
48,
101
,
54
,
100
, 5-2 ,
200:S=
SQR
«X-X5)*(X-X5~+(Y-Y5)*(Y-Y5)
13,84
430:0ATA
50,89,52,98,48,1,84,32,85,23,9
210:T=R/S
4,16,11,103,16,116,23,123,33,1,136,
-
220:X5=T*(X5-X)+X:Y5=T*(Y5-Y)+Y
40,131
230:LPRINT
CHR$
27;
STR$
CO-
440:0ATA
12,122,-4,11,104,5,85,12,71,4,
240:
LPRINT
"M"
j
Xli",
"' ;
Yl
14
241:LPRINT
"O";Xl;
",
"iY1i
",
";X4i
",
"iY4
242:
LPR
INT"M";
X4j",;';
Y4
243:
LPRINT
"0"
j
X2;",
"-;,
Y2;",,,
j
X5;",";
Y5
244:LPRINT
"M"jX5i","jY5
245:LPRINT
"0"iX3;","iY3
250:X=X3:Y=Y3
250:GOTO
50
27~:LPRINT
CHR$
27;
STR$
CO
280:LPRINT
"M"j-Xi","jY
281:LPRINT
"O"jXi
If,
"jY;
If,
"iX1;
If,
"jY1
290:
RETURN
l:ARUN
:ON
ERROR
GOlD
5~LF
-5
~
-
5:0N
ERROR
GOTD
MOr'sen
0;END
10;"M
P
CLS
:WAIT
B
:CURSOR
8;
PR
HI
T
,.
*
t1or-s
e
n
*1'
2B;CLEAR
;RESTORE
"MORSECODE"
~
Hit
diesem
Programm
kann
man
Buchstaben
und
Zahlen
in
l':orse-
OIM
A$(2S)*4,'Z
signale
unn'landeln
und
umgekehrt.
Bedienung:
$(9)*5,T$(25)*
DEF
t--i
·:
lni
tialisierung;
Texteingabe
(bis
26
Zeichen),
anschlieBend
1, M$(2SHS
Umwandlung
in
l<orsezeichen
und
Frage,
ob
nur
angezeigt
,,,erden
30;FDR
1~0TO
25;
5011
oder
auch
.
akustische
Signale
gegeben
werden
sollen;
READ
fI$<I):
danach
erneute
Anzeige
des
Texts.
\vird
hier
OFF
gedriickt,
l'lird
NEXT
I;FGR
1=0
das
Programm
be
_
endet;
bei
RCL
wird
noch
einmal
gemorst,
bei
TO
9;
READ
2$0
ENTER
kann
ein
neuer
Text
eingegeben
werden"
COPYr'ight b
);NEXT
I
DEF
N:
Texteingabe
Stef~n
HundhQmme;
40:
"N"CLS
;PAUSE
DEF
SPACE:
Ausgabe
Rin9str'.
5
"Text
eingeben
DEF
L:
T.
extausgabe
8581
M~r-ktschOf"
9a.St
!';
Z=0;
CLS
DEF
D:
Decodierung;
fiir
"."
wird
hier
"."
od
er
II~II
gedrtickt,
fur
S0:IF
Z<26CURSDR
"_"
"_I!
od
er
"1".
Nach
jedem
Buchstaben
wird
ENTER.
geariickt;
Z;WAlT
0;PRHH
wenn
die
Nachricht
zu
Ende
ist,
wird
anstatt
eines
neueri
CHR$
127
Zeichens
OFF
gedrlickt.
Danach
wird
der
Klartext
ausgedruckt.
55:
]$=iNKEY$
;IF
J$=""THEN
55
-.
?-HARP-Computer-
ae.,
awp
. .
~
Heft
16
Sei
te
44
Comentarios a estos manuales