**QFQFQFSAAASAAASAAAECCDBANDBANPXPYPZCSSGEEEXEBLIZZBAFIISABMLBRAMODDL1DL1SA1SA1MODDL2DL2SA2SA2D  !"#$@%@&@'()*+,-./0123456789:;<=>?@ABCDEFGHIJ GRAPH 3-D, LISTING 2BY PAUL CHABOT (c) 1985, ANTIC PUBLISHING#+F:A6,A+%D:GR3DLOAD.BAS( A d##**** THE FUNCTION ***********x6-$&$'@$##**** FIND SX,SY ************* 6-&6-&6-&6-$%$%$6-$%$%$6-$%$%$# 6-& @#6-@6-+$,'+%, 6-$%6-&$ 6-!A6-A 6-!A6-A$##**** COMPUTE POINTS ********* A-@!@( COMPUTING POINTS 6-+&,'6-+&,' 6-&6-A2!-6-%!6-&#-6-%# A$68<,-68<,-$68<,-)6-%@!AU)6-A  AA2$,##**** GRAPH IT ***************.#"@ A# A0! +@$ A`!@216- A%6-@16-@6"@6-8"@6-:"@6-@<"@6-@>'"@6-@'6-@IPERP. TO X-AXISJ-L-6-8<,N#6-8<,6-8<,# APP",R /  SPERP. TO Y-AXIST-V-6-8<,X#6-8<,6-8<,# APZ",\ /  ^ A$##**** FIX MATRIX ************* A-@!@( fixing matrix '6-+%,'@'6-+%,'@ A 6-6-6- 6-&6-&6-&6-M:$%$%$, 6-'6-'6-'6-$%$1"6-'6-@1 A0="6-'6-36-@= A0. 6-6-$6-6'. A0 6-66-66-'6-$&$6-$&$6-$&$6-M:$%$%$, 6-'6-'6-'6-M:$%$%$, 6-'6-'6-'$##**** INPUT=[RETURN] ********* F:Ad,"AUAF:Ad,@$AdAU'$##**** MAG CHANGE *************((( MAG= INPUT  A A $##**** OPTION FLAG ************ )6-%@!@)6- -@@($&##**** EYE CHANGE *************((堠(*( EX,EY,EZ,$(7@(,INPUT $ A.  A00 A$X##**** INTERVAL CHANGE ********Z( (\( AX,BX,AY,BY^$(7@(,INPUT $ A`  A@b6-@$l##**** PARTITION SIZE *********n((p( NX,NY = ,r( INPUT  At!  @!6-@v !6-x @6-@z !6-|6-@$##**** CENTER CHANGE **********( (( CX,CY = ,( INPUT  A  $##**** FUNCTION CHANGE ********((((Z= A6.6.Z=67@,. A 6-@$##**** CREATE LINE 120 ********% A(120 (%(CONT*-@@'AB@*&AB@$##**** RECOVER LAST FUNCTION **( 򠠿(%%( Y/N(** current will die **&6-F:Ad,&"AUAX$AdAU!@C$$ 6.6.6. A 6-@$ ##**** VALUE ERROR TRAP *******" A-@!@$(*******''&'AdAU'-@@(**("٠ݠ - to recover * F:Ad,"AUA,$H##**** I/O TRAP ***************J A-@!@L$@$(******N AR##**** DISK DIRECTORY *********T1 A@@@!1-@!@V(-@@$(7@",( X-@!@Z3@3@@D:*.G3D\+-@@+-@^'@'B:,"@Ap`((7@<@, ! $(( f$@ -@!@$(h@@$p##**** GET FILENAME ***********r##( 7@,t#( INPUT filename # Av6.D:67@,.x67B:,%@,..G3D$z##**** 2ND CHANCE *************{$ A!$( ϠԠ Y/N|( filespecs ~&6-F:Ad,&"AUA$AdAU!"@C$$ ' $##**** SAVE TO DISK ***********"( S A V E(" A! A A`! A@2 @@2A@&&6-?:<@<Av<<@,(@(@*(@(@*(@(@(@(@(@(@(@(@(@ @ A@ A AP$##**** LOAD FROM DISK *********!( L O A D(! A! A A`! A@& 6.&@@&&6-?:<@<Av<<@,@@*@@*@@@@@@@@@@ A! A  A0! A@ A 6-@$##**** PRINT IT ***************( PRINT IT ($!( 7@,$(%%( 1-LEFT 2-RIGHT&6-F:Ad,&"AUA dAdAU A@@1*@0$.@.@@P:INITIALIZE%%(@>:@',>:@d,FILENAME"@0(@))(@>:@, 7@,SET LINE FEED//(@>:@',>:@Q,>:@,6-%A$@@-@96-%%-@A%6-&@@67<,.>:F:,, PRINT GRAPHICS STRING"@0(@<<(@>:@',>:@u,>:A,>:, @$L""**** FORCED READ ***********N-@@(P-@@$V-@@XAB@ZAB@$`**** FILL M$b A(MAG:d A6.$j**** FILL E$l An(EYE:,,p A6.$t**** FILL I$v Ax##([,]*[,]z A6.$~**** FILL Z$) A-@@)A  A6.7@,$""**** LABEL SCREEN **********&&6-?:<@2<@,,($蠳Ġ ^^^^^^^^^^^^^^^^^@%%( Paul Chabot 1985B,,($ݠȠԠ ٠D([O] Option 0 F([F] Function H([M] Magnification J([E] Eye Position L([C] Center Screen N([I] Intervals P([N] Partition sizeR([R] Recover last T(ɠϠ V([L] Load [S] SaveX([P] Print [D] Dir.Z(OoOoOoOoOoOoOoOo\,,($ݠ堯f AP$z**** MINI-MENU| A!( ~ ( $**** CLEAN-UP-@@( #-@@!#-@ ( -@@$""**** INITIALIZE ************36-@$6-A6'6-A36-APM6-6@6-@)6-6@56-@A6-@M6-@?6-@6-@'6-@36-A`?6-A9<,9<,9<,11;@x,;@,;@,;@ ,&&;@x,;@x,;@,;A,;@8,+ 6. 67@8,. +67@,.6. D:SAMPLE.G3D! A A! A!! A  A0! A@/ AP6-@%6-/ A 6. $ D:GRAPH3D.BAS