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

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

1  DIM X1(405): HGR2 : FOR A = 1 TO 9E9: RESTORE :B = 0:H =  RND(1) *179 +50:V =  RND(1) *89 +20: FOR I = 1 TO 3: READ A(I),C(I),D(I),E(I):Y(I) = 0: NEXT : FOR G = 0 TO 32  STEP .5: FOR I = 1 TO 3:A(I) = A(I) +.0005: HCOLOR= 3:X = C(I) *(1 + SIN((A(I) -75)/A(I))):Y(I) = Y(I) +D(I):S% = 189 -X -(V -E(I))
2  HPLOT H +Y(I),S%: HPLOT H -Y(I),S%:X1(B) = Y(I):B = B +1:X1(B) = S%:B = B +1: NEXT I,G:R = 8: FOR C = 1 TO 3: FOR I = 0 TO 400  STEP R: HCOLOR= 0: HPLOT H -X1(I),X1(I +1): HPLOT H +X1(I),X1(I +1): NEXT :R = R/2: NEXT C,A: DATA 1.1,32,.25,14,.998,28,.5,6,1.0815,28,.5,