Re: Cube program

["Bill Garber" <willy46pa@comcast.net>]

Thank you sir, I thought that but wasn't sure.

Bill @ GarberStreet Enterprises
http://garberstreet.netfirms.com


Michael J. Mahon <mjmahon@aol.com> wrote in message
20030529062628.06721.00000121@mb-m11.aol.com">news:20030529062628.06721.00000121@mb-m11.aol.com...
> Bill Garber asked:
>
> >> When I typed it in, I found a couple of typos--a place where "I" was
> >> replaced by "1" and a place where "+" was replaced by "=".  Here
> >> is the fixed up version:
> >>
> >> 10    I=1.5708:T=6:HGR:HGR2: HCOLOR=3: FOR N=1 TO 1000:
K=(N/2=INT(N/2)):
> >> POKE230,32 + (32 * K): FOR X=1 TO 4: A(X) =50*SIN(E)+140:
> >B(X)=50*COS(E)+96:
> >> E=E+I: NEXT: FOR X = 1TO 2: HPLOT A(1)+C,B(1)-DTOA(2) + C,B(2)-D TO
A(3) +
> >C,
> >> B(3)-D TO A(4)+C,B(4)-D TO A (1)+C,B(1)-D: C=20: D=35
> >>
> >> 20    NEXT: HPLOT A(2),B(2) TO A(3) +C,B(3)-D: HPLOT A(3), B(3) TO
> >> A(2)+C,B(2)-D: FOR X=1 TO 4: HPLOT A(X),B(X) TO A(X)+C,B(X)-D:
> >> NEXT:POKE49236+K,0:POKE230,32+(32*(K=0)): CALL-3086: E=E+T: C=0: D=0:
> >NEXT:
> >> TEXT: HOME: LIST: END
> >
> >Michael,
> >
> >Is this IntBasic or ASoftBasic?
>
> Applesoft.  Integer BASIC doesn't have trig or hi-res functions.  ;-)
>
> -michael
>
> Check out amazing quality 8-bit Apple sound on my
> Home page:  http://members.aol.com/MJMahon/


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.478 / Virus Database: 275 - Release Date: 5/6/03