home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / pie.ba < prev    next >
Text File  |  2006-10-19  |  696b  |  10 lines
  1. 0 'PIE.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 R%=30:OX%=120:OY%=32:C#=3.14159/100:N%=0:CLS:DIMV#(17)
  4. 3 PRINT"Enter from 2 to 16 numbers.  Hit ENTER  twice if less than 16 numbers entered.
  5. 4 LINEINPUTQ$:V#(N%+1)=VAL(Q$):IFV#(N%+1)>0ANDN%<16THENN%=N%+1:GOTO4
  6. 5 FORI%=1TON%:V#(0)=V#(0)+V#(I%):NEXT:DIMEA%(N%+1):EA%(0)=0:FORI%=1TON%:EA%(I%)=EA%(I%-1)+INT(200*V#(I%)/V#(0)+0.5):NEXT:CLS
  7. 6 FORI%=1TON%:GOSUB7:NEXT:PRINT"F4 - Again":PRINT"F8 - MENU":END
  8. 7 A%=EA%(I%-1):GOSUB8:LINE(OX%,OY%)-(X%,Y%):FORA%=A%TOEA%(I%):GOSUB8:PSET(X%,Y%):NEXT:LINE(OX%,OY%)-(X%,Y%):RETURN
  9. 8 A#=A%*C#:X%=OX%+INT(R%*COS(A#)+0.5):Y%=OY%+INT(R%*SIN(A#)+0.5):RETURN
  10.