FUJIbaud@data8UUPpqLINEANCODHCODLCODLBI data)UU GRAPH 3-D LOADERBY PAUL CHABOT (c) 1985, ANTIC PUBLISHING(% A6-A6%6-A2data)UU-A6AP<"  F %C:PZ//104,201,4,240,9,170,240,5,104,104,202,208d44251,96,104,133,215,104data)UU,133,214,104,104,168,104n44133,217,104,133,216,104,104,240,236,133,212,24x33165,214,101,88,133,214,165,89,101,215,133,215Pdata(UU33152,240,15,165,214,105,64,133,214,165,215,105111,133,215,136,208,241,132,221,160,0,132,220//177,216,160,0,170,16,1,data)UU136,132,213,138,41,,96,208,4,169,64,16,14,201,32,208,4,169,,0,16,6,201,64,208,2,169,32,133,218,138++41,31,5,218,133,data(UU218,169,0,162,3,6,2182242,202,208,250,109,244,2,133,219,164,221,17744218,69,213,164,220,145,214,200,132,220,196,21211wdata(UU208,182,24,165,214,105,40,133,214,144,2,23011215,230,221,169,8,197,221,208,159,96,207,96BYTE I/O**169,64,133,212,data(UU169,3,133,213,104,104&&104,10,10,10,10,170,216,24,105,9--168,104,145,212,136,104,145,212,136,136--136,104,145,212,13data(UU6,104,145,212,136,136104,104,145,212,76,86,228"C +@AAv1AAvCAR@,-@data'UU@6(@ R P 3 @-@@J(@ paul chabotT/( (,( (c) 1987 BY HACKERdata)UU M.M.O /$4ADER=R3D2<f CODE does ,]*[6-% (,( (c) 1987 BY HACKEa}dataUUdata\UU@fpLINEANCODHCODLCODQFQFQFSAAASAAASAAAECCDBANDBANPXPYPZCSSGEEEXdatav UUEBLIZZBAFIISABMLBRAMODDL1DL1SA1SA1MODDL2DL2SA2SA2DTGCTGMdata{ UU dataq UU !"#$%data UU&'()*+@,@-@./012345Cdataz UU6789:;<=>?@ABCDEdata UUFGHIJKLMNOPQ@R@S GRAPH data UU 3-D, LISTING 2#+F:A6,A+%D:GR3DLOAD.BAS( A d##**** THE FUNCTION ***********x6-$%H:,4data UU$?0$""**** FIND SX,SY ************ 6-&6-&6-&6-$%$%$6-$%$%$6-$%$idata UU%$# 6-& @#6-@6-+$,'+%, 6-$%6-&$ 6-!A6-data UUA 6-!A6-A$!!**** COMPUTE POINTS ******* A-@!@#data UU( OBLICZAM PUNKTY 6-+&,'6-+&,' 6-&6-A2!-6-%!6-&#-Jdata UU6-%# A$68<,-68<,-$68<,-)6-%@!AU)6-A  Adata UUA2$,**** GRAPH IT ***********.#"@ A# A0! +@$ A`!@216-mdata UU A%6-@16-@6"@6-8"@6-:"@6-@<"@6-fdata UU@>'"@6-@'6-@J-L-6-8<,N#6-8<,6-8<,# APdata~ UUP",R /  T-V-6-8<,X#6-8<,6-8<,# APZ"datap UU,\ /  ^ A$!!**** FIX MATRIX *********** A-@!@( NOTUJE MAdatao UUCIERZ '6-+%,'@'6-+%,'@ A 6-6-6- 6-&6-&6-&6-M:$%$%$bdata~ UU, 6-'6-'6-'6-$%$1"6-'6-@1 A0="6-'6-data UU36-@= A0. 6-6-$6-6'. A0 6-66-66-'6-$&$6-$&$[data} UU6-$&$6-M:$%$%$, 6-'6-'6-'6-M:$%$%$, 6-'6-'6-'$!!**** dataq UUINPUT=[RETURN] ******* F:Ad,"AUAF:Ad,@$AdAU'$""**** MAG CHANGdatam UUE ************((( POW= PODAJ  A A $**** OPTION FLAG *datau UU*** )6-%@!@)6- -@@($&**** EYE CHANGE ****((ᠠ(*Bdataq UU( EX,EY,EZ,$(7@(,PODAJ $ A.  A00 A$X**** INTERVAL CHANGE ****Zdataq UU( (\( AX,BX,AY,BY^$(7@(,PODAJ $ A`  A@b6-@$l datak UU**** PARTITION SIZE ****n(頠(p( NX,NY = ,r( PODAJ  At!  @!6datai UU-@v !6-x @6-@z !6-|6-@$**** CENTER CHANGE ****( datas UU(( CX,CY = ,( PODAJ  A  $**** FUNCTION CHANGE ****(data UU(((Z= A6.6.Z=67@,. A 6-@$% A(120 (datak UU%(CONT*-@@'AB@*&AB@$( ꠿(%%(datad UU T/N (*aktualna funkcja ginie*&6-F:Ad,&"AUAX$AdAU!@E$$ udatad UU6.6.6. A 6-@$ " A-@!@$(****''&'AdAdataj UUU'-@@((ʠ٠ˠ * F:Ad,"AUA,$HJ A-@!@datas UUL$@$(***䠠***N ALN-@@(P-@@$V-@@Xdatao UUAB@ZAB@$`b A(POW:d A6.$jl An(OKdatah UUO:,,p A6.$tv Ax##([,]*[,]z A6.$~) AFdatao UU-@@)A  A6.7@,$&&6-?:<@2<@,,($蠳Ġ ^^^^^^^^^^^^^^^^^@%%( Paul Chabot 1985B++(#ݠdata} UUʠ D([N] Opcja 0 F([F] Funkcja H([M] Powiekszenie J([E] Pozycdatav UUja oka L([C] Centrum ekranuN([I] Dziedzina P([G] Gestosc siatkiR([O] Odzyskaj fun. T(#datav UU V(Wersja kasetowa X( Z(OoOoOoOoOoOoOoOo\,,($ݠkdatar UUf$z| A!( ~ ( $-@@( #-@@!#-@Wdatat UU ( -@@$36-@$6-A6'6-A36-APM6-6@6-@)6-6datat UU@56-@A6-@M6-@?6-@6-@'6-@36-A`?6-A9<,9<,9datav UU<,11;@x,;@,;@,;@ ,&&;@x,;@x,;@,;A,;@8,+ 6. datay UU67@8,. +67@,.6. D:SAMPLE.G3D! A A! A!! A  A0! A@/ A*data| UUP6-@%6-/ A 6. $ C:~datag UU