0 ' GRAF3D.BA - BY JON P. KLAGES
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:PRINT:PRINT:PRINT"1=SINC 2=COS 3=HAT":PRINT:PRINT"WHAT FUNCTION ?
3 A$=INKEY$:IFA$=""THEN3
4 IFVAL(A$)=1THENGND=35:GOTO8
5 IFVAL(A$)=2THENGND=25:GOTO8
6 IFVAL(A$)=3THENGND=25:GOTO8
7 GOTO2
8 PI=3.14159:P=239/2:Z=.2:CLS:FORT=0TOPI/2STEPPI/31:G=COS(T):C=-P*G+P:H=SIN(T):D=GND+P*Z*H:FORX=-PTOPSTEP5:IFVAL(A$)=1THENY=4*PI*X/P:Y=20*SIN(Y)/Y
9 IFVAL(A$)=2THENY=20*COS(1.5*PI*X/P)
10 IFVAL(A$)=3THENY=1.5*PI*X/P:Y=18*(COS(Y)-.4*COS(3*Y))
11 A=X*G+P:B=GND-Y-Z*X*H:IFT=0 ANDX>1THEN13
12 LINE(C,D)-(A,B),1:LINE(239-C,D)-(239-A,B),1:C=A:D=B:NEXTX
13 NEXTT