<html>
<head>
<meta content="text/html; charset=iso-8859-2"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Ahoj,<br>
<br>
Ak môžem poradiť, MZ-800 text by si asi najlepšie a celkovo
najkvalitnejšie urobil prepisom algoritmu z Opening 800.<br>
<br>
Len mi tam chýba Z(?).<br>
<br>
Miloš<br>
<br>
900 LABEL"MZ-800":HH =HY /HX: IFHH < 1 THENHR =HX: GOTO 920<br>
910 HR =HY<br>
920 H = PAI( 1) / 180<br>
930 REM CHR "m"<br>
940 BOX[C]X,Y,X + 10 *HX,Y + 30 *HY<br>
950 LINE[C]X + 15 *HX,Y,X + 15 *HX,Y + 5 *HY<br>
960 CIRCLE[C]X + 15 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H<br>
970 LINE[C]X + 20 *HX,Y + 10 *HY,X + 20 *HX,Y + 30 *HY,X + 30 *HX,Y
+ 30 *HY,X + 30 *HX,Y + 5 *HY<br>
980 CIRCLE[C]X + 25 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H<br>
990 LINE[C]X + 25 *HX,Y,X + 15 *HX,Y<br>
1000 LINE[C]X + 35 *HX,Y,X + 35 *HX,Y + 5 *HY<br>
1010 CIRCLE[C]X + 35 *HX,Y + 10 *HY, 5 *HR,HH, 0, 90 *H<br>
1020 LINE[C]X + 40 *HX,Y + 10 *HY,X + 40 *HX,Y + 30 *HY,X + 50 *HX,Y
+ 30 *HY,X + 50 *HX,Y + 5 *HY<br>
1030 CIRCLE[C]X + 45 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H<br>
1040 LINE[C]X + 45 *HX,Y,X + 35 *HX,Y<br>
1050 LINE[C]X + 55 *HX,Y,X + 55 *HX,Y + 5 *HY,X + 70 *HX,Y + 5 *HY,X
+ 75 *HX,Y,X + 55 *HX,Y<br>
1060 CIRCLE[C]X + 80 *HX,Y + 5 *HY, 5 *HR,HH, 315 *H, 135 *H<br>
1070 LINE[C]X + 77 *HX,Y + 1 *HY,X + 56 *HX,Y + 22 *HY<br>
1080 CIRCLE[C]X + 60 *HX,Y + 25 *HY, 5 *HR,HH, 135 *H, 315 *H<br>
1090 LINE[C]X + 63 *HX,Y + 29 *HY,X + 84 *HX,Y + 8 *HY<br>
1100 LINE[C]X + 70 *HX,Y + 25 *HY,X + 65 *HX,Y + 30 *HY,X + 85 *HX,Y
+ 30 *HY,X + 85 *HX,Y + 25 *HY,X + 70 *HX,Y + 25 *HY<br>
1110 REM CHR "-"<br>
1120 BOX[C]X + 90 *HX,Y + 13 *HY,X + 105 *HX,Y + 18 *HY<br>
1130 REM CHR "8"<br>
1140 LINE[C]X + 120 *HX,Y + 10 *HY,X + 120 *HX,Y + 5 *HY,X + 125
*HX,Y + 5 *HY,X + 125 *HX,Y,X + 118 *HX,Y<br>
1150 CIRCLE[C]X + 118 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H<br>
1160 LINE[C]X + 113 *HX,Y + 5 *HY,X + 113 *HX,Y + 10 *HY<br>
1170 CIRCLE[C]X + 118 *HX,Y + 10 *HY, 5 *HR,HH, 180 *H, 270 *H<br>
1180 LINE[C]X + 118 *HX,Y + 15 *HY,X + 115 *HX,Y + 15 *HY<br>
1190 CIRCLE[C]X + 115 *HX,Y + 20 *HY, 5 *HR,HH, 90 *H, 180 *H<br>
1200 LINE[C]X + 110 *HX,Y + 20 *HY,X + 110 *HX,Y + 25 *HY<br>
1210 CIRCLE[C]X + 115 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H<br>
1220 LINE[C]X + 115 *HX,Y + 30 *HY,X + 135 *HX,Y + 30 *HY<br>
1230 CIRCLE[C]X + 135 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0<br>
1240 LINE[C]X + 140 *HX,Y + 25 *HY,X + 140 *HX,Y + 20 *HY<br>
1250 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H<br>
1260 LINE[C]X + 135 *HX,Y + 15 *HY,X + 132 *HX,Y + 15 *HY<br>
1270 CIRCLE[C]X + 135 *HX,Y + 20 *HY, 5 *HR,HH, 0, 90 *H<br>
1280 CIRCLE[C]X + 132 *HX,Y + 10 *HY, 5 *HR,HH, 270 *H, 0<br>
1290 LINE[C]X + 137 *HX,Y + 10 *HY,X + 137 *HX,Y + 5 *HY<br>
1300 CIRCLE[C]X + 132 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H<br>
1310 LINE[C]X + 132 *HX,Y,X + 128 *HX,Y,X + 128 *HX,Y + 5 *HY,X +
130 *HX,Y + 5 *HY,X + 130 *HX,Y + 10 *HY,X + 120 *HX,Y + 10 *HY<br>
1320 BOX[C]X + 120 *HX,Y + 20 *HY,X + 130 *HX,Y + 25 *HY<br>
1330 REM CHR "0"<br>
1340 CIRCLE[C]X + 150 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H<br>
1350 LINE[C]X + 145 *HX,Y + 5 *HY,X + 145 *HX,Y + 25 *HY<br>
1360 CIRCLE[C]X + 150 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H<br>
1370 LINE[C]X + 150 *HX,Y + 30 *HY,X + 170 *HX,Y + 30 *HY<br>
1380 CIRCLE[C]X + 170 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0<br>
1390 LINE[C]X + 175 *HX,Y + 25 *HY,X + 175 *HX,Y + 5 *HY<br>
1400 CIRCLE[C]X + 170 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H<br>
1410 LINE[C]X + 170 *HX,Y,X + 150 *HX,Y<br>
1420 CIRCLE[C]X + 160 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H<br>
1430 LINE[C]X + 155 *HX,Y + 10 *HY,X + 155 *HX,Y + 20 *HY<br>
1440 CIRCLE[C]X + 160 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0<br>
1450 LINE[C]X + 165 *HX,Y + 20 *HY,X + 165 *HX,Y + 10 *HY<br>
1460 REM CHR "0"<br>
1470 CIRCLE[C]X + 185 *HX,Y + 5 *HY, 5 *HR,HH, 90 *H, 180 *H<br>
1480 LINE[C]X + 180 *HX,Y + 5 *HY,X + 180 *HX,Y + 25 *HY<br>
1490 CIRCLE[C]X + 185 *HX,Y + 25 *HY, 5 *HR,HH, 180 *H, 270 *H<br>
1500 LINE[C]X + 185 *HX,Y + 30 *HY,X + 205 *HX,Y + 30 *HY<br>
1510 CIRCLE[C]X + 205 *HX,Y + 25 *HY, 5 *HR,HH, 270 *H, 0<br>
1520 LINE[C]X + 210 *HX,Y + 25 *HY,X + 210 *HX,Y + 5 *HY<br>
1530 CIRCLE[C]X + 205 *HX,Y + 5 *HY, 5 *HR,HH, 0, 90 *H<br>
1540 LINE[C]X + 205 *HX,Y,X + 185 *HX,Y<br>
1550 CIRCLE[C]X + 195 *HX,Y + 10 *HY, 5 *HR,HH, 0, 180 *H<br>
1560 LINE[C]X + 190 *HX,Y + 10 *HY,X + 190 *HX,Y + 20 *HY<br>
1570 CIRCLE[C]X + 195 *HX,Y + 20 *HY, 5 *HR,HH, 180 *H, 0<br>
1580 LINE[C]X + 200 *HX,Y + 20 *HY,X + 200 *HX,Y + 10 *HY: RETURN<br>
<br>
<br>
<div class="moz-cite-prefix">Dňa 19. 4. 2016 o 8:46 Michal Hucik -
ORDOZ napísal(a):<br>
</div>
<blockquote cite="mid:5715D45E.50400@ordoz.com" type="cite">
<meta http-equiv="content-type" content="text/html;
charset=iso-8859-2">
<br>
<font size="+1">Ahoj,<br>
<br>
chci se zeptat, zda nahodou nekdo nemate logo MZ-800 v nejakem
vektorovem formatu, nebo alespon v bitmape se slusnym
rozlisenim...<br>
<br>
Napis Sharp lze na Internetu najit bez problemu. <br>
<br>
Predevsim lodicku a nejake jine Sharpi loga jsem nasel tady
<a moz-do-not-send="true" class="moz-txt-link-freetext"
href="http://akiba-pc.watch.impress.co.jp/img/ah/docs/610/236/html/ksharp4.jpg.html">http://akiba-pc.watch.impress.co.jp/img/ah/docs/610/236/html/ksharp4.jpg.html</a><br>
<br>
Ale MZ-800 se asi moc po internetech nepovaluje ... slo by to
samozejme vyrobit i z nejakeho MZ-80*, ale nenasel jsem aniprt.
Nejlepsi napis mz-800 je na Mirkovem webu - to rozliseni je
ovsem na nic <a moz-do-not-send="true"
class="moz-txt-link-freetext"
href="http://sharpmz.zdechov.net/?wiki/mz-800">http://sharpmz.zdechov.net/?wiki/mz-800</a><br>
<br>
Michal<br>
</font> <br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
SharpMZ mailing list
<a class="moz-txt-link-abbreviated" href="mailto:SharpMZ@mail.ordoz.com">SharpMZ@mail.ordoz.com</a>
<a class="moz-txt-link-freetext" href="http://mail.ordoz.com/mailman/listinfo/sharpmz">http://mail.ordoz.com/mailman/listinfo/sharpmz</a>
</pre>
</blockquote>
<br>
</body>
</html>