Power-Programmierung/CD1.mdf/basic/library/gwbasic/misbasic/oneline.bas

BASIC Source File | 1988-09-26 | 245 b | 2 lines

1 SCREEN 2,0:KEY OFF:FOR N=1 TO 5:PI=6.283185307#:CLS:FOR X=0 TO PI STEP PI/N/11:FOR Z=0 TO PI STEP PI/N:LINE (INT(SIN(Z)*219)+320,INT(COS(X)*99)+100)-(INT(SIN(X)*219)+320,INT(COS(Z)*99)+100):NEXT Z:NEXT X:FOR D=1 TO 2500:NEXT D:NEXT N:GOTO 1