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

Re: Cube program

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/