0 ' FUNCTN - author unknown
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 PRINT:PRINT"X-Value for Center? (0-239): ";:LINEINPUT C$:C=VAL(C$):IF C$="Menu"THENMENUELSECLS
3 FORI=-15TO15:L=L+1:IFI>-15THENLINE((I-1)^2,2*(L-1))-(I^2,2*L)
4 PSET(I^2,2*L):LINE(C,32)-(I^2,2*L):NEXTI:I$=INPUT$(1):L=0:GOTO2