DEMO PASDIABLO DQCYUDIABLO LQBlDRAGON PQS5 tGRAFTAL PQSB0NOVA PAS`SNOWFLAKPQSe nWEB PQSr PROGRAM diablo_demo; { This is a quick and dirty program to make sure the routines are in working order. Written by Tim Meekins } VAR i : integer; {$i diablo.lib} BEGIN init_diablo; plot(0,0); drawto(500,0); drawto(500,20); drawto(0,20); drawto(0,0); i := 0; REPEAT draw(250,40,i,20); i := i+25 UNTIL i>500; FOR i := 3 TO 6 DO poly((i-3)*100+50,100,45,i); i := 1; REPEAT circle(250,300,i); i := i+10 UNTIL i>100; reset_diablo END.vhDIABLO.DOCZ  !"#$%&o'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYOOOyLK.5%@\rO; E7c'H\S_B"3>ӰjBs]0i'ytJ^$%hJ`A '͛`CS=K4r$%(Zb3_(ȃpe|uSEνIuBs ےK.Y؏UtOW(&3;Zb3ㄧqz?VM*v 7uh$%~aX!t7S%;?B (V yt&gj87F0u"҂&NaAGJ)Bb?V=Trɕ [b PT6h[Uwh8\rpW#ɑR%W^"N |EDp$49R*d30e  MJ.9l82!lHhrTr_ѣa灯hĄ#[b{tU>PŠV1XɃi\ͅ#xFOIK.aaw:ERNpJ$x'ׯ1KD#'k̒(V+esIhJ ctAcS"  g{0;,)PC" F8#u1l<\yƍ#a>UA$xu fO닀ѵur1%찎p~u B[sZE 6b&q1#XG0q5`\~ECs]Ō"fv_atmaٰp*vB` Y<:+ -$ru_ V+:"aaJ. AㆁBБ`ax8÷%?xw7o?||Sg>8w7o>|ssݓg/_ۧn.o?ry䒟voTrOe+[wo>K:$7%`pM_@oag!eX]HoagQk@oy^Qk@o͝^!OÓ]! !!?hk!!!l!c!ZvLXDIABLO.LIBk o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiju'sHVwk{gCVóAk$;]#YA7&%.DK 5ħW1^Ȟ_=gHVwFxxV . &1)f*&Di\ǘ.ʸU(Ně j"!X> ?aa8"ՃX'X b5 ě 9\!% ɚH0P `M?w;s@|sHVw'8dG)l N1لpNqڟs59 GJ10q P{+F4_C`["8FxSY,,G1sHVw⺑LŅd(^S÷p4qdVAp.xU㞸Vqm2=P dz F{}( !^ո5\}1NF+s?ɀ6z_ pyBFriHь(.XN9Œ(Hp:{/]ƐΉ'"Z#̈d4D˽ח٣oC5sJ+/V+ ^5x3e(XrIAj$l(|Q%PNӒxI99Die\L2N'z("PAlB5zNiec0i%7d* s4MD/MC5^ƭqƸ6Z (6xqHџsi':?ߪroB|4kF+s{ǍdvdvjC$;f)!}g!%1i.-fDF2`zd9W&qQsJHO%|ՆIv:<<#0:[SE`4^\9Me#J2+M8i(D?*"xϐI %txxۛG1!>ո6bG#J2+M89Q0 %G_|QbdP2N'zfB_59!0s X^%DΕI ka+GqEeměF2l+Pׄ-l6FJM#D8Ϸ˃4J%hlFV6ƙqC#J2>qP2P2x, aiJ=E vdG+Ы$8b<~JqA ^x zOa[_IqLc<~JJG(2 %"(;\J2?UA;GB R2#_do;I=yMq8Ĥ̞+h%8Z^% 6zfyMC {OA vdlzd/  B ^@T2V2cKVWI20! P29#GPJ|JqV2Wm(d =nLҼ+iI|Bh'#̸"*8'108hF2`z5嬦i^n ^5An瓨4 (4/jC$;f10q9I26X9MK5Zn\3CBJ`5ҼHV/. 1Wz nU$03p@j$(xw(uƭZa6*p;O`&˥q@#p6 oR(kcpq(J2֜$}mP2uK"Gs3P_P(D_I[Gn\JSv!Q\ 7 &3n.2DI4p6&zMNP2#&m1AI[?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\帿Cq &S+Z4wR~O J3D{gLmS%j='j@X45*؆gLLw({O8Rք6٪/tSLҞQpllTK3SLɬM, Tp@5CWY ceg8ĝUfΗKp9ΘN1lq6-VLZDC`o7x;_gLLxn e.NSu2A5STbce8R݇&pt $RJaf\Z4uH~ ѓnD8Tzja~!ޜ1T. 4ӏ i0S[L&cNuH!8113N#Ǻ_t>QvkCY0,2A^ʂ Z 9Rc & \@)iBA&.NK'YЏ H-G8jSM*fi<6 bd Gk5,k̵+\Ll` l|q}Pfz5t8l]D+\>. }\3Aq]0AI% ^ (i-Im/ &ʐG}`nهA6K& y I]!p;L"`P0A6#hq[0A, ղ]L-0# ДuqGLjSM ڠ._M #- .~\LNyAά:{ޙUgt .|\3Afx ⍏ P[^0>!QsJHO%|ՆIvvՅGRAFTAL.PAS[ o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ(QLM Z}SfV_?GR0WO—MxL.7 㿈eV~jI+`<31x: Ryɑ1:39.'GFLA+ؗQLME=.xqD()ZI{r'!D䨿dIV.FOPOV.F`8@T#b짋q1QS$.F&ld&hҍ()`_w(bf`o%{_ؓO3 RHLb|N-8A+k!*|z\"nt8'}5S̬[ɞ$xG$8e5\pVܿiZ'Gk77(*qMC U >ax%`l hZ R}rvcܠt8`ߜWg쓣*h>`7(V7VoΛ3 ڍq۠"vA+b}?aO>=$H Jۂ}2rϧpVMapKZf=Jԟ= J1fĹ<`BU=zA?zzOǠ`n%{N =* m<`wC ao p(d^N=# V;j^V`AɣI'vX+XdvLW*h{MV=s m?ߌW## 2{$A+O#p('OFLA+O#'G('GFLA+O#pK%FAfO$hOሂ̞" ܈̞"I zY+؃C03 q'ǠIaOnq)f /_*1 Z͖OnF+֯mR7(ڍy-u_;oP:֯mR7(V71cϧpV?] `_U+iO$HLb|NbIrDjo`̓'`_mٿ AjS$ Zr/'OFLA+3Z>8j1hhJ}oP:V *h$AD鰂OHRV3Z>}qwZ3k{7ߠtWA+ػy!I ZGMft8"I#T!h{g[nfļ1G8h_*>=.〠 ꖐIr\ ;n> xGVw3Z9tpK%VA+;G[vK%ޠtH:nVwZC;C >/.i$ǵ٠tpk Z>$q(mRV]Ъ'wB+IωD17Ɉ)hbQLM]*1 2{$C b- 2{$A+bf`1t5q5`=UZ$hQ:ƛTb웙bf`}xS/p3*#ƭdO}xSܠboÀqV>A+7A4uaoGwĸ?oC Zn%{&vAVҞINIω_ i('OFLA+؟#boRQS$ Z!SV?/FQS$V#0fjGeja_3ߏB`bFnqՎ@Ԡ!p/=EL1Vc 0(A+C(` 1h{pJ׵`1t5q5`='yC $AD鰂OboRV3Z>}xSqwZ>3kNRθtoZ>s^҉]W#$S;^Z}rW(Į'7 WCs^҉]#$S;Z"Įj0B҉]?OnUU yjQ:L-ঠ3 Z>|H f1} !7裘ƛvX|#;b`3Z~Qwx*h{06(`fj׎Z۠tjVLQwS=A O0QLM] ;f=+̽sA+؃P:ާm/f\k @V/!5~M+ؗA4u^|~GaY+CnP4;b+tb_(ĮauZĠt06A+U,WQwajQ:ej׎Z`ZC;*h{pW({1ZV7txO^֠`_@V3Z^lQϧ%'G# |z\ !h{9e3W%h{4ԥtX`ƛboR7(VA+& "1J|H =3k{$}xSGD17u#=81K$&1>'ƛ:"iK%a8C JfDbs>i#ƛT!h{ vA+1t5q5JԟC q<m/.&ݽVZ  hk!!ex  hk>#>+e~kePROGRAM NOVA; VAR a,b,x,y : integer; r,c : real; {$I diablo.lib} BEGIN init_diablo; b := 25; WHILE b < 251 DO BEGIN a := 0; WHILE a < 361 DO BEGIN c := (a*3.14156)/180; r := b*(1-sin(15*c)); x := round(r*cos(c))+250; y := round(r*sin(c))+250; IF a = 0 THEN plot(x,y) ELSE drawto(x,y); a := a+5 END; b := b+25 END; reset_diablo END.vSNOWFLAK.PASX o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWNtU}ewo~}R>.q.<,:G*a]o+ȯL?0_D0Lr{9cWv" .H` 'ß1ЭఘNv]vT21}-3& HaЭ0jiǖ St+8ڦm4u۴us=LL[Ltݤs,Ňn@C2b:]|vU!]f@[Y&kN4ofa.L@5QF RC( E* |* apw21W4Y͢O&}|$LB8Xa( ϙuPxL@!;GblơLB80+QJ&>>N&Uu㠫`ԍ-*纀q"5Ɩ rsY0t2Ay7as]X&Uw}yy25C}xLinZ&`(x)îoǛea(x) 򼏏 r0quY-fr#)gUzc( /q0AS~&V.NgAujl7cwiFJ-&(Zn r E* | Ї2A C{>L8 _ 8I Kas0Rzl K]=HiPHVcYNHt^ է0}Fo鴜|8]=56X3And`2A&$ HEO1&}|$LTF9,0o>[&aϭeP8<\LU(.T:ZPh>[&)4CY 1L@庀qh-o&1Fd()gC>c( 8I ơLeg TCk C9q1+4 j' .q뢰L;8?@ABCDEFGHIJKLMNOPQ7| RRh :rsQD'qL"/]LQ (iiC\BVbBmye4бkǪ„Æ}2HIKK-":Q!ӖRPː)c1m|1XYJ5XEdBT$fCUAb11hce)I",cR;&EŖت%U=nQ[`b4бk"B݋j{wT!HX%tqW5T;$]J$pª !&Q] U aK,RU15 t,%隰%Nb c!T {ׁA'~(th|1XYJ5noUwهxV:>Bf0BH-qStchce)IUR[8M!IXLIJo|1XYJ t,f.-1V&^qW@I:'Qԑk_:V\33F&&Zbq[$}I;_2~qaYTsVbB1^00w8_ye4j1y7h_;\`khNGqG]F{FpnN38y1/F==0;{ ўN1#>TJ:}15.F5WF}3I:{݉2F=sn47Eg㰗ٝa/zo4Z=_Ѿ5D#ˇ3Ѿ΋SEsVbyUHEO