[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Cube program

> 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?

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



---
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