Set of Apple II Hard Drive Images/hard.hdv/HARD/NIBBLE/ARTDEMO

Applesoft BASIC Source Code | 1992-01-15 | 136 b | 5 lines | [FC] Applesoft BASIC Program (0x0801)

10  FOR X = 278 TO 1  STEP  -1
20  HGR2 :C = 0: HCOLOR= 3: FOR A = 1 TO ((279 -X) *X)  STEP X:B =  INT(96 *( COS(A))) +96:D =  INT(96 *( COS(A +1))) +96:C = C +1
30  HPLOT C,B TO C +X,D: NEXT A
35  FOR DE = 1 TO 500: NEXT
40  NEXT X